   91 DIM S$(5)
  150 REM  *FOR THE MEANING OF THE VARIABLES USED, LIST LINES 6470-6790*
  155 REM
  156 LET C$ = ""
  157 INPUT "DO YOU NEED INSTRUCTIONS  (Y/N)"; C$
  200 IF C$="N" THEN 690
  210 PRINT
  220 PRINT
  240 PRINT "THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM"
  250 PRINT "INDEPENDENCE, MISSOURI TO OREGON CITY, OREGON IN 1847."
  260 PRINT "YOUR FAMILY OF FIVE WILL COVER THE 2040 MILE OREGON TRAIL"
  270 PRINT "IN 5-6 MONTHS --- IF YOU MAKE IT ALIVE."
  280 PRINT:INPUT "PLEASE PRESS 'GO' ";C$:CLS
  290 PRINT "YOU HAD SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST"
  300 PRINT "   PAID $200 FOR A WAGON ."
  310 PRINT "YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE"
  320 PRINT "   FOLLOWING ITEMS:"
  330 PRINT
  340 PRINT "     OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM"
  350 PRINT "            THE MORE YOU SPEND, THE FASTER YOU'LL GO"
  360 PRINT "               BECAUSE YOU'LL HAVE BETTER ANIMALS"
  370 PRINT
  380 PRINT "     FOOD - THE MORE YOU HAVE, THE LESS CHANCE THERE"
  390 PRINT "               IS OF GETTING SICK"
  400 PRINT
  410 PRINT "     AMMUNITION - $1 BUYS A BELT OF 50 BULLETS"
  420 PRINT "            YOU WILL NEED BULLETS FOR ATTACKS BY ANIMALS"
  430 PRINT "               AND BANDITS, AND FOR HUNTING FOOD"
  440 PRINT
  450 PRINT "     CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD"
  460 PRINT "               WEATHER YOU WILL ENCOUNTER WHEN CROSSING"
  470 PRINT "               THE MOUNTAINS"
  480 PRINT
  490 PRINT "     MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND"
  500 PRINT "               OTHER THINGS YOU WILL NEED FOR SICKNESS"
  510 PRINT "               AND EMERGENCY REPAIRS"
  520 PRINT:INPUT "PLEASE PRESS 'GO'";C$:CLS
  530 PRINT
  540 PRINT "YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP -"
  550 PRINT "OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG"
  560 PRINT "THE WAY WHEN YOU RUN LOW. H0WEVER, ITEMS COST MORE AT"
  570 PRINT "THE FORTS. YOU CAN ALSO GO HUNTING ALONG THE WAY TO GET"
  580 PRINT "MORE FOOD."
  590 PRINT "WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY,"
  600 PRINT "YOU WILL BE TOLD TO TYPE IN A WORD (ONE THAT SOUNDS LIKE A"
  610 PRINT "GUN SHOT). THE FASTER YOU TYPE IN THAT WORD AND HIT THE"
  620 PRINT "**RETURN** KEY, THE BETTER LUCK YOU'LL HAVE WITH YOUR GUN."
  630 PRINT
  640 PRINT "AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS"
  650 PRINT "EXCEPT BULLETS"
  660 PRINT "WHEN ASKED TO ENTER MONEY AMOUNTS, DON'T USE A **$**."
  670 PRINT
  680 PRINT "GOOD LUCK!!!"
  690 PRINT:INPUT "PLEASE PRESS 'GO'";C$:CLS
  700 PRINT
  710 PRINT "HOW GOOD A SHOT ARE YOU WITH YOUR RIFLE?"
  720 PRINT "  (1) ACE MARKSMAN,  (2) GOOD SHOT,  (3) FAIR TO MIDDLIN'"
  730 PRINT "         (4) NEED MORE PRACTICE,  (5) SHAKY KNEES"
  740 PRINT "ENTER ONE OF THE ABOVE -- THE BETTER YOU CLAIM YOU ARE, THE"
  750 PRINT "FASTER YOU'LL HAVE TO BE WITH YOUR GUN TO BE SUCCESSFUL."
  751 LET D9 = 0
  760 INPUT D9
  770 IF D9>5 THEN 790
  780 GOTO 810
  790 LET D9=0
  810 LET X1=-1
  820 LET K8=0
  821 LET S4=0
  822 LET F1=0
  823 LET F2=0
  824 LET M=0
  825 LET M9=0
  826 LET D3=0
  830 PRINT:CLS
  840 PRINT
  850 PRINT "HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM";
  851 LET A = 0
  860 INPUT A
  870 IF A >= 200 THEN 900
  880 PRINT "NOT ENOUGH"
  890 GOTO 850
  900 IF A <= 300 THEN 930
  910 PRINT "TOO MUCH"
  920 GOTO 850
  930 PRINT "HOW MUCH DO YOU WANT TO SPEND ON FOOD";
  931 LET F = 0
  940 INPUT F
  950 IF F >= 0 THEN 980
  960 PRINT "IMPOSSIBLE"
  970 GOTO 930
  980 PRINT "HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION";
  981 LET B = 0
  990 INPUT B
 1000 IF B >= 0 THEN 1030
 1010 PRINT "IMPOSSIBLE"
 1020 GOTO 980
 1030 PRINT "HOW MUCH DO YOU WANT TO SPEND ON CLOTHING";
 1031 LET C = 0
 1040 INPUT C
 1050 IF C >= 0 THEN 1080
 1060 PRINT "IMPOSSIBLE"
 1070 GOTO 1030
 1080 PRINT "HOW MUCH DO YOU WANT TO SPEND ON MISCELLANEOUS SUPPLIES";
 1081 LET M1 = 0
 1090 INPUT M1
 1100 IF M1 >= 0 THEN 1130
 1110 PRINT "IMPOSSIBLE"
 1120 GOTO 1080
 1130 LET T=700-A-F-B-C-M1
 1140 IF T >= 0 THEN 1170
 1150 PRINT "YOU OVERSPENT--YOU ONLY HAD $700 TO SPEND.  BUY AGAIN."
 1160 GOTO 830
 1170 LET B=50*B
 1180 PRINT "AFTER ALL YOUR PURCHASES, YOU NOW HAVE ";T;" DOLLARS LEFT"
 1190 PRINT:INPUT "PLEASE PRESS 'GO'";C$:CLS
 1200 PRINT "MONDAY MARCH 29 1847"
 1210 PRINT
 1220 GOTO 1750
 1230 IF M >= 2040 THEN 5430
 1240 REM ***SETTING DATE***
 1250 LET D3=D3+1
 1260 PRINT:INPUT "PLEASE PRESS 'GO'";C$:CLS
 1270 PRINT "MONDAY ";
 1280 IF D3>10 THEN 1300
 1290 ON D3 GOTO 1310, 1330, 1350, 1370, 1390, 1410, 1430, 1450, 1470, 1490
 1300 ON D3-10 GOTO 1510, 1530, 1550, 1570, 1590, 1610, 1630, 1650, 1670, 1690
 1310 PRINT "APRIL 12 ";
 1320 GOTO 1720
 1330 PRINT "APRIL 26 ";
 1340 GOTO 1720
 1350 PRINT "MAY 10 ";
 1360 GOTO 1720
 1370 PRINT "MAY 24 ";
 1380 GOTO 1720
 1390 PRINT "JUNE 7 ";
 1400 GOTO 1720
 1410 PRINT "JUNE 21 ";
 1420 GOTO 1720
 1430 PRINT "JULY 5 ";
 1440 GOTO 1720
 1450 PRINT "JULY 19 ";
 1460 GOTO 1720
 1470 PRINT "AUGUST 2 ";
 1480 GOTO 1720
 1490 PRINT "AUGUST 16 ";
 1500 GOTO 1720
 1510 PRINT "AUGUST 31 ";
 1520 GOTO 1720
 1530 PRINT "SEPTEMBER 13 ";
 1540 GOTO 1720
 1550 PRINT "SEPTEMBER 27 ";
 1560 GOTO 1720
 1570 PRINT "OCTOBER 11 ";
 1580 GOTO 1720
 1590 PRINT "OCTOBER 25 ";
 1600 GOTO 1720
 1610 PRINT "NOVEMBER 8 ";
 1620 GOTO 1720
 1630 PRINT "NOVEMBER 22 ";
 1640 GOTO 1720
 1650 PRINT "DECEMBER 6 ";
 1660 GOTO 1720
 1670 PRINT "DECEMBER 20 ";
 1680 GOTO 1720
 1690 PRINT "YOU HAVE BEEN ON THE TRAIL TOO LONG ------"
 1700 PRINT "YOUR FAMILY DIES IN THE FIRST BLIZZARD OF WINTER"
 1710 GOTO 5170
 1720 PRINT "1847"
 1730 PRINT
 1750 IF F >= 0 THEN 1770
 1760 LET F=0
 1770 IF B >= 0 THEN 1790
 1780 LET B=0
 1790 IF C >= 0 THEN 1810
 1800 LET C=0
 1810 IF M1 >= 0 THEN 1830
 1820 LET M1=0
 1830 IF F >= 13 THEN 1850
 1840 PRINT "YOU'D BETTER DO SOME HUNTING OR BUY FOOD AND SOON!!!!"
 1850 LET F=INT(F)
 1860 LET B=INT(B)
 1870 LET C=INT(C)
 1880 LET M1=INT(M1)
 1890 LET T=INT(T)
 1900 LET M=INT(M)
 1910 LET M2=M
 1920 IF S4=1 THEN 1950
 1930 IF K8=1 THEN 1950
 1940 GOTO 1990
 1950 LET T=T-20
 1960 IF T<0 THEN 5080
 1970 PRINT "DOCTOR'S BILL IS $20"
 1980 LET K8=0
 1981 LET S4=0
 1990 IF M9=1 THEN 2020
 2000 PRINT "TOTAL MILEAGE IS ";M
 2010 GOTO 2040
 2020 PRINT "TOTAL MILEAGE IS 950"
 2030 LET M9=0
 2040 PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
 2050 PRINT F,B,C,M1,T
 2060 IF X1=-1 THEN 2170
 2070 LET X1=X1*(-1)
 2080 PRINT "DO YOU WANT TO (1) STOP AT THE NEXT FORT, (2) HUNT, ";
 2090 PRINT "OR (3) CONTINUE"
 2091 LET X = 0
 2100 INPUT X
 2110 IF X>2 THEN 2150
 2120 IF X<1 THEN 2150
 2130 LET X=INT(X)
 2140 GOTO 2270
 2150 LET X=3
 2160 GOTO 2270
 2170 PRINT "DO YOU WANT TO (1) HUNT, OR (2) CONTINUE"
 2181 LET X = 0
 2180 INPUT X
 2190 IF X=1 THEN 2210
 2200 LET X=2
 2210 LET X=X+1
 2220 IF X=3 THEN 2260
 2230 IF B>39 THEN 2260
 2240 PRINT "TOUGH YOU NEED MORE BULLETS TO GO HUNTING"
 2250 GOTO 2170
 2260 LET X1=X1*(-1)
 2270 ON X GOTO 2290,2540,2720
 2290 PRINT "ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING"
 2300 PRINT "FOOD";
 2310 GOSUB 2329
 2320 GOTO 2410
 2329 LET P = 0
 2330 INPUT P
 2340 IF P<0 THEN 2400
 2350 LET T=T-P
 2360 IF T >= 0 THEN 2400
 2370 PRINT "YOU DON'T HAVE THAT MUCH--KEEP YOUR SPENDING DOWN"
 2375 PRINT "YOU MISS YOUR CHANCE TO SPEND ON THAT ITEM"
 2380 LET T=T+P
 2390 LET P=0
 2400 RETURN
 2410 LET F=F+2/3*P
 2420 PRINT "AMMUNITION";
 2430 GOSUB 2330
 2440 LET B=INT(B+2/3*P*50)
 2450 PRINT "CLOTHING";
 2460 GOSUB 2330
 2470 LET C=C+2/3*P
 2480 PRINT "MISCELLANEOUS SUPPLIES";
 2490 GOSUB 2330
 2500 LET M1=M1+2/3*P
 2510 LET M=M-45
 2520 GOTO 2720
 2540 IF B>39 THEN 2570
 2550 PRINT "TOUGH---YOU NEED M0RE BULLETS TO GO HUNTING"
 2560 GOTO 2080
 2570 LET M=M-45
 2580 GOSUB 6150
 2590 IF B1 <= 1 THEN 2660
 2600 IF RND(100)<13*B1 THEN 2710
 2610 LET F=F+48-2*B1
 2620 PRINT "NICE SHOT--RIGHT ON TARGET--GOOD EATIN' TONIGHT!!"
 2630 LET B=B-10-3*B1
 2640 GOTO 2720
 2660 PRINT "RIGHT BETWEEN THE EYES---YOU GOT A BIG ONE!!!!"
 2670 PRINT "FULL BELLIES TONIGHT!"
 2680 LET F=F+52+RND(6)
 2690 LET B=B-10-RND(4)
 2700 GOTO 2720
 2710 PRINT "YOU MISSED---AND YOUR DINNER GOT AWAY....."
 2720 IF F >= 13 THEN 2750
 2730 GOTO 5060
 2750 PRINT "DO YOU WANT TO EAT (1) POORLY   (2) MODERATELY"
 2760 PRINT "OR (3) WELL";
 2770 LET E = 0
 2771 INPUT E
 2780 IF E>3 THEN 2750
 2790 IF E<1 THEN 2750
 2800 LET E=INT(E)
 2810 LET F=F-8-5*E
 2820 IF F >= 0 THEN 2860
 2830 LET F=F+8+5*E
 2840 PRINT "YOU CAN'T EAT THAT WELL"
 2850 GOTO 2750
 2860 LET M=M+200+(A-220)/5+RND(10)
 2870 LET L1=0
 2871 LET C1=0
 2890 IF RND(10)>((M/100-4)^2+72)/((M/100-4)^2+12)-1 THEN 3550
 2900 PRINT "RIDERS AHEAD.   THEY ";
 2910 LET S5=0
 2920 IF RND(1)<.8 THEN 2950
 2930 PRINT "DON'T ";
 2940 LET S5=1
 2950 PRINT "LOOK HOSTILE"
 2960 PRINT "TACTICS"
 2970 PRINT "(1) RUN  (2) ATTACK  (3) CONTINUE  (4) CIRCLE WAGONS"
 2980 IF RND(1)>.2 THEN 3000
 2990 LET S5=1-S5
 3000 LET T1 = 0
 3001 INPUT T1
 3010 IF T1<1 THEN 2970
 3020 IF T1>4 THEN 2970
 3030 LET T1=INT(T1)
 3040 IF S5=1 THEN 3330
 3050 IF T1>1 THEN 3110
 3060 LET M=M+20
 3070 LET M1=M1-15
 3080 LET B=B-150
 3090 LET A=A-40
 3100 GOTO 3470
 3110 IF T1>2 THEN 3240
 3120 GOSUB 6140
 3130 LET B=B-B1*40-80
 3140 IF B1>1 THEN 3170
 3150 PRINT "NICE SHOOTING---YOU DROVE THEM OFF"
 3160 GOTO 3470
 3170 IF B1 <= 4 THEN 3220
 3180 PRINT "LOUSY SHOT---YOU GOT KNIFED"
 3190 LET K8=1
 3200 PRINT "YOU HAVE TO SEE OL' DOC BLANCHARD"
 3210 GOTO 3470
 3220 PRINT "KINDA SLOW WITH YOUR COLT .45"
 3230 GOTO 3470
 3240 IF T1>3 THEN 3290
 3250 IF RND(1)>.8 THEN 3450
 3260 LET B=B-150
 3270 LET M1=M1-15
 3280 GOTO 3470
 3290 GOSUB 6150
 3300 LET B=B-B1*30-80
 3310 LET M=M-25
 3320 GOTO 3140
 3330 IF T1>1 THEN 3370
 3340 LET M=M+15
 3350 LET A=A-10
 3360 GOTO 3470
 3370 IF T1>2 THEN 3410
 3380 LET M=M-5
 3390 LET B=B-100
 3400 GOTO 3470
 3410 IF T1>3 THEN 3430
 3420 GOTO 3470
 3430 LET M=M-20
 3440 GOTO 3470
 3450 PRINT "THEY DID NOT ATTACK"
 3460 GOTO 3550
 3470 IF S5=0 THEN 3500
 3480 PRINT "RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES"
 3490 GOTO 3550
 3500 PRINT "RIDERS WERE HOSTILE--CHECK FOR LOSSES"
 3510 IF B >= 0 THEN 3550
 3520 PRINT "YOU RAN OUT OF BULLETS AND GOT MASSACRED BY THE RIDERS"
 3530 GOTO 5170
 3550 LET D1=0
 3560 RESTORE
 3570 LET R1=RND(100)
 3580 LET D1=D1+1
 3590 IF D1=16 THEN 4670
 3595 LET D = 0
 3600 READ D
 3610 IF R1>D THEN 3580
 3620 DATA 6, 11, 13, 15, 17, 22, 32, 35, 37, 42, 44, 54, 64, 69, 95
 3630 IF D1>10 THEN 3650
 3640 ON D1 GOTO 3660, 3700, 3740, 3790, 3820, 3850, 3880, 3960, 4130, 4190
 3650 ON D1-10 GOTO 4220, 4290, 4340, 4560, 4610, 4670
 3660 PRINT "WAGON BREAKS DOWN--LOSE TIME AND SUPPLIES FIXING IT"
 3670 LET M=M-15-RND(5)
 3680 LET M1=M1-8
 3690 GOTO 4710
 3700 PRINT "OX INJURES LEG--SLOWS YOU DOWN REST OF TRIP"
 3710 LET M=M-25
 3720 LET A=A-20
 3730 GOTO 4710
 3740 PRINT "BAD LUCK--YOUR DAUGHTER BROKE HER ARM"
 3750 PRINT "YOU HAD TO STOP AND USE SUPPLIES TO MAKE A SLING"
 3760 LET M=M-5-RND(4)
 3770 LET M1=M1-2-RND(3)
 3780 GOTO 4710
 3790 PRINT "OX WANDERS OFF--SPEND TIME LOOKING FOR IT"
 3800 LET M=M-17
 3810 GOTO 4710
 3820 PRINT "YOUR SON GETS LOST---SPEND HALF THE DAY LOOKING FOR HIM"
 3830 LET M=M-10
 3840 GOTO 4710
 3850 PRINT "UNSAFE WATER--LOSE TIME LOOKING FOR CLEAN SPRING"
 3860 LET M=M-RND(10)-2
 3870 GOTO 4710
 3880 IF M>950 THEN 4490
 3890 PRINT "HEAVY RAINS---TIME AND SUPPLIES LOST"
 3910 LET F=F-10
 3920 LET B=B-500
 3930 LET M1=M1-15
 3940 LET M=M-RND(10)-5
 3950 GOTO 4710
 3960 PRINT "BANDITS ATTACK"
 3970 GOSUB 6150
 3980 LET B=B-20*B1
 3990 IF B >= 0 THEN 4030
 4000 PRINT "YOU RAN OUT OF BULLETS---THEY GET LOTS OF CASH"
 4010 LET T=T/3
 4020 GOTO 4040
 4030 IF B1 <= 1 THEN 4100
 4040 PRINT "YOU GOT SHOT IN THE LEG AND THEY TOOK ONE OF YOUR OXEN"
 4050 LET K8=1
 4060 PRINT "BETTER HAVE A DOC LOOK AT YOUR WOUND"
 4070 LET M1=M1-5
 4080 LET A=A-20
 4090 GOTO 4710
 4100 PRINT "QUICKEST DRAW OUTSIDE OF DODGE CITY!!!"
 4110 PRINT "YOU GOT 'EM!"
 4120 GOTO 4710
 4130 PRINT "THERE WAS A FIRE IN YOUR WAGON--FOOD AND SUPPLIES DAMAGE!"
 4140 LET F=F-40
 4150 LET B=B-400
 4160 LET M1=M1-RND(8)-3
 4170 LET M=M-15
 4180 GOTO 4710
 4190 PRINT "LOSE YOUR WAY IN HEAVY FOG---TIME IS LOST"
 4200 LET M=M-10-RND(5)
 4210 GOTO 4710
 4220 PRINT "YOU KILLED A POISONOUS SNAKE AFTER IT BIT YOU"
 4230 LET B=B-10
 4240 LET M1=M1-5
 4250 IF M1 >= 0 THEN 4280
 4260 PRINT "YOU DIE OF SNAKEBITE SINCE YOU HAVE NO MEDICINE"
 4270 GOTO 5170
 4280 GOTO 4710
 4290 PRINT "WAGON GETS SWAMPED FORDING RIVER--LOSE FOOD AND CLOTHES"
 4300 LET F=F-30
 4310 LET C=C-20
 4320 LET M=M-20-RND(20)
 4330 GOTO 4710
 4340 PRINT "WILD ANIMALS ATTACK!"
 4350 GOSUB 6150
 4360 IF B>39 THEN 4410
 4370 PRINT "YOU WERE TOO LOW ON BULLETS--"
 4380 PRINT "THE WOLVES OVERPOWERED YOU"
 4390 LET K8=1
 4400 GOTO 5120
 4410 IF B1>2 THEN 4440
 4420 PRINT "NICE SHOOTIN' PARDNER---THEY DIDN'T GET MUCH"
 4430 GOTO 4450
 4440 PRINT "SLOW ON THE DRAW---THEY GOT AT YOUR FOOD AND CLOTHES"
 4450 LET B=B-20*B1
 4460 LET C=C-B1*4
 4470 LET F=F-B1*8
 4480 GOTO 4710
 4490 PRINT "COLD WEATHER---BRRRRRRR!---YOU ";
 4500 IF C>22+RND(4) THEN 4530
 4510 PRINT "DON'T ";
 4520 LET C1=1
 4530 PRINT "HAVE ENOUGH CLOTHING TO KEEP YOU WARM"
 4540 IF C1=0 THEN 4710
 4550 GOTO 6300
 4560 PRINT "HAIL STORM---SUPPLIES DAMAGED"
 4570 LET M=M-5-RND(10)
 4580 LET B=B-200
 4590 LET M1=M1-4-RND(3)
 4600 GOTO 4710
 4610 IF E=1 THEN 6300
 4620 IF E=3 THEN 4650
 4630 IF RND(1)>.25 THEN 6300
 4640 GOTO 4710
 4650 IF RND(1)<.5 THEN 6300
 4660 GOTO 4710
 4670 PRINT "HELPFUL INDIANS SHOW YOU WERE TO FIND MORE FOOD"
 4680 LET F=F+14
 4690 GOTO 4710
 4710 IF M <= 950 THEN 1230
 4720 IF RND(10)>9-((M/100-15)^2+72)/((M/100-15)^2+12) THEN 4860
 4730 PRINT "RUGGED MOUNTAINS"
 4740 IF RND(1)>.1 THEN 4780
 4750 PRINT "YOU GOT LOST---LOSE VALUABLE TIME TRYING TO FIND TRAIL!"
 4760 LET M=M-60
 4770 GOTO 4860
 4780 IF RND(1)>.11 THEN 4840
 4790 PRINT "WAGON DAMAGED!-LOSE TIME AND SUPPLIES"
 4800 LET M1=M1-5
 4810 LET B=B-200
 4820 LET M=M-20-RND(30)
 4830 GOTO 4860
 4840 PRINT "THE GOING GETS SLOW"
 4850 LET M=M-45-RND(1)/.02
 4860 IF F1=1 THEN 4900
 4870 LET F1=1
 4880 IF RND(1)<.8 THEN 4970
 4890 PRINT "YOU MADE IT SAFELY THROUGH SOUTH PASS--NO SNOW"
 4900 IF M<1700 THEN 4940
 4910 IF F2=1 THEN 4940
 4920 LET F2=1
 4930 IF RND(1)<.7 THEN 4970
 4940 IF M>950 THEN 1230
 4950 LET M9=1
 4960 GOTO 1230
 4970 PRINT "BLIZZARD IN MOUNTAIN PASS--TIME AND SUPPLIES LOST"
 4980 LET L1=1
 4990 LET F=F-25
 5000 LET M1=M1-10
 5010 LET B=B-300
 5020 LET M=M-30*RND(40)
 5030 IF C<18+RND(2) THEN 6300
 5040 GOTO 4940
 5060 PRINT "YOU RAN OUT OF FOOD AND STARVED TO DEATH"
 5070 GOTO 5170
 5080 LET T=0
 5090 PRINT "YOU CAN'T AFFORD A DOCTOR"
 5100 GOTO 5120
 5110 PRINT "YOU RAN OUT OF MEDICAL SUPPLIES"
 5120 PRINT "YOU DIED OF ";
 5130 IF K8=1 THEN 5160
 5140 PRINT "PNEUMONIA"
 5150 GOTO 5170
 5160 PRINT "INJURIES"
 5170 PRINT
 5180 PRINT "DUE TO YOUR UNFORTUNATE SITUATION, THERE ARE A FEW"
 5190 PRINT "FORMALITIES WE MUST GO THROUGH"
 5200 PRINT
 5210 PRINT "WOULD YOU LIKE A MINISTER?"
 5220 INPUT C$
 5230 PRINT "WOULD YOU LIKE A FANCY FUNERAL?"
 5240 INPUT C$
 5250 PRINT "WOULD YOU LIKE US TO INFORM YOUR NEXT OF KIN?"
 5260 INPUT C$
 5270 IF C$="Y" THEN 5310
   83 00 GOTO 5330
 5280 PRINT "BUT YOUR AUNT SADIE IN ST. LOUIS IS REALLY WORRIED ABOUT YOU"
 5310 PRINT "THAT WILL BE $4.50 FOR THE TELEGRAPH CHARGE."
 5320 PRINT
 5330 PRINT "WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU"
 5340 PRINT "DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON"
 5350 PRINT "BETTER LUCK NEXT TIME"
 5360 PRINT
 5370 PRINT
 5380 PRINT TAB(30);"SINCERELY"
 5390 PRINT
 5400 PRINT TAB(17);"THE OREGON CITY CHAMBER OF COMMERCE"
 5410 GOTO 9999
 5430 LET F9=(2040-M2)/(M-M2)
 5440 LET F=F+(1-F9)*(8*5*E)
 5450 PRINT
 5470 PRINT "YOU FINALLY ARRIVED AT OREGON CITY"
 5480 PRINT "AFTER 2040 LONG MILES---HOORAY !!!!!"
 5490 PRINT "A REAL PIONEER!"
 5500 PRINT
 5510 LET F9=INT(F9*14)
 5520 LET D3=D3*14+F9
 5530 LET F9=F9+1
 5540 IF F9<8 THEN 5560
 5550 LET F9=F9-7
 5560 ON F9 GOTO 5570,5590,5630,5650,5670,5690
 5570 PRINT "MONDAY ";
 5580 GOTO 5700
 5590 PRINT "TUESDAY ";
 5600 GOTO 5700
 5610 PRINT "WEDNESDAY ";
 5620 GOTO 5700
 5630 PRINT "THURSDAY ";
 5640 GOTO 5700
 5650 PRINT "FRIDAY ";
 5660 GOTO 5700
 5670 PRINT "SATURDAY ";
 5680 GOTO 5700
 5690 PRINT "SUNDAY ";
 5700 IF D3>124 THEN 5740
 5710 LET D3=D3-93
 5720 PRINT "JULY ";D3;" 1847"
 5730 GOTO 5920
 5740 IF D3>155 THEN 5780
 5750 LET D3=D3-124
 5760 PRINT "AUGUST ";D3;" 1847"
 5770 GOTO 5920
 5780 IF D3>155 THEN 5820
 5790 LET D3=D3-155
 5800 PRINT "SEPTEMBER ";D3;" 1847"
 5810 GOTO 5920
 5820 IF D3>216 THEN 5860
 5830 LET D3=D3-155
 5840 PRINT "OCTOBER ";D3;" 1847"
 5850 GOTO 5920
 5860 IF D3>246 THEN 5900
 5870 LET D3=D3-246
 5880 PRINT "NOVEMBER ";D3;" 1847"
 5890 GOTO 5920
 5900 LET D3=D3-246
 5910 PRINT "DECEMBER ";D3;" 1847"
 5920 PRINT
 5930 PRINT "FOOD","BULLETS","CLOTHING","MISC. SUPP.","CASH"
 5940 IF B>0 THEN 5960
 5950 LET B=0
 5960 IF C>0 THEN 5980
 5970 LET C=0
 5980 IF M1>0 THEN 6000
 5990 LET M1=0
 6000 IF T>0 THEN 6020
 6010 LET T=0
 6020 IF F>0 THEN 6040
 6030 LET F=0
 6040 PRINT INT(F),INT(B),INT(C),INT(M1),INT(T)
 6050 PRINT
 6060 PRINT TAB(11); "PRESIDENT JAMES K. POLK SENDS YOU HIS"
 6070 PRINT TAB(17); "HEARTIEST CONGRATULATIONS"
 6080 PRINT
 6090 PRINT TAB(11);"AND WISHES YOU A PROSPEROUS LIFE AHEAD"
 6100 PRINT
 6110 PRINT TAB(22);"AT YOUR NEW HOME"
 6120 GOTO 9999
 6150 LET S$(1)="BANG"
 6160 LET S$(2)="BLAM"
 6170 LET S$(3)="POW"
 6180 LET S$(4)="WHAM"
 6190 LET S6=RND(4)
 6200 PRINT "TYPE '"; S$(S6);"'"
 6210 LET B3 = TIME
 6220 INPUT C$
 6230 LET B1 = TIME
 6240 LET B1=((B1-B3)*2)-(D9-1)
 6250 PRINT
 6252 REM PRINT "B1 = " ; B1
 6255 IF B1>0 THEN 6260
 6257 LET B1=0
 6260 IF C$=S$(S6) THEN 6280
 6270 LET B1=9
 6280 RETURN
 6300 IF RND(100)<10+35*(E-1) THEN 6370
 6310 IF RND(100)<100-(40/4^(E-1)) THEN 6410
 6320 PRINT "SERIOUS ILLNESS"
 6330 PRINT "YOU MUST STOP FOR MEDICAL ATTENTION"
 6340 LET M1=M1-10
 6350 LET S4=1
 6360 GOTO 6440
 6370 PRINT "MILD ILLNESS---MEDICINE USED"
 6380 LET M=M-5
 6390 LET M1=M1-2
 6400 GOTO 6440
 6410 PRINT "BAD ILLNESS---MEDICINE USED"
 6420 LET M=M-5
 6430 LET M1=M1-5
 6440 IF M1<0 THEN 5110
 6450 IF L1=1 THEN 4940
 6460 GOTO 4710
 9999 END

