Big batch of fixes (#7)

* Update BATTLE.BAS * Update BINGO.BAS * Update BINGO.BAS Aligned formatting with original program. * Update BLKJAC.BAS * Update BLKJAC.BAS Align formatting with original program. * Update BLKJAK.BAS * Update BLKJAK.BAS GOSUB-->GOTO on line 115 * Update BOAT.BAS My most difficult transcription so far. It's challenging to figure out the exact shapes of the right edges of the boat due to the printing errors; thankfully, the sample run provides proof of the shapes of two of the four possible bodies of the boat (1st and 3rd). The rest however have to be determined with educated guesses, unless a better source can be found, however, I couldn't find any. The book doesn't show how long the top row of the 4th boat body is, only how many Es it has at minimum, so it can just be left as is. As for the 2nd boat body, although there is no direct evidence of the shape, I argue that the best choice is to add one more E to the top row, because: - It evens out the spacing of the edge of the boat, which makes sense from an aesthetic perspective - With this change, the 2nd body shares the same edge shape with the 1st body, whereas as it currently is, it doesn't share the shape with any other body. This makes the art more consistent (although it isn't very consistent elsewhere). The rest of the changes were just basic transcription error fixes. * Update BOAT.BAS Fixed the ASCII art + a couple other minor fixes * Update BOMBER.BAS I don't know why there is a colon on line 370, but that's definitely a colon. * Update BOMBER.BAS Formatting + spelling fixes * Update BOUNCE.BAS * Update BOUNCE.BAS Align formatting with original program. * Update BOWL.BAS * Update BOWL.BAS Align formatting with original program. * Update BUG.BAS * Update BUG.BAS Aligned formatting and strings with original program. Although I don't know whether "HARRISON JR. SR. HIGH SCHOOL" is a real school or an error. * Update BULCOW.BAS * Update BULEYE.BAS * Update BULEYE.BAS Match strings with original program * Update BULL.BAS * Update BULL.BAS Aligned formatting and wording with original program. * Update BUNNY.ASC Restored the mistakes of the original art. * Update CALNDR.BAS * Update CALNDR.BAS Align formatting with original program. * Update CAN-AM.BAS This one is tough to figure out because O's and zeros look identical on the font that this was printed out on, and my inability to immediately test the program. I have reason to believe those are Os instead of 0s on lines 850 and 860, since both O9 and O1 are variables, and the numbers 1 and 9 are not typed like this anywhere else in the program as far as I know. There are many lines where a zero could be mistaken for an O and vice versa due to the font (for example lines 980 and 990), and honestly I'm not familiar enough with neither the program not this specific dialect, so I'm just trusting that they're zeros because there doesn't seem to be a variable called just "O". For line 1130, I'm leaning more towards the second L being faded out rather than it being a typo, due to: - The spelling being pristine everywhere else in the program - Switching an L for a second space bar press would be an odd typo to make - The first L lacks the "hook", hinting at the section being faded out But honestly, it's your call whether you think it's faded or not. Line 1780 is a complete mystery to me, because 1E is not a variable in the program, and I'm not aware of "LE" being a keyword of any kind. Maybe just a typo, but I doubt it. Everything else is standard fixes. * Update CHANGE.BAS * Update CHANGE.BAS * Update CHECKR.BAS * Update CHECKR.BAS Align formatting with original program. * Update CHIEF.BAS * Update CHIEF.BAS Aligned everything with original program (including missing comma on line 50) * Update CHOMP.BAS * Update CHOMP.BAS Aligned strings with original program * Update CIVILW.BAS Single spelling error fix. * Update CIVILW.BAS
2025-09-23 22:44:10 -04:00 · 2025-03-09 08:59:23 +02:00
parent 1235aa1a59
commit e899ba75c4
36 changed files with 226 additions and 224 deletions
--- a/dec/BATTLE.BAS
+++ b/dec/BATTLE.BAS
@@ -6,9 +6,9 @@
 60  FOR I=1 TO 3
 70  N=4-I
 80  FOR J=1 TO 2
-90  A=INT(6*RND(0)+1)
-100  B=INT(6*RND(0)+1)
-110  D=INT(4*RND(0)+1)
+90  A=INT(6*RND(0))+1
+100  B=INT(6*RND(0))+1
+110  D=INT(4*RND(0))+1
 120  IF F[A,B]>0 THEN 90
 130  M=0
 140  GOTO D OF 150,340,550,740
--- a/dec/BLKJAC.BAS
+++ b/dec/BLKJAC.BAS
@@ -106,7 +106,7 @@
 550   GOTO 570
 555    LET W1=W1-W/2
 560   PRINT
-565   PRINT"YOU LOST $"W/2" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK"
+565   PRINT"YOU LOST $"W/2;" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK"
 570   IF T(1)<>21 THEN 605
 575   PRINT
 580   PRINT"**I HAVE BLACKJACK**"
--- a/dec/BLKJAK.BAS
+++ b/dec/BLKJAK.BAS
@@ -27,7 +27,7 @@
 106 GOSUB 780
 110 P2=I
 112 PRINT "YOUR SECOND CARD IS "CHR$(L)
-115 GOSUB 200
+115 GOTO 200
 117 PRINT "YOU HAVE "P3" SHOWING."
 119 GOSUB 760
 120 P3=P3+I
--- a/dec/BOAT.BAS
+++ b/dec/BOAT.BAS
@@ -91,15 +91,15 @@
 820PRINT"             EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE  O  EEEEEEEEE/"
 830PRINT"      *       EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
 840 GO TO 610
- 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/"
+ 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/"
 860PRINT"  EEEEEEEEEEE          EEEEEEEEEEEEEEEEEEEEEEEEEE  0   EEEEEE/"
 870PRINT"   \EEEEEE        *      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
 880 GO TO 650
 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/"
- 900PRINT"  EEEEEEEEEEEEEEEEEE                        EEEEE   O   EEEEE/"
- 910PRINT"   \EEEEEEEEEEEEEE                         EEEEEEEEEEEEEEEE/"
+ 900PRINT"  EEEEEEEEEEEEEEEEEE                        EEEEE    O   EEEEEE/"
+ 910PRINT"  \EEEEEEEEEEEEEEE                         EEEEEEEEEEEEEEEE/"
 920 GO TO 610
- 930PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE................../EEEEEEEEEEEEEEEEEE/"
+ 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/"
 950PRINT"  EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
 960PRINT"   \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE       *"
 970 GO TO 650
--- a/dec/BOMBER.BAS
+++ b/dec/BOMBER.BAS
@@ -10,11 +10,11 @@
 80 PRINT "BE CAREFUL!!!"\GOTO 280
 90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
 110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G
-120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN..."\GOTO 110
+120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN...."\GOTO 110
 125 PRINT\ON G GOTO 130,150,170,190
 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
 140 GOTO 280
-150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
+150 PRINT "YOU'RE DROPPING THE A-BOMB ON HIROSHIMA."
 160 GOTO 280
 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
 180 GOTO 280
@@ -22,7 +22,7 @@
 195 GOTO 280
 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
 205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$
-207 IF F$="N" THEN S=0\GOTO 358
+208 IF F$="N" THEN S=0\GOTO 358
 210 PRINT\IF RND>.65 THEN 325 ELSE 380
 220 PRINT "A NAZI, EH?  OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
 230 INPUT"OR FRANCE(3)";M\IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??"\GOTO 220
@@ -33,7 +33,7 @@
 270 PRINT "NEARING VERSAILLES.  DUCK SOUP.  THEY'RE NEARLY DEFENSELESS."
 280 PRINT
 285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D
-290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES..."
+290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES...."
 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.  NOW THEN,"\GOTO 285
 300 PRINT\IF D<100 THEN 310 ELSE PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
 310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?"
@@ -44,11 +44,11 @@
 340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R
 345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN...."\GOTO 340
 350 PRINT\IF R=2 THEN 360
-355 INPUT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S
-358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
+355 INPUT "WHAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO 50)";S
+358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...."\PRINT\GOTO 380
 360 PRINT\IF R>1 THEN T=35
 365 IF S+T>100*RND THEN 380
-370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
+370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!":GOTO 390
 380 PRINT "* * * * * BOOM * * * * *"
 384 PRINT "YOU HAVE BEEN SHOT DOWN......."
 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."
--- a/dec/BUG.BAS
+++ b/dec/BUG.BAS
@@ -1,5 +1,5 @@
 10  REM BRIAN MONTE LEIBOWITZ GRADE 7
-20  REM HARRISON JR. HIGH SCHOOL
+20  REM HARRISON JR. SR. HIGH SCHOOL
 30  REM HARRISON N.Y.
 40  DIM Z$[3]
 50  A=B=H=L=N=P=Q=R=S=T=U=V=Y=0
@@ -28,7 +28,7 @@
 280  PRINT
 290  PRINT
 300  IF Y>0 THEN 2480
-310  Z=INT(6*RND(0)+1)
+310  LET Z=INT(6*RND(0)+1)
 320  C=1
 330  PRINT "YOU ROLLED A "Z
 340  GOTO Z OF 350,430,540,650,760,870
@@ -208,7 +208,7 @@
 2080  FOR Z=1 TO 4
 2090  PRINT
 2100  NEXT Z
-2110  PRINT "*****MY BUG*****"
+2110  PRINT "******MY BUG*******"
 2120  PRINT
 2130  PRINT
 2140  PRINT
@@ -250,5 +250,5 @@
 2510  PRINT "        H  V  H"
 2520  PRINT "        HHHHHHH"
 2530  RETURN
-2540  PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!"
+2540  PRINT "I HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON !!!"
 2550  END
--- a/dec/BULCOW.BAS
+++ b/dec/BULCOW.BAS
@@ -56,7 +56,7 @@
 455 LETJ=J+1
 460 FORI=0TO4:LETD(J,I)=G(I):NEXTI
 465 RETURN
-500 PRINT:PRINT:PRINT"           BRADFORD UNIVERSITY BULLS AND COW GAME
+500 PRINT:PRINT:PRINT"           BRADFORD UNIVERSITY BULLS AND COWS GAME
 "
 510 GOTO10
 999 END
--- a/dec/BULEYE.BAS
+++ b/dec/BULEYE.BAS
@@ -5,17 +5,17 @@
 50 PRINT "TO GET 200 POINTS."\PRINT
 60 PRINT "THROW","DESCRIPTION",,"PROBABLE SCORE"
 70 PRINT "  1","FAST OVERARM",,"BULLSEYE OR COMPLETE MISS"
-80 PRINT "  2","CONTROLLED OVERARM","10, 20 OR 30 POINTS"
+80 PRINT "  2","CONTROLLED OVERARM","10, 20, OR 30 POINTS"
 90 PRINT "  3","UNDERARM",,"ANYTHING"\PRINT
 100 DIM A$(20),S(20),W(10)\R,M=0\S(I)=0 FOR I=1 TO 20
 110 INPUT "HOW MANY PLAYERS";N\PRINT
 120 FOR I=1 TO N
-130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I)
+130 PRINT "NAME OF PLAYER"I;\INPUT A$(I)
 140 NEXT I
 150 R=R+1\PRINT\PRINT "ROUND"R
 160 FOR I=1 TO N
 170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
-180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!"\GOTO 170
+180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3"\GOTO 170
 190 ON T GOTO 200,210,220
 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230
--- a/dec/BULL.BAS
+++ b/dec/BULL.BAS
@@ -95,7 +95,7 @@
 1050 LET D(4)=0
 1060 GOTO 1310
 1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE"
-1080 ON FNA(0) GOTO 1090,1110
+1080 ON FNA(0) THEN 1090,1110
 1090 LET D(4)=2
 1100 GOTO 660
 1110 PRINT"YOU ARE GORED AGAIN"
@@ -106,7 +106,7 @@
 1160 INPUT H
 1170 IF H=4 THEN 1230
 1180 IF H=5 THEN 1230
-1190 PRINT"YOU PANICKED. THE BULL GORED YOU."
+1210 PRINT"YOU PANICKED. THE BULL GORED YOU."
 1220 GOTO 970
 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
 1240 IF J=4 THEN 1290
@@ -178,9 +178,9 @@
 1910 RETURN
 1920 DEF FNA(K)=INT(RND(0)*2)+1
 1930 INPUT A$
-1940 IF A$="YES" THEN 1990
-1950 IF A$="NO" THEN 2010
-1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'";
+1950 IF A$="YES" THEN 1990
+1960 IF A$="NO" THEN 2010
+1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'";
 1980 GOTO 1930
 1990 LET Z1=1
 2000 GOTO 2020
--- a/dec/BUNNY.ASC
+++ b/dec/BUNNY.ASC
@@ -1,8 +1,8 @@
 UN
-BUN                                          BUNNYB
+BUN                                          NNYBUN
 BUNNYB                                     NYBUNNYBUN
 BUNNYBUN                                 UNNYBUNNYBUN
- UNNYBUNNY                           NNYBUNNYBUNNYB
+ UNNYBUNNY                           NYBUNNYBUNNYBU
  NNYBUNNYBU                        UNNYBUNNYBUNNYB
   NYBUNNYBUNN                    YBUNNYBUNNYBUNNY
    YBUNNYBUNNY                 NNYBUNNYBUNNYBUNN
--- a/dec/CALNDR.BAS
+++ b/dec/CALNDR.BAS
@@ -1,4 +1,4 @@
-100 REM     VALUES FOR 1973; SEE NOTES
+100 REM:  VALUES FOR 1973; SEE NOTES
 110 '
 120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
 130 D=-1     '1973 STARTS ON MON.  [0=SUN.,-1=MON.,-2=TUE...]
--- a/dec/CAN-AM.BAS
+++ b/dec/CAN-AM.BAS
@@ -18,7 +18,7 @@
 270 '
 280 ' TO RACE FRIENDS, TYPE:
 290 '
-300 '    /OLD CAN-AM***/LINK <KEYORD>,N
+300 '    /OLD CAN-AM***/LINK <KEYWORD>,N
 310 '
 320 ' REPLACE <KEYWORD> WITH ANY WORD OF LENGTH 1 THROUGH 8 INCLUSIVE
 330 ' THAT YOU CHOOSE.  REPLACE N WITH THE NUMBER OF PLAYERS COUNTING
@@ -42,7 +42,7 @@
 510 ' WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TM009 WHICH IS
 520 ' AVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA),
 530 ' KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE
-540 ' (630) 646-2643.
+540 ' (603) 646-2643.
 550 '
 560 ' EXPLANATION OF CHANGES--
 570 '    12/27/72--TO REWORD INSTRUCTIONS.
@@ -73,8 +73,8 @@
 820 MAT READ M$(3)                      'READ NAMES OF TYPES OF ROADWAY
 830 READ X$                             'DEATH MESSAGE
 840 INPUT A$                            'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING?
-850 IF A$>"09" THEN 890                 'IF BETWEEN 01 AND 09, THEN MULTI-TERMINAL
-860 IF A$<"01" THEN 890
+850 IF A$>"O9" THEN 890                 'IF BETWEEN O1 AND O9, THEN MULTI-TERMINAL
+860 IF A$<"O1" THEN 890
 870 LET O9=VAL(A$)
 880 GOTO 960
 890 LET O$=""                           'SET THINGS UP FOR SINGLE TERMINAL
@@ -101,13 +101,13 @@
 1100 IF A$="NO" THEN 2290
 1110 LET F2=INT(RND*10)+6
 1120 FOR A=0 TO O9                       'ASSIGN NUMBERS AND ADHESION FACTORS
-1130      PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WEL  YOUR CAR GRIPS THE ROAD
+1130      PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WELL YOUR CAR GRIPS THE ROAD
 1140      LET A(A)=RND*.05+.05
 1150      PRINT O$(A);"ADHESION FACTOR";A(A)*100-5;".  (THE LOWER THE BETTER)"
 1160 NEXT A
 1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH.  TO SEE STANDINGS INPUT"
 1180 PRINT "0 AS YOUR SPEED"
-1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63+SGN(O9));O$; 'PRINT ? IF  ULT-TERM, OTHERWISE DON'T
+1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; 'PRINT ? IF  ULT-TERM, OTHERWISE DON'T
 1200 MAT INPUT A$
 1210 PRINT O$(10);
 1220 LET A$=A$(NUM)
