C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
        SUBROUTINE SAT002(ICMDLAN, ICMDFIL, ILSTLAN, ILSTFIL, ISATLAN,
     *  ISATFIL)
C
C       STRUKTURERAD AT.!
C
C       HISTORIK:
C       DATUM           NAMN                    ORSAK
C       01-JAN-83       LARS-G\RAN OLSSON       URUPPF\RANDE
C
C       FUNTION:
C       OPEN P] FILER
C
C       INDATA:
C       ICMDLAN -       ANTAL TECKEN I ICMDFIL
C       ICMDFIL -       FILNAMN P] CMDFIL
C       ILSTLAN -       ANTAL TECKEN I ILSTFIL
C       ILSTFIL -       FILNAMN P] LSTFIL
C       ISATLAN -       ANTAL TECKEN I ISATFIL
C       ISATFIL -       FILNAMN P] SATFIL
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       VARIABLER I SAMBAND MED MCR-UPPSTART
C
        LOGICAL*1       ISATFIL(30)     
        INTEGER         ISATLAN         
        LOGICAL*1       ICMDFIL(30)     
        INTEGER         ICMDLAN         
        LOGICAL*1       ILSTFIL(30)     
        INTEGER         ILSTLAN         
        LOGICAL*1       IFILBUF(30)     
C
C       R[KNARE
        INTEGER         I               
        INTEGER         J               
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       VAR LIGGER : F\R DEVICE F\R SAT-FIL?
        I=0
        J=1
20000  IF(.NOT. (J.LE.ISATLAN))GOTO 20001
      IF(.NOT.    (ISATFIL(J).EQ.':'))GOTO 30016
        I=J
      GOTO 20001
30016  CONTINUE
30079  CONTINUE
        J=J+1
      GOTO 20000
20001  CONTINUE
C       JO, P] POSITION I!
      IF(.NOT.    (I .EQ. 0))GOTO 30080
        CALL    ASSIGN(1,'SY:')
      GOTO 30143
30080  CONTINUE
        CALL    ASSIGN(1,ISATFIL(1),I)
        CALL    MOVE01((ISATLAN-I),ISATFIL(I+1),IFILBUF)
        CALL    MOVE01((ISATLAN-I),IFILBUF,ISATFIL(1))
        ISATLAN=ISATLAN-I
30142  CONTINUE
30143  CONTINUE
C
        ISATFIL(ISATLAN+1)=0
        OPEN(UNIT=1,READONLY,TYPE='OLD',NAME=ISATFIL)
      IF(.NOT.    (ICMDLAN.GT.0))GOTO 30144
C       VAR LIGGER : F\R DEVICE F\R CMD-FIL?
        I=0
        J=1
20002  IF(.NOT. (J.LE.ICMDLAN))GOTO 20003
      IF(.NOT.    (ICMDFIL(J).EQ.':'))GOTO 30208
        I=J
      GOTO 20003
30208  CONTINUE
30271  CONTINUE
        J=J+1
      GOTO 20002
20003  CONTINUE
C       JO, P] POSITION I!
      IF(.NOT.    (I .EQ. 0))GOTO 30272
        CALL    ASSIGN(2,'SY:')
      GOTO 30335
30272  CONTINUE
        CALL    ASSIGN(2,ICMDFIL(1),I)
        CALL    MOVE01((ICMDLAN-I),ICMDFIL(I+1),IFILBUF)
        CALL    MOVE01((ICMDLAN-I),IFILBUF,ICMDFIL(1))
        ICMDLAN=ICMDLAN-I
30334  CONTINUE
30335  CONTINUE
C
        ICMDFIL(ICMDLAN+1)=0
        OPEN(UNIT=2,TYPE='NEW',NAME=ICMDFIL)
30144  CONTINUE
30207  CONTINUE
      IF(.NOT.    (ILSTLAN.GT.0))GOTO 30336
C       VAR LIGGER : F\R DEVICE F\R LST-FIL?
        I=0
        J=1
20004  IF(.NOT. (J.LE.ILSTLAN))GOTO 20005
      IF(.NOT.    (ILSTFIL(J).EQ.':'))GOTO 30400
        I=J
      GOTO 20005
30400  CONTINUE
30463  CONTINUE
        J=J+1
      GOTO 20004
20005  CONTINUE
C       JO, P] POSITION I!
      IF(.NOT.    (I .EQ. 0))GOTO 30464
        CALL    ASSIGN(3,'SY:')
      GOTO 30527
30464  CONTINUE
        CALL    ASSIGN(3,ILSTFIL(1),I)
        CALL    MOVE01((ILSTLAN-I),ILSTFIL(I+1),IFILBUF)
        CALL    MOVE01((ILSTLAN-I),IFILBUF,ILSTFIL(1))
        ILSTLAN=ILSTLAN-I
30526  CONTINUE
30527  CONTINUE
C
        ILSTFIL(ILSTLAN+1)=0
        OPEN(UNIT=3,TYPE='NEW',NAME=ILSTFIL)
30336  CONTINUE
30399  CONTINUE
C
        RETURN
        END