100 REM INITIALISE PRINTER
110 GOSUB 9710
120 REM PRINT ALL PRINTABLE CHARACTERS
130 FOR A=32 TO 127 STEP 32
140 FOR B=O TO 31
150 C=A+B
160 GOSUB 9810
170 NEXT B
180 LPRINT
190 NEXT A
200 LPRINT
210 FOR A=160 TO 223 STEP 32
220 FOR B=O TO 31
230 C=A+B
240 GOSUB 9810
250 NEXT B
260 LPRINT
270 NEXT A
280 STOP
9700 REM ROUTINES TO PRINT 'ANY' CHARACTER 
9705 REM INITIALISE PRINTER
9710 POKE 59393,0
9720 POKE 59392,255
9730 POKE 59393,52
9740 RETURN
9750 REM


9800 REM PRINT CHARACTER (ASC VALUE IN 'C')
9805 REM CHECK PRINTER NOT BUSY & CLEAR FLAG
9810 IF PEEK(59393)<128 THEN 9810
9820 Q=PEEK(59392)
9830 REM PRINT CHARACTER
9840 POKE 59392,C
9850 REM 'STROBE' CHARACTER INTO PRINTER
9860 POKE 59393,54
9870 POKE 59393,62
9880 RETURN
9890 REM WITH 'FAST' PRINTERS (NOT TP-40)
9900 REM LINE 9810 MAY NOT BE NEEDED.
9910 REM INITIALISE ONLY NEEDED ONCE,
9920 REM NOT NEEDED IF ALREADY USED
9930 REM LLIST OR LPRINT.
9940 END