Nascom Journal

2116 DATAIN A SALOON,"","W   ",1,5,0,0,0
2120 DATAAT THE SUPERSTITION MOUNTAINS
2121 DATAROAD. DESERT,"S N ",4,4,2,2,2
2122 DATAAT WEAVER'S NEEDLE,,"NS  ",1,9,7,0,0
2130 DATAIN A NARROW DEFILE,BUSHES. CAVES
2131 DATA"  NS",1,11,10,12,8
2132 DATAIN A SMALL CAVE
2133 DATA"","E   ",1,9,0,0,0
2134 DATABEHIND A BUSH,BUSH,"W   ",1,9,0,0,0
2135 DATAIN A BOX CANYON
2136 DATABUSHES. TREES. BOULDERS,"    S"
2137 DATA4,12,12,12,9
2140 DATAIN FRONT OF A HIDDEN MINE
2141 DATAMINE SHAFT,"ESNW"
2142 DATA8,14,12,12,12
2143 DATAIN THE MOUTH OF A DIM MINE
2144 DATAMINE SHAFT,"EW   "
2145 DATA1,15,13,0,0
2146 DATAIN A MINE,DARK TUNNEL,"EW  "
2147 DATA6,16,14,0,0
2150 DATAAT THE END OF A TUNNEL,IRON DOOR
2151 DATA" W  ",1,17,15,0,0
2152 DATAIN A LARGE CHAMBER,IRON DOOR
2153 DATA"WNES",1,16,19,18,20
2154 DATAIN A MAZE OF TUNNELS,"","NSEW"
2155 DATA6,18,18,18,18
2156 DATAIN FRONT OF A PIT,DARK HOLE," S  "
2157 DATA7,23,17,0,0
2160 DATAAT AN INTERSECTION,""
2162 DATA" SNW",6,0,22,17,21
2163 DATAIN A DEAD END TUNNEL,""
2164 DATA"E   ",8,20,0,0,0
2165 DATAIN A BLOCKED TUNNEL,""
2166 DATA"N   ",8,20,0,0,0
2167 DATAAT THE BOTTOM OF A SHAFT,WALL
2168 DATA"S   ",8,24,0,0,0
2170 DATAIN A TUNNEL
2171 DATA"","NS  ",6,23,25,0,0
2172 DATAAT THE END OF A TUNNEL
2173 DATALADDER," N  ",6,26,24,0,0
2174 DATAAT THE TOP OF A LADDER
2175 DATA"","",6,1,25,0,0
2180 DATASADDLEBAGS,2,1,MULE,0,3
2181 DATABURLAP SACK,4,14,SHOVEL,4,1
2182 DATARIFLE,4,1,MAP,1,-25
2183 DATAGUN,1,-1,CARROTS,1,-1
2184 DATABOX OF RIFLE BULLETS,1,-6
2185 DATAWHISKEY BOTTLES,2,6
2186 DATAKEYS,1,-6
2187 DATAPILE OF BONES (MINE),2,8
2190 DATALANTERN,2,-8,JAR OF LIQUID,1,-11
2192 DATA*SPANISH COINS*,1,-10
2193 DATA*TOURQUOISE*,1,-23
2194 DATA$SILVER$,1,-21
2195 DATA$GOLD$,1,-22
2196 DATAMATCHES,1,-14,CRATES,3,17
2197 DATANOTE,1,-17
2198 DATAPAPER,1,6
2199 DATAINDIANS,0,11
2200 DATAORE CART,0,14,BED,0,1

2201 DATASIGN,0,5,BROKEN GLASS,0,6
2202 DATATABLES,0,6,CHAIRS,0,6
2203 DATAROCKS,0,10,WOODEN RAILS,0,15
2204 DATACACTUS,0,2,TRAP DOOR,0,26
2210 DATAGO ,ENT,RUN,QUI,DIG,CLI,INV,JUM
2211 DATADRO,GET,EXA,REA,LOO,MOV,CAT,CHA
2212 DATALEA,RID,PUT,PLA,PIC,PUS,PUL,SHO
2213 DATAOPE,CLO,GIV,BUR,LIG,DRI,BRE,HIT
2214 DATAUNL,LOC,TAK,LIS,SAY,FEE,LOA,UNT
2215 DATAFOL,POU,EAT,NOR,SOU,EAS,WES
2220 INPUT"Do you want ta try again";QM$
2222 IF LEFT$(QM$+" ",1)="Y" THEN 10
2230 END
2300 PRINT"Try exam'nin thin's":RETURN
2310 PRINT"Roads go places.":RETURN
2320 PRINT"Maybe the trail goes sumwhar.":RETURN
2330 IF O$(5,3)<>"1"THEN PRINT"Ya got a map?":RET
2340 PRINT"Try `FOLLOW'.":RETURN
2350 IF VAL(O$(1,2))<>L GOTO 2300
2351 PRINT"The mule looks thin.": RETURN
2360 GOTO 2300
2370 PRINT"Keep goin'.":RETURN
2380 PRINT"It's slipry, butcha might make it down"
2382 RETURN
2390 PRINT"This here's a mine, ya know":RETURN
2500 IFJ=7THEN T$="They taste purty good.":RETURN
2502 RETURN
2510 T$="Can't do that... weirdo!":RETURN
2520 REM ABSPEICHERN
2530 PRINT"Cassette recorder ready for ";
2532 INPUT"record";QM$: QM$=LEFT$(QM$+" ",1)
2534 IF QM$<>"J" AND QM$<>"Y" GOTO 2530
2540 FOR I=0 TO 32
2542 FOR J=1 TO 3:SA(I,J)=VAL(O$(I,J)):NEXT J
2544 NEXT I
2550 SA(0,0)=L:SA(1,0)=CL:SA(2,0)=LN
2552 SA(3,0)=IN:SA(4,0)=LM:SA(5,0)=U
2554 SA(6,0)=U1:SA(7,0)=IM
2560 CSAVE*SA
2570 PRINT"Fertig.": GOTO 390
2600 PRINT"Sum of the words I understand are:"
2610 PRINT"  go, enter, run, quit, dig,";
2615 PRINT" climb, jump,"
2620 PRINT"  inventory, drop, get, examine,";
2625 PRINT" read, look,"
2630 PRINT"  move, catch, chase, lead, ride,";
2635 PRINT" put, place,"
2640 PRINT"  push, pull, shoot, open, close,";
2645 PRINT" pick, give,"
2650 PRINT"  burn, light, drink, break, hit,";
2655 PRINT" unlock, lock,"
2660 PRINT"  take, listen, say, feed, load,";
2665 PRINT" untie, follow,"
2670 PRINT"  pour, eat, score, help, ..."
2672 INPUT"Ok";QM$
2675 PRINT"Hope that helps you a bit."
2680 GOTO 100
Ok