rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2025-09-24 06:54:05 -04:00
Code Activity

Big batch of fixes (#7)

Browse Source 
* Update BATTLE.BAS

* Update BINGO.BAS

* Update BINGO.BAS

Aligned formatting with original program.

* Update BLKJAC.BAS

* Update BLKJAC.BAS

Align formatting with original program.

* Update BLKJAK.BAS

* Update BLKJAK.BAS

GOSUB-->GOTO on line 115

* Update BOAT.BAS

My most difficult transcription so far. It's challenging to figure out the exact shapes of the right edges of the boat due to the printing errors; thankfully, the sample run provides proof of the shapes of two of the four possible bodies of the boat (1st and 3rd). The rest however have to be determined with educated guesses, unless a better source can be found, however, I couldn't find any.

The book doesn't show how long the top row of the 4th boat body is, only how many Es it has at minimum, so it can just be left as is.

As for the 2nd boat body, although there is no direct evidence of the shape, I argue that the best choice is to add one more E to the top row, because:
- It evens out the spacing of the edge of the boat, which makes sense from an aesthetic perspective
- With this change, the 2nd body shares the same edge shape with the 1st body, whereas as it currently is, it doesn't share the shape with any other body. This makes the art more consistent (although it isn't very consistent elsewhere).

The rest of the changes were just basic transcription error fixes.

* Update BOAT.BAS

Fixed the ASCII art + a couple other minor fixes

* Update BOMBER.BAS

I don't know why there is a colon on line 370, but that's definitely a colon.

* Update BOMBER.BAS

Formatting + spelling fixes

* Update BOUNCE.BAS

* Update BOUNCE.BAS

Align formatting with original program.

* Update BOWL.BAS

* Update BOWL.BAS

Align formatting with original program.

* Update BUG.BAS

* Update BUG.BAS

Aligned formatting and strings with original program. Although I don't know whether "HARRISON JR. SR. HIGH SCHOOL" is a real school or an error.

* Update BULCOW.BAS

* Update BULEYE.BAS

* Update BULEYE.BAS

Match strings with original program

* Update BULL.BAS

* Update BULL.BAS

Aligned formatting and wording with original program.

* Update BUNNY.ASC

Restored the mistakes of the original art.

* Update CALNDR.BAS

* Update CALNDR.BAS

Align formatting with original program.

* Update CAN-AM.BAS

This one is tough to figure out because O's and zeros look identical on the font that this was printed out on, and my inability to immediately test the program.

I have reason to believe those are Os instead of 0s on lines 850 and 860, since both O9 and O1 are variables, and the numbers 1 and 9 are not typed like this anywhere else in the program as far as I know.

There are many lines where a zero could be mistaken for an O and vice versa due to the font (for example lines 980 and 990), and honestly I'm not familiar enough with neither the program not this specific dialect, so I'm just trusting that they're zeros because there doesn't seem to be a variable called just "O".

For line 1130, I'm leaning more towards the second L being faded out rather than it being a typo, due to:
- The spelling being pristine everywhere else in the program
- Switching an L for a second space bar press would be an odd typo to make
- The first L lacks the "hook", hinting at the section being faded out
But honestly, it's your call whether you think it's faded or not.

Line 1780 is a complete mystery to me, because 1E is not a variable in the program, and I'm not aware of "LE" being a keyword of any kind. Maybe just a typo, but I doubt it.

Everything else is standard fixes.

* Update CHANGE.BAS

* Update CHANGE.BAS

* Update CHECKR.BAS

* Update CHECKR.BAS

Align formatting with original program.

* Update CHIEF.BAS

* Update CHIEF.BAS

Aligned everything with original program (including missing comma on line 50)

* Update CHOMP.BAS

* Update CHOMP.BAS

Aligned strings with original program

* Update CIVILW.BAS

Single spelling error fix.

* Update CIVILW.BAS
This commit is contained in:
ssolle
2025-03-09 08:59:23 +02:00
committed by GitHub
parent 1235aa1a59
commit e899ba75c4
36 changed files with 226 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
dec/BATTLE.BAS
View File

@@ -6,9 +6,9 @@
60 FOR I=1 TO 3 60 FOR I=1 TO 3
70 N=4-I 70 N=4-I
80 FOR J=1 TO 2 80 FOR J=1 TO 2
90 A=INT(6*RND(0)+1) 90 A=INT(6*RND(0))+1
100 B=INT(6*RND(0)+1) 100 B=INT(6*RND(0))+1
110 D=INT(4*RND(0)+1) 110 D=INT(4*RND(0))+1
120 IF F[A,B]>0 THEN 90 120 IF F[A,B]>0 THEN 90
130 M=0 130 M=0
140 GOTO D OF 150,340,550,740 140 GOTO D OF 150,340,550,740

4
dec/BINGO.BAS
View File

@@ -4,7 +4,7 @@
190 DIM B(10,10) 190 DIM B(10,10)
200 DIM L(75) 200 DIM L(75)
210 MAT READ A$(5) 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) 235 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430)
240 FOR K1=1 TO 75 240 FOR K1=1 TO 75
250 LET L(K1)=0 250 LET L(K1)=0
@@ -131,7 +131,7 @@
1550 PRINT 1550 PRINT
1560 PRINT"I'VE GOT A B I N G O * * * * *" 1560 PRINT"I'VE GOT A B I N G O * * * * *"
1570 LET V=1 1570 LET V=1
1590 GO TO 1620 1590 GOTO 1620
1600 NEXT Y 1600 NEXT Y
1610 NEXT X 1610 NEXT X
1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770) 1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770)

10
dec/BLKJAC.BAS
View File

@@ -14,7 +14,7 @@
80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING" 80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING"
85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND" 85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND"
90 PRINT "3-SPLIT A PAIR." 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" 100 PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK"
105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL" 105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL"
110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" 110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET"
@@ -64,7 +64,7 @@
340 IF W<=500 THEN 370 340 IF W<=500 THEN 370
345 IF W<>7777 THEN 360 345 IF W<>7777 THEN 360
350 GOSUB 1645 350 GOSUB 1645
355 GOTO 315 355 GOTO315
360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" 360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500"
365 GOTO 315 365 GOTO 315
370 PRINT 370 PRINT
@@ -83,7 +83,7 @@
435 GOSUB 865 435 GOSUB 865
440 IF V(2)>0 THEN 605 440 IF V(2)>0 THEN 605
445 LET S=X 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 455 IF T(P)<>21 THEN 505
460 PRINT " ***BLACKJACK*** " 460 PRINT " ***BLACKJACK*** "
465 PRINT 465 PRINT
@@ -106,7 +106,7 @@
550 GOTO 570 550 GOTO 570
555 LET W1=W1-W/2 555 LET W1=W1-W/2
560 PRINT 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 570 IF T(1)<>21 THEN 605
575 PRINT 575 PRINT
580 PRINT"**I HAVE BLACKJACK**" 580 PRINT"**I HAVE BLACKJACK**"
@@ -210,7 +210,7 @@
1070 PRINT Q(X);" "; 1070 PRINT Q(X);" ";
1075 RETURN 1075 RETURN
1080 IF Q(X)>11 THEN 1095 1080 IF Q(X)>11 THEN 1095
1085 PRINT" JACK "; 1085 PRINT " JACK ";
1090 RETURN 1090 RETURN
1095 IF Q(X)>12 THEN 1110 1095 IF Q(X)>12 THEN 1110
1100 PRINT" QUEEN "; 1100 PRINT" QUEEN ";

