41- replacing the "Bird"

[John W Kercheval]

Wasn't there some way to replace that flying bird "working" symbol on the HP 41? I seem to recall there was.

[Sylvain Cote]

(01-25-2015 10:46 AM)John W Kercheval Wrote:  Wasn't there some way to replace that flying bird "working" symbol on the HP 41? I seem to recall there was.

Code:


"*" (any string up to 12 characters will do)
AVIEW
SF 25
GTO 99 (nonexistent label, error trigger rotating display)
LBL 00 (infinite loop, show custom rotating)
5
SIN
GTO 00

[Didier Lachieze]

See also this post.

[Dieter]

(01-25-2015 10:46 AM)John W Kercheval Wrote:  Wasn't there some way to replace that flying bird "working" symbol on the HP 41? I seem to recall there was.

The flying bird ("goose") advances every time the running program reaches a label. Due to a bug in the internal display routines the goose can be replaced by a custom character or message: As soon as an error occurs and the program does not stop (because the error ingore flag 25 was set), any other message currently in the display (via VIEW or AVIEW) will scroll the same way the goose usually does.

So simply VIEW or AVIEW your message, SF 25, generate an error... et voilà.

Dieter

[Ángel Martin]

Nicer yet are the backwards goose and the same one flying backwards (i.e. right to left)... check the functions in the SUDOKU module if you're curious.

[Geoff Quickfall]

In my talk last year I replaced the goose with the + key using the synthetic register "d". I wrote the program in 84 for the 41cx I used in my lab. The "+" is the alpha symbol:

"+"
RCL d
AVIEW
STO d

Place this routine in front of the loop where you want the symbol displayed. The program did a sum of 27 data points and as it did this the "+" scrolled indicating which stage of the program was being executed.

I love synthetics. Wickes' book has a synthetic which reverses the goose but not its direction, still scrolling left to right but backwards unlike Angels reference.

Nice to know that all the synthetics work in the CL for increased speed! Not that it needs increased speed, yuk yuk yuk yuk :-)

Geoff

So many ways to" skin a goose", so to speak!

[Ángel Martin]

(01-25-2015 07:01 PM)Geoff Quickfall Wrote:  So many ways to" skin a goose", so to speak!

Wasn't that "to feather a cat"?
oh you native speakers ! ;-)