Data update

Task/Arithmetic-Integer/XBasic/arithmetic-integer.basic

@@ -0,0 +1,19 @@
+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