10 REM ODELL.ECB 15 REM ...ODELL1...4-1-81 R.E.H. 20 REM BY KEN WITT, TRACY,MINN. 30 PRINT "&K&J&J O D E L L L A K E&J&J" 40 LET Y=INT(100*RND(0))+1 50 LET R=0 60 PRINT "DO YOU WISH TO SEE ANY EXPLANATIONS ---=>"; 70 INPUT (1,0)T$ 80 LET T$=T$+"N" 90 IF T$(1,1)="y" THEN 2340 100 IF T$(1,1)="Y" THEN 2340 110 PRINT "CHOOSE THE NUMBER OF THE FISH YOU WISH TO ROLE PLAY!" 120 PRINT 130 INPUT (1,0)" ( 1 TO 6 ) ---=>",A 140 PRINT 150 LET C=0 160 LET D=1 170 PRINT "YOU SEE AN OSPREY CLOSE TO THE SURFACE OF THE LAKE!" 180 GOSUB 2630 190 IF B=0 THEN 170 200 IF B>2 THEN 2040 210 IF A>4 THEN 260 220 IF B=1 THEN 280 230 LET Y=INT(100*RND(0))+1 240 IF Y>19 THEN 360 250 GOTO 2060 260 GOTO 360 270 GOTO 370 280 GOSUB 2080 290 PRINT "YOU SEE A MACKINAW TROUT." 300 LET R=R+1 310 IF R<2 THEN 350 320 PRINT "HE GOT YOU. YOU ARE NOT BIG ENOUGH TO FOOL WITH" 330 PRINT "A MACKINAW TROUT!" 340 GOTO 2670 350 GOTO 180 360 GOSUB 2110 370 IF D=2 THEN 660 380 PRINT "NOW YOU ARE SWIMMING IN SHALLOW WATER AND YOU" 390 PRINT "SEE A WATER INSECT MOVING THROUGH THE WATER DIRECTLY" 400 PRINT "IN FRONT OF YOU!" 410 GOSUB 2630 420 IF B=0 THEN 380 430 IF A<5 THEN 530 440 IF B=3 THEN 510 450 IF B=4 THEN 490 460 GOSUB 2220 470 LET C=C+10 480 GOTO 630 490 GOSUB 2280 500 GOTO 470 510 GOSUB 2170 520 GOTO 630 530 IF B=4 THEN 560 540 GOSUB 2250 550 GOTO 470 560 LET Y=INT(100*RND(0))+1 570 IF Y<15 THEN 600 580 GOSUB 2110 590 GOTO 630 600 PRINT "WITH THE INSECT WAS A HOOK. YOU HAVE JUST BEEN" 610 PRINT "CAUGHT BY A FISHERMAN." 620 GOTO 2670 630 PRINT "OFF TO YOUR RIGHT NEAR THE SHORELINE IS AN OTTER!" 640 LET D=2 650 GOTO 180 660 IF A=3 THEN 900 670 PRINT "MOVING INTO YOUR VICINITY IS A BLUEBACK SALMON." 680 PRINT "WHAT DO YOU WISH TO DO" 690 GOSUB 2640 700 IF B=0 THEN 670 710 IF A<5 THEN 820 720 IF B<3 THEN 770 730 IF B=4 THEN 790 740 GOSUB 2250 750 LET C=C+10 760 GOTO 900 770 GOSUB 2220 780 GOTO 750 790 GOSUB 2110 800 LET C=0 810 GOTO 900 820 IF B=3 THEN 860 830 IF B=4 THEN 880 840 GOSUB 2220 850 GOTO 750 860 PRINT "GOOD, IT DOES NOT OCCUPY THE SAME NICHE AS YOU." 870 GOTO 900 880 GOSUB 2190 890 GOTO 750 900 IF C<30 THEN 920 910 GOTO 2300 920 IF A=1 THEN 1390 930 LET D=3 940 PRINT "AND NOW YOU FIND YOURSELF CLOSE TO A WHITEFISH!" 950 GOSUB 2630 960 IF B=0 THEN 940 970 IF A<5 THEN 1070 980 IF B=3 THEN 1020 990 IF B=4 THEN 1040 1000 GOSUB 2220 1010 LET C=C+10 1020 GOSUB 2250 1030 GOTO 1350 1040 GOSUB 2110 1050 LET C=0 1060 GOTO 1390 1070 IF A=3 THEN 1310 1080 IF A=2 THEN 1200 1090 IF B=3 THEN 1140 1100 IF B=4 THEN 1180 1110 IF B=5 THEN 1160 1120 GOSUB 2220 1130 GOTO 1350 1140 GOSUB 2140 1150 GOTO 1350 1160 GOSUB 2110 1170 GOTO 1360 1180 GOSUB 2190 1190 GOTO 1350 1200 IF B=3 THEN 1250 1210 IF B=4 THEN 1270 1220 IF B=5 THEN 1290 1230 GOSUB 2220 1240 GOTO 1350 1250 GOSUB 2140 1260 GOTO 1350 1270 GOSUB 2190 1280 GOTO 1350 1290 PRINT "YOU ARE TOO LITTLE!" 1300 GOTO 1350 1310 IF B=3 THEN 1250 1320 IF B=4 THEN 1270 1330 IF B=5 THEN 1160 1340 GOTO 1230 1350 LET C=C+5 1360 IF C<30 THEN 1390 1370 GOTO 2300 1380 PRINT 1390 IF D=5 THEN 1490 1400 IF D=4 THEN 1450 1410 IF A=2 THEN 1450 1420 PRINT "AND ALONG COMES A CHUB." 1430 LET D=4 1440 GOTO 950 1450 IF A=4 THEN 1490 1460 PRINT "YOU NOW SEE A RAINBOW TROUT DIRECTLY IN FRONT OF YOU." 1470 LET D=5 1480 GOTO 950 1490 IF A=6 THEN 1750 1500 PRINT "AND NOW YOU FIND THAT A DOLLY VARDEN IS VERY NEAR!" 1510 PRINT "WHAT DO YOU WISH TO DO" 1520 GOSUB 2640 1530 IF B=0 THEN 1500 1540 IF A<5 THEN 1650 1550 IF B=4 THEN 1590 1560 IF B=3 THEN 1620 1570 GOSUB 2220 1580 GOTO 1630 1590 GOSUB 2110 1600 LET C=0 1610 GOTO 1750 1620 GOSUB 2250 1630 LET C=C+10 1640 GOTO 1730 1650 IF B=2 THEN 1680 1660 IF B=1 THEN 1700 1670 GOTO 2040 1680 GOSUB 2110 1690 GOTO 1750 1700 GOSUB 2080 1710 PRINT "YOU NOW SEE A MACKINAW TROUT." 1720 GOTO 1510 1730 IF C<30 THEN 1750 1740 GOTO 2300 1750 PRINT "DIRECTLY IN FRONT OF YOU AT THE SURFACE LIES SOME" 1760 PRINT "ANIMAL PLANKTON." 1770 PRINT "WHAT DO YOU WISH TO DO" 1780 GOSUB 2640 1790 IF B=0 THEN 1750 1800 IF A<5 THEN 1900 1810 IF B=3 THEN 1860 1820 IF B=4 THEN 1880 1830 GOSUB 2220 1840 LET C=C+10 1850 GOTO 1990 1860 GOSUB 2170 1870 GOTO 1840 1880 GOSUB 2280 1890 GOTO 2010 1900 IF B=4 THEN 1930 1910 GOSUB 2220 1920 GOTO 1840 1930 LET Y=INT(100*RND(0))+1 1940 IF Y>25 THEN 1970 1950 PRINT "THIS WAS PART OF A FISH TRAP AND YOU WERE CAUGHT." 1960 GOTO 2670 1970 GOSUB 2110 1980 GOTO 2010 1990 IF C<30 THEN 2010 2000 GOTO 2300 2010 PRINT "YOU HAVE SURVIVED. VERY GOOD JOB!" 2020 GOTO 2670 2030 PRINT 2040 PRINT "YOU WERE JUST ATTACKED AND EATEN." 2050 GOTO 2670 2060 PRINT "YOU DID NOT GET AWAY IN TIME." 2070 GOTO 2670 2080 PRINT "YOU GOT AWAY FOR THE TIME BEING BUT NOW IN" 2090 PRINT "DEEPER WATER----" 2100 RETURN 2110 PRINT "YOU HAVE BEEN SUCCESSFUL!" 2120 LET R=0 2130 RETURN 2140 PRINT "THAT FISH JUST ATE THE LUNCH YOU COULD HAVE HAD." 2150 PRINT "YOU MAY GO HUNGRY." 2160 RETURN 2170 PRINT "OKAY. AND NOW----" 2180 RETURN 2190 PRINT "YOU CAN NOT KILL THIS ANIMAL AND YOU USE A LOT" 2200 PRINT "OF ENERGY NEEDLESSLY!" 2210 RETURN 2220 PRINT "YOU USE A LOT OF FOOD ENERGY FOR NO PRACTICAL" 2230 PRINT "PURPOSE." 2240 RETURN 2250 PRINT "YOU ARE GETTING HUNGRY. DO NOT PASS UP ANOTHER CHANCE" 2260 PRINT "TO EAT" 2270 RETURN 2280 PRINT "YOU CAN NOT SURVIVE ON THIS TYPE OF FOOD." 2290 RETURN 2300 PRINT "YOU PASSED UP TOO MANY CHANCES AT FOOD AND USED" 2310 PRINT "YOUR ENERGY WASTEFULLY. YOU NOW STARVED TO DEATH." 2320 GOTO 2670 2330 PRINT 2340 PRINT "&KIN THIS PROGRAM YOU WILL ROLE PLAY ONE OF THE" 2350 PRINT "FOLLOWING FISH." 2360 PRINT 2370 PRINT "1. WHITEFISH" 2380 PRINT "2. CHUB" 2390 PRINT "3. BLUEBACK SALMON" 2400 PRINT "4. RAINBOW TROUT" 2410 PRINT "5. MACKINAW TROUT" 2420 PRINT "6. DOLLY VARDEN" 2430 PRINT 2440 PRINT "AFTER ROLE PLAYING ALL OF THE ABOVE FISH AND" 2450 PRINT "DISCOVERING THE RELATIONSHIPS THAT EXIST, YOU" 2460 PRINT "SHOULD BE ABLE TO DRAW A FOOD WEB FOR ODELL LAKE." 2470 INPUT (1,0)" <*> Enter any letter to see more ---=>",T$ 2480 PRINT "&KDECISION SITUATIONS SHOULD BE MADE BY NUMBER FROM" 2490 PRINT "ONE OF THE FOLLOWING:" 2500 PRINT 2510 GOSUB 2540 2520 PRINT "GOOD LUCK!!!" 2530 GOTO 110 2540 PRINT 2550 PRINT "0. LIST OPTIONS" 2560 PRINT "1. ATTEMPT TO ESCAPE TO DEEPER WATER." 2570 PRINT "2. ATTEMPT TO ESCAPE IN THE SHALLOW WATER." 2580 PRINT "3. JUST IGNORE IT" 2590 PRINT "4. ATTACK AND ATTEMPT TO PREY UPON IT." 2600 PRINT "5. ATTEMPT TO CHASE IT OUT OF YOUR TERRITORY." 2610 PRINT 2620 RETURN 2630 PRINT "WHAT DO YOU WISH TO DO" 2640 INPUT (1,0)" ( 0 OR 1 to 5 ) ---=>",B 2650 IF B=0 THEN GOSUB 2540 2660 RETURN 2670 END