Procedure Putstr(Lin,Col:Integer;
  		Atts:CRT_Attribute_set;
  		Buffer:Packed array [lo..hi:integer] of char
  	);
   EXTERNAL;
{*USER*
 Pascal-3 procedure to display a string on
a CRT at line Lin, column Col, with display attributes Attributes.
Note that the attribute set has changed from the Pascal-2 version.
If Save_cursor is in Atts, the cursor and CRT context are preserved across
the field write. If not, the context is established by the PUTFLD
parameters, and the cursor remains at the last character written.
The Standard attribute overrides all other character attributes.
Maximum input string length is about 80. bytes. The routine does not
detect overflow, and may fail with excessive string lengths.
Minimum input string length is 0 bytes. If Count=0, no text will be
output, but the cursor position, attributes, and save will be done.
 If lin is negative, the entire screen will be erased prior to writing
the field, which will appear at abs(lin). Column must be 00-132.
lin must be 00-24. (or -24 for auto erase).
 If Col is negative, an erase to end-of-line sequence is generated
at the end of the output, but before any restore sequence. The effect
is to erase the remainder of the line specified by Lin. 	
 NOTE: For the Cursor save/restore function to work, you must not
allow the screen to scroll, and must open ouput with the /ftn
switch -- rewrite(output,'TI:/ftn');
At this point, the first character of any output string to the terminal
other than through Putstr will be interpreted as carriage control.
   }