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