C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        SUBROUTINE SAT006(ICMDLAN, 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       SKRIVER UT RADEN ICMDUT P] CMD-FILEN
C
C       INDATA:
C       ICMDLAN -       ANTAL TECKEN I ICMDFIL  (>0 CMD-FIL FINNS)
C       ICMDTEC -       N[STA LEDIGA POS I ICMDUT
C       ICMDUT  -       RAD SOM SKALL SKRIVAS UT P] CMD-FIL
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        LOGICAL*1       ICMDUT(255)     
        INTEGER         ICMDTEC         
        INTEGER         ICMDLAN         
        INTEGER         I               
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
2       FORMAT(255A1)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF(.NOT.    (ICMDLAN .GT. 0))GOTO 30016
        WRITE(2,2)(ICMDUT(I),I=1,(ICMDTEC-1))
        CALL    CHANGE(,' ',ICMDUT,255)
        ICMDTEC=1
30016  CONTINUE
30079  CONTINUE
        RETURN
        END