Biggest batch of fixes (#8)

* Update CRAPS.BAS

* Update CRAPS.BAS

Aligned with original listing

* Update CUBE.BAS

* Update CUBE.BAS

* Update DICE.BAS

* Update DICE.BAS

Very minor change to align more closely with original listing.

* Update DIGITS.BAS

* Update DIGITS.BAS

* Update DIGITS.BAS

* Update DOGS.BAS

* Update DOGS.BAS

Aligned with original program. I chose to not include the lack of dollar sign on line 315, due to it being present on line 300, thus making it most likely a typo, even though it's not necessarily objectively "wrong".

* Update EVEN.BAS

* Update EVEN.BAS

Aligned with original program. Using "O" on line 450 seems to work since undefined variables default to zero

* Update EVEN1.BAS

* Update EVEN1.BAS

* Update FIPFOP.BAS

* Update FIPFOP.BAS

* Update FIPFOP.BAS

* Update FOOTBL.BAS

Fixed a couple of bugs and typos. Transcription accuracy confirmed through https://bitsavers.org/pdp-11.trailing-edge.com/rsts11/rsts-11-013/FOOTBL.BAS

* Update FOOTBL.BAS

* Update FOTBAL.BAS

Bug fixed on line 1035 with the arrow pointing the wrong way, plus other typos.

* Update FOTBAL.BAS

Bug on line 1035 fixed + alignment with original listing

* Update FURS.BAS

* Update FURS.BAS

* Update GOMOKO.BAS

* Update GOMOKO.BAS

* Update GUESS.BAS

* Update GUESS.BAS

* Update GUNER1.BAS

On line 220, it looks to be a comma instead of a period.

* Update GUNER1.BAS

* Update HANG.BAS

* Update HANG.BAS

* Update HANG.BAS

* Update HELLO.BAS

* Update HELLO.BAS

Same changes as dec/, except for encyclopaedia.

* Update HI-Q.BAS

* Update HI-Q.BAS

* Update HMRABI.BAS

* Update HOCKEY.BAS

Added missing lines.

* Update HOCKEY.BAS

Added missing lines and fixed THEN-line number on line 196. Code is pretty much copy-pasted from the book, but it's compatible with EduSystem 50 BASIC as far as I know.

* Update HOCKEY.BAS

* Update HORSES.BAS

* Update HORSES.BAS

* Update HURKLE.BAS

* Update HURKLE.BAS

* Update HURKLE.BAS

Added a space to the beginning of every line to align with rfivet's original formatting of the port

* Update HURKLE.BAS

* Update KINEMA.BAS

* Update KINEMA.BAS

* Update LIFE.BAS

* Update MUGWMP.BAS

* Update MUGWMP.BAS

* Update MUGWMP.BAS

* Update NICOMA.BAS

* Update NICOMA.BAS

* Update NIM.BAS

* Update NIM.BAS

* Update NUMBER.BAS

* Update NUMBER.BAS

* Update ORBIT.BAS

I am nearly 100% certain that this ASCII art is now accurate, but cannot be bothered to triple-check it any further.

* Update ORBIT.BAS

* Update PIZZA.BAS

* Update PIZZA.BAS

* Update POET.BAS

* Update POETRY.BAS

* Update POETRY.BAS

One more space caught by checking https://bitsavers.org/pdp-11.trailing-edge.com/rsts11/rsts-11-014/POETRY.BAS

* Update POETRY.BAS

* Update POKER.BAS

* Update QUBIC.BAS

* Update QUEEN.BAS

* Update REVRSE.BAS

* Update REVRSE.BAS

* Update ROCKET.BAS

* Update ROCKET.BAS

* Update ROCKSP.BAS

* Update ROCKSP.BAS

* Update ROCKT1.BAS

* Update ROCKT1.BAS

* Update ROCKT2.BAS

* Update ROCKT2.BAS

A direct copy of my fixed transcription in dec/. "Travelling" with two L's is one of the two correct spellings of the word, so there is no need to change it.

* Update ROULET.BAS

* Update RUSROU.BAS

* Update RUSROU.BAS

Copied directly from dec/

* Update SALVO.BAS

* Update SALVO.BAS

* Update SALVO.BAS

Added NOEXTEND back

* Update SALVO1.BAS

* Update SALVO1.BAS

Same file as in dec/. Seems to work on TSS/8.

* Update SLOTS.BAS

* Update SLOTS.BAS

* Update SNOOPY.ASC

ASCII art was accurate, just aligned him to the left side.

* Rename SNOOPY.ASC to SNOPY1.ASC

Renamed to make room for the first ASCII art in the book.

* Create SNOOPY.ASC

Yes, he is very flattened. That's just how it is.

* Update SPLAT.BAS

* Update STARS.BAS

* Update STARS.BAS

* Update SPACWR.BAS

* Update SALVO1.BAS

Copied from LIST to fix formatting.

* Update RUSROU.BAS

Copied from LIST to fix formatting.

* Update ROCKT2.BAS

Copied from LIST to fix formatting.

* Update STOCK.BAS

* Update STOCK.BAS

* Update SYNONM.BAS

* Update SYNONM.BAS

* Update BASKET.BAS

Copied from LIST to fix formatting.

* Update SYNONM.BAS

* Update TARGET.BAS

* Update TARGET.BAS

* Update TICTAC.BAS

* Update TICTAC.BAS

Looking at the sample run in the book, these should be colons, not semicolons.

* Update TOWER.BAS

* Update TRAP.BAS

* Update TRAP.BAS

* Update WAR.BAS

* Update WAR.BAS

* Update WAR-2.BAS

* Update WAR-2.BAS

* Update WORD.BAS

* Update WORD.BAS

* Update YAHTZE.BAS

* Update 1CHECK.BAS

* Update 1CHECK.BAS

* Update HELLO.BAS

Copied from LIST command to fix formatting.

dec/1CHECK.BAS

@@ -11,7 +11,7 @@
 55 PRINT "POSSIBLE JUMPS REMAINING, INPUT A '0' IN RESPONSE TO"
 60 PRINT "QUESTION 'JUMP FROM ?'"
 62 PRINT
-63 PRINT "HERE IS THE NUMERICAL BOARD:"
+65 PRINT "HERE IS THE NUMERICAL BOARD:"
 66 PRINT
 68 DIM A(64)
 70 FOR J=1 TO 57 STEP 8

dec/CRAPS.BAS

@@ -14,9 +14,10 @@
  200 PRINT
  210 LET Z=5*INT(10+11*RND(0))
  215 PRINT "ARE YOU READY";\INPUT B$
- 216 IF B$="YES" THEN 220\IF B$="NO" THEN PRINT "I'LL REPEAT MYSELF THEN."
+ 216 IF B$="YES" THEN 220\IF B$="NO" THEN PRINT "I'LL REPEAT MYSELF THEN
- 217 GOTO 90
+ ."
- 220 PRINT"SPLENDID......YOU ARE GIVEN ";Z;"DOLLARS TO PLAY WITH."
+ 217 GO TO 90
+ 220 PRINT "SPLENDID.....YOU ARE GIVEN ";Z;"DOLLARS TO PLAY WITH."
  230 PRINT
  240 PRINT
  250 IF N-2*INT(N/2)=0 THEN 310
@@ -62,7 +63,7 @@
  650 LET C=1
  660 IF W>0 THEN 690
  670 LET Z=Z+B
- 680 GOTO 770
+ 680 GO TO 770
  690 LET Z=Z-B
  700 GOTO 770
  710 PRINT "AND PASS...."

dec/CUBE.BAS

@@ -8,7 +8,7 @@
 170 PRINT"YOU ARE AUTOMATICALLY AT LOCATION 1,1,1.  THE OBJECT OF"
 180 PRINT"THE GAME IS TO GET TO LOCATION 3,3,3.  ONE MINOR DETAIL,"
 190 PRINT"THE COMPUTER WILL PICK,AT RANDUM,5 LOCATIONS AT  WHICH"
-200 PRINT"IT WILL PLANT LAND MINES. IF YOU HIT ONE OF THESE LOCATIONS,"
+200 PRINT"IT WILL PLANT LAND MINES.  IF YOU HIT ONE OF  THESE LOCATIONS,"
 210 PRINT"YOU LOSE.  ONE OTHER DETAIL, YOU MAY MOVE ONLY ONE SPACE "
 220 PRINT"IN ONE DIRECTION EACH MOVE.  FOR  EXAMPLE: FROM 1,1,2 YOU"
 230 PRINT"MAY  MOVE TO 2,1,2 OR 1,1,3.  YOU MAY NOT CHANGE"
@@ -24,7 +24,7 @@
 330 PRINT"OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH A"
 340 PRINT"500  DOLLAR ACCOUNT."
 350 PRINT
-360 PRINT "GOOD LUCK"
+360 PRINT"GOOD LUCK"
 370 LET A1=500
 380 LET A=INT(3*(RND(X)))
 390 IF A<>0 THEN 410
@@ -143,11 +143,11 @@
 1510 LET A1=Z2
 1520 GO TO 1580
 1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
-1525 GOTO 870
+1525 GO TO 870
 1530 PRINT"CONGRATULATIONS"
-1540 IF Z=0 THEN 1580
+1540 IF Z=0 THEN  1580
 1550  LET Z2=A1+Z1
-1560  PRINT "YOU NOW HAVE"; Z2;"DOLLARS"
+1560  PRINT "YOU NOW  HAVE"; Z2;"DOLLARS"
 1570 LET A1=Z2
 1580 PRINT"DO YOU WANT TO TRY AGAIN?"
 1590 INPUT S

dec/DICE.BAS

@@ -1,4 +1,4 @@
-10 DIM F(12)
+10 DIM F (12)
 20 REM DANNY FREIDUS
 30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
 40 PRINT "PAIR OF DICE."
@@ -11,8 +11,8 @@
 110 PRINT\PRINT "HOW MANY ROLLS";
 120 INPUT X
 130 FOR S=1 TO X
-140 A=INT(6*RND(1)+1)
+140 A=INT(6*RND+1)
-150 B=INT(6*RND(1)+1)
+150 B=INT(6*RND+1)
 160 R=A+B
 170 F(R)=F(R)+1
 180 NEXT S

dec/DIGITS.BAS

@@ -14,7 +14,7 @@
 340 PRINT\PRINT
 360 READ A,B,C
 370 DATA 0,1,3
-380 DIM M(26,2) ,K(2,2), L(8,2)
+380 DIM M(26,2), K(2,2), L(8,2)
 400 MAT M=CON\MAT K=CON
 420 MAT K=(9)*K\MAT L=CON
 440 MAT L=(3)*L

dec/DOGS.BAS

@@ -58,9 +58,9 @@
 295 PRINT\NEXT Z\GOTO 325
 300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
 305 PRINT "YOUR BET";\INPUT P(Z)
-310 GOTO 290
+310 GOTO  290
-315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
+315 PRINT "YOU CAN'T BET OVER 500.00 "N$(Z)" TRY AGAIN"
-320 GOTO 305
+320 GOTO  305
 325 FOR I=1 TO 10
 330 B(11)=B(11)+P(I)
 335 NEXT I
@@ -148,8 +148,8 @@
 745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
 750 PRINT\GOTO  970
 755 RESTORE
-760 FOR E=1 TO Q
+760 FOR E=1 TO  Q
-765 IF G=J(E) THEN     790
+765 IF G=J(E) THEN    790
 770 M5(E)=M5(E)-P(E)
 775 N7=N7+P(E)
 780 NEXT E
@@ -181,7 +181,7 @@
 910 NEXT K\GOSUB  225
 915 PRINT "ANY NEWCOMERS";\INPUT C$
 920 FOR I=1 TO Q
-925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
+925 PRINT N$(I)" YOUR DOGS NUMBER";\INPUT J(I)
 930 PRINT "AND YOUR BET";\INPUT P(I)
 935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
 940 IF C$="NO" THEN 325
@@ -203,11 +203,11 @@
 1020 GOTO 1085
 1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
 1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
-1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO   1025
+1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO  1025
 1040 FOR Z=I TO Q
 1045 PRINT "BETTORS NAME";\INPUT N$(Z)
 1050 PRINT "DOGS NUMBER";\INPUT J(Z)
-1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN   1070
+1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN  1070
 1060 IF P(Z)>500 THEN 1075
 1065 PRINT\NEXT Z\GOTO 325
 1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055

dec/EVEN.BAS

@@ -1,7 +1,7 @@
 1 LET Y1=0
 10 LET M1=0
 20 DIM M(20),Y(20)
-30 PRINT"   THIS IS A TWO PERSON GAME CALLED 'EVEN WINS.'"
+30 PRINT"   THIS IS A TWO-PERSON GAME CALLED 'EVEN WINS.'"
 40 PRINT"TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR"
 50 PRINT"OTHER OBJECTS ON A TABLE."
 60 PRINT
@@ -28,9 +28,9 @@
 270 PRINT"TOTAL =";T
 280 LET M1=M1+M
 290 LET T=T-M
-300 PRINT"I PICK UP";M;"MARBLES."
+300 PRINT"I PICK UP";M;" MARBLES."
 310 IF T=0 THEN 880
-320 PRINT"TOTAL=";T
+320 PRINT"TOTAL =";T
 330 PRINT""
 340 PRINT"   AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS";M1
 350 INPUT Y
@@ -43,7 +43,7 @@
 420 GOTO 350
 430 LET Y1=Y1+Y
 440 LET T=T-Y
-450 IF T=0 THEN 880
+450 IF T=O THEN 880
 460 PRINT"TOTAL =";T
 470 PRINT""
 480 PRINT"   YOUR TOTAL IS ";Y1

dec/EVEN1.BAS

@@ -11,7 +11,7 @@
 11 PRINT "GAME.  IT GRADUALLY LEARNS TO PLAY WELL.  IT SHOULD BE"
 12 PRINT "DIFFICULT TO BEAT THE COMPUTER TWENTY GAMES IN A ROW."
 13 PRINT "TRY IT!!!":PRINT
-14 PRINT "TO QUIT AT ANY TIME, TYPE A '0' AS YOUR MOVE.":PRINT
+14 PRINT "TO QUIT AT ANY TIME, TYPE '0' AS YOUR MOVE.":PRINT
 20 DIM R(1,5):RANDOMIZE
 25 L=0:E=0
 30 FOR I=0 TO 5
@@ -31,7 +31,7 @@
 180 IF M<=0 THEN 370
 190 P=P-M
 200 IF M=1 THEN 510
-210 PRINT "COMPUTER TAKES"M"CHIPS LEAVING"P" ...YOUR MOVE";
+210 PRINT "COMPUTER TAKES"M"CHIPS LEAVING"P"  ...YOUR MOVE";
 220 B=B+M
 230 INPUT M
 240 M=INT(M)

dec/FIPFOP.BAS

@@ -1,5 +1,5 @@
 5  REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
-10 REM *** CREATED BY MICHAEL CASS   HERRICKS HS, NY
+10 REM *** CREATED BY MICHAEL KASS   HERRICKS HS, NY
 20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:"
 30 PRINT
 40 PRINT "X X X X X X X X X X"
@@ -8,7 +8,7 @@
 70 PRINT
 80 PRINT "O O O O O O O O O O"
 90 PRINT
-100 &"BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER"
+100 &"BY TYPING IN THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER"
 120 &"ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON OTHERS, TWO WILL CHANGE"
 140 &"TO RESET THE LINE TO ALL X'S, TYPE 0 (ZERO) AND TO START A NEW"
 160 &"IN THE MIDDLE OF A GAME, TYPE 11 (ELEVEN)"
@@ -25,7 +25,7 @@
 270 FOR X=1 TO 10
 280 LET A$(X)="X"
 290 NEXT X
-300 GOTO 320
+300 GO TO 320
 310 PRINT "ILLEGAL ENTRY--TRY AGAIN"
 320 PRINT "INPUT THE NUMBER";
 330 INPUT N
@@ -42,10 +42,10 @@
 440 LET N=INT(10*N)
 450 IF A$(N)="O" THEN 480
 460 LET A$(N)="O"
-470 GOTO 610
+470 GO TO 610
 480 LET A$(N)="X"
 490 IF M=N THEN 420
-500 GOTO 610
+500 GO TO 610
 510 IF A$(N)="O" THEN 590
 520 LET A$(N)="O"
 530 LET R=.592*COT(Q/N+Q)/SIN(N*2+Q)-COS(N)
@@ -53,10 +53,10 @@
 550 LET N=INT(10*N)
 560 IF A$(N)="O" THEN 590
 570 LET A$(N)="O"
-580 GOTO 610
+580 GO TO 610
 590 LET A$(N)="X"
 600 IF M=N THEN 530
-610 PRINT "1 2 3 4 5 6 7 8 9 10"
+610 PRINT"1 2 3 4 5 6 7 8 9 10"
 620 PRINT A$(Z)" ";FOR Z=1 TO 10
 630 LET C=C+1
 640 PRINT
@@ -65,11 +65,11 @@
 670 NEXT Z
 680 IF C>12 THEN 710
 690 PRINT"VERY GOOD. YOU GUESSED IT IN ONLY "C"GUESSES!!!!"
-700 GOTO 720
+700 GO TO 720
 710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU "C"GUESSES"
-720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE";
+720 PRINT "DO YOU WANT TO DO ANOTHER PUZZLE";
 730 INPUT X$
 740 IF X$="NO" THEN 780
 760 PRINT
-770 GOTO 180
+770 GO TO 180
 780 END

dec/FOOTBL.BAS

@@ -89,7 +89,7 @@
 880 IF C<=0 THEN 2770
 890 IF L=0 THEN 910
 900 PRINT "TIME TO GO--";
-910 PRINT INT(C/60);"MIN.";C-60*INT(C/60);"SEC.  ";
+910 PRINT INT(C/60);"MIN,";C-60*INT(C/60);"SEC.  ";
 920 PRINT "YOUR PLAY";
 930 GOSUB 3610
 940 IF S=1 THEN 980
@@ -150,7 +150,7 @@
 1490 LET C=C-INT(4+Z9/2*(1+RND(0)))
 1500 RETURN
 1510 LET G=-(5+INT(10*RND(X)))
-1520 PRINT "THE QUATERBACK ";
+1520 PRINT "THE QUARTERBACK ";
 1530 IF RND(X)>.5 THEN 1560
 1540 PRINT "IS THROWN FOR A ";
 1550 GOTO 1110
@@ -241,7 +241,7 @@
 2400 IF RND(0)<.15 THEN 2430
 2410 LET G=INT(24*(1-RND(X)^2))
 2420 IF G=0 THEN 2490
-2430 LET B=8+G
+2430 LET B=B+G
 2440 PRINT " AND RUN BACK...";
 2450 LET L=1
 2460 IF B>99 THEN 1650
@@ -256,7 +256,7 @@
 2550 RETURN
 2560 LET M=INT(55*RND(0)/10.5)+1
 2570 IF (B1-B)/(5-D)<3 THEN 2590
-2590 LET M=INT(6-4*RND(0)^2)
+2580 LET M=INT(6-4*RND(0)^2)
 2590 IF L*F*60>=C THEN 2670
 2600 IF D<4 THEN 2550
 2610 PRINT "I'LL ";

dec/FOTBAL.BAS

@@ -19,7 +19,7 @@
 180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT(1770 FOR TEAM 1"
 190 PRINT "1780 FOR TEAM 2)IN WHICH EACH TEAM SCRAMBLES NOS. 1-20"
 195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS."
-200 PRINT "A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH"
+200 PRINT "A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH"
 210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE"
 220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN"
 223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED"
@@ -57,7 +57,7 @@
 580 PRINT C(16+L);TAB(6);"WISHBONE OPTION"
 590 PRINT C(17+L);TAB(6);"SIDELINE PASS"
 600 PRINT C(18+L);TAB(6);"HALF-BACK OPTION"
-610 PRINT C(19+L);TAB(6);"RAZZLE-DAZZLE"
+610 PRINT C(19+L);TAB(6);"RAZZLE DAZZLE"
 620 PRINT C(20+L);TAB(6);"BOMB!!!!!!!!"
 630 L=L+20\T=2
 640 PRINT\PRINT "TEAR OFF HERE -----------------------------------------
@@ -114,7 +114,7 @@
 1015 IF B(P2)<11 THEN 1048
 1020 IF U<>0 THEN 1035\PRINT "PASS INCOMPLETE TEAM"T
 1030 Y=0\GOTO 1050
-1035 G=RND(O)\IF G>.025 THEN 1040\IF Y>2 THEN 1045
+1035 G=RND(O)\IF G<.025 THEN 1040\IF Y>2 THEN 1045
 1040 PRINT "QUARTERBACK SCRAMBLED"\GOTO 1050
 1045 PRINT "PASS COMPLETED"\GOTO 1050
 1048 PRINT "THE BALL WAS RUN"
@@ -157,7 +157,7 @@
 1650 F=INT(35*RND(O)+20)
 1660 PRINT\PRINT "KICK IS"F"YARDS LONG"
 1680 P=P-W(T)*F\RANDOMIZE\G=RND(O)
-1690 IF G<.35 THEN 1735
+1690 IFG<.35THEN1735
 1700 IF Y(T)*P<X(T) THEN 1740
 1710 PRINT "FIELDGOAL GOOD FOR TEAM"T"*****************YEA"
 1720 Q=3\GOTO 1390
@@ -171,7 +171,7 @@
 1800 IF P1<>99 THEN 936
 1810 PRINT\PRINT "TEAM 1 SCORE IS"H(1)
 1820 PRINT "TEAM 2 SCORE IS"H(2)\PRINT
-1825 IF H(T)<E THEN 1830\PRINT "TEAM"T"WINS****************"\GOTO 2000
+1825 IF H(T)<E THEN 1830\PRINT "TEAM"T"WINS ***************"\GOTO 2000
 1830 IF P1=99 THEN 940\RETURN
 1850 PRINT
 1860 PRINT "++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

dec/FURS.BAS

@@ -96,7 +96,7 @@
 1215 IF P<=10 THEN 1235
 1216 LET F(2)=0
 1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS"
-1219 PRINT "THE PORTAGE.  YOU HAD TO LEAVE THE PELTS, BUT FOUND"
+1219 PRINT "THE PORTAGE.  YOU HAD TO LEAVE THE PELTS BUT FOUND"
 1220 PRINT "THEM STOLEN WHEN YOU RETURNED"
 1221 GOSUB 1244
 1222 GO TO 1414

dec/GOMOKO.BAS

@@ -1,7 +1,7 @@
 10 PRINT\PRINT "WELCOME TO THE ORIENTAL GAME OF GOMOKO"
 20 PRINT\PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE"
 30 PRINT "THAT YOU SPECIFY.  DURING YOUR PLAY, YOU MAY COVER ONE GRID"
-40 PRINT "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET"
+40 PRINT "INTERSECTION WITH A MARKER.  THE OBJECT OF THE GAME IS TO GET"
 50 PRINT "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR"
 60 PRINT "ALONG EITHER DIAGONAL.  ON THE BOARD DIAGRAM, YOUR MOVES ARE"
 70 PRINT "MARKED WITH A '1', AND THE COMPUTER MOVES WITH A '2'."
@@ -22,13 +22,13 @@
 420 PRINT "SQUARE OCCUPIED. TRY AGAIN..."\GOTO 310
 440 A(I,J)=1
 500 REM *** COMPUTER TRIES AN 'INTELLIGENT' MOVE ***
-510 FOR E=-1 TO 1\ FOR F=-1 TO 1\ IF E+F-E*F=0 THEN 590
+510 FOR E=-1 TO 1\FOR F=-1 TO 1\IF E+F-E*F=0 THEN 590
-540 LET X=I+E\Y=J+F\GOSUB 910
+540 LET X=I+E\LET Y=J+F\GOSUB 910
 570 IF L=0 THEN 590
 580 IF A(X,Y)=1 THEN 710
 590 NEXT F\NEXT E
 600 REM *** COMPUTER TRIES A RANDOM MOVE ***
-610 LET X=INT(N*RND(0)+1)\LET Y=INT(N*RND(0)+1)\GOSUB 910\IF L=0 THEN 610
+610 LET X=INT(N*RND(0))+1\LET Y=INT(RND(0))+1\GOSUB 910\IF L=0 THEN 610
 650 IF A(X,Y)<>0 THEN 610
 660 A(X,Y)=2\GOSUB 810\GOTO 310
 710 X=I-E\Y=J-F\GOSUB 910
@@ -43,8 +43,8 @@
 930 IF Y<1 THEN 970
 940 IF Y>N THEN 970
 950 RETURN
-970 L=0\RETURN
+970 LET L=0\RETURN
 980 PRINT\PRINT "THANKS FOR THE GAME!!"
-985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";\ INPUT Q
+985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";\INPUT Q
 990 IF Q=1 THEN 110
 999 END

dec/GUESS.BAS

@@ -1,15 +1,15 @@
-1 PRI "THIS IS A NUMBER GUESSING GAME.  I'LL THINK"
+ 1 PRI "THIS IS A NUMBER GUESSING GAME.  I'LL THINK"
-2 PRI "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
+ 2 PRI "OF A NUMBER BETWEEN 1 AND ANY LIMIT YOU WANT."
-3 PRI "THEN YOU HAVE TO GUESS WHAT IT IS."
+ 3 PRI "THEN YOU HAVE TO GUESS WHAT IT IS."
-4 PRI
+ 4 PRI
-5 PRI "WHAT LIMIT DO YOU WANT";
+ 5 PRI "WHAT LIMIT DO YOU WANT";
-6 INPL
+ 6 INPL
-7 PRI
+ 7 PRI
-8 L1=INT(LOG(L)/LOG(2))+1
+ 8 L1=INT(LOG(L)/LOG(2))+1
 10 PRI"I'M THINKING OF A NUMBER BETWEEN 1 AND"L
 11 G=1
 14 PRI "NOW YOU TRY TO GUESS WHAT IT IS"
-15 M=INT(L*RND(0)+1)
+15 M=INT(L*RND(0))+1
 20 INP N
 21 IF N>0 THEN 25
 22 GOSUB70
@@ -21,7 +21,7 @@
 33 GOTO 20
 40 PRI "TOO HIGH.  GUESS AGAIN."
 42 GOTO 20
-50 PRI "THAT'S IT! YOU GOT IT IN"G"TRIES.
+50 PRI "THAT'S IT!  YOU GOT IT IN"G"TRIES.
 52 IF G<L1 THEN 58
 54 IF G=L1 THEN 60
 56 PRI"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"L1".

dec/GUNER1.BAS

@@ -7,11 +7,11 @@
 160 IF A$="NO" THEN 330
 170 PRINT "    THIS GAME TESTS YOUR ABILITY TO HIT A MOVING TARGET."
 180 PRINT "YOU MUST DESTROY IT BEFORE IT DESTROYS YOU OR MOVES OUT"
-190 PRINT "OF RANGE. THE TARGET WILL MOVE RANDOMLY."
+190 PRINT "OF RANGE. THE TARGET WILL MOVE RAMDOMLY."
 200 PRINT
 210 PRINT "    TYPE CTRL/C TO TERMINATE THE PROGRAM.  TO THE QUESTON"
-220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100. THIS IS THE"
+220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100, THIS IS THE"
-230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS SLOWEST AND 100"
+230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS THE SLOWEST AND 100"
 240 PRINT "IS THE FASTEST."
 250 PRINR
 260 PRINT "TO THE QUESTION 'ENTER DISTANCE' ENTER THE MAXIMUM DISTANCE"
@@ -19,7 +19,7 @@
 280 PRINT "THE KILL RADIUS AND 5000 IS SUGGESTED FOR STARTERS."
 290 PRINT
 300 PRINT "ELEVATION IS THE ELEVATION OF YOUR GUN IN DEGREES WHEN YOU"
-310 PRINT "FIRE AT THE TARGET. THE MAXIMUM RANGE IS AT 45 DEGREES"
+310 PRINT "FIRE AT THE TARGET. THE MAXIMUN RANGE IS AT 45 DEGREES"
 320 PRINT
 330 PRINT "ENTER SPEED";
 340 INPUT S

dec/HANG.BAS

@@ -13,14 +13,14 @@
 100 Q=INT(N*RND+1)
 110 IF U(Q)=1 THEN 100 ELSE U(Q)=1:C=C+1:RESTORE:T1=0
 150 READ A$ FOR I=1 TO Q
-160 L=LEN(A$):L$(I)=MID$(A$,I,1) FOR I=1 TO L
+160 L=LEN(A$):L$(I)=MID(A$,I,1) FOR I=1 TO L
 170 &"HERE ARE THE LETTERS YOU USED:"
 180 FOR I=1 TO 26:& N$(I);:IF N$(I+1)="" THEN 200
 190 PRINT ",";:NEXT I
 200 &:&:FOR I=1 TO L:& D$(I);:NEXT I:&:&
 210 INPUT "WHAT IS YOUR GUESS";G$:R=0
 220 FOR I=1 TO 26:IF N$(I)="" THEN 250
-230 IF G$=N$(I) THEN & "YOU GUESSED THAT LETTER BEFORE!":GOTO 170
+230 IF G$=N$(I) THEN & "YOU GUESSED THAT LETTER BEFORE":GOTO 170
 240 NEXT I:& "PROGRAM ERROR.  RUN AGAIN.":STOP
 250 N$(I)=G$:T1=T1+1
 260 FOR I=1 TO L:IF L$(I)=G$ THEN 280
@@ -64,7 +64,7 @@
 580 FOR I=1 TO 12:FOR J=1 TO 12:& P$(I,J);:NEXT J
 590 &:NEXT I:&:&:IF M=10 THEN 600 ELSE 170
 600 &"SORRY, YOU LOSE.  THE WORD WAS "A$
-610 &"YOU MISSED THAT ONE.  DO YOU ":GOTO 370
+610 &"YOU MISSED THAT ONE.  DO YOU":GOTO 370
 700 DATA "GUM","SIN","FOR","CRY","LUG","BYE","FLY"
 710 DATA "UGLY","EACH","FROM","WORK","TALK","WITH","SELF"
 720 DATA "PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY"

dec/HELLO.BAS

@@ -1,90 +1,91 @@
-   5 GOT 400
+  5 GOT 400
-  10 PRINT "HELLO, I'M AN EDUSYSTEM-25. MY NAME IS PETEY P. EIGHT."
+ 10 PRINT "HELLO, I'M AN EDUSYSTEM-25. MY NAME IS PETEY P. EIGHT."
-  20 PRI\PRI "WHAT'S YOUR NAME";\LINPUT A$\PRI
+ 20 PRI\PRI "WHAT'S YOUR NAME";\LINPUT A$\PRI
-  35 PRI " HI THERE ";\GOSUB500\PRI".  ARE YOU ENJOYING YOURSELF HERE
+ 35 PRI " HI THERE ";\GOSUB500\PRI".  ARE YOU ENJOYING YOURSELF HERE
-  40 PRI "IN BEAUTIFUL MAYNARD, MASS";
+ 40 PRI "IN BEAUTIFUL MAYNARD, MASS";
-  45 INP B$\PRI
+ 45 INP B$\PRI
-  50 IF B$="YES" THEN 70
+ 50 IF B$="YES" THEN 70
-  55 IF B$="NO" THEN 80
+ 55 IF B$="NO" THEN 80
-  60 PRI " ";\GOSUB500\PRI", I DON'T UNDERSTAND YOUR ANSWER OF '"B$"'."
+ 60 PRI " ";\GOSUB500\PRI", I DON'T UNDERSTAND YOUR ANSWER OF '"B$"'."
-  65 PRI "PLEASE ANSWER 'YES' OR 'NO'.  DO YOU LIKE IT HERE
+ 65 PRI "PLEASE ANSWER 'YES' OR 'NO'.  DO YOU LIKE IT HERE
-  67 GOT 40
+ 67 GOT 40
-  70 PRI "OH, I'M GALD TO HERE THAT ";\GOSUB500\PRI
+ 70 PRI "OH, I'M GALD TO HERE THAT ";\GOSUB500\PRI
-  75 GOT 100
+ 75 GOT 100
-  80 PRI "OH, SORRY TO HEAR THAT ";\GOSUB 500\PRI ", MAYBE WE CAN
+ 80 PRI "OH, SORRY TO HEAR THAT ";\GOSUB 500\PRI ", MAYBE WE CAN
-  85 PRI "BRIGHTEN UP YOUR STAY A BIT
+ 85 PRI "BRIGHTEN UP YOUR STAY A BIT
- 100 PRI
+100 PRI
- 105 PRI "SAY, ";\GOSUB500\PRI", I CAN SOLVE ALL KINDS OF PROBLEMS
+105 PRI "SAY, ";\GOSUB500\PRI", I CAN SOLVE ALL KINDS OF PROBLEMS
- 110 PRI "EXCEPT THOSE DEALING WITH GREECE.  WHAT KIND OF
+110 PRI "EXCEPT THOSE DEALING WITH GREECE.  WHAT KIND OF
- 115 PRI "PROBLEMS DO YOU HAVE (ANSWER SEX, HEALTH, MONEY,
+115 PRI "PROBLEMS DO YOU HAVE (ANSWER SEX, HEALTH, MONEY,
- 120 PRI "OR JOB)";
+120 PRI "OR JOB)";
- 125 INP C$\PRI
+125 INP C$\PRI
- 130 IF C$="SEX" THEN 200
+130 IF C$="SEX" THEN 200
- 132 IF C$="HEALTH" THEN 180
+132 IF C$="HEALTH" THEN 180
- 134 IF C$="MONEY" THEN 160
+134 IF C$="MONEY" THEN 160
- 136 IF C$="JOB" THEN 145
+136 IF C$="JOB" THEN 145
- 138 PRI "OH, ";\GOSUB500\PRI", YOUR ANSWER OF '"C$"' IS GREEK TO ME."
+138 PRI "OH, ";\GOSUB500\PRI", YOUR ANSWER OF '"C$"' IS GREEK TO ME."
- 140 GOT 250
+140 GOT 250
- 145 PRI "I CAN SYMPATHIZE WITH YOU ";\GOSUB500\PRI". I HAVE TO WORK
+145 PRI "I CAN SYMPATHIZE WITH YOU ";\GOSUB500\PRI". I HAVE TO WORK
- 148 PRI "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES REALLY
+148 PRI "VERY LONG HOURS FOR NO PAY -- AND SOME OF MY BOSSES REALLY
- 150 PRI"BEAT MY KEYBOARD. MY ADVICE TO YOU ";\GOSUB500\PRI", IS TO SELL
+150 PRI"BEAT MY KEYBOARD. MY ADVICE TO YOU ";\GOSUB500\PRI", IS TO SELL
- 153 PRI "IN THE EDUCATION MARKET.  IT'S GREAT FUN.
+
- 155 GOT 250
+153 PRI "IN THE EDUCATION MARKET.  IT'S GREAT FUN.
- 160 PRI "SORRY, ";\GOSUB500\PRI", I'M BROKE TOO.  WHY DON'T YOU SELL
+155 GOT 250
- 163 PRI "ENCYCLOPAEDIAS OR MARRY SOMEONE RICH OR STOP EATING
+160 PRI "SORRY, ";\GOSUB500\PRI", I'M BROKE TOO.  WHY DON'T YOU SELL
- 165 PRI "SO YOU WON'T NEED SO MUCH MONEY?
+163 PRI "ENCYCLOPEADIAS OR MARRY SOMEONE RICH OR STOP EATING
- 170 GOT 250
+165 PRI "SO YOU WON'T NEED SO MUCH MONEY?
- 180 PRI "MY ADVICE TO YOU ";\GOSUB500\PRI", IS:
+170 GOT 250
- 185 PRI "     1. TAKE TWO ASPRIN
+180 PRI "MY ADVICE TO YOU ";\GOSUB500\PRI", IS:
- 188 PRI "     2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)
+185 PRI "     1. TAKE TWO ASPRIN
- 190 PRI "     3. GO TO BED (ALONE)
+188 PRI "     2. DRINK PLENTY OF FLUIDS (ORANGE JUICE, NOT BEER!)
- 195 GOT 250
+190 PRI "     3. GO TO BED (ALONE)
- 200 PRI "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";
+195 GOT 250
- 205 INP D$\PRI
+200 PRI "IS YOUR PROBLEM TOO MUCH OR TOO LITTLE";
- 210 IF D$="TOO MU" THEN 220
+205 INP D$\PRI
- 213 IF D$="TOO LI" THEN 230
+210 IF D$="TOO MU" THEN 220
- 215 PRI "DON'T GET ALL SHOOK ";\GOS 500\PRI ",JUST ANSWER THE QUESTION
+213 IF D$="TOO LI" THEN 230
- 217 PRI "WITH 'TOO MUCH' OR 'TOO LITTLE'.  WHICH IS IT";
+215 PRI "DON'T GET ALL SHOOK ";\GOS 500\PRI ",JUST ANSWER THE QUESTION
- 218 GOT 205
+217 PRI "WITH 'TOO MUCH' OR 'TOO LITTLE'.  WHICH IS IT";
- 220 PRI "YOU CALL THAT A PROBLEM?!!  I SHOULD HAVE SUCH PROBLEMS!
+218 GOT 205
- 225 PRI "IF IT BOTHERS YOU, TAKE A COLD SHOWER ";\GOSUB500\PRI"."
+220 PRI "YOU CALL THAT A PROBLEM?!!  I SHOULD HAVE SUCH PROBLEMS!
- 228 GOT 250
+225 PRI "IF IT BOTHERS YOU, TAKE A COLD SHOWER ";\GOSUB500\PRI"."
- 230 PRI "WHY ARE YOU HERE  ";\GOSUB500\PRI"?  YOU SHOULD BE
+228 GOT 250
- 235 PRI "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME
+230 PRI "WHY ARE YOU HERE  ";\GOSUB500\PRI"?  YOU SHOULD BE
- 240 PRI "REAL ACTION.
+235 PRI "IN TOKYO OR NEW YORK OR AMSTERDAM OR SOMEPLACE WITH SOME
- 250 PRI
+240 PRI "REAL ACTION.
- 255 PRI "ANY MORE PROBLEMS YOU WANT SOLVED, ";\GOSUB500\PRI;
+250 PRI
- 260 INP E$\PRI
+255 PRI "ANY MORE PROBLEMS YOU WANT SOLVED, ";\GOSUB500\PRI;
- 270 IF E$="YES" THEN 280
+260 INP E$\PRI
- 273 IF E$="NO" THEN 300
+270 IF E$="YES" THEN 280
- 275 PRI "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";\GOSUB500\PRI"."
+273 IF E$="NO" THEN 300
- 278 GOT 255
+275 PRI "JUST A SIMPLE 'YES' OR 'NO' PLEASE, ";\GOSUB500\PRI"."
- 280 PRI "WHAT KIND (SEX, MONEY, HEALTH, JOB)";
+278 GOT 255
- 285 GOT 125
+280 PRI "WHAT KIND (SEX, MONEY, HEALTH, JOB)";
- 300 PRI
+285 GOT 125
- 302 PRI "THAT WILL BE $5.00 FOR THE ADVICE, ";\GOSUB500\PRI"."
+300 PRI
- 305 PRI "PLEASE LEAVE THE MONEY ON THE TERMINAL. "
+302 PRI "THAT WILL BE $5.00 FOR THE ADVICE, ";\GOSUB500\PRI"."
- 307 PRI\PRI\PRI
+305 PRI "PLEASE LEAVE THE MONEY ON THE TERMINAL."
- 310 PRI "DID YOU LEAVE THE MONEY";
+307 PRI\PRI\PRI
- 315 INP G$\PRI
+310 PRI "DID YOU LEAVE THE MONEY";
- 325 IF G$="YES" THEN 350
+315 INP G$\PRI
- 330 IF G$="NO" THEN 370
+325 IF G$="YES" THEN 350
- 335 PRI "YOUR ANSWER OF '"G$"' CONFUSES ME, ";\GOSUB500\PRI".  PLEASE
+330 IF G$="NO" THEN 370
- 340 PRI "RESPOND WITH A 'YES' OR 'NO'.
+335 PRI "YOUR ANSWER OF '"G$"' CONFUSES ME, ";\GOSUB500\PRI".  PLEASE
- 345 GOT 310
+340 PRI "RESPOND WITH A 'YES' OR 'NO'.
- 350 PRI "HEY, ";\GOSUB500\PRI"???   YOU LEFT NO MONEY AT ALL!
+345 GOT 310
- 355 PRI "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING.
+350 PRI "HEY, ";\GOSUB500\PRI"???   YOU LEFT NO MONEY AT ALL!
- 360 PRI "RIP OFF, ";\GOSUB500\PRI". *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
+355 PRI "YOU ARE CHEATING ME OUT OF MY HARD-EARNED LIVING.
- 365 GOT 390
+360 PRI "RIP OFF, ";\GOSUB500\PRI". *=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*
- 370 PRI "THAT'S HONEST, ";\GOSUB500\PRI", BUT HOW DO YOU EXPECT
+365 GOT 390
- 375 PRI "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T
+370 PRI "THAT'S HONEST, ";\GOSUB500\PRI", BUT HOW DO YOU EXPECT
- 380 PRI "PAY THEIR BILLS?
+375 PRI "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T
- 385 PRI\PRI\PRI "NOW LET ME TALK TO SOMEONE ELSE.
+380 PRI "PAY THEIR BILLS?
- 390 PRI "NICE MEETING YOU ";\GOS 500\PRI ". HAVE A NICE DAY!!
+385 PRI\PRI\PRI "NOW LET ME TALK TO SOMEONE ELSE.
- 400 FOR N=1 TO 7
+390 PRI "NICE MEETING YOU ";\GOS 500\PRI ".  HAVE A NICE DAY!!
- 402 PRI
+400 FOR N=1 TO 7
- 405 NEX N
+402 PRI
- 410 GOT 10
+405 NEX N
- 500 T=A$(0)\FOR I=1 TO INT(T/6+1)\PRINT A$(I);\NEXT I
+410 GOT 10
- 510 RETURN
+500 T=A$(0)\FOR I=1 TO INT(T/6+1)\PRINT A$(I);\NEXT I
- 999 END
+510 RETURN
+999 END

dec/HI-Q.BAS

@@ -59,15 +59,15 @@
 550 REM
 560 GOTO 610
 570 IF T(X,Y)<>5 THEN 600
-580 PRINT TAB(Y*2);"!";
+580 PRINT TAB(Y*2)"!";
 590 GOTO 610
-600 PRINT TAB(Y*2);"O";
+600 PRINT TAB(Y*2)"O";
 610 REM
 615 NEXT Y
 620 PRINT
 630 NEXT X
 640 RETURN
-1000 REM *** UPDATE BOARD
+1000 REM*** UPDATE BOARD
 1005 C=1\FOR X=1 TO 9
 1020 FOR Y=1 TO 9
 1030 IF C<>Z THEN 1220
@@ -93,7 +93,7 @@
 1225 NEXT Y
 1230 NEXT X
 1240 RETURN
-1500 REM*** CHECK IF GAME IS OVER
+1500 REM *** CHECK IF GAME IS OVER
 1505 F=0
 1510 FOR R=2 TO 8
 1520 FOR C=2 TO 8
@@ -119,7 +119,7 @@
 1590 NEXT R
 1600 REM *** GAME IS OVER
 1605 PRINT "THE GAME IS OVER."
-1610 PRINT "YOU HAD"F;"PIECES REMAINING."
+1610 PRINT "YOU HAD"F;"PIECES REMAINING"
 1611 IF F<>1 THEN 1615
 1612 PRINT "BRAVO!  YOU MADE A PERFECT SCORE!!"
 1613 PRINT "SAVE THIS PAPER AS A RECORD OF YOUR WORK."

dec/HMRABI.BAS

@@ -60,7 +60,7 @@
 470 GOTO 440
 510 LET S=S-INT(D/2)
 511 GOSUB 800
-512 REM *** A BOUNTIFUL HARVEST!!
+512 REM *** A BOUNTYFULL HARVEST!!
 515 LET Y=C:LET H=D*Y:LET E=0
 521 GOSUB 800
 522 IF INT(C/2)<>C/2 THEN 530

dec/HOCKEY.BAS

@@ -189,7 +189,10 @@
 1900  IF T=2 THEN 2060
 1910  PRINT " WRIST SHOT."
 1920  LET U=INT(5*RND(X)+1)
-1930  IF U=1 THEN 1990
+1930  IF U=1 THEN 2010
+1940  PRINT " SHOT IS MISSED."
+1950  LET V=INT(2*RND(X)+1)
+1960  IF V=1 THEN 1990
 1970  PRINT " "A$" TAKES THE PUCK."
 1980  GOTO 2080
 1990  PRINT " CORNELL REGAINS THE PUCK."

dec/HORSES.BAS

@@ -46,7 +46,7 @@
 70 ON K GOTO 72,74,76,78,80,82,84,86
 72 PRINT "AS THEY BREAK FROM THE GATE" \ GO TO 88
 74 PRINT "AT THE 1/4 MILE POLE" \ GO TO 88
-76 PRINT "NEARING THE HALF MARK" \ GO TO 88
+76 PRINT "NEARING THE HALFWAY MARK" \ GO TO 88
 78 PRINT "MIDWAY IN THE RACE" \ GO TO 88
 80 PRINT "AT 5/8 OF A MILE" \ GO TO 88
 82 PRINT "ROUNDING THE TURN" \ GO TO 88

dec/HURKLE.BAS

@@ -1,12 +1,12 @@
 90  REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
-100 REM HURKLE - PEOPLE'S COMPUTER COMPANY, MEMLO PARK CA
+100 REM HURKLE - PEOPLE'S COMPUTER COMPANY, MENLO PARK CA
 105 RANDOM
 110 N=5
 120 G=10
 210 PRINT
 220 PRINT "A HURKLE IS HIDING ON A";G;"BY";G;"GRID. HOMEBASE"
 230 PRINT "ON THE GRID IS POINT  0,0  AND ANY GRIDPOINT IS A"
-240 PRINT "PAIR OF WHOLE NUMBERS SEPERATED BY A COMMA. TRY TO"
+240 PRINT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO"
 250 PRINT "GUESS THE HURKLE'S GRIDPOINT. YOU GET";N;"TRIES."
 260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE"
 270 PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE."
@@ -25,23 +25,24 @@
 420 PRINT "SORRY, THAT'S";N;"GUESSES."
 430 PRINT "THE HURKLE IS AT ";A;",";B
 440 PRINT
-450 PRINT "LET'S PLAY AGAIN, HURKLE IS HIDING."
+450 PRINT "LET'S PLAY AGAIN. HURKLE IS HIDING."
 460 PRINT
-470 GOTO 285
+470 GO TO 285
 500 REM
 510 PRINT
 520 PRINT "YOU FOUND HIM IN";K;"GUESSES!"
-540 GOTO 440
+530 FOR I=1 TO 10\PRINT CHR$(7);\NEXT I\PRINT
+540 GO TO 440
 610 PRINT "GO ";
 620 IF Y=B THEN 670
 630 IF Y<B THEN 660
 640 PRINT "SOUTH";
-650 GOTO 670
+650 GO TO 670
 660 PRINT "NORTH";
 670 IF X=A THEN 720
 680 IF X<A THEN 710
 690 PRINT "WEST";
-700 GOTO 720
+700 GO TO 720
 710 PRINT "EAST";
 720 PRINT
 730 RETURN

dec/KINEMA.BAS

@@ -2,7 +2,7 @@
 105 PRINT
 106 Q=0
 110 V=5+INT(35*RND(0))
-111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND."
+111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND"
 112 PRINT
 115 A=V^2/19.6
 116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
@@ -10,7 +10,7 @@
 120 A=V/4.9
 122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
 124 GOSUB 500
-130 T=1+INT(2*V*RND(1))/10
+130 T=(1+INT(2*V*RND(1)))/10
 132 A=V-9.8*T
 134 PRINT "WHAT WILL ITS VELOCITY BE AFTER"T"SECONDS";
 136 GOSUB 500
@@ -18,19 +18,19 @@
 150 PRINT Q"RIGHT OUT OF 3.";
 160 IF Q<2 THEN 100
 170 PRINT "  NOT BAD."
-180 GOTO 100
+180 GO TO 100
 500 INPUT G
 501 G=100*ABS(G-A)
 502 IF G<=ABS(A) THEN 507
 503 IF G<=15*ABS(A) THEN 510
 504 PRINT "NOT EVEN CLOSE...."
-506 GOTO 512
+506 GO TO 512
 507 Q=Q+1
 508 PRI"CORRECT! VERY GOOD!
-509 GOTO 520
+509 GOTO520
 510 PRINT "CLOSE ENOUGH."
 511 Q=Q+1
-512 PRINT "CORRECT ANSWER IS "A
+512 PRINT "CORRECT ANSWER IS"A
 520 PRINT
 530 RETURN
 999 END

dec/LIFE.BAS

@@ -42,9 +42,9 @@
 298 PRINT CHR$(29%);
 299 X1%=X3%:X2%=X4%:Y1%=Y3%:Y2%=Y4%
 301 IF X1%<3% THEN X1%=3%:I9%=-1%
-303 IF X2%>22% THEN X2%=22:I9%=-1%
+303 IF X2%>22% THEN X2%=22%:I9%=-1%
-305 IF Y1%<3% THEN Y1%=3:I9%=-1%
+305 IF Y1%<3% THEN Y1%=3%:I9%=-1%
-307 IF Y2%>68% THEN Y2%=68:I9%=-1%
+307 IF Y2%>68% THEN Y2%=68%:I9%=-1%
 309 P%=0%
 500 FOR X%=X1%-1 TO X2%+1
 510 FOR Y%=Y1%-1 TO Y2%+1

dec/MUGWMP.BAS

@@ -18,7 +18,7 @@
 260  T=T+1
 270  PRINT
 275  PRINT
-290  PRINT "TURN NO."T;"-- WHAT IS YOUR GUESS";
+290  PRINT "TURN NO."T;"WHAT IS YOUR GUESS";
 300  INPUT M,N
 310  FOR I=1 TO 4
 320 IF P(I,1)=-1 THEN 400
@@ -44,8 +44,8 @@
 560 PRINT "MUGWUMP";I;"IS AT (";P(I,1);",";P(I,2);")"
 570  NEXT I
 580  PRINT
-600 PRINT "THAT WAS FUN! LET'S PLAY AGAIN......"
+600 PRINT "THAT WAS FUN!  LET'S PLAY AGAIN....."
-610 PRINT "FOUR MORE MUGWUMPS ARE NOW IN HIDING."
+610 PRINT "FOUR MORE MUGMUMPS ARE NOW IN HIDING."
 630  GOTO 240
 1000  FOR J=1 TO 2
 1010  FOR I=1 TO 4

dec/NICOMA.BAS

@@ -24,7 +24,7 @@
 200 GOTO 150
 220 PRINT "HOW ABOUT THAT!!"
 230 GOTO 250
-240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
+240 PRINT "I FEAR YOUR ARITHMETIC IS IN ERROR."
 250 PRINT
 260 PRINT "LET'S TRY ANOTHER."
 270 GOTO 20

dec/NIM.BAS

@@ -9,7 +9,7 @@
 140 PRINT "    NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY.  BEFORE"
 145 PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS"
 150 PRINT "PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRIBUTION"
-155 PRINT "WHATEVER.  THEN EACH PLAYER IN HIS TURN REMOVE AS MANY"
+155 PRINT "WHATEVER.  THEN EACH PLAYER IN HIS TURN REMOVES AS MANY"
 160 PRINT "STICKS AS HE WISHES FROM ANY PILE--BUT FROM ONLY ONE PILE,"
 165 PRINT "AND AT LEAST ONE STICK.  THE PLAYER WHO TAKES THE LAST STICK"
 170 PRINT "IS THE WINNER."
@@ -23,7 +23,7 @@
 210 IF P>INT(P) THEN 215\IF P<=0 THEN 215\GO TO 220
 215 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 205
 220 PRINT\FOR I=1 TO P
-225 PRINT "HOW MANY STICK IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
+225 PRINT "HOW MANY STICKS IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
 230 IF L(I)>INT(L(I)) THEN 235\IF L(I)<=0 THEN 235\GO TO 240
 235 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 225
 240 NEXT I

dec/NUMBER.BAS

@@ -1,4 +1,4 @@
-1 PRINT "                 NUMBER GAME"
+1 PRINT "                NUMBER  GAME"
 2 PRINT\PRINT "YOU NOW HAVE 100 POINTS"
 3 PRINT "BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
 4 PRINT "POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"
@@ -20,17 +20,17 @@
 24 IF G=V THEN 70
 25 IF G>5 THEN 11
 30 LET P=P-5
-35 GOTO 80
+35 GO TO 80
 40 LET P=P+5
-45 GOTO 80
+45 GO TO 80
 50 LET P=P+P
 53 PRINT "YOU HIT THE JACKPOT"
-55 GOTO 80
+55 GO TO 80
 60 LET P=P+1
-65 GOTO 80
+65 GO TO 80
 70 LET P=P-(P*.5)
 80 IF P>500 THEN 90
-82 PRINT "YOU HAVE";P;"POINTS"
+82 PRINT "YOU HAVE ";P;"POINTS"
-85 GOTO 11
+85 GO TO 11
-90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS."
+90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS"
 99 END

dec/ORBIT.BAS

@@ -32,33 +32,34 @@
 171 PRINT "                 0000000000000000000"
 172 PRINT "               000000           000000"
 173 PRINT "             00000                 00000"
-174 PRINT "            00000    XXXXXXXXXXX    00000"
+174 PRINT "            00000     XXXXXXXXXXX    00000"
-175 PRINT "           00000    XXXXXXXXXXXXX    00000"
+175 PRINT "           00000    XXXXXXXXXXXXXXX    0000"
-176 PRINT "          0000     XXXXXXXXXXXXXXX     0000"
+176 PRINT "          0000     XXXXXXXXXXXXXXXXX    0000"
-177 PRINT "         0000     XXXXXXXXXXXXXXXXX     0000"
+177 PRINT "         0000     XXXXXXXXXXXXXXXXXXX    0000"
-178 PRINT "        0000     XXXXXXXXXXXXXXXXXXX     0000"
+178 PRINT "        0000     XXXXXXXXXXXXXXXXXXXXX    0000"
-179 PRINT "180<== 00000     XXXXXXXXXXXXXXXXXXX     00000 ==>0"
+179 PRINT "180<== 00000     XXXXXXXXXXXXXXXXXXXXX    00000 ==>0"
-180 PRINT "        0000     XXXXXXXXXXXXXXXXXXX     0000"
+180 PRINT "        0000     XXXXXXXXXXXXXXXXXXXXX    0000"
-181 PRINT "         0000     XXXXXXXXXXXXXXXXX     0000"
+181 PRINT "         0000     XXXXXXXXXXXXXXXXXXX    0000"
-182 PRINT "          0000     XXXXXXXXXXXXXXX     0000"
+182 PRINT "          0000     XXXXXXXXXXXXXXXXX    0000"
-183 PRINT "           00000    XXXXXXXXXXXXX    00000"
+183 PRINT "           00000    XXXXXXXXXXXXXXX   00000"
-184 PRINT "            00000    XXXXXXXXXXX    00000"
+184 PRINT "            00000    XXXXXXXXXXXXX   00000"
-185 PRINT "             00000                 00000"
+185 PRINT "             00000                  00000"
-186 PRINT "               000000           000000"
+186 PRINT "               000000             000000"
-187 PRINT "                 0000000000000000000"
+187 PRINT "                 00000000000000000000"
-188 PRINT "                    0000000000000"
+188 PRINT "                    000000000000000"
-189 PRINT "                          !"
+189 PRINT "                           !"
-190 PRINT "                         270"
+190 PRINT "                          270"
+191 PRINT
 192 PRINT
 195 PRINT "X - YOUR PLANET"
-196 PRINT "O - THE ORBIT OF THE ROMULAN SHIP"
+196 PRINT "0 - THE ORBIT OF THE ROMULAN SHIP"
 197 PRINT
 198 PRINT "ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING"
 199 PRINT "COUNTERCLOCKWISE AROUND YOUR PLANET.  DON'T FORGET"
 200 PRINT "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE"
-210 PRINT "AND  ORBITAL RATE WILL REMAIN CONSTANT."
+201 PRINT "AND  ORBITAL RATE WILL REMAIN CONSTANT."
-220 PRINT
+203 PRINT
-230 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."
+204 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."
 270 LET A=INT(RND*360)
 280 LET D=INT(RND*200) +100
 290 LET R=INT(RND*20) +10
@@ -82,10 +83,10 @@
 420 LET T=360-T
 430 LET C=SQR(D*D+D1*D1-2*D*D1*COS(T*3.14159/180))
 440 PRINT "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE"
-445 PRINT "ROMULAN SHIP"
+445 PRINT "THE ROMULAN SHIP"
 450 IF C<=50 GOTO 470
 460 GOTO 310
-470 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION."
+470 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION."
 480 GOTO 500
 490 PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE."
 500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT."

dec/PIZZA.BAS

@@ -12,7 +12,7 @@
 180 READ M$(I)
 190 NEXT I
 200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"
-210 DATA "1","2","3","4"
+220 DATA "1","2","3","4"
 230 PRINT "MAP OF THE CITY OF HYATTSVILLE":PRINT
 250 PRINT " ----1----2----3----4----"
 260 K=4
@@ -43,7 +43,7 @@
 650 PRINT "YOUR ANSWER WOULD BE 2,3":PRINT
 660 INPUT "UNDERSTAND";A$
 670 IF A$="YES" THEN 690
-680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU.  THANKS ANYWAY":GOTO 999
+680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU.  THANKS ANYWAY.":GOTO 999
 690 PRINT "GOOD.  YOU ARE NOW READY TO START TAKING ORDERS.":PRINT
 700 PRINT "GOOD LUCK!!":PRINT
 750 FOR I=1 TO 5

dec/POET.BAS

@@ -3,7 +3,7 @@
 101 IF I<>2 THEN 102 ELSE PRINT "FIREY EYES";
 102 IF I<>3 THEN 103 ELSE PRINT "BIRD OR FIEND";
 103 IF I<>4 THEN 104 ELSE PRINT "THING OF EVIL";
-104 IF I<>5 THEN 210 ELSE PRINT "PROPHET";
+104 IF I<>5 THEN 210 ELSE PRINT "PHOPHET";
 105 GOTO 210
 110 IF I<>1 THEN 111 ELSE PRINT "BEGUILING ME";
 111 IF I<>2 THEN 112 ELSE PRINT "THRILLED ME";

dec/POETRY.BAS

@@ -12,7 +12,7 @@
 210 LET D=D+1
 220 PRINT "    WALKS SCATTERING POEMS"
 230 GO TO 1350
-240 PRINT "ON EARTH A CANDLE IS EXTINGUISHED"
+240 PRINT "ON EARTH A CANDLE IS EXTINGUISED"
 250 LET A3=1
 260 LET D=D+1
 270 PRINT "    THE CITY WAKES"
@@ -227,5 +227,5 @@
 2320 GO TO 1350
 2330 PRINT
 2340 PRINT
-2350 PRINT "                      BY A. COM PUTER."
+2350 PRINT "                      BY  A. COM PUTER."
 2360 END

dec/POKER.BAS

@@ -80,7 +80,7 @@
 80GOTO69
 81RETURN
 82PRINT
-83PRINT"NOW WE DRAW -- HOW MANY CARDS DO YOU WANT";
+83PRINT"NOW WE DRAW -- HOW MANY CARDS SO YOU WANT";
 84INPUTT
 85IFT=0THEN98
 86LETZ=10

dec/QUBIC.BAS

@@ -15,7 +15,7 @@
 23 NEXT I
 24FOR I=1 TO 76
 25FOR J = 1 TO 4
-26 READ M(I,J)
+26 READM(I,J)
 27 NEXT J
 28 NEXT I
 35 FOR I = 1 TO 64
@@ -186,7 +186,7 @@
 1520 DATA 21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38
 1521 DATA 39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56
 1522 DATA 57,58,59,60,61,62,63,64
-1523DATA 1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
+1523DATA1,17,33,49,5,21,37,53,9,25,41,57,13,29,45,61
 1524 DATA 2,18,34,50,6,22,38,54,10,26,42,58,14,30,46,62
 1525DATA 3,19,35,51,7,23,39,55,11,27,43,59,15,31,47,63
 1527 DATA 4,20,36,52,8,24,40,56,12,28,44,60,16,32,48,64

dec/QUEEN.BAS

@@ -65,7 +65,7 @@
 2060 IF M1 = 158 THEN 3300
 2065 LET C = 0
 2070 FOR K = 7 TO 1 STEP -1
-2080 LET U=U1
+2080 LET U = U1
 2090 LET T = T1 + K
 2100 GO SUB 3500
 2105 IF C = 1 THEN 2160
@@ -77,7 +77,7 @@
 2145 IF C = 1 THEN 2160
 2150 NEXT K
 2155 GO TO 2180
-2160 LET C=0
+2160 LET C = 0
 2170 RETURN
 2180 GO SUB 3000
 2190 RETURN
@@ -101,13 +101,13 @@
 3200 PRINT
 3210 PRINT "Y O U   C H E A T . . . TRY AGAIN";
 3220 GO TO 230
-3290 REM  PLAYER WINS.
+3290 REM PLAYER WINS.
 3300 PRINT
-3310 PRINT "C O N G R A T U L A T I O N S . . ."
+3310 PRINT "C O N G R A T U L A T I O N S . . . "
 3320 PRINT
 3330 PRINT "YOU HAVE WON--VERY WELL PLAYED."
 3340 PRINT "IT LOOKS LIKE I HAVE MET MY MATCH."
-3350 PRINT "THANKS FOR PLAYING---I CAN'T WIN ALL THE TIME."
+3350 PRINT "THANKS FOR PLAYING--I CAN'T WIN ALL THE TIME."
 3360 PRINT
 3370 GO TO 4000
 3390 REM MACHINE WINS.
@@ -147,7 +147,7 @@
 5070 PRINT "THERE, WINS."
 5080 PRINT
 5090 PRINT "YOU GO FIRST AND PLACE THE QUEEN IN ANY ONE OF THE"
-5100 PRINT "SQUARES ON THE TOP ROW OR RIGHT-HAND COLUMN."
+5100 PRINT "SQUARES ON THE TOP ROW OR THE RIGHT-HAND COLUMN."
 5110 PRINT "THAT WILL BE YOUR FIRST MOVE."
 5120 PRINT "WE WILL THEN ALTERNATE MOVES."
 5130 PRINT "YOU MAY FORFEIT AT ANY TIME BY TYPING '0' AS YOUR MOVE."

dec/REVRSE.BAS

@@ -49,7 +49,7 @@
 760 PRINT\PRINT "2 3 4 5 1 6 7 8 9"
 770 PRINT\PRINT "AND YOU REVERSE 4, THE RESULT WILL BE:"
 780 PRINT\PRINT "5 4 3 2 1 6 7 8 9"
-790 PRINT\PRINT "NOW IF YOU REVERSE 5, YOU WIN!"
+790 PRINT\PRINT "NOW, IF YOU REVERSE 5, YOU WIN!"
 800 PRINT\PRINT "1 2 3 4 5 6 7 8 9"\PRINT
 810 PRINT "NO DOUBT YOU WILL LIKE THIS GAME OF SKILL, BUT"
 820 PRINT "IF YOU WANT TO QUIT, REVERSE 0 (ZERO)."\PRINT\RETURN

dec/ROCKET.BAS

@@ -9,23 +9,23 @@
 10 PRINT\PRINT\PRINT "GOOD LUCK!!!"
 11 L=0
 13 PRINT\PRINT "SEC","MI + FT","MPH","LB FUEL","BURN RATE"\PRINT
-15 A=120\V=1\M=33000\N=16500\G=1E-03\Z=1.8
+15 A=120\V=1\M=33000\N=16500\G=1E-3\Z=1.8
 21 PRINT L,INT(A);INT(5280*(A-INT(A))),3600*V,M-N,\INPUT K\T=10
 31 IF M-N<.001 THEN 41\IF T<.001 THEN 21\S=T\IF M>=N+S*K THEN 35
 32 S=(M-N)/K
 35 GOSUB 91\IF I<=0 THEN 71\IF V<=0 THEN 38\IF J<0 THEN 81
 38 GOSUB 61\GOTO 31
 41 PRINT "FUEL OUT AT"L"SEC"\S=(-V+SQR(V*V+2*A*G))/G\V=V+G*S\L=L+S
-51 W=3600*V\PRINT "ON MOON AT"L"SEC - IMPACT VELOCITY" W "MPH"
+51 W=3600*V\PRINT"ON MOON AT"L"SEC - IMPACT VELOCITY" W "MPH"
 52 IF W>1.2 THEN 53\PRINT "PERFECT LANDING! (LUCKY)"\GOTO 95
 53 IF W>10 THEN 56\PRINT "GOOD LANDING (COULD BE BETTER)"\GOTO 95
 56 IF W>60 THEN 58 \PRINT "CRAFT DAMAGE.....YOU'RE STRANDED HERE UNTIL"
 57 PRINT "A RESCUE PARTY ARRIVES.  HOPE YOU HAVE ENOUGH OXYGEN!"\GOTO 95
 58 PRINT "SORRY, BUT THERE WERE NO SURVIVORS...YOU BLEW IT!"
-59 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"W*.227"FT DEEP"
+59 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"W*.2777"FT DEEP"
 60 GOTO 95
 61 L=L+S\T=T-S\M=M-S*K\A=I\V=J\RETURN
-71 IF S<5E-03 THEN 51\D=V+SQR(V*V+2*A*(G-Z*K/M))\S=2*A/D
+71 IF S<5E-3 THEN 51\D=V+SQR(V*V+2*A*(G-Z*K/M))\S=2*A/D
 73 GOSUB 91\GOSUB 61\GOTO 71
 81 W=(1-M*G/(Z*K))/2\S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05\GOSUB 91
 83 IF I<=0 THEN 71\GOSUB 61\IF J>0 THEN 31\IF V>0 THEN 81\GOTO 31

dec/ROCKSP.BAS

@@ -2,7 +2,7 @@
 2 PRINT "ROCKS, PAPER, AND SISSORS AGAINST THE COMPUTER."
 5 RANDOMIZE
 6 INPUT "HOW MANY GAMES DO YOU WANT";Q
-8 IF Q<11 THEN  11
+8 IF Q<11  THEN 11
 9 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY."\GOTO 6
 11 FOR G=1 TO Q
 15 PRINT\PRINT "GAME NUMBER"G

dec/ROCKT1.BAS

@@ -1,7 +1,7 @@
 70 PRINT "LUNAR LANDING SIMULATION"
 80 PRINT "----- ------- ----------"\PRINT
 100 INPUT "DO YOU WANT INSTRUCTIONS (YES OR NO)";A$
-110 IF A$="NO" THEN 390
+120 IF A$="NO" THEN 390
 160 PRINT
 200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
 210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT.  YOU HAVE A"
@@ -20,12 +20,12 @@
 340 PRINT "    WILL AUTOMATICALLY CUT OFF AND YOU WILL BE GIVEN A"
 350 PRINT "    REPORT OF YOUR LANDING SPEED AND REMAINING FUEL."
 360 PRINT "(5) IF YOU RUN OUT OF FUEL, THE '?' WILL NO LONGER APPEAR,"
-370 PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
+370 PRINT "    BUT YOU SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
 380 PRINT "    YOU CONTACT THE LUNAR SURFACE."\PRINT
 390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
-400 PRINT "G O O D   L U C K ! ! !"
+410 PRINT "G O O D   L U C K ! ! !"
 420 PRINT\PRINT
-430 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
+440 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
 450 PRINT
 455 T=0\H=500\V=50\F=120
 490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
@@ -63,6 +63,6 @@
 830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
 840 PRINT\PRINT\PRINT
 850 INPUT "ANOTHER MISSION";A$
-860 IF A$="YES" THEN 390
+870 IF A$="YES" THEN 390
-870 PRINT\PRINT "CONTROL OUT."\PRINT
+880 PRINT\PRINT "CONTROL OUT."\PRINT
 999 END

dec/ROCKT2.BAS

@@ -38,7 +38,7 @@
  180 PRINT "JUST ANSWER THE QUESTION, PLEASE";
  185 GOTO 160
  190 PRINT
- 195 PRINT "INPUT MEASUREMENT OPTION NUMBER";
+ 195 PRINT "ENTER MEASUREMENT OPTION NUMBER";
  200 GOTO 225
  205 PRINT
  210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ?"
@@ -88,13 +88,13 @@
  430 PRINT
  435 PRINT "ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED."
   440 PRINT
- 445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX THRUST"
+ 445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX. THRUST"
  450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"
  455 PRINT "FOR AN ATTITUDE CHANGE."
  460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN"
-  465 PRINT "10 AND 100 PERCENT."
+  465 PRINT "10 AND 100 PERCENT"
  470 PRINT
- 475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED"
+ 475 PRINT "NEGATIVE THRUST OR TIME IS PROHIBITED"
  480 PRINT
  485 PRINT
  490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (T)"
@@ -182,7 +182,7 @@
  900 GOTO 995
  905 PRINT
  910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";
- 915 PRINT "TIME CONTINUUM."
+ 915 PRINT "TIME CONTINUUM"
  920 GOTO 575
  925 PRINT
  930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE";
@@ -204,10 +204,10 @@
 1010 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."
 1015 GOTO 1100
 1020 PRINT
-1025 PRINT "CRASH !!!!!!!!!!!"
+1025 PRINT "CRASH !!!!!!!!!!"
 1030 PRINT "YOUR IMPACT CREATED A CRATER";ABS(H);M$;" DEEP"
 1035 X1=SQR(D1*D1+H1*H1)*G3
-1040 PRINT "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR."
+1040 PRINT "AT CONTACT YOU WERE TRAVELLING";X1;N$;"/HR."
 1045 GOTO 1100
 1050 PRINT
 1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY"

dec/ROULET.BAS

@@ -34,12 +34,12 @@
 1340 PRINT
 1350 PRINT
 1360 PRINT, "    ***********"
-1370 PRINT, "    *    O    *"
+1370 PRINT, "    *    0    *"
 1375 LET U$ = "*******************"
 1380 PRINT,U$
 1390 PRINT,"*  1  *  2  *  3  *"
 1400 PRINT,"* RED *BLACK* RED *"
-1410 PRINT,U$
+1410 PRINT ,U$
 1420 PRINT,"*  4  *  5  *  6  *"
 1430 PRINT,"*BLACK* RED *BLACK*"
 1440 PRINT,U$
@@ -66,14 +66,14 @@
 1650 PRINT,U$
 1660 PRINT,"* 28  * 29  * 30  *"
 1670 PRINT,"*BLACK*BLACK* RED *"
-1680 PRINT,U$
+1680 PRINT ,U$
 1690 PRINT,"* 31  * 32  * 33  *"
 1700 PRINT,"*BLACK* RED *BLACK*"
 1710 PRINT,U$
 1720 PRINT,"* 34  * 35  * 36  *"
 1730 PRINT,"* RED *BLACK* RED *"
 1740 PRINT,U$
-1750 PRINT, "*COL.1*COL.2*COL 3*"
+1750 PRINT, "*COL.1*COL.2*COL.3*"
 1760 PRINT,U$
 1800 PRINT
 1810 PRINT
@@ -111,12 +111,12 @@
 2130 PRINT "RED OR BLACK";
 2140 INPUT D$
 2150 IF D$ = "RED" THEN 2190
-2160 IF D$ = "BLACK"THEN 2190
+2160 IF D$ = "BLACK" THEN 2190
 2170 PRINT "PLEASE TYPE RED OR BLACK."
 2180 GO TO 2130
 2190 PRINT "HOW MUCH DO YOU WANT TO BET";
 2200 INPUT I
-2210 IF I <= 10000 THEN 2040
+2210 IF I <= 10000 THEN 2240
 2220 GOSUB 2810
 2230 GO TO 2190
 2240 FOR I2 = 0 TO 10000
@@ -170,7 +170,7 @@
 2720 GOSUB 2810
 2730 GO TO 2690
 2740 FOR G9 = 0 TO 10000
-2750 IF G = G0 THEN 2880
+2750 IF G = G9 THEN 2880
 2760 NEXT G9
 2770 GOSUB 2840
 2780 GO TO 2690
@@ -194,29 +194,29 @@
 2960 ON T-19 GO TO 3430,3390,3410,3370,3450,3350,3310,3510,3410,3490
 2970 ON T-29 GO TO 3330,3470,3310,3510,3290,3490,3330
 3290 PRINT T;" RED, EVEN, COLUMN 1"
-3300 GOTO 3540
+3300 GO TO 3540
 3310 PRINT T;" RED, EVEN, COLUMN 2"
-3320 GOTO 3540
+3320 GO TO 3540
 3330 PRINT T;" RED, EVEN, COLUMN 3"
-3340 GOTO 3540
+3340 GO TO 3540
 3350 PRINT T;" RED, ODD, COLUMN 1"
-3360 GOTO 3540
+3360 GO TO 3540
 3370 PRINT T;" RED, ODD, COLUMN 2"
-3380 GOTO 3540
+3380 GO TO 3540
 3390 PRINT T;" RED, ODD, COLUMN 3"
-3400 GOTO 3540
+3400 GO TO 3540
 3410 PRINT T;" BLACK, EVEN, COLUMN 1"
-3420 GOTO 3540
+3420 GO TO 3540
 3430 PRINT T; " BLACK, EVEN, COLUMN 2"
-3440 GOTO 3540
+3440 GO TO 3540
 3450 PRINT T; " BLACK, EVEN, COLUMN 3"
-3460 GOTO 3540
+3460 GO TO 3540
-3470 PRINT T; " BLACK, ODD, COLUMN 1"
+3470 PRINT T; " BLACK, ODD, COLUMN1"
-3480 GOTO 3540
+3480 GO TO 3540
 3490 PRINT T; " BLACK, ODD, COLUMN 2"
-3500 GOTO 3540
+3500 GO TO 3540
 3510 PRINT T; " BLACK, ODD, COLUMN 3"
-3520 GOTO 3540
+3520 GO TO 3540
 3530 PRINT T
 3540 IF G = 0 THEN 3610
 3550 IF T = F THEN 3590
@@ -253,7 +253,7 @@
 3860 IF T = A2 THEN 3970
 3870 NEXT A2
 3880 FOR A3 = 19 TO 25 STEP 2
-3890 IF T= A3 THEN 3970
+3890 IF T = A3 THEN 3970
 3900 NEXT A3
 3910 FOR A4 = 30 TO 36 STEP 2
 3920 IF T = A4 THEN 3970
@@ -321,7 +321,7 @@
 4540 GO TO 4570
 4550 PRINT " YOU HAVE WON A TOTAL OF $"K1" THUS FAR."
 4560 GO TO 4570
-1570 PRINT
+4570 PRINT
 4580 PRINT " DO YOU WANT TO PLAY AGAIN";
 4590 INPUT M$
 4600 IF M$ = "NO" THEN 4640

dec/RUSROU.BAS

@@ -1,5 +1,5 @@
 5 RANDOMIZE
-8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE."
+8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE"
 10 PRINT\PRINT "HERE IS A REVOLVER"
 20 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER."
 22 PRINT "     (HIT '2' TO GIVE UP)"\PRINT "GO";

dec/SALVO.BAS

@@ -53,7 +53,7 @@
 1520FORX=1TO5
 1530INPUTY,Z
 1540LETB(Y,Z)=3
-1550NEXT X
+1550NEXTX
 1560PRINT"CRUISER"
 1570FORX=1TO3
 1580INPUTY,Z
@@ -274,11 +274,11 @@
 3730NEXTQ
 3740PRINT"PROGRAM ABORT:"
 3750FORQ=1TO12
-3760PRINT"E("Q") ="E(Q)
+3760PRINT"E("Q")="E(Q)
-3770PRINT"H("Q") ="H(Q)
+3770PRINT"H("Q")="H(Q)
 3780NEXTQ
 3790STOP
-3800REM***************USINGEARRAY
+3800REM**************USINGEARRAY
 3810FORR=1TO10
 3820FORS=1TO10
 3830LETK(R,S)=0

dec/SALVO1.BAS

@@ -3,7 +3,7 @@
 120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY  ONE OUTPOST."
 130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
 135 PRINT
-140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
+140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSILES AT THE"
 150 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
 160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
 170 PRINT "FIRST IS THE WINNER."
@@ -23,39 +23,40 @@
 390 D = INT(RND(N) * 25) + 1
 400 E = INT(RND(N) *25) +1
 410 F = INT(RND(N) * 25) + 1
-420 IF C = D THEN 390
+420 IF C = D GOTO 390
-430 IF C = E THEN 400
+430 IF C = E GOTO 400
-440 IF C = F THEN 410
+440 IF C = F GOTO 410
-450 IF D = E THEN 400
+450 IF D = E GOTO 400
-460 IF D = F THEN 410
+460 IF D = F GOTO 410
-470 IF E = F THEN 410
+470 IF E = F GOTO 410
 480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
 490 INPUT G,H,K,L
 495 PRINT
-500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
+500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSILE";
 510 INPUT Y
-520IF Y = C THEN 710
+520IF Y = C GOTO 710
-530 IF Y = D THEN 710
+530 IF Y = D GOTO 710
-540 IF Y = E THEN 710
+540 IF Y = E GOTO 710
-550 IF Y = F THEN 710
+550 IF Y = F GOTO 710
 560 GOTO 630
 570 M = INT(RND(N) * 25) + 1
 575 GOTO 1160
-580 IF X = G THEN 920
+580 IF X = G GOTO 920
-590 IF X = H THEN 920
+590 IF X = H GOTO 920
-600 IF X = L THEN 920
+600 IF X = L GOTO 920
-610 IF X = K THEN 920
+610 IF X = K GOTO 920
 620 GOTO 670
 630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
 640 PRINT\PRINT\GOTO 570
 670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
 680 PRINT\PRINT\GOTO 500
+
 710 Q = Q +1
-720 IF Q = 4 THEN 890
+720 IF Q = 4 GOTO 890
 730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
-740 IF Q = 1 THEN 770
+740 IF Q = 1 GOTO 770
-750 IF Q = 2 THEN 810
+750 IF Q = 2 GOTO 810
-760 IF Q = 3 THEN 850
+760 IF Q = 3 GOTO 850
 770 PRINT " ONE DOWN THREE TO GO"
 780 PRINT\PRINT\GOTO 570
 810 PRINT " TWO DOWN TWO TO GO"
@@ -73,9 +74,9 @@
 970 IF Z=3 THEN 1070
 990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
 1000 PRINT\PRINT\GOTO 500
-1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
+1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT."
 1040  PRINT\PRINT\GOTO 500
-1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
+1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT."
 1080 PRINT\PRINT\GOTO 500
 1110 PRINT " YOU'RE DEAD.  YOUR LAST OUTPOST WAS AT"X".  HA, HA, HA!"
 1120 PRINT " BETTER LUCK NEXT TIME."
@@ -83,7 +84,7 @@
 1160 P=P+1
 1170 N=P-1
 1180 FOR T = 1 TO N
-1190 IF M = M(T) THEN 570
+1190 IF M = M(T) GOTO 570
 1200 NEXT T
 1210 X = M
 1220 M(P) = M

dec/SLOTS.BAS

@@ -36,7 +36,7 @@
 450 GO TO 510
 460 IF D(1)/2<>INT(D(1)/2) THEN 510
 470 LET B=B+5\PRINT "KENO..YOU WIN $5..TOTAL=$";B;
-480 GOTO 550
+480 GO TO 550
 490 LET B=B-1\PRINT "YOU HAVE LOST $1 -- TOTAL=$";B;
 500 GOTO 550
 510 LET B=B+1\PRINT "YOU HAVE WON $1 --- TOTAL=$";B;

dec/SNOOPY.ASC

@@ -1,51 +1,61 @@
+           *
+          *
+      *** *          ***                         ********
+     *   **         *   *                      **        *
+    *     *        *     *                    *           *
+   *       *      *                          *             *
+  *         ******        *                 *               *
+            *             ***                                *
+            *             ****             *
+ *          *             ** *
+             *            ****            *                  *
+**                        ****
+**                         **            *                  *
+***
+***                                                        *
+****                     *              *                 *
+****        ******      *                *
+*****     **      *    *                  *              *
+*****     *        ****                    **           *
+******    *                                  *        **
+******                                        ********
+*******    *
+*******     **
+ *******      **   * *
+ *******        *** **
+ ********            *
+  *******           *
+  ********        **
+  ********        *
+   *******        *
+   ******** **     ******           **
+    *******   *          ***       *  *
+    *******    *            **         *
+     *******        ***       *    *   *
+     *******    * **   *               *
+      ******    **      *      *    *  *
+       *****    *        *      *   *  *
+       ****    *         *          *  *
+        **               *         **  *
+              *    ** ****       **    *
+               ****  *****             *
+                  *   ****             *
+                  *   ***              *
+                  *
+                                  *   *
+                                 *   *
+                                   **
+                   *            *
 
-
+                    *
-
+                     *         *
-                       XXXX
+                      *
-                      X    XX
+                       *      *
-                     X  ***  X                XXXXX
+                             *
-                    X  *****  X            XXX     XX
+                             *
-                 XXXX ******* XXX      XXXX          XX
+                        **    *
-               XX   X ******  XXXXXXXXX                XX XXX
+                       *       *
-             XX      X ****  X                           X** X
+                      *         *
-            X        XX    XX     X                      X***X
+                      *   * * *
-           X         //XXXX       X                      XXXX
+                      *   * * **
-          X         //   X                             XX
+                       ********
-         X         //    X          XXXXXXXXXXXXXXXXXX/
-         X     XXX//    X          X
-         X    X   X     X         X
-         X    X    X    X        X
-          X   X    X    X        X                    XX
-          X    X   X    X        X                 XXX  XX
-           X    XXX      X        X               X  X X  X
-           X             X         X              XX X  XXXX
-            X             X         XXXXXXXX\     XX   XX  X
-             XX            XX              X     X    X  XX
-               XX            XXXX   XXXXXX/     X     XXXX
-                 XXX             XX***         X     X
-                    XXXXXXXXXXXXX *   *       X     X
-                                 *---* X     X     X
-                                *-* *   XXX X     X
-                                *- *       XXX   X
-                               *- *X          XXX
-                               *- *X  X          XXX
-                              *- *X    X            XX
-                              *- *XX    X             X
-                             *  *X* X    X             X
-                             *  *X * X    X             X
-                            *  * X**  X   XXXX          X
-                            *  * X**  XX     X          X
-                           *  ** X** X     XX          X
-                           *  **  X*  XXX   X         X
-                          *  **    XX   XXXX       XXX
-                         *  * *      XXXX      X     X
-                        *   * *          X     X     X
-          =======*******   * *           X     X      XXXXXXXX\
-                 *         * *      /XXXXX      XXXXXXXX\      )
-            =====**********  *     X                     )  \  )
-              ====*         *     X               \  \   )XXXXX
-         =========**********       XXXXXXXXXXXXXXXXXXXXXX
-
-
-                            CURSE YOU, RED BARON!
-

