home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 19 / 64er_Magazin_Sonderheft_19_19xx_Markt__Technik_de.d64 / minefield (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  6KB  |  225 lines
  1. 1 rem minefield
  2. 2 rem geschrieben von tr 2.10.86 fuer plus/4, c16 und c116
  3. 3 rem c64-version tr 8.3.87
  4. 5 dimf%(31,16):poke53280,6:poke53281,1:poke650,128:poke788,52
  5. 6 p(4)=.20:p(3)=.15:p(2)=.10:p(1)=.05
  6. 7 t$(1)=" [212]rainingmode [146]"
  7. 8 t$(0)="              "
  8. 10 printchr$(14)"[147][205][201][206][197][198][201][197][204][196]"
  9. 20 print"adapted for [195]64 by tr"
  10. 30 print"8.3.87"
  11. 50 print"[144][211]elect [204]evel:"
  12. 51 print"[192][192][192][192][192][192][192][192][192][192][192][192][192]"
  13. 59 print"(4) [211]uicide
  14. 60 [153]"(3) left$ard
  15. 61 print"(2) [205]edium
  16. 62 [153]"(1) valasy
  17. 63 print"([212]) [212]rainingmode"
  18. 64 print"([216]) [197]xit to [194]asic"
  19. 65 print"([195]) [195]reate new highscore-files
  20. 66 [141]1100
  21. 70 [161]k$:[139][197](k$)[177][178]1[175][197](k$)[179]5[167]80
  22. 71 [139]k$[178]"x"[167][151]650,0:[151]788,49:[158]2048
  23. 72 [139]k$[178]"t"[167]tr[178]1[171]tr
  24. 73 [153]""t$(tr)
  25. 74 [139]k$[178]"c"[167]3100
  26. 75 [137]70
  27. 80 [153]"mompls...":l[178][197](k$)
  28. 81 [159]1,8,15,"r:scores 1.mfd=scores 1.mfd":[132]1,a,b$,c,d:[160]1
  29. 82 [139]a[178]63[167]85
  30. 83 [153]"load(NULL)here are no highscore-files on this":[153]"disk!!!":[137]1440
  31. 85 am[178][181](p(l)[172]30[172]15):[153]am"on"
  32. 90 [129]i[178]1[164]am
  33. 100 x[178][181]([187](1)[172]30)[170]1
  34. 110 y[178][181]([187](1)[172]15)[170]1
  35. 115 [139]f%(x,y)[178]1[176](x[178]2[175]y[178]1)[176](x[178]30[175]y[178]14)[176](x[178]30[175]y[178]15)[176](x[178]1[175]y[178]1)[167]100
  36. 120 f%(x,y)[178]1:am[178]am[171]1:[153]am"cmd on":[130]
  37. 121 [129]x[178]0[164]31:f%(x,0)[178]2:f%(x,16)[178]2:[130]
  38. 122 [129]y[178]1[164]15:f%(0,y)[178]2:f%(31,y)[178]2:[130]
  39. 130 [153]"load"
  40. 140 px[178]1:py[178]1:f%(30,15)[178]3:f%(1,1)[178]3
  41. 150 [129]y[178]0[164]14:[151]1024[170]30[170]y[172]40,93:[130]
  42. 160 [129]x[178]0[164]39:[151]1024[170]x[170]15[172]40,64:[130]:[151]1024[170]30[170]15[172]40,113
  43. 161 [153]"(NULL)evel";
  44. 162 [153]l:[151]1024[170]29[170]14[172]40,88:[141]1100
  45. 163 [153]"(NULL)right$(NULL)valascright$val(NULL)str$"
  46. 164 [153]"by trstop"
  47. 165 [139]tr[178]1[167][141]1000
  48. 170 [141]2000:[151]1024[170](px[171]1)[170]40[172](py[171]1),az[170]176
  49. 180 [141]2200:[139]f%(px,py)[178]1[167]1300
  50. 185 [139]px[178]30[175]py[178]15[167]1500
  51. 186 [139]f%(px,py)[178]0[167]sc[178]sc[170]l:f%(px,py)[178]3
  52. 187 [139]tr[178]0[167][153]""sc
  53. 190 [141]2000:[151]1024[170](px[171]1)[170]40[172](py[171]1),az[170]176
  54. 200 [137]180
  55. 1000 [143] minen anzeigen
  56. 1005 [129]y[178]1[164]15:[129]x[178]1[164]30
  57. 1010 [139]f%(x,y)[178]1[167][151]1024[170](x[171]1)[170]40[172](y[171]1),42
  58. 1020 [130]x,y
  59. 1030 [139]tr[178]1[167][153]"((NULL)rainingmode)"
  60. 1040 [142]
  61. 1100 [143] tastenbelegung
  62. 1102 [153]"(NULL)eys:";
  63. 1104 [153]"cmdcmdcmdcmdcmdtantantantantan";
  64. 1110 [153]"cmdcmdcmdcmdcmd(NULL)  (NULL)  val";
  65. 1120 [153]"cmdcmdcmdcmdcmdcmdcmd   (NULL)   ";
  66. 1130 [153]"cmdcmdcmdcmdcmdcmdcmdatntantan(NULL)tantanstr$";
  67. 1140 [153]"cmdcmdcmdcmdcmdcmdcmd   (NULL)   ";
  68. 1150 [153]"cmdcmdcmdcmdcmdcmdcmd(NULL)  (NULL)  lenstop"
  69. 1200 [142]
  70. 1300 [143] auf mine getreten
  71. 1305 [153]"";
  72. 1310 [129]i[178]1[164]200
  73. 1315 [153]"onpeek (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) !close!close!"
  74. 1316 [153]"onpeek (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) !close!close!"
  75. 1320 [161]a$:[139]a$[178]""[167][130]
  76. 1334 [151]1024[170]px[171]1[170]40[172](py[171]1),170:[151]198,0
  77. 1335 [139]tr[178]1[167]1360
  78. 1340 [153]"left$ere are the rest of the mines."
  79. 1350 [141]1000:[151]1024[170]px[171]1[170]40[172](py[171]1),170
  80. 1360 [153]"(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)>                 "
  81. 1370 [161]k$:[139]k$[179][177][199](13)[167]1370
  82. 1420 [141]2400:[141]2500
  83. 1440 [153]"(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
  84. 1450 [161]k$:[139]k$[179][177][199](13)[167]1450
  85. 1460 [138]
  86. 1500 [143] gewonnen
  87. 1510 [153]"(NULL)ou made it!"
  88. 1552 [139]tr[178]1[167][141]2400:[137]1650
  89. 1553 [141]2700:sc[178]sc[170]bs
  90. 1554 [153]"    "
  91. 1555 [153]""sc
  92. 1561 [141]2400
  93. 1562 [129]i[178]1[164]10:[139]sc[179]hs(i)[167][130]:[137]1690
  94. 1563 [129]x[178]9[164]i[169][171]1:hs(x[170]1)[178]hs(x):hn$(x[170]1)[178]hn$(x):hd$(x[170]1)[178]hd$(x):[130]
  95. 1569 [153]"";
  96. 1570 [133]"(NULL)lease enter your name........cmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";hn$(i)
  97. 1575 [139][195](hn$(i))[177]8[167]1569
  98. 1576 [139][195](hn$(i))[179]8[167]hn$(i)[178]hn$(i)[170]".":[137]1576
  99. 1580 [133]"(NULL)lease enter date     00.00.0000cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";hd$(i)
  100. 1581 [139][195](hn$(i))[179]8[167]hn$(i)[178]hn$(i)[170]".":[137]1581
  101. 1585 [139][195](hd$(i))[179][177]10[167][153]"onon":[137]1580
  102. 1590 hs(i)[178]sc
  103. 1595 [141]2600
  104. 1600 [159]1,8,15,"s:scores"[170][196](l)[170]".mfd":[160]1
  105. 1610 [159]1,8,1,"scores"[170][196](l)[170]".mfd,p,w"
  106. 1620 [129]i[178]1[164]10:[141]1800
  107. 1630 [152]1,hx(i):[152]1,hy$(i):[152]1,hz$(i)
  108. 1640 [130]:[160]1
  109. 1650 [141]2500
  110. 1660 [153]"(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
  111. 1670 [161]k$:[139]k$[179][177][199](13)[167]1670
  112. 1680 [138]
  113. 1690 [141]2500
  114. 1700 [153]"(NULL)our (NULL)core is"sc
  115. 1710 [137]1660
  116. 1800 hx(i)[178]64[171]hs(i):hy$(i)[178]"":hz$(i)[178]""
  117. 1810 [129]n[178]1[164]8:hy$(i)[178]hy$(i)[170][199]([198]([202](hn$(i),n,1))[170]l[170]n):[130]
  118. 1820 [129]n[178]1[164]10:hz$(i)[178]hz$(i)[170][199]([198]([202](hd$(i),n,1))[170]l[170]n):[130]
  119. 1830 [142]
  120. 1900 hs(i)[178]64[171]hx(i):hn$(i)[178]"":hd$(i)[178]""
  121. 1910 [129]n[178]1[164]8:hn$(i)[178]hn$(i)[170][199]([198]([202](hy$(i),n,1))[171]l[171]n):[130]
  122. 1920 [129]n[178]1[164]10:hd$(i)[178]hd$(i)[170][199]([198]([202](hz$(i),n,1))[171]l[171]n):[130]
  123. 1930 [142]
  124. 2000 [143] berechne anzahl minen
  125. 2010 az[178]0
  126. 2020 [139]f%(px,py[171]1)[178]1[167]az[178]az[170]1
  127. 2030 [139]f%(px[170]1,py[171]1)[178]1[167]az[178]az[170]1
  128. 2040 [139]f%(px[170]1,py)[178]1[167]az[178]az[170]1
  129. 2050 [139]f%(px[170]1,py[170]1)[178]1[167]az[178]az[170]1
  130. 2060 [139]f%(px,py[170]1)[178]1[167]az[178]az[170]1
  131. 2070 [139]f%(px[171]1,py[170]1)[178]1[167]az[178]az[170]1
  132. 2080 [139]f%(px[171]1,py)[178]1[167]az[178]az[170]1
  133. 2090 [139]f%(px[171]1,py[171]1)[178]1[167]az[178]az[170]1
  134. 2100 [142]
  135. 2200 [143] steuerung
  136. 2210 [161]k$:[139]k$[178]""[167]2210
  137. 2215 [151]1024[170](px[171]1)[170]40[172](py[171]1),az[170]48
  138. 2220 [139]k$[178]"w"[175]py[177]1[167]py[178]py[171]1:[142]
  139. 2230 [139]k$[178]"e"[175]px[179]30[175]py[177]1[167]px[178]px[170]1:py[178]py[171]1:[142]
  140. 2240 [139]k$[178]"d"[175]px[179]30[167]px[178]px[170]1:[142]
  141. 2250 [139]k$[178]"c"[175]px[179]30[175]py[179]15[167]px[178]px[170]1:py[178]py[170]1:[142]
  142. 2260 [139]k$[178]"x"[175]py[179]15[167]py[178]py[170]1:[142]
  143. 2270 [139]k$[178]"z"[175]px[177]1[175]py[179]15[167]px[178]px[171]1:py[178]py[170]1:[142]
  144. 2280 [139]k$[178]"a"[175]px[177]1[167]px[178]px[171]1:[142]
  145. 2290 [139]k$[178]"q"[175]px[177]1[175]py[177]1[167]px[178]px[171]1:py[178]py[171]1:[142]
  146. 2291 [139]k$[178]"_"[167][141]2900:[137]2296
  147. 2292 [151]53280,0:[129]i[178]1[164]100:[130]:[151]53280,6
  148. 2296 [151]1024[170](px[171]1)[170]40[172](py[171]1),az[170]176
  149. 2300 [137]2210
  150. 2400 [143] highscores laden
  151. 2401 [153]"mompls...     "
  152. 2405 [141]2600
  153. 2410 [159]1,8,0,"scores"[170][196](l)[170]".mfd,p,r"
  154. 2420 [129]i[178]1[164]10:[132]1,hx(i):[141]2460:[141]1900
  155. 2450 [130]:[160]1:[142]
  156. 2460 hy$(i)[178]"":[129]n[178]1[164]8:[161]#1,a$:hy$(i)[178]hy$(i)[170]a$:[130]:[161]#1,a$
  157. 2470 hz$(i)[178]"":[129]n[178]1[164]10:[161]#1,a$:hz$(i)[178]hz$(i)[170]a$:[130]:[161]#1,a$:[142]
  158. 2500 [143] highscores anzeigen
  159. 2505 [153]"loadleft$ighscores (NULL)evel"l
  160. 2506 [153]"tantantantantantantantantantantantantantantantantantan"
  161. 2510 [129]i[178]1[164]10:[139]hs(i)[178]0[167]2530
  162. 2520 [153][163]5[171][195]([196](hs(i))))hs(i)" "hn$(i)"  "hd$(i)
  163. 2530 [130]:[142]
  164. 2600 [143] disk-check
  165. 2610 f$[178]"scores"[170][196](l)[170]".mfd"
  166. 2620 [159]1,8,15,"r:"[170]f$[170]"="[170]f$
  167. 2630 [132]1,a,b$,c,d:[160]1
  168. 2640 [139]a[178]63[167][142]
  169. 2641 [139]a[179][177]62[167][153]"loadstr$isk-error:"a;b$;c;d:[137]2681
  170. 2650 [153]"loadright$nsert str$isk with (NULL)corefiles!"
  171. 2660 [153]"(NULL)ress <(NULL)val(NULL)(NULL)(NULL)(NULL)>"
  172. 2670 [161]k$:[139]k$[179][177][199](13)[167]2670
  173. 2680 [137]2620
  174. 2681 [153]"lenheck drive and press <(NULL)val(NULL)(NULL)(NULL)(NULL)>!":[137]2670
  175. 2700 [143] bonus fuer eingekreiste minen
  176. 2710 bs[178]0:[129]y[178]1[164]15:[129]x[178]1[164]30
  177. 2720 [139]f%(x,y)[178]1[167]2740
  178. 2730 [130]x,y:[142]
  179. 2740 [139]f%(x[171]1,y[171]1)[178]0[167]2730
  180. 2750 [139]f%(x,y[171]1)[178]0[167]2730
  181. 2760 [139]f%(x[170]1,y[171]1)[178]0[167]2730
  182. 2770 [139]f%(x[170]1,y)[178]0[167]2730
  183. 2780 [139]f%(x[170]1,y[170]1)[178]0[167]2730
  184. 2790 [139]f%(x,y[170]1)[178]0[167]2730
  185. 2800 [139]f%(x[171]1,y[170]1)[178]0[167]2730
  186. 2810 [139]f%(x[171]1,y)[178]0[167]2730
  187. 2830 [151]1024[170](x[171]1)[170]40[172](y[171]1),42
  188. 2840 bs[178]bs[170]2[172]l
  189. 2850 [153]""bs:[137]2730
  190. 2900 [143] markieren
  191. 2910 mx[178]px:my[178]py
  192. 2920 p[178]1024[170](mx[171]1)[170]40[172](my[171]1):i[178][194](p):[151]p,171
  193. 2930 [161]k$:[139]k$[179][177]""[167]2940
  194. 2931 n[178]n[170]1:[139]n[178]10[167][151]p,i
  195. 2932 [139]n[178]20[167][151]p,171:n[178]0
  196. 2933 [137]2930
  197. 2940 [139]k$[178]"w"[175]my[177]1[167]my[178]my[171]1:[137]3050
  198. 2950 [139]k$[178]"e"[175]mx[179]30[175]my[177]1[167]mx[178]mx[170]1:my[178]my[171]1:[137]3050
  199. 2960 [139]k$[178]"d"[175]mx[179]30[167]mx[178]mx[170]1:[137]3050
  200. 2970 [139]k$[178]"c"[175]mx[179]30[175]my[179]15[167]mx[178]mx[170]1:my[178]my[170]1:[137]3050
  201. 2980 [139]k$[178]"x"[175]my[179]15[167]my[178]my[170]1:[137]3050
  202. 2990 [139]k$[178]"z"[175]mx[177]1[175]my[179]15[167]mx[178]mx[171]1:my[178]my[170]1:[137]3050
  203. 3000 [139]k$[178]"a"[175]mx[177]1[167]mx[178]mx[171]1:[137]3050
  204. 3010 [139]k$[178]"q"[175]mx[177]1[175]my[177]1[167]mx[178]mx[171]1:my[178]my[171]1:[137]3050
  205. 3020 [139]k$[178]"s"[167]3060
  206. 3030 [139]k$[178]"_"[167][151]p,i:[142]
  207. 3035 [151]53280,0:[129]n[178]1[164]100:[130]:[151]53280,6
  208. 3040 [137]2930
  209. 3050 [151]p,i:[137]2920
  210. 3060 [139]i[179][177]32[175]i[179][177]35[167]3035
  211. 3070 [139]i[178]35[167][151]p,32:[137]2920
  212. 3080 [151]p,35:[137]2920
  213. 3100 [143] neue highscore-files anlegen
  214. 3105 [153]"loadmompls..."
  215. 3110 [159]1,8,15,"r:scores 1.mfd=scores 1.mfd"
  216. 3120 [132]1,a,b$,c,d:[160]1:[139]a[178]62[167]3200
  217. 3130 [139]a[179][177]63[167][153]"str$isk-error:"a;b$;c;d:[137]1440
  218. 3140 [153]"left$ighscore-files already exist!"
  219. 3150 [137]1440
  220. 3200 [129]l[178]1[164]4
  221. 3210 [159]1,8,1,"scores"[170][196](l)[170]".mfd,p,w"
  222. 3220 [129]i[178]1[164]10:hs(i)[178]0:hn$(i)[178]"........":hd$(i)[178]"00.00.0000":[141]1800
  223. 3230 [152]1,hx(i):[152]1,hy$(i):[152]1,hz$(i)
  224. 3240 [130]:[160]1:[130]:[138]
  225.