NBPR
$(2)
ED$PKT*   +000526,LINE$
          +0
          +010100,0
          DO 7 , +0
LINE$*    RES      22
          +0
          +0
SVB10     +0
SVB11     +0
GPKT      +0,000100
.
$(1)
PRINT8*   L        A0,(000126,LINE$)
          TZ       RPFOR$+1
          J        PALTN
          ER       PRINT$
          J        $+4
PALTN     S        A0,RPFOR$
          L,M      A0,RPFOR$
          ER       PRNTA$
          L,M      A0,BLANKS
          L        A1,(1,LINE$)
          L,M      R1,22
          BT       A1,0,*A0
          J        0,B11
BLANKS    '      '
.
PGJECT*   L        A0,(0777700,LINE$)        EJECT PAGE
          TNZ       CRLIST              . UNLESS LISTING NO PAGE EJECT
          J         0,B11
          TZ       RPFOR$+1
          J        $+3
          ER       PRINT$
          J        0,B11
          S        A0,RPFOR$
          L,M      A0,RPFOR$
          ER       PRNTA$
          J        0,B11
EMWRT1*   S        B11,SVB11
          E$DIT    ED$PKT             . I12 CONVERSION
          L        B11,SVB11
          L        A0,*0,B11
          L,M      A1,12
          LMJ      B11,EDECF$
          L        B11,SVB11
          DL       A0,LINE$
          DS       A0,*1,B11
          L         A0,LINE$+17       .
          TE        A0,BLANKS         .
          J         P1                .
          E$COL     102               .
          E$COPY    24,STR+1          .
P1        E$DITX                      .
          L        B11,SVB11
          J        3,B11
EMWRT3*   S        B10,SVB10          BADLY WRITTEN DIAGNOSTIC
          S        B11,B10
          E$DIT    ED$PKT
          E$CHAR   ' '
          L        A0,*0,B10           SEQ
          L,M      A1,5
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,1,B10           SEVER(1,SKODE)
          L,M      A1,12
          LMJ      B11,ECOPY$
          L,M      A0,BDIGN
          L,M      A1,12
          LMJ      B11,ECOPY$
          L        A0,*2,B10           PRMTYP
          L,M      A1,1
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*3,B10           SCOD1
          L,M      A1,1
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*4,B10           PHASE
          L,M      A1,1
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*5,B10           MESNO
          L,M      A1,3
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*6,B10           VSER2
          L,M      A1,12
          LMJ      B11,EOCTF$
          LMJ      B11,PRINT8
          E$DITX
          L        B11,B10
          L        B10,SVB10
          J        8,B11
BDIGN     ' BAD DIAGN  '
.
EMWRT7*   S        B10,SVB10
          S        B11,B10
          E$DIT    ED$PKT
          L        A0,*0,B10
          S        A0,LINE$
          E$COL    7
          L        A0,1,B10
          L,M      A1,12
          LMJ      B11,ECOPY$
          E$SKIP   2
          L        A0,2,B10
          L        A1,*3,B10
          LMJ      B11,ECOPY$
          L         A0,LINE$+17       .
          TE        A0,BLANKS         .
          J         P3                .
          E$COL     102               .
          E$COPY    24,STR+1          .
P3        LMJ       B11,PRINT8        .
          E$DITX
          L        B11,B10
          L        B10,SVB10
          J        5,B11
.
WRDSP*    S        B10,SVB10
          S        B11,B10
          E$DIT    ED$PKT
          E$CHAR   ' '
          L        A0,*0,B10           SEQ
          L,M      A1,5
          LMJ      B11,EOCTF$
          E$COL    36
          L        A0,*4,B10          STC
          L,M      A1,2
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*1,B10           RSAX
          L,M      A1,6
          LMJ      B11,EOCTF$
          E$SKIP   3
          L        A0,*2,B10           IBLAP1
          L,M      A1,6
          LMJ      B11,EOCTF$
          E$CHAR   ' '
          L        A0,*3,B10           DATA(I)
          L,M      A1,6
          LMJ      B11,EOCTF$
          TZ       SHORT              Z OPTION AND DEMAND RUN
          LMJ      B11,TPACK          COMPRESS LINE OF OUTPUT
          LMJ      B11,PRINT8
          E$DITX
          L        B11,B10
          L        B10,SVB10
          J        6,B11
GWRITE*   L        A0,*1,B11
          S,S6     A0,GPKT
          L        A0,0,B11
          LXI      A0,GPKT
          TZ       RPFOR$+1
          J        $+3
          ER       PRINT$
          J        3,B11
          S        A0,RPFOR$
          L,M      A0,RPFOR$
          ER       PRNTA$
          J        3,B11
INTSRC*   S        B10,SVB10
          S        B11,B10
          E$DIT    ED$PKT
          L        A0,*0,B10          LINE NUMBER
          L,M      A1,6
          LMJ      B11,EDECF$
          L        A0,LINE$
          S        A0,*1,B10          I6 CONVERSION
          E$DITX
          L        A0,BLANKS
          S        A0,LINE$
          L        B11,B10
          L        B10,SVB10
          J        3,B11
          END