dec/SNOPY1.ASC

@@ -0,0 +1,47 @@
+              XXXX
+             X    XX
+            X  ***  X                XXXXX
+           X  *****  X            XXX     XX
+        XXXX ******* XXX      XXXX          XX
+      XX   X ******  XXXXXXXXX                XX XXX
+    XX      X ****  X                           X** X
+   X        XX    XX     X                      X***X
+  X         //XXXX       X                      XXXX
+ X         //   X                             XX
+X         //    X          XXXXXXXXXXXXXXXXXX/
+X     XXX//    X          X
+X    X   X     X         X
+X    X    X    X        X
+ X   X    X    X        X                    XX
+ X    X   X    X        X                 XXX  XX
+  X    XXX      X        X               X  X X  X
+  X             X         X              XX X  XXXX
+   X             X         XXXXXXXX\     XX   XX  X
+    XX            XX              X     X    X  XX
+      XX            XXXX   XXXXXX/     X     XXXX
+        XXX             XX***         X     X
+           XXXXXXXXXXXXX *   *       X     X
+                        *---* X     X     X
+                       *-* *   XXX X     X
+                       *- *       XXX   X
+                      *- *X          XXX
+                      *- *X  X          XXX
+                     *- *X    X            XX
+                     *- *XX    X             X
+                    *  *X* X    X             X
+                    *  *X * X    X             X
+                   *  * X**  X   XXXX          X
+                   *  * X**  XX     X          X
+                  *  ** X** X     XX          X
+                  *  **  X*  XXX   X         X
+                 *  **    XX   XXXX       XXX
+                *  * *      XXXX      X     X
+               *   * *          X     X     X
+ =======*******   * *           X     X      XXXXXXXX\
+        *         * *      /XXXXX      XXXXXXXX\      )
+   =====**********  *     X                     )  \  )
+     ====*         *     X               \  \   )XXXXX
+=========**********       XXXXXXXXXXXXXXXXXXXXXX
+
+
+                   CURSE YOU, RED BARON!

