48COMMODORE 64FUN AND GAMES





8010 X=PT% (J)

8015IF(X>3 ANDX<9) OR X=19THENPRINT"DON'TftDROPft*TREASURES*!":
GOTO700

8020IF CP=19AND J=19THEN8100
8030IF CP=22AND J=20THEN8200
8040 OL%(PT%(J»=CP:PRINT"OK":GOTO700

8100 PRINT"ASftTHEftPENNYftSINKSftBELOWftTHEftSURFACEftOF"

8105PRINT"THEftPOOL'ftAftFLEETINGftIMAGEftOFftAftCHAPEL"
8110PRINT"WITH ftDANCERSftOUTSIDEftAPPEARS."
8130 R%(21,3)=22:0L%(12)=-2:GOTO700
8200 PRINT"EVENftBEFORE-ftITftHITSftTHEftGROUND,ftTHE":

PRINT"CROSS ....FADES ....AWAY"
8210PRINT"{down}THEftTABLETftHAS DISINTEGRATED."

8215PRINT"{down }YOUftHEAR....l-1USICFROMftTHE ....ORGAN. "
8220 GG=1:0L%(11)=-2:R$(22)="CHAPEL"

8221 OM$ (24)="CLOSED ....ORGAN ....PLAYING ....NUSIC ....IN....THEftCORNER II:GOTO 700
9000IF J=OTHENPRINTIISAYftWHAT???":GOTO 700
9010IF J=14THEN9100

9020IF J=15THEN9200
9030IF J>28THEN9300

9040 PRINT1I0KAY'ftl";RIGHT$(IN$,LEN(IN$)-SP);"I.II
9050 FORX=l TO 1000:NEXTX:PRINT"NOTHINGftHAPPENS.II:GOTO 700
9100IF CP<>4OR CH THENPRINTIINOTHINGftHAPPENS.II:GOTO700

9110IN$=IITHEftSNAKEftISftCHARMED....BY....THEftVERYftUTTERANCE....OFftYOURftWORDS."
9111 GOSUB53000:PRINT

9120 CH=1:0L%(2)=-2:0L%(3)=4:GOTO700

9200IF CP<>8OR PO THENPRINT"NOTHINGftHAPPENS. II:GOTO 700

9210PRINTIIAftPORTALftHASftOPENEDftINftTHEftNORTH....WALL!!"

9220 PO=1:R%(8,1)=17:0L%(18)=8:GOTO700
9300 PRINT"AftHOLLOWftVOICEftSAYS,....'WRONG ....ADVENTURE'.":GOTO700
10000IF J<>4THENPRINT"IftWOULDN'TftKNOW ....HOW •":GOTO700
10010IF OL%(l)<>-lAND OL%(l)<>CPTHEN51000

10020IF BF=OTHENPRINT"THEftBUCKET....IS....ALREADY ....EMPTY.":GOTO700
10030IF CP=19THENPRINT"OK" :GOTO 700
10040IF CP=10ANDFB THEN10050

10045PRINT"THEftWATER....DISAPPEARSftQUICKLY.":BF=O:GOTO700
10050PRINTIICONGRATULATIONS!....YOUftHAVEftVANQUISHED":
PRINT"THEftFLAMES."

10060FB=O:BF=P:GOTO699
11000IF J=OTHEN50000

11010IF PT%(J)=-lTHENPRINT"THATftWOULDN'T....HOLDftANYTHING.":GOTO700
11020IF FNA(J) <>CP ANDFNA(J) <>-1 THEN51000

11030IF J<>4THENPRINT"THATftWOULDN'T....HOLD ....ANYTHING.":GOTO700

11040IF BF THENPRINT"IT'S....ALREADYftFULL.":GOTO700
11050IF CP=25AND PF THEN

PRINT"I IDftRATHER....
LEAVEftTHE ....MERCURY ....ALONE. ":GOTO 700
11060IF CP<>23AND CP<>19THENPRINT"IftDON'TftSEE....ANYftWATERftHERE.":
GOTO700