2
dec/BLKJAK.BAS
View File

@@ -27,7 +27,7 @@
106 GOSUB 780 106 GOSUB 780
110 P2=I 110 P2=I
112 PRINT "YOUR SECOND CARD IS "CHR$(L) 112 PRINT "YOUR SECOND CARD IS "CHR$(L)
115 GOSUB 200 115 GOTO 200
117 PRINT "YOU HAVE "P3" SHOWING." 117 PRINT "YOU HAVE "P3" SHOWING."
119 GOSUB 760 119 GOSUB 760
120 P3=P3+I 120 P3=P3+I

12
dec/BOAT.BAS
View File

@@ -6,7 +6,7 @@
14 PRINT "COMPUTER IS THE CAPTAIN OF THE GUN BOAT." 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" 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" 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" 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" 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" 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 270 IF S>=1000 THEN 290
280 NEXT F 280 NEXT F
290 IF S<=10000 THEN 310 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" 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS"
320 PRINT "NOW ";S;" YARDS." 320 PRINT "NOW ";S;" YARDS."
330 LET Z=ATN(50/R) 330 LET Z=ATN(50/R)
@@ -91,15 +91,15 @@
820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/"
830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
840 GO TO 610 840 GO TO 610
850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/"
860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/"
870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
880 GO TO 650 880 GO TO 650
890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/" 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/"
900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEE/" 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEEE/"
910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" 910PRINT" \EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/"
920 GO TO 610 920 GO TO 610
930PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE................../EEEEEEEEEEEEEEEEEE/" 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/"
950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *"
970 GO TO 650 970 GO TO 650

14
dec/BOMBER.BAS
View File

@@ -10,11 +10,11 @@
80 PRINT "BE CAREFUL!!!"\GOTO 280 80 PRINT "BE CAREFUL!!!"\GOTO 280
90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\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 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 125 PRINT\ON G GOTO 130,150,170,190
130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI" 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
140 GOTO 280 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 160 GOTO 280
170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
180 GOTO 280 180 GOTO 280
@@ -22,7 +22,7 @@
195 GOTO 280 195 GOTO 280
200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON." 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
205 INPUT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";F$ 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 210 PRINT\IF RND>.65 THEN 325 ELSE 380
220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)" 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 230 INPUT"OR FRANCE(3)";M\IF M>0 AND M<4 THEN 235 ELSE PRINT "WHAT??"\GOTO 220
@@ -33,7 +33,7 @@
270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." 270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS."
280 PRINT 280 PRINT
285 INPUT "HOW MANY MISSIONS HAVE YOU FLOWN";D 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 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 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?" 310 IF D<25 THEN PRINT "FRESH OUT OF TRAINING, EH?"
@@ -44,11 +44,11 @@
340 INPUT "DOES THE ENEMY HAVE GUNS(1), MISSILES(2), OR BOTH(3)";R 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 345 IF R>0 AND R<4 THEN 350 ELSE PRINT "TRY AGAIN...."\GOTO 340
350 PRINT\IF R=2 THEN 360 350 PRINT\IF R=2 THEN 360
355 INPUT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";S 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 358 IF S<10 THEN PRINT "YOU LIE, BUT YOU'LL PAY...."\PRINT\GOTO 380
360 PRINT\IF R>1 THEN T=35 360 PRINT\IF R>1 THEN T=35
365 IF S+T>100*RND THEN 380 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 * * * * *" 380 PRINT "* * * * * BOOM * * * * *"
384 PRINT "YOU HAVE BEEN SHOT DOWN......." 384 PRINT "YOU HAVE BEEN SHOT DOWN......."
386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.." 386 PRINT "DEARLY BELOVED, WE ARE GATHERED HERE TODAY TO PAY OUR LAST TRIBUTE.."

2
dec/BOUNCE.BAS
View File

@@ -49,5 +49,5 @@
400 PRINT 400 PRINT
410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS" 410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS"
420 PRINT 420 PRINT
430 GOTO 135 430 GO TO 135
440 END 440 END

10
dec/BUG.BAS
View File

@@ -1,5 +1,5 @@
10 REM BRIAN MONTE LEIBOWITZ GRADE 7 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. 30 REM HARRISON N.Y.
40 DIM Z$[3] 40 DIM Z$[3]
50 A=B=H=L=N=P=Q=R=S=T=U=V=Y=0 50 A=B=H=L=N=P=Q=R=S=T=U=V=Y=0
@@ -28,7 +28,7 @@
280 PRINT 280 PRINT
290 PRINT 290 PRINT
300 IF Y>0 THEN 2480 300 IF Y>0 THEN 2480
310 Z=INT(6*RND(0)+1) 310 LET Z=INT(6*RND(0)+1)
320 C=1 320 C=1
330 PRINT "YOU ROLLED A "Z 330 PRINT "YOU ROLLED A "Z
340 GOTO Z OF 350,430,540,650,760,870 340 GOTO Z OF 350,430,540,650,760,870
@@ -125,7 +125,7 @@
1250 GOTO 1630 1250 GOTO 1630
1260 PRINT "I DO NOT HAVE A NECK" 1260 PRINT "I DO NOT HAVE A NECK"
1270 GOTO 1630 1270 GOTO 1630
1280 PRINT "I DO NOT NEED A HEAD" 1280 PRINT "I DO NOT NEED A HEAD "
1290 GOTO 1630 1290 GOTO 1630
1300 PRINT "4=FEELERS" 1300 PRINT "4=FEELERS"
1310 IF R=0 THEN 1390 1310 IF R=0 THEN 1390
@@ -208,7 +208,7 @@
2080 FOR Z=1 TO 4 2080 FOR Z=1 TO 4
2090 PRINT 2090 PRINT
2100 NEXT Z 2100 NEXT Z
2110 PRINT "*****MY BUG*****" 2110 PRINT "******MY BUG*******"
2120 PRINT 2120 PRINT
2130 PRINT 2130 PRINT
2140 PRINT 2140 PRINT
@@ -250,5 +250,5 @@
2510 PRINT " H V H" 2510 PRINT " H V H"
2520 PRINT " HHHHHHH" 2520 PRINT " HHHHHHH"
2530 RETURN 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 2550 END

4
dec/BULCOW.BAS
View File

@@ -1,4 +1,4 @@
5 GOSUB 500 5 GOSUB500
10 DIMD(10,4),B(10),C(10),G(10) 10 DIMD(10,4),B(10),C(10),G(10)
15 RANDOMIZE:PRINT:PRINT:PRINT 15 RANDOMIZE:PRINT:PRINT:PRINT
20 LETA=0:GOTO200 20 LETA=0:GOTO200
@@ -56,7 +56,7 @@
455 LETJ=J+1 455 LETJ=J+1
460 FORI=0TO4:LETD(J,I)=G(I):NEXTI 460 FORI=0TO4:LETD(J,I)=G(I):NEXTI
465 RETURN 465 RETURN
500 PRINT:PRINT:PRINT" BRADFORD UNIVERSITY BULLS AND COW GAME 500 PRINT:PRINT:PRINT" BRADFORD UNIVERSITY BULLS AND COWS GAME
" "
510 GOTO10 510 GOTO10
999 END 999 END

