10 REM PLUS.ECB
  100 REM *** LAST REVISED ON 06-06-78 ***          R.E.H.
  110 REM ... DOTS AND PLUSES *WORD* GAME -BY RALPH HOPKINS.
  120 REM ... MTC ENGINEER---EAGAN, MINN.(PLANT 8---55121)
  130 DIM S$(70),P(17),D(17),M$(55),N$(60)
  140 LET W9=0: LET L9=0: LET T9=0: LET G9=0
  150 LET S$="                                              "
  160 PRINT "&K&J&J": LET S$=S$+S$
  170 LET A1$=" "
  180 LET M$="  REMINDER !  NO TWO LETTERS ARE THE SAME !!!"
  190 LET N$=" MORE THAN 2 LETTERS ENTERED BETWEEN COMMAS ! ---->"
  200 PRINT A1$,"******************************"
  210 PRINT A1$,"**                          **"
  220 PRINT A1$,"**      DOTS AND PLUSES     **"
  230 PRINT A1$,"**         WORD GAME        **"
  240 PRINT A1$,"**                          **"
  250 PRINT A1$,"******************************&J"
  260 LET D$="D": REM .....*** FOR DE-BUG ***
  270 PRINT A1$,"  DO YOU WANT THE RULES? "
  280 INPUT (1,150)"          ANSWER Y=YES  OR  N=NO --->",Y$
  290 IF Y$="N" THEN 390 ELSE  PRINT "&K"
  300 PRINT
  310 PRINT " I AM THINKING OF A FOUR LETTER WORD.  TRY TO GUESS"
  320 PRINT " MY  WORD  AND I WILL GIVE YOU CLUES AS FOLLOWS:"
  330 PRINT "     DOT - ONE LETTER CORRECT BUT  IN THE WRONG POSITION"
  340 PRINT "    PLUS - ONE LETTER CORRECT AND  IN THE RIGHT POSITION"
  350 PRINT "    GOOSE EGG - NO LETTERS CORRECT!!"
  360 PRINT
  370 PRINT "* * *  EXIT THIS GAME BY ENTERING THE WORD  *GIVE*  * * *"
  380 INPUT (1,150)"ARE YOU READY ? (ENTER Y=YES )",I$
  390 PRINT "&K": CURSOR 7,8
  400 REM ... RANDOM  NUMBER PICKED FOR 1440 POSSIBLE WORDS !!!
  405 LET W=INT(RND(0)*1440+1)
  410 LET Q$=A1$: REM ... WORDS IN THE LIST
  420 PRINT "ONE MOMENT PLEASE....I'M THINKING OFF A WORD."
  430 FOR X=1 TO W: REM ... READ 'W' WORDS TO SELECT
  440   READ W$: REM ... THE WORD FROM THE DATA LIST
  450 NEXT X: REM ... LINES 1000-26100
  460 RESTORE
  470 FOR X=1 TO 4: REM ... BREAK-UP THE WORD READ
  480   LET E$=W$(X,X)
  490   LET W(X)=ASC(E$)
  500 NEXT X
  510 IF I$=D$ THEN  PRINT " W, W$= ",W,W$,W(1);W(2);W(3);W(4)
  520 PRINT "&K": CURSOR 6,1
  530 PRINT A1$,"O.K.  I HAVE A WORD READY",A1$,A1$,A1$,A1$
  535 LET G=0
  540 LET G=G+1: REM ... GET 16 GUESSES
  550 PRINT "       ENTER A  4  LETTER WORD----GUESS # ";G
  560 IF G<4 THEN  PRINT A1$;"EXAMPLE:     GIVE   ( THE GAME-EXIT WORD)===> ";
  570 INPUT (4,0)G$
  580 PRINT : LET L=LEN(G$)
  590 IF G$="GIVE" THEN  GOSUB 2640 ELSE 610
  600 IF Q$="Y" THEN 2590 ELSE 550
  610 IF I$=D$ THEN  PRINT A1$;L;" CHARACTERS INPUTED"
  620 IF I$=D$ THEN  PRINT "*** ";G$;" *** WAS THE WORD ENTERED."
  630 IF L<>4 THEN  PRINT A1$;"*";L;"*  LETTERS ENTERED.  4 LETTERS PLEASE !"
  640 IF L<>4 THEN 550
  650 FOR X=1 TO 4: REM ... BREAK-UP THE WORD INPUTTED
  660   LET E$=G$(X,X)
  670   LET G(X)=ASC(E$)
  680 NEXT X
  690 LET G2=G*4: LET G1=G2-3: LET S$(G1,G2)=G$
  700 IF I$=D$ THEN  PRINT "G$= ";G$,G(1);G(2);G(3);G(4)
  720 FOR X=1 TO 3: REM ... ARE ANY TWO LETTERS THE SAME
  730   FOR Y=X+1 TO 4
  740     IF G$(X,X)=G$(Y,Y) THEN  PRINT M$,G$: REM ... 2 LETTRS ARE =
  750     IF G$(X,X)=G$(Y,Y) THEN  EXIT 550
  760   NEXT Y
  770 NEXT X
  780 LET D=0: LET P=0: LET X=0
  790 LET X=X+1
  795 LET Y=0
  800 LET Y=Y+1
  810 IF X=Y THEN 840
  820 IF G$(X,X)=W$(Y,Y) THEN  LET D=D+1
  830 IF G$(X,X)=W$(Y,Y) THEN 850
  840 IF Y<4 THEN 800
  850 IF X<4 THEN 790
  860 FOR J=1 TO 4: REM ... COUNT PLUSES.
  870   IF G$(J,J)=W$(J,J) THEN  LET P=P+1
  880 NEXT J
  890 LET P(G)=P: REM ... SAVE 'PLUSES' COUNT
  900 LET D(G)=D: REM ... SAVE  'DOTS'  COUNT
  910 IF G>1 AND G<7 THEN  PRINT A1$,"PREVIOUS GUESSES--->(WORD---DOTS:PLUSES)"
  920 IF G=1 THEN  PRINT A1$,"PREVIOUS GUESS--->(WORD---DOTS:PLUSES)"
  930 FOR X=1 TO G
  935   LET G2=X*4: LET G1=G2-3
  940   PRINT A1$;S$(G1,G2);A1$;D(X);P(X),
  950 NEXT X
  960 PRINT : PRINT
  970 IF D+P>0 THEN  PRINT A1$,"****YOU GOT ";D; ELSE 1000
  980 IF D=1 THEN  PRINT " DOT AND ";P; ELSE  PRINT " DOTS AND ";P;
  990 IF P=1 THEN  PRINT " PLUS.****",A1$ ELSE  PRINT " PLUSES.****",A1$
 1000 IF P=4 THEN 2590
 1010 IF D+P=0 THEN  PRINT A1$,"HEY TURKEY - - YOU GOT A GOOSE EGG !!!",A1$,A1$
 1020 IF G>14 THEN  PRINT A1$,"ARE YOU EVER DUMB ! ! !",A1$,A1$,A1$,A1$
 1030 IF G<17 THEN 540
 1040 DATA "ABLE","ABLY","ABED","ABUT","ACHE","ACHY","ACTS","ACID","AGED","AGUE"
 1050 DATA "AHOY","AHEM","AKIN","AMPS","AMID","AMOK","AMEN","ANTS","ALTO","ANEW"
 1060 DATA "ANUS","APEX","ARCH","ARMS","ARTS","ARID","ASHY","ATOM","ATOP","AUTO"
 1070 DATA "ARMY","AUNT","AWRY","AWED","AXLE","AXEL","AXED","AXIS","AVOW","AVER"
 1080 DATA "BACK","BALD","BALK","BALM","BAND","BANG","BANK","BANT","BARN","BARK"
 1090 DATA "BARK","BARS","BARD","BASH","BASK","BIRD","BATH","BATS","BADE","BAKE"
 1100 DATA "BAIL","BARE","BASE","BAIT","BEAD","BEAK","BEAM","BEAN","BEAT","BEAU"
 1110 DATA "BETS","BEST","BEND","BENT","BELT"
 1115 DATA "BECK","BIDE","BIKE","BILE","BITE"
 1120 DATA "BILK","BINS","BIND","BITS","BISK","BLUE","BLUR","BLIP","BLOT","BLOW"
 1130 DATA "BLED","BLEW","BRAN","BRAT","BRAE","BRAY","BRIG","BRIM","BROW","BRED"
 1140 DATA "BREW","BRAD","BRAG","BOAT","BOAR"
 1145 DATA "BODY","BOIL","BOLD","BOLT","BOND"
 1150 DATA "BONK","BORN","BOPS","BOSH","BOWS","BOXS","BOGS","BOYS","BODE","BORE"
 1160 DATA "BONE","BOUT","BUCK","BUDS","BUGS","BULK","BUNS","BUNK","BUMS","BUNT"
 1170 DATA "BURN","BURY","BUMP","BURP","BUSH"
 1175 DATA "BUST","BUSY","BUYS","BUDY","BYTE"
 1180 DATA "CADY","CAGE","CAKE","CAME","CAPE","CARE","CASE","CAVE","CITE","COPE"
 1190 DATA "COKE","COAL","COLE","CONE","CORE","COVE","CURE","CUTE","CUTS","CANS"
 1200 DATA "CANE","CAFE","CABS","CADS","CALF","CALK","CALM","CAMP","CANT","CARD"
 1210 DATA "CARS","CARP","CART","CASK","CASH","CAST","CATS","CENT","CHAD","CHAP"
 1220 DATA "CHAT","CHAW","CHAR","CHEW","CHID","CHIN","CHIP","CHIT","CHOW","CHUB"
 1230 DATA "CHUG","CHUM","CIST","CITY","CLAD"
 1235 DATA "CLAN","CLAP","CLAW","CLAM","CLAY"
 1240 DATA "CLIP","CLOD","CLOT","CLOY","CLUB","COAL","COAT","COBS","CODS","COED"
 1250 DATA "COIL","COIN","COGS","COLD","COLT","COMB","CONK","COPS","CORD","CORK"
 1260 DATA "COST","COTS","COWL","COWS","CRAB","CRAG","CRAP","CRAW","CRAS","CRAM"
 1270 DATA "CREW","CRIB","CROP","CROW","CRUX","CUES","CULT","CURB","CURD","CURT"
 1280 DATA "CUPS","CYME","CYST","CZAR"
 1290 DATA "DOCK","DALE","DAME","DARE","DATE","DAZE","DIKE","DINE","DIME","DIVE"
 1300 DATA "DOLE","DOME","DOPE","DOSE","DOTE","DOVE","DOZE","DUCE","DUNE","DUPE"
 1310 DATA "DEAL","DEAF","DEAN","DEAR","DENS","DENT","DAMP","DANK","DUCK","DUMP"
 1320 DATA "DONE","DAFT","DAMN","DANK","DARK","DAMP","DARN","DART","DASH","DAUB"
 1330 DATA "DAWN","DECK","DEFT","DEFY","DREG","DENT","DENS","DESK","DIGS","DIMS"
 1340 DATA "DING","DIPS","DIRT","DISC","DISK","DISH","DOCK","DOGS","DOLT","DONG"
 1350 DATA "DOTS","DOUR","DOWN","DRAB","DRAG","DRAT","DRAW","DRAY","DREG","DREW"
 1360 DATA "DRIB","DRIP","DROP","DRUB","DRUG","DRUM","DUCK","DUCT","DUES","DUKE"
 1370 DATA "DUMB","DUMP","DUNG","DUNK","DUSK","DUST","DUTY","DYES","DYKE"
 1380 DATA "EAST","EASY","EARS","EARN","EARL","EATS","EBON","ECHO","ECRU","EDGY"
 1390 DATA "EDIT","EGOS","ELAN","EMIR","EMIT","ENDS","ENVY","EONS","EPIC","ERST"
 1400 DATA "ERAS","ESPY","ETCH","EVIL","EXIT"
 1410 DATA "FACE","FACT","FADE","FADS","FAIL","FAIN","FAIR","FAKE","FAME","FANG"
 1420 DATA "FANS","FARE","FARM","FAST","FATE","FATS","FAUN","FAWN","FAZE","FEAR"
 1430 DATA "FEAT","FELT","FEND","FERN","FEUD","FIBS","FIGS","FILE","FILM","FINS"
 1440 DATA "FIND","FINE","FINK","FIRE","FIRM","FISH","FITS","FLAG","FLAP","FLAT"
 1450 DATA "FLAW","FLAX","FLAY","FLAM","FLEA","FLED","FLEW","FLEX","FLIP","FLIT"
 1460 DATA "FLOE","FLOP","FLOW","FLUE","FLUX","FLUB","FOAM","FOIL","FOGS","FOLD"
 1470 DATA "FOLK","FOND","FONT","FORD","FORE","FORM","FORK","FORT","FOUL","FOUR"
 1480 DATA "FOWL","FOXY","FRAY","FRET","FRIT","FROG","FROM","FUEL","FUME","FUND"
 1490 DATA "FUNK","FURS","FURY","FUSE"
 1500 DATA "GABY","GALE","GAME","GONE","GAPE","GATE","GAZE","GAIN","GAIT","GORE"
 1510 DATA "GOAT","GEAR","GLUE","GALS","GAMY","GARB","GASH","GASP","GAUD","GAWK"
 1520 DATA "GELD","GEMS","GENT","GETS","GERM","GIBE","GIFT","GHAT","GILD","GILT"
 1530 DATA "GIMP","GIRD","GIRL","GIRT","GIST","GLOB","GLAD","GLOW","GLEN","GLUM"
 1540 DATA "GLIB","GLUT","GLIM","GNAT","GNAW","GOBS","GOAD","GOAL","GOBS","GODS"
 1550 DATA "GOLD","GOLF","GOSH","GOUT","GOWN","GRAB","GRAT","GRAM","GREW","GREY"
 1560 DATA "GRID","GRIM","GRIN","GRIP","GRIT","GROW","GRUB","GULF","GULP","GUMS"
 1570 DATA "GUNS","GUSH","GUTS","GUYS","GYMS","GYRO","GYVE"
 1580 DATA "HACK","HALT","HAIL","HAIR","HALE","HALF","HALT","HAMS","HAND","HANG"
 1590 DATA "HARD","HARE","HARK","HARM","HARP","HART","HASP","HATE","HATS","HAUL"
 1600 DATA "HAWK","HAZE","HAZY","HEAD","HEAL","HEAR","HEAP","HEAT","HECK","HEFT"
 1610 DATA "HELD","HELP","HEIR","HEMP","HEMS","HENS","HERD","HERB","HERO","HEXS"
 1620 DATA "HERS","HEWN","HICK","HIKE","HILT","HIND","HINT","HIRE","HIPS","HITS"
 1630 DATA "HIVE","HOAX","HOCK","HOGS","HOLE","HOLD","HOME","HONE","HONK","HOPE"
 1640 DATA "HOPS","HORN","HOSE","HOTS","HOUR","HOWL","HUES","HUGE","HUGS","HULA"
 1650 DATA "HULK","HUMS","HUNG","HUNK","HUNT","HUMP","HURL","HURT","HUSK","HUTS"
 1660 DATA "HYPO"
 1670 DATA "IBEX","ICED","ICEY","ICON","IDEA","IDLE","IDLY","IDYL","IDOL","IMPS"
 1680 DATA "INKS","INKY","IONS","IOTA","IRKS","IRON","ISLE","ITCH","ITEM"
 1690 DATA "JABS","JACK","JAIL","JAMS","JARS","JAWS","JEAN","JERK","JEST","JETS"
 1700 DATA "JIBE","JIBS","JIGS","JILT","JINK","JINX","JIVE","JOBS","JOCK","JOLT"
 1710 DATA "JOGS","JOKE","JOSH","JOTS","JOWL","JUDO","JUGS","JUMP","JUNK","JURY"
 1720 DATA "JUST","JURY","JADE","JAMB","JOIN","JOYS"
 1730 DATA "KAME","KEGS","KELP","KEMP","KEPT","KEYS","KIDS","KILN","KILO","KILT"
 1740 DATA "KING","KIND","KITE","KNAP","KNIT","KNOB","KNOT","KNOW","KAYO","KNEW"
 1750 DATA "LABS","LACE","LACK","LADS","LADY","LAID","LAIN","LAIR","LAKE","LAMB"
 1760 DATA "LAME","LANE","LATE  LAMP","LAND","LARD","LARK","LASH","LAST","LATH"
 1770 DATA "LAUD","LAWN","LAWS","LAYS","LEAD","LEAF","LEAN","LEAP","LEFT","LEND"
 1780 DATA "LENT","LEPT","LEST","LICK","LIEU","LIED","LIEN","LIFT","LIMP","LINK"
 1790 DATA "LICE","LIFE","LIKE","LINE","LIME","LITE","LIVE","LINT","LIPS","LIST"
 1800 DATA "LOBE","LONE","LORE","LOVE","LOPE","LOAD","LOAF","LOAM","LOAN","LOBS"
 1810 DATA "LUTE","LUMP","LOCH","LOCK","LOFT"
 1815 DATA "LOIN","LOGS","LONG","LOPS","LORN"
 1820 DATA "LOST","LOUD","LOUT","LUCK","LUGS","LUNG","LURK","LUSH","LUST","LYCH"
 1830 DATA "LYRE"
 1840 DATA "MACE","MAKE","MALE","MANE","MARE","MESA","MATE","MAZE","MAID","MAIL"
 1850 DATA "MAIN","MALT","MARL","MARK","MART","MASH","MASK","MAST","MATH","MATS"
 1860 DATA "MAUL","MELD","MELT","MEND","MENS","MENU","MESH","MEAD","MEAL","MEAN"
 1870 DATA "MEAT","MICE","MILE","MIKE","MIRE","MINE","MITE","MILD","MILK","MILT"
 1880 DATA "MIND","MINK","MINT","MINX","MITS","MIST","MOAN","MOBS","MOCK","MODE"
 1890 DATA "MOIL","MOLD","MOLT","MOPS","MORN","MOST","MOTH","MOWS","MOLE","MOPE"
 1900 DATA "MORE","MOVE","MUCH","MUCK","MUGS","MURK","MUSH","MUSK","MUST","MULE"
 1910 DATA "MUSE","MUTE","MYTH"
 1920 DATA "NABS","NAGS","NAIL","NAME","NAPE","NARD","NAVE","NAVY","NEAP","NEAR"
 1930 DATA "NEAT","NECK","NEST","NETS","NEWS","NEXT","NICE","NICK","NIGH","NIPS"
 1940 DATA "NODE","NODS","NOEL","NOPE","NORM","NOSE","NOSY","NOTE","NOVA","NUDE"
 1950 DATA "NUMB","NUTS"
 1960 DATA "OAKS","OARS","OATS","OATH","OBEY","ODIC","OGLE","OGRE","OHMS","OILS"
 1970 DATA "OILY","OKRA","OLAY","OMEN","OMIT","ONCE","ONES","ONLY","OINK","ONYX"
 1980 DATA "ORYX","OPAL","OPEN","ORGY","ORAL","OUCH","OURS","OUST","OUTS","OVAL"
 1990 DATA "OVUM","OVER","OWLS","OWNS","OWED","OXEN"
 2000 DATA "PACK","PACT","PADS","PALM","PALS","PANT","PART","PARK","PAST"
 2010 DATA "PATS","PAWN","PAWL","PAWS","PATH","PACE","PAGE","PANE","PARE"
 2020 DATA "PAVE","PAID","PAIL","PAIN","PAIR","PANG","PEAL","PEAK","PEAR"
 2030 DATA "PEAT","PEGS","PECK","PELT","PENT","PERK","PERT","PEST","PETS"
 2040 DATA "PICK","PIER","PIED","PIGS","PINS","PING","PINK","PINT","PITS"
 2050 DATA "PITY","PITH","PIKE","PILE","PINE","PLEA","PLOD","PLOW","PLOY"
 2060 DATA "PLAN","PLAY","PRAY","PLED","PLUG","PLUM","PLUS","PODS","PICA"
 2070 DATA "PORE","POSE","PROD","PROW","PRIM","PREY","PUCE","PUCK","PUNS"
 2080 DATA "PUNK","PUNT","PURL","PUSH","PUTS","PENS","PALE","PIXY","PYRE"
 2090 DATA "QUAD","QUAG","QUAI","QUAY","QUIB","QUID","QUIP","QUIT","QUIZ"
 2100 DATA "RACE","RACK","RACY","RAFT","RAMP","RANG","RASP","RAID","RAIL","RANK"
 2110 DATA "RAIN","RANT","RASH","RATS","RAGE","RAKE","RAPE","RATE","RAVE","RAZE"
 2120 DATA "RELY","REND","RENT","REST","READ","REAM","REAP","RIBS","RICE","RIGS"
 2130 DATA "RICH","RIDE","RIFT","RILE","RIMS","RIND","RIPE","RISE","RITE","RING"
 2140 DATA "RINK","RIPS","RISK","ROAN","ROBE","ROBS","ROCK","RODE","RODS","ROIL"
 2150 DATA "ROLE","ROMP","RAPE","ROSE","ROTE","ROTS","ROUT","ROVE","ROWS","RUDE"
 2160 DATA "RUES","RUGS","RULE","RUNE","RUNG","RUNS","RUNT","RUSE","RUSH","RUST"
 2170 DATA "RUTS"
 2180 DATA "SAFE","SAGE","SALE","SAKE","SAME","SANE","SAID","SAIL","SACK","SALT"
 2190 DATA " SAND","SANG","SANK","SAWN","SCAB","SCAD","SCAN","SCAR","SCAT","SCOT"
 2200 DATA "SCOW","SCUD","SCUM","SCUT","SECT","SKEG","SELF","SEND","SENT","SERF"
 2210 DATA "SEAL","SEAM","SEAR","SEAT","SEXY","SHAD","SHAG","SHAM","SHED","SHIM"
 2220 DATA "SHIN","SHIP","SHOD","SHOE","SHOP","SHOT","SHOW","SHUN","SHUT","SIDE"
 2230 DATA "SINE","SIRE","SITE","SIZE","SICK","SIFT","SIGH","SIGN","SILK","SILT"
 2240 DATA "SING","SINK","SKEG","SKID","SKIM","SKIN","SKIP","SKIT","SKEW","SLAB"
 2250 DATA "SLAG","SLAP","SLAT","SLAW","SLAY","SLAM","SLED","SLID","SLIM","SLIP"
 2260 DATA "SLIT","SLOE","SLOT","SLOW","SLUG","SLUM","SLUR","SLUT","SMIT","SMUG"
 2270 DATA "SMUT","SNAG","SNAP","SNIP","SNOT","SNOW","SNUB","SNUG","SOAP","SOCK"
 2280 DATA "SODA","SOFA","SOFT","SOIL","SOLD","SONG","SORE","SORT","SOUP","SOUL"
 2290 DATA "SOUR","SOLE","SOME","SPAN","SPAR","SPAT","SPAY","SPED","SPIN","SPOT"
 2300 DATA "SPRY","SPUD","SPUN","SPUR","STAB","STAG","STAR","STAY","STEM","STEP"
 2310 DATA "STEW","STIR","STOP","STOW","STUB","STUD","STUN","STYE","SUCH","SUCK"
 2320 DATA "SUED","SUET","SULK","SUIT","SUNG","SUNK","SURE","SURF","SWAB","SWAG"
 2330 DATA "SWAN","SWAP","SWAY","SWAM","SWIG","SWIM","SWOT","SWUM"
 2340 DATA "TABS","TACK","TALC","TALK","TAKE"
 2345 DATA "TAME","TAPE","TARE","TAIL","TAMP"
 2350 DATA "TANK","TARN","TASK","TARY","TERM","TENS","TEND","TEAL","TEAM","TEAK"
 2360 DATA "TEAR","TEAS","THAN","THAW","THIN","THIS","THEM","THEN","THOU","THUD"
 2370 DATA "THUG","THUS","TIDE","TIME","TILE"
 2375 DATA "TIRE","TICK","TIER","TIED","TIDY"
 2380 DATA "TINS","TINK","TIPS","TOIL","TOLD","TOMB","TONG","TONS","TOPS","TORN"
 2390 DATA "TOUR","TOWN","TUBA","TUCK","TUGS","TUNA","TURF","TUNE","TURN","TUSK"
 2400 DATA "TRAP","TRAY","TREK","TRIG","TRIM"
 2405 DATA "TRIP","TROW","TROY","TRUE","TWIG"
 2410 DATA "TWIN","TYMP","TYNE","TYPE","TYRE","TYRO"
 2420 DATA "TYMP","TYNE","TYPE","TYRE","TYRO"
 2430 DATA "UGLY","ULNA","UNDO","UNIT","UPON","URGE","UREA","URIC","USED"
 2440 DATA "VAIN","VANE","VAMP","VARY","VAST","VATS","VASE","VERY","VEAL","VEND"
 2450 DATA "VETS","VEST","VENT","VERB","VETO","VIAL","VIEN","VIEW","VICE","VILE"
 2460 DATA "VIEN","VISE","VIOL","VOTE","VOID","VOLT","VOWS"
 2470 DATA "WADS","WARY","WARP","WANT","WARM","WARN","WART","WARS","WASH","WAFT"
 2480 DATA "WALK","WADE","WAGE","WAKE","WALE","WANE","WARE","WAVE","WAIL","WAIN"
 2490 DATA "WAIT","WEAN","WEFT","WELD","WELT"
 2495 DATA "WEND","WENT","WEPT","WEST","WETS"
 2500 DATA "WHAT","WHAM","WHEN","WHEY","WHOA","WHOM","WHIM","WHIN","WHIP","WHIT"
 2510 DATA "WHOP","WRAP","WREN","WRIT","WIDE","WIFE","WILE","WINE","WIPE","WIRE"
 2520 DATA "WISE","WIVE","WICK","WIGS","WILD"
 2525 DATA "WILT","WILY","WIRY","WINS","WIND"
 2530 DATA "WING","WINK","WITS","WITH","WIST","WISH","WORD","WORE","WOVE","WORM"
 2540 DATA "WORN","WEAK"
 2550 DATA "XRAY"
 2560 DATA "YAGI","YANG","YANK","YARN","YAWL","YAWN","YAWP","YAWS","YEAH","YEAN"
 2570 DATA "YELP","YENS","YEAR","YOKE","YORE","YOWL","YOUR","YULE","YING","YARD"
 2580 DATA "ZANY","ZAPS","ZEAL","ZEST","ZERO","ZINC","ZING","ZIPS","ZONE"
 2590 LET T9=T9+1: REM ... TOTAL GAMES PLAYED
 2600 IF G$="GIVE" THEN 2740 ELSE  PRINT
 2610 IF P=4 THEN  PRINT A1$,"YOU WON ! ! ! !",A1$,A1$,A1$,A1$
 2620 IF P=4 THEN  LET W9=W9+1: REM ... TOTAL WINS
 2630 GOTO 2750
 2640 PRINT "&K&J&J&J&J"
 2650 PRINT A1$,"******************************"
 2660 PRINT A1$,"**                          **"
 2670 PRINT A1$,"**        G I V E           **"
 2680 PRINT A1$,"**  IS THE GAME EXIT WORD   **"
 2690 PRINT A1$,"**                          **"
 2700 PRINT A1$,"******************************"
 2710 PRINT : PRINT : PRINT
 2720 INPUT (1,150)"*** DO YOU REALLY WANT TO GIVE UP??? ",Q$
 2730 RETURN
 2740 PRINT A1$," YOU JUST HAD TO GIVE UP DID'NT YOU !",A1$,A1$,A1$
 2750 IF G=16 THEN  LET L9=L9+1: REM ... TOTAL LOSSES
 2755 IF G$="GIVE" THEN  LET L9=L9+1: REM ... TOTAL LOSSES
 2760 LET G9=G9+G: REM ... TOTAL GUESES IN THIS GAME W/ALL GAMES
 2770 PRINT
 2780 IF G=1 THEN 2790 ELSE 2810
 2790 PRINT " THAT'S ";G;" GUESS ON MY WORD OF-->";W$
 2800 GOTO 2820
 2810 PRINT " THAT'S ";G;" GUESSES ON MY WORD OF-->";W$
 2820 INPUT (1,150)"    PLAY ANOTER GAME ?   (YES OR NO) ",Y$
 2830 IF Y$="Y" THEN 390 ELSE  PRINT
 2840 PRINT A1$,"YOU PLAYED ";T9;" GAMES.  BYE NOW !",A1$,A1$
 2850 PRINT " YOUR TOTAL GUESS AVERAGE WAS: ";G9/T9
 2860 PRINT " YOUR WIN/LOSS PERCENTAGE  WAS: ";
 2870 IF L9=0 THEN  PRINT "** ONE  THOUSAND !!! **" ELSE  PRINT (W9/T9)*1000
 2880 PRINT A1$," WIN/LOSS RECORD IS ",W9;"/";L9
 2890 END