META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      1
ILS              

    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C FILE NAME ILS
    	C
0001	      PROGRAM ILS
    	C
    	C
    	C       FUNKTION: S[NDER BUSSKNAPPSDATA TILL ...QUE P] VALFRI KANAL
    	C
    	C       INVOKE BY MCR:
    	C
    	C                               ILS <NUM><x><LIT>[<x><KAN>]
    	C
    	C                               <NUM> ANGER \NSKAT bussnummer decimalt
    	C                               <x> ANGER delimiter "," eller " "
    	C                               <LIT> anger knappens literal eller message nr.
    	C                               <KAN> ANGER \NSKAD RADIOKANAL
    	C
    	C
    	C       HISTORIK:
    	C       DATUM   NAMN                    ]TG[RD
    	C       871010  B-E TAPPER              URUPPF\RANDE fr}n BTA
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       NOTES ON THE COMMAND LINE TO THIS TASK
    	C
    	C               THE COMMAND LINE PASSED BY MCR CONTAINS ALL
    	C               CHARRACTERS INCLUDING THE INITIAL 'ILS '
    	C               REF: MCR OPERATIONS MANUAL AND EXECUTIVE REFERENCE
    	C                    MANUAL : DIRECTIVE 'GET MCR COMMAND LINE'
    	C               NOTE: SMALL CHARACTERS ARE CONVERTED TO UPPER CASE
    	C                     '!' CAUSES NEGLECTION OF COMMAND LINE
    	C                     TABS AND SPACES ARE CONVERTED TO SINGLE SPACE
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C       RADIOKEY Updated BTA/871009     {ndrad text p} 85 samt ny text 
    	C       Record-no:      Record no, numeric, value 1-100
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      2
ILS              

    	C                       01-20,  mobil type 1
    	C                       21-40,  mobil type 2
    	C                       41-60,  mobil type 3
    	C                       61-80,  mobil type 4
    	C                       81-100, indirect generated messages
    	C                       must be written in ascending order.
    	C
    	C       key-no:         Radiokey no, numeric, value 1-18
    	C                       Radiokey is translated from row,column - koordinates
    	C                       in the following way:
    	C                       Radiokey = (row-1)*4 + column   if <> column < 5 
    	C                       Radiokey = (column-1)*4 + row   if <> column = 5 
    	C                       
    	C-----------------------------------------------------------------------------
    	C       RADIO TYPE 1    -       BUSS
    	C-----------------------------------------------------------------------------
    	C       2,2     ,ANR    ,ANROP           [VEN TC
    	C       3,3     ,IL     ,ILANROP 
    	C       4,4     ,N\D    ,N\DANROP 
    	C       5,5     ,#      ,NEDKOPPLING 
    	C       6,6     ,KVP    ,KVP             [VEN FTJ
    	C       7,7     ,>5     ,SEN 5           [VEN GRP
    	C       8,8     ,>10    ,SEN 10          [VEN GEN
    	C       9,9     ,UT     ,UTK\RNING       [VEN SVA
    	C       10,10   ,BMF    ,BMF 
    	C       11,11   ,RES    ,RESERV 1 
    	C       12,12   ,IN     ,INK\RNING 
    	C       13,13   ,FEL    ,VAGNFEL 
    	C       14,14   ,STO    ,VAGNFEL-STOPP 
    	C       15,15   ,TID    ,TID 
    	C       16,16   ,NAT    ,NAT 
    	C       17,17   ,RADIOFEL 
    	C       18,18   ,GUL    ,N\DANROP-TALA 
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       VARIABLER
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      3
ILS              

    	C
    	C
0002	      INTEGER IDS             <DIRECTIVE STATUS RETURN CODE
    	C
0003	      INTEGER COMBUF(13)
    	C
0004	      INTEGER IPARAM(6)       <QIO PARAMETER BLOCK
0005	      INTEGER I2PARAM(6)      <QIO PARAMETER BLOCK
    	C
0006	      INTEGER IOSB(2)
0007	      BYTE ISB(4)     <WORD ALIGNED
0008	      EQUIVALENCE(ISB,IOSB)
    	C
0009	      BYTE CLIBUF(80)         <COMMAND LINE PASSED TO AND FROM PROGRAM
0010	      INTEGER CLIPNT          <PARSER POINTER
0011	      INTEGER CLILEN          <LENGTH OF BUFFER
    	C
0012	      INTEGER PARAM           <PARAMETER POINTER
0013	      INTEGER NEXT            <NEXT PARAMETER NUMBER
    	C
0014	      INTEGER TN              <CAR NUMBER
0015	      INTEGER KN              <CHANNEL NUMBER
    	C
0016	      BYTE    KEY(10)         <KEY STRING
0017	      INTEGER KEYLEN          <ACTUAL KEY STRING LENGTH
0018	      INTEGER KEYPNT          <POINTER IN KEY STRING
0019	      INTEGER TABPNT          <POINTER IN KEY TABLE (SEE TABLE) I.E. KEY
    	C                               NUMBER OR MESSAGE NUMBER I CAR = 0
    	C
0020	      INTEGER ILOOP           <LOOPVARIABEL
    	C
0021	      INTEGER FEL             <FELKOD
0022	      INTEGER FELTMP          <FELKOD, ABSOLUTV[RDET AV
0023	      BYTE    FELCHAR         <TECKEN F\R REDIGERING
0024	      INTEGER FELPNT          <POINTER I FELBUFFERT
0025	      INTEGER FELDIV          <F\R DIV VID FELAVKODNING
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      4
ILS              

    	C
    	C       DATA
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
0026	      BYTE    TABLE(20,18)
0027	      INTEGER TABMAX
0028	      DATA    TABMAX/18/
    	C
0029	      BYTE    KEY1(10)
0030	      EQUIVALENCE(KEY1,TABLE(1,1))
0031	      'ASCII' KEY1/AKTIVERING/
    	C
    	C       2,2     ,ANR,TC
    	C
0032	      BYTE    KEY2(10)
0033	      EQUIVALENCE(KEY2,TABLE(1,2))
0034	      'ASCII' KEY2/ANROP     /
    	C
0035	      BYTE    KEY2A(10)
0036	      EQUIVALENCE(KEY2A,TABLE(11,2))
0037	      'ASCII' KEY2A/TC        /
    	C
    	C       3,3     ,ILANROP 
    	C
0038	      BYTE    KEY3(10)
0039	      EQUIVALENCE(KEY3,TABLE(1,3))
0040	      'ASCII' KEY3/ILANROP   /
    	C
    	C       4,4     ,N\DANROP 
    	C
0041	      BYTE    KEY4(10)
0042	      EQUIVALENCE(KEY4,TABLE(1,4))
0043	      'ASCII' KEY4/N\DANROP  /
    	C
    	C       5,5     ,#,NED
    	C
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      5
ILS              

0044	      BYTE    KEY5(10)
0045	      EQUIVALENCE(KEY5,TABLE(1,5))
0046	      'ASCII' KEY5/#         /
    	C
0047	      BYTE    KEY5A(10)
0048	      EQUIVALENCE(KEY5A,TABLE(11,5))
0049	      'ASCII' KEY5A/NED       /
    	C
    	C       6,6     ,KVP,FTJ
    	C
0050	      BYTE    KEY6(10)
0051	      EQUIVALENCE(KEY6,TABLE(1,6))
0052	      'ASCII' KEY6/KVP       /
    	C
0053	      BYTE    KEY6A(10)
0054	      EQUIVALENCE(KEY6A,TABLE(11,6))
0055	      'ASCII' KEY6A/FTJ       /
    	C
    	C       7,7     ,>5,GRP
    	C
0056	      BYTE    KEY7(10)
0057	      EQUIVALENCE(KEY7,TABLE(1,7))
0058	      'ASCII' KEY7/>5        /
    	C
0059	      BYTE    KEY7A(10)
0060	      EQUIVALENCE(KEY7A,TABLE(11,7))
0061	      'ASCII' KEY7A/GRP       /
    	C
    	C       8,8     ,>10,GEN
    	C
0062	      BYTE    KEY8(10)
0063	      EQUIVALENCE(KEY8,TABLE(1,8))
0064	      'ASCII' KEY8/>10       /
    	C
0065	      BYTE    KEY8A(10)
0066	      EQUIVALENCE(KEY8A,TABLE(11,8))
0067	      'ASCII' KEY8A/GEN       /
    	C
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      6
ILS              

    	C       9,9     ,UT,SVA
    	C
0068	      BYTE    KEY9(10)
0069	      EQUIVALENCE(KEY9,TABLE(1,9))
0070	      'ASCII' KEY9/UTK\RNING /
    	C
0071	      BYTE    KEY9A(10)
0072	      EQUIVALENCE(KEY9A,TABLE(11,9))
0073	      'ASCII' KEY9A/SVARA     /
    	C
    	C       10,10   ,BMF 
    	C
0074	      BYTE    KEY10(10)
0075	      EQUIVALENCE(KEY10,TABLE(1,10))
0076	      'ASCII' KEY10/BMFEL     /
    	C
    	C       11,11   ,RESERV 1 
    	C
0077	      BYTE    KEY11(10)
0078	      EQUIVALENCE(KEY11,TABLE(1,11))
0079	      'ASCII' KEY11/RESERV 1  /
    	C
    	C       12,12   ,INK\RNING 
    	C
0080	      BYTE    KEY12(10)
0081	      EQUIVALENCE(KEY12,TABLE(1,12))
0082	      'ASCII' KEY12/INK\RNING /
    	C
    	C       13,13   ,FEL
    	C
0083	      BYTE    KEY13(10)
0084	      EQUIVALENCE(KEY13,TABLE(1,13))
0085	      'ASCII' KEY13/FEL       /
    	C
    	C       14,14   ,STO
    	C
0086	      BYTE    KEY14(10)
0087	      EQUIVALENCE(KEY14,TABLE(1,14))
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      7
ILS              

0088	      'ASCII' KEY14/STOPP     /
    	C
    	C       15,15   ,TID,@
    	C
0089	      BYTE    KEY15(10)
0090	      EQUIVALENCE(KEY15,TABLE(1,15))
0091	      'ASCII' KEY15/TIDGIVNING/
    	C
0092	      BYTE    KEY15A(10)
0093	      EQUIVALENCE(KEY15A,TABLE(11,15))
0094	      'ASCII' KEY15A/@         /
    	C
    	C       16,16   ,NAT
    	C
0095	      BYTE    KEY16(10)
0096	      EQUIVALENCE(KEY16,TABLE(1,16))
0097	      'ASCII' KEY16/NATURBEHOV/
    	C
    	C       17,17   ,RADIOFEL 
    	C
0098	      BYTE    KEY17(10)
0099	      EQUIVALENCE(KEY17,TABLE(1,17))
0100	      'ASCII' KEY17/RADIOFEL  /
    	C
    	C       18,18   ,GUL
    	C
0101	      BYTE    KEY18(10)
0102	      EQUIVALENCE(KEY18,TABLE(1,18))
0103	      'ASCII' KEY18/TAST      /
    	C
0104	      BYTE    KEY18A(10)
0105	      EQUIVALENCE(KEY18A,TABLE(11,18))
0106	      'ASCII' KEY18A/GUL       /
    	C
    	C
0107	      BYTE    FELBUF(6)               <TEMPOR[R FELKOD F\R REDIGERING
0108	      INTEGER FELSIZ
0109	      DATA    FELSIZ/6/
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      8
ILS              

    	C
0110	      REAL TNAME              <RADIX-50 ...QUE
0111	      DATA TNAME/6R...QUE/            <MCR RADIX-50 TASK NAME
    	C
0112	      BYTE    ABOBUF(49)
0113	      'ASCII' ABOBUF/  ILS - FELAKTIGT RADIOKANALNUMMER - 1-3 TILL]TET/
0114	      INTEGER ABOSIZ
0115	      DATA    ABOSIZ/49/
    	C
0116	      BYTE    CR3
0117	      DATA    CR3/"15/
0118	      BYTE    LF3
0119	      DATA    LF3/"12/
0120	      EQUIVALENCE(CR3,ABOBUF)
0121	      EQUIVALENCE(LF3,ABOBUF(2))
    	C
0122	      BYTE    SUCBUF(13)
0123	      'ASCII' SUCBUF/  ILS - KLART/
0124	      INTEGER SUCSIZ
0125	      DATA    SUCSIZ/13/
    	C
0126	      BYTE    CR4
0127	      DATA    CR4/"15/
0128	      BYTE    LF4
0129	      DATA    LF4/"12/
0130	      EQUIVALENCE(CR4,SUCBUF)
0131	      EQUIVALENCE(LF4,SUCBUF(2))
    	C
0132	      BYTE    SYNBUF(41)
0133	      'ASCII' SYNBUF/  ILS - F\RST]R EJ : ILS buss,knapp,kanal/
0134	      INTEGER SYNSIZ
0135	      DATA    SYNSIZ/41/
    	C
0136	      BYTE    CR5
0137	      DATA    CR5/"15/
0138	      BYTE    LF5
0139	      DATA    LF5/"12/
0140	      EQUIVALENCE(CR5,SYNBUF)
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE      9
ILS              

0141	      EQUIVALENCE(LF5,SYNBUF(2))
    	C
0142	      BYTE    PRVBUF(27)
0143	      'ASCII' PRVBUF/  ILS - PRIVILEGE VIOLATION/
0144	      INTEGER PRVSIZ
0145	      DATA    PRVSIZ/27/
    	C
0146	      BYTE    CR7
0147	      DATA    CR7/"15/
0148	      BYTE    LF7
0149	      DATA    LF7/"12/
0150	      EQUIVALENCE(CR7,PRVBUF)
0151	      EQUIVALENCE(LF7,PRVBUF(2))
    	C
0152	      BYTE    BDVBUF(28)
0153	      'ASCII' BDVBUF/  ILS - FELAKTIGT BUSSNUMMER/
0154	      INTEGER BDVSIZ
0155	      DATA    BDVSIZ/28/
    	C
0156	      BYTE    CR8
0157	      DATA    CR8/"15/
0158	      BYTE    LF8
0159	      DATA    LF8/"12/
0160	      EQUIVALENCE(CR8,BDVBUF)
0161	      EQUIVALENCE(LF8,BDVBUF(2))
    	C
0162	      BYTE    DSWBUF(39)
0163	      'ASCII' DSWBUF/  ILS - DEC DIRECTIVE ERROR CODE -XXXXX/
0164	      INTEGER DSWSIZ
0165	      DATA    DSWSIZ/39/
0166	      INTEGER DSWPNT          <LOAD POINT ("-")
0167	      DATA    DSWPNT/34/
    	C
0168	      BYTE    CR9
0169	      DATA    CR9/"15/
0170	      BYTE    LF9
0171	      DATA    LF9/"12/
0172	      EQUIVALENCE(CR9,DSWBUF)
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     10
ILS              

0173	      EQUIVALENCE(LF9,DSWBUF(2))
    	C
0174	      BYTE    NVCBUF(69)
0175	      'ASCII' NVCBUF/  ILS - KNAPP: Ange SYMBOL el
    	     *ler 2-18, 81-100 ;?=Hj{lp ;Kan utel{mnas/
0176	      INTEGER NVCSIZ
0177	      DATA    NVCSIZ/69/
    	C
0178	      BYTE    CR13
0179	      DATA    CR13/"15/
0180	      BYTE    LF13
0181	      DATA    LF13/"12/
0182	      EQUIVALENCE(CR13,NVCBUF)
0183	      EQUIVALENCE(LF13,NVCBUF(2))
    	C
0184	      INTEGER IOWBT
0185	      DATA IOWBT/"000500/
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       STYRSEKTION
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
0186	      'POSIT'         <EJ FEL
    	C
0187	      .   CALL GETMCR(CLIBUF,CLILEN)              <GET MCR COMMANDLINE
    	C
0188	      .   FEL=-501        <SYNTAX ERROR
    	C
0189	      .   'QUITIF' (CLILEN.LT.5)          <WRONG COMMAND LINE LENGTH OR ERROR
    	C       EX: <ILS ?> IS THE SHORTEST LINE THAT IS OK ! (5 CHARS.)
0191	      .   'QUITIF' (CLIBUF(4).NE.' ')
    	C
0193	      .   CLIPNT=5                        <FIRST 4 ARE "ILS "
0194	      .   PARAM=0                         <1:A PARAMETER EJ FUNNEN
0195	      .   NEXT=1                          <N[STA = 1
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     11
ILS              

0196	      .   TN=0                            <BUSSNUMMER
0197	      .   KN=0                            <KANALNUMMER
0198	      .   CALL CHANGE(,' ',KEY,10)        <KEY
0199	      .   KEYLEN=0
    	C
0200	      .   'WHILE'(CLIPNT.LE.CLILEN)               <PARSE
    	C
0202	      .   .   'CASE' CLIBUF(CLIPNT)
0203	      .   .   'WHEN' 32                       <SPACE DELIMITER (AND 1:ST DELIMITER)
0205	      .   .   .   'IF'(PARAM.EQ.1)        <FIRST PARAMETER PROCESSED
0207	      .   .   .   .   NEXT=2          <PROCESS SECOND
0209	      .   .   .   'ELSIF'(PARAM.EQ.2)     <SECOND PARAMETER PROCESSED
0211	      .   .   .   .   NEXT=3          <PROCESS THIRD
0213	      .   .   .   'ELSIF'(PARAM.EQ.3)     <SECOND PARAMETER PROCESSED
0215	      .   .   .   .   NEXT=4          <PROCESS THIRD
0217	      .   .   .   'ENDIF'
0219	      .   .   'WHEN' ','
0221	      .   .   .   'IF'(PARAM.EQ.0)        <ILLEGAL
0223	      .   .   .   .   'QUIT'          <SYNTAX
0225	      .   .   .   'ELSIF'(PARAM.EQ.1)     <FIRST PARAMETER PROCESSED
0227	      .   .   .   .   NEXT=2          <PROCESS SECOND
0229	      .   .   .   'ELSIF'(PARAM.EQ.2)     <SECOND PARAMETER PROCESSED
0231	      .   .   .   .   NEXT=3          <PROCESS THIRD
0233	      .   .   .   'ELSIF'(PARAM.EQ.3)     <SECOND PARAMETER PROCESSED
0235	      .   .   .   .   NEXT=4          <PROCESS THIRD
0237	      .   .   .   'ELSE'
0238	      .   .   .   .   'QUIT'          <SYNTAX
0240	      .   .   .   'ENDIF'
0242	      .   .   'WHEN' '?'
0244	      .   .   .   'IF'(PARAM.EQ.0)        <ILLEGAL
0246	      .   .   .   .   FEL = -509      <PRINT KEYS
0247	      .   .   .   .   'QUIT'          <SYNTAX
0249	      .   .   .   'ENDIF'
0251	      .   .   'OTHER'
0252	      .   .   .   'IF'(PARAM.EQ.0)        <NO PARAMETER PROCESSED
0254	      .   .   .   .   PARAM=1         <PROCESSING FIRST NOW
0255	      .   .   .   .   NEXT=2
0257	      .   .   .   'ENDIF'
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     12
ILS              

    	C
0258	      .   .   .   'IF'(NEXT.EQ.2)         <PROCESSING FIRST
0260	      .   .   .   .   PARAM=2
0261	      .   .   .   .   'IF'(CLIBUF(CLIPNT).LT.'0'.OR.CLIBUF(CLIPNT).GT.'9')
0263	      .   .   .   .   .   FEL = -502              <BAD BUS NUMBER
0264	      .   .   .   .   .   'QUIT'
0266	      .   .   .   .   'ENDIF'
    	C
0267	      .   .   .   .   TN=CLIBUF(CLIPNT)-"60+10*TN
    	C
0269	      .   .   .   'ELSIF'(NEXT.EQ.3)      <PROCESSING SECOND
0271	      .   .   .   .   PARAM=3
    	C
0272	      .   .   .   .   'IF'(CLIBUF(CLIPNT).LT.'A' .OR.
    	     *.   .   .   .   .   CLIBUF(CLIPNT).GT.']')   <SYNTAX in SYNTAX FOR KEY
0274	      .   .   .   .   .   'IF'(CLIBUF(CLIPNT).NE.'>' .AND.
    	     *.   .   .   .   .   .   CLIBUF(CLIPNT).NE.'#')   <NOT SEN AND NOT ]TR
0276	      .   .   .   .   .   .   FEL = -503      <NOT VALID KEY
0277	      .   .   .   .   .   .   'QUIT'
0279	      .   .   .   .   .   'ENDIF'
0281	      .   .   .   .   'ENDIF'
    	C
0282	      .   .   .   .   KEYLEN=KEYLEN+1
0283	      .   .   .   .   'IF'(KEYLEN.GT.10)
0285	      .   .   .   .   .   FEL = -503      <NOT VALID KEY
0286	      .   .   .   .   .   'QUIT'
0288	      .   .   .   .   'ENDIF'
0289	      .   .   .   .   KEY(KEYLEN)=CLIBUF(CLIPNT)
    	C
0291	      .   .   .   'ELSIF'(NEXT.EQ.4)      <PROCESSING THIRD
0293	      .   .   .   .   PARAM=4
0294	      .   .   .   .   'IF'(CLIBUF(CLIPNT).LT.'0'.OR.CLIBUF(CLIPNT).GT.'9')
0296	      .   .   .   .   .   FEL = -504              <BAD CHANNEL NUMBER
0297	      .   .   .   .   .   'QUIT'
0299	      .   .   .   .   'ENDIF'
    	C
0300	      .   .   .   .   KN=CLIBUF(CLIPNT)-"60+10*KN
0302	      .   .   .   'ELSE'          <I.E. PARAM=1,NEXT=1
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     13
ILS              

0303	      .   .   .   .   'QUIT'  <SYNTAX ERROR
0305	      .   .   .   'ENDIF'
    	C
0307	      .   .   'ENDCASE'
    	C
    	C
0308	      .   .   CLIPNT=CLIPNT+1
    	C
0309	      .   'ENDDO'
    	C
    	C
0311	      .   'IF'(TN.GT.999)
0313	      .   .   FEL = -502              <FEL BUSSNUMMER
0314	      .   .   'QUIT'
0316	      .   'ENDIF'
    	C
0317	      .   'IF'(KN.EQ.0)
0319	      .   .   KN=1
0321	      .   'ENDIF'
    	C
0322	      .   'IF'(KN.LT.1.OR.KN.GT.3)
0324	      .   .   FEL = -504              <BAD CHANNEL NUMBER
0325	      .   .   'QUIT'
0327	      .   'ENDIF'
    	C
0328	      .   'IF'(KEYLEN.LT.1)
0330	      .   .   FEL = -503      <NOT VALID KEY
0331	      .   .   'QUIT'
0333	      .   'ENDIF'
    	C
    	C       TRY FIND ENTRY IN TABLE
    	C
0334	      .   'POSIT' <EJ TR[FF
    	C
0335	      .   .   TABPNT=2                <1 FINNS INTE
0336	      .   .   'WHILE'(TABPNT.LE.TABMAX)
    	C
0338	      .   .   .   'QUITIF'(ICOMPA(KEYLEN,KEY,TABLE(1,TABPNT)).EQ.0)       <TR[FF
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     14
ILS              

0340	      .   .   .   'QUITIF'(ICOMPA(KEYLEN,KEY,TABLE(11,TABPNT)).EQ.0)      <TR[FF A
    	C
0342	      .   .   .   TABPNT=TABPNT+1
    	C
0343	      .   .   'ENDDO'
    	C
    	C       --- EJ TR[FF
    	C
0345	      .   .   TABPNT=0
0346	      .   .   KEYPNT=1
0347	      .   .   'WHILE'(KEYPNT.LE.KEYLEN)
    	C
0349	      .   .   .   'IF'(KEY(KEYPNT).LT.'0'.OR.KEY(KEYPNT).GT.'9')
0351	      .   .   .   .   TABPNT=-1       <NOT VALID KEY
0352	      .   .   .   .   'QUIT'
0354	      .   .   .   'ENDIF'
    	C
0355	      .   .   .   TABPNT=KEY(KEYPNT)-"60+10*TABPNT
    	C
0356	      .   .   .   KEYPNT=KEYPNT+1
    	C
0357	      .   .   'ENDDO'
    	C
0360	      .   'ADMIT'         <TR[FF
0361	      .   'ENDPOSIT'
    	C
0362	      .   'IF'(TABPNT.LE.1 .OR. TABPNT.GT.100)
0364	      .   .   FEL = -503      <NOT VALID KEY
0365	      .   .   'QUIT'
0367	      .   'ENDIF'
0368	c.   
0369	      .   'IF'(TABPNT.GT.18 .AND. TABPNT.LT.81)
0371	      .   .   FEL = -503      <NOT VALID KEY
0372	      .   .   'QUIT'
0374	      .   'ENDIF'
    	C
0375	      .   'IF'(TN.EQ.0 .AND. TABPNT.LT.81)
0377	      .   .   FEL = -503      <NOT VALID MESSAGE
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     15
ILS              

0378	      .   .   'QUIT'
0380	      .   'ENDIF'
    	C
0381	      .   'IF'(TN.EQ.0 .OR. TABPNT.GT.81)
0383	      .   .   COMBUF(1)=7
0385	      .   'ELSE'
0386	      .   .   COMBUF(1)=1
0388	      .   'ENDIF'
    	C
0389	      .   COMBUF(2)=TN
0390	      .   COMBUF(3)=KN
0391	      .   COMBUF(4)=TABPNT
0392	      .   CALL SEND(TNAME,COMBUF,56,IDS)
0393	      .   'IF' (IDS.NE.1)
0395	      .   .   FEL = IDS       <-7 AKTIV, -16 PRIVILEGE, -92 TERM. NUMB
0396	      .   .   'QUIT'
0398	      .   'ENDIF'
    	C
0399	      .   FEL=-500                <OK
    	C
0401	      'ADMIT'                 <FEL
0402	      'ENDPOSIT'
    	C
0403	      'CASE' FEL
0404	      'WHEN' -500     <OWN CODE
0406	      .   CALL GETADR(IPARAM(1),SUCBUF)   <Adress of SUCCESS
0407	      .   IPARAM(2)=SUCSIZ
0409	      'WHEN' -501     <OWN CODE
0411	      .   CALL GETADR(IPARAM(1),SYNBUF)   <Adress of SYNTAX
0412	      .   IPARAM(2)=SYNSIZ
0414	      'WHEN' -502     <OWN CODE
0416	      .   CALL GETADR(IPARAM(1),BDVBUF)   <Adress of BAD BUSNUMBER
0417	      .   IPARAM(2)=BDVSIZ
0419	      'WHEN' -503     <OWN CODE
0421	      .   CALL GETADR(IPARAM(1),NVCBUF)   <Adress of BAD KEY
0422	      .   IPARAM(2)=NVCSIZ
0424	      'WHEN' -504     <OWN CODE
0426	      .   CALL GETADR(IPARAM(1),ABOBUF)   <Adress of BAD CHANNEL
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     16
ILS              

0427	      .   IPARAM(2)=ABOSIZ
0429	      'WHEN' -509     <OWN CODE(HELP)
0431	      .   CALL GETADR(I2PARAM(1),SUCBUF)  <Adress of CRLF
0432	      .   I2PARAM(2)=2
0433	      .   I2PARAM(3)=0                    <NO time out
0434	      .   IPARAM(2)=10                    <10 TECKEN I TABELLEN
0435	      .   IPARAM(3)=0                     <NO time out
0436	      .   TABPNT=1
0437	      .   'WHILE' (TABPNT.LE.TABMAX)
0439	      .   .   CALL WTQIO(IOWBT,1,2,,ISB,I2PARAM,IDS)
0440	      .   .   CALL GETADR(IPARAM(1),TABLE(1,TABPNT)) <Adress of TABLE
0441	      .   .   CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
0442	      .   .   CALL GETADR(IPARAM(1),TABLE(11,TABPNT)) <Adress of TABLE A
0443	      .   .   CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
0444	      .   .   TABPNT=TABPNT+1
0445	      .   'ENDDO'
0448	      'WHEN' -16
0450	      .   CALL GETADR(IPARAM(1),PRVBUF)   <Adress of PRIVILEGE
0451	      .   IPARAM(2)=PRVSIZ
0453	      'OTHER'
0454	      .   CALL GETADR(IPARAM(1),DSWBUF)   <Adress of DSW
0455	      .   IPARAM(2)=DSWSIZ
0457	      .   'PERFORM' FELFILL
0459	      .   ILOOP=0
0460	      .   'WHILE'(ILOOP.LE.5)
0462	      .   .   DSWBUF(ILOOP+DSWPNT)=FELBUF(ILOOP+1)
0463	      .   .   ILOOP=ILOOP+1
0464	      .   'ENDDO'
0467	      'ENDCASE'
0468	      IPARAM(3)=0                     <NO time out
0469	      CALL WTQIO(IOWBT,1,2,,ISB,IPARAM,IDS)
    	C
0470	      CALL EXST(FEL)
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       #SEKTION FELFILL
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     17
ILS              

    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0473	      'SECTION' FELFILL
    	C
    	C
0474	      .   ILOOP=1
0475	      .   'WHILE'(ILOOP.LE.FELSIZ)
0477	      .   .   FELBUF(ILOOP)=' '
0478	      .   .   ILOOP=ILOOP+1
0479	      .   'ENDDO'
    	C
0481	      .   FELPNT=1
0482	      .   'IF'(FEL.EQ.0)
0484	      .   .   FELBUF(FELPNT)=' '
0485	      .   .   FELTMP=FEL
0486	      .   .   FELBUF(FELPNT+1)='0'
0488	      .   'ELSE'
0489	      .   .   'IF'(FEL.GT.0)
0491	      .   .   .   FELBUF(FELPNT)='+'
0492	      .   .   .   FELTMP=FEL
0494	      .   .   'ELSE'
0495	      .   .   .   FELBUF(FELPNT)='-'
0496	      .   .   .   FELTMP=IABS(FEL)
0498	      .   .   'ENDIF'
0499	      .   .   FELPNT=2
0500	      .   .   FELDIV=1000
    	C
0501	      .   .   FELCHAR='0'+FELTMP/10000
0502	      .   .   'WHILE'(.TRUE.)
0504	      .   .   .   'IF'(FELCHAR.NE.'0' .OR. FELPNT.NE.2)
0506	      .   .   .   .   FELBUF(FELPNT)=FELCHAR
0507	      .   .   .   .   FELPNT=FELPNT+1
0509	      .   .   .   'ENDIF'
0510	      .   .   .   'BREAKIF'(FELDIV.LT.1)  <F[RDIG
0512	      .   .   .   FELCHAR='0'+MOD(FELTMP,FELDIV*10)/FELDIV
0513	      .   .   .   FELDIV=FELDIV/10
0514	      .   .   'ENDDO'
META FORTRAN  X08.09		21-OCT-87	02:25:11	PAGE     18
ILS              

0517	      .   'ENDIF'
    	C
    	C
0518	      'ENDSECT'       <FELFILL
    	C
    	C
0520	      END



ERRORS DETECTED:      0
SC:ILS,SC:ILS.MLS/-SP=SC:ILS