Initial data commit

Task/Multiplication-tables/XBasic/multiplication-tables.basic

@@ -0,0 +1,27 @@
+PROGRAM "multiplicationtables"
+VERSION "0.0001"
+
+DECLARE FUNCTION Entry()
+
+FUNCTION Entry()
+  $N = 12
+  FOR j@@ = 1 TO $N - 1
+    PRINT FORMAT$("### ", j@@);
+  NEXT j@@
+  PRINT FORMAT$("###", $N)
+  FOR j@@ = 0 TO $N - 1
+    PRINT "----";
+  NEXT j@@
+  PRINT "+"
+  FOR i@@ = 1 TO $N
+    FOR j@@ = 1 TO $N
+      IF j@@ < i@@ THEN
+        PRINT "    ";
+      ELSE
+        PRINT FORMAT$("### ", i@@ * j@@);
+      END IF
+    NEXT j@@
+    PRINT "|"; FORMAT$(" ##", i@@)
+  NEXT i@@
+END FUNCTION
+END PROGRAM