{ COM    }
  { COMMON } [ ( com-name ) ] { [ data-type ] com-item },...

   com-item: { num-unsubs-var-name                                }
             { num-array-name ([int-const1 TO] int-const2,...)    }
             { str-unsubs-var-name = int-const                    }
             { str-array-name ([int-const1 TO]
               int-const2,...) [=int-const]                       }
             { FILL [(int-const)] [=int-const]                    }
             { FILL% [(int-const)]                                }
             { FILL$ [(int-const)] [=int-const]                   }