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 "RET" 02 SF 29 03 CLRG 04 "INIT. QUANT. ?" 05 PROMPT 06 STO 02 07 "INIT. COST ?" 08 PROMPT 09 STO 03 10 LBL A 11 "QTY <PURCH>?" 12 PROMPT 13 ST+ 04 14 "COST ?" 15 PROMPT 16 "UNIT OF COST" 17 PROMPT 18 / 19 * 20 ST+ 05 21 STOP 22 LBL B 23 "QTY <SOLD> ?" 24 PROMPT 25 ST+ 00 26 "COST ?" 27 PROMPT 28 "UNIT OF COST" 29 PROMPT 30 / 31 * 32 ST+ 01 33 STOP 34 LBL C 35 RCL 02 36 RCL 04 37 "PURCH." 38 XEQ 00 39 + 40 RCL 00 41 "SALES" 42 XEQ 00 43 - 44 "END INV." 45 XEQ 00 46 RCL 01 47 * 48 RCL 00 49 / 50 "RET. VAL." 51 XEQ 00 52 RCL 03 53 RCL 05 54 + 55 RCL 02 56 RCL 04 57 + 58 / 59 RCL 00 60 * 61 "C.G.S." 62 XEQ 00 63 RCL 02 64 RCL 05 65 "PUR. EXP." 66 XEQ 00 67 + 68 RCL 01 69 "GROSS" 70 XEQ 00 71 / 72 CHS 73 1 74 + 75 100 76 * 77 "MARGIN=%" 78 ARCL X 79 PROMPT 80 LBL 00 81 "=$" 82 ARCL X 83 PROMPT 84 RTN 85 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall