;      ************************************************
;      *THIS COMMAND-FILE HAS BEEN GENERATED FROM A   *
;      *STRUCTURED SAT-FILE.                          *
;      *YOU SHOULD NOT EDIT THIS FILE , BUT USE THE   *
;      *CORRESPONDING SAT-FILE.                       *
;      ************************************************
;      *THIS FILE WAS GENERATED AT 02-DEC-87 15:14:39 *
;      *FROM SATEX.SAT
;      ************************************************
;      DOKUMENTATION P] HUR MCR-FUNKTIONEN "SAT" FUNGERAR.
;
;      HISTORIK:
;      DATUM   NAMN                            ORSAK
;      830216  LARS-G\RAN OLSSON VD/TEL 594438 URUPPF\RANDE
;      830529          -"-                     FLER FELKONTROLLER
;                      -"-                     /TM - P] LST-FIL
;                      -"-                     AUTOM. HUVUD P] CMD-FIL
;      830927          -"-                     /-WR - P] LST-FIL
;                                              VARNINGAR KAN F]S
;                                              EXITSTATUS S[TTS
;                                              FLER SEKTION-TESTER
;                                              NY LAYOUT P] LST-FIL
;
;      FUNKTION:
;      SAT L[SER STRUKTURERAD INFIL OCH SKAPAR KOMMANDOFIL OCH LISTFIL.
;
;      ANROP:
;      >SAT FIL1,FIL2=FIL3
;
;      FIL1:   UTFIL SOM SKAPAS - DEFAULT EXTENSION .CMD
;      FIL2:   UTFIL SOM SKAPAS - DEFAULT EXTENSION .LST
;              MINST 1 AV OVANST]ENDE UTFILER M]STE SPECIFICERAS!
;              EV. FEL SKRIVS P] DENNA FIL.
;      FIL3:   INFIL - DEFAULT EXTENSION .SAT
;
;      SAMTLIGA FILNAMN SKRIVS SOM STANDARD-FILNAMN, DVS ENLIGT:
;      DEV:[UIC]FILSPEC.EXT
;      DEFAULT DEVICE : SY:
;      DEFAULT UIC    : NUVARANDE
;
;      SWITCHAR:
;      /TM     -P] LST-FILEN GER TABMARKS P] LISTAN.
;      /-WR    -P] LST-FILEN GER INGA VARNINGAR P] LISTAN
;
;      INGA ANDRA SWITCHAR TILL]TNA
;
;      KONTROLLER:
;      VISSA SYNTAXKONTROLLER SKER I SAT. VID FEL SKRIVS EN FELUTSKRIFT
;      P] LISTFILEN. FELUTSKRIFTER LIGGER NORMALT P] RADEN EFTER FELET.
;      TOTALT ANTAL FEL OCH VARNINGAR VISAS D] PROGRAMMET G\R EXIT.
;
;      EXITSTATUS S[TTS ENLIGT
;      0       VARNING
;      1       OK
;      2       FEL
;      4       KATASTROF
;
;      KOMMENTARER:
;      KOMMENTARER P] ICKE-STRUKTURERADE KOMMANDON SKRIVS SOM I AT. , DE
;      SKYFFLAS BARA \VER. KOMMENTARER P] STRUKTURERADE KOMMANDON SKRIVS
;      SKRIVS MED "!KOMMENTAR". DENNA KOMMENTAR L[GGS SEDAN UT I CMD-FILEN
;      ENLIGT - .;KOMMENTAR.
;
;      STRUKTURERADE KOMMANDON
;
;      'POSIT'-'ADMIT'-'ENDPOSIT'-'QUIT'-'QUITIF'
;
;      'WHILE'-'ENDDO'-'BREAK'-'BREAKIF'
;
;      'IF'-'ELSIF'-ELSE'-'ENDIF'
;
;      'CASE'-'WHEN'-'OTHER'-'ENDCASE'
;
;      'PERFORM'-'SECTION'-'ENDSECT'
;
;      'PAGE'
;
;      OBS: ALLA VILLKOR TILL STRUKTURERADE KOMMANDON SKALL ANGIVAS KOMPLETT!
;
;           ANG. 'CASE' SE EXEMPEL NEDAN!
;
;      BEGR[NSNINGAR:
;      F\LJANDE BEGR[NSNINGAR FINNS IDAG:
;              1. MAX 200 SEKTIONER I EN MODUL
;              2. MAX 50 NIV]ER (AKTIVA) P] VARJE STRUKTUR-TYP
;                      (POSIT-ENDPOSIT, IF-ENDIF, OSV)
;              3. MAX CA. 7000 STRUKTURERADE KOMMANDON I EN MODUL
;              4. MAX 255 TECKEN/RAD VID INL[SNING/UTSKRIFT
;              5. STRUKTURERADE KOMMANDON SKALL ALLTID ST] P] POS 9 (TAB)
;                 ELLER SENARE P] RADEN. OM DET PLACERAS SENARE [N POS 9
;                 S] M]STE RADEN VARA BLANK FRAM TILL KOMMANDOT.
;      SNABBHET:
;              F\LJANDE MILJ\ VAR TILLG[MGLIG VID SNABBHETSTEST:
;              DISK    - RA80
;              INFIL   - 320 RADER (VARAV 80 STRUKT. KOM) - 15 BLOCK
;              UTFIL1  - 420 RADER                     - 20 BLOCK
;              UTFIL2  - 350 RADER                     - 25 BLOCK
;
;              EXEKVERINGSTID  - 20 SEK
;
;      EXEMPEL P] HUR INFILEN KAN SE UT.
;
;      INFILEN SATEX.SAT
;
       .ENABLE SUBSTITUTION
       .ENABLE GLOBAL
       .SETS FIL ""
       .GOSUB FILIN
