48 lines
762 B
Plaintext
48 lines
762 B
Plaintext
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
|