10 KEY OFF:CLS
20 SCREEN 0
30 WIDTH 40
40 PRINT"???????????????????????????????????????"
50 PRINT"??????????????????????????????????????"
60 PRINT"??                                   ??"
70 PRINT"??            4024-A.BAS             ??"
80 PRINT"??          BANNER PRINTER           ??"
90 PRINT"??                                   ??"
100 PRINT"??                                   ??"
110 PRINT"?? BROUGHT TO YOU BY THE MEMBERS OF  ??"
120 PRINT"??      ????? ????? ????? ?????      ??"
130 PRINT"??        ?   ?   ? ?     ?   ?      ??"
140 PRINT"??        ?   ????? ?     ?   ?      ??"
150 PRINT"??        ?   ?     ?     ?   ?      ??"
160 PRINT"??      ????? ?     ????? ?????      ??"
170 PRINT"??                                   ??"
180 PRINT"??      International PC Owners      ??"
190 PRINT"??                                   ??"
200 PRINT"??P.O. Box 10426, Pittsburgh PA 15234??"
210 PRINT"??                                   ??"
220 PRINT"??????????????????????????????????????"
230 PRINT"???????????????????????????????????????"
240 PRINT
250 PRINT "       PRESS ANY KEY TO CONTINUE
260 A$=INKEY$: IF A$="" THEN 260
270 WIDTH 80
280 CLS
1000 CLEAR 300
1010 REM PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPE
1020 REM *************************10/24/75*****************************
1030 DIM M(60,6),P(15)
1040 PRINT "SIZE  (1-7)";
1050 INPUT Z
1060 PRINT "WHAT'S YOUR MESSAGE";
1070 INPUT B$
1080 PRINT 
1090 PRINT "METHOD (1 OR 2)";
1100 INPUT A
1110 IF A<>2 THEN 1140
1120 PRINT " INPUT 2 OF YOUR CHARACTERS";
1130 INPUT C$
1140 LPRINT:A$="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789<>=#+-*/\()[].,;:!"
1150 A$=A$+"?&$%":REM "&" GIVES QUOTE
1160 FOR N=1 TO 60: FOR N1=1 TO 6:READ M(N,N1):NEXT N1,N
1170 FOR I=1 TO 9
1180 LET T(I)=2^(I)-1
1190 NEXT I
1200 FOR I=1 TO LEN(B$)
1210 FOR J=1 TO 60
1220 IF MID$(A$,J,1)<>MID$(B$,I,1) THEN 1250
1230 F=J
1240 GOTO 1260
1250 NEXT J
1260 FOR K=1 TO 6
1270 LET X=M(F,K)
1280 IF X=0 THEN 1550
1290 FOR Q=1 TO 9
1300 IF T(Q)