JOB  80/80 CARD LISTER
     *
               ORG  333     LOCATE AFTER THE PRINT AREA
     START     CS   332     CLEAR STORAGE 332 - 300
               CS           CLEAR STORAGE 299 - 200
               SW   1,201   SET WORD MARKS AT 1 AND 201
     *
     READ      R            READ A CARD INTO READ AREA
               MCW  80,280  MOVE TO PRINT AREA
               W            PRINT IT
               BLC  DONE    GO TO DONE IF LAST CARD READ
               B    READ    ELSE GO READ ANOTHER CARD
     *
     DONE      H    DONE    ALL DONE
               END  START