Data commit

Task/Periodic-table/True-BASIC/periodic-table.basic

@@ -0,0 +1,48 @@
+SUB MostarPos (n)
+    DIM a(0 TO 7)
+    LET a(0) = 1
+    LET a(1) = 2
+    LET a(2) = 5
+    LET a(3) = 13
+    LET a(4) = 57
+    LET a(5) = 72
+    LET a(6) = 89
+    LET a(7) = 104
+    DIM b(0 TO 7)
+    LET b(0) = -1
+    LET b(1) = 15
+    LET b(2) = 25
+    LET b(3) = 35
+    LET b(4) = 72
+    LET b(5) = 21
+    LET b(6) = 58
+    LET b(7) = 7
+    LET i = 7
+    DO WHILE a(i) > n
+       LET i = i - 1
+    LOOP
+    LET m = n + b(i)
+    LET r = IP(m / 18) + 1
+    LET c = REMAINDER(m, 18) + 1
+    PRINT USING "Atomic number ###": n;
+    PRINT " ->"; r; c
+END SUB
+
+DIM element(0 TO 12)
+LET element(0) = 1
+LET element(1) = 2
+LET element(2) = 29
+LET element(3) = 42
+LET element(4) = 57
+LET element(5) = 58
+LET element(6) = 59
+LET element(7) = 71
+LET element(8) = 72
+LET element(9) = 89
+LET element(10) = 90
+LET element(11) = 103
+LET element(12) = 113
+FOR e = 0 TO UBOUND(element)
+    CALL MostarPos (element(e))
+NEXT e
+END