home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 September / 1985-09.d64 / maze-mania (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  6KB  |  125 lines
  1. 10 w=54272:fort=wtow+24:poket,0:next
  2. 20 poke657,128:poke53280,0:poke53281,0:print"[147]"tab(14)"maze-mania
  3. 30 [153]""[163]4)"pokeplease wait while data is loaded":[134]u(255),h(255)
  4. 40 cz[178]0:[129]ig[178]49152[164]49619:[135]ya:[151]ig,ya:cz[178]cz[170]ya:[130]
  5. 50 [129]bi[178]50176[164]50442:[135]ka:[151]bi,ka:cz[178]cz[170]ka:[130]
  6. 60 [139]cz[179][177]91037[167][153]"        error in data statementspoke":[144]
  7. 70 [129]f[178]1[164]23:[135]u(f),h(f):[130]
  8. 80 lv[178]1:vl[178]lv[170]1:pl[178]1:mn(1)[178]3:mn(2)[178]3:pp[178]65:j[178]5:k[178]15:g$[178]"(NULL)":[151]198,0
  9. 90 [129]i[178]1[164]2:sc(i)[178]0:[130]
  10. 100 [153]"load"[163]12)"maze-mania":[153]""[163]11)"1wait normal game"
  11. 110 [153]""[163]11)"2wait fade game":[153]""[163]11)"3wait nervous game"
  12. 120 [153]""[163]10)"input your choice sincmd";:[151]204,0
  13. 130 [161]mt$:[139]mt$[178]""[176]mt$[179]"1"[176]mt$[177]"3"[167]130
  14. 140 [153]mt$:[153]""[163]7)"how many players (1 or 2) sincmd";:[151]204,0
  15. 150 [161]a$:[139]a$[178]""[176]a$[179]"1"[176]a$[177]"2"[167]150
  16. 160 np[178][197](a$):mt[178][197](mt$):[153]a$:[151]204,1:[151]207,0:[151]646,vl
  17. 170 mt$[178]"  wait  wait  wait  wait  wait peekwait":m$[178]"            ":mm$[178]"peekwait"[170]mt$[170]"cmdcmd"
  18. 180 a[178]1226:b[178]55498:[151]56322,[194](56322)[175]127
  19. 190 c[178]a:d[178]b:[153]"load  level"lv[163]15)"time 000"[163]28)"score"sc(pl)
  20. 200 [153]" orlenlenlenlenlenlenlenlenlenlenlenlenlenmaze-manialenlenlenlenlenlenlenlenlenlenlenlenlen^"
  21. 210 [129]i[178]1[164]17:[153]" peekwait"mt$[163]25)mm$" peekwait":[130]:[153]"";:[129]i[178]1[164]8
  22. 220 [153][163]14)m$"":[130]:[153]""[163]13)" "
  23. 230 [153]""[163]38)" ":[153]""[163]26)" "
  24. 240 [153]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp":[153]""[163]12)"player"pl;
  25. 250 [153][163]22)"men ";:[129]i[178]1[164]mn(pl):[153]g$;:[130]
  26. 260 t[178][181](15[172][187](1)):a[178]a[170]t[172]40:b[178]b[170]t[172]40:[151]a[170]1,32:[151]a[170]34,32
  27. 270 [129]p[178]5[164]11[169]2:q[178][181](11[172][187](1))[170]6:z[178][181](11[172][187](1))[170]6:[153]"";:[129]i[178]0[164]q
  28. 280 [153]"";:[130]i:[153][163]p)" ":[153]"";:[129]i[178]0[164]z:[153]"";:[130]i
  29. 290 [153][163]p[170]23)" ";:[130]p:[129]q[178]4[164]19[169]2:p[178][181](10[172][187](1))[170]15:[153]"";
  30. 300 [129]i[178]0[164]q:[153]"";:[130]i:[153][163]p);:[153]" ":[130]q
  31. 310 [151]1542,102:[151]55814,0:[151]1543,160:[151]55815,0
  32. 320 aa[178][181](a[173]256):bb[178]aa[172]256:cc[178]a[171]bb:[151]167,cc:[151]169,cc:[151]168,aa:[151]170,aa
  33. 330 [151]911,k:[151]910,200:[151]912,k
  34. 340 [151]900,0:[151]904,j:[151]905,0:[151]902,0:[151]903,0:[151]901,8:[151]56325,pp
  35. 350 [139]mt[178]2[167][151]902,1:[137]370
  36. 360 [139]mt[178]3[167][151]903,1
  37. 370 [158]49152
  38. 380 [139][194](900)[178]1[167][158]65418:[137]410
  39. 390 [139][194](910)[179][178]0[167][158]65418:[137]700
  40. 400 [137]380
  41. 410 [139][194](167)[170]256[172][194](168)[178]1541[167]t[178][194](910):sc(pl)[178]sc(pl)[170](t[172]lv):[137]430
  42. 420 n1[178]1:n2[178]9:[141]730:mn(pl)[178]mn(pl)[171]1:[137]520
  43. 430 [151]1541,32:[151]1542,81:[151]55814,1:n1[178]10:n2[178]23:[141]730
  44. 440 [139]a$[178]"1"[167]mn(pl)[178]mn(pl)[170]1:[137]490
  45. 450 [151]646,vl
  46. 460 [139]pl[178]1[167][141]680:pl[178]2:ck[178]1:[137]510
  47. 470 s2[178]s2[170]sc(pl):[141]680:pl[178]1:[137]490
  48. 480 [139]a$[178]"1"[167]pl[178]2
  49. 490 pp[178]pp[171]5:ck[178]0:j[178]j[170]1:k[178]k[170]4:lv[178]lv[170]1:[139]lv[178]11[167]660
  50. 500 vl[178]vl[170]1
  51. 510 [141]710:[151]900,0:[151]646,vl:[137]170
  52. 520 [139]mn(pl)[177]0[167]510
  53. 530 [139]a$[178]"1"[167]570
  54. 540 [153]""[163]11)"game over player"pl:lv(pl)[178]lv:[141]690
  55. 550 [139]pl[178]2[167]a$[178]"1":pl[178]1:[137]640
  56. 560 a$[178]"1":pl[178]2:[137]510
  57. 570 lv(pl)[178]lv:[153]"load"[163]14)"game over":[141]690
  58. 580 [153]"load"[163]15)"scoreboard":[153][163]15)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  59. 590 [151]56322,[194](56322)[176]128:[129]i[178]1[164]np
  60. 600 [153]""[163]8)"player"i[166]5[171][195]([196](sc(i))))sc(i)[163]27)"level"lv(i)[171]1
  61. 610 [130]:[153]""[163]12)"press firebuttonwait":[153][163]13)"to play again"
  62. 620 [146]56321,16,16:[146]56321,16
  63. 630 [153]"load":[151]53265,27:[151]53270,200:[137]80
  64. 640 [139]ck[178]1[167]490
  65. 650 [137]510
  66. 660 [153]"load"[163]14)"well done!!"
  67. 670 [153]"   you have completed all ten levels":[141]690:[137]580
  68. 680 [153]""[163]28)"score"sc(pl):mn(pl)[178]mn(pl)[170]1:[129]i[178]1[164]1000:[130]:[142]
  69. 690 [129]i[178]1[164]2800:[130]:[142]
  70. 700 [153]""[163]14)"out of time":[129]i[178]1[164]500:[130]:[137]420
  71. 710 [139]mn(pl)[177]3[167]mn(pl)[178]3
  72. 720 [142]
  73. 730 [151]w[170]24,15:[151]w[170]5,17:[151]w[170]6,241
  74. 740 [129]i[178]n1[164]n2:[151]w,u(i):[151]w[170]1,h(i):[151]w[170]4,17:[129]t[178]1[164]50:[130]:[151]w[170]4,16
  75. 750 [151]w[170]1,u(i)[171]20:[151]w,h:[151]w[170]4,17:[129]t[178]1[164]50:[130]:[151]w[170]4,16:[130]:[142]
  76. 760 [131] 120,169,255,141,15,212,169,129,141,18,212,162,17,173,27
  77. 770 [131] 212,74,74,74,74,205,133,3,144,244,157,48,194,157,0
  78. 780 [131] 194,202,16,235,162,35,189,150,193,157,96,194,157,144,194
  79. 790 [131] 138,157,192,194,138,74,168,189,186,193,157,240,194,202,16
  80. 800 [131] 231,169,73,141,20,3,169,192,141,21,3,88,96,173,132
  81. 810 [131] 3,240,3,76,49,234,173,135,3,240,21,173,27,212,201
  82. 820 [131] 50,176,14,230,2,165,2,41,7,9,24,141,17,208,141
  83. 830 [131] 22,208,162,17,222,0,194,240,3,76,80,193,189,48,194
  84. 840 [131] 157,0,194,138,10,168,189,240,194,16,27,73,255,24,105
  85. 850 [131] 1,133,251,185,96,194,56,229,251,153,96,194,185,97,194
  86. 860 [131] 233,0,153,97,194,76,176,192,185,96,194,24,125,240,194
  87. 870 [131] 153,96,194,185,97,194,105,0,153,97,194,138,10,168,185
  88. 880 [131] 96,194,133,251,185,97,194,133,252,140,61,3,160,0,177
  89. 890 [131] 251,201,160,144,44,189,240,194,73,255,24,105,1,157,240
  90. 900 [131] 194,173,27,212,74,74,74,74,205,133,3,144,3,157,48
  91. 910 [131] 194,172,61,3,185,144,194,153,96,194,185,145,194,153,97
  92. 920 [131] 194,76,80,193,201,81,208,8,169,1,141,132,3,76,80
  93. 930 [131] 193,172,61,3,185,144,194,133,253,185,145,194,133,254,160
  94. 940 [131] 0,169,32,145,253,169,102,145,251,172,61,3,165,251,153
  95. 950 [131] 144,194,24,105,0,133,253,165,252,153,145,194,105,212,133
  96. 960 [131] 254,152,41,7,208,2,169,13,172,134,3,240,19,254,192
  97. 970 [131] 194,189,192,194,201,8,144,5,169,0,157,192,194,170,189
  98. 980 [131] 204,193,160,0,145,253,202,48,3,76,109,192,206,144,3
  99. 990 [131] 208,20,173,143,3,141,144,3,173,142,3,208,6,238,132
  100. 1000 [131] 3,76,147,193,206,142,3,162,47,173,142,3,232,56,233
  101. 1010 [131] 100,16,250,142,60,4,24,105,100,162,47,232,56,233,10
  102. 1020 [131] 16,250,142,61,4,24,105,10,9,48,141,62,4,76,0
  103. 1030 [131] 196,36,7,38,7,40,7,42,7,44,7,254,4,78,5
  104. 1040 [131] 158,5,238,5,62,6,142,6,222,6,187,4,189,4,191
  105. 1050 [131] 4,193,4,195,4,197,4,216,216,216,216,216,1,1,1,1,1,1,1
  106. 1060 [131] 40,40,40,40,40,40,12,11,0,0,0,11,12,0,173,137,3,205,136,3,176
  107. 1070 [131] 6,238,137,3,76,49,234,160,0,234,234,234,140,137,3,169,32,145
  108. 1080 [131] 167,165,169,133,167,165,170,133,168,162,0,134,4,134,5,173,1
  109. 1090 [131] 220,74,176,1,136,74,176,1,200,74,176,1,202,74,176,1,232,134
  110. 1100 [131] 4,132,5,74,42,41,1,141,188,2,165,4,201,1,240,18,201,255
  111. 1110 [131] 240,3,76,145,196,165,169,208,2,198,170,198,169,76,100,196,230,169
  112. 1120 [131] 208,2,230,170,160,0,177,169,201,32,208,3,76,126,196,201,102,240
  113. 1130 [131] 3,76,137,196,169,1,141,132,3,76,229,196,165,169,133,167,165,170
  114. 1140 [131] 133,168,76,229,196,165,167,133,169,165,168,133,170,165,5,201,1,240
  115. 1150 [131] 23,201,255,240,3,76,229,196,56,165,169,233,40,133,169,165,170,233
  116. 1160 [131] 0,133,170,76,187,196,24,165,169,105,40,133,169,165,170,105,0,133
  117. 1170 [131] 170,160,0,177,169,201,32,208,3,76,221,196,201,102,208,8,169,1
  118. 1180 [131] 141,132,3,76,229,196,165,167,133,169,165,168,133,170,76,229,196,165
  119. 1190 [131] 170,133,168,165,169,133,167,160,0,169,81,145,167,165,168,72,165,167
  120. 1200 [131] 72,24,165,167,105,0,133,167,165,168,105,212,133,168
  121. 1210 [131] 169,1,145,167,104,133,167,104,133,168,76,49,234,70
  122. 1220 [131] 70,68,66,64,62,60,58,56,54,52,50,48,46,44,42,40,38
  123. 1230 [131] 56,56,144,254,58,56,40,108,28,16,56,124,254,254,124,56
  124. 1240 [131] 215,254,124,255,255,223,147,161,255,