home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOPDEMO.ZIP / DRAWBOX.DEM < prev    next >
Encoding:
Text File  |  1988-04-05  |  211 b   |  12 lines
  1. USES DRAWBOX,IOSTUFF,CRT;
  2. VAR
  3.   X,Y : Integer;
  4.  
  5. BEGIN
  6.  X := 5;
  7.  Y := 5;
  8.  ClrScr;
  9.  SetColor(Magenta,Black);
  10.  WriteSt('Use the arrow keys to draw a box.  Note intersecting lines',1,25);
  11.  Box(X,Y);
  12. End.