uzzle printer"
2025 PRINT" uit
2030 K$=INKEY$:IFK$=""THEN2030
2040 IFK$="H"ORK$="h"THENGOTO10
2050 IFK$="P"ORK$="p"THENGOTO3000
2055 IFK$="Q"ORK$="q"THENLPRINTCHR$(27);CHR$(54):MENU
2060 GOTO2030
3000 S$=STRING$(15,32)
3005 CLS:PRINT:PRINT"Is the printer turned on?"
3007 PRINT:LINEINPUT"Name of document to print:";F$
3010 LPRINTCHR$(27);CHR$(56):E=0:F=0
3020 OPENF$FORINPUTAS1
3030 IFEOF(1)THEN3200
3040 LINEINPUT#1,A$
3050 IFMID$(A$,2,1)<>" "THEN3150
3060 LPRINTS$;A$:LPRINT
3070 GOTO3030
3150 IFE=0THENLPRINT:LPRINT
3155 B$=B$+A$+" ":E=1:F=F+1
3160 IFF=5THENF=0:LPRINTS$;B$:B$=""
3180 GOTO3030
3200 LPRINTS$;B$:B$="":LPRINT:LPRINT:LPRINT
3210 CLOSE:GOTO2000