PROGRAM TEST4 DIMENSION X(512),Y(512),IBUF(30) DO 10 I=1,512 X(I)=ALOG10(FLOAT(I)) R=(6.2832)*FLOAT(I)/200. Y(I)=SIN(R) 10 CONTINUE CALL BOUNDS(1,X,XMAX,XMIN,512) CALL BOUNDS(1,Y,YMAX,YMIN,512) CALL GRINIT(IBUF) CALL GRREGN(IBUF,0,3) CALL GRCLN(IBUF,0) CALL GRSCAL(IBUF,XMIN,XMAX,YMIN,YMAX,0) CALL GRFRAM(IBUF,0,227) DO 50 I=1,512 I1=513-I CALL GRPNTS(IBUF,0,X(I1),Y(I1),0) 50 CONTINUE CALL VTMCUR(20,1) DO 100 I=1,10 XUSR=((FLOAT(I)/10.)*(YMAX-YMIN))+YMIN CALL GRHLIN(IBUF,XUSR,0) 100 CONTINUE CALL ISLEEP (0,0,5,0) CALL GRAPHS(IBUF,,,Y,512,,,) CALL GRHLIN(IBUF,.5,0) CALL GRHLIN(IBUF,-.5,0) CALL EXIT END