home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug027.ark / ANTONYMS.ASC next >
Encoding:
Text File  |  1984-04-29  |  5.8 KB  |  179 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"                      ANTONYMS"
  8. 170 PRINT"     IN THIS PROGRAM, YOU WILL FIND A COLLECTION OF ANTONYMS." 
  9. 180 PRINT "A ANTONYM OF A WORD, IN THIS PROGRAN, WILL MEAN ANOTHER"   
  10. 190 PRINT "WORD IN THE ENGLISH LANGUAGE WHICH HAS THE OPPOSITE"  
  11. 200 PRINT "OR VERY NEARLY THE OPPOSITE MEANING. *NOTE-NOT ALL ANTONYMS"  
  12. 210 PRINT "ARE IN THE COMPUTER*":PRINT
  13. 220 PRINT
  14. 230 PRINT"     I CHOOSE A WORD - YOU TYPE A ANTONYM.  IF YOU CANNOT" 
  15. 240 PRINT"THINK OF A WORD; TYPE THE WORD  HELP  .  THIS CAUSES"  
  16. 250 PRINT"A ANTONYM 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$+" YOU'R NEAR PERFECT" 
  31. 400 R$(8)="KEEP UP THE GOOD WORK "+NA$  
  32. 410 R$(9)="THAT'S 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 ANTONYMS":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 ANTONYM 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 ANTONYMS 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 ANTONYM 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 ANTONYMS." 
  89. 980 GOTO 670   
  90. 990 PRINT   
  91. 1000 PRINT" THIS ANTONYM EXERCISE IS COMPLETED." 
  92. 1010 END 
  93. 1020 DATA 81 
  94. 1030 DATA 2,AGREE,DISAGREE: 
  95. 1040 DATA 2,ADVANCE,RETREAT:
  96. 1050 DATA 2,AROUSED,CALM:   
  97. 1060 DATA 3,ARRIVE,DEPART,LEAVE:
  98. 1070 DATA 3,BUY,STEAL,TAKE: 
  99. 1080 DATA 2,BEAUTIFUL,UGLY: 
  100. 1090 DATA 2,DARING,CAUTIOUS:
  101. 1100 DATA 2,DESTROY,BUILD:  
  102. 1110 DATA 2,FAIL,SUCCEED:   
  103. 1120 DATA 2,FOR,AGAINST:
  104. 1130 DATA 2,FUTURE,PAST:
  105. 1140 DATA 2,GAIN,LOSS:  
  106. 1150 DATA 2,JOY,SORROW: 
  107. 1160 DATA 2,KIND,CRUEL: 
  108. 1170 DATA 2,LEAST,MOST: 
  109. 1180 DATA 2,LOVE,HATE:  
  110. 1190 DATA 3,NOISE,QUIET,CALM:   
  111. 1200 DATA 2,PERMIT,FORBID:  
  112. 1210 DATA 3,STOP,GO,START:  
  113. 1220 DATA 3,REFUSE,GRANT,ALLOW: 
  114. 1230 DATA 2,REMEMBER,FORGET:
  115. 1240 DATA 2,SEEK,AVOID: 
  116. 1250 DATA 3,SLOWLY,QUICKLY,RAPIDLY: 
  117. 1260 DATA 2,QUICK,SLOW: 
  118. 1270 DATA 2,WIN,LOSE:   
  119. 1280 DATA 2,WISE,FOOLISH:   
  120. 1290 DATA 2,ABOVE,BELOW:
  121. 1300 DATA 2,ALIVE,DEAD: 
  122. 1310 DATA 3,ATTACK,DEFEND,PROTECT:  
  123. 1320 DATA 2,BITTER,SWEET:   
  124. 1330 DATA 2,BUSY,IDLE:  
  125. 1340 DATA 2,CALM,ROUGH: 
  126. 1350 DATA 2,CENTER,EDGE:
  127. 1360 DATA 2,CLEAN,DIRTY:
  128. 1370 DATA 2,DAY,NIGHT:  
  129. 1380 DATA 2,EASY,HARD:  
  130. 1390 DATA 2,FAINT,LOUD: 
  131. 1400 DATA 2,FALL,SPRING:
  132. 1410 DATA 3,FAR,CLOSE,NEAR: 
  133. 1420 DATA 2,FIRST,LAST: 
  134. 1430 DATA 2,FRIEND,ENEMY:   
  135. 1440 DATA 2,GOOD,BAD:   
  136. 1450 DATA 4,HUGE,TINY,SMALL,LITTLE: 
  137. 1460 DATA 4,BEGIN,END,FINISH,COMPLETE:  
  138. 1470 DATA 2,LIBERTY,SLAVERY:
  139. 1480 DATA 3,MOST,LEAST,FEW: 
  140. 1490 DATA 2,OFTEN,RARE: 
  141. 1500 DATA 2,PLENTIFUL,SCARCE:   
  142. 1510 DATA 2,QUIET,NOISY:
  143. 1520 DATA 2,RAISE,LOWER:
  144. 1530 DATA 2,SHORT,LONG: 
  145. 1540 DATA 2,SMOOTH,ROUGH:   
  146. 1550 DATA 3,GOOD,BAD,TERRIBLE:  
  147. 1560 DATA 2,STRENGTH,WEAKNESS:  
  148. 1570 DATA 2,SUMMER,WINTER:  
  149. 1580 DATA 3,SUNNY,CLOUDY,RAINY: 
  150. 1590 DATA 2,WEAK,STRONG:
  151. 1600 DATA 2,WORST,BEST: 
  152. 1610 DATA 6,ABATE,INCREASE,INTENSIFY,HEIGHTEN,AUGMENT,AGGRAVATE:
  153. 1620 DATA 5,ABERRATION,RECTITUDE,NORMALITY,RATIONALITY,SANITY:  
  154. 1630 DATA 5,ABET,CURB,RESTRAIN,HINDER,DISSUADE: 
  155. 1640 DATA 6,ABSTRUSE,CLEAR,PLAIN,MANIFEST,OBVIOUS,EASY: 
  156. 1650 DATA 4,ACRIMONIOUS,BLAND,GENTLE,MILD:  
  157. 1660 DATA 3,ACUMEN,OBTUSENESS,DULLNESS: 
  158. 1670 DATA 6,ADAMANT,FLEXIBLE,SUBMISSIVE,PLIANT,OBLIGING,RELENTING:  
  159. 1680 DATA 8,AFFABLE,UNSOCIABLE,SURLY,TESTY,ILL-TEMPERED,CURT:   
  160. 1690 DATA RUDE,BOORISH: 
  161. 1700 DATA 4,AGGRAVATE,DECREASE,ABATE,ALLEVIATE: 
  162. 1710 DATA 6,ALACRITY,APATHY,SLOWNESS,DELAY,UNCONCERN,INDIFFERENCE:  
  163. 1720 DATA 5,ALLEVIATE,AGGRAVATE,INTENSIFY,INCREASE,MAGNIFY: 
  164. 1730 DATA 3,ALTRUISTIC,EGOISTIC,EGOCENTRIC: 
  165. 1740 DATA 5,AMITY,ENMITY,HOSTILITY,ANTIPATHY,DISCORD:   
  166. 1750 DATA 2,ANACHRONISM,SYNCHRONIZE:
  167. 1760 DATA 4,ANALOGY,DISSIMILARITY,UNLIKENESS,ANOMALY:   
  168. 1770 DATA 5,ANATHEMA,BENEDICTION,EULOGY,BLESSING,BENISON:   
  169. 1780 DATA 7,APATHY,ENTHUSIASM,INTEREST,CONCERN,ZEAL,EAGERNESS,FERVOR:   
  170. 1790 DATA 4,APOSTATE,FOLLOWER,ADHERENT,DISCIPLE:
  171. 1800 DATA 6,APT,INEPT,UNLIKELY,UNFIT,UNSUITABLE,CLUMSY: 
  172. 1810 DATA 7,ARBITRARY,FAIR,EQUITABLE,REASONABLE,CONCILIATORY:   
  173. 1820 DATA LIMITED,RESTRICTED:   
  174. 1830 DATA 7,ASCETIC,SELF-INDULGENT,SENSUAL,GLUTTONOUS:  
  175. 1840 DATA UNRESTRAINED,HEDONIST,EPICUREAN:  
  176. 1850 DATA 4,ASKANCE,DIRECTLY,CONFIDENTLY,TRUSTINGLY:
  177. 1860 DATA 3,ASKEW,STRAIGHT,SYMMETRICAL: 
  178. 1870 END:   
  179.