home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_90-12_1990_-_de_Side_B.d64 / main (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  10KB  |  274 lines
  1. 10 l=1:fori=10000to1000step-1000:hs(l)=i:n$(l)="magic disk":l=l+1:next
  2. 99 poke53282,10:poke53283,15:poke53265,65:print"[147]"
  3. 100 printtab(38)"tm";
  4. 101 print"[150]!#$[146] *[146] !#$[146] *#+[146] *[146]  *[146] *[212]*[146] *#+[146]  !#$[146] *[146] *[146] *[212]*[146]"
  5. 102 print"%&'[146] %[146] %&'[146] %)[146]  %[146]  %[146] %[215]%[146] %)[146]   %[213]'[146] %[146] %[146] %[215]%[146]"
  6. 103 print"([146]   ([146] ([146]   (),[146] (,[146] ([146] ([218]([146] (),[146]  ([216][217][146] ()([146] ([218]([146]"
  7. 104 printtab(7)"[158]designed and programmed by
  8. 105 [153][163]13)"openjoerg sieslack
  9. 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
  10. 107 [153][163]9)"print#atnpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeekpeeklenwait"
  11. 108 [153][163]9)"chr$wait f1 openstart the game   print#chr$wait
  12. 109 printtab(9)"[199][146]                     [199][146]
  13. 110 [153][163]9)"chr$wait f3 opensee hall of fame print#chr$wait
  14. 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
  15. 120 j=peek(203)
  16. 121 ifj=4then400
  17. 122 ifj=5then9002
  18. 123 goto120
  19. 400 v=53248:pokev+39,13:pokev+40,1:pokev+41,13:pokev+43,15:pokev+44,13
  20. 401 pokev+45,10:l=0:poke56325,40:sys6*4096:poke53282,8:poke53283,5:pokev+46,0
  21. 402 pokev+27,128:s=0
  22. 501 l=l+1
  23. 502 ifl=1then999
  24. 503 ifl=2then1999
  25. 504 ifl=3then2999
  26. 505 ifl=4then3999
  27. 506 ifl=5then4999
  28. 507 ifl=6then5999
  29. 508 ifl=7thenl=1:goto502
  30. 999 gosub15200
  31. 1000 print"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
  32. 1001 print"\abc\ibc\\\\abc\\\[146][191][188][172]\\ww\\\\\\\\\\ww\\\";
  33. 1002 print"\def\gef\ktvdef\\\[146][177][187][165]\\yzklptlmoptuyz\kn";
  34. 1003 print"[155]\\h\\\894\\\\h\67\[146][180][162][181]\\^_\6774\\5\\^_\\4";
  35. 1004 print"\\89\\\\\\\\\89\\\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
  36. 1005 gosub15100
  37. 1007 gosub15000
  38. 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]";
  39. 1009 gosub15000
  40. 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]";
  41. 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]";
  42. 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]";
  43. 1013 gosub15000
  44. 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]";
  45. 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]";
  46. 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]";
  47. 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]";
  48. 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]";
  49. 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]";
  50. 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
  51. 1021 m=peek(852):poke50151,66:poke56295,15
  52. 1022 gosub1300
  53. 1023 sys8*4096:sys24597:k=peek(2022):poke2023,k
  54. 1024 s=peek(852):ifs=0then1200
  55. 1030 poke53269,0:fori=11to17:poke211,10:poke214,i:sys58640
  56. 1032 printtab(10)"                 ";:next
  57. 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"";
  58. 1034 a=11:b=16:gosub1100:print"[158]s[159]c[158]o[159]r[158]e"
  59. 1050 si=54272:pokesi+24,15:pokesi+5,12:pokesi+6,0:pokesi+4,0:pokesi+11,0
  60. 1051 pokesi+18,0:pokesi+4,21:fora=1to10
  61. 1052 fori=20to30step2.5:pokesi+1,i:pokesi+15,i/5:poke211,11:poke214,12:sys58640
  62. 1053 poke646,i-4:print"level completed":next:next:pokesi+5,15:pokesi+4,0
  63. 1054 a=11:b=12:gosub1100:print"level completed":pokesi+4,21:d=0
  64. 1055 fori=10to110step1:pokesi+15,70:pokesi+1,i:pokesi+15,90:next:pokesi+5,8
  65. 1056 t=peek(2023):t=t-1:ift=-1then1071
  66. 1058 d=d+1:ifd<7then1060
  67. 1059 d=0:goto1063
  68. 1060 poke2023,t:a=21:b=14:gosub1100:print""t"";:print"[157]  ";
  69. 1062 pokesi+4,0:pokesi+4,21:pokesi+15,30:pokesi+1,20:goto1056
  70. 1063 s=peek(850):g=peek(851):g=g*256
  71. 1064 pokesi+1,99:s=s+g:s=s*25:a=17:b=16:gosub1100:print""s"";:n=peek(850):n=n+2
  72. 1065 pokesi+4,0:pokesi+4,21:pokesi+15,30:pokesi+1,20
  73. 1066 ifn<256then1068
  74. 1067 poke850,0:n=peek(851):n=n+1:poke851,n
  75. 1068 poke850,n
  76. 1069 goto1056
  77. 1070 end
  78. 1071 fori=11to17:poke211,10:poke214,i:sys58640
  79. 1072 printtab(10)"                 ";:next
  80. 1073 si=54272:pokesi+24,15:pokesi+5,11:pokesi+4,0:pokesi+4,21:b=11:a=14:p=2
  81. 1074 pokesi+15,40:form=1to14:b=11
  82. 1075 fori=14to46step8:p=p+1:pokesi+1,i:poke646,p
  83. 1076 b=b+1:gosub1100:print"get ready":next:next
  84. 1090 goto501
  85. 1100 poke211,a:poke214,b:sys58640:return
  86. 1101 poke211,c:poke214,b:sys58640:return
  87. 1200 si=54272:pokesi+24,15:pokesi+6,240:pokesi+5,0:pokesi+4,0:pokesi+4,21
  88. 1201 a=-1:b=2:c=36:d=80:pokesi+11,0:pokesi+18,0
  89. 1202 a=a+1:gosub1100:print"game";:print"[157][157][157][157][157] ";
  90. 1203 c=c-1:gosub1101:print"over";:print" ";
  91. 1204 h=int(rnd(1)*60)+40:pokesi+1,h:pokesi+15,d/2:fori=1tod:next:d=d-1
  92. 1205 ifa=15then1210
  93. 1206 goto1202
  94. 1210 h=int(rnd(1)*220)+1:pokesi+1,h:pokesi+15,d:fori=1tod:next:d=d-1
  95. 1211 ifd=10then1219
  96. 1212 goto1210
  97. 1219 pokesi+24,63:pokesi+23,241:pokesi+22,110
  98. 1220 pokesi+4,0:pokesi+6,0:pokesi+5,12:pokesi+4,129:pokesi+1,4:poke53265,65
  99. 1221 fork=1to110:poke53280,12:poke53280,1:poke53280,0:next:poke53265,155
  100. 1223 poke53269,0:pokesi+23,240
  101. 1230 s=peek(850):g=peek(851):g=g*256:s=s+g:s=s*25:sc=s:ifsc=>hs(10)then9200
  102. 1231 goto99
  103. 1300 print"[159]score 000000  [159]time 255  [159]lives"m" [159]level"l"";
  104. 1301 ifs<9then1308
  105. 1302 ifs>9thena=9
  106. 1303 ifs>99thena=8
  107. 1304 ifs>999thena=7
  108. 1305 ifs>9999thena=6
  109. 1306 ifs>99999thena=5
  110. 1307 b=0:gosub1100:print""s"";:poke49152+a,48:poke55296+a,1
  111. 1308 poke53265,155:return
  112. 1999 gosub15200
  113. 2000 print"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\abc\\\\\\\\\\\\";
  114. 2001 print"\\\\\\\\\abc\ww\\\[146][191][188][172]\ibcdeww\\\\\\\\\\\";
  115. 2002 print"jtuklmstudef\yz\\\[146][177][187][165]\gef\hyzklopqrqspmj";
  116. 2003 print"[155]4\5677\7\\h5\^_\\\[146][180][162][181]\\h\\8^_\4\567\4\45";
  117. 2004 print"\\\\\\\\\\89\\\\\\[146][161][182][167]\\89\\\\\\\\\\\\\\\";
  118. 2005 gosub15100
  119. 2007 gosub15000
  120. 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]";
  121. 2009 gosub15000
  122. 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]";
  123. 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]";
  124. 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]";
  125. 2013 gosub15000
  126. 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]";
  127. 2015 gosub15000
  128. 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]";
  129. 2017 gosub15000
  130. 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]";
  131. 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]";
  132. 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
  133. 2021 goto1021
  134. 2999 gosub15200
  135. 3000 print"\\\\\\\\\\\\\\\\\\\[146][176]\\\\\abc\\\\\\\\\abc";
  136. 3001 print"bcbcww\\\\\\\\\\\\[146][191][188][172]\ibcdewwabbcibc\\e\";
  137. 3002 print"efefyz\\\ktu\klstu[146][177][187][165]\gef\hyzdeefgefkvh\";
  138. 3003 print"[155]h\8\^_\\\\4\55\67\[146][180][162][181]\\h\\8^_\hh\\h\4\89";
  139. 3004 print"89\\\\\\\\\\\\\\\\[146][161][182][167]\\89\\\\\889\89\\\\";
  140. 3005 gosub15100
  141. 3007 gosub15000
  142. 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]";
  143. 3009 gosub15000
  144. 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]";
  145. 3011 gosub15000
  146. 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]";
  147. 3013 gosub15000
  148. 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]";
  149. 3015 gosub15000
  150. 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]";
  151. 3017 gosub15000
  152. 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]";
  153. 3019 gosub15000
  154. 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]";
  155. 3021 poke860,67:poke861,1:goto1021
  156. 3999 gosub15200
  157. 4000 print"\\\\\cbc\abc\\\\\\\[146][176]\\\\\abc\\abc\\\\abc";
  158. 4001 print"abcibcefabbbc\\\\\[146][191][188][172]\ibcdewwabefibc\\e\";
  159. 4002 print"defgefh\deeefklstu[146][177][187][165]wwef\hyzdee\gefklmo";
  160. 4003 print"[155]\h\\h\89\hh895\67\[146][180][162][181]yzh\\8^_\h89\h\4\89";
  161. 4004 print"\8\\89\\\889\\\\\\[146][161][182][167]^_89\\\\\88\\89\\\\";
  162. 4005 gosub15100
  163. 4007 gosub15000
  164. 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]";
  165. 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]";
  166. 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]";
  167. 4011 gosub15000
  168. 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]";
  169. 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]";
  170. 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]";
  171. 4015 gosub15000
  172. 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]";
  173. 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]";
  174. 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]";
  175. 4019 gosub15000
  176. 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
  177. 4021 goto1021
  178. 4999 gosub15200
  179. 5000 print"\abccbbcabc\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
  180. 5001 print"bcebceeabbbcwwibc\[146][191][188][172]\\\\\\\\\\\\\\\abc\";
  181. 5002 print"efhefhhdeeefyzdef\[146][177][187][165]\kuklopqjtukv\kvhf\";
  182. 5003 print"[155]h\8h\889hh89^_\h\\[146][180][162][181]\\\4567\74\\\\4\89\";
  183. 5004 print"8\\89\\\889\\\\89\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
  184. 5005 gosub15100
  185. 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]";
  186. 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]";
  187. 5009 gosub15300
  188. 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]";
  189. 5011 gosub15300
  190. 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]";
  191. 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]";
  192. 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]";
  193. 5015 gosub15300
  194. 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]";
  195. 5017 gosub15300
  196. 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]";
  197. 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]";
  198. 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]";
  199. 5021 goto1021
  200. 5999 gosub15200
  201. 6000 print"abc\ibc\abc\\\\\\\\[146][176]\\\\\\\\\\\\\\\\\\\\";
  202. 6001 print"def\gef\gef\\\ibc\[146][191][188][172]\\\\\\\\\\\\\\\\\\\";
  203. 6002 print"\habchabchibc\def\[146][177][187][165]kvklmpopjtnrstlmopr";
  204. 6003 print"[155]\8def8def8gef\\h\\[146][180][162][181]\564567\74\5564566\";
  205. 6004 print"\\\89\\89\\89\\89\[146][161][182][167]\\\\\\\\\\\\\\\\\\\";
  206. 6005 gosub15100
  207. 6006 gosub15000:fori=1to3
  208. 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]";
  209. 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
  210. 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]";
  211. 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
  212. 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]";
  213. 6021 goto1021
  214. 9002 poke53265,65:print"[147]";:printtab(14)"[149]hall of fame":print"";
  215. 9003 fort=1to10:print"";:printtab(11)"[155]"n$(t)"":print"[145][145][149]"
  216. 9004 printtab(24)hs(t)
  217. 9005 print"";:t=t+1:printtab(11)"[153]"n$(t)"":print"[145][145][149]"
  218. 9006 printtab(24)hs(t):next
  219. 9007 ifsc>hsthen9009
  220. 9008 goto9020
  221. 9009 i=0
  222. 9010 i=i+1:ifsc>hs(i)thenhb=i:goto9012
  223. 9011 goto9010
  224. 9012 fora=10toistep-1:hs(a)=hs(a-1):n$(a)=n$(a-1):nexta
  225. 9013 hs(hb)=sc:sc=0:n$(hb)=n$:print"";
  226. 9014 goto9003
  227. 9020 poke53265,155:a=9:b=23:gosub1100:print"[156]press fire to continue";
  228. 9021 j=peek(56320):ifj=111then99
  229. 9022 goto9021
  230. 9200 rem enter name
  231. 9201 print"[147]":poke53283,7:poke53265,65
  232. 9202 printtab(13)"[149]congratulations"
  233. 9203 printtab(6)"[151]you are one of the best today"
  234. 9204 printtab(9)"[155]please enter your name"
  235. 9205 printtab(12)"[155]0-0-0-0-0-0-0-0[146]"
  236. 9206 printtab(12)"0-[146]           -0[146]"
  237. 9207 printtab(12)"0-[146] [149]a         [155]-0[146]"
  238. 9208 printtab(12)"0-[146][159]^         [155]-0[146]"
  239. 9209 printtab(12)"0-0-0-0-0-0-0-0[146]"
  240. 9210 printtab(11)"[149]your score :"sc""
  241. 9212 si=54272:pokesi+24,31:pokesi+23,243:pokesi+6,240:pokesi+13,240
  242. 9213 pokesi+5,0:pokesi+12,0
  243. 9214 pokesi+3,3:pokesi+10,5:pokesi+1,3:pokesi+8,3:pokesi,100:pokesi+7,102
  244. 9215 pokesi+4,65:pokesi+11,65:pokesi+22,0:pokesi+18,0:poke53265,155
  245. 9220 a=65:n$="":x=15
  246. 9222 j=peek(56320)
  247. 9223 ifj=119thenx=x+1:goto9240
  248. 9224 ifj=123thenx=x-1:goto9240
  249. 9225 ifj=126thena=a+1:goto9243
  250. 9226 ifj=125thena=a-1:goto9243
  251. 9228 ifj=111then9250
  252. 9229 goto9222
  253. 9230 b=(a-64)*3.4:pokesi+22,b:c=a
  254. 9231 poke211,x:poke214,12:sys58640:h$=chr$(c):print"[149]"h$"";
  255. 9232 poke211,x-1:poke214,13:sys58640:print"[159] ^ ";
  256. 9233 goto9222
  257. 9240 ifx=14thenx=15:goto9230
  258. 9241 ifx=25thenx=24:goto9230
  259. 9242 c=32:goto9231
  260. 9243 ifa=64thena=65:goto9230
  261. 9244 ifa=91thena=90:goto9230
  262. 9245 goto9230
  263. 9250 d=0
  264. 9251 d=d+1:a=peek(49646+d):e=a+64:ife=96thene=32
  265. 9252 n$=n$+chr$(e):ifd=10then9254
  266. 9253 goto9251
  267. 9254 pokesi+23,240:pokesi+24,0:goto9002
  268. 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
  269. 15100 print"1211212121212123230[199]-2121323321232122322[146]";
  270. 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
  271. 15200 poke53265,65
  272. 15201 print"[147][151]":print"\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\";:return
  273. 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
  274.