02 AUTOCODER RUN THRU OUTPUT TP-CD 02010 JOB PUNCH OUT ASALT TAPE %20X80) TP-CD 02020 CTL 311 0PPP11 00201 TP-CD 02030 DIOCS TP-CD 02040IODEVICES TAPE TP-CD 02050TAPEUSE INPUT TP-CD 02060WLRCHECK YES TP-CD 02070READERROR SCAN TP-CD LABELDEF STANDARD,B 02080 DTF TAPE TP-CD 02090FILETYPE TAPE,INPUT TP-CD 02100IOAREAS INTAPE TP-CD 02110INDEXREG X1 TP-CD 02120RECFORM FIXED,BLOCKED TP-CD 02130BLOCKSIZE 1600 TP-CD 02140SIZEREC 80 TP-CD 02150CHANDRIVE 1 TP-CD 02160EOFADDR TAPEND TP-CD 02170REWIND UNLOAD TP-CD TYPELABEL STANDARD,B 02190CHECKLABEL IDENT TP-CD 02200HEADER ASALT SYS ,67300,999 TP-CD 02210TOTALS RECORD TP-CD 02220WLRADDR WLR TP-CD 02230 SKIPN TP-CD 02240INTAPE DA 20X80,X1,G,C TP-CD 02250IMAGE 1,80 TP-CD 03010********** TP-CD 03020START OPEN TAPE TP-CD SBR IOCRX1,1600-80 03030READ GET TAPE TP-CD 03040 C IMAGE,NINES TP-CD 03050 BE TAPEND TP-CD 03060 MLCWAIMAGE,180 TP-CD 03070 P TP-CD 03080 A *-6,COUNT TP-CD 03090 SSB READ,4 TP-CD 03100TAPEND CS 332 TP-CD 03101 CS TP-CD 03102 CS TP-CD 03110 P TP-CD 03120 CC A TP-CD 03130 CLOSETAPE TP-CD 03140 MLC CON1,280 TP-CD 03150 MCS TP-CD 03160 W TP-CD 03170 CC 1 TP-CD 03180 NOP 999 TP-CD 03190 H TP-CD 03200 B START TP-CD 03210COUNT DCW 00000 TP-CD 03220CON1 DCW @ RECORDS PUNCHED FROM TAPE.@ TP-CD 03230 DCW 9999999999999999999999999999999999999999999999999999 TP-CD 03240NINES DC 9999999999999999999999999999 TP-CD 03250WLR BSP 1 TP-CD 04010 NOP 123 TP-CD 04020 H TP-CD 04030 H IOCRMV TP-CD 04040 B READ TP-CD 04050 END START TP-CD