6
dec/BULEYE.BAS
View File

@@ -5,17 +5,17 @@
50 PRINT "TO GET 200 POINTS."\PRINT 50 PRINT "TO GET 200 POINTS."\PRINT
60 PRINT "THROW","DESCRIPTION",,"PROBABLE SCORE" 60 PRINT "THROW","DESCRIPTION",,"PROBABLE SCORE"
70 PRINT " 1","FAST OVERARM",,"BULLSEYE OR COMPLETE MISS" 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 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 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 110 INPUT "HOW MANY PLAYERS";N\PRINT
120 FOR I=1 TO N 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 140 NEXT I
150 R=R+1\PRINT\PRINT "ROUND"R 150 R=R+1\PRINT\PRINT "ROUND"R
160 FOR I=1 TO N 160 FOR I=1 TO N
170 PRINT\PRINT A$(I)"'S THROW";\INPUT T 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 190 ON T GOTO 200,210,220
200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230

184
dec/BULL.BAS
View File

@@ -1,91 +1,91 @@
10 DIM D(20) 10 DIM D(20)
200 RANDOMIZE 200 RANDOMIZE
202 LET L=1 202 LET L=1
205 PRINT"DO YOU WANT INSTRUCTIONS"; 205 PRINT"DO YOU WANT INSTRUCTIONS";
206 INPUT Z$ 206 INPUT Z$
207 IF Z$="NO" THEN 400 207 IF Z$="NO" THEN 400
210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS" 210 PRINT"HELLO, ALL YOU BLOODLOVERS AND AFICIONADOS"
220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL" 220 PRINT"HERE IS YOUR BIG CHANCE TO KILL A BULL"
230 PRINT 230 PRINT
240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY" 240 PRINT"ON EACH PASS OF THE BULL, YOU MAY TRY"
250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)" 250 PRINT"0 - VERONICA (DANGEROUS INSIDE MOVE OF THE CAPE)"
260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE" 260 PRINT"1 - LESS DANGEROUS OUTSIDE MOVE OF THE CAPE"
270 PRINT"2 - ORDINARY SWIRL OF THE CAPE" 270 PRINT"2 - ORDINARY SWIRL OF THE CAPE"
280 PRINT 280 PRINT
290 PRINT"INSTEAD OF THE ABOVE, YOU MAY TRY TO KILL THE BULL" 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)" 300 PRINT"ON ANY TURN: 4 (OVER THE HORNS), 5 (IN THE CHEST)"
310 PRINT"BUT IF I WERE YOU," 310 PRINT"BUT IF I WERE YOU,"
320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS" 320 PRINT"I WOULDN'T TRY IT BEFORE THE SEVENTH PASS"
330 PRINT 330 PRINT
340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE" 340 PRINT"THE CROWD WILL DETERMINE WHAT AWARD YOU DESERVE"
350 PRINT"POSTHUMOUSLY IF NECESSARY" 350 PRINT"POSTHUMOUSLY IF NECESSARY"
360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE" 360 PRINT"THE BRAVER YOU ARE, THE BETTER THE AWARD YOU RECIEVE"
370 PRINT 370 PRINT
380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO," 380 PRINT"THE BETTER A JOB THE PICADORES AND TOREADORES DO,"
390 PRINT"THE BETTER YOUR CHANCES ARE" 390 PRINT"THE BETTER YOUR CHANCES ARE"
400 PRINT 400 PRINT
410 PRINT 410 PRINT
420 LET D(5)=1 420 LET D(5)=1
430 LET D(4)=1 430 LET D(4)=1
450 DIM L$(5) 450 DIM L$(5)
455 LET A=INT(RND(0)*5)+1 455 LET A=INT(RND(0)*5)+1
460 FOR I=1 TO 5 460 FOR I=1 TO 5
463 READ L$(I) 463 READ L$(I)
467 NEXT I 467 NEXT I
470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL" 470 DATA "SUPERB","GOOD","FAIR","POOR","AWFUL"
490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL" 490 PRINT"YOU HAVE DRAWN A "L$(A)" BULL"
500 IF A>4 THEN 530 500 IF A>4 THEN 530
510 IF A<2 THEN 550 510 IF A<2 THEN 550
520 GOTO 570 520 GOTO 570
530 PRINT"YOU'RE LUCKY" 530 PRINT"YOU'RE LUCKY"
540 GOTO 570 540 GOTO570
550 PRINT"GOOD LUCK. YOU'LL NEED IT" 550 PRINT"GOOD LUCK. YOU'LL NEED IT"
560 PRINT 560 PRINT
570 PRINT 570 PRINT
590 LET A$="PICADO" 590 LET A$="PICADO"
595 LET B$="RES" 595 LET B$="RES"
600 GOSUB 1610 600 GOSUB 1610
610 LET D(1)=C 610 LET D(1)=C
630 LET A$="TOREAD" 630 LET A$="TOREAD"
635 LET B$="ORES" 635 LET B$="ORES"
640 GOSUB 1610 640 GOSUB 1610
650 LET D(2)=C 650 LET D(2)=C
660 LET E=E 660 LET E=E
670 PRINT 670 PRINT
680 IF Z=1 THEN 1310 680 IF Z=1 THEN 1310
690 LET D(3)=D(3)+1 690 LET D(3)=D(3)+1
700 PRINT"PASS NUMBER "D(3) 700 PRINT"PASS NUMBER "D(3)
710 IF D(3)<3 THEN 760 710 IF D(3)<3 THEN 760
720 PRINT"HERE COMES THE BULL! TRY FOR A KILL"; 720 PRINT"HERE COMES THE BULL! TRY FOR A KILL";
730 GOSUB 1930 730 GOSUB 1930
735 ON Z1 GOTO 1130,740 735 ON Z1 GOTO 1130,740
740 PRINT "CAPE MOVE"; 740 PRINT "CAPE MOVE";
750 GOTO 800 750 GOTO 800
760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--" 760 PRINT"THE BULL IS CHARGING AT YOU! YOU ARE THE MATADOR--"
770 PRINT"DO YOU WANT TO KILL THE BULL"; 770 PRINT"DO YOU WANT TO KILL THE BULL";
780 GOSUB 1930 780 GOSUB 1930
785 ON Z1 GOTO 1130,790 785 ON Z1 GOTO 1130,790
790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"; 790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE";
800 INPUT E 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 820 IF E<3 THEN 850
830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"
840 GOTO 800 840 GOTO 800
850 LET D=D 850 LET D=D
860 IF E=0 THEN 920 860 IF E=0 THEN 920
870 IF E=1 THEN 900 870 IF E=1 THEN 900
880 LET M=0.5 880 LET M=0.5
890 GOTO 930 890 GOTO 930
900 LET M=2 900 LET M=2
910 GOTO 930 910 GOTO 930
920 LET M=3 920 LET M=3
930 LET L=L+M 930 LET L=L+M
940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5) 940 LET F=(6-A+M/10)*RND(0)/((D(1)+D(2)+D(3)/10)*5)
950 IF F<0.51 THEN 660 950 IF F<0.51 THEN 660
960 PRINT"THE BULL HAS GORED YOU" 960 PRINT"THE BULL HAS GORED YOU"
970 ON FNA(0) GOTO 980,1010 970 ON FNA(0) GOTO 980,1010
980 PRINT"YOU ARE DEAD" 980 PRINT"YOU ARE DEAD"
990 LET D(4)=1.5 990 LET D(4)=1.5
1000 GOTO 1310 1000 GOTO 1310
1010 PRINT"YOU ARE STILL ALIVE" 1010 PRINT"YOU ARE STILL ALIVE"
1020 PRINT"DO YOU RUN FROM THE RING"; 1020 PRINT"DO YOU RUN FROM THE RING";
@@ -95,7 +95,7 @@
1050 LET D(4)=0 1050 LET D(4)=0
1060 GOTO 1310 1060 GOTO 1310
1070 PRINT"YOU ARE BRAVE. STUPID, BUT BRAVE" 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 1090 LET D(4)=2
1100 GOTO 660 1100 GOTO 660
1110 PRINT"YOU ARE GORED AGAIN" 1110 PRINT"YOU ARE GORED AGAIN"
@@ -106,7 +106,7 @@
1160 INPUT H 1160 INPUT H
1170 IF H=4 THEN 1230 1170 IF H=4 THEN 1230
1180 IF H=5 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 1220 GOTO 970
1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3)) 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
1240 IF J=4 THEN 1290 1240 IF J=4 THEN 1290
@@ -178,9 +178,9 @@
1910 RETURN 1910 RETURN
1920 DEF FNA(K)=INT(RND(0)*2)+1 1920 DEF FNA(K)=INT(RND(0)*2)+1
1930 INPUT A$ 1930 INPUT A$
1940 IF A$="YES" THEN 1990 1950 IF A$="YES" THEN 1990
1950 IF A$="NO" THEN 2010 1960 IF A$="NO" THEN 2010
1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'"; 1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'";
1980 GOTO 1930 1980 GOTO 1930
1990 LET Z1=1 1990 LET Z1=1
2000 GOTO 2020 2000 GOTO 2020

