SUBROUTINE KAKO(XA,XE,YA,YE)
C KARTHESISCHES KOORDINATEN-NETZ - ECKPUNKTE (0,0),(1000,700)
C ZEILEN 1,2 UND 3 BIS SPALTE 30 FREI FUER BESCHRIFTUNG
C FORTRAN II
C SR : ERASE.FT / FDIS.FT
	CALL ERASE
	WRITE(1,1100)XA,XE,YA,YE
1100	FORMAT(32X'XA = 'E12.4'  XE = 'E12.4/
	132X'YA = 'E12.4'  YE = 'E12.4)
	CALL FDIS(0,0,0)
	CALL FDIS(1,0,700)
	CALL FDIS(1,1000,700)
	CALL FDIS(1,1000,0)
	CALL FDIS(1,0,0)
	IX=0
	DO 1003 N=1,49
	IX=IX+20
	CALL FDIS(0,IX,0)
	IF(IREM(N/5))1002,1002,1001
1001	CALL FDIS(1,IX,7)
	CALL FDIS(0,IX,700)
	CALL FDIS(1,IX,693)
	GOTO 1003
1002	CALL FDIS(1,IX,15)
	CALL FDIS(0,IX,700)
	CALL FDIS(1,IX,685)
1003	CONTINUE
	IY=0
	DO 1006 N=1,49
	IY=IY+14
	CALL FDIS(0,0,IY)
	IF(IREM(N/5))1005,1005,1004
1004	CALL FDIS(1,7,IY)
	CALL FDIS(0,1000,IY)
	CALL FDIS(1,993,IY)
	GOTO 1006
1005	CALL FDIS(1,15,IY)
	CALL FDIS(0,1000,IY)
	CALL FDIS(1,985,IY)
1006	CONTINUE
	RETURN
	END