00 { 62-Byte Prgm }
01▸LBL "CP4GRC"
02 X↑2
03 X<>Y
04 STO 07
05 X↑2
06 +
07 STO 04
08 R↑
09 STO 05
10 RCL ST Z
11 STO+ 05
12 ×
13 STO 06
14 RCL 04
15 ×
16 STO 00
17 RCL 04
18 RCL 05
19 ×
20 RCL 06
21 RCL 07
22 ×
23 STO+ ST X
24 +
25 +/-
26 STO 01
27 RCL 05
28 RCL 07
29 ×
30 STO+ ST X
31 RCL 04
32 +
33 RCL 06
34 +
35 STO 02
36 RCL 07
37 STO+ ST X
38 RCL 05
39 +
40 +/-
41 STO 03
42 X<> ST Z
43 RCL 00
44▸LBL 00
45 RTN
46 GTO 00
47 END