*DECK NEXTLAB 
          FUNC NEXTLAB; 
          BEGIN 
          XDEF ITEM CURRLAB I=0;       # LOCAL LABEL COUNTER# 
          XDEF ITEM MAXLAB = 0; 
          CURRLAB = CURRLAB + 1;
          NEXTLAB = CURRLAB;
          IF  CURRLAB GR MAXLAB  THEN  MAXLAB = CURRLAB;
          RETURN; 
          END 
          TERM; 
