10 PRINTCHR$(147):POKE53280,3:POKE53281,3:POKE214,5:PRINT
20 FORT=1TO6:READA$(T):NEXT
30 DATA167,18,32,144,5,125
40 C$="3435":D$="6363":E$="36"
50 PRINTTAB(5);
60 FORZ=1TO2:B$="512"+C$+C$+E$+C$+C$+C$+E$+C$+C$+E$+C$+C$+C$+"3"
70 GOSUB1000:PRINT:PRINTTAB(5);:NEXT:PRINTTAB(5);
80 FORZ=1TO2:B$="12"+E$+"3"+D$+D$+D$+D$+D$+D$
90 GOSUB1000:PRINT:PRINTTAB(5);:NEXT
100 POKE214,8:PRINT:PRINTTAB(34)CHR$(192)CHR$(201):PRINTTAB(35)CHR$(194)
110 PRINTTAB(6)CHR$(213);:FORT=1TO28:PRINTCHR$(192);:NEXT:PRINTCHR$(203)
120 FORZ=1TO5:PRINTTAB(6)CHR$(194):NEXT
130 PRINTTAB(6)CHR$(202)CHR$(192)CHR$(145)CHR$(145)CHR$(145)TAB(8);
140 FORZ=1TO2:B$="12"+E$+C$+C$+E$+C$+C$+C$+E$+C$+C$+"3"
150 GOSUB1000:PRINT:PRINTTAB(8);:NEXT
160 FORZ=1TO2:B$="123"+D$+D$+D$+D$+D$
170 GOSUB1000:PRINT:PRINTTAB(8);:NEXT
180 POKE214,5:PRINT:PRINTTAB(31)CHR$(18)CHR$(144)"C":PRINTCHR$(18);
190 J=10:GOSUB2000
200 DATA7,2,9,3,13,5,15,6,17,7,21,9,23,0,27,-,29,\,31,H
210 POKE214,14:PRINT:PRINTCHR$(18);
220 J=7:GOSUB2000
230 DATA12,D,14,F,18,H,20,J,22,K,26,":",28,";"
240 POKE214,8:PRINT:PRINTCHR$(18)CHR$(5);
250 J=14:GOSUB2000
260 DATA6,Q,8,W,10,E,12,R,14,T,16,Y,18,U,20,I,22,O,24,P,26,@,28,*,30,^,32,Z
270 POKE214,16:PRINT:PRINTCHR$(18);
280 J=11:GOSUB2000
290 DATA9,Z,11,X,13,C,15,V,17,B,19,N,21,M,23,",",25,.,27,/,29,=
300 PRINT:PRINT""TAB(13)"PLEASE WAIT.
400 [134]F1(62),F2(62),F3(62),F4(62)
410 K[178]256:MU[178]1.005
420 [129]J[178]1[164]41
430 [135]T,N
440 N1[178][181](N[172]MU)
450 F1(T)[178][181](N[173]K):F2(T)[178]N[171]F1(T)[172]K
460 F3(T)[178][181](N1[173]K):F4(T)[178]N1[171]F3(T)[172]K
470 [130]
480 V[178]54272:[129]J[178]V[164]V[170]23:[151]J,0:[130]
490 E[178]136:[151]V[170]5,E:[151]V[170]6,E:[151]V[170]12,E:[151]V[170]13,E
500 V1[178]V[170]1:V2[178]V
510 V3[178]V[170]8:V4[178]V[170]7
520 VN[178]33:VF[178]32
530 [151]V[170]24,15
540 KB[178]197:NK[178]64
550 [153]"ON"[163]13)"OKAY, HIT IT!
560 T=PEEK(KB):IFT=NKTHEN560
570 POKEV1,F1(T):POKEV2,F2(T)
580 POKEV3,F3(T):POKEV4,F4(T)
590 POKEV+4,VN:POKEV+11,VN
600 IFPEEK(KB)=TTHEN600
610 POKEV+4,VF:POKEV+11,VF
620 GOTO560
630 DATA62,2145,9,2408,14,2703,17,2864,22,3215,25,3608,30,4050,33,4291,38,4817
640 DATA41,5407,46,5728,49,6430,54,7217,12,8101,23,8583,20,9634,31,10814,28
650 DATA11457,39,12860,36,14435,47,16203,44,17167,55,19269,59,2273,8,2551,16
660 DATA3034,19,3406,24,3823,32,4547,35,5103,43,6069,48,6812,51,7647,18,9094,21
670 DATA10207,29,12139,34,13625,37,15294,45,18188,50,20415,53,21629
1000 FORT=1TOLEN(B$)
1010 M$=MID$(B$,T,1)
1020 U=VAL(M$)
1030 V=VAL(A$(U))
1040 PRINTCHR$(V);
1050 NEXT
1060 RETURN
2000 FORZ=1TOJ:READM,N$:PRINTTAB(M)N$;:NEXT:RETURN