Periodic table: Difference between revisions
→{{header|Craft Basic}}
Basicgames (talk | contribs) |
|||
Line 344:
==={{header|Craft Basic}}===
<syntaxhighlight lang="basic">
do
if
gosub searchtable
Line 362 ⟶ 374:
end
▲ dim b[-1, 15, 25, 35, 72, 21, 58, 7]
▲ title "Periodic Table Search"
▲ resize 0, 0, 220,130
▲ center
▲ formid 1
▲ formtext "Search"
▲ buttonform 55, 40, 100, 20
▲ formid 2
▲ formtext ""
▲ staticform 1, 1, 220, 20
sub searchtable
Line 400 ⟶ 388:
let m = e + b[i]
let r = int(m / 18) + 1
let
formid 2
| |||