home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / GO.SDA / AUTOPLAY (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  5.8 KB  |  176 lines
  1. 1 POKE53280,8:POKE53281,8:PRINT"[147][144]":RV=1:FG=2500:GC=1:PRINTCHR$(14):X=2
  2. 2 PRINT"     [212]HIS PROGRAM WILL CONTINUALLY"
  3. 3 PRINT"REPLAY ALL OF THE GAMES ON THIS DISK."
  4. 4 PRINT"[212]HE GAMES AVAILABLE ARE NUMBERED 1-10."
  5. 5 PRINT"[215]HAT NUMBER SHALL WE START WITH";
  6. 6 INPUTGC
  7. 7 IFGC>99THENGC=GC-100:GOTO7
  8. 8 DIM BD(20,20),MV(600),A1(100,2),T1(100,2),W(600)
  9. 9 GOTO118
  10. 10 FOR I=1TO600:MV(I)=0:NEXT:MM(1)=0:MM(2)=0:CP(1)=0:CP(2)=0:TX=0:FF=0
  11. 11 FORI=1TO19:FORJ=1TO19:BD(I,J)=0:NEXT:NEXT
  12. 12 POKE53280,11:POKE53281,8:PRINT"[147]":N3=0
  13. 13 PRINT"    ABCDEFGHJKLMNOPQRST"
  14. 14 PRINT"    [176][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][178][174]"
  15. 15 FORI=1TO17:PRINT"    [171][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][219][179]":NEXT
  16. 16 PRINT"    [173][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][177][189]":PRINT"   ABCDEFGHJKLMNOPQRST"
  17. 17 FORI=1TO10:PRINT20-I;:PRINT"";20-I:NEXT
  18. 18 FORI=1TO9:PRINT" ";10-I;:PRINT"";10-I:NEXT
  19. 19 PRINT"[219][219][219]"
  20. 20 PRINT"[219][219][219]"
  21. 21 PRINT"[219][219][219]"
  22. 22 PRINT"GO: AUTOPLAY"
  23. 23 PRINT""
  24. 24 PRINT"GAME";NS$;NF$
  25. 38 H=MV(1)
  26. 39 IFH<18ANDH>0THENBD(16,16)=1:PRINT"[144][209]"
  27. 40 IFH>1THENBD(4,4)=1:PRINT"[144][209]"
  28. 41 IFH>2THENBD(16,4)=1:PRINT"[144][209]"
  29. 42 IFH>3THENBD(4,16)=1:PRINT"[144][209]"
  30. 43 IFH=5THENBD(10,10)=1:PRINT"[144][209]"
  31. 44 IFH>5THENBD(4,10)=1:PRINT"[144][209]"
  32. 45 IFH>5THENBD(16,10)=1:PRINT"[144][209]"
  33. 46 IFH=7THENBD(10,10)=1:PRINT"[144][209]"
  34. 47 IFH>7THENBD(10,16)=1:PRINT"[144][209]"
  35. 48 IFH>7THENBD(10,4)=1:PRINT"[144][209]"
  36. 49 IFH>8THENBD(10,10)=1:PRINT"[144][209]"
  37. 50 IFH>9THENBD(17,17)=1:PRINT"[144][209]"
  38. 51 IFH>10THENBD(3,3)=1:PRINT"[144][209]"
  39. 52 IFH>11THENBD(17,3)=1:PRINT"[144][209]"
  40. 53 IFH>12THENBD(3,17)=1:PRINT"[144][209]"
  41. 54 IFH>13THENBD(13,13)=1:PRINT"[144][209]"
  42. 55 IFH>14THENBD(7,7)=1:PRINT"[144][209]"
  43. 56 IFH>15THENBD(13,7)=1:PRINT"[144][209]"
  44. 57 IFH>16THENBD(7,13)=1:PRINT"[144][209]"
  45. 58 PRINT""
  46. 59 FORI=1TO15:PRINT"            ":NEXT
  47. 60 PRINT"":RV=1
  48. 61 FORI=1TO15:PRINT"            ":NEXT
  49. 62 PRINT"":RV=1
  50. 63 FORI=1TO6:PRINT"            ":NEXT
  51. 64 PRINT"F1[146] LIGHTNING"
  52. 65 PRINT"F3[146] FAST     "
  53. 66 PRINT"F5[146] SLOW     "
  54. 67 PRINT"F7[146] ON DEMAND"
  55. 68 X=2
  56. 69 T=2:GOSUB177
  57. 70 IFMV(1)>0THENX=1
  58. 71 PRINT"";:IFMV(T)=999THENN3=N3+1
  59. 72 IFMV(T)<362ANDXZ=0THENN3=N3+1
  60. 73 IFMV(T)=0ANDFF=1THEN154
  61. 74 IFX=2THENPRINT"[144]";
  62. 75 IFX=1THENPRINT"";
  63. 76 PRINT"MOVE:";N3
  64. 77 PRINT"";
  65. 78 IFT/2=INT(T/2)THENPRINT"WHITE MOVE":X=2:GOTO80
  66. 79 PRINT"[144]BLACK MOVE":X=1
  67. 80 IFMV(T)<>0THEN92
  68. 81 PRINT""
  69. 82 FORI=0TO19-R:PRINT:NEXT:PRINT"";
  70. 83 FORI=1TOC:PRINT"";:NEXT
  71. 84 IFXZ=0THENPRINT"[209]"
  72. 85 IFXZ=1THENPRINT"[219]":BC=C:BR=R:CP(BD(C,R))=CP(BD(C,R))+1:GOSUB172:BD(C,R)=0
  73. 86 PRINT""
  74. 87 FORI=1TO3:PRINT"             ":NEXT
  75. 88 MV(T)=361*XZ+19*(C-1)+R
  76. 89 IFXZ=0THENBD(C,R)=X
  77. 90 IFTZ=0THEN&245
  78. 91 XZ=0:T=T+1:GOTO71
  79. 92 XZ=0
  80. 93 IFMV(T)=888THENT=T+1:GOTO71
  81. 94 IFMV(T)=999THEN182
  82. 95 IFMV(T)=0THENRV=0:GOTO71
  83. 96 IFMV(T)>361THENXZ=1:MV(T)=MV(T)-361
  84. 97 C=INT((MV(T)-1)/19)+1
  85. 98 R=MV(T)-19*INT((MV(T)-1)/19)
  86. 99 IFXZ=1THEN116
  87. 100 IFRV=1THENFORI=1TOFG:NEXT:GOTO111
  88. 101 IFRV<>0GOTO111
  89. 102 GETC$:IFC$=""THEN102
  90. 103 IFC$="[133]"THENRV=1:FG=1
  91. 104 IFC$="[134]"THENRV=1:FG=2500
  92. 105 IFC$="[135]"THENRV=1:FG=5000
  93. 106 GOTO111
  94. 107 GETA$
  95. 108 IFA$="[133]"THENRV=1:FG=1
  96. 109 IFA$="[134]"THENRV=1:FG=2500
  97. 110 IFA$="[135]"THENRV=1:FG=5000
  98. 111 GETB$
  99. 112 IFB$="[133]"THENRV=1:FG=1
  100. 113 IFB$="[134]"THENRV=1:FG=2500
  101. 114 IFB$="[135]"THENRV=1:FG=5000
  102. 115 IFB$="[136]"THENRV=0
  103. 116 PRINT"":TZ=1
  104. 117 GOTO81
  105. 118 POKE53281,1:POKE53280,1:PRINT"[147]";:PRINT"              [199][207] [193]UTOPLAY":PRINTCHR$(14)
  106. 119 PRINT"[201]F YOU HAVE RECEIVED A [198][210][197][197] COPY OF THIS"
  107. 120 PRINT"PROGRAM FROM A FRIEND OR OTHER SOURCE,"
  108. 121 PRINT"PLEASE SEND A DONATION OF $10.00 TO:"
  109. 122 PRINT"          [208]ETER [193]. [210]UDMAN   "
  110. 123 PRINT"          3745 [215]OODVALE [210]OAD"
  111. 124 PRINT"          [194]IRMINGHAM, [193][204] 35223"
  112. 125 PRINT"[201]'M SURE YOU'LL AGREE THAT A $10.00 "
  113. 126 PRINT"DONATION IS A SMALL COMPENSATION FOR"
  114. 127 PRINT"THE TIME AND EFFORT WHICH [201]'VE PUT IN"
  115. 128 PRINT"TO DEVELOP THIS PROGRAM."
  116. 129 PRINT"                    [212]HANK YOU."
  117. 130 PRINT"                    [208]ETER [193]. [210]UDMAN";
  118. 131 GOTO132
  119. 132 NS$=CHR$((INT(GC/10))+48)
  120. 133 NF$=CHR$(48+(GC-10*(INT(GC/10))))
  121. 134 OPEN3,8,3,"@0:G.GAME"+NS$+NF$+",S,R"
  122. 135 INPUT#3,TM
  123. 136 FORI=1TOTM
  124. 137 INPUT#3,MV(I)
  125. 138 NEXT
  126. 139 INPUT#3,FF
  127. 140 INPUT#3,CP(1)
  128. 141 INPUT#3,CP(2)
  129. 142 INPUT#3,MM(1)
  130. 143 INPUT#3,MM(2)
  131. 144 INPUT#3,BN$
  132. 145 INPUT#3,WN$
  133. 146 INPUT#3,TD$
  134. 147 CLOSE3
  135. 148 RV=0:KJ(1)=CP(1):KJ(2)=CP(2):B$="[135]":A$="[135]"
  136. 149 BN$=LEFT$(BN$,10)
  137. 150 WN$=LEFT$(WN$,10)
  138. 151 TD$=LEFT$(TD$,12)
  139. 152 PRINTCHR$(142)
  140. 153 GOTO12
  141. 154 PRINT""
  142. 155 FORI=1TO19:PRINT"             ":NEXT
  143. 156 FF=FF+1
  144. 157 PRINT"  WHITE   ";
  145. 158 PRINT"SPACES HELD";
  146. 159 PRINT"";MM(2)
  147. 160 PRINT"STONES LOST";
  148. 161 PRINT"";CP(2)-KJ(2)
  149. 162 PRINT"NET SCORE  ";
  150. 163 PRINT"";MM(2)-CP(2)+KJ(2)
  151. 164 PRINT"[144]   BLACK   ";
  152. 165 PRINT"SPACES HELD";
  153. 166 PRINT"";MM(1)
  154. 167 PRINT"STONES LOST";
  155. 168 PRINT"";CP(1)-KJ(1)
  156. 169 PRINT"NET SCORE  ";
  157. 170 PRINT"";MM(1)-CP(1)+KJ(1)
  158. 171 IFFF<>1THEN185
  159. 172 PRINT"[144]";
  160. 173 IFBD(BC,BR)=2THENPRINT""
  161. 174 FORK=1TOCP(BD(BC,BR))-KJ(BD(BC,BR)):PRINT"";:NEXT
  162. 175 PRINT"[209]";
  163. 176 RETURN
  164. 177 PRINT"";TD$
  165. 178 PRINT"[144][209] ";BN$
  166. 179 PRINT"VS."
  167. 180 PRINT"[209] ";WN$
  168. 181 RETURN
  169. 182 PRINT""
  170. 183 PRINT"RESIGNS"
  171. 184 IFMV(T)=999THEN185
  172. 185 FORI=1TO10000:NEXT
  173. 186 PRINT"[147]":GC=GC+1
  174. 187 IFGC=11THENGC=1
  175. 188 GOTO118
  176.