{* Задача 249 *}

Unit ZADACH249;
Interface
Implementation
Begin
 writeln('Управление курсором, может выполняться, например, с клавиатуры: нажатие клавиш управления курсором означает смену указываемой точки и вызывает соответствующее изменение формы или положения курсора. Для курсора-перекрестья изменение указываемой точки сопровождается перемещением горизонтальной или вертикальной прямой, образующей курсор, или обеих прямых одновременно. Изменение указываемой точки для курсора-крестика или курсора- стрелки сопровождается соответствующим перемещением курсора. ');
End.

Program zadach249;

Uses zadach249.pas; {* Эту строку можно удалить *}
Uses graph, crt; {* Подключение модулей *}
Var {* Объявление переменных *}
  grmode   : integer;
  grdriver : integer;
  left     : integer;
  up       : integer;
Begin
  clrscr; {* Очистка экрана *}
  grdriver := detect;
  initgraph(grdriver, grmode, '');
  line(0, 0, 0, getmaxY);
  line(0, 0, getmaxX, 0);
  While readkey'q' Do
  Begin
    If (readkey = 's') Then
      up := up + 1;
    If (readkey = 'w') Then
      up := up - 1;
    If (readkey = 'a') Then
      left := left - 1;
    If (readkey = 'd') Then
      left := left + 1;
    cleardevice;
    line(0, up, getmaxx, up);
    line(left, 0, left, getmaxx);
  End;
  closegraph;
End.