         SYSTEM   SIG7
         SYSTEM   BPM
         REF      M:EO
         CSECT    0
TO$LP    TEXTC    'PUNCH OUTPUT HAS THE FEATURE ANSWERS'
OOPSMESS TEXTC    'GOOFED AGAIN...'
BUF      EQU      $
         DATA     X'40404040'
         TEXT     '****'
         TEXT     'WHAT YOU SEE IS WHAT YOU ALL GET'
         TEXT     '****'
         DO       110
         DATA     0
         FIN
         PAGE
         CSECT    1
ST       M:OPEN   M:EO,(DEVICE,'PO'),(OUT),(BUF,BUF)
         M:DEVICE M:EO,(VFC)
         BAL,11   WRTPO
         M:DEVICE M:EO,(NOVFC)
         BAL,11   WRTPO
         M:PRINT  (MESS,TO$LP)
         M:EXIT
WRTPO    M:WRITE  M:EO,(SIZE,80),(ERR,OOPS),(ABN,OOPS)
         M:DEVICE M:EO,(BIN)
         M:WRITE  M:EO,(SIZE,120),(ERR,OOPS),(ABN,OOPS)
         M:DEVICE M:EO,(BCD)
         M:WRITE  M:EO,(SIZE,80),(ERR,OOPS),(ABN,OOPS)
         B        *11
OOPS     M:PRINT  (MESS,OOPSMESS)
         M:ERR
         END      ST
