Jungle  "JUNGLE"  2000  " LOCATION ";R$(PL,PC) ( " YOU CAN SEE... " 2] GE=0: CS=0: N=124: P(N,1)PL P(N,2)PC 70F 10 N/2ɺ(N/2) GE=N F N: CS=0 " NOTHING." P " VISIBLE EXITS " Zr VE=0: N=1 4: (E$(PL,PC,N)="/" F(25)=0)E$(PL,PC,N)=" "N=4: 110n d- (E$(PL,PC,N)E$(PL,PC,N)"/"): VE=1 n N: VE=0 "NONE" x "WELL....?";A$  A$="STOP" 1070.  A$<6 A$=A$+" " < Q=1: D$=A$: N=1̱A$: A$(N)" " 170 # D$=A$( N-1): Q=N: N=A$  N: 3000 : VG=0: N=1 11 : D$V$(N) 220  D$"KILL" 210 ? A$(Q+1 Q+4)="WITH"D$=D$+" WITH": Q=Q+5  VG=N: N=18  N 5 VG=0 "I DON'T KNOW HOW TO ";D$: 120x  VG=1 3106 8 Q=A$ ' "TELL ME AGAIN. ";D$;" WHAT ? ": 120x % W$=A$(Q+1 ̱A$): 3020 : KW=0: N=1 30: W$O$(N) 290"  KW=N: N=31 " N ,7 KW=0 "I DON'T KNOW THE WORD ";W$: 120x 60 1100L+502*VG+(502 VG>2) @7 F(25)=1 F(25)=2:340T J, F(25)=2 F(25)=0 TL R$(PL,PC, 9 )="QUICKSAND" R$(PL,PC, 5)="SWAMP" 1000 ^& PL=1 PC=1 1040 hA F(20)3 R$(PL,PC, 6)="JUNGLE" 1040 r EU 1020 | 30  R$(PL,PC)': 1060$ ' "YOU HAVE BEEN EATEN .": 1060$  "LOST.STARVED." $ "HARD LUCK.YOU'RE DEAD." . "USE ""RUN"" TO RESTART.": ~8 PL=2 PC=8 E$(2,8)="UNS": 7 PL=3 PC=6 E$(3,6)="EW": 1 PL=2 PC=4 F(2)=1:  $ KW<25 "I CAN'T GO ";W$: t G$=O$(KW,1): N=1 4: E$(PL,PC,N)="/" F(25)=0 "I CAN'T SEE TO GO ANYWHERE.":  G$E$(PL,PC,N) 1290  t PC=5 ((PL=4 F(26)=0) (PL=6 F(27)=0)) "THERE IS A CLOSED DOOR.":  PC=PC-(G$="W")+(G$="E")  PL=PL-(G$="N")+(G$="S") 3 G$="U" PC=PC-(PL<4): PL=PL+(PL>3) K G$="D" PC=PC+(PL=2 PL=4): PL=PL-(PL=3 PL>4)  N=4: N:  N: "I CAN'T GO THAT WAY.": F PLP(KW,1) PCP(KW,2)F(KW)=0 " TAKE WHAT?": & KW>22 "THAT'S NONSENSE!": (Q KW=1 (KW>10 KW/2ɺ(KW/2)) "YOU CAN'T TAKE A ";W$: 2- F(KW)=3 "YOU HAVE ALREADY GOT IT." < F(KW)=3: F@ GE=0 GE=15 GE=23"GIVE WHAT TO WHOM?": P/ F(KW)3 "YOU HAVEN'T GOT THE ";W$: Z3 GE>12 KW>2 KW<9 1390n d. GE=11 KW10 F(KW)=0: nL F(GE)=0: F(GE+1)=3:"THE ";O$(GE);" SAYS 'THANK YOU' " s9 "HE GIVES YOU THE ";O$(GE+1)'"AND GOES AWAY.": x4 PL4 PC5 "THAT'S NO USE HERE.": , KW14 "IT'S NO USE SAYING ";W$: 3 F(14)3 "YOU DON'T KNOW THE WORD." : F(26)=1: "A DOOR OPENS IN THE EAST WALL": / PC5 F(25)<1 1490 O PL=6 F(2)=3 F(27)=1: "THE DOOR IS OPEN": A PL=6 F(2)3 "YOU HAVEN'T GOT THE KEY.": D PL=4 F(27)1 "YOU HAVEN'T SAID THE WORD.":  "WHAT DOOR?": H KW=10 F(10 )=3 F(10 )=1: "YUM YUM": ( KW=21 GE=21 1540 . F(KW)3 "IT ISN'T YOURS TO EAT.":  "YUK!": F(KW)=0: O F(22)=1: F(21)=0:"BURP! SEE WHAT YOU'VE FOUND.": + KW22 "YOU CAN'T LIGHT A ";W$: . F(8)3 "YOU NEED MATCHES.": "1 F(22)3 "YOU NEED THE TORCH.": ,< F(25)=1: "IT'S ALIGHT, BUT NOT FOR LONG.": @- F(20)3 "NO AXE.NO CHOP!": J, KW1 "YOU CAN'T CHOP DOWN ";W$: T. F(25)=1: "NOW YOU CAN SEE.": rG PL=8 (PC=6 PC=7)F(7)=3 1680 |- F(7)3 "YOU NEED A BOAT.": ( "CROSS WHAT? CROSS COMPUTER SOON!": 0 PC=7-(PC=7): "SAFELY ACROSS.": G KW3 KW12 KW20 "YOU CAN'T KILL WITH THAT.": # GE=0 "KILL WHAT?WHO?": A GE=11 GE=13 GE=17GE=19 1760 ( GE=15 KW=12 1780 ) >.6 "MISSED!": EU=1:  "KILLED HIM!": O$(GE)=" ": 8 F(GE)=0: "A BIT UNNECESSARY, BUT HE'S DEAD.": K "IT'S DEAD, AND YOU'VE FOUND THE LOST CROWN OF UMBIMAJINI.": 1070.   "INITIALIZATION" ڎ R$(8,8,14): E$(8,8,4):O$(30,11 ): P(27,2):V$(11 ,5): F(27) B N=1 8: T=1 8:R$(N,T),E$(N,T):T: N = "DESERT"," ","DESERT","WS","CLEARING","ES","JUNGLE","/EWS" ; "SWAMP"," ","JUNGLE","/EWS","PLAIN","WE","LOW HILL","WS" 9 "DESERT","NE","DESERT","WNE","PLAIN","NSW","RUIN","NE" J "JUNGLE","/ND","CLIFF SIDE","UDN","CLIFF PATH","UDS","HILL SIDE","UN/S" L "PORT BATA","ES","OLD STREET","ESW","EDGE OF TOWN","NSW","PASSAGE","/ENS" ; "STAIRS","/UD","CAVE","E/W","CLIFF PATH","NSW","HUT","N"  ? "BEACH","NES","DUNES","NSW","SWAMP"," ","SMALL ALCOVE","/NE" I "TEMPLE ROOM","/UWE","INNER SANCTUM","W","CLIFF TOP","DNS","SWAMP"," " C "QUICKSAND"," ","PLAIN","NESW","JUNGLE","/NEW","PLANTATION","WS" U "ENTRANCE HALL","S/ED","PRIEST'S ROOM","/W","CLIFF PATH","NES","ROCKY LEDGE","UDW"  B "BEACH","NES","UBIMBI VILLAGE","NES","SHOP","WS","JUNGLE","NES" %H "JUNGLE","/NEW","CLEARING","WE","MOUNTAIN","DSW","MOUNTAIN PASS","DS" *8 "BEACH","NS","STREET","NS","YARD","N","JUNGLE","/NES" /? "PLAIN","ESW","LAKE","EW","LARGE NEST","NESW","JUNGLE","/WN" 4@ "JUNGLE","/NE","VILLAGE END","NEW","PLAIN","EW","PLAIN","NEW" 9G "JUNGLE","/NEW","WEST BANK","W","EAST BANK","NE","WEETU VILLAGE","W" >K N=1 30: O$(N):N<28 P(N,1),P(N,2),F(N) H N R "JUNGLE",0,0,1,"KEY",2,4,0,"GUN",3,1,1,"BEADS",7,2,1,"CLOTH",3,3,1 \ "MONEY",3,1,1,"BOAT",4,1,1,"MATCHES",3,2,1,"RIVER",8,6,1 ff "BANANAS",5,4,1,"GORILLA",7,7,1,"STICK",7,7,0 p "HERMIT",3,8,1,"WORD",3,8,0,"SNAKE",4,6,1,"CROWN",4,6,0 z "WITCHDOCTOR",6,2,1,"MEDICINE",6,2,0,"SHOPKEEPER",6,3,1,"AXE",6,3,0  "CANNIBAL",8,8,1,"TORCH",8,8,0,"LION",6,6,1,"DOOR",6,5,0,"U",0,0,0,"D",0,0,0,"N",0,0,0,"E","S","W" ! N=1 11 : V$(N):N M "LOOK","GO","TAKE","GIVE","SAY","OPEN","EAT","LIGHT","CHOP","CROSS","KILL" ' PL=3: PC=1: EU=0  ' D$<5 D$=D$+" ": 3000  ( W$<11 W$=W$+" ": 3020