You must capture 4 of the 1000s pieces. It is O, and you are X. You capture by landing on top of the piece, and you move along the diagonals, backwards and forwards. To move, enter the letter and number of piece to move, and then, at the same time, the letter and number of the place to move to.

### Source Code

10 REM .X.X.XX.X.X..............O.O.OO.O.O. 20 REM .X.X.XX.X.X..............O.O.OO.O.O. 30 FOR K=16514 TO 16549 40 POKE K,PEEK (K+42) 50 NEXT K 54 SLOW 55 GOTO 1000 60 LET N=0 70 LET Z=16513 80 LET S=0 90 LET S=0 100 DIM B(4) 110 LET B(1)=5 120 LET B(2)=7 130 LET B(3)=-5 140 LET B(4)=-7 150 SLOW 160 LET K=0 170 GOSUB 200 180 FAST 190 GOTO 490 200 PRINT AT 5,0;"TIMEX-";N,"HUMAN-";S 210 PRINT 220 FOR C=1 TO 36 230 PRINT CHR$ PEEK (Z+C);" "; 240 IF 6*(INT (C/6))=C THEN PRINT CHR$ (C/6+37) 250 NEXT C 260 PRINT "1 2 3 4 5 6" 270 FOR H=1 TO 30 280 NEXT H 290 RETURN 300 GOSUB 200 310 SLOW 320 PRINT "YOUR MOVE?" 330 INPUT A$ 340 LET D=6*(CODE A$(1)-38)+CODE (A$(2))-28 350 LET E=6*(CODE A$(3)-38)+CODE (A$(4))-28 360 IF PEEK (E+Z)=52 THEN LET S=S+1 370 POKE (D+Z),27 380 POKE (E+Z),61 390 GOSUB 200 400 FAST 410 IF S=4 THEN GOTO 600 420 LET K=0 430 FOR F=1 TO 36 440 FOR M=1 TO 4 450 IF PEEK (F+Z)=52 AND PEEK (F+Z+B(M))=61 THEN LET N=N+1 460 IF PEEK (F+Z)=52 AND PEEK (F+Z+B(M))=61 THEN GOTO 620 470 NEXT M 480 NEXT F 490 LET M=1 500 LET F=INT (RND*36)+1 510 LET K=K+1 520 IF PEEK (F+Z)<>52 THEN GOTO 500 530 IF RND>.2 AND M<3 THEN LET M=4-(INT (RND*4)) 540 IF (F=6 OR F=16 OR F=30) AND (M=2 OR M=3) THEN GOTO 570 550 IF (F=31 OR F=19 OR F=7) AND (M=1 OR M=4) THEN GOTO 570 560 IF PEEK (F+Z+B(M))=27 AND PEEK (F+Z+2*B(M))<>61 THEN GOTO 620 570 LET M=M+1 580 IF M<5 THEN GOTO 540 590 IF M<200 THEN GOTO 490 600 PRINT "YOU WIN" 610 STOP 620 SLOW 630 POKE (F+Z+B(M)),128 640 GOSUB 200 650 IF N=4 THEN GOTO 700 660 POKE (F+Z),27 670 POKE (F+Z+B(M)),52 680 GOTO 300 700 PRINT "I WIN " 710 STOP 1000 PRINT TAB 10;"DEVON DEMON" 1010 PRINT ,,"IN THIS GAME,YOU MUST CAPTURE 4 OF THE 1000S PIECES.IT IS ""O"",AND YOU ARE ""X""" 1020 PRINT ,,"YOU CAPTURE BY LANDING ON TOP OFTHE PIECE,AND YOU MOVE ALONG THEDIAGONALS,BACKWORDS AND FORWARDS" 1030 PRINT ,,"TO MOVE,ENTER THE LETTER AND NUMBER OF PIECE TO MOVE,AND THEN,AT THE SAME TIME.THE LETTER ANDNUMBER OF THE PLACE TO MOVE TO E.G.:" 1040 PRINT "A1B2---YOU WOULD MOVE THE PIECE ON A1 TO B2" 1050 PRINT ,,TAB 5;"PRESS NEWLINE NOW" 1060 IF INKEY$<>"" THEN GOTO 1060 1070 IF INKEY$<>CHR$ 118 THEN GOTO 1070 1080 CLS 1090 GOTO 60