10 GOSUB 2000 20 DEFINT Z 30 DIM S(7),J(9),F(9) 40 LET X=5 50 LET Y=8 60 INPUT "STATEMENT TO PRINT"A$ 70 LET M$="ALL" 80 PRINT 90 INPUT "SETUP THE PRINTER AND HIT ENTER TO BEGIN PRINTING"O$ 100 LET A=ASC(MID$(A$,1,1)) 110 FOR T=1 TO LEN(A$) STEP 1 120 LET P$=MID$(A$,T,1) 130 POUT 140 REM **** FIND THE CURRENT CHARACTER BEING PRINTED **** 150 FOR O=1 TO 50 STEP 1 160 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7) 170 IF P$=" " THEN EXIT 500 180 IF P$=S$ THEN EXIT 200 190 NEXT O 200 RESTORE 210 LET X$=M$ 220 IF M$="ALL" THEN LET X$=S$ 230 REM **** BUILD ONE OF SEVEN CHARACTER LINES **** 240 FOR U=1 TO 7 STEP 1 250 FOR K=8 TO -1 STEP -1 260 LET B=2^K 270 IF B