1975 version of Oregon Trail

oregon.bas

8  REM       MINNESOTA EDUCATIONAL COMPUTING CONSORTIUM STAFF
9  REM  PROGRAMMING REVISIONS BY DON RAWITSCH - 1975
11  REM  CURRENT VERSION - 3/27/75
15  REM  **FOR THE MEANING OF THE VARIABLES USED, LIST LINES 4900-4960**
25  PRINT "DO YOU NEED INSTRUCTIONS  (YES/NO)";
30  DIM C$[5]
35  INPUT C$
40  IF C$="NO" THEN 400
45  PRINT LIN(2)
59  REM ***INSTRUCTIONS***
60  PRINT "THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM"
65  PRINT "INDEPENDENCE, MISSOURI TO OREGON CITY, OREGON IN 1847."
70  PRINT "YOUR FAMILY OF FIVE WILL COVER THE 2000 MILE OREGON TRAIL"
75  PRINT "IN 5-6 MONTHS --- IF YOU MAKE IT ALIVE."
80  PRINT
85  PRINT "YOU HAD SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST"
90  PRINT "   PAID $200 FOR A WAGON."
95  PRINT "YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE"
100  PRINT "   FOLLOWING ITEMS:"
105  PRINT
110  PRINT "     OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM"
115  PRINT "            THE MORE YOU SPEND, THE FASTER YOU'LL GO"
120  PRINT "               BECAUSE YOU'LL HAVE BETTER ANIMALS"
125  PRINT
130  PRINT "     FOOD - THE MORE YOU HAVE, THE LESS CHANCE THERE"
135  PRINT "               IS OF GETTING SICK"
140  PRINT
145  PRINT "     AMMUNITION - $1 BUYS A BELT OF 50 BULLETS"
150  PRINT "            YOU WILL NEED BULLETS FOR ATTACKS BY ANIMALS"
155  PRINT "               AND BANDITS, AND FOR HUNTING FOOD"
160  PRINT
165  PRINT "     CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD"
170  PRINT "               WEATHER YOU WILL ENCOUNTER WHEN CROSSING"
175  PRINT "               THE MOUNTAINS"
180  PRINT
185  PRINT "     MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND"
190  PRINT "               OTHER THINGS YOU WILL NEED FOR SICKNESS"
195  PRINT "               AND EMERGENCY REPAIRS"
205  PRINT LIN(2)
210  PRINT "YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP -"
215  PRINT "OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG"
220  PRINT "THE WAY WHEN YOU RUN LOW.  HOWEVER, ITEMS COST MORE AT"
225  PRINT "THE FORTS.  YOU CAN ALSO GO HUNTING ALONG THE WAY TO GET"
230  PRINT "MORE FOOD."
235  PRINT "WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY,"
240  PRINT "YOU WILL SEE THE WORDS: TYPE BANG.  THE FASTER YOU TYPE"
245  PRINT "IN THE WORD 'BANG' AND HIT THE 'RETURN' KEY, THE BETTER"
250  PRINT "LUCK YOU'LL HAVE WITH YOUR GUN."
260  PRINT
262  PRINT "WHEN ASKED TO ENTER MONEY AMOUNTS, DON'T USE A '$'."
263  PRINT
265  PRINT "GOOD LUCK!!!"
399  REM ***INITIAL PURCHASES***
400  X1=-1
405  K8=S4=F1=F2=M=M9=D3=0
410  PRINT LIN(2)
415  PRINT "HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM";
420  INPUT A
425  IF A >= 200 THEN 440
430  PRINT "NOT ENOUGH"
435  GOTO 415
440  IF A <= 300 THEN 455
445  PRINT "TOO MUCH"
450  GOTO 415
455  PRINT "HOW MUCH DO YOU WANT TO SPEND ON FOOD";
460  INPUT F
470  IF F >= 0 THEN 485
475  PRINT "IMPOSSIBLE"
480  GOTO 455
485  PRINT "HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION";
490  INPUT B
495  IF B >= 0 THEN 510
500  PRINT "IMPOSSIBLE"
505  GOTO 485
510  PRINT "HOW MUCH DO YOU WANT TO SPEND ON CLOTHING";
515  INPUT C
520  IF C >= 0 THEN 535
525  PRINT "IMPOSSIBLE"
530  GOTO 510
535  PRINT "HOW MUCH DO YOU WANT TO SPEND ON MISCELANEOUS SUPPLIES";
540  INPUT M1
545  IF M1 >= 0 THEN 560
550  PRINT "IMPOSSIBLE"
555  GOTO 535
560  T=700-A-F-B-C-M1
565  IF T >= 0 THEN 580
570  PRINT "YOU OVERSPENT--YOU ONLY HAD $700 TO SPEND.  BUY AGAIN"
575  GOTO 410
580  B=50*B
585  PRINT "AFTER ALL YOUR PURCHASES, YOU NOW HAVE";T;"DOLLARS LEFT"
590  PRINT
595  PRINT "MONDAY MARCH 29 1847"
600  PRINT
605  GOTO 1000
700  IF M >= 2040 OR D3>17 THEN 4000
709  REM ***SETTING DATE***
710  D3=D3+1
715  PRINT
720  PRINT "MONDAY ";
725  IF D3>10 THEN 735
730  GOTO D3 OF 740,750,760,770,780,790,800,810,820,830
735  GOTO D3-10 OF 840,850,860,870,880,890,900
740  PRINT "APRIL 12 ";
744  GOTO 910
750  PRINT "APRIL 26 ";
755  GOTO 910
760  PRINT "MAY 10 ";
765  GOTO 910
770  PRINT "MAY 24 ";
775  GOTO 910
780  PRINT "JUNE 7 ";
785  GOTO 910
790  PRINT "JUNE 21 ";
795  GOTO 910
800  PRINT "JULY 5 ";
805  GOTO 910
810  PRINT "JULY 19 ";
815  GOTO 910
820  PRINT "AUGUST 2 ";
825  GOTO 910
830  PRINT "AUGUST 16 ";
835  GOTO 910
840  PRINT "AUGUST 31 ";
845  GOTO 910
850  PRINT "SEPTEMBER 13 ";
855  GOTO 910
860  PRINT "SEPTEMBER 27 ";
865  GOTO 910
870  PRINT "OCTOBER 11 ";
875  GOTO 910
880  PRINT "OCTOBER 25 ";
885  GOTO 910
890  PRINT "NOVEMBER 8 ";
895  GOTO 910
900  PRINT "NOVEMBER 22 ";
910  PRINT "1847"
915  PRINT
999  REM ***BEGINNING EACH TURN***
1000  IF F >= 0 THEN 1015
1010  F=0
1015  IF B >= 0 THEN 1025
1020  B=0
1025  IF C >= 0 THEN 1035
1030  C=0
1035  IF M1 >= 0 THEN 1045
1040  M1=0
1045  IF F >= 12 THEN 1055
1050  PRINT "YOU'D BETTER DO SOME HUNTING OR BUY FOOD AND SOON!!!!"
1055  F=INT(F)
1060  B=INT(B)
1065  C=INT(C)
1070  M1=INT(M1)
1075  T=INT(T)
1080  M=INT(M)
1085  M2=M
1090  IF S4=1 THEN 1105
1095  IF K8=1 THEN 1105
1100  GOTO 1130
1105  T=T-20
1110  IF T<0 THEN 3520
1115  PRINT "DOCTOR'S BILL IS $20"
1120  LET K8=S4=0
1130  IF M9=1 THEN 1145
1135  PRINT "TOTAL MILEAGE IS";M
1140  GOTO 1160
1145  PRINT "TOTAL MILEAGE IS 950"
1150  M9=0
1160  PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
1165  PRINT F,B,C,M1,T
1300  IF X1=-1 THEN 1350
1305  X1=X1*-1
1310  PRINT "DO YOU WANT TO (1) STOP AT THE NEXT FORT, (2) HUNT, ";
1315  PRINT "OR (3) CONTINUE"
1320  INPUT X
1325  IF X>2 THEN 1340
1330  IF X<1 THEN 1340
1332  LET X=INT(X)
1335  GOTO 1400
1340  LET X=3
1345  GOTO 1400
1350  PRINT "DO YOU WANT TO (1) HUNT, OR (2) CONTINUE"
1355  INPUT X
1360  IF X=1 THEN 1370
1365  LET X=2
1370  LET X=X+1
1375  IF X=3 THEN 1395
1380  IF B>39 THEN 1395
1385  PRINT "TOUGH---YOU NEED MORE BULLETS TO GO HUNTING"
1390  GOTO 1350
1395  X1=X1*-1
1400  GOTO X OF 1500,1700,1800
1499  REM ***STOPPING AT FORT***
1500  PRINT "ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING"
1505  PRINT "FOOD";
1510  GOSUB 1520
1515  GOTO 1555
1520  INPUT P
1525  IF P<0 THEN 1550
1530  T=T-P
1535  IF T >= 0 THEN 1550
1537  PRINT "YOU DON'T HAVE THAT MUCH--KEEP YOUR SPENDING DOWN"
1540  T=T+P
1545  P=0
1550  RETURN
1555  F=F+2/3*P
1560  PRINT "AMMUNITION";
1565  GOSUB 1520
1570  LET B=INT(B+2/3*P*50)
1575  PRINT "CLOTHING";
1580  GOSUB 1520
1585  C=C+2/3*P
1590  PRINT "MISCELLANEOUS SUPPLIES";
1595  GOSUB 1520
1600  M1=M1+2/3*P
1605  M=M-45
1610  GOTO 1800
1699  REM ***HUNTING***
1700  IF B>39 THEN 1715
1705  PRINT "TOUGH---YOU NEED MORE BULLETS TO GO HUNTING"
1710  GOTO 1310
1715  M=M-45
1720  GOSUB 4500
1725  IF B1 <= 1 THEN 1755
1730  IF 100*RND(0)<13*B1 THEN 1780
1735  F=F+48-2*B1
1740  PRINT "NICE SHOT--RIGHT THROUGH THE NECK--FEAST TONIGHT!!"
1745  B=B-10-3*B1
1750  GOTO 1800
1752  REM **BELLS IN LINE 1755**
1755  PRINT "RI"'7"GHT BETWEE"'7"N THE EYE"'7"S---YOU GOT A"'7" BIG ONE!!"'7"!!"
1765  F=F+52+RND(0)*6
1770  B=B-10-RND(0)*4
1775  GOTO 1800
1780  PRINT "SORRY---NO LUCK TODAY"
1800  IF F >= 13 THEN 1900
1805  GOTO 3500
1899  REM ***EATING***
1900  PRINT "DO YOU WANT TO EAT (1) POORLY  (2) MODERATELY"
1902  PRINT "OR (3) WELL";
1905  INPUT E
1910  IF E>3 THEN 1900
1915  IF E<1 THEN 1900
1920  LET E=INT(E)
1930  LET F=F-8-5*E
1935  IF F >= 0 THEN 2000
1940  F=F+8+5*E
1945  PRINT "YOU CAN'T EAT THAT WELL"
1950  GOTO 1900
2000  LET M=M+200+(A-220)/5+10*RND(0)
2005  L1=C1=0
2099  REM ***RIDERS ATTACK***
2100  IF RND(0)*10>((M/100-4)^2+72)/((M/100-4)^2+12)-1 THEN 2500
2105  PRINT "RIDERS AHEAD.  THEY ";
2110  S5=0
2115  IF RND(0)<.8 THEN 2130
2120  PRINT "DON'T ";
2125  S5=1
2130  PRINT "LOOK HOSTILE"
2135  PRINT "TACTICS"
2140  PRINT "(1) RUN  (2) ATTACK  (3) CONTINUE  (4) CIRCLE WAGONS"
2145  PRINT "IF YOU RUN YOU'LL GAIN TIME BUT WEAR DOWN YOUR OXEN"
2150  PRINT "IF YOU CIRCLE YOU'LL LOSE TIME"
2155  IF RND(0)>.2 THEN 2165
2160  S5=1-S5
2165  INPUT T1
2170  IF T1<1 THEN 2140
2175  IF T1>4 THEN 2140
2180  T1=INT(T1)
2185  IF S5=1 THEN 2330
2190  IF T1>1 THEN 2220
2195  M=M+20
2200  M1=M1-15
2205  B=B-150
2210  A=A-40
2215  GOTO 2395
2220  IF T1>2 THEN 2285
2225  GOSUB 4500
2230  B=B-B1*40-80
2235  IF B1>1 THEN 2250
2240  PRINT "NICE SHOOTING---YOU DROVE THEM OFF"
2245  GOTO 2395
2250  IF B1 <= 4 THEN 2275
2255  PRINT "LOUSY SHOT---YOU GOT KNIFED"
2260  K8=1
2265  PRINT "YOU HAVE TO SEE OL' DOC BLANCHARD"
2270  GOTO 2395
2275  PRINT "KINDA SLOW WITH YOUR COLT .45"
2280  GOTO 2395
2285  IF T1>3 THEN 2310
2290  IF RND(0)>.8 THEN 2390
2295  LET B=B-150
2300  M1=M1-15
2305  GOTO 2395
2310  GOSUB 4500
2315  B=B-B1*30-80
2320  M=M-25
2325  GOTO 2235
2330  IF T1>1 THEN 2350
2335  M=M+15
2340  A=A-10
2345  GOTO 2395
2350  IF T1>2 THEN 2370
2355  M=M-5
2360  B=B-100
2365  GOTO 2395
2370  IF T1>3 THEN 2380
2375  GOTO 2395
2380  M=M-20
2385  GOTO 2395
2390  PRINT "THEY DID NOT ATTACK"
2392  GOTO 2500
2395  IF S5=0 THEN 2410
2400  PRINT "RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES"
2405  GOTO 2500
2410  PRINT "RIDERS WERE HOSTILE--CHECK FOR LOSSES"
2415  IF B >= 0 THEN 2500
2420  PRINT "YOU RAN OUT OF BULLETS AND GOT MASSACRED BY THE RIDERS"
2425  GOTO 3600
2499  REM ***SELECTION OF EVENTS***
2500  LET D1=0
2505  RESTORE
2510  R1=100*RND(TIM(0))
2515  LET D1=D1+1
2520  IF D1=16 THEN 3020
2525  READ D
2530  IF R1>D THEN 2515
2535  DATA 6,11,13,15,17,22,32,35,37,42,44,54,64,69,95
2537  IF D1>10 THEN 2545
2540  GOTO D1 OF 2550,2570,2590,2615,2630,2645,2660,2690,2785,2810
2545  GOTO D1-10 OF 2825,2860,2885,2970,2990,3020
2550  PRINT "WAGON BREAKS DOWN--LOSE TIME AND SUPPLIES FIXING IT"
2555  LET M=M-15-5*RND(0)
2560  LET M1=M1-8
2565  GOTO 3100
2570  PRINT "OX INJURES LEG---SLOWS YOU DOWN REST OF TRIP"
2575  LET M=M-25
2580  LET A=A-20
2585  GOTO 3100
2590  PRINT "BAD LUCK---YOUR DAUGHTER BROKE HER ARM"
2595  PRINT "YOU HAD TO STOP AND USE SUPPLIES TO MAKE A SLING"
2600  M=M-5-4*RND(0)
2605  M1=M1-2-3*RND(0)
2610  GOTO 3100
2615  PRINT "OX WANDERS OFF---SPEND TIME LOOKING FOR IT"
2620  M=M-17
2625  GOTO 3100
2630  PRINT "YOUR SON GETS LOST---SPEND HALF THE DAY LOOKING FOR HIM"
2635  M=M-10
2640  GOTO 3100
2645  PRINT "UNSAFE WATER--LOSE TIME LOOKING FOR CLEAN SPRING"
2650  LET M=M-10*RND(0)-2
2655  GOTO 3100
2660  IF M>950 THEN 2935
2665  PRINT "HEAVY RAINS---TIME AND SUPPLIES LOST"
2670  F=F-10
2672  B=B-500
2675  M1=M1-15
2680  M=M-10*RND(0)-5
2685  GOTO 3100
2690  PRINT "BANDITS ATTACK"
2700  GOSUB 4500
2705  B=B-20*B1
2715  IF B >= 0 THEN 2735
2720  PRINT "YOU RAN OUT OF BULLETS---THEY GET LOTS OF CASH"
2725  T=T/3
2730  GOTO 2740
2735  IF B1 <= 1 THEN 2770
2740  PRINT "YOU GOT SHOT IN THE LEG AND THEY TOOK ONE OF YOUR OXEN"
2745  K8=1
2750  PRINT "BETTER HAVE A DOC LOOK AT YOUR WOUND"
2755  M1=M1-5
2760  A=A-20
2765  GOTO 3100
2770  PRINT "QUICKEST DRAW OUTSIDE OF DODGE CITY!!!"
2775  PRINT "YOU GOT 'EM!"
2780  GOTO 3100
2785  PRINT "THERE WAS A FIRE IN YOUR WAGON--FOOD AND SUPPLIES DAMAGED"
2790  F=F-40
2792  B=B-400
2795  LET M1=M1-RND(0)*8-3
2800  M=M-15
2805  GOTO 3100
2810  PRINT "LOSE YOUR WAY IN HEAVY FOG---TIME IS LOST"
2815  M=M-10-5*RND(0)
2820  GOTO 3100
2825  PRINT "YOU KILLED A POISONOUS SNAKE AFTER IT BIT YOU"
2830  B=B-10
2835  M1=M1-5
2840  IF M1 >= 0 THEN 2855
2845  PRINT "YOU DIE OF SNAKEBITE SINCE YOU HAVE NO MEDICINE"
2850  GOTO 3600
2855  GOTO 3100
2860  PRINT "WAGON GETS SWAMPED FORDING RIVER--LOSE FOOD AND CLOTHES"
2865  F=F-30
2870  C=C-20
2875  M=M-20-20*RND(0)
2880  GOTO 3100
2885  PRINT "WILD ANIMALS ATTACK!"
2887  GOSUB 4500
2889  IF B>39 THEN 2895
2890  PRINT "YOU WERE TOO LOW ON BULLETS--"
2891  PRINT "THE WOLVES OVERPOWERED YOU"
2892  K8=1
2893  GOTO 3555
2895  IF B1>2 THEN 2910
2900  PRINT "NICE SHOOTIN' PARDNER---THEY DIDN'T GET MUCH"
2905  GOTO 2915
2910  PRINT "SLOW ON THE DRAW---THEY GOT AT YOUR FOOD AND CLOTHES"
2915  B=B-20*B1
2920  C=C-B1*4
2925  F=F-B1*8
2930  GOTO 3100
2935  PRINT "COLD WEATHER---BRRRRRRR!---YOU ";
2940  IF C>22+4*RND(0) THEN 2955
2945  PRINT "DON'T ";
2950  C1=1
2955  PRINT "HAVE ENOUGH CLOTHING TO KEEP YOU WARM"
2960  IF C1=0 THEN 3100
2965  GOTO 4700
2970  PRINT "HAIL STORM---SUPPLIES DAMAGED"
2975  M=M-5-RND(0)*10
2977  B=B-200
2980  M1=M1-4-RND(0)*3
2985  GOTO 3100
2990  IF E=1 THEN 4700
2995  IF E=3 THEN 3010
3000  IF RND(0)>.25 THEN 4700
3005  GOTO 3100
3010  IF RND(0)<.5 THEN 4700
3015  GOTO 3100
3020  PRINT "HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD"
3025  F=F+14
3030  GOTO 3100
3099  REM ***MOUNTAINS***
3100  IF M <= 950 THEN 700
3105  IF RND(0)*10>9-((M/100-15)^2+72)/((M/100-15)^2+12) THEN 3175
3110  PRINT "RUGGED MOUNTAINS"
3115  IF RND(0)>.1 THEN 3135
3120  PRINT "YOU GOT LOST---LOSE VALUABLE TIME TRYING TO FIND TRAIL!"
3125  M=M-60
3130  GOTO 3175
3135  IF RND(0)>.11 THEN 3160
3140  PRINT "WAGON DAMAGED!---LOSE TIME AND SUPPLIES"
3145  M1=M1-5
3147  B=B-200
3150  M=M-20-30*RND(0)
3155  GOTO 3175
3160  PRINT "THE GOING GETS SLOW"
3165  M=M-45-RND(0)/.02
3175  IF F1=1 THEN 3195
3180  F1=1
3185  IF RND(0)<.8 THEN 3300
3190  PRINT "YOU MADE IT SAFELY THROUGH SOUTH PASS--NO SNOW"
3195  IF M<1700 THEN 3215
3200  IF F2=1 THEN 3215
3205  F2=1
3210  IF RND(0)<.7 THEN 3300
3215  IF M>950 THEN 700
3220  M9=1
3225  GOTO 700
3300  PRINT "BLIZZARD IN MOUNTAIN PASS--TIME AND SUPPLIES LOST"
3305  L1=1
3310  F=F-25
3315  M1=M1-10
3317  B=B-300
3320  M=M-30-40*RND(0)
3325  IF C<18+2*RND(0) THEN 4700
3330  GOTO 3215
3499  REM ***DYING***
3500  PRINT "YOU RAN OUT OF FOOD AND STARVED TO DEATH"
3505  GOTO 3600
3520  LET T=0
3525  PRINT "YOU CAN'T AFFORD A DOCTOR"
3530  GOTO 3555
3550  PRINT "YOU RAN OUT MEDICAL SUPPLIES"
3555  PRINT "YOU DIED OF ";
3560  IF K8=1 THEN 3575
3565  PRINT "PNEUMONIA"
3570  GOTO 3600
3575  PRINT "INJURIES"
3600  PRINT
3602  PRINT "DO TO YOUR UNFORTUNATE SITUATION, THERE ARE A FEW"
3605  PRINT "FORMALITIES WE MUST GO THROUGH"
3610  PRINT
3615  PRINT "WOULD YOU LIKE A MINISTER?"
3620  INPUT C$
3630  PRINT "WOULD YOU LIKE A FANCY FUNERAL?"
3635  INPUT C$
3650  PRINT "WOULD YOU LIKE US TO INFORM YOUR NEXT OF KIN?"
3652  INPUT C$
3654  IF C$="YES" THEN 3670
3656  PRINT "YOUR AUNT NELLIE IN ST. LOUIS IS ANXIOUS TO HEAR"
3658  PRINT
3670  PRINT "WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU"
3675  PRINT "DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON"
3680  PRINT "BETTER LUCK NEXT TIME"
3685  PRINT
3690  PRINT
3695  PRINT TAB(30);"SINCERELY"
3700  PRINT
3705  PRINT TAB(17);"THE OREGON CITY CHAMBER OF COMMERCE"
3710  STOP
3999  REM ***FINAL TURN***
4000  F9=(2040-M2)/(M-M2)
4005  F=F+(1-F9)*(8+5*E)
4010  PRINT
4012  REM *BELLS IN LINES 4015, 4020*
4015  PRINT "YOU"'7" FINALLY ARRI"'7"VED AT ORE"'7"GON CITY"'7
4020  PRINT "AFTER"'7" 2040 LONG MILES"'7"---HOORAY!!"'7"!!!"
4025  PRINT
4030  F9=INT(F9*14)
4035  D3=D3*14+F9
4040  F9=F9+1
4045  IF F9<8 THEN 4055
4050  F9=F9-7
4055  GOTO F9 OF 4060,4070,4080,4090,4100,4110,4120
4060  PRINT "MONDAY ";
4065  GOTO 4125
4070  PRINT "TUESDAY ";
4075  GOTO 4125
4080  PRINT "WEDNESDAY ";
4085  GOTO 4125
4090  PRINT "THURSDAY ";
4095  GOTO 4125
4100  PRINT "FRIDAY ";
4105  GOTO 4125
4110  PRINT "SATURDAY ";
4115  GOTO 4125
4120  PRINT "SUNDAY ";
4125  IF D3>124 THEN 4145
4130  D3=D3-93
4135  PRINT "JULY ";D3;" 1847"
4140  GOTO 4215
4145  IF D3>155 THEN 4165
4150  D3=D3-124
4155  PRINT "AUGUST ";D3;" 1847"
4160  GOTO 4215
4165  IF D3>185 THEN 4185
4170  D3=D3-155
4175  PRINT "SEPTEMBER ";D3;" 1847"
4180  GOTO 4215
4185  IF D3>216 THEN 4205
4190  D3=D3-185
4195  PRINT "OCTOBER ";D3;" 1847"
4200  GOTO 4215
4205  D3=D3-216
4210  PRINT "NOVEMBER ";D3;" 1847"
4215  PRINT
4220  PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
4230  IF B>0 THEN 4240
4235  LET B=0
4240  IF C>0 THEN 4250
4245  LET C=0
4250  IF M1>0 THEN 4260
4255  LET M1=0
4260  IF T>0 THEN 4270
4265  LET T=0
4270  IF F>0 THEN 4285
4275  LET F=0
4285  PRINT INT(F),INT(B),INT(C),INT(M1),INT(T)
4290  PRINT
4295  PRINT "PRESIDENT JAMES K. POLK SENDS YOU HIS"
4297  PRINT "      HEARTIEST CONGRATULATIONS"
4300  PRINT
4305  PRINT TAB(11);"AND WISHES YOU A PROSPEROUS LIFE AHEAD"
4310  PRINT
4315  PRINT TAB(22);"AT YOUR NEW HOME"
4320  STOP
4499  REM ***SHOOTING SUB-ROUTINE***
4500  PRINT "TYPE BANG";
4505  B2=7
4510  C$=""
4515  ENTER #P,B2,B1,C$
4520  PRINT
4525  IF C$="BANG" THEN 4535
4530  B1=7
4535  RETURN
4699  REM ***ILLNESS SUB-ROUTINE***
4700  IF 100*RND(0)<10+35*(E-1) THEN 4740
4705  IF 100*RND(0)<100-(40/4^(E-1)) THEN 4760
4715  PRINT "SERIOUS ILLNESS---"
4720  PRINT "YOU MUST STOP FOR MEDICAL ATTENTION"
4725  M1=M1-10
4730  S4=1
4735  GOTO 4780
4740  PRINT "MILD ILLNESS---MEDICINE USED"
4745  M=M-5
4750  M1=M1-2
4755  GOTO 4780
4760  PRINT "BAD ILLNESS---MEDICINE USED"
4765  M=M-5
4770  M1=M1-5
4780  IF M1<0 THEN 3550
4785  IF L1=1 THEN 3215
4790  GOTO 3100
4900  REM ***IDENDIFICATION OF VARIABLES IN THE PROGRAM***
4902  REM A = AMOUNT SPENT ON ANIMALS
4904  REM B = AMOUNT SPENT ON AMMUNITION
4906  REM B1 = ACTUAL RESPONSE TIME FOR INPUTING 'BANG'
4908  REM B2 = MAXIMUM RESPONSE TIME FOR INPUTING 'BANG'
4910  REM C = AMOUNT SPENT ON CLOTHING
4912  REM C1 = FLAG FOR INSUFFICIENT CLOTHING IN COLD WEATHER
4914  REM C$ = YES/NO RESPONSE TO QUESTIONS
4916  REM D1 = COUNTER IN GENERATING EVENTS
4918  REM D3 = TURN NUMBER FOR SETTING DATE
4920  REM D4 = CURRENT DATE
4922  REM E = CHOICE OF EATING
4924  REM F = AMOUNT SPENT ON FOOD
4926  REM F1 = FLAG FOR CLEARING SOUTH PASS
4928  REM F2 = FLAG FOR CLEARING BLUE MOUNTAINS
4930  REM F9 = FRACTION OF 2 WEEKS TRAVELED ON FINAL TURN
4932  REM K8 = FLAG FOR INJURY
4934  REM L1 = FLAG FOR BLIZZARD
4936  REM M = TOTAL MILEAGE WHOLE TRIP
4938  REM M1 = AMOUNT SPENT ON MISCELLANEOUS SUPPLIES
4940  REM M2 = TOTAL MILEAGE UP THROUGH PREVIOUS TURN
4942  REM M9 = FLAG FOR CLEARING SOUTH PASS IN SETTING MILEAGE
4944  REM P = AMOUNT SPENT ON ITEMS AT FORT
4946  REM R1 = RANDOM NUMBER IN CHOOSING EVENTS
4948  REM S4 = FLAG FOR ILLNESS
4950  REM S5 = 'HOSTILITY OF RIDERS' FACTOR
4952  REM T = CASH LEFT OVER AFTER INITIAL PURCHASES
4954  REM T1 = CHOICE OF TACTICS WHEN ATTACKED
4956  REM X = CHOICE OF ACTION FOR EACH TURN
4958  REM X1 = FLAG FOR FORT OPTION
5000  END