+1,1
* 03/23/77 -- 10:00
+12
         DEF      S04XFIL1          EXIT FILE OUTPUT MODE
+57,57
         DATA     X'032377'         DATE
+191,191                            *** 10/20/76 ***
         BE       EDITCK            YES, MAKE SPECIAL EDIT CHK
+199                                *** 10/20/76 ***
EDITCK   RES      0
         MTW,0    XFLG              EDIT COMPATIBLE DOCUMENT
         BEZ      SCANLN            NO
         CI,AC1   2                 IS LINE SIZE = 2
         BNE      SCANLN            NO
         LI,AC3   #BLANK            GET A BLANK CHAR
         CB,AC3   0,BUF2            IS LINE = #BLANK,#CR
         BNE      SCANLN            NO
         LI,AC3   #CR               MAKE LINE = #CR ONLY
         STB,AC3  0,BUF2
         AI,AC1   -1                REDUCE  SIZE TO 1
+217                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BE       CPYEOF            YES
+586                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BNE      STLRM             NO, STILL ROOM AVAILABLE
         LI,AC1   82                SET UP 'DOC STORAGE EXHAUSTED' MSG
         BAL,SRTN S29STD            GO WRITE MESSAGE
         B        CLSSTFLE          RETURN
STLRM    RES      0
+609,609                            *** 09/02/76 ***
         BEZ      ZROID             NO
+614                                *** 09/02/76 ***
ZROID    RES      0
+624                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BE       WRCPYLN2          YES
+673                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BE       WRCPYLN2          YES
+680                                *** 03/03/77 ***
WRCPYLN2 RES      0
         LI,AC1   82                SET UP 'DOC STORAGE EXHAUSTED' MSG
         BAL,SRTN S29STD            GO WRITE MESSAGE
         LW,AC1   NLINES            GET NUMBER OF LINES STORED
         BAL,SRTN S35CNVRT          CONVERT TO EBCDIC
         STW,AC2  NSTRMSG+6         STORE IN MESSAGE
         LI,BUF1  BA(NSTRMSG)+1     GET BA OF STORE MESSAGE
         LI,AC1   28                SET UP SIZE OF MESSAGE
         BAL,SRTN S27PRINT          GO PRINT MESSAGE
+END