4
dec/BUNNY.ASC
View File

@@ -1,8 +1,8 @@
UN UN
BUN BUNNYB BUN NNYBUN
BUNNYB NYBUNNYBUN BUNNYB NYBUNNYBUN
BUNNYBUN UNNYBUNNYBUN BUNNYBUN UNNYBUNNYBUN
UNNYBUNNY NNYBUNNYBUNNYB UNNYBUNNY NYBUNNYBUNNYBU
NNYBUNNYBU UNNYBUNNYBUNNYB NNYBUNNYBU UNNYBUNNYBUNNYB
NYBUNNYBUNN YBUNNYBUNNYBUNNY NYBUNNYBUNN YBUNNYBUNNYBUNNY
YBUNNYBUNNY NNYBUNNYBUNNYBUNN YBUNNYBUNNY NNYBUNNYBUNNYBUNN

2
dec/CALNDR.BAS
View File

@@ -1,4 +1,4 @@
100 REM VALUES FOR 1973; SEE NOTES 100 REM: VALUES FOR 1973; SEE NOTES
110 ' 110 '
120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I 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...]

42
dec/CAN-AM.BAS
View File

@@ -18,7 +18,7 @@
270 ' 270 '
280 ' TO RACE FRIENDS, TYPE: 280 ' TO RACE FRIENDS, TYPE:
290 ' 290 '
300 ' /OLD CAN-AM***/LINK <KEYORD>,N 300 ' /OLD CAN-AM***/LINK <KEYWORD>,N
310 ' 310 '
320 ' REPLACE <KEYWORD> WITH ANY WORD OF LENGTH 1 THROUGH 8 INCLUSIVE 320 ' REPLACE <KEYWORD> WITH ANY WORD OF LENGTH 1 THROUGH 8 INCLUSIVE
330 ' THAT YOU CHOOSE. REPLACE N WITH THE NUMBER OF PLAYERS COUNTING 330 ' THAT YOU CHOOSE. REPLACE N WITH THE NUMBER OF PLAYERS COUNTING
@@ -42,7 +42,7 @@
510 ' WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TM009 WHICH IS 510 ' WHEN SEVERAL PEOPLE RACE EACH OTHER), SEE TM009 WHICH IS
520 ' AVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA), 520 ' AVAILABLE FROM THE KIEWIT DOCUMENT CENTER (SECRETARIAL AREA),
530 ' KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE 530 ' KIEWIT COMPUTATION CENTER, HANOVER, N. H. 03755, PHONE
540 ' (630) 646-2643. 540 ' (603) 646-2643.
550 ' 550 '
560 ' EXPLANATION OF CHANGES-- 560 ' EXPLANATION OF CHANGES--
570 ' 12/27/72--TO REWORD INSTRUCTIONS. 570 ' 12/27/72--TO REWORD INSTRUCTIONS.
@@ -73,8 +73,8 @@
820 MAT READ M$(3) 'READ NAMES OF TYPES OF ROADWAY 820 MAT READ M$(3) 'READ NAMES OF TYPES OF ROADWAY
830 READ X$ 'DEATH MESSAGE 830 READ X$ 'DEATH MESSAGE
840 INPUT A$ 'RESPONSE TO DO YOU KNOW WHAT YOU'RE DOING? 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 850 IF A$>"O9" THEN 890 'IF BETWEEN O1 AND O9, THEN MULTI-TERMINAL
860 IF A$<"01" THEN 890 860 IF A$<"O1" THEN 890
870 LET O9=VAL(A$) 870 LET O9=VAL(A$)
880 GOTO 960 880 GOTO 960
890 LET O$="" 'SET THINGS UP FOR SINGLE TERMINAL 890 LET O$="" 'SET THINGS UP FOR SINGLE TERMINAL
@@ -101,13 +101,13 @@
1100 IF A$="NO" THEN 2290 1100 IF A$="NO" THEN 2290
1110 LET F2=INT(RND*10)+6 1110 LET F2=INT(RND*10)+6
1120 FOR A=0 TO O9 'ASSIGN NUMBERS AND ADHESION FACTORS 1120 FOR A=0 TO O9 'ASSIGN NUMBERS AND ADHESION FACTORS
1130 PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WEL YOUR CAR GRIPS THE ROAD 1130 PRINT O$(A);"YOUR DRIVING NUMBER IS";F2*(A+1)+A 'ADHESION FACTOR IS HOW WELL YOUR CAR GRIPS THE ROAD
1140 LET A(A)=RND*.05+.05 1140 LET A(A)=RND*.05+.05
1150 PRINT O$(A);"ADHESION FACTOR";A(A)*100-5;". (THE LOWER THE BETTER)" 1150 PRINT O$(A);"ADHESION FACTOR";A(A)*100-5;". (THE LOWER THE BETTER)"
1160 NEXT A 1160 NEXT A
1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT" 1170 PRINT O$(10);"YOUR MAX. SPEED IS 200 MPH. TO SEE STANDINGS INPUT"
1180 PRINT "0 AS YOUR SPEED" 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$ 1200 MAT INPUT A$
1210 PRINT O$(10); 1210 PRINT O$(10);
1220 LET A$=A$(NUM) 1220 LET A$=A$(NUM)
@@ -127,12 +127,12 @@
1360 PRINT "^H";TAB(22);"I" 1360 PRINT "^H";TAB(22);"I"
1370 PRINT "^";TAB(22);"I" 1370 PRINT "^";TAB(22);"I"
1380 PRINT "^";TAB(21);"4I" 1380 PRINT "^";TAB(21);"4I"
1390 PRINT "^";TAB(16);"------/" 1390 PRINT "^";TAB(16);"______/"
1400 PRINT"^8";TAB(15);"(5 E" 1400 PRINT"^8";TAB(15);"(5 E"
1410 PRINT "^";TAB(16);"\" 1410 PRINT "^";TAB(16);"\"
1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\" 1420 PRINT "\";TAB(17);"-----------)";CHR$(13);TAB(20);"/PITS\"
1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I" 1430 PRINT " \7";TAB(14);"G";TAB(21);"F^";TAB(27);"6I"
1440 PRINT" \-------------------------/" 1440 PRINT" \_________________________/"
1450 LET N=RND*3+1 1450 LET N=RND*3+1
1460 PRINT" 1460 PRINT"
NOTE: THIS IS A";INT(N);"LAP RACE." NOTE: THIS IS A";INT(N);"LAP RACE."
@@ -181,7 +181,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
1870 GOTO 1890 1870 GOTO 1890
1880 PRINT"GUY #";F2*(Z+1)+Z; 1880 PRINT"GUY #";F2*(Z+1)+Z;
1890 IF D(Z)=0 THEN 1950 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 1910 IF O9=0 THEN 1990
1920 PRINT O$(Z);"TELL ST. LUCIFER NOT TO EXPECT ME, O.K.?" 1920 PRINT O$(Z);"TELL ST. LUCIFER NOT TO EXPECT ME, O.K.?"
1930 PRINT O$(10); 1930 PRINT O$(10);
@@ -221,11 +221,13 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
2270 LET A$="YES" 2270 LET A$="YES"
2280 RETURN 2280 RETURN
2290 STOP 2290 STOP
2300 'CONTROL FUNCTION 2300 '------- --------
2310 DEF FNA(A$,R,B,C,D) 'KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH 2310 DEF FNA(A$,R,B,C,D) 'KIND TRACK, MAX. SPEED, ADHESION FUDGE FACTOR, LENGTH
2320 'ASC(LETTER FOLLOWING KIND OF TRACK) 2320 'ASC(LETTER FOLLOWING KIND OF TRACK)
2330 IF G1=1 THEN 4250 'ALL DEAD? 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 2350 GOSUB 3220 'GET EVERYONE'S SPEED
2360 FOR G=0 TO O9 'CHECK FOR SAFE SPEEDS 2360 FOR G=0 TO O9 'CHECK FOR SAFE SPEEDS
2370 IF D(G)=1 THEN 2780 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) 2590 LET Z2=T(G)-T(X4)
2600 IF SGN(Z2)<>-SGN(Z1) THEN 2650 2600 IF SGN(Z2)<>-SGN(Z1) THEN 2650
2610 IF SGN(Z2)=1 THEN 2640 2610 IF SGN(Z2)=1 THEN 2640
2620 PRINT "YOU PASSED ";Q$(X4) 2620 PRINT "YOU JUST PASSED ";Q$(X4)
2630 GOTO 2650 2630 GOTO 2650
2640 PRINT Q$(X4);" JUST PASSED YOU" 2640 PRINT Q$(X4);" JUST PASSED YOU"
2650 NEXT X4 2650 NEXT X4
@@ -271,7 +273,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
2770 NEXT X4 2770 NEXT X4
2780 NEXT G 'PROCEED TO THE FATE OF THE NEXT VICTIM 2780 NEXT G 'PROCEED TO THE FATE OF THE NEXT VICTIM
2790 GOTO 4250 'NO MORE VICTIMS. (THIS TIME!!) 2790 GOTO 4250 'NO MORE VICTIMS. (THIS TIME!!)
2900 REM HAZARDS 2800 REM HAZARDS
2810 PRINT O$(10); 2810 PRINT O$(10);
2820 LET E=0 'MAKE SURE WE DON'T USE LAST SECTION'S OIL ON THIS SECTION 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 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 2960 GOTO 3130
2970 IF F3=1 THEN 3130 'HAVE WE HAD RAIN? 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 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? 3000 IF RND>.5 THEN 3130 'STOP IT?
3010 PRINT "GLORY BE, THE RAIN HAS STOPPED! BUT REMEMBER IT IS STILL WET" 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 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); 3250 PRINT A$;" ";CHR$(D);
3260 GOTO 3280 3260 GOTO 3280
3270 PRINT O$(10);A$;" ";CHR$(D);": ";O$; 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 3290 FOR A=0 TO O9
3300 IF D(A)=0 THEN 3330 3300 IF D(A)=0 THEN 3330
3310 PRINT O$(A) 'IF HE'S DEAD, DON'T GIVE HIM A CHANCE TO INPUT 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) 3370 LET S=J(2)
3380 GOTO 3410 3380 GOTO 3410
3390 LET S=J(1) 3390 LET S=J(1)
3400 LET N=O 3400 LET N=0
3410 IF D(N)=0 THEN 3450 'IS THE GUY DEAD? 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 3420 PRINT O$(N);"BUT I THOUGHT YOU WERE DEAD." 'RE-INFORM HIM THAT HE IS AN UN-PERSON
3430 PRINT O$; 3430 PRINT O$;
@@ -344,7 +346,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
3500 IF O9=0 THEN 3600 3500 IF O9=0 THEN 3600
3510 IF S<1000 THEN 3600 3510 IF S<1000 THEN 3600
3520 LET R4=(S-1000-F2)/(F2+1) 'IT'S OK. HE ONLY WANTS TO DRAFT 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 3540 PRINT O$(N);"ILLEGAL CAR" 'HE DIDN'T
3550 GOTO 3640 3550 GOTO 3640
3560 IF R4>O9 THEN 3540 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 3760 IF O9>0 THEN 3890 'SET SPEEDS FOR AUTO-PILOTS
3770 FOR F0=1 TO 3 3770 FOR F0=1 TO 3
3780 IF D(F0)=1 THEN 3870 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 3800 IF (B+.1+G8+E)*S/B<=R THEN 3850
3810 LET D(F0)=1 3810 LET D(F0)=1
3820 PRINT O$(10);Q$(F0);" JUST WIPED" 'AND INFORM US IF THEY WIPE 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)) 3930 LET H(X2)=H(H(X2))
3940 GOTO 3920 3940 GOTO 3920
3950 LET S(X2)=S(H(X2)) 'SET HIS SPEED TO HIS DRAFTEES, AND 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 3970 NEXT X2
3980 RETURN 'NOW GO COUNT SURVIVORS AND INCREMENT TIMES 3980 RETURN 'NOW GO COUNT SURVIVORS AND INCREMENT TIMES
3990 REM PLACING 3990 REM PLACING
@@ -414,7 +416,7 @@ GENTLEMEN, START YOUR ENGINES! THE GREEN GOES DOWN AND"
4200 NEXT G 4200 NEXT G
4210 PRINT" 4210 PRINT"
YOU'VE TAKEN";T(A);"SECONDS." 'MORE BAD NEWS 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." 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 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 4250 FNEND 'AND RETURN FROM WHENCE WE CAME