@@ -127,12 +127,12 @@
 1360 PRINT "^H";TAB(22);"I"
 1370 PRINT "^";TAB(22);"I"
 1380 PRINT "^";TAB(21);"4I"
-1390 PRINT "^";TAB(16);"------/"
+1390 PRINT "^";TAB(16);"______/"
 1400 PRINT"^8";TAB(15);"(5 E"
 1410 PRINT "^";TAB(16);"\"
 1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\"
 1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I"
-1440 PRINT"  \-------------------------/"
+1440 PRINT"  \_________________________/"
 1450 LET N=RND*3+1
 1460 PRINT"
     NOTE:  THIS IS A";INT(N);"LAP RACE."
@@ -181,7 +181,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 1870      GOTO 1890
 1880      PRINT"GUY #";F2*(Z+1)+Z;
 1890      IF D(Z)=0 THEN 1950
-1900      PRINT" IS LOOKIN' AT THEN PEARLY GATES."
+1900      PRINT" IS LOOKIN' AT THEM PEARLY GATES."
 1910      IF O9=0 THEN 1990
 1920      PRINT O$(Z);"TELL ST. LUCIFER NOT TO EXPECT ME, O.K.?"
 1930      PRINT O$(10);
@@ -221,11 +221,13 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 2270 LET A$="YES"
 2280 RETURN
 2290 STOP
