Checkers

Gallery

Source Code

  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