!*! Updated on 20-Dec-90 at 12:43 PM by Paul Ciosek; edit time: 0:02:29
!
!  BIRD by Sydney R. Baxter IV, UltraSoft Corporation.
!

	MAP1 A,B,2
	MAP1 ANSWER,S,1

INTRO:	PRINT TAB(-1,0)
	PRINT TAB(1,15);"A Birder's Guide to American Fowl"	
	PRINT TAB(3,5);"Members of our modern society do not realize the intricate "	
	PRINT TAB(4,1);"ways of our fast diminishing wildlife. Before we even realize"
	PRINT TAB(5,1);"it, the fruits of Mother Nature will disappear before our very eyes."
	PRINT TAB(6,1);"With this in mind, we begin our scenario. Picture that you are walking"
	PRINT TAB(7,1);"through a mist-shadowed glen, with only the distant chirps of unseen"
	PRINT TAB(8,1);"birds to guide your path. Fully stocked with all the latest in birder"
	PRINT TAB(9,1);"equipment, you set out to chart the unknown."

	PRINT TAB(11,1);"This adventure is guided by the use of numbered prompts. Simply hit"
	PRINT TAB(12,1);"the number of the desired course of action. Good luck."

	PRINT TAB(14,1);"(1) To continue with the story."
	INPUT A
	ON A GOTO DESCR ELSE INTRO

DESCR:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"Walking through the woods, the sun filters through the early morn."	
	PRINT TAB(4,1);"The dew leaves stains on your shoes. Rustling is heard in the distance."
	PRINT TAB(5,1);"Closer by, a burst of color catches your attention. What shall you do?"
	PRINT TAB(6,1);"Which sense is more important to you: sight or hearing?"

	PRINT TAB(8,1);"(1) You take off down a leaf-covered path in search of the elusive sound."
	PRINT TAB(9,1);"(2) You were easily transfixed by colors as a child, and as such head south."
	INPUT A
	ON A GOTO PATH,MARSH 	

PATH:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"Walking along the path, your motions make deep swooshing sounds"
	PRINT TAB(4,1);"amongst the vegetation. The place gets darker, with the path becoming narrower."
	PRINT TAB(5,1);"The sounds that were heard before are becoming more intense, with a frenzy"
	PRINT TAB(6,1);"of activity being denoted. You have second thoughts about going this way."

	PRINT TAB(8,1);"(1) He who trembles and runs away lives to birdwatch another day."
	PRINT TAB(9,5);"You decide to double back the way you came."
	PRINT TAB(11,1);"(2) You've come all this way and won't be daunted; you really don't"
	PRINT TAB(12,5);"care if this place is haunted. You continue your journey."
	INPUT A
	ON A GOTO PIT,BEAR

PIT:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"Feet don't fail me now! You run heedlessly through the brush, not"		
	PRINT TAB(4,1);"caring about retracing your footsteps. You stumble into a pit that was obscured."
	PRINT TAB(5,1);"by the dense covering of leaves. Just before you break your neck, you "
	PRINT TAB(6,1);"notice the magnificent covering of ivy along the pit walls. As you are"
	PRINT TAB(7,1);"going way too fast to grasp any of them, this was just a nice diversion from"
	PRINT TAB(8,1);"death. Too bad."
	GOTO DEAD

BEAR:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"Small growls are heard in the woods. This isn't what the Audobon Society"
	PRINT TAB(4,1);"promised would be on this trail. Several yards away, three bear cubs are learning"
	PRINT TAB(5,1);"the art of survival by playfully swatting paws at one another. This"
	PRINT TAB(6,1);"practice will serve them well later on in their lives. For the time"
	PRINT TAB(7,1);"being, your attention is focused on something else...a mother bear. Regarding you"
	PRINT TAB(8,1);"as a threat to her young, she begins to charge. The nerves in your body"
	PRINT TAB(9,1);"begin to race."

	PRINT TAB(11,1);"(1) Run for the hills!"
	PRINT TAB(12,1);"(2) Lie down and play dead!"
	PRINT TAB(13,1);"(3) Climb a nearby tree!"
	INPUT A   
	ON A GOTO HILLS,FAINT,CLIMB ELSE BEAR