2
dec/CHANGE.BAS
View File

@@ -9,7 +9,7 @@
120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155
150 PRINT D;"TEN DOLLAR BILL(S)" 150 PRINT D;"TEN DOLLAR BILL(S)"
155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185 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 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215
210 PRINT F;"ONE DOLLAR BILL(S)" 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 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255

8
dec/CHIEF.BAS
View File

@@ -1,8 +1,8 @@
10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 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"; 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
30 INPUT A$ 30 INPUT A$
40 IF A$="YES" THEN 60 40 IF A$= "YES" THEN 60
50 PRINT "SHUT UP, PALEFACE WITH WISE TOUNGE." 50 PRINT "SHUT UP PALEFACE WITH WISE TOUNGE."
60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 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." 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
80 PRINT "WHAT DO YOU HAVE"; 80 PRINT "WHAT DO YOU HAVE";
@@ -26,7 +26,7 @@
250 PRINT "WE GET"I". MINUS 1 EQUALS"J"." 250 PRINT "WE GET"I". MINUS 1 EQUALS"J"."
260 PRINT "NOW DO YOU BELIEVE ME"; 260 PRINT "NOW DO YOU BELIEVE ME";
270 INPUT Z$ 270 INPUT Z$
290 IF Z$="YES" THEN 510 290 IF Z$ ="YES" THEN 510
295 PRINT "YOU HAVE MADE ME MAD!!!" 295 PRINT "YOU HAVE MADE ME MAD!!!"
300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!" 300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!"
310 PRINT\PRINT 310 PRINT\PRINT
@@ -45,5 +45,5 @@
450 PRINT\PRINT "##################################"\PRINT 450 PRINT\PRINT "##################################"\PRINT
470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
480 GOTO 520 480 GOTO 520
510 PRINT "BYE!!!" 510 PRINT "BYE!!!!!"
520 END 520 END

