         SYSTEM   BPM
         SYSTEM   SIG7
         SYSTEM   FORTLIB
         DEF      EJECT
         DEF      HEADER
         DEF      TITLE
         REF      F:108
         REF      9SET0
         REF      9SET2
         PAGE
         CSECT    0
HOME     RES      1
         RES      1
COUNT    RES      1
         DATA     60
         RES      1
HEADING  RES      2
HEADBUF  EQU      $
         DO1      15
         TEXT     ' '
         TEXT     '  Page'
CLEAR    GEN,8,24 60,BA(HEADBUF)+1
BLANK    TEXT     ' '
         PAGE
         CSECT    1
EJECT    EQU      $
         BAL,6    9SET0
         STW,15   HOME
         M:DEVICE F:108,(PAGE)
         B        *HOME
         PAGE
HEADER   EQU      $
         BAL,6    9SET0
         STW,15   HOME
         M:DEVICE F:108,(LINES,39)
         M:DEVICE F:108,(COUNT,106)
         LI,14    65
         STB,14   HEADBUF
         M:DEVICE F:108,(HEADER,40,HEADBUF)
         B        *HOME
         PAGE
TITLE    EQU      $
         BAL,6    9SET2
         INTG     COUNT
         CHAR     HEADING
         STW,15   HOME
         LW,1     CLEAR
         MBS,0    BA(BLANK)
         LW,8     HEADING
         LI,9     BA(HEADBUF)+1
         LW,14    *COUNT
         STB,14   9
         MBS,8    0
         LI,14    65
         STB,14   HEADBUF
         M:DEVICE F:108,(HEADER,40,HEADBUF)
         M:DEVICE F:108,(PAGE)
         B        *HOME
         END
