C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
	SUBROUTINE SAT003(IEOF, ILINTEC, ILINE)
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	L[SER IN OCH KONVERTERAR EN RAD
C
C	UTDATA:
C	IEOF	-	TRUE=END OF FILE
C	ILINTEC	-	N[STA LEDIGA POS I ILINE
C	ILINE	-	TECKEN FR]N INL[SNING AV RAD
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	LOGICAL*1	IINLINE(255)	< INL[S FR]N INFIL
	INTEGER		IINTEC		< ANTALET TECKEN P] IINLINE
	LOGICAL*1	ILINE(255)	< KONVERTERAD RAD FR]N INFIL
	INTEGER		ILINTEC		< N[STA LEDIGA POS I ILINE
	LOGICAL*1	IRLINE(255)	< RES. BUFFERT UTRAD LINE
	LOGICAL*1	IEOF		< EOF = .TRUE.
C
C	R[KNARE
	INTEGER		I		< R[KNARE
	INTEGER		II		< R[KNARE
	INTEGER		IK		< R[KNARE
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
1	FORMAT(Q,255A1)
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'POSIT'		< EJ EOF
	CALL	CHANGE(,' ',IINLINE,255)
	READ(1,1,END=22222)IINTEC,(IINLINE(I),I=1,IINTEC)
	'PERFORM' S5	KONVERTERA RAD
	'ADMIT'		< EOF
22222	CONTINUE
	IEOF = .TRUE.
	'ENDPOSIT'
	RETURN
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	S5#	KONVERTERA RAD
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'SECTION' S5	KONVERTERA RAD
C
	CALL	CHANGE(,' ',ILINE,255)
	'IF'	(IINLINE(IINTEC).EQ.13)	< 'CR' SIST
	IINTEC=IINTEC-1
	'ENDIF'
	ILINTEC=1
	II=1
	'WHILE'	(II .LE. IINTEC)	< FLER TECKEN
	'IF'	(IINLINE(II) .NE. 09)	< EJ TAB
	ILINE(ILINTEC)=IINLINE(II)
	ILINTEC=ILINTEC+1
	'ELSE'		< TAB
	IK=8-MOD((ILINTEC-1),8)
	'IF'	(IK .GT.0)
C	CALL	CHANGE(,' ',ILINE(ILINTEC),IK)
	ILINTEC=ILINTEC+IK
	'ENDIF'
	'ENDIF'
	II=II+1
	'ENDDO'
C	V[NSTERJUSTERING SKER TILL POS 9 SKER F\R ALLA ICKE-KOMMENTARRADER
	'IF'	(ILINE(1).NE.'.'.AND.ILINE(1).NE.';')	< EJ KOMMENTARRAD
	CALL	CHANGE(,' ',IRLINE,255)
	CALL	MOVE01(8, ILINE(1),IRLINE(1))
	I=9
	'WHILE'	(ILINE(I).EQ.' '.AND. I .LE. ILINTEC)
	I=I+1
	'ENDDO'
	CALL	MOVE01((255+1-I),ILINE(I),IRLINE(9))
	CALL	MOVE01(255,IRLINE,ILINE)
	ILINTEC=ILINTEC+9-I
	'ENDIF'
C	ILINTEC INNEH]LLER POSITION I ILINE TILL N[STA LEDIGA POSITION
C
	'ENDSECT'
	END