C	P?S/8 FOCAL VELOCITY, ETC. PLOTTING PROGRAM.

C	LAST EDIT:	02-JAN-1990	22:00:00	CJL

C	PROGRAM PRODUCES VELOCITY PLOT, ETC.  ON HDS 3200-30 GRAPHICS  DISPLAY
C	TERMINAL OPERATING IN TEKTRONIX 4010 MODE.

C	MUST BE USED WITH GRIND FILES OBTAINED BY SETTING  'CHAN=0' IN CURRENT
C	GRIND PROGRAM.

C	USAGE:	.R FOCAL,8PATCH,HPATCH,PARAM,HVPLT1...,DATAFILES...,ZAP(NG)

C	8PATCH IS THE STANDARD 8K FOCAL PATCH.

C	HPATCH IS THE STANDARD HDS 3200-30 FOCAL PATCH.

C	PARAM IS THE FILE CONTAINING THE STARTING AND DISPLAY TIME, ETC.

C	HVPLT1...  IS THE COLLECTION OF FILES STARTING WITH  THIS  FILE  WHICH
C	ENCOMPASS THE MAIN PROGRAM.

C	DATAFILES IS THE COLLECTION OF FILES OBTAINED FROM THE GRIND PROGRAM.

C	ZAP  IS  A  SENTINEL  FILE  CONTAINING NOTHING BUT THE WORD  "ZAP"  TO
C	TERMINATE THE DATA.

C	ERASE ALL VARIABLES.
1.01	ERASE
C	SETUP X-COORDINATE SCALING FACTORS.
1.02	SET	XS=1.0;	SET	XO=0.0
C	SETUP Y-COORDINATE SCALING FACTORS.
1.03	SET	YS=3184/4096;	SET	YO=-456
C	SETUP TIME BASE LINE Y-COORDINATE.
1.04	SET	TY=-1900
C	OBTAIN STARTING TIME.
1.1	ASK	ST
C	OBTAIN DISPLAY (RUNNING) TIME.
1.2	ASK	RT
C	CALCULATE TIME LINE LABELS AND DRAW TIME LINE.
1.3	DO	7
1.7	DO	4;	QUIT
C
C
4.1	F I=-2048,4,2047;S X=I;S Y=I;D 8
C
C	DRAW MAIN TIME AXIS LINE.
7.1	SET	Y=TY;	FOR	I=-2048,4,2047;	SET	X=I;	DO	8
C	CALCULATE TIME LABEL VALUES.
7.2	SET	TD=FITR(RT/5)
C	ENSURE MINIMUM TIME INTERVAL OF ONE SECOND.
7.3	IF	(1-TD)	7.4;	SET	TD=1
C	SETUP INITIAL TIME LABEL VALUE.
7.4	SET	T1=	ST
C	OUTPUT LATEST TIME LABEL VALUE.
7.5	DO	9
C	INCREMENT AND TEST LOOP VARIABLE.
7.6	SET	T1=FITR(T1+TD);	IF	(T1-(ST+RT))	7.5
C
C
8.1	SET	D=FDIS(X*XS+XO,Y*YS+YO)
C
C	CALCULATE X VALUE FOR TIME LINE SCALE.
9.1	SET	X=(((T1-ST)/RT)*4096)-2048
C	OUTPUT SCALE LINE.
9.2	FOR	J=-30,30;	SET	Y=TY+J;	DO	8
C	OUTPUT "T=" BLURB.
9.3	SET	D=FDIS(X*XS+XO,Y*YS+YO,"^T=",2,1)
C	OUTPUT HIGH DIGIT.
9.4	SET	DI=FITR(T1/10);	SET	X=X+30;	DO	10
C	OUTPUT LOW DIGIT.
9.5	SET	DI=FITR(T1-(DI*10));	SET	X=X+30;	DO	10
C
C	OUTPUT A DIGIT.
10.1	SET	A=X*XS+XO;	SET	B=Y*YS+YO
10.15	IF	(DI-9)	10.2;	SET	D=FDIS(A,B,"9",2,1);R
10.2	IF	(DI-8)	10.25;	SET	D=FDIS(A,B,"8",2,1);R
10.25	IF	(DI-7)	10.3;	SET	D=FDIS(A,B,"7",2,1);R
10.3	IF	(DI-6)	10.35;	SET	D=FDIS(A,B,"6",2,1);R
10.35	IF	(DI-5)	10.4;	SET	D=FDIS(A,B,"5",2,1);R
10.4	IF	(DI-4)	10.45;	SET	D=FDIS(A,B,"4",2,1);R
10.45	IF	(DI-3)	10.5;	SET	D=FDIS(A,B,"3",2,1);R
10.5	IF	(DI-2)	10.55;	SET	D=FDIS(A,B,"2",2,1);R
10.55	IF	(DI-1)	10.6;	SET	D=FDIS(A,B,"1",2,1);R
10.6	SET	D=FDIS(A,B,"0",2,1)
                                                                                                                              