MISER-I69


:5300GOSUB 15400:PRINT"UNDER"THE"SURFACE,YOU,FIND,A,TUNNEL.":rem49004
:-310PRINT"ADVENTURER "YOU"ARE, "YOU"FOLLOW"IT.{down}":GOTO15500:rem43198
:-400IFOL%(9)=-1THEN PRINT"YOU"SINK"LIKE"A"ROCK.{down}":
GOTO 36000:rem57262
: - 405IF' ALTHEN IFWS THEN RETURN:rem53569

:-410OU$="YOU"ARE"NOT"A"FISH."WITH"NO"AIR"SUPPLY,YOU,QUICKLY
"DROWN.{down}":rem7883
:5420GOSUB 30000:GOTO36000:rem20908
:5500IFOL%(5)=-1THEN OL%(5)=0:OL%(12)=-1:PN%(4)=12:rem18095
:5510IFOL%(10)=-1THEN OL%(10)=0:OL%(11)=-1:PN%(14)=11:rem5502
:5520GOTO 7000:rem30229

:5600PRINT"THE"RUSHING"WATER"SWEEPS"YOU"AWAY {4space}
YOU"ARE"PUMMELED"BY"THE",";:rem20238
:5610PRINT"ROCKS " :GOTO 36000: rem44379
_6000GOSUB 35000:rem37678

':'6010IFCN<>9THEN PRINT"YOU"WOULDN'T"LOOKSOO"GOOD"IN"IT.":
GOTO 700:rem65180

16020IFWS THEN PRINT"YOU"ARE"ALREADY "WEARING "IT.":GOTO700:rem53531
6030WS=l:PRINT"OK":GOTO700:rem64528
7000GOSUB 35000:rem33785

7010IF(CN<>9)OR (WS=O)THEN PRINT"YOU"AREN'T"WEARING"IT.":
GOTO 700:rem39076
7020PRINT"OK":WS=O:GOTO700:rem13098

8000IF(CN<>10)OR (CP<>48)THEN 11000:rem61872
18010PRINT
"YOU "RING"A"SPIKEI"A"LITTLE"TROLL "WALKS"OUT, "CONGRATULATES "YOU, ",";
:rem10948

18020PRINT"AND"HANDS"YOU"A"PRIZE.":OL%(17)=-1:0L%(7)=0:GOTO700:rem40198
19000GOSUB 35000:rem61760
19010IFCN=17THEN 19100:rem60334

19015IFCN=26THEN PRINT"I "NEED"A"COLOR. ":GOTO700:rem41982

19020IFCN<>18THEN PRINT"YOU"PUSH"QUITE"HARD,BUT,TO,NO,AVAIL.R:
GOTO 700:rem48033

19030IFMV%(2,4)=1THEN PRINT"NOTHING"HAPPENS.":GOTO700:rem6163
19040OU$="THE" ENGINES "ROAR"TO"LIFE,"AND"THE"BOAT"MAKES "A"3"HOUR
"JOURNEY.{down}":rem22139

19050GOSUB 30000:MV%(2,4)=1:GOTO7000:rem3928
19100IFMV%(2,4)=5THEN PRINT"NOTHING"HAPPENS.":GOTO700:rem53131
1911 0 OU$="THE" ENGINES "ROAR"TO"LIFE,"AND"THE"BOAT "MAKES"A",3"HOUR
"JOURNEY.{down}":rem43430
19130GOSUB 30000:MV%(2,4)=5:GOTO7000:rem58465
20000IFCN THEN 31000:rem17074

20010GOSUB 20500:0U$="WERE"YOU"TO"QUIT"NOW,YOU,WOULD,HAVE..A..SCORE..OF"
: rem32509

20015IFS<lTHEN OU$=OU$+" ..O":GOTO20025:rem32307
20020OU$=OU$+STR$(S):rem51230
20025OU$=OU$+"..POINTS.":GOSUB30000:
PRINT"{down}THIS..PUTS..YOU..IN ..THE ..CLASS ..OF:":rem63255

20030PRINT"{down}<";RT$;"ADVENTURER)":
PRINT"{down}DO..YOU..INDEED ..WISH ..TO..QUIT .NOW?{grndown}":rem36518

20040GOSUB 60000:IFLEFT$<IN$,l)<>"y"THEN PRINT"{purdown}OK":
GOTO 700:rem59477

20050PRINT"{purdown}THANKS.FOR.A.FUN..GAME1{down}":GOTO 21070: rem3460
20500S=O:FORX=lTO OC:IFNOT FNT(X)THEN20530:rem64008
20510IFOL%(X) =49THEN S=S+20: rem1152

