I was thinking about this routine. You see, it uses two real variables (A and B) to determine which calculator is "calculator A" and which calculator is "calculator B". But I can reduce this to using just one variable, A — it would make the program 6 bytes larger, and perhaps less easy to understand — but better if people tried to mimic this technique in their programs. Here is the larger routine:
:"→Str1 :"→Str2 :GetCalc(A :.1π(A=π)+π(A≠π→A :Lbl M :ClrHome :Menu("IM","READ",R,"SEND",S,"QUIT",Q :Lbl S :Input "SEND MESSAGE: ",Str3 :If A=π:Str3→Str1 :If π=10fPart(A:Str3→Str2 :Goto M :Lbl R :If iPart(A:Then :GetCalc(Str2 :Str2 :Else :GetCalc(Str1 :Str1 :End :Output(1,1,Ans :Pause :Goto M :Lbl Q
Should we change the routine on this page to this one? Or should we leave it as it is?
Cheers ~ James Kanjo