rfivet/BCG101
1
0
Fork 0
mirror of https://github.com/rfivet/BCG101.git synced 2025-07-05 16:38:26 -04:00
Code

Biggest batch of fixes (#8)

Browse Source 
* Update CRAPS.BAS

* Update CRAPS.BAS

Aligned with original listing

* Update CUBE.BAS

* Update CUBE.BAS

* Update DICE.BAS

* Update DICE.BAS

Very minor change to align more closely with original listing.

* Update DIGITS.BAS

* Update DIGITS.BAS

* Update DIGITS.BAS

* Update DOGS.BAS

* Update DOGS.BAS

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

* Update EVEN.BAS

* Update EVEN.BAS

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

* Update EVEN1.BAS

* Update EVEN1.BAS

* Update FIPFOP.BAS

* Update FIPFOP.BAS

* Update FIPFOP.BAS

* Update FOOTBL.BAS

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

* Update FOOTBL.BAS

* Update FOTBAL.BAS

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

* Update FOTBAL.BAS

Bug on line 1035 fixed + alignment with original listing

* Update FURS.BAS

* Update FURS.BAS

* Update GOMOKO.BAS

* Update GOMOKO.BAS

* Update GUESS.BAS

* Update GUESS.BAS

* Update GUNER1.BAS

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

* Update GUNER1.BAS

* Update HANG.BAS

* Update HANG.BAS

* Update HANG.BAS

* Update HELLO.BAS

* Update HELLO.BAS

Same changes as dec/, except for encyclopaedia.

* Update HI-Q.BAS

* Update HI-Q.BAS

* Update HMRABI.BAS

* Update HOCKEY.BAS

Added missing lines.

* Update HOCKEY.BAS

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

* Update HOCKEY.BAS

* Update HORSES.BAS

* Update HORSES.BAS

* Update HURKLE.BAS

* Update HURKLE.BAS

* Update HURKLE.BAS

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

* Update HURKLE.BAS

* Update KINEMA.BAS

* Update KINEMA.BAS

* Update LIFE.BAS

* Update MUGWMP.BAS

* Update MUGWMP.BAS

* Update MUGWMP.BAS

* Update NICOMA.BAS

* Update NICOMA.BAS

* Update NIM.BAS

* Update NIM.BAS

* Update NUMBER.BAS

* Update NUMBER.BAS

* Update ORBIT.BAS

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

* Update ORBIT.BAS

* Update PIZZA.BAS

* Update PIZZA.BAS

* Update POET.BAS

* Update POETRY.BAS

* Update POETRY.BAS

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

* Update POETRY.BAS

* Update POKER.BAS

* Update QUBIC.BAS

* Update QUEEN.BAS

* Update REVRSE.BAS

* Update REVRSE.BAS

* Update ROCKET.BAS

* Update ROCKET.BAS

* Update ROCKSP.BAS

* Update ROCKSP.BAS

* Update ROCKT1.BAS

* Update ROCKT1.BAS

* Update ROCKT2.BAS

* Update ROCKT2.BAS

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

* Update ROULET.BAS

* Update RUSROU.BAS

* Update RUSROU.BAS

Copied directly from dec/

* Update SALVO.BAS

* Update SALVO.BAS

* Update SALVO.BAS

Added NOEXTEND back

* Update SALVO1.BAS

* Update SALVO1.BAS

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

* Update SLOTS.BAS

* Update SLOTS.BAS

* Update SNOOPY.ASC

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

* Rename SNOOPY.ASC to SNOPY1.ASC

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

* Create SNOOPY.ASC

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

* Update SPLAT.BAS

* Update STARS.BAS

* Update STARS.BAS

* Update SPACWR.BAS

* Update SALVO1.BAS

Copied from LIST to fix formatting.

* Update RUSROU.BAS

Copied from LIST to fix formatting.

* Update ROCKT2.BAS

Copied from LIST to fix formatting.

* Update STOCK.BAS

* Update STOCK.BAS

* Update SYNONM.BAS

* Update SYNONM.BAS

* Update BASKET.BAS

Copied from LIST to fix formatting.

* Update SYNONM.BAS

* Update TARGET.BAS

* Update TARGET.BAS

* Update TICTAC.BAS

* Update TICTAC.BAS

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

* Update TOWER.BAS

* Update TRAP.BAS

* Update TRAP.BAS

* Update WAR.BAS

* Update WAR.BAS

* Update WAR-2.BAS

* Update WAR-2.BAS

* Update WORD.BAS

* Update WORD.BAS

* Update YAHTZE.BAS

* Update 1CHECK.BAS

* Update 1CHECK.BAS

* Update HELLO.BAS

Copied from LIST command to fix formatting.
This commit is contained in:
ssolle 2025-03-27 08:45:11 +02:00 committed by GitHub
parent a4f0a4dad2
commit be491c715a
No known key found for this signature in database
GPG Key ID: B5690EEEBB952194
115 changed files with 929 additions and 855 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
dec/1CHECK.BAS
View File

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

9
dec/CRAPS.BAS
View File

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

10
dec/CUBE.BAS
View File

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

6
dec/DICE.BAS
View File

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

2
dec/DIGITS.BAS
View File

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

16
dec/DOGS.BAS
View File

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

8
dec/EVEN.BAS
View File

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

4
dec/EVEN1.BAS
View File

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

20
dec/FIPFOP.BAS
View File

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

8
dec/FOOTBL.BAS
View File

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

10
dec/FOTBAL.BAS
View File

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

2
dec/FURS.BAS
View File

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

12
dec/GOMOKO.BAS
View File

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

20
dec/GUESS.BAS
View File

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

8
dec/GUNER1.BAS
View File

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

6
dec/HANG.BAS
View File

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

181
dec/HELLO.BAS
View File

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

10
dec/HI-Q.BAS
View File

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

2
dec/HMRABI.BAS
View File

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

5
dec/HOCKEY.BAS
View File

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

2
dec/HORSES.BAS
View File

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

15
dec/HURKLE.BAS
View File

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

12
dec/KINEMA.BAS
View File

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

6
dec/LIFE.BAS
View File

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

6
dec/MUGWMP.BAS
View File

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

2
dec/NICOMA.BAS
View File

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

4
dec/NIM.BAS
View File

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

16
dec/NUMBER.BAS
View File

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

47
dec/ORBIT.BAS
View File

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

4
dec/PIZZA.BAS
View File

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

2
dec/POET.BAS
View File

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

4
dec/POETRY.BAS
View File

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

2
dec/POKER.BAS
View File

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

4
dec/QUBIC.BAS
View File

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

12
dec/QUEEN.BAS
View File

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

2
dec/REVRSE.BAS
View File

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

8
dec/ROCKET.BAS
View File

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

2
dec/ROCKSP.BAS
View File

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

12
dec/ROCKT1.BAS
View File

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

14
dec/ROCKT2.BAS
View File

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

44
dec/ROULET.BAS
View File

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

2
dec/RUSROU.BAS
View File

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

8
dec/SALVO.BAS
View File

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

47
dec/SALVO1.BAS
View File

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

2
dec/SLOTS.BAS
View File

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

110
dec/SNOOPY.ASC
View File

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

47
dec/SNOPY1.ASC Normal file
View File

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

46
dec/SPACWR.BAS
View File

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

22
dec/SPLAT.BAS
View File

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

10
dec/STARS.BAS
View File

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

18
dec/STOCK.BAS
View File

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

2
dec/SYNONM.BAS
View File

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

2
dec/TARGET.BAS
View File

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

2
dec/TICTAC.BAS
View File

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

9
dec/TOWER.BAS
View File

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

4
dec/TRAP.BAS
View File

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

10
dec/WAR-2.BAS
View File

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

12
dec/WAR.BAS
View File

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

4
dec/WORD.BAS
View File

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

16
dec/YAHTZE.BAS
View File

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

2
port/1CHECK.BAS
View File

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

407
port/BASKET.BAS
View File

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

6
port/CRAPS.BAS
View File

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

8
port/CUBE.BAS
View File

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

2
port/DICE.BAS
View File

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

2
port/DIGITS.BAS
View File

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

16
port/DOGS.BAS
View File

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

8
port/EVEN.BAS
View File

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

4
port/EVEN1.BAS
View File

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

20
port/FIPFOP.BAS
View File

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

6
port/FOOTBL.BAS
View File

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

10
port/FOTBAL.BAS
View File

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

2
port/FURS.BAS
View File

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

12
port/GOMOKO.BAS
View File

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

4
port/GUESS.BAS
View File

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

4
port/GUNER1.BAS
View File

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

4
port/HANG.BAS
View File

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

4
port/HELLO.BAS
View File

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

6
port/HI-Q.BAS
View File

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

5
port/HOCKEY.BAS
View File

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

2
port/HORSES.BAS
View File

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

15
port/HURKLE.BAS
View File

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

12
port/KINEMA.BAS
View File

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

4
port/MUGWMP.BAS
View File

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

2
port/NICOMA.BAS
View File

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

4
port/NIM.BAS
View File

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

16
port/NUMBER.BAS
View File

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

47
port/ORBIT.BAS
View File

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

4
port/PIZZA.BAS
View File

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

2
port/POETRY.BAS
View File

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

2
port/REVRSE.BAS
View File

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

8
port/ROCKET.BAS
View File

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

2
port/ROCKSP.BAS
View File

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

10
port/ROCKT1.BAS
View File

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

14
port/ROCKT2.BAS
View File

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

2
port/RUSROU.BAS
View File

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

46
port/SALVO1.BAS
View File

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

2
port/SLOTS.BAS
View File

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

6
port/STARS.BAS
View File

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

18
port/STOCK.BAS
View File

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

Some files were not shown because too many files have changed in this diff Show More