Spell That Word

    1 REM 
    2 REM      SPELL THAT WORD
    3 REM 
    4 REM  An original program                  written by    
    5 REM   G.F.Chambers 1985
    6 REM 
  100 BORDER 3: PAPER 7: INK 1: CLS 
  200 DIM a$(30,15): DIM b$(30,15): DIM c$(30,15)
  210 DIM d$(3,15)
  220 DIM z(30): DIM x(3)
  230 LET r=1
  240 RANDOMIZE 
  500 PRINT 'TAB 8;"SPELL THAT WORD"
  510 PRINT AT 1,8; OVER 1;"_______________"
  515 PRINT 'TAB 8;"By G F Chambers"
  520 PRINT '';"   MENU:"
  530 PRINT '"   1) Hard"
  540 PRINT '"   2) Medium"
  550 PRINT '"   3) Easy"
  570 PRINT '"   4) To save program"
  600 PRINT ''"     Enter a number (1-4)"
  610 IF INKEY$="" THEN GO TO 610
  620 LET I$=INKEY$: IF I$<"1" OR i$>"4" THEN GO TO 610
  630 IF INKEY$<>"" THEN GO TO 640
  640 IF i$="4" THEN GO TO 9900
  650 RESTORE VAL i$*300+7700
  660 LET k=0: LET m=0
 1000 FOR n=1 TO 30: READ a$(n): READ b$(n): READ c$(n): NEXT n
 1050 CLS : PRINT AT 1,2;"Which of the following words    is spelled correctly"''
 1060 GO SUB 6000
 1070 LET m=m+1: PRINT ''"   Enter the number (1,2,or 3)"
 1110 IF INKEY$="" THEN GO TO 1110
 1115 LET i$=INKEY$: IF i$<"1" OR i$>"3" THEN GO TO 1110
 1120 LET i=VAL INKEY$: IF d$(i)=a$(e) THEN PRINT ''TAB 8; INK 2; FLASH 1;"That is correct"; FLASH 0; INK 0: LET k=k+1: GO TO 1140
 1130 PRINT '' INK 2; FLASH 1;"Wrong!!"; FLASH 0; INK 0;"  The correct spelling is"''TAB 13;a$(e)
 1140 IF m=30 THEN CLS : PRINT AT 10,2;"You have ";k;" correct out of 30"
 1142 IF m=30 THEN PRINT : PRINT TAB 5; INK 2; FLASH 1;("That was excellent work" AND k>=28): PRINT TAB 11; INK 2; FLASH 1;("Very good" AND k>25 AND k<28): PRINT TAB 2; INK 2; FLASH 1;("You can do better than that" AND k<=25): FLASH 0
 1145 PRINT '"Press any key for next word set",,,"   or ""m"" to return to menu": PAUSE 0
 1150 LET i$=INKEY$: IF i$="m" THEN CLS : GO TO 100
 1200 GO TO 1050
 2000 CLS : PRINT "Needs additional word list here": STOP 
 3000 CLS : PRINT "Needs additional word list here": STOP 
 4000 CLS : PRINT "Needs additional word list here": STOP 
 5000 GO TO 9900
 6000 DIM w(3)
 6010 LET e=INT (RND*30+1)
 6020 FOR n=1 TO 30: IF e=z(n) THEN GO TO 6010
 6030 NEXT n
 6040 LET z(r)=e: LET r=r+1: IF r=28 THEN DIM z(30): LET r=1
 6100 LET y=1: DIM w(3)
 6110 LET f=INT (RND*3+1)
 6120 FOR n=1 TO 3: IF f=w(n) THEN GO TO 6110
 6130 NEXT n
 6140 LET w(y)=f
 6145 GO SUB 6150+f
 6147 LET y=y+1: IF y=4 THEN RETURN 
 6150 GO TO 6110
 6151 PRINT 'TAB 10;y;") ";a$(e): LET d$(y)=a$(e): RETURN 
 6152 PRINT 'TAB 10;y;") ";b$(e): LET d$(y)=b$(e): RETURN 
 6153 PRINT 'TAB 10;y;") ";c$(e): LET d$(y)=c$(e): RETURN 
 6160 LET y=y+1: IF y=3 THEN RETURN 
 6200 GO TO 6110
 8010 DATA "copyright","copywright","copywrite"
 8020 DATA "moccasin","mocassin","moccassin"
 8030 DATA "algebraic","algabraic","allgebraic"
 8040 DATA "antarctic","anarctic","anartic"
 8050 DATA "hormone","harmoan","harmone"
 8060 DATA "athletic","atheletic","athaletic"
 8070 DATA "rhinoceros","rhinocerous","rhinocerus"
 8080 DATA "supersede","supracede","supercede"
 8090 DATA "monocle","monicle","monacle"
 8100 DATA "gargoyles","gargoiles","gargoylls"
 8110 DATA "calendar","calander","calandar"
 8120 DATA "auxiliary","auxilliary","auxillary"
 8130 DATA "average","averege","avarage"
 8140 DATA "battalion","battallion","batallion"
 8150 DATA "buoyant","bouyant","buoyent"
 8160 DATA "embarrass","embarras","embarass"
 8170 DATA "sergeant","sargeant","sargent"
 8180 DATA "diphthong","dipthong","difthong"
 8190 DATA "parliament","parlament","parliment"
 8200 DATA "rhythmic","rhithmic","rythmic"
 8210 DATA "almanac","almanack","almanak"
 8220 DATA "dessicate","dessiccate","desiccate"
 8230 DATA "mucilage","mucilege","musilage"
 8240 DATA "religious","religeous","religous"
 8250 DATA "valise","vallise","valaise"
 8260 DATA "cinnamon","cinamon","cinnomon"
 8270 DATA "larynx","larnyx","larinx"
 8280 DATA "licorice","licorish","licoriss"
 8290 DATA "mahogany","mahagony","mahogony"
 8300 DATA "meringue","merang","meraingue"
 8310 DATA "fluorescent","fleurescent","flourescent"
 8320 DATA "graffiti","grafitti","graphitti"
 8330 DATA "hierarchy","heirarchy","heirarcky"
 8340 DATA "homogeneous","homagenous","homogenous"
 8350 DATA "anomaly","anomoly","anomely"
 8360 DATA "bailiwick","bailliwick","bailewick"
 8370 DATA "asphyxiate","asphixiate","asphixeate"
 8380 DATA "bureaucracy","burocracy","beurocracy"
 8390 DATA "bailiff","ballif","bailliff"
 8400 DATA "capillary","capilliary","cappiliary"
 8410 DATA "caffeine","caffiene","caffeinne"
 8420 DATA "carburetor","carborettor","carburetter"
 8430 DATA "catechism","catachism","catichism"
 8440 DATA "antonym","antonim","antenym"
 8450 DATA "acquittal","aquittal","acquital"
 8460 DATA "accessible","accessable","accesable"
 8470 DATA "finesse","finnesse","finnese"
 8480 DATA "exaggerate","exagerrate","exagirate"
 8490 DATA "garrulus","garralous","garallus"
 8500 DATA "bacillus","baccillus","baccilus"
 8510 DATA "bourgeois","bourgois","bourgious"
 8520 DATA "deciduous","deceduous","decidous"
 8530 DATA "euthanasia","euthenasia","euthanazia"
 8540 DATA "facsimile","faccimile","facsimele"
 8550 DATA "diaphragm","diaphram","diaphrem"
 8560 DATA "disappear","dissappear","dissapear"
 8570 DATA "exorbitant","exhorbitant","exorbetant"
 8580 DATA "emphysema","emphasema","emphesema"
 8590 DATA "empirical","emperical","empirecal"
 8600 DATA "hirsute","hirsuite","hersute"
 8610 DATA "desiccate","dessicate","dessiccate"
 8620 DATA "chassis","chassiss","chasiss"
 8630 DATA "hologram","holegram","holagram"
 8640 DATA "asylum","asyllum","asylem"
 8650 DATA "dissatisfied","disatisfied","disattisfied"
 8660 DATA "fallacy","falacy","fallicy"
 8670 DATA "harass","harrass","harras"
 8680 DATA "burglar","burgler","berglar"
 8690 DATA "erroneous","eronneous","erroneus"
 8700 DATA "digital","diggital","digittal"
 8710 DATA "binary","binery","binnary"
 8720 DATA "catechism","catachism","catichism"
 8730 DATA "envelope","envellope","envellop"
 8740 DATA "antonym","antonim","antenym"
 8750 DATA "affidavit","affadavit","affidavet"
 8760 DATA "diaphragm","diaphram","diaphregm"
 8770 DATA "acoustic","accoustic","accustic"
 8780 DATA "apparel","aparrel","aparrell"
 8790 DATA "empirical","empirrical","empirecal"
 8800 DATA "aging","ageing","aggeing"
 8810 DATA "analyse","analise","analyze"
 8820 DATA "feasibility","feasability","feasebility"
 8830 DATA "braille","braelle","braile"
 8840 DATA "culinary","cullinary","culinery"
 8850 DATA "assessor","assesser","assesor"
 8860 DATA "avoirdupois","avordupois","avourdupoise"
 8870 DATA "chaise longe","chaise lounge","chase longe"
 8880 DATA "caffeine","caffiene","caffeinne"
 8890 DATA "dinosaur","dinasaur","dinossaur"
 9997 STOP 
 9998 SAVE "spelling" LINE 10