home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG15B.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-22  |  424 b   |  25 lines
  1. PROGRAM PROG15B;
  2. {       Copyright  (C), 1988 by Lyle Faurot.  All rights reserved.
  3.  
  4.      New Topics:  Cursor location
  5. }
  6.  
  7. USES CRT;
  8.  
  9. VAR
  10.   X, Y  : Integer;
  11.  
  12. PROCEDURE Locate(X, Y : Integer);
  13. BEGIN
  14.   GotoXY(Y, X);   {Note the X and Y here are reversed from GotoXY }
  15. END;
  16.  
  17. BEGIN
  18.   ClrScr;
  19.   Write('Enter X and Y: ');
  20.   ReadLn(X, Y);
  21.   Locate(X, Y);
  22.   WriteLn(X,' ',Y);
  23.   Repeat Until KeyPressed;
  24. END.
  25.