**TI92P*chemng.ReconfigX ¥Z þ() Prgm Local a,b,c,e,f,g,n,p,z lbl top Dialog Title "Electron Configuration" DropDown "Method of Display:",{"Normal","Noble Gasses"},e EndDlog If ok=0 goto prge If e=1 Goto a If e=2 Goto b Lbl a Dialog Title "Electron Configuration" Request "Atomic Number",n EndDlog if ok=0 goto top expr(n)n If n<1 Then Dialog Title "Electron Configuration" Text "Invalid Number!" EndDlog Goto a EndIf If n>109 Then Dialog Title "Electron Configuration" Text "Invalid Number!" EndDlog Goto a EndIf n-2n Lbl a1 2a If n<0 Then a-abs(n)a 0n EndIf "1s"z z&string(a)&" "z If n=0 Goto hzz Lbl helium n-2n 2b If n<0 Then b-abs(n)b 0n EndIf z&"2s"&string(b)&" "z If n=0:Goto hzz n-6n:6p If n<0 Then:p-abs(n)p:0n:EndIf z&"2p"&string(p)&" "z If n=0:Goto hzz Lbl neon n-2n:2c If n<0 Then:c-abs(n)c:0n:EndIf z&"3s"&string(c)&" "z If n=0:Goto hzz n-6n:6f If n<0 Then:f-abs(n)f:0n:EndIf z&"3p"&string(f)&" "z If n=0:Goto hzz Lbl argon n-2n:2a If n<0 Then:a-abs(n)a:0n:EndIf z&"4s"&string(a)&" "z If n=0:Goto hzz n-10n:10g If n<0 Then:g-abs(n)g:0n:EndIf z&"3d"&string(g)&" "z If n=0:Goto hzz n-6n:6f If n<0 Then:f-abs(n)f:0n:EndIf z&"4p"&string(f)&" "z If n=0:Goto hzz Lbl krypton n-2n:2f If n<0 Then:f-abs(n)f:0n:EndIf z&"5s"&string(f)&" "z If n=0:Goto hzz n-10n:10f If n<0 Then:f-abs(n)f:0n:EndIf z&"4d"&string(f)&" "z If n=0:Goto hzz n-6n:6f If n<0 Then:f-abs(n)f:0n:EndIf z&"5p"&string(f)&" "z If n=0:Goto hzz Lbl xenon n-2n:2f If n<0 Then:f-abs(n)f:0n:EndIf z&"6s"&string(f)&" "z If n=0:Goto hzz n-14n:14f If n<0 Then:f-abs(n)f:0n:EndIf z&"4f"&string(f)&" "z If n=0:Goto hzz n-10n:10f If n<0 Then:f-abs(n)f:0n:EndIf z&"5d"&string(f)&" "z If n=0:Goto hzz n-6n:6f If n<0 Then:f-abs(n)f:0n:EndIf z&"6p"&string(f)&" "z If n=0:Goto hzz Lbl radon n-2n:2f If n<0 Then:f-abs(n)f:0n:EndIf z&"7s"&string(f)&" "z If n=0:Goto hzz n-14n:14f If n<0 Then:f-abs(n)f:0n:EndIf z&"5f"&string(f)&" "z If n=0:Goto hzz n-10n:10f If n<0 Then:f-abs(n)f:0n:EndIf z&"6d"&string(f)&" "z If n=0:Goto hzz Goto hzz Lbl b Dialog Title "Electron Configuration" Request "Atomic Number",n EndDlog if ok=0 goto top expr(n)n If n>109 Then Dialog Title "Electron Configuration" Text "Invalid Number!" EndDlog Goto b EndIf If nœ0 Then Dialog Title "Electron Configuration" Text "Invalid Number!" EndDlog Goto b EndIf If n<10 Then "[He]"z n-2n Goto helium EndIf If nœ18 Then "[Ne]"z n-10n Goto neon EndIf If nœ36 Then "[Ar]"z n-18n Goto argon EndIf If nœ54 Then "[Kr]"z n-36n Goto krypton EndIf If nœ86 Then "[Xe]"z n-54n Goto xenon EndIf If n>86 Then "[Rn]"z n-86n goto radon EndIf Lbl hzz Dialog Title "Electron Configuration" Text left(z,37) Text mid(z,37) EndDlog lbl prge EndPrgm äåÜ>;