/017 PRINT THE AC AS A FOCAL LINE NUMBER
/THE VALUE OF THE AC IS PRINTED AS IN FOCL:11.35
/XX.YY STORED AS FOLLOWS: XXXXXYYYYYYY IN 1 WORD.
/IF YYYYYYY>99 STRANGE DIIITS OCCUR AS IN FOCAL.
/REQUIRES ROUTINES PRNT2 AND PRINT.
/
/	TAD VALUE
/	JMS PRNTF
/	RETURN		/AC=0

PRNTFM,	37		/MASKS
	177
	256		/PERIOD.
	0		/STORAGE
PRNTF,	0
	DCA PRNTF-1
	TAD PRNTF-1	/ISOLATE AND PRINT HIGH ORDER
	CLL RTL
	RTL
	RTL
	AND PRNTFM	/AND (37
	JMS PRNT2
	TAD PRNTF-2
	JMS PRINT
	TAD PRNTF-1	/NOW LOW ORRER
	AND PRNTFM+1
	JMS PRNT2
	JMP I PRNTF