This program is Copyright © HP and is used here by permission. It was originally printed in the Small Business Solution Book. This program was entered and uploaded by Tony Duell.
This program is supplied without representation or warranty of any kind. Tony Duell, Hewlett Packard 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.
Documentation Information (CD or source code)
How to get this Program to your Calculator (via
HP-IL, disk, wand, and fingers)
Download Binary (.raw) program for disk or PC HP-IL Card download
Download Hexadecimal (.dat) program for Serial Port download
LINE KEYS 01 LBL "TAB" 02 CLRG 03 "NO. COLUMNS ?" 04 PROMPT 05 5 06 + 07 STO 01 08 STO 00 09 "NO. ROWS ?" 10 PROMPT 11 + 12 STO 02 13 1 14 ST+ 00 15 + 16 1 E3 17 ST/ 01 18 ST/ 02 19 CLX 20 6 21 ST+ 01 22 RCL 00 23 ST+ 02 24 RCL 02 25 STO 00 26 "SIZE=" 27 ARCL T 28 PROMPT 29 LBL 02 30 "VALUE ?" 31 PROMPT 32 ST+ IND 01 33 ST+ IND 02 34 ISG 02 35 GTO 02 36 RCL 00 37 STO 02 38 ISG 01 39 GTO 02 40 0 41 LBL 03 42 RCL IND 02 43 + 44 ISG 02 45 GTO 03 46 STO 03 47 "G. TOT.=" 48 ARCL X 49 PROMPT 50 LBL A 51 CF 01 52 CF 02 53 CF 03 54 XEQ 00 55 100 56 STO 04 57 GTO 04 58 LBL B 59 SF 01 60 GTO 01 61 LBL D 62 CF 01 63 LBL 01 64 CF 02 65 CF 03 66 100 67 STO 04 68 LBL 10 69 1.1 70 STO 05 71 RCL 00 72 STO 02 73 LBL 04 74 RCL IND 02 75 FS? 01 76 GTO 05 77 RCL 03 78 / 79 RCL 04 80 * 81 "%," 82 LBL 05 83 FS? 01 84 "ROW," 85 FS? 02 86 "COL," 87 FS? 03 88 "PROP," 89 XEQ 09 90 ISG 02 91 GTO 04 92 STOP 93 LBL C 94 XEQ 00 95 SF 01 96 SF 02 97 CF 03 98 GTO 04 99 LBL 00 100 1.1 101 STO 05 102 RCL 01 103 FRC 104 6 105 + 106 STO 02 107 RTN 108 LBL E 109 STO 04 110 CF 01 111 CF 02 112 SF 03 113 GTO 10 114 LBL 09 115 FIX 00 116 ARCL 05 117 "=" 118 FIX 02 119 ARCL X 120 PROMPT 121 ISG 05 122 RTN 123 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall