home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / misc / words.lbr / WORDS.BZS / WORDS.BAS
Encoding:
BASIC Source File  |  1993-10-25  |  15.9 KB  |  354 lines
  1. 10 '    *******************************************************
  2.  
  3.     *****        WORD GUESSING GAMES          *****
  4.  
  5.     *****         by Richard Altman   --   1/30/90      *****
  6. 15 '    *****        P.O. Box 4388              *****
  7.  
  8.     *****        Clearlake, CA 95422          *****
  9.  
  10.     *******************************************************
  11.  
  12.  
  13. 20 '
  14. 21 '     USER SUPPORTED
  15. 22 '
  16. 23 '     This program is user-supported software.  It is copyrighted and cannot
  17. 24 ' be sold for profit (without the author's express written permission),  but
  18. 25 ' it may be copied and distributed for free.
  19. 26 '
  20. 27 '     The  SHAREWARE  concept is a  distribution method  that dispenses with
  21. 28 ' heavy  marketing/advertising costs and gives the user the  opportunity  to
  22. 29 ' try a software program before buying.   Its continued existence depends on
  23. 30 ' each user paying for what he does, in fact, use.
  24. 31 '
  25. 32 '     If you find this program  [WORDS.BAS] useful,  please send the $18 (or
  26. 33 ' more) registration fee directly to the author:
  27. 34 '
  28. 35 '        Richard S. Altman -- P.O. Box 4388 -- Clearlake, CA 95422
  29. 36 '
  30. 37 '      Upon registration,  you will receive a floppy diskette containing the
  31. 38 ' latest version of this program,  as well as a printed manual detailing its
  32. 39 ' uses and specifications.   You will also receive a FREE  calendar printing
  33. 40 ' program and other programs by the same author.
  34. 41 '
  35. 42 '      WHEN ORDERING,  please be sure to indicate  single or double  density
  36. 43 ' disk drive, and the name of the program [WORDS.BAS].  Comments on programs
  37. 44 ' are also most welcome!
  38. 45 '
  39. 46 '      Due to  possible unforeseen circumstances, the above offer is subject
  40. 47 ' to change without notice.
  41. 48 '
  42. 49 ' **************************************************************************
  43. 50 '    Set Up Variables
  44.  
  45.  
  46. 51 '    String:   A$-F$, I$
  47.  
  48.     Integer:  G-Q, T-Z
  49.  
  50.     Single Precision:   R-S
  51.  
  52.  
  53. 52 DEFINT G-Q,T-Z:DEFSTR A-F,I:DIM F(24),A(30),G(25),W(340),W$(340)
  54. 53 CLS=CHR$(26):CLR=CHR$(24):CX=CHR$(23):PRINT CLS:ESC$=CHR$(27):FE=ESC+"="
  55. 54 FOR X=1 TO 24:F(X)=FE+CHR$(X+31)+" ":NEXT:C7=CHR$(7):EB=ESC+"B4"
  56. 55 DEF FNF(X,Y)=FE+CHR$(X+31)+CHR$(Y+31):DEF FNRN(X)=INT(RND*X)+1:B=CHR$(191)
  57. 56 DEF FNTITLE$(X,M$)=FNF(X,1)+STRING$((80-LEN(M$))/2,12)+M$:E="  ":F="   "
  58. 57 DD=STRING$(79,45):DIM WZ$(20):AQ=STRING$(5,148):FF=F+F:EC=ESC+"C4"
  59. 58 E1=">>>  ":EL=ESC+"L":I0%=7:C4=CHR$(34):WIDTH 255:GOSUB 7000
  60. 59 A=" ":A2="###":FOR X=1 TO 335:READ W$(X):NEXT
  61. 60 '
  62. 61 AG=LEFT$(AG,20):PRINT F(5)AH:PRINT CLR:FOR X=7 TO 13
  63. 62 PRINT F(X)AG;FNF(X,57)AG:NEXT:PRINT CX:GOTO 8000
  64. 70 IF Y<14 THEN PRINT FNF(22,Y*5+5)"/"; ELSE PRINT FNF(23,(Y-13)*5+5)"/";
  65. 71 RETURN
  66. 75 PRINT FNF(11,22)"Your word reads: "F;D(1)E;D(2)E;D(3)E;D(4)E;D(5)E;D(6);
  67. 76 RETURN
  68. 80 PRINT F(22)EC;CX:FOR X=12 TO 19:PRINT FNF(X,3)AF;AG;:NEXT:RETURN
  69. 85 PRINT FNF(19,57)D;CLR;:RETURN
  70. 90 A1="##.####":IF WG=2 THEN  A1="####.###"
  71. 91 PRINT"Avg. game ="E;USING A1;GT/GN:RETURN
  72. 95 L$=FNF(21,9)+"Used Letter Board"+AF+A:GOSUB 5050
  73. 96 PRINT FNF(22,9)EC;:FOR X=1 TO 13:PRINT CHR$(64+X)A(X)F;:NEXT
  74. 97 PRINT FNF(23,9);:FOR X=14 TO 26:PRINT CHR$(64+X)A(X)F;:NEXT:GOTO 5020
  75. 99 '
  76. 100 '    Start Game
  77.  
  78.  
  79. 110 PRINT CLS:WC=WC+1:T=0:FOR X=1 TO 26:A(X)=CHR$(X+64):NEXT
  80. 120 IF WC=336 THEN WC=0:FOR X=1 TO 335:W(X)=0:NEXT:GOTO 100
  81. 130 X=FNRN(335):T=T+1:IF W(X)=0 THEN 150 ELSE IF T<10 THEN 130
  82. 140 FOR X=1 TO 325:IF W(X)=1 THEN NEXT
  83. 150 W(X)=1:W=X:WZ$(J1+Q7+I0%+HC+P4)=W$(X):IF WG=2 THEN 1000
  84. 160 FOR Y=1 TO 6:B(Y)=MID$(W$(X),Y,1):D(Y)="*":NEXT
  85. 170 P=0:Q=0:PRINT CLS:X=0
  86. 180 '
  87. 200 '    WORD Guessing Game
  88.  
  89.  
  90. 201 'PRINT F(1)WZ$(J1+Q7+I0%+HC+P4)
  91. 205 GOSUB 7200:IF B(1)=A THEN Q=Q+1
  92. 210 IF B(2)=A THEN Q=Q+1
  93. 215 IF P=15 THEN 950
  94. 220 PRINT FNF(11,40)EC;AG;:GOSUB 75
  95. 225 PRINT FNF(19,22)"Input a letter for your guess --- ? ";
  96. 230 IF P>0 THEN GOSUB 70 ELSE GOSUB 95:PRINT C7
  97. 235 C=B:I=INKEY$:AN=B:PRINT FNF(19,58)EB;
  98. 240 GOSUB 6000:IF AK<"A" OR AK>"Z" THEN 240
  99. 245 PRINT F(19)CLR;:C=AK:Y=ASC(C):Y=Y-64:IF Y<1 OR Y>26 THEN 200
  100. 250 P=P+1
  101. 255 '
  102. 300 '    Check Letters
  103.  
  104.  
  105. 305 Z=1:IF C=B(1) THEN GOSUB 350
  106. 310 Z=2:IF C=B(2) THEN GOSUB 350
  107. 315 Z=3:IF C=B(3) THEN GOSUB 350
  108. 320 Z=4:IF C=B(4) THEN GOSUB 350
  109. 325 Z=5:IF C=B(5) THEN GOSUB 350
  110. 330 Z=6:IF C=B(6) THEN GOSUB 350
  111. 335 GOTO 215
  112. 340 '
  113. 350 IF D(Z)=C THEN RETURN
  114. 360 Q=Q+1:D(Z)=C:IF Q=6 THEN 800
  115. 370 RETURN
  116. 380 '
  117. 500 '    Display Totals
  118.  
  119.  
  120. 505 PRINT CLS;EC
  121. 510 PRINT EL;CHR$(34)CHR$(32)CHR$(34)CHR$(178)
  122. 515 PRINT EL;CHR$(34)CHR$(32)CHR$(113)CHR$(32)
  123. 520 PRINT EL;CHR$(34)CHR$(34)CHR$(113)CHR$(34)
  124. 525 PRINT EL;CHR$(34)CHR$(176)CHR$(113)CHR$(176)
  125. 530 PRINT EL;CHR$(34)CHR$(178)CHR$(113)CHR$(178)
  126. 535 PRINT EL;CHR$(113)CHR$(32)CHR$(113)CHR$(178)
  127. 540 IF WG=1 THEN X$=S$ ELSE X$=T$
  128. 545 L$=FNF(3,19)+F+X$+F:GOSUB 5065
  129. 550 PRINT FNF(6,28)"The word was:"E;C4;WZ$(J1+Q7+I0%+HC+P4);C4
  130. 555 PRINT FNF(8,28);:IF WG=1 THEN PRINT"You took"P"guesses."C7:GOTO 565
  131. 560 PRINT"Your score was: "P;C7
  132. 565 GT=GT+P:IF P>GH THEN GH=P
  133. 570 IF P<GL OR GN=1 THEN GL=P
  134. 575 IF WG=1 THEN G(P)=G(P)+1:GOTO 590
  135. 580 IF P>251 THEN PX=P\500+1:G(PX)=G(PX)+1:GOSUB 665:GOTO 590
  136. 585 IF P<101 THEN G(20)=G(20)+1 ELSE G(21)=G(21)+1
  137. 590 PRINT FNF(10,5)EC;STRING$(66,38):A1="##":IF WG=2 THEN A1="####."
  138. 595 PRINT FNF(12,26)E1"# of games ="E;:PRINT USING A1;GN
  139. 600 PRINT FNF(14,26)E1" Best game ="E;:PRINT USING A1;GL
  140. 605 PRINT FNF(16,26)E1" High game ="E;:PRINT USING A1;GH
  141. 610 PRINT FNF(18,26)E1;A;:GOSUB 90:IF EQ="EQ" THEN RETURN
  142. 615 X=6:IF S=9 THEN X=20
  143. 620 PRINT FNF(22,X)EB"<Q> to QUIT."FF;
  144. 625 IF S=0 THEN PRINT"<S> to view STATS."FF;
  145. 630 PRINT "<ANY> to CONTINUE."F;
  146. 635 GOSUB 6000:IF AK="Q" THEN 650 ELSE IF AK="S" AND S=0 THEN 2000
  147. 640 PRINT CLS:S=0:GOTO 100
  148. 650 L$="stop":PRINT F(22)CX;FNF(22,13)"Do you really want to ";:GOSUB 5050
  149. 655 PRINT" this great game?   (Y/N)"F;C7;
  150. 660 GOSUB 6000:PRINT F(22)CX;:IF AK="Y" THEN 750 ELSE 640
  151. 665 IF PX<15 THEN RETURN ELSE G(14)=G(14)+1:RETURN
  152. 670 '
  153. 750 '    End of Game
  154.  
  155.  
  156. 760 PRINT FNF(6,20)AF;FNF(8,25)AF;:L$=FNF(8,25)+"  <<<  FINAL  TOTALS  >>>  "
  157. 770 GOSUB 5065:IF S=9 THEN S=0:GOSUB 80:
  158. 780 EQ="EQ":GOSUB 590:EQ=E:PRINT F(21)EB;:END:GOTO 100
  159. 790 '
  160. 800 '    Display "Statements of Excellence"
  161.  
  162.  
  163. 805 RM=WC/3:IF RM-FIX(RM)>0 THEN 840
  164. 810 L$="You just barely made it!!":M$="I know you can do better!"
  165. 815 IF P<14 THEN L$="Only satisfactory!":M$="Put your thinking cap on!!"
  166. 820 IF P<12 THEN L$="Not bad!    Not bad!":M$=E
  167. 825 IF P<10 THEN L$="Excellent Work!!!":M$=E
  168. 830 IF P<8  THEN L$="Outstanding Work!!!":M$=E
  169. 835 GOTO 900
  170. 840 IF RM-FIX(RM)>.5 THEN 875
  171. 845 L$="You almost blew that one!":M$="Please pay attention.  O.K.?"
  172. 850 IF P<14 THEN L$="Turn off the Television!":M$="Think only about this game!"
  173. 855 IF P<12 THEN L$="Keep up the good work!!":M$=E
  174. 860 IF P<10 THEN L$="Great Going!   Well done!!":M$=E
  175. 865 IF P<8  THEN L$="Extremely well done!!":M$="Really superior!
  176. 870 GOTO 900
  177. 875 L$="Whew!   That was close!":M$="Concentrate!   Concentrate!"
  178. 880 IF P<14 THEN L$="You've got to be kidding!":M$="Think!   Think!   Think!"
  179. 885 IF P<12 THEN L$="Good!     Quite Good!!":M$=E
  180. 890 IF P<10 THEN L$="Fantastic guesses!!!":M$=E
  181. 895 IF P<8  THEN L$="Beautiful!!   Fantastic guesses!!!":M$=E
  182. 900 GOSUB 75:PRINT FNF(19,22)CX;AQ;E;L$;F;C7;
  183. 905 IF M$<>E THEN PRINT FNF(20,22)AQ;E;M$;F;
  184. 910 GN=GN+1:FOR T=1 TO 2500:NEXT:IF P>9 THEN FOR T=1 TO 200:NEXT
  185. 915 IF P>13 THEN FOR T=1 TO 500:NEXT
  186. 920 GOTO 500
  187. 925 '
  188. 950 GOSUB 75:PRINT FNF(19,19)CX;AQ"  You failed to guess the Hidden Word."C7
  189. 955 PRINT FNF(20,19)AQ"  You used up all 15 guesses!!"F;
  190. 960 G(P)=G(P)-1:G(16)=G(16)+1:GOTO 910
  191. 965 '
  192. 1000 '    SCRAMBLE Word Game
  193.  
  194.  
  195. 1010 TX=0:NL=LEN(W$(X)):HX=0
  196. 1020 FOR X=1 TO 7:B(X)=E:N(X)=0:NEXT
  197. 1030 Q$=WZ$(J1+Q7+I0%+HC+P4):FOR Y=1 TO NL
  198. 1040 Q=FNRN(NL):IF N(Q)=1 THEN 1040
  199. 1050 N(Q)=1:B(Q)=MID$(Q$,Y,1)+A:NEXT
  200. 1060 PRINT CLS:Q$=E
  201. 1070 '
  202. 1100 '    Guess the Word
  203.  
  204.  
  205. 1101 'PRINT F(1)WZ$(J1+Q7+I0%+HC+P4)
  206. 1105 GOSUB 7200:TX=0
  207. 1110 PRINT FNF(11,23)"Scrambled Word is: "F;B(1);B(2);B(3);B(4);B(5);B(6);B(7)
  208. 1115 D="":Z=0:L$="clear":C=""
  209. 1120 PRINT FNF(21,15)"Press <SPACE BAR> to ";:GOSUB 5050:PRINT"."EC
  210. 1125 PRINT FNF(19,15)"Input your guess for the correct word --- ":GOSUB 85
  211. 1130 TX=TX+1:PRINT FNF(21,50)"(Time=";USING"#####";TX;:PRINT")"
  212. 1135 IF NL=6 AND TX>=6000 THEN 1200
  213. 1140 IF NL=7 AND TX>=7000 THEN 1200
  214. 1145 C=INKEY$:IF C="" THEN 1130
  215. 1150 IF ASC(C)>90 THEN C=CHR$(ASC(C)-32)
  216. 1155 IF C=CHR$(32) THEN PRINT FNF(19,57)LEFT$(AF,10);:GOTO 1115
  217. 1160 IF C=CHR$(8) THEN Z=Z-1:D=D+C:IF Z<0 THEN 1115 ELSE GOSUB 85:D=LEFT$(D,Z):GOTO 1125
  218. 1165 D=D+C:Z=Z+1:IF Z=4 AND D="HELP" THEN GOSUB 85:GOTO 1500
  219. 1170 IF Z<NL THEN 1125
  220. 1175 IF D=WZ$(J1+Q7+I0%+HC+P4) THEN GOSUB 85:PRINT EB:GOTO 1240
  221. 1180 GOSUB 85:L$=FNF(21,30)+" WRONG GUESS. ":PRINT F(21)CX:FOR Q=1 TO 7
  222. 1185 PRINT FNF(21,22)"Sorry,   WRONG GUESS.   Try again!":FOR T=1 TO 90:NEXT
  223. 1190 GOSUB 5065:FOR T=1 TO 110:NEXT T,Q:FOR T=1 TO 200:NEXT:TX=TX+50:GOTO 1540
  224. 1195 '
  225. 1200 '    Time is up
  226.  
  227.  
  228. 1210 PRINT F(20)EB;CX;DD::L$=" ***  TIME IS UP  *** "
  229. 1220 PRINT TAB(15);:GOSUB 5065:PRINT"    The word was:"F;WZ$(J1+Q7+I0%+HC+P4)
  230. 1230 PRINT DD;:FOR T=1 TO 2000:NEXT
  231. 1240 GN=GN+1:P=TX:GOTO 500
  232. 1250 '
  233. 1500 '    HELP
  234.  
  235.  
  236. 1510 HX=HX+1:L$=FNF(21,15)+"  SPECIAL HELP:  ---  Word so far:  "
  237. 1520 L$=L$+LEFT$(WZ$(J1+Q7+I0%+HC+P4),HX)+E+CX:GOSUB 5065:PRINT F;
  238. 1530 FOR T=1 TO 3600:NEXT:TX=TX+700
  239. 1540 C="":CK=INKEY$:PRINT F(20)CX:GOTO 1115
  240. 1550 '
  241. 2000 '    Display STATS
  242.  
  243.  
  244. 2005 S=9:GOSUB 80:PRINT FNF(8,28)A;:GOSUB 90:IF WG=2 THEN 2030
  245. 2010 XX=9:Y=12:FOR X=3 TO 15:PRINT FNF(X+XX,Y)"No. of ";USING"##";X;
  246. 2015 PRINT" games =";USING A2;G(X);:IF X>8 THEN XX=2:Y=44
  247. 2020 NEXT:PRINT FNF(18,Y)"No. ";:L$="DUNCE":GOSUB 5050
  248. 2025 PRINT" games =";USING A2;G(X);:GOTO 615
  249. 2030 PRINT FNF(12,12)"No. 000-100  games =";USING A2;G(20)
  250. 2035 PRINT FNF(13,12)"No. 101-250  games =";USING A2;G(21)
  251. 2040 PRINT FNF(14,12)"No. 251-500  games =";USING A2;G(1):XX=13:Y=12
  252. 2045 FOR X=2 TO 14:PRINT FNF(X+XX,Y)"No. of";USING"#####";(X-1)*500;
  253. 2050 PRINT"+ games =";USING A2;G(X);:IF X>5 THEN XX=5:Y=43
  254. 2055 NEXT:GOTO 615
  255. 2060 '
  256. 5000 '    *****    Misc. Subroutines
  257. 5005 '
  258. 5010 PRINT ESC"B0";:RETURN:'    Inverse Video ON/OFF
  259. 5015 PRINT ESC"C0";:RETURN:
  260. 5020 PRINT EB;:RETURN:'        Turn Cursor ON/OFF
  261. 5025 PRINT EC;:RETURN:
  262. 5040 PRINT ESC"B3";:RETURN:'    Underline L$
  263. 5050 GOSUB 5040:PRINT L$;ESC"C3";:RETURN
  264. 5055 '
  265. 5065 GOSUB 5010:PRINT L$;:GOTO 5015:'    BRIGHT Video L$
  266. 5070 '
  267. 6000 '    *****     INKEY$ Subroutines
  268.  
  269.  
  270. 6010 K$=INKEY$:AK=""
  271. 6020 AK=INKEY$:IF AK="" THEN 6020
  272. 6030 IF ASC(AK)>96 THEN AK=CHR$(ASC(AK)-32)
  273. 6040 RETURN
  274. 6050 K$=INKEY$:BK=""
  275. 6060 BK=INKEY$:IF BK<>CHR$(13) THEN 6060 ELSE RETURN
  276. 6070 '
  277. 7000 '    Opening Screen
  278.  
  279.  
  280. 7010 AA=B+STRING$(2,131):AB=AA+AA:AC=AB+AB:AD=AC+AC:AE=AD+AD+AD+AA+B
  281. 7020 AF=STRING$(44,32):AG=LEFT$(AF,22):AH=STRING$(76,131):P4=1:J1=1
  282. 7030 S$="W O R D   G U E S S I N G   G A M E":Q7=2:AJ=STRING$(44,131)
  283. 7040 T$="S C R A M B L E   W O R D   G A M E"
  284. 7050 FOR X=1 TO 21:PRINT F(X)AE;:NEXT:PRINT F(22)AH
  285. 7060 FOR X=16 TO 6 STEP-1:PRINT FNF(X,17)AF;:NEXT
  286. 7070 PRINT FNF(6,17)AJ;FNF(9,22);S$;FNF(11,22)EB;T$
  287. 7080 PRINT FNF(14,27)"KAYPRO 10 CP/M Computer"FNF(23,6)"Copyright (c) 1990 ";
  288. 7090 PRINT"by Richard S. Altman.    All Rights Reserved."E;:HC=6:RETURN
  289. 7099 '
  290. 7200 '    Playing Screen
  291.  
  292.  
  293. 7210 PRINT FNF(4,23);:IF WG=1 THEN PRINT S$ ELSE PRINT T$
  294. 7220 FOR X=6 TO 16:PRINT FNF(X,14)RIGHT$(AE,52);:NEXT
  295. 7230 PRINT FNF(17,14)STRING$(52,131);
  296. 7240 FOR X=14 TO 8 STEP-1:PRINT FNF(X,18)AF;:NEXT
  297. 7250 PRINT FNF(8,18)AJ;:RETURN
  298. 7260 '
  299. 8000 '    Instructions ??
  300.  
  301.  
  302. 8010 PRINT FNF(15,20)"Press <1> .... for `WORD GUESSING GAME'"C7:FK=""
  303. 8020 PRINT FNF(17,20)"Press <2> .... for `SCRAMBLE WORD GAME'"F;:FY=INKEY$
  304. 8030 FK=INKEY$:IF FK<>"" THEN 8050
  305. 8040 NX=NX+1:IF NX>32222 THEN NX=100:GOTO 8030 ELSE 8030
  306. 8050 RANDOMIZE NX:IF NOT(FK="1" OR FK="2" OR FK=CHR$(13)) THEN 8030
  307. 8060 WG=VAL(FK):IF FK=CHR$(13) THEN WG=1
  308. 8070 PRINT FNF(9,22)EC;:IF WG=1 THEN PRINT S$;CX ELSE PRINT T$;CX
  309. 8080 IF WG=2 THEN FOR X=1 TO 334 STEP 9:READ W$(X):NEXT
  310. 8090 '
  311. 8500 '    Display Instructions
  312.  
  313.  
  314. 8505 C=B:I=INKEY$:PRINT FNF(12,15)"The object of this game is to guess a ";
  315. 8510 L$="Hidden Word":GOSUB 5050:PRINT"."FNF(14,10);
  316. 8515 IF WG=2 THEN 8530
  317. 8520 PRINT E;F;AQ"  The maximum number of guesses is 15."FNF(16,15)AQ"  A ";
  318. 8525 GOSUB 5050:PRINT" may be up to 6 letters long.":GOTO 8580
  319. 8530 PRINT"The maximum amount of time is 6000 (or 7000 for long words)."
  320. 8535 PRINT EL;CHR$(93)CHR$(50)CHR$(93)CHR$(168)
  321. 8540 PRINT EL;CHR$(93)CHR$(50)CHR$(105)CHR$(50)
  322. 8545 PRINT EL;CHR$(93)CHR$(52)CHR$(105)CHR$(52)
  323. 8550 PRINT EL;CHR$(93)CHR$(166)CHR$(105)CHR$(166)
  324. 8555 PRINT EL;CHR$(93)CHR$(168)CHR$(105)CHR$(168)
  325. 8560 PRINT EL;CHR$(105)CHR$(50)CHR$(105)CHR$(168)
  326. 8565 PRINT FNF(17,14)"Input ";:L$=" HELP ":GOSUB 5065
  327. 8570 PRINT" if you are absolutely stumped."FNF(18,14)"You will get a ";
  328. 8575 PRINT"clue, but it will cost 700 "C4"seconds"C4"."
  329. 8580 PRINT FNF(22,22)EB"Press <RETURN> to start the game."F;
  330. 8585 GOSUB 6050:GOTO 640
  331. 8590 '
  332. 9000 '    Word List
  333.  
  334.  
  335. 9010 DATA " FORUM",WONDER,DANGER,DEUCES,CHOICE,WIGGLE,ARREST,MOVIES,ISLAND
  336. 9020 DATA " PRISM",NUMBER,FRIEND,MOTION,MONKEY,SCHOOL,TOSSED,CENTER,SINGLE
  337. 9030 DATA " FROWN",UNITED,SECRET,UNTIED,NAPKIN,OBLONG,STRUMS,SHRILL,SECOND
  338. 9040 DATA " SOUTH",TURNED,DOUBLE,ROSTER,COUPLE,BEHIND,PEOPLE,DRIVER,SIMPLE
  339. 9050 DATA " SYRUP",STREAK,DIESEL,BUREAU,DETAIL,METHOD,ITSELF,YIELDS,MANAGE
  340. 9060 DATA " WRYLY",SAYING,SOUGHT,SPOUSE,CRADLE,FORCED,ORDERS,BELIEF,MENTAL
  341. 9070 DATA "  BEEP",ELEVEN,TRIPLE,DRIVEN,OBLIGE,HAWAII,LISTEN,COTTON,WIENER
  342. 9080 DATA " DADDY",CUTLET,OUTLET,FLOWER,ESCAPE,DESIGN,MASTER,FRAMED,TRACED
  343. 9090 DATA " USURY",BRAKED,CONFER,EXCEPT,EULOGY,BECKON,SUBTLE,DAGGER,POTION
  344. 9100 DATA " PIZZA",FILLET,SALTED,PEPPER,SKEWED,PRAYED,PRAYER,BECOME,BEFORE
  345. 9110 DATA " ELBOW",NATURE,PERIOD,SUDDEN,ACTION,ACCEPT,RESULT,INSULT,COUSIN
  346. 9120 DATA " EMPTY",SAVING,NIPPLE,STRONG,DEVOUR,SALMON,CHANGE,CHANCE,VIOLET
  347. 9130 DATA "  FROG",TURTLE,RADIOS,CIRCLE,PRISON,BLIGHT,SQUALL,RAGGED,ROWING
  348. 9140 DATA " DIODE",PLEASE,SOUFLE,SAMPLE,PRANCE,ENOUGH,DEBTOR,SPRUCE,ACQUIT
  349. 9150 DATA " TOUGH",ENDURE,DETAIN,FRAYED,BECAME,SARONG,UNIQUE,CASING,BLAZER
  350. 9160 DATA " MEANT",QUARTS,QUARTZ,SPROUT,THRONG,STYLUS,TRUCKS,FLANGE,FAMOUS
  351. 9170 DATA " NYMPH",RADIUS,PURPLE,VOYAGE,SAUNAS,WEIGHT,LAWYER,QUIRKS,PROMPT
  352. 9180 DATA " MYTHS",STRUCK,SQUARE,SEXIST,ZEBRAS,BREATH,IMPACT,AFRAID,VACATE
  353. 9190 DATA " WAFER",IAMBIC,MENIAL,MEXICO,PULLEY,SQUASH,DAZZLE,DAMAGE,REJECT
  354. 9200 DATA " BLACK",CREDIT,URBANE,JEWISH,LETTER,SQUIRE,ENDIVE,FUSION,TREATY
  355. 9210 DATA " SHACK",HEARTH,DANCER,UNLIKE,NICKEL,PICKLE,BIONIC,MYSELF,DEVOUT
  356. 9220 DATA " MAIZE",MAJORS,SEQUIN,SEQUEL,ABACUS,ABDUCT,UPDATE,EMERGE,ESTATE
  357. 9230 DATA " NYLON",EXCISE,TYPIST,MAGNET,PERUSE,PERTLY,DENTAL,GUITAR,DETOUR
  358. 9240 DATA " XEROX",BEHALF,BEHEAD,TYRANT,BIASED,GUILTY,GRILLE,GUESTS,GUFFAW
  359. 9250 DATA " KAYAK",INSIDE,SUPPLE,LAYOFF,LAZIER,LOCALE,LITMUS,LARYNX,PEWTER
  360. 9260 DATA " SQUAW",NUDIST,OMELET,ORCHID,SUMMIT,ZODIAC,STUFFY,YEARLY,YODELS
  361. 9270 DATA " TENON",ZIPPER,WOLVES,RUBBLE,QUAKED,RUFFLE,QUOTED,JITNEY,JARGON
  362. 9280 DATA " NAIVE",KOPECK,DOLLAR,CYCLIC,IMPORT,JOKERS,METRIC,KNIVES,SPIRES
  363. 9290 DATA " SUGAR",INSERT,INTERN,STATIC,PURSUE,SPURTS,SPYING,SQUADS,STABLE
  364. 9300 DATA " PETAL",SQUIRM,SQUEAK,TEMPER,MYOPIC,MYOPIA,MUTINY,MUTANT,MUSSEL
  365. 9310 DATA " QUOTA",MUTTON,PROVED,MYRTLE,PROVEN,NEARLY,MUSKET,PESTLE,PETITE
  366. 9320 DATA " AXIOM",SILENT,PHONIC,PHYSIC,PHLEGM,PHOBIA,PHRASE,PLACID,MANIAC
  367. 9330 DATA " YUCCA",MANTIS,STEREO,IDIOCY,IDEALS,IGUANA,PESTER,FACIAL,FACILE
  368. 9340 DATA " WRECK",FABRIC,EXHUME,CURATE,COOPER,CORNEA,CHORDS,ACACIA,ACCENT
  369. 9350 DATA " LATER",ACCRUE,ACCUSE,ACROSS,ACTUAL,ADDICT,AWEIGH,BLUING,AWEIGH
  370. 9360 DATA " WAXED",BUDGET,BENIGN,BESTOW,ZOMBIE,ZENITH,VORTEX,STYLED,EXPERT
  371. 9370 DATA " LOWER",VOLUME,VISUAL,UNCLAD,BREAST,HEARTY,PHONED,JAGUAR,RIBBON
  372. 9380 DATA " LUCKY",REJECT
  373. 9390 '    Additional Data for SCRAMBLE GAME
  374.  
  375.  
  376. 9400 DATA FROWNED,DENSITY,GRILLED,SOLOIST,EMPTIES,COUPLED,OUTLINE,TOUCHED
  377. 9410 DATA DOUBLED,BLACKEN,LIBRARY,ORGANIC,CENTURY,INSPIRE,REJECTS,BELIEVE
  378. 9420 DATA TENUOUS,PHYSICS,LEOPARD,EARLIER,WRECKED,GIRLISH,PHONICS,COMPOSE
  379. 9430 DATA TRIPLET,OBLIGES,PLEASED,PHRASED,EXPERTS,AMPLIFY,BREASTS,STYLING
  380. 9440 DATA COMPANY,GUESSED,WORKING,BICYCLE,ACQUIRE,LIGHTLY
  381. TA TRIPLET,OBLIGES,PLEASED,PHRASED,EXPERTS,AMPLIFY,BR