!--------------------------------------------------
!- Monday, March 03, 2014 9:36:06 AM
!- Import of : 
!- C:\data\OdellWoods.prg
!--------------------------------------------------
0 GOTO90
10 ------------------------------------
30 ODELL WOODS
40 BY: STEVE ENGELHARDT
50 COMPLETED
60 05/9/84
80 ------------------------------------
90 PRINTCHR$(14);CHR$(147);CHR$(159)
100 POKE53280,6:POKE53281,6:PRINT"{cyan}":
110 D$="{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}"
120 Y$="{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}{188}{160}"
130 A$="{clear}{down*2}{space*4}{217}ou may do the following:"
140 B$="{down}{space*5}1) {210}un{space*11}2) {201}gnore it"
150 C$="{down}{space*5}3) {195}hase it{space*6}4) {197}at it"
160 PRINT"{clear}"
170 PRINT"{down*2}{space*3}{207}{196}{197}{204}{204} {215}{207}{207}{196}{211}: {194}y {211}teve {197}ngelhardt{down}"
180 PRINT"{up}{space*3}{163}{163}{163}{163}{163}{163}{163}{163}{163}{163}{163}",{10}COS
8209      1) ABBIT        2) OLF{17}{17}""Z$="{down}{space*2}{215}hat do you wish to do"
210 PRINTY$
220 PRINT"{down} {215}hich one do you want to be";
230 INPUTXX$
240 IFXX$="2"THEN1430
250 PRINTA$:PRINTB$:PRINTC$:PRINTD$
260 PRINT"{down}{space*2}{217}ou are walking through a large "
270 PRINT" grassy field.{space*2}{212}he grass is so high"
280 PRINT" that it almost is one foot over your"
290 PRINT" body."
300 PRINTZ$;:INPUTM$
310 IFM$="1"THENPRINT"{down} {210}{213}{206}!?! {215}hy run from a grass field?":GOTO350
320 IFM$="2"THENPRINT"{down} {201}gnore it? {211}hould've eaten it!":GOTO350
330 IFM$="3"THENPRINT"{down} {195}hase grass!?! you nuts or something?":GOTO350
340 IFM$="4"THENPRINT"{down} {197}at it! that's the way!(it tasted good)"
350 GETM$:IFM$=""THEN350
360 PRINTA$:PRINTB$:PRINTC$:PRINTD$
370 PRINT"{down}{space*2}you now are walking along a dirt"
380 PRINT" pathway,{space*2}and you see a hungry wolf"
390 PRINT" pack in the distance."
400 PRINTZ$;:INPUTM$
410 IFM$="1"THENPRINT"{down} {212}hat's right! get outta there!":GOTO450
420 IFM$="2"THENPRINT"{down} {217}ou're lucky, they almost saw you!":GOTO450
430 IFM$="3"THENPRINT"{down} {211}orry, they saw you and ate you.":END
440 IFM$="4"THENPRINT"{down} {197}ating a wolf is'nt advisable.{217}ou died":END
450 GETA$:IFA$=""THEN450
460 PRINT"{clear}"
470 PRINTA$:PRINTB$:PRINTC$:PRINTD$
480 PRINT"{down}{space*2}{217}ou come to the end of the path, and"
490 PRINT" you see an old farmer with his"
500 PRINT" shotgun pointed right at you!"
510 PRINTZ$;:INPUTM$
520 IFM$="1"THENPRINT"{down} {212}hat's right! better {210}{213}{206}!":GOTO560
530 IFM$="2"THENPRINT"{down} {206}ear {205}iss! {200}e almost shot ya!":GOTO560
540 IFM$="3"THENPRINT"{down} {200}{207}{215} {211}{212}{213}{208}{201}{196}! {200}e shot you dead!!!":END
550 IFM$="4"THENPRINT"{down} {201}{196}{201}{207}{212}! {200}e barrelled you twice!!!":END
560 GETA$:IFA$=""THEN560
570 PRINT"{clear}"
580 PRINTA$:PRINTB$:PRINTC$:PRINTD$
590 PRINT"{down}{space*2}you now come to an old fallen log"
600 PRINT" in the middle of the dirt path."
610 PRINT" it appears to have been chopped down"
620 PRINT" by a farmer..."
630 PRINTZ$;:INPUTM$
640 IFM$="1"THENPRINT"{down} {210}un? {215}hy run from a fallen log?":GOTO680
650 IFM$="2"THENPRINT"{down} {211}ounds logical. moving right along...":GOTO680
660 IFM$="3"THENPRINT"{down} {195}{200}{193}{211}{197} {193} {204}{207}{199}! see your nearest mental":PRINT" home.":GOTO680
670 IFM$="4"THENPRINT"{down} {206}ot a bad meal. {195}ould have done better."
680 GETA$:IFA$=""THEN680
690 PRINT"{clear}"
700 PRINTA$:PRINTB$:PRINTC$:PRINTD$
710 PRINT"{down}{space*2}{217}ou now come across a large field"
720 PRINT" with a deer in the middle of it"
730 PRINT" looking at you carefully."
740 PRINTZ$;:INPUTM$
750 IFM$="1"THENPRINT"{down} {217}ou did'nt have to.{196}eer wont hurt you!":GOTO790
760 IFM$="2"THENPRINT"{down} {193}lright. fine. {205}oving right along...":GOTO790
770 IFM$="3"THENPRINT"{down} {217}ou spook it and it runs away.":GOTO790
780 IFM$="4"THENPRINT"{down} you scare it and it runs away."
790 GETA$:IFA$=""THEN790
800 PRINT"{clear}"
810 PRINTA$:PRINTB$:PRINTC$:PRINTD$
820 PRINT"{down}{space*2}{217}ou are still in the large field, and"
830 PRINT" you see four little mice scurrying"
840 PRINT" across the field, right in front "
850 PRINT" of you."
860 PRINTZ$;:INPUTM$
870 IFM$="1"THENPRINT"{down} {210}un? {215}hy run from a bunch ofmice?":PRINT" {212}hey wont hurt you!"
880 IFM$="2"THENPRINT"{down} good idea, just ignore them.":GOTO910
890 IFM$="3"THENPRINT"{down} {217}ou chase and catch. {212}hey tasted goood!":GOTO910
900 IFM$="4"THENPRINT"{down} {199}ood {212}hinking! {212}hey were delicious!":GOTO910
910 GETA$:IFA$=""THEN910
920 PRINT"{clear}"
930 PRINTA$:PRINTB$:PRINTC$:PRINTD$
940 PRINT"{down}{space*2}{217}ou now see a long line of short"
950 PRINT" green plants."
960 PRINTZ$;:INPUTM$
970 IFM$="1"THENPRINT"{down} {210}{213}{206}? {217}ou just lost a free meal!":PRINT"{down} you die of hung"{21}{3}IFM$="2"THENPRINT"{down} {201}gnore it? you lost a good meal.":PRINT"you die of hunger":END
990 IFM$="3"THENPRINT"{down} {195}hase green plants? {194}etter see your":PRINT" nearest mental home"
1000 IFM$="4"THENPRINT"{down} {199}reat {212}hinking! {212}his should hold ya for":PRINT" a long"{4}{22}{3}GETA$:IFA$=""THEN1010
1020 PRINT"{clear}"
1030 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1040 PRINT"{down}{space*2}{207}n the other side of the plants you"
1050 PRINT" see the same farmer that shot at you"
1060 PRINT" the last time...{space*2}{193}nd he looks angry!!"
1070 PRINTZ$;:INPUTM$
1080 IFM$="1"THENPRINT"{down} {217}ou got it brother!":GOTO1120
1090 IFM$="2"THENPRINT"{down} {211}orry, he did'nt miss this time...":END
1100 IFM$="3"THENPRINT"{down} #&%#%! {217}{207}{213}'{210}{197} {196}ea{196}!":GOTO1120
1110 IFM$="4"THENPRINT"{down} {197}at a farmer? he shot you 4 times in":PRINT" the head.":END
1120 GETA$:IFA$=""THEN1120
1130 PRINT"{clear}"
1140 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1150 PRINT"{down}{space*2}{212}he farmer's dog spotted you and"
1160 PRINT" and is literally drueling as he is"
1170 PRINT" running."
1180 PRINTZ$;:INPUTM$
1190 IFM$="1"THENPRINT"you betcha! that's it!"
1200 IFM$="2"THENPRINT"{217}ou hid in the shrubs, you got lucky.":GOTO1230
1210 IFM$="3"THENPRINT"{down} #&%#%! {212}he dog is happy you donated":PRINT" your body.":END
1220 IFM$="4"THENPRINT"{down} {217}ou {195}{210}{193}{218}{217}? {212}he dog pounces and tears":PRINT" you apart.":END
1230 GETA$:IFA$=""THEN1230
1240 PRINT"{clear}"
1250 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1260 PRINT"{down}{space*2}{217}ou see a weird looking box with"
1270 PRINT" a carrot hanging from a string"
1280 PRINT" you hear a rustling noise and a faint"
1290 PRINT" giggle coming from behind a tree"
1300 PRINTZ$;:INPUTM$
1310 IFM$="1"THENPRINT"{down} {199}ood.{space*2}you would have been one dead":PRINT" rabbit!":GOTO1350
1320 IFM$="2"THENPRINT"{down} {199}ood {201}dea. {205}oving right along...":GOTO1350
1330 IFM$="3"THENPRINT"{down} {194}ad {201}dea.{space*2}{217}ou were caught in a trap":PRINT" and killed."
1340 IFM$="4"THENPRINT"{down} {194}ad {201}dea.{space*2}{217}ou were caught in a trap":PRINT" and killed."
1350 GETA$:IFA$=""THEN1350
1360 PRINT"{clear}"
1370 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1380 PRINT"{down}{space*2}{195}{207}{206}{199}{210}{193}{212}{213}{204}{193}{212}{201}{207}{206}{211}!{space*2}{217}ou made it through"
1390 PRINT" {207}dell {215}oods.{space*2}{196}o you want to try again?"
1400 INPUT" ";V$
1410 IFV$<>"y"THENEND
1420 RUN
1430 D$="{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}{164}"
1440 A$="{clear}{down*2}{space*4}{217}ou may do the following:"
1450 B$="{down}{space*5}1){210}un{space*12}2){201}gnore it"
1460 C$="{down}{space*5}3){195}hase it{space*7}4){197}at it"
1470 Z$="{down}{space*2}{215}hat do you wish to do"
1480 PRINT"{clear}"
1490 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1500 PRINT"{down}{space*2}{217}ou are running down a dusty path"
1510 PRINT" and see a rabbit hiding in the"
1520 PRINT" plants."
1530 PRINTZ$;:INPUTM$
1540 IFM$="1"THENPRINT"{down} {217}ou should have eaten it, dummy!":GOTO1580
1550 IFM$="2"THENPRINT"{down} {217}ou should have eaten it, you jerk!":GOTO1580
1560 IFM$="3"THENPRINT"{down} {217}ou chase it, catch it and eat. {217}ummy!":GOTO1580
1570 IFM$="4"THENPRINT"{down} {217}ou got it! {213}mmmm! gooood!!"
1580 REM
1590 GETA$:IFA$=""THEN1590
1600 PRINT"{clear}"
1610 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1620 PRINT"{down}{space*2}{217}ou see a fallen log in front of"
1630 PRINT" you, and it appears that there is"
1640 PRINT" a {195}opperhead under it just waiting"
1650 PRINT" to give away some free venom."
1660 PRINTZ$;:INPUTM
1670 IFM=1THENPRINT"{down} {217}ou got the idea, get out of there!":GOTO1720
1680 IFM=2THENPRINT"{down} {195}lose one! {212}he snake heard you, but":PRINT" was uninterested."
1690 IFM=3THENPRINT"{down} {201}{196}{201}{207}{212}! the snake hisses and snaps.":PRINT" you will die soon":END
1700 IFM=4THENPRINT"{down} #$%&$! the snake bites, & you will":PRINT" soon die.":END
1710 IFM=4THENPRINT:FORX=1TO1000:NEXT:END
1720 GETA$:IFA$=""THEN1720
1730 PRINT"{clear}"
1740 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1750 PRINT"{down}{space*2}{217}ou are walking slowly down the edge"
1760 PRINT" feild and hear a loud rumbling noise."
1770 PRINT" you look up & see 100 deer in a "
1780 PRINT" stampede, heading for you!"
1790 PRINTZ$;:INPUTM$
1800 IFM$="1"THENPRINT"{down} {211}mart! you would have been trampled.":GOTO1840
1810 IFM$="2"THENPRINT"{down} {196}um! {217}ou were turned into a":PRINT" flat wolfcake":END
1820 IFM$="3"THENPRINT"{down} #$%$&! you were totally squashed!"
1830 IFM$="4"THENPRINT"{down} {197}at stampeding deer? {215}hat do you think":PRINT" happens?":END
1840 GETA$:IFA$=""THEN1840
1850 PRINT"{clear}"
1860 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1870 PRINT"{down}{space*2}{217}ou are now out of the way of the"
1880 PRINT" deer(whew!), and back into the forest."
1890 PRINT" {193} {210}ed {198}ox just jumped in front of you"
1900 PRINT" and snarled at you."
1910 PRINTZ$;:INPUTM
1920 IFM=1THENPRINT"{down} {199}ood {212}hinking. {201}t might have wounded":PRINT" you":GOTO1960
1930 IFM=2THENPRINT"{down} {200}e pounced & wounded you. {194}e more":PRINT" careful next time!"
1940 IFM=3THENPRINT"{down} {217}ou got in a fight and killed the fox":PRINT" {204}{213}{195}{203}{217}!":GOTO1960
1950 IFM=4THENPRINT"{down} {217}ou {196}ont normally eat a fox, but you":PRINT" killed it anyway."
1960 GETA$:IFA$=""THEN1960
1970 PRINT"{clear}"
1980 PRINTA$:PRINTB$:PRINTC$:PRINTD$
1990 PRINT"{down}{space*2}{217}ou can see a hunter with a .22"
2000 PRINT" hiding behind the trees & plants."
2010 PRINT" he looks very pleased, as if he has"
2020 PRINT" confidence he will {206}{207}{212} miss."
2030 PRINTZ$;:INPUTM
2040 IFM=1THENPRINT"{down} {199}ood {201}dea. {200}e {202}ust missed!":GOTO2080
2050 IFM=2THENPRINT"{down} {194}ad {201}dea.{200}e shot you8 times,to make":PRINT" sure you were dead":END
2060 IFM=3THENPRINT"{down} {211}{212}{213}{208}{201}{196}! {199}uess {215}hat {200}appened!?!!":END
2070 IFM=4THENPRINT"{down} {197}at a {200}unter? {194}oy are you inexperienced":PRINT" or what?":END
2080 GETA$:IFA$=""THEN2080
2090 PRINT"{clear}"
2100 PRINTA$:PRINTB$:PRINTC$:PRINTD$
2110 PRINT"{down}{space*2}{217}ou see ahead what appears to be a"
2120 PRINT" ditch in the ground. {198}rom this "
2130 PRINT" distance you cannot percept the depth"
2140 PRINT" of the hole."
2150 PRINTZ$;:INPUTM
2160 IFM=1THENPRINT"{down} {217}ou can run, but you sure didnt":PRINT" have to!"
2170 IFM=2THENPRINT"{down} {212}hat's the best thing to do. moving":PRINT" right along..."
2180 IFM=3THENPRINT"{down} {207}{207}{208}{211}! fell in a trap. sorry charlie.":END
2190 IFM=4THENPRINT"{down} {197}at a ditch? {211}ee {217}our nearest":PRINT" {205}ental {200}ome."
2200 GETA$:IFA$=""THEN2200
2210 PRINT"{clear}"
2220 PRINTA$:PRINTB$:PRINTC$:PRINTD$
2230 PRINT"{down}{space*2}{217}ou come to a break in the woods,"
2240 PRINT" and see a deer (yuummmy!) standing"
2250 PRINT" there, expecting nothing but "
2260 PRINT" the cool breeze..."
2270 PRINTZ$;:INPUTM
2280 IFM=1THENPRINT"{down} {210}un? why run from a free meal?"
2290 IFM=2THENPRINT"{down} {201}gnore it? {215}hy ignore a free meal?"
2300 IFM=3THENPRINT"{down} {199}reat! you chase it, catch it,and (best":PRINT" of all) eat it!"
2310 IFM=4THENPRINT"{down} {199}ood {201}dea. {217}ou catch it & eat it.":PRINT" (it was delicious,thanks)"X){16}{9}GETA$:IFA$=""THEN2320
2330 PRINT"{clear}"
2340 PRINTA$:PRINTB$:PRINTC$:PRINTD$
2350 PRINT"{down}{space*2}{217}ou now come to a farm, with a"
2360 PRINT" whole field full of {195}hickens!"
2370 PRINTZ$;:INPUTM
2380 IFM=1THENPRINT"{down} {215}hy run from a farm full of chicks?":PRINT" {212}hey wont hurt you!"
2390 IFM=2THENPRINT"{down} {215}hy ignore them? {217}ou should have":PRINT" eaten them!"
2400 IFM=3THENPRINT"{down} {217}ou chase them into the barn.":PRINT" you didnt eat even one.{210}{193}{212}{211}!"
2410 IFM=4THENPRINT"{down} {199}reat! {217}ou ate about 6, the rest went":PRINT" into the barn."
2420 GETA$:IFA$=""THEN2420
2430 PRINT"{clear}"
2440 PRINTA$:PRINTB$:PRINTC$:PRINTD$
2450 PRINT"{down*3}{space*2}{195}{207}{206}{199}{210}{193}{212}{213}{204}{193}{212}{201}{207}{206}{211}! {217}ou made it "
2460 PRINT" through {207}dell {215}oods.{space*2}{196}o you want"
2470 PRINT" to try it once more ";
2480 INPUTV$
2490 IFV$<>"n"THENRUN
2500 END
6005 /9/84