00 { 123-Byte Prgm }
01▸LBL "M2L"
02 FUNC 11
03 LSTO "M"
04 INDEX "M"
05 NEWLIST
06▸LBL 00
07 RCLEL
08 APPEND
09 J+
10 FC? 77
11 GTO 00
12 RTN
13▸LBL "L2M"
14 FUNC 11
15 ENTER
16 LENGTH
17 1
18 GTO 15
19▸LBL "L2MC"
20 FUNC 21
21 RCL ST Y
22 LENGTH
23 RCL ST Y
24 ÷
25 IP
26 X≠? ST L
27 ISG ST X
28 NOP
29 X<>Y
30 GTO 15
31▸LBL "L2MRC"
32 FUNC 31
33▸LBL 15
34 NEWMAT
35 LSTO "M"
36 INDEX "M"
37▸LBL 01
38 DROP
39 HEAD ST X
40 SKIP
41 GTO 02
42 STOEL
43 J+
44 FC? 77
45 GTO 01
46▸LBL 02
47 RCL "M"
48 END