00 { 304-Byte Prgm }
01▸LBL "DOCAL"
02 MVAR "BP"
03 MVAR "T"
04 MVAR "N"
05 RCL "T"
06 273.15
07 +
08 STO "K"
09 157570.1
10 RCL÷ "K"
11 -139.34411
12 +
13 STO "C"
14 66423080
15 RCL "K"
16 X↑2
17 ÷
18 STO- "C"
19 12438ᴇ6
20 RCL "K"
21 3
22 Y↑X
23 ÷
24 STO+ "C"
25 8621949ᴇ5
26 RCL "K"
27 4
28 Y↑X
29 ÷
30 STO- "C"
31 RCL "C"
32 E↑X
33 STO "C"
34 11.8571
35 STO "P"
36 3840.7
37 RCL "K"
38 ÷
39 STO- "P"
40 216961
41 RCL "K"
42 X↑2
43 ÷
44 STO- "P"
45 RCL "P"
46 E↑X
47 STO "P"
48 975ᴇ-6
49 STO "D"
50 1426ᴇ-8
51 RCL× "T"
52 STO- "D"
53 6.436ᴇ-8
54 RCL "T"
55 X↑2
56 ×
57 STO+ "D"
58 RCL "BP"
59 760
60 ÷
61 STO "BB"
62 1
63 RCL- "P"
64 STO "PP"
65 1
66 RCL- "D"
67 STO "DD"
68 1
69 RCL "D"
70 RCL× "BB"
71 -
72 STO "CC"
73 1
74 RCL "P"
75 RCL÷ "BB"
76 -
77 STO× "CC"
78 RCL "PP"
79 RCL× "DD"
80 1/X
81 STO× "CC"
82 RCL "BB"
83 STO× "CC"
84 RCL "C"
85 RCL× "CC"
86 STO "N"
87 VIEW "N"
88 STOP
89 END