SUBROUTINE CIRCLE(X,Y,RAD) C C X,Y(real)=center of the circle in inches C RAD(real)=radius of the circle in inches C The circle is drawn with zero degrees on the +ve X axis C After the circle is drawn,the pen is left on the circumference C at zero degrees,with the pen up. C COMMON/INIT/ILUN,FACTOR,IMODE,IPENST COMMON/ORIGIN/XOR,YOR IPMODE=IMODE !save current mode IF(IMODE.EQ.1)IMODE=0 !change to absolute mode XP=RAD*FACTOR*88.25 !get xpoint on the circumference CALL PLOT(X,Y,3) !move to the center WRITE(ILUN,15)XP !send the code to the screen 15 FORMAT(' C[+'F']') !circle with center at current pos. CALL PENUP !turn beam off IMODE=IPMODE !reset plotting mode 30 RETURN END