` ``:sub("AB",V,1 :Disp Ans+"="+Str1 :expr(Ans+sub("+-*/",O,1)+Str1 :If V=1 :Then:Ans→A :Else:Ans→B :End`

` ``:While min(A,B :ClrHome :Disp "A or B? :Repeat max(Ans={1,2 :getKey-40 :End :Ans→V :Disp "Operation? :Repeat max(Ans=cumSum(binomcdf(3,0 :.1getKey-5.5 :End :Ans→O :Input "Value:",C :C:prgmN2S :If V=1 :Then :Disp "A="+Ans :expr("A"+sub("+-*/",O,1)+Ans→A :Else :Disp "B="+Ans :expr("B"+sub("+-*/",O,1)+Ans→B :End :End`

` ``prgmN2S (on TI-BD site): :{0,1→L₁ :{0,N→L₂ :LinReg(ax+b) Y₁ :Equ►String(Y₁,Str1 :sub(Str1,1,length(Str1)-3→Str1`

Ex:

expr("A"+"*"+"B")

for '*'. ]]>