PROGRAM TESTFCOL
      COMMON/LINE/L(328),KOLS(8),NDS(8),IPAR(2)
      DO 10 I=1,344
   10 L(I)=MOD(I-1,8)
C      IPAR(2)=-1
C      IF(IFOSFile(255,'$.graphics.utils.hostfcol',IPAR).LT.0) THEN
C        PRINT *,'Can not find host code'
C        STOP
C      ENDIF
      CALL STARTCODE4(128,8,2,8,KOLS,NDS)
      PRINT *,' returned form STARTCODE'
      DO 20 I=1,128
   20 CALL FCOL4(L(MOD(I,8)+1))
      CALL STOPCODE4
      END