50COMMODORE 64 FUN AND GAMES





141S0IF R%(CP,30THENPRINT"E~";

14160IF R%(CP,40THENPRINT"W~";
14170PRINT:GOTO700
lS000IF J<>8AND J<>18AND J<>28THEN SOOOO

lS010IF(J=8 AND CP<>48)OR(J=28 AND CP<>2S)THENS1000
lS01SIF J=18AND CP<>2AND CP<>27THEN S1000
lS020IF J=8THENCP=2S:GOTO699

lS030IF J=28AND PF THENPRINT"THE~POOL~IS~FULL~OF~MERCURY!":
GOTO700
lS040IF J=28THEN CP=48:GOTO699

lS0S0IF CP=27THEN CP=2:GOTO699
lS060IF OL%(9)=-1THENlS070

lS061IN$="THE~SUITS~OF~ARMOR~PREVENT~YOU~FROf;l~GOING~UP!":GOSUBS3000
lS062PRINT:GOTO700

lS070PRINT"THE~SUITS~OF~ARMOR~TRY~TO~STOP~YOU,"
lS080PRINT"BUT~YOU~FIGHT~THEl\I~OFF~WITH~YOUR~SWORD.":CP=27:GOTO699

-':.16000IF CP=OAND DU=OTHENPRINT"THE~DOOR~IS~LOCKED~SHUT.":GOTO 700
,.j 16010IF R% (CP,1)=0 THENS2000
~601SIF CP=OTHENPRINT"{down}THE~DOOR~SLAMS~SHUT~BEHIND~YOU!"

:16020CP=R%(CP,l) :GOTO 699
17000IF CP=10ANDFB THEN PRINT"YOU~HAVE~BURNT~TO~A~CRISP!":END
,,_\.17010IF CP=4AND CH=OTHEN17060
~17030D=2:IF1=21 OR1=22 THEND=3

.~ 17040IF R%(CP,D)=OTHENS2000
~~!170S0CP=R% (CP,D) :GOTO 699

17060IF PS=OTHENPRINT"THE~SNAKE~IS~ABOUT~TO~ATTACK!":PS=l:
GOTO700

17070PRINT"THE~SNAKE~BITES~YOU!":PRINT"YOU~ARE~DEAD.":END
19000IF R%(CP,4)=0THENS2000
19010CP=R%(CP,4) :GOTO 699

20000PRINT:PRINTIIIF~YOU~WERE~TO~QUIT~NOW,":

PRINT"YOU~WOULD~HAVE~A~SCORE"OF";

20010PRINTGT*20;"POINTS.":PRINT"(~OO"POSSIBLE){down)"
20020PRINT"DO~YOU" INDEED~WISH~ TO "QU':tT~NOW? ~";
20030GOSUB60000

20040PRINT:IFLEFT$(IN$,l)="Y"THEN7010

200S0IF LEFT$ (IN$,l) <>"N"THENPRINT"PLEASE"ANSWER"YES"OR"NO":
GOTO20020

20060PRINT"OK":PRINT :GOTO 700

21000IF J<>7THEN PRINT"I"DON'T"KNOW"HOW"TO"TURN"SUCH"A"THING.":
GOTO700

21010IF CP<>26THEN S1000

21020IN$="WITH~MUCH~EFFORT,,,YOU~TURN~THE,,VALVE,,S~TIMES.,,YOU,,HEAR
~THE"SOUND" "

21030IN$=IN$+"OF"LIQUID,,":GOSUBS3000:PRINT:
PRINT"FLOWING"THROUGH"PIPES."
21040PF=l-PF

210S0IF PF=O AND OL%(7)=-3THENOL%(7)=2S:GOTO700

