This program is Copyright © HP and is used here by permission. It was originally printed in the Solar Engineering 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 "PANEL" 02 SF 27 03 LBL A 04 CF 22 05 "MM.DDYYYY?" 06 PROMPT 07 FC?C 22 08 GTO 04 09 STO 00 10 ENTER 11 INT 12 STO 07 13 - 14 1 E2 15 * 16 ENTER 17 INT 18 STO 08 19 - 20 1 E4 21 * 22 STO 09 23 CF 02 24 LBL 01 25 2 26 RCL 07 27 X>Y? 28 GTO 00 29 RCL 09 30 1 31 - 32 STO 09 33 RCL 07 34 13 35 + 36 STO 07 37 GTO 03 38 LBL 00 39 RCL 07 40 1 41 + 42 STO 07 43 LBL 03 44 365.25 45 RCL 09 46 * 47 INT 48 30.6001 49 RCL 07 50 * 51 INT 52 + 53 RCL 08 54 + 55 1720982 56 + 57 FS? 02 58 GTO 02 59 STO 01 60 1 61 STO 07 62 STO 08 63 SF 02 64 GTO 01 65 LBL 02 66 RCL 01 67 1 68 + 69 X<>Y 70 - 71 STO 09 72 RCL 00 73 CF 02 74 360 75 ENTER 76 284 77 RCL 09 78 + 79 365 80 / 81 * 82 SIN 83 23.45 84 * 85 STO 08 86 LBL 04 87 "LAT ?" 88 PROMPT 89 HR 90 FS?C 22 91 STO 05 92 "LONG ?" 93 PROMPT 94 HR 95 FS?C 22 96 STO 02 97 "TIME ?" 98 PROMPT 99 HR 100 FS?C 22 101 STO 03 102 "TIME MER ?" 103 PROMPT 104 HR 105 FS?C 22 106 STO 11 107 RCL 11 108 RCL 02 109 X<>Y 110 - 111 .0667 112 * 113 RCL 03 114 X<>Y 115 - 116 12 117 X<>Y 118 - 119 15 120 * 121 STO 06 122 "TILT ?" ;"TILT\0D ?" 123 PROMPT 124 HR 125 FS?C 22 126 STO 04 127 LBL B 128 "LENGTH ?" 129 CF 22 130 PROMPT 131 FS?C 22 132 STO 10 133 RCL 08 134 SIN 135 RCL 05 136 SIN 137 * 138 RCL 08 139 COS 140 RCL 05 141 COS 142 * 143 RCL 06 144 COS 145 * 146 + 147 RCL 08 148 COS 149 RCL 05 150 SIN 151 * 152 RCL 06 153 COS 154 * 155 RCL 08 156 SIN 157 RCL 05 158 COS 159 * 160 - 161 / 162 ATAN 163 STO 00 164 RCL 10 165 RCL 04 166 SIN 167 * 168 STO 07 169 "V=" 170 ARCL X 171 PROMPT 172 RCL 00 173 TAN 174 / 175 RCL 10 176 RCL 04 177 COS 178 * 179 + 180 "D1=" 181 ARCL X 182 PROMPT 183 RCL 07 184 RCL 00 185 TAN 186 / 187 "D2=" 188 ARCL X 189 PROMPT 190 END
Go back to the HP-41 software library
Go back to the general software library
Go
back to the main exhibit hall