WORDGAME.BAS

10 '    *********************
11 '    *  GAME FOR LADIES  *
12 '    *     NEXTDOOR      *
13 '    *        BY         *
14 '    *   LEFTY FARRELL   *
15 '    * (REVISED VERSION) *
16 '    *  REVISED FOR IBM  *
17 '    *  BY: JEFF WILSON  *
18 '    *********************
19 '
20 '    :DATA OBTAINED FROM "READER'S DIGEST"
21 '
22 '
100 KEY OFF
110 SCREEN 1,0:SCREEN 0
120 CLS:PRINT:PRINT:PRINT:PRINT:PRINT "HI! I'M YOUR COMPUTER!                  LET'S PLAY A GAME."
130 PRINT:PRINT "CHOOSE ONE ANSWER FROM THE FOUR PROVIDEDWORDS OR PHRASES WHICH YOU BELIEVE IS   NEAREST IN MEANING TO THE KEY WORD."
140 PRINT:PRINT "USE THE CORRESPONDING LETTER TO ANSWER."
150 X=0
160 Z=0
170 PRINT:PRINT:INPUT "ENTER YOUR NAME AND PRESS <ENTER>       ";N$
180 CLS
190 READ K$,A1$,A2$,A3$,A4$,A5$
200 X=X+1
210 PRINT "KEY WORD: ";K$
220 PRINT:PRINT "A: ";A1$
230 PRINT "B: ";A2$
240 PRINT "C: ";A3$
250 PRINT "D: ";A4$
260 PRINT:PRINT"WHAT IS YOUR ANSWER. (A,B,C OR D) "
270 LOCATE 8,35:PRINT" ":LOCATE 8,35:LINE INPUT R$
280 IF R$<>"A" AND R$<>"B" AND R$<>"C" AND R$<>"D" THEN 270
290 IF R$=A5$ THEN PLAY"MBMLT255L64N72N71N70N69N68N67N65N64N63N62N61N60N59":PRINT:PRINT:PRINT:PRINT"CONGRATULATIONS, YOU GOT IT!":FOR DL=1 TO 1400:NEXT DL:Z=Z+1:CLS
300 IF R$<>A5$ THEN PLAY"L64;O1;P64;T255;ADCFBAGEDACGADEABCAEDB":PRINT:PRINT:PRINT:PRINT"SORRY, WRONG ANSWER...":FOR DL=1 TO 1400:NEXT DL:CLS
310 IF X=10 THEN FOR E=1 TO 6:PLAY"MBMLT255L64N59N60N61N62N63N64N65N66N67N68N69N70N71N72":NEXT E:FOR E=1 TO 300:NEXT E:GOTO 330
320 GOTO 190
330 PRINT N$;",":PRINT"YOU GOT";Z;"CORRECT OUT OF 10 WORDS."
340 A=Z*10
350 PRINT:PRINT"YOUR AVERAGE WAS";A;"%"
360 PRINT:PRINT:INPUT"DO YOU WANT TO PLAY AGAIN (Y/N) ";S$
370 IF S$="Y" OR S$="y" THEN RUN ELSE CLS:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"GOODBYE.........":FOR DL=1 TO 1800:NEXT DL:CLS:SCREEN 0,0:WIDTH 80:KEY ON
380 DATA EMPIRICAL,HAVING DELUSIONS OF GRANDEUR,ARROGANT AND EGOTISTICAL,BASED ON EXPERIENCE,DEPENDANT ON THEORY,C
390 DATA APPOSITE,CONTRARY,BITTER,APPROPRIATE,SUBTLY MISLEADING,C
400 DATA ABSTRUSE,STRONGLY DIFFERENT,OBVIOUS,HARD TO UNDERSTAND,ARTISTIC,C
410 DATA MOROSE,FOOLISH,SICKLY,GLOOMY,SARCASTIC,C
420 DATA EKE,TO GO HUNGRY,DECORATE,ESCAPE,MAKE BEST USE OF,D
430 DATA REGALE,TO COMMISERATE,CONTROL,ENTERTAIN,RETREAT,C
440 DATA OPAQUE,NOT TRANSPARENT,SLANTING,DISGUISED,EGG-SHAPED,A
450 DATA RAIL,TO COME TOGETHER,ABUSE,DEBATE,REVIVE,B
460 DATA DISPEL,TO EXTRACT,DIVIDE,REPLACE,SCATTER,D
470 DATA PENITENCE,RELIEF,REMORSE,DECEIT,ANGER,B