home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip_2000-04_cd.bin / zkuste / TPascal / DEMOS.ARC / CIRCULAR.PAS next >
Pascal/Delphi Source File  |  1989-05-02  |  698b  |  24 lines
  1. { Turbo Reference }
  2. { Copyright (c) 1985, 1989 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.