Threaded Mode | Linear Mode

**rprosperi** · 11-25-2015, 08:54 PM

(11-25-2015 08:32 PM)Dieter Wrote:

Code:

ALL 03 // or FIX 0 if you prefer #003 STO 01 // accept up to 3 digits for fuel entry PSE 10 DSZ X // display "3...2...1..." BACK 002 STO 00 // set fuel = 0 RCL 00 // display fuel, resp. at the beginning display "...0" PSE 10 KEY? X SKIP 010 // No entry? Then quit KTP? X // else check key type #010 x<=y? // key type >= 10? => no digit key, invalid. BACK 007 // invalid key? get a new one. Punish this? Replace by SKIP 003 or even SKIP 005 RCLx 00 // build new fuel value = 10*old_value + new_digit + STO 00 // new fuel value DSZ 01 // read another key (up to three) BACK 012 RCL 00 // return fuel value RTN

This routine accepts numeric input during the PSE with up to three digits (i.e. 0...999). If only one or two digits are entered (or nothing at all) that's fine either.

Dieter - I read and appreciate your almost daily contributions, always teaching me little tricks, space and time saving techniques, stuff I didn't know the 34S could even do, and on the odd occasion I even learn some math.

Just wanted to comment that this little routine solves a frequent problem, elegantly using several non-obvious 34S commands, all documented very clearly.

Just a small thanks for all you teach me (and I presume, many others).

Happy Thanksgiving