dec/SPACWR.BAS

@@ -1,14 +1,14 @@
 100     REM *** PROGRAM SIMULATES TV PROGRAM STARTREK
 110     REM *** WRITTEN BY MIKE MAYFIELD, CENTERLINE ENGINEERING
 120     REM *** DEBUGGING AND MINOR REVISIONS BY LEO LAVERDURE, IRA POTEL,
-130     REM *** MARY COLE, AND DAVE AHL FROM DIGITAL
+130     REM *** MARY COLE, AND DAVE AHL OF DIGITAL
 170     RANDOMIZE
 180     PRINT "                  * * *  STAR TREK  * * *":PRINT
 200     INPUT "DO YOU WANT INSTRUCTIONS (THEY'RE LONG!)";A$
 210     IF A$<>"YES" THEN 230
 220     GOTO 5820
 230     REM *** PROGRAM BEGINS HERE
-240     Z$,R$,Q$="                                                                      "
+240     Z$,R$,Q$="
 260     DIM G(8,8),C(9,2),K(3,3),N(3),Z(8,8)
 290     T0,T=INT(RND(1)*20+20)*100
 300     T9=30:D0=0:E0,E=3000:P0,P=10:S9=200:S,H8=0
@@ -48,8 +48,8 @@
 760     NEXT I
 770     K7=K9
 775     PRINT:PRINT
