18 lines
437 B
Plaintext
18 lines
437 B
Plaintext
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
|