3449 T,	A13^]6P  ^Z6Z	RECORD ^P7$DISK1, A15,'  *************'^P7.DISK2, A15,' *           * '^P78DISK3, A15,'*           *  '^Y7B	RECORD	,X^[7L,	A17 ^X7VDKTXT1,	A11 ^	8 ,	A3^X8*DKTXT2, A11 ^]84  ^Z8>	RECORD ^R8HIF1,	A13,'       *  XXX'^S8RIF2,	A10,'     *   *' ^I8	IF3,	A30,'  *         *       **********' ^I9&IF4,	A30,'*             *---->* XXXXXX *' ^Y90	RECORD	,X^[9:,	A10 ^Y9DYESNO2,	A3^	9N,	A6^Y9XIFTXT1,	A3^	:",	A4^Y:,IFTXT2,	A9^	:6,	A3^Y:@YESNO1,	A3^[:J,	A13 ^X:TIFTXT3,	A13 ^	:^,	A8^Y;(YNLBL, A6 ^];2  ^ZOC		;INITIALIZE FIELDS FOR NEW LINE^R'1;...		PROC		;FIND LABEL^Q';;...		PROC		;FIND COMMAND^K'E;...		IF NO:ERROR	;IS COMMAND IN LIST?^X'OTHIS1,	BGN=^Y'Y	DELIMS=D2^R(#	CALL GETFLD		;GET LABEL^Y(-	LABEL=TXT^Y(7	DELIMS=D1^Q(A	CALL GETFLD		;GET COMMAND^X(K	COMAND=TXT^[(U	CTR=^V)COMLP, INCR CTR^K))	IF(COMAND.EQ.COMLST(CTR))GO TO FOUND^O)3	IF(CTR.LT.MAXCOM)GO TO COMLP^X)=	GO TO ERROR^])G ^G)Q;...	FOUND,	PROC		;GET PARAMETERS FOR COMMAND^O)[;...		IF NO:NOHOF	;PAGE FULL?^M*%;...		CALL HOF	;OUTPUT PAGE MARKER^L*/;...	NOHOF,	PROC		;BUMP LINE COUNTER^H*9;...		PROC		;BRANCH BASED ON COMMAND NUMBER^:*C;...		CGOTO PROCES,DISK,IF,CALL,STRT,STOP,GOTO,CGOTO,IO,TITLE,SBTTL,PAGE^R*MFOUND,	PARAM=COMLST(CTR)^N*W	IF(LNECTR.LT.MAXLNE)GO TO NOHOF^Y+!	CALL HOF^P++NOHOF,	LNECTR=LNECTR+LNBUMP^?+5	GO TO(PROCES,DISK,IF,CALL,STRT,STOP,GOTO,CGOTO,IO,TITLE),CTR^Q+?	GO TO(SBTTL,PAGE),CTR-10^]+I  ^M+S;...	ERROR,	I/O		;DISPLAY 'ERROR'^M+];...		I/O		;DISPLAY OFFENDING LINE^V,';...		GOTO NEXT^S,1ERROR, XMIT(8,"ERROR')^Z,;	LINENO=^W,E	XMIT(8,INREC)^X,O	GO TO NEXT^],Y  ^L-#;...	MORE,	DISK		;OPEN NEXT SYS FILE^N--;...		IF NO:END1	;IS THERE ONE?^V-7;...		GOTO NEXT^P-A;...	END1,	I/O		;CLOSE FILES^V-K;...		GOTO PASS2^W-UMORE,	FINI(1)^W.	ON ERROR END1^M.)	INIT(1,SYS)		;OPEN NEXT SYS FILE^X.3	GO TO NEXT^W