MCS        JOB  TEST MOVE AND SUPPRESS
           ORG  500
START      CS   332
           CS
           MLCWA@TEST OF MCS INSTRUCTION@,250
           W
           CS   299
           H
           MLCWAF1,ACTION
           B    DOIT
           MLCWAF2,ACTION
           B    DOIT
           MLCWAF3,ACTION
           B    DOIT
           MLCWAF4,ACTION
           B    DOIT
           H    *-3
*
* SUBROUTINE TO MCS AND PRINT RESULT
*
DOIT       SBR  DOITR+3
           MLCWA@'@,280
           MLCWAACTION
           MLCWA@'@
           MLCWAGOT
           MLCWA@' @
           MLCWAACTION
           MLCWAINIT
           MCS  ACTION,279
           W
           CS   299
DOITR      B    0
*
ACTION     DCW  #20
F1         DCW  @000,000,000.00@
F2         DCW  @000,000,001.23@
F3         DCW  @000-000,002.45@
F4         DCW  @01.23  $004.56@
GOT        DCW  @GOT: @
INIT       DCW  @INITIAL: @
           END  START