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]