dim Element(12)
Element(0) =   1
Element(1) =   2
Element(2) =  29
Element(3) =  42
Element(4) =  57
Element(5) =  58
Element(6) =  59
Element(7) =  71
Element(8) =  72
Element(9) =  89
Element(10) =   90
Element(11) =  103
Element(12) =  113
for e = 0 to 12
    call MostarPos Element(e)
next e

sub MostarPos N
    dim A(7)
    A(0) =   1
    A(1) =   2
    A(2) =   5
    A(3) =  13
    A(4) =  57
    A(5) =  72
    A(6) =  89
    A(7) = 104
    dim B(7)
    B(0) = -1
    B(1) = 15
    B(2) = 25
    B(3) = 35
    B(4) = 72
    B(5) = 21
    B(6) = 58
    B(7) =  7

    I = 7
    while A(I) > N
        I = I - 1
    wend
    M = N + B(I)
    R = int(M / 18) +1
    C = (M mod 18) +1
    print "Atomic number "; using("###", N); " -> "; R; ", "; C
end sub