20 lines
409 B
Plaintext
20 lines
409 B
Plaintext
PROGRAM "IntegerArithmetic"
|
|
VERSION "0.0000"
|
|
|
|
DECLARE FUNCTION Entry ()
|
|
|
|
FUNCTION Entry ()
|
|
a$ = INLINE$("Enter integer A: ")
|
|
a = SLONG(a$)
|
|
b$ = INLINE$("Enter integer B: ")
|
|
b = SLONG(b$)
|
|
PRINT
|
|
PRINT " Sum:"; a + b
|
|
PRINT "Difference:"; a - b
|
|
PRINT " Product:"; a * b
|
|
PRINT " Quontent:"; a / b
|
|
PRINT " Remainder:"; a MOD b
|
|
PRINT " Power:"; a ** b
|
|
END FUNCTION
|
|
END PROGRAM
|