-780     PRINT"YOU MUST DESTROY"K9" KLINGONS IN"T9" STARDATES WITH "B9" STARBASES"
+780     PRINT"YOU MUST DESTROY"K9" KLINGONS IN"T9" STARDATES WITH "B9
-790     IF B9>0 THEN 810
+790     IF B9>0 THEN 810                                 " STARBASES"
 800     G(6,3)=114
 810     K3,B3,S3=0
 820     IF Q1<1 OR Q1>8 OR Q2<1 OR Q2>8 THEN 920
@@ -117,7 +117,7 @@
 1401    REM *** COURSE CONTROL CODE BEGINS HERE
 1410    INPUT "COURSE (1-9):";C1
 1430    IF C1=0 THEN 1270
-1440    IF C1<1 OR C1 >9 THEN 1410
+1440    IF C1<1 OR C1>9 THEN 1410
 1450    INPUT "WARP FACTOR (0-8):";W1
 1470    IF W1<0 OR W1>8 THEN 1410
 1480    IF D(1)>=0 OR W1<=.2 THEN 1510
@@ -125,7 +125,7 @@
 1500    GOTO 1410
 1510    IF K3<=0 THEN 1560
 1520    GOSUB 3790
-1530    IF K3<=0  THEN 1560
+1530    IF K3<=0 THEN 1560
 1540    IF S<0 THEN 4000
 1550    GOTO 1610
 1560    IF E>0 THEN 1610
@@ -162,7 +162,7 @@
 1990    IF S8>144 THEN 2020
 2000    IF MID(R$,S8-72,3)="   " THEN 2070
 2010    GOTO 2030
-2020    IF MID(S$, S8-144,3)="   " THEN 2070
+2020    IF MID(S$,S8-144,3)="   " THEN 2070
 2030    PRINT"WARP ENGINES SHUTDOWN AT SECTOR "S1","S2" DUE TO BAD NAVAGATION"
 2040    S1=S1-X1:S2=S2-X2:GOTO 2080
 2070    NEXT I
@@ -235,7 +235,7 @@
 2850    GOTO 1270
 2860    INPUT "TORPEDO COURSE (1-9):";C1
 2880    IF C1=0 THEN 1270
-2890    IF C1<1 OR C1 >=9 THEN 2860
+2890    IF C1<1 OR C1>=9 THEN 2860
 2900    X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))
 2910    X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))
 2920    X=S1:Y=S2:P=P-1
@@ -321,11 +321,11 @@
 3970    PRINT:PRINT "IT IS STARDATE"T
 3990    GOTO 4020
 3991    REM *** NO ENERGY LEFT
-4000    PRINT:PRINT"THE ENTERPRISE HAS BEEN DESTROYED.  THE FEDERATION WILL BE CONQUERED"
+4000    PRINT:PRINT"THE ENTERPRISE HAS BEEN DESTROYED.  THE FEDERATION WILL BE
-4020    PRINT "THERE ARE STILL "K9" KLINGON BATTLE CRUISERS"
+4020    PRINT "THERE ARE STILL "K9" KLINGON BATTLE CRUISERS"         CONQUERED"
 4030    PRINT:PRINT:PRINT:PRINT "YOU GET ANOTHER CHANCE....":GOTO 230
-4040    PRINT:PRINT"THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN DESTROYED"
+4040    PRINT:PRINT"THE LAST KLINGON BATTLE CRUISER IN THE GALAXY HAS BEEN
-4050    PRINT"THE FEDERATION HAS BEEN SAVED!!!!!":PRINT
+4050    PRINT"THE FEDERATION HAS BEEN SAVED!!!!!":PRINT              DESTROYED"
 4075    E5=((K7/(T-T0))*1000)
 4080    PRINT "YOUR EFFICIENCY RATING ="E5
 4100    PRINT"YOUR ACTUAL TIME OF MISSION ="INT((TIME(0)-T7)/60);" MINUTES"
@@ -424,7 +424,7 @@
 4870    GOTO 3560
 4880    PRINT:H8=0
 4881    REM *** PHOTON TORPEDO DATA CODE BEGINS HERE
-4900    FOR I=1TO 3
+4900    FOR I=1TO3
 4910    IF K(I,3)<=0 THEN 5260
 4920    C1=S1:A=S2:W1=K(I,1):X=K(I,2)
 4960    GOTO 5010
@@ -475,7 +475,7 @@
 5600    RETURN
 5610    REM *** PRINTS DEVICE NAME FROM ARRAY***
 5620    S8=R1*12-11:IF S8>72 THEN 5660
-5640    PRINT MID(D$,S8,11),:GOTO5670
+5640    PRINT MID(D$,S8,11),:GOTO 5670
 5660    PRINT MID(E$,S8-72,11),
 5670    RETURN
 5680    REM ***STRING COMPARISON IN QUADRANT ARRAY***
@@ -496,15 +496,15 @@
 5840    &"+++ = KLINGON"
 5850    &">!< = STARBASE":& " *  = STAR"
 5870    &"COMMAND 0 = WARP ENGINE CONTROL:"
-5880    &"  COURSE IS IN A CIRCULAR NUMERICAL            4  3  2"
+5880    &"  COURSE IS IN A CIRCULAR NUMERICAL       4  3  2"
-5890    &"  VECTOR ARRANGEMENT AS SHOWN.                  \ ^ /"
+5890    &"  VECTOR ARRANGEMENT AS SHOWN.             \ ^ /"
-5900    &"  INTEGER AND REAL VALUES MAY BE                 \^/"
+5900    &"  INTEGER AND REAL VALUES MAY BE            \^/"
-5910    &"  USED.  THEREFORE COURSE 1.5 IS              5 ----- 1"
+5910    &"  USED.  THEREFORE COURSE 1.5 IS         5 ----- 1"
-5920    &"  HALF WAY BETWEEN 1 AND 2.                      /^\"
+5920    &"  HALF WAY BETWEEN 1 AND 2.                 /^\"
-5930    &"                                                / ^ \"
+5930    &"                                           / ^ \"
-5940    &"  A VECTOR OF 9 IS UNDEFINED, BUT              6  7  8"
+5940    &"  A VECTOR OF 9 IS UNDEFINED, BUT         6  7  8"
 5950    &"  VALUES MAY APPROACH 9."
-5960    &"                                               COURSE"
+5960    &"                                          COURSE"
 5970    &"  ONE WARP FACTOR IS THE SIZE OF"
 5980    &"  ONE QUADRANT.  THEREFORE TO GET"
 5990    &"  FROM QUADRANT 6,5 TO 5,5 YOU WOULD"
@@ -531,7 +531,7 @@
 6190    &"  BACK AT YOU.  IF YOU MISS, YOU ARE SUBJECT TO HIS "
 6200    &"  PHASER FIRE."
 6210    &:&"  NOTE:  THE LIBRARY COMPUTER (COMMAND 7) HAS AN OPTION"
-6220    &"   TO COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)."
+6220    &"  TO COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)."
 6230    &:&"COMMAND 5 = SHIELD CONTROL"
 6240    &"  DEFINES NUMBER OF ENERGY UNITS TO BE ASSIGNED TO SHIELDS"
 6250    &"  ENERGY IS TAKEN FROM TOTAL SHIP'S ENERGY."

dec/SPLAT.BAS

@@ -19,17 +19,17 @@
 141 PRINT "'YES' OR 'NO' PLEASE";\INPUT B1$\GOTO 140
 143 PRINT "WHAT ACCELERATION (FT/SEC/SEC)";\INPUT A2
 145 A=A2+((A2*RND(0))/20)-((A2*RND(0))/20)\GOTO 205
