MISER41





4200IF CP<>SOR FV~OTHEN 51000

4210IF VOTHEN PRINT"IT'S ....ALREADY ....OPEN. ":GOTO 700

4220PRINT"I....CAN'T, ....IT'S....LOCKED.":GOTO700
4230IF J<>16THENPRINT"I....DON' T....KNOW ....HOW ....TO....OPEN ....THAT." :GOTO 700
4232IF CP<>21THEN51000

4235IF GG=OTHENPRINT"IT'S ....STUCKSHUT.":GOTO700
4240IF OL%(24}=-2THENPRINT"IT'S ALREADY ....OPEN.":GOTO700

4250PRINT"AS....YOU....OPEN....IT,....SEVERALOBJECTS":
PRINT"SUDDENLY ....APPEAR!"
4260OL%(24)=-2:0L%(2S)=21:0L%(19}=21:0L%(17}=21:GOTO699

5000IF J=OTHEN 50000
5005IF PT%(J}>-lTHENIF FNA(J) <>CP ANDFNA(J} <>-1 THEN51000

5010IF PT%(J}=-lTHENPRINT"THERE'S ....NOTHING ....WRITTEN ....ON ....THAT.":
GOTO700
5020IF J<>3AND J<>11THEN

PRINT"THERE'S ....NOTHING ....WRITTEN ....ON....THAT.":GOTO700
5030IF J=11THENPRINT"THE....FRONT ....COVER ....IS....INSCRIBED ....IN....GREEK.":
GOTO700

5040PRINT"IT....SAYS, ....'12-3S-6'.":
PRINT"HMM....LOOKS ....LIKE ....A....COMBINATION."
5050 KC=l:GOTO700

6000PRINT"YOU....ARE ....CARRYING ....THE....FOLLOWING:{down}"
6010FI=O:FORX=l TO 27:IFOL%(X}=-lTHENPRINTOM$(X):FI=l

6020IF X=l AND BF AND OL%(l}=-lTHEN

PRINT"THE BUCKETIS FULL OF WATER."

6025IF X=14 AND OL%(14}=-1THENPRINT"(BETTERFIX IT)"
6030NEXT X:IFFI=O THENPRINT"NOTHING ....AT....ALL."
6040GOTO 700

7000PRINT"DO....YOU....REALLY ....WANT ....TO....QUIT ....NOW?"
7001GOSUB60000:IFIN$=""THEN7001

7002IF LEFT$(IN$,l}<>"y"THENPRINT:PRINT"{down}OK":GOTO700
7005PRINT"{clr}"

7010PRINT"{down}YOU ....ACCUMULATED";GT;"TREASURES,"
7020PRINT"FOR ....A....SCORE ....OF";GT*20;"POINTS."
7030PRINT"(100....POSSIBLE) ":IF ES=OTHEN

PRINT"{down}HOWEVER, ....YOU....DID NOT ....ESCAPE."
7040PRINT"{down}THIS ....PUTS ....YOU ....IN A....CLASS ....OF:":IFES THEN GT=GT+l
7050ON GT+lGOTO 7060,7070,7075,7090,7100,7110,7115

7060PRINT"<BEGINNER ....ADVENTURER>":GOTO7120

7070PRINT"<AMATEUR ....ADVENTURER>" :GOTO 7120
7075PRINT"<JOURNEYMAN ....ADVENTURER>" :GOTO 7120

7090PRINT"<EXPERIENCED ....ADVENTURER>":GOTO7120
7100PRINT"<PRO....ADVENTURER>":GOTO7120
7110PRINT"<r.1ASTER....ADVENTURER>" :GOTO 7120
7115PRINT"<GRANDMASTER ....ADVENTURER>"

7120IF GT<>6THENPRINT"{down}BETTER ....LUCK ....NEXT"TIME!"
7150END

8000IF FNA(J} <>-1 THENPRINT"YOU....AREN'T"CARRYING"IT!":GOTO700

