Devon Demon

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 
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