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