home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
nvdc87
/
units
/
testbox.pas
< prev
Wrap
Pascal/Delphi Source File
|
1987-08-18
|
545b
|
24 lines
PROGRAM TestBox;
USES Crt, Box;
BEGIN
{ Draw a test box }
ClrScr;
DrawBox( 5, 8, 15, 64 ); { Use default values }
{ Draw a second box, this time with a double-line
border on the top and bottom. }
BottomLeftCorner := #212; { Change unit's variables }
BottomRightCorner := #190;
BottomLine := #205;
DrawBox( 3, 30, 20, 58 ); { Draw the box }
GotoXY( 1, 24 ) { Position cursor before program ends }
END.