01010AUTOCODER RUN THRU OUTPUT TP-PR 01020 JOB PRINT ASALT TAPE %20X80) TP-PR 01030 CTL 311 0PPP11 00201 TP-PR 01040 DIOCS TP-PR 01050IODEVICES TAPE TP-PR 01060TAPEUSE INPUT TP-PR 01070WLRCHECK YES TP-PR 01080READERROR SCAN TP-PR 01090LABELDEF STANDARD,B TP-PR 01100 DTF TAPE TP-PR 01110FILETYPE TAPE,INPUT TP-PR 01120IOAREAS INTAPE TP-PR 01130INDEXREG X1 TP-PR 01140RECFORM FIXED,BLOCKED TP-PR 01150BLOCKSIZE 1600 TP-PR 01160SIZEREC 80 TP-PR 01170CHANDRIVE 1 TP-PR 01180EOFADDR TAPEND TP-PR 01190REWIND UNLOAD TP-PR TYPELABEL STANDARD,B 01210CHECKLABEL IDENT TP-PR 01220HEADER ASALT SYS ,67300,999 TP-PR 01230TOTALS RECORD TP-PR 01240WLRADDR WLR TP-PR 01250 SKIPN TP-PR 02010INTAPE DA 20X80,X1,G,C TP-PR 02020IMAGE 1,80 TP-PR 02030********** TP-PR 02040START OPEN TAPE TP-PR SBR IOCRX1,1600-80 02043 CS 332 TP-PR 02046 CS TP-PR 02050READ GET TAPE TP-PR 02060 C IMAGE,NINES TP-PR 02070 BE TAPEND TP-PR 02080 MLCWAIMAGE,300 TP-PR 02090 A *-6,COUNT TP-PR 02095 MCS COUNT,205 TP-PR 02100 W TP-PR 02110 BCV *&5 TP-PR 02120 B READ TP-PR 02130 CCB READ,A TP-PR 02140TAPEND CC 1 TP-PR 02150 CLOSETAPE TP-PR 02160 MLC CON1,280 TP-PR 02170 MCS TP-PR 02180 W TP-PR 02190 CC 1 TP-PR 02200 NOP 999 TP-PR 02210 H TP-PR 02220 B *-8 TP-PR 03010COUNT DCW 00000 TP-PR 03020CON1 DCW @ RECORDS LISTED FROM TAPE.@ TP-PR 03030 DCW 9999999999999999999999999999999999999999999999999999 TP-PR 03040NINES DC 9999999999999999999999999999 TP-PR 03050WLR BSP 1 TP-PR 03060 NOP 123 TP-PR 03070 H TP-PR 03080 H IOCRMV TP-PR 03090 B READ TP-PR 03100 END START TP-PR