n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/CursorMove.pas

22 строки405 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

//��������� ReadKey � ���������� ������� ����� ��������.
uses CRT;

var
  c: char;
begin
  TextBackGround(LightBlue);
  ClrScr;
  GotoXY(40,12);
  repeat
    c:=ReadKey;
    if c=#0 then begin
    c:=readkey;
    case c of
  {L} #37: GotoXY(WhereX-1,WhereY);
  {R} #39: GotoXY(WhereX+1,WhereY);
  {U} #38: GotoXY(WhereX,WhereY-1);
  {D} #40: GotoXY(WhereX,WhereY+1);
    end;
    end;
  until c=#27;
end.