00 { 91-Byte Prgm }
01▸LBL "ACK"
02 LSTO "N"
03 R↓
04 LSTO "M"
05 R↓
06 LSTO "Z"
07 R↓
08 LSTO "T"
09 RCL "M"
10 X=0?
11 GTO 00
12 1
13 -
14 RCL "N"
15 X=0?
16 GTO 01
17 1
18 -
19 RCL "M"
20 X<>Y
21 XEQ "ACK"
22 XEQ "ACK"
23 GTO 02
24▸LBL 00
25 RCL "N"
26 1
27 +
28 GTO 02
29▸LBL 01
30 CLX
31 1
32 XEQ "ACK"
33▸LBL 02
34 RCL "N"
35 STO ST L
36 R↓
37 RCL "T"
38 RCL "T"
39 RCL "Z"
40 R↑
41 END