%END %OF %LIST; ! The list of Key words.
  %CONSTSTRING(15)%ARRAY WORDS(0:2233)="CABLE","BACON","ACIDS","AGAIN",
  "BANAL","CACTI","CANAL","BALLS","BEGIN","BATCH","BASIC","BANKS",
  "DANCE","ABOVE","BEING","EAGLE","CALLS","CHECK","BLACK","ABOUT",
  "CARDS","CHEAT","BEGUN","AMBER","DEATH","CASES","BELLS","ALARM",
  "ACTOR","BLANK","AFTER","BELOW","FACTS","CHILD","CELLO","CELLS",
  "DATES","ALGOL","FAILS","CLEAR","FAITH","EATEN","FALSE","BOARD",
  "BLIND","DEMON","DIGIT","BLOCK","CLASS","EDITS","DATUM","CLIMB",
  "BREAK","EARTH","COCOA","BRAND","CODES","CITED","CLAWS","ALLOW",
  "EIGHT","BOATS","IDEAS","COBOL","HANDS","BRAIN","CLOCK","FARMS",
  "ENDED","DEPTH","BIRTH","COALS","AMONG","ARMED","HEALS","HEART",
  "HAIRS","BRICK","CITES","HATED","COAST","FAULT","ASIAN","GIANT",
  "DISCS","BONES","ELBOW","FIFTH","HATES","CONIC","APRIL","BRING",
  "COMES","JEANS","FINDS","CLUBS","DISKS","BOOKS","HELLO","CONES",
  "DOING","FIFTY","HAPPY","CRIME","ARRAY","APPLY","FILMS","LEADS",
  "BUILD","HELPS","BULGE","FLOCK","FIRES","ERECT","IMAGE","GLASS",
  "LAKES","LEGAL","LAMBS","FREED","BOXES","GOALS","MAIDS","COULD",
  "DRINK","CYBER","LEAVE","LEARN","MAKES","FREES","HILLS","LARGE",
  "DRIVE","INDIA","BROWN","GIVEN","GREEK","FIRST","GREAT","COUNT",
  "GREEN","OCEAN","MARCH","GOING","GIVES","ENTER","FORCE","LAUGH",
  "FORGE","AUNTS","GIRLS","GRAVE","MATCH","PEACE","NAMED","FLOUR",
  "LEMMA","EQUAL","FLUID","PAGED","DUKES","FLOWS","DROVE","LATIN",
  "GOODS","EXAMS","PAGES","RACED","HOLDS","HOLES","DUTCH","NIECE",
  "MEETS","LEMON","HOMES","GUIDE","DRUNK","FOUND","KNEEL","FORMS",
  "MENDS","LIGHT","ENTRY","EVERY","RACES","KINGS","LIMBS","JESUS",
  "FOXES","HONEY","BYTES","LEVEL","ERROR","MIGHT","DRUMS","REACH",
  "LODGE","FRONT","LINES","KNIFE","FORTY","LIMIT","PAPER","ITALY",
  "FROST","READS","PIECE","NIGHT","SCALE","LOGIC","HORSE","FROWN",
  "LINKS","READY","LOCKS","IMPLY","TABLE","MINES","ITEMS","MINER",
  "MODEL","RANGE","LIONS","PLACE","PATCH","GROUP","HOUSE","REALS",
  "GROWN","PIANO","TEACH","FUNNY","NEVER","PAVED","GROWS","INPUT",
  "SCENE","MERRY","JOINS","HUMAN","LOCHS","HOURS","IRISH","OCTAL",
  "RAINS","SEEDS","IRONS","LISTS","PARTY","PLATE","NOMAD","SEEKS",
  "TAILS","SHALL","KNOWN","TEAMS","KNOWS","SHEEP","MONEY","SHARK",
  "TAPES","LUCKY","OLIVE","RIGHT","PLAYS","TANKS","SENDS","TEETH",
  "VALID","JUMPS","MONTH","LOWER","OPENS","MOONS","OMOND","SHINE",
  "NOTED","ROADS","THEIR","SKATE","REPLY","SINCE","THERE","PRICE",
  "TIGER","THESE","SMALL","SLEET","TELLS","LUNGS","NOTES","WALES",
  "NOVEL","MOUSE","YACHT","SEVEN","MOTOR","VALUE","SHIPS","OTHER",
  "THIRD","POINT","TENSE","THINK","THING","NORTH","SPEAK","TENTH",
  "WHALE","PRIME","SPEED","WEEKS","ROCKS","SINGS","THREE","OUGHT",
  "TIMES","MUSIC","RINGS","SPAIN","RIVER","RISKS","NOSES","ROMAN",
  "SHOPS","TRACE","SERVE","WHICH","TODAY","PRINT","QUEEN","WATER",
  "STAFF","THOSE","TRACK","SPELL","QUEER","UNCLE","STACK","POUND",
  "WHERE","PUNCH","UNDER","QUICK","SPELT","WHILE","SLOPE","PROOF",
  "YEARS","STAND","ZEBRA","SOLID","WELLS","WELSH","QUIET","QUEUE",
  "STEEL","OWNER","SIZES","PROVE","POSTS","VIEWS","SKULL","WHITE",
  "STATE","TREES","THYME","SONGS","ROSES","SPOKE","SIXTH","QUITE",
  "WHOLE","ROYAL","STARS","START","ROUND","UNITE","WINGS","SQUAD",
  "SPRAY","RUNIC","TOTAL","WITCH","QUITS","WHOSE","SIXTY","ROUTE",
  "TOOLS","YAWNS","SPORT","TOOTH","SOULS","SORTS","SOUTH","UPPER",
  "WIVES","STOOD","SORRY","WOMAN","USERS","PUSSY","SUPER","STORE",
  "WOMEN","TUNES","STOPS","TOWNS","STUDY","TROUT","WORDS","WORLD",
  "STOUT","WRITE","TYPED","WOULD","WORSE","TRUST","WRONG","WORTH",
  "TYPES","TUTOR","WROTE","WORST","WORRY","YOUTH","YOURS","ACCEPT",
  "ACCESS","ACIDIC","CABLES","CANADA","BECOME","CANCER","CALLED",
  "ABROAD","ADMIRE","CACTUS","DANCED","BEGINS","ABSENT","DEADLY",
  "BEFORE","BEHOLD","DANCES","BEAUTY","CHANGE","CARBON","EAGLES",
  "DANGER","AFRICA","CHECKS","CHARGE","DEFINE","CANNOT","DANISH",
  "FAILED","BATTLE","ALKALI","DEGREE","ALARMS","ACTORS","ARABLE",
  "DELETE","DIFFER","CASTLE","CARROT","DIGGER","BINARY","EDITED",
  "ANIMAL","ANDREW","BODIES","CENTRE","BLINDS","BETTER","HANDED",
  "APATHY","FARMED","DEMONS","DESIGN","COFFEE","DIGITS","FATHER",
  "BLOCKS","DEVICE","FARMER","CLIMBS","EASTER","BISHOP","CODING",
  "EIGHTH","HEALTH","BRANDS","DERIVE","ALLOWS","BRAINS","ENABLE",
  "HEATER","ALMOST","EIGHTY","HEAVEN","CLOCKS","BRIDIE","CITIES",
  "CHRIST","DIRECT","HEIGHT","CREATE","HEARTS","CHURCH","FAULTS",
  "DISHES","BORDER","ELBOWS","DIVIDE","LADIES","ELEVEN","FINGER",
  "HELPED","COMING","ASPECT","COPIED","GERMAN","BORING","DOCTOR",
  "EITHER","ANSWER","COPIES","FINISH","ATTACH","DOLLAR","FINITE",
  "BOUGHT","COMMON","LABOUR","COLONY","LEAGUE","ANYONE","COLUMN",
  "FRANCE","DONKEY","IMAGES","COPPER","ATTEND","AUGUST","MANAGE",
  "LEGEND","DOUBLE","EMPIRE","MAGNET","LIABLE","INDEED","GREECE",
  "DRINKS","BRONZE","LEAVES","FRENCH","FRIDAY","INDIAN","FORAGE",
  "GOLDEN","NEEDED","ASSUME","FRIEND","DRIVES","DUNDEE","FLOWED",
  "FLUIDS","COUNTS","COURSE","FORGED","ENTIRE","CRUNCH","FOLLOW",
  "NEGATE","FORGES","HOLDER","MIDDLE","OBJECT","LEMMAS","MANUAL",
  "FORMED","MENDED","EQUALS","EQUATE","FORMAT","AUTUMN","DURHAM",
  "NEARLY","LOADED","GUIDED","INFORM","OFFICE","BUYING","NIECES",
  "GUIDES","KNEELS","DURING","LIKELY","LODGED","LINKED","MATTER",
  "LEVELS","OBLONG","MATRIX","ERRORS","OBTAIN","EXPAND","KNIGHT",
  "INSIDE","READER","LAWYER","EXPECT","FOURTH","NEPHEW","MEMORY",
  "INTEND","SCALED","LIMITS","GOVERN","PAPERS","GUITAR","LETTER",
  "NARROW","PIECES","NIGHTS","INTENT","SCALES","INSERT","HORSES",
  "PENCIL","PLACED","IMPORT","MODELS","PLACES","NATION","EXTEND",
  "SAILED","INVENT","RANGES","KITTEN","REALLY","REFLEC","PLAICE",
  "HOUSES","PASSED","NINETH","LISTED","SCENIC","GROWTH","LIQUID",
  "RECORD","SCENES","SEARCH","PASSES","PATENT","EXPORT","NINETY",
  "PLEASE","REGION","SAILOR","LONDON","LITTLE","OBTUSE","LONGER",
  "MINUTE","RELATE","PEOPLE","SECOND","PERIOD","LISTEN","MONDAY",
  "FUTURE","PEPPER","SALMON","ISLAND","RICHES","SADIST","SCHOOL",
  "MIRROR","PLAYED","REPEAT","MODULE","PLANET","PHRASE","METHOD",
  "KNIVES","LESSON","JUMPED","HYPHEN","EUROPE","PLATES","INSECT",
  "OPENED","NITRIC","RAINED","ORANGE","JUMPER","PERSON","RETARD",
  "VANDAL","PLENTY","PETROL","REMOTE","MOTHER","SIGNAL","MONTHS",
  "TAUGHT","PREFER","POLICE","MOVIES","NORMAL","REPORT","SKATES",
  "REVIEW","ORIGIN","NOVICE","PRICES","TIGERS","VALUED","WEALTH",
  "SINGLE","SOCIAL","NUMBER","SEVERE","SINGER","VALUES","YACHTS",
  "PUBLIC","THINGS","THEORY","SERVED","OTHERS","UNABLE","MURDER",
  "POINTS","POISON","SPEAKS","SIMPLE","WEIGHT","NORWAY","RETURN",
  "SERVES","SILVER","SHOULD","RIVERS","QUAINT","POTATO","OPTION",
  "THIRTY","SEXUAL","TRACES","SPIDER","PRETTY","SHOWER","QUEENS",
  "WATERS","PRINTS","TRACKS","THOUGH","SPELLS","QUEERS","POSTED",
  "UNCLES","PRISON","POUNDS","STEADY","SOLIDS","UPDATE","OXFORD",
  "POSTER","SISTER","MYSELF","STANDS","PROVED","ROTATE","STATED",
  "PROVEN","QUEUES","SORDID","PROVES","OWNERS","PUNISH","TOMATO",
  "STATES","VIOLET","VIOLIN","SUBMIT","VIRGIN","SWEDEN","WHISKY",
  "UNITED","STARTS","SUBSET","YAWNED","UNLESS","YELLOW","SPRING",
  "VISION","UNIQUE","UNITES","SORTED","PURPLE","SOUGHT","WISHED",
  "SPRAYS","TRIPLE","SQUARE","WISHES","WINTER","SUNDAY","OUTPUT",
  "WITHIN","SOURCE","STREAM","PUTRID","SORROW","VIRTUE","STREET",
  "SUMMER","WIZARD","STORED","STRICT","STRIKE","UNWELL","WONDER",
  "SWITCH","STRING","TWELVE","STORES","RUSSIA","RUSTIC","TWENTY",
  "STUPID","TRUISM","WRITES","TURNIP","SURVEY","SYNTAX","TYPING",
  "WORTHY","TUTORS","SYSTEM","YOUTHS","ACADEMY","ABANDON","ACHIEVE",
  "ACCOUNT","ABILITY","ADDRESS","ABSENCE","ABOLISH","ADMIRED","ADMIRES",
  "DECIMAL","CHECKED","CHANGED","BELGIUM","CHANGES","ALGEBRA","CAPITAL",
  "CHARGED","DEFINED","AFRICAN","CHEETAH","CHARGES","DEFINES","CHEERIO",
  "ECHELON","BASTARD","ALARMED","BICYCLE","ALKALIS","AMATEUR","DELETED",
  "FACTORY","AMERICA","CHERISH","DIAMOND","CASTLES","ANALYSE","CARROTS",
  "CARTOON","DIGGERS","DELIVER","DENMARK","ANATOMY","ANIMALS","GARBAGE",
  "BLINDED","BRACKET","DIGITAL","CENTRAL","EDITION","ICEBERG","BETWEEN",
  "CENTRES","FEATURE","CLIMBED","CLAWING","FASCIST","EDUCATE","BRANDED",
  "DESIGNS","ALLOWED","ENABLED","FATHERS","DERIVED","CENTURY","DEVICES",
  "FARMERS","ENABLES","DERIVES","DISABLE","EASTERN","HEALTHY","ANOMALY",
  "AMONGST","HEATERS","DISEASE","DIRECTS","CREATED","DESTINE","ELEMENT",
  "FICTION","COMBINE","HEIGHTS","FIFTEEN","CREATES","APPLIED","BOOLEAN",
  "CONCERN","HASHISH","EMERALD","COLLEGE","APPLIES","COLLECT","DESTROY",
  "DIVIDES","ENGLAND","COMMAND","FINGERS","ASPECTS","MACHINE","LEADING",
  "DISPLAY","BRITAIN","GERMANY","DOCTORS","ENGLISH","COMPANY","ANSWERS",
  "GLASGOW","DOLLARS","CONTACT","COMPLEX","BRITISH","GLASSES","COMPOSE",
  "LEAGUES","COLUMNS","JANUARY","DONKEYS","COMPUTE","CONSIST","ATTENDS",
  "CORRECT","MANAGES","MANAGER","MANAGED","CONSOLE","CONVICT","MAGNETS",
  "CONTROL","BROTHER","BROUGHT","COUNCIL","MEANING","ASSUMED","LICENCE",
  "COUNTED","GRAMMAR","LIBERAL","ASSUMES","CYCLONE","EPITOME","FRIENDS",
  "CORRUPT","COURSES","COUNTRY","LECTURE","INCLUDE","NEGATED","FOREIGN",
  "FOLLOWS","MATCHES","GOODBYE","MEASURE","NEGATES","EVENING","OBJECTS",
  "LIBRARY","EXAMPLE","MANUALS","HOLIDAY","ERRATIC","FORGIVE","HOLLAND",
  "EQUATES","EQUATED","FOREVER","EXCLUDE","EVIDENT","MEETING","EXCLAIM",
  "AUSTERE","DYNAMIC","IRELAND","FORWARD","HISTORY","ITALIAN","IMPLIED",
  "FORTRAN","IMPLIES","NEITHER","LIMITED","OBTAINS","EXPANDS","INTEGER",
  "KNIGHTS","KINSMEN","EXHUMED","INVALID","LOGICAL","EXPECTS","NEPHEWS",
  "INTENDS","MESSAGE","READERS","LAWYERS","GOVERNS","GUITARS","LETTERS",
  "MILLION","OBSERVE","SCALING","INSERTS","IMPROVE","SADNESS","IMPORTS",
  "PENCILS","PATCHED","HOWEVER","ISLANDS","SADISTS","HUNDRED","EXTENDS",
  "OCTOBER","INVENTS","KITTENS","HUSBAND","TEACHES","REFLECT","TEACHER",
  "RAILWAY","LIQUIDS","SCIENCE","PERFECT","PARTIES","OBVIOUS","PATENTS",
  "RECORDS","TACTICS","PASSING","PLEASED","LISTING","SALIENT","EXPORTS",
  "PLEASES","REGIONS","EXTREME","RELATED","SAILORS","PATTERN","LISTENS",
  "MINUTES","RELATES","SECONDS","PERIODS","MONARCH","MODULES","MODULAR",
  "PLANETS","KNOWING","METHODS","LITURGY","LESSONS","PERFORM","SECTION",
  "SCHOOLS","MIRRORS","JOURNAL","RECOVER","PHRASES","REPLACE","INSECTS",
  "RAINING","PLAYING","HYPHENS","SCRATCH","SIBLING","REPLIED","ORANGES",
  "PETRIFY","PERSONS","OPENING","REPLIES","SEMINAR","VANDALS","OPERATE",
  "ORGANIC","SAUSAGE","MOTHERS","MORNING","PRECISE","RESPECT","MORONIC",
  "MONSTER","PREFERS","LOWNESS","VEHICLE","SINCERE","SILENCE","REPORTS",
  "REVIEWS","REQUIRE","NOTHING","REQUEST","NOVICES","LUGWORM","SIMILAR",
  "POINTED","SEVERAL","NUMBERS","POLITIC","SEVENTH","NOWHERE","POINTER",
  "WEATHER","SERVICE","SEVENTY","PHYSICS","NOVELTY","PROCEED","PRESENT",
  "SPECIFY","MUSICAL","PRIMARY","PROBATE","REVOLVE","POISONS","WEIGHTS",
  "PROBLEM","OPTIMAL","PREVENT","SPANISH","PRINTED","OVERLAY","PROJECT",
  "SPELLED","OPTIONS","PRODUCE","PRINTER","PROGRAM","SOLDIER","PRODUCT",
  "PUNCHED","SPIDERS","SHOWERS","SPINACH","PUNCHES","VILLAGE","THOUGHT",
  "SOLICIT","QUARTER","POVERTY","SOMEONE","WHETHER","POSTERS","SUBJECT",
  "UNHAPPY","THROUGH","ROTATED","POSSESS","PROVIDE","ROTATES","SIXTEEN",
  "SUICIDE","UNEQUAL","VIOLINS","SUBMITS","TONIGHT","VIRGINS","WHOEVER",
  "SPRAYED","SWEDISH","OUTSIDE","WITCHES","WESTERN","YAWNING","PYRAMID",
  "ROUTINE","SQUARES","PURPOSE","SOURCES","TRINITY","TUESDAY","TRIVIAL",
  "STREAMS","VIRTUES","STREETS","TWELFTH","WRAPPED","STORAGE","WITHOUT",
  "WIZARDS","WONDERS","STRIKES","STUDIES","STUDENT","STOPPED","TROUBLE",
  "STRINGS","UTILITY","TRUISMS","SUPPORT","SUSTAIN","TRUMPET","WRITING",
  "WORRIED","TYPICAL","TURNIPS","SURVEYS","WORRIES","WRITTEN","SYSTEMS",
  "ACADEMIC","ABANDONS","BACHELOR","ACCEPTED","ACCESSED","ABERDEEN",
  "ADJACENT","ACHIEVED","ACHIEVES","ADDITION","ACCOUNTS","ACCURATE",
  "CANADIAN","CAPACITY","BEGINNER","DECEMBER","DEAFNESS","BEHOLDER",
  "ALACRITY","DECIMALS","ADMONISH","ABUNDANT","FACILITY","DATABASE",
  "ALGEBRAS","ABSOLUTE","CATEGORY","BASTARDS","CHEMICAL","ECHELONS",
  "ADVOCATE","CARRIAGE","CATHOLIC","ALKALINE","DELICATE","CHILDREN",
  "AMERICAN","DAUGHTER","DELETION","FAMILIAR","ALPHABET","FAITHFUL",
  "ALLOCATE","DELIVERS","DELIVERY","CLARINET","BRACKETS","DESCRIBE",
  "FEBRUARY","CLAVINET","FASCISTS","FEATURES","DESIGNED","EDUCATED",
  "EDUCATES","COALMINE","EIGHTEEN","DISABLED","HANDSOME","CITATION",
  "DIRECTED","DESTINED","APPENDIX","GIGANTIC","ELEMENTS","COMBINED",
  "ELEPHANT","COMBINES","HARDWARE","CHURCHES","GENERATE","CONCERNS",
  "COLLEGES","IDENTIFY","DESTROYS","COMMANDS","ELEVENTH","DOCUMENT",
  "MACHINES","COLONIAL","ATTACHED","FINISHED","ATTACHES","FINISHES",
  "COMPLAIN","DIVISION","COLONIES","ASSEMBLE","BUILDING","COMPILER",
  "COMPILED","COMPILES","FLEXIBLE","HIGHNESS","FESTIVAL","COMPRISE",
  "FRACTION","CONSERVE","ATTENDED","ANYTHING","FRACTURE","COMPUTER",
  "CONSISTS","LEGALITY","ASTERISK","CORRECTS","MAGNETIC","BULLETIN",
  "ANYWHERE","CONTRARY","LANGUAGE","CONTROLS","MEDICINE","COUNCILS",
  "INDICATE","MAINTAIN","MANDOLIN","LIBERATE","GRAMMARS","ASSUMING",
  "FRIENDLY","FOLKLORE","CORRUPTS","EVIDENCE","AUTISTIC","LECTURED",
  "FOLLOWED","BOUZOUKI","INCLUDED","INCLUDES","LECTURES","LECTURER",
  "BUSINESS","MEASURED","FOOTBALL","MEASURES","FREQUENT","NEGATIVE",
  "FORGIVEN","EQUALITY","EXAMPLES","HOLIDAYS","INDOLENT","INFINITE",
  "INFINITY","ENORMOUS","EQUATION","EXCLUDED","ENTRANCE","EXCLUDES",
  "INFORMED","EVENTUAL","KEYBOARD","MATRICES","ESOTERIC","NATIONAL",
  "LOCATION","OBTAINED","EXPANDED","FUNCTION","MEMORIES","KINSFOLK",
  "EXPECTED","FOURTEEN","INTEGERS","GOVERNED","INTENDED","INTEGRAL",
  "PECULIAR","MESSAGES","INSERTED","OBSERVED","INTERNAL","MILLIONS",
  "OBSERVES","MILITARY","IMPROVED","IMPROVES","IMPORTED","SADISTIC",
  "EXTENDED","INVENTED","PATENTED","PAVEMENT","HUNDREDS","NINETEEN",
  "NEWCOMER","EXTERNAL","SCHEDULE","HUSBANDS","REFLECTS","RECORDED",
  "SCIENCES","TACTICAL","SEARCHES","TEACHING","TEACHERS","SALIENCE",
  "REGIONAL","EXPORTED","RAILWAYS","RELIABLE","RECOVERY","LISTNODE",
  "INSTRUCT","VACATION","PERIODIC","PATTERNS","OBSTRUCT","RELATION",
  "RELATIVE","MONARCHS","MONARCHY","REGISTER","PERFORMS","PASSWORD",
  "RELEVANT","SECTIONS","PLATINUM","JOURNALS","REPLACED","REPLACES",
  "SEMANTIC","RESEARCH","RETARDED","SEPARATE","SHEPHERD","OPERATED",
  "OPERATES","SAUSAGES","SCOTLAND","RESPECTS","MONSTERS","REPORTED",
  "REVIEWED","REPORTER","ORIGINAL","TELETYPE","VARIABLE","VALUABLE",
  "REQUIRED","SATURDAY","SCOTTISH","NOVEMBER","REQUIRES","REQUESTS",
  "THEORIES","SILENCER","SILENCED","MOUNTAIN","POLITICS","PHYSICAL",
  "RESTRICT","PROBABLY","SPECIFIC","MOTORWAY","SERVICES","SPEAKING",
  "TERMINAL","NORTHERN","POISONED","PRESERVE","THIRTEEN","SIMPLIFY",
  "PROCLAIM","PROBLEMS","OPPONENT","PREVENTS","MULTIPLY","PREVIOUS",
  "NUMEROUS","POTATOES","OPTIMISE","PROHIBIT","SHOULDER","TERTIARY",
  "PRINTERS","PROJECTS","PRODUCED","WHATEVER","SPELLING","PRESSURE",
  "PROGRAMS","SOLDIERS","PRISONER","POSITIVE","PRODUCTS","PROGRESS",
  "PUNCHING","POSSIBLE","VILLAGES","STANDARD","TOGETHER","THOUGHTS",
  "POSITION","THOROUGH","THOUSAND","WHEREVER","WHENEVER","SUBJECTS",
  "SOMETIME","PORTUGAL","SOFTWARE","PROVIDED","VOCATION","PROVIDES",
  "ROTATING","TRANSFER","TOLERATE","TRIANGLE","PUNISHED","PUNISHES",
  "QUESTION","THURSDAY","SUBTRACT","ULTIMATE","PYRAMIDS","ROUTINES",
  "WITHDRAW","SUITABLE","STRAIGHT","TOMORROW","PURPOSES","STREAMED",
  "TROMBONE","SOUTHERN","WONDERED","VIRTUOUS","STOPPAGE","STUDENTS",
  "SWITCHES","TROUBLES","SUPPORTS","SUSTAINS","TRUMPETS","SYMPHONY",
  "TUTORIAL","ABANDONED","ACCOMPANY","ACCORDING","ABILITIES",
  "ACCOUNTED","ADDRESSED","ADDRESSES","ALABASTER","CAMBRIDGE",
  "ABOLITION","CALCULATE","BEGINNERS","BEAUTIFUL","DEFICIENT",
  "CHARACTER","CATALOGUE","ALGEBRAIC","DANGEROUS","ADVERBIAL",
  "EFFICIENT","FACTORIAL","FACTORIES","CHEMISTRY","DIFFERENT",
  "CHERISHED","CHERISHES","DAUGHTERS","DELETIONS","EDINBURGH",
  "ALPHABETS","ALGORITHM","DELIVERED","CHOCOLATE","BLINDNESS",
  "DESCRIBES","DESCRIBED","CERTAINLY","CENTURIES","ALLOWANCE",
  "EDUCATION","COALMINES","COALMINER","ANOMALIES","DIMENSION",
  "AVAILABLE","CHRISTMAS","DIRECTION","DIRECTIVE","COASTLINE",
  "FICTIONAL","GENERATED","ELEPHANTS","CONCERNED","GEOGRAPHY",
  "HAPPINESS","DESTROYED","CONDITION","DOCUMENTS","COMPANIES",
  "GENUFLECT","GENTLEMAN","GENTLEMEN","HIERARCHY","ANSWERING",
  "COMPLAINS","COMPLAINT","COMPILERS","CONJUGATE","ASSEMBLED",
  "BUILDINGS","ASSEMBLER","ASSEMBLES","FESTIVALS","COMPONENT",
  "COMMUNIST","FRACTIONS","CONTINENT","ASSOCIATE","IMAGINARY",
  "CONSISTED","COMPUTING","COMPUTERS","GNATHONIC","MECHANISM",
  "CORRELATE","FRACTURED","FRACTURES","LEGENDARY","CONTROLED",
  "LANGUAGES","ATTENTION","CONSTRUCT","AUTHENTIC","MANDOLINE",
  "LIBERATED","CORRUPTED","ENTERTAIN","COUNTRIES","HEURISTIC",
  "AUTOMATIC","FOREIGNER","CRUNCHING","NECESSARY","LECTURERS",
  "FOLLOWING","INCLUDING","LIBRARIAN","LIBRARIES","NECESSITY",
  "INDOLENCE","AUSTRALIA","OBJECTIVE","EXCEPTION","FORMALITY",
  "INCORRECT","MARIJUANA","FORMATION","EQUATIONS","EXHAUSTED",
  "EXCLUSION","EXCLUSIVE","ESSENTIAL","MATRICIDE","IMPLEMENT",
  "FUNCTIONS","PARAGRAPH","PECUNIARY","IMPORTANT","INSERTION",
  "INTENTION","EXPENSIVE","PECUNIOUS","INTERVIEW","IMPROVISE",
  "NEWCASTLE","INVENTION","INTRICACY","PAVEMENTS","INTRICATE",
  "REFERENCE","NEWCOMERS","SCHEDULES","SCHEDULED","EXTENSION",
  "REFLECTED","RECTANGLE","PATRICIDE","INTRODUCE","OBVIOUSLY",
  "EXTRACTED","OLIGARCHY","RECOVERED","INSTRUCTS","VACATIONS",
  "SECONDARY","OBSTRUCTS","REGISTERS","RELATIONS","PERFORMED",
  "KNOWLEDGE","RELEVANCE","NEWSPAPER","REPLACING","SEMANTICS",
  "PETRIFIED","SEPARATED","SEPARATES","OPERATION","OPERATING",
  "NONENTITY","RESILIENT","TELEPHONE","REPRESENT","RESPECTED",
  "PREFERRED","POLICEMAN","VEGETABLE","NORMALISE","POLICEMEN",
  "TELETYPES","VARIABLES","SINCERELY","SINCERITY","REQUESTED",
  "THESAURUS","SEPTEMBER","REQUISITE","SIMILARLY","NOVELTIES",
  "SEVENTEEN","WEDNESDAY","RESTRICTS","PUBLICITY","MOTORWAYS",
  "SPECIFIES","NORWEGIAN","TERMINALS","TERMINATE","PRIMARILY",
  "NUMERICAL","PROBATION","POISONOUS","PROCEDURE","PREVENTED",
  "SPECTACLE","OPPONENTS","SHOULDERS","OPTIMISES","OPTIMISED",
  "UNDEFINED","PROHIBITS","PROJECTED","PRESSURED","PRESSURES",
  "PROGRAMME","POSITIONS","UNDERLINE","SOLICITOR","STANDARDS",
  "THOUSANDS","POSSESSES","POSSESSED","POSTERITY","SOMETHING",
  "SOMETIMES","VOCATIONS","SOMEWHERE","PROVIDING","OWNERSHIP",
  "STATEMENT","PROVISION","QUESTIONS","TRANSPOSE","TRANSPORT",
  "SUBMITTED","STATISTIC","SUBTRACTS","ULTIMATUM","TROMBONES",
  "YESTERDAY","UTILITIES","STUPIDITY","SUPPORTED","SUSTAINED",
  "SYMPHONIC","SYNTACTIC","TUTORIALS","XYLOPHONE","ACADEMICAL",
  "ACCELERATE","ACCEPTABLE","ADDRESSING","ACCUMULATE","CAPACITIES",
  "CALCULATES","CALCULATED","ADMONISHED","FACILITIES","CARDREADER",
  "CHARACTERS","CATALOGUES","CATALOGUED","CATEGORIES","CATEGORISE",
  "DEFINITION","EFFICIENCY","DIFFERENCE","FAITHFULLY","ALGORITHMS",
  "DELIVERIES","ALLOCATION","CHOCOLATES","DEPARTMENT","DEMOGRAPHY",
  "DICTIONARY","ALLOWANCES","DERIVATION","DISABILITY","DIRECTIONS",
  "APPENDICES","FLAMBOYANT","ELEMENTARY","GENERATION","CONCERNING",
  "CONCEPTION","IDENTIFIES","IDENTIFIED","DISCUSSION","ARITHMETIC",
  "CONJECTURE","DOCUMENTED","LABORATORY","COMPLICATE","ARTIFICIAL",
  "ASSEMBLERS","COMPONENTS","DISTRIBUTE","COMMUNISTS","FRACTIONAL",
  "CONVICTION","ASSOCIATED","ASSOCIATES","MANAGEMENT","CORRECTION",
  "CONTRIBUTE","CORRELATED","CONSTRUCTS","CORRESPOND","INDICATION",
  "CUNCTATIVE","FRATRICIDE","CORRUPTION","HEURISTICS","BUSINESSES",
  "INDIVIDUAL","OBJECTIVES","EXCEPTIONS","INEQUALITY","EVENTUALLY",
  "HISTORICAL","EQUIVALENT","IMPLEMENTS","PARAGRAPHS","GOVERNMENT",
  "ILLUSTRATE","EXPERIENCE","IMPORTANCE","IMPOSSIBLE","PARLIAMENT",
  "INSERTIONS","INTERVIEWS","LITERATURE","INVENTIONS","REFERENCED",
  "REFERENCES","REFLECTION","RECTANGLES","PERCENTAGE","EXTINGUISH",
  "INTRODUCED","INTRODUCES","SCIENTIFIC","PILGARLICK","INSTRUCTED",
  "OBSTRUCTED","PERIPHERAL","PHILOSOPHY","FUTURISTIC","SALUBRIOUS",
  "JOURNALISM","PERMISSIVE","RESEARCHER","REPETITIVE","REPETITION",
  "MONOLITHIC","OPERATIONS","RESILIENCE","PHOTOGRAPH","TELEPHONES",
  "REPRESENTS","TELEVISION","VEGETABLES","RESTAURANT","RESTRICTED",
  "REVOLUTION","SIMPLICITY","SIMPLIFIED","SPECTACLES","THIRTEENTH",
  "PREVENTIVE","MULTIPLIES","LUXEMBOURG","PROHIBITED","PRODUCTIVE",
  "PROGRAMMES","PROGRAMMER","POSITIONAL","POPULATION","PROGRESSED",
  "UNDERLINED","PROGRESSES","UNDERSTAND","THOROUGHLY","UNDERSTOOD",
  "POSSESSION","SUBJECTIVE","PROPOGANDA","THROUGHOUT","PUNISHMENT",
  "TRIANGULAR","QUESTIONED","TRANSPOSES","TRANSPOSED","TRANSPORTS",
  "STATISTICS","PSYCHOLOGY","UNRELIABLE","UNIVERSITY","SUBSTITUTE",
  "TRIVIALITY","SUPPORTING","TRUTHFULLY","SYNTHESISE","TYPEWRITER",
  "XYLOPHONES","ACCELERATES","ACCELERATED","ACCOMPANIES","ACCOMPANIED",
  "ACCUMULATES","ACCUMULATED","ACCUMULATOR","ACKNOWLEDGE","CARDREADERS",
  "DEFINITIONS","CATHOLICISM","DIFFERENCES","FAMILIARITY","ALGORITHMIC",
  "DEPARTMENTS","DESECRATION","COEFFICIENT","DESCRIPTION","DESIGNATION",
  "EDUCATIONAL","DEMONSTRATE","DERIVATIVES","DIMENSIONAL","DESTINATION",
  "COMBINATION","GENERATIONS","CONCATENATE","APPLICATION","CONCEPTIONS",
  "DESTRUCTION","DESTRUCTIVE","DISCUSSIONS","CONJECTURES","CONJECTURED",
  "DOCUMENTARY","HARPSICHORD","HIERARCHIES","COMPLICATED","FLEXIBILITY",
  "HEXADECIMAL","DISTRIBUTES","DISTRIBUTED","CONTINENTAL","CONVICTIONS",
  "ASSOCIATION","IMAGINATION","CORRECTIONS","CONTRIBUTED","CONTRIBUTES",
  "CORRELATION","CONSTRUCTED","INDEPENDENT","HEURISTICAL","EXCLAMATION",
  "INDIVIDUALS","EXAMINATION","NECESSITIES","AUSTRALASIA","EXCEPTIONAL",
  "MANUFACTURE","MATHEMATICS","INFORMATION","INFORMATIVE","IMPECUNIOUS",
  "EQUIVALENCE","ESSENTIALLY","IMPLICATION","IMPLEMENTED","INSECTICIDE",
  "LINEPRINTER","ILLUSTRATES","ILLUSTRATED","LINGUISTICS","INTELLIGENT",
  "INTERACTIVE","PECULIARITY","EXPERIENCES","EXPERIENCED","OBSERVATION",
  "METHODOLOGY","NETHERLANDS","INTERROGATE","INTRICACIES","PERCENTAGES",
  "RECTANGULAR","RELIABILITY","INSTRUCTION","OBSTRUCTIVE","OBSTRUCTION",
  "PERFORMANCE","PERIPHERALS","OPERATIONAL","PHOTOGRAPHY","REPRESENTED",
  "TELEVISIONS","RESTAURANTS","POLITICALLY","RESTORATION","RESTRICTION",
  "REVOLUTIONS","PROHIBITION","OPPORTUNITY","PROGRAMMING","PORNOGRAPHY",
  "PROGRAMMERS","PROGRESSION","POSSIBILITY","STANDARDISE","UNHAPPINESS",
  "POSSESSIONS","TRANSPORTED","STATISTICAL","SUBTRACTION","SUBROUTINES",
  "SUBSTITUTES","SUBSTITUTED","SUITABILITY","STRATHCLYDE","SUPERFLUOUS",
  "ZOROASTRIAN","ACCELERATION","ADDITIONALLY","DELICATESSEN",
  "DIFFERENTIAL","DICTIONARIES","COEFFICIENTS","DEMONSTRATED",
  "DISABILITIES","CIRCUMSTANCE","DESTINATIONS","COMBINATIONS",
  "DISCONNECTED","CONCATENATED","APPLICATIONS","GEOGRAPHICAL",
  "ARITHMETICAL","GENUFLECTION","LABORATORIES","HIERARCHICAL",
  "DISTRIBUTION","KAKISTOCRACY","IDIOSYNCRACY","CONSERVATION",
  "CONSERVATORY","CONVERSATION","CONTRIBUTION","CONSTRUCTION",
  "AUTHENTICITY","INDEPENDENCE","EXAMINATIONS","MANUFACTURED",
  "MANUFACTURER","MATHEMATICAL","INEQUALITIES","LINEPRINTERS",
  "ILLUSTRATION","INTELLIGENCE","MINICOMPUTER","IMPOSSIBILTY",
  "INTERROGATED","INTERROGATES","NEVERTHELESS","EXTINGUISHES",
  "INTRODUCTION","EXTINGUISHER","EXTINGUISHED","INSTRUCTIONS",
  "OBSTRUCTIONS","RELATIONSHIP","PERFORMANCES","SEMANTICALLY",
  "ORGANISATION","RESTRICTIONS","PRESERVATION","PROBATIONARY",
  "PROCLAMATION","OPTIMISATION","PROFESSIONAL","PORNOGRAPHIC",
  "QUANTITATIVE","PROGRESSIONS","PSYCHOLOGIST","UNIVERSITIES",
  "SUBSTITUTION","SUBSTITUTING","TRIVIALITIES","DIFFERENTIALS",
  "DIFFERENTIATE","DEMONSTRATION","CIRCUMSTANCES","CONCATENATION",
  "DOCUMENTATION","DISTRIBUTIONS","IDIOSYNCRATIC","CONTRACEPTION",
  "COMPUTATIONAL","CONTRACEPTIVE","CONTRIBUTIONS","CORRESPONDING",
  "ENTERTAINMENT","EXCEPTIONALLY","MATHEMATICIAN","MICROCOMPUTER",
  "ILLUSTRATIONS","MINICOMPUTERS","INTERNATIONAL","INTERROGATIVE",
  "IMPROVISATION","INTRODUCTIONS","INSTRUCTIONAL","RELATIONSHIPS",
  "PHILOSOPHICAL","SPECIFICATION","REVOLUTIONARY","OPPORTUNITIES",
  "POSSIBILITIES","QUESTIONNAIRE","TRANSPOSITION","SYNTACTICALLY",
  "CHARACTERISTIC","DIFFERENTIATED","DIFFERENTIATES","CIRCUMLOCUTION",
  "IDIOSYNCRACIES","CONTRACEPTIVES","INDETERMINABLE","MATHEMATICIANS",
  "IMPLEMENTATION","MICROCOMPUTERS","METHODOLOGICAL","REPRESENTATIVE",
  "SPECIFICATIONS","SIMPLIFICATION","MULTIPLICATION","QUESTIONNAIRES",
  "TRANSPORTATION","ACKNOWLEDGEMENT","CHARACTERISTICS",
  "CIRCUMLOCUTIONS","IMPOSSIBILITIES","REPRESENTATIVES",
  "REVOLUTIONARIES","PROHIBITIONALIS","STANDARDISATION",
  "STRAIGHTFORWARD"
