$eject
/*********************************************************
*    module name: text13.sim                             *
*    public procedure: print                             *
*********************************************************/
print$string: do;

declare
  status address external,
  cr literally '0dh',             /* carriage return */
  lf literally '10';              /* line feed */

write:  procedure (aft, buffer, count, status) external;
  declare (aft, buffer, count, status) address;
  end write;

/******************************************************
*  print - prints the specified buffer's content,     *
*          with the specified length.                 *
*          crlf characters are appended at the end    *
*          of the string.                             *
******************************************************/

print : procedure(a, b) public;
  declare (a, b) address; 
  call write(0, a, b, .status);
  call write(0, .(cr, lf), 2, .status);
  end print;

end print$string;

eof