70COMMODORE64 FUN AND GAMESVolume 2



20520IFOL%(X)=-lTHENS=S+5:rem5946

20530NEXTX:IFAC THENS-S-20:rem29064
20540FORX=lTO CC:IFS<RP%(X)THENRT$-RT$(X):RT-X:RETURN:rem6582
2050NEXTX:RETURN:rem35650

2100IFCN THEN3100:rem57522

21010PRINT"DO"YOU"REALLY"WANT"TO"QUIT?{grndown)":GOSUB6000:rem34406

21020IFLEFT$(IN$,l)O"y"THENPRINT"{downpur}OK":GOTO700:rem38087
21030GOSUB2050:PRINT"{purdown}YOU"ACCUMULATED"A"SCORE"OF,",S,
"POINTS.":rem61760

21040PRINT"{down}THIS"PUTS"YOU"IN"A"CLASS"OF:{down}":

PRINT"<" ;RT$;"ADVENTURER){down}": rem51624
21050IFRTOCCTHENPRINT"BETTER"LUCK"NEXT"TIME":rem51728
21060IFRT=CCTHENPRINT"CONGRATULATIONS!":rem16185
21070FORX=lTO 600:NEXT:GOTO60600:rem3063
2200GOSUB3500:rem9105

2010PRINT"IT "WON' T"BUDGE.":GOTO7 00: rem65316
2300IFCN THEN 3100:rem34184

23010IFCP043THENPRINT"CAREFUL!"YOU"MIGHT"HIT"YOUR"HEAD!":
GOTO 700:rem4921

23020IFOL%(l)=-lTHEN GOSUB2310:rem18721

23030PRINT"YOU"AREN 'T"A"BIRO!"IT'S"A"LONG"WAY" :PRINT:
GOTO 3600:rem4901

2310OU$=" I "GUESS"YOU"NEVER "L EARNED,.TO"RE-PACK"PARACHUTES.{down}"
: rem24796

23110GOSUB300:RETURN:rem63385

3000OE=40:IFLEN(OU$)<40THENPRINTOU$:RETURN:rem2203

3010IFMID$(QU$,OE,l)O","THENOE=OE-l:GOTO3010:rem53320
3020PRINTLEFT$(OU$,OE-l):PRINTRIGHT$(OU$,LEN(OU$)-OE):RETURN:rem64814
3100EM=3-EM:PRINTEM$(EM):GOTO700:rem35096

3200OU$=" I "DON'T"KNOW"WHAT"A" "+RIGHT$(IN $, LEN (IN $) -Sp)+" "IS.":
GOSUB3000:rem6982
32010GOTO 700:rem9590

3300PRINT"I"DON'T"SEE.IT .HERE.":GOTO70:rem53917

3400PRINTIN$;".WHAT?":GOTO70:rem56079
3500IFCN=OTHEN3400:rem3866

35010IFFNW(CN) =-1THENRETURN:rem46548

35020IFFNW(CN)OCPTHENPRINT"I .DON'T"SEE.IT .HERE.":GOTO700:rem1323
35030IFFNR(CN)THENPRINT"YOU"DON ' T"HAVE .IT.":GOTO70:rem50264
35040RETURN:rem3012

3600CP=46:AC=6:DC=9:GOTO700:rem21091

3700PRINT"THERE .IS .NO.WAY.TO.GO.IN"THAT"DIRECTION."; :GOTO70:rem5210

4000DATA55,36,28,23,6:rem12759
4010DATA0,49,2,0,0,0,"IN" THE"MISER'S.MARINA, "STANDING.oo "A .DOCK"
: rem495 9

4020DATA0,0,0,1,3,4,"ON"THE"MISER'S.BOAT":rem6475
4030DATA0,0,0,0,0,2,"AT.THE"HELM"OF"THE.MISER'S.BOAT":rem21324

40040DATA0,0,0,0,2,0,"BELOW"DECKS.ON"THE .MISER'S"BOAT":rem13950
40050DATA0,0,2,0,6,0:rem52702

40055DATA"IN "THE .MISER'S"PRIVATE.ISLAND"MARINA,"STANDING"ON.A"DOCK"
:rem46255

4060DATA0,0,7,8,0,5,"ON .A.LONG.PATH"OVERLOOKING"THE"MISER'S.MARINA"
:rem36304

40070DATA 0,43,42,6,0,0,"STANDING"AT"A"FORK"IN"THE"PATH":rem17293
4080DATA0,12,6,9,0,0:rem56319

