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
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	LOGICAL*1	ICMDUT(255)	< UTRAD TILL CMD-FIL
	INTEGER		ICMDTEC		< N[STA LEDIGA POS I ICMDUT
	INTEGER		ICMDLAN		< ANTAL TECKEN P] ICMDFIL
	INTEGER		I		< R[KNARE
C
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
2	FORMAT(255A1)
C
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'IF'	(ICMDLAN .GT. 0)
	WRITE(2,2)(ICMDUT(I),I=1,(ICMDTEC-1))
	CALL	CHANGE(,' ',ICMDUT,255)
	ICMDTEC=1
	'ENDIF'
	RETURN
	END