XProfan

nProc AngleByLine(long x,y,xx,yy)

    sub y,yy
    sub x,xx

    if x

        xx=int(57295.77951 * arctan(float(y)/float(x)))
        caso x>0 : volver 270000 + xx
        volver 90000 + xx

    endif

    caso y<0 : volver 180000
    volver 0

ENDPROC

Proc AngleByLine

    parámetros x&,y&,xx&,yy&
    dec y&,yy&
    dec x&,xx&

    if x&

        xx& = int(57295.77951 * arctan(y& / x&))
        caso x&>0 : volver 270000 + xx&
        volver 90000+ xx&

    endif

    caso y&<0 : volver 180000
    volver 0

ENDPROC