rem **** CREATE POINT AT MIDPOINT ****

:arc
set mask, 3
getent "SELECT ARC ", entype
if (@key < -1)
goto exit
if (@key == -1)
goto arc

basex = @xworld
basey = @yworld

X = @fltdat[0]
Y = @fltdat[1]
A = @fltdat[4]
B = @fltdat[5]
R = @fltdat[3]

rem **** calulations***

C=B/2+A
D=3.1415926536/180
E=C/D
F=R*sin(E)
G=R*cos(E)

point X+G,Y+F,0
redraw

:exit
EXIT