start: 801
0 REM"HAVE FUN! HEHEHE...
1 
14906 PRINTCHR$(14)
10 
14906 PRINT CHR$(147):PRINT" ' - DVENTURE"
20 
14906 PRINT:PRINT:INPUT"dO YOU NEED THE INSTRUCTIONS";A$:A$=LEFT$(A$+" ",1)
21 
14906 IFA$="Y"ORA$="y"THENGOSUB1350:PRINT
22 
14906 POKE53272,23
30 
14906 DIMD$(19),O$(31),L(25),P(19,6):L=1:FORX=1TO19:READD$(X):NEXT
31 
14906 DATA fRONT rOOM,wAITING rOOM,bATHROOM,oFFICE,bALCONY,aLLEY,bAR
32 
14906 DATA bRICK fIREPLACE,hIDDEN cORRIDOR,sECRET pASSAGE,tURKISH bATH cHAMBER
33 
14906 DATA rAFT,mASSAGE rOOM
40 
14906 DATA sTOREROOM,lOFT,sAUNA,fIFI'S aPARTMENT,sITTING rOOM,s&m cHAMBER
41 
14906 FORX=1TO31:READO$(X):IFX>6THENREADL(X-6)
50 
14906 NEXT:T2=8:R=11
51 
14906 WS$="mONEY"
52 
14906 DATA nORTH,sOUTH,eAST,wEST,"uP ",dOWN,sLEDGE hAMMER,5,wATCH,1,lEATHER wHIP
53 
14906 DATA 9,dIRTY mAGAZINE,3,sWITCHBLADE,4,oAR,6,kEY,99,bEER,7,bODY oIL
54 
14906 DATA 13,sUITCASE,14,bUCKET,14
60 
14906 DATA tORCH,8,nAILS,15,cURTAIN,16,rAFT,11,rUSTY gATE,17,bEDROOM dOOR
61 
14906 DATA 18,fIRE IN THE fIREPLACE,2,tOILET,3,sIGN,1,rAILING,5,bRICK fIREPLACE
62 
14906 DATA 2,rAT,19,wINE,2,cHEDDAR cHEESE,2
63 
14906 FORY=1TO19:FORX=1TO6:READP(Y,X):NEXT X,Y
64 
14906 BL$="                                        "
70 
14906 DATA ,,3,2,,,,,1,,,,,,4,1,,,,,5,3,,,,,,4,,,,7,,,5,,6,,,,4,,,2,,,,,13,,,,3
71 
14906 DATA ,11,8,,19,,,,10,,,,,,11,,,,,14,9,,,,,,13,,,2,,,,,,,16,,,,,,,,16
72 
14906 DATA ,,,,,17,,,,,,,10,13,,
73 
14906 W$="GO GETLOODROHITOPETIEPUSPAYOILROWCLITALREATHRCUT"
80 
14906 N$="N  01S  02E  03W  04U  05D  06HAM07MAG10SWI11BEE14OIL15GAT22DOO23FIF23"
81 
14906 N$=N$+"FIR28"
90 
14906 O$="NORSOUEASWESUP DOWSLEWATWHIRAISWIOARKEYBEEKEYSUIBUCTORNAICURRAFRUSBED"
91 
14906 O$=O$+"FIRTOISIGDIRBRIRATWINCHE":PRINTCHR$(147)
100 
14906 CU=0:PRINTCHR$(19);:HO$="OU ARE IN THE "+D$(L):Y=0:L2=L:GOSUB6000
101 
14906 IFL(12)=0ORL<10OR(L>12ANDL<>18)THEN120
105 
14906 HO$="":IFL(12)=0ORL<10OR(L>12ANDL<>18)THEN120
110 
14906 HO$="T'S ARK! YOU CAN'T SEE":GOSUB6000:GOTO150
120 
14906 HO$="OU SEE ":FORX=1TO25
125 
14906 IFL(X)=L2THENIFLEN(HO$)+LEN(O$(X+6))+2>39THENGOSUB6000
126 
14906 IFL(X)=L2THENHO$=HO$+O$(X+6)+", ":Y=Y+1
130 
14906 NEXT:GOSUB6000:IFY=0THENHO$="NOTHING INTERESTING.":GOSUB6000
132 
14906 HO$="BVIOUS EXITS ARE: ":GOSUB6000:FORX=1TO6
135 
14906 IFP(L,X)>0THENHO$=HO$+O$(X)+" "
140 
14906 NEXT:GOSUB6000
150 
14906 PRINT"--------------------------------------"
155 
14906 GOTO 161
160 
14906 GOTO 100
161 
14906 CU=23-CU:FORX=1TOCU:PRINTCHR$(17);:NEXT
162 
14906 S=0:F=0:INPUT"HAT DO YOU WANT TO DO";A$:IFA$=""ORA$="QUIT"THENEND
163 
14906 PRINT:AA$=A$:B$="   "
164 
14906 FOR X=1TOLEN(A$):IFMID$(A$,X,1)=" "THENB$=MID$(A$+"   ",X+1,3)
170 
14906 NEXT:IFLEN(A$)=1THENB$=A$+"  ":A$="GO "
180 
14906 GOSUB1290:L2=L:T1=T1+1:IFT1=60THENT1=0:T2=T2+1
190 
14906 IFT2=12THENPRINT" iT'S MIDNIGHT! tHE wHORE-hOUSE IS CLOSED"
191 
14906 IFT2=12THENPRINT" AND THE pIMP THROWS YOU OUT!":GOTO1260
200 
14906 IFA$="SWI"ANDL=11THENPRINT" yOU HAVE BEEN sCALDED TO dEATH IN THE hOT"
201 
14906 IFA$="SWI"ANDL=11THENPRINT" tURKISH bATHS! ":GOTO1260
210 
14906 FORX=1TOLEN(N$):IFMID$(N$,X,3)=B$THEN212
211 
14906 NEXT:GOTO220
212 
14906 XX=X
213 
14906 IFX>4THENX=X-5:GOTO213
214 
14906 IFX=1THENS=VAL(MID$(N$,XX+3,2)):GOTO230
220 
14906 FORX=1TOLEN(O$):IFMID$(O$,X,3)=B$THEN222
221 
14906 NEXT:GOTO230
222 
14906 XX=X
223 
14906 IFX>2THENX=X-3:GOTO223
224 
14906 IFX=1THENS=(XX+2)/3
230 
14906 FORX=1TOLEN(W$):IFMID$(W$,X,3)=A$THEN232
231 
14906 NEXT:GOTO240
232 
14906 XX=X
233 
14906 IFX>2THENX=X-3:GOTO233
234 
14906 IFX=1THENF=(XX+2)/3
240 
14906 IF F>11 THEN F=F-11
250 
14906 IFA$<>"INV"THEN290
260 
14906 PRINT"yOU ARE CARRYING: "
261 
14906 A=0:FORX=1TO25
262 
14906 IFL(X)=0THENIFLEN(HO$)+LEN(O$(X+6))+2>39THENGOSUB6000
263 
14906 IFL(X)=0THENHO$=HO$+O$(X+6)+", ":A=A+1
270 
14906 NEXT:GOSUB6000:IFA=0THENPRINT"NOTHING";
280 
14906 PRINT:GOTO160
290 
14906 ONFGOTO320,490,680,810,870,950,1040,1100,1150,1210,1240
291 
14906 PRINT"i DON'T KNOW HOW TO DO THAT":GOTO160
300 
14906 PRINT"i DON'T KNOW THAT WORD":GOTO160
310 
14906 REM
320 
14906 IFS<1ORS>6THEN360
330 
14906 IFP(L,S)>0THENL=P(L,S):GOTO100
340 
14906 PRINT"yOU CAN'T GO THAT WAY":GOTO160
350 
14906 PRINT"yOU SEE NOTHING SPECIAL":GOTO160
360 
14906 IFS<>28ORL<>2THEN390
370 
14906 IFFI=0THENPRINT" yOU HAVE bURNED TO dEATH! ";:GOTO1260
380 
14906 L=8:GOTO100
390 
14906 IFS<>27ORL<>5THEN420
400 
14906 IFLEFT$(O$(27),1)=""THENL=6:PRINT"LIMBED DOWN HIP":PRINT:GOTO100
410 
14906 PRINT" yOU FELL AND dIED ";:GOTO1260
420 
14906 IFS=21ANDL(15)=LTHENL=12:GOTO100
430 
14906 IFL=16ANDB$="LOF"THEN460
440 
14906 IFS<1THEN300
450 
14906 PRINT"yOU CAN'T GO THERE":GOTO160
460 
14906 IFL(10)=LANDO$(16)="sUITCASE"THENL=15:GOTO100
470 
14906 PRINT"iT'S A LITTLE TOO HIGH":GOTO160
480 
14906 REM
490 
14906 IFS<7THEN300
500 
14906 IFC>6THENPRINT"yOU CAN'T CARRY ANY MORE":GOTO160
510 
14906 IFL(S-6)<>LTHEN650
520 
14906 IFS<>14THEN550
530 
14906 V$="IN":GOSUB1330:IFA$="buc"ANDL(11)=0THEN660
540 
14906 PRINT"yOU CAN'T DO THAT":GOTO160
550 
14906 IFS<>20THEN580
560 
14906 IFTA=0THENPRINT"iT'S NAILED TO THE LOFT":GOTO160
570 
14906 P(16,1)=17:PRINT"aha! - a HOLE IN THE WALL":PRINT:GOTO660
580 
14906 IFS<>19THEN610
590 
14906 IFL(1)<>0THENPRINT"yOU HAVE NO HAMMER":GOTO160
600 
14906 IFL(13)=15THENTA=1:PRINT"tHE cURTAIN IS LOOSE":GOTO660
610 
14906 IFS<>13THEN640
620 
14906 L(23)=L:IFL(25)=LTHEN660
630 
14906 PRINT"tHE rAT HAS IT":GOTO160
640 
14906 IFS>20ANDS<30THENPRINT"yOU CAN'T GET IT":GOTO160
641 
14906 GOTO660
650 
14906 PRINT"i DON'T SEE ANY "O$(S):GOTO160
660 
14906 C=C+1:L(S-6)=0:PRINT"yOU GOT THE "O$(S):GOTO160
670 
14906 REM
680 
14906 IFS<7THEN100
690 
14906 IFS=26ANDL=1THENPRINT"'tHE whore-house CLOSES AT mIDNIGHT'":GOTO160
700 
14906 IFS<>29THEN730
710 
14906 IF L(23)<>L THEN 650
720 
14906 PRINT"a kEY IS IN IT'S MOUTH!":L(7)=L:GOTO160
730 
14906 IFS<>10THEN770
740 
14906 IFL(4)=0THEN760
750 
14906 PRINT"yOU DON'T HAVE IT":GOTO160
760 
14906 PRINT"tHE dIRTY mAGAZINE READS:  'nOT ALL EXITS ARE OBVIOUS.'":GOTO160
770 
14906 IFS<>8THEN350
780 
14906 IFL(2)<>0THEN750
790 
14906 TM$=RIGHT$(STR$(T2),2)+":"+RIGHT$(STR$(T1),2)
791 
14906 FORX=2TO5:IF MID$(TM$,X,1)=" "THENTM$=LEFT$(TM$,X-1)+"0"+RIGHT$(TM$,5-X)
792 
14906 NEXT:PRINTTM$:GOTO160
800 
14906 REM
810 
14906 IFS<7THEN300
820 
14906 IFL(S-6)<>0THEN750
830 
14906 IFS<>14ORL<>2THEN850
840 
14906 O$(24)="sMOLDERING aSHES":FI=1:L(8)=99:C=C-1:GOTO100
850 
14906 PRINT"oKAY, THE "O$(S)" IS ON THE "D$(L)" FLOOR":L(S-6)=L:C=C-1:GOTO160
860 
14906 REM
870 
14906 IFS<7THEN300
880 
14906 IFL(S-6)<>LAND(L<>8ORS<>28)THEN650
890 
14906 V$="WITH":GOSUB1330:IFA$<>"SWI"ORS<>16ORL(5)<>0THEN910
900 
14906 O$(16)=WS$:N$=N$+"MON16":GOTO100
910 
14906 IF(A$<>"SLE"ANDA$<>"HAM")ORS<>28ORL(1)<>0THEN930
920 
14906 O$(28)="bROKEN fIREPLACE":P(8,1)=10:D$(8)=O$(28):GOTO100
930 
14906 PRINT"nOTHING HAPPENED":GOTO160
940 
14906 REM
950 
14906 IFS<7THEN300
960 
14906 IFL(S-6)<>LTHEN650
970 
14906 IFS<>23THEN1000
980 
14906 IFL(7)<>0THENPRINT"tHE bEDROOM dOOR IS LOCKED ... ";:GOTO930
990 
14906 O$(23)="fIFI IN HER bED":GOTO100
1000 
14906 IFS<>22THEN930
1010 
14906 IFOI=0THENPRINT"tOO MUCH RUST ... ";:GOTO930
1020 
14906 O$(22)="oPEN gATE":P(17,1)=18:GOTO100
1030 
14906 REM
1040 
14906 IFS<7THEN300
1050 
14906 IFL(S-6)<>0THEN750
1060 
14906 IFS<>9THEN540
1070 
14906 V$="TO":GOSUB1330:IFA$<>"RAI"THEN540
1080 
14906 L(3)=99:C=C-1:O$(27)="wHIP TIED TO THE rAILING"
1081 
14906 N$=N$+"WHI27":PRINT O$(27);"!":GOTO160
1090 
14906 REM
1100 
14906 IFS<7THEN300
1110 
14906 IFL(S-6)<>LTHEN650
1120 
14906 IFS<>25THEN930
1130 
14906 PRINT"aHA! - yOU HAVE REVEALED A dOORWAY":PRINT:P(L,6)=9:GOTO100
1140 
14906 REM
1150 
14906 IFS<7THEN300
1160 
14906 IFS<>23ORLEFT$(O$(23),1)<>"F"THEN540
1170 
14906 V$="WITH":GOSUB1330:IF(A$="MON")ANDL(10)=0ANDO$(16)=WS$THEN1190
1180 
14906 PRINT" yOU fAILED!  fIFI LEAVES AND"
1181 
14906 PRINT" YOU LOSE YOUR hARD-oN! ";:GOTO1260
1190 
14906 PRINT"cONGRATULATIONS!"
1191 
14906 PRINT"  yOU JUST GOT SCREWED BY fIFI!!":GOTO1260
1200 
14906 REM
1210 
14906 IFL(9)<>0ORL<>17ORS<>22THEN540
1220 
14906 PRINT"tHE gATE SQUEAKS oPEN":PRINT:OI=1
1221 
14906 O$(22)="oPEN gATE":P(17,1)=18:GOTO100
1230 
14906 REM
1240 
14906 IFL<>12ORL(6)<>0THEN540
1250 
14906 R=27-R:L=R:PRINT"yOU HAVE ROWED TO THE ";D$(L):PRINT:L(15)=L:GOTO100
1260 
14906 PRINT:PRINT:INPUT"wOULD YOU LIKE TO TRY AGAIN";A$:GOSUB1290
1261 
14906 IFLEFT$(A$,1)="Y"THENRUN
1270 
14906 IFLEFT$(A$,1)="R"THENT1=T1-2:GOTO120
1280 
14906 END
1290 
14906 A$=LEFT$(A$+"   ",3)
1300 
14906 RETURN
1330 
14906 REM
1340 
14906 PRINT:PRINT"-- "V$" WHAT";:INPUT A$:PRINT:GOSUB 1290:RETURN
1350 
14906 PRINTCHR$(147):PRINT:PRINT"HORE-OUSE HAS A CONCEALED GOAL."
1351 
14906 PRINT"yOU LEARN WHAT THE GOAL IS":PRINT"BY EXPLORING YOUR SURROUNDINGS."
1352 
14906 PRINT"  tHE COMPUTER WILL ACT AS YOUR EYES"
1360 
14906 PRINT"AND HANDS.  iT WILL ACCEPT SHORT"
1361 
14906 PRINT"PHRASES AS COMMANDS AND ASSUMES"
1362 
14906 PRINT"THAT THE FIRST WORD IS A VERB AND"
1363 
14906 PRINT"THE LAST WORD IS THE OBJECT."
1364 
14906 PRINT"fOR EXAMPLE: read the sign."
1365 
14906 PRINT"tHE COMPUTER HAS A VOCABULARY OF ABOUT"
1370 
14906 PRINT"70 WORDS.  sOME OF THE MORE IMPORTANT"
1371 
14906 PRINT"WORDS YOU SHOULD KNOW BEFORE"
1372 
14906 PRINT"YOU START PLAYING ARE: get <OBJECT>,"
1373 
14906 PRINT"drop <OBJECT>, look <OBJECT>"
1374 
14906 PRINT"OR JUST look, go <DIRECTION> OR <PLACE>"
1375 
14906 PRINT"AND inventory (TELLS WHAT"
1380 
14906 PRINT"YOU ARE CARRYING).  tHE COMPUTER"
1381 
14906 PRINT"KNOWS THE ABBREVIATIONS: e, w, n,"
1382 
14906 PRINT"s, u AND d FOR go east, go west, ETC."
1383 
14906 PRINT"press <return>";
1384 
14906 GETA$:IFA$=""THEN1384
1385 
14906 PRINTCHR$(147):PRINT"HE COMPUTER'S VOCABULARY IS GOOD,"
1386 
14906 PRINT"BUT LIMITED.  iF YOU ARE HAVING"
1390 
14906 PRINT"TROUBLE DOING SOMETHING, TRY"
1391 
14906 PRINT"RE-PHRASING THE COMMAND OR YOU MAY"
1392 
14906 PRINT"NEED SOME OBJECT TO ACCOMPLISH"
1393 
14906 PRINT"THE TASK."
1400 
14906 PRINT"---  ! ---"
1410 
14906 PRINT"PRESS <>"
1420 
14906 GETA$:IFA$=""THEN1420
1430 
14906 RETURN
6000 
14906 IF LEN(HO$)<>40THENHO$=HO$+LEFT$(BL$,40-LEN(HO$))
6010 
14906 PRINTHO$;:HO$="":CU=CU+1:RETURN
