100 *BB
 110 I>> ,R !I?
 120 HP<(U<?(,"0Z
 130 
 140 
 150 
 160 JA
 170 
 180 	4
 190 I^
 200 ^RUNCATEB
 210 
 220 
 230 -6
 240 A$#D
 250 '>.]
 260 8!OT[(K)
 270 F
 280 *0"4*""4T"K!
 290 M5?
 300 "<
 310 A3Z)N<A:K<
 320 K>[$
 330 	5/"
 340 ES^
 350 *KP%P%
 360 J
 370 %8KB-6I3
 380 
 390 AGER
 400 C^ANNOT ^P^RT"K!
 410 T AN
 420 ^P?S/8 F
 430  ^G^
 440 
 450 
 460 
 470 ILB
 480 	DCA I	PFFPTR			/STORE TENTATIVE <EOF>
 490 	TAD	PFFNUMBER		/GET LATEST LINE NUMBER
 500 	DCA I	PFFLPTR			/STORE OVER (FORMER) DUMMY LINE VALUE
 510 	JMS	PFFLINE			/UPDATE FILE POINTERS AND CREATE NEW DUMMY PAIR
 520 	JMP I	PFFOEOL			/RETURN
 530 	EJECT
 540 /	FIXED FILE INITIALIZE ROUTINE.
 550 
 560 /	CALL WITH:
 570 
 580 /	JMS I	(PFFINITIALIZE)		/CALL ROUTINE
 590 /	BLOCK+UNIT			/FILE ARGUMENT ([BLOCK&7770] + [UNIT&7])
 600 /	NUMBER				/INITIAL LINE NUMBER
 610 /	INCREMENT			/LINE NUMBER INCREMENT
 620 /	RETURN				/ALWAYS RETURNS HERE
 630 
 640 PFFINIT,.-.				/FIXED FILE INITIALIZE ROUTINE
 650 PF7770,	7770				/CONSTANT 7770; THIS CLEARS THE AC
 660 PF5,	5				/CONSTANT 0005; THIS CAN BE SKIPPED
 670 	TAD I	PFFINIT			/GET FILE ARGUMENT
 680 	AND	PF7770/(7770)		/JUST BLOCK BITS
 690 	DCA	PFFBLK			/STORE IN-LINE
 700 	TAD I	PFFINIT			/GET IT AGAIN
 710 	AND	[7]			/JUST UNIT BITS
 720 	TAD	(20^100+WRITE)		/FORM WRITE FUNCTION
 730 	DCA	PFFFUN			/STORE IN-LINE
 740 	ISZ	PFFINIT			/BUMP TO NEXT ARGUMENT
 750 	TAD I	PFFINIT			/GET INTIAL LINE NUMBER
 760 	DCA	PFFNUMBER		/STASH IT
 770 	ISZ	PFFINIT			/BUMP TO NEXT ARGUMENT
 780 	TAD I	PFFINIT			/GET LINE NUMBER INCREMENT
 790 	DCA	PFFINCREMENT		/STASH IT
 800 	ISZ	PFFINIT			/BUMP PAST ARGUMENT
 810 	TAD	PFFBUFFER/(FILBUFFER)	/SETUP THE
 820 	DCA	PFFPTR			/TEXT POINTER
 830 	TAD	(PFFLEFT)		/INITIALIZE
 840 	DCA	PFFPUT			/CO-ROUTINE
 850 	TAD	[FILBUFFER+3777]	/INITIALIZE
 860 	DCA	PFFLPTR			/LINE POINTER
 870 	JMS	PFFLINE			/CREATE INITIAL FILE POINTERS
 880 	DCA	PFFPREVIOUS		/INITIALIZE PREVIOUS CHARACTER TO <EOL>
 890 	JMP I	PFFINITIALIZE		/RETURN
 900 
 910 PFFLINE,.-.				/LINE POINTERS UPDATE ROUTINE
 920 	NL7775				/BACKUP TO
 930 	TAD	PFFLPTR			/PREVIOUS PAIR
 940 	DCA	PFFLPTR			/STORE BACK
 950 	TAD	PFFLPTR			/GET THE POINTER
 960 	DCA I	[FILBUFFER+3777]	/STORE LATEST PAIR POINTER
 970 	TAD	PFFPTR			/GET LATEST TEXT POINTER
 980 	DCA I	[FILBUFFER+3776]	/STORE IN FREE TEXT POINTER
 990 	TAD	PFFPTR			/GET TEXT POINTER
1000 	DCA I	PFFLPTR			/STORE AS FREE TEXT POINTER IN DUMMY PAIR