A01 LBL A
A02 INPUT A
A03 INPUT B
S01 LBL S
S02 RCL A
S03 RCL- B
S04 STO A
S05 RCL B
S06 x<y?
S07 GTO S
S08 VIEW A
S09 RTN