100 7.5	SET	T1=FITR(T1+TD);	IF	(T1-(ST+RT))	7.4
 110 C	DO EXTRA TIME LINE SCALE ONLY.
 120 7.6	SET	X=2047;	DO	13;	DO	10
 130 C
 140 C
 150 C	BASIC POINT PLOT OUTPUT.
 160 8.1	SET	D=FDIS(X*XS+XO,Y*YS+YO)
 170 C
 180 C
 190 C	CALCULATE X VALUE FOR TIME LINE SCALE.
 200 9.1	SET	X=(((T1-ST)/RT)*4096)-2048;	DO	13
 210 C	OUTPUT SCALE LINE.
 220 9.2	DO	10
 230 C	SET	Y COORDINATE FOR BLURB (BOTTOM OF SCREEN).
 240 9.3	SET	Y=TY-147;	DO	14
 250 C	OUTPUT "T=" BLURB.
 260 9.4	SET	D=FDIS(X,Y,0,"^T=",2,1)
 270 C	MOVE X COORDINATE AND OUTPUT DIGITS.
 280 9.5	SET	D=FDIS(X+110,Y,2,T1,3,2,1)
 290 C
 300 C
 310 C	OUTPUT SCALE LINES.
 320 10.1	SET	SY=XY;	DO	11
 330 10.2	SET	SY=YY;	DO	11
 340 10.3	SET	SY=VY;	DO	11
 350 10.4	SET	SY=TY;	DO	11
 360 C
 370 C
 380 C	OUTPUT TIME SCALE MARKS.
 390 11.1	SET	Y=SY-30;	DO	14
 400 11.2	SET	D=FDIS(X,Y,3)
 410 11.3	SET	Y=SY+30;	DO	14
 420 11.4	SET	D=FDIS(X,Y,4)
 430 C
 440 C
 450 C	X SCALING ROUTINE.
 460 13.1	SET	X=X*XS+XO
 470 C
 480 C
 490 C	Y SCALING ROUTINE.
 500 14.1	SET	Y=Y*YS+YO
 510 C
 520 C
 530 C	MAJOR AXIS OUTPUT ROUTINE.
 540 15.1	SET	X=-2048;DO	13;	DO	14;SET	D=FDIS(X,Y,3)
 550 15.2	SET	X=2047;	DO	13;	SET	D=FDIS(X,Y,4)
 560 C
 570 C
 580 C	MOVEMENT DATA INPUT ROUTINE.
 590 C
 600 C	GET POTENTIAL ZAP VALUE ALONE FIRST.
 610 30.1	A	BX
 620 C	CHECK FOR SENTINEL BEFORE GETTING THE REST.
 630 30.2	IF	(BX-0ZAP)	30.3,30.7,30.3
 640 C	SAFE TO GET THE REST.
 650 30.3	A	BY,EX,EY,MT,PT,BL
 660 C	GET THE SECOND LINE VALUES ALSO.
 670 30.4	A	LX,LY,LV,TX,TY,TV
 680 C	UPDATE CURRENT TIME AND MOVEMENT COUNTER.
 690 30.5	SET	TI=TI+((PT+MT)/1000);	SET	MC=MC+1
 700 C	TAKE NORMAL RETURN.
 710 30.6	RETURN
 720 C	COMES HERE IF SENTINEL FOUND; SET <EOF> INDICATOR.
 730 30.7	SET	EF=-1
 740 GO