home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip_2000-04_cd.bin / zkuste / TPascal / DEMOS.ARC / DISPLAY.PAS < prev    next >
Pascal/Delphi Source File  |  1989-05-02  |  438b  |  27 lines
  1.  
  2. { Copyright (c) 1985, 1989 by Borland International, Inc. }
  3.  
  4. unit Display;
  5. { Sample unit for CIRCULAR.PAS }
  6.  
  7. interface
  8.  
  9. procedure WriteXY(x, y : integer; s : string);
  10.  
  11. implementation
  12. uses
  13.   Crt, Error;
  14.  
  15. procedure WriteXY(x, y : integer; s : string);
  16. begin
  17.   if (x in [1..80]) and (y in [1..25]) then
  18.   begin
  19.     GoToXY(x, y);
  20.     Write(s);
  21.   end
  22.   else
  23.     ShowError('Invalid WriteXY coordinates');
  24. end;
  25.  
  26. end.
  27.