Modifying Beyond The Titanic to compile with the Free Pascal compiler and run on modern systems. Changes are licensed under the GNU Affero General Public License version 3 or any later version. Adding copy of the AGPL and build instructions.

1 files changed, 306 insertions, 282 deletions

diff --git a/src/WORDLIST.PAS b/src/WORDLIST.PAS
index 5beddce..6b54714 100644
--- a/src/WORDLIST.PAS
+++ b/src/WORDLIST.PAS
@@ -1,282 +1,306 @@
-{//-------------------------------------------------------------------------}

-{/*                                                                         }

-{Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }

-{                                                                           }

-{This file is part of Supernova.  Supernova is free software; you can       }

-{redistribute it and/or modify it under the terms of the GNU General Public }

-{License as published by the Free Software Foundation; either version 3     }

-{of the License, or (at your option) any later version.                     }

-{                                                                           }

-{This program is distributed in the hope that it will be useful,            }

-{but WITHOUT ANY WARRANTY; without even the implied warranty of             }

-{MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                       }

-{                                                                           }

-{See the GNU General Public License for more details.                       }

-{                                                                           }

-{You should have received a copy of the GNU General Public License          }

-{along with this program; if not, write to the Free Software                }

-{Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.}

-{                                                                           }

-{Original Source: 1990 Scott Miller                                         }

-{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }

-{*/                                                                         }

-{//-------------------------------------------------------------------------}

-{*****************************************************************************}

-{*                                 WORDLIST                                  *}

-{*                             by Scott Miller                               *}

-{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*}

-{*                          Copyright 1984 Pending                           *}

-{*****************************************************************************}

-

-{====================================START====================================}

-

-                       {VERB LIST:  GROUPS ALL SYNONYMS}

-overlay procedure Assign1;

-begin

-for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;

-v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';

-v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';

-v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';

-   v[2,5]:='climb over';

-v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';

-   v[3,5]:='hook';

-v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';

-   v[4,4]:='climb ne';

-v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';

-   v[5,4]:='climb sw';

-v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';

-   v[6,5]:='chop';

-v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';

-v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';

-   v[8,4]:='drink lot';

-v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';

-v[10,1]:='eat';v[10,2]:='swallow';

-v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';

-   v[11,4]:='read';v[11,5]:='look at';

-v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';

-   v[12,5]:='chech for';

-v[13,1]:='repair';v[13,2]:='fix';

-v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';

-   v[14,5]:='pick up';

-v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';

-   v[15,5]:='give away';

-end;

-overlay procedure Assign2;

-begin

-v[16,1]:='help';v[16,2]:='pray';

-v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';

-   v[17,5]:='destroy';

-v[18,1]:='invento';v[18,2]:='i';

-v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';

-   v[19,5]:='jump in';

-v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';

-v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';

-v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';

-   v[23,4]:='ex top';v[23,5]:='ex above';

-v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';

-   v[24,5]:='search in ';

-v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';

-   v[25,4]:='look underne';v[25,5]:='ex below';

-v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';

-v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';

-   v[26,5]:='untie';

-v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';

-   v[27,5]:='flip on';

-v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';

-   v[28,5]:='turn off';

-v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';

-   v[29,5]:='insert';

-v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';

-v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';

-   v[31,5]:='think';

-end;

-overlay procedure Assign3;

-begin

-v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';

-   v[32,5]:='shoot at';

-v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';

-   v[33,5]:='sit on';

-v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';

-v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';

-v[36,1]:='throw';v[36,2]:='toss';

-v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';

-v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';

-v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';

-v[40,1]:='unlock';

-v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';

-v[42,1]:='wear';v[42,2]:='put on';

-v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';

-v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';

-v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';

-v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';

-v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';

-v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';

-v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';

-v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';

-v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';

-v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';

-   v[52,5]:='lower';

-v[53,1]:='type';v[53,2]:='type in';

-v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';

-v[55,1]:='take off';v[55,2]:='remove';

-v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';

-end;

-overlay procedure Assign4;

-begin

-v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';

-   v[57,5]:='land';

-v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';

-   v[58,5]:='escape';

-v[59,1]:='diagnos';

-v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';

-   v[60,4]:='ex beside';v[60,5]:='look beside';

-v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';

-   v[61,5]:='fall';

-v[62,1]:='score';v[62,2]:='rank';

-v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';

-   v[63,4]:='alien creatur';

-v[64,1]:='save';

-v[65,1]:='restore';v[65,2]:='resume';

-

-                     {NOUN LIST:  GROUPS ALL OBJECTS}

-

-for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q;

-n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';

-n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';

-n[2,1]:='banana';n[2,2]:='food';

-n[3,1]:='bat';n[3,2]:='bats';

-n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';

-n[5,1]:='blue button';n[5,2]:='blue';

-n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';

-   n[6,5]:='ship';

-end;

-overlay procedure Assign5;

-begin

-n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';

-n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';

-   n[8,5]:='box switch';

-n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';

-n[10,1]:='button';n[10,2]:='buttons';

-n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';

-n[12,1]:='cages';n[12,2]:='bars';

-n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';

-n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';

-   n[14,5]:='contain';

-n[15,1]:='ceiling';n[15,2]:='roof';

-n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';

-   n[16,5]:='metal chair';

-n[17,1]:='chasm';n[17,2]:='canyon';

-n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';

-n[19,1]:='clouds';n[19,2]:='cloud';

-n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';

-n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';

-   n[21,5]:='control';

-n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';

-n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';

-   n[23,4]:='alien creatur';n[23,5]:='it';

-n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';

-n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';

-n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';

-   n[26,5]:='sliding';

-n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';

-   n[27,4]:='mangled';n[27,5]:='piece wire';

-n[28,1]:='egg';n[28,2]:='eggs';

-n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';

-   n[29,5]:='ring';

-end;

-overlay procedure Assign6;

-begin

-n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';

-   n[30,5]:='bay';

-n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';

-n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';

-   n[32,5]:='blue fur';

-n[33,1]:='green button';n[33,2]:='green';

-n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';

-   n[34,5]:='laser gun';

-n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';

-   n[35,4]:='harness';n[35,5]:='strap';

-n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';

-n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';

-n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';

-   n[38,4]:='numbers';

-n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';

-   n[39,5]:='surviva kit';

-n[40,1]:='knife';n[40,2]:='blade';

-n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';

-   n[41,5]:='landing pad';

-n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';

-   n[42,5]:='landing bay';

-n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';

-n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';

-n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';

-n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';

-   n[46,5]:='chisele marking';

-n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';

-n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';

-n[49,1]:='panel';n[49,2]:='compart';

-n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';

-   n[50,5]:='tubes';

-n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';

-n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';

-n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';

-n[54,1]:='reactor';n[54,2]:='core';

-n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';

-   n[55,5]:='mangled door';

-n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';

-end;

-overlay procedure Assign7;

-begin

-n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';

-n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';

-n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';

-   n[59,5]:='metalli';

-n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';

-   n[60,5]:='myself';

-n[61,1]:='shelf';n[61,2]:='shelves';

-n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';

-   n[62,4]:='plate';n[62,5]:='radiati shield';

-n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';

-n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';

-   n[64,4]:='saucer';

-n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';

-n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';

-n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';

-   n[67,5]:='remains';

-n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';

-   n[68,5]:='keyhole';

-n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';

-   n[69,5]:='step';

-n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';

-   n[70,5]:='rod';

-n[71,1]:='rock feature';n[71,2]:='stalagt';

-n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';

-   n[72,4]:='shapes';

-end;

-overlay procedure Assign8;

-begin

-n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';

-   n[73,5]:='lake';

-n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';

-   n[74,4]:='uniform';

-n[75,1]:='table';n[75,2]:='tables';

-n[76,1]:='tan button';n[76,2]:='tan';

-n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';

-n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';

-   n[78,4]:='glass tube';n[78,5]:='glass';

-n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';

-   n[79,4]:='east wall';n[79,5]:='west wall';

-n[80,1]:='waterfall';n[80,2]:='waterfa';

-n[81,1]:='white button';n[81,2]:='white';

-n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';

-n[83,1]:='slime';n[83,2]:='jelly';

-n[84,1]:='vent';n[84,2]:='vents';

-n[85,1]:='lamp';

-n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';

-n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';

-n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';

-   n[88,4]:='electri';n[88,5]:='orange';

-n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';

-end;

-{====================================END======================================}

-

+{//-------------------------------------------------------------------------}
+{/*                                                                         }
+{Copyright (C) 2014 Jason Self <j@jxself.org>                               }
+{                                                                           }
+{This file is free software: you may copy, redistribute and/or modify it    }
+{under the terms of the GNU Affero General Public License as published by   }
+{the Free Software Foundation, either version 3 of the License, or (at your }
+{option) any later version.                                                 }
+{                                                                           }
+{This file is distributed in the hope that it will be useful, but WITHOUT   }
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }
+{FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}
+{for more details.                                                          }
+{                                                                           }
+{You should have received a copy of the GNU Affero General Public License   }
+{along with this program; if not, see https://gnu.org/licenses or write to: }
+{  Free Software Foundation, Inc.                                           }
+{  51 Franklin Street, Fifth Floor                                          }
+{  Boston, MA 02110-1301                                                    }
+{  USA                                                                      }
+{                                                                           }
+{This file incorporates work covered by the following copyright and         }
+{permission notice:                                                         }
+{                                                                           }
+{Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }
+{                                                                           }
+{This file is part of Beyond The Titanic. Beyond The Titanic is free        }
+{software; you can redistribute it and/or modify it under the terms of the  }
+{GNU General Public License as published by the Free Software Foundation;   }
+{either version 3 of the License, or (at your option) any later version.    }
+{                                                                           }
+{This program is distributed in the hope that it will be useful, but WITHOUT}
+{ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }
+{FITNESS FOR A PARTICULAR PURPOSE.                                          }
+{                                                                           }
+{See the GNU General Public License for more details.                       }
+{                                                                           }
+{You should have received a copy of the GNU General Public License          }
+{along with this program; if not, write to:                                 }
+{  Free Software Foundation, Inc.                                           }
+{  51 Franklin Street, Fifth Floor                                          }
+{  Boston, MA 02110-1301                                                    }
+{  USA                                                                      }
+{                                                                           }
+{Original Source: 1990 Scott Miller                                         }
+{Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }
+{*/                                                                         }
+{//-------------------------------------------------------------------------}
+{*****************************************************************************}
+{*                                 WORDLIST                                  *}
+{*                             by Scott Miller                               *}
+{* These are all of the verbs and nouns (grouped in synonyms) used by AdGame.*}
+{*                          Copyright 1984 Pending                           *}
+{*****************************************************************************}
+
+{====================================START====================================}
+
+                       {VERB LIST:  GROUPS ALL SYNONYMS}
+procedure Assign1;
+begin
+for x:= 0 to VMax do for y:= 1 to 5 do v[x,y]:=Q;
+v[0,1]:='attack'; v[0,2]:='kill';v[0,3]:='beat up';
+v[1,1]:='descrip';v[1,2]:='rd';v[1,3]:='r d';
+v[2,1]:='climb';v[2,2]:='climb on';v[2,3]:='climb onto';v[2,4]:='climb in';
+   v[2,5]:='climb over';
+v[3,1]:='close';v[3,2]:='shut';v[3,3]:='fasten';v[3,4]:='connect';
+   v[3,5]:='hook';
+v[4,1]:='crawl ne';v[4,2]:='duck ne';v[4,3]:='crawl northea';
+   v[4,4]:='climb ne';
+v[5,1]:='crawl sw';v[5,2]:='duck sw';v[5,3]:='crawl southwe';
+   v[5,4]:='climb sw';
+v[6,1]:='cut';v[6,2]:='slice';v[6,3]:='cut out';v[6,4]:='saw';
+   v[6,5]:='chop';
+v[7,1]:='dig';v[7,2]:='dig in';v[7,3]:='shovel';
+v[8,1]:='drink';v[8,2]:='drink from';v[8,3]:='drink some';
+   v[8,4]:='drink lot';
+v[9,1]:='drop';v[9,2]:='get rid';v[9,3]:='put down';
+v[10,1]:='eat';v[10,2]:='swallow';
+v[11,1]:='examine';v[11,2]:='ex';v[11,3]:='search';
+   v[11,4]:='read';v[11,5]:='look at';
+v[12,1]:='find';v[12,2]:='look for';v[12,3]:='where is';v[12,4]:='check';
+   v[12,5]:='chech for';
+v[13,1]:='repair';v[13,2]:='fix';
+v[14,1]:='get';v[14,2]:='take';v[14,3]:='grab';v[14,4]:='steal';
+   v[14,5]:='pick up';
+v[15,1]:='give';v[15,2]:='offer';v[15,3]:='show';v[15,4]:='pay';
+   v[15,5]:='give away';
+end;
+procedure Assign2;
+begin
+v[16,1]:='help';v[16,2]:='pray';
+v[17,1]:='hit';v[17,2]:='punch';v[17,3]:='knock';v[17,4]:='break';
+   v[17,5]:='destroy';
+v[18,1]:='invento';v[18,2]:='i';
+v[19,1]:='jump';v[19,2]:='jump onto';v[19,3]:='jump on';v[19,4]:='jump off';
+   v[19,5]:='jump in';
+v[20,1]:='launch';v[20,2]:='sail';v[20,3]:='row';
+v[22,1]:='look';v[22,2]:='l';v[22,3]:='look around';v[22,4]:='ex area';
+v[23,1]:='look above';v[23,2]:='ex on';v[23,3]:='look on';
+   v[23,4]:='ex top';v[23,5]:='ex above';
+v[24,1]:='look in';v[24,2]:='ex in';v[24,3]:='look down';v[24,4]:='look up';
+   v[24,5]:='search in ';
+v[25,1]:='look under';v[25,2]:='ex underne';v[25,3]:='ex under';
+   v[25,4]:='look underne';v[25,5]:='ex below';
+v[21,1]:='burn';v[21,2]:='ignite';v[21,3]:='light';
+v[26,1]:='open';v[26,2]:='unfaste';v[26,3]:='peel';v[26,4]:='hatch';
+   v[26,5]:='untie';
+v[27,1]:='pull';v[27,2]:='flick';v[27,3]:='pull on';v[27,4]:='flip';
+   v[27,5]:='flip on';
+v[28,1]:='push';v[28,2]:='move';v[28,3]:='press';v[28,4]:='turn on';
+   v[28,5]:='turn off';
+v[29,1]:='put';v[29,2]:='pour';v[29,3]:='lay';v[29,4]:='fill';
+   v[29,5]:='insert';
+v[30,1]:='reach';v[30,2]:='reach in';v[30,3]:='feel in';
+v[31,1]:='say';v[31,2]:='yell';v[31,3]:='shout';v[31,4]:='compute';
+   v[31,5]:='think';
+end;
+  procedure Assign3;
+begin
+v[32,1]:='shoot';v[32,2]:='blast';v[32,3]:='fire at';v[32,4]:='fire';
+   v[32,5]:='shoot at';
+v[33,1]:='sit';v[33,2]:='sit in';v[33,3]:='get in';v[33,4]:='sit down';
+   v[33,5]:='sit on';
+v[34,1]:='sleep';v[34,2]:='lie down';v[34,3]:='sleep on';v[34,4]:='sleep in';
+v[35,1]:='stand';v[35,2]:='stand up';v[35,3]:='get up';v[35,4]:='stand in';
+v[36,1]:='throw';v[36,2]:='toss';
+v[37,1]:='tie';v[37,2]:='hook';v[37,3]:='wrap';
+v[38,1]:='touch';v[38,2]:='feel';v[38,3]:='touch in';v[38,4]:='rub';
+v[39,1]:='turn';v[39,2]:='rotate';v[39,3]:='set';
+v[40,1]:='unlock';
+v[41,1]:='wait';v[41,2]:='z';v[41,3]:='rest';
+v[42,1]:='wear';v[42,2]:='put on';
+v[43,1]:='north';v[43,2]:='n';v[43,3]:='fore';v[43,4]:='f';v[43,5]:='across';
+v[44,1]:='south';v[44,2]:='s';v[44,3]:='aft';v[44,4]:='a';
+v[45,1]:='east';v[45,2]:='e';v[45,3]:='starboa';v[45,4]:='st';
+v[46,1]:='west';v[46,2]:='w';v[46,3]:='port';v[46,4]:='p';
+v[47,1]:='north east';v[47,2]:='ne';v[47,3]:='northea';
+v[48,1]:='north west';v[48,2]:='nw';v[48,3]:='northwe';
+v[49,1]:='south east';v[49,2]:='se';v[49,3]:='southea';
+v[50,1]:='south west';v[50,2]:='sw';v[50,3]:='southwe';
+v[51,1]:='up';v[51,2]:='u';v[51,3]:='climb up';v[51,4]:='climb u';
+v[52,1]:='down';v[52,2]:='d';v[52,3]:='climb down';v[52,4]:='climb d';
+   v[52,5]:='lower';
+v[53,1]:='type';v[53,2]:='type in';
+v[54,1]:='quit';v[54,2]:='stop';v[54,3]:='give up';v[54,4]:='i quit';
+v[55,1]:='take off';v[55,2]:='remove';
+v[56,1]:='shake';v[56,2]:='bogie';v[56,3]:='dance';
+end;
+  procedure Assign4;
+begin
+v[57,1]:='enter';v[57,2]:='in';v[57,3]:='land in';v[57,4]:='land on';
+   v[57,5]:='land';
+v[58,1]:='exit';v[58,2]:='out';v[58,3]:='leave';v[58,4]:='retreat';
+   v[58,5]:='escape';
+v[59,1]:='diagnos';
+v[60,1]:='look behind';v[60,2]:='ex behind';v[60,3]:='examine behind';
+   v[60,4]:='ex beside';v[60,5]:='look beside';
+v[61,1]:='restart';v[61,2]:='let';v[61,3]:='fall from';v[61,4]:='drop from';
+   v[61,5]:='fall';
+v[62,1]:='score';v[62,2]:='rank';
+v[63,1]:='creatur';v[63,2]:='alien monster';v[63,3]:='monster';
+   v[63,4]:='alien creatur';
+v[64,1]:='save';
+v[65,1]:='restore';v[65,2]:='resume';
+
+                     {NOUN LIST:  GROUPS ALL OBJECTS}
+
+for x:= 0 to NMax do for y:= 1 to 5 do n[x,y]:=Q;
+n[0,1]:='alien';n[0,2]:='dead alien';n[0,3]:='body';n[0,4]:='alien body';
+n[1,1]:='all';n[1,2]:='everyth';n[1,3]:='object';n[1,4]:='objects';
+n[2,1]:='banana';n[2,2]:='food';
+n[3,1]:='bat';n[3,2]:='bats';
+n[4,1]:='bed';n[4,2]:='bunk';n[4,3]:='beds';n[4,4]:='bunks';
+n[5,1]:='blue button';n[5,2]:='blue';
+n[6,1]:='boat';n[6,2]:='life boat';n[6,3]:='titanic';n[6,4]:='lifeboa';
+   n[6,5]:='ship';
+end;
+  procedure Assign5;
+begin
+n[7,1]:='bottle';n[7,2]:='brown bottle';n[7,3]:='brown';
+n[8,1]:='black box';n[8,2]:='box';n[8,3]:='black';n[8,4]:='switch';
+   n[8,5]:='box switch';
+n[9,1]:='building';n[9,2]:='buildin';n[9,3]:='tower';n[9,4]:='towers';
+n[10,1]:='button';n[10,2]:='buttons';
+n[11,1]:='cabinet';n[11,2]:='file';n[11,3]:='blue cabinet';
+n[12,1]:='cages';n[12,2]:='bars';
+n[13,1]:='coin';n[13,2]:='quarter';n[13,3]:='25';n[13,4]:='money';
+n[14,1]:='containers';n[14,2]:='crate';n[14,3]:='crates';n[14,4]:='cargo';
+   n[14,5]:='contain';
+n[15,1]:='ceiling';n[15,2]:='roof';
+n[16,1]:='chair';n[16,2]:='time chair';n[16,3]:='time';n[16,4]:='seat';
+   n[16,5]:='metal chair';
+n[17,1]:='chasm';n[17,2]:='canyon';
+n[18,1]:='city';n[18,2]:='floatin city';n[18,3]:='floatin';n[18,4]:='town';
+n[19,1]:='clouds';n[19,2]:='cloud';
+n[20,1]:='computer';n[20,2]:='termina';n[20,3]:='compute';n[20,4]:='typewri';
+n[21,1]:='controls';n[21,2]:='machine';n[21,3]:='equipme';n[21,4]:='devices';
+   n[21,5]:='control';
+n[22,1]:='crater';n[22,2]:='pit';n[22,3]:='stove';
+n[23,1]:='creature';n[23,2]:='creatur';n[23,3]:='monster';
+   n[23,4]:='alien creatur';n[23,5]:='it';
+n[24,1]:='silver dial';n[24,2]:='day dial';n[24,3]:='day';n[24,4]:='silver';
+n[25,1]:='dial';n[25,2]:='knob';n[25,3]:='dials';n[25,4]:='knobs';
+n[26,1]:='door';n[26,2]:='hatch';n[26,3]:='saucer hatch';n[26,4]:='ship door';
+   n[26,5]:='sliding';
+n[27,1]:='piece of wire';n[27,2]:='wire';n[27,3]:='mangled wire';
+   n[27,4]:='mangled';n[27,5]:='piece wire';
+n[28,1]:='egg';n[28,2]:='eggs';
+n[29,1]:='flashlight';n[29,2]:='light';n[29,3]:='flashli';n[29,4]:='hook';
+   n[29,5]:='ring';
+end;
+  procedure Assign6;
+begin
+n[30,1]:='ground';n[30,2]:='floor';n[30,3]:='earth';n[30,4]:='deck';
+   n[30,5]:='bay';
+n[31,1]:='trees';n[31,2]:='tree';n[31,3]:='forest';
+n[32,1]:='piece of fur';n[32,2]:='fur';n[32,3]:='piece fur';n[32,4]:='piece';
+   n[32,5]:='blue fur';
+n[33,1]:='green button';n[33,2]:='green';
+n[34,1]:='gun';n[34,2]:='ray gun';n[34,3]:='gauge';n[34,4]:='orange';
+   n[34,5]:='laser gun';
+n[35,1]:='safety harness';n[35,2]:='safety';n[35,3]:='belt';
+   n[35,4]:='harness';n[35,5]:='strap';
+n[36,1]:='ice';n[36,2]:='ocean bottom';n[36,3]:='bottom';n[36,4]:='ocean';
+n[37,1]:='debris';n[37,2]:='trash';n[37,3]:='rubble';n[37,4]:='wood';
+n[38,1]:='numeric keypad';n[38,2]:='keypad';n[38,3]:='numeric';
+   n[38,4]:='numbers';
+n[39,1]:='survival kit';n[39,2]:='kit';n[39,3]:='surviva';n[39,4]:='red kit';
+   n[39,5]:='surviva kit';
+n[40,1]:='knife';n[40,2]:='blade';
+n[41,1]:='concrete';n[41,2]:='concrete wall';n[43,3]:='cement';n[41,4]:='pad';
+   n[41,5]:='landing pad';
+n[42,1]:='dirt';n[42,2]:='dust';n[42,3]:='desert';n[42,4]:='sand';
+   n[42,5]:='landing bay';
+n[43,1]:='cage';n[43,2]:='large';n[43,3]:='large cage';
+n[44,1]:='left hand';n[44,2]:='left';n[44,3]:='hand';
+n[45,1]:='rusty lock';n[45,2]:='lock';n[45,3]:='rusty';
+n[46,1]:='message';n[46,2]:='chisele';n[46,3]:='writing';n[46,4]:='marking';
+   n[46,5]:='chisele marking';
+n[47,1]:='mud';n[47,2]:='sloppy';n[47,3]:='slop';
+n[48,1]:='chain';n[48,2]:='thick chain';n[48,3]:='metal chain';
+n[49,1]:='panel';n[49,2]:='compart';
+n[50,1]:='path';n[50,2]:='passage';n[50,3]:='tunnel';n[50,4]:='road';
+   n[50,5]:='tubes';
+n[51,1]:='banana peel';n[51,2]:='peel';n[51,3]:='skin';
+n[52,1]:='glowing pill';n[52,2]:='pill';n[52,3]:='glowing';
+n[53,1]:='rail';n[53,2]:='railing';n[53,3]:='wooden';n[53,4]:='wooden rail';
+n[54,1]:='reactor';n[54,2]:='core';
+n[55,1]:='red button';n[55,2]:='red';n[55,3]:='lower door';n[55,4]:='mangled';
+   n[55,5]:='mangled door';
+n[56,1]:='right arm';n[56,2]:='right';n[56,3]:='arm';n[56,4]:='arms';
+end;
+  procedure Assign7;
+begin
+n[57,1]:='rope';n[57,2]:='thick';n[57,3]:='thick rope';
+n[58,1]:='screen';n[58,2]:='monitor';n[58,3]:='tv';n[58,4]:='screens';
+n[59,1]:='bench';n[59,2]:='chairs';n[59,3]:='seats';n[59,4]:='benches';
+   n[59,5]:='metalli';
+n[60,1]:='player';n[60,2]:='self';n[60,3]:='waist';n[60,4]:='me';
+   n[60,5]:='myself';
+n[61,1]:='shelf';n[61,2]:='shelves';
+n[62,1]:='reactor shield';n[62,2]:='barrier';n[62,3]:='shield';
+   n[62,4]:='plate';n[62,5]:='radiati shield';
+n[63,1]:='shiny key';n[63,2]:='shiny';n[63,3]:='key';
+n[64,1]:='alien saucer';n[64,2]:='alien ship';n[64,3]:='hull';
+   n[64,4]:='saucer';
+n[65,1]:='shuttle';n[65,2]:='car';n[65,3]:='vehicle';n[65,4]:='engine';
+n[66,1]:='sign';n[66,2]:='note';n[66,3]:='red sign';
+n[67,1]:='bones';n[67,2]:='bone';n[67,3]:='skeleto';n[67,4]:='animals';
+   n[67,5]:='remains';
+n[68,1]:='slot';n[68,2]:='opening';n[68,3]:='hole';n[68,4]:='key hole';
+   n[68,5]:='keyhole';
+n[69,1]:='steps';n[69,2]:='stair';n[69,3]:='stairs';n[69,4]:='ladder';
+   n[69,5]:='step';
+n[70,1]:='metal stake';n[70,2]:='stake';n[70,3]:='metal';n[70,4]:='pole';
+   n[70,5]:='rod';
+n[71,1]:='rock feature';n[71,2]:='stalagt';
+n[72,1]:='strange wall';n[72,2]:='strange';n[72,3]:='hexagon';
+   n[72,4]:='shapes';
+end;
+  procedure Assign8;
+begin
+n[73,1]:='water';n[73,2]:='river';n[73,3]:='stream';n[73,4]:='gusher';
+   n[73,5]:='lake';
+n[74,1]:='alien suit';n[74,2]:='suit';n[74,3]:='space suit';
+   n[74,4]:='uniform';
+n[75,1]:='table';n[75,2]:='tables';
+n[76,1]:='tan button';n[76,2]:='tan';
+n[77,1]:='tape';n[77,2]:='future';n[77,3]:='future tape';
+n[78,1]:='healing tube';n[78,2]:='tube';n[78,3]:='healing';
+   n[78,4]:='glass tube';n[78,5]:='glass';
+n[79,1]:='walls';n[79,2]:='wall';n[79,3]:='north wall';
+   n[79,4]:='east wall';n[79,5]:='west wall';
+n[80,1]:='waterfall';n[80,2]:='waterfa';
+n[81,1]:='white button';n[81,2]:='white';
+n[82,1]:='gold dial';n[82,2]:='year';n[82,3]:='gold';n[82,4]:='year dial';
+n[83,1]:='slime';n[83,2]:='jelly';
+n[84,1]:='vent';n[84,2]:='vents';
+n[85,1]:='lamp';
+n[86,1]:='microphone';n[86,2]:='mic';n[86,3]:='speaker';n[86,4]:='microph';
+n[87,1]:='bridge';n[87,2]:='wooden bridge';n[87,3]:='wooden';
+n[88,1]:='beams';n[88,2]:='orange beams';n[88,3]:='beam';
+   n[88,4]:='electri';n[88,5]:='orange';
+n[89,1]:='helmet';n[89,2]:='control helmet';n[89,3]:='hat';
+end;
+{====================================END======================================}