MCS    JOB   TEST MOVE AND SUPPRESS
       ORG   500
START  CS    332
       CS
       MLCWA @TEST OF MCS INSTRUCTION@,250
       W
       CS    299
       H
       MLCWA F1,ACTION
       B     DOIT
       MLCWA F2,ACTION
       B     DOIT
       MLCWA F3,ACTION
       B     DOIT
       MLCWA F4,ACTION
       B     DOIT
       H     *-3
*
* SUBROUTINE TO MCS AND PRINT RESULT
*
DOIT   SBR   DOITR+3
       MLCWA @'@,280
       MLCWA ACTION
       MLCWA @'@
       MLCWA GOT
       MLCWA @' @
       MLCWA ACTION
       MLCWA INIT
       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
