The Museum of HP Calculators The Museum of HP Calculators
This program is by Ken Delsnider and is used here by permission.
This program is supplied without representation or warranty of any kind. Ken Delsnider 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.
Program Name COORD
Function Use to calculate the distance, X and Y between two coordinates.
NOR1 = Northing of Point 1
EAS1 = Easting of Point 1
NOR2 = Northing of Point 2
EAS2 = Easting of Point 2
DIST = Distance between Points 1 & 2
X = Distance between Points 1 & 2
Y = Distance between Points 1 & 2
00 { 92-Byte Prgm }
01>LBL "COORD"
02 MVAR "NOR1"
03 MVAR "EAS1"
04 MVAR "NOR2"
05 MVAR "EAS2"
06 MVAR "DIST"
07 MVAR "X"
08 MVAR "Y"
09 RCL "EAS2"
10 RCL "EAS1"
11 -
12 STO "X"
13 2
14 yx
15 RCL "NOR2"
16 RCL "NOR1"
17 -
18 STO "Y"
19 2
20 yx
21 +
22 √x
23 RCL "DIST"
24 -
25 END
Go back to the software library
Go back to the main exhibit hall