PX=ƒJƒ€’†�S‚w�À•W
PY=ƒJƒ€’†�S‚x�À•W
PA=ŠJŽnŠp“x
PB=�I—¹Šp“x
PI=ŠJŽn”¼Œa
PJ=�I—¹”¼Œa
PP=��‚ÝŠp“x
PF=‘—‚葬“x

OCAM
IF [PI LT 0] NG99
IF [PJ LT 0] NG99
IF [PP LE 0] NG99
WE=1/[2*3.14159]
WF=360
WS=PJ-PI
WK=PI
WA=PB-PA
FLG=1
IF [WS EQ 0] NG99
IF [WA GT 0] NS1
IF [WA EQ 0] NG99
FLG=-1
NS1
WB=ABS[WA]
WAA=0
NS10
IF [WAA GT WB] NS20
WQ=WAA/WB
WW=WS*[WQ-WE*SIN[WF*WQ]]
WR=WK+WW
WKK=PA+WAA*FLG
WX=COS[WKK]*WR+PX
WX=SIN[WKK]*WR+PY
G1 X=WX Y=WY F=PF
WAA=WAA+PP
GOTO NS10
NS20
GOTO NEND
NG99
M0
NEND
RTS