\start83\
\comment=Program file dated 10/07/97, 14:24
\name=MIDPT
\file=J:\MIDPT.AS3
ClrHome
Disp "(X1+X2 , Y1+Y2)"
Disp " -----   -----"
Disp "  2       2"
Disp ""
Input "X1=",A
Input "Y1=",B
Input "X2=",C
Input "Y2=",D
(A+C)/2\->\E
(B+D)/2\->\F
ClrHome
Disp "MIDPOINT IS"
Disp "X="
Disp E\>\Frac
Disp "Y="
Disp F\>\Frac
\stop83\