CP/M/CPM_CDROM.iso/mbug/mbug044.arc/ANTONYMS.BAS

BASIC Source File | 1979-12-31 | 6KB | 180 lines

100 REM MODERNIZED BY DAVE NIXON JAN. 16 1977
110 CLEAR 300
120 DEFINT A-Z
130 N3=1
140 DIM R$(10),W$(20),L(20),T(150)
150 INPUT "WHAT IS YOUR NAME";NA$
160 PRINT"                      ANTONYMS"
170 PRINT"     IN THIS PROGRAM, YOU WILL FIND A COLLECTION OF ANTONYMS."
180 PRINT "A ANTONYM OF A WORD, IN THIS PROGRAN, WILL MEAN ANOTHER"
190 PRINT "WORD IN THE ENGLISH LANGUAGE WHICH HAS THE OPPOSITE"
200 PRINT "OR VERY NEARLY THE OPPOSITE MEANING. *NOTE-NOT ALL ANTONYMS"
210 PRINT "ARE IN THE COMPUTER*":PRINT
220 PRINT
230 PRINT"     I CHOOSE A WORD - YOU TYPE A ANTONYM.  IF YOU CANNOT"
240 PRINT"THINK OF A WORD; TYPE THE WORD  HELP  .  THIS CAUSES"
250 PRINT"A ANTONYM TO BE PRINTED."
260 PRINT
270 NR=9:NE=5
280 E$(1)="BETTER LUCK NEXT TIME "+NA$
290 E$(2)="WIN SOME LOSE SOME"
300 E$(3)="TRY HARDER NEXT TIME "+NA$
310 E$(4)=NA$+" I KNOW YOU CAN DO BETTER THAN THAT"
320 E$(5)=NA$+" I AM ASHAMED OF YOU"
330 LET R$(1)="CORRECT"
340 LET R$(2)="VERY GOOD"
350 LET R$(3)="FINE"
360 LET R$(4)="GOOD"
370 LET R$(5)="GOOD GOING"
380 R$(6)="RIGHT ON "+NA$
390 R$(7)=NA$+" YOU'R NEAR PERFECT"
400 R$(8)="KEEP UP THE GOOD WORK "+NA$
410 R$(9)="THAT'S THE WAY! "+NA$
420 PRINT
430 PRINT
440 RESTORE
450 READ N
460 I=1:E=0:NT=2
470 LET N1=INT(RND(1)*N+1)
480 IF N3>N THEN PRINT:PRINT "NO MORE ANTONYMS":GOTO 1000
490 IF N1=T(I) THEN GOTO 460 ELSE I=I+1:IF I<N3 GOTO 490
500 T(N3)=N1:N3=N3+1
510 I=0
520 READ N2
530 N4=2
540 FOR J=1 TO N2
550 READ W$(J)
560 NEXT J
570 I=I+1:IF I<N1 GOTO 520
580 FOR J=1 TO N2
590 LET L(J)=J
600 NEXT J
610 LET L(0)=N2
620 LET G=1
630 PRINT
640 LET L(G)=L(L(0))
650 LET L(0)=N2-1
660 PRINT
670 PRINT "    WHAT IS A ANTONYM OF ";W$(G);
680 INPUT A$
690 IF A$="HELP" THEN 870
700 FOR J=2 TO N2:IF A$=W$(J) THEN GOTO 810 ELSE NEXT J
710 FOR J=2 TO N2
720 CT=LEN(W$(J))
730 IF CT<5 GOTO 780
740 FOR I1=1 TO LEN(W$(J))
750 IF MID$(W$(J),I1,1)=MID$(A$,I1,1) THEN CT=CT-1
760 NEXT I1
770 IF CT<3 THEN PRINT "CHECK YOUR SPELLING"
780 NEXT J
790 PRINT "   TRY AGAIN. ";
800 GOTO 670
810 IF J<>L1 THEN E=0
820 IF E=1 THEN PRINT E$(RND(1)*NE+1)ELSEPRINT R$(RND(1)*NR+1)
830 IF N2=2 THEN GOTO 440
840 PRINT "ALL THE ANTONYMS THAT I HAVE ARE"
850 FOR P=2 TO N2:PRINT W$(P),:NEXT P
860 GOTO 440
870 LET G1=INT(RND(1)*L(0)+1)
880 E=1
890 IF L(0)=0 THEN 970
900 PRINT "**** A ANTONYM OF ";W$(G);" IS ";W$(L(G1));"."
910 IF N2>N4 THEN PRINT "THERE ARE OTHERS":N4=N4+1
920 PRINT
930 L1=L(G1)
940 LET L(G1)=L(L(0))
950 LET L(0)=L(0)-1
960 NT=NT+1:IF NT>N2 THEN GOTO 440 ELSE GOTO 670
970 PRINT "THERE ARE NO MORE ANTONYMS."
980 GOTO 670
990 PRINT
1000 PRINT" THIS ANTONYM EXERCISE IS COMPLETED."
1010 END
1020 DATA 81
1030 DATA 2,AGREE,DISAGREE:
1040 DATA 2,ADVANCE,RETREAT:
1050 DATA 2,AROUSED,CALM:
1060 DATA 3,ARRIVE,DEPART,LEAVE:
1070 DATA 3,BUY,STEAL,TAKE:
1080 DATA 2,BEAUTIFUL,UGLY:
1090 DATA 2,DARING,CAUTIOUS:
1100 DATA 2,DESTROY,BUILD:
1110 DATA 2,FAIL,SUCCEED:
1120 DATA 2,FOR,AGAINST:
1130 DATA 2,FUTURE,PAST:
1140 DATA 2,GAIN,LOSS:
1150 DATA 2,JOY,SORROW:
1160 DATA 2,KIND,CRUEL:
1170 DATA 2,LEAST,MOST:
1180 DATA 2,LOVE,HATE:
1190 DATA 3,NOISE,QUIET,CALM:
1200 DATA 2,PERMIT,FORBID:
1210 DATA 3,STOP,GO,START:
1220 DATA 3,REFUSE,GRANT,ALLOW:
1230 DATA 2,REMEMBER,FORGET:
1240 DATA 2,SEEK,AVOID:
1250 DATA 3,SLOWLY,QUICKLY,RAPIDLY:
1260 DATA 2,QUICK,SLOW:
1270 DATA 2,WIN,LOSE:
1280 DATA 2,WISE,FOOLISH:
1290 DATA 2,ABOVE,BELOW:
1300 DATA 2,ALIVE,DEAD:
1310 DATA 3,ATTACK,DEFEND,PROTECT:
1320 DATA 2,BITTER,SWEET:
1330 DATA 2,BUSY,IDLE:
1340 DATA 2,CALM,ROUGH:
1350 DATA 2,CENTER,EDGE:
1360 DATA 2,CLEAN,DIRTY:
1370 DATA 2,DAY,NIGHT:
1380 DATA 2,EASY,HARD:
1390 DATA 2,FAINT,LOUD:
1400 DATA 2,FALL,SPRING:
1410 DATA 3,FAR,CLOSE,NEAR:
1420 DATA 2,FIRST,LAST:
1430 DATA 2,FRIEND,ENEMY:
1440 DATA 2,GOOD,BAD:
1450 DATA 4,HUGE,TINY,SMALL,LITTLE:
1460 DATA 4,BEGIN,END,FINISH,COMPLETE:
1470 DATA 2,LIBERTY,SLAVERY:
1480 DATA 3,MOST,LEAST,FEW:
1490 DATA 2,OFTEN,RARE:
1500 DATA 2,PLENTIFUL,SCARCE:
1510 DATA 2,QUIET,NOISY:
1520 DATA 2,RAISE,LOWER:
1530 DATA 2,SHORT,LONG:
1540 DATA 2,SMOOTH,ROUGH:
1550 DATA 3,GOOD,BAD,TERRIBLE:
1560 DATA 2,STRENGTH,WEAKNESS:
1570 DATA 2,SUMMER,WINTER:
1580 DATA 3,SUNNY,CLOUDY,RAINY:
1590 DATA 2,WEAK,STRONG:
1600 DATA 2,WORST,BEST:
1610 DATA 6,ABATE,INCREASE,INTENSIFY,HEIGHTEN,AUGMENT,AGGRAVATE:
1620 DATA 5,ABERRATION,RECTITUDE,NORMALITY,RATIONALITY,SANITY:
1630 DATA 5,ABET,CURB,RESTRAIN,HINDER,DISSUADE:
1640 DATA 6,ABSTRUSE,CLEAR,PLAIN,MANIFEST,OBVIOUS,EASY:
1650 DATA 4,ACRIMONIOUS,BLAND,GENTLE,MILD:
1660 DATA 3,ACUMEN,OBTUSENESS,DULLNESS:
1670 DATA 6,ADAMANT,FLEXIBLE,SUBMISSIVE,PLIANT,OBLIGING,RELENTING:
1680 DATA 8,AFFABLE,UNSOCIABLE,SURLY,TESTY,ILL-TEMPERED,CURT:
1690 DATA RUDE,BOORISH:
1700 DATA 4,AGGRAVATE,DECREASE,ABATE,ALLEVIATE:
1710 DATA 6,ALACRITY,APATHY,SLOWNESS,DELAY,UNCONCERN,INDIFFERENCE:
1720 DATA 5,ALLEVIATE,AGGRAVATE,INTENSIFY,INCREASE,MAGNIFY:
1730 DATA 3,ALTRUISTIC,EGOISTIC,EGOCENTRIC:
1740 DATA 5,AMITY,ENMITY,HOSTILITY,ANTIPATHY,DISCORD:
1750 DATA 2,ANACHRONISM,SYNCHRONIZE:
1760 DATA 4,ANALOGY,DISSIMILARITY,UNLIKENESS,ANOMALY:
1770 DATA 5,ANATHEMA,BENEDICTION,EULOGY,BLESSING,BENISON:
1780 DATA 7,APATHY,ENTHUSIASM,INTEREST,CONCERN,ZEAL,EAGERNESS,FERVOR:
1790 DATA 4,APOSTATE,FOLLOWER,ADHERENT,DISCIPLE:
1800 DATA 6,APT,INEPT,UNLIKELY,UNFIT,UNSUITABLE,CLUMSY:
1810 DATA 7,ARBITRARY,FAIR,EQUITABLE,REASONABLE,CONCILIATORY:
1820 DATA LIMITED,RESTRICTED:
1830 DATA 7,ASCETIC,SELF-INDULGENT,SENSUAL,GLUTTONOUS:
1840 DATA UNRESTRAINED,HEDONIST,EPICUREAN:
1850 DATA 4,ASKANCE,DIRECTLY,CONFIDENTLY,TRUSTINGLY:
1860 DATA 3,ASKEW,STRAIGHT,SYMMETRICAL:
1870 END:
ST,EPICUREAN:
1850 DATA 4,A