21 lines
193 B
Text
21 lines
193 B
Text
|
00 { 35-Byte Prgm }
|
||
|
01▸LBL "SPLIT"
|
||
|
02 STO "m"
|
||
|
03 RSUM
|
||
|
04 DET
|
||
|
05 STO 01
|
||
|
06 RCL "m"
|
||
|
07 DIM?
|
||
|
08 RCL 01
|
||
|
09 X<>Y
|
||
|
10 ÷
|
||
|
11 STO 02
|
||
|
12 RCL 01
|
||
|
13 X<>Y
|
||
|
14 RCL "m"
|
||
|
15 X<>Y
|
||
|
16 -
|
||
|
17 RCL 02
|
||
|
18 X<>Y
|
||
|
19 END
|