00 { 120-Byte Prgm }
01▸LBL "DIAG"
02 STO 02
03 ENTER
04 NEWMAT
05 STO "MTMP"
06 R↓
07 STO "VTMP"
08 DIM?
09 ×
10 STO 00
11 2
12 ÷
13 IP
14 STO 01
15 RCL 00
16 1
17 DIM "VTMP"
18 SF 00
19▸LBL 00
20 INDEX "VTMP"
21 RCL 00
22 1
23 STOIJ
24 RCLEL
25 STO 03
26 RCL 02
27 RCL 01
28 -
29 STO 04
30 INDEX "MTMP"
31▸LBL 01
32 RCL 04
33 RCL 01
34 +
35 RCL 04
36 FS? 00
37 X<>Y
38 STOIJ
39 RCL 03
40 STOEL
41 DSE 04
42 GTO 01
43 1
44 FC? 00
45 +/-
46 STO- 01
47 RCL 01
48 X=0?
49 CF 00
50 DSE 00
51 GTO 00
52 RCL "MTMP"
53 CLV "MTMP"
54 CLV "VTMP"
55 END