+1,1
* 03/23/77 -- 11:30
+38,38                              *** 03/03/77 ***
         DATA     X'032377'         DATE
+331                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BEZ      TXTLN10           YES
+338                                *** 03/03/77 ***
         CI,SR3   X'57'             IS STORAGE EXHAUSTED
         BNEZ     TXTLNRTN          NO
TXTLN10  RES      0
         LI,AC1   1
         PUT,AC1  #PRNTFLG          TURN PRINT FLAG ON
         LI,AC1   81                SET UP 'WS SPACE EXHAUSTED' MSG
         BAL,SRTN S29STD            GO WRITE MESSAGE
+END
