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