src/VOCAB.PAS

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