01 VIEW IND 16
 02 STO 01
 03 Y^X
 04 GTO 66
 05 4
 06 X#0?
 07 RCL 03
 08 LBL 02
 09 XEQ 100
 10 LBL 00
 11 RCL 08
 12 END