        SUBROUTINE DECODE
        INTEGER COL,TYPE,VALUE
        REAL II,KK,LL,MM,NN,MINUS,N
        DIMENSION N(10)
        COMMON/A/CHAR(72)
        COMMON/B/VALUE
        COMMON/C/COL,TYPE
      DATA N(1),N(2),N(3),N(4),N(5),N(6),N(7),N(8),N(9),N(10)/1H0,1H1,1H
     12,1H3,1H4,1H5,1H6,1H7,1H8,1H9/
      DATA BLANK,COMMA,MINUS,PLUS,SLASH/1H ,1H,,1H-,1H+,1H//
        DATA AA,BB,CC,DD,EE/1HA,1HB,1HC,1HD,1HE/
        DATA FF,GG,HH,II,KK/1HF,1HG,1HH,1HI,1HK/
        DATA LL,MM,NN,OO,PP/1HL,1HM,1HN,1HO,1HP/
        DATA QQ,RR,SS,TT,UU,YY/1HQ,1HR,1HS,1HT,1HU,1HY/
C       TYPE=-1: UNRECOGNIZABLE FIELD
C       TYPE=0:  SPECIAL FIELD
C                VALUE=-1 FOR -,0 FOR BLANK,+1 FOR +
C       TYPE=1:  NUMERIC FIELD
C                VALUE=INTEGER EQUIVALENT
C       TYPE=2: ERROR CONTROL OPTION
C               VALUE=-1 (E),0 (H),1 (S)
C       TYPE=3:  COMMAND CODE
C              VALUE=-6 (YES),-5(N0),-4 (ON),-3 (OFF),-2 (END),-1 (CO)
C                   =0 (A),1 (D),2 (F),3 (T),4 (P),5 (PB),6 (D/),7 (Q)
C                     =10 (AD),11 (DA)
C                     =15 (SL),16 (GP), 17 (CS)
C                     =20 (FR), 21 (CL),
C                     =25 (ER), 26 (SK)
C       TYPE=4:  ANALOG MODE
C               VALUE=1 (PC),2 (PP),3 (ST),4 (OP),5 (HD),6 (IC),7 (SP)
C       TYPE=5:  TIME CONSTANT
C                VALUE=0 (NS),1 (FS),2 (NM),3 (FM)
C       TYPE=6:  LOGIC MODE
C               VALUE=1 (RUN),2 (STOP),3 (CLEAR)
10      IF (COL.GT.36) GO TO 60
        IF (CHAR(COL).NE.BLANK) GO TO 20
        COL=COL+1
        GO TO 10
C       START OF FIELD
20      CH=CHAR(COL)
        IF (CH.EQ.COMMA) GO TO 60
        IF (CH.EQ.PLUS) GO TO 70
        IF (CH.EQ.MINUS) GO TO 80
        IF (CH.GT.N(10)) GO TO 100
        IF (CH.LT.N(1)) GO TO 110
C       NUMERIC FIELD
        TYPE=1
        VALUE=0
30      DO 40 I=1,10
        IF (CH.NE.N(I)) GO TO 40
        VALUE=10*VALUE+I-1
        GO TO 50
40      CONTINUE
        GO TO 600
50      COL=COL+1
        IF (COL.GT.36) RETURN
        CH=CHAR(COL)
        GO TO 30
C       BLANK FIELD
60      TYPE=0
        VALUE=0
      COL=COL+1
        RETURN
C       PLUS SIGN
70      VALUE=1
        GO TO 90
C       MINUS SIGN
80      VALUE=-1
C       SIGN FIELD
90      TYPE=0
        COL=COL+1
        CH=CHAR(COL)
        GO TO 600
C       ALPHABETIC FIELD
100     COL=COL+1
        CT=CHAR(COL)
        IF (CH.EQ.AA) GO TO 120
        IF (CH.EQ.CC) GO TO 140
        IF (CH.EQ.DD) GO TO 180
        IF (CH.EQ.EE) GO TO 210
        IF (CH.EQ.FF) GO TO 240
        IF (CH.EQ.GG) GO TO 280
        IF (CH.EQ.HH) GO TO 290
        IF (CH.EQ.II) GO TO 310
        IF (CH.EQ.NN) GO TO 320
        IF (CH.EQ.OO) GO TO 360
        IF (CH.EQ.PP) GO TO 390
        IF (CH.EQ.QQ) GO TO 430
        IF (CH.EQ.RR) GO TO 440
        IF (CH.EQ.SS) GO TO 450
        IF (CH.EQ.TT) GO TO 550
        IF (CH.EQ.YY) GO TO 560
C       FIRST ALPHABETIC IS ILLEGAL
110     TYPE=-1
        RETURN
120     IF (COL.LT.37.AND.CT.EQ.DD) GO TO 130
C       AMPLIFIER
        VALUE=0
        GO TO 570
C       A-TO-D
130     VALUE=10
        GO TO 490
140     IF (CT.EQ.LL) GO TO 150
        IF (CT.EQ.OO) GO TO 170
        IF (CT.NE.SS) GO TO 110
C       COMPARATOR STATUS
        VALUE=17
        GO TO 490
150     IF (COL.LT.37.AND.CHAR(COL+1).EQ.EE) GO TO 160
C       CONTROL LINE
        VALUE=21
        GO TO 490
160     COL=COL+4
        IF (CHAR(COL-2).NE.AA) GO TO 110
        IF (CHAR(COL-1).NE.RR) GO TO 110
