program top
rem 	Provides two-dimensional coordinate translation and rotation. Press
rem	XEQ D to start. 
lbl d
input m
input n
input t
gto d
lbl n
input x
input y
rcl x
rcl n
rcl m
cmplx-
rcl t
sign
1
polarrect
cmplxx
sto u
xuy
sto v
xuy
view u
view v
gto n
lbl o
input u
input v
rcl u
rcl t
1
polarrect
cmplxx
rcl n
rcl m
cmplx+
sto x
xuy
sto y
xuy
view x
view y
gto o
rtn
