SUBROUTINE VDISP
C			ADTAPE: VDISP.FT
	COMMON NDEV,NDEV2,XNAM,NAME,NBLK,NMAX,NLEN
	COMMON NEW,NSAM,NDIS,NADC,NADCS
	COMMON NSPB,NCAL,JC,IC,JB,IB
	COMMON NBI,NII,NBF,NIF,IFIL
	COMMON IBUF,JBUF,KBUF
	DIMENSION NADCS(8),IFIL(97)
	DIMENSION IBUF(256),JBUF(256),KBUF(256)
C
SOPDEF	JMPI	5400
C
1	CONTINUE
	NIIC=2*NII+505
	NIFC=2*NIF+507
	NLEN=NBI
	ISET=0
	IR0=0
9	JB=0
C
10	CONTINUE
C	CALL JBUFR
SJMS JBUFR
14	IF(ISET)16,16,15
15	IF(IW1-IWS)16,151,16
151	KBUF(IX)=IY
	JBUF(IX)=IY/2
16	CONTINUE
	CALL DISP3(NSPB,JBUF)
	CALL DFILE
	IX=NALOG(3)
C	IX=LAND(IX/2,255)
STAD \IX
SRAR
SAND (377
SDCA \IX
	IW1=IREM(IX/NADC)+1
	IX=IX+1
	IY=NALOG(7)
	CALL DISP6(IX*2-3)
	CALL DISP5(IY/2)
	CALL DISP9(0,176,'CHAN:')
	CALL DISP9(10,176,ENCODE(IW1))
	CALL DISP9(40,208,'T')
	CALL DISP9(10,192,ENCODE(IX))
	CALL DISP9(110,208,'V')
	CALL DISP9(70,192,ENCODE(KBUF(IX)))
	CALL DISP9(140,208,'LINE')
	CALL DISP9(130,192,ENCODE(IY))
	IF(NLEN-NBI)22,21,22
21	CONTINUE
	CALL DISP9(NIIC,10,'I')
22	CONTINUE
	IF(NLEN-NBF)24,23,24
23	CONTINUE
	CALL DISP9(NIFC,10,'F')
24	CONTINUE
C
SCPAGE 2
S6031		/KSF:
SJMP \14
	CALL GCHAR(M,K)
C	     CR AL RO SP 09 ELSE
	GOTO(30,50,35,14,40,60)K
30	NLEN=NLEN+1
	GOTO 46
C
35	NLEN=NLEN-1
	GOTO 43
C
C	     REW -10 2:9
40	IF(M-1)44,42,45
42	NLEN=NLEN-10
43	IF(NLEN)44,44,10
44	NLEN=1
	GOTO 10
45	NLEN=NLEN+M
46	IF(NLEN-NMAX)10,47,47
47	NLEN=NMAX-1
	GOTO 10
C
50	CONTINUE
	IF(IR0)54,54,52
52	CONTINUE
	CALL RFILE(-1,NBLK,NLEN)
54	CONTINUE
	ISET=0
	CALL MODE
C
C	 F:  71, I:  72, P:  80, X:  73, S:  74,
C	 ): 715, (: 725, >:  75, <:  751,
C	 ^:  76, _:  77
60	IF(M-22)61,71,61
61	IF(M-25)62,72,62
62	IF(M-32)623,80,623
623	IF(M-40)63,73,63
63	IF(M-35)64,74,64
64	IF(M+7)641,715,641
641	IF(M+8)642,725,642
642	IF(M-14)643,75,643
643	IF(M-12)65,751,65
65	IF(M-46)66,76,66
66	IF(M-47)14,77,14
71	NBF=NLEN
	NIF=IX
	NIFC=2*NIF+507
	IR0=1
	GOTO 14
715	NLEN=NBF
	GOTO 10
72	NBI=NLEN
	NII=IX
	NIIC=2*NII+505
	IR0=1
	GOTO 14
725	NLEN=NBI
	GOTO 10
73	IY=-1535
74	M=IX
	GOTO 755
75	M=IX
	IX=256
	GOTO 754
751	M=IW1
754	IY=-1536
755	DO 756 M=M,IX,NADC
756	KBUF(M)=IY
757	IF(NLEN-NMAX)758,9,9
758	CALL RFILE(-2,NBLK+NLEN,KBUF)
	GOTO 9
76	ISET=1
	IWS=IW1
	GOTO 14
77	ISET=0
	GOTO 757
C
C===============================
C	SUBROUTINE ADPLT
C
80	CONTINUE
	CALL DISP9(-200,100,'PLOT')
	CALL DFILE
SCPAGE 2
S6031	/KSF
SJMP \80
	CALL GCHAR(M,K)
C	GOTO(80,50,89,80,82,80)K
C82	IF(M)83,83,84
C83	M=10
C84	CONTINUE
C	CALL XYTIM(5,5,500)
C	CALL XYSET(0,JBUF(IW1))
C	CALL RELAY(3,1)
C	CALL RELAY(4,1)
C	CALL GCHAR(N,K)
C	GOTO(85,50,89,85,82,85)K
C85	CALL RELAY(5,1)
C	IXC=-120*M
C	K=NLEN+M-1
C	DO 884 N=NLEN,K
C	IF(N-NMAX)86,89,89
C86	NLEN=N
CC	CALL JBUFR
CSJMS JBUFR
C	DO 882 IW=IW1,NSPB,NADC
C	IXC=IXC+NADC
C	IYC=JBUF(IW)
C	IF(IW+1000)89,89,87
C87	CONTINUE
C	CALL XYSET(IXC/M+120,IYC)
C882	CONTINUE
C884	CONTINUE
C89	CALL RELAY(5,0)
C	CALL XYDIS(5)
C	CALL RELAY(4,0)
C	CALL RELAY(3,0)
	GOTO 14
C	RETURN
C
C===========================
C
C	INTERNAL SUBROUTINE JBUFR
90	CONTINUE
SCPAGE 3
SJMPI JBUFR
SJBUFR,0
	CONTINUE
	IF(NLEN-JB)92,94,92
92	CONTINUE
	IF(ISET)924,924,922
922	CONTINUE
	CALL RFILE(-2,NBLK+JB,KBUF)
924	CONTINUE
	CALL RFILE(2,NBLK+NLEN,KBUF)
	DO 93 JB=1,NSPB
	K=KBUF(JB)
C	K=K/2
STAD \K
SCPAGE 3
S7415		/ASR N+1	RAR WITH SIGN EXTENSION
S0000
SDCA \K
93	JBUF(JB)=K
94	CONTINUE
	JB=NLEN
	GOTO 90
	END
$