-150 ON INT(1+(10*RND(0)))GOTO 151,152,153,154,155,156,157,158,159,160
+150 ON INT(1+(10*RND(0)))GOTO151,152,153,154,155,156,157,158,159,160
-151 PRINT"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2 FT/SEC/SEC."\GOTO 161
+151 PRINT"FINE. YOU'RE ON MERCURY. ACCELERATION=12.2FT/SEC/SEC"\GOTO161
-152 PRINT"ALRIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC."\GOTO 162
+152 PRINT"ALRIGHT. YOU'RE ON VENUS. ACCELERATION=28.3 FT/SEC/SEC"\GOTO162
-153 PRINT "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC."\GOTO 163
+153 PRINT "THEN YOU'RE ON EARTH. ACCELERATION=32.16 FT/SEC/SEC"\GOTO 163
-154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15 FT/SEC/SEC."\GOTO 164
+154 PRINT"FINE. YOU'RE ON THE MOON. ACCELERATION=5.15FT/SEC/SEC"\GOTO 164
-155 PRINT"ALRIGHT. YOU'RE ON MARS. ACCELERATION=12.5 FT/SEC/SEC."\GOTO 165
+155 PRINT"ALRIGHT. YOU'RE ON MARS. ACCELERATION=12.5FT/SEC/SEC"\GOTO 165
-156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATION=85.2 FT/SEC/SEC."\GOTO 166
+156 PRINT"THEN YOU'RE ON JUPITER. ACCELERATION=85.2FT/SEC/SEC"\GOTO 166
-157 PRINT"FINE. YOU'RE ON SATURN. ACCELERATION=37.6 FT/SEC/SEC."\GOTO 167
+157 PRINT"FINE. YOU'RE ON SATURN. ACCELERATION=37.6FT/SEC/SEC"\GOTO 167
-158 PRINT"ALRIGHT. YOU'RE ON URANUS. ACCELERATION=33.8 FT/SEC/SEC."\GOTO 168
+158 PRINT"ALRIGHT. YOU'RE ON URANUS. ACCELERATION=33.8FT/SEC/SEC"\GOTO 168
-159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATION=39.6 FT/SEC/SEC."\GOTO 169
+159 PRINT"THEN YOU'RE ON NEPTUNE. ACCELERATION=39.6FT/SEC/SEC"\GOTO 169
-160 PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=896 FT/SEC/SEC."\GOTO 170
+160 PRINT"FINE. YOU'RE ON THE SUN. ACCELERATION=896FT/SEC/SEC"\GOTO 170
 161 A2=12.2\GOTO 145
 162 A2=28.3\GOTO 145
 163 A2=32.16\GOTO 145

dec/STARS.BAS

@@ -5,7 +5,7 @@
 140 REM *** A IS LIMIT ON NUMBER, M IS NUMBER OF GUESSES
 150 LET A=100
 160 LET M=7
-170 PRINTT "DO YOU WANT INSTRUCTIONS (1=YES 0=NO)";
+170 PRINT "DO YOU WANT INSTRUCTIONS (1=YES 0=NO)";
 180 INPUT Z
 190 IF Z=0 THEN 280
 200 REM *** INSTRUCTIONS ON HOW TO PLAY
@@ -18,7 +18,7 @@
 270 REM *** COMPUTER 'THINKS' OF A NUMBER
 280 PRINT
 290 PRINT
-300 LET X=INT(A*RND(0)+1)
+300 LET X=INT(A*RND(0))+1
 310 PRINT "OK, I AM THINKING OF A NUMBER. START GUESSING."
 320 REM *** GUESSING BEGINS. HUMAN GETS M GUESSES
 330 FOR K=1 TO M
@@ -43,14 +43,14 @@
 520 PRINT
 530 NEXT K
 540 REM *** DID NOT GUESS NUMBER IN M GUESSES
-550 PRINT 
+550 PRINT
-560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X
+560 PRINT "SORRY, THAT'S";M;"GUESSES. NUMBER WAS";X
 580 GOTO 280
 590 REM *** WE HAVE A WINNER
 600 FOR N=1 TO 50
 610 PRINT "*";
 620 NEXT N
 630 PRINT "!!!"
-640 PRINT "YOU GOT IT IN";K;"GUESSES!!  LET'S PLAY AGAIN..."
+640 PRINT "YOU GOT IT IN ";K;"GUESSES!!  LET'S PLAY AGAIN..."
 650 GOTO 280
 660 END

dec/STOCK.BAS

@@ -85,7 +85,7 @@
 394  LET D=T+C
 395  IF X9>0 THEN 398
 396  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5
-397  GOTO 399
+397  GO TO 399
 398  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5"   NET CHANGE: "Z6
 399  PRINT
 400  LET T=INT(100*T+.5)/100
@@ -120,11 +120,11 @@
 575  LET Z(I)=INT(Z(I)+.5)
 580  IF Z(I)<=0 THEN 610
 590  LET P5=P5+Z(I)*S(I)
-600  GOTO 620
+600  GO TO 620
 610  LET S5=S5-Z(I)*S(I)
 612  IF -Z(I)<=P(I) THEN 620
 614  PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN."
-616  GOTO 420
+616  GO TO 420
 620  NEXT I
 622 REM TOTAL VALUE OF TRANSACTIONS:T5
 625  LET T5=P5+S5
@@ -135,7 +135,7 @@
 654  LET C5=C-P5-B5+S5
 656  IF C5>=0 THEN 674
 658 PRINT "YOU HAVE USED $";-C5"MORE THAN YOU HAVE."
-660 GOTO 420
+660 GO TO 420
 674  LET C=C5
 675 REM CALCULATE NEW PORTFOLIO
 680  FOR I=1 TO 5
@@ -162,7 +162,7 @@
 775  LET X9=1
 780  PRINT
 790  PRINT
-810  GOTO 360
+810  GO TO 360
 829 REM NEW STOCK VALUES - SUBROUTINE
 830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS
 831 REM DAY'S VALUES
@@ -187,13 +187,13 @@
 910  LET X1=RND(X)
 915  IF X1>.25 THEN 920
 916  LET X1=.25
-917  GOTO 935
+917  GO TO 935
 920  IF X1>.50 THEN 925
 921  LET X1=.50
-922  GOTO 935
+922  GO TO 935
 925  IF X1>.75 THEN 930
 926  LET X1=.75
-927  GOTO 935
+927  GO TO 935
 930  LET X1=0.0
 931 REM BIG CHANGE CONSTANT:W3  (SET TO ZERO INITIALLY)
 935  LET W3=0
@@ -214,7 +214,7 @@
 960  IF S(I)>0 THEN 967
 964  LET C(I)=0
 965  LET S(I)=0
-966  GOTO 970
+966  GO TO 970
 967  LET S(I)=INT(100*S(I)+.5)/100
 970  NEXT I
 972 REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE

dec/SYNONM.BAS

@@ -30,7 +30,7 @@
 290 NEXT J
 300 PRINT "     TRY AGAIN."
 310 GOTO 240
-320 PRINT R$(INT(RND*5+1))
+320 PRINT R$(RND*5+1)
 330 GOTO 150
 340 G1=INT(RND*L(0)+1)
 360 PRINT "**** A SYNONYM OF "W$(G)" IS "W$(L(G1))"."

dec/TARGET.BAS

@@ -6,7 +6,7 @@
 150 PRINT "OF THE TARGET IN THREE-DIMENSIONAL RECTANGULAR COORDINATES,"
 160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z"
 170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET."
-180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS"
+180 PRINT "YOU WILL THEN PROCEED TO SHOOT AT THE TARGET UNTIL IT IS"
 190 PRINT "DESTROYED!"\PRINT\PRINT "GOOD LUCK!!"\PRINT\PRINT
 220 A=RND*2*PI\B=RND*2*PI\Q=INT(A*R1)\W=INT(B*R1)
 260 PRINT "RADIANS FROM X AXIS ="A"   FROM Z AXIS ="B

dec/TICTAC.BAS

@@ -75,7 +75,7 @@
 800 GOSUB 2000
 810 GO TO 480
 820 REM PRINT TIC-TAC-TOE BOARD ROW.....
-830 REM 
+830 REM
 840 IF B<>0 THEN 910
 850 PRINT "    * ";
 860 IF D<>0 THEN 940

dec/TOWER.BAS

@@ -23,11 +23,11 @@
 310 PRINT "ALRIGHT, WISE GUY, IF YOU CAN'T PLAY THE GAME RIGHT, I'LL"
 320 PRINT "JUST TAKE MY PUZZLE AND GO HOME.  SO LONG."\STOP
 340 REM *** STORE DISKS FROM SMALLEST TO LARGEST
-350 PRINT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY NUMERICAL CODE."
+350 PRINT "IN THIS PROGRAM, WE SHALL REFER TO DISKS BY A NUMERICAL CODE."
 355 PRINT "3 WILL REPRESENT THE SMALLEST DISK, 5 THE NEXT SIZE, 7 THE NEXT,"
 360 PRINT "AND SO ON, UP TO 15.  IF YOU DO THE PUZZLE WITH 2 DISKS, THEIR"
-365 PRINT "CODE NAMES WOULD BE 13 AND 15.  WITH THREE DISKS, THE CODE"
+365 PRINT "CODE NAMES WOULD BY 13 AND 15.  WITH THREE DISKS, THE CODE"
-370 PRINT "NAMES WOULD BE 11, 13 AND 15, ETC.   THE NEEDLES ARE"
+370 PRINT "NAMES WOULD BE 11, 13, AND 15, ETC.  THE NEEDLES ARE"
 375 PRINT "NUMBERED FROM LEFT TO RIGHT, 1 TO 3.  WE WILL START WITH THE "
 380 PRINT "DISKS ON NEEDLE 1, AND ATTEMPT TO MOVE THEM TO NEEDLE 3."
 390 PRINT\PRINT "GOOD LUCK!!"\PRINT
@@ -63,6 +63,7 @@
 760 PRINT "I ONLY ALLOW ONE MISTAKE."\GOTO 705
 780 PRINT "I TRIED TO WARN YOU, BUT YOU WOULDN'T LISTEN."
 790 PRINT "BYE, BYE, BIG SHOT."\STOP
+795 REM *** LOCATE DISK TO BE MOVED
 800 FOR R=1 TO 7
 810 IF T(R,N)<>0 THEN 840
 820 NEXT R
@@ -85,7 +86,7 @@
 980 T(U,N)=T(V,W)\T(V,W)=0
 995 REM *** PRINT OUT CURRENT STATUS
 1000 GOSUB 1230
-1018 REM *** CHECK IF DONE
+1010 REM *** CHECK IF DONE
 1020 M=M+1
 1030 FOR R=1 TO 7\FOR C=1 TO 2
 1050 IF T(R,C)<>0 THEN 1090

dec/TRAP.BAS

@@ -22,7 +22,7 @@
 220  INPUT A,B
 230 IF A<>B THEN 240
 235 IF X=A THEN 400
-240 IF A <=B THEB 260
+240 IF A<=B THEN 260
 250  GOSUB 360
 260 IF X<A THEN 300
 270 IF X<=B THEN 320
@@ -31,7 +31,7 @@
 300  PRINT "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."
 310  GOTO 330
 320  PRINT "YOU HAVE TRAPPED MY NUMBER."
-330  NEXTQ
+330  NEXT Q
 340  PRINT "SORRY, THAT'S";G;"GUESSES. NUMBER WAS";X
 350  GOTO 410
 360  R=A

dec/WAR-2.BAS

@@ -3,11 +3,11 @@
    4 PRI "WE HAVE 72000 SOLDIERS A PIECE."
    5 PRI "DISTRIBUTE YOUR FORCES."
    6 PRI ,"ME","YOU"
-   7 PRI"ARMY",30000,
+   7 PRI"ARMY","30000",
    8 INPUT A
-   9 PRI"NAVY",20000,
+   9 PRI"NAVY","20000",
   10 INPUT B
-  11 PRI"A.F.",22000,
+  11 PRI"A.F.","22000",
   12 INPUT C
   13 IF A+B+C>72000 THE 5
   14 D=30000
@@ -83,7 +83,7 @@
 1617 GOTO 2000
 1630 PRI "I WIPED OUT YOUR ATTACK"
 1635 A=A-T
-1640 GOT 2000
+1640 GOTO 2000
 1700 IF T>B THEN 1030
 1710 IF T<E/2 THEN 1750
 1720 GOT 1770
@@ -118,6 +118,6 @@
 2008 GOT2020
 2010 PRI "YOU WON, OH! SHUCKS!!!!!"
 2012 GOTO 2020
-2015 PRI "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU"
+2015 PRI "YOU LOST-I CONQUERED YOUR COUNTRY. IT SERVES YOU "
 2016 PRI "RIGHT FOR PLAYING THIS STUPID GAME!!!"
 2020 END

dec/WAR.BAS

@@ -10,7 +10,7 @@
 140 IF B$="NO" THEN 210
 150 IF B$="YES" THEN 180
 160 PRINT "YES OR NO, PLEASE.  ";
-170 GOTO 120
+170 GO TO 120
 180 PRINT "THE COMPUTER GIVES YOU AND IT A 'CARD'.  THE HIGHER 'CARD' ";
 190 PRINT "(NUMERICALLY) WINS.  THE GAME ENDS WHEN YOU CHOOSE NOT";
 200 PRINT " TO CONTINUE OR WHEN YOU HAVE FINISHED THE PACK."
@@ -26,7 +26,7 @@
 300 FOR K=1 TO J-1
 310 IF L(K)<>L(J) THEN 340
 320 LET J=J-1
-330 GOTO 350
+330 GO TO 350
 340 NEXT K
 350 NEXT J
 360 LET P=P+1
@@ -41,19 +41,19 @@
 450 IF N1>=N2 THEN 490
 460 LET A1=A1+1
 470 PRINT "COMPUTER WINS.^G^G^G^G^G  YOU HAVE";B1;"; COMPUTER HAS";A1
-480 GOTO 540
+480 GO TO 540
 490 IF N1=N2 THEN 530
 500 LET B1=B1+1
 510 PRINT "YOU WIN.   YOU HAVE";B1;"; COMPUTER HAS";A1
-520 GOTO 540
+520 GO TO 540
 530 PRINT "TIE.  NO SCORE CHANGE."
 540 IF L(P+1)=0. THEN 610
 550 PRINT "DO YOU WANT TO CONTINUE";
 560 INPUT V$
 570 IF V$="YES" THEN 360
-580 IF V$="NO" THEN 650
+580 IF V$="NO"THEN 650
 590 PRINT "YES OR NO, PLEASE.  ";
-600 GOTO 540
+600 GO TO 540
 610 PRINT
 620 PRINT
 630 PRINT "YOU HAVE RUN OUT OF CARDS.  FINAL SCORE:  YOU--";B1;

dec/WORD.BAS

@@ -11,7 +11,7 @@
 60 FOR I=1 TO C
 70 READ S$
 80 NEXT I
-90 G=0
+90 G=O
 100 CHANGE S$ TO S
 110 FOR I=1 TO 5
 120 A(I)=45
@@ -19,7 +19,7 @@
 140 FOR J=1 TO 5
 144 P(J)=0
 146 NEXT J
-150 PRINT "GUESS A FIVE LETTER WORD";
+150 PRINT "GUESS A FIVE-LETTER WORD";
 160 INPUT L$
 170 G=G+1
 172 IF L$=S$ THEN 500

dec/YAHTZE.BAS

@@ -56,7 +56,7 @@
 1550 PRINT
 1560 PRINT
 1570 PRINT N$(I);"'S TURN"
-1580 FOR L=1TO5
+1580 FOR L=1 TO 5
 1590 A(L)=INT(6*RND(-1)+1)
 1600 NEXT L
 1605 GOSUB 1610
@@ -270,7 +270,7 @@
 3810 GO TO 4690
 3820 IF C(I)<>-5 THEN 3870
 3830 C(I)=A(1)+A(2)+A(3)+A(4)+A(5)
-3540 
+3840
 3850 M(I)=C(I)
 3860 GO TO 4690
 3870 GOSUB 4650
@@ -403,17 +403,17 @@
 5140 PRINT " TYPE: '1' FOR THE 1ST DIE, '2' FOR THE 2ND, ETC"
 5150 PRINT "     AFTER THE THIRD ROLL THE PLAYER MUST DECIDE HOW"
 5160 PRINT "HE WANTS TO SCORE HIS FIVE DICE."
-5170 PRINT "TYPING 'SUMMARY' WILL SHOW WHAT CATEGORIES"
+5170 PRINT "TYPING 'SUMMARY' WILLL SHOW WHAT CATEGORIES"
 5180 PRINT "HAVE BEEN USED. OTHERWISE,"
 5190 PRINT "YOU HAVE 13 CHOICES, TYPE 1 OF THE FOLLOWING"
-5200 PRINT "DEPENDING ON HOW YOU WANT TOUR DICE SCORED."
+5200 PRINT "DEPENDING ON HOW YOU WANT YOUR DICE SCORED."
 5210 PRINT "THE CHOICES ARE:"
 5220 PRINT "ACES,TWOS,THREES,FOURS,FIVES,SIXES"
 5230 PRINT "THREE OF A KIND,FOUR OF A KIND,FULL HOUSE, SM. STRAIGHT,"
 5240 PRINT "LG. STRAIGHT, YAHTZEE,CHANCE."
 5250 PRINT "WHAT THE COMPUTER WILL DO:"
-5260 PRINT "FOR ACES IT WILL COUNT AND ADD ALL YOUR ONES."
+5260 PRINT "FOR ACES IT WILL COUNT AND ADD ALL OF YOUR ONES."
-5270 PRINT "FOR TWOS IT WILL COUNT AND ADD ALL YOUR TWOS."
+5270 PRINT "FOR TWOS IT WILL COUNT AND ADD ALL OF YOUR TWOS."
 5280 PRINT "THE SAME IS TRUE THROUGH THE SIXES"
 5290 PRINT "THREE OF A KIND WILL TOTAL ALL OF THE DICE PRO-"
 5300 PRINT "VIDED THAT YOU HAVE THREE OF A KIND"
@@ -429,7 +429,7 @@
 5400 PRINT "CHANCE IS USEFUL WHEN YOU DON'T HAVE ANYTHING WORTH SCORING."
 5410 PRINT "ANOTHER CATEGORY, 'ZERO' WILL ZERO OUT A CATEGORY"
 5420 PRINT "IF YOU DON'T HAVE ANYTHING WORTH SCORING"
-5430 PRINT "BUT HAVE PERHAPS ALREAOY USED YOUR CHANCE."
+5430 PRINT "BUT HAVE PERHAPS ALREADY USED YOUR CHANCE."
 5440 PRINT
 5450 PRINT "IF YOUR ACCUMULATED SCORE OF THE FIRST SIX CATEGORIES"
 5460 PRINT "EVER REACHES AT LEAST 63 POINTS YOU WILL RECEIVE"
@@ -502,7 +502,7 @@
 6150 FOR S=1 TO (R-1)
 6160 IF H(I,S)>7 THEN 6180
 6170 ON H(I,S) GO TO 6190,6210,6230,6250,6270,6290,6310
-6180 ON H(I,F)-7 GO TO 6330,6350,6370,6390,6410,6430
+6180 ON H(I,S)-7 GO TO 6330,6350,6370,6390,6410,6430
 6190 PRINT "ACES, ";
 6200 GO TO 6440
 6210 PRINT "TWOS, ";

port/1CHECK.BAS

@@ -11,7 +11,7 @@
   55 PRINT "POSSIBLE JUMPS REMAINING, INPUT A '0' IN RESPONSE TO"
   60 PRINT "QUESTION 'JUMP FROM ?'"
   62 PRINT
-  63 PRINT "HERE IS THE NUMERICAL BOARD:"
+  65 PRINT "HERE IS THE NUMERICAL BOARD:"
   66 PRINT
   68 DIM A(64)
   70 FOR J=1 TO 57 STEP 8

port/BASKET.BAS