4
dec/CHOMP.BAS
View File

@@ -74,7 +74,7 @@
790 LET P1=I1-INT(I1/P)*P 790 LET P1=I1-INT(I1/P)*P
800 IF P1 <> 0 THEN 820 800 IF P1 <> 0 THEN 820
810 P1=P 810 P1=P
820 PRINT "PLAYER";P1 820 PRINT "PLAYER ";P1
830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
840 INPUT R1,C1 840 INPUT R1,C1
850 IF R1<1 THEN 920 850 IF R1<1 THEN 920
@@ -95,7 +95,7 @@
1000 REM END OF GAME DETECTED IN LINE 900 1000 REM END OF GAME DETECTED IN LINE 900
1010 PRINT "YOU LOSE, PLAYER ";P1 1010 PRINT "YOU LOSE, PLAYER ";P1
1020 PRINT 1020 PRINT
1030 PRINT "AGAIN (1=YES, 0=NO!)"; 1030 PRINT "AGAIN (1=YES; 0=NO!)";
1040 INPUT R 1040 INPUT R
1050 IF R=1 THEN 340 1050 IF R=1 THEN 340
1060 END 1060 END

2
dec/CIVILW.BAS
View File

@@ -233,7 +233,7 @@
1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES."
1515 IF Y=5 THEN 1550 1515 IF Y=5 THEN 1550
1520 IF W<=L 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 1540 STOP
1550 PRINT "THE UNION HAS WON THE WAR" 1550 PRINT "THE UNION HAS WON THE WAR"
1560 END 1560 END

4
port/BINGO.BAS
View File

@@ -4,7 +4,7 @@
190 DIM B(10,10),A(5) 190 DIM B(10,10),A(5)
200 DIM L(75) 200 DIM L(75)
210 FOR I=1 TO 5\READ A(I)\NEXT I 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) 235 REM THIS SEQUENCE GENERATES THE CARD NUMBERS (LINES 240-430)
240 FOR K1=1 TO 75 240 FOR K1=1 TO 75
250 LET L(K1)=0 250 LET L(K1)=0
@@ -131,7 +131,7 @@
1550 PRINT 1550 PRINT
1560 PRINT"I'VE GOT A B I N G O * * * * *" 1560 PRINT"I'VE GOT A B I N G O * * * * *"
1570 LET V=1 1570 LET V=1
1590 GO TO 1620 1590 GOTO 1620
1600 NEXT Y 1600 NEXT Y
1610 NEXT X 1610 NEXT X
1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770) 1615 REM THIS IS THE SLANT CHECK (M=-1) FOR BINGO*** (LINES 1620-1770)

10
port/BLKJAC.BAS
View File

@@ -14,7 +14,7 @@
80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING" 80 PRINT"MORE CARD ANY TIME ON YOUR FIRST HIT. THE TYPING"
85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND" 85 PRINT"INSTRUCTIONS ARE: 0-NO HIT; 1-HIT; 2-DOUBLE; AND"
90 PRINT "3-SPLIT A PAIR." 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" 100 PRINT"WHEN THE DEALER HAS AN EXPOSED ACE HE WILL ASK"
105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL" 105 PRINT"YOU FOR AN INSURANCE BET. AN INSURANCE BET WILL"
110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET" 110 PRINT"RISK HALF YOUR BET FOR AN AMOUNT EQUAL TO YOUR BET"
@@ -64,7 +64,7 @@
340 IF W<=500 THEN 370 340 IF W<=500 THEN 370
345 IF W<>7777 THEN 360 345 IF W<>7777 THEN 360
350 GOSUB 1645 350 GOSUB 1645
355 GOTO 315 355 GOTO315
360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500" 360 PRINT"THAT'S TOO MUCH - HOUSE LIMIT IS $500"
365 GOTO 315 365 GOTO 315
370 PRINT 370 PRINT
@@ -83,7 +83,7 @@
435 GOSUB 865 435 GOSUB 865
440 IF V(2)>0 THEN 605 440 IF V(2)>0 THEN 605
445 LET S=X 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 455 IF T(P)<>21 THEN 505
460 PRINT " ***BLACKJACK*** " 460 PRINT " ***BLACKJACK*** "
465 PRINT 465 PRINT
@@ -106,7 +106,7 @@
550 GOTO 570 550 GOTO 570
555 LET W1=W1-W/2 555 LET W1=W1-W/2
560 PRINT 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 570 IF T(1)<>21 THEN 605
575 PRINT 575 PRINT
580 PRINT"**I HAVE BLACKJACK**" 580 PRINT"**I HAVE BLACKJACK**"
@@ -210,7 +210,7 @@
1070 PRINT Q(X);" "; 1070 PRINT Q(X);" ";
1075 RETURN 1075 RETURN
1080 IF Q(X)>11 THEN 1095 1080 IF Q(X)>11 THEN 1095
1085 PRINT" JACK "; 1085 PRINT " JACK ";
1090 RETURN 1090 RETURN
1095 IF Q(X)>12 THEN 1110 1095 IF Q(X)>12 THEN 1110
1100 PRINT" QUEEN "; 1100 PRINT" QUEEN ";

2
port/BLKJAK.BAS
View File

@@ -27,7 +27,7 @@
106 GOSUB 780 106 GOSUB 780
110 P2=I 110 P2=I
112 PRINT "YOUR SECOND CARD IS "CHR$(L) 112 PRINT "YOUR SECOND CARD IS "CHR$(L)
115 GOSUB 200 115 GOTO 200
117 PRINT "YOU HAVE "P3" SHOWING." 117 PRINT "YOU HAVE "P3" SHOWING."
119 GOSUB 760 119 GOSUB 760
120 P3=P3+I 120 P3=P3+I

14
port/BOAT.BAS
View File

