4  REM**SPELLING AND GRAMMER CORRECTIONS REVISION BY J.ROBINSON
5  REM**FOR THE EDP RESOURCE CENTER.  3-15-78
10  DIM A$[72],B$[72]
20  C=I=W=0
30  REM
40  IF TYP(0)=3 THEN 250
50  READ A$
60  IF A$[1,1]="#" THEN 130
70  IF A$[1,1]="$" THEN 100
80  PRINT A$
90  GOTO 40
100  PRINT "THE WORD "A$[2]" MEANS:"
110  PRINT 
120  GOTO 40
130  FOR I=1 TO 2
140  PRINT 
150  PRINT "YOUR ANSWER";
160  INPUT B$
170  IF A$[2]=B$[1,1] THEN 220
180  PRINT "WRONG!!!"'7'7'7'7'7'7'7'7'7
190  NEXT I
200  W=W+1
210  GOTO 30
220  C=C+1
230  PRINT "CORRECT"
240  GOTO 30
250  PRINT  USING 260;C,W
260  IMAGE "SCORE: ",DD," CORRECT ",DD," WRONG"
270  PRINT 
280  PRINT "20-19 CORRECT...........EXCELLENT"
290  PRINT "18-16 CORRECT................GOOD"
300  PRINT "15-14 CORRECT................FAIR"
310  PRINT " 0-13 CORRECT................POOR"
320  END 
330  REM ***********************************************************
340  REM ***********************************************************
350  REM ***   THIS PROGRAM IS NOT TO BE RECOPYED UNLESS YOU     ***
360  REM ***   ARE AUTHERIZED OR BE PROSACUTED.PROGRAMED BY      ***
370  REM ***   TERRENCE J. CHEW                                  ***
380  REM ***********************************************************
390  REM ***********************************************************
400  DATA "HELLO THERE!!"'7'7'7'7'7
410  DATA "     WE ALL CAN BENEFIT FROM INCREASING OUR WORD POWER."
420  DATA "NEW WORDS HELP US BETTER EXPRESS OUR THOUGHTS IN "
430  DATA "SPOKEN OR WRITTEN FORM."
440  DATA "     THESE WORDS WILL PROBABLY BE STRANGE TO YOU AT FIRST"
450  DATA "BUT YOU WILL BE SURPRISE HOW QUICKLY NEW WORDS BECOME"
460  DATA "USEFUL."
470  DATA "GOOD LUCK!"'7'7" AND HAVE FUN."
480  DATA ""
490  DATA "DON'T BE AFRAID TO GUESS!"'7" YOU SHOULD FOLLOW YOUR HUNCHES."
500  DATA '7'7
510  DATA "$POGROM","A:SORTING PROCESS","B:MASSACRE","C:SEARCH","D:UNRULY CROWD"
520  DATA "#B"
530  DATA "THE WORD POGROM MEANS MASSACRE."
540  DATA '7
550  DATA "$AFICIONADO","A:PLAYBOY","B:OFFICAL","C:CLOSE FRIEND","D:ARDENT FAN"
560  DATA "#D"
570  DATA "THE WORD AFICIONADO MEANS ARDENT FAN."
580  DATA '7
590  DATA "$SARONG","A:LOOSE SKIRT","B:HEADBAND","C:SWIMSUIT","D:SHAWL","#A"
600  DATA "THE WORD SARONG MEANS LOOSE SKIRT."
610  DATA '7
620  DATA "$VENDETTA","A:MALICIOUS DESTRUCTION","B:PUBLIC MARKET","C:BLOOD FEUD"
630  DATA "D:FIERCE COMPETION"
640  DATA "#C"
650  DATA "THE WORD VENDETTA MEANS BLOOD FEUD."
660  DATA '7
670  DATA "$MESA","A:RIVER GORGE.","B:PLAIN.","C:MOUNTAIN RANGE."
680  DATA "D:PLATEAU.","#D"
690  DATA "THE WORD MESA MEANS PLATEAU."
700  DATA '7'7'7
710  DATA "$REGATTA","A:FANFARE","B:BOAT RACE","C:FINERY","D:PAGENT"
720  DATA "#B"
730  DATA "THE WORD REGATTA MEANS BOAT RACE."
740  DATA '7'7'7
750  DATA "$SIESTA","A:SUMMER RAIN.","B:HARVEST.","C:NAP.","D:PAGENT.","#C"
760  DATA "THE WORD SIESTA MEANS NAP."
770  DATA '7'7'7
780  DATA "$HEGIRA","A:CUSTOM.","B:FLIGHT.","C:GRAIN SORGHUM.","D:GREGARIOUS."
790  DATA "#B"
800  DATA "THE WORD HEGIRA MEANS FLIGHT."
810  DATA '7'7'7
820  DATA "$SIMPATICO","A:CONGENIAL.","B:STRAIGHTFORWARD. ","C:ARTLESS.","D:BURDEN."
830  DATA "#A"
840  DATA "THE WORD SIMPATICO MEANS CONGENIAL."
850  DATA '7'7
860  DATA "$TYCOON","A:VIOLENT STORM.","B:POWERFUL BUSINESSMAN.","C:RUTHLESS PERSON."
870  DATA "D:PRIMITIVE SHELTER.","#B"
880  DATA "THE WORD TYCOON MEANS POWERFUL BUSINESSMAN."
890  DATA '7
900  DATA "$WANDERLUST","A:SADNESS.","B:PASSION.","C:DESIRE TO TRAVEL"
910  DATA "C:DAYDREAMING.","#C"
920  DATA "THE WORD WANDERLUST MEANS A DESIRE TO TRAVEL."
930  DATA '7'7'7
940  DATA "$BLASE","A:CULTURED.","B:ALOOF.","C:EXCITED.","D:BORED."
950  DATA "#D"
960  DATA " THE WORD BLASE MEANS BORED."
970  DATA '7'7
980  DATA "$SAFARI","A:HUNTING EXPEDITION.","B:DESERT."
990  DATA "C:MULTICOLORED ROBE.","D:JUNGLE.","#A"
1000  DATA "THE WORD SAFARI MEANS HUNTING EXPEDTION."
1010  DATA '7'7'7
1020  DATA "$CABANA","A:SMALL INN.","B:MEXICAN SCARF.","C:SECRET SCHEME."
1030  DATA "D:BATHHOUSE.","#D"
1040  DATA "THE WORD CABANA MEANS BATHHOUSE."
1050  DATA '7'7'7
1060  DATA "$KUDOS","A:ORIENTAL SPORT.","B:PENALTY.","C:PRAISE."
1070  DATA "D:AFRICAN ANTELOPE.","#C"
1080  DATA "THE WORD KUDOS MEANS TO PRAISE."
1090  DATA '7'7'7
1100  DATA "$IMBROBLIO","A:COMPLICATED SITUATION.","B:STONE ENGRAVING."
1110  DATA "C:SLY INTRIGUE.","D:CONFUSION OF SOUNDS OR VOICES.","#A"
1120  DATA "THE WORD IMBROBLIO MEANS COMPLICATED SITUATION."
1130  DATA '7'7'7'7
1140  DATA "$SARI","A:RELIGIOUS TEACHER.","B:HINDU GARMENT.","C:SPICE."
1150  DATA "D:SMALL BOAT.","#B"
1160  DATA "THE WORD SARI MEANS HINDU GARMENT."
1170  DATA '7'7
1180  DATA "$MANANA","A:TOMORROW.","B:IMMEDIATELY.","C:YESTERDAY.","D:SOON."
1190  DATA "#A"
1200  DATA "THE WORD MANANA MEANS TOMORROW."
1210  DATA '7'7'7
1220  DATA "$KIOSK","A:TEMPLE.","B:BALCONY.","C:SMALL BOOTH.","D:CANOPY."
1230  DATA "#C"
1240  DATA "THE WORD KIOSK MEANS SMALL BOOTH."
1250  DATA '7'7'7
1260  DATA "$BONANZA","A:LARGEST.","B:GOODWILL.","C:BLESSING."
1270  DATA "D:WINDFALL.","#D"
1280  DATA "THE WORD BONANZA MEANS WINDFALL."
1290  DATA '7'7
1300  END 
