home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l044 / 4.ddi / DEMOS.ZIP / DISPLAY.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-23  |  434 b   |  27 lines
  1.  
  2. { Copyright (c) 1985,90 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.