JOB  EDIT  PROGRAM
               ORG  350
     *
               DCW  @THIS IS THE PRINT EDIT PROGRAM 5/28/2009@
     MASK      DCW  @      $0.  @           *EDIT MASK
     FIELD     DCW  @00001234@           *FIELD TO BE EDITED
     G         DCW  @ @
     PRBUFF    EQU  201
     R1        DCW  000
     R2        DCW  000
     *
     START     H
               SBR  R1
               SBR  R2
               BCE  LOOP,G,
     LOOP      CS   PRBUFF&131         *CLEAR 200 TO 332 (& == +)
               CS
               LCA  MASK,PRBUFF&12      *LOAD CONTROL WORD TO PRINT AREA
               MCE  FIELD,PRBUFF&12     *EDIT
               B    LOOP
               NOP    
               END  START