-2300                                    'CONTROL FUNCTION
+2300                                    '------- --------
+
+
 2310 DEF FNA(A$,R,B,C,D)                'KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH
 2320                                    'ASC(LETTER FOLLOWING KIND OF TRACK)
 2330 IF G1=1 THEN 4250                  'ALL DEAD?
-2340 GOSUB 2800                         'GET SOME HAZARD (IE RAIN, OIL)
+2340 GOSUB 2800                         'GET SOME HAZARDS (IE RAIN, OIL)
 2350 GOSUB 3220                         'GET EVERYONE'S SPEED
 2360 FOR G=0 TO O9                      'CHECK FOR SAFE SPEEDS
 2370      IF D(G)=1 THEN 2780
@@ -253,7 +255,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 2590           LET Z2=T(G)-T(X4)
 2600           IF SGN(Z2)<>-SGN(Z1) THEN 2650
 2610           IF SGN(Z2)=1 THEN 2640
-2620           PRINT "YOU PASSED ";Q$(X4)
+2620           PRINT "YOU JUST PASSED ";Q$(X4)
 2630           GOTO 2650
 2640           PRINT Q$(X4);" JUST PASSED YOU"
 2650      NEXT X4
@@ -271,7 +273,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 2770      NEXT X4
 2780 NEXT G                             'PROCEED TO THE FATE OF THE NEXT VICTIM
 2790 GOTO 4250                          'NO MORE VICTIMS.  (THIS TIME!!)
