c $9031 N_HERE
; @label:$9031=N_HERE
C $9031 pop BC
C $9032 increment position of cursor
C $9039 decrement B
C $903A jump to TRFILO if not zero
C $903D return to caller