MARSH:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"You have the scent now (so to speak). The ground begins to get a little"
	PRINT TAB(4,1);"spongy, but is still holding up well. You begin to recognize the form of "
	PRINT TAB(5,1);"the creature you have been pursuing. It is a red-winged blackbird, as is "
	PRINT TAB(6,1);"shown in your Roger Rory Peterson's ";TAB(-1,30)"Birds of North America ";
	PRINT TAB(-1,31);"field guide."

	PRINT TAB(8,1);"A beautiful panorama of the countryside surrounds you. Wildlife of all"
	PRINT TAB(9,1);"types thrive in this environment. This is a birder's paradise. The blackbird"
	PRINT TAB(10,1);"continues flying out over the marsh. A snowy egret sets its head up as"
	PRINT TAB(11,1);"as a lance, waiting to feed upon small creatures in the mud."
	PRINT TAB(12,1);"Far in the distance, an osprey soars over its nesting site, a solitary tree."

	PRINT TAB(14,1);"(1) Continue following the red-winged blackbird on its course."	
	PRINT TAB(15,1);"(2) Determine exactly what the snowy egret is eating."
	PRINT TAB(16,1);"(3) Check out the osprey nest site."
	INPUT A
	ON A GOTO RED,EGRET,OSPREY

HILLS:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"You gallop over the meadow, back down the way you came. But,"
	PRINT TAB(4,1);"this is to no avail. You should have known better than to outrun a bear,"
	PRINT TAB(5,1);"since they can travel speeds in excess of forty miles per hour."
	PRINT TAB(6,1);"As you look at the bear's progress, the last thing you see is a huge"
	PRINT TAB(7,1);"paw bearing down on you. One quick swipe is all that is needed to remove"
	PRINT TAB(8,1);"your scalp. This was one hair-raising experience."
	GOTO DEAD

FAINT:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"You drop on your stomach as the mother bear approaches. Closing"
	PRINT TAB(4,1);"your eyes, the buffeting of the bear's paws strike your body. There"
	PRINT TAB(5,1);"is a strong desire to run, but something tells you to keep cool."
	PRINT TAB(6,1);"Eventually the bear and her cubs move away, leaving you for dead. Today"
	PRINT TAB(7,1);"must be your lucky day."

	PRINT TAB(9,1);"(1) To continue with the story."
	INPUT A
	ON A GOTO SURVIVE

CLIMB:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"The nearest tree that can be climbed is a young pine sapling, with narrow,"
	PRINT TAB(4,1);"branches that can barely support your weight. The mother bear wraps her huge"
	PRINT TAB(5,1);"paws around the tree, shaking it vigorously. You start to fall as soon as you"
	PRINT TAB(6,1);"begin your ascent. Your back breaks as you hit the earth. The cubs"
	PRINT TAB(7,1);"have food to eat for today."
	GOTO DEAD

RED:	PRINT TAB(-1,0)
	PRINT TAB(3,5);"The red-winged blackbird flits casually across the marsh, cavorting"
	PRINT TAB(4,1);"with the dragonflies that abound. The sun glistens off their wings, creating"
	PRINT TAB(5,1);"miniature rainbows in the air. Bounding gleefully along, the spirit of nature"
	PRINT TAB(6,1);"abounds in you. With a spring in your step, you follow your quarry."

	PRINT TAB(8,1);"(1) The flight of the blackbird is incredibly mesmerizing, and you continue along."
	PRINT TAB(9,1);"(2) You ignore the flying creature, and instead head for the seashore."
	INPUT A 
	ON A GOTO SWAMP,BEACH

SURVIVE: 
	PRINT TAB(-1,0)
	PRINT TAB(3,5);"You wake up in a daze several hours later, but the sun is still shining."
	PRINT TAB(4,1);"There is within you a desire to clean yourself up. Two possible options"
	PRINT TAB(5,1);"exist:"

	PRINT TAB(6,1);"(1) Head for a nearby stream, so that you can wash away your grime and"
	PRINT TAB(7,5);"perhaps catch something to eat."
	PRINT TAB(8,1);"(2) You hear a distant roaring, which is perhaps the sound of the"
	PRINT TAB(9,5);"ocean. The sound of gulls is overheard."
	INPUT A
	ON A GOTO STREAM,BEACH

