9 ;***********************************************
19 ; SOURCE PRINT9
29 ;***********************************************
39 ;
49 ;GENERATE BREAK-PRINTING ROUTINES
59 ;
69 PUTBRP,	CALL PUTBL
79 	PRGLIN='XXEOF,  XXLEVX=10'
89 	PLSIZ=17
99 	CALL PUTPL
109 	CALL PUTBL
119 	PRGLIN='XXBRKP,'
129 	IF (ACNUM.NE.0) GOTO PUTBP0
139 	CALL CALTOF
149 	CALL BLANKL
159 	IF (TOPLEV.LE.1) GOTO PUTBP4
169 	PRGSTM='IF (XXLEVX.NE.10) GOTO XXRES'
179 	PRGLIN(37,37)=HIBRK
189 	PLSIZ=37
199 	CALL PUTPL
209 	GOTO PUTBP4
219 PUTBP0,	PRGSTM='XXLEVL=1'
229 	PLSIZ=16
239 	CALL PUTPL
249   
259 	I=1
269 PUTBP1,	IF (LEVELS(I).EQ.SPACE) GOTO PUTBP2
279 	IF (LEVELN(I).NE.1) GOTO PTBP1A
289 	IF (SUMARY.NE.SPACE) GOTO PUTBP6
299 	GOTO PTBP1B
309 PTBP1A,	IF (LEVELN(I).NE.2) GOTO PTBP1C
319 	IF (SUMARY.EQ.SPACE) GOTO PTBP1C
329 PTBP1B,	CALL BLANKL
339 PTBP1C,	IF (I.EQ.10) GOTO PUTBP3
349 	PRGSTM=CALLER(1)
359 	PLSIZ=19
369 	CALL PUTPL
379 PTBP1D,	PRGSTM='IF (XXLEVX.EQ. ) GOTO XXRES'
389 	PRGLIN(36,36)=LEVELS(I)
399 	PRGLIN(23,23)=LEVELN(I)
409 	PLSIZ=36
419 	CALL PUTPL
429 	PRGSTM='INCR XXLEVL'
439 	PLSIZ=19
449 	CALL PUTPL
459 PUTBP2,	INCR I
469 	IF (I.LE.10) GOTO PUTBP1
479  
489 PUTBP3,	PRGSTM=CALLER(2)
499 	PLSIZ=19
509 	CALL PUTPL
519 	CALL PUTBL
529 PUTBP4,	PRGSTM='FORMS (2,0)'
539 	PLSIZ=19
549 	CALL PUTPL
559 	PRGSTM='FINI (2)'
569 	PLSIZ=16
579 	CALL PUTPL
589 	PRGLIN='XXNOD,  FINI (1)'
599 	CALL PUTPL
609 	PRGSTM='STOP'
619 	PLSIZ=12
629 	GOTO PUTPL
639   
649 PUTBP6,	J=1
659 	CALL CALTOF
669 PTBP6A,	LISTE=LISTER(J)
679 	IF (LISTAC.LE.0) GOTO PTBP6B
689 	PRGSTM='XXPF00=XXAC00(1),XXMF00'
699 	DESCRP(1,2)=J(2,3)
709 	CALL BLDESC
719 	PRGLIN(13,14)=DESCRP
729 	PRGLIN(30,31)=DESCRP
739 	CALL BLDESB
749 	PRGLIN(20,21)=DESCRP
759 	PLSIZ=31
769 	CALL PUTPL
779 PTBP6B,	INCR J
789 	IF (J.LE.LISTI) GOTO PTBP6A
799 	IF (TOPLEV.LE.1) GOTO PTBP6C
809 	PRGSTM=CALLER(9)
819 	PLSIZ=18
829 	CALL PUTPL
839 PTBP6C,	PRGSTM=CALLER(8)
849 	PLSIZ=19
859 	CALL PUTPL
869 	IF (I.EQ.10) GOTO PUTBP4
879 	GOTO PTBP1D
889 ;
899 ; GENERATE BREAK-RESET CODE
909 ;
919 PUTRSC,	CALL PUTBL
929 	I=10
939 PUTRC1,	IF (LEVELS(I).EQ.SPACE) GOTO PUTRC4
949 	PRGLIN='XXRES ,'
959 	PRGLIN(6,6)=LEVELS(I)
969 	J=1
979 	IF (I.NE.10) GOTO PUTRC2
989 	PRGLIN(6,6)='T'
999 	GOTO PTRC3A
1009 PUTRC2,	DATANE=DATANT(J)
1019 	IF (DATALV.NE.I) GOTO PUTRC3
1029 	PRGSTM='XXL000='
1039 	PRGLIN(11,11)=LEVELS(I)
1049 	DESCRP=J
1059 	CALL BLDESC
1069 	PRGLIN(12,14)=DESCRP
1079 	PRGLIN(16,21)=DATANM
1089 	PLSIZ=21
1099 	CALL PUTPL
1109 PUTRC3,	INCR J
1119 	IF (J.LE.NAMEI) GOTO PUTRC2
1129   
1139 PTRC3A,	IF (ACNUM.EQ.0) GOTO PUTRC4
1149 	PRGSTM='XXLEVL='
1159 	PRGLIN(16,17)=LEVELN(I)
1169 	PLSIZ=17
1179 	CALL PUTPL
1189 	PRGSTM=CALLER(3)
1199 	PLSIZ=19
1209 	CALL PUTPL
1219 PUTRC4,	I=I-1
1229 	IF (I.GT.0) GOTO PUTRC1
1239  
1249 PUTRC6,	IF (TOPLEV.LE.1) GOTO PTRC6A
1259 	PRGSTM=CALLER(4)
1269 	PLSIZ=19
1279 	CALL PUTPL
1289 PTRC6A,	IF (TOPFLG.EQ.TOPLEV) GOTO PUTRC8
1299 	IF (TOPFLG.EQ.1) GOTO PUTRC7
1309 	PRGSTM='IF (XXLEVX.LT. ) GOTO XXRESA'
1319 	PRGLIN(23,23)=TOPFLG
1329 	PLSIZ=36
1339 	CALL PUTPL
1349 PUTRC7,	PRGSTM='XXLINE='
1359 	PLSIZ=15
1369 	CALL PUTPL
1379 	IF (TOPFLG.EQ.1) RETURN
1389 	PRGSTM=CALLER(5)
1399 	PLSIZ=19
1409 	CALL PUTPL
1419 	PRGLIN='XXRESA,'
1429 PUTRC8,	IF (TOPLEV.LE.1) GOTO BLANKL
1439 	IF (SUMARY.EQ.SPACE) GOTO BLANKL
1449 	PRGSTM='IF (XXLEVX.EQ.1) GOTO XXCOMP'
1459 	PLSIZ=36
1469 	CALL PUTPL
1479 	GOTO BLANKL
1489 ;
1499 ; GENERATE TOTAL MESSAGES
1509 ;
1519 PUTMES,	IF (BIGHS.LE.0) RETURN
1529 	CALL PUTBL
1539 	PRGLIN=GENREC(8)
1549 	PLSIZ=29
1559 	CALL PUTPL
1569 	K=1
1579 	IF (TOPLEV.EQ.1) GOTO PTMS2A
1589 PTMES1,	I=1
1599 PTMES2,	LISTE=LISTER(I)
1609 	DATANE=DATANT(LISTID)
1619 	IF (DATALV.NE.K) GOTO PTMES5
1629 PTMS2A,	PRGLIN=','
1639 	J=BIGHS
1649 	CALL BLDESE
1659 	PRGLIN(PLSIZ-6,PLSIZ-2)='TOTAL'
1669 	IF (K.EQ.10) GOTO PTMES7
1679 	J=PLSIZ-LISTHS-7
1689 	PRGLIN(J,PLSIZ-8)=LISTIT
1699 PTMES3,	IF (PRGLIN(J,J).NE.'*') GOTO PTMES4
1709 	PRGLIN(J,J)=
1719 PTMES4,	INCR J
1729 	IF (J.LT.PLSIZ-7) GOTO PTMES3
1739 	CALL PUTPL
1749 	GOTO PTMES6
1759 PTMES5,	INCR I
1769 	IF (I.LE.LISTI) GOTO PTMES2
1779 PTMES6,	INCR K
1789 	IF (K.LT.10) GOTO PTMES1
1799 	GOTO PTMS2A
1809 PTMES7,	PRGLIN(PLSIZ-13,PLSIZ-8)='REPORT'
1819 	CALL PUTPL
1829 	PRGSTM='RECORD,X'
1839 	PLSIZ=16
1849 	CALL PUTPL
1859 	PRGLIN='XXTITL,   A'
1869 	PRGLIN(9,10)=TOPLEV
1879 	J=BIGHS
1889 	CALL BLDESA
1899 	PRGLIN(12,14)=DESCRP
1909 	PLSIZ=14
1919 	GOTO PUTPL