A01 LBL A
A02 1.012
A03 STO i
L01 LBL L
L02 INPUT⟪i⟫
L03 ISG i
L04 GTO L
L05 GTO A
J01 LBL J
J02 STO÷⟪i⟫
J03 DSE i
J04 GTO J
J05 RTN