Can anyone identify this peculiar 67/97 program?

[AndiGer]

Consider it could be a program for the HP-97S.
2 times LBLA.
Second LBLA leads to CF3 + R/S inside execution of LBL6 - waiting for input from the 97S BCD box.
First LBLA leads to CF3 + PSE if x>=0 inside execution of LBL7. If during PSE no input arrives flag 3 is set to disable input and do the iteration inside LBL7 until x<0.

I didn't inspect the program further but an idea. But no idea what could have been connected to the BCD box - if my assuption is right.

Andi

Edit: thomas beat me :-).