home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 15 / CDACTUAL15.iso / cdactual / program / pascal / T_LESSON.ZIP / PROG15A.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-04-22  |  305 b   |  20 lines
  1. PROGRAM PROG15A;
  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. BEGIN
  13.   ClrScr;
  14.   Write('Enter X and Y: ');
  15.   ReadLn(X, Y);
  16.   GotoXY(X, Y);
  17.   WriteLn(X,' ',Y);
  18.   Repeat Until KeyPressed;
  19. END.
  20.