22) CASTLE DOORS (1018 B)
To use: LOAD 9, RUN

10 REM
20 REM CASTLE DOORS
30 REM
40 RANDOMISE
50 LET B=RND(300)
60 LET C=RND(50)
70 GOSUB 730
80 IF C<1 THEN GOTO 650
90 PRINT "4=OPEN DOOR 5=FIGHT WIZARD"
100 LET A=0
110 LET D=RND(8)
120 LET E=RND(30)
130 LET G=RND(60)
140 LET H=RND(10)
150 INPUT O
160 CLS
170 IF O=5 THEN GOTO 650
180 IF D=1 THEN LET A=RND(10)
190 IF D=1 THEN LET A$="ZOMBIE"
200 IF D=2 THEN LET A=RND(20)
210 IF D=2 THEN LET A$="WITCH"
220 IF D=3 THEN LET A=RND(30)
230 IF D=3 THEN LET A$="CYCLOP"
240 IF D=4 THEN LET A=RND(40)
250 IF D=4 THEN LET A$="GARGOYLE"
260 IF D=5 THEN LET A=RND(50)
270 IF D=5 THEN LET A$="DRAGON"
280 IF D>5 THEN GOTO 590
290 PRINT "YOU SEE ";A$
300 GOSUB 730
310 PRINT "1=FIGHT 2=BRIBE 3=RUN"
320 INPUT N
330 CLS
340 IF N=2 THEN GOTO 480
350 IF N=3 THEN GOTO 560
360 IF C<A THEN GOTO 650
370 GOSUB 730
380 PRINT "ATTACK STRENGTH?"
390 INPUT Q
400 CLS
410 IF Q>C THEN LET Q=C
420 IF Q<A THEN LET C=C-Q
430 IF Q<A THEN PRINT "YOU LOST"
440 IF Q<A THEN GOTO 70
450 LET C=C+G
460 PRINT "YOU WON"
470 GOTO 70
480 PRINT "BRIBE STRENGTH?"
490 INPUT P
500 CLS
510 IF P<E THEN PRINT "BRIBE REFUSED"
520 IF P<E THEN GOTO 290
530 LET C=C-P+G
540 PRINT "BRIBE ACCEPTED"
550 GOTO 70
560 PRINT "YOU GOT AWAY"
570 LET C=C-H
580 GOTO 70
590 IF D=6 THEN PRINT "SAVE PRINCESS"
600 IF D=6 THEN LET C=C+50
610 IF D=7 THEN PRINT "FAIRY MAGIC POTION"
620 IF D=7 THEN LET C=C*2
630 IF D=8 THEN PRINT "NOTHING"
640 GOTO 70
650 PRINT
660 IF C>B OR C=B THEN PRINT "WIZARD DEFEATED-YOU WIN"
670 IF C<B OR C<A THEN PRINT "YOU DEFEATED-GAME OVER"
680 PRINT
690 PRINT "PLAY AGAIN? (Y)"
700 INPUT A$
710 IF CODE(A$)=62 THEN GOTO 50
720 STOP
730 PRINT
740 PRINT "YOUR STRENGTH IS ";C
750 PRINT
760 RETURN