2355 P^S0= PRGLIN(23,24)=DESCRP^S0G DATANE=DATANT(LISTID)^S0Q PRGLIN(29,34)=DATANM^Y0[ PLSIZ=34^X1% CALL PUTPL^W1/PTCM1A, INCR J^P19 IF (J.LE.LISTI) GOTO PTCMP1^]1C ^J1MPTCMP2, IF (SUMARY.NE.SPACE) GOTO PTCMP5^ 1W I=1^R2!PTCMP3, LISTE=LISTER(I)^S2+ DATANE=DATANT(LISTID)^O25 IF (DATALV.EQ.0) CALL PUTMOV^Z2? INCR I^P2I IF (I.LE.LISTI) GOTO PTCMP3^]2S ^X2] CALL CALTOF^U3' PRGSTM=CALLER(8)^Y31 PLSIZ=19^X3; CALL PUTPL^R3EPTCMP5, PRGSTM=CALLER(7)^Y3O PLSIZ=19^X3Y GOTO PUTPLO PARSE1^Y0+ ERRCOD=19^XTBP0, PRGSTM='XXLEVL=1'^Y"D PLSIZ=16^X"N CALL PUTPL^]"X ^ #" I=1^H#,PUTBP1, IF (LEVELS(I).EQ.SPACE) GOTO PUTBP2^N#6 IF (LEVELN(I).NE.1) GOTO PTBP1A^M#@ IF (SUMARY.NE.SPACE) GOTO PUTBP6^X#J GOTO PTBP1B^J#TPTBP1A, IF (LEVELN(I).NE.2) GOTO PTBP1C^M#^ IF (SUMARY.EQ.SPACE) GOTO PTBP1C^T$(PTBP1B, CALL BLANKL^N$2PTBP1C, IF (I.EQ.10) GOTO PUTBP3^U$< PRGSTM=CALLER(1)^Y$F PLSIZ=19^X$P CALL PUTPL^H$ZPTBP1D, PRGSTM='IF (XXLEVX.EQ. ) GOTO XXRES'^R%$ PRGLIN(36,36)=LEVELS(I)^R%. PRGLIN(23,23)=LEVELN(I)^Y%8 PLSIZ=36^X%B CALL PUTPL^S%L PRGSTM='INCR XXLEVL'^Y%V PLSIZ=19^X& CALL PUTPL^W&*PUTBP2, INCR I^Q&4 IF (I.LE.10) GOTO PUTBP1^]&> ^R&HPUTBP3, PRGSTM=CALLER(2)^Y&R PLSIZ=19^X& CALL PUTPL^X'& CALL PUTBL^P'0PUTBP4, PRGSTM='FORMS (2,0)'^Y': PLSIZ=19^X'D CALL PUTPL^U'N PRGSTM='FINI (2)'^Y'X PLSIZ=16^X(" CALL PUTPL^Q(, PRGLIN='XXNOD, FINI (1)'^X(6 CALL PUTPL^W(@ PRGSTM='STOP'^Y(J PLSIZ=12^X(T GOTO PUTPL^](^ ^X)(PUTBP6, J=1^X)2 CALL CALTOF^R) IF (TOPLEV.LE.1) GOTO PTBP6C^U+H PRGSTM=CALLER(9)^Y+R PLSIZ=18^X+ CALL PUTPL^R,&PTBP6C, PRGSTM=CALLER(8)^Y,0 PLSIZ=19^X,: CALL PUTPL^Q,D IF (I.EQ.10) GOTO PUTBP4^X,N GOTO PTBP1D^],X;^P-"; GENERATE BREAK-RESET CODE^]-,;^U-6PUTRSC, CALL PUTBL^[-@ I=10^H-JPUTRC1, IF (LEVELS(I).EQ.SPACE) GOTO PUTRC4^U-T PRGLIN='XXRES ,'^S-^ PRGLIN(6,6)=LEVELS(I)^ .( J=1^Q.2 IF (I.NE.10) GOTO PUTRC2^V.< PRGLIN(6,6)='T'^X.F GOTO PTRC3A^R.PPUTRC2, DATANE=DATANT(J)^O.Z IF (DATALV.NE.I) GOTO PUTRC3^U/$ PRGSTM='XXL000='^R/. PRGLIN(11,11)=LEVELS(I)^Y/8 DESCRP=J^X/B CALL BLDESC^S/L PRGLIN(12,14)=DESCRP^S/V PRGLIN(16,21)=DATANM^Y0 PLSIZ=21^X0* CALL PUTPL^W04PUTRC3, INCR J^P0> IF (J.LE.NAMEI) GOTO PUTRC2^]0H ^L0RPTRC3A, IF (ACNUM.EQ.0) GOTO PUTRC4^U0 PRGSTM='XXLEVL='^R1& PRGLIN(16,17)=LEVELN(I)^Y10 PLSIZ=17^X1: CALL PUTPL^U1D PRGSTM=CALLER(3)^Y1N PLSIZ=19^X1X CALL PUTPL^W2"PUTRC4, I=I-1^R2, IF (I.GT.0) GOTO PUTRC1^]26 ^L2@PUTRC6, IF (TOPLEV.LE.1) GOTO PTRC6A^U2J PRGSTM=CALLER(4)^Y2T PLSIZ=19^X2^ CALL PUTPL^I3(PTRC6A, IF (TOPFLG.EQ.TOPLEV) GOTO PUTRC8^O32 IF (TOPFLG.EQ.1) GOTO PUTRC7^K3< PRGSTM='IF (XXLEVX.LT. ) GOTO XXRESA'^S3F PRGLIN(23,23)=TOPFLG^Y3P PLSIZ=36^X3Z CALL PUTPL^R4$PUTRC7, PRGSTM='XXLINE='^Y4. PLSIZ=15^X48 CALL PUTPL^R4B IF (TOPFLG.EQ.1) RETURN^U4L PRGSTM=CALLER(5)^Y4V PLSIZ=19^X5 CALL PUTPL^U5* PRGLIN='XXRESA,'^L54PUTRC8, IF (TOPLEV.LE.1) GOTO BLANKL^M5> IF (SUMARY.EQ.SPACE) 3440 BLANKL^K5H PRGSTM='IF (XXLEVX.EQ.1) GOTO XXCOMP'^Y5R PLSIZ=36^X5 CALL PUTPL^X6& GOTO BLANKL^]60;^Q6:; GENERATE TOTAL MESSAGES^]6D;^O6NPUTMES, IF (BIGHS.LE.0) RETURN^X6X CALL PUTBL^U7" PRGLIN=GENREC(8)^Y7, PLSIZ=29^X76 CALL PUTPL^ 7@ K=1^O7J IF (TOPLEV.EQ.1) GOTO PTMS2A^X7TPTMES1, I=1^R7^PTMES2, LISTE=LISTER(I)^S8( DATANE=DATANT(LISTID)^O82 IF (DATALV.NE.K) GOTO PTMES5^U8PTMES5, INCR I^P:H IF (I.LE.LISTI) GOTO PTMES2^W:RPTMES6, INCR K^Q: IF (K.LT.10) GOTO PTMES1^X;& GOTO PTMS2A^I;0PTMES7, PRGLIN(PLSIZ-13,PLSIZ-8)='REPORT'^X;: CALL PUTPL^U;D PRGSTM='RECORD,X'^Y;N PLSIZ=16^X;X CALL PUTPL^S<" PRGLIN='XXTITL, A'^T<, PRGLIN(9,10)=TOPLEV^Z<6 J=BIGHS^X<@ CALL BLDESA^S PRGLIN(74,74)=SQUOTE^Y>) PLSIZ=74^X>3 CALL PUTPL^U>= HEAD1S=HEAD1S-60^Z>G I=I+60^X>Q GOTO PTHD5A^L>[PUTHD6, IF (HEAD1S.GT.9) GOTO PUTHD7^Q?% PRGLIN(10,10)=HEAD1S(3,3)^U?/