aUCBLogo Demos and Tests / lpt1test2
to
lpt1test2
openAppend
"LPT1
setwriter
"LPT1
formFeed
=
char
12
foreach
procedures
[
po
?
pr
formFeed
]
setwriter
[]
close
"LPT1
end
to lpt1test2