24 lines
698 B
Plaintext
24 lines
698 B
Plaintext
{ Turbo Reference }
|
||
{ Copyright (c) 1985, 1989 by Borland International, Inc. }
|
||
|
||
program Circular;
|
||
{ Simple program that demonstrates 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 don'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.
|
||
|