32000 REM * GR.0 SCREEN TO PRINTER *›32001 REM ›32002 REM "OPEN" CLEARS SCREEN›32003 REM DO THIS EARLY IN PROGRAM›32004 REM USE GOSUB 32010 FOR THIS›32005 REM ›32010 POKE 82,0:POKE 83,39›32020 OPEN #5,4,0,"S:":OPEN #7,8,0,"P:"›32030 RETURN ›32031 REM ›32032 REM USE GOSUB 32040 TO LPRINT›32033 REM TEXT FROM SCREEN›32034 REM ›32040 PRINT #7;CHR$(10)›32050 FOR Y=0 TO 23›32060 FOR X=0 TO 39›32070 POSITION X,Y›32080 GET #5,G›32090 PUT #7,G›32100 NEXT X›32105 PRINT #7›32110 NEXT Y›32120 POSITION 0,0›32130 RETURN ›