a="Valkite" wa=8.08 b="Bastium" wb=wa c="Ajatite" wc=6.31 d="Ice"
wd=6.78 e="Vokarium" we=wd f="Nhurgite" wf=wc g="Surtrite" wg=wf
h="Charodium" wh=11.25 i="Exorium" wi=14.25 j="Aegisium" wj=7.67
k="Arkanium" wk=4.31 l="Karnite" wl=8.08 m="Kutonium" wm=7.36
n="Lukium" wn=15.25 o="Corazium" wo=9.95 p="Ymrium" wp=8.78
q="Xhalium" wq=wc scn=""
r="\n" s=" Ore" t=" Crystal" u=100 v=" Stks" scn=""
if:Scanner==0then:Scn="Off"+r+scn goto8end :Scan=1 :Scn="Scan.."+r+scn
:ind=0 if:V==0then:Scn="Scan."+r+scn goto8end
z=:M-s-t V1=:V/1728 V1=(V1+0.05)/u*u L1=z+r+V1+v goto14
:ind=1 z=:M-s-t V2=:V/1728 V2=(V2+0.05)/u*u L2=r+z+r+V2+v goto14
P=V2/V1*100 Scn=L1+L2+r+P+"%"+s+r+mt/1000/u*u+" mt" :Scn="Final"+r+scn
mt=0 :ind=0 :V=0 goto8
:Scn="Calc"+r+scn
wt=(z==a)*wa+(z==b)*wb+(z==c)*wc+(z==d)*wd+(z==e)*we+(z==f)*wf
wt+=(z==g)*wg+(z==h)*wh+(z==i)*wi+(z==j)*wj+(z==k)*wk+(z==l)*wl
wt+=(z==m)*wm+(z==n)*wn+(z==o)*wo+(z==p)*wp+(z==q)*wq
mt+=wt*:V goto11+:ind
// Scanner is first field name on Button and :Scanner
// Scn is first field name of Text Display
// On Scanner, rename Volume field to V, Material field to M, and
// Index field to ind