FUNCTION FMIN(X1,X2)
C BESTIMMT DIE KLEINSTE DER ZAHLEN X1,X2
C FORTRAN II
	IF(X1-X2)1000,1000,1001
1000	FMIN=X1
	RETURN
1001	FMIN=X2
	RETURN
	END