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

	SUBROUTINE WLIN
C SCHREIBT AUF DISPLAY 4010 EIN WAHRSCHEINLICHKEITSNETZ MIT
C PUNKTIERTEN LINIEN UND LINEARER TEILUNG DER ABSZISSE - DIE
C ECKPUNKTE SIND (80,50) UND (725,980) - 50%-LINIE 387,5
C DIE OBEREN ZWEI UND DIE UNTERSTE ZEILE FREI FUER BESCHRIFTUNG
C FORTRAN II / OPTION (I)
C SR : FDIS.FT / ALPHA.FT
C DA : WLIN.DA
	DO 1000 I=170,890,90
	DO 1000 J=50,725,5
1000	CALL FDIS(-1,I,J)
	CALL IOPEN('SYS','WLIN')
	DO 1001 I=1,9
	READ(4,100)IA,IX,IY
100	FORMAT(A2)
1001	CALL FDIS(IA,IX,IY)
	READ(4,100)IA,IX,IY
	CALL FDIS(IA,IX,IY)
	DO 1002 J=80,980,5
1002	CALL FDIS(-1,J,IY)
	DO 1005 I=1,8
	READ(4,100)IY
	DO 1004 J=80,980,5
1004	CALL FDIS(-1,J,IY)
	IY=776-IY
	DO 1005 J=80,980,5
1005	CALL FDIS(-1,J,IY)
	DO 1007 I=1,19
	READ(4,100)IY,IZ
	CALL FDIS(0,0,IY)
	CALL ALPHA
	Z=.1*FLOAT(IZ)
	WRITE(1,101)Z
101	FORMAT(F4.1,'%')
1007	CONTINUE
	CALL FDIS(0,62,0)
	IX=62
	DO 1010 I=0,10
	CALL ALPHA
	WRITE(1,102)I,
102	FORMAT(I2)
	IX=IX+90
	IF(I-9)1009,1008,1009
1008	IX=IX+10
1009	CALL FDIS(0,IX,0)
1010	CONTINUE
	RETURN
	END