C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        SUBROUTINE SAT011(IKOMLAN, IKOMMEN, ICMDTEC, ICMDUT)
C
C       STRUKTURERAD AT.!
C
C       HISTORIK:
C       DATUM           NAMN                    ORSAK
C       01-JAN-83       LARS-G\RAN OLSSON       URUPPF\RANDE
C
C       FUNKTION:
C       FYLLER P] KOMMENTAR FR]N IKOMMEN TILL ICMDUT P] POS ICMDTEC + 1
C
C       UTDATA:
C       IKOMLAN -       ANTAL TECKEN I IKOMMEN
C       IKOMMEN -       BUFFERTPLATS F\R KOMMENTAR (EFTER !)
C
C       IN/UTDATA:
C       ICMDTEC -       N[STA LEDIGA POS I ICMDUT
C       ICMDUT  -       UTRAD TILL CMDFIL
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        LOGICAL*1       IKOMMEN(255)    
        INTEGER         IKOMLAN         
        LOGICAL*1       ICMDUT(255)     
        INTEGER         ICMDTEC         
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF(.NOT.    (IKOMLAN .GT. 0))GOTO 30016
        CALL    CHANGE(, ' ', ICMDUT(ICMDTEC), 1)
        CALL    MOVE01(2, '.;', ICMDUT(ICMDTEC + 1))
        CALL    CHANGE(, ' ', ICMDUT(ICMDTEC+3), 1)
        CALL    MOVE01(IKOMLAN, IKOMMEN, ICMDUT(ICMDTEC + 4))
        ICMDTEC = ICMDTEC + IKOMLAN + 4
30016  CONTINUE
30079  CONTINUE
        RETURN
        END