diff --git a/dec/BATTLE.BAS b/dec/BATTLE.BAS index bf0ceb4..fef55f0 100644 --- a/dec/BATTLE.BAS +++ b/dec/BATTLE.BAS @@ -6,9 +6,9 @@ 60 FOR I=1 TO 3 70 N=4-I 80 FOR J=1 TO 2 -90 A=INT(6*RND(0)+1) -100 B=INT(6*RND(0)+1) -110 D=INT(4*RND(0)+1) +90 A=INT(6*RND(0))+1 +100 B=INT(6*RND(0))+1 +110 D=INT(4*RND(0))+1 120 IF F[A,B]>0 THEN 90 130 M=0 140 GOTO D OF 150,340,550,740 diff --git a/dec/BINGO.BAS b/dec/BINGO.BAS index 14a36fe..484bab3 100644 --- a/dec/BINGO.BAS +++ b/dec/BINGO.BAS @@ -4,7 +4,7 @@ 190 DIM B(10,10) 200 DIM L(75) 210 MAT READ A$(5) -220 DATA B, I, N, G, O +220 DATA B ,I ,N ,G ,O 235 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430) 240 FOR K1=1 TO 75 250 LET L(K1)=0 @@ -99,7 +99,7 @@ 1250 LET B(X,Y)=0 1260 GOTO 1140 1265 REM THIS IS THE BINGO DETERMINING SEQUENCE (LINES 1270-1950) -1266 +1266 1267 REM THIS IS THE VERTICAL CHECK FOR BINGO*** (LINES 1270-1430) 1270 LET G=F+4 1280 FOR Y=F TO G @@ -131,7 +131,7 @@ 1550 PRINT 1560 PRINT"I'VE GOT A B I N G O * * * * *" 1570 LET V=1 -1590 GO TO 1620 +1590 GOTO 1620 1600 NEXT Y 1610 NEXT X 1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770) diff --git a/dec/BLKJAC.BAS b/dec/BLKJAC.BAS index dd009eb..f6daf29 100644 --- a/dec/BLKJAC.BAS +++ b/dec/BLKJAC.BAS @@ -14,7 +14,7 @@ 80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING" 85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND" 90 PRINT "3-SPLIT A PAIR." -95 IF K<>1 THEN 155 +95 IF K<> 1 THEN 155 100 PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK" 105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL" 110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" @@ -64,7 +64,7 @@ 340 IF W<=500 THEN 370 345 IF W<>7777 THEN 360 350 GOSUB 1645 -355 GOTO 315 +355 GOTO315 360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" 365 GOTO 315 370 PRINT @@ -83,7 +83,7 @@ 435 GOSUB 865 440 IF V(2)>0 THEN 605 445 LET S=X -450 IF V(3)<> 1 THEN 605 +450 IF V(3)<>1 THEN 605 455 IF T(P)<>21 THEN 505 460 PRINT " ***BLACKJACK*** " 465 PRINT @@ -106,7 +106,7 @@ 550 GOTO 570 555 LET W1=W1-W/2 560 PRINT -565 PRINT"YOU LOST $"W/2" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK" +565 PRINT"YOU LOST $"W/2;" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK" 570 IF T(1)<>21 THEN 605 575 PRINT 580 PRINT"**I HAVE BLACKJACK**" @@ -210,7 +210,7 @@ 1070 PRINT Q(X);" "; 1075 RETURN 1080 IF Q(X)>11 THEN 1095 -1085 PRINT" JACK "; +1085 PRINT " JACK "; 1090 RETURN 1095 IF Q(X)>12 THEN 1110 1100 PRINT" QUEEN "; diff --git a/dec/BLKJAK.BAS b/dec/BLKJAK.BAS index db1388b..aa2464f 100644 --- a/dec/BLKJAK.BAS +++ b/dec/BLKJAK.BAS @@ -27,7 +27,7 @@ 106 GOSUB 780 110 P2=I 112 PRINT "YOUR SECOND CARD IS "CHR$(L) -115 GOSUB 200 +115 GOTO 200 117 PRINT "YOU HAVE "P3" SHOWING." 119 GOSUB 760 120 P3=P3+I diff --git a/dec/BOAT.BAS b/dec/BOAT.BAS index 2861d36..9fa3f14 100644 --- a/dec/BOAT.BAS +++ b/dec/BOAT.BAS @@ -6,7 +6,7 @@ 14 PRINT "COMPUTER IS THE CAPTAIN OF THE GUN BOAT." 20 PRINT "THE SPEED OF THE GUN BOAT WILL BE GIVEN AT THE BEGINNING OF" 25 PRINT "THE GAME AND YOU HAVE TO HIT THE GUN BOAT TWICE" - 30 PRINT "IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A " + 30 PRINT "IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A" 35 PRINT "VULNERABLE PLACE AND TWICE IN ANY OTHER PART OF THE" 40 PRINT "HULL OF THE GUN BOAT. BUT IF YOU MISS ANY ONE TIME THE" 45 PRINT "GUN BOAT WILL OPEN FIRE ON YOU UNTIL IT SINKS YOU OR YOU" @@ -28,7 +28,7 @@ 270 IF S>=1000 THEN 290 280 NEXT F 290 IF S<=10000 THEN 310 - 300 GOTO 230 + 300 GO TO 230 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS" 320 PRINT "NOW ";S;" YARDS." 330 LET Z=ATN(50/R) @@ -91,17 +91,17 @@ 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 840 GO TO 610 - 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" + 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/" 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 880 GO TO 650 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/" - 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEE/" - 910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" + 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEEE/" + 910PRINT" \EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" 920 GO TO 610 - 930PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE................../EEEEEEEEEEEEEEEEEE/" + 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/" 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" - 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" + 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" 970 GO TO 650 1800 PRINT " /!" 1801 PRINT " //HH!" diff --git a/dec/BOMBER.BAS b/dec/BOMBER.BAS index 0b10a34..4c07dac 100644 --- a/dec/BOMBER.BAS +++ b/dec/BOMBER.BAS @@ -10,11 +10,11 @@ 80 PRINT "BE CAREFUL!!!"\GOTO 280 90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280 110 INPUT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";G -120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN..."\GOTO 110 +120 IF G>0 AND G<5 THEN 125 ELSE PRINT "TRY AGAIN...."\GOTO 110 125 PRINT\ON G GOTO 130,150,170,190 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI" 140 GOTO 280 -150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." +150 PRINT "YOU'RE DROPPING THE A-BOMB ON HIROSHIMA." 160 GOTO 280 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." 180 GOTO 280 @@ -22,7 +22,7 @@ 195 GOTO 280 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON." 205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$ -207 IF F$="N" THEN S=0\GOTO 358 +208 IF F$="N" THEN S=0\GOTO 358 210 PRINT\IF RND>.65 THEN 325 ELSE 380 220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)" 230 INPUT"OR FRANCE(3)";M\IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??"\GOTO 220 @@ -33,22 +33,22 @@ 270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." 280 PRINT 285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D -290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES..." +290 IF D<160 THEN 300 ELSE PRINT "MISSIONS, NOT MILES...." 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS. NOW THEN,"\GOTO 285 300 PRINT\IF D<100 THEN 310 ELSE PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320 310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?" 320 PRINT\IF D<160*RND THEN 330 -325 PRINT "DIRECT HIT!!!! "INT(100*RND)"KILLED! MISSION SUCCESSFUL."\GOTO 390 +325 PRINT "DIRECT HIT!!!! "INT(100*RND)"KILLED! MISSION SUCCESSFUL."\GOTO 390 330 PRINT "MISSED TARGET BY"INT(2+30*RND)"MILES!!" 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT 340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R 345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN...."\GOTO 340 350 PRINT\IF R=2 THEN 360 -355 INPUT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S -358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380 +355 INPUT "WHAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO 50)";S +358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...."\PRINT\GOTO 380 360 PRINT\IF R>1 THEN T=35 365 IF S+T>100*RND THEN 380 -370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390 +370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!":GOTO 390 380 PRINT "* * * * * BOOM * * * * *" 384 PRINT "YOU HAVE BEEN SHOT DOWN......." 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.." diff --git a/dec/BOUNCE.BAS b/dec/BOUNCE.BAS index 54652c2..f2eda99 100644 --- a/dec/BOUNCE.BAS +++ b/dec/BOUNCE.BAS @@ -49,5 +49,5 @@ 400 PRINT 410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS" 420 PRINT -430 GOTO 135 +430 GO TO 135 440 END diff --git a/dec/BOWL.BAS b/dec/BOWL.BAS index 1316e33..411025d 100644 --- a/dec/BOWL.BAS +++ b/dec/BOWL.BAS @@ -97,4 +97,4 @@ 8460 PRINT "DO YOU WANT ANOTHER GAME" 8550 INPUT A$ 8640 IF A$="Y" THEN 2610 -8730 END +8730 END diff --git a/dec/BUG.BAS b/dec/BUG.BAS index e692bc4..0d87846 100644 --- a/dec/BUG.BAS +++ b/dec/BUG.BAS @@ -1,5 +1,5 @@ 10 REM BRIAN MONTE LEIBOWITZ GRADE 7 -20 REM HARRISON JR. HIGH SCHOOL +20 REM HARRISON JR. SR. HIGH SCHOOL 30 REM HARRISON N.Y. 40 DIM Z$[3] 50 A=B=H=L=N=P=Q=R=S=T=U=V=Y=0 @@ -28,7 +28,7 @@ 280 PRINT 290 PRINT 300 IF Y>0 THEN 2480 -310 Z=INT(6*RND(0)+1) +310 LET Z=INT(6*RND(0)+1) 320 C=1 330 PRINT "YOU ROLLED A "Z 340 GOTO Z OF 350,430,540,650,760,870 @@ -125,7 +125,7 @@ 1250 GOTO 1630 1260 PRINT "I DO NOT HAVE A NECK" 1270 GOTO 1630 -1280 PRINT "I DO NOT NEED A HEAD" +1280 PRINT "I DO NOT NEED A HEAD " 1290 GOTO 1630 1300 PRINT "4=FEELERS" 1310 IF R=0 THEN 1390 @@ -208,7 +208,7 @@ 2080 FOR Z=1 TO 4 2090 PRINT 2100 NEXT Z -2110 PRINT "*****MY BUG*****" +2110 PRINT "******MY BUG*******" 2120 PRINT 2130 PRINT 2140 PRINT @@ -250,5 +250,5 @@ 2510 PRINT " H V H" 2520 PRINT " HHHHHHH" 2530 RETURN -2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!" +2540 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON !!!" 2550 END diff --git a/dec/BULCOW.BAS b/dec/BULCOW.BAS index df2b1ea..d571c69 100644 --- a/dec/BULCOW.BAS +++ b/dec/BULCOW.BAS @@ -1,4 +1,4 @@ -5 GOSUB 500 +5 GOSUB500 10 DIMD(10,4),B(10),C(10),G(10) 15 RANDOMIZE:PRINT:PRINT:PRINT 20 LETA=0:GOTO200 @@ -56,7 +56,7 @@ 455 LETJ=J+1 460 FORI=0TO4:LETD(J,I)=G(I):NEXTI 465 RETURN -500 PRINT:PRINT:PRINT" BRADFORD UNIVERSITY BULLS AND COW GAME +500 PRINT:PRINT:PRINT" BRADFORD UNIVERSITY BULLS AND COWS GAME " 510 GOTO10 999 END diff --git a/dec/BULEYE.BAS b/dec/BULEYE.BAS index feb4965..c54e6b9 100644 --- a/dec/BULEYE.BAS +++ b/dec/BULEYE.BAS @@ -5,17 +5,17 @@ 50 PRINT "TO GET 200 POINTS."\PRINT 60 PRINT "THROW","DESCRIPTION",,"PROBABLE SCORE" 70 PRINT " 1","FAST OVERARM",,"BULLSEYE OR COMPLETE MISS" -80 PRINT " 2","CONTROLLED OVERARM","10, 20 OR 30 POINTS" +80 PRINT " 2","CONTROLLED OVERARM","10, 20, OR 30 POINTS" 90 PRINT " 3","UNDERARM",,"ANYTHING"\PRINT 100 DIM A$(20),S(20),W(10)\R,M=0\S(I)=0 FOR I=1 TO 20 110 INPUT "HOW MANY PLAYERS";N\PRINT 120 FOR I=1 TO N -130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I) +130 PRINT "NAME OF PLAYER"I;\INPUT A$(I) 140 NEXT I 150 R=R+1\PRINT\PRINT "ROUND"R 160 FOR I=1 TO N 170 PRINT\PRINT A$(I)"'S THROW";\INPUT T -180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!"\GOTO 170 +180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3"\GOTO 170 190 ON T GOTO 200,210,220 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230 diff --git a/dec/BULL.BAS b/dec/BULL.BAS index bd185ae..f36f2e0 100644 --- a/dec/BULL.BAS +++ b/dec/BULL.BAS @@ -1,91 +1,91 @@ - 10 DIM D(20) -200 RANDOMIZE -202 LET L=1 -205 PRINT"DO YOU WANT INSTRUCTIONS"; -206 INPUT Z$ -207 IF Z$="NO" THEN 400 -210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS" -220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL" -230 PRINT -240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY" -250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" -260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" -270 PRINT"2 - ORDINARY SWIRL OF THE CAPE" -280 PRINT -290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL" -300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)" -310 PRINT"BUT IF I WERE YOU," -320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS" -330 PRINT -340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" -350 PRINT"POSTHUMOUSLY IF NECESSARY" -360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE" -370 PRINT -380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO," -390 PRINT"THE BETTER YOUR CHANCES ARE" -400 PRINT -410 PRINT -420 LET D(5)=1 -430 LET D(4)=1 -450 DIM L$(5) -455 LET A=INT(RND(0)*5)+1 -460 FOR I=1 TO 5 -463 READ L$(I) -467 NEXT I -470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL" -490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL" -500 IF A>4 THEN 530 -510 IF A<2 THEN 550 -520 GOTO 570 -530 PRINT"YOU'RE LUCKY" -540 GOTO 570 -550 PRINT"GOOD LUCK. YOU'LL NEED IT" -560 PRINT -570 PRINT -590 LET A$="PICADO" -595 LET B$="RES" -600 GOSUB 1610 -610 LET D(1)=C -630 LET A$="TOREAD" -635 LET B$="ORES" -640 GOSUB 1610 -650 LET D(2)=C -660 LET E=E -670 PRINT -680 IF Z=1 THEN 1310 -690 LET D(3)=D(3)+1 -700 PRINT"PASS NUMBER "D(3) -710 IF D(3)<3 THEN 760 -720 PRINT"HERE COMES THE BULL! TRY FOR A KILL"; -730 GOSUB 1930 -735 ON Z1 GOTO 1130,740 -740 PRINT "CAPE MOVE"; -750 GOTO 800 -760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" -770 PRINT"DO YOU WANT TO KILL THE BULL"; -780 GOSUB 1930 -785 ON Z1 GOTO 1130,790 -790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"; -800 INPUT E -810 IF E<>INT(ABS(E)) THEN 830 -820 IF E<3 THEN 850 -830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" -840 GOTO 800 -850 LET D=D -860 IF E=0 THEN 920 -870 IF E=1 THEN 900 -880 LET M=0.5 -890 GOTO 930 -900 LET M=2 -910 GOTO 930 -920 LET M=3 -930 LET L=L+M -940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5) -950 IF F<0.51 THEN 660 -960 PRINT"THE BULL HAS GORED YOU" -970 ON FNA(0) GOTO 980,1010 -980 PRINT"YOU ARE DEAD" -990 LET D(4)=1.5 + 10 DIM D(20) + 200 RANDOMIZE + 202 LET L=1 + 205 PRINT"DO YOU WANT INSTRUCTIONS"; + 206 INPUT Z$ + 207 IF Z$="NO" THEN 400 + 210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS" + 220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL" + 230 PRINT + 240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY" + 250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" + 260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" + 270 PRINT"2 - ORDINARY SWIRL OF THE CAPE" + 280 PRINT + 290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL" + 300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)" + 310 PRINT"BUT IF I WERE YOU," + 320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS" + 330 PRINT + 340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" + 350 PRINT"POSTHUMOUSLY IF NECESSARY" + 360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE" + 370 PRINT + 380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO," + 390 PRINT"THE BETTER YOUR CHANCES ARE" + 400 PRINT + 410 PRINT + 420 LET D(5)=1 + 430 LET D(4)=1 + 450 DIM L$(5) + 455 LET A=INT(RND(0)*5)+1 + 460 FOR I=1 TO 5 + 463 READ L$(I) + 467 NEXT I + 470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL" + 490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL" + 500 IF A>4 THEN 530 + 510 IF A<2 THEN 550 + 520 GOTO 570 + 530 PRINT"YOU'RE LUCKY" + 540 GOTO570 + 550 PRINT"GOOD LUCK. YOU'LL NEED IT" + 560 PRINT + 570 PRINT + 590 LET A$="PICADO" + 595 LET B$="RES" + 600 GOSUB 1610 + 610 LET D(1)=C + 630 LET A$="TOREAD" + 635 LET B$="ORES" + 640 GOSUB 1610 + 650 LET D(2)=C + 660 LET E=E + 670 PRINT + 680 IF Z=1 THEN 1310 + 690 LET D(3)=D(3)+1 + 700 PRINT"PASS NUMBER "D(3) + 710 IF D(3)<3 THEN 760 + 720 PRINT"HERE COMES THE BULL! TRY FOR A KILL"; + 730 GOSUB 1930 + 735 ON Z1 GOTO 1130,740 + 740 PRINT "CAPE MOVE"; + 750 GOTO 800 + 760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" + 770 PRINT"DO YOU WANT TO KILL THE BULL"; + 780 GOSUB 1930 + 785 ON Z1 GOTO 1130,790 + 790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"; + 800 INPUT E + 810 IF E<>INT(ABS(E))THEN 830 + 820 IF E<3 THEN 850 + 830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" + 840 GOTO 800 + 850 LET D=D + 860 IF E=0 THEN 920 + 870 IF E=1 THEN 900 + 880 LET M=0.5 + 890 GOTO 930 + 900 LET M=2 + 910 GOTO 930 + 920 LET M=3 + 930 LET L=L+M + 940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5) + 950 IF F<0.51 THEN 660 + 960 PRINT"THE BULL HAS GORED YOU" + 970 ON FNA(0) GOTO 980,1010 + 980 PRINT"YOU ARE DEAD" + 990 LET D(4)=1.5 1000 GOTO 1310 1010 PRINT"YOU ARE STILL ALIVE" 1020 PRINT"DO YOU RUN FROM THE RING"; @@ -95,7 +95,7 @@ 1050 LET D(4)=0 1060 GOTO 1310 1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE" -1080 ON FNA(0) GOTO 1090,1110 +1080 ON FNA(0) THEN 1090,1110 1090 LET D(4)=2 1100 GOTO 660 1110 PRINT"YOU ARE GORED AGAIN" @@ -106,7 +106,7 @@ 1160 INPUT H 1170 IF H=4 THEN 1230 1180 IF H=5 THEN 1230 -1190 PRINT"YOU PANICKED. THE BULL GORED YOU." +1210 PRINT"YOU PANICKED. THE BULL GORED YOU." 1220 GOTO 970 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3)) 1240 IF J=4 THEN 1290 @@ -178,9 +178,9 @@ 1910 RETURN 1920 DEF FNA(K)=INT(RND(0)*2)+1 1930 INPUT A$ -1940 IF A$="YES" THEN 1990 -1950 IF A$="NO" THEN 2010 -1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'"; +1950 IF A$="YES" THEN 1990 +1960 IF A$="NO" THEN 2010 +1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'"; 1980 GOTO 1930 1990 LET Z1=1 2000 GOTO 2020 diff --git a/dec/BUNNY.ASC b/dec/BUNNY.ASC index 08674bd..6ac03a8 100644 --- a/dec/BUNNY.ASC +++ b/dec/BUNNY.ASC @@ -1,8 +1,8 @@ UN -BUN BUNNYB +BUN NNYBUN BUNNYB NYBUNNYBUN BUNNYBUN UNNYBUNNYBUN - UNNYBUNNY NNYBUNNYBUNNYB + UNNYBUNNY NYBUNNYBUNNYBU NNYBUNNYBU UNNYBUNNYBUNNYB NYBUNNYBUNN YBUNNYBUNNYBUNNY YBUNNYBUNNY NNYBUNNYBUNNYBUNN diff --git a/dec/CALNDR.BAS b/dec/CALNDR.BAS index 7109ea3..b42640c 100644 --- a/dec/CALNDR.BAS +++ b/dec/CALNDR.BAS @@ -1,7 +1,7 @@ -100 REM VALUES FOR 1973; SEE NOTES +100 REM: VALUES FOR 1973; SEE NOTES 110 ' 120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I -130 D=-1 '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...] +130 D=-1 '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...] 140 S=0 150 REM: READ DAYS OF EACH MONTH 160 FOR N=0 TO 12 \ READ M(N) \ NEXT N diff --git a/dec/CAN-AM.BAS b/dec/CAN-AM.BAS index a9184b8..ff023cb 100644 --- a/dec/CAN-AM.BAS +++ b/dec/CAN-AM.BAS @@ -18,7 +18,7 @@ 270 ' 280 ' TO RACE FRIENDS, TYPE: 290 ' -300 ' /OLD CAN-AM***/LINK ,N +300 ' /OLD CAN-AM***/LINK ,N 310 ' 320 ' REPLACE WITH ANY WORD OF LENGTH 1 THROUGH 8 INCLUSIVE 330 ' THAT YOU CHOOSE. REPLACE N WITH THE NUMBER OF PLAYERS COUNTING @@ -42,16 +42,16 @@ 510 ' WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TM009 WHICH IS 520 ' AVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA), 530 ' KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE -540 ' (630) 646-2643. +540 ' (603) 646-2643. 550 ' 560 ' EXPLANATION OF CHANGES-- 570 ' 12/27/72--TO REWORD INSTRUCTIONS. 580 ' 590 '* * * * * * * * * * * * * * * * * * * * * * -600 +600 610 REM PLEASE REFER ALL BUGS OR COMMENTS TO DIANE 620 REM MATHER, PROGRAM LIBRARIAN, 105 KIEWIT -630 +630 640 LET O(0)=2 'STANDARD MOTIF HEADER 650 LET O(1) = ASC(SOH) 660 LET O(2) = ASC(N) @@ -60,7 +60,7 @@ 690 CHANGE O TO O$ 700 PRINT O1$;O$;CHR$(13);"XX ARE YOU FAMILIAR WITH THE WAY THIS GAME WORKS"; 710 DATA NON,OUI,PARLEZ-VOUS ANGLAIS?,NEIN,JA,SPRECHEN SIE ENGLISCH? -720 DATA NOPE,YUP,COMPUTERS ARE SOPHISTICATED MACHINES. USE APPROPRIATE LANGUAGE. +720 DATA NOPE,YUP,COMPUTERS ARE SOPHISTICATED MACHINES. USE APPROPRIATE LANGUAGE. 730 LET K9=5 'TWICE NUMBER OF KNOWN LANGUAGES 740 FOR X=1 TO K9-1 STEP 2 750 READ F$(X),F$(X+1),R$((X-1)/2+1) @@ -73,8 +73,8 @@ 820 MAT READ M$(3) 'READ NAMES OF TYPES OF ROADWAY 830 READ X$ 'DEATH MESSAGE 840 INPUT A$ 'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING? -850 IF A$>"09" THEN 890 'IF BETWEEN 01 AND 09, THEN MULTI-TERMINAL -860 IF A$<"01" THEN 890 +850 IF A$>"O9" THEN 890 'IF BETWEEN O1 AND O9, THEN MULTI-TERMINAL +860 IF A$<"O1" THEN 890 870 LET O9=VAL(A$) 880 GOTO 960 890 LET O$="" 'SET THINGS UP FOR SINGLE TERMINAL @@ -100,14 +100,14 @@ 1090 PRINT 1100 IF A$="NO" THEN 2290 1110 LET F2=INT(RND*10)+6 -1120 FOR A=0 TO O9 'ASSIGN NUMBERS AND ADHESION FACTORS -1130 PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WEL YOUR CAR GRIPS THE ROAD +1120 FOR A=0 TO O9 'ASSIGN NUMBERS AND ADHESION FACTORS +1130 PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WELL YOUR CAR GRIPS THE ROAD 1140 LET A(A)=RND*.05+.05 1150 PRINT O$(A);"ADHESION FACTOR";A(A)*100-5;". (THE LOWER THE BETTER)" 1160 NEXT A 1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT" 1180 PRINT "0 AS YOUR SPEED" -1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63+SGN(O9));O$; 'PRINT ? IF ULT-TERM, OTHERWISE DON'T +1190 PRINT O$(0);"WOULD YOU LIKE TO SEE THE COURSE";CHR$(63*SGN(O9));O$; 'PRINT ? IF ULT-TERM, OTHERWISE DON'T 1200 MAT INPUT A$ 1210 PRINT O$(10); 1220 LET A$=A$(NUM) @@ -127,12 +127,12 @@ 1360 PRINT "^H";TAB(22);"I" 1370 PRINT "^";TAB(22);"I" 1380 PRINT "^";TAB(21);"4I" -1390 PRINT "^";TAB(16);"------/" +1390 PRINT "^";TAB(16);"______/" 1400 PRINT"^8";TAB(15);"(5 E" 1410 PRINT "^";TAB(16);"\" 1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\" 1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I" -1440 PRINT" \-------------------------/" +1440 PRINT" \_________________________/" 1450 LET N=RND*3+1 1460 PRINT" NOTE: THIS IS A";INT(N);"LAP RACE." @@ -162,10 +162,10 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 1690 LET Y=FNA(M$(1),200,2,7/10,72) 'STRAIGHT H, 200 MAX., 7/10 MILE LONG 1700 IF V=H THEN 1740 1710 LET Y=FNA("START-FINISH (CURVE 9)",150,1,3/20,127) -1720 REM NAME OF TRACK ,MAX,#,LEN ,ASC -1730 REM START-FINISH, 150 MAX., 3/20 MILE LONG +1720 REM NAME OF TRACK ,MAX,#,LEN ,ASC +1730 REM START-FINISH, 150 MAX., 3/20 MILE LONG 1740 NEXT V -1750 IF G1=1 THEN 2040 'ALL DEAD? +1750 IF G1=1 THEN 2040 'ALL DEAD? 1760 PRINT O$(10);"DO YOU MEAN THAT EVERYONE ISN'T DEAD? WELL, HERE ARE " 'NO, SO PRINT OUT RESULTS OF RACE 1770 PRINT"THE RESULTS STRAIGHT FROM THE CHECKERED FLAG: " @@ -181,7 +181,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 1870 GOTO 1890 1880 PRINT"GUY #";F2*(Z+1)+Z; 1890 IF D(Z)=0 THEN 1950 -1900 PRINT" IS LOOKIN' AT THEN PEARLY GATES." +1900 PRINT" IS LOOKIN' AT THEM PEARLY GATES." 1910 IF O9=0 THEN 1990 1920 PRINT O$(Z);"TELL ST. LUCIFER NOT TO EXPECT ME, O.K.?" 1930 PRINT O$(10); @@ -221,11 +221,13 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 2270 LET A$="YES" 2280 RETURN 2290 STOP -2300 'CONTROL FUNCTION +2300 '------- -------- + + 2310 DEF FNA(A$,R,B,C,D) 'KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH 2320 'ASC(LETTER FOLLOWING KIND OF TRACK) 2330 IF G1=1 THEN 4250 'ALL DEAD? -2340 GOSUB 2800 'GET SOME HAZARD (IE RAIN, OIL) +2340 GOSUB 2800 'GET SOME HAZARDS (IE RAIN, OIL) 2350 GOSUB 3220 'GET EVERYONE'S SPEED 2360 FOR G=0 TO O9 'CHECK FOR SAFE SPEEDS 2370 IF D(G)=1 THEN 2780 @@ -253,7 +255,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 2590 LET Z2=T(G)-T(X4) 2600 IF SGN(Z2)<>-SGN(Z1) THEN 2650 2610 IF SGN(Z2)=1 THEN 2640 -2620 PRINT "YOU PASSED ";Q$(X4) +2620 PRINT "YOU JUST PASSED ";Q$(X4) 2630 GOTO 2650 2640 PRINT Q$(X4);" JUST PASSED YOU" 2650 NEXT X4 @@ -271,7 +273,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 2770 NEXT X4 2780 NEXT G 'PROCEED TO THE FATE OF THE NEXT VICTIM 2790 GOTO 4250 'NO MORE VICTIMS. (THIS TIME!!) -2900 REM HAZARDS +2800 REM HAZARDS 2810 PRINT O$(10); 2820 LET E=0 'MAKE SURE WE DON'T USE LAST SECTION'S OIL ON THIS SECTION 2830 MAT L=ZER 'KILL PIT STOPS FROM LAST TIME @@ -290,7 +292,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 2960 GOTO 3130 2970 IF F3=1 THEN 3130 'HAVE WE HAD RAIN? 2980 IF RND>.025+G8 THEN 3130 'SEE IF IT SHOULD BE STOPPED OR STARTED -2990 IF A(0)<.1 THEN 3080 'IS IT RAINING +2990 IF A(0)<.1 THEN 3080 'IS IT RAINING? 3000 IF RND>.5 THEN 3130 'STOP IT? 3010 PRINT "GLORY BE, THE RAIN HAS STOPPED! BUT REMEMBER IT IS STILL WET" 3020 LET F3=1 'RAIN, RAIN, GO AWAY, WON'T COME BACK ANOTHER DAY @@ -319,7 +321,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 3250 PRINT A$;" ";CHR$(D); 3260 GOTO 3280 3270 PRINT O$(10);A$;" ";CHR$(D);": ";O$; -3280 LET S(O)=0 'GET EVERYBODY'S SPEEDS +3280 LET S(0)=0 'GET EVERYBODY'S SPEEDS 3290 FOR A=0 TO O9 3300 IF D(A)=0 THEN 3330 3310 PRINT O$(A) 'IF HE'S DEAD, DON'T GIVE HIM A CHANCE TO INPUT @@ -331,7 +333,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 3370 LET S=J(2) 3380 GOTO 3410 3390 LET S=J(1) -3400 LET N=O +3400 LET N=0 3410 IF D(N)=0 THEN 3450 'IS THE GUY DEAD? 3420 PRINT O$(N);"BUT I THOUGHT YOU WERE DEAD." 'RE-INFORM HIM THAT HE IS AN UN-PERSON 3430 PRINT O$; @@ -344,7 +346,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 3500 IF O9=0 THEN 3600 3510 IF S<1000 THEN 3600 3520 LET R4=(S-1000-F2)/(F2+1) 'IT'S OK. HE ONLY WANTS TO DRAFT -3530 IF R4=INT(R4) THEN 3560 'NOW SEE IF HE PIKED A LEGAL CAR +3530 IF R4=INT(R4) THEN 3560 'NOW SEE IF HE PICKED A LEGAL CAR 3540 PRINT O$(N);"ILLEGAL CAR" 'HE DIDN'T 3550 GOTO 3640 3560 IF R4>O9 THEN 3540 @@ -370,7 +372,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 3760 IF O9>0 THEN 3890 'SET SPEEDS FOR AUTO-PILOTS 3770 FOR F0=1 TO 3 3780 IF D(F0)=1 THEN 3870 -3790 LET S+R*B/(B+.1+E+G8)+(RND*3+Q(F0)) +3790 LET S=R*B/(B+.1+E+G8)+(RND*3+Q(F0)) 3800 IF (B+.1+G8+E)*S/B<=R THEN 3850 3810 LET D(F0)=1 3820 PRINT O$(10);Q$(F0);" JUST WIPED" 'AND INFORM US IF THEY WIPE @@ -387,7 +389,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 3930 LET H(X2)=H(H(X2)) 3940 GOTO 3920 3950 LET S(X2)=S(H(X2)) 'SET HIS SPEED TO HIS DRAFTEES, AND -3960 LET T(X2)=(T(X2)+T(H(X2)))/2 'HALVE THE DISTANCE BETWENN THEM +3960 LET T(X2)=(T(X2)+T(H(X2)))/2 'HALVE THE DISTANCE BETWEEN THEM 3970 NEXT X2 3980 RETURN 'NOW GO COUNT SURVIVORS AND INCREMENT TIMES 3990 REM PLACING @@ -414,7 +416,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND" 4200 NEXT G 4210 PRINT" YOU'VE TAKEN";T(A);"SECONDS." 'MORE BAD NEWS -4220 RETURN 'AND AN ANTICLIMACTIC ENDING. (STOLEN FROM SPIEL*** AND SPACEWAR) +4220 RETURN 'AND AN ANTI-CLIMACTIC ENDING. (STOLEN FROM SPIEL*** AND SPACEWAR) 4230 PRINT O$(10);"GUY#";F2*(G+1)+G;", THE LAST OF THE GREAT RACERS, JUST WIPED." 4240 LET G1=1 'ALL HUMANS ARE DEAD, SO GRIND THIS MANGLE TO A HALT, AND SET A FLAG TO THAT EFFECT 4250 FNEND 'AND RETURN FROM WHENCE WE CAME diff --git a/dec/CHANGE.BAS b/dec/CHANGE.BAS index 40a21a7..ee0b2b1 100644 --- a/dec/CHANGE.BAS +++ b/dec/CHANGE.BAS @@ -9,7 +9,7 @@ 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155 150 PRINT D;"TEN DOLLAR BILL(S)" 155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185 -180 PRINT E;"FIVE DOLLARS BILL(S)" +180 PRINT E;"FIVE DOLLAR BILL(S)" 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215 210 PRINT F;"ONE DOLLAR BILL(S)" 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255 diff --git a/dec/CHECKR.BAS b/dec/CHECKR.BAS index 86a37c6..9164470 100644 --- a/dec/CHECKR.BAS +++ b/dec/CHECKR.BAS @@ -185,8 +185,8 @@ 18500 RETURN 18600 NEXT Y 18700 NEXT X -18800 PRINT" VERY GOOD, YOU WIN!" +18800 PRINT" VERY GOOD, YOU WIN!" 18900 PRINT 19000 PRINT -19100 PRINT" -CHUCK OUT" +19100 PRINT" -CHUCK OUT" 19200 END diff --git a/dec/CHIEF.BAS b/dec/CHIEF.BAS index f326456..ccb2f04 100644 --- a/dec/CHIEF.BAS +++ b/dec/CHIEF.BAS @@ -1,8 +1,8 @@ 10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR"; 30 INPUT A$ -40 IF A$="YES" THEN 60 -50 PRINT "SHUT UP, PALEFACE WITH WISE TOUNGE." +40 IF A$= "YES" THEN 60 +50 PRINT "SHUT UP PALEFACE WITH WISE TOUNGE." 60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1." 80 PRINT "WHAT DO YOU HAVE"; @@ -26,7 +26,7 @@ 250 PRINT "WE GET"I". MINUS 1 EQUALS"J"." 260 PRINT "NOW DO YOU BELIEVE ME"; 270 INPUT Z$ -290 IF Z$="YES" THEN 510 +290 IF Z$ ="YES" THEN 510 295 PRINT "YOU HAVE MADE ME MAD!!!" 300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!" 310 PRINT\PRINT @@ -45,5 +45,5 @@ 450 PRINT\PRINT "##################################"\PRINT 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" 480 GOTO 520 -510 PRINT "BYE!!!" +510 PRINT "BYE!!!!!" 520 END diff --git a/dec/CHOMP.BAS b/dec/CHOMP.BAS index 180f4d1..598ba78 100644 --- a/dec/CHOMP.BAS +++ b/dec/CHOMP.BAS @@ -74,7 +74,7 @@ 790 LET P1=I1-INT(I1/P)*P 800 IF P1 <> 0 THEN 820 810 P1=P -820 PRINT "PLAYER";P1 +820 PRINT "PLAYER ";P1 830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 840 INPUT R1,C1 850 IF R1<1 THEN 920 @@ -95,7 +95,7 @@ 1000 REM END OF GAME DETECTED IN LINE 900 1010 PRINT "YOU LOSE, PLAYER ";P1 1020 PRINT -1030 PRINT "AGAIN (1=YES, 0=NO!)"; +1030 PRINT "AGAIN (1=YES; 0=NO!)"; 1040 INPUT R 1050 IF R=1 THEN 340 1060 END diff --git a/dec/CIVILW.BAS b/dec/CIVILW.BAS index e41efea..9032133 100644 --- a/dec/CIVILW.BAS +++ b/dec/CIVILW.BAS @@ -233,7 +233,7 @@ 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 1515 IF Y=5 THEN 1550 1520 IF W<=L THEN 1550 -1530 PRINT "THE CONFIDERACY HAS WON THE WAR" +1530 PRINT "THE CONFEDERACY HAS WON THE WAR" 1540 STOP 1550 PRINT "THE UNION HAS WON THE WAR" 1560 END diff --git a/port/BINGO.BAS b/port/BINGO.BAS index 04bfc68..b30b646 100644 --- a/port/BINGO.BAS +++ b/port/BINGO.BAS @@ -4,7 +4,7 @@ 190 DIM B(10,10),A(5) 200 DIM L(75) 210 FOR I=1 TO 5\READ A(I)\NEXT I - 220 DATA 66, 73, 78, 71, 79 + 220 DATA 66 ,73 ,78 ,71 ,79 235 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430) 240 FOR K1=1 TO 75 250 LET L(K1)=0 @@ -131,7 +131,7 @@ 1550 PRINT 1560 PRINT"I'VE GOT A B I N G O * * * * *" 1570 LET V=1 -1590 GO TO 1620 +1590 GOTO 1620 1600 NEXT Y 1610 NEXT X 1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770) diff --git a/port/BLKJAC.BAS b/port/BLKJAC.BAS index 2b36538..5494780 100644 --- a/port/BLKJAC.BAS +++ b/port/BLKJAC.BAS @@ -14,7 +14,7 @@ 80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING" 85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND" 90 PRINT "3-SPLIT A PAIR." - 95 IF K<>1 THEN 155 + 95 IF K<> 1 THEN 155 100 PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK" 105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL" 110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" @@ -64,7 +64,7 @@ 340 IF W<=500 THEN 370 345 IF W<>7777 THEN 360 350 GOSUB 1645 - 355 GOTO 315 + 355 GOTO315 360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" 365 GOTO 315 370 PRINT @@ -83,7 +83,7 @@ 435 GOSUB 865 440 IF V(2)>0 THEN 605 445 LET S=X - 450 IF V(3)<> 1 THEN 605 + 450 IF V(3)<>1 THEN 605 455 IF T(P)<>21 THEN 505 460 PRINT " ***BLACKJACK*** " 465 PRINT @@ -106,7 +106,7 @@ 550 GOTO 570 555 LET W1=W1-W/2 560 PRINT - 565 PRINT"YOU LOST $"W/2" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK" + 565 PRINT"YOU LOST $"W/2;" ON YOUR INSURANCE BET - I DON'T HAVE BLACKJACK" 570 IF T(1)<>21 THEN 605 575 PRINT 580 PRINT"**I HAVE BLACKJACK**" @@ -210,7 +210,7 @@ 1070 PRINT Q(X);" "; 1075 RETURN 1080 IF Q(X)>11 THEN 1095 -1085 PRINT" JACK "; +1085 PRINT " JACK "; 1090 RETURN 1095 IF Q(X)>12 THEN 1110 1100 PRINT" QUEEN "; diff --git a/port/BLKJAK.BAS b/port/BLKJAK.BAS index 4764cbd..5f42093 100644 --- a/port/BLKJAK.BAS +++ b/port/BLKJAK.BAS @@ -27,7 +27,7 @@ 106 GOSUB 780 110 P2=I 112 PRINT "YOUR SECOND CARD IS "CHR$(L) - 115 GOSUB 200 + 115 GOTO 200 117 PRINT "YOU HAVE "P3" SHOWING." 119 GOSUB 760 120 P3=P3+I diff --git a/port/BOAT.BAS b/port/BOAT.BAS index c3d559b..a3113f3 100644 --- a/port/BOAT.BAS +++ b/port/BOAT.BAS @@ -6,7 +6,7 @@ 14 PRINT "COMPUTER IS THE CAPTAIN OF THE GUN BOAT." 20 PRINT "THE SPEED OF THE GUN BOAT WILL BE GIVEN AT THE BEGINNING OF" 25 PRINT "THE GAME AND YOU HAVE TO HIT THE GUN BOAT TWICE" - 30 PRINT "IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A " + 30 PRINT "IN AT LEAST TWO VULNERABLE PLACES, OR ONCE IN A" 35 PRINT "VULNERABLE PLACE AND TWICE IN ANY OTHER PART OF THE" 40 PRINT "HULL OF THE GUN BOAT. BUT IF YOU MISS ANY ONE TIME THE" 45 PRINT "GUN BOAT WILL OPEN FIRE ON YOU UNTIL IT SINKS YOU OR YOU" @@ -28,7 +28,7 @@ 270 IF S>=1000 THEN 290 280 NEXT F 290 IF S<=10000 THEN 310 - 300 GOTO 230 + 300 GO TO 230 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS" 320 PRINT "NOW ";S;" YARDS." 330 LET Z=ATN(50/R) @@ -89,17 +89,17 @@ 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 840 GO TO 610 - 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" + 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/" 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 880 GO TO 650 - 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEEE/" - 900PRINT" EEEEEEEEEEEEEEEEE EEEEE O EEEE/" - 910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" + 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/" + 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEEE/" + 910PRINT" \EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" 920 GO TO 610 - 930PRINT"\EEEEEEEEEEEEEEEEEE\......................./EEEEEEEEEEEEEEEEEE/" + 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/" 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" - 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" + 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" 970 GO TO 650 1800 PRINT " /!" 1801 PRINT " //HH!" diff --git a/port/BOMBER.BAS b/port/BOMBER.BAS index f4747b0..72de82a 100644 --- a/port/BOMBER.BAS +++ b/port/BOMBER.BAS @@ -14,11 +14,11 @@ 90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280 110 PRINT "AIRCRAFT -- LIBERATOR(1), B-29(2), B-17(3), LANCASTER(4)";\INPUT G 120 IF G<=0 THEN 122\IF G<5 THEN 125 - 122 PRINT "TRY AGAIN..."\GOTO 110 + 122 PRINT "TRY AGAIN...."\GOTO 110 125 PRINT\ON G GOTO 130,150,170,190 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI" 140 GOTO 280 - 150 PRINT "YOU'RE DUMPING THE A-BOMB ON HIROSHIMA." + 150 PRINT "YOU'RE DROPPING THE A-BOMB ON HIROSHIMA." 160 GOTO 280 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." 180 GOTO 280 @@ -26,7 +26,7 @@ 195 GOTO 280 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON." 205 PRINT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";\INPUT F$ - 207 IF F$<>"N" THEN 210\S=0\GOTO 358 + 208 IF F$<>"N" THEN 210\S=0\GOTO 358 210 PRINT\IF RND(1)>.65 THEN 325\GOTO 380 220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)" 230 PRINT"OR FRANCE(3)";\INPUT M @@ -39,12 +39,12 @@ 270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." 280 PRINT 285 PRINT "HOW MANY MISSIONS HAVE YOU FLOWN";\INPUT D - 290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES..." + 290 IF D<160 THEN 300\PRINT "MISSIONS, NOT MILES...." 295 PRINT "150 MISSIONS IS HIGH EVEN FOR OLD-TIMERS. NOW THEN,"\GOTO 285 300 PRINT\IF D<100 THEN 310\PRINT "THAT'S PUSHING THE ODDS!"\GOTO 320 310 IF D>=25 THEN 320\PRINT "FRESH OUT OF TRAINING, EH?" 320 PRINT\IF D<160*RND(1) THEN 330 - 325 PRINT "DIRECT HIT!!!! "INT(100*RND(1))"KILLED! MISSION SUCCESSFUL." + 325 PRINT "DIRECT HIT!!!! "INT(100*RND(1))"KILLED! MISSION SUCCESSFUL." 327 GOTO 390 330 PRINT "MISSED TARGET BY"INT(2+30*RND(1))"MILES!!" 335 PRINT "NOW YOU'RE REALLY IN FOR IT !!"\PRINT @@ -52,8 +52,8 @@ 345 IF R<=0 THEN 347\IF R<4 THEN 350 347 PRINT "TRY AGAIN...."\GOTO 340 350 PRINT\IF R=2 THEN 360 - 355 PRINT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";\INPUT S - 358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY..."\PRINT\GOTO 380 + 355 PRINT "WHAT IS THE PERCENT HIT RATE OF THE ENEMY GUNNERS (10 TO 50)";\INPUT S + 358 IF S>=10 THEN 360\PRINT "YOU LIE, BUT YOU'LL PAY...."\PRINT\GOTO 380 360 PRINT\IF R<=1 THEN 365\T=35 365 IF S+T>100*RND(1) THEN 380 370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390 diff --git a/port/BOUNCE.BAS b/port/BOUNCE.BAS index e8967b5..e1194ac 100644 --- a/port/BOUNCE.BAS +++ b/port/BOUNCE.BAS @@ -49,5 +49,5 @@ 400 PRINT 410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS" 420 PRINT - 430 GOTO 135 + 430 GO TO 135 440 END diff --git a/port/BOWL.BAS b/port/BOWL.BAS index 8dfbda0..633f3a8 100644 --- a/port/BOWL.BAS +++ b/port/BOWL.BAS @@ -101,4 +101,4 @@ 846 PRINT "DO YOU WANT ANOTHER GAME" 855 INPUT A$ 864 IF A$="Y" THEN 153 - 873 END + 873 END diff --git a/port/BUG.BAS b/port/BUG.BAS index 4a4891f..ccd635e 100644 --- a/port/BUG.BAS +++ b/port/BUG.BAS @@ -1,5 +1,5 @@ 1 REM BRIAN MONTE LEIBOWITZ GRADE 7 - 2 REM HARRISON JR. HIGH SCHOOL + 2 REM HARRISON JR. SR. HIGH SCHOOL 3 REM HARRISON N.Y. 4 RANDOMIZE 5 A=0\B=0\H=0\L=0\N=0\P=0\Q=0\R=0\S=0\T=0\U=0\V=0\Y=0 @@ -28,7 +28,7 @@ 28 PRINT 29 PRINT 30 IF Y>0 THEN 248 - 31 Z=INT(6*RND(0)+1) + 31 LET Z=INT(6*RND(0)+1) 32 C=1 33 PRINT "YOU ROLLED A "Z 34 ON Z GOTO 35,43,54,65,76,87 @@ -125,7 +125,7 @@ 125 GOTO 163 126 PRINT "I DO NOT HAVE A NECK" 127 GOTO 163 - 128 PRINT "I DO NOT NEED A HEAD" + 128 PRINT "I DO NOT NEED A HEAD " 129 GOTO 163 130 PRINT "4=FEELERS" 131 IF R=0 THEN 139 @@ -208,7 +208,7 @@ 208 FOR Z=1 TO 4 209 PRINT 210 NEXT Z - 211 PRINT "*****MY BUG*****" + 211 PRINT "******MY BUG*******" 212 PRINT 213 PRINT 214 PRINT @@ -250,5 +250,5 @@ 251 PRINT " H V H" 252 PRINT " HHHHHHH" 253 RETURN - 254 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY IT AGAIN SOON !!!" + 254 PRINT "I HOPE YOU ENJOYED THE GAME, PLAY AGAIN SOON !!!" 255 END diff --git a/port/BULEYE.BAS b/port/BULEYE.BAS index f38c50b..fec93cf 100644 --- a/port/BULEYE.BAS +++ b/port/BULEYE.BAS @@ -5,18 +5,18 @@ 50 PRINT "TO GET 200 POINTS."\PRINT 60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE" 70 PRINT " 1","FAST OVERARM"," ","BULLSEYE OR COMPLETE MISS" - 80 PRINT " 2","CONTROLLED OVERARM","10, 20 OR 30 POINTS" + 80 PRINT " 2","CONTROLLED OVERARM","10, 20, OR 30 POINTS" 90 PRINT " 3","UNDERARM"," ","ANYTHING"\PRINT 100 DIM A$(20),S(20),W(10)\R=0\M=0\FOR I=1 TO 20\S(I)=0\NEXT I 110 PRINT "HOW MANY PLAYERS";\INPUT N\PRINT 120 FOR I=1 TO N - 130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I) + 130 PRINT "NAME OF PLAYER"I;\INPUT A$(I) 140 NEXT I 150 R=R+1\PRINT\PRINT "ROUND"R 160 FOR I=1 TO N 170 PRINT\PRINT A$(I)"'S THROW";\INPUT T 180 IF T<0 THEN 185\IF T>3 THEN 185\GOTO 190 - 185 PRINT "INPUT 1, 2, OR 3!"\GOTO 170 + 185 PRINT "INPUT 1, 2, OR 3"\GOTO 170 190 ON T GOTO 200,210,220 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230 diff --git a/port/BULL.BAS b/port/BULL.BAS index de1d04a..425e85c 100644 --- a/port/BULL.BAS +++ b/port/BULL.BAS @@ -38,7 +38,7 @@ 510 IF A<2 THEN 550 520 GOTO 570 530 PRINT"YOU'RE LUCKY" - 540 GOTO 570 + 540 GOTO570 550 PRINT"GOOD LUCK. YOU'LL NEED IT" 560 PRINT 570 PRINT @@ -67,7 +67,7 @@ 785 ON Z1 GOTO 1130,790 790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"; 800 INPUT E - 810 IF E<>INT(ABS(E)) THEN 830 + 810 IF E<>INT(ABS(E))THEN 830 820 IF E<3 THEN 850 830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 840 GOTO 800 @@ -106,7 +106,7 @@ 1160 INPUT H 1170 IF H=4 THEN 1230 1180 IF H=5 THEN 1230 -1190 PRINT"YOU PANICKED. THE BULL GORED YOU." +1210 PRINT"YOU PANICKED. THE BULL GORED YOU." 1220 GOTO 970 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3)) 1240 IF J=4 THEN 1290 @@ -178,9 +178,9 @@ 1910 RETURN 1920 DEF FNA(K)=INT(RND(0)*2)+1 1930 INPUT A$ -1940 IF A$="YES" THEN 1990 -1950 IF A$="NO" THEN 2010 -1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'"; +1950 IF A$="YES" THEN 1990 +1960 IF A$="NO" THEN 2010 +1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'"; 1980 GOTO 1930 1990 LET Z1=1 2000 GOTO 2020 diff --git a/port/CALNDR.BAS b/port/CALNDR.BAS index f47e173..380a151 100644 --- a/port/CALNDR.BAS +++ b/port/CALNDR.BAS @@ -1,7 +1,7 @@ - 100 REM VALUES FOR 1973; SEE NOTES + 100 REM: VALUES FOR 1973; SEE NOTES 110 ' 120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I - 130 D=-1 '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...] + 130 D=-1 '1973 STARTS ON MON. [0=SUN.,-1=MON.,-2=TUE...] 140 S=0 150 REM: READ DAYS OF EACH MONTH 155 DIM M(12) diff --git a/port/CHANGE.BAS b/port/CHANGE.BAS index 6c6964d..d1295b4 100644 --- a/port/CHANGE.BAS +++ b/port/CHANGE.BAS @@ -9,7 +9,7 @@ 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155 150 PRINT D;"TEN DOLLAR BILL(S)" 155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185 - 180 PRINT E;"FIVE DOLLARS BILL(S)" + 180 PRINT E;"FIVE DOLLAR BILL(S)" 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215 210 PRINT F;"ONE DOLLAR BILL(S)" 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255 diff --git a/port/CHECKR.BAS b/port/CHECKR.BAS index dff1533..cd2cf1a 100644 --- a/port/CHECKR.BAS +++ b/port/CHECKR.BAS @@ -185,8 +185,8 @@ 1850 RETURN 1860 NEXT Y 1870 NEXT X -1880 PRINT" VERY GOOD, YOU WIN!" +1880 PRINT" VERY GOOD, YOU WIN!" 1890 PRINT 1900 PRINT -1910 PRINT" -CHUCK OUT" +1910 PRINT" -CHUCK OUT" 1920 END diff --git a/port/CHIEF.BAS b/port/CHIEF.BAS index 795aa8a..816a03f 100644 --- a/port/CHIEF.BAS +++ b/port/CHIEF.BAS @@ -1,8 +1,8 @@ 10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR"; 30 INPUT A$ - 40 IF A$="YES" THEN 60 - 50 PRINT "SHUT UP, PALEFACE WITH WISE TONGUE." + 40 IF A$= "YES" THEN 60 + 50 PRINT "SHUT UP PALEFACE WITH WISE TONGUE." 60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1." 80 PRINT "WHAT DO YOU HAVE"; @@ -26,7 +26,7 @@ 250 PRINT "WE GET"I". MINUS 1 EQUALS"J"." 260 PRINT "NOW DO YOU BELIEVE ME"; 270 INPUT Z$ - 290 IF Z$="YES" THEN 510 + 290 IF Z$ ="YES" THEN 510 295 PRINT "YOU HAVE MADE ME MAD!!!" 300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!" 310 PRINT\PRINT @@ -45,5 +45,5 @@ 450 PRINT\PRINT "##################################"\PRINT 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" 480 GOTO 520 - 510 PRINT "BYE!!!" + 510 PRINT "BYE!!!!!" 520 END diff --git a/port/CHOMP.BAS b/port/CHOMP.BAS index b98dc41..480f045 100644 --- a/port/CHOMP.BAS +++ b/port/CHOMP.BAS @@ -74,7 +74,7 @@ 790 LET P1=I1-INT(I1/P)*P 800 IF P1 <> 0 THEN 820 810 P1=P - 820 PRINT "PLAYER";P1 + 820 PRINT "PLAYER ";P1 830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 840 INPUT R1,C1 850 IF R1<1 THEN 920 @@ -95,7 +95,7 @@ 1000 REM END OF GAME DETECTED IN LINE 900 1010 PRINT "YOU LOSE, PLAYER ";P1 1020 PRINT -1030 PRINT "AGAIN (1=YES, 0=NO!)"; +1030 PRINT "AGAIN (1=YES; 0=NO!)"; 1040 INPUT R 1050 IF R=1 THEN 340 1060 END diff --git a/port/CIVILW.BAS b/port/CIVILW.BAS index 1089c19..acf5d39 100644 --- a/port/CIVILW.BAS +++ b/port/CIVILW.BAS @@ -234,7 +234,7 @@ 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 1515 IF Y=5 THEN 1550 1520 IF W<=L THEN 1550 -1530 PRINT "THE CONFIDERACY HAS WON THE WAR" +1530 PRINT "THE CONFEDERACY HAS WON THE WAR" 1540 STOP 1550 PRINT "THE UNION HAS WON THE WAR" 1560 END