100 	XLIST	OFF
 110 	IFNZRO	NERVE	<
 120 	XLIST	ON
 130 /	NL0000			/INDICATE PAUSE CALCULATION
 140 	FNDSPK;	OLDEND;	CURBEG	/LOCATE SPIKES BETWEEN MOVEMENTS
 150 	DCA	PAUSCT		/SAVE THE COUNT
 160 	MOVE;	FRSPIKE;PASFRST	/SAVE FIRST SPIKE TIME
 170 	MOVE;	LSPIKE;	PASLST	/SAVE LAST SPIKE TIME
 180 	FRCTIME;PASFRST		/EVALUATE FIRST FRACTIONAL TIME
 190 	FRCTIME;PASLST		/EVALUATE LAST FRACTIONAL TIME
 200 	NL0002			/INDICATE MOVEMENT CALCULATION
 210 	FNDSPK;	CURBEG;	CUREND	/LOCATE SPIKES DURING LATEST MOVEMENT
 220 	DCA	MOVCT		/SAVE THE COUNT
 230 	MOVE;	FRSPIKE;MOVFRST	/SAVE FIRST SPIKE TIME
 240 	MOVE;	LSPIKE;	MOVLST	/SAVE LAST SPIKE TIME
 250 	FRCTIME;MOVFRST		/EVALUATE FIRST FRACTIONAL TIME
 260 	FRCTIME;MOVLST		/EVALUATE LAST FRACTIONAL TIME
 270 	EJECT
 280 	STA			/TELL HIM EXACT TIME
 290 	PRTIME;	PASLST;PASFRST	/TIME BETWEEN FIRST AND LAST PAUSE SPIKES
 300 	JMS I	[TABPRT]	/<TAB> ON OVER
 310 	TAD	PAUSCT		/GET SPIKE COUNT OF PAUSE
 320 	JMS I	[PRTVAL]	/PRINT IT
 330 	JMS I	[TABPRT]	/PRINT A <TAB>
 340 	STA			/TELL HIM EXACT TIME
 350 	PRTIME;	MOVLST;MOVFRST	/BETWEEN FIRST AND LAST MOVEMENT-RELATED SPIKES
 360 	JMS I	[TABPRT]	/<TAB> ON OVER
 370 	TAD	MOVCT		/GET SPIKE COUNT OF MOVEMENT
 380 	JMS I	[PRTVAL]	/PRINT IT
 390 	JMS I	[TABPRT]	/<TAB> ON OVER
 400 	STA			/TELL EXACT TIME
 410 	PRTIME;	CURBEG;MOVFRST	/BETWEEN SPIKES AND MOVEMENT
 420 	JMS I	[P6CH]		/DO A <CR>, <LF>
 430 	XLIST	OFF
 440 	IFNZRO	MODEM	<
 450 	XLIST	ON
 460 	TAD	VALID		/GET VALIDITY INDICATOR
 470 	JMS I	[SPRINT]	/PRINT IT
 480 	TAD	XPOS1		/GET FIRST "X" POSITION
 490 	JMS I	[SPRINT]	/PRINT IT
 500 	TAD	YPOS1		/GET FIRST "Y" POSITION
 510 	JMS I	[SPRINT]	/PRINT IT
 520 	TAD	XPOS2		/GET SECOND "X" POSITION
 530 	JMS I	[SPRINT]	/PRINT IT
 540 	TAD	YPOS2		/GET SECOND "Y" POSITION
 550 	JMS I	[SPRINT]	/PRINT IT
 560 	TAD	POS3SW		/GET THIRD POSITION INDICATOR
 570 	JMS I	[SPRINT]	/PRINT IT
 580 	TAD	INTENS		/GET INTENSITY
 590 	AND	LIGHT		/TO BE SURE
 600 	CLL RAL			/*2
 610 	TAD	LIGHT		/ADD ON LIGHT VALUE
 620 	JMS I	[SPRINT]	/PRINT IT
 630 	TAD	BAR		/GET BAR VALUE
 640 	CLL RAR			/INTO LINK
 650 	CML RTL			/INVERT AND MULTIPLY BY TWO
 660 	TAD	SUCCESS		/ADD ON SUCCESS INDICATOR
 670 	JMS I	[SPRINT]	/PRINT IT
 680 	PRTIME;	CURBEG;	XBEGT	/PRINT TIME TO FIRST "X"
 690 	JMS I	[P6CH]		/DO A <CR>, <LF>
 700 	XLIST	OFF	>
 710 	XLIST	ON
 720 	XLIST	OFF	>
 730 	XLIST	ON
 740 	JMP I	(NEXT)		/GO GET ANOTHER ONE
 750 	XLIST	OFF		>
 760 	EJECT
 770 	XLIST	OFF
 780 	IFNZRO	FREQ		<
 790 	XLIST	ON
 800 NEXT,	NL7777			/RESET
 810 	DCA	FFRST		/FIRST FIRING SWITCH
 820 SPKLUP,	MOVE;	CURPTR;OLFPTR	/SAVE OLD FIRING POINTERS
 830 	JMS I	[FIND1]		/LOCATE A FIRING
 840 	ISZ	FFRST		/HERE BEFORE?
 850 	SKP			/SKIP IF SO
 860 	JMP	SPKLUP		/JUMP IF NOT
 870 	FRCTIME;OLFPTR		/GET THE OLD FRACTION
 880 	DLD;	OLFPTR		/GET PREVIOUS SPIKE TIME
 890 	XLIST	OFF
 900 	IFNZRO	CHAN		<
 910 	IFZERO	EAESET	<
 920 	XLIST	ON
 930 	SHL;	3-1		/*8
 940 	XLIST	OFF	>
 950 	IFNZRO	EAESET	<
 960 	XLIST	ON
 970 	SHL;	3		/*8
 980 	XLIST	OFF	>	>
 990 	IFZERO	CHAN		<
1000 	IFZERO	EAESET	<
1010 	XLIST	ON
1020 	SHL;	2-1		/*4
1030 	XLIST	OFF	>
1040 	IFNZRO	EAESET	<
1050 	XLIST	ON
1060 	SHL;	2		/*4
1070 	XLIST	OFF	>	>
1080 	XLIST	ON
1090 	DAD;	OLFRAC		/ADD ON FRACTION
1100 	DCM			/INVERT
1110 	DST;	DBLTMP		/SAVE IT
1120 	FRCTIME;CURPTR		/SETUP CURRENT FRACTIONAL TIME
1130 	DLD;	CURPTR		/GET CURRENT SPIKE TIME
1140 	XLIST	OFF
1150 	IFNZRO	CHAN		<
1160 	IFZERO	EAESET	<
1170 	XLIST	ON
1180 	SHL;	3-1		/*8
1190 	XLIST	OFF	>
1200 	IFNZRO	EAESET	<
1210 	XLIST	ON
1220 	SHL;	3		/*8
1230 	XLIST	OFF	>	>
1240 	IFZERO	CHAN		<
1250 	IFZERO	EAESET	<
1260 	XLIST	ON
1270 	SHL;	2-1		/*4
1280 	XLIST	OFF	>
1290 	IFNZRO	EAESET	<
1300 	XLIST	ON
1310 	SHL;	2		/*4
1320 	XLIST	OFF	>	>
1330 	XLIST	ON