MISER51





21060IF PF ANDOL%(7)=25THENOL%(7)=-3:GOTO700

21070GOTO700
22000IF CP<>27ANDCP<>29AND CP<>32THEN 22050

22010PRINT"YOU....JUMP ":IF CP=27THEN22500
22020IF OL%(14)=-1THEN22100\
22030IF OL%(27)=-1THEN 22200
22040PRINT"YOU....HIT THE....GROUND.":GOTO22540
22050PRINT"THERE'SNOWHERETO JUMP.":GOTO700
22100PRINT"THERE ....IS NO....WAYTO OPEN ....THE ....PARACHUTEI":GOTO22040
22200PRINT"YOU....YANKTHEARIPCORD ....ANDATHE"
22210PRINT"'CHUTE ....COMES ....BILLOWING ....OUT.":IFCP=32THENCP=40:
GOTO699
22220PRINT"YOU....LAND ....SAFELY":
PRINT"{down}CONGRATULATIONS....ON....ESCAPING 1"
22230ES=l:GOTO7010
22500IF JM THEN22530
22510PRINT"YOU HAVE ....LANDED ....DOWN-STAIRS,":
PRINT"AND NARROWLY ....ESCAPEDSERIOUS"
22520PRINT"INJURY ....PLEASE ....DON' T TRY....IT....AGAIN. ":JM=l:CP=2 :GOTO 699
22530PRINT"NOW....YOU'VEADONEITI....YOU ....IGNORED"
22535PRINT"MY....WARNING, ....AND AS ....A RESULT"
22540PRINT"YOU....HAVE ....BROKENYOUR NECKI":PRINT"{down}YOU ....ARE ....DEAD.":
END

24000IF CP=19THENPRINT"THE....WATER ....IS....ONLY ....A....FEWAINCHES ....DEEP.":
GOTO700
24010IF CP<>25THENPRINT"THERE' S....NOTHING ....HERE ....TO....SWIl>1.....IN1":

GOTO700
24020IF PF THENPRINT"IN....MERCURY? ....NO ....WAY 1":GOTO700
24030PRINT"THE....POOL ....IS....EMPTY.":GOTO700
25000IF J=OTHEN 50000
25010IF J=7 THENPRINT"I....AIN' T....NO....PLUMBER. ":GOTO700
25020IF J<>17THENPRINT"I....WOULDN'T ....KNOW ....HOW. ":GOTO 700
25030IF FNA(J) <>CP ANDFNA(J) <>-1 THEN51000
25040IF OL% (14)=-2 THENPRINT"IT'S....ALREADY ....FIXED. ":GOTO700
25050IF OL% (17)<>-1 THENPRINT"I....NEED A....RIPCORD. ":GOTO 700
25060PRINT"I'M ....NO ....EXPERT, ....BUT ....I....THINKIT'LL ....WORK."
25070OL% (27)=OL% (14):OL% (14)=-2:PT% (17)=27 :OL%(17)=0 :GOTO 700
50000PRINTH$(EM):EM=3-EM:GOTO700
51000 PRINT"I....DON'T ....SEE....IT....HERE.":GOTO700
52000PRINT"IT'S....IMPOSSIBLE ....TO....GOATHAT ....WAY.":GOTO700
53000IF LEN(IN$)<=40THENPRINTIN$i:RETURN
53005OE=40
53010IF MID$(IN$,OE,l) <>"...." THENOE=OE-l:GOTO53010
53020PRINTLEFT$(IN$,OE):PRINTRIGHT$(IN$,LEN(IN$)-OE)i:RETUR~
60000IN$=" ....":ZT=TI:ZC=2:ZD$=CHR$(20)
60010GET Z$:IFZ$<>""THEN60070
60020IF ZT<=TITHENPRINTMID$(" ....{}",ZC,1)i"{left}"i:ZC=3-ZC:
ZT=TI+15

