**TI92P*physicsRradioact€¥Z&() Prgm Local a,h,l,m,n Dialog Title "Radioactivity" Request "Atomic Mass",a Request "Mass",m Request "Half Life",h EndDlog if ok=0 goto prge expr(a)a expr(m)m expr(h)h ln(2)/hl m/a*6.022*10^23n ­1*l*na Dialog Title "Radioactivity" Text string(a) EndDlog lbl prge EndPrgm äåÜ’[