24 lines
694 B
Plaintext
24 lines
694 B
Plaintext
|
{ Copyright (c) 1985, 88 by Borland International, Inc. }
|
|||
|
|
|
|||
|
|
program Circular;
|
|||
|
|
{ Simple program that demonstrates newly-permitted circular
|
|||
|
|
unit references via a USES clause in the implementation
|
|||
|
|
section.
|
|||
|
|
|
|||
|
|
Note that it is NOT possible for the two units to
|
|||
|
|
"USE" each other in their interface sections. It is possible
|
|||
|
|
for AA's interface to use BB, and BB's implementation to use
|
|||
|
|
AA, but this is tricky and depends on compilation order. We
|
|||
|
|
won't document or recommend it.
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Crt, Display, Error;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
ClrScr;
|
|||
|
|
WriteXY(1, 1, 'Upper left');
|
|||
|
|
WriteXY(100, 100, 'Off the screen');
|
|||
|
|
WriteXY(81 - Length('Back to reality'), 15, 'Back to reality');
|
|||
|
|
end.
|
|||
|
|
|