EGRET:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"The graceful feathers of the snowy egret are known throughout the world"
	PRINT TAB(4,1);"for their beauty. In the late 19th and early 20th centuries, it was"
	PRINT TAB(5,1);"fashionable to wear a hat composed of egret feathers on one's head. Fortunately,"
	PRINT TAB(6,1);"such practices became out of style and were eventually stopped by the"
	PRINT TAB(7,1);"U. S. government. As you peer more closely at the animal, you hear a sound, the"
	PRINT TAB(8,1);"last that you will ever hear. A shotgun blasts, sending pellets into your"
	PRINT TAB(9,1);"body. As your eyes shut a final time, a park ranger stands over you."
	GOTO DEAD

OSPREY:	PRINT TAB(-1,0) 
	PRINT TAB(3,5);"You climb the tree, stepping on first one branch and then the other."
	PRINT TAB(4,1);"A large nest, made of twigs, is situated in the crook of tree. Looking"
	PRINT TAB(5,1);"at first like a fragile structure of a child, strength of home seems"
	PRINT TAB(6,1);"to issue from here. As you peer over the brink of the nest, a cluster of four"
	PRINT TAB(7,1);"eggs lies in the bottom. Reaching out to grab one, you realize the mistake"
	PRINT TAB(8,1);"that has been made. The osprey turns out to be two birds, not one."
	PRINT TAB(9,1);"The mother bird tears at your eyes, and the father plucks out your heart."
	GOTO DEAD

SWAMP:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"The ground feels softer and softer. Your shoes are getting mud caked"
	PRINT TAB(4,1);"all over them. Tiny gnats and hungry mosquitoes invade your nose, eyes, ears, and mouth."
	PRINT TAB(5,1);"You begin to lose sight of the blackbird, as well of the surrounding area."
	PRINT TAB(6,1);"Not looking at where you are going, you step into a puddle of quicksand. Descending"
	PRINT TAB(7,1);"into the muck, you lose consciousness as you start to smother."
	GOTO DEAD

STREAM: PRINT TAB(-1,0) 
	PRINT TAB(3,5);"You settle down to relax beside the stream. Taking handfuls of water, you use"
	PRINT TAB(4,1);"this elixir to both quench your thirst and wash your face. In the eddies"
	PRINT TAB(5,1);"along the shore. Your stomach begins to grumble; it has been several hours since"
	PRINT TAB(6,1);"your last meal. Ideas of fishcakes begin to look appealing. In an instant,"
	PRINT TAB(7,1);"your hand darts out to snatch one of the fleeting minnows. Unfortunately,"
	PRINT TAB(8,1);"some of the earthen bank begins to crumble into the stream, sending you headfirst"
	PRINT TAB(9,1);"into the swiftly flowing water. As you sink to the bottom, you've always wondered"
	PRINT TAB(10,1);"what it was like to drown. Now you know."
	GOTO DEAD

BEACH:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"Waves pound along the length of this ancient shore. Overhead,"
	PRINT TAB(4,1);"black-headed gulls emit their cries. Shells of clams and scallops litter the beach,"
	PRINT TAB(5,1);"forming the stuff of necklaces such as that manufactured by the Indians. It is quite"
	PRINT TAB(6,1);"easy to think that there is no one else in the world. Far out in the distance"
	PRINT TAB(7,1);"a reef forms a buffer that prevents the waves from crashing full force along"
	PRINT TAB(8,1);"the beach. Off the reef, gulls leap and dive into a disturbed patch of water,"
	PRINT TAB(9,1);"which is obviously full of fish. By and by, you spot another human in the water."
	PRINT TAB(10,1);"Behind him/her, a fin breaks the surface of the water. Could this be a shark?"
	PRINT TAB(11,1);"You wonder if you can do anything to prevent a tragedy from occurring."

	PRINT TAB(13,1);"(1) Throwing cowardice to the wind, you jump into the water to be a hero."
	PRINT TAB(14,1);"(2) You begin to yell frantically, waving your arms over your head, hoping to scare"
	PRINT TAB(15,5);"away the shark."
	INPUT A
	ON A GOTO SHARK,SAVED