%REALSLONG
%DYNAMICROUTINESPEC PROMPT(%STRING(15)S)
%DYNAMICREALFNSPEC RANDOM REAL
%DYNAMICROUTINESPEC JUGGLE RANDOMS
%DYNAMICROUTINESPEC READ WORD (%STRINGNAME S)
%CONST %STRING(1) SNL ="
"
%LIST
%EXTERNALROUTINE HANGMAN (%STRING(255) STZZZ)
  %STRING(40) WORD,TRY
  %INTEGER H,I,J,K,L,REM,RES
  %BYTEINTEGERARRAY W(1:40), WD(1:40), PICT(1:8,1:7)
  %ROUTINE CHECK(%BYTEINTEGER LETTER)
    K=0
    %CYCLE I=1,1,L
      WD(I)=LETTER %AND K=1 %AND REM=REM-1 %IF W(I)=LETTER
    %REPEAT
  %END
  %ROUTINE PRINT(%BYTEINTEGERARRAYNAME X)
    %CYCLE I=1,1,L
      SPACE
      PRINTSYMBOL(X(I))
    %REPEAT
    NEWLINES(2)
  %END
  %ROUTINE DRAW
    %CYCLE J=7,-1,1
      SPACES(8)
      %CYCLE I=1,1,8; PRINTSYMBOL (PICT(I,J)); %REPEAT
      NEWLINE
    %REPEAT
    NEWLINE
    SPACES(5)
    %IF REM#0 %THEN PRINT(WD) %ELSE PRINT(W)
  %END
  %ROUTINE CONGRATULATE
    %SWITCH E(0:7)
    I=INTPT(RANDOMREAL*8)
    -> E(I)