@@ -6,7 +6,7 @@
14 PRINT "COMPUTER IS THE CAPTAIN OF THE GUN BOAT." 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" 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" 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" 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" 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" 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 270 IF S>=1000 THEN 290
280 NEXT F 280 NEXT F
290 IF S<=10000 THEN 310 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" 310 PRINT "THE RANGE FROM THE GUN BOAT TO THE SUBMARINE IS"
320 PRINT "NOW ";S;" YARDS." 320 PRINT "NOW ";S;" YARDS."
330 LET Z=ATN(50/R) 330 LET Z=ATN(50/R)
@@ -89,15 +89,15 @@
820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/" 820PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE O EEEEEEEEE/"
830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 830PRINT" * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
840 GO TO 610 840 GO TO 610
850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEE/" 850PRINT"\EEEEEEEEEEEEEEEEEEEEEEE\.................../EEEEEEEEEEEEEEEEEE/"
860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/" 860PRINT" EEEEEEEEEEE EEEEEEEEEEEEEEEEEEEEEEEEEE 0 EEEEEE/"
870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/" 870PRINT" \EEEEEE * EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE/"
880 GO TO 650 880 GO TO 650
890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEEE/" 890PRINT"\EEEEEEEEEEEEEEEEEEEEEEEE.................../EEEEEEEEEEEEEEEEE/"
900PRINT" EEEEEEEEEEEEEEEEE EEEEE O EEEE/" 900PRINT" EEEEEEEEEEEEEEEEEE EEEEE O EEEEEE/"
910PRINT" \EEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/" 910PRINT" \EEEEEEEEEEEEEEE EEEEEEEEEEEEEEEE/"
920 GO TO 610 920 GO TO 610
930PRINT"\EEEEEEEEEEEEEEEEEE\......................./EEEEEEEEEEEEEEEEEE/" 930PRINT"\EEEEEEEEEEEEEEEEEEE\....................../EEEEEEEEEEEEEEEEEE/"
950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE" 950PRINT" EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE"
960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *" 960PRINT" \EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE *"
970 GO TO 650 970 GO TO 650

12
port/BOMBER.BAS
View File

@@ -14,11 +14,11 @@
90 PRINT "YOU'RE GOING FOR THE OIL, EH?"\GOTO 280 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 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 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 125 PRINT\ON G GOTO 130,150,170,190
130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI" 130 PRINT "YOU'VE GOT 2 TONS OF BOMBS FLYING FOR PLOESTI"
140 GOTO 280 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 160 GOTO 280
170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA." 170 PRINT "YOU'RE CHASING THE BISMARK IN THE NORTH SEA."
180 GOTO 280 180 GOTO 280
@@ -26,7 +26,7 @@
195 GOTO 280 195 GOTO 280
200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON." 200 PRINT "YOU'RE FLYING A KAMIKAZE (SUICIDE BOMBER) OVER THE USS LEXINGTON."
205 PRINT "YOUR FIRST KAMIKAZE MISSION (Y OR N)";\INPUT F$ 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 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)" 220 PRINT "A NAZI, EH? OH WELL. ARE YOU GOING FOR RUSSIA(1), ENGLAND(2)"
230 PRINT"OR FRANCE(3)";\INPUT M 230 PRINT"OR FRANCE(3)";\INPUT M
@@ -39,7 +39,7 @@
270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS." 270 PRINT "NEARING VERSAILLES. DUCK SOUP. THEY'RE NEARLY DEFENSELESS."
280 PRINT 280 PRINT
285 PRINT "HOW MANY MISSIONS HAVE YOU FLOWN";\INPUT D 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 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 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?" 310 IF D>=25 THEN 320\PRINT "FRESH OUT OF TRAINING, EH?"
@@ -52,8 +52,8 @@
345 IF R<=0 THEN 347\IF R<4 THEN 350 345 IF R<=0 THEN 347\IF R<4 THEN 350
347 PRINT "TRY AGAIN...."\GOTO 340 347 PRINT "TRY AGAIN...."\GOTO 340
350 PRINT\IF R=2 THEN 360 350 PRINT\IF R=2 THEN 360
355 PRINT "WHAT IS THE PERCENT HIT RATE OF ENEMY GUNNERS (10 TO 50)";\INPUT S 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 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 360 PRINT\IF R<=1 THEN 365\T=35
365 IF S+T>100*RND(1) THEN 380 365 IF S+T>100*RND(1) THEN 380
370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390 370 PRINT"YOU MADE IT THROUGH TREMENDOUS FLAK!!"\GOTO 390

2
port/BOUNCE.BAS
View File

@@ -49,5 +49,5 @@
400 PRINT 400 PRINT
410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS" 410 PRINT TAB(INT(L+1)/(2*S2)-2);"SECONDS"
420 PRINT 420 PRINT
430 GOTO 135 430 GO TO 135
440 END 440 END

10
port/BUG.BAS
View File

@@ -1,5 +1,5 @@
1 REM BRIAN MONTE LEIBOWITZ GRADE 7 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. 3 REM HARRISON N.Y.
4 RANDOMIZE 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 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 28 PRINT
29 PRINT 29 PRINT
30 IF Y>0 THEN 248 30 IF Y>0 THEN 248
31 Z=INT(6*RND(0)+1) 31 LET Z=INT(6*RND(0)+1)
32 C=1 32 C=1
33 PRINT "YOU ROLLED A "Z 33 PRINT "YOU ROLLED A "Z
34 ON Z GOTO 35,43,54,65,76,87 34 ON Z GOTO 35,43,54,65,76,87
@@ -125,7 +125,7 @@
125 GOTO 163 125 GOTO 163
126 PRINT "I DO NOT HAVE A NECK" 126 PRINT "I DO NOT HAVE A NECK"
127 GOTO 163 127 GOTO 163
128 PRINT "I DO NOT NEED A HEAD" 128 PRINT "I DO NOT NEED A HEAD "
129 GOTO 163 129 GOTO 163
130 PRINT "4=FEELERS" 130 PRINT "4=FEELERS"
131 IF R=0 THEN 139 131 IF R=0 THEN 139
@@ -208,7 +208,7 @@
208 FOR Z=1 TO 4 208 FOR Z=1 TO 4
209 PRINT 209 PRINT
210 NEXT Z 210 NEXT Z
211 PRINT "*****MY BUG*****" 211 PRINT "******MY BUG*******"
212 PRINT 212 PRINT
213 PRINT 213 PRINT
214 PRINT 214 PRINT
@@ -250,5 +250,5 @@
251 PRINT " H V H" 251 PRINT " H V H"
252 PRINT " HHHHHHH" 252 PRINT " HHHHHHH"
253 RETURN 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 255 END

6
port/BULEYE.BAS
View File

@@ -5,18 +5,18 @@
50 PRINT "TO GET 200 POINTS."\PRINT 50 PRINT "TO GET 200 POINTS."\PRINT
60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE" 60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE"
70 PRINT " 1","FAST OVERARM"," ","BULLSEYE OR COMPLETE MISS" 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 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 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 110 PRINT "HOW MANY PLAYERS";\INPUT N\PRINT
120 FOR I=1 TO N 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 140 NEXT I
150 R=R+1\PRINT\PRINT "ROUND"R 150 R=R+1\PRINT\PRINT "ROUND"R
160 FOR I=1 TO N 160 FOR I=1 TO N
170 PRINT\PRINT A$(I)"'S THROW";\INPUT T 170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
180 IF T<0 THEN 185\IF T>3 THEN 185\GOTO 190 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 190 ON T GOTO 200,210,220
200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230 200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230 210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230

