PUBLIC SUB Main()
DIM a, b AS Integer
PRINT "VALOR UNO"
INPUT a
PRINT "VALOR DOS"
INPUT b
PRINT "LA SUMA DE LOS VALORES ES", Module1.suma(a, b)
PRINT "LA RESTA DE LOS VALORES ES", Module1.resta(a, b)
PRINT "LA MULTIPLICACION DE LOS VALORES ES", Module1.multiplicacion(a, b)
PRINT "LA DIVICION DE LOS VALORES ES", Module1.division(a, b)
END
*FUNCION*
PUBLIC FUNCTION suma(v1 AS Integer, v2 AS Integer) AS Integer
DIM su AS Integer
su = v1 + v2
RETURN su
END
PUBLIC FUNCTION resta(v1 AS Integer, v2 AS Integer) AS Integer
DIM res AS Integer
res = v1 - v2
RETURN res
END
PUBLIC FUNCTION multiplicacion(v1 AS Integer, v2 AS Integer) AS Integer
DIM mul AS Integer
mul = v1 * v2
RETURN mul
END
PUBLIC FUNCTION division(v1 AS Integer, v2 AS Integer) AS Float
DIM di AS Integer
di = v1 DIV v2
RETURN di
END