Initial data commit

Task/Factorions/PureBasic/factorions.basic

@@ -0,0 +1,24 @@
+Declare main()
+
+If OpenConsole() : main() : Else : End 1 : EndIf
+Input() : End
+
+Procedure main()
+  Define.i n,b,d,i,j,sum
+  Dim fact.i(12)
+
+  fact(0)=1
+  For n=1 To 11 : fact(n)=fact(n-1)*n : Next
+
+  For b=9 To 12
+    PrintN("The factorions for base "+Str(b)+" are: ")
+    For i=1 To 1500000-1
+      sum=0 : j=i
+      While j>0
+        d=j%b : sum+fact(d) : j/b
+      Wend
+      If sum=i : Print(Str(i)+" ") : EndIf
+    Next
+    Print(~"\n\n")
+  Next
+EndProcedure