1 REM *** COPY GRAPHICS TO LINE PRINTER ***
2 REM FOR A LEVEL II MODEL I/III/IV
3 REM OUTPUT ROUTINE STARTS LINE 3000
4 REM RANDOM GRAPHICS GENERATOR TO TEST STARTS LINE 10
5 REM FROM RADIO SHACK MICROCOMPUTER NEWSLETTER 197808
6 REM **********
7 REM PRINTS 128 COLUMNS
8 REM IF YOUR PRINTER HAS A SHORTER LINE LENGTH,
9 REM YOU WILL LOSE PART OF THE SCREEN.
 
10 DEFINT I,J
20 CLS
30 FOR I = 0 TO 33
40 FOR J = 0 TO 50
50 A=INT(RND(0)+.5)
60 IF A=1 THEN SET(J,I)
70 NEXT J,I
80 GOSUB 3000
90 END

3000 ' SCREEN GRAPHICS HARD COPY GENERATOR
3005 ' COPY GRAPHICS TO YOUR TRS-80 LINE PRINTER
3010 '
3020 FOR X = 15360 TO 16383 STEP 64
3030 A=1:B=2:C=1
3040 FOR K=X TO X+63
3050 IF((PEEK(K)-128) AND A)=A THEN LPRINT"#";:GOTO 3070
3060 LPRINT" ";
3070 IF PEEK(K)=32 GOTO 3090
3080 IF((PEEK(K)-128)AND B)=B THEN LPRINT"#";:GOTO 3100
3090 LPRINT" ";
3100 NEXT K
3110 LPRINT" "
3120 ON C GOTO 3130,3140,3150
3130 A=4:B=8:C=2:GOTO 3040
3140 A=16:B=32:C=3:GOTO 3040
3150 NEXT X
3160 RETURN