: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 : :