-2900 REM HAZARDS
+2800 REM HAZARDS
 2810 PRINT O$(10);
 2820 LET E=0                            'MAKE SURE WE DON'T USE LAST SECTION'S OIL ON THIS SECTION
 2830 MAT L=ZER                          'KILL PIT STOPS FROM LAST TIME
@@ -290,7 +292,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 2960 GOTO 3130
 2970 IF F3=1 THEN 3130                  'HAVE WE HAD RAIN?
 2980 IF RND>.025+G8 THEN 3130           'SEE IF IT SHOULD BE STOPPED OR STARTED
-2990 IF A(0)<.1 THEN 3080               'IS IT RAINING
+2990 IF A(0)<.1 THEN 3080               'IS IT RAINING?
 3000 IF RND>.5 THEN 3130                'STOP IT?
 3010 PRINT "GLORY BE, THE RAIN HAS STOPPED!  BUT REMEMBER IT IS STILL WET"
 3020 LET F3=1                           'RAIN, RAIN, GO AWAY, WON'T COME BACK ANOTHER DAY
@@ -319,7 +321,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 3250 PRINT A$;" ";CHR$(D);
 3260 GOTO 3280
 3270 PRINT O$(10);A$;" ";CHR$(D);": ";O$;
-3280 LET S(O)=0                         'GET EVERYBODY'S SPEEDS
+3280 LET S(0)=0                         'GET EVERYBODY'S SPEEDS
 3290 FOR A=0 TO O9
 3300      IF D(A)=0 THEN 3330
 3310      PRINT O$(A)                   'IF HE'S DEAD, DON'T GIVE HIM A CHANCE TO INPUT