C       CLEAR
        VALUE=3
        GO TO 540
C       COMMENT
170     VALUE=-1
        GO TO 490
180     IF (COL.EQ.37) GO TO 185
        IF (CT.EQ.AA) GO TO 190
        IF (CT.EQ.SLASH) GO TO 200
C       DERIVATIVE
185     VALUE=1
        GO TO 570
C       D-TO-A
190     VALUE=11
        GO TO 490
C       DERIVATIVE/10
200     VALUE=6
        GO TO 490
210     IF (COL.EQ.37) GO TO 215
        IF (CT.EQ.NN) GO TO 220
        IF (CT.EQ.RR) GO TO 230
C       E OPTION
215     VALUE=-1
        GO TO 460
220     COL=COL+2
        IF (CHAR(COL-1).NE.DD) GO TO 110
C       END
        VALUE=-2
        GO TO 570
C       ERROR TOLERANCE
230     VALUE=25
        GO TO 490
240     IF (COL.EQ.37) GO TO 245
        IF (CT.EQ.MM) GO TO 250
        IF (CT.EQ.RR) GO TO 260
        IF (CT.EQ.SS) GO TO 270
C       FUNCTION GENERATOR
245     VALUE=2
        GO TO 570
C       FAST-MILLISECONDS
250     VALUE=3
        GO TO 350
C       FUNCTION RELAY
260     VALUE=20
        GO TO 490
C       FAST-SECONDS
270     VALUE=1
        GO TO 350
280     IF (CT.NE.PP) GO TO 110
C       GENERAL PURPOSE INTERRUPT
        VALUE=16
        GO TO 490
290     IF (CT.EQ.DD) GO TO 300
C       H OPTION
        VALUE=0
        GO TO 460
C       HOLD
300     VALUE=5
        GO TO 520
310     IF (CT.NE.CC) GO TO 110
C       INITIAL CONDITION
        VALUE=6
        GO TO 520
320     IF (CT.EQ.MM) GO TO 340
        IF (CT.EQ.OO) GO TO 330
        IF (CT.NE.SS) GO TO 110
C       NORMAL-SECONDS
        VALUE=0
        GO TO 350
C       NO
330     VALUE=-5
        GO TO 490
C       NORMAL-MILLISECONDS
340     VALUE=2
C       TIME CONSTANT
350     TYPE=5
        GO TO 580
360     IF (CT.EQ.FF) GO TO 370
        IF (CT.EQ.NN) GO TO 380
        IF (CT.NE.PP) GO TO 110
C       OPERATE
        VALUE=4
        GO TO 520
370     COL=COL+2
        IF (CHAR(COL-1).NE.FF) GO TO 110
C       OFF
        VALUE=-3
        GO TO 570
C       ON
380     VALUE=-4
        GO TO 490
390     IF (COL.EQ.37) GO TO 395
        IF (CT.EQ.BB) GO TO 400
        IF (CT.EQ.CC) GO TO 410
        IF (CT.EQ.PP) GO TO 420
C       POTENTIOMETER
395     VALUE=4
        GO TO 570
C       PATCH-BOARD (ADDRESS)
400     VALUE=5
        GO TO 490
C       POT COEFFICIENT
410     VALUE=1
        GO TO 520
C       PATCH PANEL (MODE)
420     VALUE=2
        GO TO 520
C       QUOTENTIOMETER
430     VALUE=7
        GO TO 570
440     IF (CT.NE.UU) GO TO 110
        COL=COL+2
        IF (CHAR(COL-1).NE.NN) GO TO 110
C       RUN
        VALUE=1
        GO TO 540
450     IF (COL.EQ.37) GO TO 455
        IF (CT.EQ.KK) GO TO 470
        IF (CT.EQ.LL) GO TO 480
        IF (CT.EQ.PP) GO TO 500
        IF (CT.EQ.TT) GO TO 510
C       S OPTION
455     VALUE=1
C       ERROR CONTROL OPTION
460     TYPE=2
        GO TO 590
C       SKIP
470     VALUE=26
        GO TO 490
C       SENSE LINE
480     VALUE=15
C       COMMAND CODE
490     TYPE=3
        GO TO 580
C       SET POT
500     VALUE=7
        GO TO 520
510     IF (COL.LT.36.AND.CHAR(COL+1).EQ.OO) GO TO 530
C       STATIC TEST
        VALUE=3
C       ANALOG MODE
520     TYPE=4
        GO TO 580
530     COL=COL+3
        IF (CHAR(COL-1).NE.PP) GO TO 110
C       STOP
        VALUE=2
C       LOGIC MODE
540     TYPE=6
        GO TO 590
C       TRUNK
550     VALUE=3
        GO TO 570
560   COL=COL+2
        IF (CT.NE.EE) GO TO 110
        IF (CHAR(COL-1).NE.SS) GO TO 110
C       YES
        VALUE=-6
C       COMMAND CODE
570     TYPE=3
        GO TO 590
C       COL=LAST COLUMN PROCESSED
580     COL=COL+1
C       COL=LAST COLUMN PROCESSED+1
590     IF (COL.GT.37) GO TO 110
        CH=CHAR(COL)
        IF (CH.GE.AA) GO TO 110
C       CHECK FOR COMMA
600     IF (CH.EQ.COMMA) COL=COL+1
        RETURN
        END
