Function SAdr(var str: packed array [slow..shigh:integer] of char):address;
   EXTERNAL;
{*USER*
 
SADR returns the address of the first character in a string.  If the
array supplied is not a type0 or type1 string, an address of zero (0)
will be returned.
 
Using SADR with SLEN allows you to get a buffer address and buffer len
value without knowning anything about a string.  The buffer address
and length can then be used in QIOs.
 
}