PROGRAM TEST5 DIMENSION X(512),Y(512),IBUF(30) DO 10 I=1,512 R=(6.2832)*FLOAT(I)/200. X(I)=SIN(4.*R) Y(I)=SIN(R) 10 CONTINUE CALL GRAPHS(IBUF,227+4,,Y,512,0.,0) CALL GRREGN(IBUF,1,3) CALL GRAPHS(IBUF,227+4,,X,512,0.,1) CALL VTHTXT(8,23,1,'TWO GRAPHS OVERLAPPING - FULL DISPLAY') CALL ISLEEP(0,0,5,0) CALL VTHTXT(8,23,1,' TURNING GRAPH 0 OFF ') CALL GRVIEW(IBUF,0,0) CALL ISLEEP(0,0,3,0) CALL VTHTXT(8,23,1,' TURNING GRAPH 0 ON AND GRAPH 1 OFF ') CALL GRVIEW(IBUF,1,0) CALL GRVIEW(IBUF,0,1) CALL ISLEEP(0,0,3,0) CALL VTCLR CALL GRREGN(IBUF,0,1) CALL GRREGN(IBUF,1,2) CALL GRAPHS(IBUF,227+4,,X,512,,0) CALL GRAPHS(IBUF,227+4,,Y,512,,1) CALL VTHTXT(8,23,1,'SAME GRAPHS PLOTTED SEPERATELY') CALL ISLEEP(0,0,5,0) CALL VTHTXT(8,23,1,' TURNING GRAPH 0 OFF ') CALL GRVIEW(IBUF,0,0) CALL ISLEEP(0,0,2,0) CALL VTHTXT(8,23,1,'TURNING GRAPH 0 ON, AND GRAPH 1 OFF') CALL GRVIEW(IBUF,1,0) CALL GRVIEW(IBUF,0,1) CALL ISLEEP(0,0,5,0) CALL VTCLR CALL EXIT END