The Museum of HP Calculators

Line-Line Intersection for the HP-41C/CV/CX

This program is Copyright © HP and is used here by permission. It was originally printed in the Geometry 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

Program Listing

LINE  KEYS
 01 LBL "LINE"
 02 CF 00
 03 1.006
 04 STO 00
 05 "LINE INTRSEC"
 06 AVIEW
 07 STOP
 08 LBL 01
 09 AVIEW
 10 STOP
 11 LBL A
 12 "X1 ?"
 13 PROMPT
 14 STO IND 00
 15 ISG 00
 16 "Y1 ?"
 17 PROMPT
 18 STO IND 00
 19 X<>Y
 20 "X2 ?"
 21 PROMPT
 22 -
 23 X<>Y
 24 "Y2 ?"
 25 PROMPT
 26 -
 27 /
 28 1/X
 29 GTO a
 30 LBL C
 31 SF 00
 32 LBL B
 33 "X ?"
 34 PROMPT
 35 STO IND 00
 36 ISG 00
 37 "Y ?"
 38 PROMPT
 39 STO IND 00
 40 "M ?"
 41 FS? 00
 42 "THETA ?"
 43 PROMPT
 44 FS?C 00
 45 TAN
 46 LBL a
 47 ISG 00
 48 STO IND 00
 49 "NEXT LINE ?"
 50 ISG 00
 51 GTO 01
 52 LBL E
 53 RCL 01
 54 RCL 03
 55 *
 56 RCL 04
 57 RCL 06
 58 *
 59 -
 60 RCL 05
 61 +
 62 RCL 02
 63 -
 64 RCL 03
 65 RCL 06
 66 -
 67 /
 68 "X"
 69 XEQ 11
 70 LBL D
 71 RCL 01
 72 -
 73 RCL 03
 74 *
 75 RCL 02
 76 +
 77 "Y"
 78 LBL 11
 79 "="
 80 ARCL X
 81 AVIEW
 82 STOP
 83 RTN
 84 END

Go back to the HP-41 software library
Go back to the general software library
Go back to the main exhibit hall