@@ -331,7 +333,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 3370 LET S=J(2)
 3380 GOTO 3410
 3390 LET S=J(1)
-3400 LET N=O
+3400 LET N=0
 3410 IF D(N)=0 THEN 3450                'IS THE GUY DEAD?
 3420 PRINT O$(N);"BUT I THOUGHT YOU WERE DEAD." 'RE-INFORM HIM THAT HE IS AN UN-PERSON
 3430 PRINT O$;
@@ -344,7 +346,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 3500 IF O9=0 THEN 3600
 3510 IF S<1000 THEN 3600
 3520 LET R4=(S-1000-F2)/(F2+1)          'IT'S OK.  HE ONLY WANTS TO DRAFT
-3530 IF R4=INT(R4) THEN 3560            'NOW SEE IF HE PIKED A LEGAL CAR
+3530 IF R4=INT(R4) THEN 3560            'NOW SEE IF HE PICKED A LEGAL CAR
 3540 PRINT O$(N);"ILLEGAL CAR"          'HE DIDN'T
 3550 GOTO 3640
 3560 IF R4>O9 THEN 3540
@@ -370,7 +372,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 3760 IF O9>0 THEN 3890                  'SET SPEEDS FOR AUTO-PILOTS
 3770 FOR F0=1 TO 3
 3780      IF D(F0)=1 THEN 3870
-3790      LET S+R*B/(B+.1+E+G8)+(RND*3+Q(F0))
+3790      LET S=R*B/(B+.1+E+G8)+(RND*3+Q(F0))
 3800      IF (B+.1+G8+E)*S/B<=R THEN 3850
 3810      LET D(F0)=1
 3820      PRINT O$(10);Q$(F0);" JUST WIPED" 'AND INFORM US IF THEY WIPE
@@ -387,7 +389,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 3930      LET H(X2)=H(H(X2))
 3940      GOTO 3920
 3950      LET S(X2)=S(H(X2))            'SET HIS SPEED TO HIS DRAFTEES, AND
