01 LBL 00
 02 STO 02
 03 VIEW IND 16
 04 STO 01
 05 LBL 00
 06 RCL 08
 07 Y^X
 08 GTO 66
 09 X>0?
 10 X#0?
 11 CLST
 12 LBL 02
 13 ;GTO __ (SPARE)  ;B0,00
 14 X>0?
 15 LBL 00
 16 LBL 13
 17 RCL 08
 18 END