home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / circular.pas < prev    next >
Pascal/Delphi Source File  |  1988-10-09  |  694b  |  24 lines
  1. { Copyright (c) 1985, 88 by Borland International, Inc. }
  2.  
  3. program Circular;
  4. { Simple program that demonstrates newly-permitted circular
  5.   unit references via a USES clause in the implementation
  6.   section.
  7.  
  8.   Note that it is NOT possible for the two units to
  9.   "USE" each other in their interface sections. It is possible
  10.   for AA's interface to use BB, and BB's implementation to use
  11.   AA, but this is tricky and depends on compilation order. We
  12.   won't document or recommend it.
  13. }
  14.  
  15. uses
  16.   Crt, Display, Error;
  17.  
  18. begin
  19.   ClrScr;
  20.   WriteXY(1, 1, 'Upper left');
  21.   WriteXY(100, 100, 'Off the screen');
  22.   WriteXY(81 - Length('Back to reality'), 15, 'Back to reality');
  23. end.
  24.