-3960      LET T(X2)=(T(X2)+T(H(X2)))/2  'HALVE THE DISTANCE BETWENN THEM
+3960      LET T(X2)=(T(X2)+T(H(X2)))/2  'HALVE THE DISTANCE BETWEEN THEM
 3970 NEXT X2
 3980 RETURN                             'NOW GO COUNT SURVIVORS AND INCREMENT TIMES
 3990 REM PLACING
@@ -414,7 +416,7 @@ GENTLEMEN, START YOUR ENGINES!  THE GREEN GOES DOWN AND"
 4200 NEXT G
 4210 PRINT"
 YOU'VE TAKEN";T(A);"SECONDS." 'MORE BAD NEWS
-4220 RETURN                             'AND AN ANTICLIMACTIC ENDING.  (STOLEN FROM SPIEL*** AND SPACEWAR)
+4220 RETURN                             'AND AN ANTI-CLIMACTIC ENDING.  (STOLEN FROM SPIEL*** AND SPACEWAR)
 4230 PRINT O$(10);"GUY#";F2*(G+1)+G;", THE LAST OF THE GREAT RACERS, JUST WIPED."
 4240 LET G1=1                           'ALL HUMANS ARE DEAD, SO GRIND THIS MANGLE TO A HALT, AND SET A FLAG TO THAT EFFECT
 4250 FNEND                              'AND RETURN FROM WHENCE WE CAME
--- a/dec/CHANGE.BAS
+++ b/dec/CHANGE.BAS
@@ -9,7 +9,7 @@
 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155
 150 PRINT D;"TEN DOLLAR BILL(S)"
 155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185
-180 PRINT E;"FIVE DOLLARS BILL(S)"
+180 PRINT E;"FIVE DOLLAR BILL(S)"
 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215
 210 PRINT F;"ONE DOLLAR BILL(S)"
 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255
--- a/dec/CHIEF.BAS
+++ b/dec/CHIEF.BAS
@@ -2,7 +2,7 @@
 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
 30 INPUT A$
 40 IF A$= "YES" THEN 60
-50 PRINT "SHUT UP, PALEFACE WITH WISE TOUNGE."
+50 PRINT "SHUT UP PALEFACE WITH WISE TOUNGE."
 60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
 80 PRINT "WHAT DO YOU HAVE";
@@ -45,5 +45,5 @@
 450 PRINT\PRINT "##################################"\PRINT
 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
 480 GOTO 520
-510 PRINT "BYE!!!"
+510 PRINT "BYE!!!!!"
 520 END
--- a/dec/CHOMP.BAS
+++ b/dec/CHOMP.BAS
@@ -95,7 +95,7 @@
 1000 REM  END OF GAME DETECTED IN LINE 900
 1010 PRINT "YOU LOSE, PLAYER ";P1
 1020 PRINT
-1030 PRINT "AGAIN (1=YES, 0=NO!)";
+1030 PRINT "AGAIN (1=YES; 0=NO!)";
 1040 INPUT R
 1050 IF R=1 THEN 340
 1060 END
--- a/dec/CIVILW.BAS
+++ b/dec/CIVILW.BAS
@@ -233,7 +233,7 @@
 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES."
 1515 IF Y=5 THEN 1550
 1520 IF W<=L THEN 1550
-1530 PRINT "THE CONFIDERACY HAS WON THE WAR"
+1530 PRINT "THE CONFEDERACY HAS WON THE WAR"
 1540 STOP
 1550 PRINT "THE UNION HAS WON THE WAR"
 1560 END
--- a/port/BLKJAC.BAS
+++ b/port/BLKJAC.BAS
@@ -106,7 +106,7 @@
 550   GOTO 570
 555    LET W1=W1-W/2
 560   PRINT
- 565   PRINT"YOU LOST $"W/2" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK"
+ 565   PRINT"YOU LOST $"W/2;" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK"
 570   IF T(1)<>21 THEN 605
 575   PRINT
 580   PRINT"**I HAVE BLACKJACK**"
--- a/port/BLKJAK.BAS
+++ b/port/BLKJAK.BAS
@@ -27,7 +27,7 @@
 106 GOSUB 780
 110 P2=I
 112 PRINT "YOUR SECOND CARD IS "CHR$(L)
- 115 GOSUB 200
+ 115 GOTO 200
 117 PRINT "YOU HAVE "P3" SHOWING."
 119 GOSUB 760
 120 P3=P3+I
--- a/port/BOAT.BAS
+++ b/port/BOAT.BAS
@@ -89,15 +89,15 @@
 820PRINT"             EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE  O  EEEEEEEEE/"
 830PRINT"      *       EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
 840 GO TO 610
- 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/"
+ 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/"
 860PRINT"  EEEEEEEEEEE          EEEEEEEEEEEEEEEEEEEEEEEEEE  0   EEEEEE/"
 870PRINT"   \EEEEEE        *      EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
 880 GO TO 650
