home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GO.SDA / GO (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  15.7 KB  |  587 lines
  1. 1 V=53248:POKEV+21,3:POKE2042,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT:GOTO322
  2. 2 DIM BD(20,20),MV(600),A1(100,2),T1(100,2),W(600)
  3. 3 POKE53280,9:POKE53281,8:PRINT"[147]"
  4. 4 FOR I=1TO600:MV(I)=0:NEXT:MM(1)=0:MM(2)=0:CP(1)=0:CP(2)=0:TX=0:FF=0
  5. 5 FORI=1TO19:FORJ=1TO19:BD(I,J)=0:NEXT:NEXT
  6. 6 POKE53280,9:POKE53281,8:PRINT"[147]":N3=0
  7. 7 PRINT"    ABCDEFGHJKLMNOPQRST"
  8. 8 PRINT"    [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  9. 9 FORI=1TO17:PRINT"    [171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]":NEXT
  10. 10 PRINT"    [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]":PRINT"   ABCDEFGHJKLMNOPQRST"
  11. 11 FORI=1TO10:PRINT20-I;:PRINT"";20-I:NEXT
  12. 12 FORI=1TO9:PRINT" ";10-I;:PRINT"";10-I:NEXT
  13. 13 PRINT"[219][219][219]"
  14. 14 PRINT"[219][219][219]"
  15. 15 PRINT"[219][219][219]"
  16. 16 PRINT"GO"
  17. 17 PRINT" < SPACE > "
  18. 18 PRINT" REMOVES STONE"
  19. 19 IFMV(1)<>0THEN38
  20. 20 PRINT"[144]NEW GAME?"
  21. 21 PRINT"[144]  (Y/N)  "
  22. 22 GETA$:IFA$=""THEN22
  23. 23 IFA$="N"THEN157
  24. 24 IFA$="Y"THEN384
  25. 25 GOTO22
  26. 26 PRINT"[144]HANDICAP?"
  27. 27 PRINT"[144]  (Y/N)  "
  28. 28 GETA$:IFA$=""THEN28
  29. 29 IFA$="N"THENH=-1:GOTO37
  30. 30 IFA$="Y"THEN32
  31. 31 GOTO28
  32. 32 PRINT"[144]HOW MANY "
  33. 33 PRINT"[144] STONES? "
  34. 34 PRINT"[144] (1-17)  "
  35. 35 PRINT"  ";
  36. 36 INPUTH
  37. 37 MV(1)=H:GOTO39
  38. 38 H=MV(1)
  39. 39 IFH<18ANDH>0THENBD(16,16)=1:PRINT"[144][209]"
  40. 40 IFH>1THENBD(4,4)=1:PRINT"[144][209]"
  41. 41 IFH>2THENBD(16,4)=1:PRINT"[144][209]"
  42. 42 IFH>3THENBD(4,16)=1:PRINT"[144][209]"
  43. 43 IFH=5THENBD(10,10)=1:PRINT"[144][209]"
  44. 44 IFH>5THENBD(4,10)=1:PRINT"[144][209]"
  45. 45 IFH>5THENBD(16,10)=1:PRINT"[144][209]"
  46. 46 IFH=7THENBD(10,10)=1:PRINT"[144][209]"
  47. 47 IFH>7THENBD(10,16)=1:PRINT"[144][209]"
  48. 48 IFH>7THENBD(10,4)=1:PRINT"[144][209]"
  49. 49 IFH>8THENBD(10,10)=1:PRINT"[144][209]"
  50. 50 IFH>9THENBD(17,17)=1:PRINT"[144][209]"
  51. 51 IFH>10THENBD(3,3)=1:PRINT"[144][209]"
  52. 52 IFH>11THENBD(17,3)=1:PRINT"[144][209]"
  53. 53 IFH>12THENBD(3,17)=1:PRINT"[144][209]"
  54. 54 IFH>13THENBD(13,13)=1:PRINT"[144][209]"
  55. 55 IFH>14THENBD(7,7)=1:PRINT"[144][209]"
  56. 56 IFH>15THENBD(13,7)=1:PRINT"[144][209]"
  57. 57 IFH>16THENBD(7,13)=1:PRINT"[144][209]"
  58. 58 PRINT""
  59. 59 FORI=1TO15:PRINT"            ":NEXT
  60. 60 T=2:GOSUB400
  61. 61 IFH=-1THEN242
  62. 62 PRINT"";
  63. 63 IFMV(T)<362ANDXZ=0THENN3=N3+1
  64. 64 IFMV(T)=0ANDFF=1THEN202
  65. 65 PRINT"MOVE:";N3
  66. 66 PRINT"";
  67. 67 IFT/2=INT(T/2)THENPRINT"WHITE MOVE":X=2:GOTO69
  68. 68 PRINT"[144]BLACK MOVE":X=1
  69. 69 IFMV(T)<>0THEN101
  70. 70 IFNJ>0THEN520
  71. 71 PRINT"COLUMN?";:TZ=0:GETA$:IFA$=""THEN71
  72. 72 IFA$="[140]"THEN474
  73. 73 IFA$="[139]"THEN405
  74. 74 IFA$="[133]"THEN121
  75. 75 IFA$="[134]"THEN157
  76. 76 IFA$="[135]"ORA$="[138]"THEN188
  77. 77 IFA$="[137]"THEN3
  78. 78 IFA$=" "THENXZ=1-XZ:GOTO233
  79. 79 IFA$="_"THENRV=0:GOTO6
  80. 80 IFA$="[136]"THEN242
  81. 81 IFASC(A$)<65ORASC(A$)>84THEN71
  82. 82 IFA$="I"THEN71
  83. 83 PRINTA$:IFASC(A$)<73THENC=ASC(A$)-64:GOTO85
  84. 84 C=ASC(A$)-65
  85. 85 PRINT"ROW";:INPUTR
  86. 86 IFBD(C,R)=0ORXZ=1THEN90
  87. 87 PRINT"INVALID MOVE":N3=N3-1:FORN=1TO1000:NEXT
  88. 88 PRINT""
  89. 89 FORI=1TO6:PRINT"             ":NEXT:GOTO62
  90. 90 PRINT""
  91. 91 FORI=0TO19-R:PRINT:NEXT:PRINT"";
  92. 92 FORI=1TOC:PRINT"";:NEXT
  93. 93 IFXZ=0THENPRINT"[209]"
  94. 94 IFXZ=1THENPRINT"[219]":BC=C:BR=R:CP(BD(C,R))=CP(BD(C,R))+1:GOSUB237:BD(C,R)=0
  95. 95 PRINT""
  96. 96 FORI=1TO8:PRINT"             ":NEXT
  97. 97 MV(T)=361*XZ+19*(C-1)+R
  98. 98 IFXZ=0THENBD(C,R)=X
  99. 99 IFTZ=0THEN245
  100. 100 XZ=0:T=T+1:GOTO62
  101. 101 XZ=0
  102. 102 IFMV(T)=888THENT=T+1:GOTO62
  103. 103 IFMV(T)=999THEN474
  104. 104 IFMV(T)=0THENRV=0:GOTO62
  105. 105 IFMV(T)>361THENXZ=1:MV(T)=MV(T)-361
  106. 106 C=INT((MV(T)-1)/19)+1
  107. 107 R=MV(T)-19*INT((MV(T)-1)/19)
  108. 108 IFXZ=1THEN119
  109. 109 IFRV=1THENFORI=1TOFG:NEXT:GOTO114
  110. 110 GETA$:IFA$=""THEN110
  111. 111 IFA$="[139]"THEN405
  112. 112 IFA$="[134]"THENRV=1:FG=1
  113. 113 IFA$="[135]"THENRV=1:FG=6000
  114. 114 GETB$
  115. 115 IFB$="[139]"THEN405
  116. 116 IFB$="[134]"THENRV=1:FG=1
  117. 117 IFB$="[135]"THENRV=1:FG=6000
  118. 118 IFB$=" "THENRV=0
  119. 119 PRINT"":TZ=1
  120. 120 GOTO90
  121. 121 PRINT""
  122. 122 FORI=1TO7:PRINT"             ":NEXT
  123. 123 OPEN2,8,2,"@0:G."+AA$+",S,W"
  124. 124 B$=CHR$(13)
  125. 125 PRINT#2,T,B$
  126. 126 FORI=1TOT
  127. 127 PRINT#2,MV(I),B$
  128. 128 NEXT
  129. 129 PRINT#2,FF,B$
  130. 130 PRINT#2,CP(1),B$
  131. 131 PRINT#2,CP(2),B$
  132. 132 PRINT#2,MM(1),B$
  133. 133 PRINT#2,MM(2),B$
  134. 134 PRINT#2,BN$,B$
  135. 135 PRINT#2,WN$,B$
  136. 136 PRINT#2,TD$,B$:PRINT#2,NJ,B$
  137. 137 CLOSE2
  138. 138 IFMV(T)=999THEN495
  139. 139 PRINT""
  140. 140 FORI=1TO7:PRINT"             ":NEXT
  141. 141 IFFF=1THEN3
  142. 142 GOTO66
  143. 143 POKE53281,1:POKE53280,1:PRINT"[147]":PRINTCHR$(14)
  144. 144 PRINT"[201]F YOU HAVE RECEIVED A [198][210][197][197] COPY OF THIS"
  145. 145 PRINT"PROGRAM FROM A FRIEND OR OTHER SOURCE,"
  146. 146 PRINT"PLEASE SEND A DONATION OF $10.00 TO:"
  147. 147 PRINT"          [208]ETER [193]. [210]UDMAN   "
  148. 148 PRINT"          3745 [215]OODVALE [210]OAD"
  149. 149 PRINT"          [194]IRMINGHAM, [193][204] 35223"
  150. 150 PRINT"[201]'M SURE YOU'LL AGREE THAT A $10.00 "
  151. 151 PRINT"DONATION IS A SMALL COMPENSATION FOR"
  152. 152 PRINT"THE TIME AND EFFORT WHICH [201]'VE PUT IN"
  153. 153 PRINT"TO DEVELOP THIS PROGRAM."
  154. 154 PRINT"                    [212]HANK YOU."
  155. 155 PRINT"                    [208]ETER [193]. [210]UDMAN";
  156. 156 GOTO166
  157. 157 PRINT""
  158. 158 FORI=1TO15:PRINT"             ":NEXT
  159. 159 PRINT"[144]"
  160. 160 PRINT"   LOAD  "
  161. 161 PRINT" FILE NAME  "
  162. 162 PRINT" ";:INPUTAA$
  163. 163 PRINT" LOADING "
  164. 164 PRINT" "AA$
  165. 165 GOTO143
  166. 166 REM PETER A RUDMAN
  167. 167 OPEN3,8,3,"@0:G."+AA$+",S,R"
  168. 168 REM PETER A RUDMAN
  169. 169 INPUT#3,TM
  170. 170 FORI=1TOTM
  171. 171 INPUT#3,MV(I)
  172. 172 NEXT
  173. 173 INPUT#3,FF
  174. 174 INPUT#3,CP(1)
  175. 175 INPUT#3,CP(2)
  176. 176 INPUT#3,MM(1)
  177. 177 INPUT#3,MM(2)
  178. 178 INPUT#3,BN$
  179. 179 INPUT#3,WN$
  180. 180 INPUT#3,TD$:INPUT#3,NJ
  181. 181 CLOSE3
  182. 182 RV=0:KJ(1)=CP(1):KJ(2)=CP(2)
  183. 183 BN$=LEFT$(BN$,10)
  184. 184 WN$=LEFT$(WN$,10)
  185. 185 TD$=LEFT$(TD$,12)
  186. 186 PRINTCHR$(142)
  187. 187 GOTO6
  188. 188 IFA$="[138]"THEN192
  189. 189 IFA$="[139]"THENFG=500:GOTO191
  190. 190 FG=2000
  191. 191 T=1:RV=1:GOTO6
  192. 192 PRINT""
  193. 193 FORI=1TO19
  194. 194 PRINT"             "
  195. 195 NEXT
  196. 196 FORI=1TO19
  197. 197 FORJ=1TO19
  198. 198 IFBD(I,J)=0THEN223
  199. 199 REM
  200. 200 NEXT
  201. 201 NEXT
  202. 202 PRINT""
  203. 203 FORI=1TO19:PRINT"             ":NEXT
  204. 204 FF=FF+1
  205. 205 PRINT"  WHITE   ";
  206. 206 PRINT"SPACES HELD";
  207. 207 PRINT"";MM(2)
  208. 208 PRINT"STONES LOST";
  209. 209 PRINT"";CP(2)-KJ(2)
  210. 210 PRINT"NET SCORE  ";
  211. 211 PRINT"";MM(2)-CP(2)+KJ(2)
  212. 212 PRINT"[144]   BLACK   ";
  213. 213 PRINT"SPACES HELD";
  214. 214 PRINT"";MM(1)
  215. 215 PRINT"STONES LOST";
  216. 216 PRINT"";CP(1)-KJ(1)
  217. 217 PRINT"NET SCORE  ";
  218. 218 PRINT"";MM(1)-CP(1)+KJ(1)
  219. 219 IFFF<>1THEN495
  220. 220 GOTO123
  221. 221 GETC$:IFC$=""THEN221
  222. 222 GOTO71
  223. 223 II=I+1:IT=I
  224. 224 IFII=20THEN228
  225. 225 IFBD(II,J)=0THENII=II+1:GOTO224
  226. 226 IFBD(II,J)=1THENMM(1)=MM(1)+1:GOTO199
  227. 227 IFBD(II,J)=2THENMM(2)=MM(2)+1:GOTO199
  228. 228 II=IT-1
  229. 229 IFII=0THEN199
  230. 230 IFBD(II,J)=0THENII=II-1:GOTO229
  231. 231 IFBD(II,J)=1THENMM(1)=MM(1)+1:GOTO199
  232. 232 IFBD(II,J)=2THENMM(2)=MM(2)+1:GOTO199
  233. 233 PRINT"";
  234. 234 IFXZ=1THENPRINT"REMOVE";
  235. 235 IFXZ=0THENPRINT"      ";
  236. 236 GOTO66
  237. 237 PRINT"[144]";
  238. 238 IFBD(BC,BR)=2THENPRINT""
  239. 239 FORK=1TOCP(BD(BC,BR))-KJ(BD(BC,BR)):PRINT"";:NEXT
  240. 240 PRINT"[209]";
  241. 241 RETURN
  242. 242 MV(T)=888
  243. 243 T=T+1
  244. 244 GOTO62
  245. 245 PZ=1:KK=0
  246. 246 IFC=1THEN249
  247. 247 CC=C-1:RR=R
  248. 248 IFBD(CC,RR)=3-XTHEN264
  249. 249 PZ=2
  250. 250 IFR=19THEN253
  251. 251 CC=C:RR=R+1
  252. 252 IFBD(CC,RR)=3-XTHEN264
  253. 253 PZ=3
  254. 254 IFC=19THEN257
  255. 255 CC=C+1:RR=R
  256. 256 IFBD(CC,RR)=3-XTHEN264
  257. 257 PZ=4
  258. 258 IFR=1THEN261
  259. 259 CC=C:RR=R-1
  260. 260 IFBD(CC,RR)=3-XTHEN264
  261. 261 IFKK/2=INT(KK/2)THEN263
  262. 262 T=T+1:MV(T)=888
  263. 263 GOTO100
  264. 264 A2=0:T2=1:T1(1,1)=CC:T1(1,2)=RR
  265. 265 IFCC=1THEN274
  266. 266 N1=CC-1:N2=RR
  267. 267 IFBD(N1,N2)=0THEN321
  268. 268 IFBD(N1,N2)=XTHEN274
  269. 269 T3=1
  270. 270 IFT1(T3,1)=N1ANDT1(T3,2)=N2THEN274
  271. 271 IFT3<T2THENT3=T3+1:GOTO270
  272. 272 T2=T2+1
  273. 273 T1(T2,1)=N1:T1(T2,2)=N2
  274. 274 IFRR=19THEN283
  275. 275 N1=CC:N2=RR+1
  276. 276 IFBD(N1,N2)=0THEN321
  277. 277 IFBD(N1,N2)=XTHEN283
  278. 278 T3=1
  279. 279 IFT1(T3,1)=N1ANDT1(T3,2)=N2THEN283
  280. 280 IFT3<T2THENT3=T3+1:GOTO279
  281. 281 T2=T2+1
  282. 282 T1(T2,1)=N1:T1(T2,2)=N2
  283. 283 IFCC=19THEN292
  284. 284 N1=CC+1:N2=RR
  285. 285 IFBD(N1,N2)=0THEN321
  286. 286 IFBD(N1,N2)=XTHEN292
  287. 287 T3=1
  288. 288 IFT1(T3,1)=N1ANDT1(T3,2)=N2THEN292
  289. 289 IFT3<T2THENT3=T3+1:GOTO288
  290. 290 T2=T2+1
  291. 291 T1(T2,1)=N1:T1(T2,2)=N2
  292. 292 IFRR=1THEN301
  293. 293 N1=CC:N2=RR-1
  294. 294 IFBD(N1,N2)=0THEN321
  295. 295 IFBD(N1,N2)=XTHEN301
  296. 296 T3=1
  297. 297 IFT1(T3,1)=N1ANDT1(T3,2)=N2THEN301
  298. 298 IFT3<T2THENT3=T3+1:GOTO297
  299. 299 T2=T2+1
  300. 300 T1(T2,1)=N1:T1(T2,2)=N2
  301. 301 A2=A2+1
  302. 302 A1(A2,1)=CC:A1(A2,2)=RR
  303. 303 IFT2=A2THEN306
  304. 304 CC=T1(A2+1,1):RR=T1(A2+1,2)
  305. 305 GOTO265
  306. 306 XZ=1
  307. 307 TT=1
  308. 308 XC=A1(TT,1):XR=A1(TT,2)
  309. 309 BC=XC:BR=XR
  310. 310 PRINT""
  311. 311 FORI=0TO19-XR:PRINT:NEXT:PRINT"";
  312. 312 FORI=1TOXC:PRINT"";:NEXT
  313. 313 KK=KK+1
  314. 314 IFXZ=1THENPRINT"[219]":CP(3-X)=CP(3-X)+1:GOSUB237:BD(XC,XR)=0
  315. 315 T=T+1
  316. 316 MV(T)=361*XZ+19*(XC-1)+XR
  317. 317 IFTT=A2THEN319
  318. 318 TT=TT+1:GOTO308
  319. 319 PRINT""
  320. 320 FORI=1TO8:PRINT"             ":NEXT
  321. 321 ONPZGOTO249,253,257,261
  322. 322 POKE53280,12:POKE53281,12:PRINT"[147]";CHR$(14)
  323. 323 PRINT"   [144][199][207]      [199][207]      [144][199][207]      [199][207]      [144][199][207]"
  324. 324 PRINT"[151]    [212]HE [213]LTIMATE [211]TRATEGY GAME FROM THE"
  325. 325 PRINT"[207]RIENT.  [193]LTHOUGH THE RULES ARE SIMPLE,"
  326. 326 PRINT"[199][207] PROVIDES FOR STRATEGY THAT IS EVERY"
  327. 327 PRINT"BIT AS CHALLENGING AS [207]CCIDENTAL [195]HESS."
  328. 328 PRINT"[194]UT UNLIKE [215]ESTERN [195]HESS, WHERE AN EARLY"
  329. 329 PRINT"CAPTURE CAN USUALLY DECIDE THE GAME, THE"
  330. 330 PRINT"ADVANTAGE IN [199][207] OFTEN CHANGES SEVERAL"
  331. 331 PRINT"TIMES DURING A SINGLE GAME.  [201] HOPE"
  332. 332 PRINT"THAT YOU ENJOY PLAYING [199][207]."
  333. 333 PRINT"   [144][199][207]      [199][207]      [144][199][207]      [199][207]      [144][199][207]"
  334. 334 GETA$:IFA$=""THEN334
  335. 335 PRINT"[147]";
  336. 336 PRINT"              [210][213][204][197][211][160]OF [199][207]"
  337. 337 PRINT"[151]1. [212]HE OBJECT OF [199][207] IS TO CONQUER THE"
  338. 338 PRINT"   MOST OPEN TERRITORY, WHILE LOSING"
  339. 339 PRINT"   THE FEWEST STONES."
  340. 340 PRINT"2. [208]LAYERS ALTERNATE TURNS."
  341. 341 PRINT"3. [207]NCE A STONE IS PLAYED, IT IS NEVER"
  342. 342 PRINT"   MOVED."
  343. 343 PRINT"4. [193] STONE (OR GROUP OF STONES) IS CAP-"
  344. 344 PRINT"   TURED IF THERE IS NO OPEN SPACE TO"
  345. 345 PRINT"   PLAY ON IMMEDIATELY ABOVE, BELOW, "
  346. 346 PRINT"   OR BESIDE THE STONE (OR STONES) IN"
  347. 347 PRINT"   QUESTION."
  348. 348 PRINT"5. [215]HEN A STONE (OR GROUP OF STONES) IS"
  349. 349 PRINT"   CAPTURED, IT IS IMMEDIATELY REMOVED"
  350. 350 PRINT"   FROM THE BOARD.";
  351. 351 GETA$:IFA$=""THEN351
  352. 352 PRINT"[147][144]";
  353. 353 PRINT"              [210][213][204][197][211][160]OF [199][207]"
  354. 354 PRINT"[151]6. [211]TONES MAY BE ABANDONED AS DEAD   "
  355. 355 PRINT"   WITHOUT ACTUALLY BEING CAPTURED."
  356. 356 PRINT"7. [193] STONE MAY [206][207][212] BE TAKEN IMMEDIATELY"
  357. 357 PRINT"   AFTER IT HAS TAKEN A SINGLE STONE."
  358. 358 PRINT"8. [212]HE GAME IS OVER WHEN THE OPPOSING"
  359. 359 PRINT"   BORDERS ARE IN ABSOLUTE CONTACT."
  360. 360 PRINT"   [212]HEN THE DEAD STONES ARE REMOVED "
  361. 361 PRINT"   FROM THE BOARD (MANUALLY)."
  362. 362 PRINT"9. [212]HE PERSON HOLDING THE MOST OPEN"
  363. 363 PRINT"   SPACE, AFTER SUBTRACTING CAPTURED"
  364. 364 PRINT"   STONES, IS THE WINNER."
  365. 365 GETA$:IFA$=""THEN365
  366. 366 PRINT"[147][144]";
  367. 367 PRINT"          [195][207][205][208][213][212][197][210][160][201][206][211][212][210][213][195][212][201][207][206][211]"
  368. 368 PRINT"    [144][198]1[146]    [151][211]AVE [199]AME"
  369. 369 PRINT"    [144][198]2[146]    [151][211]TART [206]EW [199]AME"
  370. 370 PRINT"    [144][198]3[146]    [151][204]IGHTNING [210]EPLAY OF [199]AME"
  371. 371 PRINT"    [144][198]4[146]    [151][197]ND [199]AME [210]ESULTS"
  372. 372 PRINT"    [144][198]5[146]    [151][193]UTOMATIC [210]EPLAY ([211]LOW)"
  373. 373 PRINT"    [144][198]6[146]    [151][204]IST [199]AME TO [208]RINTER    "
  374. 374 PRINT"    [144][198]7[146]    [151][211]WITCH [208]LAYERS [212]URN     "
  375. 375 PRINT"    [144][198]8[146]    [151][210]ESIGN [198]ROM [199]AME        "
  376. 376 PRINT"    [144]_     [151][199]O TO [211]TART OF [211]AME [199]AME"
  377. 377 PRINT" [144]<SPACE>  [151][210]EMOVE [211]TONE OR [195]ANCEL [210]EMOVE"
  378. 378 PRINT"[144]<ANY KEY> [151][208]LAY [206]EXT [205]OVE OF [199]AME    ";
  379. 379 GETA$:IFA$=""THEN379
  380. 380 PRINTCHR$(142)
  381. 381 GOTO2
  382. 382 GETD$:IFD$=""THEN382
  383. 383 RETURN
  384. 384 PRINT"[144]WHO PLAYS"
  385. 385 PRINT"[144]BLACK    "
  386. 386 INPUT"";BN$
  387. 387 PRINT"WHITE    "
  388. 388 INPUT"";WN$
  389. 389 PRINT"DATE PLAYED"
  390. 390 INPUT"";TD$
  391. 391 PRINT""
  392. 392 FORI=1TO15:PRINT"             ":NEXT
  393. 393 PRINT"[144]"
  394. 394 PRINT"   SAVE  "
  395. 395 PRINT" FILE NAME  "
  396. 396 PRINT" ";:INPUTAA$
  397. 397 PRINT""
  398. 398 FORI=1TO15:PRINT"             ":NEXT
  399. 399 GOTO500
  400. 400 PRINT"";TD$
  401. 401 PRINT"[144][209] ";BN$
  402. 402 PRINT"VS."
  403. 403 PRINT"[209] ";WN$
  404. 404 RETURN
  405. 405 J=0
  406. 406 PRINT"";
  407. 407 PRINT"PRINT GAME"
  408. 408 FORI=2TOTM
  409. 409 IFMV(I)=999THEN414
  410. 410 IFMV(I)=888THEN416
  411. 411 IFMV(I)>380THENI=I+1:GOTO410
  412. 412 IFMV(I)=0THEN416
  413. 413 IFMV(I)>380THEN416
  414. 414 J=J+1
  415. 415 W(J)=MV(I)
  416. 416 IFMV(I+1)=0THENJ=J+1:W(J)=MV(I):I=TM
  417. 417 NEXT
  418. 418 OPEN4,4:PRINT#4
  419. 419 PRINT#4,CHR$(16)"36";AA$:PRINT#4
  420. 420 PRINT#4,"BLACK: ";BN$;CHR$(16)"20SPACE HELD:";MM(1);
  421. 421 PRINT#4,CHR$(16)"37STONES LOST:";KJ(1)
  422. 422 PRINT#4,"WHITE: ";WN$;CHR$(16)"20SPACE HELD:";MM(2);
  423. 423 PRINT#4,CHR$(16)"37STONES LOST:";KJ(2)
  424. 424 PRINT#4,"DATE : ";TD$
  425. 425 Q=MV(1):IFQ=-1THENQ=0
  426. 426 PRINT#4,"HANDICAP: ";Q
  427. 427 PRINT#4,
  428. 431 PRINT#4,
  429. 432 FORR=1TOINT((J-1)/6)+1
  430. 433 PRINT#4,CHR$(16)"01";2*R-1;
  431. 434 WW=2*R-1
  432. 435 Q=W(WW)
  433. 436 IFW(WW)>152THENQ=W(WW)+19
  434. 437 PRINT#4,CHR$(16)"06";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19);" ";
  435. 438 PRINT#4,CHR$(16)"12";2*R;
  436. 439 WW=2*R
  437. 440 Q=W(WW)
  438. 441 IFW(WW)>152THENQ=W(WW)+19
  439. 442 PRINT#4,CHR$(16)"17";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19);" ";
  440. 443 PRINT#4,CHR$(16)"28";2*(INT((J-1)/6)+1)+2*R-1;
  441. 444 WW=2*(INT((J-1)/6)+1)+2*R-1
  442. 445 Q=W(WW)
  443. 446 IFW(WW)>152THENQ=W(WW)+19
  444. 447 PRINT#4,CHR$(16)"33";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19);" ";
  445. 448 PRINT#4,CHR$(16)"39";2*(INT((J-1)/6)+1)+2*R;
  446. 449 WW=2*(INT((J-1)/6)+1)+2*R
  447. 450 Q=W(WW)
  448. 451 IFW(WW)>152THENQ=W(WW)+19
  449. 452 PRINT#4,CHR$(16)"44";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19);" ";
  450. 453 WW=4*(INT((J-1)/6)+1)+2*R-1
  451. 454 IFWW+1>JTHENPRINT#4,:GOTO471
  452. 455 PRINT#4,CHR$(16)"55";4*(INT((J-1)/6)+1)+2*R-1;
  453. 456 WW=4*(INT((J-1)/6)+1)+2*R-1
  454. 457 Q=W(WW)
  455. 458 IFW(WW)>152THENQ=W(WW)+19
  456. 459 IFW(WW)=999THENPRINT#4,CHR$(16)"60RESIGN":GOTO471
  457. 460 IFQ>380THEN465
  458. 461 PRINT#4,CHR$(16)"60";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19);" ";
  459. 462 WW=4*(INT((J-1)/6)+1)+2*R
  460. 463 IFWW+1>JTHENPRINT#4,:GOTO471
  461. 464 PRINT#4,CHR$(16)"66";4*(INT((J-1)/6)+1)+2*R;
  462. 465 WW=4*(INT((J-1)/6)+1)+2*R
  463. 466 Q=W(WW)
  464. 467 IFW(WW)>152THENQ=W(WW)+19
  465. 468 IFW(WW)=999THENPRINT#4,CHR$(16)"71RESIGN"
  466. 469 IFQ>380THEN471
  467. 470 PRINT#4,CHR$(16)"71";CHR$((INT(Q-1)/19)+65);W(WW)-19*INT((W(WW)-1)/19)
  468. 471 NEXT
  469. 472 PRINT:PRINT#4:CLOSE4
  470. 473 GOTO71
  471. 474 PRINT""
  472. 475 PRINT"RESIGNS"
  473. 476 IFMV(T)=999THEN495
  474. 477 MV(T)=999
  475. 478 T=T-1
  476. 479 OPEN2,8,2,"@0:G."+AA$+"+,S,W"
  477. 480 B$=CHR$(13)
  478. 481 PRINT#2,T,B$
  479. 482 FORI=1TOT
  480. 483 PRINT#2,MV(I),B$
  481. 484 NEXT
  482. 485 PRINT#2,FF,B$
  483. 486 PRINT#2,CP(1),B$
  484. 487 PRINT#2,CP(2),B$
  485. 488 PRINT#2,MM(1),B$
  486. 489 PRINT#2,MM(2),B$
  487. 490 PRINT#2,BN$,B$
  488. 491 PRINT#2,WN$,B$
  489. 492 PRINT#2,TD$,B$,0,B$
  490. 493 CLOSE2
  491. 494 T=T+1:GOTO123
  492. 495 GETA$:IFA$=""THEN495
  493. 496 PRINT"[147]"
  494. 497 GOTO4
  495. 500 PRINT""
  496. 501 FORI=1TO15:PRINT"             ":NEXT
  497. 502 PRINT"[144]"
  498. 503 PRINT"  NUMBER "
  499. 504 PRINT"    OF     "
  500. 505 PRINT" JOYSTICKS  "
  501. 506 PRINT" (0,1,2)";:INPUTNJ
  502. 507 PRINT"":XS=23:YS=134
  503. 508 FORI=1TO15:PRINT"             ":NEXT
  504. 509 IFNJ=0THEN519
  505. 510 POKEV+21,4:POKEV+41,0
  506. 511 POKEV+4,XS:POKEV+5,YS
  507. 512 PRINT"                         "
  508. 513 FORN=1TO19:PRINT"        ":NEXT
  509. 514 PRINT"                        "
  510. 519 GOTO26
  511. 520 REM FROM70
  512. 521 POKEV+41,X-1
  513. 522 IFNJ=2ANDX=2THENJV=PEEK(56321):GOTO600
  514. 523 JV=PEEK(56320)
  515. 524 IFJV=127THEN550
  516. 525 IFJV=126THENYS=YS-2
  517. 526 IFJV=125THENYS=YS+2
  518. 527 IFJV=123THENXS=XS-2
  519. 528 IFJV=119THENXS=XS+2
  520. 529 IFJV=122THENYS=YS-2:XS=XS-2
  521. 530 IFJV=121THENYS=YS+2:XS=XS-2
  522. 531 IFJV=117THENYS=YS+2:XS=XS+2
  523. 532 IFJV=118THENYS=YS-2:XS=XS+2
  524. 533 IFXS<23THENXS=23
  525. 534 IFXS>206THENXS=206
  526. 535 IFYS<48THENYS=48
  527. 536 IFYS>220THENYS=220
  528. 537 POKEV+4,XS:POKEV+5,YS
  529. 538 IFJV<112THEN570
  530. 540 GOTO522
  531. 550 GETA$
  532. 551 IFA$="[140]"THEN474
  533. 552 IFA$="[139]"THEN405
  534. 553 IFA$="[133]"THEN121
  535. 554 IFA$="[134]"THEN157
  536. 555 IFA$="[135]"ORA$="[138]"THEN188
  537. 556 IFA$="[137]"THEN3
  538. 557 IFA$=" "THENXZ=1-XZ:GOTO233
  539. 559 IFA$="[136]"THEN242
  540. 561 GOTO522
  541. 570 IF XS<37ORXS>188THEN522
  542. 571 IF YS<58ORYS>209THEN522
  543. 572 R=20-INT((YS-50)/8)
  544. 573 C=INT((XS-29)/8)
  545. 574 XS=(C*8)+33
  546. 575 YS=((20-R)*8)+54
  547. 584 POKEV+4,XS
  548. 585 POKEV+5,YS
  549. 595 GOTO86
  550. 600 IFJV=255THEN550
  551. 601 IFJV=254THENYS=YS-2
  552. 602 IFJV=253THENYS=YS+2
  553. 603 IFJV=251THENXS=XS-2
  554. 604 IFJV=247THENXS=XS+2
  555. 605 IFJV=250THENYS=YS-2:XS=XS-2
  556. 606 IFJV=249THENYS=YS+2:XS=XS-2
  557. 607 IFJV=245THENYS=YS+2:XS=XS+2
  558. 608 IFJV=246THENYS=YS-2:XS=XS+2
  559. 609 IFXS<23THENXS=23
  560. 610 IFXS>206THENXS=206
  561. 611 IFYS<48THENYS=48
  562. 612 IFYS>220THENYS=220
  563. 613 POKEV+4,XS:POKEV+5,YS
  564. 614 IFJV<240THEN570
  565. 615 GOTO550
  566. 900 DATA 0,0,0
  567. 901 DATA 0,0,0
  568. 902 DATA 0,0,0
  569. 903 DATA 0,0,0
  570. 904 DATA 0,0,0
  571. 905 DATA 0,0,0
  572. 906 DATA 0,0,0
  573. 907 DATA 0,0,0
  574. 908 DATA 0,0,0
  575. 909 DATA 0,0,0
  576. 910 DATA 0,0,248
  577. 911 DATA 0,1,172
  578. 912 DATA 0,3,38
  579. 913 DATA 0,6,35
  580. 914 DATA 0,4,33
  581. 915 DATA 0,7,255
  582. 916 DATA 0,4,33
  583. 917 DATA 0,6,35
  584. 918 DATA 0,3,38
  585. 919 DATA 0,1,172
  586. 920 DATA 0,0,248
  587.