HP41C - workaround for the SIZE? missing

[RMollov]

(04-20-2016 08:40 AM)Werner Wrote:  Here's my non-synthetic version, 36 bytes without the END

Code:

>LBL"SIZE?"
 255
 ENTER
 ISG X
>LBL 01
 SF 25
 VIEW IND Y
 CLD
 FC?C 25
 CHS
 2
 /
 ST+ Y
 ABS
 INT
 X>0?
 GTO 01
 RDN
 LASTX
 +
 END

Cheers, Werner
*Edited a few times. Now, after 25 years or so, I seem to be able to find improvements I couldn't find before..

I got rid of CLD and replaced VIEW IND Y with ARCL IND Y and it's now slightly quicker plus the goose flies smoooothly

Cheers