Directory of image this file is from
This file as a plain text file
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