12
port/BULL.BAS
View File

@@ -38,7 +38,7 @@
510 IF A<2 THEN 550 510 IF A<2 THEN 550
520 GOTO 570 520 GOTO 570
530 PRINT"YOU'RE LUCKY" 530 PRINT"YOU'RE LUCKY"
540 GOTO 570 540 GOTO570
550 PRINT"GOOD LUCK. YOU'LL NEED IT" 550 PRINT"GOOD LUCK. YOU'LL NEED IT"
560 PRINT 560 PRINT
570 PRINT 570 PRINT
@@ -67,7 +67,7 @@
785 ON Z1 GOTO 1130,790 785 ON Z1 GOTO 1130,790
790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE"; 790 PRINT"WHAT MOVE DO YOU MAKE WITH THE CAPE";
800 INPUT E 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 820 IF E<3 THEN 850
830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER" 830 PRINT"DON'T PANIC, YOU IDIOT! PUT DOWN A CORRECT NUMBER"
840 GOTO 800 840 GOTO 800
@@ -106,7 +106,7 @@
1160 INPUT H 1160 INPUT H
1170 IF H=4 THEN 1230 1170 IF H=4 THEN 1230
1180 IF H=5 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 1220 GOTO 970
1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3)) 1230 LET K=(6-A)*10*RND(0)/((D(1)+D(2))*5*D(3))
1240 IF J=4 THEN 1290 1240 IF J=4 THEN 1290
@@ -178,9 +178,9 @@
1910 RETURN 1910 RETURN
1920 DEF FNA(K)=INT(RND(0)*2)+1 1920 DEF FNA(K)=INT(RND(0)*2)+1
1930 INPUT A$ 1930 INPUT A$
1940 IF A$="YES" THEN 1990 1950 IF A$="YES" THEN 1990
1950 IF A$="NO" THEN 2010 1960 IF A$="NO" THEN 2010
1970 PRINT"INCORRECT ANSWER, PLEASE TYPE 'YES' OR 'NO'"; 1970 PRINT"INCORRECT ANSWER, PLEASE PRINT 'YES' OR 'NO'";
1980 GOTO 1930 1980 GOTO 1930
1990 LET Z1=1 1990 LET Z1=1
2000 GOTO 2020 2000 GOTO 2020

2
port/CALNDR.BAS
View File

@@ -1,4 +1,4 @@
100 REM VALUES FOR 1973; SEE NOTES 100 REM: VALUES FOR 1973; SEE NOTES
110 ' 110 '
120 FOR I=1 TO 6\ PRINT CHR$(10);\ NEXT I 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...]

2
port/CHANGE.BAS
View File

@@ -9,7 +9,7 @@
120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155 120 PRINT "YOUR CHANGE,$";C\D=INT(C/10)\IF D=0 THEN 155
150 PRINT D;"TEN DOLLAR BILL(S)" 150 PRINT D;"TEN DOLLAR BILL(S)"
155 C=M-(D*10)\E=INT(C/5)\IF E=0 THEN 185 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 185 C=M-(D*10+E*5)\F=INT(C)\IF F=0 THEN 215
210 PRINT F;"ONE DOLLAR BILL(S)" 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 215 C=M-(D*10+E*5+F)\C=C*100\N=C\G=INT(C/50)\IF G=0 THEN 255

8
port/CHIEF.BAS
View File

@@ -1,8 +1,8 @@
10 PRINT " I AM CHIEF NUMBERS FREEK, THE GREAT INDIAN MATH GOD." 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"; 20 PRINT "ARE YOU READY TO TAKE THE TEST YOU CALLED ME OUT FOR";
30 INPUT A$ 30 INPUT A$
40 IF A$="YES" THEN 60 40 IF A$= "YES" THEN 60
50 PRINT "SHUT UP, PALEFACE WITH WISE TONGUE." 50 PRINT "SHUT UP PALEFACE WITH WISE TONGUE."
60 PRINT " TAKE A NUMBER AND ADD 3. DIVIDE THIS NUMBER BY 5 AND" 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." 70 PRINT "MULTIPLY BY 8. DIVIDE BY 5 AND ADD THE SAME. SUBTRACT 1."
80 PRINT "WHAT DO YOU HAVE"; 80 PRINT "WHAT DO YOU HAVE";
@@ -26,7 +26,7 @@
250 PRINT "WE GET"I". MINUS 1 EQUALS"J"." 250 PRINT "WE GET"I". MINUS 1 EQUALS"J"."
260 PRINT "NOW DO YOU BELIEVE ME"; 260 PRINT "NOW DO YOU BELIEVE ME";
270 INPUT Z$ 270 INPUT Z$
290 IF Z$="YES" THEN 510 290 IF Z$ ="YES" THEN 510
295 PRINT "YOU HAVE MADE ME MAD!!!" 295 PRINT "YOU HAVE MADE ME MAD!!!"
300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!" 300 PRINT "THERE MUST NOW BE A GREAT LIGHTNING BOLT!"
310 PRINT\PRINT 310 PRINT\PRINT
@@ -45,5 +45,5 @@
450 PRINT\PRINT "##################################"\PRINT 450 PRINT\PRINT "##################################"\PRINT
470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!" 470 PRINT "I HOPE YOU BELIEVE ME NOW, FOR YOUR SAKE!!"
480 GOTO 520 480 GOTO 520
510 PRINT "BYE!!!" 510 PRINT "BYE!!!!!"
520 END 520 END

4
port/CHOMP.BAS
View File

@@ -74,7 +74,7 @@
790 LET P1=I1-INT(I1/P)*P 790 LET P1=I1-INT(I1/P)*P
800 IF P1 <> 0 THEN 820 800 IF P1 <> 0 THEN 820
810 P1=P 810 P1=P
820 PRINT "PLAYER";P1 820 PRINT "PLAYER ";P1
830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)"; 830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
840 INPUT R1,C1 840 INPUT R1,C1
850 IF R1<1 THEN 920 850 IF R1<1 THEN 920
@@ -95,7 +95,7 @@
1000 REM END OF GAME DETECTED IN LINE 900 1000 REM END OF GAME DETECTED IN LINE 900
1010 PRINT "YOU LOSE, PLAYER ";P1 1010 PRINT "YOU LOSE, PLAYER ";P1
1020 PRINT 1020 PRINT
1030 PRINT "AGAIN (1=YES, 0=NO!)"; 1030 PRINT "AGAIN (1=YES; 0=NO!)";
1040 INPUT R 1040 INPUT R
1050 IF R=1 THEN 340 1050 IF R=1 THEN 340
1060 END 1060 END

2
port/CIVILW.BAS
View File

@@ -234,7 +234,7 @@
1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES." 1510 PRINT "YOU HAVE WON" W; "BATTLES AND LOST" L; "BATTLES."
1515 IF Y=5 THEN 1550 1515 IF Y=5 THEN 1550
1520 IF W<=L 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 1540 STOP
1550 PRINT "THE UNION HAS WON THE WAR" 1550 PRINT "THE UNION HAS WON THE WAR"
1560 END 1560 END