Data commit

Task/Periodic-table/BASIC256/periodic-table.basic

@@ -0,0 +1,17 @@
+subroutine MostarPos(N)
+    dim A = { 1,  2,  5, 13, 57, 72, 89, 104}
+    dim B = {-1, 15, 25, 35, 72, 21, 58,   7}
+    I = 7
+    while A[I] > N
+        I -= 1
+    end while
+    M = N + B[I]
+    R = (M \ 18) +1
+    C = (M % 18) +1
+    print "Atomic number "; rjust(N,3); "-> "; R ; ", "; C
+end subroutine
+
+dim Element = {1, 2, 29, 42, 57, 58, 59, 71, 72, 89, 90, 103, 113}
+for I = 0 to Element[?]-1
+    call MostarPos(Element[I])
+next I