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