home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug055.arc / SYNONYMS.BAS < prev    next >
BASIC Source File  |  1979-12-31  |  7KB  |  212 lines
  1. 100 REM MODERNIZED BY DAVE NIXON JAN. 16 1977 
  2. 110 CLEAR 300 
  3. 120 DEFINT A-Z
  4. 130 N3=1  
  5. 140 DIM R$(10),W$(20),L(20),T(150)   
  6. 150 INPUT "WHAT IS YOUR NAME";NA$
  7. 160 PRINT"                      SYNONYMS"
  8. 170 PRINT"     IN THIS PROGRAM, YOU WILL FIND A COLLECTION OF SYNONYMS." 
  9. 180 PRINT "A SYNONYM OF A WORD, IN THIS PROGRAN, WILL MEAN ANOTHER"   
  10. 190 PRINT "WORD IN THE ENGLISH LANGUAGE WHICH HAS THE SAME"  
  11. 200 PRINT "OR VERY NEARLY THE SAME MEANING. *NOTE-NOT ALL SYNONYMS"  
  12. 210 PRINT "ARE IN THE COMPUTER*":PRINT
  13. 220 PRINT
  14. 230 PRINT"     I CHOOSE A WORD - YOU TYPE A SYNONYM.  IF YOU CANNOT" 
  15. 240 PRINT"THINK OF A WORD; TYPE THE WORD  HELP  .  THIS CAUSES"  
  16. 250 PRINT"A SYNONYM TO BE PRINTED."  
  17. 260 PRINT
  18. 270 NR=9:NE=5   
  19. 280 E$(1)="BETTER LUCK NEXT TIME "+NA$  
  20. 290 E$(2)="WIN SOME LOSE SOME"  
  21. 300 E$(3)="TRY HARDER NEXT TIME "+NA$   
  22. 310 E$(4)=NA$+" I KNOW YOU CAN DO BETTER THAN THAT" 
  23. 320 E$(5)=NA$+" I AM ASHAMED OF YOU"
  24. 330 LET R$(1)="CORRECT" 
  25. 340 LET R$(2)="VERY GOOD"   
  26. 350 LET R$(3)="FINE"
  27. 360 LET R$(4)="GOOD"
  28. 370 LET R$(5)="GOOD GOING"  
  29. 380 R$(6)="RIGHT ON "+NA$   
  30. 390 R$(7)=NA$+" YOUR NEAR PERFECT"  
  31. 400 R$(8)="KEEP UP THE GOOD WORK "+NA$  
  32. 410 R$(9)="THATS THE WAY! "+NA$ 
  33. 420 PRINT   
  34. 430 PRINT   
  35. 440 RESTORE 
  36. 450 READ N  
  37. 460 I=1:E=0:NT=2
  38. 470 LET N1=INT(RND(1)*N+1)  
  39. 480 IF N3>N THEN PRINT:PRINT "NO MORE SYNONYMS":GOTO 1000
  40. 490 IF N1=T(I) THEN GOTO 460 ELSE I=I+1:IF I<N3 GOTO 490
  41. 500 T(N3)=N1:N3=N3+1
  42. 510 I=0 
  43. 520 READ N2 
  44. 530 N4=2
  45. 540 FOR J=1 TO N2   
  46. 550 READ W$(J)  
  47. 560 NEXT J  
  48. 570 I=I+1:IF I<N1 GOTO 520  
  49. 580 FOR J=1 TO N2   
  50. 590 LET L(J)=J  
  51. 600 NEXT J  
  52. 610 LET L(0)=N2 
  53. 620 LET G=1 
  54. 630 PRINT   
  55. 640 LET L(G)=L(L(0))
  56. 650 LET L(0)=N2-1   
  57. 660 PRINT   
  58. 670 PRINT "    WHAT IS A SYNONYM OF ";W$(G);
  59. 680 INPUT A$
  60. 690 IF A$="HELP" THEN 870   
  61. 700 FOR J=2 TO N2:IF A$=W$(J) THEN GOTO 810 ELSE NEXT J 
  62. 710 FOR J=2 TO N2   
  63. 720 CT=LEN(W$(J))   
  64. 730 IF CT<5 GOTO 780
  65. 740 FOR I1=1 TO LEN(W$(J))  
  66. 750 IF MID$(W$(J),I1,1)=MID$(A$,I1,1) THEN CT=CT-1  
  67. 760 NEXT I1 
  68. 770 IF CT<3 THEN PRINT "CHECK YOUR SPELLING"
  69. 780 NEXT J  
  70. 790 PRINT "   TRY AGAIN. "; 
  71. 800 GOTO 670   
  72. 810 IF J<>L1 THEN E=0   
  73. 820 IF E=1 THEN PRINT E$(RND(1)*NE+1)ELSEPRINT R$(RND(1)*NR+1)  
  74. 830 IF N2=2 THEN GOTO 440   
  75. 840 PRINT "ALL THE SYNONYMS THAT I HAVE ARE"
  76. 850 FOR P=2 TO N2:PRINT W$(P),:NEXT P   
  77. 860 GOTO 440
  78. 870 LET G1=INT(RND(1)*L(0)+1)   
  79. 880 E=1 
  80. 890 IF L(0)=0 THEN 970  
  81. 900 PRINT "**** A SYNONYM OF ";W$(G);" IS ";W$(L(G1));"."   
  82. 910 IF N2>N4 THEN PRINT "THERE ARE OTHERS":N4=N4+1  
  83. 920 PRINT   
  84. 930 L1=L(G1)
  85. 940 LET L(G1)=L(L(0))   
  86. 950 LET L(0)=L(0)-1 
  87. 960 NT=NT+1:IF NT>N2 THEN GOTO 440 ELSE GOTO 670
  88. 970 PRINT "THERE ARE NO MORE SYNONYMS." 
  89. 980 GOTO 670   
  90. 990 PRINT   
  91. 1000 PRINT" THIS SYNONYM EXERCISE IS COMPLETED." 
  92. 1010 END 
  93. 1020 DATA 106
  94. 1030 DATA 5,ACCUMULATE,AMASS,HOARD,COLLECT,GATHER:   
  95. 1040 DATA 10,ADORN,DECORATE,ORNAMENT,BEAUTIFY,DECK,BEDECK:   
  96. 1050 DATA  GARNISH,GRACE,EXALT,HONOR:
  97. 1060 DATA 4,ADVANCE,PROMOTE,FORWARD,FURTHER: 
  98. 1070 DATA 6,AGILE,ACTIVE,NIMBLE,BRISK,SPRY,ACTIVE:   
  99. 1080 DATA 10,ALLIANCE,LEAGUE,COALITION,FUSION,CONFEDERACY:   
  100. 1090 DATA  CONFEDERATION,FEDERATION,UNION,CONNECTION,AFFINITY:   
  101. 1100 DATA 8,ALONE,SOLITARY,LONELY,LONESOME,LONE,FORLORN: 
  102. 1110 DATA LORN,DESOLATE: 
  103. 1120 DATA 6,AMUSE,DIVERT,ENTERTAIN,RECREATE,BEGUILE,ENLIVEN: 
  104. 1130 DATA 8,APPARITION,PHANTASM,PHANTOM,GHOST,SPIRIT:
  105. 1140 DATA SPOOK,HAUNT,VISION:
  106. 1150 DATA 11,APPLAUD,CHEER,HURRAH,ROOT,COMMEND,APPROVE,EXTOL:
  107. 1160 DATA  ENCORE,LAUD,PRAISE,CLAP:  
  108. 1170 DATA 5,ATTACK,ASSAIL,ASSAULT,BOMBARD,STORM: 
  109. 1180 DATA 8,ATTRACT,ALLURE,CHARM,FASCINATE,BEWITCH,ENCHANT:  
  110. 1190 DATA CAPTIVATE,TAKE:
  111. 1200 DATA 5,AVERAGE,MEAN,MEDIAN,NORM,PAR:
  112. 1210 DATA 6,AWARE,COGNIZANT,CONSCIOUS,SENSIBLE,ALIVE,AWAKE:  
  113. 1220 DATA 5,BAKE,ROAST,BROIL,GRILL,BARBECUE: 
  114. 1230 DATA 5,BEGIN,COMMENCE,START,INITIATE,INAUGURATE:
  115. 1240 DATA 4,BELOW,UNDER,BENEATH,UNDERNEATH:  
  116. 1250 DATA 4,BET,WAGER,STAKE,GAMBLE:  
  117. 1260 DATA 5,BODY,CORPSE,CARCASS,CADAVER,STIFF:   
  118. 1270 DATA 10,BARE,NAKED,NUDE,BALD,BARREN,STRIPPED,UNDRESSED: 
  119. 1280 DATA  UNCLOTHED,UNADORNED,UNCOVERED:   
  120. 1290 DATA 7,BLAZE,FLAME,FLARE,GLARE,GLOW,FIRE,BURN: 
  121. 1300 DATA 7,BORDER,MARGIN,VERGE,EDGE,RIM,BRIM,BRINK:
  122. 1310 DATA 9,BRAVE,COURAGEOUS,BOLD,AUDACIOUS,DAUNTLESS:  
  123. 1320 DATA UNDAUNTED,INTREPID,VALIANT,VALOROUS:  
  124. 1330 DATA 6,BRIGAND,BANDIT,HIGHWAYMAN,FOOTPAD,MARAUDER,OUTLAW:  
  125. 1340 DATA 7,BUNDLE,BUNCH,BALE,PARCEL,PACK,PACKAGE,PACKET:   
  126. 1350 DATA 16,BURN,SCORCH,CHAR,SEAR,SINGE,IGNITE,KINDLE,BRAND:   
  127. 1360 DATA  CONSUME,CAUTERIZE,CREMATE,INCINERATE,RAGE,GLOW:  
  128. 1370 DATA  SMOLDER,BLAZE:   
  129. 1380 DATA 5,COMMERCE,BUSINESS,TRADE,INDUSTRY,TRAFFIC:   
  130. 1390 DATA 4,CALCULATE,COMPUTE,ESTIMATE,RECKON:  
  131. 1400 DATA 2,CENTRAL,MIDDLE: 
  132. 1410 DATA 3,DASH,HURRY,RUSH:
  133. 1420 DATA 2,DIFFICULT,HARD: 
  134. 1430 DATA 2,GATHER,COLLECT: 
  135. 1440 DATA 2,GLAD,HAPPY: 
  136. 1450 DATA 2,GLANCE,LOOK:
  137. 1460 DATA 2,GREET,MEET: 
  138. 1470 DATA 2,INVITE,ASK: 
  139. 1480 DATA 2,LARGE,BIG:  
  140. 1490 DATA 2,LAST,END:   
  141. 1500 DATA 2,NEAR,CLOSE: 
  142. 1510 DATA 2,PETTY,BEAUTIFUL:   
  143. 1520 DATA 2,SHOVE,PUSH::
  144. 1530 DATA 3,SILENT,STILL,QUIET: 
  145. 1540 DATA 2,SLEEPY,TIRED:   
  146. 1550 DATA 3,SMALL,TINY,LITTLE:  
  147. 1560 DATA 2,STIR,MIX:   
  148. 1570 DATA 2,TALE,STORY: 
  149. 1580 DATA 2,TWIST,TURN: 
  150. 1590 DATA 2,UNHAPPY,SAD:
  151. 1600 DATA 2,BOTHER,DISTURB: 
  152. 1610 DATA 2,CHALLENGE,DARE: 
  153. 1620 DATA 3,CHANGE,MONEY,ALTER: 
  154. 1630 DATA 2,COMPANION,FRIEND:   
  155. 1640 DATA 2,GARMENTS,CLOTHES:   
  156. 1650 DATA 2,GIFT,PRESENT:   
  157. 1660 DATA 3,MEND,REPAIR,FIX:
  158. 1670 DATA 2,PROPER,RIGHT:   
  159. 1680 DATA 2,PROTECT,DEFEND: 
  160. 1690 DATA 2,REGULAR,USUAL:  
  161. 1700 DATA 2,RETREAT,RUN:
  162. 1710 DATA 2,SEEM,APPEAR:
  163. 1720 DATA 2,SELECT,CHOOSE:  
  164. 1730 DATA 2,SPARE,EXTRA:
  165. 1740 DATA 2,SUPPLY,PROVIDE: 
  166. 1750 DATA 3,TERRIFY,FRIGHTEN,SCARE: 
  167. 1760 DATA 2,SIGNAL,SIGN:
  168. 1770 DATA 2,VOYAGE,JOURNEY: 
  169. 1780 DATA 2,WHOLE,COMPLETE: 
  170. 1790 DATA 4,AGREE,CONSENT,ALLOW,PERMIT: 
  171. 1800 DATA 4,ANGER,RAGE,HATE,DISLIKE:
  172. 1810 DATA 3,ANSWER,REPLY,RESPONSE:  
  173. 1820 DATA 2,CONCEAL,HIDE:   
  174. 1830 DATA 2,COURAGEOUS,BRAVE:   
  175. 1840 DATA 3,INSPECT,EXAMINE,STUDY:  
  176. 1850 DATA 3,LET,PERMIT,ALLOW:   
  177. 1860 DATA 5,MINUTE,MOMENT,SECOND,SMALL,TINY:
  178. 1870 DATA 3,QUICKLY,RAPIDLY,SWIFTLY:
  179. 1880 DATA 3,PERHAPS,MAYBE,POSSIBLY: 
  180. 1890 DATA 2,PLEAD,BEG:  
  181. 1900 DATA 3,PUBLISH,PRINT,ANNOUNCE: 
  182. 1910 DATA 3,REMEMBER,RECALL,RECOLLECT:  
  183. 1920 DATA 3,SCENT,ODOR,SMELL:   
  184. 1930 DATA 2,SENTINEL,GUARD: 
  185. 1940 DATA 2,SHINY,BRIGHT:   
  186. 1950 DATA 2,SUFFER,ENDURE:  
  187. 1960 DATA 6,THINK,PONDER,BELIEVE,CONTEMPLATE,CONCENTRATE,IMAGINE:   
  188. 1970 DATA 4,WONDERFUL,MARVELOUS,FANTASTIC,GREAT:
  189. 1980 DATA 4,ASTONISH,AMAZE,SURPRISE,ASTOUND:
  190. 1990 DATA 3,BENEATH,BELOW,UNDER:
  191. 2000 DATA 3,CERTAIN,SURE,POSITIVE:  
  192. 2010 DATA 6,COMPLETE,WHOLE,ENTIRE,ALL,FINISH,CONCLUDE:  
  193. 2020 DATA 2,CREVICE,CRACK:  
  194. 2030 DATA 3,FOREVER,ALWAYS,INFINITY:
  195. 2040 DATA 3,GUARD,DEFEND,PROTECT:   
  196. 2050 DATA 3,HELP,AID,ASSISTANCE:
  197. 2060 DATA 2,INTENTION,PURPOSE:  
  198. 2070 DATA 3,MOLD,SHAPE,FUNGUS:  
  199. 2080 DATA 4,PAUSE,HESITATE,REST,STOP:   
  200. 2090 DATA 2,PERISH,DIE: 
  201. 2100 DATA 3,PLEDGE,PROMISE,VOW: 
  202. 2110 DATA 2,PROBABLY,LIKELY:
  203. 2120 DATA 3,REPLY,ANSWER,RESPOND:   
  204. 2130 DATA 2,REQUIRE,NEED:   
  205. 2140 DATA 2,SAVE,RESCUE:
  206. 2150 DATA 3,TELL,STATE,DECLARE: 
  207. 2160 DATA 2,THOROUGH,COMPLETE:  
  208. 2170 DATA 2,WARN,CAUTION:   
  209. 2180 END::  
  210. ,SAVE,RESCUE:
  211. 2150 DATA 3,TELL,STATE,DECLARE: 
  212. 216