- 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEEE/"
- 900PRINT"   EEEEEEEEEEEEEEEEE                        EEEEE    O   EEEE/"
- 910PRINT"   \EEEEEEEEEEEEEE                         EEEEEEEEEEEEEEEE/"
+ 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/"
+ 900PRINT"  EEEEEEEEEEEEEEEEEE                        EEEEE    O   EEEEEE/"
+ 910PRINT"  \EEEEEEEEEEEEEEE                         EEEEEEEEEEEEEEEE/"
 920 GO TO 610
- 930PRINT"\EEEEEEEEEEEEEEEEEE\......................./EEEEEEEEEEEEEEEEEE/"
+ 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/"
 950PRINT"  EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
 960PRINT"   \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE       *"
 970 GO TO 650
--- a/port/BOMBER.BAS
+++ b/port/BOMBER.BAS
@@ -14,11 +14,11 @@
  90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280
 110 PRINT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";\INPUT G
 120 IF G<=0 THEN 122\IF G<5 THEN 125
- 122 PRINT "TRY AGAIN..."\GOTO 110
+ 122 PRINT "TRY AGAIN...."\GOTO 110
 125 PRINT\ON G GOTO 130,150,170,190
 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
 140 GOTO 280
- 150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA."
+ 150 PRINT "YOU'RE DROPPING THE A-BOMB ON HIROSHIMA."
 160 GOTO 280
 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
 180 GOTO 280
@@ -26,7 +26,7 @@
 195 GOTO 280
 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
 205 PRINT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";\INPUT F$
- 207 IF F$<>"N" THEN 210\S=0\GOTO 358
+ 208 IF F$<>"N" THEN 210\S=0\GOTO 358
 210 PRINT\IF RND(1)>.65 THEN 325\GOTO 380
 220 PRINT "A NAZI, EH?  OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
 230 PRINT"OR FRANCE(3)";\INPUT M
@@ -39,7 +39,7 @@
 270 PRINT "NEARING VERSAILLES.  DUCK SOUP.  THEY'RE NEARLY DEFENSELESS."
 280 PRINT
 285 PRINT "HOW MANY MISSIONS HAVE YOU FLOWN";\INPUT D
- 290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES..."
+ 290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES...."
 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS.  NOW THEN,"\GOTO 285
 300 PRINT\IF D<100 THEN 310\PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320
 310 IF D>=25 THEN 320\PRINT "FRESH OUT OF TRAINING, EH?"
@@ -52,8 +52,8 @@
 345 IF R<=0 THEN 347\IF R<4 THEN 350
 347 PRINT "TRY AGAIN...."\GOTO 340
 350 PRINT\IF R=2 THEN 360
- 355 PRINT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";\INPUT S
- 358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380
+ 355 PRINT "WHAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO 50)";\INPUT S
+ 358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY...."\PRINT\GOTO 380
 360 PRINT\IF R<=1 THEN 365\T=35
 365 IF S+T>100*RND(1) THEN 380
 370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390
--- a/port/BUG.BAS
+++ b/port/BUG.BAS
@@ -1,5 +1,5 @@
   1 REM BRIAN MONTE LEIBOWITZ GRADE 7
-   2 REM HARRISON JR. HIGH SCHOOL
+   2 REM HARRISON JR. SR. HIGH SCHOOL
   3 REM HARRISON N.Y.
   4 RANDOMIZE
   5 A=0\B=0\H=0\L=0\N=0\P=0\Q=0\R=0\S=0\T=0\U=0\V=0\Y=0
@@ -28,7 +28,7 @@
  28 PRINT
  29 PRINT
  30 IF Y>0 THEN 248
-  31 Z=INT(6*RND(0)+1)
+  31 LET Z=INT(6*RND(0)+1)
  32 C=1
  33 PRINT "YOU ROLLED A "Z
  34 ON Z GOTO 35,43,54,65,76,87
@@ -208,7 +208,7 @@
 208 FOR Z=1 TO 4
 209 PRINT
 210 NEXT Z
- 211 PRINT "*****MY BUG*****"
+ 211 PRINT "******MY BUG*******"
 212 PRINT
 213 PRINT
 214 PRINT
@@ -250,5 +250,5 @@
 251 PRINT "        H  V  H"
 252 PRINT "        HHHHHHH"
 253 RETURN
- 254 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!"
+ 254 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON !!!"
 255 END
--- a/port/BULEYE.BAS
+++ b/port/BULEYE.BAS
@@ -5,18 +5,18 @@
  50 PRINT "TO GET 200 POINTS."\PRINT
  60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE"
  70 PRINT "  1","FAST OVERARM"," ","BULLSEYE OR COMPLETE MISS"
