PUBLIC FUNCTION Calcmean(fSumme AS Float, fCount AS Float) AS Float

IF fCount = 0 THEN
  PRINT "Division by 0 in function Calcmean"
  QUIT
ENDIF
RETURN fSumme / fCount
END