SUB ELEMEN(NR,NC)
         COM V(7,15)
         PRINT \ PRINT \ &
         PRINT "VAR  N    MAXIMUM    MINIMUM      MEAN     STD DEV"; &
               "   STD ERROR     RANGE" \ &
         PRINT
         FOR J=1 TO NC
           PRINT USING "## ###",J,V(0,J);
           FOR I=1 TO 7
             IF I=3 GO TO <<NXI>>
             IF V(I,J)>-9999. AND V(I,J)<99999. THEN PRINT USING  &
               " #####.####",V(I,J); ELSE PRINT USING " ##.###^^^^",V(I,J);
<<*NXI>>   NEXT I
           PRINT
         NEXT J
         PRINT \ PRINT
         SUBEND