10  REM**VOCAB**C.A.I.***SYNONYM DRILL**MAY 9, 1972
15  REM VOCAB, HP 36880A, 6/74
20  DIM C$[72],E$[72],F$[72]
30  LET Z=0
40  PRINT "IN THIS EXCERCISE YOU WILL FIRST BE GIVEN A SENTENCE WITH"
50  PRINT "ONE OF THE WORDS SEPARATED FROM THE REST BY / MARKS. AFTER"
60  PRINT "THAT YOU WILL BE GIVEN FOUR WORDS. YOU ARE TO TYPE IN THE"
70  PRINT "NUMBER OF THE WORD THAT IS NEAREST IN MEANING TO THE WORD"
80  PRINT "IN THE SENTENCE."
90  PRINT "A NEW SET OF SENTENCES WAS ENTERED INTO THE COMPUTER ON"
100  PRINT "TUESDAY JULY 22, 1969"
110  PRINT '10'10'10'10'10
120  I=0
130  IF TYP(0)=3 THEN 170
140  READ C$,E$,F$,H
150  I=I+1
160  GOTO 130
170  RESTORE 
180  FOR A=1 TO I
190  READ C$
200  PRINT C$
210  READ E$
220  PRINT E$
230  READ F$
240  PRINT F$
250  INPUT C
260  READ H
270  IF C <> H THEN 330
280  PRINT "CORRECT"
290  Z=Z+1
300  PRINT 
310  NEXT A
320  GOTO 9000
330  PRINT "INCORRECT.  THE ANSWER IS "H
340  GOTO 300
350  DATA "WHEN THE NEWS CAME / RADIANT /"
360  DATA "FACES REPLACED GLOOMY ONES."
370  DATA "1 FROWNING 2 OVERHEATED 3 LONG 4 SHINING",4
380  DATA "/ COMPASSION / FOR THE LESS FORTUNATE IS"
390  DATA "ONE MARK OF A GENTLEMAN."
400  DATA "1 ENVY 2 DISLIKE 3 SYMPATHY 4 SCORN",3
410  DATA "SINCE THEY ALREADY OWNED TWO TELEVISION SETS, THE"
420  DATA "SET THEY WON WAS / SUPERFLUOUS /."
430  DATA "1 WELCOME 2 MORE THAN NEEDED 3 SUPERIOR 4 ESPECIALLY NEEDED",2
440  DATA "SHE POSSESSED MANY QUALITIES / REQUISITE /"
450  DATA "FOR LEADERSHIP."
460  DATA "1 USELESS 2 HARMFUL 3 NOT IMPORTANT 4 NECESSARY",4
470  DATA " THE / PLAINTIVE / BARKING OF A HOMELESS"
480  DATA "DOG MADE THE CHILDREN UNHAPPY/"
490  DATA "1 STACCATO 2 LOUD 3 HIGH-PITCHED 4 MOURNFUL",4
500  DATA "HE WAS SO / VOLUBLE / THAT HIS SPEECH"
510  DATA "RAN BEYOND THE ALLOTTED TIME."
520  DATA "1 TALKATIVE 2 BRIEF 3 INTERESTING 4 UPSET",1
530  DATA "IN THE WINTER SHE WAS ENERGETIC, BUT IN"
540  DATA "AUGUST SHE WAS / INDOLENT/ ."
550  DATA "1 OVERHEATED 2 LAZY 3 EAGER 4 DEPRESSED",2
560  DATA "WHEN THE SENATOR MISPLACED HIS SPEECH, HE"
570  DATA "HAD TO / IMPROVISE / HIS TALK."
580  DATA "1 CANCEL 2 CUT SHORT 3 MAKE UP ON SPUR OF THE MOMENT",3
590  DATA "HIS REASONING WAS SO / FALLACIOUS /"
600  DATA "THAT HIS CONCLUSIONS WERE ALWAYS WRONG."
610  DATA "1 UNSOUND 2 UNINTERESTING 3 ACUTE 4 SKILLFUL",1
620  DATA "THE ECONOMIC INDEPENDENCE THEY NOW ENJOY IS"
630  DATA "THE RESULT OF A LIFE OF / FRUGALITY /."
640  DATA "1 WASTE 2 THRIFT 3 ENJOYMENT 4 PURPOSE",2
650  DATA "DRIVING SUCH A BIG CAR GIVES HIM A CHANCE"
660  DATA "TO BE / PRETENTIOUS /."
670  DATA "1 SHOWY 2 SPEEDY 3 HUMBLE 4 PRACTICAL",1
680  DATA "BEING HUMAN, WE MAY"
690  DATA "BE / FALLIBLE / IN OUR JUDGMENTS."
700  DATA "1 CORRECT 2 SUPERNATURAL 3 LIKELY TO ERR 4 FAIR",3
710  DATA " HE HAD BECOME SO / OBESE / THAT HE COULD NOT"
720  DATA "BEND DOWN TO TIE HIS SHOES."
730  DATA "1 LAZY 2 STIFF 3 FAT 4 TALL",3
740  DATA "MEMBERS OF THE BASEBALL TEAM CARRIED SO MUCH/IMPEDIMENTA /WITH"
750  DATA "THEM THAT WE THOUGHT THEY WERE GOING FOR A MONTH TOUR."
760  DATA "1 MONEY 2 CORRESPONDENCE 3 FOOD 4 BAGGAGE",4
770  DATA "EVEN BEFORE HE RECEIVED NEWS OF THE ACCIDENT, HE HAD A"
780  DATA "/PREMONITION/THAT SOMETHING WOULD HAPPEN."
790  DATA "1 PROMISE 2 HOPE 3 FOREWARNING 4 LETTER",3
9000  PRINT "YOU GOT "Z" OUT OF "I" FOR "Z/I*100" %."
9010  IF I=Z THEN 9030
9020  GOTO 9040
9030  PRINT "CONGRATULATIONS, YOU GOT THEM ALL CORRECT."
9040  END 
