PROGRAM TEST9 DIMENSION X(512),Y(512),IBUF(30),ARRAY(10) DO 10 I=1,512 X(I)=FLOAT(I)*2 Y(I)=FLOAT(I)*4 10 CONTINUE CALL GRAPHS(IBUF,227,X,Y,512,,0) CALL BOUNDS(1,X,XMAX,XMIN,512) RANGE=(XMAX-XMIN) MODE=1 15 DO 20 I=1,10 SPOT=(FLOAT(I)/10.)*RANGE+XMIN CALL ISLEEP(0,0,1,0) 20 CALL GRMARK(IBUF,SPOT,MODE,0) CALL ISLEEP(0,0,10,0) IF(MODE.EQ.0)GOTO 30 MODE=0 GOTO 15 30 CALL EXIT END