 10S$=STRING$(255,32)
 1CLEAR 1000
 2CLS
 3DIM ROOM$(100),VERB$(100),OB$(100),OB(100),D(100,4),D$(4),F(50),U(100,2)

 5ROOM$( 1)="SHIT ROOM"
 6ROOM$( 2)="PARADISE"
 7ROOM$( 3)="HELL"
 8OB$( 1)="GUN"
 9OB$( 2)="STONE"
 10VERB$( 1)="SHOOT"
 11VERB$( 2)="THROW"
 11VERB$( 2)="THROW"
 13OB( 1)= 1
 14OB( 2)= 2
 15DATA NORTH,SOUTH,EAST,WEST
 16FOR I=1 TO 4 :READ D$(I):NEXT
 17D( 1, 1)= 2
 18D( 1, 2)= 3
 19D( 1, 3)= 0
 20D( 1, 4)= 0
 21U( 1,1)= 0
 22U( 1,2)= 0
 23D( 2, 1)= 3
 24D( 2, 2)= 0
 25D( 2, 3)= 0
 26D( 2, 4)= 0
 27U( 2,1)= 0
 28U( 2,2)= 0
 29D( 3, 1)= 0
 30D( 3, 2)= 2
 31D( 3, 3)= 0
 32D( 3, 4)= 0
 33U( 3,1)= 0
 34U( 3,2)= 0
 34U( 3,2)= 0
 36NV= 2
 37NO= 2
 38CLS
 39YOU=1
 40PRINT@0,S$;S$;S$;S$;S$;S$:?@0," "
 41PRINT@65,"I AM "
 42PRINT ROOM$(YOU)
 43PRINT"I CAN SEE :
 44FOR I=1 TO NO:IF INT(OB(I))=INT(YOU)THEN PRINT OB$(I);" , ";
 45IF POS(0)+LEN(OB$(I+1))+3>64 THEN PRINT
 46NEXT
 47PRINT
 48PRINT"YOU CAN GO :";
 49FOR I=1TO4
 50IF D(YOU,I)<>0THEN PRINT D$(I);" ";
 51NEXT
 52IF U(YOU,1)<>0 THEN PRINT"UP";
 53IF U(YOU,2)<>0 THEN PRINT"DOWN"
 54PRINT
 55PRINT STRING$(35,61)
 56PRINT@960,:INPUT"WHAT SHOULD I DO";I$
 57IF LEFT$(I$,3)<>"INV"THEN 61
 58FOR QQ=1TO NO
 59IF OB(QQ)=-1THEN PRINT OB(QQ)
 60NEXT
 61IF LEFT$(I$,5)<>"SCORE"THEN 68
 62T=0:Y=0
 63FOR I=1TO NO
 64FOR L=1TO LEN(OB$(I))
 65IF MID$(OB$(I),L,1)="*"THEN T=T+1:IF OB(I)=YOU OR OB(I)=-1 THEN Y=Y+1
 66NEXT:NEXT
 67PRINT"OUT OF ";T;"POINTS YOU HAVE";Y:GOTO 40
 68FOR I=1TO NV
 69N=LEN(VERB$(I))
 70IF LEFT$(LEFT$(I$,N),3)=LEFT$(VERB$(I),3)THEN V$=VERB$(I)
 71NEXT
 72PRINT
 72PRINT
 74Y1=0
 75FOR I=1TO LEN(I$)
 76IF MID$(I$,I,1)=CHR$(32)THEN Y1=I
 77NEXT
 78O$=RIGHT$(I$,LEN(I$)-Y1)
 79Y=0
 80FOR I=1TO NV
 81IF LEFT$(VERB$(I),3)=LEFT$(V$,3) THEN Y=I
 82NEXT
 83Y1=0
 84FOR I=1TO NO
 85IF LEFT$(O$,3)=LEFT$(OB$(I),3)THEN Y1=1
 86NEXT
 87O=Y1:V=Y
 88V=V+1
 89IF I$="SHIT"THEN O=0
 90IF I$="FUCK"THEN O=0
 91IF LEN(I$)<>1 THEN 98
 92C=0
 93IF I$="N"AND D(YOU,1)<>0 THEN (YOU,1):GOTO 40
 94IF I$="S"AND D(YOU,2)<>0 THEN YOU=D(YOU,2):GOTO 40
 95IF I$="E"AND D(YOU,3)<>0 THEN YOU=D(YOU,3):GOTO 40
 96IF I$="W"AND D(YOU,4)<>0 THEN YOU=D(YOU,4):GOTO 40
 97IF I$="U"AND U(YOU,1)<>0 THEN YOU=U(YOU,1):GOTO 40
 98IF I$="D"AND U(YOU,2)<>0 THEN YOU=U(YOU,2):GOTO 40
 99ON V GOTO 149, 199, 249, 299, 349, 399, 449, 499, 549, 599, 649, I
 113NEXT
 114O$=RIGHT$(I$,LEN(I$)-Y1)
 115Y=0
 116FOR I=1TO NV
 117IF LEFT$(VERB$(I),3)=LEFT$(V$,3) THEN Y=I
 118NEXT
 119Y1=0
 120FOR I=1TO NO
 121IF LEFT$(O$,3)=LEFT$(OB$(I),3)THEN Y1=1
 122NEXT
 123O=Y1:V=Y
 124V=V+1
 125IF I$="SHIT"THEN O=0
 126IF I$="FUCK"THEN O=0
 127IF I$="SMEG"THEN O=0
 128IF I$="RUN"THEN O=0
 129IF I$="WHAT?"THEN O=0
 130IF LEN(I$)<>1 THEN 137
 131C=0
 132IF I$="N"AND D(YOU,1)<>0 THEN (YOU,1):GOTO 76
 133IF I$="S"AND D(YOU,2)<>0 THEN YOU=D(YOU,2):GOTO 76
 134IF I$="E"AND D(YOU,3)<>0 THEN YOU=D(YOU,3):GOTO 76
 135IF I$="W"AND D(YOU,4)<>0 THEN YOU=D(YOU,4):GOTO 76
 136IF I$="U"AND U(YOU,1)<>0 THEN YOU=U(YOU,1):GOTO 76
 137IF I$="D"AND U(YOU,2)<>0 THEN YOU=U(YOU,2):GOTO 76
 138ON V GOTO 188, 238, 288, 338, 388, 438, 488, 538, 588, 638, 688, 738, 788, 838, 888, 938, 988, 1038, 1088, 1138,
 238IF O= 3THENOB( 4)=YOU:C=C+1
 239IF O= 7THENOB( 7)=YOU::C=C+1
 240IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 241GOTO 76
 288IF O= 5THENPRINT"YOU'VE PUT 250 HOLES IN THE WALL. GO COUNT THEM!":OB( 5)=0:C=C+1
 289IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 290GOTO 76
 338IF O= 2THENPRINT"WHAT DO YOU GET WHEN YOU CROSS A FAG WITH A ZIT? ROB WESTOVER!":OB( 2)=0:C=C+1
 339IF O= 3THENPRINT"IT FEELS SO MUCH BIGGER THAN YOURS!":C=C+1
 340IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 341GOTO 76
 388IF O= 4THENPRINT"SMELLS PECULIAR!":OB( 4)=0:C=C+1
 389IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 390GOTO 76
 438IF O= 1THENPRINT"SORRY- IT'S EMPTY!":C=C+1
 439IF O= 3THEN:PRINT"OOOOOOOOOHHHHHHHHHH! GO DEEPER!":C=C+1
 440IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 441GOTO 76
 488IF O= 6THENOB( 6)=0::PRINT"WENT DOWN KINDA ROUGH...":C=C+1
 489IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 490GOTO 76
 538IF O= 6THENOB( 6)=0::C=C+1
 539IF C=0 THEN PRINT"I DON'T UNDERSTAND"
 540GOTO 76
