00 { 127-Byte Prgm }
01 LBL "BN!"
02 REAL?
03 GTO 02
04 LBL 01
05 "Invalid data"
06 GTO 04
07 LBL 02
08 X<0?
09 GTO 01
10 FP
11 X≠0?
12 GTO 01
13 CLA
14 LASTX
15 254
16 X<>Y
17 X≥Y?
18 GTO 03
19 N!
20 ARCL ST X
21 ENTER
22 LOG
23 IP
24 STO ST Z
25 10↑X
26 ÷
27 X<>Y
28 GTO 04
29 LBL 03
30 ENTER
31 LN
32 1
33 -
34 RCL ST Y
35 ×
36 LASTX
37 STO+ ST X
38 PI
39 ×
40 SQRT
41 LN
42 +
43 R↑
44 12
45 ×
46 1/X
47 ENTER
48 R↑
49 X↑2
50 ÷
51 30
52 ÷
53 -
54 +
55 10
56 LN
57 ÷
58 IP
59 LASTX
60 FP
61 10↑X
62 1ᴇ6
63 ×
64 0.5
65 +
66 IP
67 1ᴇ6
68 ÷
69 ARCL ST X
70 ⊢"ᴇ"
71 X<>Y
72 AIP
73 LBL 04
74 AVIEW