27 lines
607 B
Plaintext
27 lines
607 B
Plaintext
include "ConsoleWindow"
|
|
|
|
dim as Str31 a, b
|
|
dim as long i1, i2
|
|
|
|
input "Enter the first integer: "; a
|
|
print
|
|
input "Enter the second integer: "; b
|
|
print : print
|
|
|
|
i1 = val(a) : i2 = val(b)
|
|
|
|
print " Number 1:"; i1
|
|
print " Number 2:"; i2
|
|
print
|
|
print " Add: "; i1; " +"; i2; " ="; i1 + i2
|
|
print " Subtract: "; i1; " -"; i2; " ="; i1 - i2
|
|
print " Multiply: "; i1; " *"; i2; " ="; i1 * i2
|
|
|
|
if i2 != 0
|
|
print " Divide: "; i1; " /"; i2; " ="; i1 / i2
|
|
print i1; " mod"; i2; " ="; i1 MOD i2; " remainder"
|
|
print i1; " raised to power of"; i2; " ="; i1 ^ i2
|
|
else
|
|
print "Cannot divide by zero."
|
|
end if
|