This program is Copyright © HP and is used here by permission. It was originally printed in the Time Module 1 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 "CAL" 02 CF 03 03 CF 04 04 SF 09 05 SREG 00 06 CLS 07 SREG 05 08 CLS 09 CLX 10 "TACH RPM?" 11 PROMPT 12 X=0? 13 GTO 00 14 STO 16 15 "GEAR? 3/4/5" 16 PROMPT 17 SF IND X 18 26 19 + 20 X<> 16 21 STO IND 16 22 GTO 01 23 LBL 00 24 CF 09 25 CF 22 26 "SPEED?" 27 PROMPT 28 FC?C 22 29 GTO "CAL" 30 LBL 01 31 RCLSW 32 TIME 33 STO 20 34 X<>Y 35 STO 19 36 STOPSW 37 CLX 38 SETSW 39 SW 40 CLD 41 ALMNOW 42 RUNSW 43 TIME 44 RCL 20 45 HMS- 46 RCL 19 47 HMS+ 48 56 E-6 49 HMS- 50 SETSW 51 10 52 STO 20 53 9 54 STO 19 55 CLX 56 STO 14 57 STO 15 58 LBL 02 59 RCL IND 20 60 RCL IND 19 61 HMS- 62 X<=0? 63 GTO 03 64 RCL 15 65 HMS+ 66 STO 15 67 ISG 14 68 LBL 03 69 DSE 20 70 DSE 19 71 GTO 02 72 RCL 01 73 RCL 00 74 HMS- 75 RCL 15 76 HMS+ 77 HR 78 RCL 14 79 1 80 + 81 / 82 .01 83 HR 84 X<>Y 85 / 86 STO 28 87 "S/COREX=" 88 FIX 02 89 ARCL X 90 "X" 91 AVIEW 92 FC?C 09 93 RTN 94 FC? 55 95 STOP 96 60 97 * 98 RCL IND 16 99 1 E3 100 / 101 / 102 "1K RPM, " 103 FIX 00 104 RCL 16 105 26 106 - 107 ARCL X 108 "=" 109 FIX 01 110 CF IND X 111 ARCL Y 112 X<>Y 113 .1 114 % 115 STO IND 16 116 AVIEW 117 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall