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
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        LOGICAL*1       IINLINE(255)    
        INTEGER         IINTEC          
        LOGICAL*1       ILINE(255)      
        INTEGER         ILINTEC         
        LOGICAL*1       IRLINE(255)     
        LOGICAL*1       IEOF            
C
C       R[KNARE
        INTEGER         I               
        INTEGER         II              
        INTEGER         IK              
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
1       FORMAT(Q,255A1)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
       CONTINUE
        CALL    CHANGE(,' ',IINLINE,255)
        READ(1,1,END=22222)IINTEC,(IINLINE(I),I=1,IINTEC)
      ASSIGN 26000 TO M00000
      GOTO 27000
26000  CONTINUE
      GOTO 29001
29000  CONTINUE
22222   CONTINUE
        IEOF = .TRUE.
29001  CONTINUE
        RETURN
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       S5#     KONVERTERA RAD
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
27999  CONTINUE
      GOTO 28000
27000  CONTINUE
C
        CALL    CHANGE(,' ',ILINE,255)
      IF(.NOT.    (IINLINE(IINTEC).EQ.13))GOTO 30016
        IINTEC=IINTEC-1
30016  CONTINUE
30079  CONTINUE
        ILINTEC=1
        II=1
20000  IF(.NOT. (II .LE. IINTEC))GOTO 20001
      IF(.NOT.    (IINLINE(II) .NE. 09))GOTO 30080
        ILINE(ILINTEC)=IINLINE(II)
        ILINTEC=ILINTEC+1
      GOTO 30143
30080  CONTINUE
        IK=8-MOD((ILINTEC-1),8)
      IF(.NOT.    (IK .GT.0))GOTO 30144
C       CALL    CHANGE(,' ',ILINE(ILINTEC),IK)
        ILINTEC=ILINTEC+IK
30144  CONTINUE
30207  CONTINUE
30142  CONTINUE
30143  CONTINUE
        II=II+1
      GOTO 20000
20001  CONTINUE
C       V[NSTERJUSTERING SKER TILL POS 9 SKER F\R ALLA ICKE-KOMMENTARRADER
      IF(.NOT.    (ILINE(1).NE.'.'.AND.ILINE(1).NE.';'))GOTO 30208
        CALL    CHANGE(,' ',IRLINE,255)
        CALL    MOVE01(8, ILINE(1),IRLINE(1))
        I=9
20002  IF(.NOT. (ILINE(I).EQ.' '.AND. I .LE. ILINTEC))GOTO 20003
        I=I+1
      GOTO 20002
20003  CONTINUE
        CALL    MOVE01((255+1-I),ILINE(I),IRLINE(9))
        CALL    MOVE01(255,IRLINE,ILINE)
        ILINTEC=ILINTEC+9-I
30208  CONTINUE
30271  CONTINUE
C       ILINTEC INNEH]LLER POSITION I ILINE TILL N[STA LEDIGA POSITION
C
      GOTO M00000
28000  CONTINUE
        END