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