home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo5 / display.pas < prev    next >
Pascal/Delphi Source File  |  1988-10-09  |  436b  |  27 lines
  1.  
  2. { Copyright (c) 1985, 88 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.