0 REM(null) $:IFXY$=""THENGOTO0
1 POKE53280,11:POKE53281,11:PRINT"[147]":POKE808,225
2 REM (null)
3 IFPEEK((256*2)+(15*16))=4THENOPEN4,4,4:PRINT#4,CHR$(15):CLOSE4
4 GOSUB100
5 REM(null)
6 REM (null)
9 AZ$=""
10 REM(null)
11 REM(null)
14 S8=PEEK((256*2)+(16*15))
15 REM(null)
16 REM(null)
17 S8=S8+1:ONS8GOSUB30,60,60,60,70:GOTO79
30 NEW
39 REM MX(null)
49 REM FX(null)
59 REM GE(null)
60 C1$=CHR$(75):IFC1=0THENC1$=CHR$(76)
61 Q8$=CHR$(27)+C1$:LF$=CHR$(27)+CHR$(65)+CHR$(8):RETURN
69 REM PR(null)
70 LF$=CHR$(27)+"N"+CHR$(27)+"T16"
71 IFC1=0THENLF$=CHR$(27)+"P"+CHR$(27)+"T16"
72 RETURN
79 IFL9=44THENGOTO99
80 PRINT"[147][215]HAT LINE DO YOU WANT TO PRINT ON ?"
81 IFPEEK(752)=4THENGOTO92
82 IF C1=0THENGOTO86
83 IF C1=1THENPRINT"[197]NTER  1   2   OR  3"
84 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>3)THENGOTO84
85 LL=L8-1:GOTO99
86 PRINT"[197]NTER  1   2   3   4   5  OR  6"
87 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>6)THENGOTO87
88 LL=L8-1:GOTO99
92 IF C1=0THENGOTO96
93 IF C1=1THENPRINT"[197]NTER  1  2  3 OR 4"
94 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>4)THENGOTO94
95 LL=L8-1:GOTO99
96 PRINT"[197]NTER  1  2  3  4  5  6  7 OR 8"
97 GETL8$:L8=VAL(L8$):IF(L8<1)OR(L8>8)THENGOTO97
98 LL=L8-1:GOTO99
99 PRINT"[147][215]ORKING":GOTO160
100 PRINTCHR$(14)CHR$(8)
105 IFPEEK(752)=4THENGOTO120
110 PRINT"[147][196]O YOU WANT TALL OR SHORT TYPE (T/S)"
112 GETX$:IFX$=""THENGOTO112
114 IFX$="S"THENC1=0:PRINT"[215]ORKING":RETURN
116 IFX$="T"THENC1=1:PRINT"[215]ORKING":RETURN
118 GOTO112
120 PRINT"[147][196]O YOU WANT TALL, MED OR SHORT (T/M/S)"
122 GETX$:IFX$=""THENGOTO122
124 IFX$="S"THENC1=0:PRINT"[215]ORKING":RETURN
126 IFX$="M"THENC1=1:PRINT"[215]ORKING":RETURN
128 IFX$="T"THENC1=1:GOTO130
129 GOTO120
130 OPEN4,4,5:PRINT#4,CHR$(14):CLOSE4:PRINT"[147]":L9=44
132 PRINT"[208]RINT ON UPPER OR LOWER LINE (U/L)"
133 GETL8$:IFL8$=""THENGOTO133
134 IFL8$="L"THENLL=0:RETURN
135 IFL8$="U"THENLL=1:RETURN
136 GOTO133
160 FORI=1TO8:SQ$=SQ$+CHR$(255):S$=S$+CHR$(0):NEXT
165 FORI=1TO152:LL$=LL$+CHR$(0):NEXT:I=152:GOSUB10000:LL$=SU$+LL$
166 FORI=1TO136:LN$=LN$+CHR$(255):NEXT:I=136:GOSUB10000:LN$=SU$+LN$
170 I=8:GOSUB10000:FG$=SU$
180 S$=FG$+S$:SQ$=FG$+SQ$
190 P1$=SQ$+SQ$:S1$=S$+S$:P2$=P1$+SQ$:S2$=S1$+S$:P3$=P2$+SQ$:S3$=S2$+S$
200 S5$=S3$+S$:P4$=P2$+P2$:S4$=S2$+S2$:B1$=P4$+P4$:B2$=B1$+P1$:B$=P4$+P3$+SQ$
205 IFS8=5THENGOSUB50000:GOTO250
210 FORI=1TO8:READI4:I4$=I4$+CHR$(I4):NEXT
220 FORI=1TO8:READI3:I3$=I3$+CHR$(I3):NEXT
230 FORI=1TO8:READI2:I2$=I2$+CHR$(I2):NEXT:I2$=FG$+I2$:J4$=I2$
240 FORI=1TO8:READI1:I1$=I1$+CHR$(I1):NEXT:I1$=FG$+I1$:J3$=I1$
250 I3$=FG$+I3$:I4$=FG$+I4$
260 J1$=I3$:J2$=I4$
270 DATA255,127,63,31,15,7,3,1,128,192,224,240,248,252,254,255
280 DATA1,3,7,15,31,63,127,255
290 DATA255,254,252,248,240,224,192,128
300 A$="":FORI=1TO8:A$=A$+CHR$(0):NEXT:I=8:GOSUB10000:A$=SU$+A$
310 FORI=1TO40:D$=D$+CHR$(0):NEXT:I=40:GOSUB10000:D$=SU$+D$
315 IFS8=5THENGOSUB50060:GOTO360
320 FORI=1TO16:READT4:T4$=T4$+CHR$(T4):NEXT
330 FORI=1TO16:READT3:T3$=T3$+CHR$(T3):NEXT
340 FORI=1TO16:READT2:T2$=T2$+CHR$(T2):NEXT
350 FORI=1TO16:READT1:T1$=T1$+CHR$(T1):NEXT
360 I=16:GOSUB10000:FJ$=SU$:T1$=FJ$+T1$:T2$=FJ$+T2$
370 T3$=FJ$+T3$:T4$=FJ$+T4$
380 DATA1,1,3,3,7,7,15,15,31,31,63,63,127,127,255,255
390 DATA255,255,254,254,252,252,248,248,240,240,224,224,192,192,128,128
400 DATA255,255,127,127,63,63,31,31,15,15,7,7,3,3,1,1
410 DATA128,128,192,192,224,224,240,240,248,248,252,252,254,254,255,255
420 GOTO1220
430 GOSUB20000:PRINT#4,A$S3$S$I2$P2$I4$S$SQ$I4$:GOSUB20000:PRINT#4,A$S3$I2$SQ$P3$S$P1$I4$
440 GOSUB20000:PRINT#4,A$S3$P1$I1$S$P1$S1$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S$I2$P1$
450 GOSUB20000:PRINT#4,A$S3$I3$P3$P3$I1$:GOSUB20000:PRINT#4,A$S3$I2$P3$P2$I1$:GOSUB20000:PRINT#4,A$S3$P1$:RETURN
460 GOSUB20000:PRINT#4,A$S3$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$
470 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
480 GOSUB20000:PRINT#4,A$S3$I3$P3$P3$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
490 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S$S2$I3$P1$
500 GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$P1$S3$P1$I1$
510 GOSUB20000:PRINT#4,A$S3$S$I3$SQ$S3$SQ$I1$:RETURN
520 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$
530 GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$
540 GOSUB20000:PRINT#4,A$S3$P1$:RETURN
550 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$:GOSUB20000:PRINT#4,A$S3$P1$I1$S$P1$S$I3$P1$
560 GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S$I2$P1$:GOSUB20000:PRINT#4,A$S3$I3$P1$S$P3$SQ$I1$
570 GOSUB20000:PRINT#4,A$S3$S$I3$SQ$S$I3$SQ$P1$I1$:RETURN
580 GOSUB20000:PRINT#4,A$S3$B1$I4$:GOSUB20000:PRINT#4,A$S3$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$S$I3$P1$
590 GOSUB20000:PRINT#4,A$S3$S4$S2$S2$P1$:GOSUB20000:PRINT#4,A$S3$S4$S3$S$P1$I1$
600 GOSUB20000:PRINT#4,A$S3$S4$S3$S$SQ$I1$:RETURN
610 GOSUB20000:PRINT#4,A$S$I2$SQ$:GOSUB20000:PRINT#4,A$I2$SQ$I1$
620 GOSUB20000:PRINT#4,A$P1$
630 GOSUB20000:PRINT#4,A$P1$I4$:GOSUB20000:PRINT#4,A$I3$B1$SQ$S1$P1$
640 GOSUB20000:PRINT#4,A$S$I3$P4$P3$P1$S1$P1$:RETURN
650 GOSUB20000:PRINT#4,A$S3$B1$I4$:GOSUB20000:PRINT#4,A$S3$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$S$I3$P1$
660 GOSUB20000:PRINT#4,A$S3$S3$S2$I2$P1$S1$P1$:GOSUB20000:PRINT#4,A$S3$P4$P1$SQ$I1$S$P1$I1$
670 GOSUB20000:PRINT#4,A$S3$P4$P1$I1$S1$SQ$I1$:RETURN
680 GOSUB20000:PRINT#4,A$S3$I2$P2$P4$S1$P1$:GOSUB20000:PRINT#4,A$S3$P3$P4$S1$P1$:GOSUB20000:PRINT#4,A$S3$P1$
690 GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:RETURN
700 GOSUB20000:PRINT#4,A$S$I2$SQ$S1$I2$P4$I4$:GOSUB20000:PRINT#4,A$I2$P1$S$I2$P4$P1$I4$
710 GOSUB20000:PRINT#4,A$P1$S1$P1$I1$S3$I3$P1$
720 GOSUB20000:PRINT#4,A$P1$I4$S$P1$I4$S3$I2$P1$:GOSUB20000:PRINT#4,A$I3$B1$I1$
730 GOSUB20000:PRINT#4,A$S$I3$P4$P3$I1$:RETURN
740 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$B2$:NEXT:GOSUB20000:PRINT#4,A$S3$S$I2$SQ$I1$I3$SQ$I4$
750 GOSUB20000:PRINT#4,A$S3$I2$SQ$I1$S1$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$P1$I4$S2$I3$SQ$I4$
760 GOSUB20000:PRINT#4,A$S3$I3$P1$S3$I3$SQ$I4$:RETURN
770 GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$:GOSUB20000:PRINT#4,A$S3$B2$:GOSUB20000:PRINT#4,A$S3$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$
780 RETURN
790 GOSUB20000:PRINT#4,A$S3$S4$S$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$::GOSUB20000:PRINT#4,A$S3$P4$P2$I1$
800 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S$I2$SQ$I1$:NEXT
810 GOSUB20000:PRINT#4,A$S3$P4$P2$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:RETURN
820 GOSUB20000:PRINT#4,A$S3$S4$S$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P4$P2$I1$
830 GOSUB20000:PRINT#4,A$S3$S4$I3$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$
840 GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P2$P4$I1$:RETURN
850 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$
860 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
870 GOSUB20000:PRINT#4,A$S3$I3$P4$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
880 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$
890 GOSUB20000:PRINT#4,A$B1$SQ$I1$:GOSUB20000:PRINT#4,A$B1$SQ$I4$
900 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
910 GOSUB20000:PRINT#4,A$S3$I3$P4$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P4$I1$:RETURN
920 GOSUB20000:PRINT#4,A$S3$S$I2$P4$I4$:GOSUB20000:PRINT#4,A$S3$I2$P4$P1$I4$
930 GOSUB20000:PRINT#4,A$S3$P1$I1$S3$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S3$I2$P1$
940 GOSUB20000:PRINT#4,A$B1$SQ$I1$:GOSUB20000:PRINT#4,A$B1$SQ$I4$:GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:RETURN
950 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$P3$P4$:NEXT:GOSUB20000:PRINT#4,A$S3$S4$S$I3$SQ$I4$
960 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:GOSUB20000:PRINT#4,A$S3$S4$S$P2$:GOSUB20000:PRINT#4,A$S3$S4$S$P1$I1$:RETURN
970 GOSUB20000:PRINT#4,A$S3$S$I2$SQ$S$I2$P2$I4$:GOSUB20000:PRINT#4,A$S3$I2$P1$S$P3$SQ$I4$
980 GOSUB20000:PRINT#4,A$S3$P1$S1$P1$S$I3$P1$:GOSUB20000:PRINT#4,A$S3$P1$I4$S$P1$S1$P1$
990 GOSUB20000:PRINT#4,A$S3$I3$P3$SQ$S$P1$I1$:GOSUB20000:PRINT#4,A$S3$S$I3$P2$I1$S$SQ$I1$:RETURN
1000 GOSUB20000:PRINT#4,A$S3$S4$S1$P1$:GOSUB20000:PRINT#4,A$S3$I2$SQ$B1$:GOSUB20000:PRINT#4,A$S3$B2$
1010 GOSUB20000:PRINT#4,A$S3$P1$S4$P1$:GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:RETURN
1020 GOSUB20000:PRINT#4,A$S3$S$I2$P4$P1$:GOSUB20000:PRINT#4,A$S3$I2$P4$P2$:GOSUB20000:PRINT#4,A$S3$P1$I1$
1030 GOSUB20000:PRINT#4,A$S3$P1$I4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:GOSUB20000:PRINT#4,A$S3$I2$P2$P4$:GOSUB20000:PRINT#4,A$S3$P1$
1040 RETURN
1050 GOSUB20000:PRINT#4,A$S3$S$I2$P4$P1$:GOSUB20000:PRINT#4,A$S3$I2$P4$P2$:GOSUB20000:PRINT#4,A$S3$P1$I1$
1060 GOSUB20000:PRINT#4,A$S3$P1$I4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:GOSUB20000:PRINT#4,A$S3$S$I3$P1$P4$:RETURN
1070 GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$I3$P2$P4$:FORI=1TO2:GOSUB20000:PRINT#4,A$S3$I2$SQ$I1$
1080 GOSUB20000:PRINT#4,A$S3$I3$SQ$I4$:NEXT:GOSUB20000:PRINT#4,A$S3$I2$P2$P4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:RETURN
1090 GOSUB20000:PRINT#4,A$S3$P3$I4$I2$P3$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$S2$I3$P1$I1$
1100 GOSUB20000:PRINT#4,A$S3$S2$I2$P1$I4$:GOSUB20000:PRINT#4,A$S3$P3$P4$:GOSUB20000:PRINT#4,A$S3$P3$I1$I3$P3$:RETURN
1110 GOSUB20000:PRINT#4,A$S$I2$SQ$S1$I2$P4$P1$:GOSUB20000:PRINT#4,A$I2$P1$S$I2$P4$P1$SQ$
1120 GOSUB20000:PRINT#4,A$P1$S1$P1$I1$:GOSUB20000:PRINT#4,A$P1$I4$S$P1$
1130 GOSUB20000:PRINT#4,A$I3$SQ$B1$:GOSUB20000:PRINT#4,A$S$I3$B1$:RETURN
1140 GOSUB20000:PRINT#4,A$S$I2$SQ$S4$S2$P1$:GOSUB20000:PRINT#4,A$I2$P1$S4$I2$I4$S$P1$
1150 GOSUB20000:PRINT#4,A$P1$S4$I2$P1$I4$P1$:GOSUB20000:PRINT#4,A$P1$I4$S3$I2$P4$
1160 GOSUB20000:PRINT#4,A$I3$P4$P1$I1$I3$P2$:GOSUB20000:PRINT#4,A$S$I3$P4$I1$S1$I3$P1$:RETURN
1170 FORI=1TO3:PRINT#4,CHR$(10):NEXT:M=M+1:RETURN
1180 GOSUB20000:PRINT#4,A$S3$S4$S2$S2$P1$:GOSUB20000:PRINT#4,A$S3$S4$S2$I3$P3$
1190 GOSUB20000:PRINT#4,A$S3$S4$S3$I3$P1$I1$:RETURN
1200 FORI=1TO4:GOSUB20000:PRINT#4,A$S3$S3$P1$:NEXT:RETURN
1210 FORI=1TO2:GOSUB20000:PRINT#4,A$S3$P1$:NEXT:RETURN
1220 M0=1:OPEN4,4,4:IFPEEK(752)=3THENCLOSE4:OPEN4,4,5
1221 PRINT"[147]":GOSUB2550
1230 ST$=Y$:LN=LEN(ST$):IFM0>LNTHEN1420
1240 L=ASC(MID$(ST$,M0,1)):IF(L>47)AND(L<58)THEN2110
1260 IFL=33THENPRINT#4,LF$:GOSUB2390:GOTO1410
1270 IFL=39THENGOSUB2500:GOTO1410
1280 IFL=34THENGOSUB2450:GOTO1410
1290 IFL=44THENGOSUB2410:GOTO1410
1300 IFL=32THENGOSUB1170:GOTO1410
1305 IFL=36THENGOSUB30000:GOTO1410
1310 IFL=39THENGOSUB1180:GOTO1410
1320 IFL=45THENGOSUB1200:GOTO1410
1330 IFL=46THENGOSUB1210:GOTO1410
1340 IFL<65ORL>90THEN1390
1350 IFL>81THEN1380
1360 ON(L-64)GOSUB430,460,490,520,550,580,700,650,680,610,740,770,790,820,850,880,920
1370 GOTO1410
1380 ON(L-64-17)GOSUB950,970,1000,1020,1050,1070,1090,1110,1140
1390 IFL<193ORL>218THEN1410
1400 GOTO2060
1410 M0=M0+1:PRINT#4,LF$:GOTO1230
1420 RUN
1430 GOSUB20000:PRINT#4,D$B$P1$J2$:GOSUB20000:PRINT#4,D$B$P1$SQ$J2$:GOSUB20000:PRINT#4,D$S5$S$P1$S3$J1$P1$
1440 GOSUB20000:PRINT#4,D$S5$S$P1$S3$J4$P1$:GOSUB20000:PRINT#4,D$B$P1$SQ$J3$:GOSUB20000:PRINT#4,D$B$P1$J3$:RETURN
1450 FORI=1TO2:GOSUB20000:PRINT#4,D$B$P1$P1$:NEXT:GOSUB20000:PRINT#4,D$P1$S5$P1$S3$P1$
1460 GOSUB20000:PRINT#4,D$P1$J2$S2$J4$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$P1$P1$J3$J1$P1$P1$SQ$J3$
1470 GOSUB20000:PRINT#4,D$S$J1$P1$P1$J3$S$S$J1$SQ$P1$J3$:RETURN
1480 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
1490 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$SQ$S5$S$S$P1$SQ$J3$
1500 GOSUB20000:PRINT#4,D$S$J1$P1$S$S$S5$P1$J3$:RETURN
1510 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$P1$S$S$S3$S5$P1$
1520 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$
1530 GOSUB20000:PRINT#4,D$S$J1$B$J3$:RETURN
1540 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$S5$P1$S3$P1$:NEXT
1550 GOSUB20000:PRINT#4,D$P1$S$S$S3$S5$P1$:RETURN
1560 GOSUB20000:PRINT#4,D$S5$S5$J4$SQ$J3$:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
1570 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$:NEXT
1580 GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:RETURN
1590 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
1600 GOSUB20000:PRINT#4,D$P1$J2$S$S$J4$S5$S$J4$P1$:GOSUB20000:PRINT#4,D$J1$P1$P1$SQ$S5$P1$SQ$J3$
1610 GOSUB20000:PRINT#4,D$S$J1$P1$P1$S5$P1$J3$:RETURN
1620 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$:NEXT
1630 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
1640 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
1650 GOSUB20000:PRINT#4,D$S$J4$P1$:GOSUB20000:PRINT#4,D$J4$SQ$P1$:GOSUB20000:PRINT#4,D$P1$J3$:GOSUB20000:PRINT#4,D$P1$J2$
1660 GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:GOSUB20000:PRINT#4,D$S$J1$P1$B$:RETURN
1670 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$T4$P1$T3$S$T1$P1$T2$
1680 GOSUB20000:PRINT#4,D$T4$P1$T3$S3$S$T1$P1$:GOSUB20000:PRINT#4,D$P1$T3$S3$S3$S$T1$:GOSUB20000:PRINT#4,D$T3$:RETURN
1690 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:FORI=1TO4:GOSUB20000:PRINT#4,D$P1$:NEXT:RETURN
1700 GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$S5$S5$J4$SQ$J3$
1710 GOSUB20000:PRINT#4,D$S$S5$S5$J1$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:RETURN
1720 GOSUB20000:PRINT#4,D$P1$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$S5$S5$J4$SQ$J3$
1730 GOSUB20000:PRINT#4,D$S5$S5$J4$SQ$J3$:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:RETURN
1740 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
1750 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$:GOSUB20000:PRINT#4,D$S$J1$B$J3$::RETURN
1760 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$
1770 GOSUB20000:PRINT#4,D$S$S$S5$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$S$S$S5$J1$P1$P1$P1$J3$
1780 GOSUB20000:PRINT#4,D$S$S$S$S5$J1$P1$P1$J3$:RETURN
1790 GOSUB20000:PRINT#4,D$S$J4$B$J2$:GOSUB20000:PRINT#4,D$J4$SQ$B$SQ$J2$:GOSUB20000:PRINT#4,D$P1$J3$S3$S5$J1$P1$
1800 GOSUB20000:PRINT#4,D$P1$J2$S3$S5$J4$P1$:GOSUB20000:PRINT#4,D$J1$SQ$B$SQ$J3$:GOSUB20000:PRINT#4,D$J4$SQ$B$J3$
1810 GOSUB20000:PRINT#4,D$P1$J3$:RETURN
1820 FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT:GOSUB20000:PRINT#4,D$S$S$S5$P1$S3$P1$
1830 GOSUB20000:PRINT#4,D$S$S5$J4$P1$J2$S$S$J4$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J3$J1$P1$P1$SQ$J3$
1840 GOSUB20000:PRINT#4,D$P1$P1$P1$J3$S$S$J1$P1$SQ$J3$:RETURN
1850 GOSUB20000:PRINT#4,D$S$J4$P1$S3$J4$P1$P1$J2$:GOSUB20000:PRINT#4,D$J4$SQ$P1$S$S$S$J4$P1$P1$P1$J2$
1855 IFRR=5THENRETURN
1860 GOSUB20000:PRINT#4,D$P1$J3$S$S$S$J4$P1$J3$S$S$J1$P1$:GOSUB20000:PRINT#4,D$P1$J2$S$S$J4$P1$J3$S$S$S$J4$P1$
1870 GOSUB20000:PRINT#4,D$J1$P1$P1$P1$J3$S$S$S$SQ$P1$J3$:GOSUB20000:PRINT#4,D$S$J1$P1$P1$J3$S3$P1$J3$:RETURN
1880 FORI=1TO2:GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:NEXT:FORI=1TO2:GOSUB20000:PRINT#4,D$P1$B$P1$:NEXT
1890 FORI=1TO2:GOSUB20000:PRINT#4,D$S3$S3$S5$P1$:NEXT:RETURN
1900 GOSUB20000:PRINT#4,D$S$J4$B$P1$:GOSUB20000:PRINT#4,D$J4$SQ$B$P1$:GOSUB20000:PRINT#4,D$P1$J3$:GOSUB20000:PRINT#4,D$P1$J2$
1910 GOSUB20000:PRINT#4,D$J1$SQ$B$P1$:GOSUB20000:PRINT#4,D$S$J1$B$P1$:RETURN
1915 GOSUB20000:PRINT#4,D$S3$T4$P1$P1$P1$P1$SQ$:GOSUB20000
1920 PRINT#4,D$S$S$T4$P1$P1$P1$P1$P1$SQ$
1930 GOSUB20000:PRINT#4,D$T4$P1$T3$:GOSUB20000:PRINT#4,D$T1$P1$T2$:GOSUB20000:PRINT#4,D$S$S$T1$P1$P1$P1$P1$P1$SQ$
1940 GOSUB20000:PRINT#4,D$S3$T1$P1$P1$P1$P1$SQ$:RETURN
1950 GOSUB20000:PRINT#4,D$J4$SQ$P1$B$:GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:GOSUB20000:PRINT#4,D$S$J1$SQ$J2$
1960 GOSUB20000:PRINT#4,D$S$J4$SQ$J3$:GOSUB20000:PRINT#4,D$J4$SQ$P1$B$:GOSUB20000:PRINT#4,D$J1$SQ$P1$B$:RETURN
1970 GOSUB20000:PRINT#4,D$P1$P1$P1$J2$S$S$J4$P1$P1$SQ$:GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J2$J4$P1$P1$P1$
1980 GOSUB20000:PRINT#4,D$S5$S$J1$P1$J3$:GOSUB20000:PRINT#4,D$S5$S$J4$P1$J2$
1990 GOSUB20000:PRINT#4,D$P1$P1$P1$SQ$J3$J1$P1$P1$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$J3$S$S$J1$P1$P1$SQ$:RETURN
2000 GOSUB20000:PRINT#4,D$S3$S3$J4$P1$P1$P1$:GOSUB20000:PRINT#4,D$S3$S$S$S$J4$SQ$P1$P1$P1$
2010 GOSUB20000:PRINT#4,D$P1$P1$P1$P1$SQ$J3$:GOSUB20000:PRINT#4,D$P1$P1$P1$P1$SQ$J2$
2020 GOSUB20000:PRINT#4,D$S3$S$S$S$J1$SQ$P1$P1$P1$:GOSUB20000:PRINT#4,D$S3$S3$J1$P1$P1$P1$:RETURN
2030 GOSUB20000:PRINT#4,D$P1$P1$T2$S$S$S5$P1$:GOSUB20000:PRINT#4,D$P1$P1$P1$T2$S5$P1$
2040 GOSUB20000:PRINT#4,D$P1$S$S$T1$P1$T2$S$S$S$P1$:GOSUB20000:PRINT#4,D$P1$S3$T1$P1$T2$S$P1$
2050 GOSUB20000:PRINT#4,D$P1$S3$S$S$T1$P1$SQ$P1$:GOSUB20000:PRINT#4,D$P1$S3$S3$T1$P1$SQ$:RETURN
2060 IFL>205THEN2090
2070 ON(L-192)GOSUB1430,1450,1480,1510,1540,1570,1590,1620,1640,1650,1670,1690,1700
2080 GOTO1410
2090 ON(L-192-13)GOSUB1720,1740,1760,1790,1820,1850,1880,1900,1915,1950,1970,2000,2030
2100 GOTO1410
2110 PRINT#4,CHR$(10)
2120 ON(L-47)GOSUB1740,2130,2150,2180,2210,2240,2270,2300,2330,2360:GOTO1410
2130 GOSUB20000:PRINT#4,D$S5$S3$T2$:GOSUB20000:PRINT#4,D$S5$S3$P1$T2$:GOSUB20000:PRINT#4,D$S5$S3$T1$P1$T2$
2140 GOSUB20000:PRINT#4,D$S5$S4$T1$P1$:FORI=1TO2:GOSUB20000:PRINT#4,D$B2$SQ$:NEXT:RETURN
2150 GOSUB20000:PRINT#4,D$P2$P2$I4$S2$P2$I4$:GOSUB20000:PRINT#4,D$P4$SQ$I4$S1$P3$I4$
2160 GOSUB20000:PRINT#4,D$P1$S2$I3$P1$I4$S2$I3$P1$:GOSUB20000:PRINT#4,D$P1$S3$I3$P1$I4$S1$I2$P1$
2170 GOSUB20000:PRINT#4,D$P1$S5$I3$P4$I1$:GOSUB20000:PRINT#4,D$P1$S4$I3$P3$I1$:RETURN
2180 GOSUB20000:PRINT#4,D$S$I2$P2$S2$SQ$I4$S2$P1$:GOSUB20000:PRINT#4,D$I2$P3$S2$P1$I4$S1$P1$
2190 GOSUB20000:PRINT#4,D$P1$I1$S5$P2$I4$S$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$I2$P3$I4$P1$
2200 GOSUB20000:PRINT#4,D$I3$P4$P1$I1$I3$P3$:GOSUB20000:PRINT#4,D$S$I3$P3$P1$I1$S1$I3$P2$:RETURN
2210 GOSUB20000:PRINT#4,D$S5$P1$T2$:GOSUB20000:PRINT#4,D$S5$P3$T2$:GOSUB20000:PRINT#4,D$S5$P1$T1$P1$T2$
2220 GOSUB20000:PRINT#4,D$S5$P1$S1$T1$P1$T2$:GOSUB20000:PRINT#4,D$P4$P1$S2$T1$P1$:GOSUB20000:PRINT#4,D$P4$P1$S5$T1$
2230 RETURN
2240 GOSUB20000:PRINT#4,D$S$I2$P2$S2$P4$SQ$:GOSUB20000:PRINT#4,D$I2$P3$S2$P4$SQ$
2250 GOSUB20000:PRINT#4,D$P1$I1$S5$P1$S2$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$I2$P1$S2$P1$
2260 GOSUB20000:PRINT#4,D$I3$P4$P1$I1$S2$P1$:GOSUB20000:PRINT#4,D$S$I3$P3$P1$I1$S3$P1$:RETURN
2270 GOSUB20000:PRINT#4,D$S$I2$B$I4$:GOSUB20000:PRINT#4,D$I2$B$P1$I4$:GOSUB20000:PRINT#4,D$P1$I1$S2$I3$P1$S2$I3$P1$
2280 GOSUB20000:PRINT#4,D$P1$I4$S2$I2$P1$S2$I2$P1$:GOSUB20000:PRINT#4,D$I3$P4$SQ$I1$S1$P2$I1$
2290 GOSUB20000:PRINT#4,D$S$I3$P3$SQ$I1$S2$P1$I1$:RETURN
2300 GOSUB20000:PRINT#4,D$P1$T2$S4$S2$P1$:GOSUB20000:PRINT#4,D$P3$T2$S4$S$P1$
2310 GOSUB20000:PRINT#4,D$S1$T1$P1$T2$S5$P1$:GOSUB20000:PRINT#4,D$S3$T1$P1$T2$S2$P1$
2320 GOSUB20000:PRINT#4,D$S5$S$T1$P3$P2$:GOSUB20000:PRINT#4,D$S4$S1$T1$P2$P1$:RETURN
2330 GOSUB20000:PRINT#4,D$S$I2$P3$SQ$I4$I2$P3$I4$:GOSUB20000:PRINT#4,D$I2$B1$SQ$I4$
2340 GOSUB20000:PRINT#4,D$P1$I1$S2$I3$P1$I1$S1$I3$P1$:GOSUB20000:PRINT#4,D$P1$I4$S2$I2$P1$I4$S1$I2$P1$
2350 GOSUB20000:PRINT#4,D$I3$B1$SQ$I1$:GOSUB20000:PRINT#4,D$S$I3$P3$SQ$I1$I3$P3$I1$:RETURN
2360 GOSUB20000:PRINT#4,D$S$I2$P1$S3$I2$P3$I4$:GOSUB20000:PRINT#4,D$I2$P2$S2$I2$P4$I4$
2370 GOSUB20000:PRINT#4,D$P1$I1$S3$P1$I1$S1$I3$P1$:GOSUB20000:PRINT#4,D$P1$I4$S3$P1$I4$S1$I2$P1$
2380 GOSUB20000:PRINT#4,D$I3$B1$SQ$I1$:GOSUB20000:PRINT#4,D$S$I3$B$I1$:RETURN
2390 GOSUB20000:PRINT#4,D$P1$S$I2$P4$P3$SQ$:GOSUB20000:PRINT#4,D$P1$S$I3$P4$P3$SQ$:RETURN
2400 GOTO1220
2410 Z=0
2420 PRINT#4,CHR$(10)
2430 GOSUB20000:PRINT#4,A$S3$SQ$SQ$
2440 GOSUB20000:PRINT#4,AZ$S3$I3$SQ$SQ$:RETURN
2450 Z=0
2460 PRINT#4,CHR$(0):FORI=1TO2
2470 PRINT#4,CHR$(0)
2480 GOSUB20000:PRINT#4,A$A$S3$S3$S4$S2$SQ$SQ$
2490 GOSUB20000:PRINT#4,AZ$A$S3$S3$S4$S2$I3$SQ$SQ$:NEXT:RETURN
2500 Z=0
2510 PRINT#4,CHR$(0);
2520 PRINT#4,CHR$(0)
2530 GOSUB20000:PRINT#4,A$A$S3$S3$S4$S2$SQ$SQ$
2540 GOSUB20000:PRINT#4,AZ$A$S3$S3$S4$S2$I3$SQ$SQ$:RETURN
2550 Y=0:Y$="":PRINT"[147][197]NTER YOUR MESSAGE HERE...."
2560 PRINT"[217]OU WILL BE LIMITED TO 254 CHARACTERS"
2570 PRINT"[217]OU MAY USE ALL THE UPPER AND LOWER"
2580 PRINT"CASE LETTERS, THE NUMBERS 0 THRU 9"
2590 PRINT"AND THE FOLLOWING: (SPACE),(!),("CHR$(34)"),"
2600 PRINT"('),(,),(.),($) AND (-)
2610 [153]"(null)(null)VAL(null)(null) * TO VAL(null)RIGHT$(null) FROM THIS PROGRAM"
2620 [153]""
2630 L[178]254:[141]2770
2640 [153]"LOAD":[153]"LOAD"Y$:[153]"RIGHT$'M PRINTING IT AS FAST AS RIGHT$ CAN":[142]
2650 [153]" WAITCMD";:[129]QW[178]0[164]25:[161]X$:[139]X$[178]""[167][130]:[137]2652
2651 [137]2658
2652 [153]" CMD";:[129]QW[178]0[164]25:[161]X$:[139]X$[178]""[167][130]:[137]2650
2658 [139](X$[178]"")[176](X$[178]":")[176](X$[178]";")[176](X$[178]"#")[176](X$[178]"%")[167]2650
2659 [139](X$[178]"@")[176](X$[178]"=")[176](X$[178]"?")[176](X$[178]"/")[176](X$[178]"<")[176](X$[178]">")[167]2650
2660 [139]X$[178]"*"[167] [138]
2670 [139](X$[178]"&")[176](X$[178]"(")[176](X$[178]")")[176](X$[178]"*")[176](X$[178]"+")[167]2650
2680 X[178][198](X$):[142]
2690 [141]2650:[139](X[178]13)[176](X[178]20)[167][142]
2700 [139](X[179]32)[176](X[177]90[170]128)[167]2690
2710 [139](X[179](65[170]128))[175](X[177]90)[167]2690
2720 [142]
2730 [139](X[177]57)[175](X[179]65)[167]2740
2740 [141]2650:[139](X[178]13)[176](X[178]20)[167][142]
2750 [139](X[179]32)[176](X[177]57)[167]2740
2760 [142]
2770 [141]2690:[139]X[178]13[167][142]
2780 [139]Y[178]0[175]X[178]20[167][137]2770
2790 [139]X[178]20[167]Y$[178][200](Y$,[195](Y$)[171]1):Y[178]Y[171]1:[153]X$;:[137]2770
2800 [139]Y[178]L[167]X$[178]"":[137]2770
2810 Y[178]Y[170]1:Y$[178]Y$[170]X$:[153]X$;:[139]X$[178][199](34)[167][151]212,0
2815 [137]2770
10000 [145]S8[141]10010,10040,10040,10040,10050:[142]
10010 [143][204]
10019 [143]MX[204]
10029 [143]FX[204]
10039 [143]GE[204]
10040 SU$[178]Q8$[170][199](I)[170][199](0):[142]
10049 [143]PR[204]
10050 SV$[178][201]([196](I),[195]([196](I))[171]1)
10060 [139][195](SV$)[179][177]4[167]SV$[178]"0"[170]SV$:[137]10060
10070 SU$[178][199](27)[170]"S"[170]SV$:[142]
20000 [139]LL[178]0[167][142]
20010 [129]KK[178]1[164]LL:[152]4,LL$;:[130]:[142]
30000 RR[178]5:[141]1850:RR[178]0
30010 [141]20000:[152]4,D$P1$J3$S$S$S$J4$P1$J3$S$S$J1$P1$:[141]20000
30015 [152]4,S$S$S$S$LN$:[141]20000:[152]4,D$P1$J2$S$S$J4$P1$J3$S$S$S$J4$P1$
30020 [141]1870:[142]
50000 [129]I[178]1[164]8:[135]I4:I1$[178]I1$[170][199](I4):[130]
50010 [129]I[178]1[164]8:[135]I3:I2$[178]I2$[170][199](I3):[130]
50020 [129]I[178]1[164]8:[135]I2:I3$[178]I3$[170][199](I2):[130]:I2$[178]FG$[170]I2$:J4$[178]I2$
50030 [129]I[178]1[164]8:[135]I1:I4$[178]I4$[170][199](I1):[130]:I1$[178]FG$[170]I1$:J3$[178]I1$
50040 [142]
50060 [129]I[178]1[164]16:[135]T4:T1$[178]T1$[170][199](T4):[130]
50070 [129]I[178]1[164]16:[135]T3:T2$[178]T2$[170][199](T3):[130]
50080 [129]I[178]1[164]16:[135]T2:T3$[178]T3$[170][199](T2):[130]
50090 [129]I[178]1[164]16:[135]T1:T4$[178]T4$[170][199](T1):[130]
50100 [142]