C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        SUBROUTINE      SAT005(IDATE, ITIME, ISATLAN, ISATFIL, IPAGESIZE,
     * IRAD, ISIDA, ILSTLAN, ILINTEC, ILINE, ILEVEL, IOFFSET, ITABMAR)
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 ILINE P] LISTFIL.
C
C       INDATA:
C       IDATE   -       AKTUELLT DATUM
C       ITIME   -       AKTUELL TID
C       ISATLAN -       ANTAL TECKEN I ISATFIL
C       ISATFIL -       FILNAMN P] SATFIL
C       IPAGESIZE -     MAXIMALT ANTAL RADER/SIDA
C       ILSTLAN -       ANTAL TECKEN P] ILSTFIL ( >0 FIL FINNS)
C       ILINTEC -       N[STA LEDIGA POS I ILINE
C       ILINE   -       TIDIGARE INL[S RAD
C       ILEVEL  -       AKTUELL NIV] - VID UTSKRIFT TANDAT
C       IOFFSET -       ANTAL TECKEN SOM LISTAN SKALL TANDAS IN
C       ITABMAR -       TRUE=TAB.MARKERINGAR SKALL UT
C
C       IN/UTDATA:
C       IRAD    -       ANTAL UTSKRIVNA RADER P] AKTUELL SIDA
C       ISIDA   -       AKTUELL SIDA
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C
C       VARIABLER I SAMBAND MED MCR-UPPSTART
C
        LOGICAL*1       ITABMAR         
        LOGICAL*1       ISATFIL(30)     
        INTEGER         ISATLAN         
        INTEGER         ILSTLAN         
C
C       VARIABLER SOM ANV[NDS 1 G]NG/SIDA
C
        LOGICAL*1       IDATE(9)        
        LOGICAL*1       ITIME(8)        
        INTEGER         ISIDA           
        INTEGER         IPAGESIZE       
C
C       VARIABLER SOM ANV[NDS 1 G]NG/BEHANDLAD RAD
C
        INTEGER         IOFFSET         
C                                         LISTA
        INTEGER         IRAD            
        LOGICAL*1       ILINE(255)      
        INTEGER         ILINTEC         
        LOGICAL*1       IRLSTUT(255)    
C
C       VARIABLER SOM ANV[NDS VID STRUKTURERINGEN
C
C       INTEGER         ILEVEL          < LOGISK NIV] 0 OCH POSITV
C                                         KAN J[MF\RAS MED LISTNIV]ER
C       R[KNAR
        INTEGER         I               
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMATSATSER 1 - 99 RESERVERADE F\R INPUT-OUTPUT FORMAT
C
2       FORMAT(1X,255A1)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      IF(.NOT.    (ILSTLAN .GT. 0))GOTO 30016
      IF(.NOT.    (IRAD .GE. IPAGESIZE))GOTO 30080
        CALL    SAT007(IDATE, ITIME, ISATLAN, ISATFIL,
     * IRAD, ISIDA, ILSTLAN)
30080  CONTINUE
30143  CONTINUE
        CALL    CHANGE(,' ',IRLSTUT,255)
      IF(.NOT.    (ILINE(1) .EQ. '.' .OR. ILINE(1) .EQ. ';'))GOTO 30144
        CALL    MOVE01(ILINTEC-1,ILINE,IRLSTUT)
        WRITE(3,2)(IRLSTUT(I),I=1,ILINTEC-1)
      GOTO 30207
30144  CONTINUE
        CALL    MOVE01(8,ILINE,IRLSTUT)
        CALL    MOVE01((ILINTEC-8-1),ILINE(9),IRLSTUT(9+ILEVEL*IOFFSET))
      IF(.NOT.    (ITABMAR))GOTO 30208
        I=0
20000  IF(.NOT. (I.LT.ILEVEL))GOTO 20001
        IRLSTUT(9+I*IOFFSET)='.'
        I=I+1
      GOTO 20000
20001  CONTINUE
30208  CONTINUE
30271  CONTINUE
        WRITE(3,2)(IRLSTUT(I),I=1,(ILINTEC-1+ILEVEL*IOFFSET))
30206  CONTINUE
30207  CONTINUE
        IRAD = IRAD + 1
30016  CONTINUE
30079  CONTINUE
C
        RETURN
        END