PROGRAM TEST3 DIMENSION X(2048),Y(2048),IBUF(30) DO 10 I=1,2048 X(I)=ALOG10(FLOAT(I)) R=(6.2832)*FLOAT(I)/200. Y(I)=SIN(R)+.25*COS(3.*R) 10 CONTINUE CALL GRAPHM(IBUF,227+4,,Y,2048,,0) CALL VTHTXT(8,23,1,' SAME GRAPH WITH STRIPCHARTING ') CALL ISLEEP(0,0,5,0) CALL GRAPHM(IBUF,227+4+16,,Y,2048,,0,1.) CALL GRAPHM(IBUF,32+16,,Y,2048,,0,2.) CALL GRREGN(IBUF,0,1) CALL GRAPHM(IBUF,227+4+16,,Y,2048,,0,1.) CALL EXIT END