"TBTOP" @tn@
   sel = ""
   do forever
      "TBDISPL" @tn@ "PANEL( ... )"
       if rc > 4 then leave

      if zcmd <> "" then do
         "CONTROL DISPLAY SAVE"
         /* code to process zcmd */
         "CONTROL DISPLAY RESTORE"
         iterate
         end

      do ztdsels
         "CONTROL DISPLAY SAVE"
         /* code to process each selection */
         "CONTROL DISPLAY RESTORE"

         if ztdsels > 1 then "TBDISPL" @tn@
      end                              /* ztdsels                    */
      sel = ""

   end                                 /* forever                    */