mirror of
https://github.com/TedThompson/OREGON78.git
synced 2024-11-21 18:30:45 +00:00
741 lines
25 KiB
QBasic
741 lines
25 KiB
QBasic
100 REM PROGRAM NAME - OREGON----------------------------FOR THE MEANING OF THE VARIABLES USED, LIST LINES 7210-7560 ----------------------------
|
|
110 GOTO 140
|
|
120 VTAB 24: PRINT " <HIT ANY KEY TO CONTINUE...>";: WAIT - 16384,128: POKE - 16368,0
|
|
130 RETURN
|
|
140 TEXT : PRINT CHR$ (21): HOME
|
|
150 PRINT "PROGRAM NAME - OREGON VERSION:01/01/78": VTAB 2
|
|
160 PRINT "----------------------------------------": VTAB 3
|
|
170 PRINT " ORIGINALLY WRITTEN FOR"
|
|
180 PRINT " MINN. EDUCATIONAL COMPUTING CONSORTIUM"
|
|
190 PRINT " CDC CYBER 70/73-26 IN BASIC 3.1"
|
|
200 PRINT " AND PUBLISHED IN"
|
|
210 PRINT " CREATIVE COMPUTING MAY/JUNE 1978"
|
|
220 PRINT " VOL 4, NO 3, PAGES 132-139"
|
|
230 PRINT "----------------------------------------": VTAB 10
|
|
240 PRINT "ORIGINAL PROGRAMMING:"
|
|
250 PRINT " BILL HEINEMANN - 1971": VTAB 13
|
|
260 PRINT "SUPPORT RESEARCH AND MATERIALS:"
|
|
270 PRINT " DON RAVITSCH - MECC STAFF": VTAB 16
|
|
280 PRINT "CHIPMUNK BASIC PORT:"
|
|
290 PRINT " CHRISTOPHER PENDERSON - 2018": VTAB 19
|
|
300 PRINT "APPLESOFT BASIC PORT:"
|
|
310 PRINT " THEODORE THOMPSON - 2018"
|
|
320 VTAB 24: PRINT "DO YOU NEED INSTRUCTIONS (Y/N)";
|
|
330 GET C$
|
|
340 REM FOLLOWING LINE ACTS AS A
|
|
350 REM RANDOMIZE STATEMENT
|
|
360 X = RND ( - 1 * ( PEEK (78) + 256 * PEEK (79)))
|
|
370 IF C$ = "N" THEN HOME : GOTO 1060
|
|
380 IF NOT (C$ = "Y") THEN 330
|
|
390 HOME
|
|
400 REM ***INSTRUCTIONS***
|
|
410 PRINT "THIS PROGRAM SIMULATES A TRIP OVER THE"
|
|
420 PRINT "OREGON TRAIL FROM INDEPENDENCE, MISSOURI": VTAB 3
|
|
430 PRINT "TO OREGON CITY, OREGON IN 1847."
|
|
440 PRINT
|
|
450 PRINT "YOUR FAMILY OF FIVE WILL COVER THE 2040"
|
|
460 PRINT "MILE OREGON TRAIL IN 5-6 MONTHS ---"
|
|
470 VTAB 11
|
|
480 PRINT "IF YOU MAKE IT ALIVE."
|
|
490 VTAB 17
|
|
500 PRINT "YOU HAD SAVED $900 TO SPEND FOR THE"
|
|
510 PRINT "TRIP, AND YOU'VE JUST PAID $200 FOR A"
|
|
520 PRINT "WAGON."
|
|
530 GOSUB 120: HOME
|
|
540 PRINT "YOU WILL NEED TO SPEND THE REST OF YOUR"
|
|
550 PRINT "MONEY ON THE FOLLOWING ITEMS:"
|
|
560 PRINT
|
|
570 PRINT " OXEN - YOU CAN SPEND $200-$300 ON"
|
|
580 PRINT " YOUR TEAM. THE MORE YOU"
|
|
590 PRINT " SPEND, THE FASTER YOU'LL GO": VTAB 7
|
|
600 PRINT " BECAUSE YOU'LL HAVE BETTER"
|
|
610 PRINT " ANIMALS."
|
|
620 PRINT
|
|
630 PRINT " FOOD - THE MORE YOU HAVE, THE LESS": VTAB 11
|
|
640 PRINT " CHANCE THERE IS OF GETTING"
|
|
650 PRINT " SICK."
|
|
660 PRINT
|
|
670 PRINT "AMMUNITION - $1 BUYS A BELT OF 50"
|
|
680 PRINT " BULLETS. YOU WILL NEED"
|
|
690 PRINT " BULLETS FOR ATTACKS BY"
|
|
700 PRINT " ANIMALS AND BANDITS, AND"
|
|
710 PRINT " FOR HUNTING FOOD."
|
|
720 GOSUB 120: HOME
|
|
730 PRINT " CLOTHING - THIS IS ESPECIALLY"
|
|
740 PRINT " IMPORTANT FOR THE COLD"
|
|
750 PRINT " WEATHER YOU WILL"
|
|
760 PRINT " ENCOUNTER WHEN CROSSING": VTAB 5
|
|
770 PRINT " THE MOUNTAINS."
|
|
780 PRINT
|
|
790 PRINT "MISC. SUPPLIES - THIS INCLUDES MEDICINE"
|
|
800 PRINT " AND OTHER THINGS YOU"
|
|
810 PRINT " WILL NEED FOR SICKNESS"
|
|
820 PRINT " AND EMERGENCY REPAIRS"
|
|
830 PRINT
|
|
840 PRINT "YOU CAN SPEND ALL YOUR MONEY BEFORE YOU"
|
|
850 PRINT "START YOUR TRIP - OR YOU CAN SAVE SOME"
|
|
860 PRINT "OF YOUR CASH TO SPEND AT FORTS ALONG THE": VTAB 15
|
|
870 PRINT "WAY WHEN YOU RUN LOW. HOWEVER, ITEMS"
|
|
880 PRINT "COST MORE AT THE FORTS. YOU CAN ALSO GO"
|
|
890 PRINT "HUNTING ALONG THE WAY TO GET MORE FOOD."
|
|
900 GOSUB 120: HOME
|
|
910 PRINT "WHENEVER YOU HAVE TO USE YOUR TRUSTY"
|
|
920 PRINT "RIFLE ALONG THE WAY, YOU WILL BE TOLD TO": VTAB 3
|
|
930 PRINT "TYPE IN A WORD (ONE THAT SOUNDS LIKE A"
|
|
940 PRINT "GUN SHOT). THE FASTER YOU TYPE IN THAT"
|
|
950 PRINT "WORD AND HIT THE "; CHR$ (34);"RETURN"; CHR$ (34);" KEY, THE"
|
|
960 PRINT "BETTER LUCK YOU'LL HAVE WITH YOUR GUN."
|
|
970 PRINT
|
|
980 PRINT "AT EACH TURN, ALL ITEMS ARE SHOWN IN "
|
|
990 PRINT "DOLLAR AMOUNTS EXCEPT BULLETS."
|
|
1000 PRINT
|
|
1010 PRINT "WHEN ASKED TO ENTER MONEY AMOUNTS, DON'T": VTAB 12
|
|
1020 PRINT "USE A "; CHR$ (34);"$"; CHR$ (34);"."
|
|
1030 PRINT
|
|
1040 PRINT "GOOD LUCK!!!"
|
|
1050 GOSUB 120: HOME
|
|
1060 REM **DIFFICULTY SETUP**
|
|
1070 PRINT "HOW GOOD A SHOT ARE YOU WITH YOUR RIFLE?": VTAB 3
|
|
1080 PRINT " (1) ACE MARKSMAN (2) GOOD SHOT "
|
|
1090 PRINT " (3) FAIR TO MIDDLIN' "
|
|
1100 PRINT " (4) NEED MORE PRACTICE (5) SHAKY KNEES"
|
|
1110 PRINT
|
|
1120 PRINT "ENTER ONE OF THE ABOVE -- THE BETTER YOU": VTAB 8
|
|
1130 PRINT "CLAIM YOU ARE, THE FASTER YOU'LL HAVE TO": VTAB 9
|
|
1140 PRINT "BE WITH YOUR GUN TO BE SUCCESSFUL."
|
|
1150 PRINT
|
|
1160 INPUT "CHOOSE (1-5)->";D9$
|
|
1170 D9 = VAL (D9$): IF D9 < 1 OR D9 > 5 OR INT (D9) < > D9 THEN PRINT CHR$ (7);: VTAB PEEK (37): CALL - 868: GOTO 1160
|
|
1190 REM ***INITIAL PURCHASES***
|
|
1200 X1 = 0
|
|
1210 D3 = 0:M9 = 0:M = 0:F2 = 0:F1 = 0:S4 = 0:K8 = 0
|
|
1220 DIM S$(4):S$(1) = "BANG":S$(2) = "BLAM":S$(3) = "POW":S$(4) = "WHAM"
|
|
1230 HOME : ONERR GOTO 1600
|
|
1240 QNUM = 1: VTAB 1: PRINT "HOW MUCH DO YOU WANT TO SPEND ON"
|
|
1250 INPUT "YOUR OXEN TEAM? $";A
|
|
1260 IF A > = 200 THEN 1290
|
|
1270 PRINT : INVERSE : PRINT CHR$ (7);" NOT ENOUGH ";: NORMAL : FOR DLY = 1 TO 1000: NEXT : HTAB 1: CALL - 868: HTAB 1: VTAB 2: CALL - 868
|
|
1280 GOTO 1240
|
|
1290 IF A < = 300 THEN 1320
|
|
1300 PRINT : INVERSE : PRINT CHR$ (7);"TOO MUCH";: NORMAL : FOR DLY = 1 TO 1000: NEXT : HTAB 1: CALL - 868: HTAB 1: VTAB 2: CALL - 868
|
|
1310 GOTO 1240
|
|
1320 QNUM = 2: VTAB 15: CALL - 958: VTAB 4: PRINT "HOW MUCH DO YOU WANT TO SPEND ON"
|
|
1330 INPUT "FOOD? $";F
|
|
1340 IF F > = 0 THEN 1360
|
|
1350 GOTO 1600
|
|
1360 QNUM = 3: PRINT : PRINT "HOW MUCH DO YOU WANT TO SPEND ON"
|
|
1370 INPUT "AMMUNITION? $";B
|
|
1380 IF B > = 0 THEN 1400
|
|
1390 GOTO 1600
|
|
1400 QNUM = 4: PRINT : PRINT "HOW MUCH DO YOU WANT TO SPEND ON"
|
|
1410 INPUT "CLOTHING? $";C
|
|
1420 IF C > = 0 THEN 1440
|
|
1430 GOTO 1600
|
|
1440 QNUM = 5: PRINT : PRINT "HOW MUCH DO YOU WANT TO SPEND ON"
|
|
1450 INPUT "MISCELLANEOUS SUPPLIES? $";M1
|
|
1460 IF M1 > = 0 THEN 1480
|
|
1470 GOTO 1600
|
|
1480 T = 700 - A - F - B - C - M1
|
|
1490 IF T > = 0 THEN 1530
|
|
1500 PRINT : PRINT CHR$ (7);"YOU OVERSPENT--YOU ONLY HAD $700 TO"
|
|
1510 PRINT "SPEND. BUY AGAIN": PRINT
|
|
1520 GOTO 1240
|
|
1530 B = 50 * B: POKE 216,0: REM POKE CLEARS ONERR
|
|
1540 PRINT : PRINT "AFTER ALL YOUR PURCHASES,"
|
|
1550 PRINT "YOU NOW HAVE ";T;" DOLLARS LEFT"
|
|
1560 GOSUB 120: HOME
|
|
1570 PRINT "MONDAY MARCH 29 1847"
|
|
1580 PRINT "--------------------"
|
|
1590 GOTO 2120
|
|
1600 PRINT : INVERSE : PRINT CHR$ (7);" IMPOSSIBLE ";: NORMAL : FOR DLY = 1 TO 1000: NEXT : HTAB 1: CALL - 868: HTAB 1: VTAB ( PEEK (37) - 1): CALL - 868
|
|
1610 ON QNUM GOTO 1240,1330,1370,1410,1450
|
|
1620 IF M > = 2040 THEN 6030
|
|
1630 REM ***SETTING DATE***
|
|
1640 D3 = D3 + 1
|
|
1650 GOSUB 120: HOME
|
|
1660 PRINT "MONDAY ";
|
|
1670 ON D3 GOTO 1680,1700,1720,1740,1760,1780,1800,1820,1840,1860,1880,1900,1920,1940,1960,1980,2000,2020,2040,2060
|
|
1680 PRINT "APRIL 12 ";
|
|
1690 GOTO 2090
|
|
1700 PRINT "APRIL 26 ";
|
|
1710 GOTO 2090
|
|
1720 PRINT "MAY 10 ";
|
|
1730 GOTO 2090
|
|
1740 PRINT "MAY 24 ";
|
|
1750 GOTO 2090
|
|
1760 PRINT "JUNE 7 ";
|
|
1770 GOTO 2090
|
|
1780 PRINT "JUNE 21 ";
|
|
1790 GOTO 2090
|
|
1800 PRINT "JULY 5 ";
|
|
1810 GOTO 2090
|
|
1820 PRINT "JULY 19 ";
|
|
1830 GOTO 2090
|
|
1840 PRINT "AUGUST 2 ";
|
|
1850 GOTO 2090
|
|
1860 PRINT "AUGUST 16 ";
|
|
1870 GOTO 2090
|
|
1880 PRINT "AUGUST 31 ";
|
|
1890 GOTO 2090
|
|
1900 PRINT "SEPTEMBER 13 ";
|
|
1910 GOTO 2090
|
|
1920 PRINT "SEPTEMBER 27 ";
|
|
1930 GOTO 2090
|
|
1940 PRINT "OCTOBER 11 ";
|
|
1950 GOTO 2090
|
|
1960 PRINT "OCTOBER 25 ";
|
|
1970 GOTO 2090
|
|
1980 PRINT "NOVEMBER 8 ";
|
|
1990 GOTO 2090
|
|
2000 PRINT "NOVEMBER 22 ";
|
|
2010 GOTO 2090
|
|
2020 PRINT "DECEMBER 6 ";
|
|
2030 GOTO 2090
|
|
2040 PRINT "DECEMBER 20 ";
|
|
2050 GOTO 2090
|
|
2060 PRINT "YOU HAVE BEEN ON THE TRAIL TOO LONG ------"
|
|
2070 PRINT "YOUR FAMILY DIES IN THE FIRST BLIZZARD OF WINTER"
|
|
2080 GOTO 5690
|
|
2090 PRINT "1847";:HP = PEEK (36): PRINT
|
|
2100 FOR I = 1 TO HP - 1: PRINT "-";: NEXT : PRINT "-"
|
|
2110 REM ***BEGINNING EACH TURN***
|
|
2120 IF F > = 0 THEN 2140
|
|
2130 F = 0
|
|
2140 IF B > = 0 THEN 2160
|
|
2150 B = 0
|
|
2160 IF C > = 0 THEN 2180
|
|
2170 C = 0
|
|
2180 IF M1 > = 0 THEN 2200
|
|
2190 M1 = 0
|
|
2200 IF F > = 13 THEN 2220
|
|
2210 PRINT "YOU'D BETTER DO SOME HUNTING": PRINT " OR BUY FOOD AND SOON!!!!": PRINT
|
|
2220 F = INT (F)
|
|
2230 B = INT (B)
|
|
2240 C = INT (C)
|
|
2250 M1 = INT (M1)
|
|
2260 T = INT (T)
|
|
2270 M = INT (M)
|
|
2280 M2 = M
|
|
2290 IF S4 = 1 THEN 2320
|
|
2300 IF K8 = 1 THEN 2320
|
|
2310 GOTO 2360
|
|
2320 T = T - 20
|
|
2330 IF T < 0 THEN 5600
|
|
2340 PRINT "DOCTOR'S BILL IS $20"
|
|
2350 S4 = 0:K8 = 0
|
|
2360 IF M9 = 1 THEN 2390
|
|
2370 PRINT "TOTAL MILEAGE: ";M
|
|
2380 GOTO 2410
|
|
2390 PRINT "TOTAL MILEAGE: 950"
|
|
2400 M9 = 0
|
|
2410 VTAB PEEK (37) + 1: PRINT "FOOD BULLETS CLOTHES MISC.SUPP. CASH";: VTAB PEEK (37) + 1
|
|
2420 VP = PEEK (37) + 3: HTAB 2: PRINT F;: HTAB 8: PRINT B;: HTAB 17: PRINT C;: HTAB 26: PRINT M1;: HTAB 38: PRINT T;: VTAB VP: HTAB 1
|
|
2430 IF X1 = 0 THEN 2490
|
|
2440 X1 = NOT X1
|
|
2450 PRINT "DO YOU (1)STOP AT THE NEXT FORT,"
|
|
2460 INPUT "(2)HUNT, OR (3)CONTINUE? ";X$
|
|
2470 IF VAL (X$) < > 1 AND VAL (X$) < > 2 AND VAL (X$) < > 3 THEN PRINT CHR$ (7): VTAB PEEK (37) - 1: CALL - 868: GOTO 2460
|
|
2480 X = VAL (X$): GOTO 2590
|
|
2490 INPUT "DO YOU (1)HUNT OR (2)CONTINUE? ";X$
|
|
2500 IF VAL (X$) < > 1 AND VAL (X$) < > 2 THEN PRINT CHR$ (7): VTAB PEEK (37) - 1: CALL - 868: GOTO 2490
|
|
2510 X = VAL (X$): IF X = 1 THEN 2520
|
|
2520 LET X = X + 1
|
|
2530 IF X = 3 THEN 2580
|
|
2540 IF B > 39 THEN 2580
|
|
2550 PRINT "TOUGH---"
|
|
2560 PRINT "YOU NEED MORE BULLETS TO GO HUNTING"
|
|
2570 GOTO 2040
|
|
2580 X1 = NOT X1
|
|
2590 ON X GOTO 2610,2860,3040
|
|
2600 REM ***STOPPING AT FORT***
|
|
2610 VTAB VP: CALL - 958: PRINT "ENTER WHAT YOU WISH TO SPEND": PRINT "ON THE FOLLOWING": PRINT
|
|
2620 PRINT "FOOD";
|
|
2630 GOSUB 2650
|
|
2640 GOTO 2730
|
|
2650 INPUT P
|
|
2660 IF P < 0 THEN 2720
|
|
2670 T = T - P
|
|
2680 IF T > = 0 THEN 2720
|
|
2690 PRINT "YOU DON'T HAVE THAT MUCH--KEEP YOUR SPENDING DOWN"
|
|
2700 T = T + P
|
|
2710 P = 0
|
|
2720 RETURN
|
|
2730 F = F + 2 / 3 * P
|
|
2740 PRINT "AMMUNITION";
|
|
2750 GOSUB 2650
|
|
2760 LET B = INT (B + 2 / 3 * P * 50)
|
|
2770 PRINT "CLOTHING";
|
|
2780 GOSUB 2650
|
|
2790 C = C + 2 / 3 * P
|
|
2800 PRINT "MISCELLANEOUS SUPPLIES";
|
|
2810 GOSUB 2650
|
|
2820 M1 = M1 + 2 / 3 * P
|
|
2830 M = M - 45
|
|
2840 GOSUB 120: GOTO 3040
|
|
2850 REM ***HUNTING***
|
|
2860 IF B > 39 THEN 2890
|
|
2870 PRINT "TOUGH---YOU NEED MORE BULLETS TO GO HUNTING"
|
|
2880 GOTO 2450
|
|
2890 M = M - 45
|
|
2900 GOSUB 6850
|
|
2910 IF B1 < = 1 THEN 2980
|
|
2920 IF 100 * RND (1) < 13 * B1 THEN 3030
|
|
2930 F = F + 48 - 2 * B1
|
|
2940 PRINT "NICE SHOT--RIGHT ON TARGET--GOOD EATIN' TONIGHT!!"
|
|
2950 B = B - 10 - 3 * B1
|
|
2960 GOSUB 120: GOTO 3040
|
|
2970 REM **BELLS IN LINE 2660**
|
|
2980 PRINT CHR$ (7); CHR$ (7);"RIGHT BETWEEN THE EYES": PRINT " ---YOU GOT A BIG ONE!!!!"
|
|
2990 PRINT "FULL BELLIES TONIGHT!"
|
|
3000 F = F + 52 + RND (1) * 6
|
|
3010 B = B - 10 - RND (1) * 4
|
|
3020 GOSUB 120: GOTO 3040
|
|
3030 PRINT "YOU MISSED---AND YOUR DINNER GOT AWAY...": GOSUB 120
|
|
3040 IF F > = 13 THEN 3070
|
|
3050 HOME : GOTO 5580
|
|
3060 REM ***EATING***
|
|
3070 VTAB VP: HTAB 1: CALL - 958: PRINT "DO YOU EAT (1)POORLY, (2)MODERATELY, OR"
|
|
3080 INPUT "(3)WELL? ";E
|
|
3090 IF E > 3 THEN 3070
|
|
3100 IF E < 1 THEN 3070
|
|
3110 LET E = INT (E)
|
|
3120 LET F = F - 8 - 5 * E
|
|
3130 IF F > = 0 THEN 3170
|
|
3140 F = F + 8 + 5 * E
|
|
3150 PRINT "YOU CAN'T EAT THAT WELL"
|
|
3160 GOTO 3070
|
|
3170 LET M = M + 200 + (A - 220) / 5 + 10 * RND (1)
|
|
3190 C1 = 0
|
|
3200 L1 = C1
|
|
3210 REM ***RIDERS ATTACK***
|
|
3230 IF RND (1) * 10 > ((M / 100 - 4) ^ 2 + 72) / ((M / 100 - 4) ^ 2 + 12) - 1 THEN 3900
|
|
3240 PRINT : PRINT "RIDERS AHEAD. THEY ";
|
|
3250 S5 = 0
|
|
3270 IF RND (1) < .8 THEN 3300
|
|
3280 PRINT "DON'T ";
|
|
3290 S5 = 1
|
|
3300 PRINT "LOOK HOSTILE..."
|
|
3310 PRINT : PRINT "TACTICS:"
|
|
3320 PRINT " (1) RUN (2) ATTACK (3) CONTINUE"
|
|
3330 PRINT " (4) CIRCLE WAGONS": PRINT
|
|
3340 IF RND (1) > .2 THEN 3360
|
|
3350 S5 = 1 - S5
|
|
3360 INPUT "CHOOSE (1-4)->";T1$
|
|
3370 T1 = VAL (T1$): IF T1 < 1 OR T1 > 4 OR INT (T1) < > T1 THEN PRINT CHR$ (7);: VTAB PEEK (37): CALL - 868: GOTO 3360
|
|
3380 VTAB 10: CALL - 958
|
|
3390 IF S5 = 1 THEN 3680
|
|
3400 IF T1 > 1 THEN 3460
|
|
3410 M = M + 20
|
|
3420 M1 = M1 - 15
|
|
3430 B = B - 150
|
|
3440 A = A - 40
|
|
3450 GOTO 3820
|
|
3460 IF T1 > 2 THEN 3590
|
|
3470 GOSUB 6850
|
|
3480 B = B - B1 * 40 - 80
|
|
3490 IF B1 > 1 THEN 3520
|
|
3500 PRINT "NICE SHOOTING---YOU DROVE THEM OFF"
|
|
3510 GOTO 3820
|
|
3520 IF B1 < = 4 THEN 3570
|
|
3530 PRINT "LOUSY SHOT---YOU GOT KNIFED"
|
|
3540 K8 = 1
|
|
3550 PRINT "YOU HAVE TO SEE OL' DOC BLANCHARD"
|
|
3560 GOTO 3820
|
|
3570 PRINT "KINDA SLOW WITH YOUR COLT .45"
|
|
3580 GOTO 3820
|
|
3590 IF T1 > 3 THEN 3640
|
|
3600 IF RND (1) > .8 THEN 3800
|
|
3610 LET B = B - 150
|
|
3620 M1 = M1 - 15
|
|
3630 GOTO 3820
|
|
3640 GOSUB 6850
|
|
3650 B = B - B1 * 30 - 80
|
|
3660 M = M - 25
|
|
3670 GOTO 3490
|
|
3680 IF T1 > 1 THEN 3720
|
|
3690 M = M + 15
|
|
3700 A = A - 10
|
|
3710 GOTO 3820
|
|
3720 IF T1 > 2 THEN 3760
|
|
3730 M = M - 5
|
|
3740 B = B - 100
|
|
3750 GOTO 3820
|
|
3760 IF T1 > 3 THEN 3780
|
|
3770 GOTO 3820
|
|
3780 M = M - 20
|
|
3790 GOTO 3820
|
|
3800 PRINT "THEY DID NOT ATTACK"
|
|
3810 GOTO 3900
|
|
3820 IF S5 = 0 THEN 3850
|
|
3830 PRINT "RIDERS WERE FRIENDLY, BUT CHECK FOR": PRINT "POSSIBLE LOSSES"
|
|
3840 GOTO 3900
|
|
3850 PRINT "RIDERS WERE HOSTILE--CHECK FOR LOSES"
|
|
3860 IF B > = 0 THEN 3900
|
|
3870 PRINT "YOU RAN OUT OF BULLETS AND GOT MASSACRED BY THE RIDERS"
|
|
3880 GOTO 5690
|
|
3890 REM ***SELECTION OF EVENTS***
|
|
3900 D1 = 0: PRINT
|
|
3910 RESTORE
|
|
3920 R1 = 100 * RND (1)
|
|
3930 LET D1 = D1 + 1
|
|
3940 IF D1 = 16 THEN 5140
|
|
3950 READ D
|
|
3960 IF R1 > D THEN 3930
|
|
3970 DATA 6,11,13,15,17,22,32,35,37,42,44,54,64,69,95
|
|
3980 ON D1 GOTO 3990,4040,4090,4150,4190,4230,4270,4340,4530,4600,4640,4730,4790,5030,5080,5140
|
|
3990 PRINT "WAGON BREAKS DOWN"
|
|
4000 PRINT " --LOSE TIME AND SUPPLIES FIXING IT"
|
|
4010 LET M = M - 15 - 5 * RND (1)
|
|
4020 LET M1 = M1 - 8
|
|
4030 GOTO 5190
|
|
4040 PRINT "OX INJURES LEG"
|
|
4050 PRINT " ---SLOWS YOU DOWN REST OF TRIP"
|
|
4060 LET M = M - 25
|
|
4070 LET A = A - 20
|
|
4080 GOTO 5190
|
|
4090 PRINT "BACK LUCK---YOUR DAUGHTER BROKE HER ARM"
|
|
4100 PRINT "YOU HAD TO STOP AND USE SUPPLIES TO"
|
|
4110 PRINT "MAKE A SLING"
|
|
4120 M = M - 5 - 4 * RND (1)
|
|
4130 M1 = M1 - 2 - 3 * RND (1)
|
|
4140 GOTO 5190
|
|
4150 PRINT "OX WANDERS OFF"
|
|
4160 PRINT " ---SPEND TIME LOOKING FOR IT"
|
|
4170 M = M - 17
|
|
4180 GOTO 5190
|
|
4190 PRINT "YOUR SON GETS LOST"
|
|
4200 PRINT " ---SPEND HALF THE DAY LOOKING FOR HIM"
|
|
4210 M = M - 10
|
|
4220 GOTO 5190
|
|
4230 PRINT "UNSAFE WATER"
|
|
4240 PRINT " --LOSE TIME LOOKING FOR CLEAN SPRING"
|
|
4250 LET M = M - 10 * RND (1) - 2
|
|
4260 GOTO 5190
|
|
4270 IF M > 950 THEN 4960
|
|
4280 PRINT "HEAVY RAINS---TIME AND SUPPLIES LOST"
|
|
4290 F = F - 10
|
|
4300 B = B - 500
|
|
4310 M1 = M1 - 15
|
|
4320 M = M - 10 * RND (1) - 5
|
|
4330 GOTO 5190
|
|
4340 PRINT "BANDITS ATTACK"
|
|
4350 GOSUB 6850
|
|
4360 B = B - 20 * B1
|
|
4370 IF B > = 0 THEN 4420
|
|
4380 PRINT "YOU RAN OUT OF BULLETS"
|
|
4390 PRINT " ---THEY GET LOTS OF CASH"
|
|
4400 T = T / 3
|
|
4410 GOTO 4430
|
|
4420 IF B1 < = 1 THEN 4500
|
|
4430 PRINT "YOU GOT SHOT IN THE LEG AND"
|
|
4440 PRINT " THEY TOOK ONE OF YOUR OXEN"
|
|
4450 K8 = 1
|
|
4460 PRINT "BETTER HAVE A DOC LOOK AT YOUR WOUND"
|
|
4470 M1 = M1 - 5
|
|
4480 A = A - 20
|
|
4490 GOTO 5190
|
|
4500 PRINT "QUICKEST DRAW OUTSIDE OF DODGE CITY!!!"
|
|
4510 PRINT "YOU GOT 'EM!"
|
|
4520 GOTO 5190
|
|
4530 PRINT "THERE WAS A FIRE IN YOUR WAGON"
|
|
4540 PRINT " --FOOD AND SUPPLIES DAMAGE!"
|
|
4550 F = F - 40
|
|
4560 B = B - 400
|
|
4570 LET M1 = M1 - RND (1) * 8 - 3
|
|
4580 M = M - 15
|
|
4590 GOTO 5190
|
|
4600 PRINT "LOSE YOUR WAY IN HEAVY FOG"
|
|
4610 PRINT " ---TIME IS LOST"
|
|
4620 M = M - 10 - 5 * RND (1)
|
|
4630 GOTO 5190
|
|
4640 PRINT "YOU KILLED A POISONOUS SNAKE"
|
|
4650 PRINT " ---AFTER IT BIT YOU"
|
|
4660 B = B - 10
|
|
4670 M1 = M1 - 5
|
|
4680 IF M1 > = 0 THEN 4720
|
|
4690 PRINT "YOU DIE OF SNAKEBITE"
|
|
4700 PRINT " SINCE YOU HAVE NO MEDICINE"
|
|
4710 GOTO 5690
|
|
4720 GOTO 5190
|
|
4730 PRINT "WAGON GETS SWAMPED FORDING RIVER"
|
|
4740 PRINT " --LOSE FOOD AND CLOTHES"
|
|
4750 F = F - 30
|
|
4760 C = C - 20
|
|
4770 M = M - 20 - 20 * RND (1)
|
|
4780 GOTO 5190
|
|
4790 PRINT "WILD ANIMALS ATTACK!"
|
|
4800 GOSUB 6850
|
|
4810 IF B > 39 THEN 4860
|
|
4820 PRINT "YOU WERE TOO LOW ON BULLETS--"
|
|
4830 PRINT "THE WOLVES OVERPOWERED YOU"
|
|
4840 K8 = 1
|
|
4850 GOTO 5640
|
|
4860 IF B1 > 2 THEN 4900
|
|
4870 PRINT "NICE SHOOTIN' PARTNER"
|
|
4880 PRINT " ---THEY DIDN'T GET MUCH"
|
|
4890 GOTO 4920
|
|
4900 PRINT "SLOW ON THE DRAW"
|
|
4910 PRINT " ---THEY GOT AT YOUR FOOD AND CLOTHES"
|
|
4920 B = B - 20 * B1
|
|
4930 C = C - B1 * 4
|
|
4940 F = F - B1 * 8
|
|
4950 GOTO 5190
|
|
4960 PRINT "COLD WEATHER---BRRRRRR!---YOU ";
|
|
4970 IF C > 22 + 4 * RND (1) THEN 5000
|
|
4980 PRINT "DONT'T ";
|
|
4990 C1 = 1
|
|
5000 PRINT "HAVE": PRINT "ENOUGH CLOTHING TO KEEP YOU WARM"
|
|
5010 IF C1 = 0 THEN 5190
|
|
5020 GOTO 7030
|
|
5030 PRINT "HAIL STORM---SUPPLIES DAMAGED"
|
|
5040 M = M - 5 - RND (1) * 10
|
|
5050 B = B - 200
|
|
5060 M1 = M1 - 4 - RND (1) * 3
|
|
5070 GOTO 5190
|
|
5080 IF E = 1 THEN 7030
|
|
5090 IF E = 3 THEN 5120
|
|
5100 IF RND (1) > .25 THEN 7030
|
|
5110 GOTO 5190
|
|
5120 IF RND (1) < .5 THEN 7030
|
|
5130 GOTO 5190
|
|
5140 PRINT "HELPFUL INDIANS SHOW YOU WHERE"
|
|
5150 PRINT " TO FIND MORE FOOD"
|
|
5160 F = F + 14
|
|
5170 GOTO 5190
|
|
5180 REM ***MOUNTAINS***
|
|
5190 IF M < = 950 THEN 1620
|
|
5210 IF RND (1) * 10 > 9 - ((M / 100 - 15) ^ 2 + 72) / ((M / 100 - 15) ^ 2 + 12) THEN 5360
|
|
5220 PRINT : PRINT "RUGGED MOUNTAINS"
|
|
5230 IF RND (1) > .1 THEN 5280
|
|
5240 PRINT : PRINT "YOU GOT LOST---LOSE VALUABLE"
|
|
5250 PRINT " TIME TRYING TO FIND TRAIL!"
|
|
5260 M = M - 60
|
|
5270 GOTO 5360
|
|
5280 IF RND (1) > .11 THEN 5340
|
|
5290 PRINT : PRINT "WAGON DAMAGED!": PRINT " ---LOSE TIME AND SUPPLIES"
|
|
5300 M1 = M1 - 5
|
|
5310 B = B - 200
|
|
5320 M = M - 20 - 30 * RND (1)
|
|
5330 GOTO 5360
|
|
5340 PRINT " ---THE GOING GETS SLOW"
|
|
5350 M = M - 45 - RND (1) / .02
|
|
5360 IF F1 = 1 THEN 5410
|
|
5370 F1 = 1
|
|
5380 IF RND (1) < .8 THEN 5480
|
|
5390 PRINT : PRINT "YOU MADE IT SAFELY THROUGH SOUTH PASS"
|
|
5400 PRINT " --NO SNOW"
|
|
5410 IF M < 1700 THEN 5450
|
|
5420 IF F2 = 1 THEN 5450
|
|
5430 F2 = 1
|
|
5440 IF RND (1) < .7 THEN 5480
|
|
5450 IF M > 950 THEN 1620
|
|
5460 M9 = 1
|
|
5470 GOTO 1620
|
|
5480 PRINT : PRINT "BLIZZARD IN MOUNTAIN PASS"
|
|
5490 PRINT " --TIME AND SUPPLIES LOST"
|
|
5500 L1 = 1
|
|
5510 F = F - 25
|
|
5520 M1 = M1 - 10
|
|
5530 B = B - 300
|
|
5540 M = M - 30 - 40 * RND (1)
|
|
5550 IF C < 18 + 2 * RND (1) THEN 7030
|
|
5560 GOTO 5450
|
|
5570 REM ***DYING***
|
|
5580 PRINT "YOU RAN OUT OF FOOD AND STARVED TO DEATH";
|
|
5590 GOTO 5690
|
|
5600 LET T = 0
|
|
5610 PRINT "YOU CAN'T AFFORD A DOCTOR"
|
|
5620 GOTO 5640
|
|
5630 PRINT : PRINT "YOU RAN OUT OF MEDICAL SUPPLIES"
|
|
5640 PRINT "YOU DIED OF ";
|
|
5650 IF K8 = 1 THEN 5680
|
|
5660 PRINT "PNEUMONIA"
|
|
5670 GOTO 5690
|
|
5680 PRINT "INJURIES"
|
|
5690 GOSUB 120: HOME
|
|
5700 PRINT "DUE TO YOUR UNFORTUNATE SITUATION, THERE";
|
|
5710 PRINT "ARE A FEW FORMALITIES WE MUST GO THROUGH"
|
|
5720 PRINT
|
|
5730 PRINT
|
|
5740 INPUT "WOULD YOU LIKE A MINISTER?";C$
|
|
5750 PRINT
|
|
5760 INPUT "WOULD YOU LIKE A FANCY FUNERAL?";C$
|
|
5770 PRINT
|
|
5780 PRINT "WOULD YOU LIKE US TO INFORM YOUR"
|
|
5790 INPUT "NEXT OF KIN?";C$
|
|
5800 PRINT
|
|
5810 IF C$ = "YES" OR C$ = "Y" THEN 5850
|
|
5820 PRINT "BUT YOUR AUNT SADIE IN ST. LOUIS IS"
|
|
5830 PRINT "REALLY WORRIED ABOUT YOU."
|
|
5840 GOTO 5860
|
|
5850 PRINT "THAT WILL BE $4.50 FOR THE TELEGRAPH": PRINT "CHARGE."
|
|
5860 GOSUB 120: HOME
|
|
5870 INVERSE : PRINT SPC( 40);
|
|
5880 PRINT " WE THANK YOU FOR THIS INFORMATION AND ";
|
|
5890 PRINT " WE ARE SORRY YOU DIDN'T MAKE IT TO THE ";
|
|
5900 PRINT " GREAT TERRITORY OF OREGON. ";
|
|
5910 PRINT " ";
|
|
5920 PRINT " BETTER LUCK NEXT TIME. ";
|
|
5930 PRINT " ";
|
|
5940 PRINT " ";
|
|
5950 PRINT " SINCERELY, ";
|
|
5960 PRINT " ";
|
|
5970 PRINT " THE OREGON CITY ";
|
|
5980 PRINT " CHAMBER OF COMMERCE ";
|
|
5990 PRINT SPC( 40): NORMAL : PRINT
|
|
6010 PRINT "RUN COMPLETE.": END
|
|
6020 REM ***FINAL TURN***
|
|
6030 F9 = (2040 - M2) / (M - M2)
|
|
6040 F = F + (1 - F9) * (8 + 5 * E)
|
|
6050 PRINT
|
|
6060 REM **BELLS IN LINES 5470,5480**
|
|
6070 PRINT CHR$ (7);"YOU FINALLY ARRIVED AT OREGON CITY"
|
|
6080 PRINT CHR$ (7);"AFTER 2040 LONG MILES---HOORAY!!!!!"
|
|
6090 PRINT "A REAL PIONEER!"
|
|
6100 GOSUB 120: HOME
|
|
6110 F9 = INT (F9 * 14)
|
|
6120 D3 = D3 * 14 + F9
|
|
6130 F9 = F9 + 1
|
|
6140 IF F9 < 8 THEN 6160
|
|
6150 F9 = F9 - 7
|
|
6160 ON F9 GOTO 6170,6190,6210,6230,6250,6270,6290
|
|
6170 PRINT "MONDAY ";
|
|
6180 GOTO 6300
|
|
6190 PRINT "TUESDAY ";
|
|
6200 GOTO 6300
|
|
6210 PRINT "WEDNESDAY ";
|
|
6220 GOTO 6300
|
|
6230 PRINT "THURSDAY ";
|
|
6240 GOTO 6300
|
|
6250 PRINT "FRIDAY ";
|
|
6260 GOTO 6300
|
|
6270 PRINT "SATURDAY ";
|
|
6280 GOTO 6300
|
|
6290 PRINT "SUNDAY ";
|
|
6300 IF D3 > 124 THEN 6340
|
|
6310 D3 = D3 - 93
|
|
6320 PRINT "JULY ";D3;" 1847"
|
|
6330 GOTO 6520
|
|
6340 IF D3 > 155 THEN 6380
|
|
6350 D3 = D3 - 124
|
|
6360 PRINT "AUGUST ";D3;" 1847"
|
|
6370 GOTO 6520
|
|
6380 IF D3 > 185 THEN 6420
|
|
6390 D3 = D3 - 155
|
|
6400 PRINT "SEPTEMBER ";D3;" 1847"
|
|
6410 GOTO 6520
|
|
6420 IF D3 > 216 THEN 6460
|
|
6430 D3 = D3 - 185
|
|
6440 PRINT "OCTOBER ";D3;" 1847"
|
|
6450 GOTO 6520
|
|
6460 IF D3 > 246 THEN 6500
|
|
6470 D3 = D3 - 216
|
|
6480 PRINT "NOVEMBER ";D3;" 1847"
|
|
6490 GOTO 6520
|
|
6500 D3 = D3 - 246
|
|
6510 PRINT "DECEMBER ";D3;" 1847"
|
|
6520 PRINT
|
|
6540 IF B > 0 THEN 6560
|
|
6550 LET B = 0
|
|
6560 IF C > 0 THEN 6580
|
|
6570 LET C = 0
|
|
6580 IF M1 > 0 THEN 6600
|
|
6590 LET M1 = 0
|
|
6600 IF T > 0 THEN 6620
|
|
6610 LET T = 0
|
|
6620 IF F > 0 THEN 6640
|
|
6630 LET F = 0
|
|
6640 VTAB PEEK (37) + 1: PRINT "FOOD BULLETS CLOTHES MISC.SUPP. CASH";: VTAB PEEK (37) + 1
|
|
6650 VP = PEEK (37) + 3: HTAB 2: PRINT F;: HTAB 8: PRINT B;: HTAB 17: PRINT C;: HTAB 26: PRINT M1;: HTAB 38: PRINT T;: VTAB VP: HTAB 1
|
|
6660 PRINT
|
|
6670 INVERSE : PRINT SPC( 40);
|
|
6680 PRINT " PRESIDENT JAMES K. POLK SENDS YOU HIS ";
|
|
6690 PRINT " HEARTIEST CONGRATULATIONS ";
|
|
6700 PRINT " ";
|
|
6710 PRINT " AND WISHES YOU A PROSPEROUS LIFE AHEAD ";
|
|
6720 PRINT " ";
|
|
6730 PRINT " AT YOUR NEW HOME ";
|
|
6740 PRINT SPC( 40): NORMAL
|
|
6750 REM 'STOP' COMMAND BELOW CHANGED TO 'END' BY C.D.P.
|
|
6760 PRINT "RUN COMPLETE.": END
|
|
6770 REM ***SHOOTING SUB-ROUTINE***
|
|
6780 REM THE METHOD OF TIMING THE SHOOTING (LINES 6210-6240)
|
|
6790 REM WILL VARY FROM SYSTEM TO SYSTEM. FOR EXAMPLE, H-P
|
|
6800 REM USERS WILL PROBABLY PREFER TO USE THE 'ENTER' STATEMENT.
|
|
6810 REM IF TIMING ON THE USER'S SYSTEM IS HIGHLY SUSCEPTIBLE
|
|
6820 REM TO SYSTEM RESPONSE TIME, THE FORMULA IN LINE 6240 CAN
|
|
6830 REM BE TAILORED TO ACCOMMODATE THIS BY EITHER INCREASING
|
|
6840 REM OR DECREASING THE 'SHOOTING' TIME RECORDED BY THE SYSTEM
|
|
6850 S6 = INT ( RND (1) * 4 + 1)
|
|
6860 PRINT "TYPE ";S$(S6);"->";
|
|
6870 H = 14:CN = H:C$ = "":B3 = 0: HTAB CN: PRINT "_";
|
|
6880 KEY = PEEK (49152):B3 = B3 + 1: IF KEY < 128 THEN 6880
|
|
6890 POKE 49168,0
|
|
6900 IF KEY = 141 THEN 6956: REM RETURN
|
|
6910 IF KEY = 136 THEN CN = CN - 1: GOTO 6940: REM BACKSPACE
|
|
6920 IF KEY < 161 OR KEY > 254 THEN 6880: REM NOT ALPHA-NUMBERIC
|
|
6930 C$ = C$ + CHR$ (KEY - 128): HTAB CN: PRINT CHR$ (KEY - 128)"_";:CN = CN + 1: GOTO 6880
|
|
6940 IF LEN (C$) < 2 THEN CN = H:C$ = ""
|
|
6950 IF LEN (C$) > 1 THEN C$ = LEFT$ (C$, LEN (C$) - 1)
|
|
6955 HTAB CN: PRINT "_ ";: HTAB CN: GOTO 6880
|
|
6956 B1 = (B3 / 17.5) - (D9 - 1): REM 1ST PARENTHETICAL RESOLVES TO SECONDS
|
|
6960 HTAB CN: PRINT " ";B3 / 17.5: PRINT
|
|
6970 IF B1 > 0 THEN 6990
|
|
6980 B1 = 0
|
|
6990 IF C$ = S$(S6) THEN 7010
|
|
7000 B1 = 9
|
|
7010 RETURN
|
|
7020 REM ***ILLNESS SUB-ROUTINE***
|
|
7030 IF 100 * RND (1) < 10 + 35 * (E - 1) THEN 7110
|
|
7050 IF 100 * RND (1) < 100 - (40 / 4 ^ (E - 1)) THEN 7150
|
|
7060 PRINT "SERIOUS ILLNESS---"
|
|
7070 PRINT "YOU MUST STOP FOR MEDICAL ATTENTION"
|
|
7080 M1 = M1 - 10
|
|
7090 S4 = 1
|
|
7100 GOTO 7180
|
|
7110 PRINT "WILD ILLNESS---MEDICINE USED"
|
|
7120 M = M - 5
|
|
7130 M1 = M1 - 2
|
|
7140 GOTO 7180
|
|
7150 PRINT "BAD ILLNESS---MEDICINE USED"
|
|
7160 M = M - 5
|
|
7170 M1 = M1 - 5
|
|
7180 IF M1 < 0 THEN 5630
|
|
7190 IF L1 = 1 THEN 5450
|
|
7200 GOTO 5190
|
|
7210 REM ***IDENTIFICATION OF VARIABLES IN THE PROGRAM***
|
|
7220 REM A = AMOUNT SPENT ON ANIMALS
|
|
7230 REM B = AMOUNT SPENT ON AMMUNITION
|
|
7240 REM B1 = ACTUAL RESPONSE TIME FOR INPUTTING "BANG"
|
|
7250 REM B3 = CLOCK TIME AT START OF INPUTTING "BANG"
|
|
7260 REM C = AMOUNT SPENT ON CLOTHING
|
|
7270 REM C1 = FLAG FOR INSUFFICIENT CLOTHING IN COLD WEATHER
|
|
7280 REM C$ = YES/N0 RESPONSE TO QUESTIONS
|
|
7290 REM D1 = COUNTER IN GENERATING EVENTS
|
|
7300 REM D3 = TURN NUMBER FOR SETTING DATE
|
|
7310 REM D4 = CURRENT DATE
|
|
7320 REM D9 = CHOICE OF SHOOTING EXPERTISE LEVEL
|
|
7330 REM E = CHOICE OF EATING
|
|
7340 REM F = AMOUNT SPENT ON FOOD
|
|
7350 REM F1 = FLAG FOR CLEARING SOUTH PASS
|
|
7360 REM F2 = FLAG FOR CLEARING BLUE MOUNTAINS
|
|
7370 REM F9 = FRACTION OF 2 WEEKS TRAVELED ON FINAL TURN
|
|
7380 REM K8 = FLAG FOR INJURY
|
|
7390 REM L1 = FLAG FOR BLIZZARD
|
|
7400 REM M = TOTAL MILEAGE WHOLE TRIP
|
|
7410 REM M1 = AMOUNT SPENT ON MISCELLANEOUS SUPPLIES
|
|
7420 REM M2 = TOTAL MILEAGE UP THROUGH PREVIOUS TURN
|
|
7430 REM M9 = FLAG FOR CLEARING SOUTH PASS IN SETTING MILEAGE
|
|
7440 REM P = AMOUNT SPENT ON ITEMS AT FORT
|
|
7450 REM R1 = RANDOM NUMBER IN CHOOSING EVENTS
|
|
7460 REM S4 = FLAG FOR ILLNESS
|
|
7470 REM S5 = ""HOSTILITY OF RIDERS"" FACTOR
|
|
7480 REM S6 = SHOOTING WORD SELECTOR
|
|
7490 REM S$ = VARIATIONS OF SHOOTING WORD
|
|
7500 REM T = CASH LEFT OVER AFTER INITIAL PURCHASES
|
|
7510 REM T1 = CHOICE OF TACTICS WHEN ATTACKED
|
|
7520 REM X = CHOICE OF ACTION FOR EACH TURN
|
|
7530 REM X1 = FLAG FOR FORT OPTION
|
|
7540 REM DLY = DUMMY FOR DELAY LOOPS
|
|
7550 REM QNUM = QUESTION NUMBER FOR TRACKING
|
|
7560 REM VP = VERTICAL POSITION TO TRACK VTABS |