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