C+CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STRUKTURERAD AT.!
C
C       HISTORIK:
C       DATUM           NAMN                    ORSAK
C       01-JAN-83       LARS-G\RAN OLSSON       URUPPF\RANDE
C                       AVD. 2351 - AB VOLVO DATA
C
C       FUNKTION:
C       L[SER IN KOMMANDO FR]N MCR.
C       OM INGA TECKEN HAR KOMMIT FR]N MCR S] L[SES DESSA IN AV PROGRAMMET.
C       ANROPAR SAT000 SOM BEHANDLAR KOMMANDOT, SKAPAR FILER OCH L[MNAR
C       EXITSTATUS TILLBAKA.
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        LOGICAL*1       IMCRBUF(80)     
        INTEGER         IDSW            
        LOGICAL*1       IEOF            
        INTEGER         ITECKEN         
        INTEGER         IEXSTAT         
C                                         0 - VARNING
C                                         1 - OK
C                                         2 - FEL
C                                         4 - GR\VRE FEL T.EX SYNTAX
        INTEGER         I               
        INTEGER         J               
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
1       FORMAT(Q,80A1)
C       UTSKRIFT
2       FORMAT(1X,'SAT>'$)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
        CALL    GETMCR(IMCRBUF,IDSW)    
        ITECKEN=IDSW    
      IF(.NOT.    (ITECKEN .GT. 3))GOTO 30016
        CALL    SAT000(ITECKEN, IMCRBUF, IEXSTAT) 
      GOTO 30079
30016  CONTINUE
      ASSIGN 26000 TO M00000
      GOTO 27000
26000  CONTINUE
20000  IF(.NOT. (.NOT. IEOF))GOTO 20001
      IF(.NOT.    (ITECKEN .GT. 3))GOTO 30080
        CALL    SAT000(ITECKEN, IMCRBUF, IEXSTAT) 
30080  CONTINUE
30143  CONTINUE
      ASSIGN 26001 TO M00000
      GOTO 27000
26001  CONTINUE
      GOTO 20000
20001  CONTINUE
30078  CONTINUE
30079  CONTINUE
        CALL    EXST(IEXSTAT)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C       A#      L[S IN KOMMANDO
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
27999  CONTINUE
      GOTO 28000
27000  CONTINUE
C
        ITECKEN = 3     
        WRITE(5,2)
       CONTINUE
        READ(5,1,END=22222)J,(IMCRBUF(I),I=5,J+4)
      IF(.NOT.    (J .GT. 0))GOTO 30144
        ITECKEN=J+4
30144  CONTINUE
30207  CONTINUE
      GOTO 29001
29000  CONTINUE
22222   CONTINUE
        IEOF = .TRUE.
29001  CONTINUE
C
      GOTO M00000
28000  CONTINUE
        END