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 RADF=0.01745329 !PI/180 degrees to radians conversion factor DO 40 I=0,360,1 THETA=FLOAT(I)*RADF XR=X+RAD*COS(THETA) YR=Y+RAD*SIN(THETA) IF(THETA.GT.0.0)GOTO 20 CALL PLOT(XR,YR,3) CALL PLOT(XR,YR,2) 20 CALL PLOT(XR,YR,1) 40 CONTINUE CALL PENUP 30 RETURN END