fprint.label:
print cls$
print "---------------------------------------------"
print "PRINTER.COM       (Version 1.0)    1987/07/24"
print "---------------------------------------------"
input "FILESPECIFICATIONS (drive:filename.ext) : ";filespec$
fileprint.work:
filespec$=ucase$(filespec$)
print "Wie oft soll ";filespec$;" gedruckt werden? ";:input "";prtanz%
on error goto print.error.lab:
for x=1 to prtanz%
open filespec$ AS 1
if end #1 then set.print.eof:
lprinter:
while not eof%
g%=get(1)
if g%=26 then goto set.print.eof:
print chr$(g%);
wend
set.print.eof: EOF%=TRUE%
close 1
print chr$(12) : next
goto printer.exit:
console
print.error.lab:
console
goto error.label:
printer.exit:
console : goto menu:
r$(12) : next
goto prin