This program is by P. J. Schüngel and is used here by permission.
This program is supplied without representation or warranty of any kind. P. J. Schüngel and The Museum of HP Calculators therefore assume no responsibility and shall have no liability, consequential or otherwise, of any kind arising from the use of this program material or any part thereof.
When prompted, input fields to finish ("Felder") and number of carrots ("Kar.") held. Memory "maxKa" needs to be filled with 9 manually (or, 19 of you are going for second place only, etc.)
Text lines are either append - space - o - space or append - plus
The carrot subroutine is deliberately completely unrolled to speed up
LBL Ha&I INPUT Felder INPUT Kar. CLA SF 03 ALL CLX STO S1 STO S2 STO S3 LBL 06 RCL Felder RCL- S3 RCL- S2 RCL- S1 STO S4 RCL Kar. X<>Y X^2 LASTX + RCL S3 X^2 LASTX + + RCL S2 X^2 LASTX + + RCL S1 X^2 LASTX + + 2 / - X<0 ? GTO 07 RCL maxKa X<Y? GTO 07 FC?C03 ├ o RCL S1 X≠0? AIP X≠0? ├+ RCL S2 X≠0? AIP X≠0? ├+ ARCL S3 ├+ ARCL S4 AVIEW LBL 07 1 STO+ S3 RCL S4 RCL S3 1 + X≤Y? GTO 06 1 STO+ S2 RCL S2 STO S3 RCL Felder 3 / X≥Y? GTO 06 1 STO+ S1 RCL S1 STO S2 STO S3 RCL Felder 4 / X≥Y? GTO 06 RTN END {241 Bytes}
Go back to the software library
Go
back to the main exhibit hall