home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NVDC87.ZIP / UNITS.ZIP / TESTBOX.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1987-08-18  |  545 b   |  24 lines
  1. PROGRAM TestBox;
  2.  
  3. USES    Crt, Box;
  4.  
  5. BEGIN
  6.  
  7.         { Draw a test box }
  8.  
  9.         ClrScr;
  10.         DrawBox( 5, 8, 15, 64 );        { Use default values }
  11.  
  12.  
  13.         { Draw a second box, this time with a double-line
  14.           border on the top and bottom. }
  15.  
  16.         BottomLeftCorner  := #212;      { Change unit's variables }
  17.         BottomRightCorner := #190;
  18.         BottomLine        := #205;
  19.         DrawBox( 3, 30, 20, 58 );       { Draw the box }
  20.  
  21.         GotoXY( 1, 24 )  { Position cursor before program ends }
  22.  
  23. END.
  24.