home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun: Strategy Games 1 / rerun-strategygamesI.d64 / slides (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  159 lines
  1. 2 printchr$(147)"would you like instructions (y/n)?
  2. 4 [161] a$: [139] a$[179][177] "y" [175] a$[179][177]"n" [167] 4
  3. 6 [139] a$[178]"n" [167] 60
  4. 8 [153]"instructions on screen or printer (s/p)?
  5. 10 get b$: if b$<> "s" and b$<>"p" then 10
  6. 12 if b$="s"then  d=3
  7. 14 if b$="p" then d=4
  8. 16 open d,d
  9. 18 print#d,"
  10. 20 [152]d,"slide by robert rossa
  11. 22 print#d,"
  12. 24 [152]d,"run it right: c-64
  13. 26 print#d,"
  14. 28 [152]d,"in slide, you and the computer take
  15. 30 print#d,"turns sliding tokens one at a time onto
  16. 32 [152]d,"a gameboard from the top or the left. a
  17. 34 print#d,"token moved onto the gameboard pushes
  18. 36 [152]d,"tokens already there out of the way.
  19. 38 print#d,"if the row or column is full, then the
  20. 40 [152]d,"end token will be pushed off the board.
  21. 42 print#d,"the first player to have five tokens in
  22. 44 [152]d,"a row -- horizontally, vertically or
  23. 46 print#d,"diagonally -- wins.
  24. 48 [152]d,"
  25. 50 print#d,"you select how many moves the computer
  26. 52 [152]d,"can first consider. the farther ahead
  27. 54 print#d,"that the computer thinks, the more
  28. 56 [152]d,"difficult the game will be to win.
  29. 58 print#d,"":closed
  30. 60 print"press any key to begin the program..."
  31. 62 get e$:if e$="" then 62
  32. 64 clr
  33. 66 rem loads machine code for slide game.
  34. 68 data 162 , 20 , 169 , 0 , 157 , 200 , 112 , 202
  35. 70 data 16 , 250 , 174 , 225 , 112 , 24 , 105 , 25
  36. 72 data 202 , 16 , 251 , 168 , 136 , 169 , 4 , 141
  37. 74 data 220 , 112 , 169 , 0 , 141 , 218 , 112 , 141
  38. 76 data 219 , 112 , 169 , 4 , 141 , 221 , 112 , 185
  39. 78 data 0 , 111 , 240 , 56 , 16 , 2 , 169 , 2
  40. 80 data 170 , 202 , 254 , 218 , 112 , 169 , 0 , 24
  41. 82 data 125 , 223 , 112 , 109 , 221 , 112 , 142 , 222
  42. 84 data 112 , 170 , 254 , 204 , 112 , 174 , 222 , 112
  43. 86 data 173 , 220 , 112 , 205 , 221 , 112 , 208 , 3
  44. 88 data 254 , 214 , 112 , 169 , 4 , 56 , 237 , 221
  45. 90 data 112 , 205 , 220 , 112 , 208 , 3 , 254 , 216
  46. 92 data 112 , 254 , 202 , 112 , 136 , 206 , 221 , 112
  47. 94 data 16 , 189 , 169 , 5 , 205 , 218 , 112 , 208
  48. 96 data 8 , 169 , 1 , 141 , 200 , 112 , 76 , 131
  49. 98 data 96 , 205 , 219 , 112 , 208 , 5 , 169 , 1
  50. 100 data 141 , 201 , 112 , 206 , 220 , 112 , 16 , 146
  51. 102 data 162 , 9 , 160 , 4 , 189 , 204 , 112 , 201
  52. 104 data 5 , 208 , 5 , 169 , 1 , 141 , 201 , 112
  53. 106 data 202 , 136 , 16 , 240 , 189 , 204 , 112 , 201
  54. 108 data 5 , 208 , 5 , 169 , 1 , 141 , 200 , 112
  55. 110 data 202 , 16 , 241 , 169 , 5 , 160 , 1 , 205
  56. 112 data 214 , 112 , 208 , 3 , 140 , 200 , 112 , 205
  57. 114 data 215 , 112 , 208 , 3 , 140 , 201 , 112 , 205
  58. 116 data 216 , 112 , 208 , 3 , 140 , 200 , 112 , 205
  59. 118 data 217 , 112 , 208 , 3 , 140 , 201 , 112 , 96
  60. 120 data 169 , 0 , 141 , 250 , 112 , 174 , 254 , 112
  61. 122 data 189 , 226 , 112 , 188 , 236 , 112 , 141 , 235
  62. 124 data 112 , 136 , 152 , 201 , 5 , 16 , 54 , 24
  63. 126 data 109 , 235 , 112 , 160 , 3 , 170 , 238 , 250
  64. 128 data 112 , 189 , 0 , 111 , 240 , 11 , 232 , 232
  65. 130 data 232 , 232 , 232 , 136 , 16 , 240 , 238 , 250
  66. 132 data 112 , 206 , 250 , 112 , 240 , 20 , 138 , 168
  67. 134 data 136 , 136 , 136 , 136 , 136 , 185 , 0 , 111
  68. 136 data 157 , 0 , 111 , 152 , 170 , 206 , 250 , 112
  69. 138 data 208 , 238 , 76 , 83 , 97 , 200 , 233 , 5
  70. 140 data 168 , 173 , 235 , 112 , 136 , 48 , 5 , 24
  71. 142 data 105 , 5 , 16 , 248 , 160 , 0 , 140 , 250
  72. 144 data 112 , 160 , 3 , 170 , 189 , 0 , 111 , 240
  73. 146 data 7 , 238 , 250 , 112 , 232 , 136 , 16 , 244
  74. 148 data 206 , 250 , 112 , 48 , 14 , 138 , 168 , 136
  75. 150 data 185 , 0 , 111 , 157 , 0 , 111 , 202 , 136
  76. 152 data 76 , 64 , 97 , 173 , 255 , 112 , 157 , 0
  77. 154 data 111 , 96 , 170 , 170 , 170 , 170 , 170 , 170
  78. 156 data 170 , 170 , 170 , 170 , 170 , 170 , 170 , 170
  79. 158 data 170 , 170 , 170 , 170 , 170 , 170 , 170 , 170
  80. 160 data 174 , 254 , 112 , 188 , 226 , 112 , 202 , 189
  81. 162 data 226 , 112 , 170 , 169 , 24 , 141 , 0 , 113
  82. 164 data 189 , 0 , 111 , 153 , 0 , 111 , 232 , 200
  83. 166 data 206 , 0 , 113 , 16 , 243 , 96 , 170 , 170
  84. 168 data 172 , 254 , 112 , 190 , 236 , 112 , 189 , 1
  85. 170 data 113 , 153 , 81 , 004, 96 , 170 , 170 , 170
  86. 172 data 170 , 170 , 170 , 170 , 170 , 170 , 170 , 170
  87. 174 data 170 , 170 , 170 , 170 , 170 , 170 , 170 , 170
  88. 176 data 169 , 1 , 141 , 29 , 113 , 141 , 254 , 112
  89. 178 data 169 , 255 , 141 , 255 , 112 , 76 , 212 , 97
  90. 180 data 169 , 1 , 56 , 237 , 29 , 113 , 141 , 29
  91. 182 data 113 , 173 , 255 , 112 , 73 , 254 , 141 , 255
  92. 184 data 112 , 238 , 254 , 112 , 174 , 254 , 112 , 169
  93. 186 data 0 , 157 , 11 , 113 , 169 , 224 , 157 , 20
  94. 188 data 113 , 169 , 1 , 157 , 236 , 112 , 32 , 112
  95. 190 data 97 , 32 , 144 , 97 , 32 , 208 , 96 , 173
  96. 192 data 254 , 112 , 141 , 225 , 112 , 32 , 0 , 96
  97. 194 data 174 , 29 , 113 , 189 , 200 , 112 , 240 , 17
  98. 196 data 174 , 254 , 112 , 189 , 236 , 112 , 157 , 11
  99. 198 data 113 , 169 , 32 , 157 , 20 , 113 , 76 , 228
  100. 200 data 98 , 169 , 1 , 56 , 237 , 29 , 113 , 170
  101. 202 data 189 , 200 , 112 , 240 , 3 , 76 , 212 , 98
  102. 204 data 173 , 254 , 112 , 201 , 1 , 240 , 71 , 205
  103. 206 data 30 , 113 , 240 , 97 , 32 , 192 , 97 , 169
  104. 208 data 0 , 174 , 254 , 112 , 232 , 56 , 253 , 20
  105. 210 data 113 , 201 , 224 , 240 , 224 , 174 , 254 , 112
  106. 212 data 221 , 20 , 113 , 48 , 11 , 48 , 9 , 157
  107. 214 data 20 , 113 , 189 , 236 , 112 , 157 , 11 , 113
  108. 216 data 174 , 254 , 112 , 202 , 189 , 236 , 112 , 201
  109. 218 data 1 , 48 , 13 , 174 , 254 , 112 , 189 , 20
  110. 220 data 113 , 202 , 24 , 125 , 20 , 113 , 16 , 3
  111. 222 data 76 , 212 , 98 , 76 , 228 , 98 , 32 , 192
  112. 224 data 97 , 162 , 2 , 169 , 0 , 56 , 253 , 20
  113. 226 data 113 , 202 , 221 , 20 , 113 , 48 , 11 , 240
  114. 228 data 9 , 157 , 20 , 113 , 189 , 236 , 112 , 157
  115. 230 data 11 , 113 , 76 , 212 , 98 , 174 , 29 , 113
  116. 232 data 189 , 202 , 112 , 168 , 169 , 1 , 56 , 237
  117. 234 data 29 , 113 , 170 , 152 , 56 , 253 , 202 , 112
  118. 236 data 174 , 254 , 112 , 221 , 20 , 113 , 48 , 11
  119. 238 data 240 , 9 , 157 , 20 , 113 , 189 , 236 , 112
  120. 240 data 157 , 11 , 113 , 173 , 30 , 113 , 201 , 2
  121. 242 data 240 , 26 , 174 , 254 , 112 , 202 , 189 , 236
  122. 244 data 112 , 201 , 1 , 240 , 15 , 174 , 254 , 112
  123. 246 data 169 , 0 , 56 , 253 , 20 , 113 , 202 , 221
  124. 248 data 20 , 113 , 16 , 16 , 174 , 254 , 112 , 254
  125. 250 data 236 , 112 , 189 , 236 , 112 , 201 , 11 , 240
  126. 252 data 3 , 76 , 230 , 97 , 169 , 1 , 56 , 237
  127. 254 data 29 , 113 , 141 , 29 , 113 , 173 , 255 , 112
  128. 256 data 73 , 254 , 141 , 255 , 112 , 206 , 254 , 112
  129. 258 data 96 , 170 , 170 , 170 , 170 , 170 , 170 , 170
  130. 260 rem to change game color change 14 in line 970 to desired color.
  131. 262 data 169 ,14 , 162 , 251 , 157 , 255 , 215 , 157
  132. 264 data 249 , 216 , 157 , 243 , 217 , 157 , 237 , 218
  133. 266 data 202 , 208 , 241 , 96 , 170 , 170 , 170 , 170
  134. 268 data0,25,50,75,100,125,150,175,200
  135. 270 data49,50,51,52,53,1,2,3,4,5
  136. 271 print"loading data...
  137. 272 [129]i[178]24576[164]25367
  138. 274 [135]k
  139. 276 [151]i,k:
  140. 278 [130]i
  141. 279 [153]"loading more data...
  142. 280 fori=28898to28906
  143. 282 readk
  144. 284 pokei,k
  145. 286 nexti
  146. 287 print"loading a little more data...
  147. 288 [129]i[178]28930[164]28939
  148. 290 [135]k
  149. 292 [151]i,k
  150. 294 [130]i
  151. 296 [151]28895,0:[151]28896,5
  152. 298 [153]"now loading and running slidemod"
  153. 300 n$[178]"slide.mod"
  154. 302 [153]"load"[199](34)n$[199](34)","8"  ononon"
  155. 304 a$[178]"run"
  156. 306 a$[178]a$[170][199](13)
  157. 308 [151]631,13:[129]b[178]1[164][195](a$):[151]631[170]b,[198]([202](a$,b,1)):[130]:[151]198,10
  158. 310 [162]
  159.