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

	SUBROUTINE KURV(XA,XE,YA,YE)
C BESCHRIFTUNG XA,XE,YA,YE
C KURVENPUNKTE IN "KAKO"-NETZ AUF DISPLAY 4010
C KARTHESISCHE KOORDINATEN DER PUNKTE IN TEM.DA
C ANZAHL DER WERTE-PAARE (A6) - WERTE-PAARE (2A6)
C FORTRAN II / OPTION (I)
C SR : FDIS.FT
C DA : TEM.DA
	WRITE(1,999)XA,YA,XE,YE
999	FORMAT(32X'XA = 'E12.4'  YA = 'E12.4/
	132X'XE = 'E12.4'  YE = 'E12.4)
	DX=1000./(XE-XA)
	DY=700./(YE-YA)
	CALL IOPEN('SYS','TEM')
	READ(4,1100)ANZ
1100	FORMAT(A6)
1000	READ(4,1101)X,Y
1101	FORMAT(2A6)
	IF(XA-X)1002,1002,1006
1002	IF(XE-X)1006,1003,1003
1003	IF(YA-Y)1004,1004,1006
1004	IF(YE-Y)1006,1005,1005
1005	FX=DX*(X-XA)
	FY=DY*(Y-YA)
	IX=FX
	IY=FY
	CALL FDIS(-1,IX,IY)
1006	ANZ=ANZ-1.
	IF(ANZ)1007,1007,1000
1007	RETURN
	END