home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh19.d64 / minefield (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.