From f58694e15c59b85cbc355b5e5234efad67ee0249 Mon Sep 17 00:00:00 2001 From: Renaud Fivet <renaud.fivet@gmail.com> Date: Wed, 8 May 2024 15:00:30 +0800 Subject: [PATCH] Add BULEYE, FIPFOP, LIFE, LITQZ, SYNONM, WORD. --- dec/BULEYE.BAS | 36 ++++++++++++++++++++++++ dec/FIPFOP.BAS | 75 +++++++++++++++++++++++++++++++++++++++++++++++++ dec/LIFE.BAS | 65 ++++++++++++++++++++++++++++++++++++++++++ dec/LITQZ.BAS | 46 ++++++++++++++++++++++++++++++ dec/SYNONM.BAS | 52 ++++++++++++++++++++++++++++++++++ dec/WORD.BAS | 61 ++++++++++++++++++++++++++++++++++++++++ port/BULEYE.BAS | 37 ++++++++++++++++++++++++ port/FIPFOP.BAS | 75 +++++++++++++++++++++++++++++++++++++++++++++++++ port/LITQZ.BAS | 46 ++++++++++++++++++++++++++++++ port/SYNONM.BAS | 52 ++++++++++++++++++++++++++++++++++ port/WORD.BAS | 61 ++++++++++++++++++++++++++++++++++++++++ 11 files changed, 606 insertions(+) create mode 100644 dec/BULEYE.BAS create mode 100644 dec/FIPFOP.BAS create mode 100644 dec/LIFE.BAS create mode 100644 dec/LITQZ.BAS create mode 100644 dec/SYNONM.BAS create mode 100644 dec/WORD.BAS create mode 100644 port/BULEYE.BAS create mode 100644 port/FIPFOP.BAS create mode 100644 port/LITQZ.BAS create mode 100644 port/SYNONM.BAS create mode 100644 port/WORD.BAS diff --git a/dec/BULEYE.BAS b/dec/BULEYE.BAS new file mode 100644 index 0000000..feb4965 --- /dev/null +++ b/dec/BULEYE.BAS @@ -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 diff --git a/dec/FIPFOP.BAS b/dec/FIPFOP.BAS new file mode 100644 index 0000000..de91c54 --- /dev/null +++ b/dec/FIPFOP.BAS @@ -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 diff --git a/dec/LIFE.BAS b/dec/LIFE.BAS new file mode 100644 index 0000000..3921bcf --- /dev/null +++ b/dec/LIFE.BAS @@ -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 diff --git a/dec/LITQZ.BAS b/dec/LITQZ.BAS new file mode 100644 index 0000000..8c3bfd8 --- /dev/null +++ b/dec/LITQZ.BAS @@ -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 diff --git a/dec/SYNONM.BAS b/dec/SYNONM.BAS new file mode 100644 index 0000000..89bca9b --- /dev/null +++ b/dec/SYNONM.BAS @@ -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 diff --git a/dec/WORD.BAS b/dec/WORD.BAS new file mode 100644 index 0000000..9a11cfd --- /dev/null +++ b/dec/WORD.BAS @@ -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 diff --git a/port/BULEYE.BAS b/port/BULEYE.BAS new file mode 100644 index 0000000..f38c50b --- /dev/null +++ b/port/BULEYE.BAS @@ -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 diff --git a/port/FIPFOP.BAS b/port/FIPFOP.BAS new file mode 100644 index 0000000..078ebb8 --- /dev/null +++ b/port/FIPFOP.BAS @@ -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 diff --git a/port/LITQZ.BAS b/port/LITQZ.BAS new file mode 100644 index 0000000..f02448f --- /dev/null +++ b/port/LITQZ.BAS @@ -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 diff --git a/port/SYNONM.BAS b/port/SYNONM.BAS new file mode 100644 index 0000000..5598f07 --- /dev/null +++ b/port/SYNONM.BAS @@ -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 diff --git a/port/WORD.BAS b/port/WORD.BAS new file mode 100644 index 0000000..fe01f13 --- /dev/null +++ b/port/WORD.BAS @@ -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