Re: Electri-Calc LT Message #7 Posted by bill platt on 4 Dec 2008, 11:26 p.m., in response to message #6 by Martin Pinckney
LBL A `Turn Feet-Inches-Eighths into Decimal Feet
8 `enter Feet in Z, Inches in Y, Eighths in X
/
+
12
/
+
RTN
LBL B Convert decimal feet into F-I-E format
STO A `store full decimal precision
FRAC 'strip off the feet to left of point
12
X 'convert to inches
STO B 'store inches and decimal inches
FRAC
8
X `eighths of inch and decimal 8ths remainder
STO C
RCL A
INTEGER
RCL B
INTEGER
RCL C
RTN ` Stack reads, from Z, Y, X in Feet, inches, eighths of inches
Edited: 4 Dec 2008, 11:28 p.m.
|