Initial data commit

Task/Aliquot-sequence-classifications/QBasic/aliquot-sequence-classifications.basic

@@ -0,0 +1,56 @@
+DECLARE FUNCTION PDtotal! (n!)
+DECLARE SUB PrintAliquotClassifier (K!)
+CLS
+CONST limite = 10000000
+
+DIM nums(22)
+DATA 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 28, 496
+DATA 220, 1184, 12496, 790, 909, 562, 1064, 1488
+
+FOR n = 1 TO UBOUND(nums)
+    READ nums(n)
+    PRINT "Number"; nums(n); " :";
+    PrintAliquotClassifier (nums(n))
+NEXT n
+
+PRINT "Program normal end."
+END
+
+FUNCTION PDtotal (n)
+    total = 0
+    FOR y = 2 TO n
+        IF (n MOD y) = 0 THEN total = total + (n / y)
+    NEXT y
+    PDtotal = total
+END FUNCTION
+
+SUB PrintAliquotClassifier (K)
+    longit = 52: n = K: clase = 0: priorn = 0: inc = 0
+    DIM Aseq(longit)
+
+    FOR element = 2 TO longit
+        Aseq(element) = PDtotal(n)
+        PRINT Aseq(element); " ";
+        COLOR 3
+        SELECT CASE Aseq(element)
+        CASE 0
+            PRINT " Terminating": clase = 1: EXIT FOR
+        CASE K AND element = 2
+            PRINT " Perfect": clase = 2: EXIT FOR
+        CASE K AND element = 3
+            PRINT " Amicable": clase = 3: EXIT FOR
+        CASE K AND element > 3
+            PRINT " Sociable": clase = 4: EXIT FOR
+        CASE Aseq(element) <> K AND Aseq(element - 1) = Aseq(element)
+            PRINT " Aspiring": clase = 5: EXIT FOR
+        CASE Aseq(element) <> K AND Aseq(element - 2) = Aseq(element)
+            PRINT " Cyclic": clase = 6: EXIT FOR
+        END SELECT
+        COLOR 7
+        n = Aseq(element)
+        IF n > priorn THEN priorn = n: inc = inc + 1 ELSE inc = 0: priorn = 0
+        IF inc = 11 OR n > limite THEN EXIT FOR
+    NEXT element
+    IF clase = 0 THEN COLOR 12: PRINT " non-terminating"
+    COLOR 7
+END SUB