to lpt1test2
	openAppend "LPT1
	setwriter "LPT1
	formFeed=char 12
	foreach procedures [po ? pr formFeed]
	setwriter []
	close "LPT1
end