B01 LBL B
B02 CLVARS
B03 INPUT N
B04 INPUT R
B05 INPUT B
B06 INPUT A
B07 1000
B08 ÷
B09 STO+ B
Y01 LBL Y
Y02 1
Y03 RCL- R
Y04 RCL N
Y05 RCL B
Y06 IP
Y07 -
Y08 yˣ
Y09 RCL R
Y10 RCL B
Y11 IP
Y12 yˣ
Y13 LASTx
Y14 RCL N
Y15 x<>y
Y16 Cn,r
Y17 ×
Y18 ×
Y19 FS? 0
Y20 STOP
Y21 STO+ P
Y22 ISG B
Y23 GTO Y
Y24 VIEW P
Y25 RCL N
Y26 RCL× R
Y27 STO M
Y28 1
Y29 RCL- R
Y30 ×
Y31 STO V
Y32 SQRT
Y33 STO S
Y34 VIEW M
Y35 VIEW V
Y36 VIEW S
Y37 RTN