Content
Image Gallery
Checkers
10 REM AAA% 23456789% 1% X% X% X% X12X% X% X% X% 23% % X% X% X34 % X% % % 45% % % % 56O% O% O% O% 67% O% O% O% O78O% O% O% O% 8% 23456789%
11 REM AAA% 23456789% 1% X% X% X% X12X% X% X% X% 23% X% X% X% X34 % % % % 45% % % % 56O% O% O% O% 67% O% O% O% O78O% O% O% O% 8% 23456789%
12 FAST
17 GOSUB 5000
19 GOTO 430
20 LET R=PEEK B
30 LET S=PEEK (B+D(X))
40 LET T=PEEK (B+2*D(X))
50 RETURN
55 LET Z=0
60 FOR B=16528 TO 16607
70 FOR X=1 TO 4
80 GOSUB 20
90 IF ((X<3 AND R=61) OR R=13) AND (S=52 OR S=12) AND T=0 THEN GOTO 300
100 NEXT X
110 NEXT B
120 FOR A=1 TO 400
130 LET B=INT (RND*80)+16528
140 FOR X=1 TO 4
150 GOSUB 20
160 IF ((X<3 AND R=61) OR R=13) AND S=0 THEN GOTO 400
170 NEXT X
180 NEXT A
190 PRINT "YOU WIN";Q
200 SLOW
202 PRINT AT 0,0;"FROM ?"
205 INPUT G
207 PRINT AT 0,4;" ";G;" TO ?"
210 INPUT H
215 PRINT AT 0,0;" "
220 POKE 16516+H,PEEK (G+16516)
230 IF H<20 THEN POKE H=16516,12
240 POKE 16516+G,0
250 IF ABS (H-G)=18 OR ABS (H-G)=22 THEN POKE 16516+(H+G)/2,0
260 PRINT AT 17,0;"CAN YOU MOVE AGAIN ?"
270 INPUT A$
275 PRINT AT 17,0;" "
280 IF A$<>"" THEN GOTO 430
285 FAST
290 GOTO 60
300 POKE B+2*D(X),R
310 POKE B,0
320 POKE B+D(X),0
330 LET B=B+2*D(X)
340 IF B>16597 THEN GOTO 490
350 FOR X=1 TO 4
360 GOSUB 20
370 IF ((X<3 AND R=61) OR R=13) AND (S=52 OR S=12) AND T=0 THEN GOTO 300
380 NEXT X
390 GOTO 430
400 POKE B+D(X),R
410 POKE B,0
420 IF B+D(X)>16597 THEN POKE B+D(X),13
425 SLOW
430 PRINT AT 6,8;
440 FOR A=16517 TO 16616
450 PRINT CHR$ (PEEK A);
460 IF 10*INT ((A+4)/10)=A+4 THEN PRINT TAB 8;
470 NEXT A
472 PRINT
475 IF Z=1 THEN GOTO 55
480 GOTO 200
490 POKE B,13
500 GOTO 430
5000 DIM D(4)
5010 LET D(1)=11
5020 LET D(2)=9
5030 LET D(3)=-9
5040 LET D(4)=-11
5050 FOR J=16626 TO 16725
5060 POKE J-109,PEEK J
5070 NEXT J
5080 LET Z=1
5100 RAND
5200 RETURN
5210 CLEAR
5220 SAVE "1033%0"
5230 RUN
People
No people associated with this content.