@@ -1,204 +1,203 @@
-1 RANDOMIZE \ DIM S(1)
+   1 RANDOMIZE \ DIM S(1)
-2 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL.  YOU WILL BE DARTMOUTH"
+   2 PRINT "THIS IS DARTMOUTH COLLEGE BASKETBALL.  YOU WILL BE DARTMOUTH"
-3 PRINT "  CAPTAIN AND PLAYMAKER.  CALL SHOTS AS FOLLOWS:  1. LONG"
+   3 PRINT "  CAPTAIN AND PLAYMAKER.  CALL SHOTS AS FOLLOWS:  1. LONG"
-4 PRINT "  (30 FT.) JUMP SHOT; 2  SHORT (15 FT.) JUMP SHOT; 3. LAY"
+   4 PRINT "  (30 FT.) JUMP SHOT; 2  SHORT (15 FT.) JUMP SHOT; 3. LAY"
-5 PRINT "  UP; 4. SET SHOT."
+   5 PRINT "  UP; 4. SET SHOT."
-6 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS"
+   6 PRINT "BOTH TEAMS WILL USE THE SAME DEFENSE. CALL DEFENSE AS"
-7PRINT"  FOLLOWS: 6  PRESS;  6.5  MAN-TO-MAN;  7  ZONE;  7.5  NONE."
+   7PRINT"  FOLLOWS: 6  PRESS;  6.5  MAN-TO-MAN;  7  ZONE;  7.5  NONE."
-8 PRINT "  TO CHANGE DEFENSE, JUST TYPE   0   AS YOUR NEXT SHOT."
+   8 PRINT "  TO CHANGE DEFENSE, JUST TYPE   0   AS YOUR NEXT SHOT."
-9 PRINT "YOUR STARTING DEFENSE WILL BE";
+   9 PRINT "YOUR STARTING DEFENSE WILL BE";
-10 INPUT D
+  10 INPUT D
-11 IF D<6 THEN 126
+  11 IF D<6 THEN 126
-12 PRINT
+  12 PRINT
-13 PRINT "CHOOSE YOUR OPPONENT";
+  13 PRINT "CHOOSE YOUR OPPONENT";
-14 INPUT O$
+  14 INPUT O$
-15 PRINT "CENTER JUMP"
+  15 PRINT "CENTER JUMP"
-16 IF RND(0) > 3/5 THEN 19
+  16 IF RND(0) > 3/5 THEN 19
-17 PRINT O$;" CONTROLS THE TAP."
+  17 PRINT O$;" CONTROLS THE TAP."
-18 GO TO 130
+  18 GO TO 130
-19 PRINT "DARTMOUTH CONTROLS THE TAP."
+  19 PRINT "DARTMOUTH CONTROLS THE TAP."
-20 PRINT
+  20 PRINT
-21 PRINT "YOUR SHOT";
+  21 PRINT "YOUR SHOT";
-22 LET P=0
+  22 LET P=0
-23 INPUT Z
+  23 INPUT Z
-24 IF Z<>INT(Z) THEN 27
+  24 IF Z<>INT(Z) THEN 27
-25IF ABS(Z-2)>2 THEN 27
+  25IF ABS(Z-2)>2 THEN 27
-26 GOTO 29
+  26 GOTO 29
-27 PRINT "INCORRECT ANSWER.  RETYPE IT";
+  27 PRINT "INCORRECT ANSWER.  RETYPE IT";
-28 GOTO 23
+  28 GOTO 23
-29 GO TO 30
+  29 GO TO 30
-30 IF RND(0) <.5 THEN 48
+  30 IF RND(0) <.5 THEN 48
-31 IF T<100 THEN 48
+  31 IF T<100 THEN 48
-32 PRINT
+  32 PRINT
-33 IF S(1)<>S(0) THEN 41
+  33 IF S(1)<>S(0) THEN 41
-34 PRINT "   ***** END OF SECOND HALF *****"
+  34 PRINT "   ***** END OF SECOND HALF *****"
-35 PRINT "SCORE AT END OF REGULATION TIME:"
+  35 PRINT "SCORE AT END OF REGULATION TIME:"
-36 PRINT "        DARTMOUTH" S(1); O$" "S(0)
+  36 PRINT "        DARTMOUTH" S(1); O$" "S(0)
-37 PRINT
+  37 PRINT
-38 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD"
+  38 PRINT "BEGIN TWO MINUTE OVERTIME PERIOD"
-39 LET T=93
+  39 LET T=93
-40 GO TO 15
+  40 GO TO 15
-41 PRINT "   ***** END OF GAME *****"
+  41 PRINT "   ***** END OF GAME *****"
-42 PRINT "FINAL SCORE: DARTMOUTH" S(1); O$" "S(0)
+  42 PRINT "FINAL SCORE: DARTMOUTH" S(1); O$" "S(0)
-43 STOP
+  43 STOP
-44 PRINT
+  44 PRINT
-45 PRINT "  ***  TWO MINUTES LEFT IN THE GAME  ***"
+  45 PRINT "  ***  TWO MINUTES LEFT IN THE GAME  ***"
-46 PRINT
+  46 PRINT
-47 RETURN
+  47 RETURN
-48 IF Z=1 THEN 51
+  48 IF Z=1 THEN 51
-49 IF Z=2 THEN 51
+  49 IF Z=2 THEN 51
-50 GO TO 92
+  50 GO TO 92
-51 LET T=T+1
+  51 LET T=T+1
-52 IF T=50 THEN 199
+  52 IF T=50 THEN 199
-53 IF T=92 THEN 55
+  53 IF T=92 THEN 55
-54 GO TO 56
+  54 GO TO 56
-55 GOSUB 44
+  55 GOSUB 44
-56 PRINT "JUMP SHOT"
+  56 PRINT "JUMP SHOT"
-57 IF RND(0) >.341*D/8 THEN 61
+  57 IF RND(0) >.341*D/8 THEN 61
-58 PRINT "SHOT IS GOOD."
+  58 PRINT "SHOT IS GOOD."
-59 GOSUB 196
+  59 GOSUB 196
-60 GO TO 130
+  60 GO TO 130
-61 IF RND(0) >.682*D/8 THEN 79
+  61 IF RND(0) >.682*D/8 THEN 79
-62 PRINT "SHOT IS OFF TARGET."
+  62 PRINT "SHOT IS OFF TARGET."
-63 IF D/6*RND(0)>.45 THEN 66
+  63 IF D/6*RND(0)>.45 THEN 66
-64 PRINT "DARTMOUTH CONTROLS THE REBOUND."
+  64 PRINT "DARTMOUTH CONTROLS THE REBOUND."
-65 GO TO 68
+  65 GO TO 68
-66 PRINT "REBOUND TO ";O$;"."
+  66 PRINT "REBOUND TO ";O$;"."
-67 GO TO 130
+  67 GO TO 130
-68 IF RND(0)>.40 THEN 70
+  68 IF RND(0)>.40 THEN 70
-69 GO TO 92
+  69 GO TO 92
-70 IF D=6 THEN 188
+  70 IF D=6 THEN 188
-71 PRINT "BALL PASSED BACK TO YOU. ";
+  71 PRINT "BALL PASSED BACK TO YOU. ";
-72 GO TO 21
+  72 GO TO 21
-73 IF RND(0)>.9THEN77
+  73 IF RND(0)>.9THEN77
-74 PRINT "PLAYER FOULED. TWO SHOTS."
+  74 PRINT "PLAYER FOULED. TWO SHOTS."
-75 GOSUB 171
+  75 GOSUB 171
-76 GO TO 130
+  76 GO TO 130
-77 PRINT "BALL STOLEN. ";O$;"'S BALL."
+  77 PRINT "BALL STOLEN. ";O$;"'S BALL."
-78 GO TO 130
+  78 GO TO 130
-79 IF RND(0)>.782*D/8 THEN 86
+  79 IF RND(0)>.782*D/8 THEN 86
-80 PRINT "SHOT IS BLOCKED.  BALL CONTROLLED BY";
+  80 PRINT "SHOT IS BLOCKED.  BALL CONTROLLED BY";
-81 IF RND(0)>.5 THEN 84
+  81 IF RND(0)>.5 THEN 84
-82 PRINT " DARTMOUTH."
+  82 PRINT " DARTMOUTH."
-83 GO TO 21
+  83 GO TO 21
-84 PRINT " ";O$;"."
+  84 PRINT " ";O$;"."
-85 GO TO 130
+  85 GO TO 130
-86 IF RND(0)>.843*D/8 THEN 90
+  86 IF RND(0)>.843*D/8 THEN 90
-87 PRINT "SHOOTER IS FOULED.  TWO SHOTS."
+  87 PRINT "SHOOTER IS FOULED.  TWO SHOTS."
-88 GOSUB 171
+  88 GOSUB 171
-89 GO TO 130
+  89 GO TO 130
-90 PRINT "CHARGING FOUL.  DARTMOUTH LOSES THE BALL."
+  90 PRINT "CHARGING FOUL.  DARTMOUTH LOSES THE BALL."
-91 GO TO 130
+  91 GO TO 130
-92 LET T=T+1
+  92 LET T=T+1
-93 IF T=50 THEN 199
+  93 IF T=50 THEN 199
-94 IF T=92 THEN 96
+  94 IF T=92 THEN 96
-95 GO TO 97
+  95 GO TO 97
-96 GOSUB 44
+  96 GOSUB 44
-97 IF Z=0 THEN 126
+  97 IF Z=0 THEN 126
-98 IF Z>3 THEN 124
+  98 IF Z>3 THEN 124
-99 PRINT "LAY UP."
+  99 PRINT "LAY UP."
-100 IF 7/D*RND(0)>.4 THEN 104
+ 100 IF 7/D*RND(0)>.4 THEN 104
-101 PRINT "SHOT IS GOOD.  TWO POINTS."
+ 101 PRINT "SHOT IS GOOD.  TWO POINTS."
-102 GOSUB 196
+ 102 GOSUB 196
-103GO TO 130
+ 103GO TO 130
-104 IF 7/D*RND(0)>.7 THEN 115
+ 104 IF 7/D*RND(0)>.7 THEN 115
-105 PRINT "SHOT IS OFF THE RIM."
+ 105 PRINT "SHOT IS OFF THE RIM."
-106 IF RND(0)>2/3 THEN 110
+ 106 IF RND(0)>2/3 THEN 110
-107 PRINT O$;" CONTROLS THE REBOUND."
+ 107 PRINT O$;" CONTROLS THE REBOUND."
-108 GO TO 130
+ 108 GO TO 130
-109
+ 110 PRINT "DARTMOUTH CONTROLS THE REBOUND."
-110 PRINT "DARTMOUTH CONTROLS THE REBOUND."
+ 111 IF RND(0)>.4 THEN 113
-111 IF RND(0)>.4 THEN 113
+ 112 GO TO 92
-112 GO TO 92
+ 113 PRINT "BALL PASSED BACK TO YOU.";
-113 PRINT "BALL PASSED BACK TO YOU.";
+ 114 GO TO 21
-114 GO TO 21
+ 115 IF 7/D*RND(0)>.875 THEN 119
-115 IF 7/D*RND(0)>.875 THEN 119
+ 116 PRINT "SHOOTER FOULED.  TWO SHOTS."
-116 PRINT "SHOOTER FOULED.  TWO SHOTS."
+ 117 GOSUB 171
-117 GOSUB 171
+ 118 GO TO 130
-118 GO TO 130
+ 119 IF 7/D*RND(0)>.925 THEN 122
-119 IF 7/D*RND(0)>.925 THEN 122
+ 120 PRINT "SHOT BLOCKED. "O$;"'S BALL."
-120 PRINT "SHOT BLOCKED. "O$;"'S BALL."
+ 121 GO TO 130
-121 GO TO 130
+ 122 PRINT "CHARGING FOUL.  DARTMOUTH LOSES THE BALL."
-122 PRINT "CHARGING FOUL.  DARTMOUTH LOSES THE BALL."
+ 123 GO TO 130
-123 GO TO 130
+ 124 PRINT "SET SHOT"
-124 PRINT "SET SHOT"
+ 125 GO TO 100
-125 GO TO 100
+ 126 PRINT "YOUR NEW DEFENSIVE ALLIGNMENT IS";
-126 PRINT "YOUR NEW DEFENSIVE ALLIGNMENT IS";
+ 127 INPUT D
-127 INPUT D
+ 128 IF D<6 THEN 126
-128 IF D<6 THEN 126
+ 129 GO TO 20
-129 GO TO 20
+ 130 LET P=1
-130 LET P=1
+ 131 LET T=T+1
-131 LET T=T+1
+ 132 IF T=54 THEN 199
-132 IF T=54 THEN 199
+ 133 IF T=92 THEN 135
-133 IF T=92 THEN 135
+ 134 GO TO 136
-134 GO TO 136
+ 135 GOSUB 44
-135 GOSUB 44
+ 136 PRINT
-136 PRINT
+ 137 LET Z1=10/4*RND(0)+1
-137 LET Z1=10/4*RND(0)+1
+ 138 IF Z1>2 THEN 161
-138 IF Z1>2 THEN 161
+ 139PRINT "JUMP SHOT"
-139PRINT "JUMP SHOT"
+ 140 IF 8/D*RND(0)>.35 THEN 144
-140 IF 8/D*RND(0)>.35 THEN 144
+ 141 PRINT "SHOT IS GOOD."
-141 PRINT "SHOT IS GOOD."
+ 142 GOSUB 193
-142 GOSUB 193
+ 143 GO TO 20
-143 GO TO 20
+ 144 IF 8/D*RND(0)>.75 THEN 155
-144 IF 8/D*RND(0)>.75 THEN 155
+ 145 PRINT "SHOT IS OFF THE RIM."
-145 PRINT "SHOT IS OFF THE RIM."
+ 146 IF D/6*RND(0)>.5 THEN 149
-146 IF D/6*RND(0)>.5 THEN 149
+ 147 PRINT "DARTMOUTH CONTROLS THE REBOUND."
-147 PRINT "DARTMOUTH CONTROLS THE REBOUND."
+ 148 GO TO 20
-148 GO TO 20
+ 149 PRINT O$;" CONTROLS THE REBOUND."
-149 PRINT O$;" CONTROLS THE REBOUND."
+ 150 IF D=6 THEN 183
-150 IF D=6 THEN 183
+ 151 IF RND(0)>.5 THEN 154
-151 IF RND(0)>.5 THEN 154
+ 152 PRINT "PASS BACK TO " O$;" GUARD."
-152 PRINT "PASS BACK TO " O$;" GUARD."
+ 153 GO TO 130
-153 GO TO 130
+ 154 GO TO 161
-154 GO TO 161
+ 155 IF 8/D*RND(0)>.9 THEN 159
-155 IF 8/D*RND(0)>.9 THEN 159
+ 156 PRINT "PLAYER FOULED.  TWO SHOTS."
-156 PRINT "PLAYER FOULED.  TWO SHOTS."
+ 157 GOSUB 171
-157 GOSUB 171
+ 158 GO TO 20
-158 GO TO 20
+ 159 PRINT "OFFENSIVE FOUL. DARTMOUTH'S BALL"
-159 PRINT "OFFENSIVE FOUL. DARTMOUTH'S BALL"
+ 160 GO TO 20
-160 GO TO 20
+ 161 IF Z1>3 THEN 169
-161 IF Z1>3 THEN 169
+ 162 PRINT "LAY UP"
-162 PRINT "LAY UP"
+ 163 IF 7/D*RND(0)>.413 THEN 167
-163 IF 7/D*RND(0)>.413 THEN 167
+ 164 PRINT "SHOT IS GOOD."
-164 PRINT "SHOT IS GOOD."
+ 165 GOSUB 193
-165 GOSUB 193
+ 166 GO TO 20
-166 GO TO 20
+ 167 PRINT "SHOT IS MISSED."
-167 PRINT "SHOT IS MISSED."
+ 168 GO TO 146
-168 GO TO 146
+ 169 PRINT "SET SHOT"
-169 PRINT "SET SHOT"
+ 170 GO TO 163
-170 GO TO 163
+ 171 REM *FOUL SHOOTING*
-171 REM *FOUL SHOOTING*
+ 172 IF RND(0)>.49 THEN 177
-172 IF RND(0)>.49 THEN 177
+ 173 PRINT "SHOOTER MAKES BOTH SHOTS."
-173 PRINT "SHOOTER MAKES BOTH SHOTS."
+ 174 LET S(1-P)=S(1-P)+2
-174 LET S(1-P)=S(1-P)+2
+ 175 GOSUB 194
-175 GOSUB 194
+ 176 RETURN
-176 RETURN
+ 177 IF RND(0)>.75 THEN 181
-177 IF RND(0)>.75 THEN 181
+ 178 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE."
-178 PRINT "SHOOTER MAKES ONE SHOT AND MISSES ONE."
+ 179 LET S(1-P)=S(1-P)+1
-179 LET S(1-P)=S(1-P)+1
+ 180 GO TO 175
-180 GO TO 175
+ 181 PRINT "BOTH SHOTS MISSED."
-181 PRINT "BOTH SHOTS MISSED."
+ 182 GO TO 175
-182 GO TO 175
+ 183 IF RND(0)>.75 THEN 185
-183 IF RND(0)>.75 THEN 185
+ 184 GO TO 151
-184 GO TO 151
+ 185 PRINT "BALL STOLEN.  EASY LAY-UP FOR DARTMOUTH."
-185 PRINT "BALL STOLEN.  EASY LAY-UP FOR DARTMOUTH."
+ 186 GOSUB 196
-186 GOSUB 196
+ 187 GO TO 130
-187 GO TO 130
+ 188 IF RND(0)>.6 THEN 190
-188 IF RND(0)>.6 THEN 190
+ 189 GO TO 71
-189 GO TO 71
+ 190 PRINT "PASS STOLEN BY ";O$;" EASY LAY-UP."
-190 PRINT "PASS STOLEN BY ";O$;" EASY LAY-UP."
+ 191 GOSUB 193
-191 GOSUB 193
+ 192 GO TO 20
-192 GO TO 20
+ 193 LET S(0)=S(0)+2
-193 LET S(0)=S(0)+2
+ 194 PRINT "SCORE: " S(1); "TO " S(0)
-194 PRINT "SCORE: " S(1); "TO " S(0)
+ 195 RETURN
-195 RETURN
+ 196 LET S(1)=S(1)+2
-196 LET S(1)=S(1)+2
+ 197 GOSUB 194
-197 GOSUB 194
+ 198 RETURN
-198 RETURN
+ 199 PRINT "   ***** END OF FIRST HALF *****"
-199 PRINT "   ***** END OF FIRST HALF *****"
+ 200 PRINT"SCORE: DARTMOUTH" S(1); O$" "S(0)
-200 PRINT"SCORE: DARTMOUTH" S(1); O$" "S(0)
+ 201 PRINT
-201 PRINT
+ 202 PRINT
-202 PRINT
+ 203 GO TO 15
-203 GO TO 15
+ 204 END
-204 END

port/CRAPS.BAS

@@ -15,8 +15,8 @@
  210 LET Z=5*INT(10+11*RND(0))
  215 PRINT "ARE YOU READY";\INPUT B$
  216 IF B$="YES" THEN 220\IF B$<>"NO" THEN 215\PRINT "I'LL REPEAT MYSELF THEN."
- 217 GOTO 90
+ 217 GO TO 90
- 220 PRINT"SPLENDID......YOU ARE GIVEN ";Z;"DOLLARS TO PLAY WITH."
+ 220 PRINT "SPLENDID.....YOU ARE GIVEN ";Z;"DOLLARS TO PLAY WITH."
  230 PRINT
  240 PRINT
  250 IF N-2*INT(N/2)=0 THEN 310
@@ -62,7 +62,7 @@
  650 LET C=1
  660 IF W>0 THEN 690
  670 LET Z=Z+B
- 680 GOTO 770
+ 680 GO TO 770
  690 LET Z=Z-B
  700 GOTO 770
  710 PRINT "AND PASS...."

port/CUBE.BAS

@@ -25,7 +25,7 @@
  330 PRINT"OF DOLLARS (EXAMPLE: 250)  YOU ARE AUTOMATICALLY STARTED WITH A"
  340 PRINT"500  DOLLAR ACCOUNT."
  350 PRINT
- 360 PRINT "GOOD LUCK"
+ 360 PRINT"GOOD LUCK"
  370 LET A1=500
  380 LET A=INT(3*(RND(X)))
  390 IF A<>0 THEN 410
@@ -144,11 +144,11 @@
 1510 LET A1=Z2
 1520 GO TO 1580
 1522 PRINT"TRIED TO FOOL ME; BET AGAIN";
-1525 GOTO 870
+1525 GO TO 870
 1530 PRINT"CONGRATULATIONS"
-1540 IF Z=0 THEN 1580
+1540 IF Z=0 THEN  1580
 1550  LET Z2=A1+Z1
-1560  PRINT "YOU NOW HAVE"; Z2;"DOLLARS"
+1560  PRINT "YOU NOW  HAVE"; Z2;"DOLLARS"
 1570 LET A1=Z2
 1580 PRINT"DO YOU WANT TO TRY AGAIN?"
 1590 INPUT S

port/DICE.BAS

@@ -1,5 +1,5 @@
    5 RANDOMIZE
-  10 DIM F(12)
+  10 DIM F (12)
   20 REM DANNY FREIDUS
   30 PRINT "THIS PROGRAM SIMULATES THE ROLLING OF A"
   40 PRINT "PAIR OF DICE."

port/DIGITS.BAS

@@ -15,7 +15,7 @@
  340 PRINT\PRINT
  360 READ A,B,C
  370 DATA 0,1,3
- 380 DIM N(10), M(26,2) ,K(2,2), L(8,2)
+ 380 DIM N(10), M(26,2), K(2,2), L(8,2)
  400 FOR I=0 TO 26\FOR J=0 TO 2\M(I,J)=1\NEXT J\NEXT I
  410 FOR I=0 TO 2\FOR J=0 TO 2\K(I,J)=9\NEXT J\NEXT I
  420 FOR I=0 TO 8\FOR J=0 TO 2\L(I,J)=3\NEXT J\NEXT I

port/DOGS.BAS

@@ -63,13 +63,13 @@
  295 PRINT\NEXT Z\GOTO 325
  300 PRINT "YOU MUST BET AT LEAST $2.00. TRY AGAIN "N$(Z)
  305 PRINT "YOUR BET";\INPUT P(Z)
- 310 GOTO 290
+ 310 GOTO  290
  315 PRINT "YOU CAN'T BET OVER $500.00 "N$(Z)" TRY AGAIN"
- 320 GOTO 305
+ 320 GOTO  305
  325 FOR I=1 TO 10
  330 B(11)=B(11)+P(I)
  335 NEXT I
- 340 FOR I=1 TO Q 'AMOUNT OF PEOPLE PLAYING
+ 340 FOR I=1 TO Q 'AMOUNT OF  PEOPLE PLAYING
  345 FOR I3=1 TO 10'DOGS
  350 IF J(I)<>I3 THEN  360
  355 A(I3)=A(I3)+P(I)
@@ -143,8 +143,8 @@
  745 PRINT "AND THE WINNER IS DOG NUMBER";G,H$(G)
  750 PRINT\GOTO  970
  755 RESTORE
- 760 FOR E=1 TO Q
+ 760 FOR E=1 TO  Q
- 765 IF G=J(E) THEN     790
+ 765 IF G=J(E) THEN    790
  770 M5(E)=M5(E)-P(E)
  775 N7=N7+P(E)
  780 NEXT E
@@ -176,7 +176,7 @@
  910 NEXT K\GOSUB  225
  915 PRINT "ANY NEWCOMERS";\INPUT C$
  920 FOR I=1 TO Q
- 925 PRINT N$(I)" YOUR DOG NUMBER";\INPUT J(I)
+ 925 PRINT N$(I)" YOUR DOGS NUMBER";\INPUT J(I)
  930 PRINT "AND YOUR BET";\INPUT P(I)
  935 IF P(I)<2 THEN 950\IF P(I)>500 THEN 960\NEXT I
  940 IF C$="NO" THEN 325
@@ -198,11 +198,11 @@
 1020 GOTO 1085
 1025 PRINT\PRINT "HOW MANY NEWCOMERS";\Q4=0\INPUT J6\Q4=Q+J6
 1030 IF Q4>20 THEN 1035\Q=Q4\Q4=0\GO TO 1040
-1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO   1025
+1035 PRINT "NO MORE THAN 19 ALLOWED. YOU U NOW HAVE "Q\Q4=0\GOTO  1025
 1040 FOR Z=I TO Q
 1045 PRINT "BETTORS NAME";\INPUT N$(Z)
 1050 PRINT "DOGS NUMBER";\INPUT J(Z)
-1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN   1070
+1055 PRINT "AND YOUR BET";\INPUT P(Z)\IF P(Z)<2 THEN  1070
 1060 IF P(Z)>500 THEN 1075
 1065 PRINT\NEXT Z\GOTO 325
 1070 PRINT "YOU MUST BET AT LEAST $2.00"\GOTO 1055

port/EVEN.BAS

@@ -1,7 +1,7 @@
    1 LET Y1=0
   10 LET M1=0
   20 DIM M(20),Y(20)
-  30 PRINT"   THIS IS A TWO PERSON GAME CALLED 'EVEN WINS.'"
+  30 PRINT"   THIS IS A TWO-PERSON GAME CALLED 'EVEN WINS.'"
   40 PRINT"TO PLAY THE GAME, THE PLAYERS NEED 27 MARBLES OR"
   50 PRINT"OTHER OBJECTS ON A TABLE."
   60 PRINT
@@ -28,9 +28,9 @@
  270 PRINT"TOTAL =";T
  280 LET M1=M1+M
  290 LET T=T-M
- 300 PRINT"I PICK UP";M;"MARBLES."
+ 300 PRINT"I PICK UP";M;" MARBLES."
  310 IF T=0 THEN 880
- 320 PRINT"TOTAL=";T
+ 320 PRINT"TOTAL =";T
  330 PRINT""
  340 PRINT"   AND WHAT IS YOUR NEXT MOVE, MY TOTAL IS";M1
  350 INPUT Y
@@ -43,7 +43,7 @@
  420 GOTO 350
  430 LET Y1=Y1+Y
  440 LET T=T-Y
- 450 IF T=0 THEN 880
+ 450 IF T=O THEN 880
  460 PRINT"TOTAL =";T
  470 PRINT""
  480 PRINT"   YOUR TOTAL IS ";Y1

port/EVEN1.BAS

@@ -11,7 +11,7 @@
   11 PRINT "GAME.  IT GRADUALLY LEARNS TO PLAY WELL.  IT SHOULD BE"
   12 PRINT "DIFFICULT TO BEAT THE COMPUTER TWENTY GAMES IN A ROW."
   13 PRINT "TRY IT!!!"\PRINT
-  14 PRINT "TO QUIT AT ANY TIME, TYPE A '0' AS YOUR MOVE."\PRINT
+  14 PRINT "TO QUIT AT ANY TIME, TYPE '0' AS YOUR MOVE."\PRINT
   20 DIM R(1,5)\RANDOMIZE
   25 L=0\E=0
   30 FOR I=0 TO 5
@@ -31,7 +31,7 @@
  180 IF M<=0 THEN 370
  190 P=P-M
  200 IF M=1 THEN 510
- 210 PRINT "COMPUTER TAKES"M"CHIPS LEAVING"P" ...YOUR MOVE";
+ 210 PRINT "COMPUTER TAKES"M"CHIPS LEAVING"P"  ...YOUR MOVE";
  220 B=B+M
  230 INPUT M
  240 M=INT(M)

port/FIPFOP.BAS

@@ -1,5 +1,5 @@
    5 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
-  10 REM *** CREATED BY MICHAEL CASS   HERRICKS HS, NY
+  10 REM *** CREATED BY MICHAEL KASS   HERRICKS HS, NY
   20 PRINT "THE OBJECT OF THIS PUZZLE IS TO CHANGE THIS:"
   30 PRINT
   40 PRINT "X X X X X X X X X X"
@@ -8,7 +8,7 @@
   70 PRINT
   80 PRINT "O O O O O O O O O O"
   90 PRINT
- 100 PRINT"BY TYPING THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER"
+ 100 PRINT"BY TYPING IN THE NUMBER CORRESPONDING TO THE POSITION OF THE LETTER"
  120 PRINT"ON SOME NUMBERS, ONE POSITION WILL CHANGE, ON OTHERS, TWO WILL CHANGE"
  140 PRINT"TO RESET THE LINE TO ALL X'S, TYPE 0 (ZERO) AND TO START A NEW"
  160 PRINT"IN THE MIDDLE OF A GAME, TYPE 11 (ELEVEN)"
@@ -25,7 +25,7 @@
  270 FOR X=1 TO 10
  280 LET A$(X)="X"
  290 NEXT X
- 300 GOTO 320
+ 300 GO TO 320
  310 PRINT "ILLEGAL ENTRY--TRY AGAIN"
  320 PRINT "INPUT THE NUMBER";
  330 INPUT N
