Source Code
10 REM ***********************
20 REM * ODELL LAKE *
30 REM * MODIFIED FOR TIMEX *
40 REM * SINCLAIR COMPUTERS *
50 REM * BY TIM L. WARD *
60 REM * 3/23/86 *
70 REM ***********************
80 RAND
90 LET Y=INT (100*(RND*1))
100 LET R=0
110 PRINT AT 21,0;"DO YOU WISH TO SEE ANY"
120 SCROLL
130 PRINT AT 21,0;"INSTRUCTIONS? ""YES"" OR ""NO"""
140 SCROLL
150 INPUT T$
160 SCROLL
170 SCROLL
180 IF T$="NO" THEN GOTO 0200
190 GOTO 3220
200 GOSUB 3940
210 PRINT "CHOOSE THE NUMBER OF THE FISH"
220 SCROLL
230 PRINT "YOU WISH TO ROLE PLAY."
240 SCROLL
250 SCROLL
260 INPUT A
270 LET C=0
280 LET D=1
290 PRINT "YOU SEE AN OSPREY CLOSE TO THE"
300 SCROLL
310 PRINT "SURFACE OF THE LAKE."
320 SCROLL
330 PRINT "WHAT DO YOU WISH TO DO?"
340 SCROLL
350 INPUT B
360 IF B>2 THEN GOTO 2650
370 IF A>4 THEN GOTO 0420
380 IF B=1 THEN GOTO 0440
390 LET Y=INT (100*(RND*1))
400 IF Y>19 THEN GOTO 0570
410 GOTO 2680
420 GOTO 0570
430 GOTO 0580
440 GOSUB 2710
450 PRINT "YOU SEE A MACKINAW TROUT."
460 SCROLL
470 LET R=R+1
480 IF R<2 THEN GOTO 0560
490 PRINT "HE GOT YOU. YOU ARE NOT BIG"
500 SCROLL
510 PRINT "ENOUGH TO FOOL WITH A MACKINAW"
520 SCROLL
530 PRINT "TROUT."
540 SCROLL
550 GOTO 3830
560 GOTO 0330
570 GOSUB 2760
580 IF D=2 THEN GOTO 1000
590 PRINT "NOW YOU ARE SWIMMING IN SHALLOW"
600 SCROLL
610 PRINT "WATER AND YOU SEE A WATER INSECT"
620 SCROLL
630 PRINT "MOVING THROUGH THE WATER"
640 SCROLL
650 PRINT "DIRECTLY IN FRONT OF YOU."
660 SCROLL
670 PRINT "WHAT DO YOU DO?"
680 SCROLL
690 INPUT B
700 IF A<5 THEN GOTO 0800
710 IF B=3 THEN GOTO 0780
720 IF B=4 THEN GOTO 0760
730 GOSUB 2970
740 LET C=C+10
750 GOTO 0940
760 GOSUB 3070
770 GOTO 0740
780 GOSUB 2870
790 GOTO 0940
800 IF B=4 THEN GOTO 0830
810 GOSUB 3020
820 GOTO 0740
830 LET Y=INT (100*(RND*1))
840 IF Y<15 THEN GOTO 0870
850 GOSUB 2760
860 GOTO 0940
870 PRINT "WITH THE INSECT WAS A HOOK. YOU"
880 SCROLL
890 PRINT "HAVE JUST BEEN CAUGHT BY A"
900 SCROLL
910 PRINT "FISHERMAN."
920 SCROLL
930 GOTO 3830
940 PRINT "OFF TO YOUR RIGHT NEAR THE"
950 SCROLL
960 PRINT "SHORELINE IS AN OTTER."
970 SCROLL
980 LET D=2
990 GOTO 0330
\n1000 IF A=3 THEN GOTO 1300
\n1010 PRINT "MOVING INTO YOUR VICINITY IS A"
\n1020 SCROLL
\n1030 PRINT "BLUEBACK SALMON."
\n1040 SCROLL
\n1050 PRINT "WHAT DO YOU WISH TO DO?"
\n1060 SCROLL
\n1070 INPUT B
\n1080 IF A<5 THEN GOTO 1190
\n1090 IF B<3 THEN GOTO 1140
\n1100 IF B=4 THEN GOTO 1160
\n1110 GOSUB 3020
\n1120 LET C=C+10
\n1130 GOTO 1300
\n1140 GOSUB 2970
\n1150 GOTO 1120
\n1160 GOSUB 2760
\n1170 LET C=0
\n1180 GOTO 1300
\n1190 IF B=3 THEN GOTO 1230
\n1200 IF B=4 THEN GOTO 1280
\n1210 GOSUB 2970
\n1220 GOTO 1120
\n1230 PRINT "GOOD, IT DOES NOT OCCUPY THE"
\n1240 SCROLL
\n1250 PRINT "SAME NICHE AS YOU."
\n1260 SCROLL
\n1270 GOTO 1300
\n1280 GOSUB 2900
\n1290 GOTO 1120
\n1300 IF C<30 THEN GOTO 1320
\n1310 GOTO 3120
\n1320 IF A=1 THEN GOTO 1840
\n1330 LET D=3
\n1340 PRINT "AND NOW YOU FIND YOURSELF CLOSE"
\n1350 SCROLL
\n1360 PRINT "TO A WHITEFISH."
\n1370 SCROLL
\n1380 PRINT "WHAT DO YOU DO?"
\n1390 SCROLL
\n1400 INPUT B
\n1410 IF A<5 THEN GOTO 1510
\n1420 IF B=3 THEN GOTO 1460
\n1430 IF B=4 THEN GOTO 1480
\n1440 GOSUB 2970
\n1450 LET C=C+10
\n1460 GOSUB 3020
\n1470 GOTO 1800
\n1480 GOSUB 2760
\n1490 LET C=0
\n1500 GOTO 1840
\n1510 IF A=3 THEN GOTO 1760
\n1520 IF A=2 THEN GOTO 1640
\n1530 IF B=3 THEN GOTO 1580
\n1540 IF B=4 THEN GOTO 1620
\n1550 IF B=5 THEN GOTO 1600
\n1560 GOSUB 2970
\n1570 GOTO 1800
\n1580 GOSUB 2800
\n1590 GOTO 1800
\n1600 GOSUB 2760
\n1610 GOTO 1810
\n1620 GOSUB 2900
\n1630 GOTO 1800
\n1640 IF B=3 THEN GOTO 1690
\n1650 IF B=4 THEN GOTO 1710
\n1660 IF B=5 THEN GOTO 1730
\n1670 GOSUB 2970
\n1680 GOTO 1800
\n1690 GOSUB 2800
\n1700 GOTO 1800
\n1710 GOSUB 2900
\n1720 GOTO 1800
\n1730 PRINT "YOU ARE TOO LITTLE."
\n1740 SCROLL
\n1750 GOTO 1800
\n1760 IF B=3 THEN GOTO 1690
\n1770 IF B=4 THEN GOTO 1710
\n1780 IF B=5 THEN GOTO 1600
\n1790 GOTO 1670
\n1800 LET C=C+5
\n1810 IF C<30 THEN GOTO 1840
\n1820 GOTO 3120
\n1830 SCROLL
\n1840 IF D=5 THEN GOTO 1980
\n1850 IF D=4 THEN GOTO 1910
\n1860 IF A=2 THEN GOTO 1910
\n1870 PRINT "AND ALONG COMES A CHUB."
\n1880 SCROLL
\n1890 LET D=4
\n1900 GOTO 1380
\n1910 IF A=4 THEN GOTO 1980
\n1920 PRINT "YOU NOW SEE A RAINBOW TROUT"
\n1930 SCROLL
\n1940 PRINT "DIRECTLY IN FRONT OF YOU."
\n1950 SCROLL
\n1960 LET D=5
\n1970 GOTO 1380
\n1980 IF A=6 THEN GOTO 2280
\n1990 PRINT "AND NOW YOU FIND THAT A DOLLY"
\n2000 SCROLL
\n2010 PRINT "VARDEN IS VERY NEAR."
\n2020 SCROLL
\n2030 PRINT "WHAT DO YOU WISH TO DO?"
\n2040 SCROLL
\n2050 INPUT B
\n2060 IF A<5 THEN GOTO 2170
\n2070 IF B=4 THEN GOTO 2110
\n2080 IF B=3 THEN GOTO 2140
\n2090 GOSUB 2970
\n2100 GOTO 2150
\n2110 GOSUB 2760
\n2120 LET C=0
\n2130 GOTO 2280
\n2140 GOSUB 3020
\n2150 LET C=C+10
\n2160 GOTO 2260
\n2170 IF B=2 THEN GOTO 2200
\n2180 IF B=1 THEN GOTO 2220
\n2190 GOTO 2650
\n2200 GOSUB 2760
\n2210 GOTO 2280
\n2220 GOSUB 2710
\n2230 PRINT "YOU NOW SEE A MACKINAW TROUT."
\n2240 SCROLL
\n2250 GOTO 2030
\n2260 IF C<30 THEN GOTO 2280
\n2270 GOTO 3120
\n2280 PRINT "DIRECTLY IN FRONT OF YOU AT THE"
\n2290 SCROLL
\n2300 PRINT "SURFACE LIES SOME ANIMAL"
\n2310 SCROLL
\n2320 PRINT "PLANKTON."
\n2330 SCROLL
\n2340 PRINT "WHAT DO YOU WISH TO DO?"
\n2350 SCROLL
\n2360 INPUT B
\n2370 IF A<5 THEN GOTO 2470
\n2380 IF B=3 THEN GOTO 2430
\n2390 IF B=4 THEN GOTO 2450
\n2400 GOSUB 2970
\n2410 LET C=C+10
\n2420 GOTO 2590
\n2430 GOSUB 2870
\n2440 GOTO 2410
\n2450 GOSUB 3070
\n2460 GOTO 2610
\n2470 IF B=4 THEN GOTO 2500
\n2480 GOSUB 2970
\n2490 GOTO 2410
\n2500 LET Y=INT (100*(RND*1))
\n2510 IF Y>25 THEN GOTO 2570
\n2520 PRINT "THIS WAS PART OF A FISH TRAP AND"
\n2530 SCROLL
\n2540 PRINT "YOU WERE CAUGHT."
\n2550 SCROLL
\n2560 GOTO 3830
\n2570 GOSUB 2760
\n2580 GOTO 2610
\n2590 IF C<30 THEN GOTO 2610
\n2600 GOTO 3120
\n2610 PRINT "YOU HAVE SURVIVED. VERY GOOD JOB"
\n2620 SCROLL
\n2630 GOTO 3830
\n2640 SCROLL
\n2650 PRINT "YOU WERE JUST ATTACKED AND EATEN"
\n2660 SCROLL
\n2670 GOTO 3830
\n2680 PRINT "YOU DID NOT GET AWAY IN TIME."
\n2690 SCROLL
\n2700 GOTO 3830
\n2710 PRINT "YOU GOT AWAY FOR THE TIME BEING"
\n2720 SCROLL
\n2730 PRINT "BUT NOW IN DEEPER WATER----"
\n2740 SCROLL
\n2750 RETURN
\n2760 PRINT "YOU HAVE BEEN SUCCESSFUL."
\n2770 SCROLL
\n2780 LET R=0
\n2790 RETURN
\n2800 PRINT "THAT FISH JUST ATE THE LUNCH YOU"
\n2810 SCROLL
\n2820 PRINT "COULD HAVE HAD. YOU MAY GO"
\n2830 SCROLL
\n2840 PRINT "HUNGRY."
\n2850 SCROLL
\n2860 RETURN
\n2870 PRINT "OKAY. AND NOW-----"
\n2880 SCROLL
\n2890 RETURN
\n2900 PRINT "YOU CAN NOT KILL THIS ANIMAL AND"
\n2910 SCROLL
\n2920 PRINT "YOU USE A LOT OF ENERGY"
\n2930 SCROLL
\n2940 PRINT "NEEDLESSLY."
\n2950 SCROLL
\n2960 RETURN
\n2970 PRINT "YOU USE A LOT OF FOOD ENERGY FOR"
\n2980 SCROLL
\n2990 PRINT "NO PRACTICAL PURPOSE."
\n3000 SCROLL
\n3010 RETURN
\n3020 PRINT "YOU ARE GETTING HUNGRY. DO NOT"
\n3030 SCROLL
\n3040 PRINT "PASS UP ANOTHER CHANCE TO EAT."
\n3050 SCROLL
\n3060 RETURN
\n3070 PRINT "YOU CAN NOT SURVIVE ON THIS TYPE"
\n3080 SCROLL
\n3090 PRINT "OF FOOD."
\n3100 SCROLL
\n3110 RETURN
\n3120 PRINT "YOU PASSED UP TOO MANY CHANCES"
\n3130 SCROLL
\n3140 PRINT "AT FOOD AND USED YOUR ENERGY"
\n3150 SCROLL
\n3160 PRINT "WASTEFULLY. YOU NOW STARVED TO"
\n3170 SCROLL
\n3180 PRINT "DEATH."
\n3190 SCROLL
\n3200 RETURN
\n3210 SCROLL
\n3220 PRINT "IN THIS PROGRAM YOU WILL ROLE"
\n3230 SCROLL
\n3240 PRINT "PLAY ONE OF THE FOLLOWING FISH."
\n3250 SCROLL
\n3260 SCROLL
\n3270 PRINT "1. WHITEFISH"
\n3280 SCROLL
\n3290 PRINT "2. CHUB"
\n3300 SCROLL
\n3310 PRINT "3. BLUEBACK SALMON"
\n3320 SCROLL
\n3330 PRINT "4. RAINBOW TROUT"
\n3340 SCROLL
\n3350 PRINT "5. MACKINAW TROUT"
\n3360 SCROLL
\n3370 PRINT "6. DOLLY VARDEN"
\n3380 SCROLL
\n3390 SCROLL
\n3400 PRINT "AFTER ROLE PLAYING ALL OF THE"
\n3410 SCROLL
\n3420 PRINT "ABOVE FISH AND DISCOVERING THE"
\n3430 SCROLL
\n3440 PRINT "RELATIONSHIPS THAT EXIST, YOU"
\n3450 SCROLL
\n3460 PRINT "SHOULD BE ABLE TO DRAW A FOOD"
\n3470 SCROLL
\n3480 PRINT "WEB FOR ODELL LAKE."
\n3490 SCROLL
\n3500 PAUSE 600
\n3510 GOSUB 3940
\n3520 PRINT "DECISION SITUATIONS SHOULD BE"
\n3530 SCROLL
\n3540 PRINT "MADE BY NUMBER FROM ONE OF THE"
\n3550 SCROLL
\n3560 PRINT "FOLLOWING:"
\n3570 SCROLL
\n3580 SCROLL
\n3590 PRINT "1. ATTEMPT TO ESCAPE TO DEEPER"
\n3600 SCROLL
\n3610 PRINT " WATER."
\n3620 SCROLL
\n3630 PRINT "2. ATTEMPT TO ESCAPE IN THE"
\n3640 SCROLL
\n3650 PRINT " SHALLOW WATER."
\n3660 SCROLL
\n3670 PRINT "3. JUST IGNORE IT."
\n3680 SCROLL
\n3690 PRINT "4. ATTACK AND ATTEMPT TO PREY"
\n3700 SCROLL
\n3710 PRINT " UPON IT."
\n3720 SCROLL
\n3730 PRINT "5. ATTEMPT TO CHASE IT OUT OF"
\n3740 SCROLL
\n3750 PRINT " YOUR TERRITORY."
\n3760 SCROLL
\n3770 SCROLL
\n3780 PRINT "GOOD LUCK..."
\n3790 SCROLL
\n3800 PAUSE 600
\n3810 GOTO 0200
\n3820 STOP
\n3830 PAUSE 450
\n3840 GOSUB 3940
\n3850 PRINT "DO YOU WISH TO TRY AGAIN? Y/N"
\n3860 IF INKEY$="" THEN GOTO 3860
\n3870 LET I$=INKEY$
\n3880 IF I$<>"Y" AND I$<>"N" THEN GOTO 3860
\n3890 IF I$="N" THEN GOTO 3980
\n3900 GOSUB 3940
\n3910 GOTO 0010
\n3920 SAVE "1015%9"
\n3930 RUN
\n3940 FOR X=1 TO 22
\n3950 SCROLL
\n3960 NEXT X
\n3970 RETURN
\n3980 STOP
