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