src/VOCAB.PAS

   1 {//-------------------------------------------------------------------------}\r
   2 {/*                                                                         }\r
   3 {Copyright (C) 2014 Jason Self <j@jxself.org>                               }\r
   4 {                                                                           }\r
   5 {This file is free software: you may copy, redistribute and/or modify it    }\r
   6 {under the terms of the GNU Affero General Public License as published by   }\r
   7 {the Free Software Foundation, either version 3 of the License, or (at your }\r
   8 {option) any later version.                                                 }\r
   9 {                                                                           }\r
  10 {This file is distributed in the hope that it will be useful, but WITHOUT   }\r
  11 {ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or      }\r
  12 {FITNESS FOR A PARTICULAR PURPOSE. See the GNU Affero General Public License}\r
  13 {for more details.                                                          }\r
  14 {                                                                           }\r
  15 {You should have received a copy of the GNU Affero General Public License   }\r
  16 {along with this program; if not, see https://gnu.org/licenses or write to: }\r
  17 {  Free Software Foundation, Inc.                                           }\r
  18 {  51 Franklin Street, Fifth Floor                                          }\r
  19 {  Boston, MA 02110-1301                                                    }\r
  20 {  USA                                                                      }\r
  21 {                                                                           }\r
  22 {This file incorporates work covered by the following copyright and         }\r
  23 {permission notice:                                                         }\r
  24 {                                                                           }\r
  25 {Copyright (C) 1990, 2009 - Apogee Software, Ltd.                           }\r
  26 {                                                                           }\r
  27 {This file is part of Supernova.  Supernova is free software; you can       }\r
  28 {redistribute it and/or modify it under the terms of the GNU General Public }\r
  29 {License as published by the Free Software Foundation; either version 3     }\r
  30 {of the License, or (at your option) any later version.                     }\r
  31 {                                                                           }\r
  32 {This program is distributed in the hope that it will be useful,            }\r
  33 {but WITHOUT ANY WARRANTY; without even the implied warranty of             }\r
  34 {MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.                       }\r
  35 {                                                                           }\r
  36 {See the GNU General Public License for more details.                       }\r
  37 {                                                                           }\r
  38 {You should have received a copy of the GNU General Public License          }\r
  39 {along with this program; if not, see https://gnu.org/licenses or write to: }\r
  40 {  Free Software Foundation, Inc.                                           }\r
  41 {  51 Franklin Street, Fifth Floor                                          }\r
  42 {  Boston, MA 02110-1301                                                    }\r
  43 {  USA                                                                      }\r
  44 {                                                                           }\r
  45 {Original Source: 1990 Scott Miller                                         }\r
  46 {Prepared for public release: 03/19/09 - Joe Siegler, Apogee Software, Ltd. }\r
  47 {*/                                                                         }\r
  48 {//-------------------------------------------------------------------------}\r
  49 (*****************************************************************************)\r
  50 (*                                VOCABULARY                                 *)\r
  51 (*                >> Contains the word list for Supernova <<                 *)\r
  52 (*                         Programmer: Scott Miller                          *)\r
  53 (*                       << Began February 2, 1985 >>                        *)\r
  54 (*                       Copyright 1985 Scott Miller                         *)\r
  55 (*****************************************************************************)\r
  56 \r
  57                        {VERB LIST:  GROUPS ALL SYNONYMS}\r
  58 procedure Assign1;\r
  59 begin\r
  60 v[1]:='north\n\fore\f\';\r
  61 v[2]:='south\s\aft\a\';\r
  62 v[3]:='east\e\starboa\st\';\r
  63 v[4]:='west\w\port\p\';\r
  64 v[5]:='ne\northea\';\r
  65 v[6]:='nw\northwe\';\r
  66 v[7]:='se\southea\';\r
  67 v[8]:='sw\southwe\';\r
  68 v[9]:='up\u\climb up\climb u\';\r
  69 v[10]:='down\d\climb down\climb d\';\r
  70 v[11]:='enter\in\land in\land on\';       {cont}\r
  71 v[12]:='land\cross\across\';\r
  72 v[13]:='exit\out\leave\retreat\';         {cont}\r
  73 v[14]:='escape\';\r
  74 v[15]:='wait\z\rest\relax\';\r
  75 v[16]:='invento\i\ex invento\inv\';\r
  76 v[17]:='drop all but\drop all except\';\r
  77 v[18]:='drop\get rid\put down\let go\';\r
  78 v[19]:='take off\remove\';\r
  79 v[20]:='l behind\ex behind\l beside\';\r
  80 v[21]:='talk to\talk\speak to\greet\';\r
  81 v[22]:='l above\ex on\l on top\';         {cont}\r
  82 v[23]:='ex above\ex top\l on\';\r
  83 v[24]:='l in\ex in\l through\l out\';\r
  84 v[25]:='say\speak\';\r
  85 v[26]:='l under\ex underne\ex under\';    {cont}\r
  86 v[27]:='l underne\ex below\';\r
  87 v[28]:='ex\search\l at\describ\';         {cont}\r
  88 v[29]:='study\check\inspect\';\r
  89 v[30]:='l around\l\';\r
  90 v[31]:='read\';\r
  91 v[32]:='stand up\get up\stand\';\r
  92 v[33]:='put\pour\lay\fill\insert\';       {cont}\r
  93 v[34]:='place\slide\stick\';\r
  94 v[35]:='sit on\sit in\sit down at\';      {cont}\r
  95 v[36]:='get in\sit at\sit\sit down\';\r
  96 v[37]:='get all but\get all except\';     {cont}\r
  97 v[38]:='take all but\get everyth but\';\r
  98 v[39]:='get\take\grab\steal\pick up\';    {cont}\r
  99 v[40]:='catch\grasp\snatch\';\r
 100 v[41]:='open\unfaste\';\r
 101 v[42]:='pull on\flick\pull\flip off\';    {cont}\r
 102 v[43]:='flip\turn off\deactiv\';\r
 103 v[44]:='push\move\press\turn on\';        {cont}\r
 104 v[45]:='activat\flip on\push on\';\r
 105 end; { Assign1 }\r
 106 procedure Assign2;\r
 107 begin\r
 108 v[46]:='drink some\drink from\drink\';\r
 109 v[47]:='eat\swallow\digest\consume\';\r
 110 v[48]:='throw\toss\';\r
 111 v[49]:='give\offer\show\hand\';\r
 112 v[50]:='turn\rotate\set\spin\';\r
 113 v[51]:='climb in\climb over\';            {cont}\r
 114 v[52]:='climb on\climb\';\r
 115 v[53]:='close\shut\fasten\connect\';\r
 116 v[54]:='destroy\punch\knock on\break\';   {cont}\r
 117 v[55]:='hit\knock\smash\strike\';\r
 118 v[56]:='type in coordin\type coordin\';   {cont}\r
 119 v[57]:='type in keyboar\type in\';        {cont}\r
 120 v[58]:='type on\type on keyboar\type\';\r
 121 v[59]:='jump in\jump over\jump on\';      {cont}\r
 122 v[60]:='jump off\leap over\hop\';         {cont}\r
 123 v[61]:='jump across\jump\leap\hop\';\r
 124 v[62]:='sleep in\lie down\sleep on\';     {cont}\r
 125 v[63]:='sleep\';\r
 126 v[64]:='buy\purchas\pay for\order\';\r
 127 v[65]:='listen to\listen\hear\';\r
 128 v[66]:='bartend\waiter\';                  { Characters }\r
 129 v[67]:='two aliens\alien\aliens\';\r
 130 v[68]:='scienti\man\him\';\r
 131 v[69]:='robot\droid\';\r
 132 v[70]:='help me\pray\clue\help\';\r
 133 v[71]:='compute\';\r
 134 v[72]:='wear\don\';\r
 135 v[73]:='find\where is\where\';\r
 136 v[74]:='repair\fix\';\r
 137 v[75]:='touch in\feel\touch\rub\';\r
 138 v[76]:='reach in\reach under\reach\';\r
 139 v[77]:='descrip\rd\r d\';\r
 140 v[78]:='score\rank\';\r
 141 v[79]:='quit\stop\q\';\r
 142 v[80]:='hi\hello\bye\good bye\';\r
 143 v[81]:='yes\no\maybe\';\r
 144 v[82]:='save\';\r
 145 v[83]:='smell\sniff\';\r
 146 v[84]:='taste\lick\';\r
 147 v[85]:='wake up\awaken\wake\';\r
 148 v[86]:='restart\';\r
 149 v[87]:='restore\resume\';\r
 150 v[88]:='unlock\';\r
 151 v[89]:='shoot at\shoot\blast\';\r
 152 v[90]:='tie\untie\damn\shit\hell\';\r
 153 v[91]:='follow\scott miller\scott\';\r
 154 v[92]:='dig in\dig\shovel\';\r
 155 v[93]:='attack\kill\fight\';\r
 156 v[94]:='clean\wipe off\wipe\';\r
 157 v[95]:='command\verbs\verb\words\';\r
 158 end; { Assign2 }\r
 159 \r
 160                      {NOUN LIST:  GROUPS ALL OBJECTS}\r
 161 procedure Assign3;\r
 162 begin\r
 163 n[1]:='clear crystal\clear\crystal\';\r
 164 n[2]:='device\';\r
 165 n[3]:='rusty key\rusty\';\r
 166 n[4]:='shiney key\shiney\';\r
 167 n[5]:='brown satchel\satchel\brown\';\r
 168 n[6]:='dried food\food\dried\loaf\';\r
 169 n[7]:='holster\gun strap\strap\';\r
 170 n[8]:='goolaa\coin\money\';\r
 171 n[9]:='red jewel\jewel\red\';\r
 172 n[10]:='skull\skulls\head\heads\';\r
 173 n[11]:='rod\thick rod\pole\';\r
 174 n[12]:='plastic access card\';            {cont}\r
 175 n[13]:='plastic access\card\';            {cont}\r
 176 n[14]:='access card\plastic card\';       {cont}\r
 177 n[15]:='access\plastic\';\r
 178 n[16]:='worn cushion\cushion\worn\';\r
 179 n[17]:='grey disk\disk\grey\';\r
 180 n[18]:='dusty ball\ball\dusty\';          {changes to glass ball!}\r
 181 n[19]:='paper\piece paper\piece\';\r
 182 n[20]:='set of goggles\set goggles\';     {cont}\r
 183 n[21]:='goggles\set\glasses\band\';\r
 184 n[22]:='orange crystal\orange\';\r
 185 n[23]:='green crystal\green\';\r
 186 n[24]:='yellow crystal\yellow\';\r
 187 n[25]:='blue crystal\blue\';\r
 188 n[26]:='pair of gloves\pair gloves\';     {cont}\r
 189 n[27]:='gloves\glove\pair\';\r
 190 n[28]:='security suit\suit\badge\';       {cont at #31}\r
 191 n[29]:='mug\cup\drink\';\r
 192 n[30]:='all\everyth\object\objects\';\r
 193 n[31]:='securit suit\securit\';\r
 194 n[32]:='containers\crate\crates\';        {cont}\r
 195 n[33]:='cargo\contain\storage\';\r
 196 n[34]:='ceiling\roof\up\';\r
 197 n[35]:='seat\command chair\chair\';       {cont}\r
 198 n[36]:='chairs\seats\toilet\';\r
 199 n[37]:='computer\termina\compute\';\r
 200 n[38]:='controls\machine\';               {cont}\r
 201 n[39]:='control panel\control\';\r
 202 n[40]:='cyan button\cyan\';               { changes to socket }\r
 203 n[41]:='tan button\tan\';\r
 204 n[42]:='energy flow\energy\flow\';\r
 205 n[43]:='purple button\purple\violet\';\r
 206 n[44]:='button\white button\white\';      {cont}\r
 207 n[45]:='buttons\';\r
 208 n[46]:='robot\defense robot\defense\';    {cont at #133}\r
 209 n[47]:='vines\vine\branche\branch\';\r
 210 end; { Assign3 }\r
 211 procedure Assign4;\r
 212 begin\r
 213 n[48]:='dial\knob\dials\knobs\tap\';\r
 214 n[49]:='ground\floor\earth\deck\bay\';    {cont}\r
 215 n[50]:='glass floor\rocks\down\';\r
 216 n[51]:='equipment\equipme\';\r
 217 n[52]:='numeric keypad\keypad\';          {cont}\r
 218 n[53]:='numeric\numbers\keyboar\';\r
 219 n[54]:='rail\railing\column\';\r
 220 n[55]:='panel\compart\';\r
 221 n[56]:='door\swingin door\doors\';        {cont}\r
 222 n[57]:='swingin doors\hatch\swingin\';\r
 223 n[58]:='key\keys\round recess\';\r
 224 n[59]:='screen\monitor\screens\data\';\r
 225 n[60]:='player\self\waist\me\myself\';    {cont}\r
 226 n[61]:='hand\hands\arm\feet\foot\';\r
 227 n[62]:='ship\my ship\shuttle\vehicle\';   {cont}\r
 228 n[63]:='space ship\space craft\craft\';\r
 229 n[64]:='slot\opening\hole\round\';        {cont}\r
 230 n[65]:='niche\holes\recess\';\r
 231 n[66]:='acid water\acid river\stream\';   {cont}\r
 232 n[67]:='acid stream\river\acid\gap\';\r
 233 n[68]:='pyramid\podium\structure\';\r
 234 n[69]:='cryo tube\cryogen tube\';         {cont}\r
 235 n[70]:='cryogen\cryo\tube\tubes\';\r
 236 n[71]:='steps\step\stairs\ladder\';\r
 237 n[72]:='picture\mural\drawing\';\r
 238 n[73]:='bones\bone\skeleto\remains\';\r
 239 n[74]:='flash\blindin flash\blindin\';    {object never here!}\r
 240 n[75]:='creature\hairy creatur\hairy\';   {cont}\r
 241 n[76]:='scaled creatur\creatur\';         {cont}\r
 242 n[77]:='scaled\';\r
 243 n[78]:='wheel\handle\';\r
 244 n[79]:='water\';\r
 245 n[80]:='bed\bunk\beds\bunks\';\r
 246 n[81]:='sign\post\menu\message\note\';\r
 247 n[82]:='solar map\map\solar\drawing\';    {changes to laser beam}\r
 248 n[83]:='western table\western\';\r
 249 n[84]:='middle table\middle\';\r
 250 n[85]:='eastern table\eastern\';\r
 251 n[86]:='table\tables\';\r
 252 n[87]:='shelf\shelves\';\r
 253 n[88]:='gun\ray gun\signpos\';\r
 254 n[89]:='statue\dog statue\dog\';\r
 255 n[90]:='serum dispenser\dispens\';        {cont}\r
 256 n[91]:='serum dispens\';\r
 257 n[92]:='serum\medicin\cure\liquid\';\r
 258 n[93]:='platform\platfor\';\r
 259 end; { Assign4 }\r
 260 procedure Assign5;\r
 261 begin\r
 262 n[94]:='booth\transpo\';\r
 263 n[95]:='wristband\wristba\transla\';\r
 264 n[96]:='building\buildin\complex\';       {cont}\r
 265 n[97]:='store\station\tavern\';\r
 266 n[98]:='sink\basin\tap\faucet\spout\';\r
 267 n[99]:='glunk lite\lite\glunk\beer\';\r
 268 n[100]:='Drink\ambross\';                 {cont}\r
 269 n[101]:='pink ztulctw\ztulctw\pink\';     {cont}\r
 270 n[102]:='bloody foeboz\foeboz\bloody\';\r
 271 n[103]:='red star\red\star\flare\';\r
 272 n[104]:='telescope\telesco\eyepiec\';\r
 273 n[105]:='outer planet\inner planet\';     {cont}\r
 274 n[106]:='line planet\fifth planet\';      {cont}\r
 275 n[107]:='ringed planet\ringed\';          {cont}\r
 276 n[108]:='inner\fifth\line\outer\';        {cont}\r
 277 n[109]:='planets\planet\last\';\r
 278 n[110]:='keyhole\';              { changes to speaker }\r
 279 n[111]:='bartender\bartend\waiter\';\r
 280 n[112]:='trees\tree\forest\jungle\';\r
 281 n[113]:='path\passage\tunnel\road\';      {cont}\r
 282 n[114]:='corrido\lobby\chamber\air\';\r
 283 n[115]:='antenna\dish\hollow\';\r
 284 n[116]:='wall\south wall\north wall\';    {cont}\r
 285 n[117]:='east wall\west wall\walls\';\r
 286 n[118]:='ice\snow\';\r
 287 n[119]:='writing\chart\list\';\r
 288 n[120]:='swamp\quicksa\';\r
 289 n[121]:='radio\transmi\';\r
 290 n[122]:='dirt\sand\dust\desert\rocks\';\r
 291 n[123]:='scientist\scienti\him\man\';\r
 292 n[124]:='aliens\two aliens\alien\';\r
 293 n[125]:='fence\wire fence\wire\';\r
 294 n[126]:='bar\';                    { changes to hinge }\r
 295 n[127]:='window\windows\alarm\siren\';\r
 296 n[128]:='reactor\regulat\';\r
 297 n[129]:='gas\fumes\icy mist\mist\icy\';\r
 298 n[130]:='spears\spear\';\r
 299 n[131]:='light\glow\lights\catwalk\';\r
 300 n[132]:='drazil tracks\tracks\drazil\';\r
 301 n[133]:='droid\sensor\probe\';\r
 302 \r
 303 \r
 304                 {SEPWORD LIST:  GROUPS ALL PREPOSITIONS}\r
 305 \r
 306 p[1]:='on top\around\above\over\';        {cont}\r
 307 p[2]:='across\on\to\onto\';\r
 308 p[3]:='against\at\toward\towards\';       {cont}\r
 309 p[4]:='in directi\';\r
 310 p[5]:='in\through\down\';\r
 311 p[6]:='using\with\making use\by\';\r
 312 p[7]:='beside\near\close to\next to\';    {cont}\r
 313 p[8]:='leaning against\';\r
 314 p[9]:='off\from\';\r
 315 p[10]:='under\underne\beneath\below\';\r
 316 p[11]:='a\for\';\r
 317 \r
 318                      {ADVERB LIST:  GROUPS ALL MOODS}\r
 319 \r
 320 a[1]:='gently1careful2softly3calmly4quietly5lightly6easily7';\r
 321 a[2]:='slowly1leisure2slow3with care4cautiou5closely6';\r
 322 a[3]:='strongl1firmly2solidly3powerfu4with force5hard6';\r
 323 a[4]:='quickly1fast2rapidly3speedil4very fast5';\r
 324 end; { Assign5 }\r
 325 \r
 326                                {ROOM  NAMES}\r
 327 \r
 328 procedure Names1;\r
 329 begin\r
 330 rn[1]:='Bridge';\r
 331 rn[2]:='Forward Corridor';\r
 332 rn[3]:='Rear Corridor';\r
 333 rn[4]:='Ship''s Lab';\r
 334 rn[5]:='Sanitary Facilities';\r
 335 rn[6]:='Sleep Chamber';\r
 336 rn[7]:='Cargo Area';\r
 337 rn[8]:='Tavern';\r
 338 rn[9]:='West Hallway';\r
 339 rn[10]:='Central Hallway';\r
 340 rn[11]:='East Hallway';\r
 341 rn[12]:='Suite #4';\r
 342 rn[13]:='Crossroads';\r
 343 rn[14]:='Dusty Road';\r
 344 rn[15]:='Dusty Road';\r
 345 rn[16]:='Gravel Road';\r
 346 rn[17]:='Gravel Road';\r
 347 rn[18]:='Paved Road';\r
 348 rn[19]:='Paved Road';\r
 349 rn[20]:='General Store';\r
 350 rn[21]:='Gravel Lot';\r
 351 rn[22]:='Top of Ship';\r
 352 rn[23]:='Deep Pit';\r
 353 rn[24]:=rn[22];\r
 354 rn[25]:='Sandy Clearing';\r
 355 rn[26]:='Winding Path';\r
 356 rn[27]:=rn[26];\r
 357 rn[28]:=rn[26];\r
 358 rn[29]:=rn[26];\r
 359 rn[30]:='Top of Tree';\r
 360 rn[31]:='Quicksand Pit';\r
 361 rn[32]:=rn[26];\r
 362 rn[33]:=rn[26];\r
 363 rn[34]:='Front of Pyramid';\r
 364 rn[35]:='Vestibule';\r
 365 rn[36]:='Descending Stairs';\r
 366 rn[37]:='Halcyon Hall';\r
 367 rn[38]:='Departure Room';\r
 368 rn[39]:='Holey Hall';\r
 369 rn[40]:='Pyramid Lobby';\r
 370   end; { Names1 }\r
 371 procedure Names2;\r
 372 begin\r
 373 rn[41]:='Treasure''s Keeper';\r
 374 rn[42]:='Ladder Room';\r
 375 rn[43]:='Shifting Room';\r
 376 rn[44]:=rn[43];\r
 377 rn[45]:=rn[43];\r
 378 rn[46]:=rn[43];\r
 379 rn[47]:=rn[43];\r
 380 rn[48]:=rn[43];\r
 381 rn[49]:=rn[43];\r
 382 rn[50]:='Stairway Room';\r
 383 rn[51]:='Lower Stairway';\r
 384 rn[52]:='Misty Passage';\r
 385 rn[53]:='Damp Passage';\r
 386 rn[54]:='Dark Passage';\r
 387 rn[55]:='Circular Chamber';\r
 388 rn[56]:='The Erusaert';\r
 389 rn[57]:='Solar Chamber';\r
 390 rn[58]:='Eternal Trap';\r
 391 rn[59]:='Overgrown Path';\r
 392 rn[60]:='Antenna Building';\r
 393 rn[61]:='Monitor Outpost';\r
 394 rn[62]:='Booth';\r
 395 rn[63]:='Booth';\r
 396 rn[64]:='Lobby';\r
 397 rn[65]:='North Corridor';\r
 398 rn[66]:='Central Corridor';\r
 399 rn[67]:='South Corridor';\r
 400 rn[68]:='Decontamination';\r
 401 rn[69]:='Waiting Room';\r
 402 rn[70]:='Transporter Booth';\r
 403 rn[71]:='Monitor Station';\r
 404 rn[72]:='Reactor Control';\r
 405 rn[73]:='Communications';\r
 406 rn[74]:='Computer Station';\r
 407 rn[75]:='Elevator  1st Floor';\r
 408 rn[76]:='Elevator  2nd Floor';\r
 409 rn[77]:='Observatory';\r
 410 rn[78]:='Icy Platform';\r
 411 rn[79]:='Confirmation Port';\r
 412 rn[80]:='Inspection Lobby';\r
 413   end; { Names2 }\r
 414 procedure Names3;\r
 415 begin\r
 416 rn[81]:='Circular Corridor';\r
 417 rn[82]:=rn[81];\r
 418 rn[83]:=rn[81];\r
 419 rn[84]:=rn[81];\r
 420 rn[85]:=rn[81];\r
 421 rn[86]:=rn[81];\r
 422 rn[87]:=rn[81];\r
 423 rn[88]:=rn[81];\r
 424 rn[89]:='Reactors West';\r
 425 rn[90]:='Reactors East';\r
 426 rn[91]:='Emergency Override';\r
 427 rn[92]:='Climate Control';\r
 428 rn[93]:='Elevator';\r
 429 rn[94]:='Maintenance';\r
 430 rn[95]:='Transmission Room';\r
 431 rn[96]:='Station Control';\r
 432 rn[97]:='Cryogenic Chamber';\r
 433 rn[98]:='Indentity Booth';\r
 434 rn[99]:='Security Tunnel #1';\r
 435 rn[100]:='Security Tunnel #2';\r
 436 rn[101]:='Security Tunnel #3';\r
 437 rn[102]:='North Catwalk';\r
 438 rn[103]:='East Catwalk';\r
 439 rn[104]:='South Catwalk';\r
 440 rn[105]:='West Catwalk';\r
 441 rn[106]:='Junction';\r
 442 rn[107]:='Conference Room';\r
 443 rn[108]:='Reactor Regulators';\r
 444 rn[109]:='Medical Quarters #6';\r
 445   end; { Names3 }\r
 446 \r
 447 \r
 448                                {ROOM  NAMES}\r
 449 procedure Place1;\r
 450  begin\r
 451 for x:=1 to RMax do L[x]:=[];\r
 452 L[1]:=[16,35..41,43,44,52,55,56,59,62,112,120,125];\r
 453 L[2]:=[38,56,62,64,71,78];\r
 454 L[3]:=[38,55,81];\r
 455 L[4]:=[38,44,51,52,55,62,64,81,90,119];\r
 456 L[5]:=[35,38,48,62,98];\r
 457 L[6]:=[38,62,69,80];\r
 458 L[7]:=[32,51,62,87];\r
 459 L[8]:=[29,35,56,71,81,83..86,96,99,100,111,119,126];\r
 460 L[9]:=[56,71];\r
 461 L[10]:=[56];\r
 462 L[11]:=[56];\r
 463 L[12]:=[7,48,56,80,87,98,110];\r
 464 L[13]:=[56,81,88,96];\r
 465 L[14]:=[81,96,125];\r
 466 L[15]:=[125];\r
 467 L[16]:=[81,96];\r
 468 L[17]:=[]; {empty}\r
 469 L[18]:=[81,125];\r
 470 L[19]:=[]; {empty}\r
 471 L[20]:=[5,6,32,38,51,86,87,96,132];\r
 472 L[21]:=[62,71,81,125];\r
 473 L[22]:=[56,62,71,78,81,96,125];\r
 474 L[23]:=[73,81];\r
 475 L[24]:=[56,62,71,78,112,120];\r
 476 L[25]:=[62,71,112,120];\r
 477 L[26]:=[66,112,120];\r
 478 L[27]:=[66,112,120];\r
 479 L[28]:=[112,120];\r
 480 L[29]:=[112,120];\r
 481 L[30]:=[68,112,120];\r
 482 L[31]:=[47,112,120];\r
 483 L[32]:=[112,120];\r
 484 L[33]:=[112,120];\r
 485 L[34]:=[56,64,68,71,81,89,112,119,120,126];\r
 486 L[35]:=[56,71];\r
 487 L[36]:=[71];\r
 488 L[37]:=[71];\r
 489 L[38]:=[10,51,73];\r
 490 L[39]:=[129];\r
 491 L[40]:=[56,68];\r
 492 L[41]:=[18,73,56,68];\r
 493 L[42]:=[71];\r
 494 { L[43] through L[49] are empty }\r
 495 L[50]:=[71];\r
 496 L[51]:=[71];\r
 497 L[52]:=[64];\r
 498 L[53]:=[];\r
 499 L[54]:=[];\r
 500 L[55]:=[11];\r
 501  end; { Place1 }\r
 502 procedure Place2;\r
 503  begin\r
 504 L[56]:=[66,68,110];\r
 505 L[57]:=[56,72,82,103,109];\r
 506 L[59]:=[112,120];\r
 507 L[60]:=[56,96,112,115,120];\r
 508 L[61]:=[37,38,44,56,59,93,94,96];\r
 509 L[62]:=L[61];\r
 510 L[63]:=L[61]+[20];\r
 511 L[64]:=[35,56,72,81,86,109,127];\r
 512 L[65]:=[56];\r
 513 L[66]:=[56,64];\r
 514 L[67]:=[56];\r
 515 L[68]:=[44,56,131];\r
 516 L[69]:=[35,56,131];\r
 517 L[70]:=[40,41,43,44,56,93,94];\r
 518 L[71]:=[59];\r
 519 L[72]:=[37,38,44,46,55,128];\r
 520 L[73]:=[28,35,38,48,56,115,121,127];\r
 521 L[74]:=[37,38,44,52,59];\r
 522 L[75]:=[44,56];\r
 523 L[76]:=[44,56];\r
 524 L[77]:=[56,104,127];\r
 525 L[78]:=[54,56,93,96,115,118];\r
 526 L[79]:=[44,56,64];\r
 527 L[80]:=[35,55,56,72,86];\r
 528 L[81]:=[56,72];       { Picture of a Grey Disk }\r
 529 L[82]:=[56,72,103];   { Picture of the Red Star }\r
 530 L[83]:=[56,72,115];   { Picture of an Antenna }\r
 531 L[84]:=[46,56,72];    { Picture of a Robot }\r
 532 L[85]:=[56,72];       { Picture of a Cloud }\r
 533 L[86]:=[56,64,69,72]; { Picture of a Cryogenic Tube }\r
 534 L[87]:=[56,72];       { Picture of an Atomic Nucleus }\r
 535 L[88]:=[56,72];       { Picture of an Atomic Nucleus }\r
 536 L[89]:=[38,44,56,59,95,128];\r
 537 L[90]:=[38,56,59,128];\r
 538 L[91]:=[37,38,44,51,52,56,59,64,69,95,127,129];\r
 539 L[92]:=[35,56,59];\r
 540 L[93]:=[44,52,56];\r
 541 L[94]:=[2,51,56,87];\r
 542 L[95]:=[38,44,52,56,121,127];\r
 543 L[96]:=[38,56,59];\r
 544 L[97]:=[56,69,129];\r
 545 L[98]:=[56,59,81,119];\r
 546 L[99]:=[46,55,56,88];\r
 547 L[100]:=[55,56];\r
 548 L[101]:=[46,55,56,88];\r
 549 L[102]:=[42,54,56,131];\r
 550 L[103]:=[42,54,131];\r
 551 L[104]:=[42,54,131];\r
 552 L[105]:=[42,54,56,131];\r
 553 L[106]:=[56];\r
 554 L[107]:=[19,35,56,86];\r
 555 L[108]:=[55,56,128];\r
 556 for x:=1 to RMax do L[x]:=L[x]+[30,34,49,60,103,113,116,122,131];\r
 557  end;\r
 558                            {<<<*** END ***>>>}\r
 559 \1a\r