MISER49




11070PRINT"YOUR"BUCKET"IS"NOW"FULL.":BF=I:GOTO700
12000IF J=OTHEN 50000
12010IF J<>12AND J<>27THEN

PRINT"I"DON'T"KNOW"HOW"TO"UNLOCK"ONE.":GOTO700
12020IF CP<>OAND CP<>5ANDCP<>6THEN 51000
12030IF CP=O AND J=12THEN 12200
12040IF CP=5 AND J=27THEN 12300
12050IF CP<>6OR J<>12OR OL%(16)=-2THEN 51000

12100PRINT"THE"TRAPDOOR"HAS"NO"LOCK":GOTO700
12200IF DU THENPRINT"IT'S"ALREADY ....UNLOCKED. ":GOTO700
12210IF OL%(20)<>-1THENPRINT"I"NEED"A"KEY.":GOTO700

12220PRINT"THE"DOOR"EASILY"UNLOCKS"AND"SWINGS"OPEN.":DU=I:GOTO699
12300IF VOTHENPRINT"IT'S"ALREADY"OPEN.":GOTO 700
12305IF FV=OTHEN51000

12310IF KC=OTHENPRINT"I"DON'T"KNO~V'"THE"COMBINATION. ":GOTO 700

12320PRINT"OK,,,LET'S,,SEE.,,1235 6":
PRINT"<CLICK!>"THE"DOOR"SWINGS"OPEN."

12330VO=I:R%(5,3)=46:GOTO699
14000IN~{down}YOU"ARE ....IN"THE" "+R$(CP)+"." :GOSUB 53000 :PRINT
14010FOR X=1 TO 28:IFOL%(X)<>CPTHEN14020
14011IN$="THERE ....IS"A" "+OM$ (X)+"....HERE. ":PRINT:GOSUB53000:PRINT
14020IF X=1 AND BF ANDOL%(I)=CPTHEN

PRINT""""THE"BUCKET"IS"FULL"OF"WATER."
14030NEXTX
14040IF CP=25AND PF THEN

PRINT"{down}THE"POOL"IS"FULL"OF"LIQUID"MERCURY!"
14050IF CP<>25OR PF THEN14060

14055PRINT"{down}THE"POOL'S"EMPTY.":IFOL%(7)<>48THEN 14060

14056PRINT"{down}I"SEE"SOMETHING"SHINY....IN"THE"POOL!"
14060IF CP<>10OR FB=O THEN14090

14070PRINT"{down}THERE"IS"A"HOT"FIRE"ON"THE"SOUTH"WALL!"

14080PRINT"IF"I"GO"THAT"WAY"I'LL"BURN"TO"DEATH!"
14090IF CP<>16THEN 14110

14100IN$="{down}

A"RICH, ....FULL"VOICE"SAYS,,,'RITNEW,,IS,,A,,CHARMING,,WORD'."
14105GOSUB53000:PRINT'
14110IF CP=26THEN

PRINT"{down}THERE"IS"A"VALVE"ON"ONE"OF"THE"PIPES."
14115IF CP=23THENPRINT"{down}THERE"IS"A"LEAKY"FAUCET"NEARBY."
14120IF CP=10AND FB=OTHE~
PRINT"{down}THERE"IS"EVIDENCE"OF"A"RECENT"FIRE"HERE."
14125IF CP=5ANDFV THEN

PRINT"{down}THERE"IS"A"VAULT"IN"THE"EAST"WALL."
14126 IF CP=5 AND VOTHENPRINT"THE"VAULT"IS"OPEN."
Jl4127IF CP=O ANDDU THENPRINT"{down}AN"OPEN"DOOR"LEADS"NORTH."

14130IF CP<>48THENPRINT"{down}OBVIOUS"EXITS:":IFR%(CP,IOTHEN

PRINT"N,,";
.14140IF R%(CP,20THENPRINT"S,,";

