01010AUTOCODER RUN THRU OUTPUT CD-TP 01020 JOB CARD TO TAPE %20X80) CD-TP 01030 CTL 311 0PPP11 00201 CD-TP 01040 DIOCS CD-TP 01050IODEVICES TAPE CD-TP 01060TAPEUSE OUTPUT CD-TP LABELDEF STANDARD,B 01070 DTF TAPE CD-TP 01080FILETYPE TAPE,OUTPUT CD-TP 01090IOAREAS OUTAPE CD-TP 01100INDEXREG X1 CD-TP 01110RECFORM FIXED,BLOCKED CD-TP 01120BLOCKSIZE 1600 CD-TP 01130SIZEREC 80 CD-TP 01140CHANDRIVE 1 CD-TP 01150PADDING 9 CD-TP 01160REWIND UNLOAD CD-TP TYPELABEL STANDARD,B 01180CHECKLABEL ALL CD-TP 01190SERIALNUM 99999 CD-TP 01200HEADER ASALT SYS ,999 CD-TP 01210TOTALS RECORD CD-TP 01220 SKIPN CD-TP 01230OUTAPE DA 20X80,X1,G,C CD-TP 01240IMAGE 1,80 CD-TP 01250********** CD-TP 02010START OPEN TAPE CD-TP 02020LCTEST BLC LASTCD CD-TP 02030 R CD-TP 02040 SS 1 CD-TP 02050 A *-6,COUNT CD-TP 02060 MLC 80,IMAGE CD-TP 02070 PUT ,TAPE CD-TP 02080 B LCTEST CD-TP 02090LASTCD CS 332 CD-TP 02100 CS CD-TP 02110 MLC CON1,280 CD-TP 02120 MCS CD-TP 02130 CLOSETAPE CD-TP 02140 CC A CD-TP 02150 W CD-TP 02160 CC 1 CD-TP 02170 NOP 999 CD-TP 02180 H CD-TP 02190 B START CD-TP 02200COUNT DCW 00000 CD-TP 02210CON1 DCW @ CARDS RECORDED ON TAPE.@ CD-TP 02220 END START CD-TP