100 TIMCHK,	.-.			/TIME CHECKING ROUTINE
 110 	ISZ	BLNKCT		/STILL ANY TIME LEFT?
 120 	JMP I	TIMCHK		/YES, RETURN
 130 	JMP I	[BLNKXT]	/NO, STOP CHECKING
 140 
 150 BSCAN,	.-.			/BLINK SCANNING ROUTINE
 160 	DCA	ADDFLAG		/SAVE ADD STATUS
 170 	DOSOMESTUFF		/GO FIND VALUES
 180 	TMPTR2			/FROM THIS
 190 	JMP I	BSCAN		/RETURN
 200 
 210 CHECK,	.-.			/BLINK CHECK SUBROUTINE
 220 	DST;	TMPTR1		/PUT IN TEMPORARY
 230 	LOAD;	TMPTR1		/GET THIS VALUE
 240 	EXTEND			/FULL VALUE
 250 	DCA	BSCAN		/SAVE IT
 260 	LOAD;	BPTR		/GET BEGINNING VALUE
 270 	EXTEND			/FULL VALUE
 280 	CIA			/INVERT FOR TEST
 290 	TAD	BSCAN		/COMPARE TO CURRENT
 300 	SPA CLA			/SKIP IF BLINKABLE
 310 	JMP I	[BLNKXT]	/RETURN TO CALLER, NOT A BLINK
 320 	JMP I	CHECK		/RETURN FOR MORE TESTS
 330 
 340 	PAGE
 350 
 360 	MEDBUF=	.		/MEDIAN BUFFER GOES HERE
 370 	EJECT
 380 	$			/HERE COME THE LITERALS !!!