1. << -> X1 Y1 X2 Y2
<< GRAD 'v/((X2-X1)^2.+(Y2-Y1)^2.)' ->NUM
CASE 'X2-X1>0. AND Y2-Y1>0.'
THEN 'ATAN((X2-X1)/(Y2-Y1))'
END 'X2-X1>0. AND Y2-Y1<0.'
THEN 'ATAN((X2-X1)/(Y2-Y1))+200.'
END 'X2-X1<0. AND Y2-Y1<0.'
THEN 'ATAN((X2-X1)/(Y2-Y1))+200.'
END 'X2-X1<0. AND Y2-Y1>0.'
THEN 'ATAN((X2-X1)/(Y2-Y1))+400.'
END 'X2-X1>0. AND Y2-Y1==0.'
THEN 100.
END 'X2-X1==0. AND Y2-Y1<0.'
THEN 200.
END 'X2-X1<0. AND Y2-Y1==0.'
THEN 300.
END 'X2-X1==0. AND Y2-Y1>0.'
THEN 0.
END "mismopunto" MSGBOX
END ->NUM
>>
>>
