HP41C - workaround for the SIZE? missing

[Gene]

Couple of items from PPC Journal issues, just for the fun of it.

HP-41C Shortest Size Finder by Rolf R. Schmitt - 21 bytes
PPC Calculator Journal V7 N8 P26 October 1980

Code:

01 LBL "S" ;Shortest Size Finder Routine
 02 0
 03 SF 25
 04 LBL 01
 05 VIEW IND X
 06 FS? 25
 07 ISG X
 08 STOP
 09 GTO 01
 10 END

HP-41C Short Size Finder Routine by Geoff Smith - 25 bytes
PPC Calculator Journal V7 N6 Pg 36 Jul/Aug 1980

Code:

01 LBL "S" ;Short Size Finder Routine
 02 .5
 03 SF 25
 04 LBL 01
 05 VIEW IND X
 06 ISG X
 07 FS? 25
 08 GTO 01
 09 1.5
 10 -
 11 END

HP-41C Size Finder Routine by Justus A. Villa - 31 bytes[/php]
PPC Calculator Journal V7 N6 P36 Jul/Aug 1980

Code:

 01 LBL "S" ;Size Finder Routine
 02 257
 03 ENTER
 04 LBL 00
 05 2
 06 /
 07 SF 25
 08 ARCL IND Y
 09 FC? 25
 10 CHS
 11 +
 12 LASTX
 13 ABS
 14 INT
 15 X#0?
 16 GTO 00
 17 +
 18 RTN
 19 END

HP-41C Small Size Finder Routine by Ron Knapp - 34 bytes
PPC Calculator Journal V7 N2 P38 Feb-Mar 1980

Code:

01 LBL "S" ;Small Size Finder Routine
 02 9
 03 -1
 04 512
 05 LBL 00
 06 2
 07 /
 08 SF 25
 09 ST+ Y
 10 ABS
 11 ARCL IND Y
 12 FC?C 25
 13 CHS
 14 DSE Z
 15 GTO 00
 16 X<0?
 17 CLX
 18 +
19 RTN