**TI92P*physicsRdecay}¥Z#() Prgm Local m,n,p,r lbl top Dialog Title "Radioactive Decay" Request "Atomic Mass",m Request "Atomic Number",n EndDlog if ok=0 goto prge expr(m)m expr(n)n Lbl decay Dialog Title "Radioactive Decay" DropDown "Particle:",{"Alpha","Beta"},p EndDlog if ok=0 goto top If p=1 Then m-4m n-2n Goto en EndIf If p=2 n+1n Lbl en Dialog Title "Radioactive Decay" Text "Atomic Mass: "&string(m) Text "Atomic Number: "&string(n) DropDown "Decay Again:",{"Yes","No"},r EndDlog if ok=0 goto prge If r=1 Goto decay lbl prge EndPrgm äåÜü«