[VA] SRC #016 - Pi Day 2024 Special

[Gerson W. Barbosa]

6th, on Free42:

00 { 83-Byte Prgm }
01▸LBL "A6"
02 0
03 STO 00
04 SIGN
05 STO 01
06▸LBL 00
07 RCL 01
08 ENTER
09 ENTER
10 ENTER
11 512
12 ×
13 LASTX
14 RCL+ ST L
15 -
16 ×
17 712
18 +
19 ×
20 206
21 -
22 ×
23 21
24 +
25 R↓
26 R↓
27 120
28 ×
29 89
30 -
31 ×
32 16
33 +
34 X<>Y
35 ÷
36 16
37 RCL× 00
38 +
39 FP
40 STO 00
41 16
42 ×
43 IP
44 HEXM
45 STOP
46 SIGN
47 STO+ 01
48 GTO 00
49 END

XEQ A6 ->
2 R/S ->
4 R/S ->
3 R/S ->
F R/S ->
6 R/S ->
…
E R/S ->
0 R/S ->
3