"TBTOP" $tn$
   do forever
      "TBSKIP" $tn$ "SAVENAME(xvars)"
      if rc > 0 then leave             /* we're done...              */
 
   end                                 /* forever                    */