-  80 PRINT "  2","CONTROLLED OVERARM","10, 20 OR 30 POINTS"
+  80 PRINT "  2","CONTROLLED OVERARM","10, 20, OR 30 POINTS"
  90 PRINT "  3","UNDERARM"," ","ANYTHING"\PRINT
 100 DIM A$(20),S(20),W(10)\R=0\M=0\FOR I=1 TO 20\S(I)=0\NEXT I
 110 PRINT "HOW MANY PLAYERS";\INPUT N\PRINT
 120 FOR I=1 TO N
- 130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I)
+ 130 PRINT "NAME OF PLAYER"I;\INPUT A$(I)
 140 NEXT I
 150 R=R+1\PRINT\PRINT "ROUND"R
 160 FOR I=1 TO N
 170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
 180 IF T<0 THEN 185\IF T>3 THEN 185\GOTO 190
- 185 PRINT "INPUT 1, 2, OR 3!"\GOTO 170
+ 185 PRINT "INPUT 1, 2, OR 3"\GOTO 170
 190 ON T GOTO 200,210,220
 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230
--- a/port/BULL.BAS
+++ b/port/BULL.BAS
@@ -106,7 +106,7 @@
 1160 INPUT H
 1170 IF H=4 THEN 1230
 1180 IF H=5 THEN 1230
-1190 PRINT"YOU PANICKED. THE BULL GORED YOU."
+1210 PRINT"YOU PANICKED. THE BULL GORED YOU."
 1220 GOTO 970
 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
 1240 IF J=4 THEN 1290
@@ -178,9 +178,9 @@
 1910 RETURN
 1920 DEF FNA(K)=INT(RND(0)*2)+1
 1930 INPUT A$
-1940 IF A$="YES" THEN 1990
-1950 IF A$="NO" THEN 2010
-1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'";
+1950 IF A$="YES" THEN 1990
+1960 IF A$="NO" THEN 2010
+1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'";
 1980 GOTO 1930
 1990 LET Z1=1
 2000 GOTO 2020
--- a/port/CALNDR.BAS
+++ b/port/CALNDR.BAS
@@ -1,4 +1,4 @@
- 100 REM     VALUES FOR 1973; SEE NOTES
+ 100 REM:  VALUES FOR 1973; SEE NOTES
 110 '
 120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I
 130 D=-1     '1973 STARTS ON MON.  [0=SUN.,-1=MON.,-2=TUE...]
--- a/port/CHANGE.BAS
+++ b/port/CHANGE.BAS
@@ -9,7 +9,7 @@
 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155
 150 PRINT D;"TEN DOLLAR BILL(S)"
 155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185
- 180 PRINT E;"FIVE DOLLARS BILL(S)"
+ 180 PRINT E;"FIVE DOLLAR BILL(S)"
 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215
 210 PRINT F;"ONE DOLLAR BILL(S)"
 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255
--- a/port/CHIEF.BAS
+++ b/port/CHIEF.BAS
@@ -2,7 +2,7 @@
  20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
  30 INPUT A$
  40 IF A$= "YES" THEN 60
-  50 PRINT "SHUT UP, PALEFACE WITH WISE TONGUE."
+  50 PRINT "SHUT UP PALEFACE WITH WISE TONGUE."
  60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND"
  70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
  80 PRINT "WHAT DO YOU HAVE";
@@ -45,5 +45,5 @@
 450 PRINT\PRINT "##################################"\PRINT
 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
 480 GOTO 520
- 510 PRINT "BYE!!!"
+ 510 PRINT "BYE!!!!!"
 520 END
--- a/port/CHOMP.BAS
+++ b/port/CHOMP.BAS
@@ -95,7 +95,7 @@
 1000 REM  END OF GAME DETECTED IN LINE 900
 1010 PRINT "YOU LOSE, PLAYER ";P1
 1020 PRINT
-1030 PRINT "AGAIN (1=YES, 0=NO!)";
+1030 PRINT "AGAIN (1=YES; 0=NO!)";
 1040 INPUT R
 1050 IF R=1 THEN 340
 1060 END
--- a/port/CIVILW.BAS
+++ b/port/CIVILW.BAS
@@ -234,7 +234,7 @@
 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES."
 1515 IF Y=5 THEN 1550
 1520 IF W<=L THEN 1550
-1530 PRINT "THE CONFIDERACY HAS WON THE WAR"
+1530 PRINT "THE CONFEDERACY HAS WON THE WAR"
 1540 STOP
 1550 PRINT "THE UNION HAS WON THE WAR"
 1560 END