L0001:
       .IF FIL NE "" .GOTO L0002
       .GOTO L0003
L0002:
       .TESTFILE 'FIL'
       .IF <FILERR> NE 1 .GOTO L0004 .; !FILEN SAKNAS
       .OPENR #0 'FIL'
       .SETN I 1.
       .GOSUB LAESRA
L0006:
       .IFF <EOF> .GOTO L0007 .; !FLER RADER
       .GOTO L0008
L0007:
       .GOSUB SKRIV
       .INC I
       .IF I GT 100 .GOTO L0008 .; !VI AVBRYTER
       .GOSUB LAESRA
       .GOTO L0006
L0008:
       .CLOSE #0
       .GOTO L0005
L0004: .; !FEL
                       FILEN 'FIL' SAKNAS.
L0005:
       .GOSUB FILIN
       .GOTO L0001
L0003:
       .EXIT
FILIN:
;
       .ASKS FIL :FILNAMN ..
;
       .RETURN
LAESRA:
;
       .READ #0 RAD
;
       .RETURN
SKRIV:
;
       .IF I GT 10. .GOTO L0009 .; !SPECIALRADER
       .GOTO L0010
L0009:
                      !TUTA
       .GOTO L0011
L0010:
       .IF I EQ 1. .GOTO L0013 .; ! V[LDIGT SPECIELL RAD
       .GOTO L0012
L0013:
               ***RAD 1***
               
               
               
       .GOTO L0011
L0012:
       .GOTO L0015
       .GOTO L0016
L0015:
       .IF I EQ 2. .GOTO L0014
       .GOTO L0017
L0014:
       ;RAD 2
       .GOTO L0016
L0017:
       .IF I EQ 3. .GOTO L0018
       .GOTO L0019
L0018:
       ;RAD 3
       .GOTO L0016
L0019:
       .IF I EQ 4. .GOTO L0020
       .GOTO L0021
L0020:
       ;RAD 4
       .GOTO L0016
L0021:
       ;NO ACTION
L0016:
L0011:
       'RAD'
;
       .RETURN