49 lines
913 B
Plaintext
49 lines
913 B
Plaintext
SUB MostarPos (n)
|
|
DIM a(0 TO 7)
|
|
LET a(0) = 1
|
|
LET a(1) = 2
|
|
LET a(2) = 5
|
|
LET a(3) = 13
|
|
LET a(4) = 57
|
|
LET a(5) = 72
|
|
LET a(6) = 89
|
|
LET a(7) = 104
|
|
DIM b(0 TO 7)
|
|
LET b(0) = -1
|
|
LET b(1) = 15
|
|
LET b(2) = 25
|
|
LET b(3) = 35
|
|
LET b(4) = 72
|
|
LET b(5) = 21
|
|
LET b(6) = 58
|
|
LET b(7) = 7
|
|
LET i = 7
|
|
DO WHILE a(i) > n
|
|
LET i = i - 1
|
|
LOOP
|
|
LET m = n + b(i)
|
|
LET r = IP(m / 18) + 1
|
|
LET c = REMAINDER(m, 18) + 1
|
|
PRINT USING "Atomic number ###": n;
|
|
PRINT " ->"; r; c
|
|
END SUB
|
|
|
|
DIM element(0 TO 12)
|
|
LET element(0) = 1
|
|
LET element(1) = 2
|
|
LET element(2) = 29
|
|
LET element(3) = 42
|
|
LET element(4) = 57
|
|
LET element(5) = 58
|
|
LET element(6) = 59
|
|
LET element(7) = 71
|
|
LET element(8) = 72
|
|
LET element(9) = 89
|
|
LET element(10) = 90
|
|
LET element(11) = 103
|
|
LET element(12) = 113
|
|
FOR e = 0 TO UBOUND(element)
|
|
CALL MostarPos (element(e))
|
|
NEXT e
|
|
END
|