READ(1,100) IR 100 FORMAT (' STEIGUNG : ',I9) CALL PLOTX(1,IR,1) K=0 DO 3 I=1,2000 K=K+1 3 CONTINUE CALL PENDN K=0 DO 5 I=1,2000 K=K+1 5 CONTINUE DO 10 I=1,1023,1 IF=IFIX(FLOAT(IR)*ALOG(FLOAT(I))) CALL XYPLT(I,IF) K=0 DO 30 J=1,2047 K=K+1 30 CONTINUE 10 CONTINUE K=0 DO 15 I=1,2000 K=K+1 15 CONTINUE CALL PLOTX(2,2,1) K=0 DO 20 I=1,2000 K=K+1 J=K-1*10/10 20 CONTINUE CALL EXIT END