home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magic Disk 64
/
Magic_Disk_64_90-12_1990_-_de_Side_B.d64
/
main
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
10KB
|
274 lines
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