%
% flush program
%
"Phold." &_Telem _
any?
{
"phold" log)(
 second term2 "." left$ ^"pgm_" ^"\" ^_Telem &".pgm" ofconn
"pholdb" log)(
 writeb
 empty "Phold." &_Telem !
} if