00 { 70-Byte Prgm }
01▸LBL "N_CAL"
02 MVAR "SLP"
03 MVAR "P"
04 MVAR "R"
05 MVAR "•E"
06 MVAR "Q"
07 RCL "P"
08 RCL× "R"
09 STO "Q"
10 RCL "•E"
11 RCL÷ "SLP"
12 10
13 X<>Y
14 Y↑X
15 1
16 RCL+ "P"
17 ×
18 -1
19 +
20 STO÷ "Q"
21 VIEW "Q"
22 RCL "Q"
23 STOP
24 END