46COMMODORE 64FUN AND GAMES





1005IF FNA(J)=-lTHENPRINT"YOU'RE"ALREADY"CARRYING"IT":GOTO700
1010IF FNA(J) <>CP THEN51000

1020 OL%(PT%(J=-l:PRINT"OK"
1030 X=PT%(J) :IF(X>3 AND X<9) OR X=19THEN

PRINTIYOU"GOT"A"TREASUREI":GT=GT+l
1040IF J=2 AND OL%(20)=-2THENPRINT"YOU"FIND"A"DOOR"KEYI":
OL%(20)=0

1045IF J=10AND OL%(16)=-2THEN 2200
1050 GOTO 700
2000IF J=OTHEN50000
2005IF J=13AND CP=5AND R%(5,3)=0THEN 2100
2010IF PT% (J)=-l THENPRINT"THAT "ITEN"STAYS"PUT.":GOTO 700
2020IF(FNA(J)<>CP)AND(FNA(J)<>-1)THEN51000
2030IF J=2 AND OL%(20)=-2THEN1040
2040IF J=10AND OL%(16)=-2THEN2200
2050 PRINT"l>'IOVING"IT"REVEALS"NOTHING.II
2060 GOTO 700
2100 PRINTIIBEHIND"THE"CABINET"IS"A"VAULTIII
2110 FV=l:GOTO699
2200PRINT"YOU"FIND"A"TRAP"DOORIII
2210 OL%(16)=6:GOTO699
4000IF J=O- THEN 50000
4002IF J<>llTHEN4030
4005IF(FNA(J)<>CP) AND(FNA(J)<>-1)THEN4030
4010IN$="SCRAWLED"IN"BLOOD"ON"THE"INSIDE"FRONT"COVER"IS"THE
"MESSAGE, II
4011 GOSUB53000:PRINT
4020PRINT"''VICTORy'"IS"A"PRIZE-WINNING"WORD'.II:GOTO700
4030IF J=7THENPRINT"TRY"TURNING"IT. II:GOTO 700
4040IF J<>12THEN4120
-.J4050 IF CP=O AND DU=O THEN PRINT"SORRY,,,THE,,DOOR,,IS,,LOCKED.":
GOTO700
4060IF CP=O AND DU THENPRINTIIT'S"ALREADY "OPEN. I :GOTO 700
~ 4070IF CP<>6THEN51000

4080IN$=IIYOU"OPEN"THE"DOOR."YOU"LEAN"OVER"TO"PEER"IN,,,AND,,YOU"FALL
"IN 1I
" 4090 GOSUB 53000:CP=47:PRINT:GOTO699
4120IF J<>13THEN4160
4130IF OL%(26)<>CPTHEN51000
4140 PRINTIITHE"CABINET"IS"EMPTY"AND"DUSTY."
4150IN$="SCRIBBLED"IN"DUST"ON"ONE"SHELF"ARE"THE"WORDS,,,'BEHIND
"ME'.II
4155GOSUB53000:PRINT:GOTO700
4160IF J<>22THEN4190
4170IF FNA(J) <>CP ANDFNA(J) <>-1 THEN51000

4180 PRINTIITHE"BAG",IS",KNOTTED",SECURELY.":PRINTIIIT",\iON'T",OPEN.":
GOTO700
4190IF J<>27THEN 4230

