home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c221 / 5.ddi / MWHC.005 / F3 < prev    next >
Encoding:
Text File  |  1992-12-09  |  1.9 KB  |  53 lines
  1. pragma On(Optimize_for_space);
  2. pragma off(emit_names);
  3. {*********************************************************************
  4. (C) Copyright     1983-1992;   Franklin L. DeRemer, Thomas J. Pennello,
  5.              MetaWare Incorporated;  Santa Cruz, CA 95060.
  6. This program is the unpublished property and trade secret of the above
  7. three.    It is to be utilized solely under license from MetaWare and it
  8. is to be maintained on a confidential basis for internal  company  use
  9. only.  The  security  and  protection  of  the program is paramount to
  10. maintenance of the trade secret status.  It is to  be  protected  from
  11. disclosure  to    unauthorized parties, both within the Licensee company
  12. and outside, in a manner not less stringent than that utilized for Li-
  13. censee's own proprietary  internal  information.   No  copies  of  the
  14. Source or Object Code are to leave the premises of Licensee's business
  15. except    in  strict accordance with the license agreement signed by Li-
  16. censee with MetaWare.
  17. *********************************************************************}
  18. {
  19.     MetaWare Pascal Runtime Support: Console read/write.
  20.     8086 - MS/DOS Version 2
  21. }
  22. Export(Console);
  23. pragma C_include('Console.pf');
  24. pragma C_include('SYSTEM.pf');
  25. pragma C_include('LINETERM.pf');
  26. pragma C_include('Implement.pf');
  27.  
  28. program Implement_Console2;
  29. pragma Alias(Implement_Console2,Implement.RTE || 'Console2');
  30. with Loopholes:[Adr,Retype];
  31.  
  32. with Lineterm;
  33. pragma Off(With_warnings);
  34. with System;
  35. pragma Pop(With_warnings);
  36.  
  37. {
  38.   Write a string to the screen; emit newline.
  39. }
  40.  
  41. procedure Puts(const S: String);
  42.    begin
  43.    Write(System_stderr,Adr(S[1]),Length(S));
  44.    end;
  45.  
  46. procedure Newline();
  47.    begin
  48.    Write(System_stderr,Adr(LTConv_out[1]),Length(LTConv_out));
  49.    end;
  50.  
  51. { (C) Copyright   1983;     unpublished property and trade secret of }
  52. { MetaWare Incorporated; Santa Cruz, CA 95060; detailed notice above.}
  53.