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