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
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	INTERNA VARIABLER
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	LOGICAL*1	IMCRBUF(80)	< BUFFERT VID UPPSTART VIA MCR
	INTEGER		IDSW		< STATUS-ORD VID UPPSTART VIA MCR
	LOGICAL*1	IEOF		< EOF-FLAGGA
	INTEGER		ITECKEN		< ANTAL TECKEN VID INL[SNING
	INTEGER		IEXSTAT		< EXITSTATUS ENLIGT
C					  0 - VARNING
C					  1 - OK
C					  2 - FEL
C					  4 - GR\VRE FEL T.EX SYNTAX
	INTEGER		I		< R[KNARE
	INTEGER		J		< R[KNARE
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	FORMAT
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
1	FORMAT(Q,80A1)
C	UTSKRIFT
2	FORMAT(1X,'SAT>'$)
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	STYRSEKTION
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	CALL	GETMCR(IMCRBUF,IDSW)	< TA IN MCR-BUFFERT
	ITECKEN=IDSW	< ANTAL INL[STA TECKEN FR]N MCR
	'IF'	(ITECKEN .GT. 3)	< N]GOT FR]N MCR
	CALL	SAT000(ITECKEN, IMCRBUF, IEXSTAT) < BEHANDLA ANROP
	'ELSE'		< INGET FR]N MCR
	'PERFORM' A	L[S IN KOMMANDO
	'WHILE'	(.NOT. IEOF)
	'IF'	(ITECKEN .GT. 3)
	CALL	SAT000(ITECKEN, IMCRBUF, IEXSTAT) < BEHANDLA ANROP
	'ENDIF'
	'PERFORM' A	L[S IN KOMMANDO
	'ENDDO'
	'ENDIF'
	CALL	EXST(IEXSTAT)
	'PAGE'
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
C	A#	L[S IN KOMMANDO
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
	'SECTION' A	L[S IN KOMMANDO
C
	ITECKEN = 3	< ANTAGES "SAT"
	WRITE(5,2)
	'POSIT'		< EJ EOF
	READ(5,1,END=22222)J,(IMCRBUF(I),I=5,J+4)
	'IF'	(J .GT. 0)
	ITECKEN=J+4
	'ENDIF'
	'ADMIT'		< EOF
22222	CONTINUE
	IEOF = .TRUE.
	'ENDPOSIT'
C
	'ENDSECT'
	END