Update oregon.bas

Author: topherPedersen

oregon.bas

@@ -1,3 +1,4 @@
+10 PE$="PRESS <ENTER> TO CONTINUE"
 70 PH=INT((RND(0)*100)+1)
 71 IF PH<51 THEN DH=51
 72 IF PH>50 THEN DH=34
@@ -17,28 +18,28 @@
 242 PRINT "FROM INDEPENDENCE, MO TO"
 243 PRINT "OREGON CITY, OR IN 1847."
 280 PRINT
-281 PRINT "PRESS <ENTER> TO CONTINUE";
+281 PRINT PE$;
 282 INPUT CT$
 283 PRINT
 290 PRINT "YOU'VE SAVED $700 TO SPEND FOR"
 291 PRINT "THE TRIP. YOU WILL NEED TO"
 292 PRINT "PURCHASE THE FOLLOWING"
 293 PRINT "SUPPLIES:"
 299 PRINT
-340 PRINT "  * OXEN - (SPEND $200-$300)"
+340 PRINT "  * OXEN (SPEND $200-$300)"
 380 PRINT "  * FOOD"
 410 PRINT "  * AMMUNITION"
 450 PRINT "  * CLOTHING" 
 490 PRINT "  * MISC. SUPPLIES"
 530 PRINT
-531 PRINT "PRESS <ENTER> TO CONTINUE";
+531 PRINT PE$;
 532 INPUT CT$
 533 PRINT
 540 PRINT "YOU CAN SPEND ALL YOUR MONEY"
 541 PRINT "NOW, OR SAVE SOME FOR ALONG"
 542 PRINT "THE WAY"
 550 PRINT
-551 PRINT "PRESS <ENTER> TO CONTINUE";
+551 PRINT PE$;
 552 INPUT CT$
 553 PRINT
 239 REM T "1234567890123456789012345678901"
@@ -48,7 +49,7 @@
 593 PRINT "LIKE A GUNSHOT) AND PRESS"
 594 PRINT "<ENTER> IN ORDER TO FIRE"
 630 PRINT
-631 PRINT "PRESS <ENTER> TO CONTINUE";
+631 PRINT PE$;
 632 INPUT CT$
 633 D9=1
 770 IF D9>5 THEN 790
@@ -104,7 +105,7 @@
 1220 GOTO 1750
 1230 IF M >= 2040 THEN 5430
 1241 PRINT
-1242 PRINT "PRESS <ENTER> TO CONTINUE";
+1242 PRINT PE$;
 1243 INPUT CT$
 1244 PRINT
 1250 D3=D3+1
@@ -486,6 +487,9 @@
 5150 GOTO 5170
 5160 PRINT "INJURIES..."
 5170 PRINT
+5171 PRINT PE$;
+5172 INPUT CT$
+5173 PRINT
 5310 PRINT "DEAR INTREPID TRAVELER,"
 5320 PRINT
 5331 PRINT "WE ARE DEEPLY SADDENED THAT"
@@ -505,7 +509,7 @@
 5471 PRINT "CITY AFTER 2040 LONG MILES,"
 5480 PRINT "HOORAY!!!!! A REAL PIONEER!"
 5500 PRINT
-5501 PRINT "PRESS <ENTER> TO CONTINUE";
+5501 PRINT PE$;
 5502 INPUT CT$
 5503 PRINT
 5510 F9=INT(F9*14)
@@ -514,41 +518,41 @@
 5540 IF F9<8 THEN 5560
 5550 F9=F9-7
 5560 ON F9 GOTO 5570,5590,5610,5630,5650,5670,5690
-5570 PRINT "MONDAY ";
+5570 PRINT "MON ";
 5580 GOTO 5700
-5590 PRINT "TUESDAY ";
+5590 PRINT "TUE ";
 5600 GOTO 5700
-5610 PRINT "WEDNESDAY ";
+5610 PRINT "WED ";
 5620 GOTO 5700
-5630 PRINT "THURSDAY ";
+5630 PRINT "THU ";
 5640 GOTO 5700
-5650 PRINT "FRIDAY ";
+5650 PRINT "FRI ";
 5660 GOTO 5700
-5670 PRINT "SATURDAY ";
+5670 PRINT "SAT ";
 5680 GOTO 5700
-5690 PRINT "SUNDAY ";
+5690 PRINT "SUN ";
 5700 IF D3>124 THEN 5740
 5710 D3=D3-93
-5720 PRINT "JULY ";D3;" 1847"
+5720 PRINT "JUL ";D3;" 1847"
 5730 GOTO 5920
 5740 IF D3>155 THEN 5780
 5750 D3=D3-124
-5760 PRINT "AUGUST ";D3;" 1847"
+5760 PRINT "AUG ";D3;" 1847"
 5770 GOTO 5920
 5780 IF D3>185 THEN 5820
 5790 D3=D3-155
-5800 PRINT "SEPTEMBER ";D3;" 1847"
+5800 PRINT "SEP ";D3;" 1847"
 5810 GOTO 5920
 5820 IF D3>216 THEN 5860
 5830 D3=D3-185
-5840 PRINT "OCTOBER ";D3;" 1847"
+5840 PRINT "OCT ";D3;" 1847"
 5850 GOTO 5920
 5860 IF D3>246 THEN 5900
 5870 D3=D3-216
-5880 PRINT "NOVEMBER ";D3;" 1847"
+5880 PRINT "NOV ";D3;" 1847"
 5890 GOTO 5920
 5900 D3=D3-246
-5910 PRINT "DECEMBER ";D3;" 1847"
+5910 PRINT "DEC ";D3;" 1847"
 5920 PRINT
 5940 IF B>0 THEN 5960
 5950 B=0