paper.label:
print cls$
print "P A P E R "
print
print in$;" A ...";ni$;" Einzelblatt DIN A4 / 70 Zeilen"
print in$;" E ...";ni$;" Endlospapier 66 Zeilen / 11 Zoll "
print in$;" F ...";ni$;" Endlospapier 72 Zeilen / 12 Zoll"
print
print biw$
paper.wahl:
antw=inkey
if antw>90 then antw=antw-32
if antw=77 then goto menu:
if antw=27 then goto exit:
if antw=65 then goto papera4:
if antw=69 then goto paper11:
if antw=70 then goto paper12:
goto paper.wahl:
rem
papera4:
lprinter
print esc$+"$";
%page 70
console
goto menu:
paper11:
lprinter:
print esc$+"c";
%page 66
console
goto menu:
paper12:
lprinter
print esc$+"c";
%page 72
console
goto menu:
lprinter:
print esc$+"c";
%page 66
console
goto menu:
paper12:
lprinter
print