route

dojdu na cilove misto a podivam se, jak jsem daleko... :-)


Repeat
    While (Row[I] <> ',') and (Row[I] <> '.') do
    Begin
        Case Row[I] of
            'N': DY := 1;
            'S': DY := -1;
            'W': DX := -1;
            'E': DX := 1;
        End; { case }
        Inc (I);
    End;
    If (DX = 0) or (DY = 0) then
        SR := S
    else
        SR := S / Sqrt(2);
    X := X + SR * DX;
    Y := Y + SR * DY;
until Row[I] = '.';