16 CLS:PRINT@327,CHR$(23);"A Backpacking Adventure";:CLEAR1000:DEFINTA-Z
18 TW=0:WW=0:BT=0:CA=0:FF=0:TT=0:SS=0
20 DIMIT$(24),LO(35,4),SK$(6),PR$(3),TM$(7),CO$(29),WT(24),NP(24),AN$(6),NN$(4)
22 FORN=1TO24:READIT$(N),WT(N):NP(N)=0:NEXTN
24 FORI=1TO35:FORJ=1TO4:READLO(I,J):NEXTJ:NEXTI
26 FORW1=1TO6:READSK$(W1):NEXTW1
28 FORW2=1TO3:READPR$(W2):NEXTW2
30 FORW3=1TO7:READTM$(W3):NEXTW3
32 FORDR=1TO4:READNN$(DR):NEXTDR
34 FORM=1TO29:READCO$(M):NEXTM
36 FORL=1TO6:READAN$(L):NEXTL
38 IFRND(5)=2LETLO(8,1)=44
40 GOSUB250
42 PRINT:PRINT"    Y --------List complete,  ready to pack--------"
44 PRINT@832,"What do you want to take?";
46 Z$=INKEY$:IFZ$=""GOTO46
48 N=ASC(Z$)-64:IFN>25ORN<1GOTO46
50 IFZ$="Y"GOTO58
52 TW=TW+WT(N):NP(N)=NP(N)+1:TN=TN+1
54 IFN<13PRINT@64*(N-1)+1,;ELSEPRINT@64*(N-13)+33,;
56 PRINTNP(N);:GOTO46
58 CLS:IFNP(1)<1GOSUB542:PRINTIT$(1):GOSUB248:GOTO40
60 IFNP(2)<1GOSUB542:PRINTIT$(2):GOSUB248:GOTO40
62 IFNP(6)+NP(7)<1PRINT"What are you going to wear on your feet?":GOSUB248:GOTO40
64 GOSUB250:IFTW+2*TN>500PRINT@768,T$;"There is not enough room in your pack.":PRINT"You must leave an item.":PRINT"Which item?";ELSEGOTO72
66 Z$=INKEY$:IFZ$=""GOTO66
68 N=ASC(Z$)-64:GOTO252
70 T$="Again - ":GOTO64
72 WA=RND(6):WC=RND(3)+RND(3):NG=0:FS=20-TW/5:IL=1:SC=0:ST=FS
74 IFNP(13)>0ORNP(17)>0LETSC=SC+8
76 SE=0:HB=0:CF=0:FI=0:NG=0:NT=0
78 I=IL:IFNG>0LETWC=WC+1
80 IFST>FS/4ANDST<3*FS/4LETWC=WC-1
82 GOSUB258:GOSUB272:PRINT
84 IFFS<4PRINT"You are too weak to go on.":SC=SC-50:GOTO558
86 NG=NG*2:IFNG=2PRINT"It is getting quite dark."
88 IFST<2ANDNG=0GOSUB278
90 ONIGOSUB152,154,156,158,160,162,164,166,168,170,172,174,176,178,180,182,184,186,188,190,192,194,196,198,200,202,204,208,210,212,214,216,220,222,226
92 ST=ST-ML:VW=RND(5):IFVW=5GOSUB280
94 IFRND(35)=20GOSUB468
96 IFRND(20)=10GOSUB476
98 GOSUB442
100 GOSUB296:IFLEN(CM$)=1GOSUB298
102 GOSUB302
104 IFVC$="LIST"GOSUB250:PRINT:GOTO100
106 IFNG>1GOTO112
108 IFNG<2GOTO130
110 ONI-35GOTO230,232,234,236,238,240,242,244,246
112 IFVC$=CO$(1)GOTO324
114 IF(VC$=CO$(25)ORLEFT$(VC$,2)="EX")ANDNC$="FIRE"GOTO398
116 IFVC$=CO$(27)GOTO352
118 IFVC$=CO$(7)ORVC$=CO$(4)GOTO378
120 IF(VC$=CO$(22)ORVC$=CO$(21)ORVC$=CO$(9))ANDNC$="FIRE"GOTO386
122 IF(VC$=CO$(26)ORVC$=CO$(29))AND(NC$="BAG"ORNC$="FOOD")GOTO392
124 IFVC$=CO$(23)GOTO402
126 IFNT>8LETFS=FS-2:GOTO418
128 GOTO138
130 IFVC$=CO$(1)GOTO496
132 IFVC$=CO$(19)GOTO524
134 IFVC$=CO$(23)GOTO530
136 IFVC$=CO$(24)LETST=ST-ML:GOTO100
138 IFVC$=CO$(28)GOTO358
140 IFVC$=CO$(6)GOTO512
142 IFVC$=CO$(15)ORVC$=CO$(16)ORVC$=CO$(17)GOTO532
144 IF(VC$=CO$(3)ANDNC$=CO$(14))ORVC$=CO$(14)GOTO344
146 IFVC$=CO$(3)ANDNC$=IT$(3)GOTO344
148 IFVC$=CO$(8)GOTO370
150 PRINT"Ok, ";:GOTO100
152 PRINT"You are at the trail head":PRINT"A straight level trail runs to the north.":IFTT=1GOTO556ELSEML=1:FE=2:RETURN
154 PRINT"You are in a plain. The brush is thick. A valley lies north.":ML=1:FE=6:RETURN
156 PRINT"You are in the valley. It gets narrower and rises to the north.":ML=1:FE=2:RETURN
158 GOSUB288:PRINT"The valley continues north. A trail begins from here and rises  steeply out of the valley to the east.":ML=1:FE=2:RETURN
160 PRINT"A steep uphill climb goes east where the trail leads to a peak. Another trail leads north on a long ridge.":ML=2:FE=1:RETURN
162 PRINT"There's a magnificent view atop this peak. From here trails lead west and north.":ML=1:FE=7:RETURN
164 GOSUB294:PRINT" The valley  continues north.":ML=1:FE=2:RETURN
166 PRINT"The trail is along a ridge. Beautiful views of valleys on both  sides may be seen.":ML=2:FE=7:RETURN
168 PRINT"Along this trail you can see a lake to the north and a peak to  the south.":ML=1:FE=6:RETURN
170 PRINT"The lake is beautiful. The trail ends here.":ML=1:FE=2:RETURN
172 PRINT"The valley opens up to a wide grassy area.":GOSUB286:PRINT"A trail heads north toward a pass.":ML=1:FE=2:RETURN
174 PRINT"The trail rises steeply out of the valley from the south and    then leads eastward.":ML=2:FE=5:RETURN
176 PRINT"You are at a pass.":GOSUB290:PRINT"Trails descend both east and west  and another trail goes south along a ridge.":ML=2:FE=7:RETURN
178 PRINT"The trail you are on passes around a tall peak. It leads to the west and the north.":GOSUB544:ML=1:FE=4:RETURN
180 PRINT"The trail leads straight past a small mountain lake.":ML=1:FE=2:GOSUB286:RETURN
182 PRINT"The trail turns from north to west as it enters a valley.":ML=1:FE=2:RETURN
184 PRINT"The valley runs east-west. It rises gradually to the west.":ML=1:FE=2:RETURN
186 PRINT"You can see many waterfalls as you hike along the valley.":GOSUB288:ML=1:FE=2:RETURN
188 GOSUB294:PRINT"There is a beautiful cascade on the south side of the log.":ML=1:FE=2:RETURN
190 PRINT"The land is marshy but passable.":PRINT"Vegetation is thick.":ML=1:FE=2:RETURN
192 PRINT"You are at a cluster of hot springs.":PRINT"The trail forks and leads east, west, and south.":GOSUB286:ML=1:FE=2:RETURN
194 PRINT"The trail winds from the east and leads southward up to a pass.":ML=2:FE=4:RETURN
196 PRINT"You are in a large basin surrounded by mountains.":ML=1:FE=4:RETURN
198 PRINT"A long trail leads around the edge of a large basin.":ML=2:FE=2:RETURN
200 PRINT"You are crossing a large snow field.":PRINT"You can see Snowy Mountain to the east.":ML=1:FE=2:CA=0:RETURN
202 PRINT"The trail winds around the mountain.":ML=1:FE=4:RETURN
204 PRINT"You are at the summit!":GOSUB288:GOSUB290:ML=1:FE=7:IFSS=0LETSC=SC+40:SS=1
206 RETURN
208 PRINT"There is a steep rise to the south.":PRINT"At a ford the trail to the summit of Snowy Mt. begins.":ML=1:FE=2:RETURN
210 PRINT"There are steep switchbacks on this trail as it moves northward up the mountain.":ML=2:FE=5:RETURN
212 PRINT"The trail descends very steeply going south.":ML=1:FE=5:RETURN
214 GOSUB284:RETURN
216 GOSUB284:IFCA<1GOSUB282:ST=ST-1:FS=FS-2
218 ML=1:FE=1:RETURN
220 GOSUB284:PRINT"You have come to a stream.":PRINT"The water appears a bit cloudy.":ML=1:FE=3:RETURN
222 GOSUB284:IFCA<1GOSUB282:ST=ST-2:FS=FS-2
224 ML=1:FE=1:RETURN
226 PRINT"You are at an overlook.":PRINT"You can see the trail head to the north.":IFCA<1GOSUB282:ST=ST-2:FS=FS-1
228 TT=1:ML=1:FE=1:RETURN
230 PRINT"The forest is too thick to go this way.":I=IL:GOTO100
232 PRINT"There is too much dense brush to go this way.":I=IL:GOTO100
234 PRINT"The stream to too deep to enter here.":I=IL:GOTO100
236 PRINT"The land is too steep to climb here.":I=IL:GOTO100
238 PRINT"The land is too marshy to travel in.":I=IL:GOTO100
240 PRINT"There is a drop off this way.":I=IL:GOTO100
242 PRINT"There is no trail this way.":I=IL:GOTO100
244 PRINT"You are trying to cut across switchbacks.":I=IL:ST=ST-2:SC=SC-5:GOTO78
246 PRINT"There has been a recent rock slide. The trail is closed.":GOTO100
248 FORTM=1TO500:NEXTTM:RETURN
250 CLS:FORN=1TO12:PRINT@64*(N-1),CHR$(N+64);NP(N);IT$(N);:PRINT@64*(N-1)+32,CHR$(N+76);NP(N+12);IT$(N+12);:NEXTN:RETURN
252 IFN<1ORN>24GOTO70
254 IFNP(N)<1GOTO70
256 TW=TW-WT(N):NP(N)=NP(N)-1:TN=TN-1:IFN<3ORN=6ORN=7GOTO58ELSEGOTO70
258 WA=WA+RND(3)-2:IFWA>6LETWA=6ELSEIFWA<1LETWA=1
260 WC=WC+RND(3)-2:IFWC>7LETWC=7ELSEIFWC<1LETWC=1
262 IFWA>4ANDWC<3LETWC=3
264 IFWA>4ANDWC<6LETWB=RND(3)-1ELSELETWB=0
266 IFWA>4ANDWC>5LETWB=RND(2)+2
268 IFWB<0ORWB>3LETWB=0
270 RETURN
272 PRINT:PRINT"The sky is ";SK$(WA);" and the temperature is ";TM$(WC);"."
274 IFWB<>0PRINT"It is ";PR$(WB);"."
276 RETURN
278 PRINT"It is now evening.":NG=1:RETURN
280 L=RND(6):PRINT"You can see ";AN$(L);" in the distance.":RETURN
282 PRINT"You are thirsty.":SC=SC-2:RETURN
284 PRINT"You are in a dense forest.":ML=1:FE=1:RETURN
286 PRINT"Wild flowers are abundant.":RETURN
288 PRINT"The land is very rocky.":RETURN
290 PRINT"A spectacular view!":RETURN
292 PRINT"There is little vegetation here.":RETURN
294 PRINT"You have come to a log which crosses the stream.":RETURN
296 INPUT"What do you do now";CM$:RETURN
298 FORDR=1TO4:IFCM$=LEFT$(NN$(DR),1)LETCM$="GO "+NN$(DR)
300 NEXTDR:RETURN
302 LS=LEN(CM$):K=0:NC$="":IFLS=0GOTO100
304 K=K+1
306 IFK=LSLETVC$=CM$:GOTO316
308 IFMID$(CM$,K,1)<>" "GOTO304LETLR=LR+1:GOTO100
310 VC$=LEFT$(CM$,K-1):LR=0
312 IFMID$(CM$,LS-LR,1)<>" "LETLR=LR+1:GOTO312
314 NC$=RIGHT$(CM$,LR):K=0
316 K=K+1
318 IFVC$=CO$(K)GOTO322
320 IFK<26GOTO316ELSEK=23
322 KC=K:RETURN
324 DR=1
326 IFDR>4GOTO340
328 IFNC$=NN$(DR)I=LO(IL,DR):GOTO332
330 DR=DR+1:GOTO326
332 IFNP(10)>0LETNP(10)=NP(10)-1:BT=1:GOTO338
334 IFNP(10)=0ANDBT=1ANDRND(3)=1PRINT"Your flashlight batteries went dead.":DD=1:GOTO552
336 IFNP(10)=0ANDBT=0GOTO552
338 PRINT"You are using your flashlight.":GOTO504
340 IFNC$=CO$(23)ORNC$="BED"GOTO402
342 GOTO150
344 SE=1:NG=2:FS=FS-2:PRINT"Ok, you have set up camp."
346 IFNP(3)>0PRINT"And the tent is up."
348 IFNC$=IT$(3)ANDNP(3)<1PRINT"But there is no tent."
350 GOTO100
352 IFNP(16)>0PRINT"You are clean and refreshed.":SC=SC+1
354 IFNP(16)<1PRINT"You are refreshed."
356 NT=NT+1:GOTO100
358 IFFE=3ORCA=-2PRINT"You drank polluted water":FS=FS-3:PRINT"You are sick and weak.":GOTO100
360 IFCA>0ORFE=2PRINT"Your thirst is quenched."
362 IFI>30ANDCA>0GOTO368
364 IFCA=0ANDFE<>2GOTO520
366 GOTO100
368 SC=SC+10:FS=FS+7:ST=ST+7:CA=3:GOTO100
370 IFNP(22)<1PRINT"You have no fishing equipment.":GOTO100
372 IFFE=1ORFE>3GOSUB540:GOTO100
374 FH=RND(4):NT=NT+1:IFFH<4GOTO376ELSEPRINT"You caught enough fish to feed you for one day.":NP(21)=NP(21)+1:SC=SC+2:GOTO100
376 PRINT"There doesn't seem to be any fish here.":ST=ST-1:SC=SC-1:GOTO100
378 IFNP(21)<1PRINT"But you have no food.":SC=SC-3:GOTO100
380 IFFI=1OR(NP(23)>0ANDNP(5))>0PRINT"The meal was enjoyable.":SC=SC+2:GOTO384
382 PRINT"The cold meal was satisfactory."
384 CF=1:FS=FS+1:NP(21)=NP(21)-1:TW=TW-WT(21):GOTO100
386 NT=NT+1:IFNP(23)<1PRINT"But you don't have any matches.":GOTO100
388 IFWB=2PRINT"It is too wet to light a fire.":SC=SC-1:GOTO100
390 FI=1:PRINT"The fire is lit.":SC=SC+1:GOTO100
392 IFNP(12)=0PRINT"But you don't have any rope.":GOTO100
394 IFNP(14)=0PRINT"But you don't have a bag to hang.":GOTO100
396 PRINT"The bag is hung.":HB=1:SC=SC+1:GOTO100
398 IFFI=1PRINT"The fire is out.":SC=SC+1:FI=0ELSEPRINT"What fire?"
400 GOTO100
402 CLS:PRINT"You are asleep.":FS=FS+1:SN=0:IFNT>5FS=FS+5-NT
404 IFWA<3WC=WC+2ELSEWC=WC+1
406 PRINT:GOSUB258:GOSUB272:PRINT
408 IFWB=2ANDFE=7GOTO554
410 IFWB>0ANDWC<3ANDNP(3)+NP(4)=0PRINT"During the night it was ";PR$(WB);" and you got everything hopelessly wet.":SC=SC-70:GOTO558
412 IFWC>5AND(NP(3)<1ORSE=0)PRINT"You are freezing!":SC=SC-2
414 GOSUB248:IFRND(3)=1GOSUB440
416 IFFI=1ANDFE<>4ANDWB<>2PRINT"Because you didn't put your fire out, you started a forest fire.":SC=SC-100:GOTO558
418 GOSUB248:IFRND(2)=1PRINT"A bear has come into camp ."ELSEGOTO422
420 GOSUB248:IFHB=1ORNP(21)<1PRINT"Because you took proper precautions he went away.":SC=SC+2ELSEGOTO438
422 IFSN=1PRINT"You fall asleep again.":GOSUB248
424 GOSUB248:PRINT"It is now morning.":GOSUB248:ST=FS
426 IFNT>6PRINT"But you are very tired, having stayed up late last night."
428 INPUT"Do you want to get up";A$
430 IFLEFT$(A$,1)="Y"GOTO436
432 IFNT>6LETFS=FS+1:NT=NT-2
434 GOSUB248:GOSUB258:GOSUB272:ST=ST-1:PRINT:PRINT"Now, ";:GOTO428
436 GOSUB248:CLS:PRINT"You are now packed and ready to go.":GOTO76
438 PRINT"He got into your food and then turned to you.":SC=SC-90:GOTO558
440 PRINT"A strange noise awakens you!":SN=1:GOSUB248:RETURN
442 IFNP(11)=0ANDWB=2GOTO456
444 IFWW=1ANDWA<3ANDWC<3LETWW=0:NP(19)=NP(19)+1:PRINT"Your clothes have dried."
446 IFWC>5ANDNP(8)<1LETSC=SC-2:NU=NU-1:GOTO462
448 IFWC=2LETSC=SC-1:ST=ST-1ELSEIFWC=1LETSC=SC-2:ST=ST-2
450 IFWC<4LETNU=0
452 IFWC=4ANDWA<3LETSC=SC+1
454 RETURN
456 PRINT"You are soaking wet!"
458 IFNP(19)>0LETNP(19)=NP(19)-1:WW=1:PRINT"Good thing you had a change of clothes.":RETURN
460 IFNP(19)=0LETSC=SC-30:PRINT"You have no dry clothes.":PRINT"You will soon get hypothermia.":GOTO558
462 IFNU=-1PRINT"You are getting chilly."ELSEIFNU=-2PRINT"You are feeling very chilly.":SC=SC-2
464 IFNU<-2PRINT"The cold is unbearable.":SC=SC-40:GOTO558
466 RETURN
468 PRINT"A snake jumped out and bit you.":GOSUB248
470 N=RND(2):IFN=1PRINT"It was nonpoisonous.":RETURN
472 PRINT"It was poisonous.":IFNP(15)=1PRINT"Good thing you had your snake bite kit along!":ST=ST-2:RETURN
474 PRINT"You were poisoned.":SC=SC-70:GOTO558
476 L=RND(2)+4:PRINT"You surprised ";AN$(L),"!":PRINT"It is approaching you!"
478 GOSUB296:GOSUB302
480 IFVC$=CO$(10)ANDNC$="DEAD"GOTO492
482 IFVC$=CO$(18)ANDNC$="TREE"GOTO490
484 IFVC$=CO$(5)PRINT"The bear chased you and caught up with you.":GOSUB494:SC=SC-90:GOTO558
486 IFVC$=CO$(13)PRINT"After the bear ate your food, he then decided to eat you.":SC=SC-90:GOTO558
488 IFRND(2)=1GOSUB494:SC=SC-90:GOSUB558ELSEPRINT"The bear ate all your food and then ";:SC=SC-10:NP(21)=0:GOTO492
490 IFFE=4ORFE=7PRINT"But there are no trees.":GOTO478
492 PRINT"The bear went away quietly.":RETURN
494 PRINT"You are being mauled by the bear.":RETURN
496 DR=1
498 IFDR>4GOTO506
500 IFNC$=NN$(DR)I=LO(IL,DR):GOTO504
502 DR=DR+1:GOTO498
504 IFI<36LETIL=I:GOTO78ELSEGOTO110
506 IFNC$=CO$(23)GOTO530
508 IFLEFT$(NC$,4)=CO$(8)GOTO370
510 GOTO150
512 IFNC$<>"CANTEEN"GOTO150
514 IFNP(24)>0ANDFE=2GOSUB522:CA=1:GOTO100
516 IFNP(24)>0ANDFE=3GOSUB522:CA=-2:GOTO100
518 IFNP(24)=0PRINT"But you have no canteen.":GOTO100
520 PRINT"But there is no water here.":GOTO100
522 PRINT"It is now filled.":RETURN
524 N1=1
526 IFIT$(N1)=NC$LETNP(N1)=NP(N1)-1
528 N1=N1+1:IFN1<25GOTO526ELSEGOTO150
530 PRINT"The nap was refreshing.":SC=SC+1:ST=ST-1:GOTO100
532 IFFE<>2GOSUB540:GOTO100
534 SC=SC+2:ST=ST-1:IFI<>21PRINT"The water was cold but refreshing."ELSEPRINT"The water was nice and warm."
536 IFVC$=CO$(17)ANDNP(16)>0GOTO538ELSEGOTO100
538 PRINT"But a ranger fined you for polluting the water.":SC=SC-20:GOTO100
540 PRINT"But there is no water here.":RETURN
542 PRINT"You can not go without a ";:RETURN
544 IFNP(6)>0RETURN
546 IFRND(2)=1PRINT"Your feet have blisters.":FS=FS-2:ST=ST-1:SC=SC-10
548 IFFS<6LETFS=6
550 RETURN
552 PRINT"You became hopelessly lost, fell into a pit and were attacked by a grizzly bear.":SC=SC-100:GOTO558
554 PRINT"You were stuck by lightning.":SC=SC-90:GOTO558
556 PRINT"You have completed your trip successfully.":PRINT"++++++++++Congratulations!++++++++++"
558 PRINT"Your adventure has ended.  Your score was ";SC
560 END
562 DATABACKPACK,5,SLEEPING BAG,5,TENT,10,TARP,5,STOVE,2,HIKING BOOTS,4,SNEAKERS,2,DOWN JACKET,3,RADIO,4,FLASHLIGHT,3,PONCHO,4,ROPE,1,CAMERA,5,STUFFBAG,1,FIRST AID KIT,1,SOAP,1,BINOCULARS,3,KNIFE,1,A CHANGE OF CLOTHES,3,AX,7
564 DATAFOOD FOR 1 DAY,5,FISHING GEAR,3,BOOK OF MATCHES,1,CANTEEN,4
566 DATA2,42,42,42,3,37,1,40,4,36,2,38,7,5,3,38,8,6,41,4,9,41,41,5,11,38,4,38,13,41,5,41,10,41,6,39,42,42,9,39,12,38,7,39,41,13,11,41,41,14,8,12,15,41,41,13,16,42,14,42,38,37,15,17,38,16,37,18,38,17,39,19,38,18,38,20,37,19,38,21
568 DATA37,20,24,22,39,21,23,41,22,40,25,40,21,40,25,39,23,24,28,40,41,27,29,41,41,41,41,26,25,29,30,41,26,39,43,28,28,39,31,41,30,39,32,42,31,36,33,36,32,38,34,38,33,35,36,36,1,41,36,34
570 DATAclear,mostly clear,somewhat clear,partly cloudy,cloudy,very cloudy,raining,storming,snowing
572 DATAvery hot,hot,warm,comfortable,cool,cold,very cold
574 DATANORTH,EAST,SOUTH,WEST
576 DATAGO,GET,SET,EAT,RUN,FILL,COOK,FISH,MAKE,PLAY,TAKE,PACK,FEED,CAMP,SWIM,WADE,BATHE,CLIMB,LEAVE,THROW,BUILD,LIGHT,SLEEP,STAY,PUT,HANG,WASH,DRINK,SUSPEND
578 DATAdeer,elk,moose,mountain goats,a black bear,a grizzly bear
