REAL*4 X(101),Y(101)
      TWOPI=3.14159*2.0
      DO 1000 I=1,101
      XRAD=TWOPI*(I-1)/100.0
      Y(I)=SIN(XRAD)
1000  X(I)=XRAD*360.0/TWOPI
      CALL VATT
      CALL PAGE
      CALL PRINT('PLOT OF SIN(X) VS X$',0,2.0)
      CALL SKIP(1)
      CALL XAXIS(0.0,360.0,90.0,1.5)
      CALL YAXIS(-1.0,1.0,.5,1.0,7.0)
      CALL PLTARR(101,4,4,X,Y,1,1,0.0)
      CALL ENDPLT
      CALL VDET
      STOP
      END