1677 9)=DATAM^ZJV	J=DATAS^XK 	CALL BLDESA^SK*	PRGLIN(10,12)=DESCRP^YK4	PLSIZ=12^XK>	CALL PUTPL^WKHPUTSV2,	INCR I^PKR	IF (I.LE.NAMEI) GOTO PUTSV1^ZK		RETURNURNETURNTSV1^ZL#	RETURN,	INCR I^PKY	IF (I.LE.NAMEI) GOTO PUTSV1^ZL#	RETURNETURNI) GOTO PUTSV1^ZM=	RETURN^ZM=	RETURN GOTO PUTSV1^ZM=	RETURNV1^ZM=	RETURNTSV1^ZM=	RETURN^ZM=	RETURN GOTO PUTSV1^ZM=	RETURNOTO PUTSV1^ZM=	RETURNTSV1^ZM=	RETURN GOTO PUTSV1^ZM=	RETURNL7)^YT+	PLSIZ=19^XT5	GOTO PUTPL	PLSIZ=19^J';***************************************^V1; SOURCE  PRINT8^J;;***************************************^]E;^SO;GENERATE INITIAL CODE^]Y;^Q #PROCI,	PRGLIN='PROC 1  ;'^X -	CALL PROCI9^X 7	CALL PUTBL^M A	PRGSTM='XXHDAT=XXDATE, XX/XX/XX'^S K	PRGSTM(15,15)=SQUOTE^S U	PRGSTM(24,24)=SQUOTE^Y!	PLSIZ=32^X!)	CALL PUTPL^M!3	IF (FILNAM.NE.SPACE6) GOTO PROCI2^K!=	PRGSTM='DISPLAY (0,0, FILE NAME:  )'^S!G	PRGSTM(14,14)=SQUOTE^S!Q	PRGSTM(26,26)=SQUOTE^Y![	PLSIZ=35^X"%	CALL PUTPL^N"/	PRGSTM='ACCEPT (X^F(;***********************************************^V2; SOURCE PRINT9^F<;***********************************************^]F;^MP;GENERATE BREAK-PRINTING ROUTINES^]Z;^U $PUTBRP,	CALL PUTBL^P .	PRGLIN='XXEOF,  XXLEVX=10'^Y 8	PLSIZ=17^X B	CALL PUTPL^X L	CALL PUTBL^U V	PRGLIN='XXBRKP,'^P! 	IF (ACNUM.NE.0) GOTO PUTBP0^X!*	CALL CALTOF^X!4	CALL BLANKL^O!>	IF (TOPLEV.LE.1) GOTO PUTBP4^K!H	PRGSTM='IF (XXLEVX.NE.10) GOTO XXRES'^T!R	PRGLIN(37,37)=HIBRK^Y!		PLSIZ=37^X"&	CALL PUTPL^X"0	GOTO PUTBP4^Q":PUEOF)'^Y%U	PLSIZ=29^X&	GOTO PUTPL^]&)  ^P&3PROCI9,	PRGLIN(10,15)=PROGID^U&=	PRGLIN(17,17)='-'^S&G	PRGLIN(19,42)=AUTHOR^Y&Q	PLSIZ=42^X&[	GOTO PUTPL^]'%;^P'/; GENERATE BREAK COMPARISONS^]'9;^L'CPUTBRC,	IF (TOPLEV.LE.1) GOTO PTBRC6^X'M	CALL PUTBL^P'W	IF (ACNUM.EQ.0) GOTO PTBRC0^U(!	PRGSTM='XXLEVX='^R(+	PRGLIN(16,16)=TOPLEV-1^Y(5	PLSIZ=16^X(?	CALL PUTPL^](I  ^X(SPTBRC0,	I=9^H(]PTBRC1,	IF (LEVELS(I).EQ.SPACE) GOTO PTBRC5^L)'	IF (LEVELS(I).EQ.HIBRK) GOTO PTBRC2^P)1	IF (ACNUM.EQ.0) GOTO PTBRC2^N);	PRGLIN(9,23)='XXLEVX=XXLEVX-1'^Y)E	PLSIZ=23^X)O	CALL PUTPL^X)YPTBRC2,	J=1^R*#PTBRC3,	DATANE=DATANT(J)^O*-	IF