100 PQEOL,	JMS	PQSTORE		/PUT A ZERO IN 
 110 	ISZ	PQPTR		/BUMP TO NEXT PAIR
 120 	DCA I	PQPTR		/CLOSE FILE IN CASE LAST
 130 	TAD	(PQLEFT+1)	/RESET
 140 	DCA	PQPUT		/CO-ROUTINE
 150 	TAD	PQNUM		/GET LINE NUMBER ENTRY
 160 	DCA I	PQWORK		/STORE IN NUMBER WORD
 170 	TAD	PQNUM		/GET LINE NUMBER
 180 	TAD	PQINC		/UPDATE
 190 	DCA	PQNUM		/PUT BACK
 200 	JMS	PQLINE		/GO FINISH LINE
 210 	TAD I	(FILBUF+3776)	/CHECK FOR FULL
 220 	TAD	PQPROT		/PROTECTION VALUE
 230 	CIA			/SUBTRACT
 240 	TAD I	(FILBUF+3777)	/FROM SECOND POINTER
 250 PQCLOSE,SMA CLA			/OK?
 260 	JMP	PQSRET		/YES
 270 	JMS I	[SYSIO]		/\
 280 PQBUFF,	3000			/ \WRITE OUT
 290 PQFUN,	20^100+WRITE		/ /1 FILE
 300 PQFILE,	40			//
 310 	JMS	PQINIT		/\
 320 	40			/ \INITIALIZE FOR
 330 PQPROT,	310			/ /NEXT TIME
 340 	12			//
 350 	JMP I	PQWRITE		/RETURN TO CALLER
 360 
 370 PQSTORE,.-.			/STORE ROUTINE
 380 	JMP I	PQPUT		/GO WHEREVER
 390 
 400 PQPUT,	PQLEFT+1		/EXIT ROUTINE
 410 	DCA I	PQPTR		/STORE PAIR
 420 	JMP I	PQSTORE		/RETURN TO MAIN
 430 
 440 PQLEFT,	ISZ	PQPTR		/BUMP TO NEXT PAIR
 450 	STL RTL			/SHIFT LEFT
 460 	STL RTL			/WITH SOME
 470 	STL RTL			/NICE BITS
 480 	JMS	PQPUT		/STORE IT
 490 	DCA	PQINIT		/SAVE PASSED CHARACTER
 500 	TAD I	PQPTR		/GET PREVIOUS CHARACTER
 510 	AND	PQCLOSE		/JUST BITS 0-5
 520 	TAD	PQINIT		/ADD ON LATEST CHARACTER
 530 	JMS	PQPUT		/STORE BACK
 540 	JMP	PQLEFT		/KEEP GOING
 550 
 560 PQINC,	12			/10 DEC. A GOOD VALUE
 570 PQNUM,	144			/100 DEC ALSO GOOD
 580 PQPTR,	3000			/FILE BUFFER POINTER
 590 PQWORK,	.-.			/REAR FILE POINTER
 600 	XLIST	OFF		>
 610 	XLIST	ON
 620 	EJECT
 630 	PAGE
 640 
 650 	$			/HERE COME THE L I T E R A L S ! ! !  ???