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.
Content
Image Gallery
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
\n1000 PRINT TAB 10;"DEVON DEMON"
\n1010 PRINT ,,"IN THIS GAME,YOU MUST CAPTURE 4 OF THE 1000S PIECES.IT IS ""O"",AND YOU ARE ""X"""
\n1020 PRINT ,,"YOU CAPTURE BY LANDING ON TOP OFTHE PIECE,AND YOU MOVE ALONG THEDIAGONALS,BACKWORDS AND FORWARDS"
\n1030 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.:"
\n1040 PRINT "A1B2---YOU WOULD MOVE THE PIECE ON A1 TO B2"
\n1050 PRINT ,,TAB 5;"PRESS NEWLINE NOW"
\n1060 IF INKEY$<>"" THEN GOTO 1060
\n1070 IF INKEY$<>CHR$ 118 THEN GOTO 1070
\n1080 CLS
\n1090 GOTO 60