*COMDECK FMTSCN 
          CONTROL NOLIST;    #FMTSCN# 
         DEF   NWDLN  #12#;   # NUMBER OF WORDS PER LINE #
         DEF   BYTWD  #10#;   # NUMBER OF BYTES PER WORD #
         DEF   BITWD  #60#;   # NUMBER OF BITS PER WORD # 
         DEF   FMTSZE #99#;   # MAXIMUM SIZE OF FORMAT TRANSLATION #
         COMMON FMTSCN; 
           BEGIN
               ARRAY FORMAT[0:FMTSZE] S(1);   # FORMAT EXPANSION #
                  ITEM   CODE I (0,0,6),      # FORMAT TYPE CODE #
                         VAL1 I (0,6,12),     # FIELD WIDTH      #
                         VAL2 I (0,18,12),    # F=DECIMAL, H=NO.WORDS#
                         VALC C (0,0,BYTWD);  # H FIELD INFO     #
               ITEM ERRCD B;  # IF TRUE, FORMAT IN ERROR #
               ITEM IND;      # NEXT FORMAT ITEM TO PROCESS # 
               ARRAY LINE[0:NWDLN] S(1);      # OUTPUT LINE # 
                  ITEM   OUT C(0,0,BYTWD);
               ITEM LINECH;                   # NEXT CHARACTER IN WORD# 
           END
         STATUS FMTCDE
           END,A,E,F,H,I,O,X,REP,EREP,SLASH; # VALUES FOR "CODE"  # 
               XREF PROC PTLSTV;
          CONTROL LIST;      #FMTSCN# 