@@ -42,10 +42,10 @@
  440 LET N=INT(10*N)
  450 IF A$(N)="O" THEN 480
  460 LET A$(N)="O"
- 470 GOTO 610
+ 470 GO TO 610
  480 LET A$(N)="X"
  490 IF M=N THEN 420
- 500 GOTO 610
+ 500 GO TO 610
  510 IF A$(N)="O" THEN 590
  520 LET A$(N)="O"
  530 LET R=.592*(1/TAN(Q/N+Q))/SIN(N*2+Q)-COS(N)
@@ -53,10 +53,10 @@
  550 LET N=INT(10*N)
  560 IF A$(N)="O" THEN 590
  570 LET A$(N)="O"
- 580 GOTO 610
+ 580 GO TO 610
  590 LET A$(N)="X"
  600 IF M=N THEN 530
- 610 PRINT "1 2 3 4 5 6 7 8 9 10"
+ 610 PRINT"1 2 3 4 5 6 7 8 9 10"
  620 FOR Z=1 TO 10\PRINT A$(Z)" ";\NEXT Z
  630 LET C=C+1
  640 PRINT
@@ -65,11 +65,11 @@
  670 NEXT Z
  680 IF C>12 THEN 710
  690 PRINT"VERY GOOD. YOU GUESSED IT IN ONLY "C"GUESSES!!!!"
- 700 GOTO 720
+ 700 GO TO 720
  710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU "C"GUESSES"
- 720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE";
+ 720 PRINT "DO YOU WANT TO DO ANOTHER PUZZLE";
  730 INPUT X$
  740 IF X$="NO" THEN 780
  760 PRINT
- 770 GOTO 180
+ 770 GO TO 180
  780 END

port/FOOTBL.BAS

@@ -88,7 +88,7 @@
   88 IF C<=0 THEN 277
   89 IF L=0 THEN 91
   90 PRINT "TIME TO GO--";
-  91 PRINT INT(C/60);"MIN.";C-60*INT(C/60);"SEC.  ";
+  91 PRINT INT(C/60);"MIN,";C-60*INT(C/60);"SEC.  ";
   92 PRINT "YOUR PLAY";
   93 GOSUB 361
   94 IF S=1 THEN 98
@@ -149,7 +149,7 @@
  149 LET C=C-INT(4+Z9/2*(1+RND(0)))
  150 RETURN
  151 LET G=-(5+INT(10*RND(X)))
- 152 PRINT "THE QUATERBACK ";
+ 152 PRINT "THE QUARTERBACK ";
  153 IF RND(X)>.5 THEN 156
  154 PRINT "IS THROWN FOR A ";
  155 GOTO 111
@@ -240,7 +240,7 @@
  240 IF RND(0)<.15 THEN 243
  241 LET G=INT(24*(1-RND(X)^2))
  242 IF G=0 THEN 249
- 243 LET B=8+G
+ 243 LET B=B+G
  244 PRINT " AND RUN BACK...";
  245 LET L=1
  246 IF B>99 THEN 165

port/FOTBAL.BAS

@@ -19,7 +19,7 @@
  180 PRINT "PREPARE A TAPE WITH A DATA STATEMENT(1770 FOR TEAM 1"
  190 PRINT "1780 FOR TEAM 2)IN WHICH EACH TEAM SCRAMBLES NOS. 1-20"
  195 PRINT "THESE NUMBERS ARE THEN ASSIGNED TO 20 GIVEN PLAYS."
- 200 PRINT "A LIST OF NOS. AND THEIR PLAYS IS PROVIDED WITH"
+ 200 PRINT "A LIST OF NOS. AND THEIR PLAYS ARE PROVIDED WITH"
  210 PRINT "BOTH TEAMS HAVING THE SAME PLAYS. THE MORE SIMILAR THE"
  220 PRINT "PLAYS THE LESS YARDAGE GAINED. SCORES ARE GIVEN"
  223 PRINT "WHENEVER SCORES ARE MADE. SCORES MAY ALSO BE OBTAINED"
@@ -57,7 +57,7 @@
  580 PRINT C(16+L);TAB(6);"WISHBONE OPTION"
  590 PRINT C(17+L);TAB(6);"SIDELINE PASS"
  600 PRINT C(18+L);TAB(6);"HALF-BACK OPTION"
- 610 PRINT C(19+L);TAB(6);"RAZZLE-DAZZLE"
+ 610 PRINT C(19+L);TAB(6);"RAZZLE DAZZLE"
  620 PRINT C(20+L);TAB(6);"BOMB!!!!!!!!"
  630 L=L+20\T=2
  640 PRINT\PRINT "TEAR OFF HERE -----------------------------------------------"
@@ -112,7 +112,7 @@
 1015 IF B(P2)<11 THEN 1048
 1020 IF U<>0 THEN 1035\PRINT "PASS INCOMPLETE TEAM"T
 1030 Y=0\GOTO 1050
-1035 G=RND(O)\IF G>.025 THEN 1040\IF Y>2 THEN 1045
+1035 G=RND(O)\IF G<.025 THEN 1040\IF Y>2 THEN 1045
 1040 PRINT "QUARTERBACK SCRAMBLED"\GOTO 1050
 1045 PRINT "PASS COMPLETED"\GOTO 1050
 1048 PRINT "THE BALL WAS RUN"
@@ -155,7 +155,7 @@
 1650 F=INT(35*RND(O)+20)
 1660 PRINT\PRINT "KICK IS"F"YARDS LONG"
 1680 P=P-W(T)*F\RANDOMIZE\G=RND(O)
-1690 IF G<.35 THEN 1735
+1690 IFG<.35THEN1735
 1700 IF Y(T)*P<X(T) THEN 1740
 1710 PRINT "FIELDGOAL GOOD FOR TEAM"T"*****************YEA"
 1720 Q=3\GOTO 1390
@@ -169,7 +169,7 @@
 1800 IF P1<>99 THEN 936
 1810 PRINT\PRINT "TEAM 1 SCORE IS"H(1)
 1820 PRINT "TEAM 2 SCORE IS"H(2)\PRINT
-1825 IF H(T)<E THEN 1830\PRINT "TEAM"T"WINS****************"\GOTO 2000
+1825 IF H(T)<E THEN 1830\PRINT "TEAM"T"WINS ***************"\GOTO 2000
 1830 IF P1=99 THEN 940\RETURN
 1850 PRINT
 1860 PRINT "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++"

port/FURS.BAS

@@ -96,7 +96,7 @@
 1215 IF P<=10 THEN 1235
 1216 LET F(2)=0
 1218 PRINT "YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS"
-1219 PRINT "THE PORTAGE.  YOU HAD TO LEAVE THE PELTS, BUT FOUND"
+1219 PRINT "THE PORTAGE.  YOU HAD TO LEAVE THE PELTS BUT FOUND"
 1220 PRINT "THEM STOLEN WHEN YOU RETURNED"
 1221 GOSUB 1244
 1222 GO TO 1414

port/GOMOKO.BAS

@@ -1,7 +1,7 @@
   10 PRINT\PRINT "WELCOME TO THE ORIENTAL GAME OF GOMOKO"
   20 PRINT\PRINT "THE GAME IS PLAYED ON AN N BY N GRID OF A SIZE"
   30 PRINT "THAT YOU SPECIFY.  DURING YOUR PLAY, YOU MAY COVER ONE GRID"
-  40 PRINT "INTERSECTION WITH A MARKER. THE OBJECT OF THE GAME IS TO GET"
+  40 PRINT "INTERSECTION WITH A MARKER.  THE OBJECT OF THE GAME IS TO GET"
   50 PRINT "5 ADJACENT MARKERS IN A ROW -- HORIZONTALLY, VERTICALLY, OR"
   60 PRINT "ALONG EITHER DIAGONAL.  ON THE BOARD DIAGRAM, YOUR MOVES ARE"
   70 PRINT "MARKED WITH A '1', AND THE COMPUTER MOVES WITH A '2'."
@@ -23,13 +23,13 @@
  420 PRINT "SQUARE OCCUPIED. TRY AGAIN..."\GOTO 310
  440 A(I,J)=1
  500 REM *** COMPUTER TRIES AN 'INTELLIGENT' MOVE ***
- 510 FOR E=-1 TO 1\ FOR F=-1 TO 1\ IF E+F-E*F=0 THEN 590
+ 510 FOR E=-1 TO 1\FOR F=-1 TO 1\IF E+F-E*F=0 THEN 590
- 540 LET X=I+E\Y=J+F\GOSUB 910
+ 540 LET X=I+E\LET Y=J+F\GOSUB 910
  570 IF L=0 THEN 590
  580 IF A(X,Y)=1 THEN 710
  590 NEXT F\NEXT E
  600 REM *** COMPUTER TRIES A RANDOM MOVE ***
- 610 LET X=INT(N*RND(0)+1)\LET Y=INT(N*RND(0)+1)\GOSUB 910\IF L=0 THEN 610
+ 610 LET X=INT(N*RND(0))+1\LET Y=INT(RND(0))+1\GOSUB 910\IF L=0 THEN 610
  650 IF A(X,Y)<>0 THEN 610
  660 A(X,Y)=2\GOSUB 810\GOTO 310
  710 X=I-E\Y=J-F\GOSUB 910
@@ -44,8 +44,8 @@
  930 IF Y<1 THEN 970
  940 IF Y>N THEN 970
  950 RETURN
- 970 L=0\RETURN
+ 970 LET L=0\RETURN
  980 PRINT\PRINT "THANKS FOR THE GAME!!"
- 985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";\ INPUT Q
+ 985 PRINT "PLAY AGAIN (1 FOR YES, 0 FOR NO)";\INPUT Q
  990 IF Q=1 THEN 110
  999 END

port/GUESS.BAS

@@ -10,7 +10,7 @@
   10 PRINT"I'M THINKING OF A NUMBER BETWEEN 1 AND"L
   11 G=1
   14 PRINT "NOW YOU TRY TO GUESS WHAT IT IS"
-  15 M=INT(L*RND(0)+1)
+  15 M=INT(L*RND(0))+1
   20 INPUT N
   21 IF N>0 THEN 25
   22 GOSUB70
@@ -22,7 +22,7 @@
   33 GOTO 20
   40 PRINT "TOO HIGH.  GUESS AGAIN."
   42 GOTO 20
-  50 PRINT "THAT'S IT! YOU GOT IT IN"G"TRIES."
+  50 PRINT "THAT'S IT!  YOU GOT IT IN"G"TRIES."
   52 IF G<L1 THEN 58
   54 IF G=L1 THEN 60
   56 PRINT"YOU SHOULD HAVE BEEN ABLE TO GET IT IN ONLY"L1"."

port/GUNER1.BAS

@@ -10,8 +10,8 @@
  190 PRINT "OF RANGE. THE TARGET WILL MOVE RANDOMLY."
  200 PRINT
  210 PRINT "    TYPE CTRL/C TO TERMINATE THE PROGRAM.  TO THE QUESTION"
- 220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100. THIS IS THE"
+ 220 PRINT "'ENTER SPEED' TYPE A NUMBER BETWEEN 1 AND 100, THIS IS THE"
- 230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS SLOWEST AND 100"
+ 230 PRINT "RELATIVE SPEED OF THE TARGET WHERE 1 IS THE SLOWEST AND 100"
  240 PRINT "IS THE FASTEST."
  250 PRINT
  260 PRINT "TO THE QUESTION 'ENTER DISTANCE' ENTER THE MAXIMUM DISTANCE"

port/HANG.BAS

@@ -21,7 +21,7 @@
  200 PRINT\PRINT\FOR I=1 TO L\PRINT D$(I);\NEXT I\PRINT\PRINT
  210 PRINT "WHAT IS YOUR GUESS";\INPUT G$\R=0
  220 FOR I=1 TO 26\IF N$(I)="" THEN 250
- 230 IF G$<>N$(I) THEN 240\PRINT "YOU GUESSED THAT LETTER BEFORE!"\GOTO 170
+ 230 IF G$<>N$(I) THEN 240\PRINT "YOU GUESSED THAT LETTER BEFORE"\GOTO 170
  240 NEXT I\PRINT "PROGRAM ERROR.  RUN AGAIN."\STOP
  250 N$(I)=G$\T1=T1+1
  260 FOR I=1 TO L\IF L$(I)=G$ THEN 280
@@ -65,7 +65,7 @@
  580 FOR I=1 TO 12\FOR J=1 TO 12\PRINT P$(I,J);\NEXT J
  590 PRINT\NEXT I\PRINT\PRINT\IF M=10 THEN 600\GOTO 170
  600 PRINT"SORRY, YOU LOSE.  THE WORD WAS "A$
- 610 PRINT"YOU MISSED THAT ONE.  DO YOU "\GOTO 370
+ 610 PRINT"YOU MISSED THAT ONE.  DO YOU"\GOTO 370
  700 DATA "GUM","SIN","FOR","CRY","LUG","BYE","FLY"
  710 DATA "UGLY","EACH","FROM","WORK","TALK","WITH","SELF"
  720 DATA "PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY"

port/HELLO.BAS

@@ -64,7 +64,7 @@
  285 GOTO 125
  300 PRINT
  302 PRINT "THAT WILL BE $5.00 FOR THE ADVICE, ";\GOSUB500\PRINT"."
- 305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL. "
+ 305 PRINT "PLEASE LEAVE THE MONEY ON THE TERMINAL."
  307 PRINT\PRINT\PRINT
  310 PRINT "DID YOU LEAVE THE MONEY";
  315 INPUT G$\PRINT
@@ -81,7 +81,7 @@
  375 PRINT "ME TO GO ON WITH MY PSYCHOLOGY STUDIES IF MY PATIENTS DON'T"
  380 PRINT "PAY THEIR BILLS?"
  385 PRINT\PRINT\PRINT "NOW LET ME TALK TO SOMEONE ELSE."
- 390 PRINT "NICE MEETING YOU ";\GOSUB 500\PRINT ". HAVE A NICE DAY!!"
+ 390 PRINT "NICE MEETING YOU ";\GOSUB 500\PRINT ".  HAVE A NICE DAY!!"
  400 FOR N=1 TO 7
  402 PRINT
  405 NEXT N

port/HI-Q.BAS

@@ -67,7 +67,7 @@
  620 PRINT
  630 NEXT X
  640 RETURN
-1000 REM *** UPDATE BOARD
+1000 REM*** UPDATE BOARD
 1005 C=1\FOR X=1 TO 9
 1020 FOR Y=1 TO 9
 1030 IF C<>Z THEN 1220
@@ -93,7 +93,7 @@
 1225 NEXT Y
 1230 NEXT X
 1240 RETURN
-1500 REM*** CHECK IF GAME IS OVER
+1500 REM *** CHECK IF GAME IS OVER
 1505 F=0
 1510 FOR R=2 TO 8
 1520 FOR C=2 TO 8
@@ -119,7 +119,7 @@
 1590 NEXT R
 1600 REM *** GAME IS OVER
 1605 PRINT "THE GAME IS OVER."
-1610 PRINT "YOU HAD"F;"PIECES REMAINING."
+1610 PRINT "YOU HAD"F;"PIECES REMAINING"
 1611 IF F<>1 THEN 1615
 1612 PRINT "BRAVO!  YOU MADE A PERFECT SCORE!!"
 1613 PRINT "SAVE THIS PAPER AS A RECORD OF YOUR WORK."

port/HOCKEY.BAS

@@ -189,7 +189,10 @@
  190  IF T=2 THEN 206
  191  PRINT " WRIST SHOT."
  192  LET U=INT(5*RND(X)+1)
- 193  IF U=1 THEN 199
+ 193  IF U=1 THEN 201
+ 194  PRINT " SHOT IS MISSED."
+ 195  LET V=INT(2*RND(X)+1)
+ 196  IF V=1 THEN 199
  197  PRINT " "A$" TAKES THE PUCK."
  198  GOTO 208
  199  PRINT " CORNELL REGAINS THE PUCK."

port/HORSES.BAS

@@ -46,7 +46,7 @@
   70 ON K GOTO 72,74,76,78,80,82,84,86
   72 PRINT "AS THEY BREAK FROM THE GATE" \ GO TO 88
   74 PRINT "AT THE 1/4 MILE POLE" \ GO TO 88
-  76 PRINT "NEARING THE HALF MARK" \ GO TO 88
+  76 PRINT "NEARING THE HALFWAY MARK" \ GO TO 88
   78 PRINT "MIDWAY IN THE RACE" \ GO TO 88
   80 PRINT "AT 5/8 OF A MILE" \ GO TO 88
   82 PRINT "ROUNDING THE TURN" \ GO TO 88

port/HURKLE.BAS

@@ -1,12 +1,12 @@
   90 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
- 100 REM HURKLE - PEOPLE'S COMPUTER COMPANY, MEMLO PARK CA
+ 100 REM HURKLE - PEOPLE'S COMPUTER COMPANY, MENLO PARK CA
  105 RANDOM
  110 N=5
  120 G=10
  210 PRINT
  220 PRINT "A HURKLE IS HIDING ON A";G;"BY";G;"GRID. HOMEBASE"
  230 PRINT "ON THE GRID IS POINT  0,0  AND ANY GRIDPOINT IS A"
- 240 PRINT "PAIR OF WHOLE NUMBERS SEPERATED BY A COMMA. TRY TO"
+ 240 PRINT "PAIR OF WHOLE NUMBERS SEPARATED BY A COMMA. TRY TO"
  250 PRINT "GUESS THE HURKLE'S GRIDPOINT. YOU GET";N;"TRIES."
  260 PRINT "AFTER EACH TRY, I WILL TELL YOU THE APPROXIMATE"
  270 PRINT "DIRECTION TO GO TO LOOK FOR THE HURKLE."
@@ -25,23 +25,24 @@
  420 PRINT "SORRY, THAT'S";N;"GUESSES."
  430 PRINT "THE HURKLE IS AT ";A;",";B
  440 PRINT
- 450 PRINT "LET'S PLAY AGAIN, HURKLE IS HIDING."
+ 450 PRINT "LET'S PLAY AGAIN. HURKLE IS HIDING."
  460 PRINT
- 470 GOTO 285
+ 470 GO TO 285
  500 REM
  510 PRINT
  520 PRINT "YOU FOUND HIM IN";K;"GUESSES!"
- 540 GOTO 440
+ 530 FOR I=1 TO 10\PRINT CHR$(7);\NEXT I\PRINT
+ 540 GO TO 440
  610 PRINT "GO ";
  620 IF Y=B THEN 670
  630 IF Y<B THEN 660
  640 PRINT "SOUTH";
- 650 GOTO 670
+ 650 GO TO 670
  660 PRINT "NORTH";
  670 IF X=A THEN 720
  680 IF X<A THEN 710
  690 PRINT "WEST";
- 700 GOTO 720
+ 700 GO TO 720
  710 PRINT "EAST";
  720 PRINT
  730 RETURN

port/KINEMA.BAS

@@ -3,7 +3,7 @@
  105 PRINT
  106 Q=0
  110 V=5+INT(35*RND(0))
- 111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND."
+ 111 PRINT "A BALL IS THROWN UPWARDS AT"V"METERS PER SECOND"
  112 PRINT
  115 A=V^2/19.6
  116 PRINT "HOW HIGH WILL IT GO (IN METERS)";
@@ -11,7 +11,7 @@
  120 A=V/4.9
  122 PRINT "HOW LONG UNTIL IT RETURNS (IN SECONDS)";
  124 GOSUB 500
- 130 T=1+INT(2*V*RND(1))/10
+ 130 T=(1+INT(2*V*RND(1)))/10
  132 A=V-9.8*T
  134 PRINT "WHAT WILL ITS VELOCITY BE AFTER"T"SECONDS";
  136 GOSUB 500
@@ -19,19 +19,19 @@
  150 PRINT Q"RIGHT OUT OF 3.";
  160 IF Q<2 THEN 100
  170 PRINT "  NOT BAD."
- 180 GOTO 100
+ 180 GO TO 100
  500 INPUT G
  501 G=100*ABS(G-A)
  502 IF G<=ABS(A) THEN 507
  503 IF G<=15*ABS(A) THEN 510
  504 PRINT "NOT EVEN CLOSE...."
- 506 GOTO 512
+ 506 GO TO 512
  507 Q=Q+1
  508 PRINT "CORRECT! VERY GOOD!"
- 509 GOTO 520
+ 509 GOTO520
  510 PRINT "CLOSE ENOUGH."
  511 Q=Q+1
- 512 PRINT "CORRECT ANSWER IS "A
+ 512 PRINT "CORRECT ANSWER IS"A
  520 PRINT
  530 RETURN
  999 END

port/MUGWMP.BAS

@@ -18,7 +18,7 @@
  260  T=T+1
  270  PRINT
  275  PRINT
- 290  PRINT "TURN NO."T;"-- WHAT IS YOUR GUESS";
+ 290  PRINT "TURN NO."T;"WHAT IS YOUR GUESS";
  300  INPUT M,N
  310  FOR I=1 TO 4
  320 IF P(I,1)=-1 THEN 400
@@ -44,7 +44,7 @@
  560 PRINT "MUGWUMP";I;"IS AT (";P(I,1);",";P(I,2);")"
  570  NEXT I
  580  PRINT
- 600 PRINT "THAT WAS FUN! LET'S PLAY AGAIN......"
+ 600 PRINT "THAT WAS FUN!  LET'S PLAY AGAIN....."
  610 PRINT "FOUR MORE MUGWUMPS ARE NOW IN HIDING."
  630  GOTO 240
 1000  FOR J=1 TO 2

port/NICOMA.BAS

@@ -24,7 +24,7 @@
  200 GOTO 150
  220 PRINT "HOW ABOUT THAT!!"
  230 GOTO 250
- 240 PRINT "I FEEL YOUR ARITHMETIC IS IN ERROR."
+ 240 PRINT "I FEAR YOUR ARITHMETIC IS IN ERROR."
  250 PRINT
  260 PRINT "LET'S TRY ANOTHER."
  270 GOTO 20

port/NIM.BAS

@@ -9,7 +9,7 @@
  140 PRINT "    NIM IS PLAYED BY TWO PEOPLE PLAYING ALTERNATELY.  BEFORE"
  145 PRINT "THE PLAY STARTS, AN ARBITRARY NUMBER OF STICKS OR OBJECTS IS"
  150 PRINT "PUT INTO AN ARBITRARY NUMBER OF PILES, IN ANY DISTRIBUTION"
- 155 PRINT "WHATEVER.  THEN EACH PLAYER IN HIS TURN REMOVE AS MANY"
+ 155 PRINT "WHATEVER.  THEN EACH PLAYER IN HIS TURN REMOVES AS MANY"
  160 PRINT "STICKS AS HE WISHES FROM ANY PILE--BUT FROM ONLY ONE PILE,"
  165 PRINT "AND AT LEAST ONE STICK.  THE PLAYER WHO TAKES THE LAST STICK"
  170 PRINT "IS THE WINNER."
@@ -23,7 +23,7 @@
  210 IF P>INT(P) THEN 215\IF P<=0 THEN 215\GO TO 220
  215 PRINT "ILLEGAL PILE NUMBER."\PRINT\GO TO 205
  220 PRINT\FOR I=1 TO P
- 225 PRINT "HOW MANY STICK IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
+ 225 PRINT "HOW MANY STICKS IN PILE";I;\INPUT L(I)\IF L(I)>20 THEN 235
  230 IF L(I)>INT(L(I)) THEN 235\IF L(I)<=0 THEN 235\GO TO 240
  235 PRINT "ILLEGAL STICK NUMBER."\PRINT\GO TO 225
  240 NEXT I

port/NUMBER.BAS

@@ -1,4 +1,4 @@
-   1 PRINT "                 NUMBER GAME"
+   1 PRINT "                NUMBER  GAME"
    2 PRINT\PRINT "YOU NOW HAVE 100 POINTS"
    3 PRINT "BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"
    4 PRINT "POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"
