*COMDECK PBTUPLOOP
_$J+  PAGE EJECT? 
_*****************************
*                            *
*    DUMMY LOOP FOR TUP      *     $R-,G-,I- NON-RECURSIVE,INTERRUPTABLE
*                            *
*****************************?
_$R-,G-,I-? 
PROCEDURE PBTUPLOOP;
BEGIN 
  PBSMASK([J8LP30,J8LP,J8TTY]); 
  PBAMASK([J8LP30,J8LP,J8TTY]); 
  REPEAT PBTUP; 
         PBLMASK; 
         EINT 
  UNTIL FALSE 
END; _PBTUPLOOP?
