1 X=18:Y=20:Q=0:B=18:C=14

2 G=0:P=0:O=0:R=1:L=1:H=0

3 S=0:U=0:V=0:W=0

4 K=0

5 CLS

6 FOR I=0 TO 99

7 A(I)=0

8 NEXT I

10 GOSUB 1000

15 S=RND(999)+1

16 U=INT(S/100)

17 V=INT((S-U*100)/10)

18 W=S-U*100-V*10

20 FOR J=10 TO 20

30 FOR I=14 TO 22

40 A(Q)=RND(13)

50 IF A(Q)<10 THEN @ I,J:PRINT A(Q)

60 IF A(Q)=10 THEN @ I,J:PRINT "?"

70 IF A(Q)=11 THEN @ I,J:PRINT "*"

80 IF A(Q)=12 THEN @ I,J:PRINT "X"

90 Q=Q+1

95 NEXT I

98 NEXT J

100 REM

101 INVERT 1:@ 5,0:? " CLUE: ";H

102 @22,0:? " LEVEL: ";L:INVERT 0

103 INVERT 1:@ 5,24:? " SCORE: ";P

104 @ 22,24:? " BEST: ";O:INVERT 0

105 LOCATE 18,10:PRINT CHR$(32)

109 REM - MOVEMENT

110 LOCATE B,C:PRINT CHR$(138)

120 LOCATE X,Y:PRINT CHR$(128)

150 GET A

155 REM

158 IF A<>0 THEN @ X,Y:? CHR$(32)

160 IF A=54 THEN X=X+1

161 IF A=51 THEN X=X+1:Y=Y+1

162 IF A=56 THEN Y=Y-1

163 IF A=11 THEN Y=Y-1

164 IF A=57 THEN X=X+1:Y=Y-1

165 IF A=55 THEN X=X-1:Y=Y-1

166 IF A=52 THEN X=X-1

167 IF A=49 THEN X=X-1:Y=Y+1

168 IF A=50 THEN Y=Y+1

170 IF A=27 THEN END

172 IF A=0 THEN GOTO 150

173 @ 0,4: ? "                                     "

174 REM

175 LIMIT X,14,22

176 LIMIT Y,10,20

177 F=A((Y-10)*9+(X-14))

178 G=A((C-10)*9+(B-14))

180 REM

185 GOSUB 400

190 GOTO 100

400 REM ENEMY MOVEMENT

401 IF F=12 THEN GOSUB 700

402 IF X=18 AND Y=10 THEN GOTO 810

403 IF F=10 THEN F=RND(9)

404 REM

405 IF F<10 THEN P=P+F

406 IF F=11 THEN GOSUB 550

410 IF F<(9-L) OR F>9 THEN RETURN

413 LOCATE B,C:PRINT A(G)

420 IF B<X THEN B=B+1

430 IF B>X THEN B=B-1

440 IF C>Y THEN C=C-1

450 IF C<Y THEN C=C+1

530 IF B=X AND C=Y THEN GOTO 600

535 PLAY 80,100

540 RETURN

550 IF P<11 THEN RETURN

560 I=RND(100)

565 IF I>50 THEN P=P-10

566 IF I<10 THEN P=P+50

567 RETURN

600 REM - GAME OVER

610 CLS:PRINT "GAME OVER":END

643 Q=0

700 IF H>=9 THEN GOTO 810

701 A((Y-10)*9+(X-14))=0

712 K=RND(9)+1

713 IF B(K)=1 THEN GOTO 712

714 B(K)=1:H=H+1

715 IF K=1 THEN GOTO 730

716 IF K=2 THEN GOTO 740

717 IF K=3 THEN GOTO 750

718 IF K=4 THEN GOTO 760

719 IF K=5 THEN GOTO 770

720 IF K=6 THEN GOTO 780

721 IF K=7 THEN GOTO 790

722 IF K=8 THEN GOTO 800

723 REM IF H=9 THEN GOTO 810

724 RETURN

730 @ 0,4: ? "SUM OF DIGITS IS: ";U+V+W

731 RETURN

740 @ 0,4: ? "SECRET NUMBER IS: ";

741 IF S/2=INT(S/2) THEN PRINT "EVEN"

742 IF S/2<>INT(S/2) THEN PRINT "ODD"

743 RETURN

750 M=INT(RND(200))+S

751 J=M-200

752 IF J<0 THEN J=0

753 IF M>1000 THEN M=1000

754 @ 0,4: ? "NUMBER IS BETWEEN ";J;:? " AND ";M

755 RETURN

760 @ 0,4: ? "NUMBER IS ";

761 IF S/5=INT(S/5) THEN ? "DIVISIBLE BY 5"

762 IF S/5<>INT(S/5) THEN ? "NOT DIVISIBLE BY 5"

763 RETURN

770 M=0: M=U

771 IF V>M THEN M=V

772 IF W>M THEN M=W

773 @ 0,4: ? "LARGEST DIGIT IS: ";M

774 RETURN

780 @ 0,4: ? "FIRST DIGIT IS ";

781 IF U>5 THEN PRINT "LARGER THAN 5"

782 IF U<5 THEN PRINT "LESS THAN 5"

783 IF U=5 THEN PRINT "EQUAL TO 5"

784 RETURN

790 @ 0,4: ? "SUM OF FIRST AND THIRD DIGITS IS: ";

791 PRINT U+W

792 RETURN

800 @ 0,4: ? "ONE DIGIT IS: ";

801 M=0:M=INT(RND(3))

802 IF M=0 AND S>99 THEN PRINT U

803 IF M=1 AND S>9 THEN PRINT V

804 IF M<>0 AND M<>1 THEN PRINT W

805 RETURN

810 @ 0,4:? "ENTER SECRET NUMBER: ";:INPUT Z

820 IF Z=S THEN GOTO 850

830 CLS

840 PRINT "Sorry, the number is wrong!"

841 PRINT "Press a key for a new round"

845 PRINT: PRINT "THE NUMBER WAS: ";S

846 END

850 CLS

860 FOR I=0 TO 18

870 PRINT " CONGRATULATIONS!   CONGRATULATIONS!"

880 NEXT I

890 PRINT:PRINT "YOU HAVE DEFEATED THE MINOTAUR!!"

900 PRINT "YOUR SCORE IS: ";P

910 IF P<O THEN PRINT "NEW HIGHSCORE!!!"

920 IF P<O THEN EPOKE 3,P

930 END

1000 REM - STARTSCREEN

1010 CLS

1020 @ 10,1: PRINT "MINOTAUR MASTER-MIND"

1030 @ 13,2: PRINT "BY D. KRISTEN"

1040 PRINT:PRINT

1050 PRINT "LEVEL OF DIFFICULTY? (1-9) ";: INPUT L

1060 CLS

1065 EPEEK O,3

1070 RETURN