SHARK:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"Very valorous, but not very smart. Did you really think that you"	
	PRINT TAB(4,1);"could really hold off the attack of a shark? As you swim out to 'save' the poor"
	PRINT TAB(5,1);"soul, it turns out that you were very, very wrong. It is merely a discarded mannequin"
	PRINT TAB(6,1);"flung overboard from a passing ship. This realization does not ease the pain which"
	PRINT TAB(7,1);"occurs as the great beast bites you in half. C'est la vie."
	GOTO DEAD

SAVED:  PRINT TAB(-1,0)
	PRINT TAB(3,5);"You look utterly ridiculous flapping your arms in the wind, resembling a"
	PRINT TAB(4,1);"scarecrow on the plains of Kansas. The shark rears its head above the water, swiftly"
	PRINT TAB(5,1);"chomping off the head of the unfortunate individual. Instead of blood spraying"
	PRINT TAB(6,1);"out, foam pieces are on the surface of the water. This was not a human being;"
	PRINT TAB(7,1);"it was a discarded dummy from a Sears outlet. Somebody should be arrested for" 
	PRINT TAB(8,1);"littering. Common sense is the rule this day. Going further down the beach, a foot"
	PRINT TAB(9,1);"bridge crosses over a canal."

	PRINT TAB(11,1);"(1) Walk over the bridge to see what is on the other side of the canal."
	PRINT TAB(12,1);"(2) Look under the bridge to see what is underneath."
	INPUT A 
	ON A GOTO BRIDGE,HOLE

BRIDGE: PRINT TAB(-1,0)
	PRINT TAB(3,5);"Crossing over the bridge, you see gaps in the old wood. The creakings"
	PRINT TAB(4,1);"of the footbridge grow louder. Once in the middle of the bridge, it begins"
	PRINT TAB(5,1);"to give out. The whole mass plunges into the water, along with you. As your head"
	PRINT TAB(6,1);"sinks below the waves, you breathe your last."
	GOTO DEAD

HOLE:   PRINT TAB(-1,0)
	PRINT TAB(3,5);"Upon closer inspection, the bridge seems to be of a failing quality."
	PRINT TAB(4,1);"Time and the waves have worn away at the wood and foundations of the bridge. If you had"
	PRINT TAB(5,1);"stepped on the footbridge, it most likely would have given way, pitching you into the"
	PRINT TAB(6,1);"drink. The only apparent way to cross the canal is to enter a drain tunnel on this side"
	PRINT TAB(7,1);"of the bank that exits on the other side, going underneath the canal."

	PRINT TAB(9,1);"(1) Enter the tunnel, even though it is slimy and yucky."
	PRINT TAB(10,1);"(2) Remain on this side and try to cross the bridge anyway."
	INPUT A
	ON A GOTO WIN,BRIDGE

WIN:    PRINT TAB(-1,0)
	PRINT TAB(3,5);"Congratulations! You have successfully completed the tour of the Baxter"
	PRINT TAB(4,1);"nature preserve. Having finished this walk, I'm sure that you have a greater"
	PRINT TAB(5,1);"understanding of the natural world. Even though this adventure has ended, this doesn't"
	PRINT TAB(6,1);"mean that the exploration has to end. Try playing the game again, exploring places and"
	PRINT TAB(7,1);"doing different actions. Thanks for being along for the ride."	

	PRINT TAB(10,1);"Would you like to play again?"	
	PRINT TAB(12,1);"(Y)es, thank you very much."
	PRINT TAB(13,1);"(N)o, not right now. I'm too cool to play this game."
	INPUT ANSWER
	IF ANSWER = "Y" OR ANSWER = "y" THEN GOTO INTRO
	IF ANSWER = "N" OR ANSWER = "n" THEN GOTO END

DEAD:	PRINT TAB(20,15);"You have"
	PRINT TAB(-1,21) 
	PRINT TAB(20,24);"DIED"
	PRINT TAB(-1,22)
	PRINT TAB(20,29);"at this game. Would you like to continue?"
	PRINT TAB(22,15);"(Y)es I would. I found this game most enjoyable."
	PRINT TAB(23,15);"(N)o I would not. I have better things to do with my time."
	INPUT ANSWER 
	IF ANSWER  = "Y" OR ANSWER = "y" THEN GOTO INTRO
	IF ANSWER  = "N" OR ANSWER = "n" THEN GOTO END

END:	PRINT TAB(-1,0)
	END