Data update

Task/Casting-out-nines/XBasic/casting-out-nines.basic

@@ -0,0 +1,17 @@
+PROGRAM  "Casting out nines"
+VERSION  "0.0000"
+
+DECLARE FUNCTION  Entry ()
+
+FUNCTION  Entry ()
+  bs = 10
+  c1 = 0
+  c2 = 0
+  FOR k = 1 TO (bs ** 2) - 1
+    INC c1
+    IF k MOD (bs - 1) = (k * k) MOD (bs - 1) THEN INC c2: PRINT k;
+  NEXT k
+  PRINT
+  PRINT "Trying "; c2; " numbers instead of "; c1;  " numbers saves "; 100 - (100 * c2 / c1); "%"
+END FUNCTION
+END PROGRAM