mirror of
https://github.com/rfivet/BCG101.git
synced 2024-12-18 16:16:32 -05:00
Add BULEYE, FIPFOP, LIFE, LITQZ, SYNONM, WORD.
This commit is contained in:
parent
6ce05b54fa
commit
f58694e15c
36
dec/BULEYE.BAS
Normal file
36
dec/BULEYE.BAS
Normal file
@ -0,0 +1,36 @@
|
|||||||
|
10 REM*** BULLSEYE BY DAVE AHL
|
||||||
|
20 PRINT "GAME OF BULLSEYE"\PRINT\RANDOMIZE
|
||||||
|
30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
|
||||||
|
40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS"
|
||||||
|
50 PRINT "TO GET 200 POINTS."\PRINT
|
||||||
|
60 PRINT "THROW","DESCRIPTION",,"PROBABLE SCORE"
|
||||||
|
70 PRINT " 1","FAST OVERARM",,"BULLSEYE OR COMPLETE MISS"
|
||||||
|
80 PRINT " 2","CONTROLLED OVERARM","10, 20 OR 30 POINTS"
|
||||||
|
90 PRINT " 3","UNDERARM",,"ANYTHING"\PRINT
|
||||||
|
100 DIM A$(20),S(20),W(10)\R,M=0\S(I)=0 FOR I=1 TO 20
|
||||||
|
110 INPUT "HOW MANY PLAYERS";N\PRINT
|
||||||
|
120 FOR I=1 TO N
|
||||||
|
130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I)
|
||||||
|
140 NEXT I
|
||||||
|
150 R=R+1\PRINT\PRINT "ROUND"R
|
||||||
|
160 FOR I=1 TO N
|
||||||
|
170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
|
||||||
|
180 IF T<0 OR T>3 THEN PRINT "INPUT 1, 2, OR 3!"\GOTO 170
|
||||||
|
190 ON T GOTO 200,210,220
|
||||||
|
200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
|
||||||
|
210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230
|
||||||
|
220 P1=.95\P2=.75\P3=.45\P4=.05
|
||||||
|
230 U=RND
|
||||||
|
240 IF U>=P1 THEN PRINT "BULLSEYE!! 40 POINTS!"\B=40\GOTO 290
|
||||||
|
250 IF U>=P2 THEN PRINT "30-POINT ZONE!"\B=30\GOTO 290
|
||||||
|
260 IF U>=P3 THEN PRINT "20-POINT ZONE"\B=20\GOTO 290
|
||||||
|
270 IF U>=P4 THEN PRINT "WHEW! 10 POINTS."\B=10\GOTO 290
|
||||||
|
280 PRINT "MISSED THE TARGET. TOO BAD!"\B=0
|
||||||
|
290 S(I)=S(I)+B\PRINT "TOTAL SCORE ="S(I)\NEXT I
|
||||||
|
300 FOR I=1 TO N
|
||||||
|
310 IF S(I)>=200 THEN M=M+1\W(M)=I
|
||||||
|
320 NEXT I
|
||||||
|
330 IF M=0 THEN 150
|
||||||
|
340 PRINT\PRINT "WE HAVE A WINNER!!"\PRINT
|
||||||
|
350 PRINT A$(W(M))" SCORED"S(W(M))"POINTS." FOR I=1 TO M
|
||||||
|
360 PRINT\PRINT "THANKS FOR THE GAME!"\END
|
||||||
75
dec/FIPFOP.BAS
Normal file
75
dec/FIPFOP.BAS
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
5 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
|
||||||
|
10 REM *** CREATED BY MICHAEL CASS 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"
|
||||||
|
50 PRINT
|
||||||
|
60 PRINT "TO THIS:"
|
||||||
|
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"
|
||||||
|
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)"
|
||||||
|
170 PRINT
|
||||||
|
180 RANDOMIZE
|
||||||
|
190 LET Q=RND(Y)
|
||||||
|
200 PRINT "HERE IS THE STARTING LINE OF X'S:"
|
||||||
|
210 PRINT
|
||||||
|
220 LET C=0
|
||||||
|
230 PRINT "1 2 3 4 5 6 7 8 9 10"
|
||||||
|
240 PRINT "X X X X X X X X X X"
|
||||||
|
250 PRINT
|
||||||
|
260 DIM A$(20)
|
||||||
|
270 FOR X=1 TO 10
|
||||||
|
280 LET A$(X)="X"
|
||||||
|
290 NEXT X
|
||||||
|
300 GOTO 320
|
||||||
|
310 PRINT "ILLEGAL ENTRY--TRY AGAIN"
|
||||||
|
320 PRINT "INPUT THE NUMBER";
|
||||||
|
330 INPUT N
|
||||||
|
340 IF N<>INT (N) THEN 310
|
||||||
|
350 IF N=11 THEN 180
|
||||||
|
360 IF N>11 THEN 310
|
||||||
|
370 IF N=0 THEN 230
|
||||||
|
380 IF M=N THEN 510
|
||||||
|
390 LET M=N
|
||||||
|
400 IF A$(N)="O" THEN 480
|
||||||
|
410 LET A$(N)="O"
|
||||||
|
420 LET R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(.8*N)
|
||||||
|
430 LET N=R-INT(R)
|
||||||
|
440 LET N=INT(10*N)
|
||||||
|
450 IF A$(N)="O" THEN 480
|
||||||
|
460 LET A$(N)="O"
|
||||||
|
470 GOTO 610
|
||||||
|
480 LET A$(N)="X"
|
||||||
|
490 IF M=N THEN 420
|
||||||
|
500 GOTO 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)
|
||||||
|
540 LET N=R-INT(R)
|
||||||
|
550 LET N=INT(10*N)
|
||||||
|
560 IF A$(N)="O" THEN 590
|
||||||
|
570 LET A$(N)="O"
|
||||||
|
580 GOTO 610
|
||||||
|
590 LET A$(N)="X"
|
||||||
|
600 IF M=N THEN 530
|
||||||
|
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
|
||||||
|
650 FOR Z=1 TO 10
|
||||||
|
660 IF A$(Z)<>"O" THEN 320
|
||||||
|
670 NEXT Z
|
||||||
|
680 IF C>12 THEN 710
|
||||||
|
690 PRINT"VERY GOOD. YOU GUESSED IT IN ONLY "C"GUESSES!!!!"
|
||||||
|
700 GOTO 720
|
||||||
|
710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU "C"GUESSES"
|
||||||
|
720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE";
|
||||||
|
730 INPUT X$
|
||||||
|
740 IF X$="NO" THEN 780
|
||||||
|
760 PRINT
|
||||||
|
770 GOTO 180
|
||||||
|
780 END
|
||||||
65
dec/LIFE.BAS
Normal file
65
dec/LIFE.BAS
Normal file
@ -0,0 +1,65 @@
|
|||||||
|
1 REM LIFE CLARK BAKER 3/72 C.O.G.
|
||||||
|
2 PRINT CHR$(31%);CHR$(29%);CHR$(31%);"ENTER YOUR PATTERN:"
|
||||||
|
3 X1%,Y1%=1: X2%=24%: Y2%=70%
|
||||||
|
10 DIM A%(24%,70%),B$(24%)
|
||||||
|
20 OPEN "KB:" AS FILE 1
|
||||||
|
30 ON ERROR GO TO 80
|
||||||
|
40 C%=1
|
||||||
|
50 INPUT LINE #1,B$(C%):B$(C%)=LEFT(B$(C%),LEN(B$(C%))-2%)
|
||||||
|
60 C%=C%+1
|
||||||
|
70 GO TO 50
|
||||||
|
80 L%=0%
|
||||||
|
90 FOR X%=1 TO C%-1
|
||||||
|
100 IF LEN(B$(X%))>L% THEN L%=LEN(B$(X%))
|
||||||
|
110 NEXT X%
|
||||||
|
120 X1%=11%-C%/2%
|
||||||
|
130 Y1%=33%-L%/2%
|
||||||
|
140 FOR X%=1 TO C%
|
||||||
|
150 FOR Y%=1 TO LEN(B$(X%))
|
||||||
|
160 IF MID(B$(X%),Y%,1)<>" " THEN A%(X1%+X%,Y1%+Y%)=1:P%=P%+1
|
||||||
|
170 NEXT Y%
|
||||||
|
180 NEXT X%
|
||||||
|
200 PRINT CHR$(29%);CHR$(30%);
|
||||||
|
210 PRINT "GENERATION:";G%,"POPULATION:";P%;CHR$(30%);:IF I9% THEN PRINT ,"INVALID!";
|
||||||
|
215 X3%=24%:Y3%=70%:X4%,Y4%=1:P%=0%
|
||||||
|
220 G%=G%+1%
|
||||||
|
225 PRINT CHR$(13%);CHR$(10%);CHR$(30%); FOR X%=1 TO X1%-1
|
||||||
|
230 FOR X%=X1% TO X2%
|
||||||
|
240 PRINT
|
||||||
|
250 FOR Y%=Y1% TO Y2%
|
||||||
|
253 IF A%(X%,Y%)=2% THEN A%(X%,Y%)=0%:GO TO 270
|
||||||
|
256 IF A%(X%,Y%)=3% THEN A%(X%,Y%)=1:GO TO 261
|
||||||
|
260 IF A%(X%,Y%)<>1 THEN 270
|
||||||
|
261 PRINT TAB(Y%);"*";
|
||||||
|
262 IF X%<X3% THEN X3%=X%
|
||||||
|
264 IF X%>X4% THEN X4%=X%
|
||||||
|
266 IF Y%<Y3% THEN Y3%=Y%
|
||||||
|
268 IF Y%>Y4% THEN Y4%=Y%
|
||||||
|
270 NEXT Y%
|
||||||
|
280 PRINT CHR$(30%);
|
||||||
|
290 NEXT X%
|
||||||
|
295 PRINT CHR$(30%) FOR X%=X2%+1 TO 24%
|
||||||
|
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%
|
||||||
|
309 P%=0%
|
||||||
|
500 FOR X%=X1%-1 TO X2%+1
|
||||||
|
510 FOR Y%=Y1%-1 TO Y2%+1
|
||||||
|
520 C%=0%
|
||||||
|
530 FOR I%=X%-1% TO X%+1%
|
||||||
|
540 FOR J%=Y%-1% TO Y%+1%
|
||||||
|
550 IF A%(I%,J%)=1% OR A%(I%,J%)=2% THEN C%=C%+1%
|
||||||
|
560 NEXT J%
|
||||||
|
570 NEXT I%
|
||||||
|
580 IF A%(X%,Y%)=0% THEN 610
|
||||||
|
590 IF C%<3% OR C%>4% THEN A%(X%,Y%)=2% ELSE P%=P%+1
|
||||||
|
600 GO TO 620
|
||||||
|
610 IF C%=3% THEN A%(X%,Y%)=3%:P%=P%+1
|
||||||
|
620 NEXT Y%
|
||||||
|
630 NEXT X%
|
||||||
|
635 X1%=X1%-1:Y1%=Y1%-1:X2%=X2%+1:Y2%=Y2%+1
|
||||||
|
640 GO TO 210
|
||||||
|
650 END
|
||||||
46
dec/LITQZ.BAS
Normal file
46
dec/LITQZ.BAS
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
5 R=0
|
||||||
|
10 PRINT "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE."
|
||||||
|
12 PRINT\PRINT "THIS IS A MULTIPLE-CHOICE QUIZ."
|
||||||
|
13 PRINT "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK."
|
||||||
|
15 PRINT\PRINT "GOOD LUCK!!"\PRINT\PRINT
|
||||||
|
40 PRINT "IN 'PINOCCHIO', WHAT WAS THE NAME OF THE CAT?"
|
||||||
|
42 PRINT "1)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO";
|
||||||
|
43 INPUT A\IF A=3 THEN 46
|
||||||
|
44 PRINT "SORRY...FIGARO WAS HIS NAME."\GOTO 50
|
||||||
|
46 PRINT "VERY GOOD! HERE'S ANOTHER."
|
||||||
|
47 R=R+1
|
||||||
|
50 PRINT\PRINT
|
||||||
|
51 PRINT "FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?"
|
||||||
|
52 PRINT "1)MR. NIXON'S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STROMBOLI'S";
|
||||||
|
53 INPUT A\IF A=2 THEN 56
|
||||||
|
54 PRINT "TOO BAD...IT WAS ELMER FUDD'S GARDEN."\GOTO 60
|
||||||
|
56 PRINT "PRETTY GOOD!"
|
||||||
|
57 R=R+1
|
||||||
|
60 PRINT\PRINT
|
||||||
|
61 PRINT "IN THE WIZARD OF OS, DOROTHY'S DOG WAS NAMED"
|
||||||
|
62 PRINT "1)CICERO, 2)TRIXIE, 3)KING, 4)TOTO";
|
||||||
|
63 INPUT A\IF A=4 THEN 66
|
||||||
|
64 PRINT "BACK TO THE BOOKS...TOTO WAS HIS NAME."\GOTO 70
|
||||||
|
66 PRINT "YEA! YOU'RE A REAL LITERATURE GIANT!"
|
||||||
|
67 R=R+1
|
||||||
|
70 PRINT\PRINT
|
||||||
|
71 PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE?"
|
||||||
|
72 PRINT "1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOW WHITE, 4)WENDY";
|
||||||
|
73 INPUT A\IF A=3 THEN 76
|
||||||
|
74 PRINT "OH, COME ON NOW...IT WAS SNOW WHITE."\GOTO 80
|
||||||
|
76 PRINT "GOOD MEMORY!"
|
||||||
|
77 R=R+1
|
||||||
|
80 PRINT\PRINT
|
||||||
|
85 IF R=4 THEN 100
|
||||||
|
90 IF R<2 THEN 200
|
||||||
|
92 PRINT "NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME"
|
||||||
|
94 PRINT "READING THE NURSERY GREATS."
|
||||||
|
96 STOP
|
||||||
|
100 PRINT "WOW! THAT'S SUPER! YOU REALLY KNOW YOUR NURSERY"
|
||||||
|
105 PRINT "STORIES. "\PRINT
|
||||||
|
110 PRINT "YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE"
|
||||||
|
120 PRINT "LITERATURE (HA, HA, HA)"
|
||||||
|
130 STOP
|
||||||
|
200 PRINT "UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO"
|
||||||
|
205 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND."
|
||||||
|
999 END
|
||||||
52
dec/SYNONM.BAS
Normal file
52
dec/SYNONM.BAS
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
5 REM *** SYNONM CONVERTED TO RSTS/E BASIC-PLUS BY DAVE AHL, DIGITAL
|
||||||
|
10 DIM R$(5),W$(10),L(30),R(30)
|
||||||
|
20 R$(1)="RIGHT":R$(2)="CORRECT":R$(3)="FINE":R$(4)="GOOD!":R$(5)="CHECK"
|
||||||
|
70 RANDOMIZE:C=0:PRINT:PRINT "SYNONYMS":PRINT
|
||||||
|
90 PRINT "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH"
|
||||||
|
100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME"
|
||||||
|
110 PRINT "MEANING.":PRINT
|
||||||
|
130 PRINT "I CHOOSE A WORD -- YOU TYPE A SYNONYM."
|
||||||
|
140 PRINT "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'"
|
||||||
|
145 PRINT "AND I WILL TELL YOU A SYNONYM.":PRINT
|
||||||
|
150 RESTORE:C=C+1:READ N
|
||||||
|
160 IF C>N THEN 420
|
||||||
|
170 N1=INT(RND*N+1)
|
||||||
|
174 IF R(N1)=1 THEN 170
|
||||||
|
176 R(N1)=1
|
||||||
|
180 FOR I=1 TO N1
|
||||||
|
190 READ N2
|
||||||
|
200 FOR J=1 TO N2
|
||||||
|
210 READ W$(J)
|
||||||
|
220 NEXT J
|
||||||
|
230 NEXT I
|
||||||
|
232 L(J)=J FOR J=1 TO N2
|
||||||
|
235 L(0)=N2:G=1:PRINT
|
||||||
|
237 L(G)=L(L(0)):L(0)=N2-1:PRINT
|
||||||
|
240 PRINT " WHAT IS A SYNONYM OF "W$(G);:INPUT A$
|
||||||
|
250 IF A$="HELP" THEN 340
|
||||||
|
260 FOR J=1 TO N2
|
||||||
|
270 IF G=J THEN 290
|
||||||
|
280 IF A$=W$(J) THEN 320
|
||||||
|
290 NEXT J
|
||||||
|
300 PRINT " TRY AGAIN."
|
||||||
|
310 GOTO 240
|
||||||
|
320 PRINT R$(INT(RND*5+1))
|
||||||
|
330 GOTO 150
|
||||||
|
340 G1=INT(RND*L(0)+1)
|
||||||
|
360 PRINT "**** A SYNONYM OF "W$(G)" IS "W$(L(G1))"."
|
||||||
|
365 PRINT
|
||||||
|
370 L(G1)=L(L(0)):L(0)=L(0)-1
|
||||||
|
390 GOTO 240
|
||||||
|
420 PRINT:PRINT "SYNONYM DRILL COMPLETED.":STOP
|
||||||
|
500 DATA 10
|
||||||
|
510 DATA 5,"FIRST","START","BEGINNING","ONSET","INITIAL"
|
||||||
|
520 DATA 5,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING"
|
||||||
|
530 DATA 5,"MODEL","PATTERN","PROTOTYPE","STANDARD","CRITERION"
|
||||||
|
540 DATA 5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE"
|
||||||
|
550 DATA 6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL"
|
||||||
|
560 DATA 6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING","HABITATION"
|
||||||
|
570 DATA 7,"PIT","HOLE","HOLLOW","WELL","GULF","CHASM","ABYSS"
|
||||||
|
580 DATA 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS"
|
||||||
|
590 DATA 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY"
|
||||||
|
600 DATA 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE","DISCOMFORT"
|
||||||
|
999 END
|
||||||
61
dec/WORD.BAS
Normal file
61
dec/WORD.BAS
Normal file
@ -0,0 +1,61 @@
|
|||||||
|
2 PRINT:PRINT:PRINT:PRINT "PROGRAM 'WORD'"
|
||||||
|
3 REM *** WRITTEN BY CHRIS REID, LEXINGTON HS, CLASS OF '73
|
||||||
|
5 DIM S(7),A(7),L(7),D(7),P(7)
|
||||||
|
10 PRINT:PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE YOU"
|
||||||
|
15 PRINT "CLUES TO HELP YOU GET IT. GOOD LUCK!!":PRINT:PRINT
|
||||||
|
20 RANDOMIZE
|
||||||
|
30 PRINT:PRINT:PRINT "YOU ARE STARTING A NEW GAME..."
|
||||||
|
35 RESTORE
|
||||||
|
40 READ N
|
||||||
|
50 C=INT(RND*N+1)
|
||||||
|
60 FOR I=1 TO C
|
||||||
|
70 READ S$
|
||||||
|
80 NEXT I
|
||||||
|
90 G=0
|
||||||
|
100 CHANGE S$ TO S
|
||||||
|
110 FOR I=1 TO 5
|
||||||
|
120 A(I)=45
|
||||||
|
130 NEXT I
|
||||||
|
140 FOR J=1 TO 5
|
||||||
|
144 P(J)=0
|
||||||
|
146 NEXT J
|
||||||
|
150 PRINT "GUESS A FIVE LETTER WORD";
|
||||||
|
160 INPUT L$
|
||||||
|
170 G=G+1
|
||||||
|
172 IF L$=S$ THEN 500
|
||||||
|
180 CHANGE L$ TO L
|
||||||
|
190 IF L(1)=63 THEN 300
|
||||||
|
200 IF L(0)<>5 THEN 400
|
||||||
|
205 M=0:Q=1
|
||||||
|
210 FOR I=1 TO 5
|
||||||
|
220 FOR J=1 TO 5
|
||||||
|
230 IF S(I)<>L(J) THEN 260
|
||||||
|
231 P(Q)=L(J)
|
||||||
|
232 Q=Q+1
|
||||||
|
233 IF I<>J THEN 250
|
||||||
|
240 A(J)=L(J)
|
||||||
|
250 M=M+1
|
||||||
|
260 NEXT J
|
||||||
|
265 NEXT I
|
||||||
|
270 A(0)=5
|
||||||
|
272 P(0)=M
|
||||||
|
275 CHANGE A TO A$
|
||||||
|
277 CHANGE P TO P$
|
||||||
|
280 PRINT "THERE WERE"M"MATCHES AND THE COMMON LETTERS WERE...",P$
|
||||||
|
285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW.............",A$
|
||||||
|
286 IF A$=S$ THEN 500
|
||||||
|
287 IF M>1 THEN 289
|
||||||
|
288 PRINT:PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS"
|
||||||
|
289 PRINT
|
||||||
|
290 GOTO 150
|
||||||
|
300 CHANGE S TO S$
|
||||||
|
310 PRINT "THE SECRET WORD IS "S$:PRINT
|
||||||
|
320 GOTO 30
|
||||||
|
400 PRINT:PRINT "YOU MUST GUESS A 5-LETTER WORD. START AGAIN"
|
||||||
|
410 PRINT:G=G-1:GOTO 150
|
||||||
|
500 PRINT "YOU HAVE GUESSED THE WORD. IT TOOK"G"GUESSES!":PRINT
|
||||||
|
510 INPUT "WANT TO PLAY AGAIN";Q$
|
||||||
|
520 IF Q$="YES" THEN 30
|
||||||
|
530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST"
|
||||||
|
540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY"
|
||||||
|
999 END
|
||||||
37
port/BULEYE.BAS
Normal file
37
port/BULEYE.BAS
Normal file
@ -0,0 +1,37 @@
|
|||||||
|
10 REM*** BULLSEYE BY DAVE AHL
|
||||||
|
20 PRINT "GAME OF BULLSEYE"\PRINT\RANDOMIZE
|
||||||
|
30 PRINT "IN THIS GAME, UP TO 20 PLAYERS THROW DARTS AT A TARGET"
|
||||||
|
40 PRINT "WITH 10, 20, 30, AND 40 POINT ZONES. THE OBJECTIVE IS"
|
||||||
|
50 PRINT "TO GET 200 POINTS."\PRINT
|
||||||
|
60 PRINT "THROW","DESCRIPTION"," ","PROBABLE SCORE"
|
||||||
|
70 PRINT " 1","FAST OVERARM"," ","BULLSEYE OR COMPLETE MISS"
|
||||||
|
80 PRINT " 2","CONTROLLED OVERARM","10, 20 OR 30 POINTS"
|
||||||
|
90 PRINT " 3","UNDERARM"," ","ANYTHING"\PRINT
|
||||||
|
100 DIM A$(20),S(20),W(10)\R=0\M=0\FOR I=1 TO 20\S(I)=0\NEXT I
|
||||||
|
110 PRINT "HOW MANY PLAYERS";\INPUT N\PRINT
|
||||||
|
120 FOR I=1 TO N
|
||||||
|
130 PRINT "NAME OF PLAYER #"I;\INPUT A$(I)
|
||||||
|
140 NEXT I
|
||||||
|
150 R=R+1\PRINT\PRINT "ROUND"R
|
||||||
|
160 FOR I=1 TO N
|
||||||
|
170 PRINT\PRINT A$(I)"'S THROW";\INPUT T
|
||||||
|
180 IF T<0 THEN 185\IF T>3 THEN 185\GOTO 190
|
||||||
|
185 PRINT "INPUT 1, 2, OR 3!"\GOTO 170
|
||||||
|
190 ON T GOTO 200,210,220
|
||||||
|
200 P1=.65\P2=.55\P3=.5\P4=.5\GOTO 230
|
||||||
|
210 P1=.99\P2=.77\P3=.43\P4=.01\GOTO 230
|
||||||
|
220 P1=.95\P2=.75\P3=.45\P4=.05
|
||||||
|
230 U=RND(1)
|
||||||
|
240 IF U<P1 THEN 250\PRINT "BULLSEYE!! 40 POINTS!"\B=40\GOTO 290
|
||||||
|
250 IF U<P2 THEN 260\PRINT "30-POINT ZONE!"\B=30\GOTO 290
|
||||||
|
260 IF U<P3 THEN 270\PRINT "20-POINT ZONE"\B=20\GOTO 290
|
||||||
|
270 IF U<P4 THEN 280\PRINT "WHEW! 10 POINTS."\B=10\GOTO 290
|
||||||
|
280 PRINT "MISSED THE TARGET. TOO BAD!"\B=0
|
||||||
|
290 S(I)=S(I)+B\PRINT "TOTAL SCORE ="S(I)\NEXT I
|
||||||
|
300 FOR I=1 TO N
|
||||||
|
310 IF S(I)<200 THEN 320\M=M+1\W(M)=I
|
||||||
|
320 NEXT I
|
||||||
|
330 IF M=0 THEN 150
|
||||||
|
340 PRINT\PRINT "WE HAVE A WINNER!!"\PRINT
|
||||||
|
350 FOR I=1 TO M\PRINT A$(W(I))" SCORED"S(W(I))"POINTS."\NEXT I
|
||||||
|
360 PRINT\PRINT "THANKS FOR THE GAME!"\END
|
||||||
75
port/FIPFOP.BAS
Normal file
75
port/FIPFOP.BAS
Normal file
@ -0,0 +1,75 @@
|
|||||||
|
5 REM *** CONVERTED TO RSTS/E BY DAVID AHL, DIGITAL
|
||||||
|
10 REM *** CREATED BY MICHAEL CASS 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"
|
||||||
|
50 PRINT
|
||||||
|
60 PRINT "TO THIS:"
|
||||||
|
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"
|
||||||
|
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)"
|
||||||
|
170 PRINT
|
||||||
|
180 RANDOMIZE
|
||||||
|
190 LET Q=RND(Y)
|
||||||
|
200 PRINT "HERE IS THE STARTING LINE OF X'S:"
|
||||||
|
210 PRINT
|
||||||
|
220 LET C=0
|
||||||
|
230 PRINT "1 2 3 4 5 6 7 8 9 10"
|
||||||
|
240 PRINT "X X X X X X X X X X"
|
||||||
|
250 PRINT
|
||||||
|
260 DIM A$(20)
|
||||||
|
270 FOR X=1 TO 10
|
||||||
|
280 LET A$(X)="X"
|
||||||
|
290 NEXT X
|
||||||
|
300 GOTO 320
|
||||||
|
310 PRINT "ILLEGAL ENTRY--TRY AGAIN"
|
||||||
|
320 PRINT "INPUT THE NUMBER";
|
||||||
|
330 INPUT N
|
||||||
|
340 IF N<>INT (N) THEN 310
|
||||||
|
350 IF N=11 THEN 180
|
||||||
|
360 IF N>11 THEN 310
|
||||||
|
370 IF N=0 THEN 230
|
||||||
|
380 IF M=N THEN 510
|
||||||
|
390 LET M=N
|
||||||
|
400 IF A$(N)="O" THEN 480
|
||||||
|
410 LET A$(N)="O"
|
||||||
|
420 LET R=TAN(Q+N/Q-N)-SIN(Q/N)+336*SIN(.8*N)
|
||||||
|
430 LET N=R-INT(R)
|
||||||
|
440 LET N=INT(10*N)
|
||||||
|
450 IF A$(N)="O" THEN 480
|
||||||
|
460 LET A$(N)="O"
|
||||||
|
470 GOTO 610
|
||||||
|
480 LET A$(N)="X"
|
||||||
|
490 IF M=N THEN 420
|
||||||
|
500 GOTO 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)
|
||||||
|
540 LET N=R-INT(R)
|
||||||
|
550 LET N=INT(10*N)
|
||||||
|
560 IF A$(N)="O" THEN 590
|
||||||
|
570 LET A$(N)="O"
|
||||||
|
580 GOTO 610
|
||||||
|
590 LET A$(N)="X"
|
||||||
|
600 IF M=N THEN 530
|
||||||
|
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
|
||||||
|
650 FOR Z=1 TO 10
|
||||||
|
660 IF A$(Z)<>"O" THEN 320
|
||||||
|
670 NEXT Z
|
||||||
|
680 IF C>12 THEN 710
|
||||||
|
690 PRINT"VERY GOOD. YOU GUESSED IT IN ONLY "C"GUESSES!!!!"
|
||||||
|
700 GOTO 720
|
||||||
|
710 PRINT"TRY HARDER NEXT TIME, IT TOOK YOU "C"GUESSES"
|
||||||
|
720 PRINT "DO YOU WANT TO TRY ANOTHER PUZZLE";
|
||||||
|
730 INPUT X$
|
||||||
|
740 IF X$="NO" THEN 780
|
||||||
|
760 PRINT
|
||||||
|
770 GOTO 180
|
||||||
|
780 END
|
||||||
46
port/LITQZ.BAS
Normal file
46
port/LITQZ.BAS
Normal file
@ -0,0 +1,46 @@
|
|||||||
|
5 R=0
|
||||||
|
10 PRINT "TEST YOUR KNOWLEDGE OF CHILDREN'S LITERATURE."
|
||||||
|
12 PRINT\PRINT "THIS IS A MULTIPLE-CHOICE QUIZ."
|
||||||
|
13 PRINT "TYPE A 1, 2, 3, OR 4 AFTER THE QUESTION MARK."
|
||||||
|
15 PRINT\PRINT "GOOD LUCK!!"\PRINT\PRINT
|
||||||
|
40 PRINT "IN 'PINOCCHIO', WHAT WAS THE NAME OF THE CAT?"
|
||||||
|
42 PRINT "1)TIGGER, 2)CICERO, 3)FIGARO, 4)GUIPETTO";
|
||||||
|
43 INPUT A\IF A=3 THEN 46
|
||||||
|
44 PRINT "SORRY...FIGARO WAS HIS NAME."\GOTO 50
|
||||||
|
46 PRINT "VERY GOOD! HERE'S ANOTHER."
|
||||||
|
47 R=R+1
|
||||||
|
50 PRINT\PRINT
|
||||||
|
51 PRINT "FROM WHOSE GARDEN DID BUGS BUNNY STEAL THE CARROTS?"
|
||||||
|
52 PRINT "1)MR. NIXON'S, 2)ELMER FUDD'S, 3)CLEM JUDD'S, 4)STROMBOLI'S";
|
||||||
|
53 INPUT A\IF A=2 THEN 56
|
||||||
|
54 PRINT "TOO BAD...IT WAS ELMER FUDD'S GARDEN."\GOTO 60
|
||||||
|
56 PRINT "PRETTY GOOD!"
|
||||||
|
57 R=R+1
|
||||||
|
60 PRINT\PRINT
|
||||||
|
61 PRINT "IN THE WIZARD OF OS, DOROTHY'S DOG WAS NAMED"
|
||||||
|
62 PRINT "1)CICERO, 2)TRIXIE, 3)KING, 4)TOTO";
|
||||||
|
63 INPUT A\IF A=4 THEN 66
|
||||||
|
64 PRINT "BACK TO THE BOOKS...TOTO WAS HIS NAME."\GOTO 70
|
||||||
|
66 PRINT "YEA! YOU'RE A REAL LITERATURE GIANT!"
|
||||||
|
67 R=R+1
|
||||||
|
70 PRINT\PRINT
|
||||||
|
71 PRINT "WHO WAS THE FAIR MAIDEN WHO ATE THE POISON APPLE?"
|
||||||
|
72 PRINT "1)SLEEPING BEAUTY, 2)CINDERELLA, 3)SNOW WHITE, 4)WENDY";
|
||||||
|
73 INPUT A\IF A=3 THEN 76
|
||||||
|
74 PRINT "OH, COME ON NOW...IT WAS SNOW WHITE."\GOTO 80
|
||||||
|
76 PRINT "GOOD MEMORY!"
|
||||||
|
77 R=R+1
|
||||||
|
80 PRINT\PRINT
|
||||||
|
85 IF R=4 THEN 100
|
||||||
|
90 IF R<2 THEN 200
|
||||||
|
92 PRINT "NOT BAD, BUT YOU MIGHT SPEND A LITTLE MORE TIME"
|
||||||
|
94 PRINT "READING THE NURSERY GREATS."
|
||||||
|
96 STOP
|
||||||
|
100 PRINT "WOW! THAT'S SUPER! YOU REALLY KNOW YOUR NURSERY"
|
||||||
|
105 PRINT "STORIES. "\PRINT
|
||||||
|
110 PRINT "YOUR NEXT QUIZ WILL BE ON 2ND CENTURY CHINESE"
|
||||||
|
120 PRINT "LITERATURE (HA, HA, HA)"
|
||||||
|
130 STOP
|
||||||
|
200 PRINT "UGH. THAT WAS DEFINITELY NOT TOO SWIFT. BACK TO"
|
||||||
|
205 PRINT "NURSERY SCHOOL FOR YOU, MY FRIEND."
|
||||||
|
999 END
|
||||||
52
port/SYNONM.BAS
Normal file
52
port/SYNONM.BAS
Normal file
@ -0,0 +1,52 @@
|
|||||||
|
5 REM *** SYNONM CONVERTED TO RSTS/E BASIC-PLUS BY DAVE AHL, DIGITAL
|
||||||
|
10 DIM R$(5),W$(10),L(30),R(30)
|
||||||
|
20 R$(1)="RIGHT"\R$(2)="CORRECT"\R$(3)="FINE"\R$(4)="GOOD!"\R$(5)="CHECK"
|
||||||
|
70 RANDOMIZE\C=0\PRINT\PRINT "SYNONYMS"\PRINT
|
||||||
|
90 PRINT "A SYNONYM OF A WORD MEANS ANOTHER WORD IN THE ENGLISH"
|
||||||
|
100 PRINT "LANGUAGE WHICH HAS THE SAME OR VERY NEARLY THE SAME"
|
||||||
|
110 PRINT "MEANING."\PRINT
|
||||||
|
130 PRINT "I CHOOSE A WORD -- YOU TYPE A SYNONYM."
|
||||||
|
140 PRINT "IF YOU CAN'T THINK OF A SYNONYM, TYPE THE WORD 'HELP'"
|
||||||
|
145 PRINT "AND I WILL TELL YOU A SYNONYM."\PRINT
|
||||||
|
150 RESTORE\C=C+1\READ N
|
||||||
|
160 IF C>N THEN 420
|
||||||
|
170 N1=INT(RND(1)*N+1)
|
||||||
|
174 IF R(N1)=1 THEN 170
|
||||||
|
176 R(N1)=1
|
||||||
|
180 FOR I=1 TO N1
|
||||||
|
190 READ N2
|
||||||
|
200 FOR J=1 TO N2
|
||||||
|
210 READ W$(J)
|
||||||
|
220 NEXT J
|
||||||
|
230 NEXT I
|
||||||
|
232 FOR J=1 TO N2\L(J)=J\NEXT J
|
||||||
|
235 L(0)=N2\G=1\PRINT
|
||||||
|
237 L(G)=L(L(0))\L(0)=N2-1\PRINT
|
||||||
|
240 PRINT " WHAT IS A SYNONYM OF "W$(G);\INPUT A$
|
||||||
|
250 IF A$="HELP" THEN 340
|
||||||
|
260 FOR J=1 TO N2
|
||||||
|
270 IF G=J THEN 290
|
||||||
|
280 IF A$=W$(J) THEN 320
|
||||||
|
290 NEXT J
|
||||||
|
300 PRINT " TRY AGAIN."
|
||||||
|
310 GOTO 240
|
||||||
|
320 PRINT R$(INT(RND(1)*5+1))
|
||||||
|
330 GOTO 150
|
||||||
|
340 G1=INT(RND(1)*L(0)+1)
|
||||||
|
360 PRINT "**** A SYNONYM OF "W$(G)" IS "W$(L(G1))"."
|
||||||
|
365 PRINT
|
||||||
|
370 L(G1)=L(L(0))\L(0)=L(0)-1
|
||||||
|
390 GOTO 240
|
||||||
|
420 PRINT\PRINT "SYNONYM DRILL COMPLETED."\STOP
|
||||||
|
500 DATA 10
|
||||||
|
510 DATA 5,"FIRST","START","BEGINNING","ONSET","INITIAL"
|
||||||
|
520 DATA 5,"SIMILAR","ALIKE","SAME","LIKE","RESEMBLING"
|
||||||
|
530 DATA 5,"MODEL","PATTERN","PROTOTYPE","STANDARD","CRITERION"
|
||||||
|
540 DATA 5,"SMALL","INSIGNIFICANT","LITTLE","TINY","MINUTE"
|
||||||
|
550 DATA 6,"STOP","HALT","STAY","ARREST","CHECK","STANDSTILL"
|
||||||
|
560 DATA 6,"HOUSE","DWELLING","RESIDENCE","DOMICILE","LODGING","HABITATION"
|
||||||
|
570 DATA 7,"PIT","HOLE","HOLLOW","WELL","GULF","CHASM","ABYSS"
|
||||||
|
580 DATA 7,"PUSH","SHOVE","THRUST","PROD","POKE","BUTT","PRESS"
|
||||||
|
590 DATA 6,"RED","ROUGE","SCARLET","CRIMSON","FLAME","RUBY"
|
||||||
|
600 DATA 7,"PAIN","SUFFERING","HURT","MISERY","DISTRESS","ACHE","DISCOMFORT"
|
||||||
|
999 END
|
||||||
61
port/WORD.BAS
Normal file
61
port/WORD.BAS
Normal file
@ -0,0 +1,61 @@
|
|||||||
|
2 PRINT\PRINT\PRINT\PRINT "PROGRAM 'WORD'"
|
||||||
|
3 REM *** WRITTEN BY CHRIS REID, LEXINGTON HS, CLASS OF '73
|
||||||
|
5 DIM S(7),A(7),L(7),D(7),P(7)
|
||||||
|
10 PRINT\PRINT "I AM THINKING OF A WORD -- YOU GUESS IT. I WILL GIVE YOU"
|
||||||
|
15 PRINT "CLUES TO HELP YOU GET IT. GOOD LUCK!!"\PRINT\PRINT
|
||||||
|
20 RANDOMIZE
|
||||||
|
30 PRINT\PRINT\PRINT "YOU ARE STARTING A NEW GAME..."
|
||||||
|
35 RESTORE
|
||||||
|
40 READ N
|
||||||
|
50 C=INT(RND(1)*N+1)
|
||||||
|
60 FOR I=1 TO C
|
||||||
|
70 READ S$
|
||||||
|
80 NEXT I
|
||||||
|
90 G=0
|
||||||
|
100 CHANGE S$ TO S
|
||||||
|
110 FOR I=1 TO 5
|
||||||
|
120 A(I)=45
|
||||||
|
130 NEXT I
|
||||||
|
140 FOR J=1 TO 5
|
||||||
|
144 P(J)=0
|
||||||
|
146 NEXT J
|
||||||
|
150 PRINT "GUESS A FIVE LETTER WORD";
|
||||||
|
160 INPUT L$
|
||||||
|
170 G=G+1
|
||||||
|
172 IF L$=S$ THEN 500
|
||||||
|
180 CHANGE L$ TO L
|
||||||
|
190 IF L(1)=63 THEN 300
|
||||||
|
200 IF L(0)<>5 THEN 400
|
||||||
|
205 M=0\Q=1
|
||||||
|
210 FOR I=1 TO 5
|
||||||
|
220 FOR J=1 TO 5
|
||||||
|
230 IF S(I)<>L(J) THEN 260
|
||||||
|
231 P(Q)=L(J)
|
||||||
|
232 Q=Q+1
|
||||||
|
233 IF I<>J THEN 250
|
||||||
|
240 A(J)=L(J)
|
||||||
|
250 M=M+1
|
||||||
|
260 NEXT J
|
||||||
|
265 NEXT I
|
||||||
|
270 A(0)=5
|
||||||
|
272 P(0)=M
|
||||||
|
275 CHANGE A TO A$
|
||||||
|
277 CHANGE P TO P$
|
||||||
|
280 PRINT "THERE WERE"M"MATCHES AND THE COMMON LETTERS WERE...",P$
|
||||||
|
285 PRINT "FROM THE EXACT LETTER MATCHES, YOU KNOW.............",A$
|
||||||
|
286 IF A$=S$ THEN 500
|
||||||
|
287 IF M>1 THEN 289
|
||||||
|
288 PRINT\PRINT "IF YOU GIVE UP, TYPE '?' FOR YOUR NEXT GUESS"
|
||||||
|
289 PRINT
|
||||||
|
290 GOTO 150
|
||||||
|
300 CHANGE S TO S$
|
||||||
|
310 PRINT "THE SECRET WORD IS "S$\PRINT
|
||||||
|
320 GOTO 30
|
||||||
|
400 PRINT\PRINT "YOU MUST GUESS A 5-LETTER WORD. START AGAIN"
|
||||||
|
410 PRINT\G=G-1\GOTO 150
|
||||||
|
500 PRINT "YOU HAVE GUESSED THE WORD. IT TOOK"G"GUESSES!"\PRINT
|
||||||
|
510 PRINT "WANT TO PLAY AGAIN";\INPUT Q$
|
||||||
|
520 IF Q$="YES" THEN 30
|
||||||
|
530 DATA 12,"DINKY","SMOKE","WATER","GRASS","TRAIN","MIGHT","FIRST"
|
||||||
|
540 DATA "CANDY","CHAMP","WOULD","CLUMP","DOPEY"
|
||||||
|
999 END
|
||||||
Loading…
Reference in New Issue
Block a user