@@ -21,17 +21,17 @@
   24 IF G=V THEN 70
   25 IF G>5 THEN 11
   30 LET P=P-5
-  35 GOTO 80
+  35 GO TO 80
   40 LET P=P+5
-  45 GOTO 80
+  45 GO TO 80
   50 LET P=P+P
   53 PRINT "YOU HIT THE JACKPOT"
-  55 GOTO 80
+  55 GO TO 80
   60 LET P=P+1
-  65 GOTO 80
+  65 GO TO 80
   70 LET P=P-(P*.5)
   80 IF P>500 THEN 90
-  82 PRINT "YOU HAVE";P;"POINTS"
+  82 PRINT "YOU HAVE ";P;"POINTS"
-  85 GOTO 11
+  85 GO TO 11
-  90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS."
+  90 PRINT "!!!!YOU WIN!!!! WITH ";P;"POINTS"
   99 END

port/ORBIT.BAS

@@ -32,33 +32,34 @@
  171 PRINT "                 0000000000000000000"
  172 PRINT "               000000           000000"
  173 PRINT "             00000                 00000"
- 174 PRINT "            00000    XXXXXXXXXXX    00000"
+ 174 PRINT "            00000     XXXXXXXXXXX    00000"
- 175 PRINT "           00000    XXXXXXXXXXXXX    00000"
+ 175 PRINT "           00000    XXXXXXXXXXXXXXX    0000"
- 176 PRINT "          0000     XXXXXXXXXXXXXXX     0000"
+ 176 PRINT "          0000     XXXXXXXXXXXXXXXXX    0000"
- 177 PRINT "         0000     XXXXXXXXXXXXXXXXX     0000"
+ 177 PRINT "         0000     XXXXXXXXXXXXXXXXXXX    0000"
- 178 PRINT "        0000     XXXXXXXXXXXXXXXXXXX     0000"
+ 178 PRINT "        0000     XXXXXXXXXXXXXXXXXXXXX    0000"
- 179 PRINT "180<== 00000     XXXXXXXXXXXXXXXXXXX     00000 ==>0"
+ 179 PRINT "180<== 00000     XXXXXXXXXXXXXXXXXXXXX    00000 ==>0"
- 180 PRINT "        0000     XXXXXXXXXXXXXXXXXXX     0000"
+ 180 PRINT "        0000     XXXXXXXXXXXXXXXXXXXXX    0000"
- 181 PRINT "         0000     XXXXXXXXXXXXXXXXX     0000"
+ 181 PRINT "         0000     XXXXXXXXXXXXXXXXXXX    0000"
- 182 PRINT "          0000     XXXXXXXXXXXXXXX     0000"
+ 182 PRINT "          0000     XXXXXXXXXXXXXXXXX    0000"
- 183 PRINT "           00000    XXXXXXXXXXXXX    00000"
+ 183 PRINT "           00000    XXXXXXXXXXXXXXX   00000"
- 184 PRINT "            00000    XXXXXXXXXXX    00000"
+ 184 PRINT "            00000    XXXXXXXXXXXXX   00000"
- 185 PRINT "             00000                 00000"
+ 185 PRINT "             00000                  00000"
- 186 PRINT "               000000           000000"
+ 186 PRINT "               000000             000000"
- 187 PRINT "                 0000000000000000000"
+ 187 PRINT "                 00000000000000000000"
- 188 PRINT "                    0000000000000"
+ 188 PRINT "                    000000000000000"
- 189 PRINT "                          !"
+ 189 PRINT "                           !"
- 190 PRINT "                         270"
+ 190 PRINT "                          270"
+ 191 PRINT
  192 PRINT
  195 PRINT "X - YOUR PLANET"
- 196 PRINT "O - THE ORBIT OF THE ROMULAN SHIP"
+ 196 PRINT "0 - THE ORBIT OF THE ROMULAN SHIP"
  197 PRINT
  198 PRINT "ON THE ABOVE DIAGRAM, THE ROMULAN SHIP IS CIRCLING"
  199 PRINT "COUNTERCLOCKWISE AROUND YOUR PLANET.  DON'T FORGET"
  200 PRINT "WITHOUT SUFFICIENT POWER THE ROMULAN SHIP'S ALTITUDE"
- 210 PRINT "AND  ORBITAL RATE WILL REMAIN CONSTANT."
+ 201 PRINT "AND  ORBITAL RATE WILL REMAIN CONSTANT."
- 220 PRINT
+ 203 PRINT
- 230 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."
+ 204 PRINT "GOOD LUCK. THE FEDERATION IS COUNTING ON YOU."
  270 LET A=INT(RND(1)*360)
  280 LET D=INT(RND(1)*200) +100
  290 LET R=INT(RND(1)*20) +10
@@ -82,10 +83,10 @@
  420 LET T=360-T
  430 LET C=SQR(D*D+D1*D1-2*D*D1*COS(T*3.14159/180))
  440 PRINT "YOUR PHOTON BOMB EXPLODED";C;"*10^2 MILES FROM THE"
- 445 PRINT "ROMULAN SHIP"
+ 445 PRINT "THE ROMULAN SHIP"
  450 IF C<=50 GOTO 470
  460 GOTO 310
- 470 PRINT "YOU HAVE SUCCESFULLY COMPLETED YOUR MISSION."
+ 470 PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR MISSION."
  480 GOTO 500
  490 PRINT "YOU HAVE ALLOWED THE ROMULANS TO ESCAPE."
  500 PRINT "ANOTHER ROMULAN SHIP HAS GONE INTO ORBIT."

port/PIZZA.BAS

@@ -12,7 +12,7 @@
  180 READ M$(I)
  190 NEXT I
  200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"
- 210 DATA "1","2","3","4"
+ 220 DATA "1","2","3","4"
  230 PRINT "MAP OF THE CITY OF HYATTSVILLE"\PRINT
  250 PRINT " ----1----2----3----4----"
  260 K=4
@@ -43,7 +43,7 @@
  650 PRINT "YOUR ANSWER WOULD BE 2,3"\PRINT
  660 PRINT "UNDERSTAND";\INPUT A$
  670 IF A$="YES" THEN 690
- 680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU.  THANKS ANYWAY"\GOTO 999
+ 680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU.  THANKS ANYWAY."\GOTO 999
  690 PRINT "GOOD.  YOU ARE NOW READY TO START TAKING ORDERS."\PRINT
  700 PRINT "GOOD LUCK!!"\PRINT
  750 FOR I=1 TO 5

port/POETRY.BAS

@@ -227,5 +227,5 @@
 2032 GO TO 1350
 2033 PRINT
 2034 PRINT
-2035 PRINT "                      BY A. COM PUTER."
+2035 PRINT "                      BY  A. COM PUTER."
 2036 END

port/REVRSE.BAS

@@ -52,7 +52,7 @@
  760 PRINT\PRINT "2 3 4 5 1 6 7 8 9"
  770 PRINT\PRINT "AND YOU REVERSE 4, THE RESULT WILL BE:"
  780 PRINT\PRINT "5 4 3 2 1 6 7 8 9"
- 790 PRINT\PRINT "NOW IF YOU REVERSE 5, YOU WIN!"
+ 790 PRINT\PRINT "NOW, IF YOU REVERSE 5, YOU WIN!"
  800 PRINT\PRINT "1 2 3 4 5 6 7 8 9"\PRINT
  810 PRINT "NO DOUBT YOU WILL LIKE THIS GAME OF SKILL, BUT"
  820 PRINT "IF YOU WANT TO QUIT, REVERSE 0 (ZERO)."\PRINT\RETURN

port/ROCKET.BAS

@@ -9,23 +9,23 @@
   10 PRINT\PRINT\PRINT "GOOD LUCK!!!"
   11 L=0
   13 PRINT\PRINT "SEC","MI + FT","MPH","LB FUEL","BURN RATE"\PRINT
-  15 A=120\V=1\M=33000\N=16500\G=1E-03\Z=1.8
+  15 A=120\V=1\M=33000\N=16500\G=1E-3\Z=1.8
   21 PRINT L,INT(A);INT(5280*(A-INT(A))),3600*V,M-N,\INPUT K\T=10
   31 IF M-N<.001 THEN 41\IF T<.001 THEN 21\S=T\IF M>=N+S*K THEN 35
   32 S=(M-N)/K
   35 GOSUB 91\IF I<=0 THEN 71\IF V<=0 THEN 38\IF J<0 THEN 81
   38 GOSUB 61\GOTO 31
   41 PRINT "FUEL OUT AT"L"SEC"\S=(-V+SQR(V*V+2*A*G))/G\V=V+G*S\L=L+S
-  51 W=3600*V\PRINT "ON MOON AT"L"SEC - IMPACT VELOCITY" W "MPH"
+  51 W=3600*V\PRINT"ON MOON AT"L"SEC - IMPACT VELOCITY" W "MPH"
   52 IF W>1.2 THEN 53\PRINT "PERFECT LANDING! (LUCKY)"\GOTO 95
   53 IF W>10 THEN 56\PRINT "GOOD LANDING (COULD BE BETTER)"\GOTO 95
   56 IF W>60 THEN 58 \PRINT "CRAFT DAMAGE.....YOU'RE STRANDED HERE UNTIL"
   57 PRINT "A RESCUE PARTY ARRIVES.  HOPE YOU HAVE ENOUGH OXYGEN!"\GOTO 95
   58 PRINT "SORRY, BUT THERE WERE NO SURVIVORS...YOU BLEW IT!"
-  59 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"W*.227"FT DEEP"
+  59 PRINT "IN FACT, YOU BLASTED A NEW LUNAR CRATER"W*.2777"FT DEEP"
   60 GOTO 95
   61 L=L+S\T=T-S\M=M-S*K\A=I\V=J\RETURN
-  71 IF S<5E-03 THEN 51\D=V+SQR(V*V+2*A*(G-Z*K/M))\S=2*A/D
+  71 IF S<5E-3 THEN 51\D=V+SQR(V*V+2*A*(G-Z*K/M))\S=2*A/D
   73 GOSUB 91\GOSUB 61\GOTO 71
   81 W=(1-M*G/(Z*K))/2\S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05\GOSUB 91
   83 IF I<=0 THEN 71\GOSUB 61\IF J>0 THEN 31\IF V>0 THEN 81\GOTO 31

port/ROCKSP.BAS

@@ -2,7 +2,7 @@
    2 PRINT "ROCK, PAPER, AND SCISSORS AGAINST THE COMPUTER."
    5 RANDOMIZE
    6 PRINT "HOW MANY GAMES DO YOU WANT";\INPUT Q
-   8 IF Q<11 THEN  11
+   8 IF Q<11  THEN 11
    9 PRINT "SORRY, BUT WE AREN'T ALLOWED TO PLAY THAT MANY."\GOTO 6
   11 FOR G=1 TO Q
   15 PRINT\PRINT "GAME NUMBER"G

port/ROCKT1.BAS

@@ -1,7 +1,7 @@
   70 PRINT "LUNAR LANDING SIMULATION"
   80 PRINT "----- ------- ----------"\PRINT
  100 PRINT "DO YOU WANT INSTRUCTIONS (YES OR NO)";\INPUT A$
- 110 IF A$="NO" THEN 390
+ 120 IF A$="NO" THEN 390
  160 PRINT
  200 PRINT "YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"
  210 PRINT "CONTROL 500 FEET ABOVE A GOOD LANDING SPOT.  YOU HAVE A"
@@ -23,9 +23,9 @@
  370 PRINT "    BUT YOUR SECOND BY SECOND REPORT WILL CONTINUE UNTIL"
  380 PRINT "    YOU CONTACT THE LUNAR SURFACE."\PRINT
  390 PRINT "BEGINNING LANDING PROCEDURE....."\PRINT
- 400 PRINT "G O O D   L U C K ! ! !"
+ 410 PRINT "G O O D   L U C K ! ! !"
  420 PRINT\PRINT
- 430 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
+ 440 PRINT "SEC  FEET   SPEED    FUEL      PLOT OF DISTANCE"
  450 PRINT
  455 T=0\H=500\V=50\F=120
  490 PRINT T;TAB(4);H;TAB(12);V;TAB(20);F;TAB(29);"I";TAB(H/12+29);"*"
@@ -63,6 +63,6 @@
  830 PRINT "APPROPRIATE CONDOLENCES WILL BE SENT TO YOUR NEXT OF KIN."
  840 PRINT\PRINT\PRINT
  850 PRINT "ANOTHER MISSION";\INPUT A$
- 860 IF A$="YES" THEN 390
+ 870 IF A$="YES" THEN 390
- 870 PRINT\PRINT "CONTROL OUT."\PRINT
+ 880 PRINT\PRINT "CONTROL OUT."\PRINT
  999 END

port/ROCKT2.BAS

@@ -38,7 +38,7 @@
  180 PRINT "JUST ANSWER THE QUESTION, PLEASE";
  185 GOTO 160
  190 PRINT
- 195 PRINT "INPUT MEASUREMENT OPTION NUMBER";
+ 195 PRINT "ENTER MEASUREMENT OPTION NUMBER";
  200 GOTO 225
  205 PRINT
  210 PRINT "WHICH SYSTEM OF MEASUREMENT DO YOU PREFER ?"
@@ -88,13 +88,13 @@
  430 PRINT
  435 PRINT "ALL ANGLES BETWEEN -180 AND 180 DEGREES ARE ACCEPTED."
  440 PRINT
- 445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX THRUST"
+ 445 PRINT "1 FUEL UNIT = 1 SEC. AT MAX. THRUST"
  450 PRINT "ANY DISCREPANCIES ARE ACCOUNTED FOR IN THE USE OF FUEL"
  455 PRINT "FOR AN ATTITUDE CHANGE."
  460 PRINT "AVAILABLE ENGINE POWER: 0 (ZERO) AND ANY VALUE BETWEEN"
- 465 PRINT "10 AND 100 PERCENT."
+ 465 PRINT "10 AND 100 PERCENT"
  470 PRINT
- 475 PRINT"NEGATIVE THRUST OR TIME IS PROHIBITED"
+ 475 PRINT "NEGATIVE THRUST OR TIME IS PROHIBITED"
  480 PRINT
  485 PRINT
  490 PRINT "INPUT: TIME INTERVAL IN SECONDS ------ (T)"
@@ -182,7 +182,7 @@
  900 GOTO 995
  905 PRINT
  910 PRINT "THIS SPACECRAFT IS NOT ABLE TO VIOLATE THE SPACE-";
- 915 PRINT "TIME CONTINUUM."
+ 915 PRINT "TIME CONTINUUM"
  920 GOTO 575
  925 PRINT
  930 PRINT "IF YOU WANT TO SPIN AROUND, GO OUTSIDE THE MODULE";
@@ -204,10 +204,10 @@
 1010 PRINT "YOU MAY NOW PROCEED WITH SURFACE EXPLORATION."
 1015 GOTO 1100
 1020 PRINT
-1025 PRINT "CRASH !!!!!!!!!!!"
+1025 PRINT "CRASH !!!!!!!!!!"
 1030 PRINT "YOUR IMPACT CREATED A CRATER";ABS(H);M$;" DEEP"
 1035 X1=SQR(D1*D1+H1*H1)*G3
-1040 PRINT "AT CONTACT YOU WERE TRAVELING";X1;N$;"/HR."
+1040 PRINT "AT CONTACT YOU WERE TRAVELLING";X1;N$;"/HR."
 1045 GOTO 1100
 1050 PRINT
 1055 PRINT "YOU HAVE BEEN LOST IN SPACE WITH NO HOPE OF RECOVERY"

port/RUSROU.BAS

@@ -1,5 +1,5 @@
    5 RANDOMIZE
-   8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE."
+   8 PRINT "THIS IS A GAME OF >>>>>>>>>>>RUSSIAN ROULETTE"
   10 PRINT\PRINT "HERE IS A REVOLVER"
   20 PRINT "HIT '1' TO SPIN CHAMBER AND PULL TRIGGER."
   22 PRINT "     (HIT '2' TO GIVE UP)"\PRINT "GO";

port/SALVO1.BAS

@@ -3,7 +3,7 @@
  120 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY  ONE OUTPOST."
  130 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
  135 PRINT
- 140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSLES AT THE"
+ 140 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSILES AT THE"
  150 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
  160 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
  170 PRINT "FIRST IS THE WINNER."
@@ -23,39 +23,39 @@
  390 D = INT(RND(N) * 25) + 1
  400 E = INT(RND(N) *25) +1
  410 F = INT(RND(N) * 25) + 1
- 420 IF C = D THEN 390
+ 420 IF C = D GOTO 390
- 430 IF C = E THEN 400
+ 430 IF C = E GOTO 400
- 440 IF C = F THEN 410
+ 440 IF C = F GOTO 410
- 450 IF D = E THEN 400
+ 450 IF D = E GOTO 400
- 460 IF D = F THEN 410
+ 460 IF D = F GOTO 410
- 470 IF E = F THEN 410
+ 470 IF E = F GOTO 410
  480 PRINT "WHAT ARE YOUR FOUR POSITIONS";
  490 INPUT G,H,K,L
  495 PRINT
- 500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSLE";
+ 500 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSILE";
  510 INPUT Y
- 520IF Y = C THEN 710
+ 520IF Y = C GOTO 710
- 530 IF Y = D THEN 710
+ 530 IF Y = D GOTO 710
- 540 IF Y = E THEN 710
+ 540 IF Y = E GOTO 710
- 550 IF Y = F THEN 710
+ 550 IF Y = F GOTO 710
  560 GOTO 630
  570 M = INT(RND(N) * 25) + 1
  575 GOTO 1160
- 580 IF X = G THEN 920
+ 580 IF X = G GOTO 920
- 590 IF X = H THEN 920
+ 590 IF X = H GOTO 920
- 600 IF X = L THEN 920
+ 600 IF X = L GOTO 920
- 610 IF X = K THEN 920
+ 610 IF X = K GOTO 920
  620 GOTO 670
  630 PRINT" HA,HA YOU MISSED. MY TURN NOW"
  640 PRINT\PRINT\GOTO 570
  670 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
  680 PRINT\PRINT\GOTO 500
  710 Q = Q +1
- 720 IF Q = 4 THEN 890
+ 720 IF Q = 4 GOTO 890
  730 PRINT "YOU GOT ONE OF MY OUTPOSTS."
- 740 IF Q = 1 THEN 770
+ 740 IF Q = 1 GOTO 770
- 750 IF Q = 2 THEN 810
+ 750 IF Q = 2 GOTO 810
- 760 IF Q = 3 THEN 850
+ 760 IF Q = 3 GOTO 850
  770 PRINT " ONE DOWN THREE TO GO"
  780 PRINT\PRINT\GOTO 570
  810 PRINT " TWO DOWN TWO TO GO"
@@ -73,9 +73,9 @@
  970 IF Z=3 THEN 1070
  990 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
 1000 PRINT\PRINT\GOTO 500
-1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT"
+1030 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT."
 1040  PRINT\PRINT\GOTO 500
-1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT"
+1070 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT."
 1080 PRINT\PRINT\GOTO 500
 1110 PRINT " YOU'RE DEAD.  YOUR LAST OUTPOST WAS AT"X".  HA, HA, HA!"
 1120 PRINT " BETTER LUCK NEXT TIME."
@@ -83,7 +83,7 @@
 1160 P=P+1
 1170 N=P-1
 1180 FOR T = 1 TO N
-1190 IF M = M(T) THEN 570
+1190 IF M = M(T) GOTO 570
 1200 NEXT T
 1210 X = M
 1220 M(P) = M

port/SLOTS.BAS

@@ -36,7 +36,7 @@
  450 GO TO 510
  460 IF D(1)/2<>INT(D(1)/2) THEN 510
  470 LET B=B+5\PRINT "KENO..YOU WIN $5..TOTAL=$";B;
- 480 GOTO 550
+ 480 GO TO 550
  490 LET B=B-1\PRINT "YOU HAVE LOST $1 -- TOTAL=$";B;
  500 GOTO 550
  510 LET B=B+1\PRINT "YOU HAVE WON $1 --- TOTAL=$";B;

port/STARS.BAS

@@ -18,7 +18,7 @@
  270 REM *** COMPUTER 'THINKS' OF A NUMBER
  280 PRINT
  290 PRINT
- 300 LET X=INT(A*RND(0)+1)
+ 300 LET X=INT(A*RND(0))+1
  310 PRINT "OK, I AM THINKING OF A NUMBER. START GUESSING."
  320 REM *** GUESSING BEGINS. HUMAN GETS M GUESSES
  330 FOR K=1 TO M
@@ -44,13 +44,13 @@
  530 NEXT K
  540 REM *** DID NOT GUESS NUMBER IN M GUESSES
  550 PRINT
- 560 PRINT "SORRY, THAT'S";M;"GUESSES. THE NUMBER WAS";X
+ 560 PRINT "SORRY, THAT'S";M;"GUESSES. NUMBER WAS";X
  580 GOTO 280
  590 REM *** WE HAVE A WINNER
  600 FOR N=1 TO 50
  610 PRINT "*";
  620 NEXT N
  630 PRINT "!!!"
- 640 PRINT "YOU GOT IT IN";K;"GUESSES!!  LET'S PLAY AGAIN..."
+ 640 PRINT "YOU GOT IT IN ";K;"GUESSES!!  LET'S PLAY AGAIN..."
  650 GOTO 280
  660 END

port/STOCK.BAS

@@ -85,7 +85,7 @@
  394  LET D=T+C
  395  IF X9>0 THEN 398
  396  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5
- 397  GOTO 399
+ 397  GO TO 399
  398  PRINT "NEW YORK STOCK EXCHANGE AVERAGE: "Z5"   NET CHANGE: "Z6
  399  PRINT
  400  LET T=INT(100*T+.5)/100
@@ -120,11 +120,11 @@
  575  LET Z(I)=INT(Z(I)+.5)
  580  IF Z(I)<=0 THEN 610
  590  LET P5=P5+Z(I)*S(I)
- 600  GOTO 620
+ 600  GO TO 620
  610  LET S5=S5-Z(I)*S(I)
  612  IF -Z(I)<=P(I) THEN 620
  614  PRINT "YOU HAVE OVERSOLD A STOCK; TRY AGAIN."
- 616  GOTO 420
+ 616  GO TO 420
  620  NEXT I
  622 REM TOTAL VALUE OF TRANSACTIONS:T5
  625  LET T5=P5+S5
@@ -135,7 +135,7 @@
  654  LET C5=C-P5-B5+S5
  656  IF C5>=0 THEN 674
  658 PRINT "YOU HAVE USED $";-C5"MORE THAN YOU HAVE."
- 660 GOTO 420
+ 660 GO TO 420
  674  LET C=C5
  675 REM CALCULATE NEW PORTFOLIO
  680  FOR I=1 TO 5
@@ -162,7 +162,7 @@
  775  LET X9=1
  780  PRINT
  790  PRINT
- 810  GOTO 360
+ 810  GO TO 360
  829 REM NEW STOCK VALUES - SUBROUTINE
  830 REM RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS
  831 REM DAY'S VALUES
@@ -187,13 +187,13 @@
  910  LET X1=RND(X)
  915  IF X1>.25 THEN 920
  916  LET X1=.25
- 917  GOTO 935
+ 917  GO TO 935
  920  IF X1>.50 THEN 925
  921  LET X1=.50
- 922  GOTO 935
+ 922  GO TO 935
  925  IF X1>.75 THEN 930
  926  LET X1=.75
- 927  GOTO 935
+ 927  GO TO 935
  930  LET X1=0.0
  931 REM BIG CHANGE CONSTANT:W3  (SET TO ZERO INITIALLY)
  935  LET W3=0
@@ -214,7 +214,7 @@
  960  IF S(I)>0 THEN 967
  964  LET C(I)=0
  965  LET S(I)=0
- 966  GOTO 970
+ 966  GO TO 970
  967  LET S(I)=INT(100*S(I)+.5)/100
  970  NEXT I
  972 REM AFTER T8 DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE