10 L=1:FORI=10000TO1000STEP-1000:HS(L)=I:N$(L)="MAGIC DISK":L=L+1:NEXT
99 POKE53282,10:POKE53283,15:POKE53265,65:PRINT"[147]"
100 PRINTTAB(38)"TM";
101 PRINT"[150]!#$[146] *[146] !#$[146] *#+[146] *[146]  *[146] *[212]*[146] *#+[146]  !#$[146] *[146] *[146] *[212]*[146]"
102 PRINT"%&'[146] %[146] %&'[146] %)[146]  %[146]  %[146] %[215]%[146] %)[146]   %[213]'[146] %[146] %[146] %[215]%[146]"
103 PRINT"([146]   ([146] ([146]   (),[146] (,[146] ([146] ([218]([146] (),[146]  ([216][217][146] ()([146] ([218]([146]"
104 PRINTTAB(7)"[158]DESIGNED AND PROGRAMMED BY
105 [153][163]13)"OPENJOERG SIESLACK
106 PRINTTAB(9)"@ 1989 BY [156]M[158]A[156]G[158]I[156]C [158]D[156]I[158]S[156]K [158]6[156]4
107 [153][163]9)"PRINT#ATNPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKPEEKLENWAIT"
108 [153][163]9)"CHR$WAIT F1 OPENSTART THE GAME   PRINT#CHR$WAIT
109 PRINTTAB(9)"[199][146]                     [199][146]
110 [153][163]9)"CHR$WAIT F3 OPENSEE HALL OF FAME PRINT#CHR$WAIT
111 PRINTTAB(9)"[196][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][194][198][146]":POKE53265,155
120 J=PEEK(203)
121 IFJ=4THEN400
122 IFJ=5THEN9002
123 GOTO120
400 V=53248:POKEV+39,13:POKEV+40,1:POKEV+41,13:POKEV+43,15:POKEV+44,13
401 POKEV+45,10:L=0:POKE56325,40:SYS6*4096:POKE53282,8:POKE53283,5:POKEV+46,0
402 POKEV+27,128:S=0
501 L=L+1
502 IFL=1THEN999
503 IFL=2THEN1999
504 IFL=3THEN2999
505 IFL=4THEN3999
506 IFL=5THEN4999
507 IFL=6THEN5999
508 IFL=7THENL=1:GOTO502
999 GOSUB15200
1000 PRINT"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
1001 PRINT"\ABC\IBC\\\\ABC\\\[146][191][188][172]\\WW\\\\\\\\\\WW\\\";
1002 PRINT"\DEF\GEF\KTVDEF\\\[146][177][187][165]\\YZKLPTLMOPTUYZ\KN";
1003 PRINT"[155]\\H\\\894\\\\H\67\[146][180][162][181]\\^_\6774\\5\\^_\\4";
1004 PRINT"\\89\\\\\\\\\89\\\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
1005 GOSUB15100
1007 GOSUB15000
1008 PRINT"[155][197][199][197][199][199][197][199][197][199][197][199][197][196][156][208][155][205][197][199][199][197][199][200][156][208][155][207][197][199][197][199][197][199][197][199][156][208][155][205][197][199][197][199][199][198][197]";
1009 GOSUB15000
1010 PRINT"[155][197][199][199][202][203][199][197][199][197][202][203][205][197][199][199][197][199][200][156][208][155][207][197][199][197][199][197][199][193][195][194][197][199][156][208][155][205][197][199][197][199][199][198][197]";
1011 PRINT"[156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][155][200][156][208][155][205][156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
1012 PRINT"[155][195][194][202][196][202][197][202][203][156][208][155][193][195][202][197][198][195][200][196][197][156][208][155][197][195][194][202][197][202][197][194][202][193][156][208][155][193][195][194][202][197][202][197][202][199][202]";
1013 GOSUB15000
1014 PRINT"[155][196][195][194][200][197][199][199][199][156][208][155][196][193][205][197][199][199][197][199][200][156][208][155][207][197][199][197][199][197][199][197][193][195][200][156][208][155][193][197][199][199][198][197][197][199][195]";
1015 PRINT"[156][208][208][208][208][208][208][208][208][208][155][193][156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
1016 PRINT"[155][196][195][194][200][197][199][199][199][156][208][155][196][193][193][196][199][195][200][198][199][156][208][155][201][202][203][202][203][193][197][199][197][199][197][199][197][193][195][200][156][208][155][199][197][199][199]";
1017 PRINT"[156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][155][194][156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
1018 PRINT"[155][196][195][194][200][197][199][199][199][197][196][193][193][196][199][195][156][208][155][198][199][203][201][202][203][202][203][193][197][199][197][199][197][199][197][193][195][200][156][208][155][199][197][199][199]";
1019 PRINT"[156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
1020 PRINT"[155][196][195][197][202][203][193][194][195][201][202][203][202][203][196][193][193][196][199][195][200][198][199][203][201][202][203][194][203][193][197][199][197][199][199][197][193][197][199][199]";:POKE860,36:POKE861,1
1021 M=PEEK(852):POKE50151,66:POKE56295,15
1022 GOSUB1300
1023 SYS8*4096:SYS24597:K=PEEK(2022):POKE2023,K
1024 S=PEEK(852):IFS=0THEN1200
1030 POKE53269,0:FORI=11TO17:POKE211,10:POKE214,I:SYS58640
1032 PRINTTAB(10)"                 ";:NEXT
1033 T=PEEK(2023):A=11:B=14:GOSUB1100:PRINT"[158]T[159]I[158]M[159]E [158]B[159]O[158]N[159]U[158]S "T"";
1034 A=11:B=16:GOSUB1100:PRINT"[158]S[159]C[158]O[159]R[158]E"
1050 SI=54272:POKESI+24,15:POKESI+5,12:POKESI+6,0:POKESI+4,0:POKESI+11,0
1051 POKESI+18,0:POKESI+4,21:FORA=1TO10
1052 FORI=20TO30STEP2.5:POKESI+1,I:POKESI+15,I/5:POKE211,11:POKE214,12:SYS58640
1053 POKE646,I-4:PRINT"LEVEL COMPLETED":NEXT:NEXT:POKESI+5,15:POKESI+4,0
1054 A=11:B=12:GOSUB1100:PRINT"LEVEL COMPLETED":POKESI+4,21:D=0
1055 FORI=10TO110STEP1:POKESI+15,70:POKESI+1,I:POKESI+15,90:NEXT:POKESI+5,8
1056 T=PEEK(2023):T=T-1:IFT=-1THEN1071
1058 D=D+1:IFD<7THEN1060
1059 D=0:GOTO1063
1060 POKE2023,T:A=21:B=14:GOSUB1100:PRINT""T"";:PRINT"[157]  ";
1062 POKESI+4,0:POKESI+4,21:POKESI+15,30:POKESI+1,20:GOTO1056
1063 S=PEEK(850):G=PEEK(851):G=G*256
1064 POKESI+1,99:S=S+G:S=S*25:A=17:B=16:GOSUB1100:PRINT""S"";:N=PEEK(850):N=N+2
1065 POKESI+4,0:POKESI+4,21:POKESI+15,30:POKESI+1,20
1066 IFN<256THEN1068
1067 POKE850,0:N=PEEK(851):N=N+1:POKE851,N
1068 POKE850,N
1069 GOTO1056
1070 END
1071 FORI=11TO17:POKE211,10:POKE214,I:SYS58640
1072 PRINTTAB(10)"                 ";:NEXT
1073 SI=54272:POKESI+24,15:POKESI+5,11:POKESI+4,0:POKESI+4,21:B=11:A=14:P=2
1074 POKESI+15,40:FORM=1TO14:B=11
1075 FORI=14TO46STEP8:P=P+1:POKESI+1,I:POKE646,P
1076 B=B+1:GOSUB1100:PRINT"GET READY":NEXT:NEXT
1090 GOTO501
1100 POKE211,A:POKE214,B:SYS58640:RETURN
1101 POKE211,C:POKE214,B:SYS58640:RETURN
1200 SI=54272:POKESI+24,15:POKESI+6,240:POKESI+5,0:POKESI+4,0:POKESI+4,21
1201 A=-1:B=2:C=36:D=80:POKESI+11,0:POKESI+18,0
1202 A=A+1:GOSUB1100:PRINT"GAME";:PRINT"[157][157][157][157][157] ";
1203 C=C-1:GOSUB1101:PRINT"OVER";:PRINT" ";
1204 H=INT(RND(1)*60)+40:POKESI+1,H:POKESI+15,D/2:FORI=1TOD:NEXT:D=D-1
1205 IFA=15THEN1210
1206 GOTO1202
1210 H=INT(RND(1)*220)+1:POKESI+1,H:POKESI+15,D:FORI=1TOD:NEXT:D=D-1
1211 IFD=10THEN1219
1212 GOTO1210
1219 POKESI+24,63:POKESI+23,241:POKESI+22,110
1220 POKESI+4,0:POKESI+6,0:POKESI+5,12:POKESI+4,129:POKESI+1,4:POKE53265,65
1221 FORK=1TO110:POKE53280,12:POKE53280,1:POKE53280,0:NEXT:POKE53265,155
1223 POKE53269,0:POKESI+23,240
1230 S=PEEK(850):G=PEEK(851):G=G*256:S=S+G:S=S*25:SC=S:IFSC=>HS(10)THEN9200
1231 GOTO99
1300 PRINT"[159]SCORE 000000  [159]TIME 255  [159]LIVES"M" [159]LEVEL"L"";
1301 IFS<9THEN1308
1302 IFS>9THENA=9
1303 IFS>99THENA=8
1304 IFS>999THENA=7
1305 IFS>9999THENA=6
1306 IFS>99999THENA=5
1307 B=0:GOSUB1100:PRINT""S"";:POKE49152+A,48:POKE55296+A,1
1308 POKE53265,155:RETURN
1999 GOSUB15200
2000 PRINT"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\ABC\\\\\\\\\\\\";
2001 PRINT"\\\\\\\\\ABC\WW\\\[146][191][188][172]\IBCDEWW\\\\\\\\\\\";
2002 PRINT"JTUKLMSTUDEF\YZ\\\[146][177][187][165]\GEF\HYZKLOPQRQSPMJ";
2003 PRINT"[155]4\5677\7\\H5\^_\\\[146][180][162][181]\\H\\8^_\4\567\4\45";
2004 PRINT"\\\\\\\\\\89\\\\\\[146][161][182][167]\\89\\\\\\\\\\\\\\\";
2005 GOSUB15100
2007 GOSUB15000
2008 PRINT"[155][197][199][197][199][197][199][197][199][197][196][156][208][155][205][197][199][199][197][199][193][194][199][197][199][197][199][197][199][193][194][193][195][197][193][193][193][199][197][199][199][198][197]";
2009 GOSUB15000
2010 PRINT"[155][209][210][212][209][210][209][211][210][209][212][211][210][209][211][210][212][211][196][156][208][155][207][197][199][197][199][197][199][193][194][196][197][199][156][208][155][205][197][193][197][199][199][198][197]";
2011 PRINT"[210][212][209][210][212][209][210][212][209][212][210][211][212][210][211][212][209][209][156][208][208][208][208][208][208][208][155][193][156][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
2012 PRINT"[155][211][210][209][212][156][208][155][210][209][156][208][155][210][209][156][208][155][211][210][209][212][211][210][209][195][194][195][193][194][200][156][208][155][206][194][195][193][194][194][193][194][195][194][193][195][194][195][193]";
2013 GOSUB15000
2014 PRINT"[155][209][210][212][209][210][212][209][210][212][209][210][209][210][212][211][209][211][211][209][210][212][209][210][212][209][193][194][195][193][194][195][156][208][155][193][195][194][193][194][195][194][195]";
2015 GOSUB15000
2016 PRINT"[155][210][210][212][209][156][208][155][212][209][156][208][155][209][212][156][208][155][196][156][208][155][210][209][212][210][209][212][210][209][212][210][209][212][209][212][209][212][211][197][199][197][199][197][199][197][197][195][194]";
2017 GOSUB15000
2018 PRINT"[155][209][212][209][210][212][209][210][212][209][210][209][210][156][208][208][208][208][208][208][208][208][208][208][155][211][210][209][212][211][210][212][210][209][211][210][194][193][195][194][195][193][195]";
2019 PRINT"[210][211][210][209][210][212][211][210][211][211][212][210][156][208][208][208][208][208][208][208][208][208][208][155][211][210][210][209][212][211][209][210][194][210][209][194][193][195][194][195][193][195]";
2020 PRINT"[155][211][211][210][209][210][211][209][211][210][212][212][210][209][212][209][210][212][209][210][212][209][210][212][209][212][210][209][212][210][209][212][209][193][209][194][195][193][193][195]";:POKE860,253:POKE861,0
2021 GOTO1021
2999 GOSUB15200
3000 PRINT"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\ABC\\\\\\\\\ABC";
3001 PRINT"BCBCWW\\\\\\\\\\\\[146][191][188][172]\IBCDEWWABBCIBC\\E\";
3002 PRINT"EFEFYZ\\\KTU\KLSTU[146][177][187][165]\GEF\HYZDEEFGEFKVH\";
3003 PRINT"[155]H\8\^_\\\\4\55\67\[146][180][162][181]\\H\\8^_\HH\\H\4\89";
3004 PRINT"89\\\\\\\\\\\\\\\\[146][161][182][167]\\89\\\\\889\89\\\\";
3005 GOSUB15100
3007 GOSUB15000
3008 PRINT"[155][197][199][197][199][197][193][194][195][193][199][197][193][194][195][194][193][197][199][199][197][193][194][195][195][197][199][197][199][197][199][197][199][156][208][155][205][199][197][199][199][198][197]";
3009 GOSUB15000
3010 PRINT"[155][197][199][197][156][208][155][197][156][208][155][197][193][194][195][193][199][197][196][156][208][155][205][197][199][199][197][193][194][195][195][197][199][197][199][197][193][205][199][193][193][194][197][199][199][198][197]";
3011 GOSUB15000
3012 PRINT"[155][197][193][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][193][194][195][193][195][195][194][195][193][199][197][196][193][194][195][193][199][197][193][194][195][195][197][199][197][199][197][194][205][198][197]";
3013 GOSUB15000
3014 PRINT"[155][197][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][193][156][208][155][195][193][195][195][194][195][193][199][197][196][193][194][195][193][199][197][193][194][195][199][197][156][208][155][205][195][193][195][196][193][198][197]";
3015 GOSUB15000
3016 PRINT"[155][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][193][156][208][155][195][156][208][155][195][195][194][195][193][199][197][196][193][194][195][193][199][197][193][194][195][199][197][156][208][155][205][195][193][196][193][198][197]";
3017 GOSUB15000
3018 PRINT"[155][193][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][193][156][208][155][195][156][208][155][195][156][208][155][194][156][208][155][193][199][197][193][194][195][193][199][197][193][194][195][199][197][193][205][195][193][196][193][198][197]";
3019 GOSUB15000
3020 PRINT"[155][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][197][156][208][155][193][156][208][155][195][156][208][155][195][156][208][155][194][156][208][155][193][156][208][155][197][156][208][155][194][156][208][155][193][199][197][193][194][195][199][197][193][205][195][193][196][193][198][197]";
3021 POKE860,67:POKE861,1:GOTO1021
3999 GOSUB15200
4000 PRINT"\\\\\CBC\ABC\\\\\\\[146][176]\\\\\ABC\\ABC\\\\ABC";
4001 PRINT"ABCIBCEFABBBC\\\\\[146][191][188][172]\IBCDEWWABEFIBC\\E\";
4002 PRINT"DEFGEFH\DEEEFKLSTU[146][177][187][165]WWEF\HYZDEE\GEFKLMO";
4003 PRINT"[155]\H\\H\89\HH895\67\[146][180][162][181]YZH\\8^_\H89\H\4\89";
4004 PRINT"\8\\89\\\889\\\\\\[146][161][182][167]^_89\\\\\88\\89\\\\";
4005 GOSUB15100
4007 GOSUB15000
4008 PRINT"[155][197][199][197][199][156][208][155][193][194][195][193][199][197][193][194][195][194][193][197][199][199][197][193][194][195][195][197][199][197][199][197][199][197][193][194][195][199][197][199][199][198][197]";
4009 PRINT"[156][208][208][208][208][208][155][193][194][156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
4010 PRINT"[155][193][194][195][193][156][208][155][194][195][194][193][195][194][195][193][194][195][193][194][193][195][194][193][194][195][194][193][195][194][193][194][195][193][194][195][194][195][194][195][194][156][208][155][193]";
4011 GOSUB15000
4012 PRINT"[155][193][194][195][195][156][208][155][194][195][156][208][208][155][193][194][156][208][208][155][193][195][156][208][208][155][194][200][156][208][208][208][155][205][193][156][208][208][155][193][193][156][208][208][155][193][194][156][208][208][155][193][194][195][193][195][194]";
4013 PRINT"[156][208][208][208][208][208][155][193][193][156][208][208][155][194][193][156][208][208][155][195][193][156][208][208][155][193][194][196][156][208][155][197][195][195][156][208][208][155][193][194][156][208][208][155][193][194][156][208][208][208][208][208][208][208][208]";
4014 PRINT"[155][193][194][195][194][156][208][155][193][194][195][194][193][194][195][193][194][195][194][195][193][194][195][156][208][155][193][195][194][195][193][194][195][194][193][195][194][195][193][194][195][194][195][193][194]";
4015 GOSUB15000
4016 PRINT"[155][193][194][195][194][156][208][155][193][194][195][194][193][194][195][193][194][195][194][195][193][194][200][156][208][155][193][195][194][156][208][208][155][194][195][156][208][208][155][195][194][156][208][155][193][194][156][208][155][194][195][156][208][155][194]";
4017 PRINT"[156][208][208][208][208][208][155][193][156][208][208][208][208][208][208][208][208][208][208][208][208][208][155][194][156][208][155][193][195][156][208][208][208][155][193][194][156][208][208][155][193][193][156][208][155][194][193][156][208][155][193][195][156][208][155][193]";
4018 PRINT"[193][194][195][194][156][208][155][193][156][208][155][195][194][193][194][195][193][194][195][194][193][201][156][208][155][194][156][208][155][194][195][194][195][193][194][195][194][193][195][194][195][193][194][195][194][195][193][194]";
4019 GOSUB15000
4020 PRINT"[155][194][195][194][195][194][194][195][194][195][194][196][194][193][194][194][194][195][194][197][194][193][194][194][194][195][194][195][194][195][194][195][197][194][198][197][193][193][193][193]";:POKE860,27:POKE861,1
4021 GOTO1021
4999 GOSUB15200
5000 PRINT"\ABCCBBCABC\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
5001 PRINT"BCEBCEEABBBCWWIBC\[146][191][188][172]\\\\\\\\\\\\\\\ABC\";
5002 PRINT"EFHEFHHDEEEFYZDEF\[146][177][187][165]\KUKLOPQJTUKV\KVHF\";
5003 PRINT"[155]H\8H\889HH89^_\H\\[146][180][162][181]\\\4567\74\\\\4\89\";
5004 PRINT"8\\89\\\889\\\\89\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
5005 GOSUB15100
5007 PRINT"[159][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][155][193][195][193][194][159][208][155][195][194][195][204][159][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
5008 PRINT"[155][193][159][208][155][194][195][194][195][194][195][193][194][195][194][195][194][159][208][155][195][193][194][195][159][208][155][195][193][193][195][159][208][155][195][194][195][194][195][194][195][193][194][195][195][195][193][159][208][155][195]";
5009 GOSUB15300
5010 PRINT"[155][193][195][159][208][155][194][195][194][195][193][194][195][194][195][193][194][195][193][159][208][155][205][195][159][208][155][193][194][159][208][155][194][195][193][195][194][193][195][194][194][195][194][195][193][195][159][208][155][193][195]";
5011 GOSUB15300
5012 PRINT"[155][193][195][196][159][208][155][194][195][194][193][195][195][194][195][195][194][193][193][159][208][155][201][193][159][208][155][195][196][159][208][155][194][195][194][193][194][195][194][195][194][195][193][194][195][159][208][155][193][198][195]";
5013 PRINT"[159][208][208][208][208][208][155][193][159][208][208][208][208][208][208][208][208][208][208][208][155][203][194][159][208][155][195][200][159][208][208][208][208][208][208][208][208][208][208][208][208][155][195][159][208][208][208][208][208]";
5014 PRINT"[155][193][195][194][196][159][208][155][194][195][194][195][194][195][193][194][195][195][193][159][208][155][194][195][159][208][155][193][204][159][208][155][194][193][195][194][195][198][195][194][195][194][195][193][159][208][155][194][195][193][195]";
5015 GOSUB15300
5016 PRINT"[155][193][195][194][198][193][159][208][155][194][195][194][195][194][195][194][195][194][195][208][155][205][193][159][208][155][201][193][159][208][155][194][195][194][195][194][195][194][195][194][193][195][159][208][155][193][193][195][197][194]";
5017 GOSUB15300
5018 PRINT"[155][194][195][194][193][195][195][159][208][155][194][193][195][194][193][195][194][195][194][198][195][193][159][208][155][200][193][194][193][195][194][193][195][194][195][194][193][195][159][208][155][195][195][193][194][193][195]";
5019 PRINT"[159][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";
5020 PRINT"[155][194][195][194][195][194][195][194][195][193][194][194][195][194][195][193][195][193][194][195][193][194][195][193][194][195][193][194][195][193][195][194][193][195][194][195][195][193][195][193]";
5021 GOTO1021
5999 GOSUB15200
6000 PRINT"ABC\IBC\ABC\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
6001 PRINT"DEF\GEF\GEF\\\IBC\[146][191][188][172]\\\\\\\\\\\\\\\\\\\";
6002 PRINT"\HABCHABCHIBC\DEF\[146][177][187][165]KVKLMPOPJTNRSTLMOPR";
6003 PRINT"[155]\8DEF8DEF8GEF\\H\\[146][180][162][181]\564567\74\5564566\";
6004 PRINT"\\\89\\89\\89\\89\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
6005 GOSUB15100
6006 GOSUB15000:FORI=1TO3
6007 PRINT"[156][208][155][195][156][208][155][193][156][208][155][195][156][208][155][194][156][208][155][193][156][208][155][194][156][208][155][195][156][208][155][193][156][208][155][195][156][208][155][193][156][208][155][194][156][208][155][193][156][208][155][194]";
6008 PRINT"[156][208][155][195][156][208][155][193][156][208][155][195][156][208][155][194][156][208][155][193][156][208][155][194][156][208][155][193]";:GOSUB15000
6009 PRINT"[155][195][156][208][155][193][156][208][155][195][156][208][155][194][156][208][155][193][156][208][155][194][156][208][155][195][156][208][155][193][156][208][155][195][156][208][155][193][156][208][155][194][156][208][155][193][156][208][155][194]";
6010 PRINT"[156][208][155][195][156][208][155][193][156][208][155][195][156][208][155][194][156][208][155][193][156][208][155][194][156][208][155][193][156][208]";:GOSUB15000:NEXT
6011 PRINT"[155][193][194][195][194][193][195][194][195][193][194][195][194][193][195][194][195][194][193][195][194][195][193][194][195][194][193][194][193][194][194][193][195][194][195][193][194][195][194][193]";
6021 GOTO1021
9002 POKE53265,65:PRINT"[147]";:PRINTTAB(14)"[149]HALL OF FAME":PRINT"";
9003 FORT=1TO10:PRINT"";:PRINTTAB(11)"[155]"N$(T)"":PRINT"[145][145][149]"
9004 PRINTTAB(24)HS(T)
9005 PRINT"";:T=T+1:PRINTTAB(11)"[153]"N$(T)"":PRINT"[145][145][149]"
9006 PRINTTAB(24)HS(T):NEXT
9007 IFSC>HSTHEN9009
9008 GOTO9020
9009 I=0
9010 I=I+1:IFSC>HS(I)THENHB=I:GOTO9012
9011 GOTO9010
9012 FORA=10TOISTEP-1:HS(A)=HS(A-1):N$(A)=N$(A-1):NEXTA
9013 HS(HB)=SC:SC=0:N$(HB)=N$:PRINT"";
9014 GOTO9003
9020 POKE53265,155:A=9:B=23:GOSUB1100:PRINT"[156]PRESS FIRE TO CONTINUE";
9021 J=PEEK(56320):IFJ=111THEN99
9022 GOTO9021
9200 REM ENTER NAME
9201 PRINT"[147]":POKE53283,7:POKE53265,65
9202 PRINTTAB(13)"[149]CONGRATULATIONS"
9203 PRINTTAB(6)"[151]YOU ARE ONE OF THE BEST TODAY"
9204 PRINTTAB(9)"[155]PLEASE ENTER YOUR NAME"
9205 PRINTTAB(12)"[155]0-0-0-0-0-0-0-0[146]"
9206 PRINTTAB(12)"0-[146]           -0[146]"
9207 PRINTTAB(12)"0-[146] [149]A         [155]-0[146]"
9208 PRINTTAB(12)"0-[146][159]^         [155]-0[146]"
9209 PRINTTAB(12)"0-0-0-0-0-0-0-0[146]"
9210 PRINTTAB(11)"[149]YOUR SCORE :"SC""
9212 SI=54272:POKESI+24,31:POKESI+23,243:POKESI+6,240:POKESI+13,240
9213 POKESI+5,0:POKESI+12,0
9214 POKESI+3,3:POKESI+10,5:POKESI+1,3:POKESI+8,3:POKESI,100:POKESI+7,102
9215 POKESI+4,65:POKESI+11,65:POKESI+22,0:POKESI+18,0:POKE53265,155
9220 A=65:N$="":X=15
9222 J=PEEK(56320)
9223 IFJ=119THENX=X+1:GOTO9240
9224 IFJ=123THENX=X-1:GOTO9240
9225 IFJ=126THENA=A+1:GOTO9243
9226 IFJ=125THENA=A-1:GOTO9243
9228 IFJ=111THEN9250
9229 GOTO9222
9230 B=(A-64)*3.4:POKESI+22,B:C=A
9231 POKE211,X:POKE214,12:SYS58640:H$=CHR$(C):PRINT"[149]"H$"";
9232 POKE211,X-1:POKE214,13:SYS58640:PRINT"[159] ^ ";
9233 GOTO9222
9240 IFX=14THENX=15:GOTO9230
9241 IFX=25THENX=24:GOTO9230
9242 C=32:GOTO9231
9243 IFA=64THENA=65:GOTO9230
9244 IFA=91THENA=90:GOTO9230
9245 GOTO9230
9250 D=0
9251 D=D+1:A=PEEK(49646+D):E=A+64:IFE=96THENE=32
9252 N$=N$+CHR$(E):IFD=10THEN9254
9253 GOTO9251
9254 POKESI+23,240:POKESI+24,0:GOTO9002
15000 PRINT"[156][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";:RETURN
15100 PRINT"1211212121212123230[199]-2121323321232122322[146]";
15101 PRINT"[195][194][202][206][202][195][194][202][195][194][202][194][202][195][194][202][195]-0[146] -0[146][193][202][194][202][195][194][202][195][194][202][193][193][194][202][195][194][202][193]";:RETURN
15200 POKE53265,65
15201 PRINT"[147][151]":PRINT"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\";:RETURN
15300 PRINT"[159][208][208][208][208][208][208][208][208][208][208][208][208][208][155][193][159][208][208][208][155][203][194][159][208][155][195][200][159][208][208][208][155][195][159][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";:RETURN