zd : n  , : X$"Appalachian Trail" : x  , : X$"(c) by David H. Ahl, 1986" :  , : X$"Press any key to continue." : , () : RNRN : _ RN : RNRN : : RN : : ~ HZ(), DLC(), LC$() () : RNRN : : DB, : :New boot gives 300 extra mi::Data Input Section : "First we need some data about you." : G "Your sex (male or female)";A$ :  A$"M" A$"F" "Answer 'M' or 'F' please." :  "Your weight in pounds";WB WBO WB  "Surely you jest. Let's try that one again." : ? "What is your physical condition (1=excellent, 2=good, ";Z "3=fair, 4=poor)";PC PC PC "Answer 1, 2, 3, or 4 please." : ": "Walking pace: You may change your pace as the hike progresses."%, "Remember, a faster pace covers the distance more quickly but"b6 "burns more calories and has a higher risk of injury."@ "Slow and deliberate......1.7 mph"J "Moderate and vigorous......3 mph"T "Fast and very difficult....4 mph"&^ "At what rate in mph do you wish to walk (number & decimal ok)";RWgh RW RWff "A rate of" RW "mph is silly." : ^r : "Walking hours per day: You may change this as time goes on."| "To start, how many hours do you wish to walk per day";TW% TW "That's just too ambitious." : |e TWRW "You won't even reach NJ by Christmas.": | : "Your sensitivity to poison ivy:" " (1) Highly sensitive" : " (2) Moderately sensitive" " (3) Immune" : " (4) Had series of desensitization shots"A "Which number describes you";IVY IVY IVY "What's that? Let's try again." :  : "People who have hiked the Trail have different feelings "; "about rain:" : " (1) Let it pour, I love it."H " (2) No problem as long as the sun comes out every few days." " (3) Five solid days of rain really gets me down." " (4) If I forsee a long stretch of rain, I'll hole up in a" " shelter or motel and wait it out."9 "Which number most closely describes your feelings";RAINz RAIN RAIN "Not possible. Again please." : :&:Data on what to carry0 : "You must make some decisions about what to pack.": I  : SP$(I) : : SP$(I) ":"JD J  : ITM$(J),WHT(J),CST(J),VL(J) : J "-- " ITM$(J)qNWEIGHTWHT(J) : " "; : 6X VL(J) "," VL(J) "cu in";b CST(J) ", price: $" CST(J)l Jv "Which one do you want (number)";A. A A "Come on now; answer 1, 2, 3, or 4" : vxITEM$(I)ITM$(A) : WT(I)WHT(A) : COST(I)CST(A) : VOL(I)VL(A) : IVOL1VOL()VOL()VOL() : VOL2VOL()VOL() :  COST() VOL() VOL1  : ! VOL() VOL1VOL2  : :Internal pack hold stuff?j "Your pack is too small to hold all those things plus clothes and" "food. You'll have to take a larger pack or some smaller items." : "Let's try again..." : : : "How many changes of underwear do you want to take";UT U "This is not a picnic. Take fewer." :  "Do you want to take a walking stick (Y or N)";A$ :  A$"Y" STK : STK : "To summarize, here is what you have chosen:"  I  : SP$(I) ": " ITEM$(I) : I7  "Changes of underwear:" UX  STK "Walking stick."  " In addition, you must carry (or wear) a hat, short sleeve shirt, * "chamois shirt, light jacket, long underwear, hiking shorts, long";!4 "pants, 3 pairs socks, eating gear, water bottle, soap, toilet tissue,!> "toilet supplies, towel, first aid kit, snakebite kit, flashlight,!H "100' nylon cord, watch, compass, lighter, bandana, sewing kit, insect"R "repellent, Swiss Army knife, water purifier tablets, notebook, maps,^"\ "guidebook, stuff sacks, moleskin, camera, and money." : "f I  : WPWPWT(I) : CSTCSTCOST(I) : I : :Summarize weights"pWPWPU : STK WPWP#z "If you bought everything new, the total cost would be $" CSTX# "The total weight of what you are wearing and carrying is";#WEIGHTWP : 6 : : ".... not including food or water."#:#:Data on food#  : : "Common systems of food supply include:"=$ " (1) Caches buried along the trail. Pros: no wasted time leaving"{$ " the Trail for food, heavy items can be buried."$ " (2) Food sent to post offices along the way. Pros: more flexible"% " than caches. Cons: P.O.s closed nights, Sat pm and Sun."[% " (3) Grocery stores and restaurants. Pros: good variety, cheap."% " Cons: wasted time leaving Trail, limited opening hours."% "Which will be your major method of food supply";FOOD& FOOD FOOD "Sorry, try again." : b& FOOD RT : RT33s : :Off-trail excursions reduce walking rate&RMRT :  : :Short pause before screen clears&&$ "Obviously, you will carry your food in the most efficient form:"1'. "dried, dehydrated, concentrated, etc. However, you must specify"|'8 "the percentage of your diet accounted for by each of the following"'B "food groups (remember, all five must add up to 100)."'L " (1) Dairy foods, cheese, yogurt" (V " (2) Fruits and vegetables"2(` " (3) Meat, poultry, fish, eggs"\(j " (4) Bread, cereal, seeds, nuts"(t " (5) Margarine, lard, oils, fats"(~CT : I  : I,' : FD(I) : CTCTFD(I) : I(  ,' : CT "%" : ) CTd "Very good." : M) "Sorry, but your percentages add up to" CT "rather than to 100%.") : "Press any key when you're ready to try again.") () : : ):):Calculate calorie usage *DMRWTW : DM DM : :Desired distance = rate * timeP*:Calories = metabolism + walking + climbing + camp activities*CD ( WB8 WBDM (WBWP)DM= W~ WB(TW)Ga~ )* : "Given your weight and that of your supplies, your walking""+ "speed, and your walking time per day, you can expect"R+ "to burn at least" CD "calories per day."+  : "How many calories worth of food do you want to eat";CAL+ CALCD 2+ "Your body will rebel against burning that much body fat.",( "Better eat a bit more..." :  Y,2 CAL@CD "No blimps allowed on the trail." :  ,<FWT(CALL(FD()FD()FD()FD()FD())) : WEIGHTFWT,F "That means eating an approx food weight per day of"; : 6,-P : : FOOD DY : DY : :Avg days of food carriedn-ZWADDDYFWT : CADDWADDDM= W~ : WPWPWADD : CDCDCADD-d "Food and water add" WADD "oz. to your trail weight bringing your"-n "total weight (worn and carried) to"; : WEIGHTWP : 6: :.x : X$"Preparations are finally complete!" :  : B.:].:Main Hiking Section.:Initial calculations, data, and messages.WPWP :  : :Calculate true hiking pace. : :  : :Read locations2/ " It is April 1 and you briskly step out on the approach trail"{/ "at Amicalola Falls, Georgia. You hike the 6.9 miles to the peak"/ "of Springer Mountain and sign the trail log, the first of many"0 "that you intend to sign. Your hike will take you through 14"L0 "states as the Trail wanders 2007 miles along the Appalachian"0 "Mountains to Baxter Peak on Mt. Katahdin in Maine. It is a"0 "challenging trail with an average climb of 200 feet each mile."!1 "Fewer than 2000 people have walked its entire length. Good luck!"/1 : 71:T1:Main loop starts here1"TT : TD(T) : : P : :Check on the hiker every 3 days1,DDAYSRMDINPT : DDDDAYS : D 16 " You have walked" (D) "miles. ";D2@ I  : DDLC(I) DDLC(I) T : :Near anyplace?X2J I : : ^u2T "You are near " LC$(I)2^ D R( )Y : TSLOW( ) : :Slow going in mountains2h  : :Any mishaps recently?3r T  : :Long stretch of rain?C3| D  T  : :Snow in New England|3 D5 KEN  : :Kennebec River crossing3 D(STV)  : :Allow user to reset input variables3  : " : :Go back to start of hiking loop4:<4:Subroutine to determine which mishap, if any, occurs~4TM : RN((()) : RN# RN$ : :Mishap occurs4 RN 4 RN ,>,f,,,, ,$ ,V ,j ,~ , 4 4 RN &5 RN  , ,( ,F ,n , , , , , ,6 ,^ 05 n5 RN  , , , , , ,: ,b , , , , 5TTTM :  : : :Time delay resulting from mishap5:5:Subroutine to let user reset input variables.6&STVSTV : "Want to change walking pace or hours of walking";A$J60  : A$"Y" vl6: "New walking pace (mph)";RW6D RW RW "A rate of" RW "mph is silly." : :6N "New hours per day on the trail";TW7X TW "Come now; that's just too ambitious." : NV7b STK v : "Want to change your mind and carry a ";7l "walking stick";A$ :  : A$"Y" STK7v :  : 7:7:Subroutine to establish true hiking pace8DINPTRWTW : :Desired distance = walking rate * hours per dayc8 DX PC : :Under 600 miles physical condition limits mileage8DMAX(PC) : DINPTDMAX DINPTDMAX8 WBWP  : :Body weight to pack weight ratio under 6?9DINPT(Hz 0}WBWP)DINPT : :Heavy pack cuts down speedU9 STV : :No chance to change diet at the start9  : : :Chance to change diet as trip progresses9:9:Subroutine to alter hiking rate due to mishaps:RMRT : I  : TSLOW(I)T RMRMR(I): I : ::H: :Subroutines for 35 assorted mishaps followx: Dh HZ() : TM : HZ():  "You run into Rangers on military exercises who advise you to avoid";* "the trail for the next few miles because of booby traps." : ;4:>;> D  HZ( ) : TM : HZ( );H "The back support strap on your backpack has worn through. You'll";R "have to find a shoemaker to sew on a piece of heavy leather.":;\: D HZ() : TML : HZ()l> "The seat of your pants has worn through. You can take off the"> "pockets and sew them over the holes." : >:>TM : "Mice got into your food last night. Yuck." : > :8? TM: "Some Boy Scouts kept you awake 'til 1 am last night.":@? :\?$ D : TML}?. "Curs attack you as you are walking through a small town."?8 STK "You drive them off with your walking stick." : %@B "They nip at your heels. You should really carry a stick." : -@L :w@V TM: "Trail is poorly marked and you get temporarily lost.": @` :@j TML~ : "Broken zipper on your pack. Lose time drying stuff.":@t :A~ TM : "Route marked on map is out of date. You lose time trying"DA "to get back on the trail." : LA :~A HZ() : TM : HZ()HZ() : DOCA "You forget to shake out your boot and a snake has curled up inside"B "for the night. You're scared and he's mad." : IB ()fff "He slithers away and all is okay. Whew!": B "It's a rattler and he bites you. You'll have to get a doctor."B  B :B D HZ() : HZ() : RN(()) : TMRN+C "Late snow in the Smokies. The trail is unpassable for" RN "days."1C 9C :yC HZ() : HZ()HZ() : R()fff : TSLOW()TC "You have some nasty blisters that will slow your pace.":C :D( HZ() : HZ()HZ() : R()333 : TSLOW()T?D2 "You have bad indigestion from an unbalanced diet." : GD< :yDF Df HZ( ) : HZ( ) : TMDP "A bear got into your food and ripped your pack last night. It's"DZ "a good thing he wasn't hungry for human burgers." : Ed :IEn HZ( ) : HZ( )HZ( ) : R()@ : TSLOW()TEx "You twisted your ankle crossing a stream. That will slow your"E "pace for a few days. Be more careful!" : E :E HZ() : HZ() : DOC8F "You slipped on some rocks on a ledge. It's incredibly painful!"]F "Better see a doctor." :  eF :F TM : "A branch snaps in your eye. Lose time to treat it.": F :F TM : "Bad case of constipation. Better change diet." : G :PG TM : "You fell in a stream and everything got wet. Lose time"G "drying out your sleeping bag and clothes." : G :G HZ( ) : HZ( ) : TM@H "Last night you saw an animal moving near you and swatted at it."CH  : "Big mistake! It was a skunk. You'll have to wash"rH" "what you can and replace the rest." : zH, :H6 HZ() : HZ() : TMH@ "Lowliest of the low! Someone stole your pack while you were taking"&IJ "a shower. You'll have to replace everything." : .IT :ZI^ HZ() : HZ() : TM : DOCIh "After five solid days of rain, everything is soaked and you just"Ir "can't stop shivering. You feel so terrible that you'll have to" J| "see a doctor." :  J :;J HZ() : HZ() : TML}J "You cut your hand badly with your knife. Be careful!" : J :J TM : "Socks worn through. You'll have to buy new ones." : J :J HZ() : HZ() : TM :QH :Rattlesnake biteQR "He examines your swollen leg and says," : ?R\ "'Good thing you got here so quickly. I'll give you a shot of anti-"Rf "venin but you're going to be out of commission for a good 4 days--"Rp "and even after that you'll have to take it easy for a while.'"Rz TM : R()333 : TSLOW()T : S : S :Broken or sprained legdS "He examines your leg and says," :  : ()333  S "'That's a very nasty sprain. I'll tape it up, but you'll have to"S "take it easy for at least a month.'"T TM@ : R() : TSLOW()T : TT "'Bad news, my young friend. Your leg is broken. I'm surprised you"T "got here under your own power. But this is the end of your hike."T "Sorry, but maybe you can try again next year.'" : T :T :Hypothermia5U "He examines you and says," :  : TM(())~U "'That prolonged rain and cold has put you in a condition that we"U "call hypothermia. You can stay in town here at a motel and I'll" V "keep an eye on you, but you can't go back on the Trail for at"MV "least" TM "days. Sorry, but that's the way it is.'" : UV$:gV.:Poison IvyV8 "He only needs a glance to see that you are suffering from an"VB "extremely bad case of poison ivy. He puts you in a clinic for"X$"more" : WLWLnH "You weighed" WB "pounds at the end," WL X$ " than at the start."nR "Nice going!"Wn\ : "Would you like to try again (Y or N)";A$ : unf A$"Y" : "M" : }np:nz:Names of items that can be carriedn "Tent"o "Sierra Designs Divine Light, 20 sq ft, max height 34 in.",35,135,214Bo "Eureka! Crescent Bike, 22 sq ft, height 43 in.",48,125,353o "Moss Starlet, 29 sq ft; with vestibule, 37; height 39 in.",78,250,334o "None. Use trail shelters and sleep in open.",0,0,0o "Pack"p "Kelty Mountaineer external frame with Seneca pack",69,139, 3975Rp "Jansport D2 external frame pack",99,169,5520p "Camp Trails Grey Wolf internal frame pack, large",82,119,5975p "Coleman Peak 1 model 680 internal frame pack",58,115,4013p "Sleeping bag"7q "North Face Blue Kazoo, mummy, goose down, rated 25 deg",34,140,452q "Slumberjack Bike Lite, mummy, Quallofil, rated 30 degrees",50,65,808q "REI 747 Wide Body, semi-rect, Quallofil, rated 30 deg",54,90,1884r "L.L. Bean Ultra-Lite, rectangular, Quallofil, rated 35 deg",58,80,8047r "Sleeping pad/mattress"ir$ "Sevylor Superlight air mattress",32,20,360r. "Therm-A-Rest self-inflating ultra-lite pad",28,48,325r8 "Ensolite 1/2 in. pad",24,23,300rB "None.",0,0,0rL "Stove"9sV "MSR Whisperlite, uses white gas (available along trail)",18,37,120s` "Gaz Bleuet, fuel: butane cartridge (light and reliable)",16,20,106sj "Primus Grasshopper, fuel: propane cylinder (long life)",22,19,90tt "None (incidentally, wood fires are PROHIBITED on the trail)",0,0,0#t~ "Boots"^t "Asolo Trail II S, mid-ankle leather boots",49,140,0t "Danner Featherlight Trail, mid-ankle leather & Gore-Tex boot",52,95,0t "Timberland Lightweight Hiker, mid-ankle fabric and Gore-Tex",46,50,05u "Raichle Montagnas, full height leather boots",80,125,0Fu "Raingear"u "Early Winters Ultralight Gore-Tex rain parka",13,145,25u "Patagonia featherweight Gore-Tex shell",7,58,15u "Campmor nylon poncho",16,25,22u "None.",0,0,0u:)v I  : DLC(I),LC$(I) : I : jv 79,"Bly Gap, GA",165,"Doe Knob, NC",302,"Big Bald Mt., NC"v 384,"Wilbur Lake, TN",483,"Big Walker Lookout, VA",602,"Tinker Mt, VA"w  698,"Salt Log Gap, VA",800,"Fishers Gap, VA",889,"Potomac River, WV"Hw 966,"Piney Mt., PA",1099,"Baer Rocks, PA",1190,"High Point, NJ"w 1272,"Shenandoah Mt., NY",1361,"Sages Ravine, CT",1435w( "Mt. Greylock, MA",1554,"Killington, VT",1687,"Mt. Washington, NH" x2 1776,"Bemis Pond, ME",1855,"Kennebec River, ME",1922Dx< "Chairback Mt., ME",1992,"Penobscot West Branch, ME"LxF:pxP:Subroutine to print the datexZ TTTD : :Printed this date already?xd TD  : TD>  : TDZ yn TDy  : TD  : TD 4yx TD  : TD  : TyMO$"April" : MDTD : uyMO$"May" : MDTD : yMO$"June" : MDTD= : yMO$"July" : MDTDY : yMO$"August" : MDTDx : zMO$"September" : MDTD : )zMO$"October" : MDTD : GzMO$"November" : MDTDaz MO$;MD; : TTTD : z : "It's November 12 and all the New England states are covered"z "with snow. You have no chance of finishing the trail. Better""{ "luck next year. You have been out on the"b{TD(T) : D(D) : X(( DTD)) : j{:{:Subroutine to temporarily break execution{ : X$"Press any key to continue" : {" () : : : {,:%|6:Subroutine to print weights by pounds and ouncesT|@WTPND(WEIGHT) : WTOZWEIGHTWTPND~|J WTPND WTPND "pounds"; : ^|T WTPND " 1 pound"; : ^|^ WTOZ WTOZ "ounces"; : |h WTOZ " 1 ounce";|r||:}:Subroutine to make a short pause5} I  : I : =}:~}:Subroutine to extract the first letter of an input answer} A$"" A$"Y" : }A$(A$,) : A$"A" A$"Z" }A$((A$) ) : }: ~:Subroutine to print centered lines*~ (F(X$))) X$; : 2~:^~:Subroutine to print the instructions~X$"Appalachian Trail" :  : : ~ " You are a hiker whose goal is to walk the entire 2007 miles of"! "the Appalachian Trail from Springer Mt., GA to Mt. Katahdin, Maine."l "You set out in April as soon as the Smokies are clear of snow, and"& "you must reach the northern terminus before it is blocked by snow."0 " Your hike is divided into three-day segments. Along the way,"K: "you encounter natural hazards, difficulties with your equipment,"jD "and physical problems."N " Careful planning for your hike is very important. In deciding"X "what to pack, you have to make tradeoffs--generally between weight"Db "and comfort. Of course, everything must fit in your pack."l " You must decide how you will obtain food along the route, how"ہv "much to eat in each food group, and how many calories to replenish."$ " You must decide at what pace you will walk, and how long to"m "hike each day. Of course, a faster pace will cover mileage more" "quickly than a slower one, but it is much harder on your body." " You don't have many choices when dealing with mishaps. It is"K "assumed that you are a sensible hiker, make repairs when necessary," "replace things that wear out, and see a doctor if you get sick."܃ "Nevertheless, mishaps cost you time, of which you have little to"' "spare as you take another of the five million steps towards Maine."g : X$"Press any key when you're ready to go." :  :