AUTOCODER RUN THRU OUTPUT JOB COUNT CARDS IN MULTI-PHASE PROGRAM DECK 01005 CTL 311 0PPP11 00201 01010START CS 332 01020 CS 01030 BLC LASTCD 01040 R 01050STORID A *-6,COUNT 01060 MLC 80,SAVEID 01070NEXTRD BLC LASTCD 01080 R 01090 C 80,SAVEID 01100 BU NEWID 01110 A *-6,COUNT 01120 B NEXTRD 01130NEWID MLC SAVEID,246 01140 MLC @CARDS FOR@,240 01150 MCS COUNT,230 01153 CC S 01155 A COUNT,FCOUNT 01160 ZA *-6,COUNT 01170 W STORID 01180LASTCD MLC SAVEID,246 01190 MLC @CARDS FOR@,240 01200 MCS COUNT,230 01205 A COUNT,FCOUNT 01210 CC A 01220 W 01230 CS 250 01240 MCS FCOUNT,230 01250 MLC @CARDS READ@,241 02010 CC A 02020 W 02030 NOP 999 02040 H 02050 B *-8 02060COUNT DCW 00000 02070FCOUNT DCW 00000 02080SAVEID DCW #5 02090 END START