3311 ^RI+	XMIT(TTY,"EXTRA CHARS')^XI0	GOTO START^FI5GETDATA,IF (COM(SCAN) .EQ. QUOTE) GOTO GETALPHA^LI:	IF (COM(SCAN) .EQ. ' ') GOTO DATER2^YI?	LEFT=SCAN^JIDNLOOP,	IF (COM(SCAN) .EQ. ';') GOTO GOTN^XII	SCAN=SCAN+1^XIN	GOTO NLOOP^UISGOTN,	RIGHT=SCAN-1^TIX	LENG=KEYHI-KEYLOW+1^NI]	IF (LENG .GT. 100) GOTO DATERR^VJ"	ON ERROR BADDIG^OJ'	NDATA(1,LENG)=COM(LEFT,RIGHT)^ZJ,	RETURN^KJ1BADDIG,	XMIT(TTY,"BAD DIGIT IN DATA')^ZJ6	RETURN^PJ;DATER2,	XMIT(TTY,"NO DATA')^ZJ@	RETURN^TJEGETALPHA,SCAN=SCAN+1^YJJ	LEFT=SCTO LOOP ^T'F	INIT(1,I,'$KREF',2)^R'PLOOP,	XMIT(1,INPUT,EOF) ^M'Z	IF(SRTLBL.EQ.OLDLBL)GO TO SAMELB ^X($	CALL PRINT ^W(.	OLDLBL=SRTLBL^W(8	LABEL=SRTLBL ^M(BSAMELB,	IF(CTR.LT.14)GO TO SAMELN ^X(L	CALL PRINT ^S(VSAMELN,	ON ERROR LOOP ^W) 	SRTPGA=SRTPGE^X)*	DFRF=DEFREF^Y)4	INCR CTR ^X)>	REF(CTR)=RF^X)H	GO TO LOOP ^])R  ^I)	;...	EOF,	IF YES:DONE	;LAST LINE PRINTED? ^M*&;...		CALL PRINT	;PRINT LAST LINE ^O*0;...	DONE,	DISK		;CLOSE $KREF ^R*:;...		STOP		;END OF PGM ^P*DEOF,	IF(CTR.EQ.0)GO TO DONE ^X*N	CALL PRINT ^W*XDONE,	FINI(1) ^[+"	STOP ^T+,	START		;SUBROUTINES^R+6;...		SBTTL	;SUBROUTINES^]+@  ^R+J;...		START		;PRINT LINE^J+T;...	PRINT,	IF NO:SAMEPG	;IS PAGE FULL? ^O+^;...		I/O		;OUTPUT A FORM FEED^O,(;...		PROC		;RESET LINE COUNT ^M,2;...	SAMEPG, I/O		;PRINT THE LINE ^L,<;...		PROC