**TI92P*physicsRenergy¨¥ZN() Prgm setMode("Exact/Approx","APPROXIMATE") Local a,m,n Dialog Title "Beta Decay" Request "Original Mass",m Request "New Mass",n EndDlog if ok=0 goto prge expr(m)m expr(n)n (m-n-0.0005)*931a Dialog Title "Beta Decay" Text "Energy Released: "&string(a)&"MeV" EndDlog lbl prge setMode("Exact/Approx","AUTO") EndPrgm äåÜDg