META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      1
ILCLI            

    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C FILE NAME ILCLI.MET
    	C
    	C THIS TASK (ILCLI) IS USED  INSTEAD OF MCR ON THE RADIO SYSTEM TO PREVENT
    	C USERES TO DO FUNNY THINGS
    	C
    	C HISTORIK:
    	C NAMN                  DATUM   ]TG[RD
    	C B-E TAPPER            871017  Uruppf|rande fr}n DEC:s TMCLI
    	C B-E TAPPER            871019  F\RB[TTRAT (QIO I ST F FORTRAN WRITE)
    	C                               SPECIAL COMMAND:
    	C                                                E          = @[200,140]E
    	C                                                ED         = @DR:[200,75]ED
    	C                                                EVO        = @VO:[200,140]E
    	C                                                EVT        = @VT:[200,140]E
    	C                                                EVR        = @VE:[200,140]E
    	C
    	C >MET ILCLI,ILCLI.MLS/-SP=ILCLI
    	C >FOR ILCLI,ILCLI.FLS/-SP=ILCLI
    	C >TKB ILCLI/-FP,ILCLI/-SP=ILCLI,[1,1]FV6OTS/LB
    	C >INS ILCLI/CLI=YES/TASK=...RDC
    	C >CLI /INIT=ILCLI/MESSAGE/DPR="<15><12>/>>/"/TASK=...RDC
    	C
    	C TO SET TERMINALS TO THIS CLI, ISSUE THE FOLLOWING COMMAND
    	C WHERE TTN: IS REPLACED BY THE TERMINAL NUMBER OR TI:
    	C
    	C >SET /CLI=TTN:ILCLI
    	C
    	C NOTE THAT THE PROMPT ISSUED IN RESPONSE TO A CONTROL/C DEFAULTS TO THE
    	C NAME OF THE CLI WHICH IS "ILCLI>". 
    	C
    	C IT CAN BE ELIMINATED FROM THE SYSTEM BY THE FOLLOWING COMMANDS, ASSUMING
    	C NO TERMINALS ARE SET TO IT:
    	C
    	C >CLI /ELIM=ILCLI
    	C >REM ...RDC
    	C
    	C EXPERIMENT WITH THE OTHER OPTIONS ON THE CLI /INIT COMMAND, THE ENABLE
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      2
ILCLI            

    	C AND DISABLE CLI COMMANDS, AND LEAVING OFF THE /MESSAGE SWITCH ON THE /INIT
    	C COMMAND TO OBSERVE THE EFFECT THEY HAVE. ALSO TRY CHANGING THE /TASK=
    	C SWITCH ON THE INS AND CLI /INIT COMMAND TO "/TASK=ILCLI" AND NOTICE
    	C THAT ONLY ONE COPY OF THE TASK WILL EXIST FOR ALL TERMINALS, RATHER THAN
    	C ONE PER COMMAND. IF THIS IS DONE, YOU SHOULD ALSO CHANGE THE OPTION
    	C ON THE GTCMCI DIRECTIVE FROM GC.CEX TO GC.CST SO THE TASK WILL STAY ACTIVE
    	C BUT STOPPED WHEN NO COMMANDS ARE OUTSTANDING FOR IT.
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       VARIABLER
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0001	      INTEGER         IDS     <DIRECTIVE STATUS
    	C
0002	      INTEGER         IGRP    <GROUP UIC CODE
0003	      INTEGER         IMEM    <MEMBER UIC CODE
    	C
0004	      LOGICAL*1       JANEJ   <FUNCTION
    	C
0005	      INTEGER         BUFPEK  <PEKARE I CLI-BUFFERTEN
0006	      INTEGER         OUTPEK  <PEKARE I MCR-BUFFERTEN
0007	      INTEGER         OUTLEN  <AKTUELLA L[NGEN P] MCR-BUFFERTEN
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       BUFFER AREAS
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C    COMMAND BUFFER - THIS BUFFER IS USED IN THE GTCMCI DIRECTIVE.  IT CON-
    	C                     TAINS INFORMATION ON THE COMMAND RECEIVED (8 BYTES)
    	C                     AND THE COMMAND TEXT.
0008	      BYTE CMDBUF(264)
0009	      INTEGER*2 CBLEN         < NOTE THAT ON M+ THE MAXIMUM COMMAND
0010	      DATA CBLEN/263/         < LENGTH IS 255.
    	C
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      3
ILCLI            

0011	      INTEGER*2 GCCDV         < ASCII DEV NAM
0012	      EQUIVALENCE (GCCDV,CMDBUF)
    	C
0013	      INTEGER*2 GCCCL         < # CHARS IN CMD LINE
0014	      EQUIVALENCE (GCCCL,CMDBUF(5))
    	C
0015	      BYTE GCCCT              < # OF CHARS
0016	      EQUIVALENCE (GCCCT,CMDBUF(4))
0017	      INTEGER IGCCCT          <DITO INTEGER
    	C
0018	      BYTE GCCUN              < TERMINAL UNIT #
0019	      EQUIVALENCE (GCCUN,CMDBUF(3))
0020	      INTEGER IGCCUN          <DITO INTEGER
    	C
0021	      BYTE GCCBF(255)         < CMD
0022	      EQUIVALENCE (GCCBF,CMDBUF(9))
    	C
    	C    INFORMATION BUFFER - ALSO RETURNED IN THE GTCMCI DIRECTIVE.
    	C
0023	      BYTE IBUF(14)
0024	      INTEGER*2 IBLEN
0025	      DATA IBLEN/14/          < LENGTH OF IBUF
    	C
0026	      INTEGER*2 GCCPU
0027	      DATA GCCPU/9/           < LOGIN UIC OFFSET
    	C
0028	      INTEGER*4 GCCOA         < ADDR OF OFFSPRING CONTROL BLOCK FROM PARENT
0029	      EQUIVALENCE (GCCOA,IBUF(7))
    	C
    	C    BUFFER IN WHICH TO GENERATE COMMANDS
    	C
0030	      BYTE BUF(72)            < BUFFER IN WHICH TO GENERATE COMMANDS
0031	      REAL*8 TCMD(3)          < FOR CONVENIENCE IN ASSIGNMENT STATEMENTS
0032	      EQUIVALENCE (BUF,TCMD)
    	C
    	C    MCR TASK NAME IN RAD50
    	C
0033	      INTEGER*4 IMCR          < MCR TASK NAME IN RAD50
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      4
ILCLI            

0034	      DATA IMCR/6RMCR.../
    	C
    	C DIRECTIVE SYMBOLIC VALUE DEFINITIONS
    	C
0035	      INTEGER*2 GCCCS
0036	      DATA GCCCS/0/           < INCP VALUES IN GTCMCI
    	C
0037	      INTEGER*2 GCCEX
0038	      DATA GCCEX/1/           < INCP VALUES IN GTCMCI
    	C
0039	      INTEGER*2 GCCST
0040	      DATA GCCST/2/           < INCP VALUES IN GTCMCI
    	C
0041	      INTEGER*2 GCCND
0042	      DATA GCCND /128/        < INCP VALUES IN GTCMCI
    	C
0043	      INTEGER*2 ISCLR
0044	      DATA ISCLR /0/          < IS.CLR RETURN CODE
    	C
0045	      INTEGER*2 CMELM         < TERMINAL CODES FOR SYSTEM MSGS
0046	      DATA CMELM/5/
    	C
0047	      INTEGER*2 CMEXT         < TERMINAL CODES FOR SYSTEM MSGS
0048	      DATA CMEXT/6/
    	C
0049	      INTEGER*2 CMLKT         < TERMINAL CODES FOR SYSTEM MSGS
0050	      DATA CMLKT/7/
    	C
0051	      INTEGER*2 CMRMT         < TERMINAL CODES FOR SYSTEM MSGS
0052	      DATA CMRMT/8/
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       STYRSEKTION - CLI CODE
    	C
    	C TO FORCE THE CLI TO EXIT INSTEAD OF RETURNING, THE GC.CEX OPTION IS SPECI-
    	C FIED IN THE GTCMCI DIRECTIVE BELOW.  IF THE CLI IS INSTALLED SO THAT ONLY
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      5
ILCLI            

    	C ONE COPY OF THE TASK WILL EXIST FOR ALL TERMINALS, CHANGE THE VARIABLE
    	C GCCEX BELOW TO GCCST.  THIS SPECIFIES THE GC.CST OPTION SO THAT THE TASK
    	C WILL STAY ACTIVE BUT STOPPED WHEN NO COMMANDS ARE OUTSTANDING FOR IT.
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
0053	      'WHILE'(.TRUE.)                 <LOOP FOR EVER
    	C
0055	      .   CALL GTCMCI(CMDBUF,CBLEN,IBUF,IBLEN,0,GCCEX,IDS) < GET CMD FOR CLI
    	C
0056	      .   'BREAKIF' (IDS .LT. 0)
    	C
0058	      .   'IF'(IDS .EQ. ISCLR)    < WERE WE JUST UNSTOPPED?
    	C
    	C               IF THE GTCMCI DIRECTIVE HAD THE GC.CST OPTION SPECIFIED,
    	C               WE MAY HAVE JUST BEEN UNSTOPPED, SO WE HAVE TO GET THE COMMAND.
0060	      .   .   CONTINUE                < RE-ISSUE DIRECTIVE
    	C
0062	      .   'ELSIF' (GCCDV .EQ. 0)          <SYSTEM MESSAGE
    	C
0065	      .   .   'PERFORM' SYSMES
    	C
0068	      .   'ELSE'                          <COMMAND
    	C
0069	      .   .   IGCCUN = GCCUN          < CONVERT BYTE TO INTEGER (UNIT #)
0070	      .   .   CALL ASNLUN(1,GCCDV,IGCCUN,IDS) < ASSIGN TERMINAL TO LUN 1
    	C
0071	      .   .   IGCCCT=GCCCT                    < CONVERT BYTE TO INTEGER
0072	      .   .   'IF' (IGCCCT .LT. 0)
0074	      .   .   .   IGCCCT = 256 + IGCCCT   < CONVERT NEGATIVE TO UNSIGNED
0076	      .   .   'ENDIF'
    	C
0077	      .   .   'IF' (IGCCCT .LT. GCCCL)  < DID ENTIRE COMMAND FIT IN BUFFER?
0079	      .   .   .   WRITE (1,152)   < ENTIRE COMMAND DID NOT FIT IN BUFFER
0080	152   .   .   .   FORMAT('0F\R M]NGA BOST[VER I KOMMANDOT !')
0082	      .   .   'ELSE'
0084	      .   .   .   'PERFORM' COMMAND
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      6
ILCLI            

0087	      .   .   'ENDIF'
    	C
0089	      .   'ENDIF'
    	C
0090	      'ENDDO'
    	C
0092	      WRITE (1,102) IDS       < ERROR IN GTCMCI
0093	 102  FORMAT('0FATALT FEL I GTCMCI. IDS=',I6)
0094	      CALL EXIT               < EXIT
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       A COMMAND WAS RECEIVED
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
0097	      'SECTION' COMMAND
    	C
    	C
    	C AT THIS POINT, THE CLI HAS A COMMAND TO BE PROCESSED. THE CODE FROM
    	C THE 'WHILE' TO HERE SHOULD BE FAIRLY COMMON AMONG ALL CLIS.
    	C FROM THIS POINT ON, THE CODE WILL BE SPECIFIC TO THE PARTICULAR LANGUAGE
    	C THIS CLI IS IMPLEMENTING. COMMANDS CAN BE ADDED OR DELETED AT WILL
    	C BY MODIFYING CODE IN THIS SECTION. AS STATED ABOVE, THIS EXTREMELY
    	C SIMPLE CLI PROVIDES TWO COMMANDS, AND GIVES EVERYTHING ELSE TO MCR.
    	C THIS CREATES AN OPEN ENDED ENVIRONMENT. REJECTING UNRECOGNIZED COMMANDS
    	C INSTEAD OF PASSING THEM TO MCR WOULD LIMIT THE TERMINAL USER'S USE OF
    	C THE SYSTEM TO ONLY THOSE OPERATIONS ALLOWED BY THE CLI. THIS IS
    	C A SECURE WAY OF CONTROLLING SYSTEM USE, IN CASES WHEN IT IS NECESSARY.
    	C IN THIS EXAMPLE, CHANGING THE "GO TO 50" BELOW, TO A "GO TO 60"
    	C WOULD CREATE AN ENVIRONMENT WHERE THE ONLY OPERATION A USER COULD
    	C PERFORM WOULD BE TO TYPE FILES ON THE TERMINAL, OR SWITCH BACK TO MCR.
    	C ALL OF THE REST OF RSX IS TOTALLY INACCESSABLE. IF NO MEANS OF SWITCHING
    	C BACK TO MCR IS PROVIDED, IT WOULD BE IMPOSSIBLE FOR THE USER TO DO
    	C ANYTHING THE CLI DOES NOT EXPLICITLY LET HIM DO.
    	C
0098	      .   'POSIT'         <EJ FEL I KOMMANDPORCESSEN
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      7
ILCLI            

    	C
    	C
0099	      .   .   'CASE' IGCCCT   <NUMBER OF CHARS IN COMMAND
0100	      .   .   'WHEN' 3
0102	      .   .   .   'IF' (ICOMPA(3,GCCBF,'MCR').EQ.0)
0104	      .   .   .   .   TCMD(1) = 'SET /MCR'
0105	      .   .   .   .   TCMD(2) = '=TI:    '    < SET /MCR=TI:
0106	      .   .   .   .   OUTLEN=12
0108	      .   .   .   'ELSIF' (ICOMPA(2,GCCBF,'EV').EQ.0)
0110	      .   .   .   .   OUTLEN=14
0111	      .   .   .   .   CALL MOVE01(OUTLEN,'@Vx:[200,140]E',BUF)        < HELP
0112	      .   .   .   .   BUF(3)=GCCBF(3)
0114	      .   .   .   'ELSE'
0115	      .   .   .   .   OUTLEN=3
0116	      .   .   .   .   CALL MOVE01(OUTLEN,GCCBF,BUF)
0118	      .   .   .   'ENDIF'
0119	      .   .   .   'IF'(BUF(2)EQ.' ')
0121	      .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0123	      .   .   .   'ELSIF'(BUF(3).EQ.' ' .AND. BUF(1).NE.'@')
0125	      .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0127	      .   .   .   'ELSE'
0129	      .   .   .   .   'PERFORM' RPOI
0131	IE    .   .   .   .   IGRP = IBUF(GCCPU+1)    < GROUP (CONV BYTE TO INTEGER)
0132	      .   .   .   .   IMEM = IBUF(GCCPU)      < MEMBER PART OF UIC
0133	      .   .   .   .   CALL RPOI(IMCR,IGRP,IMEM,,TCMD,OUTLEN,,GCCDV,IGCCUN,,GCCOA,IDS)
0134	      .   .   .   .   'QUITIF' (IDS .LE. 0)
0137	      .   .   .   'ENDIF'
0139	      .   .   'WHEN' 1
0141	      .   .   .   'IF' (GCCBF(1)='E')
0143	      .   .   .   .   OUTLEN=14
0144	      .   .   .   .   CALL MOVE01(14,'@SY:[200,140]E',BUF)    < HELP
0146	      .   .   .   .   'PERFORM' RPOI
0149	      .   .   .   'ENDIF'
0151	      .   .   'WHEN' 2
0153	      .   .   .   'IF' (ICOMPA(2,GCCBF,'ED').EQ.0)
    	C
0156	      .   .   .   .   'PERFORM' ED
    	C
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      8
ILCLI            

*** ERROR IN CASE-WHEN- .. -ENDCASE NESTING ***
0159	      .   .   .   'OTHER'
0160	      .   .   .   .   'IF' (ICOMPA(11,GCCBF,'G] TILL MCR').EQ.0)
    	C                       SET THE TERMINAL TO MCR.
0162	      .   .   .   .   .   OUTLEN=12
0163	      .   .   .   .   .   TCMD(1) = 'SET /MCR'
0164	      .   .   .   .   .   TCMD(2) = '=TI:    '    < SET /MCR=TI:
0166	      .   .   .   .   'ELSIF' (ICOMPA(3,GCCBF,'HJ[').EQ.0 .OR.
    	     *.   .   .   .   .   ICOMPA(3,GCCBF,'HEL').EQ.0)
0168	      .   .   .   .   .   OUTLEN=25
0169	      .   .   .   .   .   CALL MOVE01(OUTLEN,'PIP TI:=LB:[1,2]ILCLI.DOC',BUF)
0170	      .   .   .   .   .   < TYPE HELP FILE
0171	      .   .   .   .   .   'IF' (ICOMPA(3,GCCBF,'HEJ').EQ.0 .OR.
    	     *.   .   .   .   .   .   ICOMPA(3,GCCBF,'VDP').EQ.0)
0173	      .   .   .   .   .   .   OUTLEN=3
0174	      .   .   .   .   .   .   TCMD(1) = 'VDP     '
0175	      .   .   .   .   .   .   IGRP = IBUF(GCCPU+1)    < (CONVERT BYTE TO INTEGER) GROUP
0176	      .   .   .   .   .   .   IMEM = IBUF(GCCPU)      < MEMBER PART OF UIC
0177	      .   .   .   .   .   .   CALL RPOI(IMCR,IGRP,IMEM,,TCMD,OUTLEN,,GCCDV,IGCCUN,,GCCOA,IDS)
0178	      .   .   .   .   .   .   'QUITIF' (IDS .LE. 0)
    	C
    	C
0181	      .   .   .   .   .   'ELSIF'(IGCCCT.LT.2)
0183	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0185	      .   .   .   .   .   'ELSIF'(ICOMPA(1,GCCBF(2),' ').EQ.0 )
0187	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0189	      .   .   .   .   .   'ELSIF'(IGCCCT.EQ.2 .AND. ICOMPA(1,GCCBF(1),'@').NE.0 )
0191	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0193	      .   .   .   .   .   'ELSIF'(ICOMPA(1,GCCBF(3),' ').EQ.0 .AND. IGCCCT.GT.2 .AND.
    	     *.   .   .   .   .   .   ICOMPA(1,GCCBF(1),'@').NE.0 )
0195	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0197	      .   .   .   .   .   'ELSIF'(ICOMPA(1,GCCBF(4),' ').NE.0 .AND. IGCCCT.GT.3 .AND.
    	     *.   .   .   .   .   .   ICOMPA(1,GCCBF(1),'@').NE.0 )
0199	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0200	3015  .   .   .   .   .   .   FORMAT('0DU R\KER F\R MYCKET !')
    	C
0202	      .   .   .   .   .   'ELSE'
    	C
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE      9
ILCLI            

0203	      .   .   .   .   .   .   WRITE (1,3015)  < ERROR IN RPOI
0205	      .   .   .   .   .   .   'PERFORM' PASSMCR
    	C
0208	      .   .   .   .   .   'ENDIF'
    	C
    	C
*** ERROR IN POSIT-ADMIT-ENDPOSIT NESTING ***
0210	      .   .   .   .   'ADMIT'
0211	      .   .   .   .   .   WRITE (1,112) IDS       < ERROR IN RPOI
0212	 112  .   .   .   .   .   FORMAT('0FATALT FEL I RPOI. IDS=',I6)
0213	      .   .   .   .   .   CALL EXIT
*** ERROR IN POSIT-ADMIT-ENDPOSIT NESTING ***
0214	      .   .   .   .   'ENDPOSIT'
    	C
    	C
*** SECTION NOT AT ZERO NESTING LEVEL ***
0215	      .   .   .   'ENDSECT'       <KOMMANDO
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       HJ[LP: PIP TI:=RD.DOC
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
*** SECTION NOT AT ZERO NESTING LEVEL ***
0217	      .   .   .   'SECTION' HELP
    	C
0218	      .   .   .   WRITE (1,3015)  < ERROR IN RPOI
    	C
0219	      .   .   .   CALL MOVE01(8,'HELP MCR',BUF)   < HELP
0220	      .   .   .   IGRP = IBUF(GCCPU+1)    < (CONVERT BYTE TO INTEGER) GROUP
0221	      .   .   .   IMEM = IBUF(GCCPU)      < MEMBER PART OF UIC
0222	      .   .   .   CALL RPOI(IMCR,IGRP,IMEM,,TCMD,8,,GCCDV,IGCCUN,,GCCOA,IDS)
0223	      .   .   .   'IF' (IDS .LE. 0)
0225	      .   .   .   .   WRITE (1,112) IDS       < ERROR IN RPOI
0226	      .   .   .   .   CALL EXIT
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     10
ILCLI            

0228	      .   .   .   'ENDIF'
    	C
*** ERROR IN SECTION-ENDSECT NESTING ***
0229	      .   .   .   'ENDSECT'
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       @E
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C
*** SECTION NOT AT ZERO NESTING LEVEL ***
0231	      .   .   .   'SECTION' EVX
    	C
0232	      .   .   .   IGRP = IBUF(GCCPU+1)    < (CONVERT BYTE TO INTEGER) GROUP
0233	      .   .   .   IMEM = IBUF(GCCPU)      < MEMBER PART OF UIC
0234	      .   .   .   CALL RPOI(IMCR,IGRP,IMEM,,TCMD,14,,GCCDV,IGCCUN,,GCCOA,IDS)
0235	      .   .   .   'IF' (IDS .LE. 0)
0237	      .   .   .   .   WRITE (1,112) IDS       < ERROR IN RPOI
0238	      .   .   .   .   CALL EXIT
0240	      .   .   .   'ENDIF'
    	C
*** ERROR IN SECTION-ENDSECT NESTING ***
0241	      .   .   .   'ENDSECT'
    	C
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       PASSMCR - S[ND HELA SKITEN VIDARE TILL MCR
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
*** SECTION NOT AT ZERO NESTING LEVEL ***
0243	      .   .   .   'SECTION' PASSMCR
    	C
0244	      .   .   .   IGRP = IBUF(GCCPU+1)    < (CONVERT BYTE TO INTEGER) GROUP
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     11
ILCLI            

0245	      .   .   .   IMEM = IBUF(GCCPU)      < MEMBER PART OF UIC
0246	      .   .   .   IGCCCT = GCCCT          < # OF CHARS IN COMMAND
    	C
    	C ISSUE RPOI$ DIRECTIVE TO EXECUTE COMMAND
    	C
0247	      .   .   .   CALL RPOI(IMCR,IGRP,IMEM,,GCCBF,IGCCCT,,GCCDV,IGCCUN,,GCCOA,IDS)
0248	      .   .   .   'IF' (IDS .LE. 0)
0250	      .   .   .   .   WRITE (1,112) IDS       < ERROR IN RPOI
0251	      .   .   .   .   CALL EXIT               < EXIT
0253	      .   .   .   'ENDIF'
    	C
    	C
*** ERROR IN SECTION-ENDSECT NESTING ***
0254	      .   .   .   'ENDSECT'               <PASSMCR
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
    	C       A SYSTEM MESSAGE WAS RECEIVED INSTEAD OF A COMMAND
    	C
    	CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
    	C
*** SECTION NOT AT ZERO NESTING LEVEL ***
0256	      .   .   .   'SECTION' SYSMES
    	C
    	C
0257	      .   .   .   'CASE' GCCUN
0258	      .   .   .   'WHEN' CMLKT            < IS IT A NEW TERMINAL LINKED TO US?
    	C
    	C                ISSUE WELCOME MESSAGE
    	C
0260	      .   .   .   .   IGCCUN = CMDBUF(11) < CONVERT BYTE TERMINAL UNIT # TO INTEGER
0261	      .   .   .   .   CALL ASNLUN(1,GCCBF,IGCCUN,IDS) < ASSIGN LUN 5 TO SPEC.DEVICE
0262	      .   .   .   .   WRITE (1,212)
0263	 212  .   .   .   .   FORMAT('$HEJ INGEMAR - R\KER DU F\R MYCKET')
    	C
0264	      .   .   .   .   'WHILE'(.NOT.JANEJ())
0266	      .   .   .   .   'ENDDO'
    	C
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     12
ILCLI            

0269	      .   .   .   'WHEN' CMRMT            < IS IT A TERMINAL BEING REMOVED?
    	C
    	C
    	C               ISSUE GOOD BYE MESSAGE
    	C
0271	      .   .   .   .   IGCCUN = CMDBUF(11) < CONVERT BYTE TERMINAL UNIT # TO INTEGER
0272	      .   .   .   .   CALL ASNLUN(1,GCCBF,IGCCUN,IDS) < ASSIGN LUN 5 TO SPEC.DEVICE
0273	      .   .   .   .   WRITE (1,222)
0274	 222  .   .   .   .   FORMAT('0VI SES - PS! DU R\KER F\R MYCKET ! DS!')
    	C
0276	      .   .   .   'WHEN' CMEXT            < IS IT AN ELIMINATE ALL PACKET?
    	C
0278	      .   .   .   .   CALL EXIT       <EXIT IMMEDIATELY (SHUTUP ?)
    	C
0280	      .   .   .   'WHEN' CMELM            < IS IT A CLI ELIMINATION MESSAGE?
    	C
0282	      .   .   .   .   CALL EXIT       <CLI ELIMINATED
    	C
0284	      .   .   .   'ENDCASE'
    	C
*** ERROR IN SECTION-ENDSECT NESTING ***
0285	      .   .   .   'ENDSECT'
    	C
0286	      .   .   .   END
    	C
    	C
    	C
    	C FUNKTION F\R JANEJ-INMATNING
    	C
    	C       WRITTEN 83-02-28 B-E TAPPER AB UPPSALABUSS
    	C       UPDATED 83-04-14 B-E TAPPER AB UPPSALABUSS (TO TAKE 'NEJ')
    	C       UPDATED 83-08-18 B-E TAPPER AB UPPSALABUSS (PROMPTER BUFFER CRLF)
    	C       REVISED 83-08-22 B-E TAPPER AB UPPSALABUSS (CHGD TO FUNCTION)
    	C       UPDATED 83-08-22 B-E TAPPER AB UPPSALABUSS (FOR PDISP SYSTEM)
    	C       UPDATED 87-10-18 B-E TAPPER AB UPPSALABUSS (FOR ILCLI)
    	C       
    	C
    	C       PROGRAMMET SVARAR MED .TRUE.=JA, .FALSE.=NEJ P] FR]GOR
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     13
ILCLI            

    	C       DEFAULTHANTERING [R INBYGGD, BARA .TRUE. ELLER .FALSE. KOMMER UT
    	C
    	C
    	C       ANROP :  JANEJ()        <JANEJ [R LOGICAL*1
    	C
0287	      .   .   .   LOGICAL*1 FUNCTION JANEJ
    	C
0288	      .   .   .   BYTE INBUF(10)
0289	      .   .   .   INTEGER IDS
0290	      .   .   .   INTEGER TPSIZ   <PROMPTER SIZE
    	C
0291	      .   .   .   INTEGER IPARAM(6)
    	C
0292	      .   .   .   BYTE ISB(4)
0293	      .   .   .   INTEGER IESB(2)
0294	      .   .   .   EQUIVALENCE(ISB,IESB)   
    	C
    	C
0295	      .   .   .   INTEGER IORPR
0296	      .   .   .   DATA IORPR/"004400/
    	C
0297	      .   .   .   BYTE TYP
0298	      .   .   .   DIMENSION TYP(10)
0299	      .   .   .   DATA TYP/' ','(','J','A','/','N','E','J',')','?'/
0300	      .   .   .   TPSIZ=10
    	C
    	C
0301	      .   .   .   IPARAM(6)=0     <0=NO VFC (VERTICAL FORMAT CONTROL)
    	C
    	C       IPARAM : STADD (DEST)
    	C                SIZE IN BYTES
    	C                NOT USED (TIMEOUT)
    	C                PRADD (PROMPT)
    	C                PRSIZE IN BYTES
    	C                VFC
    	C
0302	      .   .   .   CALL GETADR(IPARAM(1),INBUF(1))
0303	      .   .   .   IPARAM(2)=10
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     14
ILCLI            

0304	      .   .   .   IPARAM(3)=0
0305	      .   .   .   IPARAM(5)=TPSIZ
0306	      .   .   .   CALL GETADR(IPARAM(4),TYP(1))
    	C
    	C               --- TA IN SVAR TILLS SVAR [R JUSTE
    	C
0307	      .   .   .   'POSIT'         <EJ FEL
    	C
0308	      .   .   .   .   'REPEAT'
    	C
0309	      .   .   .   .   .   CALL WTQIO(IORPR,1,1,,ISB,IPARAM,IDS)
0310	      .   .   .   .   .   'QUITIF'(IDS.NE.1)
0312	      .   .   .   .   .   'IF'(ISB(1).EQ .1)
0314	      .   .   .   .   .   .   'IF' (ISB(2).EQ.13.AND.ISB(3).GE.1)
0316	      .   .   .   .   .   .   .   'QUITIF'(ISB(4).NE.0)
0318	      .   .   .   .   .   .   .   'IF'(ISB(3).EQ.2)
0320	      .   .   .   .   .   .   .   .   'IF'(INBUF(1).EQ.'J')
0322	      .   .   .   .   .   .   .   .   .   'IF'(INBUF(2).EQ.'A')
0324	      .   .   .   .   .   .   .   .   .   .   JANEJ=.TRUE.
0325	      .   .   .   .   .   .   .   .   .   .   'BREAK'
0327	      .   .   .   .   .   .   .   .   .   'ENDIF'
0329	      .   .   .   .   .   .   .   .   'ENDIF'
    	C               'ELSIF'(ISB(3).EQ.3)
    	C                       'IF'(INBUF(1).EQ.'N')
    	C                               'IF'(INBUF(2).EQ.'E')
    	C                                       'IF'(INBUF(3).EQ.'J')
    	C                                               JANEJ=.FALSE.
    	C                                               'BREAK'
    	C                                       'ENDIF'
    	C                               'ENDIF'
    	C                       'ENDIF'
0331	      .   .   .   .   .   .   .   'ENDIF'
0333	      .   .   .   .   .   .   'ENDIF'
0335	      .   .   .   .   .   'ENDIF'
    	C
    	C
0336	      .   .   .   .   .   WRITE(1,10)
0337	10    .   .   .   .   .   FORMAT(1X/'$JO DET G\R DU VISST DET, ELLER HUR')
META FORTRAN  X08.09		22-MAR-88	20:16:56	PAGE     15
ILCLI            

    	C
0338	      .   .   .   .   'UNTIL'(.FALSE.)
    	C
0342	      .   .   .   'ADMIT'
0343	      .   .   .   'ENDPOSIT'
    	C
0344	      .   .   .   RETURN
    	C
    	C
0345	      .   .   .   END
*** ERROR IN IF-ELSE-ENDIF NESTING ***
*** ERROR IN IF-ELSE-ENDIF NESTING ***
*** ERROR IN CASE-WHEN- .. -ENDCASE NESTING ***
*** MISSING SECTION(S) ***



ERRORS DETECTED:     16
,ILCLI.LST=ILCLI