1
0
Fork 0
hp42s-rpn/split/split.txt

20 lines
114 B
Text
Raw Normal View History

LBL "SPLIT"
STO "m"
RSUM
DET
STO 01
RCL "m"
DIM?
RCL 01
X<>Y
÷
STO 02
RCL 01
X<>Y
RCL "m"
X<>Y
-
RCL 02
X<>Y
END