!S %RT-WORK,RTS                                                                 !     10      !O RTWORK,RTS                                                                   !     15      !L TERMINAL,E                                                                   !     20      !R CED                                                                          !     25      !                                                                               !     30      !                                                                               !    165      4020  FORMAT (LF);(LF);(LF);(LF);TYPE2$,@(64);(LF);_                            !  15030                  (LF);_                           ! TLF, COMMENTED OUT 12/06/2013    !  15032      _***        TYPE2$,@(09);ORNBR$,@(71);(CR);_       ! UNKNOWN PRINTER CHANGES    !  15040                               ORNBR$,@(71);(CR);_       ! REMOVED ONE (LF)           !  15042                  DUP2$,@(40);(CR);_                                                  !  15050                  ZDATE$,@(71);(LF)    !*** ;(LF)                                     !  15060      !                                                                               !  15070            LENGTH   9  &  LOCAL ORNBR$                                               !   9000            LENGTH  40  &  LOCAL TYPE2$,DUP2$                                         !   9010            LENGTH  10  &  LOCAL ZDATE$                                               !   9020      !                                                                               !   9030            SET LP = 1, Z1 = 10                                                       !  20000            CLOSE (LP) & OPEN (LP) 'LC3'                                              !  20010            TYPE2$ = 'PROFORMA NOTIFICATION'                                          !  20020            ORNBR$ = '123456-78'                                                      !  20030            DUP2$ = 'PREVIOUSLY PRINTED 04/01/2014'                                   !  20040            ZDATE$ = '04/22/2014'                                                     !  20050            PRINT (LP,4020)                                                           !  20060      !!!!  INPUT (0) ''                                                              !  20070            RUN 'QMONITOR'                                                            !  20080            END                                                                       !  20090      !                                                                               !  20100            CLOSE (Z1) & OPEN (Z1) 'Z1'                                               !  20012      0000  FORMAT  ''                                                                !   3000      !                                                                               !   3010            DELETE (Z1)KEY='*CFRTOPA'+TERM$,EXCP=4700    !*** LASER JET               !  20015      4700  ENTER 'CFRTOPA'                                                           !  20018      !!!!  ENTER 'CFRTOPA'                                                           !  20052