Directory of image this file is from
This file as a plain text file

	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