home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / DEMOS.ZIP / CIRCULAR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-23  |  694 b   |  24 lines
  1. { Turbo Reference }
  2. { Copyright (c) 1985,90 by Borland International, Inc. }
  3.  
  4. program Circular;
  5. { Simple program that demonstrates circular unit references via
  6.   a USES clause in the implementation section.
  7.  
  8.   Note that it is NOT possible for the two units to "USE" each
  9.   other in their interface sections. It is possible for AA's
  10.   interface to use BB, and BB's implementation to use AA, but
  11.   this is tricky and depends on compilation order. We don't
  12.   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.