%%HP: T(1)A(G)F(,);
 GRAD STD
"desde v d=dcho i=izdo
Xd Yd  Xi Yi 
Ldv Liv Ldi Lid "
"" INPUT OBJ 'LID'
STO 'LDI' STO 'LIV'
STO 'LDV' STO 'YI'
STO 'XI' STO 'YD' STO
'XD' STO 'LDI-LDV'
NUM 'D' STO 'LIV-LID
' NUM 'I' STO 'ATAN(
(XI-XD)/(YI-YD))'
NUM 'AZDI' STO 'AZDI
+200,' NUM 'AZID'
STO 'AZDI-D' NUM
'AZDV' STO 'AZID+I'
NUM 'AZIV' STO '(YI*
TAN(AZIV)-YD*TAN(AZDV
)+XD-XI)/(TAN(AZIV)-
TAN(AZDV))' NUM 'YV'
STO 'YV*TAN(AZDV)-YD*
TAN(AZDV)+XD' NUM
'XV' STO 'XV' NUM
"XV" TAG 'YV' NUM
"YV" TAG { LID LDI
LIV LDV YI XI YD XD D
I AZDI AZID AZDV AZIV
YV XV } PURGE
