PUBLIC FUNCTION CalculaMedia(fSoma AS Float, fQuantos AS Float) AS Float

IF fQuantos = 0 THEN
  PRINT "Divisão por 0 na função CalculaMedia"
  QUIT
ENDIF
RETURN fSoma / fQuantos
END