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

C TEILPROGRAMM KURVEN VON DIAGRA
C FUER AUFZEICHNEN VON KURVEN
C FORTRAN II
C CH : LILI.FT / NP.FT
	COMMON N0,N1,NG,ITEXT,XA,XE,YA,YE
	DIMENSION NG(99),ITEXT(3,15)
	WRITE(1,100)
100	FORMAT('AUFZEICHNEN VON KURVEN'/22('-'))
1	DO 2 I=1,3
	DO 2 J=1,15
2	ITEXT(I,J)='  '
	WRITE(1,101)LEER,
101	FORMAT(/'BESCHRIFTUNG (MAXIMAL 30 ZEICHEN PRO ZEILE)'/
	1' 1. ZEILE : 'I0)
	READ(1,102)(ITEXT(1,J),J=1,15),
102	FORMAT(15A2)
	WRITE(1,103)LEER,LEER,
103	FORMAT(I0/' 2. ZEILE : 'I0)
	READ(1,102)(ITEXT(2,J),J=1,15),
	WRITE(1,104)LEER,LEER,
104	FORMAT(I0/' 3. ZEILE : 'I0)
	READ(1,102)(ITEXT(3,J),J=1,15),
	WRITE(1,107)
107	FORMAT(//'GRENZEN :')
	READ(1,109)XA,XE,YA,YE
109	FORMAT('  XA = 'F15.6/'  XE = 'F15.6/
	1'  YA = 'F15.6/'  YE = 'F15.6)
	WRITE(1,110)LEER,
110	FORMAT(/'ABSZISSEN : LINEAR  (1)'/12X'LOG     (2)'
	1/12X'LOG-LOG (3) : 'I0)
	READ(1,111)IABS
111	FORMAT(I2)
	WRITE(1,112)LEER,
112	FORMAT(/'ORDINATEN : LINEAR  (1)'/12X'LOG     (2)'
	1/12X'LOG-LOG (3) : 'I0)
	READ(1,111)IORD
	WRITE(1,105)LEER
105	FORMAT(I0)
	READ(1,113)ID
113	FORMAT('EINGABE OK ? (JA=1,NEIN=0) : 'I1)
	IF(ID)1,1,9
9	GOTO(10,11,12),IABS
10	GOTO(13,14,15),IORD
11	GOTO(16,17,18),IORD
12	GOTO(19,20,21),IORD
13	CALL CHAIN('LILI')
14	CALL CHAIN('NP')
15	CALL CHAIN('NP')
16	CALL CHAIN('NP')
17	CALL CHAIN('NP')
18	CALL CHAIN('NP')
19	CALL CHAIN('NP')
20	CALL CHAIN('NP')
21	CALL CHAIN('NP')
	END