66COMMODORE64 FUN AND GAMESVolume 2



595 MV%(40,6)=39:MV%(39,5)=40:rern46604
600 RM$(39)="INAAAROCKYAROOMAWITHALIGHTAPOURINGATHROUGHAAABIGAHOLEAINATHE

AROOF":rern20872
605 RETURN:rern35286

610PRINT"{down}SINCEAYOU'READEAD'AWHATASAYAWEAJUSTAPACKITAINANOW'AOK?":
RETURN:rern7955

700GOSUB500:PRINT"{grn}":SC=O:SF=O:TV=O:GOSUB60000:rern30706
710PRINT"{pur}":IFLEN(IN$)=OTHEN PRINT"{grn 2up}"; :GOSUB 60000:
GOTO710:rern35572

720IF LEFT$(IN$,l)="A"THENIN$=RIGHT$(IN$,LEN(IN$)-l):
GOTO720:rern63606

730IF RIGHT$(IN$,l)="A"THENIN$=LEFT$(IN$,LEN(IN$)-l):
GOTO730:rern58202

735SP=LEN(IN$)+l:IFSP=lTHEN 700:rern41265

740SC=SC+l:IFMID$(IN$,SC,l)="A"THENSF=SF+l:SP=SC:rern1409
750IF SC<LEN(IN$)THEN 740:rern8873
760IF SF>-lANDSF<2THEN 780:rern31289

770 PRINT"PLEASEA TYPEAAAON EAORATWOAWORDACOMMAND.":GOTO 700:rem 31535

780 CV$=LEFT$(LEFT$(IN$,SP-l),4):CV=O:CN$="":CN=O:rern64992
790IF SF<>OTHENCN$=MID$(IN$,SP+l,4):rern17563
800 FORX=l TO VC:IFCV$=VB$(X)THENCV=X:rem 362

810 NEXTX:IF CV=OTHEN 31000:rem 52417
820 IF SF=OTHEN 900:rem 59496

830 FORX=l TO NC:IFCN$=NN$(X)THENCN=X:rem 5740
840 NEXTX:IF CN=O ANDCV<>17THEN 32000:rem 8511

900 ON CV GOTO 1000,1000,2000,2000,3000,3000,4000,4000,5000,5000,6000,
6000,7000:rern51118
910 ON CV-13GOTO 7000,8000,8000,9000,10000,10000,11000,12000,13000,14000,
15000:rern11000

920 ON CV-24GOTO 15000,16000,17000,14000,19000,19000,18000,20000,21000,
22000:rem 57510

930 ON CV-34GOTO23000,21000:rem 13766
990 PRINT"UNIMPLEMENTED.":END:rern63720

1000IF MV%(CP,l)=OTHEN 37000:rem 21403

1010 CP=MV%(CP,l) :TV=l:GOTO7009:rem 63808
2000IF MV%(CP,2)=0THEN 37000:rern11817
2010IF EX=O OR CP<>18THEN 2020:rem 7212

2015 PRINT"THEAPATHAISABLOCKEDABYAAARECENTACAVE-IN.":GOTO700:rem 48431

2020 CP=MV%(CP,2) :TV=l:GOTO7000:rem 22678

3000IF MV%(CP,3)=0THEN37000:rern21069
3010 CP=MV%(CP,3) :GOTO 7000:rem 49127

4000IF MV%(CP,4)=0THEN37000:rem 54605
4010 CP=MV%(CP,4) :GOTO 7000:rern51969
5000IF MV%(CP,5)=0THEN 37000:rem 19639

5010 CP=MV%(CP,5) :GOTO 7000:rem 41591
6000IF MV%(CP,6)=0THEN37000:rem 11653

6010 CP=MV%(CP,6) :GOTO 7000:rern14127
7000IF(CV>12) AND(CV<15) ANDCN THENPRINT"TRYAEXAM.":
GOTO700:rern19721

7005OU$="YOUAAREA"+RM$(CP)+".":GOSUB30000:rern50940
7010FOR X=l TO OC:IFOL%(X)<>CPTHEN 7030:rern64674

7020OU$="THEREAISAAA"+OB$(X)+"AHERE.":PRINT:GOSUB30000:rem 32339
7030NEXTX:rern33789

7100PRINT"{down}OBVIOUSAEXITS:A";:FOR X=l TO 6:rem 15829
7110IF MV%(CP,XOTHENPRINTMID$(DR$,X,l);"A";:rern18178

