:Disp "cranwell@yahoo.com"
:Input "MASS 1=?",M:Input "V1 int=?",V
:Input "MASS 2=?",N:Input "V2 int=?",W
:Menu(1,"INLST",S,2,"ELAST",B,5,"REST",R)
:Lbl S:Z+1üZ:(M*V+N*W)/(M+N)üV1:Goto D
:Lbl B:(M-N)/(M+N)*V+(2N/(M+N))*WüV1
:(2M/(M+N))*V+(N-M)/(M+N)*WüV2:Goto D
:Lbl R:(M-N)/(M+N)*VüV1:(2M/(M+N))*VüV2:Goto D
:Lbl D:Disp "FINAL V1",V1:Disp "FINAL V2",V2
:
:

    Source: geocities.com/xulfrepus/ti85

               ( geocities.com/xulfrepus)