+1,1
* 07/05/77 -- 15:30
+19                                 *** 07/05/77 ***
         DEF      C40ULP            UPPER/LOWER CASE PRINTER
+30                                 *** 07/05/77 *** *** 03/24/81 ***
         SYSTEM   ITEMDEF
         INVCMDSTA
*
+36,36
         DATA     X'070577'         DATE
+120                                *** 07/05/77 ***
         MTW,0    ULPFLAG           UPPER/LOWER PRINTER FLAG ON
         BNEZ     S40BUF1           YES
+262                                *** 07/05/77 ***
         MTW,0    ULPFLAG           UPPER/LOWER CASE ON?
         BNEZ     S40EXIT           YES, INHIBIT OVERSTRIKE BUF
+264,264                            *** 04/26/76 ***
         LI,AC2   ' +'              GET CARRIAGE CONTROL CODE
+396                                *** 07/05/77 ***
         PAGE
*
* C40ULP -- UPPER/LOWER CASE LINE PRINTER
*
*
C40ULP   RES      0
         SAVRTN
         LI,AC1   1                 INITIALIZE TO ON
         JEZ,D1   (#FLAGS,:K(2)),ULP20
         LI,AC1   0                 SET UPPER/LOWER OFF
ULP20    RES      0
         STW,AC1  ULPFLAG           SET UPPER/LOWER FLAG
         RETURN
+802                                *** 07/05/77 ***
ULPFLAG  DATA     0                 UPPER/LOWER PRINTER OFF
+END
