’PŒ·‹Èü—pƒJƒ€ƒ}ƒNƒ(OSP—pj

CALL OCAM PX=0 PY=0 PI=100 PJ=120 PA=0 PB=90 PP=1 PF=100

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