SUBROUTINE BILD(EG,EF)
C PUNKTWEISE DARSTELLEN EINES BILDES VOM BILDSPEICHER
C EG = EINGABE-GERAET
C EF = EINGABE-DATEI
C FORTRAN II / OPTION (IH)
C SR : FDIS.FT
	CALL IOPEN(EG,EF)
	READ(4,1100)IXA,IXE,IYA,IYE
1100	FORMAT(A2)
	IXE=IXE-1
	IXA=3*IXA
	IXE=3*IXE
	IYA=2*IYA
	IYE=2*IYE
	IX=IXA
	IY=IYA
1000	READ(4,1100)N1
	N2=0
1001	N3=0
S	CLA CLL
S	TAD \N1
S	RAL
S	DCA \N1
S	RAL
S	DCA \N3
	IF(N3)1003,1003,1002
1002	CALL FDIS(-1,IY,IX)
1003	IX=IX+3
	IF(IXE-IX)1004,1005,1005
1004	IX=IXA
	IY=IY+2
1005	IF(IYE-IY+1)1007,1006,1006
1006	N2=N2+1
	IF(12-N2)1000,1000,1001
1007	RETURN
	END