home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / menu / overdriv / drawbox.dem < prev    next >
Encoding:
Text File  |  1988-04-06  |  212 b   |  12 lines
  1. USES DRAWBOX,IOSTUFF,CRT;
  2. VAR
  3.   X,Y : Integer;
  4.  
  5. BEGIN
  6.  X := 5;
  7.  Y := 5;
  8.  SetColor(Yellow,Magenta);
  9.  ClrScr;
  10.  WriteSt('Use the arrow keys to draw a box.  Note intersecting lines',1,25);
  11.  Box(X,Y);
  12. End.