M1SER





-...,l550FOR1=1 TO 30:READO$(I),PT%(I):NEXTI
~560DATARIPC,17,MAT,10,PAPE,13,BUCK,1,SWOR,9,KEY,20,VALV,-1,LADD,
-1
~570DATASLIP,19,RUG,15,BO~~,23,DOOR,-1,CABI,-1,RITN,-1,VICT,-1,
ORGA,-1,PARA,14

~580DATASTAI,-1,PENN,12,CROS,11,LEAF,4,BAG,5,>$<,-1,>$<,-1,RING,7,
PAIN,8
'590 DATA VAUL,-l,POOL,-l,XYZZ,-l,PLUG,-l

"J600 FOR1=1 TO 28:READOM$(I) ,OL%(I) :NEXTI:PRINT"{clr}"

610 DATAPLASTIC~BUCKET,26,VICIOUS~SNAKE,4,CHARMED~SNAKE,-2,
*GOLDEN~LEAF*,45
611 DATA*BULGING~MONEYBAG*,46,>$<,-2,*DIAMOND~RING*,48

612 DATA*RARE~PAINTING*,39,SWORD,13,~~T,0,RUSTY~CROSS,23,PENNY,28
613 DATAPIECE~OF~PAPER,31,PARACHUTE~WITH~NO~RIPCORD,34,
ORIENTAL~RUG,6
614 DATA TRAPDOOR~~mRKED~'DANGER',-2

615 DATAPARACHUTE~RIPCORD,-2,PORTAL~IN~THE~NORTH~WALL,-2
616 DATAPAIR~OF~*RUBY~SLIPPERS*,-2,BRASS~DOOR~KEY,-2

617 DATA~ffiJESTIC~STAIRCASE~LEADING~UP,2

618 DATA~ffiJESTIC~STAIRCASE~LEADING~DOWN,27,BATTERED~BOOK,11

619 DATA ORGAN~IN~THE~CORNER,21,OPEN~ORGAN~IN~THE~CORNER,-2
620 DATACABINET~ON~ROLLERS~AGAINST~ONE~WALL~OVER,5,
REPAI~ED~PARACHUTE,-2

621 DATA"SIGN~SAYING~'DROP~COINS~FOR~LUCK''',19
699 GOTO14000

700PRINT:SC=O:SF=O:GOSUB60000:IFLEN(IN$)=OTHEN700

720IF LEFT$(IN$,l)="~"THENIN$=RIGHT$(IN$,LEN(IN$)-l):GOTO 720
730IF RIGHT$(IN$,l)="~"THENIN$=LEFT$(IN$,LEN(IN$)-l):GOTO 730
735SP=LEN(IN$)+l:PRINT

740SC=SC+l:IFMID$(IN$,SC,l)="~"THENSF=SF+l:SP=SC
750IF SC<LEN(IN$)THEN740

760IF SF>-lANDSF<2THEN GOTO780

770PRINT"PLEASE~TYPE~A~ONE~OR~TWO~WORD~COf.1MAND":GOTO700

\}780CV$=LEFT$(IN$,SP-l):FOR X=l TO 30:IFLEFT$(CV$,4)=V$(X)THEN
I=X:GOTO800

790 NEXTX:GOTO50000
800IF SF=OTHEN CO$="":J=O:GOTO900

810 CO$=MID$(IN$,SP+l,4):FOR X=l TO 30:IFCO$=O$(X)THEN J=X:
GOTO900

820 NEXT X:GOTO50000
830 GOTO 700

900 ONI GOTO1000,1000,2000,2000,2000,4000,5000,6000,7000,8000,
9000,10000

910 ON1-12 GOTO 11000,12000,14000,15000,16000,16000,17000,17000,
17010,17010

920 ON1-22 GOTO19000,19000,20000,21000,22000,24000,6000,25000
1000IF J=OTHEN50000

1002IF PT% (J)=-1 THENPRINT"I~AM~UNABLE~ TO~DO~ THAT. ":GOTO 700