E(0): PRINTSTRING("Well done!") ;->S
E(1): PRINTSTRING("You won't get off next time!") ;->S
E(2): PRINTSTRING("You must've rigged it!") ;->S
E(3): PRINTSTRING("The rope was too long anyway!") ;->S
E(4): PRINTSTRING("So much for British justice!") ;->S
E(5): PRINTSTRING("You seem to have the hang of this!") ;->S
E(6): PRINTSTRING("Now about these other charges....") ;->S
E(7): PRINTSTRING("Congratulations, you've got a royal pardon!");->S
S: NEWLINE
  %END
  %ROUTINE COMMISERATE
    %SWITCH Q(0:7)
    I=INTPT(RANDOMREAL*8)
    ->Q(I)
Q(0): PRINTSTRING("     Tough!");->QEND
Q(1): PRINTSTRING("     Hard lines!");->QEND
Q(2): PRINTSTRING("     Never mind!");->QEND
Q(3): PRINTSTRING("     Only drawn and quartered to go!");->QEND
Q(4): PRINTSTRING("     What a come-down!");->QEND
Q(5): PRINTSTRING("     It's a pity you're not a cat!");->QEND
Q(6): PRINTSTRING("     It happens to the worst of us");->QEND
Q(7): PRINTSTRING("     You can't win them all!");->QEND
QEND: PRINTSTRING(SNL."     By the way, the word was ".WORD.SNL)
  %END
  %ROUTINE CHANGE(%BYTEINTEGER NO)
    %SWITCH HERE(0:10)
    -> HERE(NO)
    HERE(0): %CYCLE I=1,1,8
               PICT(I,1)='-'
               %CYCLE J=2,1,7
                 PICT(I,J)=' '
               %REPEAT
             %REPEAT
             %CYCLE J=2,1,6; PICT(8,J)='|'; %REPEAT
             PICT(7,6)='\'
             %CYCLE I=4,1,8; PICT(I,7)='-'; %REPEAT
             %RETURN
    HERE(1): PICT(4,6)='!'; %RETURN
    HERE(2): PICT(4,5)='o'; %RETURN
    HERE(3): PICT(4,4)='!'; %RETURN
    HERE(4): PICT(5,4)='\'; %RETURN
    HERE(5): PICT(3,3)='/'; %RETURN
    HERE(6): PICT(3,4)='/'; %RETURN
    HERE(7): PICT(5,3)='\'
            RES=0
  %END
  JUGGLERANDOMS
  %CYCLE
    PRINTSTRING("Do you want to supply the word?".SNL)
    PROMPT("Y or N:")
    READWORD(WORD)
    PROMPT("Word:")
    %IF WORD->("Y").WORD %THEN READWORD(WORD)%ELSEC
        WORD=WORDS(INTPT(RANDOMREAL*2234))
    L=LENGTH(WORD)
    %CYCLE I=1,1,L
      W(I)=CHARNO(WORD,I)
      WD(I)='*'
    %REPEAT
    CHANGE(0)
    PROMPT("Try:")
    H=0; REM=L; RES=1
    DRAW
    %CYCLE
      READWORD(TRY) %UNTIL TRY>""
      %IF LENGTH(TRY)=1 %THEN CHECK(CHARNO(TRY,1))%ELSESTART
        %IF TRY=WORD %THEN K=1 %AND REM=0 %ELSE K=0
      %FINISH
      H=H+1 %AND CHANGE(H)%IF K=0
      DRAW
      CONGRATULATE %ANDEXITIF REM=0
      COMMISERATE %ANDEXITIF RES=0
    %REPEAT
    PROMPT("Another game? :")
    READWORD(WORD)
    %EXITUNLESS WORD->("Y").WORD
  %REPEAT
%END
%ENDOFFILE