procedure SWrite(var f: text; {an output file, we hope}
                 var s: packed array [slow..shigh: integer] of char
  	);
   EXTERNAL;
{*USER*
 
Write the contents of the string variable S to the output file F.
If you are writing to the terminal, just use "output" as the file
name parameter.  A WRITE (and not writeln) is used, so you must
complete the write with a WRITELN.  The lets you do more than one
SWRITE using the same line, and also put in additional WRITES
using quoted strings.
 
.lit
 
EXAMPLE:
 
WRITE('Part = ');
SWRITE(output, Part_description);
WRITE('   Part number = ');
SWRITE(output, Part_number);
WRITELN;
 
.eli
 
}