....5...10...15...20...25...30...35...40...45...50...55...60...65...70...75...80...85...90...95..100 1: J06264^J01505^000000000000000000000000000000000000000000000000000000000000000000000000000NG00896BG00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 101: 137BS0137900137S00859D0000000875TG00168AD0138400874/D0000000865XG00206BG00422AB0041700859GD000000084 1 1 1 1 1 1 1 1 1 1 201: 8+D0108600865XD0085801114LS01150D00869008173D00869008763D00869008293,0035800514)00884W00319008758)00 1 1 1 1 1 1 1 1 1 1 301: 35800514B0049900869XR008492R004741B0089100849TNR005778R006694R00398^D0113901103LJ00486^D0114901101LJ 1 1 1 1 11 1 1 1 1 1 1 401: 00486^D0000000858XJ00225^G00472BM%T001092WR004432R00467"J00000^D0109101103LJ00436^.00849X008492X0047 1 1 1 1 1 1 1 1 1 1 1 1 501: 41NX005358X006694J00379^X00549-X006634J00570^R00570-R006634J01364^W0055600851^B01357008511D010080110 11 1 1 1 1 1 1 1 1 1 1 1 601: 3LJ00436^B00849008514M%2000947WR006322R00656"J00849^,00884B00898008511B0089801150IV00836008512B00786 1 1 1 1 1 1 1 1 1 1 1 701: 00849UW00786008584D00864007503DDDDD0000001378JS0085701378C0137801388J00849UD00852008153DDD0081500827 1 1 11111 1 1 1 1 111 801: TU)U0BX00812"U)U0EX00824"A0083601150N^^^^^^^^^^^^^^^^^^N^'X00000"X00883"NJ00570^J00000^D0112701103LJ 1 1 1 1 1 1 1 1 1 1 11 1 1 1 901: 00436^S01150B00941008511.00669.00849^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TRANSFER^ERROR 1 1 1 1 1 1 1001: ^ON^PREVIOUS^LINE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"NOT^READY^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1101: ^^^^"DATA^CHECK^^WRONG^LENGTHNO^TRANSF^AU%U2RR00101"J01175^LIBRAD0098001370TM%B201337RG01378BR001017 11 1 1 11 1 1 1 1 1 1 1 1201: R01218"C0134101393J01151SC0134101174J01175/D0134601278TJ01280^J00000^G01335BD0135101307/L%B200000$G0 1 1 1 1 1 1 1 1 1 1 1 1 1301: 1378BR001017R01330"J00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^C^^^^^A00319001499999150602^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1111 11 1 1 1 1401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"NO^TYPE^OF^RUN^CTL^CD"^^R01512 11 1 11 1501: "D0650304189TD0000001503(B0156701503UB0158601503BJ01775^D0570703044TJ01598^D0570903044TD01503013733V 1 1 1 1 1 1 1 1 1 1 1601: 01629015031J01775^U%U0RR00101"M%U004331RG08121BR001013R01672"C0435905718J01775SM%T001741WR016903R017 1 1 1 1 1 1 1 1 1 1 1 1 1701: 14"D0174000008XD.01763J01629^NTP^10^INCORRECT^INPUT"U%U0RR00101"D0419300008XJ03028^C0141905723J01894 1 11 1 11 11 1 1 1 1 1 1801: SC0141905728J05956SM%T001860WR01830RR01854".01859NO^RUN^CD^-^CORRECT^AND^RERUN^JOB"C0141405738J04412 1 1 1 1 1 1 1 11 1 1901: SC0141405748J04431SC0141405758J04567SC0141405768J05067SC0141405778J05275SC0141405788J05483SC01414057 1 1 1 1 1 1 1 1 1 1 1 2001: 98J05514SC0140805802J04493SM%T002063WR020383R02062".ILLEGAL^CONFIGURATION^CARD^-^JOB^MUST^BE^REPROCE 1 1 1 1 1 1 11 2101: SSED"B0220204248BV0218906500K,03595J04873^?0005900099A0580300099J03574^J02648^)03595J02146^B02635065 11 1 1 1 1 1 1 1 1 1 1 2201: 061C0304406507J02635SD06506030433C0304406507J02635SD01503030433D0650702349TD0650702361TD06508023513D 1 1 1 1 1 1 1 1 1 1 2301: 06508023753D06508023823D05804023603U%U0RR00101"M%U004331RG08121BR001013R02389"C0433505809J02414SJ025 1 1 1 1 1 1 1 1 1 1 1 2401: 07^C0436305718J02635SC0436305818J02635SM%T002480WR024503R02474".02635INPUT^TAPE^HEADER^IN^ERROR"M%T0 1 1 1 1 1 1 1 1 1 11 2501: 02537WR025073R02531".02586NO^HDR^ON^INPUT^TAPE^-^START^TO^SUPPRESS^FEATURE"D0650702613TD06508026153U 1 1 1 1 11 1 1 2601: %U0RR00101")06509J02128^,06509J02128^D0650301154TD06504011563D0650301190TD06504012043D06504012113D06 1 1 1 1 1 1 1 1 1 1 1 2701: 50301302TD06504013163D06504013233D0652203540TD0652203082TD06523035423D06523030893D0650303113TD065040 1 1 1 1 1 1 1 1 2801: 31273D06504031343J06551^C0140905823J03505SC0140905828J06395SC0140905833J03177SC0140905838J03505SC014 1 1 1 1 1 1 1 1 1 1 1 2901: 0705841J03410SC0140905846J03429SC0140905851J03486SC0140905856J02998/D0142401174LJ01175^M%T001481WJ02 1 1 1 1 1 1 1 1 1 1 1 3001: 998RR03022".01505G03070B/01479M%1101400RG05861BR00101"J00000^G03101BL%B507921WR00101"J00000^G03158BL 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: %B207921$G03151BR00101+R03141"D0586300000XJ00000^018END^OF^LIBRARYD05864013723B06395014202B033700142 1 1 1 1 1 1 1 1 1 3201: 05B03381014204B03392014203M%T003267WJ03237RR03261".01505NO^MACH^SIZE^ON^RUN^CD"D0652204206TD06523042 1 1 1 1 1 1 1 11 1 3301: 073D05804042053?0586900099J03574^J03351^D0650001400_J01175^A0587400064A0587400064A0587400064J03290^D 1 1 1 1 1 1 1 1 1 1 1 3401: 0587901174TJ03537^D0584601174TJ06092^J03351^D0588401174TD05885013952J03351^D0585101174TJ03351^J03103 1 1 1 1 1 1 1 1 1 1 3501: ^J03072^C0794103176J03505/U%U5RR00101"C0142405890J06238SJ03351^G03878BD0417700008XDNJ04006^D04185009 1 1 1 1 1 1 1 1 1 1 11 1 3601: 42XDD00??203721TD00??3037353D00??3037423D00??2037993D00??0037973D00??3038013D00??203811TD00??3038183 11 1 1 1 1 1 1 1 3701: J03903^M%U104331RG08121BR001017R03749"C0433405894J03953/A0436904365C0419804365J04085UU%U1RR00101"M%U 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 104331WR00101"D0419300008XD0589600942XD0590100940TD05902009357B0000000??4"A0590300099J03581^G03951BD 1 1 1 1 1 1 1 1 1 1 3901: 00??203937TD00??3039393U%U1RR00101"J00000^D00??203994TM%T003988WR00101".04006TPE^^^^^NO^HEADER"J0390 1 1 1 1 1 1 1 1 1 11 4001: 3^D0591304279TD00??204064TD00??3040713D0147904284LM%U104250WR00101"J03825^D00??204138TD0436504168TM% 1 1 1 1 1 1 1 1 1 1 4101: T004132WR00101".04006TPE^^^^^SHOULD^BE^RETAINED^UNTIL^^^^^"J03581^NJ03953^NL%B20001^^^^^^^^^^%U1R"^^ 1 1 1 1 11 11 11 1 1 1 1 4201: ^^SCRATCHTPE^^^"00-11HDR^^^^^^^^^^"00-11HDR^^^^^^^^^^^^^^^^SCRATCHTPE^^^^^-000^^^^^^^^^^^^^^^^^^^^^^ 1 1 111 1 111 1 1 4301: ^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 4401: "D01420065001J01787^B04462014201D04452065002J01787^D05885065002D0142904198JJ01787^B04524014203B04536 11 1 1 1 1 1 1 1 1 1 4501: 014202J04548^D0570506539TD0570506544TD0570506549TJ01787^W0468301421"B04622014202D05914041993D0591504 1 1 1 1 1 1 1 1 1 4601: 2023J04646^D05916041993D05917042023D0591904201TD0592006509TD04202J01787^B04726014202D05914041993D059 1 1 1 1 1 1 1 1 1 1 4701: 15042023J04750^D05916041993D05917042023D01421042011B0479301425OD05804042003J04805^D05921042003C04201 1 1 1 1 1 1 1 1 1 4801: 03031J04854SD05921042483B04854014230J04658^D05804042483J04658^G05065B?0592600064?0593100059S05932000 1 1 1 1 1 1 1 1 1 1 4901: 64B0506000!00"B0496700!01BB0496700!01UA0593300064J04913^B05021065061D0650706379XD05921063783C0637900 1 1 1 1 1 1 1 1 1 5001: !02J04949SD00!0300'?0XDG00059BD0580400'?23J04949^J00000^W0518301421"B05122014202D05914041993D0591504 1 1 11 1 1 1 1 1 1 1 5101: 2023J05146^D05916041993D05917042023D0593504201TD0592006514TD04202J01787^B05226014202D05914041993D059 1 1 1 1 1 1 1 1 1 1 5201: 15042023J05250^D05916041993D05917042023D01421042013D05921J05158^W0539101421"B05330014202D05914041993 1 1 1 1 1 1 1 1 1 5301: D05915042023J05354^D05916041993D05917042023D0593704201TD0592006519TD04202J01787^B05434014202D0591404 1 1 1 1 1 1 1 1 1 1 5401: 1993D05915042023J05458^D05916041993D05917042023D01421042013D05921J05366^D05914041993D05915042023J055 1 1 1 1 1 1 1 1 1 1 5501: 38^D05916041993D05917042023?0594200094B0560400?!0^D00?!0042013D05921J05611^A0593200094J05549^J01787^ 1 1 1 1 1 1 1 1 1 1 5601: NJ05647^,05612?0594700089S0594800089A0593300089B0599900?'0"D0586400?'43D0420200?'3TJ05586^^^^^^U0B0I 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: NPUT^RECCONFGRUN^^MACHSIZE^^HDRCHECK^^INPTELEM^^PRINTELEM^PUNCHELEM^CHAN1WORK^CHAN2WORK^NULLAU1HDR^A 1 1 1 1 1 1 1 1 1 1 111 1 5801: UTOCODERORIGIFORTRSYSTEAUTOCRPGCOBOLPRINTBLANK4327R"^10420420000RPG1^FTSUP-RELOC1HDR.000669.D^AUTOCO 1 1 1 1 1 1 1 1 1 1 11 1 1 1 11 1 1 1 111 5901: DER%R)X110B0651204244BE20440142006522GJ39209^C0140906384J02648SC0140906389J02648SJ02116^M%T006029WR0 11111 111 1 111 1 1 1 11 1 1 1 1 1 1 1 6001: 59993R06023".01787TOO^MANY^WORK^TAPES^DEFINED^-^DEPRESS^START^TO^GET^NEXT^RECORD"G06128BB0613006511B 1 1 1 1 11 1 6101: B0613006511UJ00000^D0651206205TD06513061953D06513062123D06390062043D0651206193TU%U1RR00101"L%U106600 1 1 1 1 1 1 1 1 1 1 6201: WR00101"D06391065002J06123^G06262BD06392013952J00000^B0635800002)D06393063573D0000406503LD0635706504 1 1 1 1 1 1 1 1 1 1 6301: 3D06357063363D06357063433R001017R06350"J01512^^D06394063573J06288^^^^SYSTEPRINTUS-RXA0587400064J0337 1 1 1 1 1 11 1 1 1 1 111111 1 6401: 0^N03455^D0645301174TJ03467^FORTRAN40KFCORD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5%B2R%11R0% 1 1 1 1 1 11 11 111 6501: B4R0%B4R0)B5X1)B6X1)B7X1^^^^^^^^^^^^^^^"D01420065493J02835^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B354.^^^^^^ 111 111 111 111 111 1 1 11 1 1 1 1 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B0679600002 1 6701: )D06794067953D0000406503LD06795065043D06795067723D06795067793X001017XY/68347D/69347B784.793067953J06 1 1 1 1 1 1 11 1 1 1 1 6801: 724^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 6901: ^^^^^^^^^^^^^^^^^^^^^"LP^^X72B37600^^JOB^^,333,001005M344004.388/0801M004337/332/M/70331M%B1201RB/36 1 11 1 1 111 1 1 1 1 1 11 1 11 1 1 7001: KB'43LS346B490331_B562DB562336PB388BB388334^B486201^B4772010F4791FJM/692012388B503EB527337^,281M3332 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: 81M%B4201WB/00LB388CB388335^/180,101M2801804K4B388/180B851202+B832205^B824210G,101106M205104B814216* 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 7201: ,116121M286172M232120M225115BS01N^^)663Y/69664B791072^,663M664694M664701M664790M072347M172348B873347 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: LB899347GB925347RB936347.B962347DB973347WB991347,B'17347QB181347CM/71347M347172,663S/72664B8216631B6 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 47M2821724K8/080B443/072,021M286072B443M353120,121M286172B821M/73347B784348PM/74347B784M333347B78434 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 8MM/75347B784M/76347B784M/77347B784348,M/78347B784M/70347B784D/73347Y/79347B784M/79347B784348^M/8034 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: 7B784M/81347B784348TM/82347B784B'673451U%U1BA/72346B388/180,101M2801804S346M338201FL2388U%U4BM%B4201 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 7701: WB/22LB527U%U4BU%U4EB514B/49EB/83337^U%U4BU%U4MU%U4BB/83S^_(1[<>];:\!+?B/96DB354336^4354.B8212010M34 1 1 1 1 1 1 1 1 1 1 1 1111111111111111 1 1 11 1 7801: 0664B647."^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1: 002A017HEADER^MASEOF' 1 1 1 1: 097H03?0001^CW^^^00B,A$DRIVE2&1,^'02F0002^SAR^^00B,)001&5,^'02E0003^BOOL^00?A,)002,^'02F0004^SAR^^00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 101: B,)002&5,^'02E0005^BOOL^00?A,)003,^'02F0006^SAR^^00B,)003&5,^'02E0007^BOOL^00?A,)004,^'02F0008^SAR^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 00B,)004&5,^'02E0009^BOOL^00?A,)005,^'02F0010^SAR^^00B,)005&5,^'02E0011^BOOL^00?A,)006,^'02F0012^SAR 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: ^^00B,)006&5,^'02E0013^BOOL^00?A,)007,^'02F0014^SAR^^00B,)007&5,^'02E0015^BOOL^00?A,)008,^'02F0016^S 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: AR^^00B,)008&5,^'02E0017^BOOL^00?A,)009,^'02F0018^SAR^^00B,)009&5,^'02E0019^BOOL^00?A,)010,^'02F0020 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^SAR^^00B,)010&5,^'02E0021^BOOL^00?A,)011,^'02F0022^SAR^^00B,)011&5,^'02E0023^BOOL^00?A,)012,^'02F00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 24^SAR^^00B,)012&5,^'02E0025^BOOL^00?A,)013,^'02F0026^SAR^^00B,)013&5,^'02E0027^BOOL^00?A,)014,^'02F 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 701: 0028^SAR^^00B,)014&5,^'02E0029^BOOL^00?A,)015,^'02F0030^SAR^^00B,)015&5,^'02E0031^BOOL^00?A,)016,^'0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 2F0032^SAR^^00B,)016&5,^'02E0033^BOOL^00?A,)017,^'02F0034^SAR^^00B,)017&5,^'02E0035^BOOL^00?A,)018,^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: '02F0036^SAR^^00B,)018&5,^'02E0037^BOOL^00?A,)019,^'02F0038^SAR^^00B,)019&5,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 036?02E0039^BOOL^00?A,)020,^'02F0040^SAR^^00B,)020&5,^'02E0041^BOOL^00?A,)021,^'02F0042^SAR^^00B,)02 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 1&5,^'02E0043^BOOL^00?A,)022,^'02F0044^SAR^^00B,)022&5,^'02E0045^BOOL^00?A,)023,^'02F0046^SAR^^00B,) 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 023&5,^'02E0047^BOOL^00?A,)024,^'02F0048^SAR^^00B,)024&5,^'02E0049^BOOL^00?A,)025,^'02F0050^SAR^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: ,)025&5,^'03?0051AB^^^^00B,A$DRIVEOUT,^'02?0052^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MCDRM^' 1 1 1 1: 008?02I0001AMLCA^00C,&)001,X11,^'02G0002^B^^^^00B,MSCDEN3,^'02?0003^MEND^00B,,^' 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MCLEAR' 1 1 1 1: 004I02E0001^B^^^^00B,MRACL,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MCLOFF' 1 1 1 1: 036C06?0001^BW^^^00C,MSCLOSEDON,MSPRINTCON,^IS^PRINTER^ON^LINE^'05F0002^BCE^^00C,*&8,MSROOMLEFT,^WAS 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^OFFLINE^TAPE^USED^'06?0003^B^^^^00B,IOCSOLFULL,^WRITE^LAST^BLOCK^OF^OFFLINE^T^'04G0004^B^^^^00B,IOC 11 1 1 1 1 11 1 1 1 201: SCLOP,^CLOSE^OFFLINE^TAPE^'02G0005^CW^^^00B,OFFLINE,^'02I0006^B^^^^00B,IOCSENTRY,^'03A0007^EQU^^00BM 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: SCLOSEDON,*,^'02I0008^INCLD00B,MSOFFLINE,^'02?0009^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MCTAPE' 1 1 1 1: 013A03H0001^A^^^^00C,IOCS19TRC,EDRECCNT,^'02?0002^A^^^^00B,,^'02I0003^S^^^^00B,IOCS19TRC,^'02?0004^S 1 1 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 101: ^^^^00B,,^'02?0005^MEND^00B,,^' 1 11 11 1 1 11 1 1: 002A017HEADER^MCTEST' 1 1 1 1: 083F03A0001^BOOL^00?A,)001*)002,,^'03I0002^COMP^00F,)00A,PRINTER,,)025,,^'03I0003^COMP^00F,)00B,TEST 1 1 1 1 1 11 11 1 1 1 1 11 11 11 1 1 1 1 101: APE,,)026,,^'03A0004^BOOL^00?C,)025*)026,,^'03E0005^BW^^^00C,*&21,MSPRINTCON,^'02H0006^B^^^^00B,IOCS 11 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: CLOP,^'02D0007^CW^^^00B,MSPT,^'02I0008^B^^^^00B,IOCSENTRY,^'04A0009^BW^^^00C,MSTTCLOSEN,MSTESTMODE,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 301: '03?0010^INCLD00B,MSTTCLOSEN,^'02?0011^MEND^00B,,^'03B0012ABOOL^00?B,)001*-)002,,^'03I0013^COMP^00F, 11 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 1 401: )00A,PRINTER,,)025,,^'02F0014^BOOL^00?C,)025,,^'03E0015^BW^^^00C,*&21,MSPRINTCON,^'02H0016^B^^^^00B, 1 11 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 501: IOCSCLOP,^'02D0017^CW^^^00B,MSPT,^'02I0018^B^^^^00B,IOCSENTRY,^'02?0019^MEND^00B,,^'03B0020BBOOL^00? 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 601: C,)002*-)001,,^'03I0021^COMP^00F,)00B,TESTAPE,,)026,,^'02F0022^BOOL^00?C,)026,,^'04A0023^BW^^^00C,MS 1 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 701: TTCLOSEN,MSTESTMODE,^'03?0024^INCLD00B,MSTTCLOSEN,^'02?0025^MEND^00B,,^'04D0026CNOTE^00ACTEST^-^INCO 1 1 11 1 1 1 1 11 1 1 11 11 1 1 801: RRECT^OPERAND,^'02?0027^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^MDBLCK' 1 1 1 1: 052D02G0001^BOOL^00?P,-)007,,^'04?0002BCALL^00B,MSDBKEN,^1302^VERSION^'02G0003^BOOL^00?C,-)001,,^'04 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 101: ?0004PCALL^00B,MSDBMEN,^RS4^^VERSION^'02G0005CBXPA^00B,IOCSGET,^'02?0006^NOP^^00B,,^'02E0007^DC^^^00 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 201: B,&)001,^'02G0008^BOOL^00?H,-)007,,^'04C0009FSW^^^00B,MSDBKEN&20,^1302^VERSION^'02G0010^B^^^^00B,MSD 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: BKEN,^'02G0011^BOOL^00?G,-)001,,^'04C0012HSW^^^00B,MSDBMEN&20,^RS4^^VERSION^'02G0013^B^^^^00B,MSDBME 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: N,^'02D0014GDCW^^00B,)002,^'02D0015^DCW^^00B,)003,^'02D0016^DCW^^00B,)004,^'02H0017^INCLD00B,MSTESTE 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: N,^'02?0018^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^MDITTO' 1 1 1 1: 010H02F0001^BOOL^00?A,)001,,^'03?0002^SW^^^00B,MSDBLCKPUT,^'02H0003ACALL^00B,MSDUPLEN,^'02?0004^MEND 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: ^00B,,^' 1 11 1 1: 002A017HEADER^MDRHA^' 1 1 1 1: 018A02E0001^EQU^^00B)00K,*,^'02F0002^DA^^^00C,1X29,G,^'02H0003^DA^^^00C,1X1425,G,^'02C0004^^^^^^00C, 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 1,1,^'02D0005^ORG^^00B,)00K,^'03A0006^DA^^^00C,)001X1456,G,^'02?0007^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MENDRL' 1 1 1 1: 097H04A0001^MLCA^00C,IOCS19EXIT&5,ENEXIT&5,^'03D0002^MLC^^00C,IOCSLBAREA,X12,^'05F0003^A^^^^00C,IOCS 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 19TRC,EDRECCNT,^SAVE^RECORD^COUNT^'03G0004^A^^^^00B,,^SAVE^BLOCK^COUNT^'04H0005^S^^^^00B,IOCS19TRC,^ 1 1 11 1 1 11 11 1 1 1 1 201: CLEAR^RECORD^COUNT^'03H0006^S^^^^00B,,^CLEAR^BLOCK^COUNT^'05I0007^MLCA^00C,EDRECCNT,19&X12,^RECORD^C 11 1 1 11 11 1 1 1 1 1 301: OUNT^TO^TRAILER^'03B0008^MLCA^00B,,^BLOCK^COUNT^'04B0009^MLCA^00B,ENEORSM,^EOR^TO^TRAILER^'04D0010^B 11 1 1 11 11 1 1 1 1 11 1 401: XPA^00B,IOCSCS1SFS,^WRITE^TRAILER^'02H0011^WT^^^00C,19,0&X12,^'03A0012^BEX1^00C,IOCSERROR,7,^'02C001 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: 3^BA1^^00B,*&1,^'02I0014^B^^^^00B,IOCSENTRY,^'04H0015^CW^^^00B,ENGO&1,^SET^UP^IOCS^TO^RETURN^'04E001 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 6^SAR^^00B,IOCS19EXIT&5,^TO^THIS^AREA^'03?0017^B^^^^00B,IOCSRENTRY,^'05C0018^BXPA^00BENGO,IOCSCS1SFS 1 1 1 11 1 1 1 1 11 1 1 1 701: ,^REWIND^UNLOAD^TAPE^'02B0019^RWU^^00B,19,^'02I0020^BA1^^00B,IOCSERROR,^'02I0021^B^^^^00B,IOCSENTRY, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: ^'03D0022^B^^^^00BENDWAIT,MSTYPEN,^'02I0023^DCW^^00B,ENMESSAGE,^'02?0024^H^^^^00B,,^'04B0025^BXPA^00 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 901: B,IOCSCS1SFS,^REWIND^TAPE^'02B0026^RWD^^00B,19,^'02I0027^BA1^^00B,IOCSERROR,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099B02I0028^B^^^^00B,IOCSENTRY,^'04H0029^BXPA^00B,IOCSCS1SFS,^READ^HEADER^LABEL^'02H0030^RT^^^00C,19 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: ,0&X12,^'03A0031^BEX1^00C,IOCSERROR,7,^'02?0032^NOP^^00B,,^'02C0033^BA1^^00B,*&1,^'02I0034^B^^^^00B, 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 201: IOCSENTRY,^'05A0035^C^^^^00C,4&X12,ENHDRLABL&4,^CHECK^FOR^HDR^'02H0036^BU^^^00B,ENDCONTA,^'03C0037^S 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: W^^^00C,30&X12,36&X12,^'05F0038^A^^^^00C,38&X12,34&X12,^ADD^RETENTION^CYCLE^TO^'04G0039^C^^^^00C,34& 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: X12,ENYEAR,^CREATION^DATE^'02G0040^BH^^^00B,ENDCONT,^'04F0041^S^^^^00C,ENYEAR1,34&X12,^CHANGE^DATE^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1 501: 04D0042^A^^^^00C,*-10,31&X12,^TO^NEXT^YEAR^'05D0043^C^^^^00CENDCONT,119,34&X12,^CAN^TAPE^BE^USED^'03 1 1 1 1 1 1 11 1 1 1 1 1 11 601: C0044^CW^^^00C,30&X12,36&X12,^'02G0045^BH^^^00B,ENDWAIT,^'04?0046^A^^^^00CENDCONTA,*-10,EDSEQNO,^'02 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: H0047^S^^^^00B,EDRECCNT,^'02?0048^S^^^^00B,,^'04?0049^MLCA^00C,EDSEQNO,ENHDRLABL&18,^'03H0050^MLCA^0 1 1 1 1 11 1 1 11 11 1 1 1 1 1 11 1 1 801: 0C,00119,ENHDRLABL&34,^'06B0051^MLCA^00C,ENHDRLABL&39,39&X12,^HDR^TO^IOCS^LABEL^AREA^'05E0052^BXPA^0 1 1 1 11 1 1 1 1 1 11 1 1 901: 0B,IOCSCS1SFS,^ENSURE^BEGINNING^OF^TAPE^'02B0053^RWD^^00B,19,^'02I0054^BA1^^00B,IOCSERROR,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 046E02I0055^B^^^^00B,IOCSENTRY,^'05?0056^BXPA^00B,IOCSCS1SFS,^WRITE^NEW^HDR^LABEL^'02H0057^WT^^^00C, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 19,0&X12,^'03A0058^BEX1^00C,IOCSERROR,7,^'02C0059^BA1^^00B,*&1,^'02I0060^B^^^^00B,IOCSENTRY,^'02G006 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 1^B^^^^00BENEXIT,0,^'05E0062^DCW^^00C^ENMESSAGE,@CHG^RL^19^PRESS^START@,G,^'03A0063^DCW^^00BENYEAR,@ 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 366@,^'03B0064^DCW^^00BENYEAR1,@365@,^'03D0065^DCW^^00BENEORSM,@1EOR^@,^'07B0066^DCW^^00B^ENHDRLABL, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: @1HDR^^^^^^70019-000^TRANSRECON00000-007^@,^'02?0067^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^MGERT^' 1 1 1 1: 098?06H0001^ET^EV00C*^GERT^-^G,ERY^RCD^IN^TRACK^-^VER2,LEV0^-07/19/65,^'05D0002^HAR^R00B*^^FOR^3-C,C 1 1 1 1 1 1 1 11 1 1 1 101: D^SIZE^-^NO^PARAMETER^4,^'06C0003^HAR^R00B*^^FOR^4-C,CD^SIZE^-^USE^PARAMETER^FOUR^AS^4,^'04G0004^MLC 1 11 1 1 1 1 11 1 201: B^00C,X11,GERHOLD1,^SAVE^USERS^X11^'04I0005^MLCA^00C,GERHOLD2,X11,^RESTORE^GERT^X11^'02H0006^NOPWM00 1 1 1 1 11 1 1 1 1 1 11 1 1 301: BGERFIRST,,^'05B0007^B^^^^00B,GEREVYRCD,^TO^GET^SUBSEQUENT^RCDS^'03?0008^SW^^^00B,GERFIRST&1,^'05B00 11 11 1 1 1 1 11 1 1 1 1 11 1 401: 09^MLCB^00C,)001,GERHOLD3,^SAVE^PARAMETER^ONE^'05?0010^MLZS^00C,*,GERTRK-2,^CHG^$^TO^POUND^SIGN^'04F 1 1 1 1 11 1 1 1 1 1 11 501: 0011^B^^^^00B,GERCKBLK,^FOR^BLOCK^CK^ONLY^'03B0012^DCW^^00BGERWK1,@^^^^@,^'03C0013^DCW^^00BGERSIZ,@^ 1 1 1 1 11 1 1 1 1 11 1 1 1 601: ^^^^@,^'02F0014^BOOL^00?A,)004,,^'04H0015^DCW^^00BGERLTH,@^^^^@,^4-CHAR^RCD^SIZE^'02F0016^BOOL^00?B, 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: )005,,^'04G0017ADCW^^00BGERLTH,@^^^@,^3-CHAR^RCD^SIZE^'03I0018BDC^^^00BGERWLR,@W@,^WM^IF^WLR^'04A001 11 11 1 1 1 1 11 1 1 1 1 11 1 801: 9^DCW^^00B^GERMG1,@BAD^BLK^CNT^@,^'04?0020^DCW^^00CGERBADAD,@^^^^^^^^@,G,^'03E0021^DCW^^00BGERHOLD1, 1 1 1 11 1 1 1 1 1 11 1 1 1 901: @^^^^^@,^'03E0022^DCW^^00BGERHOLD2,@^^^^^@,^'03E0023^DCW^^00BGERHOLD3,@^^^^^@,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 097D05F0024^DCW^^00BGERTRK,@^$$"@,^1ST^$^POUND^SIGN^AT^OBJ^'06D0025^CW^^^00BGERLEAVE,GERFIRST&1,^RES 1 1 1 1 1 1 11 1 1 1 1 101: ET^FOR^NEXT^HALF^TRACK^'05?0026^MLCA^00C,GERHOLD1,X11,^RESTORE^USERS^X11^'02F0027^ZA^^^00B,GERWK1,^' 11 1 1 1 1 1 11 1 1 1 1 1 201: 04C0028^BZ^^^00B,)003,^IF^ZERO,^BLK^VALID^'05D0029^MLCB^00C,IOCSDSKAD,GERBADAD,^ADDR^OF^BAD^BLK^'02G 1 1 1 1 1 11 1 1 1 1 1 11 301: 0030^B^^^^00B,MSTYPEN,^'02F0031^DCW^^00B,GERMG1,^'03D0032AB^^^^00B,)003,^END^BLOCK^'06D0033^ZA^^^00C 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: GERCKBLK,GERHOLD3,X11,^SET^UP^X11^FOR^HALF^TRK^'04A0034^ZA^^^00C,3&X11,GERWK1,^BLK^SIZE^'04E0035^BZ^ 1 1 1 11 1 1 1 1 1 11 1 501: ^^00B,GERLEAVE,^NEXT^TRK^IF^ZERO^'04C0036^S^^^^00C,@4@,GERWK1,^IS^BLK^SIZ^4^'05A0037^BZ^^^00B,GERLEA 1 1 1 11 1 1 1 1 1 11 1 1 1 601: VE,^NEXT^TRACK^IF^NOW^ZERO^'04?0038^A^^^^00C,@4@,X11,^PAST^BLK^CNT^'06B0039^MLCS^00CGEREVYRCD,0&X11, 1 11 1 1 1 1 1 11 1 1 1 1 701: *&12,^SET^NEXT^CHAR^TO^CHECK^'05C0040^BCE^^00D,GERLEAVE,GERTRK,,^IS^IT^GROUP^MARK^'03B0041^BCE^^00B, 1 11 1 1 1 1 11 11 1 1 1 801: ,^DOLLAR^SIGN^'03A0042^BCE^^00B,,^POUND^SIGN^'02I0043^BCE^^00B,,^OR^BLANK^'05D0044^BCE^^00D,GERLEAVE 1 11 1 1 11 11 1 1 11 11 1 1 1 901: ,4&X11,",^END^OF^TRACK^AREA^'04E0045^CW^^^00B,GERWLR,^CLEAR^FOR^NEXT^RCD^' 1 1 1 11 1 1 1 1 1 1: 080D04A0046^ZS^^^00C,X11,GERSIZ,^START^ADDR^'05B0047^MRCM^00C,0&X11,)002,^MOVE^RCD^TO^USER^AREA^'04? 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: 0048^SAR^^00B,X11,^ADDR^OF^NEXT^RCD^'03I0049^A^^^^00C,X11,GERSIZ,^END^ADDR^'05C0050^MLNB^00C,GERSIZ, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: GERLTH,^SAVE^ACTUAL^RCD^LTH^'04H0051^S^^^^00C,GERLTH,GERWK1,^FROM^BLOCK^CNT^'02F0052^BOOL^00?C,)004, 1 11 1 1 1 1 1 11 1 1 1 1 301: ,^'04F0053^SW^^^00B,GERSIZ-3,^WM^TO^LIMIT^ARITH^'05E0054^S^^^^00C,)002&3,GERSIZ,^4-CHAR^RCSIZ^FROM^C 1 11 1 1 1 1 11 1 1 1 1 1 401: AL^'02H0055^CW^^^00B,GERSIZ-3,^'02F0056^BOOL^00?D,)005,,^'04F0057CSW^^^00B,GERSIZ-2,^WM^TO^LIMIT^ARI 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: TH^'05E0058^S^^^^00C,)002&2,GERSIZ,^3-CHAR^RCSIZ^FROM^CAL^'02H0059^CW^^^00B,GERSIZ-2,^'04G0060DBZ^^^ 11 1 1 1 1 1 11 1 1 1 1 11 1 601: 00B,GEROK,^RCSIZ^CORRECT^IF^ZERO^'04I0061^SW^^^00B,GERWLR,^SET^WLR^SW^ON^FOR^USER^'05A0062^MLCB^00CG 1 1 1 11 1 1 1 1 11 1 1 701: EROK,X11,GERHOLD2,^SAVE^GERT^X11^'05?0063^MLCA^00C,GERHOLD1,X11,^RESTORE^USERS^X11^'02?0064^MEND^00B 1 1 1 11 1 1 1 1 1 11 1 1 801: ,,^' 11 1 1: 002A017HEADER^MGETCD' 1 1 1 1: 010E02I0001AMLC^^00C,&)002,X12,^'02E0002^MLC^^00B,&)001,^'02G0003^B^^^^00B,MSCDEN1,^'02?0004^MEND^00 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 101: B,,^' 11 1 1: 002A017HEADER^MGETRM' 1 1 1 1: 010G02I0001AMLC^^00C,&)002,X12,^'02E0002^MLC^^00B,&)001,^'02I0003^B^^^^00B,MSGETRMEN,^'02?0004^MEND^ 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: 00B,,^' 1 11 1 1: 002A017HEADER^MGETV^' 1 1 1 1: 013E04D0001^MLNA^00C,&)002,X12,^SET^X12^ON^EOF^'04A0002^MLNA^00B,&)001,^SET^X11^ON^AREA^'02F0003^B^^ 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^^00B,GETVAR,^'02?0004^MEND^00B,,^' 1 1 1 11 1 1 11 1 1: 002A017HEADER^MGETVX' 1 1 1 1: 059F04D0001^MLNA^00C,&)002,X12,^SET^X12^ON^EOF^'04A0002^MLNA^00B,&)001,^SET^X11^ON^AREA^'02F0003^B^^ 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^^00B,GETVAR,^'03I0004^MLNA^00C,&)001,X11,^RESET^X11^'05B0005^BCE^^00DMSGETVX01,*&37,0&X11,W,^2302^Q 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 201: UEUE^'04D0006^BCE^^00D,*&25,0&X11,P,^PROG^DIRECT^'04A0007^BCE^^00D,*&13,0&X11,R,^REDIRECT^'03B0008^B 11 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 301: BE^^00D,*&25,0&X11,(,^'03H0009^BBE^^00D,MSGETVX02,10&X11,(,^'04G0010^MLCA^00C,@R00@,2&X11,^SET^M/F^C 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 401: ODE^IN^'04A0011^BBE^^00D,MSGETVX02&12,10&X11,(,^'03B0012^MLC^^00C,2&X11,12&X11,^'02D0013^B^^^^00B,*& 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 13,^'04A0014^MLC^^00CMSGETVX02,12&X11,2&X11,^'03?0015^MLCA^00C,@3B@,4&X11,^'02?0016^MEND^00B,,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MINITA' 1 1 1 1: 097?02A0001^SFX^^00B,A,^'04H0002^MATH^00?#005,)002*00012&)001&00008,,,,^'05D0003^MLNB^00C,,BASI 1 1 1 1 1 1 11 1 1 1 1 1 1111 11 1 1 1 1 101: CREC,^VALUES^GENERATED^BY^'03G0004^MATH^00?#005,)001&00006,,,,^'05D0005^MLNB^00B,,^DSKAD^--^^MA 1 11 1 1 1 1 1111 11 1 1 1 1 201: TH^PSEUDO^MACROS^'03G0006^MATH^00?#005,)001&00005,,,,^'03B0007^MLNB^00B,,^RPLUS5^'04H0008^MATH^ 11 1 1 1 1 1111 11 1 1 1 1 11 1 301: 00?#005,)002*00008&)001&00007,,,,^'03?0009^MLNB^00B,,^ARMS^'02F0010^BOOL^00?A,-)003,^'03I0011^Z 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 11 1 401: A^^^00C,$MSPROGEND,STACKTOP,^'03D0012AZA^^^00C,&)00C,STACKTOP,^'03C0013^MLNA^00C,&)00D,OPTIMUM,^'03B 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 501: 0014^ZA^^^00C,STACKTOP,X11,^'03A0015^MLNA^00C,RPLUS5,*&11,^'03E0016^MLCWS00CMKLOOP,@"@,0&X11,^'03B00 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: 17^A^^^^00C,BASICREC,X11,^'03A0018^MLCS^00C,RMK,0-1&X11,^'03?0019^S^^^^00C,K1,OPTIMUM,^'02D0020^BZ^^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 701: ^00B,WSET,^'02F0021^B^^^^00B,MKLOOP,^'03C0022^MLCWS00CWSET,@"@,0&X11,^'03C0023^MLNA^00C,STACKTOP,KTW 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: O,^'03A0024^MLNA^00B,,^KTWO,KLSTA^'03D0025^MLNA^00B,,^KLSTA,NEXTOUT^'03H0026^ZA^^^00C,STACKTOP,BESTS 1 11 1 1 11 11 1 1 11 11 1 1 1 1 901: OFAR,^'03C0027^A^^^^00C,BASICREC,KTWO,^'03?0028^A^^^^00C,ARMS,KLSTA,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 027I03C0029^ZA^^^00C,$IOCSBWL5,X15,^'03C0030^MLCB^00C,5&X15,SAVEWLB,^'03C0031^MLCA^00C,5&X15,EXIT3&5 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: ,^'05F0032^MLCA^00C,5&X15,EXIT3A&5,^INITIALIZE^IND^RETURN^'05E0033^MLCA^00C,SBADCON,5&X15,^LINK^TO^I 1 11 1 1 1 1 1 11 1 1 1 1 1 201: OCS^WAITLOOP^'02?0034^SFX^^00B,,^'02E0035^INCLD00B,SKEDA,^'02?0036^MEND^00B,,^' 11 1 1 11 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MLINK^' 1 1 1 1: 092A02F0001^BOOL^00?G,)005,,^'03H0002^MLC^^00C,&)005,MSTRANRLSE&5,^'03A0003GBOOL^00?A,)003*)004,,^'0 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 101: 3A0004^EQU^^00BMSSGMTL,)004,^'03E0005^MLCWA00C,&)003,IOCSSTKAR,^'03H0006^MLNWA00C,&MSSGMTL,IOCSSGMTL 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: ,^'03A0007^BOOL^00?B,)001*)002,,^'04C0008^MLCA^00C,&IOCSE00000,IOCSCS1S3&5,^'05B0009^MLCA^00CMSOPTNL 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: NK,&IOCSF00000,IOCSCS2S3&5,^'02?0010^MEND^00B,,^'03B0011ABOOL^00?E,-)003*-)004,^'03G0012^MLCWA00C,@^ 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 401: ^^^^@,IOCSSTKAR,^'03A0013FBOOL^00?B,)001*)002,,^'04C0014^MLCA^00C,&IOCSE00000,IOCSCS1S3&5,^'05B0015^ 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: MLCA^00CMSOPTNLNK,&IOCSF00000,IOCSCS2S3&5,^'02?0016^MEND^00B,,^'03B0017BBOOL^00?C,)001*-)002,,^'04C0 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 601: 018^MLCA^00C,&IOCSE00000,IOCSCS1S3&5,^'02?0019^NOP^^00B,,^'03C0020^DC^^^00B,@^^^^^^^^^^^@,^'02?0021^ 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 701: MEND^00B,,^'03B0022CBOOL^00?D,)002*-)001,,^'04C0023^MLCA^00C,&IOCSF00000,IOCSCS2S3&5,^'02?0024^NOP^^ 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 801: 00B,,^'03C0025^DC^^^00B,@^^^^^^^^^^^@,^'02?0026DMEND^00B,,^'04A0027ENOTE^00AMISSING^PARAMETER^LINK,^ 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 901: '02?0028^MEND^00B,,^' 11 1 1 11 1 1: 002A017HEADER^MLOCAT' 1 1 1 1: 022A02I0001^ZA^^^00C,&)001,X15,^'02I0002^MLC^^00C,&)002,X12,^'02G0003^BOOL^00?E,-)005,,^'02H0004BCAL 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 101: L^00B,MSLCATEN,^'02G0005^BOOL^00?C,-)001,,^'02I0006ECALL^00B,MSLODATEN,^'02H0007CINCLD00B,MSTESTEN,^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: '02?0008^MEND^00B,,^' 11 1 1 11 1 1: 002A017HEADER^MMSDEC' 1 1 1 1: 009I02G0001AB^^^^00B,MSDECEN,^'02D0002^DCW^^00B,)001,^'02D0003^DCW^^00B,)002,^'02?0004^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MMSEOJ' 1 1 1 1: 019I02E0001^BOOL^00?A,)001,^'02H0002^B^^^^00B,MSPCALEN,^'02E0003^DCW^^00B,-)001,^'02E0004FINCLD00B,M 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 101: SJEO,^'02?0005GMEND^00B,,^'02G0006AB^^^^00B,MSEOJEN,^'02E0007HINCLD00B,MSJEO,^'02?0008IMEND^00B,,^' 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MMSJOE' 1 1 1 1: 048?02E0001^BOOL^00?A,)001,^'03A0002^MLC^^00C,@)001@,)00Q,^'03A0003^BCE^^00C,)00J,)00Q-4,^'02I0004^M 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 101: LC^^00C,)00Q,)00P,^'02D0005^B^^^^00B,)00M,^'03A0006^DCW^^00B)00Q,@^^^^^@,^'03E0007^BCE^^00C)00J,)00K 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: ,)00Q-3,^'03A0008^MLCB^00C,)00Q,)00P-1,^'02D0009^B^^^^00B,)00M,^'03E0010^MLCB^00C)00K,)00Q,)00P-2,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 301: 03B0011^B^^^^00B)00M,MSPCALEN,^'03A0012^DCW^^00B)00P,@^^^^^@,^'02E0013^INCLD00B,MSJEO,^'02?0014^MEND 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^00B,,^'02G0015AB^^^^00B,MSEOJEN,^'02E0016^INCLD00B,MSJEO,^'02?0017^MEND^00B,,^' 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MMSLNK' 1 1 1 1: 099I04A0001^ORG^^00BMSLNKORG,IOCSCSNENT-50,^'03E0002^DCW^^00BWLRLINK1,IOCSJUG,^'03D0003^DCW^^00BWLRL 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: INK2,IOCSCU,^'03G0004^DCW^^00BMSDECLNK,IOCSCIA&4,^'04B0005^SBR^^00BMSIOPENDEN,MSIOPENDEX&5,^'02E0006 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: ^BOOL^00?A,)001,^'02H0007^BXPA^00B,IOCSFORS,^'02F0008^BOOL^00?B,-)001,^'02C0009AB^^^^00B,*&1,^'03A00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 10BB^^^^00BMSIOPENDEX,0,^'02?0011^NOP^^00B,,^'02H0012^ORG^^00B,MSLNKORG,^'04?0013^ORG^^00BMSORGINA,I 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 401: OCSCS1SCN&8,^'02F0014^B^^^^00B,MSLNK2,^'02I0015^ORG^^00B,IOCSCS1E2,^'05F0016^BXPA^00B,MSINQRMEN,^TO^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: MONITOR^INQUIRY^ROUTINE^'05C0017^BXPA^00B,MSWRMENOQ,^TO^MONITOR^OUTQ^ROUTINE^'02H0018^ORG^^00B,MSORG 11 1 1 1 1 11 1 1 1 601: INA,^'04C0019^BW^^^00CMSLNK2,MSRES1,MSRESTRTSW,^'04E0020^BIPR100B,IOCSCS1QIQ,^INQ^-^1ST^1414^'04F002 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: 1^BQPR100B,IOCSCS1QPR,^OUTQ^-^1ST^1414^'04H0022^BW^^^00C,MSLNK1,MSYNC2,^BR^IF^2ND^1414^'04E0023^B^^^ 1 1 1 11 1 1 1 1 1 11 1 801: ^00B,IOCSCS1SCN&22,^RET^TO^IOCS^'02I0024^DCW^^00BMSLNK1,@Y@,^'04F0025^DC^^^00B,IOCSCS1QIQ,^OUTQ^-^2N 1 1 1 11 1 1 1 1 11 1 1 1 1 901: D^1414^'02C0026^DC^^^00B,@G@,^'02C0027^DCW^^00B,@Y@,^'04E0028^DC^^^00B,IOCSCS1QPR,^INQ^-^2ND^1414^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 052I02C0029^DC^^^00B,@4@,^'04E0030^B^^^^00B,IOCSCS1SCN&22,^RET^TO^IOCS^'03F0031^CW^^^00BMSRES1,MSRES 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: TRTSW,^'03?0032^B^^^^00B,IOCSCS1QPR,^'02F0033^NOP^^00B,,^DUMMY^'04E0034^DA^^^00B,1X31,^GAP^FOR^GETS^ 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 201: CONTROL^'04E0035^^^^^^00B,30,^ADDR^IS^END^A^ASSEMBLY^'04D0036^^^^^^00B,30,^B^ASSEM^DIOCSORG^MUST^'04 11 1 1 1 1 11 1 1 1 1 11 301: D0037^^^^^^00B,30,^BE^ABOVE^THIS^ADDRESS^'03D0038CEQU^^00BMSWRMENOQ,00650,^'03D0039^EQU^^00BMSINQRME 1 1 1 1 11 1 1 1 1 11 1 1 401: N,00643,^'03C0040^EQU^^00BMSINQUEN,00657,^'03A0041^EQU^^00BMSYNC2,00479,^'03E0042^EQU^^00BMSRESTRTSW 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: ,00777,^'02?0043^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^MMSTYP' 1 1 1 1: 007E02G0001AB^^^^00B,MSTYPEN,^'02D0002^DCW^^00B,)001,^'02?0003^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MMTAB^' 1 1 1 1: 097A02D0001^DCW^^00B,)001,^'02D0002^DCW^^00B,)002,^'02E0003^BOOL^00?A,)003,^'02D0004^DCW^^00B,)003,^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: '02D0005^DCW^^00B,)004,^'02E0006^BOOL^00?A,)005,^'02D0007^DCW^^00B,)005,^'02D0008^DCW^^00B,)006,^'02 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 201: E0009^BOOL^00?A,)007,^'02D0010^DCW^^00B,)007,^'02D0011^DCW^^00B,)008,^'02E0012^BOOL^00?A,)009,^'02D0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 013^DCW^^00B,)009,^'02D0014^DCW^^00B,)010,^'02E0015^BOOL^00?A,)011,^'02D0016^DCW^^00B,)011,^'02D0017 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^DCW^^00B,)012,^'02E0018^BOOL^00?A,)013,^'02D0019^DCW^^00B,)013,^'02D0020^DCW^^00B,)014,^'02E0021^BO 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: OL^00?A,)015,^'02D0022^DCW^^00B,)015,^'02D0023^DCW^^00B,)016,^'02E0024^BOOL^00?A,)017,^'02D0025^DCW^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: ^00B,)017,^'02D0026^DCW^^00B,)018,^'02E0027^BOOL^00?A,)019,^'02D0028^DCW^^00B,)019,^'02D0029^DCW^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: B,)020,^'02E0030^BOOL^00?A,)021,^'02D0031^DCW^^00B,)021,^'02D0032^DCW^^00B,)022,^'02E0033^BOOL^00?A, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: )023,^'02D0034^DCW^^00B,)023,^'02D0035^DCW^^00B,)024,^'02E0036^BOOL^00?A,)025,^'02D0037^DCW^^00B,)02 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: 5,^'02D0038^DCW^^00B,)026,^'02C0039ADCW^^00B,@"@,^'02?0040^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MMVRSC' 1 1 1 1: 015F03F0001^MLNA^00C,&)002,A$RDEXIT&5,^'02I0002^ZA^^^00C,&)001,X14,^'03H0003^MLNA^00C,&)00C,A$NOMODX 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: IT&5,^'02I0004^B^^^^00B,A$STACKIT,^'02?0005^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MOCALL' 1 1 1 1: 015A02I0001AMLC^^00C,&)001,X14,^'03E0002^MLN^^00C,&)002,MSOCALADR,^'03E0003^C^^^^00C,1&X14,MSOCALADR 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: ,^'02H0004^BU^^^00B,MSOCALEN,^'02?0005^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MOFFLN' 1 1 1 1: 018G02I0001^MLC^^00C,&)001,X12,^'05F0002^B^^^^00B,MSOFFLINE,^SUBR^-^OFFLINE^PRINT^PUNCH^'04I0003^BCV 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^^00B,)002,^BRANCH^TO^USERS^OFLO^RTN^'02I0004^INCLD00B,MSOFFLINE,^'02?0005^MEND^00B,,^' 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MOLAY^' 1 1 1 1: 026A03A0001^CW^^^00B,MSOCALADR-1,^'04F0002^MLNA^00C,&)001,MSOCALADR,^OVERLAY^NR^'04C0003^ZA^^^00C,&) 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 002,X14,^OVERLAY^START^'03E0004^C^^^^00C,2&X14,MSOCALADR,^'02H0005^BU^^^00B,MSOCALEN,^'05D0006^SW^^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: 00B,MSOCALADR-1,^ALLOW^3^DIGIT^OCALL^NR^'02?0007^MEND^00B,,^' 1 1 1 11 1 1 11 1 1: 002A017HEADER^MOPOFF' 1 1 1 1: 018H05D0001^BW^^^00C,*&21,MSPRINTCON,^IS^PRINTER^ON^LINE^'05D0002^B^^^^00B,IOCSCLOP,^IF^NOT,^OPEN^OF 1 1 1 1 1 1 1 11 1 1 1 1 101: FLINE^TAPE^'02G0003^C^^^^00B,OFFLINE,^'02I0004^B^^^^00B,IOCSENTRY,^'02?0005^MEND^00B,,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MOTEST' 1 1 1 1: 098B03A0001^BOOL^00?A,)001*)002,,^'03I0002^COMP^00F,)00A,PRINTER,,)025,,^'03I0003^COMP^00F,)00B,TEST 1 1 1 1 1 11 11 1 1 1 1 11 11 11 1 1 1 1 101: APE,,)026,,^'03A0004^BOOL^00?C,)025*)026,,^'03E0005^BW^^^00C,*&21,MSPRINTCON,^'02H0006^B^^^^00B,IOCS 11 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: CLOP,^'02D0007^C^^^^00B,MSPT,^'02I0008^B^^^^00B,IOCSENTRY,^'03D0009^BW^^^00C,*&8,MSTESTMODE,^'02D001 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: 0^B^^^^00B,*&27,^'03?0011^BXPA^00B,IOCSCS1SFS,^'02B0012^RWD^^00B,18,^'02I0013^BA1^^00B,IOCSERROR,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: 2I0014^B^^^^00B,IOCSENTRY,^'02?0015^MEND^00B,,^'03A0016ABOOL^00?B,)001*-002,,^'03H0017^COMP^00E,)00A 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 1 501: ,PRINTER,,)025,^'03E0018^BW^^^00C,*&21,MSPRINTCON,^'02H0019^B^^^^00B,IOCSCLOP,^'02D0020^C^^^^00B,MSP 1 11 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: T,^'02I0021^B^^^^00B,IOCSENTRY,^'02?0022^MEND^00B,,^'03B0023BBOOL^00?C,)002*-)001,,^'03I0024^COMP^00 1 11 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 701: F,)00B,TESTAPE,,)026,,^'02F0025^BOOL^00?C,)026,,^'03D0026^BW^^^00C,*&8,MSTESTMODE,^'02D0027^B^^^^00B 1 1 11 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 801: ,*&27,^'03?0028^BXPA^00B,IOCSCS1SFS,^'02B0029^RWD^^00B,18,^'02I0030^BA1^^00B,IOCSERROR,^'02I0031^B^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: ^^00B,IOCSENTRY,^'02?0032^MEND^00B,,^'04D0033CNOTE^00AOTEST^-^INCORRECT^OPERAND,^' 1 1 1 11 1 1 11 11 1 1 1 1 1: 002D02?0034^MEND^00B,,^' 1 1 1 1 11 1 1: 002A017HEADER^MPUTCD' 1 1 1 1: 013C04I0001^B^^^^00B,PUTCDEN,^SUBRTN^-^PUNCH^A^CARD^'03A0002^DCW^^00B,)002,^POCKET^'02I0003^DCW^^00B 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: ,)001,^AREA^'02?0004^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^MPUTPR' 1 1 1 1: 010F02I0001AMLC^^00C,&)001,X12,^'02I0002^CALL^00B,MSPRINTEN,^'02D0003^BCV^^00B,)002,^'02?0004^MEND^0 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 101: 0B,,^' 11 1 1: 002A017HEADER^MPUTRM' 1 1 1 1: 024G02I0001AMLC^^00C,&)002,X12,^'02E0002^MLC^^00B,&)001,^'03F0003^COMP^00F,)00C,LAST,,)004,,^'02G000 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 11 11 1 101: 4^BOOL^00?B,-)004,,^'02I0005^B^^^^00B,MSPUTRMEN,^'02?0006^MEND^00B,,^'02H0007BMLZS^00C,@&@,)001,^'02 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 1 1 11 201: I0008^B^^^^00B,MSPUTRMEN,^'02?0009^MEND^00B,,^' 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MPUTV^' 1 1 1 1: 021F02F0001^B^^^^00B,PUTVAR,^'02G0002^BOOL^00?A,-)002,,^'03?0003^DCW^^00B,@0@,^POCKET^'02I0004^DCW^^ 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: 00B,)001,^AREA^'02?0005^MEND^00B,,^'03A0006ADCW^^00B,)002,^POCKET^'02I0007^DCW^^00B,)001,^AREA^'02?0 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 201: 008^MEND^00B,,^' 1 11 1 1: 002A017HEADER^MRACON' 1 1 1 1: 009G02E0001^B^^^^00B,RACNS,^'02D0002^DCW^^00B,)001,^'02D0003^DCW^^00B,)002,^'02?0004^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MREMOV' 1 1 1 1: 019?02H0001^ZA^^^00C,)001,X13,^'02H0002^ZA^^^00C,)002,X15,^'02G0003^BOOL^00?A,-)003,,^'02I0004^CALL^ 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 101: 00B,MSDELETEN,^'02E0005^BOOL^00?B,)003,^'02I0006ACALL^00B,MSDFLETEN,^'02?0007BMEND^00B,,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MRMTST' 1 1 1 1: 005B02H0001^B^^^^00B,MSERVEN1,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MSCHED' 1 1 1 1: 007G05C0001^B^^^^00B,A$IFSELECTD,^LABEL^MANDATORY,SCHED^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MSEQUN' 1 1 1 1: 096?06B0001^VER3,00B*^SEQUN^-,^LEV1^-^1-20^2302^MODS^-^01/19/68,^'05H0002^MLCB^00CSEQUENTAL,X2,SEQUN 1 1 1 1 1 1 11 1 1 1 1 101: HLD1,^SAVE^USERS^X1,X2^'05B0003^MLCA^00C,SEQUNHLD2,X2,^RESTORE^SEQUN^X1,X2^'02F0004^NOPWM00BSEQUE1,, 1 11 1 1 1 1 1 11 1 1 11 201: ^'05B0005^B^^^^00B,SEQDVLOP,^FALL^THROUGH^FIRST^TIME^'03D0006^SW^^^00BSEQUE2,SEQUE1&1,^'05B0007^MLN^ 11 1 1 1 1 11 1 1 1 1 11 1 301: ^00C,SEQNAME,X2,^NAME^OF^FILE^FOR^SCAN^'04B0008^MLN^^00CSEQINIT,14&X2,TRKAD,^RA2^'04E0009^MLN^^00C,1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 0&X2,TRKAD-2,^START^TRACK^'04E0010^MLN^^00C,TRKAD,FILSTART,^START^ADDR^'05G0011^MLN^^00C,TRKAD,FILEN 1 1 11 1 1 1 1 1 11 1 1 1 1 501: D,^TO^ESTAB^END^ADDR/MODULE^'04I0012^ZA^^^00C,6&X2,SEQMUL,^#^OF^PRIME^TRACKS^'05G0013^D^^^^00C,12&X2 1 11 1 1 1 1 1 11 1 1 1 601: ,SEQMUL-4,^DIVIDE^BY^OFLOW^TRACKS^'04H0014^M^^^^00C,&40,SEQMUL,^TOTAL^#^CYLINDERS^'05D0015^D^^^^00C, 1 1 11 1 1 1 1 1 11 1 1 1 701: 1&X2,SEQMUL-4,^CYLINDERS^PER^MODULE^'03G0016^A^^^^00C,SEQMUL-3,FILEND-2,^'05B0017^S^^^^00C,SEQINCRMT 1 1 11 1 1 1 1 1 11 1 1 1 801: ,FILEND,^END^ADDR^EA^MOD^'06B0018^MLN^^00CSEQFLIP1,MSSIZESYS,SEQMODS,^#^MODS^ON^SYSTEM^'03A0019^S^^^ 1 1 11 1 1 1 1 1 11 1 901: ^00C,@1@,SEQMODS,^'04A0020^MLNA^00C,16&X2,X1,^START^MODULE^' 1 1 1 1 11 1 1 1 1 1 1 1: 099C05I0021^MLC^^00C,1&X2,SEQTOTMDS,^#^MODS^USED^BY^DATA^FILE^'06D0022^MLNS^00CSEQDKCON,MSDKCON&X1,S 1 1 1 1 1 1 1 11 1 1 1 1 101: EQMUL,^SET^UP^MOD^AND^ARM^'03I0023^MLZS^00C,*,SEQMUL,^BLANK^ZONE^'04F0024^BBE^^00D,SEQARM1,X1,1,^BRC 1 11 1 1 1 1 1 11 1 1 1 1 1 1 201: H^IF^ARM^1^'02H0025^B^^^^00B,SEQSETCH,^'02E0026^BOOL^00?A,)003,^'03B0027^COMP^00E,)003,@,,)025,^'02E 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 11 301: 0028^BOOL^00?A,)025,^'04E0029^DCW^^00BSEQINCRMT,@100@,^FULL^TRACK^'02F0030^BOOL^00?B,-)025,^'04E0031 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ADCW^^00BSEQINCRMT,@025@,^QTR^^TRACK^'03H0032BMLZS^00CSEQARM1,*-11,SEQMUL,^'06?0033^MLCS^00CSEQSETCH 1 1 1 11 1 1 1 1 1 11 1 1 501: ,SEQMUL,FILSTART-6,^MODULE^AND^ARM^'03E0034^MLCS^00C,SEQMUL,FILEND-6,^'03D0035^MLCS^00C,@*@,FILSTART 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: -7,^'05H0036^BZN^^00D,SEQMVCH,MSDKCON&X1,B,^CHAN^2^IF^11^ZONE^'03B0037^MLZS^00C,*,FILSTART-7,^'06G00 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 701: 38^MLCS^00CSEQMVCH,FILSTART-7,FILEND-7,^CHAN,MOD,TRACK^READY^'02?0039^NOPWM00B,,^'06C0040^B^^^^00BSE 1 1 1 1 11 1 1 11 11 1 1 801: QUE3,SEQRST,^SET^ON^TO^OVERRIDE^RESTART^OPT^'02F0041^SW^^^00B,SEQUE3,^'04B0042^B^^^^00B,MSDECEN,^DEC 1 1 11 1 1 1 1 11 1 1 1 1 901: ISION^MACRO^'02I0043^DCW^^00B,SEQINITMG,^'05A0044^DCW^^00B,SEQINFO,^TO^ASK^FOR^RESTART^INFO^' 11 1 1 1 1 11 1 1 1 1 1 1: 094F06C0045^BW^^^00CSEQAOK,SEQUENOUT,MSDKCON&X1,^OUT^IF^MOD^AVAIL^'05?0046^MLCA^00C,FILSTART-6,SEQMO 1 1 1 1 1 1 1 11 1 1 1 1 101: DWN&1,^CHAN,MOD^'05A0047^B^^^^00BSEQMDNDEC,MSDECEN,^DECISION^MACRO^'03F0048^DCW^^00B,SEQMODWN,^MESSA 1 11 1 1 1 1 11 1 1 1 1 201: GE^'03G0049^DCW^^00B,SEQUNEOJ,^EOJ^IF^B^'04C0050^B^^^^00B,SEQSKPMOD,^NEXT^MOD^IF^A^'03D0051^B^^^^00B 11 1 1 1 1 11 1 1 1 1 11 1 1 301: SEQINFO,MSTYPEN,^'04I0052^DCW^^00B,SEQREMSG,^REQUEST^RESTART^INFO^'03?0053^BXPA^00B,IOCSCS1SFS,^'05H 1 1 11 1 1 1 1 11 1 1 1 1 11 401: 0054^RCP^^00B,SEQREDO,^READ^CONSOLE^ENTRY^FOR^RESTART^'02I0055^BA1^^00B,IOCSCPERR,^'02I0056^B^^^^00B 1 1 1 1 11 1 1 1 1 11 1 1 501: ,IOCSENTRY,^'04E0057^CW^^^00B,SEQRST1,^CLEAR^FOR^RESTART^'02F0058^NOP^^00BSEQRST,,^'06D0059^B^^^^00B 1 1 11 1 1 1 1 11 1 1 11 11 1 1 601: SEQRST1,SEQAOK,^SET^ON^WHEN^RESTART^MOD^SET^UP^'05H0060^C^^^^00C,FILSTART-6,SEQREDO&1,^CH,ACCESS^AND 1 1 11 1 1 1 1 1 701: ^MOD^'04G0061^BU^^^00B,SEQSKPMOD,^TO^CHECK^NEXT^MOD^'02I0062^SW^^^00B,SEQREDO&2,^'05?0063^C^^^^00C,F 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: ILSTART-2,SEQREDO&5,^CHECK^FOR^'04A0064^BL^^^00B,SEQMES1,^VALID^RESTART^'04F0065^C^^^^00C,FILEND-2,S 1 1 11 1 1 1 1 11 1 1 1 1 901: EQREDO&5,^ADDRESS^'02G0066^BH^^^00B,SEQMES1,^' 1 11 1 1 1 1 1 1: 098D06B0067^MLCB^00C,SEQREDO&5,TRKAD-2,^AT^RESTART^POINT.MV^ADDR^'02G0068^SW^^^00B,SEQRST1,^'02F0069 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^B^^^^00B,SEQAOK,^'04D0070^DCW^^00BSEQNAME,)001,^FILE^TO^SCAN^'04E0071^DCW^^00C^SEQEOFMG,@EOF^^^^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 201: ^^@,G,^'05H0072^DCW^^00C^SEQMODWN,@^^^MOD^DOWN^A^CONT,B^CHOP@,G,^'06B0073^DCW^^00C^SEQINITMG,@SEQUN- 1 1 11 1 1 1 1 1 11 1 1 1 301: -A,CONT^-^B,IF^RESTART@,G,^'07G0074^DCW^^00C^SEQREMSG,@ENT^RESTART^POINT,SUCH^AS^-^@?7884^OR^*32115@ 1 1 11 1 1 1 401: ,G,^'03H0075^DCW^^00C^SEQREDO,@^^^^^^@,G,^'03C0076^DCW^^00BTRKAD,@^^^^^^@,^'03H0077^DCW^^00BFILSTART 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: ,@^^^^^^^^@,^'03F0078^DCW^^00BFILEND,@^^^^^^^^@,^'03F0079^DCW^^00BSEQMUL,@^^^^^^^^@,^'03A0080^DCW^^0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 0BSEQMODS,@^^@,^'03C0081^DCW^^00BSEQTOTMDS,@^^@,^'04A0082^DCW^^00BSEQUNHLD1,@0000000000@,^'04A0083^D 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: CW^^00BSEQUNHLD2,@0000000000@,^'06E0084^DCW^^00C^SEQMES2,@INVALID^RESTART^ADDRESS^-^CHOPPED@,G,^'03D 1 1 1 11 1 1 1 1 1 11 801: 0085^B^^^^00BSEQMES1,MSTYPEN,^'02G0086^DCW^^00B,SEQMES2,^'02D0087^B^^^^00B,)002,^'04G0088^MLC^^00CSE 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: QNEXTMD,FILEND,SEQEOFMG&11,^'02G0089^B^^^^00B,MSTYPEN,^'02H0090^DCW^^00B,SEQEOFMG,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098H05?0091^MLCB^00C,X2,SEQUNHLD2,^SAVE^SEQUN^X1,^X2^'05B0092^MLCA^00C,SEQUNHLD1,X2,^RESTORE^USERS^X 1 1 1 1 1 1 1 11 1 1 1 1 1 101: 1,X2^'05A0093^B^^^^00BSEQMODEOF,*&1,^TO^USER^IF^DESIRED^'05H0094^MLCB^00CSEQSELMOD,X2,SEQUNHLD1,^SAV 11 1 1 1 1 11 1 1 1 1 1 201: E^USERS^X1,X2^'05B0095^MLCA^00C,SEQUNHLD2,X2,^RESTORE^SEQUN^X1,X2^'04B0096^S^^^^00CSEQSKPMOD,@1@,SEQ 11 1 1 1 1 1 11 1 1 1 1 301: TOTMDS,^'02I0097^ZA^^^00B,SEQTOTMDS,^'04H0098^BZ^^^00B,SEQUNEOJ,^EOJ^-^ALL^MODS^DONE^'05C0099^C^^^^0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: 0CSEQCKMOD,X1,SEQMODS,^CHECK^FOR^WRAP^'04B0100^BE^^^00B,SEQFLIP2,^WRAP^IF^EQUAL^'02F0101^A^^^^00C,@1 1 1 1 11 1 1 1 1 11 1 1 1 501: @,X1,^'04B0102^MLN^^00CSEQMVSTR,FILSTART,TRKAD,^'02H0103^B^^^^00B,SEQDKCON,^'06?0104^MLCA^00CSEQUNEO 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: J,SEQUNHLD1,X2,^RESTORE^USERS^X1,X2^'03F0105^B^^^^00B,)002,^TO^USER^EOJ^'05B0106^MLC^^00CSEQFLIP2,@0 1 1 1 11 1 1 1 1 11 1 1 1 701: 0000@,X1,^WRAP^TO^MOD^0^'02H0107^B^^^^00B,SEQMVSTR,^'04?0108^C^^^^00CSEQDVLOP,FILEND,TRKAD,^'02I0109 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: ^BE^^^00B,SEQNEXTMD,^'05F0110^A^^^^00C,SEQINCRMT,TRKAD,^FOR^ADDR^OF^NEXT^TRK^'05H0111^MLCB^00CSEQUEN 1 1 1 11 1 1 1 1 1 11 1 1 901: OUT,X2,SEQUNHLD2,^SAVE^SEQUN^X1,X2^'05B0112^MLCA^00C,SEQUNHLD1,X2,^RESTORE^USERS^X1,X2^' 1 1 1 11 1 1 1 1 1 1 1: 016?03G0113^MLNB^00C,TRKAD-2,IOCSSEKAD,^'03E0114^MLNA^00C,TRKAD,IOCSDSKAD,^'06D0115^MLC^^00CSEQUNLEA 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: V,FILSTART-6,IOCSDSKAD-6,^CHAN,MOD,ARM^'02?0116^MEND^00B,,^' 1 1 1 11 1 1 11 1 1: 002A017HEADER^MSHORT' 1 1 1 1: 022F05G0001^B^^^^00B,SHORTOCALL,^SUBRTN^-CALL^SHORT^OVERLAY^'03G0002^DCW^^00B,)001,^OCALL^NUMBER^'03 1 1 1 1 1 1 11 1 1 1 1 11 101: A0003^BOOL^00?A,)002*)003,,^'03G0004^DCW^^00B,)002,^LOAD^ADDRESS^'04?0005^DCW^^00B,)003,^LENGTH^OF^O 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: CALL^'02?0006AMEND^00B,,^' 11 1 1 11 1 1: 002A017HEADER^MSLING' 1 1 1 1: 009H02E0001^B^^^^00B,SLNGT,^'02D0002^DCW^^00B,)001,^'02E0003AINCLD00B,SLNKK,^'02?0004BMEND^00B,,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MSLURP' 1 1 1 1: 022I02E0001^BOOL^00?A,)001,^'03E0002^COMP^00F,)001,NEW,,)025,,^'02E0003^BOOL^00?A,)025,^'02E0004^CAL 1 1 1 1 1 1 11 1 1 1 1 11 11 11 1 1 1 1 11 1 101: L^00B,SLRPY,^'02E0005^INCLD00B,SLNKK,^'02?0006^MEND^00B,,^'02E0007ACALL^00B,SLRPP,^'02E0008^INCLD00B 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 201: ,SLNKK,^'02?0009^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^MTEST^' 1 1 1 1: 015E02H0001AZA^^^00C,)002,X11,^'03F0002^MLNA^00C,&)001,MSTESTEX&5,^'03I0003^BW^^^00C,MSTESTEN,MSTEST 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: MODE,^'02H0004^INCLD00B,MSTESTEN,^'02?0005^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MTRAP^' 1 1 1 1: 017I05E0001^B^^^^00B,MSTRAPDUMP,^SUBRTN^-^WRITE^CORE^DUMP^'05A0002^DCW^^00B,)001,^START^OF^AREA^TO^B 1 1 1 1 1 1 11 1 1 1 1 101: E^DUMPED^'04I0003^DCW^^00B,)002,^END^OF^AREA^TO^BE^DUMPED^'02?0004^MEND^00B,,^' 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MTRKOP' 1 1 1 1: 099?06I0001^DEBLO00C*^TRKOP^-,CK^RCDS^IN^FULL^TRK^-^VER1,LEV1-09/07/66,^'06I0002^E^SUP00B*^^RCDS^AR, 1 1 1 1 1 1 1 11 1 1 1 101: PLIED^TO^USER^FROM^SECTORS^IN^RA2^ORDER,^'06A0003^AR^RC00B*^FOR^4-CH,D^SIZ^FIELD^USE^4^FOR^PARA^FOUR 1 11 1 1 1 201: ,^'06F0004^AR^RC00B*^FOR^3-CH,D^SIZ^FIELD^DO^NOT^USE^PARA^4^AT^ALL,^'03G0005^MLCB^00CTRACKOP,X12,TRK 1 11 1 1 1 1 11 1 1 1 1 301: WK2,^'03?0006^MLCA^00C,TRKINX,X12,^'02?0007^NOPWM00B,,^'03B0008^B^^^^00BTRKSW1,TRKGET,^'02F0009^SW^^ 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 401: ^00B,TRKSW1,^'02?0010^NOPWM00B,,^'03B0011^B^^^^00BTRKSW2,TRKSET,^'05B0012^SW^^^00B,TRKSW2,^SET^UP^GE 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 501: TS^CONTROL^FIELD^'02I0013^MLCA^00C,&)001,X12,^'03G0014^MLCWA00C,TRKEND,4&X12,^NAME^'05?0015^MLCWS00C 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: ,TRKM,5&X12,^WLR^AND^WRITE^CHECK^'04D0016^MLCWS00C,TRKEND-4,6&X12,^WORD^MARK^'04E0017^MLCWA00C,TRKEN 1 1 1 11 1 1 1 1 1 11 1 1 1 701: D-1,10&X12,^SEEK^ADDR^'04A0018^MLCWS00C,TRKM,11&X12,^MOVE^MODE^'03I0019^MLCS^00C,TRKF,13&X12,^FILE^O 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: P^'05B0020^MLCS^00C,TRK6,14&X12,^TRACK^OP^WITHOUT^HA2^'04E0021^MLCWA00C,TRKEND,20&X12,^SWITCH^ADDR^' 11 1 1 1 1 1 11 1 1 1 1 1 1 901: 04E0022^MLCWS00C,TRKEND-4,21&X12,^WORD^MARK^'04E0023^MLCWS00C,TRKEND-4,22&X12,^WORD^MARK^' 1 1 1 1 1 1 11 1 1 1 1 1 1 1: 098I05I0024^MLZS^00C,*,TRKINDCK1&11,^CHG^DOLLAR^TO^POUND^SIGN^'03I0025^MLZS^00C,*,TRKINDCK2&11,^SAME 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^'05I0026^MLCB^00CTRKSET,IOCSDSKAD-2,)001&26,^ACC,MOD,TRACK^'04D0027^MLCS^00C,IOCSDSKAD-7,)001&12,^C 11 1 1 1 1 1 11 1 1 1 1 1 201: HAN^'05A0028^MLCA^00C,TRKHA2,)001&28,^HA2^OF^ZERO,ZERO^'04?0029^MLCWS00C,TRKR,)001&15,^READ^OP^'03I0 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 030^MLNS^00C,TRKR,)001&21,^CODE^9^'04G0031^PS^FO00B*^GETS^STE,LLOW^TO^READ^DISK,^'04D0032^MLCA^00CTR 1 1 1 1 11 1 1 1 1 11 1 1 401: KGETS,&TRKGETSW,)001&20,^'02I0033^MLCA^00C,&)001,X14,^'03?0034^MLCA^00C,20&X14,*&6,^'02A0035^SW^^^00 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: B,0,^'02G0036^MLZS^00C,*-1,X13,^'03?0037^BXPA^00B,IOCSRELARM,^'02?0038^NOP^^00B,,^'02H0039^NOP^^00BT 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 601: RKGETSW,,^'03C0040^BW^^^00C,IOCSGETS,*-12,^'03A0041^^STEP00B*^END^GETS,S,^'03H0042^MLCA^00CTRKENT2,& 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: )001,TRKX1,^'03A0043^A^^^^00C,TRK30,TRKX1,^'04F0044^MLCA^00C,TRKX1,TRKX2,^START^OF^TRACK^'04A0045^ML 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 801: CA^00C,TRKX2,X12,^X11^AND^X12^'05?0046^MLCS^00CTRKENT3,)001&12,TRKCHAN,^CHANNEL^'05I0047^MLCB^00CTRK 1 1 1 1 11 1 1 1 1 1 11 1 1 901: ENT4,)001&26,TRKADDR,^ACCESS^AND^TRACK^'04I0048^MLCB^00C,X12,TRKINX,^SAVE^TRKOP^X11,X12^' 1 1 1 11 1 1 1 1 1 1 1: 097B05B0049^MLCA^00C,TRKWK2,X12,^RESTORE^USERS^X11,X12^'05E0050^B^^^^00BTRKTRKEXT,*&1,^EXIT^TO^USER^ 1 1 1 1 1 1 1 11 1 1 1 1 101: FOR^TRACK^'04I0051^MLCB^00C,X12,TRKWK2,^SAVE^USERS^X11,X12^'05B0052^MLCA^00C,TRKINX,X12,^RESTORE^TRK 11 1 1 1 1 1 11 1 1 1 1 1 201: OP^X11,X12^'03A0053^A^^^^00C,TRK1430,X12,^'05A0054^MLNA^00C,X12,TRKEND,^END^OF^DATA^PLUS^ONE^'03D005 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 5^B^^^^00B,TRKSEC,^SECTOR1^'05G0056^MLCWS00CTRKENT7,TRKSAVE,)001&1461,^RESTORE^CHAR^'05C0057^MLCA^00 1 1 1 11 1 1 1 1 1 11 1 1 401: CTRKNX2,TRKX2,X12,^RESET^X11^AND^X12^'04?0058^A^^^^00C,TRK4293,X11,^SECTOR^2^'03A0059^A^^^^00C,TRK42 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 93,X12,^'07D0060^BCE^^00DTRKINDCK1,TRKIND,1430&X11,$,^PREVIOUSLY^CHGD^TO^POUND^SI^'05I0061^BCE^^00D, 1 1 11 1 1 1 1 1 1 11 1 1 1 601: TRKIND,1430&X11,$,^IF^ZONED^FOR^OVERFLOW^'03A0062^A^^^^00C,TRK1427,X12,^'02H0063^B^^^^00B,TRKTSEC2,^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 701: '03G0064^A^^^^00CTRKIND,TRK1430,X12,^'05I0065^MLNA^00CTRKTSEC2,X12,TRKEND,^END^OF^DATA^PLUS^ONE^'03H 11 1 1 1 1 1 11 1 1 1 1 1 11 801: 0066^B^^^^00B,TRKSEC,^TO^SECTOR^2^'04G0067^MLCA^00C,TRKX2,X12,^RESET^X11^AND^X12^'04C0068^A^^^^00C,T 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: RK2862,X11,^TO^SECTOR^3^'04G0069^A^^^^00C,TRK4292,X12,^END^OF^SECTOR^3^' 1 1 11 1 1 1 1 1 1 1: 098A05A0070^MLNA^00C,X12,TRKEND,^END^OF^DATA^PLUS^ONE^'02F0071^B^^^^00B,TRKSEC,^'05G0072^MLCWS00CTRK 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: ENT8,TRKSAVE,)001&4323,^RESTORE^CHAR^'03E0073^MLCA^00C,TRKX2,X12,^RESET^'04C0074^A^^^^00C,TRK1431,X1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: 1,^TO^SECTOR^4^'03A0075^A^^^^00C,TRK1431,X12,^'07D0076^BCE^^00DTRKINDCK2,TRKIND2,1430&X11,$,^PREVIOU 1 11 1 1 1 1 1 11 1 1 1 1 1 1 301: SLY^CHGD^TO^POUND^S^'06?0077^BCE^^00D,TRKIND2,1430&X11,$,^IF^ZONED^FOR^OVERFLOW^'03A0078^A^^^^00C,TR 11 1 1 1 1 1 1 11 1 1 1 401: K1427,X12,^'02H0079^B^^^^00B,TRKTSEC4,^'03H0080^A^^^^00CTRKIND2,TRK1430,X12,^'05I0081^MLNA^00CTRKTSE 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 501: C4,X12,TRKEND,^END^OF^DATA^PLUS^ONE^'02F0082^B^^^^00B,TRKSEC,^'05G0083^MLCWS00CTRKENT9,TRKSAVE,)001& 1 1 1 11 1 1 1 1 11 1 1 1 1 601: 2892,^RESTORE^CHAR^'02F0084^CW^^^00B,TRKSW1,^'05?0085^MLCA^00C,TRKWK2,X12,^RESTORE^X11^AND^X12^'04?0 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: 086^B^^^^00B,)003,^TO^GET^NEXT^TRK^'03?0087^DCW^^00BTRKGMWM,@"@,^'02I0088^DC^^^00BTRKWK1,@^@,^'03?00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 89^DC^^^00BTRKSAVE,@^@,^'02I0090^DC^^^00BTRKWLR,@W@,^'03A0091^DC^^^00BTRKBLNSW,@N@,^'02F0092^BOOL^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: ?A,)004,,^'04D0093^DCW^^00BTRKSIZ,@^^^^@,^4-CHAR^SIZE^'02F0094^BOOL^00?B,)005,,^' 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098?04C0095ADCW^^00BTRKSIZ,@^^^@,^3-CHAR^SIZE^'03B0096BDCW^^00BTRKBLK,@^^^^@,^'03B0097^DCW^^00BTRKX1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: ,@^^^^^@,^'03B0098^DC^^^00BTRKX2,@^^^^^@,^'03C0099^DCW^^00BTRKEND,@^^^^^@,^'03D0100^DCW^^00BTRKEND2, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: @^^^^^@,^'03B0101^DCW^^00BTRKX7,@^^^^^@,^'05H0102^DCW^^00BTRKRCD,@^^^^^@,^SAVE^ADDR^OF^CURRENT^RCD^' 1 11 1 1 1 1 11 1 1 1 1 1 301: 03H0103^DCW^^00BTRKINX,@^^^^^^^^^^@,^'03H0104^DCW^^00BTRKWK2,@^^^^^^^^^^@,^'02G0105^DCW^^00BTRKF,@F@ 1 1 1 1 1 11 1 1 1 1 11 1 1 1 401: ,^'02G0106^DCW^^00BTRKM,@M@,^'02G0107^DCW^^00BTRKR,@R@,^'02G0108^DCW^^00BTRK4,@4@,^'02G0109^DCW^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: TRK6,@6@,^'02I0110^DCW^^00BTRK10,@10@,^'02I0111^DCW^^00BTRK30,@30@,^'03C0112^DCW^^00BTRK1427,@1427@, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ^'03C0113^DCW^^00BTRK1430,@1430@,^'03C0114^DCW^^00BTRK1431,@1431@,^'03C0115^DCW^^00BTRK2862,@2862@,^ 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: '03C0116^DCW^^00BTRK4292,@4292@,^'03C0117^DCW^^00BTRK4293,@4293@,^'03A0118^DCW^^00BTRKCNT,@CNT@,^'03 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: B0119^DCW^^00BTRKKADR,@ADR@,^'03B0120^DCW^^00BTRKKEND,@END@,^'04E0121^DCW^^00BTRKBLN3,@^^^@,^THREE^B 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: LANKS^'04C0122^DCW^^00B^TRKBLKMG,@BAD^BLK^CNT^@,^'03?0123^DCW^^00BTRKCHAN,@^@,^' 11 1 1 1 1 11 1 1 1 1 1 1: 095E03D0124^DCW^^00BTRKADDR,@^^^^^@,^'03B0125^DCW^^00CTRKRA2,@^^@,G,^'03?0126^DCW^^00BTRKHA2,@00@,^' 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 101: 05E0127^SCNRM00CTRKPOSEND,0&X11,0&X11,^END^OF^BLK^CHK^'02G0128^SAR^^00B,TRKEND2,^'03D0129^C^^^^00C,T 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 201: RKEND,TRKEND2,^'02H0130^BL^^^00B,TRKTOEND,^'02H0131^B^^^^00B,TRKATEND,^'04G0132^A^^^^00CTRKTOEND,TRK 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 10-1,X11,^ADD^ONE^'02H0133^SW^^^00B,TRKBLNSW,^'04I0134^BCE^^00D,TRKTOEND,0&X11,,^CHK^NEXT^CHAR^'02I0 1 1 11 1 1 1 1 11 1 1 1 1 11 11 1 401: 135^B^^^^00B,TRKGET&12,^'03F0136^CW^^^00BTRKATEND,TRKBLNSW,^'02F0137^ZA^^^00B,TRKBLK,^'02F0138^BZ^^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 00B,TRKEXT,^'03H0139^MLCA^00C,TRKCNT,TRKBLKMG&10,^'02I0140^B^^^^00B,TRKBADCNT,^'02G0141^B^^^^00BTRKE 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: XT,0,^'04?0142^SBR^^00BTRKBADCNT,TRKMG1EXT&5,^'04C0143^B^^^^00B,MSTYPEN,^BAD^BLK^CNT^MSG^'02H0144^DC 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: W^^00B,TRKBLKMG,^'03?0145^B^^^^00BTRKMG1EXT,0,^'03D0146^SBR^^00BTRKSEC,TRKEXT&5,^'03F0147^MLCWS00C,1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 431&X11,TRKSAVE,^'03F0148^MLCWS00C,TRKGMWM,1431&X11,^'04I0149^MLCB^00C,X12,TRKINX,^SAVE^TRKOP^X11,X1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 901: 2^'05B0150^MLCA^00C,TRKWK2,X12,^RESTORE^USERS^X11,X12^' 11 1 1 1 1 1 1 1: 094G05F0151^B^^^^00BTRKSECEXT,*&1,^EXIT^TO^USER^FOR^SECTOR^'04I0152^MLCB^00C,X12,TRKWK2,^SAVE^USERS^ 1 1 1 1 1 1 11 1 1 1 1 1 101: X11,X12^'05B0153^MLCA^00C,TRKINX,X12,^RESTORE^TRKOP^X11,X12^'02H0154^CW^^^00B,TRKBLNSW,^'03B0155^MLC 11 1 1 1 1 1 11 1 1 1 1 11 1 201: B^00C,5&X11,TRKRA2,^'04E0156^MLCB^00C,3&X11,TRKBLK,^TO^CHECK^RA1^'03D0157^C^^^^00C,TRKADDR,TRKBLK,^' 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 301: 02G0158^BE^^^00B,TRKCKOV,^'03I0159^MLCA^00C,TRKKADR,TRKBLKMG&10,^'04C0160^B^^^^00B,TRKBADCNT,^BAD^BL 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: OCK^MSG^'03I0161^MLNS^00CTRKCKOV,0&X12,TRKWK1,^'03I0162^MLCA^00C,TRKKEND,TRKBLKMG&10,^'05?0163^BCE^^ 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: 00D,TRKBADCNT,TRKWK1,,^BAD^IF^BLANK^'05C0164^BCE^^00D,TRKCB,0-1&X12,,^OK^IF^END^IS^BLANK^'02?0165^BC 1 1 1 11 11 1 1 1 1 11 11 1 601: E^^00B,,^'05C0166^BCE^^00D,TRKCB,0-1&X12,',^OK^IF^END^IS^RCMK^'02?0167^BCE^^00B,,^'03I0168^MLCA^00C, 1 11 11 1 1 1 1 1 1 11 1 1 11 11 1 1 1 701: TRKKEND,TRKBLKMG&10,^'02I0169^B^^^^00B,TRKBADCNT,^'05H0170^MLCB^00CTRKCB,9&X11,TRKBLK,^TO^CHECK^BLOC 1 1 11 1 1 1 1 11 1 1 1 1 1 801: K^COUNT^'05E0171^A^^^^00C,TRK10,X11,^INCREMENT^TO^FIRST^RECORD^'02F0172^ZA^^^00B,TRKBLK,^'02F0173^BZ 11 1 1 1 1 1 11 1 1 1 1 11 1 901: ^^^00B,TRKGET,^'03A0174^S^^^^00C,TRK4,TRKBLK,^' 1 1 1 11 1 1 1 1 1 1 1: 095H06B0175^BCE^^00DTRKGET,TRKPOSEND,0&X11,,^MAY^BE^END^IF^BLANK^'02E0176^MLZS^00C,*,X11,^'03?0177^C 1 1 1 1 1 1 11 11 1 1 1 1 1 11 1 101: ^^^^00C,TRKEND,X11,^'02H0178^BE^^^00B,TRKATEND,^'02H0179^BH^^^00B,TRKATEND,^'03D0180^S^^^^00B,TRKX7, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ^ZERO^OUT^'02I0181^S^^^^00C,X11,TRKX7,^'05E0182^MLNB^00C,X11,TRKRCD,^SAVE^ADDR^OF^CURRENT^RCD^'03?01 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 83^MRCM^00C,0&X11,)002,^'02C0184^SAR^^00B,X11,^'04H0185^A^^^^00C,X11,TRKX7,^GENERATE^TRUE^SIZE^'03B0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: 186^MLNB^00C,TRKX7,TRKSIZ,^'02F0187^CW^^^00B,TRKWLR,^'02F0188^BOOL^00?C,)004,,^'04E0189^C^^^^00C,)00 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 501: 2&3,TRKSIZ,^4-CHAR^SIZE^'02F0190^BOOL^00?D,)005,,^'04E0191CC^^^^00C,)002&2,TRKSIZ,^3-CHAR^SIZE^'03H0 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 601: 192DBE^^^00B,TRKSIZOK,^WLR^CHECK^'02F0193^SW^^^00B,TRKWLR,^'06B0194^S^^^^00CTRKSIZOK,TRKSIZ,TRKBLK,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 701: RCD^SIZ^FROM^BLK^CNT^'03I0195^MLCA^00C,TRKBLN3,TRKBLKMG&10,^'03H0196^BW^^^00C,TRKBADCNT,TRKBLNSW,^'0 11 1 1 1 1 1 11 1 1 1 1 1 11 801: 5F0197^MLCB^00C,X12,TRKINX,^SAVE^X11^AND^X12^SETTINGS^'05?0198^MLCA^00C,TRKWK2,X12,^RESTORE^X11^AND^ 1 1 1 1 1 11 1 1 1 1 1 901: X12^'03C0199^NOP^^00BTRKLV,,^TO^USER^'02?0200^MEND^00B,,^' 11 1 1 11 11 1 1 11 1 1: 002A017HEADER^MUPDAT' 1 1 1 1: 005D03?0001^B^^^^00B,SCANUPDATE,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MVARET' 1 1 1 1: 036C02F0001^BOOL^00?A,)004,,^'03B0002^SW^^^00B,MSLOCDITTO&1,^'02I0003AZA^^^00C,&)001,X15,^'02I0004^M 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 11 1 101: LC^^00C,&)003,X12,^'02H0005^MLC^^00C,)002,X13,^'02G0006^BOOL^00?D,-)007,,^'02I0007^CALL^00B,MSVARETE 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 201: N,^'02H0008BINCLD00B,MSLCATEN,^'02E0009^BOOL^00?E,)007,^'02I0010DCALL^00B,MSVBRETEN,^'02I0011^INCLD0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0B,MSLODATEN,^'02H0012EINCLD00B,MSTESTEN,^'02?0013^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^MWLRTN' 1 1 1 1: 094A02I0001^SBR^^00B,WLREXIT&5,^'03I0002^MLCA^00C,WLRLINK2,WLRFILE&10,^'03B0003^MLCA^00C,WLRLINK1,X1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: 4,^'03F0004^MLCB^00C,WLRJUG&9,WLRUNIT,^'03E0005^MLCS^00C,WLRJUG&1,WLRARG,^'02H0006^MLCS^00B,WLRJUG&3 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: ,^'03E0007^LLE^^00CWLRFILE,WLRARG,0,^'02C0008^SBR^^00B,X15,^'02I0009^MLCB^00C,0&X15,X15,^'03E0010^ML 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: NB^00C,WLRTBC,WLRBLOCK,^'03C0011^A^^^^00C,*-10,WLRBLOCK,^'03F0012^MLCB^00C,WLRHCD,WLRFILEID,^'02G001 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 3^B^^^^00B,MSTYPEN,^'02F0014^DCW^^00B,WLRMSG,^'02G0015^B^^^^00B,MSDECEN,^'02I0016^DCW^^00B,WLROPTION 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: ,^'02I0017^DCW^^00B,WLRBYPASS,^'02H0018^B^^^^00BWLREXIT,0,^'04C0019^A^^^^00CWLRBYPASS,WLR7,WLREXIT&5 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ,^'02G0020^B^^^^00B,WLREXIT,^'02G0021^DCW^^00BWLR7,@7@,^'03B0022^DCW^^00BWLRERAD,00000,^'02H0023^DCW 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: ^^00BWLRARG,00,^'03I0024^DCW^^00B^WLRMSG,@3TP01^WLR^@,^'03I0025^DCW^^00BWLRUNIT,@^^^^^^^^^^@,^'02I00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 26^DCW^^00B,@^BLOCK^@,^'03E0027^DCW^^00BWLRBLOCK,@^^^^^@,^'02D0028^DCW^^00B,@,^@,^'05H0029^DCW^^00CW 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: LRFILEID,@^^^^^^^^^^^^^^^^^^^^^^^^^@,G,^' 1 1 1 1 1: 018G06H0030^DCW^^00C^WLROPTION,@OPTION^A-PROCESS^WLR,^B-BYPASS^WLR@,G,^'03A0031^EQU^^00BWLRJUG,0&X14 1 1 1 1 1 1 1 11 1 1 1 101: ,^'03B0032^EQU^^00BWLRTBC,83&X15,^'03B0033^EQU^^00BWLRHCD,68&X15,^'02?0034^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^M99999' 1 1 1 1: 002A017HEADER^SMSDBK' 1 1 1 1: 097I03?0001^SBR^^00BMSDBKEN,X12,^'02G0002^MLZS^00C,*-1,X12,^'02?0003^NOPWM00B,,^'04G0004^B^^^^00B,MS 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 101: DBLCKADJ,^TEST^OFLOW^ENTRY^'06D0005^MLC^^00C,35&X12,MSHOLDFIXR&10,^PREPARE^TO^SAVE^FILE^IN^'04C0006^ 1 11 1 1 1 1 1 11 1 201: ZA^^^00C,12&X12,X15,^DTF^LOCATION^'05?0007^ZA^^^00C,19&X15,X15,^X15^FILE^INDEX^ADDR^'05C0008^ZA^^^00 1 1 1 1 11 1 1 1 1 1 11 1 1 301: C,0&X15,X14,^X14^CONTENTS^OF^FILE^IN^'05I0009^CW^^^00C,MSDELETESW,MSDBLCKPUT,^SET^OFF^DELETE^SW^'05H 1 1 1 11 1 1 1 1 1 11 401: 0010^MLC^^00C,0-2&X14,MSDBWLRNT&16,^ACC,MOD,TRACK,RA2^'04H0011^MLCS^00C,0-18&X14,MSDBWLRNT&9,^CHANNE 1 1 1 1 1 11 1 1 1 1 1 501: L^'05I0012^MLN^^00CMSHOLDFIXR,X14,0,^SAVE^FILE^INDEX^FOR^USE^'04F0013^ZA^^^00C,X14,X13,^AND^FOR^OSP^ 11 1 1 1 1 1 11 1 1 1 1 1 601: IN^X13^'03?0014^CW^^^00B,MSDBLCKWLR,^'04I0015^A^^^^00C,&4,X13,^SKIP^BLOCK^CNT^IN^FILE^'06D0016^MLCA^ 11 1 1 1 1 11 1 1 1 1 1 11 1 701: 00C,30&X12,MSDBLCKCOM&10,^PREPARE^TO^COMPARE^KEYS^'05G0017^MLNA^00C,38&X12,MSDBLCKCOM&5,^RELATIVE^PO 1 1 1 1 11 1 1 1 1 1 801: SITION^'03G0018^ZA^^^00CMSDBXRINIT,X13,X11,^'04F0019^MLCB^00CMSDBLCKREP,2&X13,MSDBRECLEN,^'03D0020^A 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: ^^^^00C,MSDBRECLEN,X11,^'03?0021^ZA^^^00B,MSDBRECLEN,^'02D0022^BZ^^^00B,*&13,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 094C04?0023^BCE^^00D,MSDBLCKCOM,0-1&X11,',^'05C0024^ZA^^^00C,3&X14,MSDBHOLD,^CHECK^FOR^AN^EMPTY^'03E 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: 0025^BZ^^^00B,MSDBLKNRF,^BLOCK^'04F0026^S^^^^00C,&4,MSDBHOLD,^IF^EMPTY,^TAKE^'03I0027^BZ^^^00B,MSDBL 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: KNRF,^NRF^^EXIT^'03F0028^MRCWG00C,X10&1,MSDBINDSAV,^'04F0029^MLN^^00C,X14,MSDBWLRNT&22,^DRHA^ADDR^'0 1 11 1 1 1 1 1 11 1 1 1 1 1 11 301: 2G0030^B^^^^00B,MSDECEN,^'02I0031^DCW^^00B,MSDBWLRNT,^'03?0032^DCW^^00B,MSDBWLREXB,^'03F0033^MRCWG00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: C,MSDBINDSAV,X10&1,^'03C0034^B^^^^00B,MSHOLDFIXR&12,^'04?0035^SW^^^00BMSDBWLREXB,MSDBLCKWLR,^'03F003 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 6^MRCWG00C,MSDBINDSAV,X10&1,^'02I0037^MLN^^00C,X14,0&X15,^'02F0038^B^^^^00B,39&X12,^'06I0039^C^^^^00 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: CMSDBLKNRF,MSDBCHAN,MSDBCHAN,^FORCE^EQUAL^COMP^BELOW^'02G0040^B^^^^00B,MSDBFRB,^'06A0041^C^^^^00CMSD 1 1 1 11 1 1 1 1 11 1 1 701: BLCKCOM,0&X13,0,^COMP^DRHA^TO^USER^FIELD^'03?0042^BU^^^00B,MSDBLCKALT,^'05C0043^ZA^^^00C,X13,0&X15,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 801: SET^FILE^INDEX^TO^REC^A^'03C0044^MLCB^00C,X15,MSDBINDEX,^'03I0045^B^^^^00B,46&X12,^EXIT^TO^USER^'04F 11 1 1 1 1 1 11 1 1 1 1 11 901: 0046^MLC^^00CMSDBLCKALT,2&X13,MSDBRECLEN,^' 1 1 1 1 1 1 1: 096?05H0047^A^^^^00C,MSDBRECLEN,X13,^ADD^REC^LEN^TO^X14^NEXT^'05F0048^ZA^^^00C,X14,MSDBHOLD&1,^START 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^BLOCK^ADDR^PLUS^'04I0049^A^^^^00C,3&X14,MSDBHOLD&1,^BLOCK^LENGTH^'05?0050^C^^^^00C,MSDBHOLD&1,X13,^ 11 1 1 1 1 1 11 1 1 1 1 1 201: IS^END^OF^BLOCK^'03?0051^BL^^^00B,MSDBLCKREP,^'06I0052^MLCA^00CMSDBFRB,0-2&X14,MSDBRECADR,^SAVE^RECO 11 1 1 1 1 11 1 1 1 1 1 301: RD^ADDR^AND^CH^'06F0053^BBE^^00DMSDBACC1,MSDBLZONE,0-9&X14,1,^CHECK^FOR^ACCESS^1^'05E0054^MLCS^00C,0 11 1 1 1 1 1 1 11 1 1 1 401: -18&X14,MSDBCHAN,^FROM^DRHA^CONTROL^'05C0055^MLN^^00C,X14,0&X15,^RESTORE^FILE^INDEX^CONT^'02I0056^BE 1 1 11 1 1 1 1 1 11 1 501: ^^^00B,MSDBOFCHK,^'04C0057^MLCA^00C,MSDBRECADR,MSDRHAWLR&18,^'02?0058^MLCA^00B,,^'02H0059^MLCA^00B,M 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 601: SDBCHAN,^'03F0060^MRCWG00C,X10&1,MSDBINDSAV,^'02G0061^B^^^^00B,MSTYPEN,^'02I0062^DCW^^00B,MSDRHAWLR, 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: ^'03F0063^MRCWG00C,MSDBINDSAV,X10&1,^'06D0064^BZN^^00DMSDBOFCHK,*&8,1424&X14,-,^IS^THERE^AN^OVERFLOW 11 1 1 1 1 1 11 1 1 1 1 1 1 801: ^'05E0065^B^^^^00B,39&X12,^IF^NO^EXIT^TO^USER^NOT^FOUND^'06F0066^BCE^^00D,MSNEXTREC,1424&X14,$,^IS^T 11 1 1 1 1 11 1 1 1 1 1 1 901: HERE^AN^OVERFLOW^TO^N^'03G0067^MLNB^00C,1424&X14,MSDBHOLD,^' 11 1 1 1 1 1 1 1: 095D04F0068^A^^^^00CMSNEXTREC,@25@,MSDBRECADR,^0^'04C0069^NOPWM00B,,^IF^WM^SET^BY^DUP^MACRO^'05G0070 1 1 1 1 1 1 1 11 1 1 11 11 1 101: ^B^^^^00BMSDBLCKPUT,MSDBAUXPUT,^WRITE^OUT^BLOCKS^'05D0071^MLCB^00C,MSDBRECADR,IOCSDSKAD,^SET^SEEK^AD 1 1 1 11 1 1 1 1 1 201: DR^'02H0072^MLCB^00B,MSDBHOLD,^'04I0073^B^^^^00B,0&X12,^BRANCH^TO^AUX^PUT^IN^MA^'06G0074^BBE^^00DMSD 11 1 1 1 1 11 1 1 1 1 11 1 1 301: BLZONE,MSDBACC1&12,0-9&X14,8,^GO^BACK^IF^WAS^9^'03E0075^MLZS^00C,*-11,MSDBCHAN&1,^'03A0076^B^^^^00B, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: MSDBACC1&12,^'03G0077^S^^^^00CMSDBLCKADJ,&26,X12,^'03?0078^CW^^^00B,MSDBKEN&20,^'03?0079^B^^^^00B,MS 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 501: DBKEN&27,^'05?0080^BW^^^00CMSDBAUXPUT,MSTESTENT,MSTESTMODE,^'04C0081^BW^^^00C,MSDBLCKPUT&7,MSTESTMOD 1 11 1 1 1 1 1 11 1 1 1 1 601: E,^'05B0082^MLC^^00C,12&X12,*&13,^MODIFY^FILE^DTF^ADDR^'04F0083^BXPA^00B,IOCSPUT,^WRITE^CURRENT^DRHA 1 11 1 1 1 1 1 11 1 1 1 1 701: ^'02?0084^NOP^^00B,,^'02B0085^DC^^^00B,#5,^'03B0086^B^^^^00B,MSDBLCKPUT&7,^'03B0087^DCW^^00BMSDBRECL 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: EN,#3,^'05C0088^DC^^^00BMSDELETESW,#1,^USED^WITH^DUPL^MACRO^'05A0089^DCW^^00BMSDBCHAN,#1,^CHANNEL^OF 1 1 11 1 1 1 1 11 1 1 1 1 901: ^SEEK^ADDR^'04B0090^DCW^^00B,#1,^ARM^OF^SEEK^ADDRESS^' 11 1 1 1 1 1 1: 034A04G0091^DCW^^00BMSDBHOLD,#4,^HA2^OF^SEEK^ADDR^'04I0092^DC^^^00BMSDBRECADR,#2,^HA1^OF^SEEK^ADDR^' 1 1 1 1 1 1 11 1 1 1 1 1 101: 03B0093^DC^^^00BMSDBINDEX,#19,^'03E0094^DA^^^00CMSDBINDSAV,5X5,G,^'07?0095^DCW^^00C^MSDBWLRNT,@DRHA^ 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: WLR^CMTTTTRR/00000,A-PROC,B-NRF@,G,^'03A0096^DC^^^00BMSDBLCKWLR,0,^'05C0097^DCW^^00C^MSDRHAWLR,@BLK^ 1 1 11 1 1 1 1 11 1 1 1 301: CNT^ER^00000000@,G,^'02?0098^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^SMSDBM' 1 1 1 1: 098B03?0001^SBR^^00BMSDBMEN,X12,^'02G0002^MLZS^00C,*-1,X12,^'02?0003^NOPWM00B,,^'04G0004^B^^^^00B,MS 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 101: DBLCKADJ,^TEST^OFLOW^ENTRY^'06C0005^MLC^^00C,35&X12,MSHOLDFIXR&10,^PREPARE^TO^SAVE^FILE^I^'04C0006^Z 1 11 1 1 1 1 1 11 1 201: A^^^00C,12&X12,X15,^DTF^LOCATION^'05?0007^ZA^^^00C,19&X15,X15,^X15^FILE^INDEX^ADDR^'05C0008^ZA^^^00C 1 1 1 1 11 1 1 1 1 1 11 1 1 301: ,0&X15,X14,^X14^CONTENTS^OF^FILE^IN^'05I0009^CW^^^00C,MSDELETESW,MSDBLCKPUT,^SET^OFF^DELETE^WS^'05H0 1 1 1 11 1 1 1 1 1 11 1 401: 010^MLC^^00C,0-2&X14,MSDBWLRNT&16,^ACC,MOD,TRACK,RA2^'04H0011^MLCS^00C,0-18&X14,MSDBWLRNT&9,^CHANNEL 1 1 1 1 11 1 1 1 1 1 501: ^'05I0012^MLN^^00CMSHOLDFIXR,X14,0,^SAVE^FILE^INDEX^FOR^USE^'04F0013^ZA^^^00C,X14,X13,^AND^FOR^OSP^I 11 1 1 1 1 1 11 1 1 1 1 1 601: N^X13^'03?0014^CW^^^00B,MSDBLCKWLR,^'04I0015^A^^^^00C,&4,X13,^SKIP^BLOCK^CNT^IN^FILE^'06D0016^MLCA^0 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: 0C,30&X12,MSDBLCKCOM&10,^PREPARE^TO^COMPARE^KEYS^'05G0017^MLNA^00C,38&X12,MSDBLCKCOM&5,^RELATIVE^POS 1 1 1 11 1 1 1 1 1 801: ITION^'03G0018^ZA^^^00CMSDBXRINIT,X13,X11,^'05?0019^MLCB^00CMSDBLCKREP,3&X13,MSDBRECLEN,^***^'03D002 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: 0^A^^^^00C,MSDBRECLEN,X11,^'03?0021^ZA^^^00B,MSDBRECLEN,^'02D0022^BZ^^^00B,*&13,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 094G04?0023^BCE^^00D,MSDBLCKCOM,0-1&X11,',^'05C0024^ZA^^^00C,3&X14,MSDBHOLD,^CHECK^FOR^AN^EMPTY^'03E 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: 0025^BZ^^^00B,MSDBLKNRF,^BLOCK^'04F0026^S^^^^00C,&4,MSDBHOLD,^IF^EMPTY,^TAKE^'03H0027^BZ^^^00B,MSDBL 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: KNRF,^NRF^EXIT^'03F0028^MRCWG00C,X10&1,MSDBINDSAV,^'04F0029^MLN^^00C,X14,MSDBWLRNT&22,^DRHA^ADDR^'02 1 11 1 1 1 1 1 11 1 1 1 1 1 11 301: G0030^B^^^^00B,MSDECEN,^'02I0031^DCW^^00B,MSDBWLRNT,^'03?0032^DCW^^00B,MSDBWLREXB,^'03F0033^MRCWG00C 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: ,MSDBINDSAV,X10&1,^'03C0034^B^^^^00B,MSHOLDFIXR&12,^'04?0035^SW^^^00BMSDBWLREXB,MSDBLCKWLR,^'03F0036 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^MRCWG00C,MSDBINDSAV,X10&1,^'02I0037^MLN^^00C,X14,0&X15,^'02F0038^B^^^^00B,39&X12,^'07?0039^C^^^^00C 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: MSDBLKNRF,MSDBCHAN,MSDBCHAN,^FORCE^EQUAL^COMP^BE^WOL^'02G0040^B^^^^00B,MSDBFRB,^'06A0041^C^^^^00CMSD 1 1 1 11 1 1 1 1 11 1 1 701: BLCKCOM,0&X13,0,^COMP^DRHA^TO^USER^FIELD^'03?0042^BU^^^00B,MSDBLCKALT,^'05C0043^ZA^^^00C,X13,0&X15,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 801: SET^FILE^INDEX^TO^REC^A^'03C0044^MLCB^00C,X15,MSDBINDEX,^'03I0045^B^^^^00B,46&X12,^EXIT^TO^USER^'05? 11 1 1 1 1 1 11 1 1 1 1 11 901: 0046^MLC^^00CMSDBLCKALT,3&X13,MSDBRECLEN,^***^' 1 1 1 1 1 1 1: 096?06A0047^A^^^^00C,MSDBRECLEN,X13,^ADD^REC^LEN^TO^X14^NEX^^^T^'05F0048^ZA^^^00C,X14,MSDBHOLD&1,^ST 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ART^BLOCK^ADDR^PLUS^'04I0049^A^^^^00C,3&X14,MSDBHOLD&1,^BLOCK^LENGTH^'05?0050^C^^^^00C,MSDBHOLD&1,X1 11 1 1 1 1 1 11 1 1 1 1 201: 3,^IS^END^OF^BLOCK^'03?0051^BL^^^00B,MSDBLCKREP,^'06I0052^MLCA^00CMSDBFRB,0-2&X14,MSDBRECADR,^SAVE^R 1 11 1 1 1 1 11 1 1 1 1 1 301: ECORD^ADDR^AND^CH^'06F0053^BBE^^00DMSDBACC1,MSDBLZONE,0-9&X14,1,^CHECK^FOR^ACCESS^1^'05E0054^MLCS^00 11 1 1 1 1 1 1 11 1 1 401: C,0-18&X14,MSDBCHAN,^FROM^DRHA^CONTROL^'05C0055^MLN^^00C,X14,0&X15,^RESTORE^FILE^INDEX^CONT^'02I0056 1 1 1 11 1 1 1 1 1 11 1 501: ^BE^^^00B,MSDBOFCHK,^'04C0057^MLCA^00C,MSDBRECADR,MSDRHAWLR&18,^'02?0058^MLCA^00B,,^'02H0059^MLCA^00 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 601: B,MSDBCHAN,^'03F0060^MRCWG00C,X10&1,MSDBINDSAV,^'02G0061^B^^^^00B,MSTYPEN,^'02I0062^DCW^^00B,MSDRHAW 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: LR,^'03F0063^MRCWG00C,MSDBINDSAV,X10&1,^'06D0064^BZN^^00DMSDBOFCHK,*&8,1424&X14,-,^IS^THERE^AN^OVERF 1 11 1 1 1 1 1 11 1 1 1 1 1 1 801: LOW^'05E0065^B^^^^00B,39&X12,^IF^NO^EXIT^TO^USER^NOT^FOUND^'06C0066^BCE^^00D,MSNEXTREC,1424&X14,$,^I 11 1 1 1 1 11 1 1 1 1 1 1 901: S^THERE^AN^OVERFLOW^T^'03G0067^MLNB^00C,1424&X14,MSDBHOLD,^' 11 1 1 1 1 1 1 1: 099?04F0068^A^^^^00CMSNEXTREC,@25@,MSDBRECADR,^0^'04C0069^NOPWM00B,,^IF^WM^SET^BY^DUP^MACRO^'05G0070 1 1 1 1 1 1 1 11 1 1 11 11 1 101: ^B^^^^00BMSDBLCKPUT,MSDBAUXPUT,^WRITE^OUT^BLOCKS^'05D0071^MLCB^00C,MSDBRECADR,IOCSDSKAD,^SET^SEEK^AD 1 1 1 11 1 1 1 1 1 201: DR^'02H0072^MLCB^00B,MSDBHOLD,^'04I0073^B^^^^00B,0&X12,^BRANCH^TO^AUX^PUT^IN^MA^'06G0074^BBE^^00DMSD 11 1 1 1 1 11 1 1 1 1 11 1 1 301: BLZONE,MSDBACC1&12,0-9&X14,8,^GO^BACK^IF^WAS^9^'03E0075^MLZS^00C,*-11,MSDBCHAN&1,^'03A0076^B^^^^00B, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: MSDBACC1&12,^'03G0077^S^^^^00CMSDBLCKADJ,&26,X12,^'03?0078^CW^^^00B,MSDBMEN&20,^'03?0079^B^^^^00B,MS 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 501: DBMEN&27,^'05?0080^BW^^^00CMSDBAUXPUT,MSTESTENT,MSTESTMODE,^'04C0081^BW^^^00C,MSDBLCKPUT&7,MSTESTMOD 1 11 1 1 1 1 1 11 1 1 1 1 601: E,^'05C0082^MLC^^00C,12&X12,*&X13,^MODIFY^FILE^DTF^ADDR^'02G0083^BXPA^00B,IOCSPUT,^'02?0084^NOP^^00B 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 701: ,,^'02B0085^DC^^^00B,#5,^'03B0086^B^^^^00B,MSDBLCKPUT&7,^'03F0087^DCW^^00BMSDBRECLEN,#4,^***^'05C008 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 8^DC^^^00BMSDELETESW,#1,^USED^WITH^DUPL^MACRO^'05A0089^DCW^^00BMSDBCHAN,#1,^CHANNEL^OF^SEEK^ADDR^'04 1 1 1 11 1 1 1 1 11 901: B0090^DCW^^00B,#1,^ARM^OF^SEEK^ADDRESS^'05?0091^DCW^^00BMSDBHOLD,#4,^HA2^OF^SEEK^ADDRESS^' 1 1 1 1 11 1 1 1 1 1 1: 029G05B0092^DC^^^00BMSDBRECADR,#2,^HA1^OF^SEEK^ADDRESS^'03B0093^DC^^^00BMSDBINDEX,#19,^'03E0094^DA^^ 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^00CMSDBINDSAV,5X5,G,^'07?0095^DCW^^00C^MSDBWLRNT,@DRHA^WLR^CMTTTTRR/00000,A-PROC,B-NRF@,G,^'03A0096 1 1 1 1 11 1 1 1 1 1 11 1 201: ^DC^^^00BMSDBLCKWLR,0,^'05C0097^DCW^^00C^MSDRHAWLR,@BLK^CNT^ER^00000000@,G,^'02?0098^MEND^00B,,^' 1 1 1 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSDEL' 1 1 1 1: 100?04?0001^SBR^^00BMSDELETEN,MSDELETEX&5,^'05E0002^SW^^^00B,MSDELETESW,^FOR^USE^IN^DDUPL^&^DBLCR^'0 1 1 1 1 1 1 11 1 1 1 1 11 101: 5H0003^ZA^^^00C,3&X13,X14,^COMPUTE^OLD^END^ADDR^OF^BLOC^'02G0004^A^^^^00C,X13,X14,^'03B0005^MLCWS00C 1 1 1 1 1 11 1 1 1 1 1 11 1 1 201: ,0&X14,MSSTOP,^'02I0006^MLCWS00C,@"@,0&X14,^'03A0007^SCNRM00C,0&X15,0&X15,^'02H0008^SAR^^00B,MSNXTRC 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: D,^'04I0009^S^^^^00C,X15,MSNXTRCD,^COMPUTE^RCD^SIZE^'05D0010^ZA^^^00C,MSNXTRCD,MSDELCNT,^SAVE^DEL^RC 1 11 1 1 1 1 1 11 1 1 1 1 1 401: D^CNT^'06A0011^MLNA^00C,X15,MSDELMOVE&10,^MODIFY^MOVE^OLD^REC^ADDR^'04F0012^A^^^^00C,MSDELCNT,X15,^N 11 1 1 1 1 1 11 1 1 1 1 1 501: EXT^REC^ADDR^'04I0013^C^^^^00CMSDELTEST,X14,X15,^TEST^FOR^END^'03?0014^BE^^^00B,MSDELERACE,^'05D0015 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^MRCR^00CMSDELMOVE,0&X15,0,^CLOSE^IN^NEXT^REC^'03E0016^SAR^^00B,X15,^MODIFY^MOVE^'03B0017^SBR^^00B,M 1 1 1 1 11 1 1 1 1 11 1 1 1 701: SDELMOVE&10,^'02I0018^B^^^^00B,MSDELTEST,^'07?0019^S^^^^00CMSDELERACE,MSDELCNT,3&X13,^REDUCE^BLK^CNT 1 11 1 1 1 1 11 1 1 1 1 1 801: ^BY^REC^CNT^'04E0020^S^^^^00C,MSDELCNT,X15,^NEW^END^ADDR^'05D0021^MLN^^00C,X15,MSDELBLNK&10,^MODIFY^ 11 1 1 1 1 1 11 1 1 1 1 1 901: ERACE^MOVE^'05D0022^ZA^^^00C,MSDELCNT,X15,^NO^CHAR^TO^BE^DELETED^'03D0023^S^^^^00CMSDELOOP,&1,X15,^' 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 059C03H0024^MLCS^00CMSDELBLNK,@^@,0&X15,^'03?0025^BZ^^^00B,MSDELETEXA,^'02H0026^B^^^^00B,MSDELOOP,^' 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 101: 04F0027^BW^^^00CMSDELETEXA,MSMVSTOP,MSCANSW,^'04F0028^S^^^^00C,MSDELCNT,X11,^ADJUST^X11^TO^'04H0029^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 201: MLN^^00C,2&X11,MSDELCNTHD,^NEW^REC^CNT^'04E0030^A^^^^00C,MSDELCNTHD,X11,^AND^UPDATE^'05?0031^MLNA^00 1 1 1 1 11 1 1 1 1 1 11 1 1 301: C,X11,MSDBINDEX-20,^X11^SAVE^AREA^'04?0032^MLCWS00CMSMVSTOP,MSSTOP,0&X14,^'03?0033^B^^^^00BMSDELETEX 1 1 1 11 1 1 1 1 1 11 1 1 401: ,0,^'04H0034^DCW^^00BMSDELCNT,#3,^NO^CHAR^TO^DELETE^'03B0035^DCW^^00BMSDELCNTHD,#3,^'03?0036^DCW^^00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: BMSNXTRCD,#5,^'02I0037^DC^^^00BMSSTOP,@^@,^'02I0038^DC^^^00BMSCANSW,#1,^'02?0039^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSDFL' 1 1 1 1: 098G04?0001^SBR^^00BMSDFLETEN,MSDELETEX&5,^'05E0002^SW^^^00B,MSDELETESW,^FOR^USE^IN^DDUPL^&^DBLCR^'0 1 1 1 1 1 1 11 1 1 1 1 11 101: 5E0003^ZA^^^00C,3&X15,MSDELCNT,^SAVE^DEL^REC^CNT^***^'06?0004^ZA^^^00C,3&X13,X14,^COMPUTE^OLD^END^AD 1 1 1 1 1 11 1 1 1 1 1 201: DR^OF^BL^^CO^'02G0005^A^^^^00C,X13,X14,^'06A0006^MLNA^00C,X15,MSDELMOVE&10,^MODIFY^MOVE^OLD^REC^ADDR 11 1 1 1 1 1 11 1 1 1 1 1 301: ^'04F0007^A^^^^00C,MSDELCNT,X15,^NEXT^REC^ADDR^'04I0008^C^^^^00CMSDELTEST,X14,X15,^TEST^FOR^END^'03? 11 1 1 1 1 1 11 1 1 1 1 1 11 401: 0009^BE^^^00B,MSDELERACE,^'05D0010^MRCR^00CMSDELMOVE,0&X15,0,^CLOSE^IN^NEXT^REC^'03E0011^SAR^^00B,X1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 5,^MODIFY^MOVE^'03B0012^SBR^^00B,MSDELMOVE&10,^'02I0013^B^^^^00B,MSDELTEST,^'07A0014^S^^^^00CMSDELER 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ACE,MSDELCNT,3&X13,^REDUCE^BLK^CNT^BY^REC^^TNC^'04E0015^S^^^^00C,MSDELCNT,X15,^NEW^END^ADDR^'05D0016 1 1 1 11 1 1 1 1 1 11 1 701: ^MLN^^00C,X15,MSDELBLNK&10,^MODIFY^ERACE^MOVE^'05D0017^ZA^^^00C,MSDELCNT,X15,^NO^CHAR^TO^BE^DELETED^ 1 1 1 1 11 1 1 1 1 1 801: '03D0018^S^^^^00CMSDELOOP,&1,X15,^'03H0019^MLCS^00CMSDELBLNK,@^@,0&X15,^'03?0020^BZ^^^00B,MSDELETEXA 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: ,^'02H0021^B^^^^00B,MSDELOOP,^'05F0022^S^^^^00CMSDELETEXA,MSDELCNT,X11,^ADJUST^X11^TO^' 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 028H04H0023^MLN^^00C,2&X11,MSDELCNTHD,^NEW^REC^CNT^'04E0024^A^^^^00C,MSDELCNTHD,X11,^AND^UPDATE^'05? 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: 0025^MLNA^00C,X11,MSDBINDEX-20,^X11^SAVE^AREA^'03?0026^B^^^^00BMSDELETEX,0,^'05E0027^DCW^^00BMSDELCN 1 1 1 1 1 11 1 1 1 1 11 1 1 201: T,#4,^NO^CHAR^TO^DELETE^^^^***^'03F0028^DCW^^00BMSDELCNTHD,#4,^***^'02?0029^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSDUP' 1 1 1 1: 028C04A0001^MLCA^00CMSDUPLEN,MSDBINDEX,X15,^'06A0002^BW^^^00C,*&8,MSDELETESW,^IF^DEL^SW^IS^OFF^BRANC 1 1 1 1 1 1 1 11 1 1 1 1 1 101: H^TO^'05G0003^B^^^^00B,MSDBLCKALT,^MODIFY^FOR^NEXT^REC^COMPAR^'05I0004^CW^^^00B,MSDELETESW,^SET^DELE 11 1 1 1 1 11 1 1 1 1 201: TE^^SW^OFF^AND^BRANC^'04A0005^B^^^^00B,MSDBLCKCOM,^TO^COMPARE^'02?0006^MEND^00B,,^' 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSJEO' 1 1 1 1: 098I05I0001^O^EQU00B*^^TABLE^T,ATE^USER^TO^MONITOR^-^8/21/67,^'04?0002^EQU^^00BBR,04085,^FILE^CODE^0 1 1 1 1 1 1 11 1 1 1 1 101: 2^'04?0003^EQU^^00BDF,04232,^FILE^CODE^09^'04?0004^EQU^^00BDH,04169,^FILE^CODE^06^'03C0005^EQU^^00BE 11 1 1 1 1 11 1 1 1 1 11 1 1 201: DACTYNR,02780,^'03C0006^EQU^^00BEDBLKCNT,02672,^'03A0007^EQU^^00BEDDATE,00119,^'03D0008^EQU^^00BEDPK 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: HOLD5,02764,^'03E0009^EQU^^00BEDPKHOLD10,02774,^'03C0010^EQU^^00BEDRECCNT,02682,^'02I0011^EQU^^00BED 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: RI,02782,^'03B0012^EQU^^00BEDSEQNO,02667,^'03C0013^EQU^^00BEDSERIAL,02686,^'04?0014^EQU^^00BFL,04295 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: ,^FILE^CODE^12^'03F0015^EQU^^00BGETVAR,03647,^COPE^'04?0016^EQU^^00BGI,04190,^FILE^CODE^07^'04?0017^ 1 11 1 1 1 1 11 1 1 1 1 11 1 601: EQU^^00BIP,04106,^FILE^CODE^03^'04?0018^EQU^^00BMC,04253,^FILE^CODE^10^'04?0019^EQU^^00BMR,04064,^FI 1 1 1 11 1 1 1 1 11 1 1 1 1 701: LE^CODE^01^'03?0020^EQU^^00BMRACL,00720,^'03G0021^EQU^^00BMSBATCH,00781,^COPE^'03I0022^EQU^^00BMSBAT 11 1 1 1 1 11 1 1 1 1 11 1 1 801: CHIN,00782,^COPE^'04?0023^EQU^^00BMSBATCHOUT,00783,^COPE^'03B0024^EQU^^00BMSCDEN1,00524,^'03B0025^EQ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: U^^00BMSCDEN3,00538,^'03B0026^EQU^^00BMSCHAN2,00480,^'03E0027^EQU^^00BMSCONFIGWD,00400,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097I03F0028^EQU^^00BMSCOPE,00120,^COPE^'03C0029^EQU^^00BMSCOREND,00796,^'03F0030^EQU^^00BMSDATE,0406 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 0,^COPE^'03B0031^EQU^^00BMSDECEN,00566,^'03E0032^EQU^^00BMSDISKCTRL,00864,^'03B0033^EQU^^00BMSDKCON, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 00460,^'03E0034^EQU^^00BMSDKHOLDAR,00894,^'03B0035^EQU^^00BMSEOJEN,00496,^'03C0036^EQU^^00BMSERVEN1, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 00629,^'04?0037^EQU^^00BMSFLIPFLOP,00459,^COPE^'03?0038^EQU^^00BMSFOT,04064,^'03D0039^EQU^^00BMSGETR 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: MEN,00552,^'03H0040^EQU^^00BMSHIPIOK,00774,^COPE^'03D0041^EQU^^00BMSOCALADR,00838,^'03C0042^EQU^^00B 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: MSOCALEN,00482,^'03I0043^EQU^^00BMSORTAARM,04022,^COPE^'04?0044^EQU^^00BMSORTACHAN,04021,^COPE^'04?0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 045^EQU^^00BMSORTAHIGH,04033,^COPE^'03I0046^EQU^^00BMSORTALOW,04029,^COPE^'03I0047^EQU^^00BMSORTAMOD 1 1 1 11 1 1 1 1 11 1 1 701: ,04023,^COPE^'03I0048^EQU^^00BMSORTBARM,04035,^COPE^'04?0049^EQU^^00BMSORTBCHAN,04034,^COPE^'04?0050 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: ^EQU^^00BMSORTBHIGH,04046,^COPE^'03I0051^EQU^^00BMSORTBLOW,04042,^COPE^'03I0052^EQU^^00BMSORTBMOD,04 1 1 1 11 1 1 1 1 11 1 1 1 901: 036,^COPE^'03C0053^EQU^^00BMSPCALEN,00503,^'03E0054^EQU^^00BMSPRINTCON,00474,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 097B03D0055^EQU^^00BMSPUTRMEN,00615,^'03F0056^EQU^^00BMSSIOK,00775,^COPE^'03D0057^EQU^^00BMSSIZESYS, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 04063,^'03B0058^EQU^^00BMSTATUS,00784,^'03E0059^EQU^^00BMSTESTMODE,00769,^'03A0060^EQU^^00BMSTIME,04 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 050,^'03E0061^EQU^^00BMSTRANRLSE,00741,^'04?0062^EQU^^00BMSTRAPDUMP,03675,^COPE^'03B0063^EQU^^00BMST 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: YPEN,00594,^'03A0064^EQU^^00BMS1414,00777,^'04?0065^EQU^^00BNA,04274,^FILE^CODE^11^'03G0066^EQU^^00B 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: PUTCDEN,03689,^COPE^'03F0067^EQU^^00BPUTVAR,03661,^COPE^'03?0068^EQU^^00BRACNS,00671,^'04?0069^EQU^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 00BRD,04127,^FILE^CODE^04^'04?0070^EQU^^00BRF,04337,^FILE^CODE^14^'04?0071^EQU^^00BRH,04211,^FILE^CO 1 1 1 11 1 1 1 1 11 1 1 1 1 601: DE^08^'04?0072^EQU^^00BRS,04148,^FILE^CODE^05^'04?0073^EQU^^00BSHORTOCALL,03703,^COPE^'03?0074^EQU^^ 11 1 1 1 1 11 1 1 1 1 11 1 701: 00BSLNGT,00699,^'05A0075^EQU^^00BSTATCDS0,22383,^COMIS^DATA^CD^CNT^'05?0076^EQU^^00BSTATCDS4,22388,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 801: COMIS^EXC^CD^CNT^'05C0077^EQU^^00BSTATINPCNT,22377,^COMIS^INPUT^COUNT^'05A0078^EQU^^00BSTATINPKEY,22 11 1 1 1 1 11 1 1 1 901: 378,^COMIS^INPUT^KEY^'05?0079^EQU^^00BSTATMECHID,22331,^COMIS^MECH.^ID^' 1 11 1 1 1 1 1 1: 084A05A0080^EQU^^00BSTATOFLN,22393,^COMIS^OFFLN^COUNT^'04?0081^EQU^^00BTC,04316,^FILE^CODE^13^'04?00 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 82^EQU^^00BTI,04358,^FILE^CODE^15^'04A0083^EQU^^00BWLRLINK1,IOCSCSNENT-46,^'04A0084^EQU^^00BWLRLINK2 1 1 1 11 1 1 1 1 11 1 1 201: ,IOCSCSNENT-41,^'04H0085^EQU^^00BXM,04106,^FILE^CODE^24^G/A^MAS^'04H0086^EQU^^00BXP,04064,^FILE^CODE 1 1 11 1 1 1 1 11 1 1 1 1 301: ^21^G/A^PRO^'04H0087^EQU^^00BXR,04085,^FILE^CODE^22^G/A^REQ^'04D0088^EQU^^00BYC,04316,^FILE^CODE^13^ 11 1 1 1 1 11 1 1 1 1 401: MAS^'04D0089^EQU^^00BYD,04337,^FILE^CODE^14^MAS^'04D0090^EQU^^00BYL,04358,^FILE^CODE^15^MAS^'04D0091 11 1 1 1 1 11 1 1 1 1 11 1 501: ^EQU^^00BYM,04379,^FILE^CODE^16^MAS^'04D0092^EQU^^00BYR,04400,^FILE^CODE^17^MAS^'04?0093^EQU^^00BZA, 1 1 1 11 1 1 1 1 11 1 1 1 601: 04316,^FILE^CODE^13^'04?0094^EQU^^00BZB,04337,^FILE^CODE^14^'04?0095^EQU^^00BZC,04358,^FILE^CODE^15^ 1 11 1 1 1 1 11 1 1 1 1 701: '04?0096^EQU^^00BZD,04379,^FILE^CODE^16^'04?0097^EQU^^00BZE,04400,^FILE^CODE^17^'04?0098^EQU^^00BZF, 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 04421,^FILE^CODE^18^'02?0099^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^SMSLCA' 1 1 1 1: 095G03I0001^SBR^^00BMSLCATEN,MSLOCATEX&5,^'04B0002^SW^^^00B,MSNEWBLOCK&1,^WLR^ENTRY^'06A0003^ZA^^^00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: CMSVRETEN,19&X15,X14,^X14^IS^FILE^INDEX^ADDR^'05F0004^ZA^^^00C,0&X14,X14,^X14^CONTENTS^OF^FILE^INDEX 1 1 1 11 1 1 1 1 1 201: ^'03?0005^SW^^^00B,MSLOC1STSW,^'02I0006^CW^^^00B,MSLOCATEX,^'06E0007^CW^^^00BMSLOCATREP,3&X14,^ENSUR 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: E^PROPER^WM^IN^HOLD^AREA^'03?0008^CW^^^00B,,^BLOCK^CNT^'02?0009^CW^^^00B,,^'02?0010^SW^^^00B,,^'05E0 11 1 1 11 11 1 1 11 11 1 1 11 11 1 401: 011^ZA^^^00C,X14,X11,^SAVE^DRHA^ADDR^FOR^TESTMODE^'04G0012^ZA^^^00C,3&X14,MSLOCTR,^OLD^BLOCK^CNT^'04 1 1 1 1 11 1 1 1 1 1 11 501: I0013^BZ^^^00B,MSLOCEMPTY,^IS^BLOCK^NOW^EMPTY^'05?0014^NOP^^00BMSNEWBLOCK,,^TO^WLR^CHECK^SUBRTN^'03? 1 1 1 1 11 1 1 11 11 601: 0015^B^^^^00B,MSRECHKENT,^'05H0016^A^^^^00C,MSLOCRECNT,MSLOCTR,^PLUS^NEW^RECORD^CNT^'06D0017^BCE^^00 1 1 1 1 11 1 1 1 1 1 11 1 1 701: D,MSLOCREC1,1424&X14,#,^ADJUST^MAX^BLOCK^LENGTH^'05D0018^BCE^^00D,MSLOCREC1,1424&X14,$,^IF^TRACK^ADD 1 1 1 1 11 1 1 1 1 1 1 801: R^'04A0019^A^^^^00C,&3,MSLOCTR,^IS^PRESENT^'06B0020^S^^^^00CMSLOCREC1,&1425,MSLOCTR,^LESS^MAX^BLK^LE 11 1 1 1 1 1 11 1 1 1 1 1 901: NGTH^'05A0021^MLCA^00C,0-2&X14,MSLOCHA2,^SAVE^DISK^ADDR^' 11 1 1 1 1 1 1 1: 098F06G0022^BCE^^00DMSLOCACC1,MSMODZONE,0-9&X14,1,^CHECK^FOR^ACCESS^1^'03G0023^MLCS^00C,0-18-X14,MSL 1 1 1 1 1 1 1 1 11 1 1 1 1 101: OCHAN,^'05C0024^BZN^^00D,MSLOCOFLOW,MSLOCTR,&,^WILL^REC^FIT^'04B0025^MLNA^00C,3&X14,*&11,^MODIFY^MOV 1 11 1 1 1 1 1 1 11 1 1 1 1 1 201: E^'04C0026^MRCM^00C,0&X12,0&X14,^MOVE^IN^REC^'05I0027^A^^^^00C,MSLOCRECNT,3&X14,^UP^BLCK^CNT^BY^REC^ 11 1 1 1 1 1 11 1 1 1 1 1 301: CNT^'02I0028^A^^^^00C,3&X14,X14,^'05H0029^MLCS^00C,@'@,0-1&X14,^MOVE^REC^MARK^TO^TERM^CHAR^'02I0030^ 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: SW^^^00B,MSLOCATEX,^'03?0031^B^^^^00B,MSLOCATPUT,^'06F0032^MLZS^00CMSMODZONE,*-11,MSLOCHAN&1,^ZONE^M 1 1 1 11 1 1 1 1 11 1 1 1 1 1 501: OD^FOR^ACCESS^1^'03B0033^B^^^^00B,MSLOCACC1&12,^'06B0034^ZA^^^00CMSLOCEMPTY,&4,3&X14,^IF^NEW^BLOCK^I 11 1 1 1 1 11 1 1 1 1 1 601: NIT^BLOCK^'03I0035^B^^^^00B,MSNEWBLOCK,^CNT^TO^4^'04?0036^SW^^^00BMSLOCOFLOW,MSLOCPUTSW,^'06E0037^BC 11 1 1 1 1 11 1 1 1 1 11 1 701: E^^00DMSLOCTYPOF,MSLOCNEXT,1424&X14,$,^NEXT^REC^OFLOW^'06A0038^BZN^^00D,MSLOCTRACK,1424&X14,-,^OFLOW 1 1 1 1 1 11 1 1 1 1 1 1 801: ^TO^TRACK^ADDR^'04F0039^CW^^^00B,MSLOCPUTSW,^ESTABLISH^OFLOW^'05B0040^MLZS^00C,-1,1424&X14,^SET^OFLO 11 1 1 1 1 11 1 1 1 1 1 901: W^INDICATION^'03?0041^B^^^^00B,MSLOCTYPOF,^'04B0042^A^^^^00CMSLOCNEXT,@25@,MSLOCHA2,^' 11 1 1 1 1 11 1 1 1 1 1 1 1: 098A02I0043^B^^^^00B,MSLOCJOIN,^'04G0044^MLNB^00CMSLOCTRACK,1424&X14,MSLOCHA1,^'03C0045^A^^^^00C,@25 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: @,MSLOCHA2,^'02I0046^NOPWM00BMSLOCJOIN,,^'04?0047^B^^^^00BMSVARPUTSW,MSLOCATPUT,^'02?0048^NOPWM00B,, 1 1 11 1 1 11 11 1 1 1 1 11 1 1 11 201: ^'04?0049^B^^^^00BMSLOCPUTSW,MSLOCATGET,^'04?0050^CW^^^00BMSLOCATPUT,MSVARPUTSW,^'05F0051^ZA^^^00C,X 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 11,X14,^SET^X14^TO^DRHA^FOR^TESTMODE^'04?0052^BW^^^00C,MSTESTENT,MSTESTMODE,^'04A0053^BW^^^00C,MSLOC 1 1 11 1 1 1 1 1 11 1 1 1 401: ATGET,MSTESTMODE,^'02?0054^NOPWM00B,,^'04?0055^B^^^^00BMSLOC1STSW,MSLOC1STPT,^'03G0056^MLCS^00C,@W@, 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 501: MSDISKCTRL&15,^'03E0057^ZA^^^00C,&MSDISKCTRL,X14,^'03H0058^MLCA^00C,&MSLOCPUSWI,20&X14,^'03?0059^MLC 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: A^00C,20&X14,*&6,^'02A0060^SW^^^00B,0,^'03?0061^BXPA^00B,IOCSRELARM,^'02?0062^NOP^^00B,,^'03?0063^NO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 701: P^^00BMSLOCPUSWI,,^'03C0064^BW^^^00C,IOCSGETS,*-12,^'03A0065^B^^^^00B,MSLOCATEX-1,^'03H0066^MLC^^00C 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: MSLOC1STPT,X15,*&13,^'02G0067^BXPA^00B,IOCSPUT,^'02?0068^NOP^^00B,,^'02B0069^DC^^^00B,#5,^'04?0070^C 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 901: W^^^00BMSLOCATGET,MSLOC1STSW,^'02?0071^NOPWM00B,,^'03?0072^B^^^^00BMSLOCATEX,0,^' 1 1 1 11 1 1 11 11 1 1 1 1 1 1: 096C04B0073^MLCS^00C,MSLOCHAN,MSDISKCTRL&12,^'04B0074^MLCB^00C,MSLOCHA1,MSDISKCTRL&10,^'04B0075^MLCB 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^00C,MSLOCHA2,MSDISKCTRL&28,^'03G0076^MLCS^00C,@R@,MSDISKCTRL&15,^'03E0077^ZA^^^00C,&MSDISKCTRL,X14, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: ^'03H0078^MLCA^00C,&MSLOCGETSW,20&X14,^'03?0079^MLCA^00C,20&X14,*&6,^'02A0080^SW^^^00B,0,^'03?0081^B 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: XPA^00B,IOCSRELARM,^'02?0082^NOP^^00B,,^'03?0083^NOP^^00BMSLOCGETSW,,^'03C0084^BW^^^00C,IOCSGETS,*-1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 1 1 401: 2,^'03E0085^ZA^^^00C,&MSDKHOLDAR,X14,^'03?0086^B^^^^00B,MSLOCATREP,^'03B0087^DCW^^00BMSLOCRECNT,#3,^ 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: '02I0088^DCW^^00BMSLOCTR,#4,^'03?0089^DCW^^00BMSLOCHAN,#1,^'02B0090^DCW^^00B,#1,^'03?0091^DCW^^00BMS 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: LOCHA1,#4,^'03?0092^DC^^^00BMSLOCHA2,#2,^'05B0093^SBR^^00BMSRECHKENT,MSRECHKEXT&5,^SAVE^EXIT^'04I009 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: 4^CW^^^00B,MSNEWBLOCK&1,^TO^AVOID^RECHECK^'05I0095^MLCB^00C,2&X12,MSLOCRECNT,^NEW^REC^CNT^PLUS^START 1 1 1 11 1 1 1 1 1 801: ^'05G0096^ZA^^^00C,X12,MSRECHECKA,^CORE^ADDR^SHOULD^EQUAL^'05?0097^A^^^^00C,MSLOCRECNT,MSRECHECKA,^E 11 1 1 1 1 1 11 1 1 1 1 1 901: ND^ADDR^'05D0098^SCNRM00C,0&X12,0&X12,^SCAN^FOR^TERM^REC^MARK^' 11 1 1 1 1 1 1 1: 082I04C0099^SAR^^00B,MSRECHECKB,^OR^GROUPMARK^'05I0100^S^^^^00C,MSRECHECKB,MSRECHECKA,^IF^CORRECT^RE 1 1 1 1 1 1 11 1 1 1 1 1 101: TURN^'04I0101^BZ^^^00BMSRECHKEXT,0,^TO^LOCAT^OR^VARET^'05F0102^MRCWG00C,X10&1,MSCHKINDX,^ERROR^RTN-S 11 1 1 1 1 11 1 1 1 1 1 201: AVE^INDEX^'05H0103^MLNA^00C,X12,MSRECHKC&15,^SET^UP^REC^LOCATION^IN^'04G0104^B^^^^00B,MSDECEN,^MESSA 11 1 1 1 1 1 11 1 1 1 1 301: GE^AND^EXECUTE^'04C0105^DCW^^00B,MSRECHKC,^DECISION^MACRO^'03?0106^DCW^^00B,MSRECHKEXB,^'05B0107^MRC 11 1 1 1 1 11 1 1 1 1 11 1 401: WG00C,MSCHKINDX,X10&1,^REPEAT^WLR^CHECK^'03B0108^B^^^^00B,MSRECHKENT&7,^'06A0109^SW^^^00BMSRECHKEXB, 1 1 1 1 11 1 1 1 1 11 1 1 1 501: MSLOCATEX,^IF^OPTION^B^EXIT^FROM^'04D0110^B^^^^00B,MSLOCATEX,^LOCAT^OR^YARET^'06?0111^DCW^^00BMSRECH 1 11 1 1 1 1 11 1 1 601: ECKA,00000,^COMPUTED^END^ADDRESS^WLR^'05H0112^DCW^^00BMSRECHECKB,00000,^ACTUAL^END^ADDRESS^WLR^'05?0 1 1 11 1 1 1 1 11 1 701: 113^DA^^^00CMSCHKINDX,5X5,G,^INDEX^SAVE^AREA^'06C0114^DCW^^00C^MSRECHKC,@REC^CNT^ER^00000^A-PROC,B-S 1 1 1 1 11 1 1 1 801: KIP@,G,^'02?0115^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^SMSLOD' 1 1 1 1: 096?04?0001^SBR^^00BMSLODATEN,MSLOCATEX&5,^'04B0002^SW^^^00B,MSNEWBLOCK&1,^WLR^ENTRY^'06A0003^ZA^^^0 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: 0CMSVRETEN,19&X15,X14,^X14^IS^FILE^INDEX^ADDR^'05F0004^ZA^^^00C,0&X14,X14,^X14^CONTENTS^OF^FILE^INDE 1 1 1 11 1 1 1 1 1 201: X^'03?0005^SW^^^00B,MSLOC1STSW,^'02I0006^CW^^^00B,MSLOCATEX,^'06E0007^CW^^^00BMSLOCATREP,3&X14,^ENSU 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: RE^PROPER^WM^IN^HOLD^AREA^'03?0008^CW^^^00B,,^BLOCK^CNT^'02?0009^CW^^^00B,,^'02?0010^SW^^^00B,,^'05E 11 1 1 11 11 1 1 11 11 1 1 11 11 401: 0011^ZA^^^00C,X14,X11,^SAVE^DRHA^ADDR^FOR^TESTMODE^'04G0012^ZA^^^00C,3&X14,MSLOCTR,^OLD^BLOCK^CNT^'0 1 1 1 1 1 11 1 1 1 1 1 11 501: 4I0013^BZ^^^00B,MSLOCEMPTY,^IS^BLOCK^NOW^EMPTY^'05?0014^NOP^^00BMSNEWBLOCK,,^TO^WLR^CHECK^SUBRTN^'03 1 1 1 1 11 1 1 11 11 601: ?0015^B^^^^00B,MSRECHKENT,^'06A0016^A^^^^00C,MSLOCRECNT,MSLOCTR,^PLUS^NEW^RECORD^CN^^^T^'06C0017^BCE 1 1 1 1 11 1 1 1 1 1 11 1 701: ^^00D,MSLOCREC1,1424&X14,#,^ADJUST^MAX^BLOCK^LENGT^'05D0018^BCE^^00D,MSLOCREC1,1424&X14,$,^IF^TRACK^ 1 1 1 1 1 11 1 1 1 1 1 1 801: ADDR^'04A0019^A^^^^00C,&3,MSLOCTR,^IS^PRESENT^'06B0020^S^^^^00CMSLOCREC1,&1425,MSLOCTR,^LESS^MAX^BLK 11 1 1 1 1 1 11 1 1 1 1 1 901: ^LENGTH^'05A0021^MLCA^00C,0-2&X14,MSLOCHA2,^SAVE^DISK^ADDR^' 11 1 1 1 1 1 1 1: 098H06G0022^BCE^^00DMSLOCACC1,MSMODZONE,0-9&X14,1,^CHECK^FOR^ACCESS^1^'03G0023^MLCS^00C,0-18-X14,MSL 1 1 1 1 1 1 1 1 11 1 1 1 1 101: OCHAN,^'05C0024^BZN^^00D,MSLOCOFLOW,MSLOCTR,&,^WILL^REC^FIT^'04B0025^MLNA^00C,3&X14,*&11,^MODIFY^MOV 1 11 1 1 1 1 1 1 11 1 1 1 1 1 201: E^'04C0026^MRCM^00C,0&X12,0&X14,^MOVE^IN^REC^'06A0027^A^^^^00C,MSLOCRECNT,3&X14,^UP^BLCK^CNT^BY^REC^ 11 1 1 1 1 1 11 1 1 1 1 1 301: C^^TN^'02I0028^A^^^^00C,3&X14,X14,^'05H0029^MLCS^00C,@'@,0-1&X14,^MOVE^REC^MARK^TO^TERM^CHAR^'02I003 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 0^SW^^^00B,MSLOCATEX,^'03?0031^B^^^^00B,MSLOCATPUT,^'06F0032^MLZS^00CMSMODZONE,*-11,MSLOCHAN&1,^ZONE 1 1 1 11 1 1 1 1 11 1 1 1 1 1 501: ^MOD^FOR^ACCESS^1^'03B0033^B^^^^00B,MSLOCACC1&12,^'06B0034^ZA^^^00CMSLOCEMPTY,&4,3&X14,^IF^NEW^BLOCK 11 1 1 1 1 11 1 1 1 1 1 601: ^INIT^BLOCK^'03I0035^B^^^^00B,MSNEWBLOCK,^CNT^TO^4^'04?0036^SW^^^00BMSLOCOFLOW,MSLOCPUTSW,^'06E0037^ 11 1 1 1 1 11 1 1 1 1 11 1 701: BCE^^00DMSLOCTYPOF,MSLOCNEXT,1424&X14,$,^NEXT^REC^OFLOW^'06A0038^BZN^^00D,MSLOCTRACK,1424&X14,-,^OFL 1 1 1 1 1 11 1 1 1 1 1 1 801: OW^TO^TRACK^ADDR^'04F0039^CW^^^00B,MSLOCPUTSW,^ESTABLISH^OFLOW^'05B0040^MLZS^00C,-1,1424&X14,^SET^OF 11 1 1 1 1 11 1 1 1 1 1 901: LOW^INDICATION^'03?0041^B^^^^00B,MSLOCTYPOF,^'04B0042^A^^^^00CMSLOCNEXT,@25@,MSLOCHA2,^' 11 1 1 1 1 11 1 1 1 1 1 1 1: 098A02I0043^B^^^^00B,MSLOCJOIN,^'04G0044^MLNB^00CMSLOCTRACK,1424&X14,MSLOCHA1,^'03C0045^A^^^^00C,@25 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: @,MSLOCHA2,^'02I0046^NOPWM00BMSLOCJOIN,,^'04?0047^B^^^^00BMSVARPUTSW,MSLOCATPUT,^'02?0048^NOPWM00B,, 1 1 11 1 1 11 11 1 1 1 1 11 1 1 11 201: ^'04?0049^B^^^^00BMSLOCPUTSW,MSLOCATGET,^'04?0050^CW^^^00BMSLOCATPUT,MSVARPUTSW,^'05F0051^ZA^^^00C,X 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 11,X14,^SET^X14^TO^DRHA^FOR^TESTMODE^'04?0052^BW^^^00C,MSTESTENT,MSTESTMODE,^'04A0053^BW^^^00C,MSLOC 1 1 11 1 1 1 1 1 11 1 1 1 401: ATGET,MSTESTMODE,^'02?0054^NOPWM00B,,^'04?0055^B^^^^00BMSLOC1STSW,MSLOC1STPT,^'03G0056^MLCS^00C,@W@, 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 501: MSDISKCTRL&15,^'03E0057^ZA^^^00C,&MSDISKCTRL,X14,^'03H0058^MLCA^00C,&MSLOCPUSWI,20&X14,^'03?0059^MLC 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: A^00C,20&X14,*&6,^'02A0060^SW^^^00B,0,^'03?0061^BXPA^00B,IOCSRELARM,^'02?0062^NOP^^00B,,^'03?0063^NO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 701: P^^00BMSLOCPUSWI,,^'03C0064^BW^^^00C,IOCSGETS,*-12,^'03A0065^B^^^^00B,MSLOCATEX-1,^'03H0066^MLC^^00C 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: MSLOC1STPT,X15,*&13,^'02G0067^BXPA^00B,IOCSPUT,^'02?0068^NOP^^00B,,^'02B0069^DC^^^00B,#5,^'04?0070^C 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 901: W^^^00BMSLOCATGET,MSLOC1STSW,^'02?0071^NOPWM00B,,^'03?0072^B^^^^00BMSLOCATEX,0,^' 1 1 1 11 1 1 11 11 1 1 1 1 1 1: 097D04B0073^MLCS^00C,MSLOCHAN,MSDISKCTRL&12,^'04B0074^MLCB^00C,MSLOCHA1,MSDISKCTRL&10,^'04B0075^MLCB 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^00C,MSLOCHA2,MSDISKCTRL&28,^'03G0076^MLCS^00C,@R@,MSDISKCTRL&15,^'03E0077^ZA^^^00C,&MSDISKCTRL,X14, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: ^'03H0078^MLCA^00C,&MSLOCGETSW,20&X14,^'03?0079^MLCA^00C,20&X14,*&6,^'02A0080^SW^^^00B,0,^'03?0081^B 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: XPA^00B,IOCSRELARM,^'02?0082^NOP^^00B,,^'03?0083^NOP^^00BMSLOCGETSW,,^'03C0084^BW^^^00C,IOCSGETS,*-1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 1 1 401: 2,^'03E0085^ZA^^^00C,&MSDKHOLDAR,X14,^'03?0086^B^^^^00B,MSLOCATREP,^'03F0087^DCW^^00BMSLOCRECNT,#4,^ 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: ***^'02I0088^DCW^^00BMSLOCTR,#4,^'03?0089^DCW^^00BMSLOCHAN,#1,^'02B0090^DCW^^00B,#1,^'03?0091^DCW^^0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 0BMSLOCHA1,#4,^'03?0092^DC^^^00BMSLOCHA2,#2,^'05B0093^SBR^^00BMSRECHKENT,MSRECHKEXT&5,^SAVE^EXIT^'04 1 1 11 1 1 1 1 11 1 1 1 1 11 701: I0094^CW^^^00B,MSNEWBLOCK&1,^TO^AVOID^RECHECK^'06C0095^MLCB^00C,3&X12,MSLOCRECNT,^NEW^REC^CNT^PLUS^S 1 1 1 1 11 1 1 1 1 1 801: TART^***^'06?0096^ZA^^^00C,X12,MSRECHECKA,^CORE^ADDR^SHOULD^EQUA^^^L^'05?0097^A^^^^00C,MSLOCRECNT,MS 11 1 1 1 1 1 11 1 1 1 1 901: RECHECKA,^END^ADDR^'05D0098^SCNRM00C,0&X12,0&X12,^SCAN^FOR^TERM^REC^MARK^' 1 11 1 1 1 1 1 1 1: 083A04C0099^SAR^^00B,MSRECHECKB,^OR^GROUPMARK^'06A0100^S^^^^00C,MSRECHECKB,MSRECHECKA,^IF^CORRECT^RE 1 1 1 1 1 1 11 1 1 1 1 1 101: TU^^NR^'04I0101^BZ^^^00BMSRECHKEXT,0,^TO^LOCAT^OR^VARET^'05F0102^MRCWG00C,X10&1,MSCHKINDX,^ERROR^RTN 11 1 1 1 1 11 1 1 1 1 1 201: -SAVE^INDEX^'05H0103^MLNA^00C,X12,MSRECHKC&15,^SET^UP^REC^LOCATION^IN^'04G0104^B^^^^00B,MSDECEN,^MES 11 1 1 1 1 1 11 1 1 1 1 301: SAGE^AND^EXECUTE^'04C0105^DCW^^00B,MSRECHKC,^DECISION^MACRO^'03?0106^DCW^^00B,MSRECHKEXB,^'05B0107^M 11 1 1 1 1 11 1 1 1 1 11 1 401: RCWG00C,MSCHKINDX,X10&1,^REPEAT^WLR^CHECK^'03B0108^B^^^^00B,MSRECHKENT&7,^'06A0109^SW^^^00BMSRECHKEX 1 1 1 1 11 1 1 1 1 11 1 1 501: B,MSLOCATEX,^IF^OPTION^B^EXIT^FROM^'04D0110^B^^^^00B,MSLOCATEX,^LOCAT^OR^YARET^'06?0111^DCW^^00BMSRE 1 1 11 1 1 1 1 11 1 1 601: CHECKA,00000,^COMPUTED^END^ADDRESS^WLR^'05H0112^DCW^^00BMSRECHECKB,00000,^ACTUAL^END^ADDRESS^WLR^'05 1 1 11 1 1 1 1 11 701: ?0113^DA^^^00CMSCHKINDX,5X5,G,^INDEX^SAVE^AREA^'06C0114^DCW^^00C^MSRECHKC,@REC^CNT^ER^00000^A-PROC,B 1 1 1 1 1 11 1 1 1 801: -SKIP@,G,^'02?0115^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^SMSOFF' 1 1 1 1: 098C07A0001^SBR^^00BMSOFFLINE,MSOFFLINEX&5,^SUBR^TO^PRINT^&^PUNCH^OFFLINE^'06?0002^BW^^^00C,MSONLINO 1 1 1 1 1 1 11 1 1 1 101: UT,MSPRINTCON,^IS^PRINTER^ON^LINE^'05D0003^BCE^^00D,MSFORCEON,1&X12,C,^IS^RECORD^A^CARD^'02I0004^B^^ 1 1 11 1 1 1 1 1 1 11 1 201: ^^00B,MSSTORIND,^'06C0005^C^^^^00CMSFORCEON,4,@PCC@,^IS^OPERATOR^FORCING^ONLINE^'05G0006^BE^^^00B,MS 1 1 1 11 1 1 1 1 1 11 1 1 1 301: ONLINOUT,^PUNCHING^1.E.^PCC^IN^LOC^2^'04C0007^MLCB^00CMSSTORIND,X7,MSSTORE7,^SA^'06D0008^BBE^^00D,MS 1 11 1 1 1 1 1 11 1 1 1 401: TESTCARD,MSROOMLEFT,",^IS^BLKSIZ^CALCULATED^'06H0009^ZA^^^00CMSNEWBLK,IOCSOLIOB&8,MSROOMLEFT,^CALCUL 1 1 1 11 1 1 1 1 1 501: ATE^MAXIMUM^'05C0010^S^^^^00C,IOCSOLIOA&8,MSROOMLEFT,^BLOCK^SIZE^'03C0011^MLZS^00C,&1,MSROOMLEFT,^'0 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 3C0012^S^^^^00C,&1,MSROOMLEFT,^'06E0013^MLCS^00CMSTESTCARD,1&X12,MSRECTYPE,^ISOLATE^RECORD^TYPE^'06A 1 1 1 1 1 11 1 1 1 1 1 11 701: 0014^LE^^^00C,MSRECTYPE,MSRECDSIZE,^LOOKUP^SIZE^FOR^THIS^'04H0015^SBR^^00B,*&6,^RECORD^AND^REDUCE^AM 1 1 1 1 1 11 1 1 1 1 801: OUNT^'05E0016^S^^^^00C,0,MSROOMLEFT,^OF^SPACE^LEFT^IN^BLOCK^'07A0017^BZN^^00DMSCHKFULL,MSSETINDEX,MS 11 1 1 1 1 1 11 1 1 1 1 901: ROOMLEFT,AB,^IS^ANY^SPACE^LEFT^'05A0018^B^^^^00B,IOCSOLFULL,^WRITE^OUT^FULL^BLOCK^' 1 1 11 1 1 1 1 1 1: 096D02H0019^B^^^^00B,MSNEWBLK,^'06F0020^MLC^^00CMSSETINDEX,IOCSOLSAVE,X7,^RECOVER^PLACE^IN^BLOCK^'05 1 1 1 1 1 1 11 1 1 1 1 1 11 101: C0021^MRCM^00C,0&X12,0&X7,^MOVE^RECORD^INTO^BLOCK^'05B0022^SBR^^00B,X7,^SAVE^LOCATION^FOR^NEXT^RECOR 1 1 1 1 1 11 1 1 1 1 201: D^'03?0023^SBR^^00B,IOCSOLSAVE,^'05G0024^MLCWA00C,MSKGM,0&X7,^PUT^RM^AND^GM^AT^END^EVERY^'04E0025^ML 11 1 1 1 1 11 1 1 1 1 1 11 1 301: CWA00B,,^TIME^WHETHER^LAST^OR^NOT^'05F0026^MLCA^00C,MSSTORE7,X7,^RESTORE^ORIGINAL^SETTING^'06H0027^A 1 11 11 1 1 1 1 1 11 1 401: ^^^^00CMSALTEXIT,&7,MSOFFLINEX&5,^SET^TO^SKIP^BCV^COMMAND^'04G0028^B^^^^00BMSOFFLINEX,0,^SUBROUTINE^ 1 1 1 1 11 1 1 1 1 501: EXIT^'06I0029^BCE^^00DMSONLINOUT,MSONLINPCH,1&X12,C,^IS^THE^RECORD^A^CARD^'06B0030^BCE^^00C,MSONLINP 11 1 1 1 1 1 1 11 1 1 1 601: RT,0&X12,^IS^THERE^A^SKIP^CHARACTER^'06A0031^MLCS^00C,0&X12,MSSKIP&1,^LOAD^SKIP^CHAC^IN^SKIP^CMD^'05 1 1 11 1 1 1 1 1 11 701: G0032^BXPA^00B,IOCSCS1SFS,^FORCE^CHAN^FOR^UNITREC^I/O^'04H0033^CC^^^00BMSSKIP,J,^EXECUTE^SKIP^COMMAN 1 1 1 1 11 1 1 1 1 801: D^'04F0034^BA1^^00B,IOCSURERR,^CHECK^FOR^ERRORS^'04H0035^B^^^^00B,IOCSENTRY,^REOPEN^THE^CHANNEL^'06G 11 1 1 1 1 11 1 1 1 1 11 901: 0036^BXPA^00BMSONLINPRT,IOCSCS1SFS,^FORCE^CHAN^FOR^UNITREC^I/O^' 1 1 1 1 1 1: 086H04?0037^WO^^^00B,2&X12,^PRINT^THE^LINE^'04F0038^BA1^^00B,IOCSURERR,^CHECK^FOR^ERRORS^'04H0039^BX 1 1 1 1 1 1 11 1 1 1 1 11 1 101: PA^00B,IOCSENTRY,^REOPEN^THE^CHANNEL^'04B0040^B^^^^00B,MSOFFLINEX,^EXIT^TO^NSI^'06I0041^BCE^^00CMSON 1 1 1 11 1 1 1 1 11 1 1 201: LINPCH,MSSTACK0,0&X12,^IS^STACK^CHARACTER^BLANK^'06B0042^MLCS^00C,0&X12,IOCS1PIOA&3,^PSTAC^IN^SELECT 1 1 1 11 1 1 1 1 1 301: ED^POCKET^'02I0043^B^^^^00B,MSSTACKOK,^'06F0044^MLCS^00CMSSTACK0,@0@,IOCS1PIOA&3,^PSTAC^IN^NORMAL^PO 11 1 1 1 1 11 1 1 1 1 1 401: CKET^'05D0045^B^^^^00BMSSTACKOK,IOCS1PFULL,^PUNCH^THE^CARD^'05D0046^B^^^^00B,MSALTEXIT,^BYPASS^BCV^I 11 1 1 1 1 11 1 1 1 1 501: NST^AND^EXIT^'05F0047^DCW^^00BMSSTORE7,#5,^STORE^USERS^SETTING^OF^X7^'05I0048^DCW^^00BMSROOMLEFT,#5, 11 1 1 1 1 11 1 1 1 1 601: ^SPACE^LEFT^IN^OUTPUT^BLOCK^'02H0049^DCW^^00BMSKRM,@'@,^'02H0050^DCW^^00BMSKGM,@"@,^'05A0051^DCW^^00 11 1 1 1 1 11 1 1 1 1 11 1 1 701: B,@135@,^TABLE^OF^RECORD^SIZES^FOR^'04C0052^DCW^^00B,@^@,^EACH^TYPE^OF^RECORD^'03F0053^DCW^^00BMSREC 1 1 11 1 1 1 1 11 1 1 801: DSIZE,@83^C@,^'03C0054^DCW^^00BMSRECTYPE,@^^@,^'02?0055^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSPRI' 1 1 1 1: 064F04?0001^SBR^^00BMSPRINTEN,MSPRINTEX&5,^'02?0002^NOPWM00B,,^'04B0003^A^^^^00CMSPRTSTAT,*-10,STATO 1 1 1 1 1 1 11 1 1 11 11 1 1 1 1 101: FLN,^'04B0004^BW^^^00C,MSPRINTEX&7,MSPRINTCON,^'03E0005^MLNA^00C,IOCSPTSAVE,*&11,^'02G0006^MRCWM00C, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: 0&X12,0,^'03?0007^B^^^^00B,IOCSPTFULL,^'02F0008^A^^^^00C,&7,*&6,^'03?0009^B^^^^00BMSPRINTEX,0,^'03D0 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: 010^BCE^^00D,MSPRINT,0&X12,,^'03C0011^MLCS^00C,0&X12,MSKIP&8,^'03E0012^BXPA^00BMSKIP,IOCSCS1SFS,^'02 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 401: A0013^CC^^^00B,J,^'02I0014^BA1^^00B,IOCSURERR,^'02I0015^B^^^^00B,IOCSENTRY,^'03G0016^BXPA^00BMSPRINT 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: ,IOCSCS1SFS,^'02E0017^WO^^^00B,2&X12,^'02I0018^BA1^^00B,IOCSURERR,^'02I0019^BXPA^00B,IOCSENTRY,^'02I 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 601: 0020^B^^^^00B,MSPRINTEX,^'02?0021^MEND^00B,,^' 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSTES' 1 1 1 1: 041B03I0001^SBR^^00BMSTESTENT,MSTESTEX&5,^'02G0002^ZA^^^00C,X14,X11,^'03H0003^BXPA^00BMSTESTEN,IOCSC 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: S1SFS,^'02H0004^WT^^^00C,18,0&X11,^'03A0005^BEX1^00C,IOCSERROR,7,^'02G0006^BEF1^00B,MSTTEOF,^'02C000 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: 7^BA1^^00B,*&1,^'02I0008^B^^^^00B,IOCSENTRY,^'02I0009^B^^^^00BMSTESTEX,0,^'03?0010^BA1^^00BMSTTEOF,* 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: &1,^'02I0011^B^^^^00B,IOCSENTRY,^'03?0012^CALL^00B,MSTTCLOSEN,^'02H0013^B^^^^00B,MSTESTEX,^'02?0014^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: MEND^00B,,^' 1 11 1 1: 002A017HEADER^SMSTTC' 1 1 1 1: 025H04B0001^SBR^^00BMSTTCLOSEN,MSTTCLOSEX&5,^'03?0002^BXPA^00B,IOCSCS1SFS,^'02B0003^WTM^^00B,18,^'02 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 101: I0004^BA1^^00B,IOCSERROR,^'02B0005^RWU^^00B,18,^'02I0006^BA1^^00B,IOCSERROR,^'02I0007^B^^^^00B,IOCSE 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: NTRY,^'03A0008^B^^^^00BMSTTCLOSEX,0,^'02?0009^MEND^00B,,^' 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSVAR' 1 1 1 1: 095I04?0001^SBR^^00BMSVARETEN,MSLOCATEX&5,^'04?0002^SW^^^00C,MSLOCATEX,MSLOC1STSW,^'05?0003^B^^^^00B 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,MSRECHKENT,^TO^WLR^CHECK^SUBRTN^'05C0004^ZA^^^00C,19&X15,X14,^X14^IS^FILE^INDEX^ADDR^'05F0005^ZA^^^ 1 1 11 1 1 1 1 1 11 1 201: 00C,0&X14,X14,^X14^CONTENTS^OF^FILE^INDEX^'04G0006^MLCB^00C,2&X13,MSVARECNT,^OLD^REC^CNT^'05F0007^ZA 1 1 1 1 11 1 1 1 1 1 11 1 301: ^^^00C,MSVARECNT,MSVAROLD,^SAVE^NEXT^REC^LOC^'03B0008^A^^^^00C,X13,MSVAROLD,^'04G0009^S^^^^00C,2&X12 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: ,MSVARECNT,^NEW^REC^CNT^'06C0010^BZN^^00D,MSVAREXPAN,MSVARECNT,-,^BRANCH^IF^LENGTHENED^'05D0011^MRCM 1 1 11 1 1 1 1 1 1 11 1 501: ^00C,0&X12,0&X13,^REPLACE^REC^IF^SHORTER^'02C0012^SBR^^00B,X13,^'05C0013^MLCS^00C,@'@,0-1&X13,^REC^M 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: ARK^IS^TERM^CHAR^'05H0014^ZA^^^00B,MSVARECNT,^IF^DELETE^CNT^IS^ZERO^BRANCH^'03G0015^BZ^^^00B,MSLOCDI 11 1 1 1 1 11 1 1 1 701: TTO,^TO^PUT^'06B0016^ZA^^^00CMSVARDEL,X14,MSVARBLK,^SAVE^ADDR^OF^OLD^BLCK^'03D0017^A^^^^00C,3&X14,MS 1 11 1 1 1 1 1 11 1 1 1 1 801: VARBLK,^'05B0018^S^^^^00C,MSVARECNT,3&X14,^REDUCE^BLOCK^CNT^'06H0019^C^^^^00CMSVARCOMP,MSVAROLD,MSVA 1 11 1 1 1 1 1 11 1 1 1 1 901: RBLK,^TEST^FOR^END^OF^BLOCK^'03?0020^BE^^^00B,MSVARERACE,^' 1 11 1 1 1 1 1 1: 098D05E0021^MLN^^00C,MSVAROLD,*&6,^MODIFY^MOVE^OF^OLD^REC^'05?0022^MRCM^00C,0,0&X13,^MOV^OLD^LOC^TO^ 1 1 1 1 1 1 1 11 1 1 1 1 1 101: NEW^LOC^'04?0023^SAR^^00B,MSVAROLD,^MODIFY^MOVE^'02C0024^SBR^^00B,X13,^'02I0025^B^^^^00B,MSVARCOMP,^ 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: '07B0026^MLN^^00CMSVARERACE,X13,MSVARBLANK&10,^SET^MOVE^TO^NEW^END^ADDR^'05G0027^ZA^^^00C,MSVARECNT, 11 1 1 1 1 1 11 1 1 1 1 301: X13,^NO^CHAR^TO^BLANK^IN^X13^'02F0028^S^^^^00C,&1,X13,^'03I0029^MLCS^00CMSVARBLANK,@^@,0&X13,^'04A00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 30^BZ^^^00B,*&8,^IF^ALL^BLANK^EXIT^'03C0031^B^^^^00B,MSVARBLANK-11,^'06F0032^BW^^^00C,MSLOCDITTO,MSL 1 1 1 11 1 1 1 1 11 1 1 1 1 501: OCATEX,^BRANCH^IF^REC^WAS^INSERTE^'05E0033^SW^^^00B,MSVARPUTSW,^FORCE^WRITE^BACK^OF^DRHA^'05D0034^B^ 1 11 1 1 1 1 11 1 601: ^^^00B,MSVRETEN,^BRANCH^TO^ENTER^LOC^MACRO^'07?0035^ZA^^^00CMSVAREXPAN,2&X13,MSVARECNT,^STORE^OLD^RE 1 1 1 11 1 1 1 1 1 701: C^LEN^AS^DEL^'06?0036^ZA^^^00C,MSVARECNT,MSVAROLD,^NEXT^REC^LOC^IN^BLOCK^'03B0037^A^^^^00C,X13,MSVAR 11 1 1 1 1 1 11 1 1 1 1 801: OLD,^'05?0038^CW^^^00B,MSLOCATEX,^FORCE^ENTRY^TO^LOCAT^'05B0039^B^^^^00B,MSVARDEL,^BRANCH^TO^DELET^O 1 11 1 1 1 1 11 1 1 1 1 901: LD^REC^'05B0040^NOPWM00BMSLOCDITTO,,^IF^USING^DITTO^DO^NOT^'02D0041^B^^^^00B,*&25,^' 11 1 1 11 11 1 1 1 1 1 1: 027A03?0042^SW^^^00B,MSLOC1STSW,^'02G0043^ZA^^^00C,X14,X11,^'03?0044^B^^^^00B,MSLOCATPUT,^'03B0045^C 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 101: W^^^00B,MSLOCDITTO&1,^'03G0046^B^^^^00B,MSLOCATEX,^TO^EXIT^'03A0047^DCW^^00BMSVARECNT,#3,^'03?0048^D 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: CW^^00BMSVAROLD,#5,^'03?0049^DCW^^00BMSVARBLK,#5,^'02?0050^MEND^00B,,^' 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SMSVBR' 1 1 1 1: 096I04?0001^SBR^^00BMSVBRETEN,MSLOCATEX&5,^'04?0002^SW^^^00C,MSLOCATEX,MSLOC1STSW,^'05?0003^B^^^^00B 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,MSRECHKENT,^TO^WLR^CHECK^SUBRTN^'05C0004^ZA^^^00C,19&X15,X14,^X14^IS^FILE^INDEX^ADDR^'05F0005^ZA^^^ 1 1 11 1 1 1 1 1 11 1 201: 00C,0&X14,X14,^X14^CONTENTS^OF^FILE^INDEX^'05?0006^MLCB^00C,3&X13,MSVARECNT,^OLD^REC^CNT^**^'05F0007 1 1 1 1 11 1 1 1 1 1 11 1 301: ^ZA^^^00C,MSVARECNT,MSVAROLD,^SAVE^NEXT^REC^LOC^'03B0008^A^^^^00C,X13,MSVAROLD,^'05?0009^S^^^^00C,3& 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: X12,MSVARECNT,^NEW^REC^CNT^**^'06C0010^BZN^^00D,MSVAREXPAN,MSVARECNT,-,^BRANCH^IF^LENGTHENED^'05D001 1 1 11 1 1 1 1 1 1 11 1 501: 1^MRCM^00C,0&X12,0&X13,^REPLACE^REC^IF^SHORTER^'02C0012^SBR^^00B,X13,^'05C0013^MLCS^00C,@'@,0-1&X13, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: ^REC^MARK^IS^TERM^CHAR^'06?0014^ZA^^^00B,MSVARECNT,^IF^DELETE^CNT^IS^ZERO^BRAN^^HC^'03G0015^BZ^^^00B 11 1 1 1 1 11 1 1 701: ,MSLOCDITTO,^TO^PUT^'06B0016^ZA^^^00CMSVARDEL,X14,MSVARBLK,^SAVE^ADDR^OF^OLD^BLCK^'03D0017^A^^^^00C, 1 1 11 1 1 1 1 1 11 1 1 1 801: 3&X14,MSVARBLK,^'05B0018^S^^^^00C,MSVARECNT,3&X14,^REDUCE^BLOCK^CNT^'07?0019^C^^^^00CMSVARCOMP,MSVAR 1 1 11 1 1 1 1 1 11 1 1 1 901: OLD,MSVARBLK,^TEST^FOR^END^OF^BLO^^KC^'03?0020^BE^^^00B,MSVARERACE,^' 1 1 11 1 1 1 1 1 1: 098I05E0021^MLN^^00C,MSVAROLD,*&6,^MODIFY^MOVE^OF^OLD^REC^'05?0022^MRCM^00C,0,0&X13,^MOV^OLD^LOC^TO^ 1 1 1 1 1 1 1 11 1 1 1 1 1 101: NEW^LOC^'04?0023^SAR^^00B,MSVAROLD,^MODIFY^MOVE^'02C0024^SBR^^00B,X13,^'02I0025^B^^^^00B,MSVARCOMP,^ 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: '07B0026^MLN^^00CMSVARERACE,X13,MSVARBLANK&10,^SET^MOVE^TO^NEW^END^ADDR^'06?0027^ZA^^^00C,MSVARECNT, 11 1 1 1 1 1 11 1 1 1 1 301: X13,^NO^CHAR^TO^BLANK^IN^X1^^^3^'02F0028^S^^^^00C,&1,X13,^'03I0029^MLCS^00CMSVARBLANK,@^@,0&X13,^'04 1 11 1 1 1 1 1 11 1 1 1 1 1 11 401: A0030^BZ^^^00B,*&8,^IF^ALL^BLANK^EXIT^'03C0031^B^^^^00B,MSVARBLANK-11,^'06D0032^BW^^^00C,MSLOCDITTO, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: MSLOCATEX,^BRANCH^IF^REC^WI^SANSER^'05E0033^SW^^^00B,MSVARPUTSW,^FORCE^WRITE^BACK^OF^DRHA^'05D0034^B 1 11 1 1 1 1 11 1 601: ^^^^00B,MSVRETEN,^BRANCH^TO^ENTER^LOC^MACRO^'07D0035^ZA^^^00CMSVAREXPAN,3&X13,MSVARECNT,^STORE^OLD^R 1 1 1 11 1 1 1 1 1 701: EC^LEN^ASLED^^***^'06?0036^ZA^^^00C,MSVARECNT,MSVAROLD,^NEXT^REC^LOC^IN^BKCOL^'03B0037^A^^^^00C,X13, 11 1 1 1 1 1 11 1 1 1 1 801: MSVAROLD,^'05?0038^CW^^^00B,MSLOCATEX,^FORCE^ENTRY^TO^LOCAT^'05B0039^B^^^^00B,MSVARDEL,^BRANCH^TO^DE 1 11 1 1 1 1 11 1 1 1 1 901: LET^OLD^REC^'05B0040^NOPWM00BMSLOCDITTO,,^IF^USING^DITTO^DO^NOT^'02D0041^B^^^^00B,*&25,^' 11 1 1 11 11 1 1 1 1 1 1: 027E03?0042^SW^^^00B,MSLOC1STSW,^'02G0043^ZA^^^00C,X14,X11,^'03?0044^B^^^^00B,MSLOCATPUT,^'03B0045^C 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 101: W^^^00B,MSLOCDITTO&1,^'03G0046^B^^^^00B,MSLOCATEX,^TO^EXIT^'03E0047^DCW^^00BMSVARECNT,#4,^***^'03?00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 48^DCW^^00BMSVAROLD,#5,^'03?0049^DCW^^00BMSVARBLK,#5,^'02?0050^MEND^00B,,^' 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SSKEDA' 1 1 1 1: 093B02?0001^EJECT00B,,^'05C0002^SCHED00B*^*^*^^ARM,ULER^-^MARCH^1968,^*^*^*^'02A0003^SFX^^00B,A,^'05 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 101: C0004^SBR^^00BSTACKIT,SKEDXIT&5,^FROM^MVRSC^MACRO^'03C0005^ZA^^^00C,BESTSOFAR,X11,^'04E0006^MRN^^00C 1 1 1 1 11 1 1 1 1 1 11 1 1 201: ,SKEDXIT&1,0&X11,^SAVE^EXIT^'04F0007^MRCWG00C,0&X15,5&X11,^MOVE^IN^RECORD^'02G0008^ZA^^^00C,X11,X15, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: ^'04C0009^A^^^^00C,DSKAD,X15,^X15^TO^DSKADS^'04C0010^A^^^^00C,ARMS,X11,^X11^AT^ARM^POS^'05H0011^MLCB 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: ^00CRACLOOP,9&X14,RACKEY,^PICK^UP^PARAMETERS^'03H0012^MLCB^00B,,^ACCORDING^TO^MTAB^'05F0013^MRCWG00C 1 1 1 1 11 1 1 11 11 1 1 501: ,X11-4,SAVEX11,^SAVE^XRGS^DURING^RACON^'03F0014^B^^^^00B,$RACNS,^NECESSARY^'02G0015^DCW^^00B,@^^^^^@ 1 1 1 11 1 1 1 1 11 1 1 1 601: ,^'03C0016^DCW^^00BRACKEY,@^^^^^@,^'03C0017^B^^^^00BNOMODXIT,NOMOD,^'05G0018^MRCWG00C,SAVEX11,X11-4, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 701: ^RESET^XREGS^AFTER^RACON^'06E0019^MLCWA00C,$IOCSDSKAD,7&X15,^CLOBBER^POSSIBLE^PREV.^GM/WM^'03B0020^M 11 1 1 1 1 1 11 1 801: LCB^00C,1&X15,ARMARG,^'03C0021^LE^^^00C,ARMARG,ARMTAB,^'03?0022^SBR^^00B,MOVINARM&5,^'04F0023^BU^^^0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 901: 0B,ARMERR,^NOLOC^ON^ARM^-^GOOF^' 1 1 1 1: 097H06I0024^MLCS^00CMOVINARM,0,0&X11,^ROUTINE^CONVERTS^TRACK^ADDRESS^TO^'03A0025^MLCB^00C,5&X15,TRAC 1 1 1 1 1 1 1 11 1 1 1 1 101: K,^'03B0026^LLE^^00C,TRACK,TAB180,^'02C0027^SBR^^00B,X13,^'04E0028^MLCS^00C,0&X13,1&X11,^180^BAND^^1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: -5^'03A0029^S^^^^00C,4&X13,TRACK,^'03B0030^LLE^^00C,TRACK,TAB120,^'02C0031^SBR^^00B,X13,^'04D0032^ML 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: CS^00C,0&X13,2&X11,^120^BAND^1-6^'03A0033^S^^^^00C,4&X13,TRACK,^'03A0034^LLE^^00C,TRACK,TAB50,^'02C0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 035^SBR^^00B,X13,^'03A0036^MLCS^00C,0&X13,3&X11,^'04B0037^A^^^^00C,EIGHTTEN,X15,^A^^&8,X15^'03?0038^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: A^^^^00B,,^A^&10,X14^'02H0039^A^^^^00C,FOUR,X11,^'04I0040^MLCS^00C,RMK,0&X11,^RMK^IS^END^OF^BANDS^'0 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 5D0041^MLCWS00C,GMWMK,0&X15,^GMWMK^IS^END^OF^DSKADS^'05I0042^BCE^^00DSELSWITCH,LOADR,0&X14,",^IF^AT^ 1 1 1 1 1 11 1 1 1 1 1 1 701: END^OF^SET^'02G0043^B^^^^00B,RACLOOP,^'06F0044^A^^^^00CLOADR,BASICREC,BESTSOFAR,^BESTSOFAR^TO^NEXT^S 11 1 1 1 1 11 1 1 1 1 1 801: LOT^'03D0045^MLNA^00C,BESTSOFAR,*&11,^'05B0046^BCE^^00D,*&8,0,",^TEST^FOR^FINAL^GROUPMARK^'02G0047^B 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 901: ^^^^00BRDEXIT,0,^'02I0048^CW^^^00B,SETBUSY&1,^'03A0049^SAR^^00B,SELSWITCH&5,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098G03F0050^B^^^^00BSETBUSY,LOOKUPTAB,^'05?0051^A^^^^00C,K1,0-3&X12,^ADD^IN^FOR^ARM^BUSY^'06D0052^ML 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: CS^00C,3&X11,0&X12,^UPDATE^PREDICTED^POSITION^OF^ARM^'02?0053^MLCS^00B,,^'02?0054^MLCS^00B,,^'02H005 1 1 1 1 11 1 1 11 11 1 1 11 11 1 201: 5^A^^^^00C,FOUR,X11,^'03A0056^BCE^^00D,*&8,0&X11,',^'02I0057^B^^^^00B,RENTLUKUP,^'04I0058^B^^^^00BGO 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 301: 2MVRSA,22194,^BRANCH^TO^MVRSA^'02?0059^NOP^^00B,,^'03E0060^SW^^^00BSBITSW,SELECTBIT,^'04I0061^ZA^^^0 1 1 11 1 1 11 11 1 1 1 1 11 1 1 401: 0C,STACKTOP,X12,^SET^X12^FOR^USER^'06D0062^MLCS^00C,4&X12,SKEDXIT&5,^SET^CORRECT^EXIT^^^^^^^^^G57^'0 1 1 1 11 1 1 1 1 1 11 501: 2?0063^MLCS^00B,,^'02?0064^MLCS^00B,,^'02?0065^MLCS^00B,,^'02?0066^MLCS^00B,,^'02H0067^A^^^^00C,FIVE 1 1 11 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 601: ,X12,^'02H0068^B^^^^00BSKEDXIT,0,^'05F0069^SBR^^00BIFSELECTD,SCHEDXIT&5,^FROM^SCHED^MACRO^'03C0070^B 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: W^^^00C,*&8,SELECTBIT,^'02I0071^B^^^^00BSCHEDXIT,0,^'03B0072^MLCB^00C,EXIT3&5,SVX3,^'02F0073^CW^^^00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 801: B,RETX&1,^'02G0074^SAR^^00B,EXIT3&5,^'02H0075^B^^^^00B,DOSELECT,^'03F0076^MLCA^00CRETX,SVX3,EXIT3&5, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 901: ^'02H0077^B^^^^00B,SCHEDXIT,^'02?0078^NOP^^00B,,^'03G0079^B^^^^00BSELECTBIT,DOSELECT,^' 11 1 1 1 1 11 1 1 11 11 1 1 1 1 1 1: 100?03A0080^B^^^^00BEXIT3A,0,^G76^'03G0081^CW^^^00BDOSELECT,SELECTBIT,^'06A0082^MLCB^00C,NINETY9,POS 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: ITION,^INITIALIZE^TO^WORST^CASE^'06A0083^ZA^^^00C,KTWO,POINTER,^START^WITH^2ND^ELEMENT^IN^AR^'04?008 1 11 1 1 1 1 1 11 1 201: 4^ZA^^^00COUTERLOOP,POINTER,X11,^'06C0085^BCE^^00D,RELBUSY,0&X11,",^IF^DONE^WITH^ALL^COMPONENTS^'05E 1 1 1 1 11 1 1 1 1 1 1 11 301: 0086^A^^^^00C,ARMS,X11,^X11^EQ^FIRST^ARM^TAB^ENTRY^'03I0087^S^^^^00B,DISTANCE,^INITIALIZE^'03G0088^S 1 1 1 1 1 11 1 1 1 1 11 1 401: ^^^^00BINNERLOOP,TEMPDIST,^'03?0089^MLCS^00C,0&X11,ARG1,^'03B0090^LE^^^00C,ARG1,ARMTAB1,^'02C0091^SB 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: R^^00B,X12,^'05H0092^MLCS^00C,3&X11,BBB,^BAND^POSITIONS^FOR^THIS^FILE^'02?0093^MLCS^00B,,^'02?0094^M 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 601: LCS^00B,,^'02I0095^MLCS^00C,0&X12,AAA,^'02?0096^MLCS^00B,,^'02?0097^MLCS^00B,,^'05H0098^S^^^^00C,BBB 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 1 701: ,AAA,^IF^SUBTRACT^RESULTS^IN^0,^BOTH^'05C0099^S^^^^00B,,^PRED.^POS^BAND^AND^REQ.^BAND^ARE^'02?0100^S 1 1 11 1 1 11 11 1 801: ^^^^00B,,^'03A0101^BCE^^00D,*&8,AAA-2,0,^'04H0102^B^^^^00B,IS180,^AT^LEAST^A^180^MS^SEEK^'03A0103^BC 1 11 11 1 1 1 1 1 1 11 1 1 1 1 11 1 901: E^^00D,*&8,AAA-1,0,^'04H0104^B^^^^00B,IS120,^AT^LEAST^A^120^MS^SEEK^'03A0105^BCE^^00D,NEXTR,AAA,0,^' 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1 1: 098A04F0106^B^^^^00B,IS50,^AT^LEAST^A^50^MS^SEEK^'03F0107^A^^^^00CIS180,K1,TEMPDIST,^'03F0108^A^^^^0 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: 0CIS120,K1,TEMPDIST,^'03E0109^A^^^^00CIS50,K1,TEMPDIST,^'04G0110^ZA^^^00BNEXTR,0-3&X12,^IF^ARM^IS^FR 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: EE^'02D0111^BZ^^^00B,*&12,^'03F0112^A^^^^00C,PENALTY,TEMPDIST,^'03G0113^C^^^^00C,DISTANCE,TEMPDIST,^ 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: '05C0114^BL^^^00B,*&13,^INTERESTED^IN^LONGEST^SEEK^O^'03G0115^MLCA^00C,TEMPDIST,DISTANCE,^'06F0116^B 11 1 1 1 1 11 1 1 1 1 1 11 1 401: CE^^00D,LVINNER,DISTANCE,7,^MAXIMUM^ATTAINED^-^QUIT^NOW^'02H0117^A^^^^00C,FOUR,X11,^'03A0118^BCE^^00 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: D,*&8,0&X11,',^'02I0119^B^^^^00B,INNERLOOP,^'07C0120^C^^^^00CLVINNER,POSITION,DISTANCE,^CHECK^IF^THI 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: S^ENTRY^ANY^BETT^'02I0121^BH^^^00B,STEPOINTR,^'03G0122^MLCA^00C,DISTANCE,POSITION,^'02?0123^MLCA^00B 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: ,,^'07D0124^A^^^^00CSTEPOINTR,BASICREC,POINTER,^STEP^THRU^TRANS^IN^SCHEDULIN^'02I0125^B^^^^00B,OUTER 11 11 1 1 1 1 1 11 1 1 1 801: LOOP,^'05H0126^B^^^^00BRELBUSY,LOOKUPTAB,^DELETE^ARM^BUSY^COUNT^'05G0127^S^^^^00C,K1,0-3&X12,^DELETE 1 11 1 1 1 1 11 1 1 1 1 1 901: ^FROM^ARM^BUSY^COUNT^'02H0128^A^^^^00C,FOUR,X11,^'03A0129^BCE^^00D,*&8,0&X11,',^' 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1: 098D02I0130^B^^^^00B,RENTLUKUP,^'03H0131^ZA^^^00CEXIT2,BESTSOFAR,X12,^'05G0132^B^^^^00B,MOVOUT,^RECO 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: RD^AT^X12^-^MOVE^TO^WINNER^'05?0133^B^^^^00BEXIT3,0,^BECOMES^B^IOCS^WAITLOOP^'04?0134^SBR^^00BLOOKUP 11 1 1 1 1 11 1 1 201: TAB,LOOKUPTBX&5,^'05?0135^ZA^^^00C,KLSTA,X11,^TO^ARM^POS.OF^OUTPUT^'03D0136^SW^^^00BRENTLUKUP,0&X11, 1 1 11 1 1 1 1 1 11 1 1 1 1 301: ^'03C0137^LE^^^00C,0&X11,ARMTAB1,^'02C0138^SBR^^00B,X12,^'02E0139^CW^^^00B,0&X11,^'03?0140^B^^^^00BL 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: OOKUPTBX,0,^'06H0141^SBR^^00BMOVOUT,MOVITOUTX&5,^X12^ASSUMED^SET^IN^THIS^SUBRTN^'06B0142^MLNA^00C,ST 1 1 11 1 1 1 1 11 1 1 1 501: ACKTOP,MOVING&10,^MOVE^REC^TO^WINNER^SLOT^'06B0143^MRCWM00CMOVING,0&X12,0,^MOVE^THE^ENTIRE^RECORD^NO 1 1 11 1 1 1 1 1 601: ^MA^'05A0144^SAR^^00B,X12,^HOW^MANY^GM/WMKS^OR^RMKS^IN^'02I0145^SBR^^00B,MOVING&10,^'03D0146^C^^^^00 11 1 1 1 1 11 1 1 1 1 11 1 1 701: C,MOVING&10,KTWO,^'02F0147^BH^^^00B,MOVING,^'03?0148^B^^^^00BMOVITOUTX,0,^'05E0149^SBR^^00BDRIVEOUT, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: DRIVEXIT&5,^FROM^ASEOF^MACRO^'03C0150^ZA^^^00C,$IOCSBWL5,X15,^'03C0151^MLNA^00C,SAVEWLB,5&X15,^'04D0 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: 152^ZA^^^00C,SKEDXIT&5,T5,^LV^ASEOF^IF^'04D0153^BZ^^^00B,DRIVEXIT,^NEVER^USED^^RTN^' 1 1 1 1 11 1 1 1 1 1 1: 098A06?0154^C^^^^00C,SELSWITCH&5,KLOADR,^CHK^IF^STACK^NOT^FULL^'02I0155^BU^^^00B,*&14,^G151^'03?0156 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^CW^^^00B,DRIVEXIT&1,^'02D0157^SAR^^00B,D3&5,^'02F0158^CW^^^00B,SBITSW,^'03G0159^ZA^^^00CDRIVE2,NEXT 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: OUT,X12,^'03F0160^A^^^^00C,BASICREC,NEXTOUT,^'03C0161^C^^^^00C,X12,BESTSOFAR,^'02H0162^BE^^^00BD3,DR 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: IVE2,^'03F0163^BCE^^00D,DRIVEXIT,0&X12,",^'02F0164^B^^^^00B,MOVOUT,^'05?0165^B^^^^00B,GO2MVRSA,^TO^P 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: UT^OUT^THE^RECORD^'02I0166^B^^^^00BDRIVEXIT,0,^'04A0167^^^^^^00B*,,^DRIVE-OUT^CODE^HERE^'03D0168^B^^ 11 1 1 1 1 11 1 1 11 11 1 501: ^^00BARMERR,$MSDECEN,^'02F0169^DCW^^00B,BADBET,^'02I0170^DCW^^00B,TERMINATE,^'02F0171^B^^^^00B,RDEXI 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: T,^'07A0172^DCW^^00B^BADBET,@BAD^ARM;^A^TO^BYPASS^RECD;^B^TO^TERMINATE^@,^'02G0173^DCW^^00C,@RUN@,G, 1 11 1 1 1 1 11 1 1 1 1 1 701: ^'03C0174^B^^^^00BNOMOD,$MSDECEN,^'02G0175^DCW^^00B,MODDOWN,^'02I0176^DCW^^00B,TERMINATE,^'02F0177^B 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: ^^^^00B,RDEXIT,^'07F0178^DCW^^00B^MODDOWN,@MODULE^DOWN;^A^TO^BYPASS^RECD;^B^TO^TERMINATE^@,^'02G0179 1 1 1 11 1 1 1 1 11 1 901: ^DCW^^00C,@RUN@,G,^'03G0180^B^^^^00BTERMINATE,$MSTYPEN,^'02D0181^DCW^^00B,TERM,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097D02E0182^B^^^^00B,00496,^'04C0183^DCW^^00C^TERM,@RUN^TERMINATED@,G,^'05G0184^^^^^^00B*,,^IN^COPE^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 11 101: II^C^IT^IS^27631^-^B^^27094^'05H0185^DA^^^00CSAVEX11,1X25,G,^AREA^FOR^HOLDING^X11-X15^'02I0186^DCW^^ 11 1 1 1 1 1 11 1 201: 00BARMS,@000@,^'03A0187^DCW^^00BRPLUS5,@000@,^'03?0188^DCW^^00BDSKAD,@000@,^'03C0189^DCW^^00BBASICRE 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: C,@000@,^'06?0190^DCW^^00BOPTIMUM,@011@,^INCLUDES^REC.IN^OUTPUT^POS.^'02D0191^DCW^^00B,@10@,^'03A019 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 2^DCW^^00BEIGHTTEN,@8@,^'02F0193^DCW^^00BSVX3,#5,^'02F0194^DCW^^00BFOUR,&4,^'02G0195^DCW^^00BFIVE,@5 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: @,^'02H0196^DCW^^00BBLANK,@^@,^'02F0197^DCW^^00BRMK,@'@,^'03A0198^DCW^^00BNINETY9,@99@,^'02D0199^DCW 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: ^^00BT5,#5,^'03H0200^DCW^^00BSBADCON,SELECTBIT-1,^'03A0201^DCW^^00BKLOADR,LOADR,^'02H0202^DCW^^00BGM 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: WMK,@"@,^'03?0203^DCW^^00BSETSIZE,@1@,^'03D0204^DCW^^00BNEXTOUT,@00000@,^'03B0205^DCW^^00BKLSTA,@^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: ^^@,^'03A0206^DCW^^00BKTWO,@^^^^^@,^'03E0207^DCW^^00BSTACKTOP,@^^^^^@,^'03D0208^DCW^^00BSAVEWLB,@^^^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ^^@,^'03B0209^DCW^^00BTEMPDIST,@00@,^'03F0210^DCW^^00BBESTSOFAR,@^^^^^@,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 100?05I0211^DCW^^00BPOSITION,@00@,^HOLD^FINAL^POSITION^OF^ARM^'03D0212^DCW^^00BPOINTER,@^^^^^@,^'05C 1 1 1 1 1 1 11 1 1 1 1 11 101: 0213^DCW^^00BDISTANCE,@00@,^HOLD^INTERIM^RESULTS^'02C0214^DCW^^00B,@^@,^'02C0215^DCW^^00B,@^@,^'02F0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 216^DCW^^00BBBB,@^@,^'02C0217^DCW^^00B,@^@,^'02C0218^DCW^^00B,@^@,^'02F0219^DCW^^00BAAA,@^@,^'06I022 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 0^DCW^^00BPENALTY,@04@,^PENALTY^FOR^ARM^BUSY-^USE^IN^DOARMLST^'06?0221^DCW^^00BK1,@1@,^CONSTANTS^USE 1 1 1 11 1 1 1 1 401: D^TO^COMPUTE^EXPECTED^'02A0222^^^^^^00B*,,^'06F0223^DCW^^00B,@1^^^^@,^TABLES^FOR^CALCULATING^POSITIO 11 1 1 11 11 1 1 1 1 501: NS^OF^AR^'02G0224^DCW^^00B,@22400@,^'02G0225^DCW^^00B,@34000@,^'02G0226^DCW^^00B,@46400@,^'06B0227^D 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: CW^^00BTAB180,@58000@,^BANDS^FOR^180^MILLISEC^SEEKS^'02A0228^^^^^^00B*,,^'02G0229^DCW^^00B,@1^^^^@,^ 1 1 1 11 1 1 11 11 1 1 1 1 701: '02G0230^DCW^^00B,@20400@,^'02G0231^DCW^^00B,@30800@,^'02G0232^DCW^^00B,@41200@,^'02G0233^DCW^^00B,@ 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 51600@,^'06B0234^DCW^^00BTAB120,@62000@,^BANDS^FOR^120^MILLISEC^SEEKS^'02A0235^^^^^^00B*,,^'02G0236^ 1 11 1 1 1 1 11 1 1 11 11 1 901: DCW^^00B,@00000@,^'02G0237^DCW^^00B,@10040@,^'02G0238^DCW^^00B,@20080@,^'02G0239^DCW^^00B,@30120@,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096H02G0240^DCW^^00B,@40160@,^'02G0241^DCW^^00B,@50200@,^'02G0242^DCW^^00B,@60240@,^'02G0243^DCW^^00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 101: B,@70280@,^'02G0244^DCW^^00B,@80320@,^'03B0245^DCW^^00BTAB50,@90360@,^'02A0246^^^^^^00B*,,^'03A0247^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 201: DCW^^00BTRACK,@^^^^@,^'03?0248^DCW^^00BARMARG,@^^@,^'03C0249^DCW^^00B,@^@,^TABLE^TOP^'02E0250^DCW^^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0B,@F*C@,^'04C0251^DCW^^00B,@E*3@,^KEY^IS^*3,^ARG^^E^'02E0252^DCW^^00B,@D*B@,^'02E0253^DCW^^00B,@C*2 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: @,^'02E0254^DCW^^00B,@A*A@,^'02E0255^DCW^^00B,@B*1@,^'02E0256^DCW^^00B,@9*?@,^'02E0257^DCW^^00B,@8*0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: @,^'02E0258^DCW^^00B,@7@C@,^'02E0259^DCW^^00B,@6@3@,^'02E0260^DCW^^00B,@5@B@,^'02E0261^DCW^^00B,@4@2 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: @,^'02E0262^DCW^^00B,@3@A@,^'02E0263^DCW^^00B,@2@1@,^'02E0264^DCW^^00B,@1@?@,^'03A0265^DCW^^00BARMTA 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: B,@0@0@,^'02A0266^^^^^^00B*,,^'02A0267^^^^^^00B*,,^'02G0268^DCW^^00BARG1,@^@,^'03C0269^^^^^^00B,@^@, 1 1 11 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 1 801: ^TABLE^TOP^'02H0270^DCW^^00B,@00111F@,^'02H0271^DCW^^00B,@00111E@,^'02H0272^DCW^^00B,@00111D@,^'02H0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: 273^DCW^^00B,@00111C@,^'04D0274^^^^^^00B,@00111B@,^00^-^BUSY^COUNT^' 1 1 1 11 1 1 1 1 1 1: 099B04H0275^^^^^^00B,@00111A@,^111^-^PRED^POSITION^'02H0276^^^^^^00B,@001119@,^'04E0277^^^^^^00B,@00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 1118@,^ARM^STATUS^TABLE^'02H0278^^^^^^00B,@001117@,^'02H0279^^^^^^00B,@001116@,^'02H0280^^^^^^00B,@0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 01115@,^'02H0281^^^^^^00B,@001114@,^'02H0282^^^^^^00B,@001113@,^'02H0283^^^^^^00B,@001112@,^'02H0284 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: ^^^^^^00B,@001111@,^'03E0285^DCW^^00BARMTAB1,@001110@,^'02A0286^^^^^^00B*,,^'04D0287^OF^ST00B*^^FORM 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 401: AT,ACK^RECORD^----,^'02A0288^^^^^^00B*,,^'05F0289^94^CH00C*^^^1,AR^REC-SIZE,^INCLUDES^STUB^&^81,^'07 1 1 11 1 1 11 11 1 1 1 1 1 11 501: A0290^GROUP00C*^^^2,MARK^-^FIXTURE^IN^STACK^,^TERMINATE^INPUT^READ,^'04A0291^DISKA00B*^^^3,DS^-^SETS 1 1 1 1 1 11 1 1 1 601: IZE^*^8,^'06I0292^GROUP00C*^^^4,MARK^-^FIXTURE^IN^STACK^,^TERMINATES^DISKADS,^'04G0293^ARM-B00B*^^^5 1 11 1 1 1 1 1 11 1 1 701: ,AND^SETS^-^SETSIZE^*^4,^'06G0294^RECOR00C*^^^6,D^MARK^-^FIXTURE,^TERMINATES^ARM-BAND^SETS,^'05B0295 1 1 11 1 1 1 1 1 11 1 801: ^BLANK00B*^^^7,^-^UP^TO^LAST^POS^IF^NEEDED,^'02A0296^^^^^^00B*,,^'05C0297^STACK00B*,^IS^TERMINATED^B 1 1 1 11 1 1 11 11 1 1 1 901: Y^A^GMK^IN^POS^1,^'02?0298^SFX^^00B,,^'03C0299^EQU^^00BIOCSBWL5,21599,^'02?0300^MEND^00B,,^' 1 11 1 1 11 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SSLNKK' 1 1 1 1: 096?06A0001^O^EQU00B*^^TABLE^T,ATE^USER^TO^SLING^AREA^03/15/68,^'03E0002^EQU^^00BTRBMSIRECD,04442,^' 1 1 1 1 1 1 11 1 1 1 1 1 101: 03D0003^EQU^^00BTRBRECSIZ,04444,^'03D0004^EQU^^00BTRBMSIRID,04447,^'03E0005^EQU^^00BTRBRECDATE,04451 1 1 1 1 1 11 1 1 1 1 11 1 1 1 201: ,^'03E0006^EQU^^00BTRBMSIRMOD,04452,^'03B0007^EQU^^00BTRBTIME,04456,^'03E0008^EQU^^00BTRBACTNCDE,044 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 57,^'03?0009^SIC^^00B*^^MSIR^BA,,^'03E0010^EQU^^00BMRAMSIRECD,04458,^'03D0011^EQU^^00BMRARECSIZ,0446 1 11 1 1 11 11 1 1 1 1 11 1 1 1 401: 0,^'05C0012^EQU^^00BMRAMCC,04461,^MATERIAL^CONTROL^CODE^'05E0013^EQU^^00BMRAAAC,04461,^ACQUISITION^A 1 11 1 1 1 1 11 1 1 1 1 501: DVICE^CODE^'04G0014^EQU^^00BMRAACCT,04462,^STORES^ACCOUNT^'04I0015^EQU^^00BMRACOG,04463,^COGNIZANCE^ 11 1 1 1 1 11 1 1 1 1 601: SYMBOL^'05A0016^EQU^^00BMRAFSC,04467,^FEDERAL^STOCK^CLASS^'05D0017^EQU^^00BMRAFIIN,04474,^FEDERAL^IT 11 1 1 1 1 11 1 1 1 1 701: EM^IDENT^NO^'05F0018^EQU^^00BMRACOND,04475,^MATERIAL^CONDITION^CODE^'04D0019^EQU^^00BMRAUI,04477,^UN 11 1 1 1 1 11 1 1 1 1 801: IT^OF^ISSUE^'04A0020^EQU^^00BMRAUP,04485,^UNIT^PRICE^'05H0021^EQU^^00BMRAINVCAT,04486,^INVENTORY^CAT 11 1 1 1 1 11 1 1 1 1 901: EGORY^CODE^'04H0022^EQU^^00BMRAOHQ,04494,^ON^HAND^QUANTITY^' 11 1 1 1 1 1 1: 095?04I0023^EQU^^00BMRAPLOC,04503,^PRIMARY^LOCATION^'05A0024^EQU^^00BMRADLA,04507,^DATE^OF^LAST^ACTI 1 1 1 1 1 1 11 1 1 1 1 101: ON^'05E0025^EQU^^00BMRAOBJCL,04510,^OBJECT^CLASSIFICATION^'05?0026^EQU^^00BMRAFREQ,04513,^NUMBER^OF^ 11 1 1 1 1 11 1 1 1 1 201: DEMANDS^'05?0027^EQU^^00BMRACNC,04515,^CHANGE^NOTICE^CODE^'05E0028^EQU^^00BMRAFBMAPL,04516,^FBM^APPL 11 1 1 1 1 11 1 1 1 1 301: ICATION^CODE^'06B0029^EQU^^00BMRAFBMMMF,04517,^MODULE^MAINT^FAC^STOCK^CODE^'05B0030^EQU^^00BMRAIDC,0 11 1 1 1 1 11 1 1 1 401: 4518,^ITEM^DESIGNATOR^CODE^'05C0031^EQU^^00BMRAIRC,04519,^ITEM^RESTRICTION^CODE^'04F0032^EQU^^00BMRA 1 11 1 1 1 1 11 1 1 501: PURPC,04520,^PURPOSE^CODE^'04G0033^EQU^^00BMRACREDITC,04521,^CREDIT^CODE^'05G0034^EQU^^00BMRAPHINC,0 1 1 11 1 1 1 1 11 1 1 1 601: 4522,^PHYSICAL^INVENTORY^CODE^'04D0035^EQU^^00BMRAINDEX,04523,^INDEX^CODE^'06B0036^EQU^^00BMRACONDCT 1 11 1 1 1 1 11 1 1 701: ,04524,^CONDITION^CODE^RECORD^COUNT^'05G0037^EQU^^00BMRAOLDCA,04526,^OLD^STORES^ACCT/COG^SYM^'03A003 1 1 11 1 1 1 1 11 1 801: 8^TRAIL00B*^^MSIR^A,ER,^'03C0039^EQU^^00BMRATYPEA,04528,^'03D0040^EQU^^00BMRATLRACT,04530,^'05H0041^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: EQU^^00BMRAISSIP,04536,^INPROCESS^ISSUE^QUANTITY^' 1 1 1 1 1: 095G06?0042^EQU^^00BMRARECIP,04542,^INPROCESS^RECEIPT^QUANTITY^'05A0043^EQU^^00BMRABOQ,04548,^BACK^O 1 1 1 1 1 1 11 1 1 1 1 101: RDER^QUANTITY^'04E0044^EQU^^00BMRADUEQ,04554,^DUE^QUANTITY^'05F0045^EQU^^00BMRAQFRC,04555,^QTY^FIELD 11 1 1 1 1 11 1 1 1 1 201: ^RETAINER^CODE^'05G0046^EQU^^00BMRAPRQTY,04561,^PLANNED^REQUIREMENT^QTY^'05E0047^EQU^^00BMRARESQTY,0 11 1 1 1 1 11 1 1 1 301: 4567,^RESERVATION^QUANTITY^'03A0048^TRAIL00B*^^MSIR^B,ER,^'03C0049^EQU^^00BMRATYPEB,04569,^'03D0050^ 1 11 1 1 1 1 11 1 1 1 1 11 1 401: EQU^^00BMRATLRBCT,04571,^'05F0051^EQU^^00BMRAMAXBIN,04574,^MAXIMUM^BIN^ISSUE^QTY^'05A0052^EQU^^00BMR 1 1 1 11 1 1 1 1 11 1 1 501: ASLOC,04583,^SECONDARY^LOCATION^'05?0053^EQU^^00BMRATLOC,04592,^TERTIARY^LOCATION^'05A0054^EQU^^00BM 1 1 11 1 1 1 1 11 1 1 601: RASALE,04593,^REDUCED^PRICE^CODE^'05F0055^EQU^^00BMRASUBTYPE,04594,^SUBSTITUTE^TYPE^CODE^'05E0056^EQ 1 1 11 1 1 1 1 11 1 701: U^^00BMRASUBCOGA,04596,^SUBSTITUTE^ACCT/COG^'05H0057^EQU^^00BMRASUBFSN,04607,^SUBSTITUTE^FED^STOCK^N 1 1 1 11 1 1 1 1 801: O^'05D0058^EQU^^00BMRAQUP,04611,^QUANTITY^PER^UNIT^PACK^'04F0059^EQU^^00BMRASECC,04612,^SECURITY^COD 11 1 1 1 1 11 1 1 1 1 901: E^'05D0060^EQU^^00BMRADANGER,04613,^HAZARDOUS^ITEM^CODE^' 11 1 1 1 1 1 1: 097?06D0061^EQU^^00BMRACREDITR,04615,^ISSUE/REPAIR/RESTRICTION^COD^'06D0062^EQU^^00BMRANUMSTKG,04621 1 1 1 1 1 1 11 1 1 1 101: ,^NUMERICAL^STOCKAGE^OBJECTIVE^'05D0063^EQU^^00BMRASTHC,04623,^STORAGE-HANDLING^CODE^'05E0064^EQU^^0 1 11 1 1 1 1 11 1 1 201: 0BMRADECLOC,04624,^DECIMAL^LOCATOR^CODE^'05I0065^EQU^^00BMRAMISID,04625,^MISSILE^SYSTEM^IDENT^CODE^' 1 1 11 1 1 1 1 1 301: 05G0066^EQU^^00BMRACONVERF,04629,^U/I^CONVERSION^FACTOR^'05H0067^EQU^^00BMRACONVUI,04631,^CONVERTED^ 1 1 1 1 1 11 1 1 1 1 401: UNIT^OF^ISSUE^'05I0068^EQU^^00BMRAINDATE,04635,^INDEX^ESTABLISHMENT^DATE^'03A0069^TRAIL00B*^^MSIR^C, 11 1 1 1 1 11 1 1 1 501: ER,^'03C0070^EQU^^00BMRATYPEC,04637,^'03D0071^EQU^^00BMRATLRCCT,04639,^'05I0072^EQU^^00BMRATSMC,0464 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: 3,^TECHNICAL^SUPPLY^MGMT^CODE^'04H0073^EQU^^00BMRAAIR,04644,^ACTIVE^ITEM^CODE^'04H0074^EQU^^00BMRASO 1 11 1 1 1 1 11 1 1 701: S,04646,^SOURCE^OF^SUPPLY^'05I0075^EQU^^00BMRAFILLQ,04652,^FLEET^ISSUE^LOAD^LIST^QTY^'06D0076^EQU^^0 1 1 11 1 1 1 1 11 1 1 801: 0BMRAFILLFAC,04654,^FLEET^ISSUE^LOAD^LIST^FACTOR^'05F0077^EQU^^00BMRALEAD,04655,^MATERIAL^LEAD^TIME^ 1 1 11 1 1 1 1 901: CODE^'03A0078^TRAIL00B*^^MSIR^D,ER,^'03C0079^EQU^^00BMRATYPED,04657,^' 11 1 1 1 1 11 1 1 1 1 1 1: 099E03D0080^EQU^^00BMRATLRDCT,04659,^'06?0081^EQU^^00BMRADMDFREQ,04661,^CURRENT^DEMAND^FREQUENCY^'05 1 1 1 1 1 1 11 1 1 1 1 11 101: E0082^EQU^^00BMRADMD,04667,^CURRENT^DEMAND^QUANTITY^'05D0083^EQU^^00BMRALL,04673,^LOW^LIMIT-REORDER^ 1 1 1 1 11 1 1 1 1 201: POINT^'05F0084^EQU^^00BMRASHLAC,04675,^SHELF^LIFE^ACTION^CODE^'04H0085^EQU^^00BMRASHLC,04676,^SHELF^ 11 1 1 1 1 11 1 1 1 1 301: LIFE^CODE^'05D0086^EQU^^00BMRADMDQ1,04682,^FIRST^QTR^DEMAND^QTY^'05E0087^EQU^^00BMRADMDQ2,04688,^SEC 11 1 1 1 1 11 1 1 1 1 401: OND^QTR^DEMAND^QTY^'05D0088^EQU^^00BMRADMDQ3,04694,^THIRD^QTR^DEMAND^QTY^'06A0089^EQU^^00BMRADMDFRC, 11 1 1 1 1 11 1 1 1 501: 04695,^DEMAND^FIELD^RETAINER^CODE^'05I0090^EQU^^00BMRAAQDVSL,04702,^AVERAGE^QUARTERLY^DEMAND^'05H009 1 11 1 1 1 1 11 1 601: 1^EQU^^00BMRAMADVSL,04709,^MEAN^ABSOLUTE^DEVIATION^'04G0092^EQU^^00BMRASEVSL,04715,^SUM^OF^ERRORS^'0 1 1 1 11 1 1 1 1 11 701: 5B0093^EQU^^00BMRAALTVSL,04718,^AVERAGE^LEAD^TIME^'05H0094^EQU^^00BMRAROVSL,04724,^REQUISITIONING^OB 1 1 1 1 11 1 1 1 1 801: JECTIVE^'03A0095^TRAIL00B*^^MSIR^E,ER,^'03C0096^EQU^^00BMRATYPEE,04726,^'03D0097^EQU^^00BMRATLRECT,0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: 4728,^'04F0098^EQU^^00BMRAWEIGHT,04734,^UNIT^WEIGHT^'04B0099^EQU^^00BMRACUBE,04738,^UNIT^CUBE^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 097F06?0100^EQU^^00BMRANMFC,04744,^NATIONAL^MOTOR^FREIGHT^CODE^'04D0101^EQU^^00BMRACARGO,04746,^CARG 1 1 1 1 1 1 11 1 1 1 1 101: O^CODE^'03A0102^TRAIL00B*^^MSIR^F,ER,^'03C0103^EQU^^00BMRATYPEF,04748,^'03D0104^EQU^^00BMRATLRFCT,04 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 750,^'05?0105^EQU^^00BMRACUSTQ,04756,^CUSTODY^QUANTITY^'05C0106^EQU^^00BMRASUPDES,04768,^SUPPLY^DESC 1 11 1 1 1 1 11 1 1 1 1 301: RIPTION^'05I0107^EQU^^00BMRAWATCOM,04773,^WATER^COMMODITY^EXC^CODE^'06B0108^EQU^^00BMRAWATALPH,04779 11 1 1 1 1 11 1 1 1 401: ,^WATER^COMMODITY^ALPHA^CODE^'05H0109^EQU^^00BMRALTRC,04780,^LESS^TRUCK^LOAD^RATE^CODE^'05A0110^EQU^ 1 11 1 1 1 1 11 1 501: ^00BMRARVC,04781,^RAIL^VARIATION^CODE^'06B0111^EQU^^00BMRAACSHC,04783,^AIR^COMMODITY-SPECIAL^HANDLI^ 1 1 1 11 1 1 1 1 601: '03A0112^TRAIL00B*^^MSIR^G,ER,^'03C0113^EQU^^00BMRATYPEG,04785,^'03D0114^EQU^^00BMRATLRGCT,04787,^'0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 701: 5B0115^EQU^^00BMRADLR,04791,^DATE^OF^LAST^RECEIPT^'05F0116^EQU^^00BMRAAEPCODE,04792,^AVG^ESTIM^PRICE 1 1 1 1 11 1 1 1 1 801: ^CODE^'05B0117^EQU^^00BMRAIMC,04794,^ITEM^MANAGEMENT^CODE^'05H0118^EQU^^00BMRAOFSDES,04795,^OFFSITE^ 11 1 1 1 1 11 1 1 1 1 901: DESIGNATOR^CODE^'05I0119^EQU^^00BMRASHIPDC,04797,^SHIPMENT^DESIGNATOR^CODE^' 11 1 1 1 1 1 1: 095A05G0120^EQU^^00BMRAEXSPI,04798,^EXCESS^PROC^INTERR^CODE^'05B0121^EQU^^00BMRASTDPK,04799,^STANDAR 1 1 1 1 1 1 11 1 1 1 1 101: D^PACK^CODE^'05C0122^EQU^^00BMRAPURPCC,04800,^PURPOSE^CODE^COUNT^'05F0123^EQU^^00BMRARRC,04801,^RECE 11 1 1 1 1 11 1 1 1 1 201: IPT^RESTRICTION^CODE^'03A0124^TRAIL00B*^^MSIR^H,ER,^'03C0125^EQU^^00BMRATYPEH,04826,^'03D0126^EQU^^0 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0BMRATLRHCT,04828,^'05F0127^EQU^^00BMRADECAPD,04832,^DECAPITALIZATION^DATE^'06C0128^EQU^^00BMRADMDIN 1 1 11 1 1 1 1 11 1 1 401: V,04834,^DMD^FREQ^SINCE^LAST^INVENTOR^'05F0129^EQU^^00BMRADLINV,04838,^DATE^OF^LAST^INVENTORY^'04G01 1 1 11 1 1 1 1 11 1 501: 30^EQU^^00BMRAPWRRQ,04844,^PWRR^QUANTITY^'06?0131^EQU^^00BMRADECAPQ,04850,^DECAPITALIZATION^QUANTITY 1 1 1 11 1 1 1 1 601: ^'03A0132^TRAIL00B*^^MSIR^I,ER,^'03C0133^EQU^^00BMRATYPEI,04895,^'03D0134^EQU^^00BMRATLRICT,04897,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 701: 05C0135^EQU^^00BMRASLQ,04903,^SAFETY^LEVEL^QUANTITY^'05?0136^EQU^^00BMRADF1,04905,^DEMAND^FREQUENCY^ 1 1 1 1 1 11 1 1 1 1 801: 1^'04I0137^EQU^^00BMRADQ1,04911,^DEMAND^QUANTITY^1^'05?0138^EQU^^00BMRADF2,04913,^DEMAND^FREQUENCY^2 11 1 1 1 1 11 1 1 1 1 901: ^'04I0139^EQU^^00BMRADQ2,04919,^DEMAND^QUANTITY^2^' 11 1 1 1 1 1 1: 090?05?0140^EQU^^00BMRADF3,04921,^DEMAND^FREQUENCY^3^'04I0141^EQU^^00BMRADQ3,04927,^DEMAND^QUANTITY^ 1 1 1 1 1 1 11 1 1 1 1 101: 3^'05?0142^EQU^^00BMRADF4,04929,^DEMAND^FREQUENCY^4^'04I0143^EQU^^00BMRADQ4,04935,^DEMAND^QUANTITY^4 11 1 1 1 1 11 1 1 1 1 201: ^'05?0144^EQU^^00BMRADF5,04937,^DEMAND^FREQUENCY^5^'04I0145^EQU^^00BMRADQ5,04943,^DEMAND^QUANTITY^5^ 11 1 1 1 1 11 1 1 1 1 301: '05?0146^EQU^^00BMRADF6,04945,^DEMAND^FREQUENCY^6^'04I0147^EQU^^00BMRADQ6,04951,^DEMAND^QUANTITY^6^' 11 1 1 1 1 11 1 1 1 1 1 401: 05?0148^EQU^^00BMRADF7,04953,^DEMAND^FREQUENCY^7^'04I0149^EQU^^00BMRADQ7,04959,^DEMAND^QUANTITY^7^'0 1 1 1 1 1 11 1 1 1 1 11 501: 5?0150^EQU^^00BMRADF8,04961,^DEMAND^FREQUENCY^8^'04I0151^EQU^^00BMRADQ8,04967,^DEMAND^QUANTITY^8^'05 1 1 1 1 11 1 1 1 1 11 601: ?0152^EQU^^00BMRADF9,04969,^DEMAND^FREQUENCY^9^'04I0153^EQU^^00BMRADQ9,04975,^DEMAND^QUANTITY^9^'03A 1 1 1 1 11 1 1 1 1 11 701: 0154^TRAIL00B*^^MSIR^J,ER,^'03C0155^EQU^^00BMRATYPEJ,04995,^'03D0156^EQU^^00BMRATLRJCT,04997,^'05A01 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 57^EQU^^00BMRAEND,05095,^END^OF^TRAILER^AREA^'03D0158^EQU^^00BMRAMTAMAX,05099,^'02?0159^MEND^00B,,^' 1 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^SSLRPP' 1 1 1 1: 099?06B0001^SBR^^00BSLRPP,)01R&5,^SLURP^INITIALIZATION^^SETS^S/R^'05H0002^MLCS^00C,)03K,MRATYPEA,^IN 1 1 1 1 1 1 11 1 1 1 1 1 101: ITIALIZE^TRAILER^CODES^'03C0003^MLCS^00C,)03L,MRATYPEB,^'03C0004^MLCS^00C,)03M,MRATYPEC,^'03C0005^ML 11 1 1 1 1 1 11 1 1 1 1 1 11 1 201: CS^00C,)03N,MRATYPED,^'03C0006^MLCS^00C,)03O,MRATYPEE,^'03C0007^MLCS^00C,)03P,MRATYPEF,^'05H0008^MLC 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: B^00C,X15,)02J,^EXIT^SAVES^INDEX^REGISTERS^13^'05I0009^CW^^^00B,MRATYPEA&1,^14^&^15^^SET^X14^&^B^ADD 1 1 1 1 11 1 1 1 1 401: R^OF^'05B0010^SAR^^00B,X14,^)00N^TO^MRATYPEA^^SET^X13^TO^'05D0011^SAR^^00B,)00N&10,^TRLR^TABLE^SET^R 11 1 1 1 1 11 1 1 1 1 501: CD^SIZE^TO^'02I0012^SW^^^00B,)02L&1,^70^'02C0013^SAR^^00B,X13,^'02I0014^ZA^^^00C,)02O,)02P,^'05B0015 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 601: ^MLC^^00C)00J,X14,X15,^SET^X15^TO^TRLR^TYPE^'05E0016^A^^^^00C,0&X13,X15,^SET^X15^TO^TRLR^UNITS^POS^' 1 1 1 1 11 1 1 1 1 1 1 701: 03I0017^SAR^^00B,*&6,^STORE^TABLE^LOC^'05G0018^ZA^^^00C,*,)02M,^SET^)02M^TO^NO^OF^FLDS^IN^TRLR^'03I0 1 1 1 1 1 11 1 1 1 1 1 11 1 801: 019^SAR^^00B,X13,^STORE^TABLE^LOC^'04I0020^BZ^^^00B,)01M,^BRANCH^IF^MULT^TYPE^TRLR^'06C0021^ZA^^^00C 1 1 1 11 1 1 1 1 11 1 1 901: )00L,0&X15,)02K,^TRLR^FLD^TEST^FOR^BLANK/ZERO^'04C0022^SAR^^00B,)02N,^STORE^NEXT^FLD^LOC^' 1 1 1 11 1 1 1 1 1 1: 099C04F0023^BZ^^^00B,)00P,^BRANCH^FLD^BLANK/ZERO^'03C0024^BW^^^00C)99M,*&12,)04J,^'02H0025^A^^^^00C, 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: *-10,X15,^'02D0026^SW^^^00B,)04J,^'06?0027^MLC^^00C,)02Q,0&X15,^TRLR^^CALCULATE^NEW^TRLR^SIZE^'05D00 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: 28^S^^^^00C,X14,X15,^PLACE^IN^TRLR^&^ADD^TO^RCD^'03D0029^MLNS^00C,X15,2&X14,^SIZE^'02?0030^MLNS^00B, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: ,^'05?0031^C^^^^00C,2&X14,)03Q,^TEST^FOR^COUNT^OF^3^'02D0032^BE^^^00B,)00O,^'05A0033^BCE^^00D,)28L,0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: &X14,A,^TEST^FOR^TRAILER^A^'03B0034^A^^^^00C)28M,X15,)02P,^'04B0035^MRCM^00C)00N,0&X14,*,^SLURP^TRLR 1 1 11 1 1 1 1 1 11 1 1 1 1 1 501: ^'04E0036^SBR^^00B,)00N&10,^SET^UP^NEXT^SLURP^'04B0037^SBR^^00B,)01Q&10,^SETUP^MT^SLURP^'03B0038^S^^ 11 1 1 1 1 11 1 1 1 1 11 1 601: ^^00C,)00M,)01Q&10,^'03B0039^S^^^^00C,)00M,)00N&10,^'05I0040^A^^^^00C)00O,4&X13,X14,^SET^X14^TO^NEXT 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 701: ^TRLR^TYPE^'02H0041^A^^^^00C,)00M,X14,^'04H0042^S^^^^00B,)02K,^ZERO^FLD^TEST^WORK^AREA^'03D0043^B^^^ 11 1 1 1 1 1 11 1 1 1 1 11 1 801: ^00B,)00J,^NEXT^TRLR^'05I0044^S^^^^00C)00P,)00M,)02M,^DECREMENT^NO^OF^FLDS^CNTR^'05E0045^BZ^^^00B,)0 1 1 1 11 1 1 1 1 1 11 1 1 1 901: 0L,^BRANCH^LAST^FLD^IN^TRLR^TESTED^'05G0046^MLC^^00C,)02N,X15,^SET^X15^TO^NEXT^TRLR^FLD^LOC^' 1 11 1 1 1 1 1 1 1: 096E02D0047^CW^^^00B,)04J,^'03C0048^B^^^^00B,)00L,^NEXT^FLD^'06C0049^CW^^^00B)01M,MRAMTX&1,^INITIALI 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: ZE^MULT^TRLR^TEST^^SET^'05F0050^SAR^^00B,)01Q&5,^A^ADDR^OF^MT^SLURP,^X15,^14^&^'03F0051^SAR^^00B,X15 11 1 1 1 1 11 1 1 1 201: ,^13^TO^MRAMTA^'02G0052^MLC^^00C,X15,X14,^'02?0053^MLC^^00B,,^'06A0054^BCE^^00D)01N,)01P,0&X13,',^BR 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 1 1 301: ANCH^END^OF^MULT^TRLRS^'05G0055^ZA^^^00C,2&X13,)02M,^INCREMENT^X15^BY^LENGTH^OF^'03H0056^A^^^^00C,)0 11 1 1 1 1 1 11 1 1 1 401: 2M,X15,^MULT^TRLR^'05A0057^BCE^^00D,)01O,0&X13,_,^BRANCH^MT^DELETION^'05C0058^A^^^^00C,)02M,)02P,^AD 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 501: D^MT^SIZE^TO^RCD^SIZE^'05D0059^SW^^^00B,0&X15-1,^COMPRESS^MULT^TRLR^AREA^IN^'05F0060^MRC^^00C,0&X13, 11 1 1 1 1 11 1 1 1 1 601: 0&X14,^PREPARATION^FOR^SLURPING^'02C0061^SBR^^00B,X14,^'02G0062^CW^^^00B,0&X15-1,^'06C0063^A^^^^00C) 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: 01O,)02M,X13,^SET^X13^TO^NEXT^MULT^TRLR^TYPE^'04D0064^B^^^^00B,)01N,^NEXT^MULT^TRLR^TEST^'06D0065^ML 1 1 1 11 1 1 1 1 11 1 801: C^^00C)01P,)02Q,0&X14,^PLACE^RM^AT^END^OF^MULT^TRLRS^'05A0066^MRCM^00C)01Q,*,MRATYPEA,^SLURP^MULT^TR 1 1 1 1 11 1 1 1 1 1 901: LRS^'06?0067^MLNA^00C,)02P,MRARECSIZ,^PLACE^NEW^RCD^SIZE^IN^HDR^' 11 1 1 1 1 1 1 1: 099C05B0068^MLCA^00C,)02J,X15,^RESTORE^INDEX^REGISTERS^'03B0069^MLCA^00C,)04L,)01Q&10,^'03F0070^B^^^ 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^00B)01R,*,^SLURP^EXIT^'06F0071^DCW^^00B)02J,@^^^^^^^^^^^^^^^@,^INDEX^REGISTER^HOLD^AREA^'05A0072^^^ 1 1 1 11 1 1 1 1 11 1 201: ^^^00B)02K,@000000000000@,^FLD^TEST^W/A^'05F0073^^^^^^00B,@12@,^TLR^TABLE^***^F^TRLR^NO^OF^FLDS^'03G 1 1 1 11 1 1 1 1 11 301: 0074^^^^^^00B,@99@,^F^TRLR^LNGTH^'04C0075^^^^^^00B,@04@,^E^TRLR^^NO^OF^FLDS^'03H0076^^^^^^00B,@21@,^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: E^TRLR^^LNGTH^'04C0077^^^^^^00B,@12@,^D^TRLR^^NO^OF^FLDS^'03H0078^^^^^^00B,@68@,^D^TRLR^^LNGTH^'04C0 11 1 1 1 1 11 1 1 1 1 11 1 501: 079^^^^^^00B,@06@,^C^TRLR^^NO^OF^FLDS^'03H0080^^^^^^00B,@19@,^C^TRLR^^LNGTH^'04C0081^^^^^^00B,@19@,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 601: B^TRLR^^NO^OF^FLDS^'03H0082^^^^^^00B,@67@,^B^TRLR^^LNGTH^'04C0083^^^^^^00B,@02@,^A^TRLR^^NO^OF^FLDS^ 11 1 1 1 1 11 1 1 1 1 701: '04B0084^^^^^^00B)02L,@40@,^A^TRLR^^LNGTH^'04B0085^^^^^^00B)02M,@^^@,^TRLR^SIZE^W/A^'05B0086^^^^^^00 11 1 1 1 1 11 1 1 1 1 11 1 1 801: B)02N,@^^^^^@,^B^REGISTER^HOLD^AREA^'03G0087^^^^^^00B)02O,@71@,^HDR^SIZE^'03H0088^^^^^^00B)02P,@^^^@ 1 1 11 1 1 1 1 11 1 1 1 901: ,^RCD^SIZE^'02G0089^^^^^^00B)02Q,@'@,^'02G0090^^^^^^00B)03K,@A@,^'02G0091^^^^^^00B)03L,@B@,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 073C02G0092^^^^^^00B)03M,@C@,^'02G0093^^^^^^00B)03N,@D@,^'02G0094^^^^^^00B)03O,@E@,^'02G0095^^^^^^00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 101: B)03P,@F@,^'02H0096^^^^^^00B)03Q,@03@,^'02H0097^^^^^^00B)28K,@28@,^'02G0098^^^^^^00B)04J,@^@,^'02F00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 99^^^^^^00B)00M,&1,^'03B0100^^^^^^00B)04L,MRATYPEA,^'05D0101^C^^^^00C)28L,MRATYPEA&2,)28K,^A^TRLR^SP 1 1 1 11 1 1 1 1 11 1 1 1 1 1 301: ECIAL^'02C0102^BH^^^00B,*&8,^'02D0103^B^^^^00B,)28M,^'02G0104^A^^^^00C,X14,X15,^'03I0105^MLCS^00C,)0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 4J,0&X15,^HANDLING^'02H0106^ZA^^^00C,)28K,X15,^'02G0107^A^^^^00C,X14,X15,^'03?0108^MLC^^00C,)02Q,0&X 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: 15,^'03D0109^BBE^^00D,*&13,MRAQFRC,(,^'03F0110^MLNS^00C,MRATYPEA,MRAQFRC,^'03?0111^MLC^^00C,)28K,2&X 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: 14,^'02H0112^ZA^^^00C,)28K,X15,^'02D0113^B^^^^00B,)28M,^'02?0114^NOP^^00B,,^'03F0115^EQU^^00BMRAMTX, 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 701: 04848,^8049^'02?0116^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^SSLRPY' 1 1 1 1: 098A06D0001^PLAY^00B*^MSIR^DIS,COMPRESSION^ROUTINE^VERS^3^3/25/68,^'03G0002^SBR^^00BSLRPY,MSLURPEXIT 1 1 1 1 1 1 11 1 1 1 101: &5,^'04A0003^BCE^^00D,MSLURDOUBL,MRAEND&1,',^'03F0004^MLCS^00C,MSLURRM,MRAEND&1,^'03C0005^MLCB^00C,X 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: 15,MSLURSAVE,^'02H0006^SW^^^00B,MSLURASW,^'03?0007^CW^^^00B,MRATYPEA&2,^'02C0008^SAR^^00B,X13,^'03I0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 009^MLCS^00C,MSLURA,MSLURIDENT-2,^'03A0010^SBR^^00B,MSLURLOOP&5,^'03D0011^MLC^^00CMSLURLOOP,0,X15,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 401: 02?0012^MLC^^00B,,^'03?0013^S^^^^00C,MSLUR4,X14,^'03F0014^MLN^^00C,X15,MSLURNAME&10,^'04A0015^MLCA^0 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0CMSLURNAME,MSLURIDENT,0,^'03E0016^MLN^^00CMSLUREND,X14,X15,^'03E0017^ZA^^^00C,0&X15,MSLURBUCK,^'02C 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 0018^SAR^^00B,X14,^'02H0019^BZ^^^00B,MSLUREND,^'04C0020^MLCS^00CMSLURENDIT,MSLURRM,1&X15,^'03F0021^Z 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: A^^^00CMSLURNEXT,X15,X14,^'03F0022^C^^^^00C,MSLURNAME&10,X15,^'02?0023^NOP^^00B,,^'03H0024^B^^^^00BM 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 801: SLURASW,MSLURATRLR,^'03?0025^BE^^^00B,MSLURTREND,^'04D0026^C^^^^00CMSLURSUP,MSLURBLANK,0&X14,^'02C00 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 901: 27^SBR^^00B,X15,^'02I0028^BU^^^00B,MSLURSUP0,^'03D0029^MLCS^00C,MSLURLOZ,0&X14,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 099A04A0030^MRCM^00CMSLURSUPER,0&X14,1&X15,^'02I0031^B^^^^00B,MSLURNEXT,^'04E0032^C^^^^00CMSLURSUP0, 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: MSLURZEROS,0&X14,^'02I0033^BU^^^00B,MSLURNEXT,^'03C0034^MLCS^00C,MSLURAT,0&X14,^'03?0035^B^^^^00B,MS 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: LURSUPER,^'04H0036^BCE^^00DMSLURTREND,MSLURNEWTR,1&X15,',^'04D0037^MRCM^00CMSLURAEND,0-2&X15,0-1&X13 1 11 1 1 1 1 1 1 11 1 1 1 1 301: ,^'03?0038^SAR^^00B,MSLURBUCK5,^'02C0039^SBR^^00B,X14,^'03D0040^S^^^^00C,X15,MSLURBUCK5,^'03G0041^A^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: ^^^00C,MSLUR1,MSLURBUCK5,^'03F0042^MLNS^00C,MSLURBUCK5,1&X13,^'02?0043^MLNS^00B,,^'02G0044^ZA^^^00C, 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 501: X14,X13,^'04H0045^S^^^^00CMSLURNEWTR,MSLUR5,MSLURLOOP&5,^'03I0046^A^^^^00C,MSLUR1,MSLURIDENT-2,^'02C 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 0047^BZ^^^00B,*&8,^'02I0048^B^^^^00B,MSLURLOOP,^'04D0049^BZN^^00D,MSLURDONE,MSLURIDENT-2,B,^'03I0050 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 11 1 701: ^S^^^^00C,MSLUR1,MSLURIDENT-2,^'02I0051^B^^^^00B,MSLURLOOP,^'03H0052^CW^^^00BMSLURATRLR,MSLURASW,^'0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 3?0053^BE^^^00B,MSLURTREND,^'03C0054^C^^^^00C,X15,MSLURKFRC,^'03?0055^BH^^^00B,MSLURSMALL,^'03?0056^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: BE^^^00B,MSLURREADY,^'03I0057^C^^^^00C,MSLURBLANK,MRAPRQTY,^'03?0058^BE^^^00B,MSLURABLNK,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 099E03I0059^C^^^^00C,MSLURZEROS,MRAPRQTY,^'03?0060^BU^^^00B,MSLURREADY,^'03F0061^MLCS^00C,MSLURAT,MR 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: APRQTY,^'02D0062^B^^^^00B,*&13,^'04G0063^MLCS^00CMSLURABLNK,MSLURLOZ,MRAPRQTY,^'03I0064^MRCM^00C,MRA 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: PRQTY,MRAPRQTY-5,^'03?0065^B^^^^00B,MSLURREADY,^'04F0066^MLCS^00CMSLURSMALL,MSLURBLANK,1&X15,^'03D00 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: 67^BBE^^00D,*&13,MRAQFRC,(,^'03D0068^MLNS^00C,MSLUR1,MRAQFRC,^'03G0069^MLCS^00C,MSLURRM,MRAQFRC&1,^' 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 401: 04F0070^ZA^^^00CMSLURREADY,MSLURIDENT-3,X15,^'02I0071^B^^^^00B,MSLURAEND,^'04D0072^MRCM^00CMSLURDONE 1 1 1 1 1 1 11 1 1 1 1 11 1 1 501: ,MSLURRM,0-1&X13,^'03C0073^S^^^^00C,MSLURKREC,X13,^'03C0074^MLN^^00C,X13,MRARECSIZ,^'03C0075^MLCA^00 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: C,MSLURSAVE,X15,^'03A0076^B^^^^00BMSLURPEXIT,0,^'03H0077^B^^^^00BMSLURDOUBLE,MSTYPEN,^'02H0078^DCW^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: 00B,MSLURMSG,^'03?0079^B^^^^00B,MSLURPEXIT,^'04B0080^DCW^^00C^MSLURMSG,@DBL^SLURP@,G,^'02H0081^DCW^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: 00B,MRAEND&2,^'03?0082^DCW^^00B,MRATYPEJ&2,^'03?0083^DCW^^00B,MRATYPEI&2,^'03?0084^DCW^^00B,MRATYPEH 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: &2,^'03?0085^DCW^^00B,MRATYPEG&2,^'03?0086^DCW^^00B,MRATYPEF&2,^'03?0087^DCW^^00B,MRATYPEE&2,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 067G03?0088^DCW^^00B,MRATYPED&2,^'03?0089^DCW^^00B,MRATYPEC&2,^'03?0090^DCW^^00B,MRATYPEB&2,^'03?009 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: 1^DCW^^00B,MRATYPEA&2,^'03E0092^DCW^^00BMSLURIDENT,@A^^@,^'03G0093^DCW^^00BMSLURBUCK5,@^^^^^@,^'03H0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 094^DC^^^00BMSLURBUCK,@^^^^^^^@,^'02I0095^DCW^^00BMSLUR1,@1@,^'02I0096^DCW^^00BMSLUR4,@4@,^'02I0097^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: DCW^^00BMSLUR5,@5@,^'03?0098^DCW^^00BMSLURRM,@'@,^'03A0099^DCW^^00BMSLURLOZ,@)@,^'03?0100^DCW^^00BMS 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: LURAT,@@@,^'02I0101^DCW^^00BMSLURA,@A@,^'04D0102^DCW^^00BMSLURZEROS,@000000000000@,^'03C0103^DCW^^00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: BMSLURBLANK,#12,^'03B0104^DCW^^00BMSLURBUCK2,#2,^'03B0105^DCW^^00BMSLURSAVE,#15,^'03I0106^DCW^^00BMS 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: LURKREC,MRAMSIRECD,^'03F0107^DCW^^00BMSLURKFRC,MRAQFRC,^'02?0108^MEND^00B,,^' 1 1 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^S99999' 1 1 1 1: 002A017HEADER^ZCHKPT' 1 1 1 1: 025F02F0001^BOOL^00?P,#106,,^'02I0002^B^^^^00B,IOCSCHKPT,^'02F0003^BOOL^00?Q,#100,,^'02I0004^B^^^^00 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 101: B,IOCSENTRY,^'02?0005QMEND^00B,,^'03B0006PNOTE^00A001.CHKPT.WMD,^'07?0007^01.CH00B***^NOTE^0,KPT.WMD 1 1 11 1 1 11 11 1 1 1 11 1 1 1 201: ...DIOCS^CHECKPOINT^ENTRY^MISSING,^'02?0008^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZCLOSD' 1 1 1 1: 068C02F0001^BOOL^00?P,#107,,^'02I0002^B^^^^00B,IOCSCLOSD,^'03E0003^COMP^00F,)00A,RWD,,)199,,^'03H000 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 11 11 1 101: 4^COMP^00F,)00A,REWIND,,)198,,^'03A0005^BOOL^00?Q,)198&)199,,^'02C0006^DCW^^00B,@R@,^'02?0007^MEND^0 1 1 1 11 11 11 1 1 1 11 11 1 1 1 1 11 1 1 201: 0B,,^'03E0008QCOMP^00F,)00A,RWU,,)199,,^'03H0009^COMP^00F,)00A,UNLOAD,,)198,,^'03A0010^BOOL^00?Q,)19 11 11 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 301: 8&)199,,^'02C0011^DCW^^00B,@U@,^'02?0012^MEND^00B,,^'02F0013QBOOL^00?Q,)001,,^'03B0014^NOTE^00A002.C 11 11 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 401: LOSD.WUP,^'06B0015^02.CL00B***^NOTE^0,OSD.WUP...RWD/RWU^OPTION^INVALID,^'03D0016^DCW^^00B,@N@,^R,^U, 1 11 1 1 1 1 11 1 1 1 1 501: ^OR^N^'02?0017^MEND^00B,,^'02?0018QNOP^^00B,,^'02?0019^MEND^00B,,^'03B0020PNOTE^00A003.CLOSD.WMD,^'0 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 11 601: 6D0021^03.CL00B***^NOTE^0,OSD.WMD...DIOCS^DUMP^ENTRY^MISSING,^'02?0022^MEND^00B,,^' 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZCLOSE' 1 1 1 1: 099A02F0001^BOOL^00?P,#111,,^'02H0002^B^^^^00B,IOCSCLOP,^'03A0003^BOOL^00?Q,)001&)002,,^'02D0004^CW^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: ^^00B,)00A,^'02D0005^CW^^^00B,)00B,^'02D0006^CW^^^00B,)00C,^'02D0007^CW^^^00B,)00D,^'02D0008^CW^^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: B,)00E,^'02D0009^CW^^^00B,)00F,^'02D0010^CW^^^00B,)00G,^'02D0011^CW^^^00B,)00H,^'02D0012^CW^^^00B,)0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 0I,^'02D0013^CW^^^00B,)01?,^'02D0014^CW^^^00B,)01A,^'02D0015^CW^^^00B,)01B,^'02D0016^CW^^^00B,)01C,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: '02D0017^CW^^^00B,)01D,^'02D0018^CW^^^00B,)01E,^'02D0019^CW^^^00B,)01F,^'02D0020^CW^^^00B,)01G,^'02D 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 501: 0021^CW^^^00B,)01H,^'02D0022^CW^^^00B,)01I,^'02D0023^CW^^^00B,)02?,^'02F0024^BOOL^00?R,#100,,^'02I00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 601: 25^B^^^^00B,IOCSENTRY,^'02G0026RBOOL^00?R,-#100,,^'02C0027^B^^^^00B,*&1,^'02?0028RMEND^00B,,^'03B002 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 701: 9QNOTE^00A004.CLOSE.EMP,^'06A0030^04.CL00B***^NOTE^0,OSE.EMP...NO^FILENAMES^SUPPLIED,^'03E0031^CW^^^ 1 1 11 1 1 1 1 11 1 801: 00B,*,^CW^FILENAME^1^'03E0032^CW^^^00B,*,^CW^FILENAME^2^'02I0033^ORG^^00B,*&108,^ETC^'02F0034^BOOL^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: 0?Q,#100,,^'02I0035^B^^^^00B,IOCSENTRY,^'02G0036QBOOL^00?Q,-#100,,^'02C0037^B^^^^00B,*&1,^' 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 015?02?0038QMEND^00B,,^'02?0039^MEND^00B,,^'03B0040PNOTE^00A005.CLOSE.WMD,^'05D0041^05.CL00B***^NOTE 1 1 1 1 11 11 1 1 11 11 1 1 1 11 1 1 101: ^0,OSE.WMD...NO^FILES^EXIST,^'02?0042^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^ZCONSL' 1 1 1 1: 040A02F0001^BOOL^00?P,#103,,^'03?0002^BXPA^00B,IOCSCS1SFS,^'03B0003PBOOL^00?P,#100*-#103,,^'02C0004^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: BXPA^00B,*&1,^'03C0005PBOOL^00?P,-)001&-)002,,^'03B0006^NOTE^00A006.CONSL.WMP,^'05H0007^06.CO00B***^ 1 1 1 11 1 1 1 11 11 1 1 1 11 1 1 201: NOTE^0,NSL.WMP...OPERAND^INCOMPLETE,^'03E0008^WCP^^00B,*-9,^R/WCP^^AREA^'02D0009P)00A^00B,)00B,^'02I 1 1 11 1 1 1 1 11 1 1 1 1 11 301: 0010^BA1^^00B,IOCSCPERR,^'02F0011^BOOL^00?P,#100,,^'02I0012^B^^^^00B,IOCSENTRY,^'02?0013PMEND^00B,,^ 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 11 401: ' 1 1: 002A017HEADER^ZENTDR' 1 1 1 1: 005B02H0001^SBR^^00B,IOCSMRET,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZEXTDR' 1 1 1 1: 005B02H0001^B^^^^00B,IOCSEXDP,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZFEORL' 1 1 1 1: 087A03A0001^BOOL^00?P,#109n,,^'02F0002^BOOL^00?Q,#111,,^'02G0003^BOOL^00?S,-#113,,^'02H0004^SW^^ 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 11 11 1 101: ^00B,IOCSCU&1,^'02H0005SB^^^^00B,IOCSCLOP,^'02G0006^BOOL^00?R,-)001,,^'03B0007^NOTE^00A007.FEORL.EMP 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 201: ,^'06?0008^07.FE00B***^NOTE^0,ORL.EMP...NO^FILENAME^SUPPLIED,^'02C0009^DCW^^00B,@*@,^'03C0010^DC^^^0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0B,*,^DC^FILENAME^'02F0011RBOOL^00?R,)001,,^'02C0012^DCW^^00B,@*@,^'02D0013^DC^^^00B,)001,^'02F0014R 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 401: BOOL^00?R,#100,,^'02C0015^B^^^^00B,*&1,^'02G0016^BOOL^00?S,-#113,,^'02H0017^CW^^^00B,IOCSCU&1,^'02I0 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 018SB^^^^00B,IOCSENTRY,^'02?0019^MEND^00B,,^'02C0020RB^^^^00B,*&1,^'02G0021^BOOL^00?S,-#113,,^'02H00 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 601: 22^CW^^^00B,IOCSCU&1,^'02?0023SMEND^00B,,^'03B0024QNOTE^00A008.FEORL.WMD,^'05D0025^08.FE00B***^NOTE^ 1 1 1 11 1 1 11 11 1 1 1 11 1 1 701: 0,ORL.WMD...NO^FILES^EXIST,^'02?0026^MEND^00B,,^'03B0027PNOTE^00A009.FEORL.WMD,^'07?0028^09.FE00B*** 1 1 11 1 1 11 11 1 1 1 11 1 1 801: ^NOTE^0,ORL.WMD...DIOCS^CHANN^TAPE^ENTRY^MISSING,^'02?0029^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^ZFSEQP' 1 1 1 1: 005C02I0001^B^^^^00B,IOCSINTLK,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZGET^^' 1 1 1 1: 095I03B0001^BOOL^00?P,)003*-)013,,^'02G0002^BXPA^00B,IOCSGET,^'02?0003^NOP^^00B,,^'03B0004^DC^^^00B, 1 1 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 101: &IOCS)004TBL,^'02?0005^MEND^00B,,^'03G0006PMLNA^00C,&)00B,IOCS)004EOF,^'02G0007^BOOL^00?P,-)009,,^'0 1 11 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 201: 3B0008^B^^^^00B,IOCS)004EMTY,^'03B0009^BOOL^00?Q,-)008*)013,,^'03F0010^MLNA^00C,IOCS)004SAVE,*&6,^'0 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 301: 3G0011QBOOL^00?Q,)006*-)008*)013,,^'02F0012^MRCWM00C,0,)00A,^'04C0013QBOOL^00?Q,-)001*)006*-)008*)01 1 1 1 11 11 1 1 1 1 1 11 1 1 1 401: 3,,^'03D0014^MRCWM00C,0,IOCS)004WORK,^'03H0015QBOOL^00?Q,-)006*-)008*)013,,^'02F0016^MRCM^00C,0,)00A 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: ,^'04D0017QBOOL^00?Q,-)001*-)006*-)008*)013,,^'03D0018^MRCM^00C,0,IOCS)004WORK,^'02F0019QBOOL^00?Q,) 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 601: 006,,^'03A0020^MRCWM00C,0&)00H,)00A,^'02G0021^BOOL^00?R,-)006,,^'03A0022QMRCM^00C,0&)00H,)00A,^'03H0 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 701: 023RBOOL^00?Q,-)008*-)013*)006,,^'03G0024^MRCWM00C,IOCS)004IOAR,)00A,^'03I0025QBOOL^00?Q,-)008*-)013 1 1 11 11 1 1 1 1 1 11 1 1 1 801: *-)006,,^'03G0026^MRCM^00C,IOCS)004IOAR,)00A,^'03A0027QBOOL^00?Q,)005*)001,,^'04C0028^A^^^^00C,)001& 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 901: )005-1,IOCS)004THT,^'03H0029QBOOL^00?Q,-)001*)005*-)008,,^' 1 1 11 1 1 1 11 1 1: 098H05A0030^A^^^^00C,IOCS)004WORK&)005-1,IOCS)004THT,^'03G0031QBOOL^00?Q,)008*)005*-)001,,^'04C0032^ 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: A^^^^00C,)005-1&)008,IOCS)004THT,^'02?0033QMEND^00B,,^'03A0034PBOOL^00?P,)007*)010,,^'03G0035^A^^^^0 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 201: 0C,IOCS)004RCLN,)00H,^'02G0036PBOOL^00?P,-)010,,^'03F0037^A^^^^00C,)00G-1&)00H,)00H,^'04E0038PC^^^^0 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: 0C,IOCS)004ENDD,IOCS)004SAVE,^'03B0039^BH^^^00B,IOCS)004EMTY,^'02F0040^BOOL^00?P,)002,,^'02?0041^NOP 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: ^^00B,,^'02D0042^DC^^^00B,)002,^'02G0043PBOOL^00?P,-)008,,^'03F0044^MLNA^00C,IOCS)004SAVE,*&6,^'03B0 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: 045PBOOL^00?P,-)008*)006,,^'02F0046^MRCWM00C,0,)00A,^'02G0047^BOOL^00?Q,-)001,,^'03D0048^MRCWM00C,0, 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: IOCS)004WORK,^'03B0049^SAR^^00B,IOCS)004SAVE,^'03C0050PBOOL^00?P,-)008*-)006,,^'02F0051^MRCM^00C,0,) 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 701: 00A,^'02G0052^BOOL^00?Q,-)001,,^'03D0053^MRCM^00C,0,IOCS)004WORK,^'03B0054QSAR^^00B,IOCS)004SAVE,^'0 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 801: 3A0055PBOOL^00?P,)005*)001,,^'02F0056^BOOL^00?C,)006,,^'03A0057^MRCWM00C,0&)00H,)00A,^'02G0058^BOOL^ 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 901: 00?D,-)006,,^'03A0059CMRCM^00C,0&)00H,)00A,^'04C0060DA^^^^00C,)001&)005-1,IOCS)004THT,^' 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 045B02F0061^BOOL^00?C,)011,,^'03F0062^A^^^^00C,*-10,IOCS)004TRC,^'02?0063CMEND^00B,,^'03H0064PBOOL^0 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 101: 0?P,-)001*)005*-)008,,^'05A0065^A^^^^00C,IOCS)004WORK&)005-1,IOCS)004THT,^'03G0066PBOOL^00?P,)008*)0 1 11 11 1 1 1 1 1 11 1 1 1 201: 05*-)001,,^'04C0067^A^^^^00C,)005-1&)008,IOCS)004THT,^'02F0068PBOOL^00?P,)011,,^'03F0069^A^^^^00C,*- 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 301: 10,IOCS)004TRC,^'02F0070PBOOL^00?P,)006,,^'03A0071^MRCWM00C,0&)00H,)00A,^'02G0072^BOOL^00?Q,-)006,,^ 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 401: '03A0073PMRCM^00C,0&)00H,)00A,^'02?0074QMEND^00B,,^' 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZGETS^' 1 1 1 1: 073F03H0001^COMP^00F,)00A,SWITCH,,)091,,^'03H0002^COMP^00F,)00B,SWITCH,,)092,,^'06B0003^BOOL^00AP,)0 1 1 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 101: 03&@)091*)092@&@)001*)002*-)091*-)092@,,^'03I0004^NOTE^00AINVALID^GETS^OPERAND,^'02?0005^MEND^00B,,^ 11 11 1 1 1 11 1 1 11 201: '02G0006PBOOL^00?P,-)091,,^'02G0007^BOOL^00?Q,-)092,,^'03C0008^MLCA^00C,&)00J,)00A&20,^'02I0009QMLCA 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 301: ^00C,&)00A,X14,^'02G0010PBOOL^00?P,-)092,,^'02G0011^BOOL^00?Q,-)091,,^'03C0012^MLCA^00C,&)00J,)00B&2 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 401: 0,^'02I0013QMLCA^00C,&)00B,X14,^'03C0014PBOOL^00?P,-)001*-)002,,^'03B0015^MLCA^00C,&)00J,20&X14,^'03 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 501: ?0016PMLCA^00C,20&X14,*&6,^'02A0017^SW^^^00B,0,^'02G0018^MLZS^00C,*-1,X13,^'03?0019^BXPA^00B,IOCSREL 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: ARM,^'03C0020^BOOL^00?P,-)091*-)092,,^'02?0021^NOP^^00B,,^'02D0022^NOP^^00B)00J,,^'03C0023^BW^^^00C, 1 11 1 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 701: IOCSGETS,*-12,^'02?0024PMEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^ZIOBSP' 1 1 1 1: 092H02G0001^BOOL^00?P,-)001,,^'03B0002^NOTE^00A010.IOBSP.WMP,^'05H0003^10.IO00B***^NOTE^0,BSP.WMD... 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: OPERAND^INCOMPLETE,^'02F0004^BOOL^00?Q,#100,,^'03?0005^BXPA^00B,IOCSCS1SFS,^'03D0006QBSP^^00B,10,^BS 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: P^^^^1/2N^'04F0007^BA1^^00B,IOCSERROR,^BA1/2^^IOCSERROR^'02F0008^BOOL^00?Q,#100,,^'02I0009^B^^^^00B, 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: IOCSENTRY,^'02?0010QMEND^00B,,^'03D0011PCOMP^00F,)00A,20,)199,,,^'04F0012^BOOL^00AP,@#109*)199@&@#11 1 11 1 1 11 11 1 1 1 1 1 111 11 1 1 1 401: 0*-)199@,,^'02F0013^BOOL^00?Q,)199,,^'02F0014^BOOL^00?R,#100,,^'03?0015^BXPA^00B,IOCSCS1SFS,^'02D001 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: 6RBSP^^00B,)001,^'02I0017^BA1^^00B,IOCSERROR,^'02F0018^BOOL^00?R,#100,,^'02I0019^B^^^^00B,IOCSENTRY, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: ^'02?0020RMEND^00B,,^'02F0021QBOOL^00?Q,#100,,^'03?0022^BXPA^00B,IOCSCS2SFS,^'02D0023QBSP^^00B,)001, 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 701: ^'02I0024^BA2^^00B,IOCSERROR,^'02F0025^BOOL^00?Q,#100,,^'02I0026^B^^^^00B,IOCSENTRY,^'02?0027QMEND^0 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0B,,^'03B0028PNOTE^00A011.IOBSP.WMD,^'07?0029^11.IO00B***^NOTE^0,BSP.WMD...DIOCS^CHANN^TAPE^ENTRY^MI 11 11 1 1 1 11 1 1 1 901: SSING,^'02?0030^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZIORWD' 1 1 1 1: 092H02G0001^BOOL^00?P,-)001,,^'03B0002^NOTE^00A012.IORWD.WMP,^'05H0003^12.IO00B***^NOTE^0,RWD.WMD... 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: OPERAND^INCOMPLETE,^'02F0004^BOOL^00?Q,#100,,^'03?0005^BXPA^00B,IOCSCS1SFS,^'03D0006QRWD^^00B,10,^RW 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: D^^^^1/2N^'04F0007^BA1^^00B,IOCSERROR,^BA1/2^^IOCSERROR^'02F0008^BOOL^00?Q,#100,,^'02I0009^B^^^^00B, 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: IOCSENTRY,^'02?0010QMEND^00B,,^'03D0011PCOMP^00F,)00A,20,)199,,,^'04F0012^BOOL^00AP,@#109*)199@&@#11 1 11 1 1 11 11 1 1 1 1 1 111 11 1 1 1 401: 0*-)199@,,^'02F0013^BOOL^00?Q,)199,,^'02F0014^BOOL^00?R,#100,,^'03?0015^BXPA^00B,IOCSCS1SFS,^'02D001 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: 6RRWD^^00B,)001,^'02I0017^BA1^^00B,IOCSERROR,^'02F0018^BOOL^00?R,#100,,^'02I0019^B^^^^00B,IOCSENTRY, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: ^'02?0020RMEND^00B,,^'02F0021QBOOL^00?Q,#100,,^'03?0022^BXPA^00B,IOCSCS2SFS,^'02D0023QRWD^^00B,)001, 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 701: ^'02I0024^BA2^^00B,IOCSERROR,^'02F0025^BOOL^00?Q,#100,,^'02I0026^B^^^^00B,IOCSENTRY,^'02?0027QMEND^0 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0B,,^'03B0028PNOTE^00A013.IORWD.WMD,^'07?0029^13.IO00B***^NOTE^0,RWD.WMD...DIOCS^CHANN^TAPE^ENTRY^MI 11 11 1 1 1 11 1 1 1 901: SSING,^'02?0030^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZIORWU' 1 1 1 1: 092H02G0001^BOOL^00?P,-)001,,^'03B0002^NOTE^00A014.IORWU.WMP,^'05H0003^14.IO00B***^NOTE^0,RWU.WMD... 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: OPERAND^INCOMPLETE,^'02F0004^BOOL^00?Q,#100,,^'03?0005^BXPA^00B,IOCSCS1SFS,^'03D0006QRWU^^00B,10,^RW 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: U^^^^1/2N^'04F0007^BA1^^00B,IOCSERROR,^BA1/2^^IOCSERROR^'02F0008^BOOL^00?Q,#100,,^'02I0009^B^^^^00B, 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: IOCSENTRY,^'02?0010QMEND^00B,,^'03D0011PCOMP^00F,)00A,20,)199,,,^'04F0012^BOOL^00AP,@#109*)199@&@#11 1 11 1 1 11 11 1 1 1 1 1 111 11 1 1 1 401: 0*-)199@,,^'02F0013^BOOL^00?Q,)199,,^'02F0014^BOOL^00?R,#100,,^'03?0015^BXPA^00B,IOCSCS1SFS,^'02D001 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: 6RRWU^^00B,)001,^'02I0017^BA1^^00B,IOCSERROR,^'02F0018^BOOL^00?R,#100,,^'02I0019^B^^^^00B,IOCSENTRY, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: ^'02?0020RMEND^00B,,^'02F0021QBOOL^00?Q,#100,,^'03?0022^BXPA^00B,IOCSCS2SFS,^'02D0023QRWU^^00B,)001, 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 701: ^'02I0024^BA2^^00B,IOCSERROR,^'02F0025^BOOL^00?Q,#100,,^'02I0026^B^^^^00B,IOCSENTRY,^'02?0027QMEND^0 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0B,,^'03B0028PNOTE^00A015.IORWU.WMD,^'07?0029^15.IO00B***^NOTE^0,RWU.WMD...DIOCS^CHANN^TAPE^ENTRY^MI 11 11 1 1 1 11 1 1 1 901: SSING,^'02?0030^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZIOSYS' 1 1 1 1: 097G03G0001^COMP^00F,)00A,FORCE,,)197,,^'03F0002^COMP^00E,)00A,PAUSE,,)197,^'03A0003^BOOL^00?P,)196& 1 1 1 1 1 1 11 11 11 1 1 1 1 11 1 11 1 1 1 101: )197,,^'02G0004^BOOL^00?Q,-)002,,^'03C0005^BOOL^00?R,-#103*-#104,,^'06F0006^45.IO00B***^NOTE^0,SYS.C 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 201: OD...NO^CHANNEL^SCHEDULERS^EXIT,^'02?0007^MEND^00B,,^'03A0008RBOOL^00?R,#103*)197,,^'03?0009^BXPA^00 1 11 1 1 11 11 1 1 1 11 11 1 1 301: B,IOCSCS1SFS,^'03A0010RBOOL^00?R,#104*)197,,^'03?0011^BXPA^00B,IOCSCS2SFS,^'03A0012RBOOL^00?R,#103*) 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: 196,,^'03?0013^B^^^^00B,IOCSCS1SFS,^'03A0014RBOOL^00?R,#104*)196,,^'03?0015^B^^^^00B,IOCSCS2SFS,^'02 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 501: ?0016RMEND^00B,,^'03C0017QCOMP^00F,)00B,1,,)199,,^'03C0018^COMP^00F,)00C,1,,)198,,^'03A0019^BOOL^00? 1 1 11 11 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 601: Q,)198&)199,,^'02G0020^BOOL^00?R,-#103,,^'03B0021^NOTE^00A046.IOSYS.WOD,^'05H0022^46.IO00B***^NOTE^0 1 11 11 1 1 1 11 11 1 1 1 11 1 1 701: ,SYS.WOD...NO^CHAN1^SCHEDULER,^'02F0023^BOOL^00?Q,#103,,^'03A0024RBOOL^00?R,#103*)197,,^'03?0025^BXP 1 1 11 1 1 1 11 11 1 1 1 11 11 1 801: A^00B,IOCSCS1SFS,^'03A0026RBOOL^00?Q,#103*)196,,^'03?0027^B^^^^00B,IOCSCS1SFS,^'03C0028QCOMP^00F,)00 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: B,2,,)199,,^'03C0029^COMP^00F,)00C,2,,)198,,^'03A0030^BOOL^00?Q,)198&)199,,^' 1 11 11 11 1 1 1 1 11 11 11 1 1 1 11 1 1: 067A02G0031^BOOL^00?R,-#104,,^'03B0032^NOTE^00A047.IOSYS.WOD,^'05H0033^47.IO00B***^NOTE^0,SYS.WOD... 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: NO^CHAN2^SCHEDULER,^'02?0034QMEND^00B,,^'03A0035RBOOL^00?Q,#104*)197,,^'03?0036^BXPA^00B,IOCSCS2SFS, 1 11 1 1 11 11 1 1 1 11 11 1 1 1 1 201: ^'03A0037QBOOL^00?Q,#104*)196,,^'03?0038^B^^^^00B,IOCSCS2SFS,^'02?0039QMEND^00B,,^'03H0040PCOMP^00F, 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 301: )00A,RESUME,,)199,,^'02G0041^BOOL^00?P,-)199,,^'03B0042^NOTE^00A048.IOSYS.WUD,^'07B0043^48.IO00B***^ 1 11 11 11 1 1 1 11 11 1 1 1 11 1 1 401: NOTE^0,SYS.WUD...PARAMETER^1^MISSING^OR^UNDEFINED,^'02?0044^MEND^00B,,^'02G0045PBOOL^00?P,-#100,,^'0 1 1 11 1 1 11 11 1 1 1 11 11 501: 3B0046^NOTE^00A049.IOSYS.WUD,^'07A0047^49.IO00B***^NOTE^0,SYS.WUD...DIOCS^FEATURES^ENTRY^INCOMPLETE, 1 1 1 11 1 1 1 1 601: ^'02?0048^MEND^00B,,^'02I0049PBXPA^00B,IOCSENTRY,^'02?0050^MEND^00B,,^' 11 1 1 11 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZIOWTM' 1 1 1 1: 092H02G0001^BOOL^00?P,-)001,,^'03B0002^NOTE^00A016.IOWTM.WMP,^'05H0003^16.IO00B***^NOTE^0,WTM.WMD... 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: OPERAND^INCOMPLETE,^'02F0004^BOOL^00?Q,#100,,^'03?0005^BXPA^00B,IOCSCS1SFS,^'03D0006QWTM^^00B,10,^WT 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: M^^^^1/2N^'04F0007^BA1^^00B,IOCSERROR,^BA1/2^^IOCSERROR^'02F0008^BOOL^00?Q,#100,,^'02I0009^B^^^^00B, 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: IOCSENTRY,^'02?0010QMEND^00B,,^'03D0011PCOMP^00F,)00A,20,)199,,,^'04F0012^BOOL^00AP,@#109*)199@&@#11 1 11 1 1 11 11 1 1 1 1 1 111 11 1 1 1 401: 0*-)199@,,^'02F0013^BOOL^00?Q,)199,,^'02F0014^BOOL^00?R,#100,,^'03?0015^BXPA^00B,IOCSCS1SFS,^'02D001 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: 6RWTM^^00B,)001,^'02I0017^BA1^^00B,IOCSERROR,^'02F0018^BOOL^00?R,#100,,^'02I0019^B^^^^00B,IOCSENTRY, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: ^'02?0020RMEND^00B,,^'02F0021QBOOL^00?Q,#100,,^'03?0022^BXPA^00B,IOCSCS2SFS,^'02D0023QWTM^^00B,)001, 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 701: ^'02I0024^BA2^^00B,IOCSERROR,^'02F0025^BOOL^00?Q,#100,,^'02I0026^B^^^^00B,IOCSENTRY,^'02?0027QMEND^0 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0B,,^'03B0028PNOTE^00A017.IOWTM.WMD,^'07?0029^17.IO00B***^NOTE^0,WTM.WMD...DIOCS^CHANN^TAPE^ENTRY^MI 11 11 1 1 1 11 1 1 1 901: SSING,^'02?0030^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZLEVDR' 1 1 1 1: 005B02H0001^B^^^^00B,IOCSEXDP,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZLEVRT' 1 1 1 1: 024A03E0001^COMP^00F,)00A,PTC,,)005,,^'02G0002^BOOL^00?P,-)005,,^'02E0003^BOOL^00?Q,)00A,^'03?0004^B 1 1 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 1 11 1 101: XPA^00B,IOCSLEVRCL,^'02?0005^MEND^00B,,^'03?0006QBXPA^00B,IOCSLEVROP,^'02?0007^MEND^00B,,^'03?0008PB 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 11 11 1 201: XPA^00B,IOCSLVRT50,^'02?0009^MEND^00B,,^' 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZMVRSA' 1 1 1 1: 008F02H0001^B^^^^00B,IOCSMDWA,^'03D0002^MRCWM00C,)00A,0&IOCSXWA,^'02?0003^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZOPEN^' 1 1 1 1: 099G02F0001^BOOL^00?P,#111,,^'02H0002^B^^^^00B,IOCSCLOP,^'03A0003^BOOL^00?Q,)001&)002,,^'02D0004^C^^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: ^^00B,)00A,^'02D0005^C^^^^00B,)00B,^'02D0006^C^^^^00B,)00C,^'02D0007^C^^^^00B,)00D,^'02D0008^C^^^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: B,)00E,^'02D0009^C^^^^00B,)00F,^'02D0010^C^^^^00B,)00G,^'02D0011^C^^^^00B,)00H,^'02D0012^C^^^^00B,)0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 0I,^'02D0013^C^^^^00B,)01?,^'02D0014^C^^^^00B,)01A,^'02D0015^C^^^^00B,)01B,^'02D0016^C^^^^00B,)01C,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: '02D0017^C^^^^00B,)01D,^'02D0018^C^^^^00B,)01E,^'02D0019^C^^^^00B,)01F,^'02D0020^C^^^^00B,)01G,^'02D 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 501: 0021^C^^^^00B,)01H,^'02D0022^C^^^^00B,)01I,^'02D0023^C^^^^00B,)02?,^'02F0024^BOOL^00?R,#100,,^'02I00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 601: 25^B^^^^00B,IOCSENTRY,^'02G0026RBOOL^00?R,-#100,,^'02C0027^B^^^^00B,*&1,^'02?0028RMEND^00B,,^'03B002 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 701: 9QNOTE^00A018.OPEN^.EMP,^'06A0030^18.OP00B***^NOTE^0,EN^.EMP...NO^FILENAMES^SUPPLIED,^'03H0031^C^^^^ 1 1 11 1 1 1 1 11 1 801: 00B,*,^C^^^^^^FILENAME1^'03H0032^C^^^^00B,*,^C^^^^^^FILENAME2^'02I0033^ORG^^00B,*&108,^ETC^'02F0034^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: BOOL^00?Q,#100,,^'02I0035^B^^^^00B,IOCSENTRY,^'02G0036QBOOL^00?Q,-#100,,^'02C0037^B^^^^00B,*&1,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 013?02?0038QMEND^00B,,^'03B0039PNOTE^00A019.OPEN^.WMD,^'05D0040^19.OP00B***^NOTE^0,EN^.WMD...NO^FILE 1 1 1 1 11 11 1 1 1 11 1 1 1 101: S^EXIST,^'02?0041^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZPRSEQ' 1 1 1 1: 005C02I0001^B^^^^00B,IOCSINTLK,^'02?0002^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZPSTAC' 1 1 1 1: 094D03D0001^COMP^00F,)00B,??,,,)199,^'03E0002^COMP^00F,)00B,???,)198,,,^'03A0003^BOOL^00?P,)198*)199 1 1 1 1 1 1 111 1 11 1 1 1 1 1 111 11 1 1 1 101: ,,^'03G0004^MLCS^00C,*&2,IOCS)002IOA&3,^'02G0005^BOOL^00?Q,-)198,,^'03C0006PCOMP^00F,)00B,2,,)199,,^ 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 11 201: '04F0007^BOOL^00AP,@#101*-)199@&@#102*)199@,,^'02F0008^BOOL^00?R,)001,,^'03C0009^COMP^00F,)001,0,,)1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 301: 98,,^'03C0010^COMP^00F,)001,4,,)197,,^'03C0011^COMP^00F,)001,8,,)196,,^'03F0012^BOOL^00?S,)196&)197& 11 11 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 401: )198,,^'02G0013^BOOL^00?T,-)199,,^'03E0014^MLCS^00C,*&2,IOCS1PIOA&3,^'02F0015^BOOL^00?Q,)199,,^'03E0 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 501: 016TMLCS^00C,*&2,IOCS2PIOA&3,^'02?0017QNOP^^00B,,^'02F0018^DC^^^00B,@)001@,^'02?0019^MEND^00B,,^'03B 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 11 11 601: 0020SNOTE^00A020.PSTAC.WUD,^'06B0021^20.PS00B***^NOTE^0,TAC.WUD...STACKER^OPTION^INVALID,^'02?0022^M 1 1 1 11 1 1 1 1 11 1 701: END^00B,,^'03B0023RNOTE^00A021.PSTAC.WMD,^'05H0024^21.PS00B***^NOTE^0,TAC.WMD...OPERAND^INCOMPLETE,^ 1 11 11 1 1 1 11 1 1 1 1 801: '02?0025^MEND^00B,,^'03B0026PNOTE^00A022.PSTAC.WMD,^'07A0027^22.PS00B***^NOTE^0,TAC.WMD...DIOCS^CHAN 11 1 1 11 11 1 1 1 11 1 1 1 901: N^PUNCH^ENTRY^MISSING,^'02?0028^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZPUT^^' 1 1 1 1: 098E03C0001^COMP^00F,)00B,2,,)190,,^'02F0002^BOOL^00?P,)190,,^'03A0003^BXPA^00B,IOCS)003PUT,^'02I000 1 1 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 1 11 1 101: 4^B^^^^00B,IOCSENTRY,^'02?0005^MEND^00B,,^'03C0006PCOMP^00F,)00B,3,,)190,,^'02F0007^BOOL^00?P,)190,, 1 1 1 11 1 1 11 11 1 1 1 1 11 11 11 1 1 1 11 201: ^'03B0008^BXPA^00B,IOCS)003PT50,^'02I0009^B^^^^00B,IOCSENTRY,^'02?0010^MEND^00B,,^'03G0011PBOOL^00?P 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 301: ,)002*-)012*)011,,^'02G0012^BXPA^00B,IOCSPUT,^'02?0013^NOP^^00B,,^'03B0014^DC^^^00B,&IOCS)003TBL,^'0 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 401: 2?0015^MEND^00B,,^'03H0016PBOOL^00?P,)002*-)012*-)011,,^'03B0017^B^^^^00B,IOCS)003FULL,^'02?0018^MEN 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: D^00B,,^'03F0019PBOOL^00?P,)002*)012*)011,,^'04?0020^ZA^^^00C,IOCS)003CUAR,IOCSXAL,^'02F0021^BOOL^00 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 601: ?Q,#108,,^'03D0022^MLCS^00C,@B@,IOCSALAVLY,^'02G0023^BOOL^00?R,-#108,,^'03D0024QMLCS^00C,@W@,15&IOCS 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 701: XAL,^'02?0025RMEND^00B,,^'05?0026PBOOL^00?P,-)001*)008*-)009*-)015*-)013,,^'05H0027^NOTE^00BIMPROPER 1 11 1 1 11 11 1 1 1 11 11 1 1 801: ^PUT,NO^VARBUILD^ENTRY^FOR^FILE,^'02?0028^MEND^00B,,^'02F0029PBOOL^00?P,)011,,^'04C0030^NOTE^00ACANN 1 1 11 1 1 11 11 1 1 1 11 11 1 1 901: OT^PUT^TO^INPUT^FILE,^'02?0031^MEND^00B,,^'04B0032PBOOL^00?P,)080*)013*)008*-)009,,^' 1 11 1 1 11 11 1 1 1 11 1 1: 098D03G0033^ZA^^^00C,)013,IOCS)003SVRL,^'04E0034^A^^^^00C,IOCS)003SVRL,IOCS)003RLAC,^'04E0035^C^^^^0 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: 0C,IOCS)003ENDD,IOCS)003RLAC,^'03B0036^BH^^^00B,IOCS)003FULL,^'02F0037^BOOL^00?Q,)007,,^'02I0038^MLN 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: A^00C,)007,)013,^'02G0039QBOOL^00?Q,-)007,,^'03G0040^MLNA^00C,IOCS)003SAVE,)013,^'02F0041QBOOL^00?Q, 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 301: )010,,^'05D0042^A^^^^00C,*-10,IOCS)003TRC,^TAKE^RECORD^COUNT^'02G0043QBOOL^00?Q,-)007,,^'04E0044^A^^ 11 11 1 1 1 1 1 11 1 1 1 11 11 1 401: ^^00C,IOCS)003SVRL,IOCS)003SAVE,^'02F0045QBOOL^00?Q,)007,,^'03G0046^A^^^^00C,IOCS)003SVRL,)007,^'02? 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 501: 0047QMEND^00B,,^'05E0048PBOOL^00?P,)008*-)006&-)080*-)008*)012*-)007,,^'03G0049^MLNA^00C,IOCS)003SAV 1 1 11 11 1 1 1 11 11 1 1 1 601: E,*&11,^'03I0050PBOOL^00?P,-)012*-)008*-)007,,^'04I0051^MRCWM00C,)00A,IOCS)003IOAR,^MOVE^RECORD^'05A 1 1 11 1 1 1 11 11 1 1 1 1 1 11 701: 0052^MRCWM00C,0&)01I,IOCS)003IOAR,^MOVE^RECORD^'03B0053PBOOL^00?P,-)008*)007,,^'04C0054^MRCWM00C,)00 1 1 1 1 1 11 1 1 1 11 11 1 1 1 801: A,0&)007,^MOVE^RECORD^'04E0055^MRCWM00C,0&)01I,0&)007,^MOVE^RECORD^'03H0056PBOOL^00?P,-)008*-)007*)0 1 1 11 1 1 1 1 1 11 1 1 1 901: 12,,^'03H0057^MRCWM00C,)00A,0,^MOVE^RECORD^'04?0058^MRCWM00C,0&)01I,0,^MOVE^RECORD^' 11 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 097D05?0059PBOOL^00?P,-)012*-)008*)015*-)019*-)007,,^'05G0060^MRCWM00C,IOCS)015WORK,IOCS)003IOAR,^MO 1 1 1 1 1 11 11 1 1 1 1 1 101: VE^RECORD^'04C0061PBOOL^00?P,-)008*)007*)015*-)019,,^'05A0062^MRCWM00C,IOCS)015WORK,0&)007,^MOVE^REC 11 1 1 1 11 11 1 1 1 1 1 201: ORD^'04I0063PBOOL^00?P,-)008*-)007*)012*)015*-)019,,^'04F0064^MRCWM00C,IOCS)015WORK,0,^MOVE^RECORD^' 11 1 1 1 11 11 1 1 1 1 1 1 301: 04E0065PBOOL^00AP,-)008*-)009*@)001&)015@,,^'04A0066^MRCWM00B,@"@,^MOVE^IN^G.M.-W.M.^'02G0067PBOOL^0 1 1 1 1 11 11 1 1 1 1 11 1 1 401: 0?P,-)008,,^'02G0068^BOOL^00?Q,-)012,,^'05A0069^A^^^^00C,IOCS)003IOAR-1&)00D,IOCS)003THT,^'02F0070^B 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 501: OOL^00?R,)012,,^'04C0071QA^^^^00C,)00D-1&)00G,IOCS)003THT,^'03B0072RB^^^^00B,IOCS)003FULL,^'02?0073^ 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 601: MEND^00B,,^'04B0074PBOOL^00?P,)008*)019*)006*-)009,,^'04D0075^MLC^^00C,)006-1&)019,IOCS)003SVRL,^'04 1 11 11 1 1 1 11 11 1 1 1 1 1 11 701: D0076PBOOL^00?P,-)009*-)015*-)080*)006,,^'04D0077^MLC^^00C,)001&)006-1,IOCS)003SVRL,^'04C0078PBOOL^0 1 1 1 11 11 1 1 1 1 1 11 1 1 801: 0?P,-)009*)006*)015*-)019,,^'05B0079^MLC^^00C,IOCS)015WORK&)006-1,IOCS)003SVRL,^'03B0080PBOOL^00?P,- 1 11 11 1 1 1 1 1 11 1 1 1 901: )009*)006,,^'06A0081^A^^^^00C,IOCS)003SVRL,IOCS)003RLAC,^ADD^IN^REC.LEN.^' 11 11 1 1 1 1 1 1 1: 098E05E0082^C^^^^00C,IOCS)003ENDD,IOCS)003RLAC,^TEST^FULL^'03B0083^BH^^^00B,IOCS)003FULL,^'02G0084PB 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: OOL^00?P,-)007,,^'04G0085^MLNA^00C,IOCS)003SAVE,*&11,^INIT.MOVE^'03C0086PBOOL^00?P,-)007*-)019,,^'03 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 201: H0087^MRCWM00C,)00A,0,^MOVE^RECORD^'02G0088^BOOL^00?P,-)001,,^'04F0089^MRCWM00C,IOCS)01EWORK,0,^MOVE 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 301: ^RECORD^'03H0090PBOOL^00?P,)007*-)080*-)019,,^'04C0091^MRCWM00C,)00A,0&)007,^MOVE^RECORD^'02G0092^BO 11 1 1 1 11 11 1 1 1 1 1 11 1 401: OL^00?P,-)001,,^'05A0093^MRCWM00C,IOCS)015WORK,0&)007,^MOVE^RECORD^'03B0094PBOOL^00?P,)019*-)007,,^' 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 501: 04?0095^MRCWM00C,0&)019,0,^MOVE^RECORD^'05B0096PMRCWM00C,0&)01I,0&)00G,^MOVE^RECORD^TO^OUT^'03A0097^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 601: BOOL^00?P,)080*)004,,^'05C0098^A^^^^00C,)004-1&)007,IOCS)003THT,^TAKE^HASH^'03A0099PBOOL^00?P,)080*) 1 1 11 11 1 1 1 1 1 11 1 1 1 701: 008,,^'03G0100^A^^^^00C,IOCS)003RCLN,)007,^'03B0101PBOOL^00?P,)007*-)080,,^'04?0102^SBR^^00B,)007,^U 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 801: PDATE^FOR^NEXT^'02G0103PBOOL^00?P,-)007,,^'05B0104^SBR^^00B,IOCS)003SAVE,^UPDATE^FOR^NEXT^PUT^'05C01 11 1 1 1 11 11 1 1 1 1 11 1 901: 05PA^^^^00C,)00A&)00D-1,IOCS)003THT,^TAKE^HASH^'03G0106^BOOL^00?P,)004*-)019*)015,,^' 1 1 1 1 11 1 1 1 11 1 1: 047B06A0107^A^^^^00C,IOCS)015WORK&)004-1,IOCS)003THT,^TAKE^HASH^'03A0108PBOOL^00?P,)004*)019,,^'05C0 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: 109^A^^^^00C,)004-1&)019,IOCS)003THT,^TAKE^HASH^'02F0110PBOOL^00?P,)010,,^'05D0111^A^^^^00C,*-10,IOC 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: S)003TRC,^TAKE^RECORD^COUNT^'03B0112PBOOL^00?P,)009*-)007,,^'05E0113^C^^^^00C,IOCS)003ENDD,IOCS)003S 1 11 1 1 1 11 11 1 1 1 1 301: AVE,^TEST^FULL^'03A0114PBOOL^00?P,)009*)007,,^'04G0115^C^^^^00C,IOCS)003ENDD,)007,^TEST^FULL^'02F011 1 11 1 1 1 11 11 1 1 1 1 1 11 1 401: 6PBOOL^00?P,)009,,^'03B0117^BH^^^00B,IOCS)003FULL,^'02?0118PMEND^00B,,^' 1 1 11 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZPUTS^' 1 1 1 1: 073F03H0001^COMP^00F,)00A,SWITCH,,)091,,^'03H0002^COMP^00F,)00B,SWITCH,,)092,,^'06B0003^BOOL^00AP,)0 1 1 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 101: 03&@)091*)092@&@)001*)002*-)091*-)092@,,^'03I0004^NOTE^00AINVALID^PUTS^OPERAND,^'02?0005^MEND^00B,,^ 11 11 1 1 1 11 1 1 11 201: '02G0006PBOOL^00?P,-)091,,^'02G0007^BOOL^00?Q,-)092,,^'03C0008^MLCA^00C,&)00J,)00A&20,^'02I0009QMLCA 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 301: ^00C,&)00A,X14,^'02G0010PBOOL^00?P,-)092,,^'02G0011^BOOL^00?Q,-)091,,^'03C0012^MLCA^00C,&)00J,)00B&2 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 401: 0,^'02I0013QMLCA^00C,&)00B,X14,^'03C0014PBOOL^00?P,-)001*-)002,,^'03B0015^MLCA^00C,&)00J,20&X14,^'03 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 501: ?0016PMLCA^00C,20&X14,*&6,^'02A0017^SW^^^00B,0,^'02G0018^MLZS^00C,*-1,X13,^'03?0019^BXPA^00B,IOCSREL 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: ARM,^'03C0020^BOOL^00?P,-)091*-)092,,^'02?0021^NOP^^00B,,^'02D0022^NOP^^00B)00J,,^'03C0023^BW^^^00C, 1 11 1 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 701: IOCSGETS,*-12,^'02?0024PMEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^ZRDLIN' 1 1 1 1: 099A02F0001^BOOL^00?P,#111,,^'02H0002^B^^^^00B,IOCSCLOP,^'03A0003^BOOL^00?Q,)001&)002,,^'02D0004^ZA^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: ^^00B,)00A,^'02D0005^ZA^^^00B,)00B,^'02D0006^ZA^^^00B,)00C,^'02D0007^ZA^^^00B,)00D,^'02D0008^ZA^^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: B,)00E,^'02D0009^ZA^^^00B,)00F,^'02D0010^ZA^^^00B,)00G,^'02D0011^ZA^^^00B,)00H,^'02D0012^ZA^^^00B,)0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 0I,^'02D0013^ZA^^^00B,)01?,^'02D0014^ZA^^^00B,)01A,^'02D0015^ZA^^^00B,)01B,^'02D0016^ZA^^^00B,)01C,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: '02D0017^ZA^^^00B,)01D,^'02D0018^ZA^^^00B,)01E,^'02D0019^ZA^^^00B,)01F,^'02D0020^ZA^^^00B,)01G,^'02D 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 501: 0021^ZA^^^00B,)01H,^'02D0022^ZA^^^00B,)01I,^'02D0023^ZA^^^00B,)02?,^'02F0024^BOOL^00?R,#100,,^'02I00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 601: 25^B^^^^00B,IOCSENTRY,^'02G0026RBOOL^00?R,-#100,,^'02C0027^B^^^^00B,*&1,^'02?0028RMEND^00B,,^'03B002 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 701: 9QNOTE^00A023.RDLIN.EMP,^'06A0030^23.RD00B***^NOTE^0,LIN.EMP...NO^FILENAMES^SUPPLIED,^'03E0031^ZA^^^ 1 1 11 1 1 1 1 11 1 801: 00B,*,^ZA^FILENAME^1^'03E0032^ZA^^^00B,*,^ZA^FILENAME^2^'02I0033^ORG^^00B,*&108,^ETC^'02F0034^BOOL^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: 0?Q,#100,,^'02I0035^B^^^^00B,IOCSENTRY,^'02G0036QBOOL^00?Q,-#100,,^'02C0037^B^^^^00B,*&1,^' 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 013?02?0038QMEND^00B,,^'03B0039PNOTE^00A024.RDLIN.WMD,^'05D0040^24.RD00B***^NOTE^0,LIN.WMD...NO^FILE 1 1 1 1 11 11 1 1 1 11 1 1 1 101: S^EXIST,^'02?0041^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZRELSE' 1 1 1 1: 029I02F0001^BOOL^00?P,)008,,^'02F0002^BOOL^00?Q,)011,,^'04E0003^ZA^^^00C,IOCS)003ENDD,IOCS)003SAVE,^ 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 101: '03G0004^A^^^^00C,*-10,IOCS)003SAVE,^'02?0005^MEND^00B,,^'03B0006QB^^^^00B,IOCS)003PADS,^'02?0007^ME 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 201: ND^00B,,^'06I0008P46.RE00B***^NOTE^0,LSE.CO....REDUNDANT^FOR^UNBLOCKED^FILES,^'02?0009^MEND^00B,,^' 1 11 11 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZRTAPE' 1 1 1 1: 098D03F0001^BOOL^00?P,)001*)002*)003,,^'03D0002^COMP^00F,)002,20,)199,,,^'04F0003^BOOL^00AQ,@#109*)1 1 1 1 1 1 11 11 1 1 1 1 1 111 11 1 1 1 101: 99@&@#110*-)199@,,^'03C0004^COMP^00F,)001,O,,)198,,^'03B0005^BOOL^00?R,-)198d,,^'03B0006^BOOL^00 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 201: ?S,-)004&)198,,^'03A0007^BOOL^00?T,#100*)199,,^'03?0008^BXPA^00B,IOCSCS1SFS,^'03B0009TBOOL^00?T,#100 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: *-)199,,^'03?0010^BXPA^00B,IOCSCS2SFS,^'02F0011TBOOL^00?T,)004,,^'03A0012^SW^^^00C,)00K&1,)004,^'03B 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 0013^SAR^^00B,IOCSINTEXT&5,^'02?0014TNOP^^00B,,^'02I0015^)001^00C,)002,)003,^'02F0016^BOOL^00?U,#100 1 1 1 1 11 1 1 11 11 1 1 1 1 1 11 1 1 1 501: ,,^'03A0017^BOOL^00?T,)199*)004,,^'03?0018^BOL1^00B,IOCSCS1RET,^'03B0019TBOOL^00?T,-)199*)004,,^'03? 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 601: 0020^BOL2^00B,IOCSCS2RET,^'03A0021TBOOL^00?T,)199*)004,,^'02D0022^BCB1^00B,*-23,^'03B0023TBOOL^00?T, 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: )199*-)004,,^'02D0024^BCB1^00B,*-16,^'03B0025TBOOL^00?T,-)199*)004,,^'02D0026^BCB2^00B,*-23,^'03C002 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 7TBOOL^00?T,-)199*-)004,,^'02D0028^BCB2^00B,*-16,^'02G0029UBOOL^00?T,-#100,,^'03?0030^SBR^^00B,IOCSE 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: RNOIS,^'02F0031TBOOL^00?T,)199,,^'02F0032^BOOL^00?U,)005,,^'02D0033^BEF1^00B,)005,^' 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 1: 099?03A0034^BEX1^00C,IOCSERROR,7,^'02G0035UBOOL^00?U,-)005,,^'03A0036^BEX1^00C,IOCSERROR,(,^'02F0037 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 101: UBOOL^00?U,#100,,^'02D0038^SER^^00B,)00F,^'02C0039UBA1^^00B,*&1,^'02F0040^BOOL^00?U,)004,,^'02D0041^ 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: CW^^^00B,)004,^'03?0042^B^^^^00B,IOCSCS1SCN,^'02D0043^NOP^^00B)00K,,^'02?0044^MEND^00B,,^'02F0045TBO 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 11 11 1 301: OL^00?T,)005,,^'02D0046^BEF2^00B,)005,^'03A0047^BEX2^00C,IOCSERROR,7,^'02G0048TBOOL^00?T,-)005,,^'03 1 1 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 401: A0049^BEX2^00C,IOCSERROR,(,^'02F0050TBOOL^00?T,#100,,^'02D0051^SFR^^00B,)00F,^'02C0052TBA2^^00B,*&1, 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 501: ^'02F0053^BOOL^00?U,)004,,^'02D0054^CW^^^00B,)004,^'03?0055^B^^^^00B,IOCSCS2SCN,^'02D0056^NOP^^00B)0 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 0K,,^'02?0057^MEND^00B,,^'02F0058UBOOL^00?T,#100,,^'02I0059^B^^^^00B,IOCSENTRY,^'02G0060^BOOL^00?U,- 11 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: #100,,^'03E0061TMLCA^00C,IOCSERNOIS,)00F,^'02?0062UMEND^00B,,^'03B0063SNOTE^00A025.RTAPE.WMD,^'07B00 11 11 1 1 1 1 1 11 1 1 11 11 1 1 1 11 1 801: 64^25.RT00C***^NOTE^0,APE.WMD...IF^SWITCH,I/O^MUST^BE^OVERLAPPED,^'02?0065^MEND^00B,,^'03B0066RNOTE^ 1 1 1 1 11 1 1 11 11 1 901: 00A027.RTAPE.WMD,^'07A0067^27.RT00B***^NOTE^0,APE.WMD...DIOCS^FEATURES^ENTRY^INCOMPLETE,^' 1 1 11 1 1 1 1 1 1: 025F02?0068^MEND^00B,,^'03B0069QNOTE^00A028.RTAPE.WMD,^'07?0070^28.RT00B***^NOTE^0,APE.WMD...DIOCS^C 1 1 1 1 11 11 1 1 1 11 1 1 1 101: HANN^TAPE^ENTRY^MISSING,^'02?0071^MEND^00B,,^'03B0072PNOTE^00A029.RTAPE.WMD,^'05H0073^29.RT00B***^NO 1 11 1 1 11 11 1 1 1 11 1 1 201: TE^0,APE.WMD...OPERAND^INCOMPLETE,^'02?0074^MEND^00B,,^' 1 1 11 1 1 11 1 1: 002A017HEADER^ZRTLBL' 1 1 1 1: 094G03F0001^BOOL^00?P,)001*)002*)003,,^'03D0002^COMP^00F,)002,20,)199,,,^'04F0003^BOOL^00AQ,@#109*)1 1 1 1 1 1 11 11 1 1 1 1 1 111 11 1 1 1 101: 99@&@#110*-)199@,,^'03C0004^COMP^00F,)001,O,,)198,,^'03B0005^BOOL^00?R,-)198d,,^'03A0006^BOOL^00 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 201: ?S,#100*)199,,^'03?0007^BXPA^00B,IOCSCS1SFS,^'03B0008SBOOL^00?S,#100*-)199,,^'03?0009^BXPA^00B,IOCSC 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: S2SFS,^'02I0010S)001^00C,)002,)003,^'02G0011^BOOL^00?S,-#100,,^'03?0012^SBR^^00B,IOCSERNOIS,^'02F001 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 401: 3SBOOL^00?S,)199,,^'03A0014^BEX1^00C,IOCSERROR,7,^'02?0015^NOP^^00B,,^'02C0016^BA1^^00B,*&1,^'02G001 1 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 501: 7^BOOL^00?T,-)199,,^'03A0018SBEX2^00C,IOCSERROR,7,^'02?0019^NOP^^00B,,^'02C0020^BA2^^00B,*&1,^'02F00 1 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 601: 21TBOOL^00?S,#100,,^'02I0022^B^^^^00B,IOCSENTRY,^'02?0023SMEND^00B,,^'03B0024RNOTE^00A031.RTLBL.WMD, 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 701: ^'07A0025^31.RT00B***^NOTE^0,LBL.WMD...DIOCS^FEATURES^ENTRY^INCOMPLETE,^'02?0026^MEND^00B,,^'03B0027 11 1 1 1 1 11 1 1 11 11 1 801: QNOTE^00A032.RTLBL.WMD,^'07?0028^32.RT00B***^NOTE^0,LBL.WMD...DIOCS^CHANN^TAPE^ENTRY^MISSING,^'02?00 1 1 11 1 1 1 1 11 1 901: 29^MEND^00B,,^'03B0030PNOTE^00A033.RTLBL.WMD,^' 1 11 11 1 1 1 1 1: 008B05H0031^33.RT00B***^NOTE^0,LBL.WMD...OPERAND^INCOMPLETE,^'02?0032^MEND^00B,,^' 1 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZSKIP^' 1 1 1 1: 064H03C0001^COMP^00F,)00B,2,,)199,,^'04F0002^BOOL^00AP,@#101*-)199@&@#102*)199@,,^'02G0003^BOOL^00?Q 1 1 1 1 1 1 11 11 11 1 1 1 11 11 1 1 101: ,-)199,,^'02F0004^BOOL^00?R,#103,,^'03?0005^BXPA^00B,IOCSCS1SFS,^'02G0006RBOOL^00?R,-)001,,^'02?0007 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: ^CC^^^00B,,^'02D0008RCC^^^00B,)00A,^'02I0009^BA1^^00B,IOCSURERR,^'02F0010^BOOL^00?R,)199,,^'02F0011Q 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: BOOL^00?Q,#104,,^'03?0012^BXPA^00B,IOCSCS2SFS,^'02G0013QBOOL^00?Q,-)001,,^'02?0014^CC2^^00B,,^'02D00 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 11 11 1 401: 15QCC2^^00B,)00A,^'02I0016^BA2^^00B,IOCSURERR,^'02F0017RBOOL^00?Q,#100,,^'02I0018^B^^^^00B,IOCSENTRY 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 501: ,^'02?0019QMEND^00B,,^'03B0020PNOTE^00A034.SKIP^.WMD,^'07C0021^34.SK00B***^NOTE^0,IP^.WMD...DIOCS^CH 1 11 1 1 11 11 1 1 1 11 1 1 1 601: ANN^PRINTER^ENTRY^MISSING,^'02?0022^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZSTACK' 1 1 1 1: 090B03C0001^COMP^00F,)00A,0,,)198,,^'03C0002^COMP^00F,)00A,1,,)197,,^'03C0003^COMP^00F,)00A,2,,)196, 1 1 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 1 11 1 101: ,^'04B0004^BOOL^00?P,-)001&)196&)197&)198,,^'03C0005^COMP^00F,)00B,2,,)199,,^'04F0006^BOOL^00AQ,@#10 1 11 1 1 1 11 11 1 1 1 1 11 11 11 1 1 1 201: 1*-)199@&@#102*)199@,,^'02G0007^BOOL^00?R,-)199,,^'02F0008^BOOL^00?S,#103,,^'03?0009^BXPA^00B,IOCSCS 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 301: 1SFS,^'02G0010SBOOL^00?S,-)001,,^'02?0011^SSF^^00B,,^'02D0012SSSF^^00B,)00A,^'02I0013^BA1^^00B,IOCSU 1 11 1 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 401: RERR,^'02F0014^BOOL^00?S,)199,,^'02F0015RBOOL^00?R,#103,,^'03?0016^BXPA^00B,IOCSCS2SFS,^'02G0017RBOO 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: L^00?R,-)001,,^'02?0018^SSF2^00B,,^'02D0019RSSF2^00B,)00A,^'02I0020^BA2^^00B,IOCSURERR,^'02F0021SBOO 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 601: L^00?R,#100,,^'02I0022^B^^^^00B,IOCSENTRY,^'02?0023RMEND^00B,,^'03B0024QNOTE^00A035.STACK.WMD,^'07B0 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 11 1 701: 025^35.ST00B***^NOTE^0,ACK.WMD...DIOCS^CHANN^READER^ENTRY^MISSING,^'02?0026^MEND^00B,,^'03B0027PNOTE 1 1 1 11 1 1 11 11 1 801: ^00A036.STACK.WMD,^'06B0028^36.ST00B***^NOTE^0,ACK.WMD...STACKER^OPTION^INVALID,^'02?0029^MEND^00B,, 1 1 11 1 1 1 1 11 1 1 11 901: ^' 1 1: 002A017HEADER^ZWAITS' 1 1 1 1: 025I02G0001^BOOL^00?P,-)001,,^'03H0002^NOTE^00ABLANK^WAITS^OPERAND,^'02?0003^NOP^^00B,,^'02?0004^NOP 1 1 1 1 1 11 11 1 1 1 11 1 1 11 11 1 101: ^^00B,,^'03C0005^BW^^^00C,IOCSGETS,*-12,^'02?0006^MEND^00B,,^'02?0007PNOP^^00B,,^'02D0008^NOP^^00B)0 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 201: 01,,^'03C0009^BW^^^00C,IOCSGETS,*-12,^'02?0010^MEND^00B,,^' 11 11 1 1 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZWTAPE' 1 1 1 1: 099C03F0001^BOOL^00?P,)001*)002*)003,,^'03D0002^COMP^00F,)002,20,)199,,,^'04F0003^BOOL^00AQ,@#109*)1 1 1 1 1 1 11 11 1 1 1 1 1 111 11 1 1 1 101: 99@&@#110*-)199@,,^'03C0004^COMP^00F,)001,O,,)198,,^'03B0005^BOOL^00?R,-)198d,,^'03B0006^BOOL^00 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 201: ?S,-)004&)198,,^'03A0007^BOOL^00?T,#100*)199,,^'03?0008^BXPA^00B,IOCSCS1SFS,^'03B0009TBOOL^00?T,#100 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: *-)199,,^'03?0010^BXPA^00B,IOCSCS2SFS,^'02F0011TBOOL^00?T,)004,,^'03A0012^SW^^^00C,)00K&1,)004,^'03B 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 0013^SAR^^00B,IOCSINTEXT&5,^'02I0014T)001^00C,)002,)003,^'03A0015^BOOL^00?T,)199*)004,,^'03?0016^BOL 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 501: 1^00B,IOCSCS1RET,^'03B0017TBOOL^00?T,-)199*)004,,^'03?0018^BOL2^00B,IOCSCS2RET,^'03A0019TBOOL^00?T,) 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 601: 199*)004,,^'02D0020^BCB1^00B,*-23,^'03B0021TBOOL^00?T,)199*-)004,,^'02D0022^BCB1^00B,*-16,^'03B0023T 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: BOOL^00?T,-)199*)004,,^'02D0024^BCB2^00B,*-23,^'03C0025TBOOL^00?T,-)199*-)004,,^'02D0026^BCB2^00B,*- 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: 16,^'02F0027TBOOL^00?T,)199,,^'02F0028^BOOL^00?U,)005,,^'03A0029^BEX1^00C,IOCSERROR,7,^'02G0030^BOOL 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 901: ^00?V,-)005,,^'03A0031UBEX1^00C,IOCSERROR,(,^'02D0032VBEF1^00B,)00E,^'02C0033^BA1^^00B,*&1,^' 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096H02F0034^BOOL^00?U,)004,,^'02D0035^CW^^^00B,)004,^'03?0036^B^^^^00B,IOCSCS1SCN,^'02D0037^NOP^^00B 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 101: )00K,,^'02?0038^MEND^00B,,^'02F0039TBOOL^00?T,)005,,^'03A0040^BEX2^00C,IOCSERROR,7,^'02G0041^BOOL^00 11 11 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 201: ?V,-)005,,^'03A0042TBEX2^00C,IOCSERROR,(,^'02D0043VBEF2^00B,)00E,^'02C0044^BA2^^00B,*&1,^'02F0045^BO 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: OL^00?U,)004,,^'02D0046^CW^^^00B,)004,^'03?0047^B^^^^00B,IOCSCS2SCN,^'02D0048^NOP^^00B)00K,,^'02?004 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 401: 9^MEND^00B,,^'02F0050UBOOL^00?T,#100,,^'02I0051^B^^^^00B,IOCSENTRY,^'02?0052TMEND^00B,,^'03B0053SNOT 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 501: E^00A037.WTAPE.WMD,^'07B0054^37.WT00C***^NOTE^0,APE.WMD...IF^SWITCH,I/O^MUST^BE^OVERLAPPED,^'02?0055 1 1 11 1 1 1 1 1 11 1 601: ^MEND^00B,,^'03B0056RNOTE^00A038.WTAPE.WMD,^'07A0057^38.WT00B***^NOTE^0,APE.WMD...DIOCS^FEATURES^ENT 1 11 11 1 1 1 11 1 1 1 701: RY^INCOMPLETE,^'02?0058^MEND^00B,,^'03B0059QNOTE^00A039.WTAPE.WMD,^'07?0060^39.WT00B***^NOTE^0,APE.W 1 11 1 1 11 11 1 1 1 11 1 1 1 801: MD...DIOCS^CHANN^TAPE^ENTRY^MISSING,^'02?0061^MEND^00B,,^'03B0062PNOTE^00A040.WTAPE.WMD,^'05H0063^40 1 11 1 1 11 11 1 1 1 11 1 901: .WT00B***^NOTE^0,APE.WMD...OPERAND^INCOMPLETE,^'02?0064^MEND^00B,,^' 1 1 1 11 1 1 11 1 1: 002A017HEADER^ZWTLBL' 1 1 1 1: 092H03F0001^BOOL^00?P,)001*)002*)003,,^'03D0002^COMP^00F,)002,20,)199,,,^'04F0003^BOOL^00AQ,@#109*)1 1 1 1 1 1 11 11 1 1 1 1 1 111 11 1 1 1 101: 99@&@#110*-)199@,,^'03C0004^COMP^00F,)001,O,,)198,,^'03B0005^BOOL^00?R,-)198d,,^'03A0006^BOOL^00 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 201: ?S,#100*)199,,^'03?0007^BXPA^00B,IOCSCS1SFS,^'03B0008SBOOL^00?S,#100*-)199,,^'03?0009^BXPA^00B,IOCSC 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: S2SFS,^'02I0010S)001^00C,)002,)003,^'02F0011^BOOL^00?S,)199,,^'03A0012^BEX1^00C,IOCSERROR,7,^'02C001 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 401: 3^BA1^^00B,*&1,^'02G0014^BOOL^00?T,-)199,,^'03A0015SBEX2^00C,IOCSERROR,7,^'02C0016^BA2^^00B,*&1,^'02 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 501: F0017TBOOL^00?S,#100,,^'02I0018^B^^^^00B,IOCSENTRY,^'02?0019SMEND^00B,,^'03B0020RNOTE^00A042.WTLBL.W 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 601: MD,^'07A0021^42.WT00B***^NOTE^0,LBL.WMD...DIOCS^FEATURES^ENTRY^INCOMPLETE,^'02?0022^MEND^00B,,^'03B0 1 11 1 1 1 1 11 1 1 11 11 1 701: 023QNOTE^00A043.WTLBL.WMD,^'07?0024^43.WT00B***^NOTE^0,LBL.WMD...DIOCS^CHANN^TAPE^ENTRY^MISSING,^'02 1 1 11 1 1 1 1 11 801: ?0025^MEND^00B,,^'03B0026PNOTE^00A044.WTLBL.WMD,^'05H0027^44.WT00B***^NOTE^0,LBL.WMD...OPERAND^INCOM 1 1 11 11 1 1 1 11 1 1 1 901: PLETE,^'02?0028^MEND^00B,,^' 1 11 1 1 11 1 1: 002A017HEADER^ZXTF^^' 1 1 1 1: 098A03H0001^COMP^00F,)049,DELETE,,)099,,^'03G0002^COMP^00F,)049,DELET,,)098,,^'04?0003^BOOL^00AP,)02 1 1 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 101: 2&@-)098*-)099@,,^'03H0004^FILE^00B***^BEGIN,SCHEDULER,^'03H0005^BOOL^00?Q,-)001,,^TAPE^OR^UR^'03C00 11 11 1 1 1 1 11 1 1 1 11 11 1 201: 06^COMP^00F,)054,R,,)096,,^'03C0007^COMP^00F,)054,P,,)097,,^'03C0008^COMP^00F,)054,L,,)098,,^'03D000 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 301: 9^COMP^00F,)054,2A,)099,,,^'02F0010^BOOL^00?R,)014,,^'04A0011^MATH^00?#085,)01I-00047,,)095,,^'02F00 1 1 1 1 111 11 1 1 1 11 11 1 1 1 1 11 11 11 1 401: 12^BOOL^00?S,)018,,^'05G0013^E^TAP00B***^PASSIV,E^FILE^SCHEDULER^FILE^TABLE,^'02G0014^BOOL^00?T,-)01 1 1 11 11 1 1 1 1 11 1 1 1 501: 8,,^'06B0015SILE^S00B***^TAPE^F,CHEDULER^INITIALIZATION^SEQUENCE,^'05I0016^MLC^^00CIOCS)002INIT,IOCS 11 11 1 1 1 1 11 1 1 1 601: )002ACT&6,IOCS)002IOA&3,^'02F0017^BOOL^00?S,)011,,^'04G0018^MLCWA00C,IOCS)002ACT&6,IOCS)002IOB&3,^'0 1 1 11 1 1 1 11 11 1 1 1 1 1 11 701: 2F0019SBOOL^00?S,)010,,^'02F0020^BOOL^00?U,)007,,^'04E0021^ZA^^^00C,IOCS)002ENDI,IOCS)002SAVE,^'03B0 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 801: 022^BOOL^00?U,-)008&)011,,^'03B0023^S^^^^00B,IOCS)002ENDD,^'02F0024UBOOL^00?U,)011,,^'03D0025^CW^^^0 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 901: 0B,IOCS)002PRIM&1,^'03D0026^SBR^^00B,IOCS)002TRIG&5,^'02G0027^BOOL^00?U,-)010,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 096E04F0028SBOOL^00AS,@)007*)008@&@-)007*)011@,,^'04F0029^ZA^^^00C,IOCS)002IOA&8,IOCS)002SAVE,^'03B0 1 1 1 1 1 11 11 1 1 1 1 1 11 1 101: 030SBOOL^00?S,)007*-)008,,^'04E0031^ZA^^^00C,IOCS)002VBCA,IOCS)002SAVE,^'03G0032^ZA^^^00C,*-10,IOCS) 1 1 11 11 1 1 1 1 1 11 1 1 1 1 201: 002RLAC,^'02F0033SBOOL^00?U,)011,,^'03A0034^BOOL^00?S,)007*)008,,^'04E0035^ZA^^^00C,IOCS)002ENDA,IOC 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 301: S)002ENDD,^'04E0036SMLCA^00C,&IOCSENTRY,IOCS)002TRIG&5,^'03A0037UBOOL^00?S,)134*#100,,^'03A0038^BOOL 1 11 1 1 1 1 1 11 1 1 1 11 11 1 401: ^00?U,)050*)011,,^'03I0039^MLCA^00C,4&X15,IOCS)002BYP&5,^'03I0040UMLCA^00C,4&X15,IOCS)002SFX&5,^'02F 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 501: 0041^BOOL^00?U,)011,,^'04?0042^BOOL^00AV,)010*@-)008&-)025@,,^'03G0043^MLCB^00C,18&X15,IOCS)002BA,^' 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 1 601: 02?0044^MLCB^00B,,^'04?0045^MLCA^00C,11&X15,IOCS)002BA-14,^'02G0046^BOOL^00?W,-)010,,^'03G0047VMLCS^ 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 701: 00C,11&X15,IOCS)002BA,^'03I0048^MLCA^00C,11&X15,IOCS)002BA-7,^'03B0049WBOOL^00?V,-)008*)025,,^'03I00 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 801: 50^MLCA^00C,25&X15,IOCS)002PA-2,^'03I0051^MLCA^00C,4&X15,IOCS)002SFS&5,^'02F0052^BOOL^00?W,)008,,^'0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 901: 3I0053VMLCB^00C,25&X15,IOCS)002PA-2,^'02G0054^BOOL^00?W,-#100,,^' 1 1 1 1 1 11 1 1 1 11 1 1: 097H04?0055UBOOL^00AU,)010*@-)008&-)025@,,^'03G0056^MLCB^00C,18&X15,IOCS)002BA,^'02?0057^MLCB^00B,,^ 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 11 101: '03B0058^BOOL^00?W,-)008*)025,,^'04?0059^MLCS^00C,19&X15,IOCS)002BA&13,^'02G0060^BOOL^00?W,-)010,,^' 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 201: 03G0061UMLCS^00C,11&X15,IOCS)002BA,^'03B0062SBOOL^00?W,)134*-#100,,^'04D0063^MLCS^00C,IOCS)002ACT&7, 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: IOCS)002BA,^'04?0064^BOOL^00AW,)010*@-)008&-)025@,,^'04F0065^MLCS^00C,IOCS)002ACT&7,IOCS)002BA-7,^'0 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 2I0066WB^^^^00B,IOCSENTAB,^'07E0067^^AND^00B***^FIELDS,EQUATES^USED^BY^IOCS^MACROS^AND^THE^SCHEDULER 1 1 1 1 11 1 1 1 501: ,^'02F0068^BOOL^00?S,)050,,^'04B0069^DCW^^00CIOCS)002CHK,@1234567@,G,^'03I0070SBOOL^00AS,-)006*@)007 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 601: &)011@,,^'03H0071^DCW^^00BIOCS)002SAVE,&00000,^'03G0072SBOOL^00?S,)007*-)008*)010,,^'03H0073^DCW^^00 11 11 1 1 1 1 11 1 1 1 11 11 1 1 701: BIOCS)002ENDD,&00000,^'03H0074SBOOL^00?S,)007*-)008*-)010,,^'03G0075^MATH^00?#085,)019-00004,,,,^'03 1 1 11 1 1 1 11 11 1 1 1 1 1111 11 801: G0076^DCW^^00BIOCS)002ENDD,U,^'03A0077SBOOL^00?S,)007*)008,,^'04B0078^DCW^^00BIOCS)002ENDI,&)022 1 1 1 1 11 1 1 1 11 11 1 1 1 901: &)019,^'04D0079^DCW^^00BIOCS)002ENDD,&)022&)019-1,^'02F0080^BOOL^00?U,)011,,^' 1 11 1 1 1 1 11 1 1 1 11 1 1: 098D04D0081^DCW^^00BIOCS)002ENDA,&)022&)019-1,^'04D0082^DCW^^00BIOCS)002ENDB,&)023&)019-1,^'03G0083U 1 1 1 1 1 1 11 1 1 1 1 11 1 101: DCW^^00BIOCS)002RCLN,&)005,^'03B0084SBOOL^00?S,)007*-)008,,^'05B0085^DCW^^00BIOCS)002ENDI,&IOCS)002E 1 1 1 11 1 1 1 11 11 1 1 1 201: NDD-)005&1,^'03I0086^DCW^^00BIOCS)002VBCA,&)022&4,^'03I0087^DCW^^00BIOCS)002VBSA,&)022-1,^'02F0088^B 1 11 1 1 1 1 11 1 1 1 1 11 1 301: OOL^00?U,)011,,^'03I0089^DCW^^00BIOCS)002VBCB,&)023&4,^'03I0090^DCW^^00BIOCS)002VBSB,&)023-1,^'02G00 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 401: 91UBOOL^00?U,-)010,,^'03G0092^DCW^^00BIOCS)002SVRL,&0000,^'02F0093^BOOL^00?V,)011,,^'03H0094^DCW^^00 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 501: BIOCS)002RLAC,&00000,^'02F0095UBOOL^00?S,)025,,^'03H0096^DCW^^00BIOCS)002BLKL,&00000,^'03D0097^DCW^^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 601: 00BIOCS)002WLRC,00,^'03C0098VBOOL^00?S,-)010*-)011,,^'03H0099^EQU^^00BIOCS)002RLAC,)022&3,^'03F0100S 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: EQU^^00BIOCS)002SAVE,)00F,^'03A0101^BOOL^00?R,)007&)011,,^'03F0102^EQU^^00BIOCS)002WORK,)02A,^'03C01 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 03RBOOL^00?R,-)007*-)011,,^'03F0104^EQU^^00BIOCS)002IOAR,)022,^'02F0105^BOOL^00?R,)010,,^'03F0106^EQ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: U^^00BIOCS)002WORK,)022,^'02F0107RBOOL^00?R,)010,,^'03B0108^FROM^00B***^ENTRY,GET,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097H04F0109^SBR^^00BIOCS)002EMTY,IOCS)002EXIT&5,^'03B0110^BOOL^00?R,-)008*)025,,^'03B0111^S^^^^00B,I 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: OCS)002WLRC,^'02G0112RBOOL^00?R,-)010,,^'03B0113^FROM^00B***^ENTRY,PUT,^'04F0114^SBR^^00BIOCS)002FUL 1 11 1 1 1 11 11 1 1 1 1 11 1 1 201: L,IOCS)002EXIT&5,^'03F0115^A^^^^00C,*-10,IOCS)002TBC,^'03B0116^BOOL^00?R,)007*-)008,,^'04E0117^S^^^^ 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 301: 00C,IOCS)002SVRL,IOCS)002RLAC,^'03E0118^A^^^^00C,&4,IOCS)002RLAC,^'02G0119^BOOL^00?S,-)006,,^'03G012 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 401: 0^MLNA^00C,IOCS)002SAVE,*&11,^'02E0121^MLCWS00C,@"@,0,^'03?0122SMLCWS00C,@"@,0&)00F,^'03A0123RBOOL^0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0?R,)011*)014,,^'02F0124^BOOL^00?S,)099,,^'04F0125^BW^^^00CIOCS)002WTG,IOCS)002PA,*&28,^'04A0126^BXP 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 601: A^00BIOCS)002SFX,IOCSCS1SFS,^'03B0127^SBR^^00B,IOCSINTEXT&5,^'03D0128^BW^^^00C,IOCS)002PA,*&2,^'02I0 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: 129^NOP^^00BIOCSE#095,,^'03A0130^MATH^00?#085,#095,,,,^'03G0131^MATH^00?#095,#095&00001,,,,^'02I0132 1 11 11 1 1 1 1111 11 1 1 1 1 1111 11 1 801: ^BXPA^00B,IOCSE#095,^'03B0133^NOP^^00BIOCS)002BUSY,,^'02D0134^B^^^^00B,*&12,^'04?0135^)017^00CIOCS)0 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 901: 02IOA,)054,)022,^'02?0136^NOP^^00B,,^'04?0137^)017^00CIOCS)002IOB,)054,)023,^' 1 1 1 11 1 1 11 11 1 1 1 1 1 1 1: 097D03?0138^BOL1^00B,IOCSCS1RET,^'03B0139^BCB1^00B,IOCS)002BUSY,^'02G0140^BOOL^00?U,-)099,,^'04F0141 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 101: SBW^^^00CIOCS)002WTG,IOCS)002PA,*&28,^'04A0142^BXPA^00BIOCS)002SFX,IOCSCS2SFS,^'03B0143^SBR^^00B,IOC 1 1 1 1 11 1 1 1 1 11 1 1 1 201: SINTEXT&5,^'03D0144^BW^^^00C,IOCS)002PA,*&2,^'02I0145^NOP^^00BIOCSF#090,,^'03A0146^MATH^00?#085,#090 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 301: ,,,,^'03G0147^MATH^00?#090,#090&00001,,,,^'02I0148^BXPA^00B,IOCSF#090,^'03B0149^NOP^^00BIOCS)002BUSY 1111 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 401: ,,^'02D0150^B^^^^00B,*&12,^'04?0151^)017^00CIOCS)002IOA,)054,)022,^'02?0152^NOP^^00B,,^'04?0153^)017 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 501: ^00CIOCS)002IOB,)054,)023,^'03?0154^BOL2^00B,IOCSCS2RET,^'03B0155^BCB2^00B,IOCS)002BUSY,^'02F0156^BO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: OL^00?S,)099,,^'03A0157RBOOL^00?R,)099*#103,,^'04A0158^BXPA^00BIOCS)002SFX,IOCSCS1SFS,^'03B0159RBOOL 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 701: ^00?R,-)099*#104,,^'04A0160^BXPA^00BIOCS)002SFX,IOCSCS2SFS,^'02F0161RBOOL^00?R,)014,,^'02?0162^NOP^^ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: 00B,,^'04?0163^)017^00CIOCS)002IOA,)054,)022,^'03B0164^BOOL^00?V,)010*-#100,,^'03?0165^SBR^^00B,IOCS 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 901: ERNOIS,^'02F0166VBOOL^00?S,)099,,^'03I0167UBOOL^00AU,)010*-@)008*)025@,,^' 1 11 1 1 1 11 11 1 1 1 11 1 1: 095I03A0168^BEX1^00C,IOCSERROR,+,^'03C0169^BA1^^00BIOCS)002BA,*&1,^'02G0170^BOOL^00?V,-)010,,^'03I01 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 101: 71UBA1^^00BIOCS)002BA,IOCSERROR,^'02F0172VBOOL^00?U,)011,,^'03A0173^SW^^^00B,IOCSE#085&1,^'03G0174UB 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: OOL^00?U,-)008*)025*#100,,^'03B0175^SER^^00B,IOCS)002BLKL,^'02F0176UBOOL^00?U,)011,,^'03?0177^BXPA^0 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 301: 0B,IOCSCS1SCN,^'02G0178^BOOL^00?V,-)011,,^'03I0179SBOOL^00AS,)010*-@)008*)025@,,^'03A0180^BEX2^00C,I 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 401: OCSERROR,+,^'03C0181^BA2^^00BIOCS)002BA,*&1,^'02G0182^BOOL^00?W,-)010,,^'03I0183SBA2^^00BIOCS)002BA, 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 501: IOCSERROR,^'02F0184WBOOL^00?S,)011,,^'03A0185^SW^^^00B,IOCSF#085&1,^'03G0186SBOOL^00?S,-)008*)025*#1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 601: 00,,^'03B0187^SFR^^00B,IOCS)002BLKL,^'02F0188SBOOL^00?U,)011,,^'03?0189^BXPA^00B,IOCSCS2SCN,^'05B019 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: 0VBW^^^00CIOCS)002PA,IOCS)002SA,IOCS)002IOB,^'04E0191^SW^^^00C,IOCS)002IOA-7,IOCS)002IOB,^'02F0192^B 1 1 1 1 11 1 1 1 1 1 11 1 801: OOL^00?S,)050,,^'03H0193^MLCB^00C,)022&6,IOCS)002CHK,^'03B0194SBOOL^00?S,-)007&)008,,^'04F0195^ZA^^^ 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 901: 00C,IOCS)002IOA&8,IOCS)002SAVE,^'02F0196^BOOL^00?S,)007,,^' 1 1 1 1 11 1 1 1 11 1 1: 099A04E0197^ZA^^^00C,IOCS)002ENDA,IOCS)002ENDD,^'03B0198SBOOL^00?S,)007*-)008,,^'04E0199^ZA^^^00C,IO 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: CS)002VBCA,IOCS)002SAVE,^'02F0200^BOOL^00?V,)010,,^'04E0201^ZA^^^00C,IOCS)002VBSA,IOCS)002ENDD,^'03I 1 1 11 1 1 1 11 11 1 1 1 1 1 11 201: 0202^A^^^^00C,)022&3,IOCS)002ENDD,^'02G0203^BOOL^00?S,-)010,,^'03I0204VZA^^^00C,IOCS)002RLAC,)023&3, 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 301: ^'04E0205SBOOL^00AS,)050*@-)008&-)025&)095@,,^'03E0206^B^^^^00B,IOCS)002TRIG-24,^'02G0207^BOOL^00?V, 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: -)050,,^'03D0208SB^^^^00B,IOCS)002TRIG-6,^'05E0209VCW^^^00CIOCS)002SA,IOCS)002IOA-7,IOCS)002IOB,^'02 11 11 1 1 1 1 11 1 1 1 1 1 11 501: F0210^BOOL^00?S,)050,,^'03H0211^MLCB^00C,)023&6,IOCS)002CHK,^'03B0212SBOOL^00?S,-)007&)008,,^'04F021 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 601: 3^ZA^^^00C,IOCS)002IOB&8,IOCS)002SAVE,^'02F0214^BOOL^00?S,)007,,^'04E0215^ZA^^^00C,IOCS)002ENDB,IOCS 1 1 1 1 11 1 1 1 11 11 1 1 1 1 701: )002ENDD,^'03B0216SBOOL^00?U,)007*-)008,,^'04E0217^ZA^^^00C,IOCS)002VBCB,IOCS)002SAVE,^'02F0218^BOOL 1 11 1 1 1 11 11 1 1 1 1 1 11 1 801: ^00?S,)010,,^'04E0219^ZA^^^00C,IOCS)002VBSB,IOCS)002ENDD,^'03I0220^A^^^^00C,)023&3,IOCS)002ENDD,^'02 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 901: G0221^BOOL^00?U,-)010,,^'03I0222SZA^^^00C,IOCS)002RLAC,)022&3,^'02G0223UBOOL^00?R,-)011,,^' 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 1: 099H04E0224^BOOL^00AS,)050*@-)008&-)025&)095@,,^'03H0225^MLCB^00C,)022&6,IOCS)002CHK,^'03A0226SBOOL^ 1 1 1 1 1 11 11 1 1 1 1 1 11 1 101: 00?S,)007*)008,,^'04F0227^ZA^^^00C,IOCS)002IOA&8,IOCS)002SAVE,^'03B0228SBOOL^00?R,)007*-)008,,^'04E0 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 201: 229^ZA^^^00C,IOCS)002VBCA,IOCS)002SAVE,^'02F0230^BOOL^00?R,)010,,^'04E0231^ZA^^^00C,IOCS)002VBSA,IOC 1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: S)002ENDD,^'03I0232^A^^^^00C,)022&3,IOCS)002ENDD,^'02G0233RBOOL^00?R,-)014,,^'03A0234^BOOL^00?S,)096 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 401: &)097,,^'04?0235^)017^00CIOCS)002IOA,)018,)022,^'02F0236SBOOL^00?S,)098,,^'03E0237^)017^00BIOCS)002I 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 501: OA,)022,^'02F0238SBOOL^00?S,)099,,^'02I0239^BA1^^00B,IOCSURERR,^'02D0240^BEF1^00B,)02D,^'03B0241^BOO 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 601: L^00?R,)096*-)024,,^'03A0242^BEF1^00B,IOCS)002IOA,^'02G0243^BOOL^00?R,-)099,,^'02I0244SBA2^^00B,IOCS 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: URERR,^'02D0245^BEF2^00B,)02D,^'03B0246^BOOL^00?R,)096*-)024,,^'03A0247^BEF2^00B,IOCS)002IOA,^'02F02 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 48RBOOL^00?R,)096,,^'03D0249^EQU^^00BIOCS)002EOF,*-2,^'04E0250RBOOL^00AR,)050*@-)008&-)025&)095@,,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 1 901: 04A0251^C^^^^00C,IOCS)002CHK,@**CHKPT@,^'03A0252^BE^^^00B,IOCS)002BYP,^'02F0253RBOOL^00?R,)011,,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098D02F0254^BOOL^00?S,)099,,^'03A0255^CW^^^00B,IOCSE#085&1,^'02G0256^BOOL^00?U,-)099,,^'03A0257SCW^^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: ^00B,IOCSF#085&1,^'03B0258UBOOL^00?S,-)008*)025,,^'03E0259^BXPA^00BIOCS)002TRIG,*&1,^'02G0260^BOOL^0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 201: 0?U,-#100,,^'02F0261RBOOL^00?R,#100,,^'04A0262SBXPA^00BIOCS)002TRIG,IOCSENTRY,^'02F0263RBOOL^00?R,)0 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: 10,,^'03B0264^BOOL^00?S,-)008*)025,,^'02G0265UBOOL^00?U,-#100,,^'04C0266^ZA^^^00C,IOCSERNOIS,IOCS)00 11 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 401: 2BLKL,^'03G0267US^^^^00C,*-10,IOCS)002BLKL,^'04E0268^C^^^^00C,IOCS)002BLKL,IOCS)002ENDD,^'04C0269^BU 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: ^^^00BIOCS)002WLRX,IOCS)002WLR,^'02F0270^BOOL^00?S,)011,,^'02I0271^BXPA^00B,IOCSENTRY,^'03F0272SA^^^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 601: ^00C,*-10,IOCS)002TBC,^'02G0273^BOOL^00?S,-)010,,^'03B0274RBOOL^00?S,)007*-)008,,^'04E0275^ZA^^^00C, 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 701: IOCS)002SVRL,IOCS)002RLAC,^'03C0276SB^^^^00BIOCS)002EXIT,0,^'02F0277^BOOL^00?R,)014,,^'03B0278^BOOL^ 1 1 11 1 1 1 1 11 1 1 1 11 11 1 801: 00?S,-)008*)025,,^'03H0279^^WLR^00B***^FORM^4,SEQUENCE,^'04H0280^A^^^^00CIOCS)002WLR,*-10,IOCS)002WL 1 1 11 11 1 1 1 1 11 1 1 1 1 901: RC,^'04H0281^BCE^^00D,IOCS)002WLX,IOCS)002WLRC-1,1,^'03A0282^BOOL^00?U,)099*#100,,^' 1 11 1 1 1 1 1 1 11 1 1 1 11 1 1: 099?04A0283^BXPA^00BIOCS)002SFS,IOCSCS1SFS,^'03B0284UBOOL^00?U,-)099*#100,,^'04A0285^BXPA^00BIOCS)00 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: 2SFS,IOCSCS2SFS,^'02F0286UBOOL^00?U,)134,,^'03H0287^MLCS^00C,IOCS)002ACT&7,*&20,^'03G0288UMLCS^00C,I 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: OCS)002ACT&6,*&6,^'02?0289^MLCS^00B,,^'02?0290^MLCS^00B,,^'02D0291^BSP^^00B,)054,^'02F0292^BOOL^00?U 1 1 11 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 301: ,)099,,^'02I0293^BA1^^00B,IOCSERROR,^'02G0294^BOOL^00?V,-)099,,^'02I0295UBA2^^00B,IOCSERROR,^'03E029 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 401: 6VB^^^^00B,IOCS)002EMTY&13,^'03E0297^B^^^^00BIOCS)002WLX,)025,^'03D0298^B^^^^00B,IOCS)002WLRX&7,^'03 1 1 1 11 1 1 1 1 11 1 1 1 1 11 501: D0299^B^^^^00B,IOCS)002EMTY&7,^'02F0300SBOOL^00?S,)050,,^'03G0301^BOOL^00?U,)008*)025*-)095,,^'03G03 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 601: 02^WLR^S00B***^CHKPT-,EQUENCE,^'03F0303^BCE^^00BIOCS)002QCHK,)025,^'02F0304^BOOL^00?V,#100,,^'02F030 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: 5^SAR^^00B,)049-2,^'02G0306^BOOL^00?W,-#100,,^'03?0307VSAR^^00B,IOCSEREX&5,^'02G0308WBOOL^00?V,-)011 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 801: ,,^'03H0309^MLCB^00C,)022&6,IOCS)002CHK,^'04A0310VC^^^^00C,IOCS)002CHK,@**CHKPT@,^'02F0311^BOOL^00?V 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 901: ,#100,,^'02F0312^BU^^^00B,)049-7,^'02G0313^BOOL^00?U,-#100,,^'02H0314VBU^^^00B,IOCSEREX,^' 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099I04?0315UBYPAS00B***^CHKPT-,S^SEQUENCE,^'02F0316^BOOL^00?U,)011,,^'02F0317^BOOL^00?V,)099,,^'04A0 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 101: 318^BXPA^00BIOCS)002BYP,IOCSCS1SFS,^'02G0319^BOOL^00?W,-)099,,^'04A0320VBXPA^00BIOCS)002BYP,IOCSCS2S 1 1 1 11 1 1 1 11 11 1 1 1 201: FS,^'03G0321WMLCS^00C,IOCS)002ACT&6,*&4,^'02G0322^BOOL^00?V,-)011,,^'04H0323UMLCS^00CIOCS)002BYP,IOC 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 301: S)002ACT&6,*&4,^'03H0324VRTB^^00C,)054,IOCS)002CHK-5,^'02F0325^BOOL^00?U,)134,,^'03H0326^MLCS^00C,IO 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 401: CS)002ACT&7,*&20,^'03G0327^MLCS^00C,IOCS)002ACT&7,*&1,^'02F0328UBOOL^00?U,)099,,^'02C0329^BA1^^00B,* 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 501: &1,^'03A0330^BCB1^00B,IOCS)002BYP,^'02G0331^BOOL^00?V,-)099,,^'02C0332UBA2^^00B,*&1,^'03A0333^BCB2^0 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 601: 0B,IOCS)002BYP,^'04E0334VBOOL^00AU,)011*@-)008&-)025&)095@,,^'02F0335^BOOL^00?V,)099,,^'03A0336^CW^^ 1 1 11 1 1 1 11 11 1 1 1 11 11 1 701: ^00B,IOCSE#085&1,^'02G0337^BOOL^00?U,-)099,,^'03A0338VCW^^^00B,IOCSF#085&1,^'03D0339UB^^^^00B,IOCS)0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 801: 02EMTY&7,^'03B0340SBOOL^00?S,)007*-)010,,^'03I0341^WRITE00B*COMMENT,^LAST^BLOCK,^'04F0342^SBR^^00BIO 1 11 1 1 1 11 11 1 1 1 1 11 1 1 901: CS)002PADS,IOCS)002EXIT&5,^'02F0343^BOOL^00?U,)008,,^'04E0344^C^^^^00C,IOCS)002SAVE,IOCS)002VBCA,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 099D03B0345^BE^^^00B,IOCS)002EXIT,^'02F0346^BOOL^00?V,)011,,^'04E0347^C^^^^00C,IOCS)002SAVE,IOCS)002 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: VBCB,^'03B0348^BE^^^00B,IOCS)002EXIT,^'02E0349VBOOL^00?V,)006,^'05C0350^BCE^^00DIOCS)002PLB2,IOCS)00 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 2PTRC,0&)006,',^'03G0351^C^^^^00C,)006,IOCS)002ENDD,^'03D0352^BL^^^00B,IOCS)002FULL&7,^'03C0353^MLCA 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: ^00C,@)05A@,0&)006,^'02G0354^BOOL^00?V,-)051,,^'03?0355^MLCA^00C,@^@,0&)006,^'02G0356VBOOL^00?V,-)00 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 401: 6,,^'03F0357^MLWA^00C,*-7,IOCS)002PSVE,^'03F0358^MLCWB00C,X15,IOCS)002PSVE,^'03F0359^MLCWA00C,IOCS)0 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 02SAVE,X15,^'05B0360^BCE^^00DIOCS)002PLB2,IOCS)002PTRC,0&X15,',^'03F0361^C^^^^00C,X15,IOCS)002ENDD,^ 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 601: '03B0362^BL^^^00B,IOCS)002PFOR,^'03B0363^MLCA^00C,@)05A@,0&X15,^'02G0364^BOOL^00?V,-)051,,^'02I0365^ 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 701: MLCA^00C,@^@,0&X15,^'03C0366VBOOL^00AV,@)003&)009@,,^'03B0367^B^^^^00B,IOCS)002PLB1,^'03C0368VEQU^^0 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0BIOCS)002PTRC,*,^'02F0369^BOOL^00?V,)009,,^'03F0370^A^^^^00C,*-10,IOCS)002TRC,^'02F0371VBOOL^00?V,) 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 901: 006,,^'04F0372^A^^^^00C,)00C-)005&)006,IOCS)002THT,^'04A0373^A^^^^00CIOCS)002PLB1,*-10,)006,^' 11 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 098?02F0374VBOOL^00?V,-)006,^'04E0375^A^^^^00C,)00C-)005&X15,IOCS)002THT,^'04?0376^A^^^^00CIOCS)002P 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: LB1,*-10,X15,^'03B0377VB^^^^00B,IOCS)002PLB2,^'02G0378^BOOL^00?U,-)006,,^'04H0379^MLCWB00CIOCS)002PF 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 201: OR,IOCS)002PSVE,X15,^'02G0380UBOOL^00?U,-)008,,^'03B0381^ZA^^^00B,IOCS)002RLAC,^'03B0382^BZ^^^00B,IO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: CS)002EXIT,^'03B0383^S^^^^00B,IOCS)002SVRL,^'03C0384UBOOL^00?U,-)006&-)008,,^'03D0385^B^^^^00B,IOCS) 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 401: 002FULL&7,^'02F0386UBOOL^00?S,)008,,^'03G0387^DCW^^00BIOCS)002VBCA,&)022,^'03G0388^DCW^^00BIOCS)002V 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: BCB,&)02C,^'02G0389^BOOL^00?S,-)006,,^'03G0390^DCW^^00BIOCS)002PSVE,00000,^'02F0391SBOOL^00?T,)011,, 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 601: ^'04G0392^IONAL00B***^EXCEPT,^CONDITION^VECTOR,^'02F0393^BOOL^00?S,)010,,^'03B0394^BOOL^00?U,-)008*) 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: 025,,^'04F0395^SBR^^00BIOCS)002PRIM,IOCS)002TRIG&5,^'02G0396^BOOL^00?V,-)025,,^'04A0397UBCE^^00BIOCS 11 11 1 1 1 1 11 1 1 1 11 11 1 1 801: )002PRIM,IOCSENTRY,^'03D0398^SAR^^00B,IOCS)002TRIG&5,^'03A0399VB^^^^00B,IOCS)002WTG,^'03A0400^BOOL^0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: 0?S,)008*)025,,^'02I0401^BCE^^00B,IOCSENTRY,^'03D0402^SAR^^00B,IOCS)002TRIG&5,^' 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 099E03B0403^BOOL^00?U,)050*-)095,,^'03B0404^BCE^^00B,IOCS)002QCHK,^'02F0405^BOOL^00?V,)095,,^'02D040 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: 6UBCE^^00B,)025,^'02C0407VSAR^^00B,*&6,^'02A0408SB^^^^00B,0,^'03F0409^B^^^^00B)049,IOCS)002TRIG,^'03 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 201: A0410^B^^^^00B,IOCS)002WTG,^'03D0411^DCW^^00B,IOCS)002TRIG&5,^'03B0412TBOOL^00?S,-)011*#100,,^'04G04 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: 13^IONAL00B***^EXCEPT,^CONDITION^VECTOR,^'03A0414^BOOL^00?T,)008*)025,,^'03E0415^DCW^^00B,@N^^^^^^^^ 1 1 1 11 1 1 1 11 11 1 1 1 401: ^^^^@,^'03B0416^BOOL^00?U,)050*-)095,,^'03B0417^BCE^^00B,IOCS)002QCHK,^'02F0418^BOOL^00?V,)095,,^'02 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 501: D0419UBCE^^00B,)025,^'02C0420VSAR^^00B,*&6,^'02A0421TB^^^^00B,0,^'03D0422^B^^^^00B)049,IOCSEREX&7,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: 03A0423^B^^^^00B,IOCSEREX&14,^'03?0424^DCW^^00B,IOCSEREX&5,^'02G0425SBOOL^00?S,-#100,,^'03A0426^BOOL 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: ^00?T,)008*)025,,^'04A0427^OTSTR00B***^WLR^BO,AP^SEQUENCE,^'03B0428^BOOL^00?U,)050*-)095,,^'03F0429^ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: BCE^^00B)049,IOCS)002QCHK,^'02F0430^BOOL^00?V,)095,,^'02H0431UBCE^^00B)049,)025,^'03?0432VSAR^^00B,I 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: OCSEREX&5,^'02H0433^B^^^^00B,IOCSEREX,^'02G0434^BOOL^00?S,-)025,,^'02H0435TEQU^^00B)049,*-20,^' 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 096F04?0436SEFINI00B***^FILE^D,TION^TABLE,^'02F0437^BOOL^00?S,#100,,^'02F0438^DCW^^00B,@)02F@,^'02G0 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: 439^BOOL^00?S,-)026,,^'02A0440^DCW^^00B,9,^'02F0441SBOOL^00?S,)011,,^'03D0442^DCW^^00BIOCS)002ACT,@2 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: @,^'02G0443^BOOL^00?T,-)011,,^'03D0444SDCW^^00BIOCS)002ACT,@1@,^'02D0445TDCW^^00B,@^^@,^'03H0446^DCW 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 301: ^^00BIOCS)002BASE,@)014@,^'02G0447^BOOL^00?S,-)016,,^'02G0448^DCW^^00B,@^^^^^@,^'02F0449SDCW^^00B,@) 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: 01F@,^'02F0450^BOOL^00?S,)018,,^'02I0451^DCW^^00B,IOCSENTAB,^'02G0452^BOOL^00?T,-)018,,^'03B0453SDCW 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 501: ^^00B,IOCS)002INIT,^'02F0454TBOOL^00?S,)010,,^'02G0455^BOOL^00?T,-)024,,^'03B0456^DCW^^00BIOCS)002EO 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 601: F,*,^'03E0457TDCW^^00BIOCS)002EOF,)02D,^'02G0458^BOOL^00?T,-)010,,^'02F0459SBOOL^00?S,)007,,^'03B046 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 701: 0^DCW^^00B,IOCS)002PADS,^'02G0461^BOOL^00?T,-)007,,^'02I0462SDCW^^00B,IOCSCLSAB,^'02F0463TBOOL^00?S, 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 801: )107,,^'02F0464^BOOL^00?T,)032,,^'05E0465^DCW^^00BIOCS)002FSCK,@0@,^CHECK^CHARCTER^FSER^'05?0466^DCW 11 11 1 1 1 11 11 1 1 1 1 11 1 901: ^^00BIOCS)002HFS,@)032-@,^FILE^SERIAL^'02G0467^BOOL^00?U,-)032,,^' 1 1 1 11 1 1 1 11 1 1: 096A05E0468TDCW^^00BIOCS)002FSCK,@1@,^CHECK^CHARCTER^FSER^'03I0469^DCW^^00BIOCS)002HFS,@^^^^^-@,^'02 1 1 1 1 1 1 11 1 1 1 1 11 101: G0470UBOOL^00?T,-)020,,^'02F0471^DCW^^00B,@001^@,^'02G0472TDCW^^00B,@)02?^@,^'04B0473^COMP^00F,)02I, 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ?XXXXXXXXX,)099,,,^'03B0474^BOOL^00?T,-)029&)099,,^'03B0475^DC^^^00B,@^^^^^^^^^^@,^'02F0476^BOOL^00? 1 111 11 1 1 1 11 11 1 1 1 1 11 1 1 301: T,)029,,^'02D0477^ORG^^00B,*-10,^'02F0478TDC^^^00B,@)02I@,^'03A0479^BOOL^00?T,)029*)099,,^'03E0480^O 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: RG^^00B,IOCS)002FSCK&21,^'02G0481TBOOL^00?T,-)030,,^'02G0482^DC^^^00B,@^^^^^@,^'02F0483TDC^^^00B,@)0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 501: 3?@,^'03B0484^BOOL^00?T,)031*-)010,,^'02H0485^DC^^^00B,@-)031^@,^'03B0486^BOOL^00?U,-)031&)010,,^'02 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 601: G0487TDC^^^00B,@-000^@,^'03H0488UDCW^^00BIOCS)002TFLB,@)027@,^'02F0489SBOOL^00?S,)010,,^'03E0490^DCW 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: ^^00BIOCS)002TFL1,@1@,^'02G0491^BOOL^00?T,-)010,,^'03I0492SDCW^^00BIOCS)002TFL1,@0@,^OUP^'04C0493TBO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: OL^00?S,)112,,^ALTERNATE^DRIVES^'04F0494^BOOL^00?T,)016,,^CHK^CHARC^ALT^DRIVE^'05E0495^DCW^^00BIOCS) 1 1 11 11 1 1 1 11 11 1 1 901: 002TFL2,@1@,^CHK^CHARC^ALT^DRIVE^'02G0496^BOOL^00?S,-)016,,^' 1 1 11 1 1 1 11 1 1: 099A05E0497TDCW^^00BIOCS)002TFL2,@0@,^CHK^CHARC^ALT^DRIVE^'04B0498SBOOL^00?S,)107,,^STANDARD^LABELS^ 1 1 1 1 1 1 11 1 1 1 11 101: '03H0499^DCW^^00BIOCS)002TFL3,@)028@,^'03H0500SBOOL^00AS,)111*@)107&)108@,,^'04I0501^DCW^^00BIOCS)00 11 1 1 1 1 11 1 1 1 11 11 1 1 201: 2TFL4,@)053@,^TM^CK^CHAR^'04G0502SBOOL^00?S,)125&)127,,^NORWD^OR^UNLOAD^'05E0503^DCW^^00BIOCS)002TFL 1 1 11 1 1 1 11 11 1 1 301: 5,@)052@,^CHK^CHARC^REWIND^'05?0504SDCW^^00BIOCS)002TBC,@^^^^^@,^BLOCK^COUNT^'05A0505^BOOL^00?S,)123 1 1 11 1 1 1 1 11 1 1 1 401: ,,^RECORD^COUNT^FOR^TRAILER^'05F0506^DCW^^00BIOCS)002TRC,@^^^^^^^^^^@,^RECORD^COUNT^'04I0507SBOOL^00 11 11 1 1 1 1 11 1 1 501: ?S,)124,,^HASH^TOTAL^FOR^TRAILER^'06?0508^DCW^^00BIOCS)002THT,@^^^^^^^^^^^^^^^^@,^HASH^TOTAL^'02G050 1 11 11 1 1 1 1 11 1 601: 9SBOOL^00?S,-)010,,^'02F0510^BOOL^00?T,)113,,^'05E0511^DCW^^00BIOCS)002D1,@)033@,^CHK^CHARC^EXIT^ONE 1 1 11 11 1 1 1 11 11 1 1 1 1 701: ^'03H0512^DCW^^00B,)03D,^EXIT^ONE^ADDR^'02G0513^BOOL^00?T,-)034,,^'03I0514^DCW^^00B,@^^^^^@,^NO^EXIT 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 801: ^ONE^'02F0515TBOOL^00?T,)114,,^'05E0516^DCW^^00BIOCS)002D2,@)035@,^CHK^CHARC^EXIT^TWO^'03H0517^DCW^^ 11 1 1 1 11 11 1 1 1 1 11 1 901: 00B,)03F,^EXIT^TWO^ADDR^'02G0518^BOOL^00?T,-)036,,^'03I0519^DCW^^00B,@^^^^^@,^NO^EXIT^TWO^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 096C04A0520TBOOL^00?T,)115,,^USE^EXIT^THREE^'05G0521^DCW^^00BIOCS)002D3,@)037@,^CHK^CHARC^EXIT^THREE 1 1 1 1 1 11 11 1 1 1 1 101: ^'04?0522^DCW^^00B,)03H,^EXIT^THREE^ADDR^'02G0523^BOOL^00?T,-)038,,^'02G0524^DCW^^00B,@^^^^^@,^'04?0 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: 525TBOOL^00?T,)116,,^USE^EXIT^FOUR^'05F0526^DCW^^00BIOCS)002D4,@)039@,^CHK^CHARC^EXIT^FOUR^'03I0527^ 1 1 11 11 1 1 1 1 11 1 301: DCW^^00B,)04?,^EXIT^FOUR^ADDR^'02G0528^BOOL^00?T,-)040,,^'04?0529^DCW^^00B,@^^^^^@,^NO^EXIT^FOUR^'04 1 1 1 11 1 1 1 11 11 1 1 1 1 11 401: ?0530TBOOL^00?T,)117,,^USE^EXIT^FIVE^'05F0531^DCW^^00BIOCS)002D5,@)041@,^CHK^CHARC^EXIT^FIVE^'03I053 1 1 1 11 11 1 1 1 1 11 1 501: 2^DCW^^00B,)04B,^EXIT^FIVE^ADDR^'02G0533^BOOL^00?T,-)042,,^'04?0534^DCW^^00B,@^^^^^@,^NO^EXIT^FIVE^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 601: 02F0535TBOOL^00?T,)120,,^'05G0536^DCW^^00BIOCS)002D8,@)047@,^CHK^CHARC^EXIT^EIGHT^'04?0537^DCW^^00B, 1 1 1 1 11 11 1 1 1 1 11 1 1 1 701: )04H,^EXIT^EIGHT^ADDR^'02G0538^BOOL^00?T,-)048,,^'04A0539^DCW^^00B,@^^^^^@,^NO^EXIT^EIGHT^'02F0540^B 1 11 1 1 1 11 11 1 1 1 1 11 1 801: OOL^00?T,)010,,^'02F0541SBOOL^00?S,)118,,^'05E0542^DCW^^00BIOCS)002D6,@)043@,^CHK^CHARC^EXIT^SIX^'03 1 1 11 11 1 1 1 11 11 1 1 1 1 11 901: H0543^DCW^^00B,)04D,^EXIT^SIX^ADDR^'02G0544^BOOL^00?S,-)044,,^' 1 1 1 1 11 1 1 1 11 1 1: 098I03I0545^DCW^^00B,@^^^^^@,^NO^EXIT^SIX^'02F0546SBOOL^00?T,)119,,^'05G0547^DCW^^00BIOCS)002D7,@)04 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: 5@,^CHK^CHARC^EXIT^SEVEN^'04?0548^DCW^^00B,)04F,^EXIT^SEVEN^ADDR^'02G0549^BOOL^00?T,-)046,,^'04A0550 1 11 1 1 1 1 11 1 1 1 11 11 1 201: ^DCW^^00B,@^^^^^@,^NO^EXIT^SEVEN^'02G0551^BOOL^00?T,-)014,,^'02H0552REQU^^00B)049,*-20,^'02F0553^BOO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 301: L^00?R,)096,,^'03B0554^DCW^^00BIOCS)002ACT,3,^'02F0555RBOOL^00?R,)097,,^'03B0556^DCW^^00BIOCS)002ACT 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 401: ,4,^'04C0557^DCW^^00BIOCS)002TBC,@^^^^^^^^^^@,^'02D0558^BCE^^00B,)022,^'02D0559^SAR^^00B,*&11,^'02E0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 560^MRC^^00C,@^@,0,^'02C0561^SBR^^00B,*-8,^'02D0562^SBR^^00B,*&11,^'02G0563^BCE^^00D,*&8,0,",^'02D05 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 11 1 601: 64^B^^^^00B,*-44,^'02F0565^)017^00C,0,)022,^'02F0566^BOOL^00?S,)099,,^'02I0567^BA1^^00B,IOCSURERR,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: 02G0568^BOOL^00?U,-)099,,^'02I0569SBA2^^00B,IOCSURERR,^'03?0570UB^^^^00B,IOCSEXITRU,^'02G0571^BOOL^0 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: 0?T,-)097,,^'02F0572RBOOL^00?R,)098,,^'04?0573^DCW^^00BIOCS)002ACT,5,^PRINTER^'04C0574RDCW^^00BIOCS) 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 901: 002TBC,@^^^^^^^^^^@,^'02G0575TBOOL^00?Q,-)055,,^'02?0576^EJECT00B,,^'02?0577^MEND^00B,,^' 1 1 11 1 1 1 11 11 1 1 11 11 1 1 11 1 1: 097C04C0578QCOMP^00F,)00A,1,,)189,,^TEST^DISK^'02F0579^BOOL^00?Q,)189,,^'03G0580^BOOL^00?R,-#108,,^T 1 1 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 11 101: EST^1301^'03H0581^BOOL^00?S,-#108*)001*-)011,,^'02G0582^BOOL^00?T,-)010,,^'04I0583^RANDO00B*,M^DISK^ 11 1 1 1 11 11 1 1 1 11 11 1 1 1 201: OUTPUT^FILE^SCHEDULER,^'04F0584^SBR^^00BIOCS)002FULL,IOCS)002EXIT&5,^'04?0585^ZA^^^00C,IOCS)002NAME, 1 11 1 1 1 1 11 1 1 1 1 301: IOCSXAT,^'03G0586^ZA^^^00C,9&IOCSXAT,IOCSXAL,^'05?0587^MLCS^00C,IOCSDSKAD-7,12&IOCSXAL,^CHANNEL^'04E 1 11 1 1 1 1 1 11 1 1 1 1 1 11 401: 0588^MLCB^00C,IOCSDSKAD,28&IOCSXAL,^ADDR^'02G0589^MLCS^00B,@9@,^ARM^'04?0590^MLCA^00C,IOCSSEKAD,10&I 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: OCSXAL,^'03D0591^MLCS^00C,@W@,15&IOCSXAL,^'03?0592^BXPA^00B,IOCSRELARM,^'05?0593^ZA^^^00CIOCS)002LOO 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: K,IOCS)002AL,IOCSXAL,^'05D0594^BCE^^00DIOCS)002TEST,IOCS)002AV,15&IOCSXAL,,^'04?0595^A^^^^00C,IOCS)0 1 1 1 11 1 1 1 1 11 11 1 1 1 701: 02ALLG,IOCSXAL,^'04D0596^BCE^^00D,IOCS)002LOOK,0&IOCSXAL,",^'03B0597^B^^^^00B,IOCS)002TEST,^'05?0598 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 801: ^ZA^^^00CIOCS)002AV,IOCSXAL,IOCS)002CUAR,^'03A0599^A^^^^00C,&30,IOCSXAL,^'04?0600^ZA^^^00C,IOCSXAL,I 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 901: OCS)002SAVE,^'03C0601^B^^^^00BIOCS)002EXIT,0,^'02F0602^BOOL^00?U,)010,,^' 1 11 1 1 1 1 11 1 1 1 11 1 1: 098B05B0603TM^DIS00B***^^RANDO,K^INPUT^FILE^SCHEDULER,^'02E0604UEQU^^00B)049,*,^'03B0605^EQU^^00BIOC 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: S)002TBL,*,^'03F0606^EQU^^00BIOCS)002SAVE,)006,^'03E0607^DCW^^00BIOCS)002AL,&)022,^'03G0608^^^^^^00B 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: IOCS)002CUAR,00000,^'03G0609^MATH^00?#010,00031&)019,,,,^'03F0610^DCW^^00BIOCS)002ALLG,#010,^'02D061 1 1 11 1 1 11 1111 11 1 1 1 1 11 1 301: 1^^^^^^00B,)006,^'02F0612^BOOL^00?T,)010,,^'02A0613^DCW^^00B,6,^'02G0614^BOOL^00?U,-)010,,^'02A0615T 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: DCW^^00B,7,^'02A0616U^^^^^00B,1,^'02E0617^^^^^^00B,00000,^'03B0618^BOOL^00?T,)033*-)025,,^'02C0619^D 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 501: CW^^00B,@N@,^'03A0620TBOOL^00?T,)033*)025,,^'02A0621^DCW^^00B,5,^'03C0622TBOOL^00?T,-)025*-)033,,^'0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 601: 2C0623^DCW^^00B,@J@,^'03B0624TBOOL^00?T,-)033*)025,,^'02C0625^DCW^^00B,@1@,^'02A0626T^^^^^00B,0,^'02 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 701: D0627^^^^^^00B,0000,^'02E0628^BOOL^00?T,)004,^'02C0629^DCW^^00B,@L@,^'02F0630^BOOL^00?U,-)004,^'02C0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 631TDCW^^00B,@M@,^'02H0632UDC^^^00B,@@F)027@,^'02F0633^BOOL^00?T,)010,,^'02C0634^DCW^^00B,@R@,^'02F0 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 901: 635^BOOL^00?U,-)010,^'02C0636TDCW^^00B,@W@,^'03G0637UDCW^^00BIOCS)002NAME,&)049,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099C02A0638^DCW^^00B,9,^'02G0639^^^^^^00B,0000000,^'02C0640^^^^^^00B,@"@,^'03B0641^BOOL^00?T,)007*-) 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 008,,^'03D0642^DCW^^00BIOCS)002FILD,34,^'02G0643^BOOL^00?U,-)007,,^'03D0644TDCW^^00BIOCS)002FILD,30, 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: ^'03F0645UDCW^^00BIOCS)002RCLN,)005,^'04B0646SBOOL^00?S,-#108*)001*)011*)010,,^'05D0647^TIAL^00B***S 11 1 1 1 1 11 1 1 1 11 11 1 1 301: EQUEN,DISK^INPUT^FILE^SCHEDULER,^'04F0648^SBR^^00BIOCS)002EMTY,IOCS)002EXIT&5,^'04B0649^MRCWG00C,IOC 1 1 11 1 1 1 1 11 1 1 1 401: SXRL-4,IOCS)002RHLD,^'04?0650^ZA^^^00C,IOCS)002CUAR,IOCSXAL,^'03C0651^ZA^^^00C,&)049,IOCSXRL,^'04E06 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: 52^BCE^^00D,IOCS)002WRIT,15&IOCSXAL,W,^'02?0653^NOP^^00B,,^'04C0654^B^^^^00BIOCS)002FSW,IOCS)002FRST 1 1 1 1 1 11 1 1 11 11 1 1 1 601: ,^'02F0655^BOOL^00?T,)058,,^'04E0656^A^^^^00C,IOCS)002INCR,IOCS)002CONS,^'04E0657^A^^^^00C,IOCS)002C 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 701: ONS-5,32&IOCSXRL,^'03D0658^ZA^^^00B,IOCS)002CONS-5,^'02D0659^BZ^^^00B,*&12,^'04E0660^ZA^^^00C,IOCS)0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 02INCR,IOCS)002CONS,^'02G0661^BOOL^00?U,-)058,,^'03E0662TA^^^^00C,*-10,48&IOCSXRL,^'04E0663UMLZS^00C 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 901: IOCS)002WRIT,*-1,6&IOCSXAL,^'03B0664^ZA^^^00B,IOCS)002ALTA,^'03B0665^BZ^^^00B,IOCS)002WONA,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096G04E0666^ZA^^^00C,IOCS)002ALTA,IOCS)002CUAR,^'04?0667^ZA^^^00C,IOCSXAL,IOCS)002ALTA,^'02F0668^BOO 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: L^00?T,)058,,^'03G0669^BCE^^00D,*&20,15&IOCSXAL,W,^'04A0670^MLCB^00C,32&IOCSXRL,10&IOCSXAL,^'02D0671 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 201: ^B^^^^00B,)038,^'04D0672^C^^^^00C,IOCS)002END-2,32&IOCSXRL,^'02G0673^BOOL^00?U,-)058,,^'03G0674TBCE^ 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 301: ^00D,*&13,15&IOCSXAL,W,^'04A0675^MLCA^00C,50&IOCSXRL,28&IOCSXAL,^'04B0676^C^^^^00C,IOCS)002END,28&IO 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: CSXAL,^'03B0677UBH^^^00B,IOCS)002ELND,^'03B0678^SW^^^00B,IOCS)002CNLP,^'04D0679^ZA^^^00C,&IOCS)002CN 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: LP,20&IOCSXAL,^'02?0680^NOP^^00B,,^'04B0681^BXPA^00BIOCS)002IOEX,IOCSSRELAR,^'03?0682^BXPA^00B,IOCSR 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 601: ELARM,^'02C0683^BXPA^00B,*&1,^'03B0684^NOP^^00BIOCS)002LAST,,^'02?0685^NOP^^00B,,^'04A0686^BW^^^00C, 1 11 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 1 701: IOCSGETS,IOCS)002IOEX,^'02C0687^BXPA^00B,*&1,^'03B0688^CW^^^00B,IOCS)002IOEX,^'02?0689^NOP^^00B,,^'0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 801: 4D0690^SW^^^00BIOCS)002CNLP,IOCS)002IOEX,^'04?0691^ZA^^^00C,IOCS)002ALTA,IOCSXAL,^'04D0692^ZA^^^00C, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: &IOCS)002IOEX,20&IOCSXAL,^'04?0693^ZA^^^00C,IOCS)002CUAR,IOCSXAL,^' 1 1 11 1 1 1 1 1 1 1: 097C04D0694^BCE^^00D,IOCS)002PUT,15&IOCSXAL,W,^'04D0695^BBE^^00D,IOCS)002SKPD,6&IOCSXAL,&,^'04E0696^ 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 101: ZA^^^00C,IOCS)002CUAR,IOCS)002SAVE,^'04E0697^A^^^^00C,IOCS)002FILD,IOCS)002SAVE,^'02F0698^BOOL^00?T, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: )007,,^'04?0699^ZA^^^00C,IOCSXAL,IOCS)002ENDD,^'02F0700^BOOL^00?U,)008,,^'04E0701^A^^^^00C,IOCS)002A 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 301: LLG,IOCS)002ENDD,^'02G0702^BOOL^00?T,-)008,,^'04C0703UA^^^^00C,33&IOCSXAL,IOCS)002ENDD,^'03F0704^A^^ 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 401: ^^00C,&31,IOCS)002ENDD,^'03E0705TS^^^^00C,&2,IOCS)002ENDD,^'04B0706^MRCWG00C,IOCS)002RHLD,IOCSXRL-4, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 501: ^'03C0707^BEPA^00BIOCS)002EXIT,0,^'04E0708^MLCS^00CIOCS)002SKPD,@0@,6&IOCSXAL,^'03B0709^SW^^^00B,IOC 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: S)002IOEX,^'03D0710^B^^^^00B,IOCS)002FSW-24,^'04C0711^CW^^^00BIOCS)002FRST,IOCS)002FSW,^'02F0712^BOO 1 11 1 1 1 1 11 1 1 1 1 11 1 701: L^00?T,)058,,^'04A0713^MLCB^00C,26&IOCSXAL,10&IOCSXAL,^'04A0714^MLCB^00C,26&IOCSXAL,32&IOCSXRL,^'02? 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 801: 0715^MLCB^00B,,^'03?0716^CW^^^00B,29&IOCSXRL,^'02D0717^B^^^^00B,)038,^'03?0718TBXPA^00B,IOCSRELARM,^ 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: '04?0719^ZA^^^00C,IOCS)002ALTA,IOCSXAL,^'03B0720^BZ^^^00B,IOCS)002LAST,^' 11 1 1 1 1 1 11 1 1 1 1 1 1: 095B04E0721^ZA^^^00C,IOCS)002CUAR,IOCS)002ALTA,^'04?0722^ZA^^^00C,IOCSXAL,IOCS)002CUAR,^'03D0723^B^^ 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^^00B,IOCS)002FSW-24,^'05I0724^BCE^^00DIOCS)002WONA,IOCS)002IOEX&7,15&IOCSXAL,W,^'02F0725^BOOL^00?T, 1 1 1 11 1 1 1 1 1 1 11 1 1 1 201: )058,,^'04A0726^MLCA^00C,32&IOCSXRL,10&IOCSXAL,^'02D0727^B^^^^00B,)038,^'04D0728^C^^^^00C,IOCS)002EN 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 301: D-2,32&IOCSXRL,^'02G0729^BOOL^00?U,-)058,,^'04A0730TMLCA^00C,50&IOCSXRL,28&IOCSXAL,^'04B0731^C^^^^00 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 401: C,IOCS)002END,28&IOCSXAL,^'03B0732UBH^^^00B,IOCS)002ENDS,^'03D0733^B^^^^00B,IOCS)002IOEX&7,^'03B0734 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^NOPWM00BIOCS)002ELND,,^'02D0735^B^^^^00B,*&26,^'03D0736^SW^^^00B,IOCS)002ELND&1,^'03D0737^MLCS^00C, 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: @W@,15&IOCSXAL,^'03B0738^B^^^^00B,IOCS)002LAST,^'03D0739^CW^^^00B,IOCS)002ELND&1,^'05B0740^ZA^^^00CI 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: OCS)002ENDS,IOCS)002CUAR,IOCSXAL,^'02F0741^BOOL^00?T,)058,,^'05E0742^C^^^^00CIOCS)002ADJ,IOCS)002END 1 1 1 11 1 1 1 11 11 1 1 1 801: -2,10&IOCSXAL,^'03E0743^BE^^^00BIOCS)002EOF,)024,^'03C0744^S^^^^00C,&1,32&IOCSXRL,^'04A0745^MLCB^00C 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 901: ,32&IOCSXRL,10&IOCSXAL,^'02G0746^BOOL^00?U,-)058,,^' 1 1 1 11 1 1 1 11 1 1: 099G05C0747TC^^^^00CIOCS)002ADJ,IOCS)002END,28&IOCSXAL,^'03E0748^BE^^^00BIOCS)002EOF,)024,^'03C0749^ 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: S^^^^00C,&1,26&IOCSXAL,^'03A0750UB^^^^00B,IOCS)002ADJ,^'04E0751^MLCS^00CIOCS)002PUT,@R@,15&IOCSXAL,^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: '03D0752^B^^^^00B,IOCS)002FSW-24,^'04E0753^SBR^^00BIOCS)002PADD,IOCS)002OUT&5,^'04D0754^SW^^^00C,IOC 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: S)002FSW,IOCS)002IOEX,^'02F0755^BOOL^00?T,)058,,^'04E0756^MLCA^00C,IOCS)002INCR,IOCS)002CONS,^'03B07 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 401: 57TB^^^^00BIOCS)002OUT,0,^'02E0758^EQU^^00B)049,*,^'02E0759^DCW^^00B,&)022,^'03G0760^DCW^^00BIOCS)00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: 2CUAR,00000,^'03G0761^MATH^00?#010,00031&)019,,,,^'03F0762^DCW^^00BIOCS)002ALLG,#010,^'03F0763^EQU^^ 1 1 11 1 1 11 1111 11 1 1 1 1 11 1 601: 00BIOCS)002SAVE,)00F,^'03B0764^DCW^^00B,IOCS)002SAVE,^'03C0765^^^^^^00BIOCS)002CODE,8,^'03C0766^^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: ^00BIOCS)002MXBL,0,^'03G0767^^^^^^00BIOCS)002LINK,00000,^'03B0768^BOOL^00?T,)033*-)025,,^'02C0769^DC 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 801: W^^00B,@M@,^'03A0770TBOOL^00?T,)033*)025,,^'02A0771^DCW^^00B,4,^'03C0772TBOOL^00?T,-)025*-)033,,^'02 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 901: C0773^DCW^^00B,@-@,^'03B0774TBOOL^00?T,-)033*)025,,^'02C0775^DCW^^00B,@^@,^'02A0776T^^^^^00B,0,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 098E03F0777^^^^^^00BIOCS)002DKAD,0000,^'02F0778^BOOL^00?T,)004,,^'02C0779^DCW^^00B,@L@,^'02G0780^BOO 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: L^00?U,-)004,,^'02C0781TDCW^^00B,@M@,^'02H0782UDC^^^00B,@@F)027@,^'02C0783^DCW^^00B,@R@,^'03C0784^DC 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: W^^00B,&IOCS)002IOEX,^'02A0785^DCW^^00B,9,^'03I0786^^^^^^00BIOCS)002BFLD,0000000,^'02C0787^^^^^^00B, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: @"@,^'03B0788^BOOL^00?T,)007*-)008,,^'03D0789^DCW^^00BIOCS)002FILD,34,^'02G0790^BOOL^00?U,-)007,,^'0 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 401: 3D0791TDCW^^00BIOCS)002FILD,30,^'03G0792U^^^^^00BIOCS)002ALTA,00000,^'03F0793^DCW^^00BIOCS)002STRT,) 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 034,^'03E0794^DCW^^00BIOCS)002END,)036,^'04E0795^^^^^^00BIOCS)002XEXT,&IOCS)002PADD,^'03G0796^^^^^^0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 0BIOCS)002ENDD,00000,^'02G0797^BOOL^00?T,-)006,,^'03G0798^DCW^^00BIOCS)002SAVE,00000,^'03F0799TEQU^^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: 00BIOCS)002WORK,)02A,^'03H0800^DA^^^00CIOCS)002RHLD,1X15,G,^'03F0801^DCW^^00BIOCS)002RCLN,)005,^'02F 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 801: 0802^BOOL^00?S,)058,,^'03G0803^MATH^00?#015,99999/)058,,,,^'02A0804^DCW^^00B,0,^'03F0805^DC^^^00BIOC 1 1 1 11 11 1 1 11 1111 11 1 1 1 1 11 1 1 901: S)002CONS,#015,^'03F0806^DCW^^00BIOCS)002INCR,#015,^'03B0807SBOOL^00?S,)011*-)010,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098G04F0808^TIAL^00B***^SEQUEN,DISK^OUTPUT^FILE,^'04F0809^SBR^^00BIOCS)002FULL,IOCS)002EXIT&5,^'04?0 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 810^ZA^^^00C,IOCS)002NAME,IOCSXRL,^'04?0811^ZA^^^00C,IOCS)002CUAR,IOCSXAL,^'03B0812^BOOL^00?T,)007*- 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: )008,,^'04E0813^S^^^^00C,IOCS)002SVRL,IOCS)002RLAC,^'04C0814^ZA^^^00C,IOCS)002RLAC,33&IOCSXAL,^'03C0 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 815^A^^^^00C,&4,33&IOCSXAL,^'02F0816TBOOL^00?T,)058,,^'02D0817^B^^^^00B,)038,^'03B0818TZA^^^00B,IOCS 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: )002ALTA,^'03D0819^BZ^^^00B,IOCS)002IOEX&7,^'04E0820^ZA^^^00C,IOCS)002ALTA,IOCS)002CUAR,^'04?0821^ZA 1 11 1 1 1 1 11 1 1 1 1 1 11 1 501: ^^^00C,IOCSXAL,IOCS)002ALTA,^'02?0822^NOP^^00B,,^'04B0823^BXPA^00BIOCS)002IOEX,IOCSSRELAR,^'03?0824^ 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 601: BXPA^00B,IOCSRELARM,^'02C0825^BXPA^00B,*&1,^'02?0826^NOP^^00B,,^'02?0827^NOP^^00B,,^'04A0828^BW^^^00 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 701: C,IOCSGETS,IOCS)002IOEX,^'03B0829^SW^^^00B,IOCS)002IOEX,^'04?0830^ZA^^^00C,IOCS)002NAME,IOCSXRL,^'04 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 801: ?0831^ZA^^^00C,IOCS)002CUAR,IOCSXAL,^'03C0832^MLCS^00C,@0@,6&IOCSXAL,^'02F0833^BOOL^00?T,)058,,^'04E 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 901: 0834^A^^^^00C,IOCS)002INCR,IOCS)002CONS,^'04E0835^A^^^^00C,IOCS)002CONS-5,32&IOCSXRL,^' 1 1 1 1 1 11 1 1 1 1 1 1 1: 096E03D0836^ZA^^^00B,IOCS)002CONS-5,^'02D0837^BZ^^^00B,*&12,^'04E0838^ZA^^^00C,IOCS)002INCR,IOCS)002 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: CONS,^'04A0839^MLNB^00C,32&IOCSXRL,10&IOCSXAL,^'04D0840^C^^^^00C,IOCS)002END-2,32&IOCSXRL,^'03B0841^ 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 201: BH^^^00B,IOCS)002OUTT,^'02G0842TBOOL^00?T,-)058,,^'03E0843^A^^^^00C,*-10,48&IOCSXRL,^'04A0844^MLC^^0 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: 0C,48&IOCSXRL,26&IOCSXAL,^'04B0845^C^^^^00C,IOCS)002END,28&IOCSXAL,^'03B0846^BH^^^00B,IOCS)002OUTT,^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: '04?0847TZA^^^00C,IOCSXAL,IOCS)002SAVE,^'04E0848^A^^^^00C,IOCS)002FILD,IOCS)002SAVE,^'03I0849^BOOL^0 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0AT,-)007&@)007*)008@,,^'04?0850^A^^^^00C,IOCS)002ALLG,IOCSXAL,^'04?0851^ZA^^^00C,IOCSXAL,IOCS)002EN 1 11 11 1 1 1 1 1 11 1 1 1 1 601: DD,^'03A0852TBOOL^00?T,)007*)008,,^'04E0853^ZA^^^00C,IOCS)002SAVE,IOCS)002CHEK,^'03E0854^S^^^^00C,&2 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 701: ,IOCS)002ENDD,^'03B0855TBOOL^00?T,)007*-)008,,^'04E0856^ZA^^^00C,IOCS)002SVRL,IOCS)002RLAC,^'03C0857 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 801: TBEPA^00BIOCS)002EXIT,0,^'02F0858^BOOL^00?T,)058,,^'04E0859^S^^^^00CIOCS)002OUTT,&1,32&IOCSXRL,^'04A 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 901: 0860^MLNB^00C,32&IOCSXRL,10&IOCSXAL,^'02G0861^BOOL^00?U,-)058,,^' 1 1 1 1 1 11 1 1 1 11 1 1: 098A04E0862TS^^^^00CIOCS)002OUTT,&1,26&IOCSXAL,^'03E0863UB^^^^00BIOCS)002EOF,)024,^'03A0864^BOOL^00? 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: T,)007*)008,,^'03G0865^DCW^^00BIOCS)002CHEK,00000,^'02F0866TBOOL^00?T,)058,,^'03G0867^MATH^00?#010,9 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 11 201: 9999/)058,,,,^'02A0868^DCW^^00B,0,^'03F0869^DC^^^00BIOCS)002CONS,#010,^'03F0870^DCW^^00BIOCS)002INCR 1111 11 1 1 1 1 11 1 1 1 1 11 1 1 301: ,#010,^'04C0871TMATH^00?#010,)019-99999-00001,,,,^'02D0872^DCW^^00B,#010,^'02C0873^DC^^^00B,@D@,^'03 1 1 11 1 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 11 401: G0874^DCW^^00BIOCS)002SAVR,00000,^'04E0875^SBR^^00BIOCS)002PADD,IOCS)002OUT&5,^'03A0876^BOOL^00?T,)0 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 07*)008,,^'04E0877^C^^^^00C,IOCS)002CHEK,IOCS)002SAVE,^'03B0878^BE^^^00B,IOCS)002NOPD,^'04E0879^MLCA 11 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^00C,IOCS)002SAVE,IOCS)002SAVR,^'04F0880^MLNA^00C,IOCS)002SAVR,IOCS)002SET&5,^'02?0881^MLCA^00B,,^'0 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 701: 2C0882^B^^^^00B,*&6,^'02E0883^DCW^^00B,00000,^'04H0884^MLCS^00CIOCS)002SET,0,IOCS)002TEST&11,^'04A08 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: 85^MLCB^00C,IOCS)002SET&5,IOCSXRL,^'04C0886^A^^^^00C,IOCS)002A,IOCS)002SET&5,^'02?0887^A^^^^00B,,^'0 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 901: 5A0888^BCE^^00DIOCS)002TEST,IOCS)002PADS,@'"@,X,^'03A0889^BCE^^00B,IOCS)002SET,^' 1 1 1 1 1 1 11 1 1 1 1 1 1: 096G03F0890^MLCS^00C,@)05A@,0&IOCSXRL,^'02G0891^BOOL^00?U,-)051,,^'03C0892^MLCS^00C,@^@,0&IOCSXRL,^' 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 101: 03A0893UB^^^^00B,IOCS)002SET,^'03C0894^EQU^^00BIOCS)002PADS,*,^'03G0895TZA^^^00C,9&IOCSXAT,IOCSXAL,^ 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: '03B0896^BOOL^00?T,)007*-)008,,^'04C0897^ZA^^^00C,IOCS)002RLAC,33&IOCSXAL,^'03C0898^A^^^^00C,&4,33&I 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 301: OCSXAL,^'03A0899TBOOL^00?T,)058*)007,,^'02D0900^B^^^^00B,)038,^'02F0901TBOOL^00?T,)007,,^'03?0902^BX 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: PA^00B,IOCSRELARM,^'03G0903^BW^^^00C,*-11,IOCS)002IOEX,^'04?0904^ZA^^^00C,IOCS)002NAME,IOCSXAT,^'02F 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 501: 0905TBOOL^00?T,)058,,^'04E0906^MLCA^00C,IOCS)002INCR,IOCS)002CONS,^'03B0907TSW^^^00B,IOCS)002IOEX,^' 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 601: 03B0908^B^^^^00BIOCS)002OUT,0,^'03A0909^BOOL^00?T,)007*)008,,^'05B0910^ZA^^^00CIOCS)002NOPD,IOCS)002 1 1 1 1 1 11 1 1 1 11 11 1 1 1 701: CUAR,IOCSXAL,^'02F0911^BOOL^00?U,)058,,^'03C0912^S^^^^00C,&1,10&IOCSXAL,^'03D0913^B^^^^00B,IOCS)002O 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 801: UT-18,^'02G0914^BOOL^00?V,-)058,,^'03C0915US^^^^00C,&1,26&IOCSXAL,^'03A0916VB^^^^00B,IOCS)002OUT,^'0 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 901: 3B0917TBOOL^00?T,)007*-)008,,^'03F0918^DCW^^00BIOCS)002SVRL,0000,^' 1 1 1 11 11 1 1 1 1 1 1: 100?03G0919^MATH^00?#010,)019-00004,,,,^'03G0920^DCW^^00BIOCS)002ENDD, ,^'03G0921TDCW^^00BIOCS)0 1 1 1 1 1 1 1111 11 1 1 1 1 11 1 1 101: 02NAME,&)049,^'02C0922^DCW^^00B,@A@,^'03B0923^DCW^^00BIOCS)002A,@A@,^'02E0924^EQU^^00B)049,*,^'02E09 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 25^DCW^^00B,&)022,^'03G0926^DCW^^00BIOCS)002CUAR,00000,^'03G0927^MATH^00?#010,00031&)019,,,,^'03F092 1 1 1 11 1 1 1 1 11 1 1 11 1111 11 1 301: 8^DCW^^00BIOCS)002ALLG,#010,^'03F0929^EQU^^00BIOCS)002SAVE,)00F,^'03B0930^DCW^^00B,IOCS)002SAVE,^'03 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: C0931^^^^^^00BIOCS)002CODE,9,^'03B0932^BOOL^00?T,)007*-)008,,^'03C0933^^^^^^00BIOCS)002MXBL,1,^'03B0 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 934TBOOL^00?T,)008&-)007,,^'03C0935^DCW^^00BIOCS)002MXBL,0,^'03G0936TDCW^^00BIOCS)002LINK,00000,^'03 1 1 11 11 1 1 1 1 11 1 1 1 1 11 601: B0937^BOOL^00?T,)033*-)025,,^'02C0938^DCW^^00B,@M@,^'03A0939TBOOL^00?T,)033*)025,,^'02A0940^DCW^^00B 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 701: ,4,^'03C0941TBOOL^00?T,-)025*-)033,,^'02C0942^DCW^^00B,@-@,^'03B0943TBOOL^00?T,)025*-)033,,^'02C0944 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: ^DCW^^00B,@^@,^'02A0945T^^^^^00B,0,^'03F0946^DCW^^00BIOCS)002DKAD,0000,^'02F0947^BOOL^00?T,)004,,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 901: 2C0948^DCW^^00B,@L@,^'02G0949^BOOL^00?U,-)004,,^'02C0950TDCW^^00B,@M@,^'02H0951UDC^^^00B,@@F)027@,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 096F02C0952^DCW^^00B,@W@,^'03C0953^DCW^^00B,&IOCS)002IOEX,^'03B0954^DCW^^00BIOCS)002ARM,9,^'03I0955^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: DCW^^00BIOCS)002BFLD,0000000,^'02C0956^DCW^^00B,@"@,^'03B0957^BOOL^00?T,)007*-)008,,^'03D0958^DCW^^0 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 201: 0BIOCS)002FILD,34,^'02G0959^BOOL^00?U,-)007,,^'03D0960TDCW^^00BIOCS)002FILD,30,^'03G0961U^^^^^00BIOC 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 301: S)002ALTA,00000,^'03F0962^DCW^^00BIOCS)002STRT,)034,^'03E0963^DCW^^00BIOCS)002END,)036,^'04E0964^DCW 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^^00BIOCS)002XEXT,&IOCS)002PADD,^'03B0965^BOOL^00?T,)008&-)007,,^'03G0966^MATH^00?#010,00030&)019,,, 1 1 1 11 1 1 1 11 11 1 1 11 111 501: ,^'04D0967^DCW^^00BIOCS)002ENDD,&)022 -1,^'03B0968TBOOL^00?T,-)008*)007,,^'03G0969^DCW^^00BIOCS) 1 11 1 1 1 1 11 1 1 1 11 11 1 1 601: 002RLAC,00000,^'02G0970TBOOL^00?T,-)006,,^'03G0971^DCW^^00BIOCS)002SAVE,00000,^'03F0972TEQU^^00BIOCS 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 701: )002WORK,)02A,^'03F0973^DCW^^00BIOCS)002RCLN,)005,^'02G0974SBOOL^00?R,-)055,,^'02?0975^EJECT00B,,^'0 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 11 11 801: 2?0976^MEND^00B,,^'03F0977RBOOL^00?Q,#108,,^TEST^1405^'05A0978^^^^^^00C*,1405^FILE^SCHEDULER,^1405^I 1 1 11 11 1 1 1 11 11 1 1 1 1 901: OCS,^'06?0979^BOOL^00?R,-)006*-)021,,^NOT^XREG^AND^NOT^WORK^AREA^' 1 11 1 1 1 11 1 1: 096G05D0980^NOTE^00ADTF^WITHOUT^INDEX^REG.^OR^WORK^AREA,^'06?0981^^^^^^00B*****,DTF^WITHOUT^INDEX^RE 1 1 1 1 1 11 1 1 1 101: G.^OR^WORK^AREA,^'06G0982^^^^^^00B*****,1405^IOCS^REQUIRES^INDEX^REG.^OR^WORK^AREA,^'04G0983RBOOL^00 1 11 1 1 1 1 11 1 1 201: ?R,)010*-)011,,^INPUT*NOT^SEQ.^'04C0984^^^^^^00B*,RANDOM^1405^INPUT^FILE,^'03B0985^EQU^^00BIOCS)002T 1 11 11 1 1 1 1 11 1 1 301: BL,*,^'04A0986RBOOL^00?R,)010*)011,,^INPUT*SEQ^'04G0987^^^^^^00B*,SEQUENTIAL^1405^INPUT^FILE,^'04F09 1 1 11 1 1 1 11 11 1 1 1 1 11 1 401: 88^SBR^^00BIOCS)002EMTY,IOCS)002EXIT&5,^'03G0989RBOOL^00?R,-)010,,^NOT^INPUT^'03G0990^^^^^^00B*,1405 1 1 1 11 1 1 1 11 11 1 1 1 501: ^OUTPUT^FILE,^'04F0991^SBR^^00BIOCS)002FULL,IOCS)002EXIT&5,^'04I0992RBOOL^00?R,-)010&)011,,^NOT^INPU 1 11 1 1 1 1 11 1 1 1 11 601: T^OR^SEQ^'04?0993^ZA^^^00C,IOCS)002NAME,IOCSXFD,^'03H0994RBOOL^00?R,-)010*-)011*)101,,^'02H0995^BXPA 11 1 1 1 1 1 11 1 1 1 11 11 1 701: ^00B,IOCSCONV,^'02F0996^DCW^^00B,@PUT^@,^'03B0997RBOOL^00?R,-)010&)011,,^'04?0998^ZA^^^00C,IOCS)002C 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: UAR,IOCSXAL,^'06C0999RBOOL^00?R,)011*-)010*)007*-)008,,^OUT^SEQ^SINGLE^VAR.^'04E1000^S^^^^00C,IOCS)0 1 1 11 1 1 1 11 11 1 1 1 901: 02SVRL,IOCS)002RLAC,^'04E1001^ZA^^^00C,IOCS)002RLAC,IOCSALFILD&3,^' 1 1 11 1 1 1 1 1 1 1: 099G03H1002RBOOL^00?R,-)010*-)011*)101,,^'04E1003^MLCS^00C,IOCSCONV10-1,IOCSALDKIN-2,^'04E1004RBOOL^ 1 1 1 1 1 11 11 1 1 1 1 1 11 1 101: 00?R,-)010*-)011,,^OUT^NOT^SEQ^'05A1005^MLCB^00CIOCS)002SDA,IOCSDSKAD,IOCSALDKAD,^'02C1006^MLCB^00B, 1 1 11 11 1 1 1 1 1 11 1 1 1 201: @9@,^'03G1007RBOOL^00?R,-)010,,^NOT^INPUT^'03D1008^ZA^^^00C,@B@,IOCSALAVLY,^'04A1009RBOOL^00?R,)011* 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 301: )010,,^SEQ*INPUT^'04?1010^MLCA^00C,IOCSALDKAD,IOCSDSKAD,^'02C1011^MLCA^00B,@0@,^'04B1012^ZA^^^00BIOC 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: S)002BYPS,IOCSALAVLY,^'03B1013RBOOL^00?R,-)010&)011,,^'03?1014^BXPA^00B,IOCSRELARM,^'03A1015RBOOL^00 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: ?R,)010*)011,,^'05I1016^BBE^^00DIOCS)002NEXT,IOCS)002ADDR,IOCS)002SRAV,8,^'04D1017^C^^^^00C,IOCS)002 1 11 11 1 1 1 1 1 1 11 1 1 1 601: END,IOCS)002SRDA,^'03A1018^BE^^^00B,IOCS)002EOF,^'04E1019^A^^^^00C,IOCS)002INCR,IOCS)002SRDA,^'03?10 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: 20^BXPA^00B,IOCSPIKSEQ,^'03B1021^B^^^^00B,IOCS)002NEXT,^'05C1022^C^^^^00CIOCS)002EOF,IOCSDSKAD,IOCS) 1 1 1 11 1 1 1 1 11 1 1 1 1 801: 002SRDA,^'02D1023^BE^^^00B,)024,^'05D1024^A^^^^00CIOCS)002ADDR,IOCS)002INCR,IOCSDSKAD,^'03B1025RBOOL 1 11 1 1 1 1 11 1 1 1 1 1 11 1 901: ^00?R,-)010&)011,,^'05?1026^ZA^^^00CIOCS)002LOOK,IOCS)002AL,IOCSXAL,^'02G1027RBOOL^00?R,-)010,,^' 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 1: 098E05E1028^BCE^^00DIOCS)002TEST,IOCS)002AV,IOCSALAVLY,A,^'03B1029RBOOL^00?R,)010*)011,,,^'05F1030^C 1 1 1 1 1 1 1 1 11 1 1 1 111 11 1 101: ^^^^00CIOCS)002TEST,IOCSDSKAD-1,IOCSALDKAD-1,^'03?1031^BE^^^00B,IOCS)002AV,^'03B1032RBOOL^00?R,-)010 1 1 1 1 11 1 1 1 1 11 1 1 1 201: &)011,,^'04?1033^A^^^^00C,IOCS)002ALLG,IOCSXAL,^'04D1034^BCE^^00D,IOCS)002LOOK,0&IOCSXAL,",^'03B1035 11 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 301: ^B^^^^00B,IOCS)002TEST,^'05?1036^ZA^^^00CIOCS)002AV,IOCSXAL,IOCS)002CUAR,^'03B1037RBOOL^00?R,)010*)0 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 11,,,^'04E1038^BCE^^00D,IOCS)002BYPS,IOCSALAVLY,/,^'03G1039^BBE^^00D,*-23,IOCSALAVLY,<,^'03B1040RBOO 111 11 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 501: L^00?R,-)010*)011,,^'04H1041^C^^^^00C,IOCS)002END-1,IOCS)002SRDA-1,^'03E1042^BE^^^00BIOCS)002EOF,)02 1 1 11 11 1 1 1 1 1 11 1 1 1 601: 4,^'04E1043^A^^^^00C,IOCS)002INCR,IOCS)002SRDA,^'03D1044^MLCA^00C,@0@,IOCSALDKAD,^'03D1045^MLCA^00B, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: IOCS)002SRDA-1,^'02C1046^MLCA^00B,@9@,^'02H1047RBOOL^00?R,-)004,,,^'04C1048^MATH^00?#010,00800*)027- 1 11 1 1 1 1 11 1 1 1 111 11 1 1 11 801: 00600,,,,^'02G1049RBOOL^00?R,)004,,,^'04C1050^MATH^00?#010,00704*)027-00528,,,,^'02G1051RBOOL^00?R,) 1 1111 11 1 1 1 111 11 1 1 11 1 1111 11 1 1 1 901: 011,,,^'04?1052^A^^^^00C,IOCS)002FILD,IOCSXAL,^'03G1053RBOOL^00?R,)007*)011*)008,,,^' 111 11 1 1 1 1 1 11 1 1 1 111 1 1: 098A04?1054^ZA^^^00C,IOCSXAL,IOCS)002ENDD,^'03F1055^MATH^00?#010,#010/)005,,,,^'03F1056^MATH^00?#010 1 1 1 1 1 1 1 11 1 1 1 1111 11 1 1 101: ,#010*)005,,,,^'03G1057^MATH^00?#010,#010-00001,,,,^'03H1058^A^^^^00C, ,IOCS)002ENDD,^'04D1059RB 1 1111 11 1 1 1 1 1111 11 1 1 1 1 1 11 1 201: OOL^00?R,)007*)011*-)008*-)010,,,^'04E1060^ZA^^^00C,IOCS)002SVRL,IOCS)002RLAC,^'04C1061RBOOL^00?R,)0 1 1 111 11 1 1 1 1 1 11 1 1 1 301: 07*)011*-)008*)010,,,^'04?1062^ZA^^^00C,IOCSXAL,IOCS)002ENDD,^'04F1063^A^^^^00C,99999&IOCSXAL,IOCS)0 111 11 1 1 1 1 1 11 1 1 1 1 401: 02ENDD,^'03E1064^S^^^^00C,&1,IOCS)002ENDD,^'03D1065RBOOL^00?R,-)010*-)011,,,^'03I1066^A^^^^00C,&IOCS 1 11 1 1 1 1 1 11 1 1 1 111 11 1 1 1 501: ALFILD,IOCSXAL,^'03C1067RBOOL^00?R,)011&-)010,,,^'04?1068^ZA^^^00C,IOCSXAL,IOCS)002SAVE,^'03C1069^B^ 1 1 11 1 1 1 111 11 1 1 1 1 1 11 1 601: ^^^00BIOCS)002EXIT,0,^'02E1070REQU^^00B)049,*,^'03F1071^EQU^^00BIOCS)002SAVE,)00F,^'03B1072^DCW^^00B 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: ,IOCS)002SAVE,^'03G1073^DCW^^00BIOCS)002CUAR,00000,^'04E1074^BOOL^00AR,@)011*)007*-)008@&-)005,,^'03 1 1 11 1 1 1 1 11 1 1 1 11 11 801: G1075^DCW^^00BIOCS)002SVRL,00000,^'04E1076RBOOL^00AR,)005*@)008&-)007&-)011@,,^'03A1077^MATH^00?#010 1 1 1 1 11 1 1 1 11 11 1 1 901: ,)005,,,,^'03F1078^DCW^^00BIOCS)002RCLN,#010,^'03D1079RDCW^^00BIOCS)002AL,)022,^' 1 1111 11 1 1 1 1 11 1 1 1 1 1 1: 097?03B1080^BOOL^00?R,)010*-)011,,^'02A1081^DCW^^00B,6,^'03C1082RBOOL^00?R,-)010*-)011,,^'02A1083^DC 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: W^^00B,7,^'03A1084RBOOL^00?R,)010*)011,,^'02A1085^DCW^^00B,8,^'03B1086RBOOL^00?R,-)010*)011,,^'02A10 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: 87^DCW^^00B,9,^'03C1088RDCW^^00B,)05H,^NRECORDS^'02F1089^BOOL^00?R,-)058,^'02A1090^DCW^^00B,9,^'03G1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 091RMATH^00?#010,)027*00004,,,,^'03G1092^MATH^00?#010,#010-00003,,,,^'02G1093^BOOL^00?R,-)004,,^'03G 1 1 1 1111 11 1 1 1 1 1111 11 1 1 1 11 11 401: 1094^MATH^00?#010,#010*00200,,,,^'02E1095RBOOL^00?R,)004,^'03G1096^MATH^00?#010,#010*00176,,,,^'03G1 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 1111 11 1 501: 097RMATH^00?#010,#010&00027,,,,^'03F1098^DCW^^00BIOCS)002ALLG,#010,^'03H1099^DCW^^00BIOCS)002RLAC,&0 1 1 1 1111 11 1 1 1 1 11 1 1 1 601: 0000,^'02B1100^DCW^^00B,&0,^'02A1101^DCW^^00B,9,^'02G1102^BOOL^00?R,-)004,,^'02C1103^DCW^^00B,@M@,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: 02F1104RBOOL^00?R,)004,,^'02C1105^DCW^^00B,@L@,^'02H1106RDC^^^00B,@@F)027@,^'03E1107^DCW^^00BIOCS)00 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: 2SRAV,@A@,^'03I1108^BOOL^00?R,-)010&-)011&-)139,,^'03G1109^DCW^^00BIOCS)002NAME,&)049,^'03F1110RBOOL 1 1 11 1 1 1 11 11 1 1 1 1 11 1 901: ^00?R,)010*)011*)139,,^'02E1111^DCW^^00B,&)049,^'02A1112RDCW^^00B,9,^' 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 098D03I1113^DCW^^00BIOCS)002SRDA,0000000,^'02C1114^DCW^^00B,@"@,^'02F1115^BOOL^00?R,)011,,^'03F1116^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 101: DCW^^00BIOCS)002STRT,)034,^'03E1117^DCW^^00BIOCS)002END,)036,^'04B1118^MATH^00?#010,)027*00040-00030 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: ,,,^'03F1119^DCW^^00BIOCS)002INCR,#010,^'03H1120^DCW^^00BIOCS)002ENDD,&00000,^'03F1121RBOOL^00?R,)01 111 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 1*)010*)007,,^'02G1122^DCW^^00B,@^^^^^@,^'02H1123RBOOL^00?R,-)004,,,^'04C1124^MATH^00?#010,00800*)02 11 11 1 1 1 1 11 1 1 1 111 11 1 1 11 401: 7-00600,,,,^'02G1125RBOOL^00?R,)004,,,^'04C1126^MATH^00?#010,00704*)027-00528,,,,^'04B1127RBOOL^00?R 1 1111 11 1 1 1 111 11 1 1 11 1 1111 11 1 1 501: ,)011*-)010*)007*)008,,^'03F1128^MATH^00?#010,#010/)005,,,,^'03F1129^MATH^00?#010,#010*)005,,,,^'03G 1 11 11 1 1 1 1111 11 1 1 1 1111 11 601: 1130^MATH^00?#010,#010&00025,,,,^'02I1131^DCW^^00B,)022 ,^'04C1132RBOOL^00?R,)011*-)010*)007*-)0 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 701: 08,,^'03G1133^MATH^00?#010,#010-00004,,,,^'02D1134^DCW^^00B,#010,^'04G1135RBOOL^00?R,)011*-)007,^SEQ 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 801: *NOT^BLOCKED^'02E1136^DCW^^00B,00000,^'04?1137RBOOL^00AR,)011*-@)007*-)008@,,^'03D1138^DCW^^00BIOCS) 11 1 1 1 1 11 1 1 1 11 11 1 1 901: 002FILD,26,^'03G1139RBOOL^00?R,)011*)007*-)008,,^'03D1140^DCW^^00BIOCS)002FILD,30,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097D03F1141RBOOL^00?R,)010*)011*)139,,^'02D1142^DCW^^00B,*-14,^'03G1143^DCW^^00BIOCS)002NAME,&)049,^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 101: '03H1144RBOOL^00?R,)011*-)010*-)007,,^'04A1145^B^^^^00BIOCS)002PAD,IOCSEXITRU,^'03G1146RBOOL^00?R,)0 11 1 1 1 11 11 1 1 1 1 11 1 1 1 201: 07*-)010*)011,,^'05A1147^ZA^^^00CIOCS)002PAD,IOCS)002CUAR,IOCSXAL,^'04B1148RBOOL^00?R,)007*-)010*)01 11 11 1 1 1 1 1 11 1 1 1 301: 1*)008,,^'05B1149^ZA^^^00CIOCS)002PAD2,IOCS)002SAVE,IOCSXRL,^'04?1150^S^^^^00C,IOCS)002FILD,IOCSXRL, 11 11 1 1 1 1 1 11 1 1 1 1 1 401: ^'04?1151^C^^^^00C,IOCS)002CUAR,IOCSXRL,^'03?1152^BE^^^00B,IOCSEXITRU,^'04E1153^MLCS^00C,@'@,IOCSALG 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: M&)005&IOCSXRL,^'02G1154^SBR^^00B,IOCSXRL,^'02G1155^BOOL^00?S,-)051,,^'04E1156^MLCS^00CIOCS)002PAD3, 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: @^@,0&IOCSXRL,^'04H1157SMLCS^00CIOCS)002PAD3,@)05A@,0&IOCSXRL,^'02G1158^SBR^^00B,IOCSXRL,^'04?1159^C 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: ^^^^00C,IOCS)002SAVE,IOCSXRL,^'02C1160^BL^^^00B,*&8,^'03B1161^B^^^^00B,IOCS)002PAD3,^'04E1162^A^^^^0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 801: 0C,IOCS)002RCLN,IOCS)002SAVE,^'04E1163^C^^^^00C,IOCS)002SAVE,IOCS)002ENDD,^'02C1164^BL^^^00B,*&8,^'0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 901: 3B1165^B^^^^00B,IOCS)002PAD2,^'04C1166RBOOL^00?R,)007*-)010*)011*-)008,,^' 1 1 1 1 11 1 1 1 11 1 1: 099I04E1167^ZA^^^00C,IOCS)002RLAC,IOCSALFILD&3,^'03?1168^BZ^^^00B,IOCSEXITRU,^'03G1169RBOOL^00?R,)00 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 7*-)010*)011,,^'03D1170^ZA^^^00C,@B@,IOCSALAVLY,^'03?1171^B^^^^00B,IOCSRELPAD,^'03B1172RBOOL^00?R,)0 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 11*-)010,,^'02?1173^H^^^^00B,,^'02G1174RBOOL^00?R,-)006,,^'03G1175^DCW^^00BIOCS)002SAVE,00000,^'03F1 11 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 301: 176REQU^^00BIOCS)002WORK,)02A,^'02G1177^BOOL^00?Q,-)055,,^'02?1178^EJECT00B,,^'02?1179^MEND^00B,,^'0 1 1 1 11 1 1 1 11 11 1 1 11 11 1 1 11 11 401: 4C1180QCOMP^00F,)00A,2,,)189,,^TEST^1414^'02F1181^BOOL^00?P,)189,,^'02F1182^BOOL^00?P,)063,,^'05A118 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 11 11 1 501: 3^COMP^00F,)05F,2,,)199,,^CHECK^FOR^CHANNEL^'03C1184^COMP^00F,)05F,1,,)198,,^'03C1185^BOOL^00?Q,-)19 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 601: 8*-)199,,^'03B1186^NOTE^00A100.XTF...EMD,^'05?1187^EMD..00B***100.XTF,NO^CHANNEL^SPECIFIED,^'02G1188 11 11 1 1 1 11 1 1 1 1 11 1 701: ^BOOL^00?P,-)063,,^'02G1189QBOOL^00?Q,-#128,,^'02I1190^BOOL^00?,)063,#128,^'03H1191^SW^^^00BIOCSLEVR 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 801: CL,IOCSLEV2,^'02H1192^B^^^^00B,IOCSLEV3,^'03H1193^CW^^^00BIOCSLEVROP,IOCSLEV2,^'04F1194^BCE^^00DIOCS 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: LEV3,IOCSLEV4,IOCSLAB,2,^'03E1195^MLCS^00C,IOCSSSS,IOCSLAB,^'03H1196^MLCA^00C,IOCSLCL,IOCSLEV5&5,^' 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 096H03G1197^BW^^^00C,IOCSLEV6,IOCSLEV2,^'02H1198^B^^^^00B,IOCSLEV5,^'03E1199^SW^^^00BIOCSLEV6,IOCSXY 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: Z,^'02I1200^B^^^^00BIOCSLEV5,0,^'04C1201^MLCS^00CIOCSLEV4,IOCSSSS,IOCSLAB,^'03I1202^MLCA^00C,IOCSLCL 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: 2,IOCSLEV7&5,^'03G1203^BW^^^00C,IOCSLEV8,IOCSLEV2,^'02H1204^B^^^^00B,IOCSLEV7,^'03F1205^SW^^^00BIOCS 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 301: LEV8,IOCSXYZ2,^'02I1206^B^^^^00BIOCSLEV7,0,^'02?1207^NOP^^00B,,^'06B1208^DC^^^00B^IOCS80BCH,@^^^^^^^ 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 401: ^^^^^^^^^^^^^^^^^^^^^^^@,^'05B1209^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'04B1210^DC^^^00B,@^^^ 1 11 1 1 1 1 11 1 1 1 501: ^^^^^^^^^^^^^^^^^@,^'02C1211^DCW^^00B,@"@,^'06A1212^DC^^^00B^IOCSENDR,@##^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1 1 1 1 11 1 1 1 601: ^@,^'05B1213^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'04B1214^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^@,^'0 1 11 1 1 1 1 11 1 1 1 1 11 701: 2C1215^DCW^^00B,@"@,^'03F1216^DCW^^00BIOCS5BLNK,@^^^^^@,^'03D1217^DA^^^00CIOCSGARB,1X80,G,^'03?1218^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: DCW^^00BIOCSLAB,@^@,^'03?1219^DCW^^00BIOCSSSS,@^@,^'03A1220^DC^^^00BIOCSLEV2,@^@,^'02?1221^NOP^^00B, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ,^'03?1222^DC^^^00BIOCSXYZ,@^@,^'03E1223^DC^^^00BIOCSWTSW,@^^^^^@,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 098B03F1224^DCW^^00BIOCSWTCHN,@^^^^^@,^'03D1225^DCW^^00BIOCSLCL,@^^^^^@,^'03E1226^DCW^^00BIOCSLINF,@ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: ^^^^^@,^'03E1227^DCW^^00BIOCSLWMA,@^^^^^@,^'03B1228^DCW^^00BIOCSERIN1,@^@,^'03C1229^DCW^^00BIOCSEROU 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: T1,@^@,^'03?1230^DCW^^00BIOCSWT1,@^@,^'03A1231^DC^^^00BIOCSXYZ2,@^@,^'03F1232^DC^^^00BIOCSWTSW2,@^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: ^^@,^'03G1233^DCW^^00BIOCSWTCHN2,@^^^^^@,^'03E1234^DCW^^00BIOCSLCL2,@^^^^^@,^'03F1235^DCW^^00BIOCSLI 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: NF2,@^^^^^@,^'03F1236^DCW^^00BIOCSLWMA2,@^^^^^@,^'03B1237^DCW^^00BIOCSERIN2,@^@,^'03C1238^DCW^^00BIO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: CSEROUT2,@^@,^'03A1239^DCW^^00BIOCS2WT1,@^@,^'02F1240QBOOL^00?Q,)198,,^'02G1241^BOOL^00?R,-#114,,^'0 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 601: 2I1242^BOOL^00?,)063,#114,^'03B1243^MATH^00?#080,00000,,,,^'03B1244^MATH^00?#075,00000,,,,^'03B1245^ 1 1 1 1 1 11 1 1 11 1111 11 1 1 11 1111 11 1 701: MATH^00?#070,01000,,,,^'03G1246^ORG^^00BIOCSTBL1,IOCSCS1E2,^'03?1247^BXPA^00B,IOCSX00000,^'02H1248^O 1 11 1111 11 1 1 1 1 11 1 1 1 1 11 1 801: RG^^00B,IOCSTBL1,^'03G1249^ORG^^00BIOCSTBL2,IOCSCS1E3,^'03?1250^BXPA^00B,IOCSW00000,^'02H1251^ORG^^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: 0B,IOCSTBL2,^'03I1252^ORG^^00BIOCSTBL7,IOCSCS1S1&1,^'02I1253^DC^^^00B,IOCSELIST,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097D02H1254^ORG^^00B,IOCSTBL7,^'04A1255^EQU^^00BIOCSCS1LRT,IOCSCS1E3&7,^'03?1256^DC^^^00BIOCSINT,@^@ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: ,^'03G1257^B^^^^00BIOCSPEND,IOCSX#070,^'04F1258^BW^^^00CIOCSELIST,IOCSWT,IOCSWTSW-4,^'02G1259^B^^^^0 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 201: 0B,IOCSWT2,^'03H1260^MLCA^00CIOCSWT,IOCSWTSW,*&6,^'02F1261^MLCS^00C,0,*&12,^'03H1262^BCE^^00D,IOCSCW 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: S,@AFEDBC@,X,^'02G1263^BCE^^00B,IOCSBWS,^'02G1264^BCE^^00B,IOCSDWS,^'02G1265^BCE^^00B,IOCSEWS,^'02G1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 266^BCE^^00B,IOCSFWS,^'02G1267^BCE^^00B,IOCSAWS,^'03F1268^CW^^^00BIOCSWT2,IOCSCS1S1,^'03A1269^B^^^^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: 0B,IOCSCS1S1&7,^'02?1270^NOP^^00B,,^'02G1271^BOOL^00?R,-)198,,^'02G1272QBOOL^00?R,-#121,,^'02I1273^B 1 1 11 1 1 11 11 1 1 1 11 11 1 1 1 11 11 1 601: OOL^00?,)063,#121,^'03B1274^MATH^00?#055,02000,,,,^'03B1275^MATH^00?#065,03000,,,,^'03B1276^MATH^00? 1 1 1 1 11 1 1 11 1111 11 1 1 11 1111 11 1 1 701: #060,04000,,,,^'03G1277^ORG^^00BIOCSTBL3,IOCSCS2E2,^'03?1278^BXPA^00B,IOCSX04000,^'02H1279^ORG^^00B, 11 1111 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: IOCSTBL3,^'03G1280^ORG^^00BIOCSTBL4,IOCSCS2E3,^'03?1281^BXPA^00B,IOCSW03000,^'02H1282^ORG^^00B,IOCST 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: BL4,^'03I1283^ORG^^00BIOCSTBL8,IOCSCS2S1&1,^'02I1284^DC^^^00B,IOCSFLIST,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 097E02H1285^ORG^^00B,IOCSTBL8,^'04A1286^EQU^^00BIOCSCS2LRT,IOCSCS2E3&7,^'03A1287^DC^^^00BIOCSINT2,@^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: @,^'03H1288^B^^^^00BIOCSPEND2,IOCSX#055,^'04H1289^BW^^^00CIOCSFLIST,IOCS2WT,IOCSWTSW2-4,^'02H1290^B^ 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: ^^^00B,IOCS2WT2,^'04?1291^MLCA^00CIOCS2WT,IOCSWTSW2,*&6,^'02F1292^MLCS^00C,0,*&12,^'03I1293^BCE^^00D 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: ,IOCS2CWS,@AFEDBC@,X,^'02H1294^BCE^^00B,IOCS2BWS,^'02H1295^BCE^^00B,IOCS2DWS,^'02H1296^BCE^^00B,IOCS 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 2EWS,^'02H1297^BCE^^00B,IOCS2FWS,^'02H1298^BCE^^00B,IOCS2AWS,^'03G1299^CW^^^00BIOCS2WT2,IOCSCS2S1,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 501: 03A1300^B^^^^00B,IOCSCS2S1&7,^'02?1301^NOP^^00B,,^'02F1302RBOOL^00?Q,)010,,^'04A1303^BOOL^00?R,)061, 1 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 1 1 601: ,^CHECK^FOR^1014^'03E1304^COMP^00F,)05G,Q0R,,)196,,^'03E1305^COMP^00F,)05G,Q1R,,)197,,^'03C1306^BOOL 1 11 1 1 1 1 11 11 11 1 1 1 1 11 11 11 1 701: ^00?S,-)196*-)197,,^'03B1307^NOTE^00A101.XTF...EMD,^'05?1308^EMD..00B***101.XTF,ADAPTER^MISSING^1014 1 1 11 11 1 1 1 11 1 1 1 801: ,^'02G1309^BOOL^00?P,-)063,,^'04?1310RBOOL^00?R,)062,,^CHECK^FOR^TTY^'03E1311^COMP^00F,)05G,L0R,,)19 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 901: 5,,^'03E1312^COMP^00F,)05G,L1R,,)194,,^'03E1313^COMP^00F,)05G,L2R,,)193,,^' 11 11 1 1 1 1 11 11 11 1 1 1 1 11 11 1 1: 099G03I1314^BOOL^00?S,-)195*-)194*-)193,,^'03B1315^NOTE^00A102.XTF...EMD,^'04I1316^EMD..00B***102.XT 1 1 1 1 1 11 11 1 1 1 11 1 1 101: F,ADAPTER^MISSING^TTY,^'02G1317^BOOL^00?P,-)063,,^'04B1318RBOOL^00?S,-)060,,^CHECK^FOR^1011^'04B1319 1 1 11 1 1 1 11 11 1 1 1 11 11 1 201: ^BOOL^00?S,-)059,,^CHECK^FOR^1009^'03B1320^NOTE^00A103.XTF...EMD,^'05D1321^EMD..00B***103.XTF,NO^ADA 1 1 11 11 1 1 1 11 1 1 1 301: PTER^WAS^SPECIFIED,^'02G1322^BOOL^00?P,-)063,,^'04F1323SBOOL^00?R,-)040,,^CHECK^FOR^PROCADDR^'03B132 1 11 1 1 1 11 11 1 1 1 11 11 1 401: 4^NOTE^00A104.XTF...EMD,^'05A1325^EMD..00B***104.XTF,NO^PROCADDR^SPECIFIED,^'02G1326^BOOL^00?P,-)063 1 1 11 1 1 1 1 11 1 1 1 501: ,,^'04E1327RBOOL^00?R,-)042,,^CHECK^FOR^ERRADDR^'03B1328^NOTE^00A105.XTF...EMD,^'05?1329^EMD..00B**& 11 11 1 1 1 11 11 1 1 1 11 1 1 601: 105.XTF,NO^ERRADDR^SPECIFIED,^'02G1330^BOOL^00?P,-)063,,^'04H1331RBOOL^00?R,-)022,,^CHECK^FOR^INPUT^ 1 1 11 1 1 1 11 11 1 1 1 11 701: AREA^'03B1332^NOTE^00A106.XTF...EMD,^'05D1333^EMD..00B***106.XTF,NO^INPUT^AREAS^SPECIFIED,^'02G1334^ 11 1 1 1 11 1 1 1 1 11 1 801: BOOL^00?P,-)063,,^'04G1335RBOOL^00?R,)198,,^BRANCH^FOR^CHANNEL^2^'04C1336^BOOL^00?S,-)059,,^BRANCH^I 1 1 11 11 1 1 1 11 11 1 1 1 11 901: F^^1009^'02F1337^BOOL^00?T,)060,,^'03I1338^ORG^^00BIOCSTBL5,IOCSCS1E2-1,^'02C1339^DC^^^00B,@N@,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 099G02H1340^ORG^^00B,IOCSTBL5,^'02F1341TBOOL^00?T,)196,,^'03G1342^NRQO^00CIOCSX#080,10,00000,^'03E13 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 101: 43TBOOL^00?T,)197,,^1014^Q1R^'03F1344^NRQO^00CIOCSX#080,11,0000,^'03D1345TBOOL^00?T,)195,,^TTY^L0R^' 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 201: 03G1346^NRLO^00CIOCSX#080,10,00000,^'03D1347TBOOL^00?T,)194,,^TTY^L1R^'03G1348^NRLO^00CIOCSX#080,11, 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: 00000,^'03D1349TBOOL^00?T,)193,,^TTY^L2R^'03G1350^NRLO^00CIOCSX#080,12,00000,^'03A1351TBOOL^00?T,)06 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 401: 0,,^1011^'03F1352^NRPTO00CIOCSX#080,1,00000,^'05B1353TMATH^00?#080,#080&00001,,,,^STEP^FOR^CHAIN^'02 11 11 1 1 1 1 1 11 1 1 1 1 1111 11 501: I1354^BA1^^00B,IOCSX#080,^'07F1355^BCE^^00DIOCS)002FS,IOCS)002GARB,IOCS)002OPSW,0,^CHECK^IF^FILE^OPE 1 1 1 1 11 1 1 1 1 1 1 601: N^'02F1356^BOOL^00?T,)011,,^'04B1357^BW^^^00C,IOCS)002FUL,IOCS)002A1,^'03B1358^B^^^^00B,IOCS)002ARSW 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 701: ,^'05D1359^BW^^^00CIOCS)002FUL,IOCS)002GARB,IOCS)002A2,^'03B1360^NOP^^00BIOCS)002ARSW,,^'03A1361^B^^ 1 11 1 1 1 1 1 11 1 1 11 11 1 801: ^^00B,IOCS)002AR1,^'04E1362^SW^^^00BIOCS)002AR2,IOCS)002ARSW&1,^'03E1363^BOOL^00?U,)196,,^1014^Q0R^' 1 1 1 11 1 1 1 1 11 1 1 1 11 1 901: 02G1364^RQO^^00C,10,)023,^'03B1365^BA1^^00B,IOCS)002ERR1,^'03H1366^NRQO^00CIOCS)002IOQ,10,)023,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 099H03E1367UBOOL^00?U,)197,,^1014^Q1R^'02G1368^RQO^^00C,11,)023,^'03B1369^BA1^^00B,IOCS)002ERR1,^'03 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 101: H1370^NRQO^00CIOCS)002IOQ,11,)023,^'03D1371UBOOL^00?U,)195,,^TTY^L0R^'02G1372^RLO^^00C,10,)023,^'03B 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 201: 1373^BA1^^00B,IOCS)002ERR1,^'03H1374^NRLO^00CIOCS)002IOQ,10,)023,^'03D1375UBOOL^00?U,)194,,^TTY^L1R^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 301: '02G1376^RLO^^00C,11,)023,^'03B1377^BA1^^00B,IOCS)002ERR1,^'03H1378^NRLO^00CIOCS)002IOQ,11,)023,^'03 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 401: D1379UBOOL^00?U,)193,,^TTY^L2R^'02G1380^RLO^^00C,12,)023,^'03B1381^BA1^^00B,IOCS)002ERR1,^'03H1382^N 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 501: RLO^00CIOCS)002IOQ,12,)023,^'03A1383UBOOL^00?U,)060,,^1011^'02F1384^RPTO^00C,1,)023,^'03B1385^BA1^^0 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 601: 0B,IOCS)002ERR1,^'03G1386^NRPTO00CIOCS)002IOQ,1,)023,^'03B1387UBA1^^00B,IOCS)002ERR2,^'04A1388^SW^^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: 00BIOCS)002CAT,IOCS)002A2,^'03A1389^B^^^^00B,IOCS)002RTT,^'04E1390^CW^^^00BIOCS)002AR1,IOCS)002ARSW& 1 1 1 11 1 1 1 1 11 1 1 1 801: 1,^'03E1391^BOOL^00?U,)196,,^1014^Q0R^'02G1392^RQO^^00C,10,)022,^'03B1393^BA1^^00B,IOCS)002ERR3,^'03 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 901: H1394^NRQO^00CIOCS)002ION,10,)022,^'03E1395UBOOL^00?U,)197,,^1014^Q1R^'02G1396^RQO^^00C,11,)022,^' 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 099D03B1397^BA1^^00B,IOCS)002ERR3,^'03H1398^NRQO^00CIOCS)002ION,11,)022,^'03D1399UBOOL^00?U,)195,,^T 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 101: TY^L0R^'02G1400^RLO^^00C,10,)022,^'03B1401^BA1^^00B,IOCS)002ERR3,^'03H1402^NRLO^00CIOCS)002ION,10,)0 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: 22,^'03D1403UBOOL^00?U,)194,,^TTY^L1R^'02G1404^RLO^^00C,11,)022,^'03B1405^BA1^^00B,IOCS)002ERR3,^'03 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 301: H1406^NRLO^00CIOCS)002ION,11,)022,^'03D1407UBOOL^00?U,)193,,^TTY^L2R^'02G1408^RLO^^00C,12,)022,^'03B 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 1409^BA1^^00B,IOCS)002ERR3,^'03H1410^NRLO^00CIOCS)002ION,12,)022,^'03A1411UBOOL^00?U,)060,,^1011^'02 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 501: F1412^RPTO^00C,1,)022,^'03B1413^BA1^^00B,IOCS)002ERR3,^'03G1414^NRPTO00CIOCS)002ION,1,)022,^'03B1415 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 601: UBA1^^00B,IOCS)002ERR4,^'04A1416^SW^^^00BIOCS)002IOP,IOCS)002A1,^'04I1417^BW^^^00CIOCS)002RTT,IOCSCS 1 1 1 11 1 1 1 1 11 1 1 1 701: 1ENT,IOCSINT,^'04F1418^BW^^^00C,IOCS)002RT2,IOCS)002ARSW&1,^'05H1419^MLCB^00CIOCS)002RT3,&)022,)006, 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: ^SETUP^FOR^AREA^1^'03C1420^MLCA^00C,)006,IOCSLINF,^'02G1421^SW^^^00B,IOCSINT,^'04?1422^MLCB^00C,&IOC 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: S)002A1,IOCSLWMA,^'03F1423^MLCS^00C,@2@,IOCS)002NEXT,^'03I1424^MLCB^00C,&IOCS)002CL,IOCSLCL,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 099C03E1425^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1426^MLCS^00C,@1@,IOCSLAB,^'04E1427^BCE^^00D,IOCS)002EPA1, 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: IOCS)002A1,0,^'04?1428^MLCS^00C,IOCS)002A1,IOCSERIN1,^'02D1429^BEPA^00B,)042,^'03F1430^BEPA^00BIOCS) 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: 002EPA1,)040,^'05H1431^MLCB^00CIOCS)002RT2,&)023,)006,^SETUP^FOR^AREA^2^'03C1432^MLCA^00C,)006,IOCSL 1 1 11 1 1 1 1 1 11 1 1 1 1 301: INF,^'02G1433^SW^^^00B,IOCSINT,^'04?1434^MLCB^00C,&IOCS)002A2,IOCSLWMA,^'03F1435^MLCS^00C,@1@,IOCS)0 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: 02NEXT,^'03I1436^MLCB^00C,&IOCS)002CL,IOCSLCL,^'03E1437^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1438^MLCS^00C, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: @1@,IOCSLAB,^'04E1439^BCE^^00D,IOCS)002EPA2,IOCS)002A2,0,^'04?1440^MLCS^00C,IOCS)002A2,IOCSERIN1,^'0 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 601: 2D1441^BEPA^00B,)042,^'03F1442^BEPA^00BIOCS)002EPA2,)040,^'02G1443TBOOL^00?T,-)011,,^'04C1444^BW^^^0 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 701: 0C,IOCS)002GARB,IOCS)002A1,^'03E1445^BOOL^00?U,)196,,^1014^Q0R^'02G1446^RQO^^00C,10,)022,^'03B1447^B 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 801: A1^^00B,IOCS)002ERR3,^'03H1448^NRQO^00CIOCS)002ION,10,)022,^'03E1449UBOOL^00?U,)197,,^1014^Q1R^'02G1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 901: 450^RQO^^00C,11,)022,^'03B1451^BA1^^00B,IOCS)002ERR3,^'03H1452^NRQO^00CIOCS)002ION,11,)022,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 099?03D1453UBOOL^00?U,)195,,^TTY^L0R^'02G1454^RLO^^00C,10,)022,^'03B1455^BA1^^00B,IOCS)002ERR3,^'03H 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 101: 1456^NRLO^00CIOCS)002ION,10,)022,^'03D1457UBOOL^00?U,)194,,^TTY^L1R^'02G1458^RLO^^00C,11,)022,^'03B1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 201: 459^BA1^^00B,IOCS)002ERR3,^'03H1460^NRLO^00CIOCS)002ION,11,)022,^'03D1461UBOOL^00?U,)193,,^TTY^L2R^' 1 1 1 11 1 1 1 1 1 11 1 1 1 11 1 301: 02G1462^RLO^^00C,12,)022,^'03B1463^BA1^^00B,IOCS)002ERR3,^'03H1464^NRLO^00CIOCS)002ION,12,)022,^'03A 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 401: 1465UBOOL^00?U,)060,,^1011^'02F1466^RPTO^00C,1,)022,^'03B1467^BA1^^00B,IOCS)002ERR3,^'03G1468^NRPTO0 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: 0CIOCS)002ION,1,)022,^'03B1469UBA1^^00B,IOCS)002ERR4,^'04A1470^SW^^^00BIOCS)002IOP,IOCS)002A1,^'05H1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 471^BW^^^00C,IOCSCS1ENT,IOCSINT,^WAS^R/T^INTERRUPTED^'03H1472^SW^^^00BIOCS)002RT3,IOCSINT,^'02F1473^ 1 1 1 1 11 1 1 1 1 11 1 701: BOOL^00?U,)006,,^'04D1474^MLCB^00C,&)022,)006,^SET^INDEX^REG^'05C1475^MLCA^00C,)006,IOCSLINF,^SAVE^D 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 801: ATA^FOR^LEVRT^'02G1476UBOOL^00?U,-)006,,^'03D1477^MLCB^00C,&)022,IOCSLINF,^'04?1478UMLCB^00C,&IOCS)0 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 901: 02A1,IOCSLWMA,^'03I1479^MLCB^00C,&IOCS)002CL,IOCSLCL,^'03E1480^MLCS^00C,IOCSLAB,IOCSSSS,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 099I03A1481^MLCS^00C,@1@,IOCSLAB,^'04E1482^BCE^^00D,IOCS)002EPA1,IOCS)002A1,0,^'04?1483^MLCS^00C,IOC 1 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 101: S)002A1,IOCSERIN1,^'03H1484^BEPA^00B,)042,^GO^TO^ERRADDR^'05A1485^BEPA^00BIOCS)002EPA1,)040,^GO^TO^P 1 1 11 1 1 1 1 11 1 1 1 1 201: ROCADDR^'05?1486TBER1^00BIOCS)002ERR3,*&8,^ERROR^ROUTINES^'03A1487^B^^^^00B,IOCS)002ION,^'03D1488^ML 11 1 1 1 1 11 1 1 1 1 11 1 301: CS^00C,@1@,IOCS)002A1,^'03A1489^B^^^^00B,IOCS)002ION,^'03E1490^BEF1^00BIOCS)002ERR4,*&8,^'03A1491^B^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^^^00B,IOCS)002IOP,^'04C1492^BCE^^00D,IOCS)002SS,IOCS)002A1,1,^'03D1493^MLCS^00C,@2@,IOCS)002A1,^'03 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 501: A1494^B^^^^00B,IOCS)002IOP,^'04D1495^MLCS^00CIOCS)002SS,@3@,IOCS)002A1,^'03A1496^B^^^^00B,IOCS)002IO 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: P,^'04F1497^BOOL^00?T,)011,^ERR^ROUT^FOR^2^AREAS^'03E1498^BER1^00BIOCS)002ERR1,*&8,^'03A1499^B^^^^00 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: B,IOCS)002IOQ,^'03D1500^MLCS^00C,@1@,IOCS)002A2,^'03A1501^B^^^^00B,IOCS)002IOQ,^'03E1502^BEF1^00BIOC 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: S)002ERR2,*&8,^'03A1503^B^^^^00B,IOCS)002CAT,^'04C1504^BCE^^00D,IOCS)002RR,IOCS)002A2,1,^'03D1505^ML 1 1 11 1 1 1 1 11 1 1 1 1 1 1 11 1 901: CS^00C,@2@,IOCS)002A2,^'03A1506^B^^^^00B,IOCS)002CAT,^'04D1507^MLCS^00CIOCS)002RR,@3@,IOCS)002A2,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 097G03A1508^B^^^^00B,IOCS)002CAT,^'04I1509TMLCA^00CIOCS)002CL,IOCSLWMA,*&11,^LEVRT^'02F1510^MLCWS00C 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,@00@,0,^'02G1511^CW^^^00B,IOCSINT,^'03C1512^MLCA^00C,IOCSLINF,*&11,^'03A1513^MRCG^00C,IOCS80BCH,0,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: '04?1514^BW^^^00C,IOCS)002CLOS,IOCSXYZ,^'04D1515^BW^^^00C,IOCS)002CLOS,IOCS)002XYZ,^'02H1516^B^^^^00 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: B,IOCSPEND,^'05B1517^SBR^^00BIOCS)002CLOS,IOCS)002CLXT&5,^CLOSE^'03A1518^SW^^^00B,IOCS)002XYZ,^'03F1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 519^MLCS^00C,@0@,IOCS)002OPSW,^'03?1520^EQU^^00BIOCSX#070,*,^'02F1521^BOOL^00?T,)011,,^'05I1522^BCE^ 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 501: ^00D,IOCS)002P1,IOCS)002NEXT,1,^2AREA^POLLING^'04B1523^BW^^^00C,IOCS)002RT2,IOCS)002A2,^'03?1524^B^^ 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ^^00B,IOCS)002P2,^'06F1525TBW^^^00CIOCS)002P1,IOCS)002RT3,IOCS)002A1,^1AREA^POLLING^'05D1526^BW^^^00 1 1 1 11 1 1 1 1 1 11 1 1 701: CIOCS)002P2,IOCS)002CLW2,IOCS)002XYZ,^'03G1527^MATH^00?#070,#070&00001,,,,^'04B1528^B^^^^00B,IOCSX#0 1 1 1 11 1 1 1 1 1111 11 1 1 1 801: 70,^POLLING^EXIT^'05A1529^CW^^^00CIOCS)002CLW2,IOCS)002XYZ,IOCSXYZ,^'04D1530^B^^^^00BIOCS)002CLXT,0, 1 11 1 1 1 1 1 11 1 1 1 1 901: ^CLOSE^EXIT^'06D1531SBOOL^00?S,)059*-)060*-)061*-)062,,^1009^FILE^SCHEDULER^' 11 1 1 1 11 1 1: 096E02G1532^BOOL^00?T,-)005,,^'03B1533^NOTE^00A107.X&F...EMD,^'05A1534^EMD..00B***107.X&F,SIZEREC^EN 1 1 1 1 1 11 11 1 1 1 11 1 1 1 101: TRY^MISSING,^'02G1535^BOOL^00?P,-)063,,^'03F1536TNRTDO00CIOCSX#080,1,00000,^'05B1537^MATH^00?#080,#0 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: 80&00001,,,,^STEP^FOR^CHAIN^'02I1538^BA1^^00B,IOCSX#080,^'07D1539^BCE^^00DIOCS)002FS,IOCS)002GARB,IO 1 1111 11 1 1 1 1 11 1 1 1 1 301: CS)002OPSW,0,^CHK^IF^FILE^OPEN^'02F1540^BOOL^00?T,)011,,^'04B1541^BW^^^00C,IOCS)002FUL,IOCS)002A1,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 1 401: 03B1542^B^^^^00B,IOCS)002ARSW,^'05D1543^BW^^^00CIOCS)002FUL,IOCS)002GARB,IOCS)002A2,^'03B1544^NOP^^0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0BIOCS)002ARSW,,^'03A1545^B^^^^00B,IOCS)002AR1,^'06G1546^MLCWS00CIOCS)002AR2,IOCS)002GMWM,)023&80,^R 11 11 1 1 1 1 11 1 1 1 1 1 601: EAD^FOR^AREA^2^'03H1547^RTDO^00CIOCS)002AR21,1,)023,^'04D1548^BA1^^00BIOCS)002AR22,IOCS)002ERR1,^'03 11 1 1 1 1 1 11 1 1 1 1 11 701: G1549^NRTDO00CIOCS)002IOQ,1,)023,^'03B1550^BA1^^00B,IOCS)002ERR2,^'04H1551^MLCS^00CIOCS)002AR24,@1@, 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: IOCS)002RDG2,^'03A1552^MLCWS00C,@^@,)023&80,^'04F1553^SW^^^00BIOCS)002AR23,IOCS)002AR22-6,^'03I1554^ 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: A^^^^00C,@80@,IOCS)002AR22-2,^'03D1555^CW^^^00B,IOCS)002AR22-6,^' 1 1 1 1 11 1 1 1 1 1 1: 097H03I1556^A^^^^00C,@80@,IOCS)002AR21-2,^'03I1557^A^^^^00C,@80@,IOCS)002AR23-2,^'03A1558^B^^^^00B,I 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: OCS)002BIO,^'02G1559TBOOL^00?T,-)011,,^'04C1560^BW^^^00C,IOCS)002GARB,IOCS)002A1,^'06G1561TMLCWS00CI 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 201: OCS)002AR1,IOCS)002GMWM,)022&80,^READ^FOR^AREA^1^'03H1562^RTDO^00CIOCS)002AR11,1,)022,^'04D1563^BA1^ 1 1 1 11 1 1 1 1 1 11 1 301: ^00BIOCS)002AR12,IOCS)002ERR3,^'03G1564^NRTDO00CIOCS)002ION,1,)022,^'03B1565^BA1^^00B,IOCS)002ERR4,^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: '04H1566^MLCS^00CIOCS)002AR14,@1@,IOCS)002RDG1,^'03A1567^MLCWS00C,@^@,)022&80,^'04F1568^SW^^^00BIOCS 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: )002AR13,IOCS)002AR12-6,^'03I1569^A^^^^00C,@80@,IOCS)002AR12-2,^'03D1570^CW^^^00B,IOCS)002AR12-6,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 11 601: 3I1571^A^^^^00C,@80@,IOCS)002AR11-2,^'03I1572^A^^^^00C,@80@,IOCS)002AR13-2,^'04I1573^BW^^^00CIOCS)00 1 1 1 1 1 11 1 1 1 1 1 11 1 1 701: 2BIO,IOCSCS1ENT,IOCSINT,^'03?1574^B^^^^00B,IOCSCS1LRT,^'02F1575^BOOL^00?T,)011,,^'05G1576^BER1^00BIO 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 801: CS)002ERR1,*&8,^ERROR^ROUTINES^AREA^2^'03A1577^B^^^^00B,IOCS)002IOQ,^'03D1578^MLCS^00C,@1@,IOCS)002A 1 1 11 1 1 1 1 11 1 1 1 1 901: 2,^'03A1579^B^^^^00B,IOCS)002IOQ,^'04C1580^BEF1^00BIOCS)002ERR2,IOCS)002IG2,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 098H03A1581^BNT1^00B,IOCS)002IG2,^'03B1582^B^^^^00B,IOCS)002AR24,^'05H1583^MLCB^00CIOCS)002IG2,IOCS) 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 002AR21-2,IOCS)002LMN2,^'04G1584^MLCA^00C,IOCS)002IOA2,IOCS)002AR22-2,^'04G1585^MLCA^00C,IOCS)002IOA 1 1 11 1 1 1 1 1 11 1 1 1 201: 2,IOCS)002AR21-2,^'04G1586^MLCA^00C,IOCS)002IOA2,IOCS)002AR23-2,^'03I1587^A^^^^00C,@80@,IOCS)002AR21 1 1 11 1 1 1 1 1 11 1 1 1 1 301: -2,^'03I1588^A^^^^00C,@80@,IOCS)002AR23-2,^'03F1589^A^^^^00C,@1@,IOCS)002CTR2,^'03H1590^BCE^^00D,*&8 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: ,IOCS)002CTR2,3,^'03B1591^B^^^^00B,IOCS)002IG21,^'02C1592^BEF1^00B,*&8,^'03D1593^B^^^^00B,IOCS)002IG 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 21&7,^'03F1594^MLCS^00C,@0@,IOCS)002RDG2,^'03F1595^MLCS^00C,@0@,IOCS)002CTR2,^'03F1596^MLCS^00C,@0@, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: IOCS)002SUB2,^'03E1597^BEF1^00BIOCS)002IG21,*&8,^'03B1598^BNT1^00B,IOCS)002BEM2,^'03H1599^BW^^^00C,I 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: OCSCS1ENT,IOCSINT,^'03?1600^B^^^^00B,IOCSCS1LRT,^'06A1601^SW^^^00BIOCS)002BEM2,IOCS)002A2,^EOM^ROUTI 1 1 11 1 1 1 1 11 1 1 1 1 801: NE^AREA^2^'03D1602^SW^^^00B,IOCS)002ARSW&1,^'04F1603^BCE^^00D,IOCS)002PD2,IOCS)002RDG2,1,^'03I1604^B 11 1 1 1 1 11 1 1 1 1 1 1 11 1 901: CE^^00D,IOCS)002SSC2,)023,:,^'05H1605^BCE^^00DIOCS)002PD2,IOCS)002CHA2,IOCS)002SUB2,1,^' 1 1 1 1 1 11 1 1 1 1 1 1 1 1: 097B04H1606^MLCS^00CIOCS)002PD21,@0@,IOCS)002CTR2,^'03F1607^MLCS^00C,@0@,IOCS)002SUB2,^'03F1608^MLCS 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^00C,@0@,IOCS)002RDG2,^'04E1609^MLCA^00C,IOCS)002IOA2,IOCS)002TAD2,^'04D1610^A^^^^00C,IOCS)002REC,IO 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: CS)002TAD2,^'05G1611^C^^^^00CIOCS)002CPR2,IOCS)002LMN2,IOCS)002TAD2,^'02C1612^BH^^^00B,*&8,^'03B1613 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: ^B^^^^00B,IOCS)002PDR2,^'03G1614^MLCA^00C,IOCS)002LMN2,*&11,^'03A1615^MRCWG00C,IOCS80BCH,0,^'03G1616 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: ^A^^^^00C,@80@,IOCS)002LMN2,^'03B1617^B^^^^00B,IOCS)002CPR2,^'05G1618^BCE^^00DIOCS)002CHA2,IOCS)002C 1 1 1 1 11 1 1 1 1 11 1 1 1 501: Z21,IOCS)002A2,1,^'03D1619^MLCS^00C,@2@,IOCS)002A2,^'03B1620^B^^^^00B,IOCS)002PD21,^'04F1621^MLCS^00 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: CIOCS)002CZ21,@3@,IOCS)002A2,^'03B1622^B^^^^00B,IOCS)002PD21,^'06E1623^MLCWS00CIOCS)002SSC2,@00@,IOC 1 1 1 11 1 1 1 1 11 1 1 1 1 701: S)002A2,^SUB^CHARACTER^RTN^'03F1624^MLCS^00C,@1@,IOCS)002SUB2,^'03D1625^CW^^^00B,IOCS)002ARSW&1,^'03 1 11 1 1 1 1 1 11 1 1 1 1 11 801: H1626^BW^^^00C,IOCSCS1ENT,IOCSINT,^'03?1627^B^^^^00B,IOCSCS1LRT,^'06H1628^BW^^^00CIOCS)002PDR2,IOCSC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: S1ENT,IOCSINT,^PROCESS^SCHEDULER^'03H1629^SW^^^00BIOCS)002RT2,IOCSINT,^' 1 1 11 1 1 1 1 1 1: 097H04G1630^MLCB^00C,&)023,)006,^SETUP^FOR^AREA^2^'03C1631^MLCA^00C,)006,IOCSLINF,^'04?1632^MLCB^00C 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,&IOCS)002A2,IOCSLWMA,^'03F1633^MLCS^00C,@1@,IOCS)002NEXT,^'03I1634^MLCB^00C,&IOCS)002CL,IOCSLCL,^'0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 201: 3E1635^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1636^MLCS^00C,@1@,IOCSLAB,^'04E1637^BCE^^00D,IOCS)002EPA2,IOCS) 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: 002A2,0,^'04?1638^MLCS^00C,IOCS)002A2,IOCSERIN1,^'02D1639^BEPA^00B,)042,^'03F1640^BEPA^00BIOCS)002EP 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: A2,)040,^'05C1641TBER1^00BIOCS)002ERR3,*&8,^ERROR^RTNS^AREA^1^'03A1642^B^^^^00B,IOCS)002ION,^'03D164 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 3^MLCS^00C,@1@,IOCS)002A1,^'03A1644^B^^^^00B,IOCS)002ION,^'04C1645^BEF1^00BIOCS)002ERR4,IOCS)002IG1, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ^'03A1646^BNT1^00B,IOCS)002IG1,^'03B1647^B^^^^00B,IOCS)002AR14,^'05H1648^MLCB^00CIOCS)002IG1,IOCS)00 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: 2AR11-2,IOCS)002LMN1,^'04G1649^MLCA^00C,IOCS)002IOA1,IOCS)002AR12-2,^'04G1650^MLCA^00C,IOCS)002IOA1, 1 1 11 1 1 1 1 1 11 1 1 1 1 801: IOCS)002AR11-2,^'04G1651^MLCA^00C,IOCS)002IOA1,IOCS)002AR13-2,^'03I1652^A^^^^00C,@80@,IOCS)002AR11-2 1 11 1 1 1 1 1 11 1 1 1 1 901: ,^'03I1653^A^^^^00C,@80@,IOCS)002AR13-2,^'03F1654^A^^^^00C,@1@,IOCS)002CTR1,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 097A03H1655^BCE^^00D,*&8,IOCS)002CTR1,3,^'03B1656^B^^^^00B,IOCS)002IG11,^'02C1657^BEF1^00B,*&8,^'03D 1 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 101: 1658^B^^^^00B,IOCS)002IG11&7,^'03F1659^MLCS^00C,@0@,IOCS)002RDG1,^'03F1660^MLCS^00C,@0@,IOCS)002CTR1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: ,^'03F1661^MLCS^00C,@0@,IOCS)002SUB1,^'03E1662^BEF1^00BIOCS)002IG11,*&8,^'03B1663^BNT1^00B,IOCS)002B 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 301: EM1,^'03H1664^BW^^^00C,IOCSCS1ENT,IOCSINT,^'03?1665^B^^^^00B,IOCSCS1LRT,^'05I1666^SW^^^00BIOCS)002BE 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: M1,IOCS)002A1,^EOM^ROUT.^AREA^1^'02F1667^BOOL^00?T,)011,,^'03D1668^SW^^^00B,IOCS)002ARSW&1,^'04F1669 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: TBCE^^00D,IOCS)002PD1,IOCS)002RDG1,1,^'05C1670^BCE^^00D,IOCS)002SSC1,)022,:,^SUBST.^RECORD^'05H1671^ 1 1 1 1 1 11 1 1 1 1 1 1 11 1 601: BCE^^00DIOCS)002PD1,IOCS)002CHA1,IOCS)002SUB1,1,^'04H1672^MLCS^00CIOCS)002PD11,@0@,IOCS)002CTR1,^'03 1 1 1 1 1 11 1 1 1 1 1 11 701: F1673^MLCS^00C,@0@,IOCS)002SUB1,^'03F1674^MLCS^00C,@0@,IOCS)002RDG1,^'04E1675^MLCA^00C,IOCS)002IOA1, 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: IOCS)002TAD1,^'04D1676^A^^^^00C,IOCS)002REC,IOCS)002TAD1,^'05G1677^C^^^^00CIOCS)002CPR1,IOCS)002LMN1 1 11 1 1 1 1 1 11 1 1 1 901: ,IOCS)002TAD1,^'02C1678^BH^^^00B,*&8,^'03B1679^B^^^^00B,IOCS)002PDR1,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098G03G1680^MLCA^00C,IOCS)002LMN1,*&11,^'03A1681^MRCWG00C,IOCS80BCH,0,^'03G1682^A^^^^00C,@80@,IOCS)0 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: 02LMN1,^'03B1683^B^^^^00B,IOCS)002CPR1,^'05G1684^BCE^^00DIOCS)002CHA1,IOCS)002CZ11,IOCS)002A1,1,^'03 1 11 1 1 1 1 11 1 1 1 1 1 1 11 201: D1685^MLCS^00C,@2@,IOCS)002A1,^'03B1686^B^^^^00B,IOCS)002PD11,^'04F1687^MLCS^00CIOCS)002CZ11,@3@,IOC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: S)002A1,^'03B1688^B^^^^00B,IOCS)002PD11,^'04G1689^MLCWS00CIOCS)002SSC1,@00@,IOCS)002A1,^'03F1690^MLC 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: S^00C,@1@,IOCS)002SUB1,^'02F1691^BOOL^00?T,)011,,^'03D1692^CW^^^00B,IOCS)002ARSW&1,^'03H1693TBW^^^00 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: C,IOCSCS1ENT,IOCSINT,^'03?1694^B^^^^00B,IOCSCS1LRT,^'05?1695^BW^^^00CIOCS)002PDR1,IOCSCS1ENT,IOCSINT 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ,^'03H1696^SW^^^00BIOCS)002RT3,IOCSINT,^'04G1697^MLCB^00C,&)022,)006,^SETUP^FOR^AREA^1^'03C1698^MLCA 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: ^00C,)006,IOCSLINF,^'04?1699^MLCB^00C,&IOCS)002A1,IOCSLWMA,^'03F1700^MLCS^00C,@2@,IOCS)002NEXT,^'03I 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 801: 1701^MLCB^00C,&IOCS)002CL,IOCSLCL,^'03E1702^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1703^MLCS^00C,@1@,IOCSLAB, 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 901: ^'04E1704^BCE^^00D,IOCS)002EPA1,IOCS)002A1,0,^'04?1705^MLCS^00C,IOCS)002A1,IOCSERIN1,^' 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1: 099D02D1706^BEPA^00B,)042,^'03F1707^BEPA^00BIOCS)002EPA1,)040,^'04I1708^MLCA^00CIOCS)002CL,IOCSLWMA, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: *&11,^LEVRT^'02F1709^MLCWS00C,@00@,0,^'02G1710^CW^^^00B,IOCSINT,^'04?1711^BW^^^00C,IOCS)002CLOS,IOCS 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: XYZ,^'04D1712^BW^^^00C,IOCS)002CLOS,IOCS)002XYZ,^'02H1713^B^^^^00B,IOCSPEND,^'05B1714^SBR^^00BIOCS)0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 301: 02CLOS,IOCS)002CLXT&5,^CLOSE^'03A1715^SW^^^00B,IOCS)002XYZ,^'03F1716^MLCS^00C,@0@,IOCS)002OPSW,^'03? 1 1 11 1 1 1 1 11 1 1 1 1 1 11 401: 1717^EQU^^00BIOCSX#070,*,^'02F1718^BOOL^00?T,)011,,^'06?1719^BCE^^00D,IOCS)002P1,IOCS)002NEXT,1,^2^A 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 501: REA^POLLING^'04B1720^BW^^^00C,IOCS)002RT2,IOCS)002A2,^'03?1721^B^^^^00B,IOCS)002P2,^'06G1722TBW^^^00 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: CIOCS)002P1,IOCS)002RT3,IOCS)002A1,^1^AREA^POLLING^'05D1723^BW^^^00CIOCS)002P2,IOCS)002CLW2,IOCS)002 1 1 1 11 1 1 1 1 701: XYZ,^'03G1724^MATH^00?#070,#070&00001,,,,^'04B1725^B^^^^00B,IOCSX#070,^POLLING^EXIT^'05A1726^CW^^^00 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 801: CIOCS)002CLW2,IOCS)002XYZ,IOCSXYZ,^'03C1727^B^^^^00BIOCS)002CLXT,0,^'05E1728SEQU^^00BIOCS)002GARB,*, 1 1 1 11 1 1 1 1 11 1 1 1 1 901: ^GARBAGE^READ^ON^ERROR^'04D1729^BOOL^00?S,)061*-)059*-)060*-)062,,^'02F1730^BOOL^00?T,)196,,^' 11 1 1 1 11 11 1 1 1 11 1 1: 098D04I1731^RQO^^00C,10,IOCSGARB,^1014^GARB,ADPTR^0^'02C1732^BA1^^00B,*&1,^'04G1733^NRQO^00C,10,IOCS 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: GARB,^1014^IONOP^GARB^'02F1734TBOOL^00?S,)197,,^'04I1735^RQO^^00C,11,IOCSGARB,^1014^GARB,ADPTR^1^'02 1 11 1 1 1 11 11 1 1 1 1 1 11 201: C1736^BA1^^00B,*&1,^'04G1737^NRQO^00C,11,IOCSGARB,^1014^IONOP^GARB^'04D1738SBOOL^00?S,)059*-)060*-)0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 61*-)062,,^'04C1739^RTDO^00C,1,IOCSGARB,^1009^GARBAGE^'02C1740^BA1^^00B,*&1,^'04F1741^NRTDO00C,1,IOC 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: SGARB,^1009^IONOP^GARB^'04D1742SBOOL^00?S,)060*-)059*-)061*-)062,,^'04C1743^RPTO^00C,1,IOCSGARB,^101 1 11 1 1 1 11 11 1 1 1 1 1 501: 1^GARBAGE^'02C1744^BA1^^00B,*&1,^'04F1745^NRPTO00C,1,IOCSGARB,^1011^IONOP^GARB^'04D1746SBOOL^00?S,)0 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: 62*-)059*-)060*-)061,,^'02F1747^BOOL^00?T,)195,,^'04H1748^RLO^^00C,10,IOCSGARB,^TGF^GARB,ADPTR^0^'02 11 11 1 1 1 11 11 1 1 1 1 1 11 701: C1749^BA1^^00B,*&1,^'04F1750^NRLO^00C,10,IOCSGARB,^TGF^IONOP^GARB^'02F1751TBOOL^00?T,)194,,^'04H1752 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 801: ^RLO^^00C,11,IOCSGARB,^TGF^GARB,ADPTR^1^'02C1753^BA1^^00B,*&1,^'04F1754^NRLO^00C,11,IOCSGARB,^TGF^IO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 901: NOP^GARB^'02F1755TBOOL^00?S,)193,,^'04H1756^RLO^^00C,12,IOCSGARB,^TGF^GARB,ADPTR^2^' 11 1 1 1 11 11 1 1 1 1 1 1 1: 099I02C1757^BA1^^00B,*&1,^'04F1758^NRLO^00C,12,IOCSGARB,^TGF^IONOP^GARB^'02C1759SBA1^^00B,*&1,^'05A1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 101: 760^BW^^^00C,IOCSCS1ENT,IOCSINT,^BR^IF^RT^INT^'04C1761^B^^^^00B,IOCSCS1LRT,^BR^IF^ML^INT^'03D1762^EQ 1 1 1 1 11 1 1 1 1 11 1 201: U^^00B)04I,*,^FILENAME^'05?1763^DCW^^00BIOCS)002OPSW,@0@,^OPEN^OR^CLOSED^'05D1764^DC^^^00BIOCS)002A2 1 1 1 11 1 1 1 1 11 1 1 301: ,@0@,^AREA^2^FULL^&^ERRPRS^'05F1765^DC^^^00BIOCS)002XYZ,@^@,^CLOSE^ROUTINE^STARTED^'06B1766^DCW^^00B 1 1 11 1 1 1 1 11 1 1 401: IOCS)002NEXT,@1@,^WHICH^AREA^TO^PROCESS^NEXT^'05D1767^DC^^^00BIOCS)002A1,@0@,^AREA^1^FULL^&^ERRORS^' 1 1 11 1 1 1 1 1 501: 03I1768^DCW^^00BIOCS)002LMN1,@^^^^^@,^'03I1769^DCW^^00BIOCS)002LMN2,@^^^^^@,^'03E1770^DCW^^00BIOCS)0 1 1 1 1 1 11 1 1 1 1 11 1 1 601: 02CTR1,@^@,^'03E1771^DCW^^00BIOCS)002CTR2,@^@,^'03E1772^DCW^^00BIOCS)002SUB1,@^@,^'03E1773^DCW^^00BI 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: OCS)002SUB2,@^@,^'03E1774^DCW^^00BIOCS)002GMWM,@"@,^'03D1775^DCW^^00BIOCS)002ACT,@A@,^'03B1776^B^^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 00B,IOCS)002CLOS,^'03?1777^B^^^^00B,IOCSEXITRU,^'03I1778^DCW^^00BIOCS)002TAD1,@^^^^^@,^'03I1779^DCW^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: ^00BIOCS)002TAD2,@^^^^^@,^'03F1780^DCW^^00BIOCS)002IOA1,)022,^'03F1781^DCW^^00BIOCS)002IOA2,)02C,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096F03E1782^DCW^^00BIOCS)002REC,)005,^'03E1783^DCW^^00BIOCS)002RDG1,@0@,^'03E1784^DCW^^00BIOCS)002RD 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: G2,@0@,^'02G1785^BOOL^00?P,-)063,,^'04B1786RBOOL^00?R,-)059,,^BRANCH^IF^1009^'02F1787^BOOL^00?S,)060 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 201: ,,^'03I1788^ORG^^00BIOCSTBL6,IOCSCS2E2-1,^'02C1789^DC^^^00B,@N@,^'02H1790^ORG^^00B,IOCSTBL6,^'02F179 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 1SBOOL^00?S,)196,,^'03G1792^NRQO^00CIOCSX#060,20,00000,^'03E1793SBOOL^00?S,)197,,^1014^Q1R^'03G1794^ 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 401: NRQO^00CIOCSX#060,21,00000,^'03D1795SBOOL^00?S,)195,,^TTY^L0R^'03G1796^NRLO^00CIOCSX#060,20,00000,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 501: 03D1797SBOOL^00?S,)194,,^TTY^L1R^'03G1798^NRLO^00CIOCSX#060,21,00000,^'03D1799SBOOL^00?S,)193,,^TTY^ 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 601: L2R^'03G1800^NRLO^00CIOCSX#060,22,00000,^'03A1801SBOOL^00?S,)060,,^1011^'03F1802^NRPTO00CIOCSX#060,2 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 701: ,00000,^'05B1803SMATH^00?#060,#060&00001,,,,^STEP^FOR^CHAIN^'02I1804^BA2^^00B,IOCSX#060,^'07F1805^BC 1 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 801: E^^00DIOCS)002FS,IOCS)002GARB,IOCS)002OPSW,0,^CHECK^IF^FILE^OPEN^'02F1806^BOOL^00?S,)011,,^'04B1807^ 1 1 1 1 1 11 1 1 1 11 11 1 901: BW^^^00C,IOCS)002FUL,IOCS)002A1,^'03B1808^B^^^^00B,IOCS)002ARSW,^' 1 1 1 1 11 1 1 1 1 1 1: 098A05D1809^BW^^^00CIOCS)002FUL,IOCS)002GARB,IOCS)002A2,^'03B1810^NOP^^00BIOCS)002ARSW,,^'03A1811^B^ 1 1 1 1 1 1 1 11 1 1 11 11 1 101: ^^^00B,IOCS)002AR1,^'04E1812^SW^^^00BIOCS)002AR2,IOCS)002ARSW&1,^'03E1813^BOOL^00?T,)196,,^1014^Q0R^ 1 1 1 11 1 1 1 1 11 1 1 1 11 201: '02G1814^RQO^^00C,20,)023,^'03B1815^BA2^^00B,IOCS)002ERR1,^'03H1816^NRQO^00CIOCS)002IOQ,20,)023,^'03 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 301: E1817TBOOL^00?T,)197,,^1014^Q1R^'02G1818^RQO^^00C,21,)023,^'03B1819^BA2^^00B,IOCS)002ERR1,^'03H1820^ 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 401: NRQO^00CIOCS)002IOQ,21,)023,^'03D1821TBOOL^00?T,)195,,^TTY^L0R^'02G1822^RLO^^00C,20,)023,^'03B1823^B 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: A2^^00B,IOCS)002ERR1,^'03H1824^NRLO^00CIOCS)002IOQ,20,)023,^'03D1825TBOOL^00?T,)194,,^TTY^L1R^'02G18 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 601: 26^RLO^^00C,21,)023,^'03B1827^BA2^^00B,IOCS)002ERR1,^'03H1828^NRLO^00CIOCS)002IOQ,21,)023,^'03D1829T 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: BOOL^00?T,)193,,^TTY^L2R^'02G1830^RLO^^00C,22,)023,^'03B1831^BA2^^00B,IOCS)002ERR1,^'03H1832^NRLO^00 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: CIOCS)002IOQ,22,)023,^'03A1833TBOOL^00?T,)060,,^1011^'02F1834^RPTO^00C,2,)023,^'03B1835^BA2^^00B,IOC 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 901: S)002ERR1,^'03G1836^NRPTO00CIOCS)002IOQ,2,)023,^'03B1837TBA2^^00B,IOCS)002ERR2,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 097G04A1838^SW^^^00BIOCS)002CAT,IOCS)002A2,^'03A1839^B^^^^00B,IOCS)002RTT,^'04E1840^CW^^^00BIOCS)002 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: AR1,IOCS)002ARSW&1,^'03E1841^BOOL^00?T,)196,,^1014^Q0R^'02G1842^RQO^^00C,20,)022,^'03B1843^BA2^^00B, 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: IOCS)002ERR3,^'03H1844^NRQO^00CIOCS)002ION,20,)022,^'03E1845TBOOL^00?T,)197,,^1014^Q1R^'02G1846^RQO^ 1 11 1 1 1 1 1 11 1 1 1 11 11 1 301: ^00C,21,)022,^'03B1847^BA2^^00B,IOCS)002ERR3,^'03H1848^NRQO^00CIOCS)002ION,21,)022,^'03D1849TBOOL^00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 401: ?T,)195,,^TTY^L0R^'02G1850^RLO^^00C,20,)022,^'03B1851^BA2^^00B,IOCS)002ERR3,^'03H1852^NRLO^00CIOCS)0 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: 02ION,20,)022,^'03D1853TBOOL^00?T,)194,,^TTY^L1R^'02G1854^RLO^^00C,21,)022,^'03B1855^BA2^^00B,IOCS)0 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 601: 02ERR3,^'03H1856^NRLO^00CIOCS)002ION,21,)022,^'03D1857TBOOL^00?T,)193,,^TTY^L2R^'02G1858^RLO^^00C,22 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 701: ,)022,^'03B1859^BA2^^00B,IOCS)002ERR3,^'03H1860^NRLO^00CIOCS)002ION,22,)022,^'03A1861TBOOL^00?T,)060 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 801: ,,^1011^'02F1862^RPTO^00C,2,)022,^'03B1863^BA2^^00B,IOCS)002ERR3,^'03G1864^NRPTO00CIOCS)002ION,2,)02 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: 2,^'03B1865TBA2^^00B,IOCS)002ERR4,^'04A1866^SW^^^00BIOCS)002IOP,IOCS)002A1,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 099F05?1867^BW^^^00CIOCS)002RTT,IOCSCS2ENT,IOCSINT2,^'04F1868^BW^^^00C,IOCS)002RT2,IOCS)002ARSW&1,^' 1 1 1 1 1 1 1 11 1 1 1 1 1 1 101: 05H1869^MLCB^00CIOCS)002RT3,&)022,)006,^SETUP^FOR^AREA^1^'03D1870^MLCA^00C,)006,IOCSLINF2,^'02H1871^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 201: SW^^^00B,IOCSINT2,^'04A1872^MLCB^00C,&IOCS)002A1,IOCSLWMA2,^'03F1873^MLCS^00C,@2@,IOCS)002NEXT,^'04? 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 301: 1874^MLCB^00C,&IOCS)002CL,IOCSLCL2,^'03E1875^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1876^MLCS^00C,@2@,IOCSLAB 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: ,^'04E1877^BCE^^00D,IOCS)002EPA1,IOCS)002A1,0,^'04?1878^MLCS^00C,IOCS)002A1,IOCSERIN2,^'02D1879^BEPA 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 501: ^00B,)042,^'03F1880^BEPA^00BIOCS)002EPA1,)040,^'05H1881^MLCB^00CIOCS)002RT2,&)023,)006,^SETUP^FOR^AR 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: EA^2^'03D1882^MLCA^00C,)006,IOCSLINF2,^'02H1883^SW^^^00B,IOCSINT2,^'04A1884^MLCB^00C,&IOCS)002A2,IOC 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: SLWMA2,^'03F1885^MLCS^00C,@1@,IOCS)002NEXT,^'04?1886^MLCB^00C,&IOCS)002CL,IOCSLCL2,^'03E1887^MLCS^00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 801: C,IOCSLAB,IOCSSSS,^'03A1888^MLCS^00C,@2@,IOCSLAB,^'04E1889^BCE^^00D,IOCS)002EPA2,IOCS)002A2,0,^'04?1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 901: 890^MLCS^00C,IOCS)002A2,IOCSERIN2,^'02D1891^BEPA^00B,)042,^'03F1892^BEPA^00BIOCS)002EPA2,)040,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098I02G1893SBOOL^00?S,-)011,,^'04C1894^BW^^^00C,IOCS)002GARB,IOCS)002A1,^'03E1895^BOOL^00?T,)196,,^1 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 101: 014^Q0R^'02G1896^RQO^^00C,20,)022,^'03B1897^BA2^^00B,IOCS)002ERR3,^'03H1898^NRQO^00CIOCS)002ION,20,) 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: 022,^'03E1899TBOOL^00?T,)197,,^1014^Q1R^'02G1900^RQO^^00C,21,)022,^'03B1901^BA2^^00B,IOCS)002ERR3,^' 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 301: 03H1902^NRQO^00CIOCS)002ION,21,)022,^'03D1903TBOOL^00?T,)195,,^TTY^L0R^'02G1904^RLO^^00C,20,)022,^'0 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 3B1905^BA2^^00B,IOCS)002ERR3,^'03H1906^NRLO^00CIOCS)002ION,20,)022,^'03D1907TBOOL^00?T,)194,,^TTY^L1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 501: R^'02G1908^RLO^^00C,21,)022,^'03B1909^BA2^^00B,IOCS)002ERR3,^'03H1910^NRLO^00CIOCS)002ION,21,)022,^' 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 601: 03D1911TBOOL^00?T,)193,,^TTY^L2R^'02G1912^RLO^^00C,22,)022,^'03B1913^BA2^^00B,IOCS)002ERR3,^'03H1914 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 701: ^NRLO^00CIOCS)002ION,22,)022,^'03A1915TBOOL^00?T,)060,,^1011^'02F1916^RPTO^00C,2,)022,^'03B1917^BA2^ 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 801: ^00B,IOCS)002ERR3,^'03G1918^NRPTO00CIOCS)002ION,2,)022,^'03B1919TBA2^^00B,IOCS)002ERR4,^'04A1920^SW^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: ^^00BIOCS)002IOP,IOCS)002A1,^'05I1921^BW^^^00C,IOCSCS2ENT,IOCSINT2,^WAS^R/T^INTERRUPTED^' 1 1 1 11 1 1 1 1 1 1 1: 099A03I1922^SW^^^00BIOCS)002RT3,IOCSINT2,^'02F1923^BOOL^00?T,)006,,^'04D1924^MLCB^00C,&)022,)006,^SE 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 101: T^INDEX^REG^'05D1925^MLCA^00C,)006,IOCSLINF2,^SAVE^DATA^FOR^LEVRT^'02G1926TBOOL^00?T,-)006,,^'03E192 11 1 1 1 1 1 11 1 1 1 11 11 1 201: 7^MLCB^00C,&)022,IOCSLINF2,^'04A1928TMLCB^00C,&IOCS)002A1,IOCSLWMA2,^'04?1929^MLCB^00C,&IOCS)002CL,I 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: OCSLCL2,^'03E1930^MLCS^00C,IOCSLAB,IOCSSSS,^'03A1931^MLCS^00C,@2@,IOCSLAB,^'04E1932^BCE^^00D,IOCS)00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 2EPA1,IOCS)002A1,0,^'04?1933^MLCS^00C,IOCS)002A1,IOCSERIN2,^'03H1934^BEPA^00B,)042,^GO^TO^ERRADDR^'0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 501: 5A1935^BEPA^00BIOCS)002EPA1,)040,^GO^TO^PROCADDR^'05?1936SBER2^00BIOCS)002ERR3,*&8,^ERROR^ROUTINES^' 1 1 1 1 11 1 1 1 1 1 601: 03A1937^B^^^^00B,IOCS)002ION,^'03D1938^MLCS^00C,@1@,IOCS)002A1,^'03A1939^B^^^^00B,IOCS)002ION,^'03E1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: 940^BEF2^00BIOCS)002ERR4,*&8,^'03A1941^B^^^^00B,IOCS)002IOP,^'04C1942^BCE^^00D,IOCS)002SS,IOCS)002A1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: ,1,^'03D1943^MLCS^00C,@2@,IOCS)002A1,^'03A1944^B^^^^00B,IOCS)002IOP,^'04D1945^MLCS^00CIOCS)002SS,@3@ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ,IOCS)002A1,^'03A1946^B^^^^00B,IOCS)002IOP,^'04F1947^BOOL^00?S,)011,^ERR^ROUT^FOR^2^AREAS^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097C03E1948^BER2^00BIOCS)002ERR1,*&8,^'03A1949^B^^^^00B,IOCS)002IOQ,^'03D1950^MLCS^00C,@1@,IOCS)002A 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: 2,^'03A1951^B^^^^00B,IOCS)002IOQ,^'03E1952^BEF2^00BIOCS)002ERR2,*&8,^'03A1953^B^^^^00B,IOCS)002CAT,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: '04C1954^BCE^^00D,IOCS)002RR,IOCS)002A2,1,^'03D1955^MLCS^00C,@2@,IOCS)002A2,^'03A1956^B^^^^00B,IOCS) 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 002CAT,^'04D1957^MLCS^00CIOCS)002RR,@3@,IOCS)002A2,^'03A1958^B^^^^00B,IOCS)002CAT,^'05?1959SMLCA^00C 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: IOCS)002CL,IOCSLWMA2,*&11,^LEVRT^'02F1960^MLCWS00C,@00@,0,^'02H1961^CW^^^00B,IOCSINT2,^'03D1962^MLCA 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 501: ^00C,IOCSLINF2,*&11,^'03A1963^MRCG^00C,IOCS80BCH,0,^'04A1964^BW^^^00C,IOCS)002CLOS,IOCSXYZ2,^'04D196 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: 5^BW^^^00C,IOCS)002CLOS,IOCS)002XYZ,^'02I1966^B^^^^00B,IOCSPEND2,^'05B1967^SBR^^00BIOCS)002CLOS,IOCS 1 1 1 1 11 1 1 1 1 11 1 1 1 701: )002CLXT&5,^CLOSE^'03A1968^SW^^^00B,IOCS)002XYZ,^'03F1969^MLCS^00C,@0@,IOCS)002OPSW,^'03?1970^EQU^^0 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 801: 0BIOCSX#055,*,^'02F1971^BOOL^00?S,)011,,^'05I1972^BCE^^00D,IOCS)002P1,IOCS)002NEXT,1,^2AREA^POLLING^ 1 1 11 1 1 1 11 11 1 1 1 1 1 1 901: '04B1973^BW^^^00C,IOCS)002RT2,IOCS)002A2,^'03?1974^B^^^^00B,IOCS)002P2,^' 11 1 1 1 1 1 11 1 1 1 1 1 1: 097E06F1975SBW^^^00CIOCS)002P1,IOCS)002RT3,IOCS)002A1,^1AREA^POLLING^'05D1976^BW^^^00CIOCS)002P2,IOC 1 1 1 1 1 1 1 11 1 1 1 101: S)002CLW2,IOCS)002XYZ,^'03G1977^MATH^00?#055,#055&00001,,,,^'04B1978^B^^^^00B,IOCSX#055,^POLLING^EXI 1 1 11 1 1 1 1 1111 11 1 1 1 1 201: T^'05B1979^CW^^^00CIOCS)002CLW2,IOCS)002XYZ,IOCSXYZ2,^'04D1980^B^^^^00BIOCS)002CLXT,0,^CLOSE^EXIT^'0 11 1 1 1 1 1 11 1 1 1 1 11 301: 6D1981RBOOL^00?R,)059*-)060*-)061*-)062,,^1009^FILE^SCHEDULER^'02G1982^BOOL^00?S,-)005,,^'03B1983^NO 1 1 1 11 11 1 1 1 11 11 1 401: TE^00A107.X&F...EMD,^'05A1984^EMD..00B***107.X&F,SIZEREC^ENTRY^MISSING,^'02G1985^BOOL^00?P,-)063,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 501: 03F1986SNRTDO00CIOCSX#060,2,00000,^'05B1987^MATH^00?#060,#060&00001,,,,^STEP^FOR^CHAIN^'02I1988^BA2^ 1 1 1 1 1 1 11 1 1 1 1 1111 11 1 601: ^00B,IOCSX#060,^'07D1989^BCE^^00DIOCS)002FS,IOCS)002GARB,IOCS)002OPSW,0,^CHK^IF^FILE^OPEN^'02F1990^B 1 1 1 11 1 1 1 1 1 1 11 1 701: OOL^00?S,)011,,^'04B1991^BW^^^00C,IOCS)002FUL,IOCS)002A1,^'03B1992^B^^^^00B,IOCS)002ARSW,^'05D1993^B 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 801: W^^^00CIOCS)002FUL,IOCS)002GARB,IOCS)002A2,^'03B1994^NOP^^00BIOCS)002ARSW,,^'03A1995^B^^^^00B,IOCS)0 1 1 1 1 11 1 1 11 11 1 1 1 901: 02AR1,^'06G1996^MLCWS00CIOCS)002AR2,IOCS)002GMWM,)023&80,^READ^FOR^AREA^2^' 1 11 1 1 1 1 1 1 1: 098G03H1997^RTDO^00CIOCS)002AR21,2,)023,^'04D1998^BA2^^00BIOCS)002AR22,IOCS)002ERR1,^'03G1999^NRTDO0 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: 0CIOCS)002IOQ,2,)023,^'03B2000^BA2^^00B,IOCS)002ERR2,^'04H2001^MLCS^00CIOCS)002AR24,@1@,IOCS)002RDG2 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ,^'03A2002^MLCWS00C,@^@,)023&80,^'04F2003^SW^^^00BIOCS)002AR23,IOCS)002AR22-6,^'03I2004^A^^^^00C,@80 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 301: @,IOCS)002AR22-2,^'03D2005^CW^^^00B,IOCS)002AR22-6,^'03I2006^A^^^^00C,@80@,IOCS)002AR21-2,^'03I2007^ 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: A^^^^00C,@80@,IOCS)002AR23-2,^'03A2008^B^^^^00B,IOCS)002BIO,^'02G2009SBOOL^00?S,-)011,,^'04C2010^BW^ 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 501: ^^00C,IOCS)002GARB,IOCS)002A1,^'06G2011SMLCWS00CIOCS)002AR1,IOCS)002GMWM,)022&80,^READ^FOR^AREA^1^'0 1 1 1 1 11 1 1 1 1 1 11 601: 3H2012^RTDO^00CIOCS)002AR11,2,)022,^'04D2013^BA2^^00BIOCS)002AR12,IOCS)002ERR3,^'03G2014^NRTDO00CIOC 1 1 1 1 1 11 1 1 1 1 11 1 1 701: S)002ION,2,)022,^'03B2015^BA2^^00B,IOCS)002ERR4,^'04H2016^MLCS^00CIOCS)002AR14,@1@,IOCS)002RDG1,^'03 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 801: A2017^MLCWS00C,@^@,)022&80,^'04F2018^SW^^^00BIOCS)002AR13,IOCS)002AR12-6,^'03I2019^A^^^^00C,@80@,IOC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: S)002AR12-2,^'03D2020^CW^^^00B,IOCS)002AR12-6,^'03I2021^A^^^^00C,@80@,IOCS)002AR11-2,^' 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 099A03I2022^A^^^^00C,@80@,IOCS)002AR13-2,^'05?2023^BW^^^00CIOCS)002BIO,IOCSCS2ENT,IOCSINT2,^'03?2024 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^B^^^^00B,IOCSCS2LRT,^'02F2025^BOOL^00?S,)011,,^'05G2026^BER2^00BIOCS)002ERR1,*&8,^ERROR^ROUTINES^AR 1 1 1 11 1 1 1 11 11 1 1 1 1 201: EA^2^'03A2027^B^^^^00B,IOCS)002IOQ,^'03D2028^MLCS^00C,@1@,IOCS)002A2,^'03A2029^B^^^^00B,IOCS)002IOQ, 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: ^'04C2030^BEF2^00BIOCS)002ERR2,IOCS)002IG2,^'03A2031^BNT2^00B,IOCS)002IG2,^'03B2032^B^^^^00B,IOCS)00 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 2AR24,^'05H2033^MLCB^00CIOCS)002IG2,IOCS)002AR21-2,IOCS)002LMN2,^'04G2034^MLCA^00C,IOCS)002IOA2,IOCS 1 11 1 1 1 1 1 11 1 1 1 1 501: )002AR22-2,^'04G2035^MLCA^00C,IOCS)002IOA2,IOCS)002AR21-2,^'04G2036^MLCA^00C,IOCS)002IOA2,IOCS)002AR 1 11 1 1 1 1 1 11 1 1 1 1 601: 23-2,^'03I2037^A^^^^00C,@80@,IOCS)002AR21-2,^'03I2038^A^^^^00C,@80@,IOCS)002AR23-2,^'03F2039^A^^^^00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 701: C,@1@,IOCS)002CTR2,^'03H2040^BCE^^00D,*&8,IOCS)002CTR2,3,^'03B2041^B^^^^00B,IOCS)002IG21,^'02C2042^B 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 801: EF2^00B,*&8,^'03D2043^B^^^^00B,IOCS)002IG21&7,^'03F2044^MLCS^00C,@0@,IOCS)002RDG2,^'03F2045^MLCS^00C 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 901: ,@0@,IOCS)002CTR2,^'03F2046^MLCS^00C,@0@,IOCS)002SUB2,^'03E2047^BEF2^00BIOCS)002IG21,*&8,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 097?03B2048^BNT2^00B,IOCS)002BEM2,^'03I2049^BW^^^00C,IOCSCS2ENT,IOCSINT2,^'03?2050^B^^^^00B,IOCSCS2L 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: RT,^'06A2051^SW^^^00BIOCS)002BEM2,IOCS)002A2,^EOM^ROUTINE^AREA^2^'03D2052^SW^^^00B,IOCS)002ARSW&1,^' 1 11 1 1 1 1 11 1 1 1 1 1 201: 04F2053^BCE^^00D,IOCS)002PD2,IOCS)002RDG2,1,^'03I2054^BCE^^00D,IOCS)002SSC2,)023,:,^'05H2055^BCE^^00 1 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 301: DIOCS)002PD2,IOCS)002CHA2,IOCS)002SUB2,1,^'04H2056^MLCS^00CIOCS)002PD21,@0@,IOCS)002CTR2,^'03F2057^M 1 1 1 1 11 1 1 1 1 1 11 1 401: LCS^00C,@0@,IOCS)002SUB2,^'03F2058^MLCS^00C,@0@,IOCS)002RDG2,^'04E2059^MLCA^00C,IOCS)002IOA2,IOCS)00 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: 2TAD2,^'04D2060^A^^^^00C,IOCS)002REC,IOCS)002TAD2,^'05G2061^C^^^^00CIOCS)002CPR2,IOCS)002LMN2,IOCS)0 1 11 1 1 1 1 1 11 1 1 1 1 601: 02TAD2,^'02C2062^BH^^^00B,*&8,^'03B2063^B^^^^00B,IOCS)002PDR2,^'03G2064^MLCA^00C,IOCS)002LMN2,*&11,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 701: '03A2065^MRCWG00C,IOCS80BCH,0,^'03G2066^A^^^^00C,@80@,IOCS)002LMN2,^'03B2067^B^^^^00B,IOCS)002CPR2,^ 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: '05G2068^BCE^^00DIOCS)002CHA2,IOCS)002CZ21,IOCS)002A2,1,^'03D2069^MLCS^00C,@2@,IOCS)002A2,^'03B2070^ 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 901: B^^^^00B,IOCS)002PD21,^'04F2071^MLCS^00CIOCS)002CZ21,@3@,IOCS)002A2,^' 1 1 1 11 1 1 1 1 1 1 1: 098D03B2072^B^^^^00B,IOCS)002PD21,^'06E2073^MLCWS00CIOCS)002SSC2,@00@,IOCS)002A2,^SUB^CHARACTER^RTN^ 1 1 1 1 1 1 11 1 1 1 1 1 101: '03F2074^MLCS^00C,@1@,IOCS)002SUB2,^'03D2075^CW^^^00B,IOCS)002ARSW&1,^'03I2076^BW^^^00C,IOCSCS2ENT,I 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: OCSINT2,^'03?2077^B^^^^00B,IOCSCS2LRT,^'06I2078^BW^^^00CIOCS)002PDR2,IOCSCS2ENT,IOCSINT2,^PROCESS^SC 1 11 1 1 1 1 11 1 1 1 1 1 301: HEDULER^'03I2079^SW^^^00BIOCS)002RT2,IOCSINT2,^'04G2080^MLCB^00C,&)023,)006,^SETUP^FOR^AREA^2^'03D20 11 1 1 1 1 11 1 1 1 1 1 11 1 401: 81^MLCA^00C,)006,IOCSLINF2,^'04A2082^MLCB^00C,&IOCS)002A2,IOCSLWMA2,^'03F2083^MLCS^00C,@1@,IOCS)002N 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: EXT,^'04?2084^MLCB^00C,&IOCS)002CL,IOCSLCL2,^'03E2085^MLCS^00C,IOCSLAB,IOCSSSS,^'03A2086^MLCS^00C,@2 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: @,IOCSLAB,^'04E2087^BCE^^00D,IOCS)002EPA2,IOCS)002A2,0,^'04?2088^MLCS^00C,IOCS)002A2,IOCSERIN2,^'02D 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 701: 2089^BEPA^00B,)042,^'03F2090^BEPA^00BIOCS)002EPA2,)040,^'05G2091SBER2^00BIOCS)002ERR3,*&8,^ERROR^ROU 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: TINES^AREA^1^'03A2092^B^^^^00B,IOCS)002ION,^'03D2093^MLCS^00C,@1@,IOCS)002A1,^'03A2094^B^^^^00B,IOCS 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: )002ION,^'04C2095^BEF2^00BIOCS)002ERR4,IOCS)002IG1,^'03A2096^BNT2^00B,IOCS)002IG1,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 099F03B2097^B^^^^00B,IOCS)002AR14,^'05H2098^MLCB^00CIOCS)002IG1,IOCS)002AR11-2,IOCS)002LMN1,^'04G209 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: 9^MLCA^00C,IOCS)002IOA1,IOCS)002AR12-2,^'04G2100^MLCA^00C,IOCS)002IOA1,IOCS)002AR11-2,^'04G2101^MLCA 1 1 1 1 11 1 1 1 1 1 11 1 201: ^00C,IOCS)002IOA1,IOCS)002AR13-2,^'03I2102^A^^^^00C,@80@,IOCS)002AR11-2,^'03I2103^A^^^^00C,@80@,IOCS 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: )002AR13-2,^'03F2104^A^^^^00C,@1@,IOCS)002CTR1,^'03H2105^BCE^^00D,*&8,IOCS)002CTR1,3,^'03B2106^B^^^^ 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 401: 00B,IOCS)002IG11,^'02C2107^BEF2^00B,*&8,^'03D2108^B^^^^00B,IOCS)002IG11&7,^'03F2109^MLCS^00C,@0@,IOC 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: S)002RDG1,^'03F2110^MLCS^00C,@0@,IOCS)002CTR1,^'03F2111^MLCS^00C,@0@,IOCS)002SUB1,^'03E2112^BEF2^00B 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: IOCS)002IG11,*&8,^'03B2113^BNT2^00B,IOCS)002BEM1,^'03I2114^BW^^^00C,IOCSCS2ENT,IOCSINT2,^'03?2115^B^ 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: ^^^00B,IOCSCS2LRT,^'05I2116^SW^^^00BIOCS)002BEM1,IOCS)002A1,^EOM^ROUT.^AREA^1^'02F2117^BOOL^00?S,)01 1 1 1 11 1 1 1 1 11 1 1 1 801: 1,,^'03D2118^SW^^^00B,IOCS)002ARSW&1,^'04F2119SBCE^^00D,IOCS)002PD1,IOCS)002RDG1,1,^'05C2120^BCE^^00 11 11 1 1 1 1 11 1 1 1 1 1 1 11 1 1 901: D,IOCS)002SSC1,)022,:,^SUBST.^RECORD^'05H2121^BCE^^00DIOCS)002PD1,IOCS)002CHA1,IOCS)002SUB1,1,^' 1 1 1 1 11 1 1 1 1 1 1 1 1: 096E04H2122^MLCS^00CIOCS)002PD11,@0@,IOCS)002CTR1,^'03F2123^MLCS^00C,@0@,IOCS)002SUB1,^'03F2124^MLCS 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^00C,@0@,IOCS)002RDG1,^'04E2125^MLCA^00C,IOCS)002IOA1,IOCS)002TAD1,^'04D2126^A^^^^00C,IOCS)002REC,IO 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: CS)002TAD1,^'05G2127^C^^^^00CIOCS)002CPR1,IOCS)002LMN1,IOCS)002TAD1,^'02C2128^BH^^^00B,*&8,^'03B2129 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: ^B^^^^00B,IOCS)002PDR1,^'03G2130^MLCA^00C,IOCS)002LMN1,*&11,^'03A2131^MRCWG00C,IOCS80BCH,0,^'03G2132 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: ^A^^^^00C,@80@,IOCS)002LMN1,^'03B2133^B^^^^00B,IOCS)002CPR1,^'05G2134^BCE^^00DIOCS)002CHA1,IOCS)002C 1 1 1 1 11 1 1 1 1 11 1 1 1 501: Z11,IOCS)002A1,1,^'03D2135^MLCS^00C,@2@,IOCS)002A1,^'03B2136^B^^^^00B,IOCS)002PD11,^'04F2137^MLCS^00 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: CIOCS)002CZ11,@3@,IOCS)002A1,^'03B2138^B^^^^00B,IOCS)002PD11,^'04G2139^MLCWS00CIOCS)002SSC1,@00@,IOC 1 1 1 11 1 1 1 1 11 1 1 1 1 701: S)002A1,^'03F2140^MLCS^00C,@1@,IOCS)002SUB1,^'02F2141^BOOL^00?S,)011,,^'03D2142^CW^^^00B,IOCS)002ARS 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 801: W&1,^'03I2143SBW^^^00C,IOCSCS2ENT,IOCSINT2,^'03?2144^B^^^^00B,IOCSCS2LRT,^'05A2145^BW^^^00CIOCS)002P 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 901: DR1,IOCSCS2ENT,IOCSINT2,^'03I2146^SW^^^00BIOCS)002RT3,IOCSINT2,^' 1 1 1 11 1 1 1 1 1 1: 093H04G2147^MLCB^00C,&)022,)006,^SETUP^FOR^AREA^1^'03D2148^MLCA^00C,)006,IOCSLINF2,^'04A2149^MLCB^00 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: C,&IOCS)002A1,IOCSLWMA2,^'03F2150^MLCS^00C,@2@,IOCS)002NEXT,^'04?2151^MLCB^00C,&IOCS)002CL,IOCSLCL2, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: ^'03E2152^MLCS^00C,IOCSLAB,IOCSSSS,^'03A2153^MLCS^00C,@2@,IOCSLAB,^'04E2154^BCE^^00D,IOCS)002EPA1,IO 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: CS)002A1,0,^'04?2155^MLCS^00C,IOCS)002A1,IOCSERIN2,^'02D2156^BEPA^00B,)042,^'03F2157^BEPA^00BIOCS)00 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: 2EPA1,)040,^'05?2158^MLCA^00CIOCS)002CL,IOCSLWMA2,*&11,^LEVRT^'02F2159^MLCWS00C,@00@,0,^'02H2160^CW^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: ^^00B,IOCSINT2,^'04A2161^BW^^^00C,IOCS)002CLOS,IOCSXYZ2,^'04D2162^BW^^^00C,IOCS)002CLOS,IOCS)002XYZ, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 601: ^'02I2163^B^^^^00B,IOCSPEND2,^'05B2164^SBR^^00BIOCS)002CLOS,IOCS)002CLXT&5,^CLOSE^'03A2165^SW^^^00B, 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: IOCS)002XYZ,^'03F2166^MLCS^00C,@0@,IOCS)002OPSW,^'03?2167^EQU^^00BIOCSX#055,*,^'02F2168^BOOL^00?S,)0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 11,,^'06?2169^BCE^^00D,IOCS)002P1,IOCS)002NEXT,1,^2^AREA^POLLING^'04B2170^BW^^^00C,IOCS)002RT2,IOCS) 11 11 1 1 1 1 1 1 11 1 1 1 1 901: 002A2,^'03?2171^B^^^^00B,IOCS)002P2,^' 1 11 1 1 1 1 1 1: 098H06G2172SBW^^^00CIOCS)002P1,IOCS)002RT3,IOCS)002A1,^1^AREA^POLLING^'05D2173^BW^^^00CIOCS)002P2,IO 1 1 1 1 1 1 1 11 1 1 1 101: CS)002CLW2,IOCS)002XYZ,^'03G2174^MATH^00?#055,#055&00001,,,,^'02I2175^B^^^^00B,IOCSX#055,^'05B2176^C 1 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 201: W^^^00CIOCS)002CLW2,IOCS)002XYZ,IOCSXYZ2,^'03C2177^B^^^^00BIOCS)002CLXT,0,^'05E2178REQU^^00BIOCS)002 1 1 1 1 11 1 1 1 1 11 1 1 301: GARB,*,^GARBAGE^READ^ON^ERROR^'04D2179^BOOL^00?R,)061*-)059*-)060*-)062,,^'02F2180^BOOL^00?S,)196,,^ 1 1 11 1 1 1 11 11 1 1 1 11 401: '04?2181^RQO^^00C,20,IOCSGARB,^1014^Q0R^'02C2182^BA2^^00B,*&1,^'03A2183^NRQO^00C,20,IOCSGARB,^'02F21 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 501: 84SBOOL^00?R,)197,,^'04?2185^RQO^^00C,21,IOCSGARB,^1014^Q1R^'02C2186^BA2^^00B,*&1,^'03A2187^NRQO^00C 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: ,21,IOCSGARB,^'04D2188RBOOL^00?R,)059*-)060*-)061*-)062,,^'03E2189^RTDO^00C,2,IOCSGARB,^1009^'02C219 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 701: 0^BA2^^00B,*&1,^'03?2191^NRTDO00C,2,IOCSGARB,^'04D2192RBOOL^00?R,)060*-)059*-)061*-)062,,^'03E2193^R 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 801: PTO^00C,2,IOCSGARB,^1011^'02C2194^BA2^^00B,*&1,^'03?2195^NRPTO00C,2,IOCSGARB,^'04D2196RBOOL^00?R,)06 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: 2*-)059*-)060*-)061,,^'02F2197^BOOL^00?S,)195,,^'03I2198^RLO^^00C,20,IOCSGARB,^TTY^L0R^' 11 11 1 1 1 11 11 1 1 1 1 1 1 1: 098E02C2199^BA2^^00B,*&1,^'03A2200^NRLO^00C,20,IOCSGARB,^'02F2201SBOOL^00?S,)194,,^'03I2202^RLO^^00C 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 101: ,21,IOCSGARB,^TTY^L1R^'02C2203^BA2^^00B,*&1,^'03A2204^NRLO^00C,21,IOCSGARB,^'02F2205SBOOL^00?R,)193, 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: ,^'03I2206^RLO^^00C,22,IOCSGARB,^TTY^L2R^'02C2207^BA2^^00B,*&1,^'03A2208^NRLO^00C,22,IOCSGARB,^'02C2 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: 209RBA2^^00B,*&1,^'03I2210^BW^^^00C,IOCSCS2ENT,IOCSINT2,^'03?2211^B^^^^00B,IOCSCS2LRT,^'03D2212^EQU^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 401: ^00B)04I,*,^FILENAME^'05?2213^DCW^^00BIOCS)002OPSW,@0@,^OPEN^OR^CLOSED^'05D2214^DC^^^00BIOCS)002A2,@ 1 1 1 11 1 1 1 1 11 1 1 1 501: 0@,^AREA^2^FULL^&^ERRORS^'05F2215^DC^^^00BIOCS)002XYZ,@^@,^CLOSE^ROUTINE^STARTED^'06B2216^DCW^^00BIO 1 11 1 1 1 1 11 1 1 601: CS)002NEXT,@1@,^WHICH^AREA^TO^PROCESS^NEXT^'05D2217^DC^^^00BIOCS)002A1,@0@,^AREA^1^FULL^&^ERRORS^'03 1 1 11 1 1 1 1 11 701: I2218^DCW^^00BIOCS)002LMN1,@^^^^^@,^'03I2219^DCW^^00BIOCS)002LMN2,@^^^^^@,^'03E2220^DCW^^00BIOCS)002 1 1 1 1 11 1 1 1 1 11 1 1 801: CTR1,@^@,^'03E2221^DCW^^00BIOCS)002CTR2,@^@,^'03E2222^DCW^^00BIOCS)002SUB1,@^@,^'03E2223^DCW^^00BIOC 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: S)002SUB2,@^@,^'03E2224^DCW^^00BIOCS)002GMWM,@"@,^'03D2225^DCW^^00BIOCS)002ACT,@A@,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096B03B2226^B^^^^00B,IOCS)002CLOS,^'03?2227^B^^^^00B,IOCSEXITRU,^'03I2228^DCW^^00BIOCS)002TAD1,@^^^^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: ^@,^'03I2229^DCW^^00BIOCS)002TAD2,@^^^^^@,^'03F2230^DCW^^00BIOCS)002IOA1,)022,^'03F2231^DCW^^00BIOCS 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: )002IOA2,)02C,^'03E2232^DCW^^00BIOCS)002REC,)005,^'03E2233^DCW^^00BIOCS)002RDG1,@0@,^'03E2234^DCW^^0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0BIOCS)002RDG2,@0@,^'02G2235^BOOL^00?P,-)063,,^'04A2236QBOOL^00?Q,)061,,^CHECK^FOR^1014^'03E2237^COM 1 1 11 1 1 1 11 11 1 1 1 11 11 1 401: P^00F,)05G,Q0W,,)196,,^'03E2238^COMP^00F,)05G,Q1W,,)197,,^'03C2239^BOOL^00?R,-)196*-)197,,^'03B2240^ 1 1 1 11 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 501: NOTE^00A201.XTF...EMD,^'05?2241^EMD..00B***201.XTF,ADAPTER^MISSING^1014,^'02G2242^BOOL^00?P,-)063,,^ 1 1 11 1 1 1 1 11 1 1 1 11 601: '04?2243QBOOL^00?Q,)062,,^CHECK^FOR^TTY^'03E2244^COMP^00F,)05G,L0W,,)195,,^'03E2245^COMP^00F,)05G,L1 11 1 1 1 11 11 1 1 1 1 11 11 11 1 1 1 1 701: W,,)194,,^'03E2246^COMP^00F,)05G,L2W,,)193,,^'03I2247^BOOL^00?R,-)195*-)194*-)193,,^'03B2248^NOTE^00 11 11 11 1 1 1 1 11 11 11 1 1 1 11 11 1 1 801: A202.XTF...EMD,^'04I2249^EMD..00B***202.XTF,ADAPTER^MISSING^TTY,^'02G2250^BOOL^00?P,-)063,,^'02G2251 1 11 1 1 1 1 11 1 1 1 11 11 1 901: ^BOOL^00?P,-)063,,^'04B2252QBOOL^00?R,-)060,,^CHECK^FOR^1011^' 1 1 11 11 1 1 1 11 1 1: 098F04B2253^BOOL^00?R,-)059,,^CHECK^FOR^1009^'03B2254^NOTE^00A203.XTF...EMD,^'05D2255^EMD..00B***203 1 1 1 1 1 11 11 1 1 1 11 1 1 101: .XTF,NO^ADAPTER^WAS^SPECIFIED,^'02G2256^BOOL^00?P,-)063,,^'04E2257RBOOL^00?Q,-)042,,^CHECK^FOR^ERRAD 1 1 11 1 1 1 11 11 1 1 1 11 201: DR^'03B2258^NOTE^00A205.XTF...EMD,^'05?2259^EMD..00B***205.XTF,NO^ERRADDR^SPECIFIED,^'02G2260^BOOL^0 11 1 1 1 11 1 1 1 1 11 1 1 301: 0?P,-)063,,^'04F2261QBOOL^00?Q,)198,,^BRANCH^IF^CHANNEL^2^'04E2262^SBR^^00BIOCS)002PUT,IOCS)002PTXT& 1 11 11 1 1 1 11 11 1 1 1 401: 5,^'06B2263^BCE^^00D,IOCS)002PTXT,IOCS)002OPSW,0,^CHECK^FOR^OPEN^'06?2264^BW^^^00C,IOCS)002BRT,IOCSW 1 11 1 1 1 1 1 1 11 1 1 1 1 501: TSW-4,^BR^IF^WRT^WAITINF^'03?2265^SW^^^00B,IOCSWTSW-4,^'03C2266^MLCA^00C,)006,IOCSWTSW,^'02F2267^BOO 1 11 1 1 1 1 11 1 1 1 1 1 11 1 601: L^00?R,)197,,^'03?2268^MLCS^00C,@C@,0&)006,^'02F2269RBOOL^00?R,)196,,^'03?2270^MLCS^00C,@B@,0&)006,^ 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: '02F2271RBOOL^00?R,)195,,^'03?2272^MLCS^00C,@D@,0&)006,^'02F2273RBOOL^00?R,)194,,^'03?2274^MLCS^00C, 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 801: @E@,0&)006,^'02F2275RBOOL^00?R,)193,,^'03?2276^MLCS^00C,@F@,0&)006,^'02F2277RBOOL^00?R,)059,,^'03?22 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 901: 78^MLCS^00C,@A@,0&)006,^'02G2279RA^^^^00C,&5,)006,^'03D2280^MLCA^00C,)006,IOCSWTCHN,^' 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 098E03F2281^MLCWA00C,IOCS5BLNK,0&)006,^'02I2282^SW^^^00B,IOCSCS1S1,^'03C2283^B^^^^00BIOCS)002PTXT,0, 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: ^'04E2284^MLCA^00CIOCS)002BRT,IOCSWTCHN,*&11,^'02F2285^MLCA^00C,)006,0,^'02F2286^BOOL^00?R,)197,,^'0 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 201: 3?2287^MLCS^00C,@C@,0&)006,^'02F2288RBOOL^00?R,)196,,^'03?2289^MLCS^00C,@B@,0&)006,^'02F2290RBOOL^00 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: ?R,)195,,^'03?2291^MLCS^00C,@D@,0&)006,^'02F2292RBOOL^00?R,)194,,^'03?2293^MLCS^00C,@E@,0&)006,^'02F 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 401: 2294RBOOL^00?R,)193,,^'03?2295^MLCS^00C,@F@,0&)006,^'02F2296RBOOL^00?R,)059,,^'03?2297^MLCS^00C,@A@, 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: 0&)006,^'02H2298RA^^^^00C,@5@,)006,^'03D2299^MLCA^00C,)006,IOCSWTCHN,^'03F2300^MLCWA00C,IOCS5BLNK,0& 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: )006,^'02I2301^SW^^^00B,IOCSCS1S1,^'03B2302^B^^^^00B,IOCS)002PTXT,^'04G2303^EQU^^00BIOCSW#075,*,^OUT 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: QUIRY^ROUTINE^'02F2304^BOOL^00?R,)197,,^'02H2305^NWQO^00C,11,00000,^'02F2306RBOOL^00?R,)196,,^'02H23 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 801: 07^NWQO^00C,10,00000,^'02F2308RBOOL^00?R,)195,,^'02H2309^NWLO^00C,10,00000,^'02F2310RBOOL^00?R,)194, 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 901: ,^'02H2311^NWLO^00C,11,00000,^'02F2312RBOOL^00?R,)193,,^'02H2313^NWLO^00C,12,00000,^' 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 098F02F2314RBOOL^00?R,)059,,^'02G2315^NWTDO00C,1,00000,^'03?2316RBA1^^00B,IOCS)002WS,^'02G2317^BOOL^ 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 101: 00?R,-)059,,^'04F2318^BW^^^00C,IOCS)002DAK1,IOCS)002RLS&1,^'03A2319^B^^^^00B,IOCS)002GNX,^'04E2320^C 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 201: W^^^00BIOCS)002DAK1,IOCS)002RLS&1,^'04?2321^C^^^^00C,IOCS)002OUTQ,@00000@,^'03A2322^BE^^^00B,IOCS)00 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 2DAK,^'03F2323^MLCA^00C,IOCS)002OUTQ,*&6,^'02A2324^CW^^^00B,0,^'05A2325^MLCB^00CIOCS)002DAK,@00000@, 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: IOCS)002OUTQ,^'03G2326RMATH^00?#075,#075&00001,,,,^'04?2327^B^^^^00BIOCS)002GNX,IOCSW#075,^'02G2328^ 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 501: BOOL^00?R,-)059,,^'04A2329^BCB1^00BIOCS)002WS,IOCS)002GNX,^'04F2330^BW^^^00C,IOCS)002DAK2,IOCS)002RL 1 1 11 11 1 1 1 1 11 1 1 1 1 601: S&1,^'03A2331^B^^^^00B,IOCS)002GNX,^'04I2332^MLCB^00CIOCS)002DAK2,IOCS)002OUTQ,)006,^'03D2333^MLCS^0 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: 0C,@2@,IOCSEROUT1,^'02D2334^B^^^^00B,)042,^'03D2335^SBR^^00B,IOCS)002TYT&10,^'03H2336^A^^^^00C,@1@,I 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: OCS)002TYT&10,^'04D2337^BW^^^00CIOCS)002TYT,IOCS)002RTY,0,^'03B2338^B^^^^00B,IOCS)002DAK1,^'05C2339^ 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: BW^^^00CIOCS)002RTY,IOCS)002JON,IOCSWTSW-4,^'04A2340^MLCA^00C,IOCS)002OUTQ,IOCSWTSW,^' 1 1 1 1 11 1 1 1 1 1 1 1: 098I03C2341^CW^^^00B,IOCS)002RLS&1,^'02I2342^B^^^^00B,IOCSW#075,^'05I2343^MLCA^00CIOCS)002JON,IOCS)0 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 02OUTQ,IOCS)002JON1&10,^'03I2344^A^^^^00C,@5@,IOCS)002JON1&10,^'04B2345^MLCA^00CIOCS)002JON1,IOCSWTS 1 1 11 1 1 1 1 1 11 1 1 1 201: W,0,^'04A2346^MLCA^00C,IOCS)002OUTQ,IOCSWTSW,^'03A2347^B^^^^00B,IOCS)002GNX,^'02F2348RBOOL^00?R,)059 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 301: ,,^'05A2349^BCB1^00BIOCS)002WS,IOCS)002GNX,^1009^BUSY^'06C2350^BW^^^00C,IOCS)002DAK2,IOCS)002RLS&1,^ 11 11 1 1 1 1 11 1 1 1 1 1 401: BRANCH^IF^IN^USE^'03A2351^B^^^^00B,IOCS)002GNX,^'05H2352^BEF1^00BIOCS)002DAK2,IOCS)002DAK3,^ERROR^EX 11 1 1 1 1 11 1 1 1 1 501: ISTED^'03E2353^BNT1^00B,IOCS)002NT1,^EOM^'03A2354^B^^^^00B,IOCS)002GNX,^'05F2355^CW^^^00BIOCS)002NT1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ,IOCS)002RLS&1,^EOM^ROUTINE^'06F2356^BCE^^00D,IOCS)002RTY,IOCS)002ERIN,1,^ERROR^INDICATOR^SET^'04G23 1 1 11 1 1 1 1 1 1 11 1 701: 57^MLCA^00CIOCS)002NT5,IOCS)002OUTQ,*&6,^'02A2358^CW^^^00B,0,^'04?2359^MLCB^00C,@00000@,IOCS)002OUTQ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: ,^'03F2360^MLCS^00C,@0@,IOCS)002CTRB,^'03F2361^MLCS^00C,@0@,IOCS)002CTRA,^'04B2362^C^^^^00CIOCS)002X 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 901: XX,IOCS5BLNK,0,^'03A2363^BE^^^00B,IOCS)002NT2,^'04A2364^MLCB^00CIOCS)002YYY,0,IOCSWTSW,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098E03?2365^SW^^^00B,IOCSWTSW-4,^'03A2366^B^^^^00B,IOCS)002TTT,^'04A2367^CW^^^00BIOCS)002NT2,IOCSWTS 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: W-4,^'03A2368^NOP^^00BIOCS)002TTT,,^'03A2369^B^^^^00B,IOCS)002GNX,^'03C2370^SW^^^00B,IOCS)002TTT&1,^ 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 201: '02G2371^B^^^^00B,IOCSWT2,^'06A2372^A^^^^00CIOCS)002RTY,@1@,IOCS)002CTRA,^ERROR^EXISTED^'04F2373^BCE 11 1 1 1 1 11 1 1 1 1 1 11 1 301: ^^00D,IOCS)002GER,IOCS)002CTRA,3,^'03F2374^MLCS^00C,@0@,IOCS)002ERIN,^'03A2375^B^^^^00B,IOCS)002TTT, 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: ^'04G2376^MLCS^00CIOCS)002GER,@0@,IOCS)002CTRA,^'03G2377^MLCB^00C,IOCS)002OUTQ,)006,^'03F2378^MLCS^0 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0C,@0@,IOCS)002ERIN,^'04A2379^MLCS^00C,IOCS)002A1,IOCSEROUT1,^'03D2380^MLCS^00C,@0@,IOCS)002A1,^'03E 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 2381^B^^^^00B,)042,^TO^ERRADDR^'04D2382^SBR^^00B,IOCS)002TYT&10,^FROM^USER^'03H2383^A^^^^00C,@1@,IOC 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: S)002TYT&10,^'04D2384^BW^^^00CIOCS)002TYT,IOCS)002RY1,0,^'03H2385^B^^^^00B,IOCS)002NT5,^FORGET^'04H2 1 11 1 1 1 1 1 11 1 1 1 1 11 1 801: 386^B^^^^00BIOCS)002RY1,IOCS)002GNX,^RETRY^'06B2387^MLCS^00CIOCS)002DAK3,@1@,IOCS)002ERIN,^ERROR^ROU 1 1 1 11 1 1 1 1 1 901: TINE^'04E2388^BCE^^00D,IOCS)002DAK4,IOCS)002A1,1,^'03D2389^MLCS^00C,@2@,IOCS)002A1,^' 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1: 098D03B2390^B^^^^00B,IOCS)002DAK5,^'04F2391^MLCS^00CIOCS)002DAK4,@3@,IOCS)002A1,^'04C2392^BNT1^00BIO 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: CS)002DAK5,IOCS)002NT1,^'03?2393^WTDO^00C,1,IOCSENDR,^'03B2394^BA1^^00B,IOCS)002DAK5,^'03A2395^B^^^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: 00B,IOCS)002GNX,^'03B2396REQU^^00BIOCS)002RLS,*,^'02F2397^BOOL^00?R,)197,,^'02I2398^BOOL^00?,)063,#1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: 20,^'04F2399^NOPWM00BIOCSCWS,,^1014^Q1W^WRT^SCHED^'02G2400^B^^^^00B,IOCSWT2,^'02F2401RBOOL^00?R,)196 1 11 1 1 11 11 1 1 1 1 11 1 1 1 401: ,,^'02I2402^BOOL^00?,)063,#119,^'04F2403^NOPWM00BIOCSBWS,,^1014^Q0W^WRT^SCHED^'02G2404^B^^^^00B,IOCS 11 11 1 1 1 1 1 11 1 1 11 11 1 1 1 501: WT2,^'02F2405RBOOL^00?R,)195,,^'02I2406^BOOL^00?,)063,#118,^'04E2407^NOPWM00BIOCSDWS,,^TGF^L0W^WRT^S 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 11 601: CHED^'02G2408^B^^^^00B,IOCSWT2,^'02F2409RBOOL^00?R,)194,,^'02I2410^BOOL^00?,)063,#117,^'04E2411^NOPW 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 701: M00BIOCSEWS,,^TGF^L1W^WRT^SCHED^'02G2412^B^^^^00B,IOCSWT2,^'02F2413RBOOL^00?R,)193,,^'02I2414^BOOL^0 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 801: 0?,)063,#116,^'04E2415^NOPWM00BIOCSFWS,,^TGF^L2W^WRT^SCHED^'02G2416^B^^^^00B,IOCSWT2,^'02F2417RBOOL^ 1 1 1 11 1 1 11 11 1 1 1 1 11 1 901: 00?R,)059,,^'02I2418^BOOL^00?,)063,#115,^'04B2419^NOPWM00BIOCSAWS,,^1009^WRT^SCHED^' 1 1 11 11 1 1 1 1 1 11 1 1 11 1 1: 099?03A2420^B^^^^00B,IOCS)002ADD,^'02F2421RBOOL^00?R,-)059,^'04A2422^MLCB^00C,IOCSWTSW,IOCS)002OUTQ, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 101: ^'03B2423^A^^^^00C,@5@,IOCSWTSW,^'04C2424^MLCA^00C,IOCSWTSW,IOCS)002XXX&10,^'04B2425^MLCA^00C,IOCSWT 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: SW,IOCS)002YYY&5,^'03B2426^A^^^^00C,@1@,IOCSWTSW,^'03B2427^MLCA^00C,IOCSWTSW,*&9,^'02F2428^BOOL^00?S 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: ,)197,,^'03F2429^WQO^^00CIOCS)002WRT9,11,0,^'02F2430SBOOL^00?S,)196,,^'03F2431^WQO^^00CIOCS)002WRT9, 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 401: 10,0,^'02F2432SBOOL^00?S,)195,,^'03F2433^WLO^^00CIOCS)002WRT9,10,0,^'02F2434SBOOL^00?S,)194,,^'03F24 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 501: 35^WLO^^00CIOCS)002WRT9,11,0,^'02F2436SBOOL^00?S,)193,,^'03F2437^WLO^^00CIOCS)002WRT9,12,0,^'03A2438 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 601: SBA1^^00B,IOCS)002ERO,^'03C2439^SW^^^00B,IOCS)002RLS&1,^'04B2440^C^^^^00CIOCS)002XXX,IOCS5BLNK,0,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: 3A2441^BE^^^00B,IOCS)002ZZZ,^'04A2442^MLCB^00CIOCS)002YYY,0,IOCSWTSW,^'03?2443^SW^^^00B,IOCSWTSW-4,^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: '02F2444^B^^^^00B,IOCSWT,^'04A2445^CW^^^00BIOCS)002ZZZ,IOCSWTSW-4,^'02G2446^B^^^^00B,IOCSWT2,^'02F24 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: 47RBOOL^00?R,)059,,^'03C2448^SW^^^00B,IOCS)002RLS&1,^'03F2449^MLCS^00C,@0@,IOCS)002CTRB,^' 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1 1: 099D04A2450^MLCB^00C,IOCSWTSW,IOCS)002OUTQ,^'03B2451^A^^^^00C,@5@,IOCSWTSW,^'04C2452^MLCA^00C,IOCSWT 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: SW,IOCS)002XXX&10,^'04B2453^MLCA^00C,IOCSWTSW,IOCS)002YYY&5,^'04A2454^MLCA^00C,IOCSWTSW,IOCS)002M1&5 1 1 11 1 1 1 1 1 11 1 1 1 1 201: ,^'04A2455^MLCA^00C,IOCS)002OUTQ,IOCSWTSW,^'03I2456^A^^^^00CIOCS)002ADD,@80@,*&6,^'04G2457^MLCB^00CI 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: OCS)002M1,0,IOCS)002OUTP&79,^'04F2458^WTDO^00CIOCS)002WRT9,1,IOCS)002OUTP,^'03A2459^BA1^^00B,IOCS)00 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 2ERO,^'03F2460^A^^^^00C,@1@,IOCS)002CTRB,^'03H2461^BCE^^00D,*&8,IOCS)002CTRB,2,^'03A2462^B^^^^00B,IO 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 501: CS)002ADD,^'03F2463^S^^^^00C,@1@,IOCS)002CTRB,^'02G2464^B^^^^00B,IOCSWT2,^'03B2465REQU^^00BIOCS)002E 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: RO,*,^'02F2466^BOOL^00?R,)059,,^'02C2467^BCB1^00B,*&8,^'03A2468^B^^^^00B,IOCS)002ERA,^'03G2469^S^^^^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 701: 00C,@80@,IOCS)002M1&5,^'02G2470^B^^^^00B,IOCSWT2,^'04G2471RA^^^^00CIOCS)002ERA,@1@,IOCS)002CTRA,^'04 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 801: F2472^BCE^^00D,IOCS)002ERB,IOCS)002CTRA,3,^'03B2473^B^^^^00B,IOCS)002WRT9,^'04G2474^MLCS^00CIOCS)002 1 1 1 1 1 1 11 1 1 1 1 11 1 1 901: ERB,@0@,IOCS)002CTRA,^'03G2475^MLCA^00C,IOCS)002OUTQ,)006,^'03D2476^MLCS^00C,@1@,IOCSEROUT1,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 096H02D2477^B^^^^00B,)042,^'04G2478^SBR^^00B,IOCS)002GOW&10,^USERS^RETURN^'03H2479^A^^^^00C,@1@,IOCS 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: )002GOW&10,^'03B2480^EQU^^00BIOCS)002GOW,*,^'02G2481^BOOL^00?R,-)059,,^'04D2482^BW^^^00C,IOCS)002WRT 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: 9,0,^TRY^AGAIN^'03F2483^MLCA^00C,IOCS)002OUTQ,*&6,^'03E2484^CW^^^00C,0,IOCS)002RLS&1,^'03H2485^B^^^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 00B,IOCS)002XXX,^ACCEPT^'02F2486RBOOL^00?R,)059,,^'03D2487^BW^^^00C,IOCS)002WRT9,0,^'03F2488^MLCS^00 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 401: C,@0@,IOCS)002ERIN,^'03C2489^CW^^^00B,IOCS)002TTT&1,^'03A2490^B^^^^00B,IOCS)002NT1,^'02E2491REQU^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: B)04I,*,^'05?2492^DCW^^00BIOCS)002OPSW,@0@,^OPEN^OR^CLOSED^'03E2493^DCW^^00BIOCS)002CTRA,@^@,^'03E24 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 94^DCW^^00BIOCS)002CTRB,@^@,^'03C2495^DCW^^00BIOCS)002A1,@0@,^'03I2496^DCW^^00BIOCS)002OUTQ,@00000@, 1 1 1 11 1 1 1 1 11 1 1 1 1 701: ^'03C2497^DC^^^00B,@00000000000@,^'03D2498^DCW^^00BIOCS)002ACT,@A@,^'03?2499^B^^^^00B,IOCSEXITRU,^'0 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 2?2500^NOP^^00B,,^'02F2501^BOOL^00?R,)059,,^'03H2502^DA^^^00CIOCS)002OUTP,1X80,G,^'02C2503^^^^^^00C, 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 901: 1,1,^'03E2504RDCW^^00BIOCS)002ERIN,@^@,^'02G2505^BOOL^00?P,-)063,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098F04E2506QSBR^^00BIOCS)002PUT,IOCS)002PTXT&5,^'06B2507^BCE^^00D,IOCS)002PTXT,IOCS)002OPSW,0,^CHECK 1 1 1 1 1 1 11 1 1 1 1 1 1 101: ^FOR^OPEN^'06A2508^BW^^^00C,IOCS)002BRT,IOCSWTSW2-4,^BR^IF^WRT^WAITING^'03A2509^SW^^^00B,IOCSWTSW2-4 11 1 1 1 1 1 11 1 1 1 201: ,^'03D2510^MLCA^00C,)006,IOCSWTSW2,^'02F2511^BOOL^00?Q,)197,,^'03?2512^MLCS^00C,@C@,0&)006,^'02F2513 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 301: QBOOL^00?Q,)196,,^'03?2514^MLCS^00C,@B@,0&)006,^'02F2515QBOOL^00?Q,)195,,^'03?2516^MLCS^00C,@D@,0&)0 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: 06,^'02F2517QBOOL^00?Q,)194,,^'03?2518^MLCS^00C,@E@,0&)006,^'02F2519QBOOL^00?Q,)193,,^'03?2520^MLCS^ 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 501: 00C,@F@,0&)006,^'02F2521QBOOL^00?Q,)059,,^'03?2522^MLCS^00C,@A@,0&)006,^'02G2523QA^^^^00C,&5,)006,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1 601: 03E2524^MLCA^00C,)006,IOCSWTCHN2,^'03F2525^MLCWA00C,IOCS5BLNK,0&)006,^'02I2526^SW^^^00B,IOCSCS2S1,^' 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 701: 03C2527^B^^^^00BIOCS)002PTXT,0,^'05I2528^MLCA^00CIOCS)002BRT,IOCSWTCHN2,*&11,^EXTEND^CHAIN^'02F2529^ 1 1 1 1 1 11 1 1 1 1 1 11 1 801: MLCA^00C,)006,0,^'02F2530^BOOL^00?Q,)197,,^'03?2531^MLCS^00C,@C@,0&)006,^'02F2532QBOOL^00?Q,)196,,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 901: 03?2533^MLCS^00C,@B@,0&)006,^'02F2534QBOOL^00?Q,)195,,^'03?2535^MLCS^00C,@D@,0&)006,^' 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 098H02F2536QBOOL^00?Q,)194,,^'03?2537^MLCS^00C,@E@,0&)006,^'02F2538QBOOL^00?Q,)193,,^'03?2539^MLCS^0 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 101: 0C,@F@,0&)006,^'02F2540QBOOL^00?Q,)059,,^'03?2541^MLCS^00C,@A@,0&)006,^'02H2542QA^^^^00C,@5@,)006,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1 201: 03E2543^MLCA^00C,)006,IOCSWTCHN2,^'03F2544^MLCWA00C,IOCS5BLNK,0&)006,^'02I2545^SW^^^00B,IOCSCS2S1,^' 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: 03B2546^B^^^^00B,IOCS)002PTXT,^'04G2547^EQU^^00BIOCSW#065,*,^OUTQUIRY^ROUTINE^'02F2548^BOOL^00?Q,)19 1 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 7,,^'02H2549^NWQO^00C,21,00000,^'02F2550QBOOL^00?Q,)196,,^'02H2551^NWQO^00C,20,00000,^'02F2552QBOOL^ 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: 00?Q,)195,,^'02H2553^NWLO^00C,20,00000,^'02F2554QBOOL^00?Q,)194,,^'02H2555^NWLO^00C,21,00000,^'02F25 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 601: 56QBOOL^00?Q,)193,,^'02H2557^NWLO^00C,22,00000,^'02F2558QBOOL^00?Q,)059,,^'02G2559^NWTDO00C,2,00000, 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: ^'03?2560QBA2^^00B,IOCS)002WS,^'02G2561^BOOL^00?Q,-)059,,^'04F2562^BW^^^00C,IOCS)002DAK1,IOCS)002RLS 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 801: &1,^'03A2563^B^^^^00B,IOCS)002GNX,^'04E2564^CW^^^00BIOCS)002DAK1,IOCS)002RLS&1,^'04?2565^C^^^^00C,IO 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: CS)002OUTQ,@00000@,^'03A2566^BE^^^00B,IOCS)002DAK,^'03F2567^MLCA^00C,IOCS)002OUTQ,*&6,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 095A02A2568^CW^^^00B,0,^'05A2569^MLCB^00CIOCS)002DAK,@00000@,IOCS)002OUTQ,^'03G2570QMATH^00?#065,#06 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 5&00001,,,,^'04?2571^B^^^^00BIOCS)002GNX,IOCSW#065,^'02G2572^BOOL^00?Q,-)059,,^'04A2573^BCB2^00BIOCS 1 1111 11 1 1 1 1 11 1 1 1 11 11 1 1 201: )002WS,IOCS)002GNX,^'04F2574^BW^^^00C,IOCS)002DAK2,IOCS)002RLS&1,^'03A2575^B^^^^00B,IOCS)002GNX,^'04 1 1 11 1 1 1 1 1 11 1 1 1 1 11 301: I2576^MLCB^00CIOCS)002DAK2,IOCS)002OUTQ,)006,^'03D2577^MLCS^00C,@2@,IOCSEROUT2,^'02D2578^B^^^^00B,)0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 42,^'03D2579^SBR^^00B,IOCS)002TYT&10,^'03H2580^A^^^^00C,@1@,IOCS)002TYT&10,^'04D2581^BW^^^00CIOCS)00 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 2TYT,IOCS)002RTY,0,^'03B2582^B^^^^00B,IOCS)002DAK1,^'05D2583^BW^^^00CIOCS)002RTY,IOCS)002JON,IOCSWTS 1 1 1 11 1 1 1 1 11 1 1 1 1 601: W2-4,^'04B2584^MLCA^00C,IOCS)002OUTQ,IOCSWTSW2,^'03C2585^CW^^^00B,IOCS)002RLS&1,^'02I2586^B^^^^00B,I 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: OCSW#065,^'05I2587^MLCA^00CIOCS)002JON,IOCS)002OUTQ,IOCS)002JON1&10,^'03I2588^A^^^^00C,@5@,IOCS)002J 1 11 1 1 1 1 1 11 1 1 1 1 801: ON1&10,^'04C2589^MLCA^00CIOCS)002JON1,IOCSWTSW2,0,^'04B2590^MLCA^00C,IOCS)002OUTQ,IOCSWTSW2,^'03A259 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: 1^B^^^^00B,IOCS)002GNX,^'02F2592QBOOL^00?Q,)059,,^' 1 1 1 11 1 1 1 11 1 1: 097H05A2593^BCB2^00BIOCS)002WS,IOCS)002GNX,^1009^BUSY^'06C2594^BW^^^00C,IOCS)002DAK2,IOCS)002RLS&1,^ 1 1 1 1 1 1 11 1 1 1 1 1 101: BRANCH^IF^IN^USE^'03A2595^B^^^^00B,IOCS)002GNX,^'05H2596^BEF2^00BIOCS)002DAK2,IOCS)002DAK3,^ERROR^EX 11 1 1 1 1 11 1 1 1 1 201: ISTED^'03E2597^BNT2^00B,IOCS)002NT1,^EOM^'03A2598^B^^^^00B,IOCS)002GNX,^'05F2599^CW^^^00BIOCS)002NT1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: ,IOCS)002RLS&1,^EOM^ROUTINE^'06F2600^BCE^^00D,IOCS)002RTY,IOCS)002ERIN,1,^ERROR^INDICATOR^SET^'04G26 1 1 11 1 1 1 1 1 1 11 1 401: 01^MLCA^00CIOCS)002NT5,IOCS)002OUTQ,*&6,^'02A2602^CW^^^00B,0,^'04?2603^MLCB^00C,@00000@,IOCS)002OUTQ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: ,^'03F2604^MLCS^00C,@0@,IOCS)002CTRB,^'03F2605^MLCS^00C,@0@,IOCS)002CTRA,^'04B2606^C^^^^00CIOCS)002X 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: XX,IOCS5BLNK,0,^'03A2607^BE^^^00B,IOCS)002NT2,^'04B2608^MLCB^00CIOCS)002YYY,0,IOCSWTSW2,^'03A2609^SW 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: ^^^00B,IOCSWTSW2-4,^'03A2610^B^^^^00B,IOCS)002TTT,^'04B2611^CW^^^00BIOCS)002NT2,IOCSWTSW2-4,^'03A261 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 2^NOP^^00BIOCS)002TTT,,^'03A2613^B^^^^00B,IOCS)002GNX,^'03C2614^SW^^^00B,IOCS)002TTT&1,^'02H2615^B^^ 1 11 11 1 1 1 1 11 1 1 1 1 11 1 901: ^^00B,IOCS2WT2,^'06A2616^A^^^^00CIOCS)002RTY,@1@,IOCS)002CTRA,^ERROR^EXISTED^' 1 1 1 11 1 1 1 1 1 1 1: 097B04F2617^BCE^^00D,IOCS)002GER,IOCS)002CTRA,3,^'03F2618^MLCS^00C,@0@,IOCS)002ERIN,^'03A2619^B^^^^0 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: 0B,IOCS)002TTT,^'04G2620^MLCS^00CIOCS)002GER,@0@,IOCS)002CTRA,^'03G2621^MLCB^00C,IOCS)002OUTQ,)006,^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: '03F2622^MLCS^00C,@0@,IOCS)002ERIN,^'04A2623^MLCS^00C,IOCS)002A1,IOCSEROUT2,^'03D2624^MLCS^00C,@0@,I 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: OCS)002A1,^'03E2625^B^^^^00B,)042,^TO^ERRADDR^'04D2626^SBR^^00B,IOCS)002TYT&10,^FROM^USER^'03H2627^A 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^^^^00C,@1@,IOCS)002TYT&10,^'04D2628^BW^^^00CIOCS)002TYT,IOCS)002RY1,0,^'03H2629^B^^^^00B,IOCS)002NT 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 5,^FORGET^'04H2630^B^^^^00BIOCS)002RY1,IOCS)002GNX,^RETRY^'06B2631^MLCS^00CIOCS)002DAK3,@1@,IOCS)002 1 11 1 1 1 1 11 1 1 1 1 601: ERIN,^ERROR^ROUTINE^'04E2632^BCE^^00D,IOCS)002DAK4,IOCS)002A1,1,^'03D2633^MLCS^00C,@2@,IOCS)002A1,^' 1 11 1 1 1 1 1 1 11 1 1 1 1 1 1 701: 03B2634^B^^^^00B,IOCS)002DAK5,^'04F2635^MLCS^00CIOCS)002DAK4,@3@,IOCS)002A1,^'04C2636^BNT2^00BIOCS)0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 801: 02DAK5,IOCS)002NT1,^'03?2637^WTDO^00C,2,IOCSENDR,^'03B2638^BA2^^00B,IOCS)002DAK5,^'03A2639^B^^^^00B, 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: IOCS)002GNX,^'03B2640QEQU^^00BIOCS)002RLS,*,^'02F2641^BOOL^00?Q,)197,,^' 1 11 1 1 1 1 11 1 1 1 11 1 1: 097E02I2642^BOOL^00?,)063,#127,^'04G2643^NOPWM00BIOCS2CWS,,^1014^Q1W^WRT^SCHED^'02H2644^B^^^^00B,IOC 1 1 1 1 1 1 1 11 1 1 11 11 1 1 1 101: S2WT2,^'02F2645QBOOL^00?Q,)196,,^'02I2646^BOOL^00?,)063,#126,^'04G2647^NOPWM00BIOCS2BWS,,^1014^Q0W^W 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 11 201: RT^SCHED^'02H2648^B^^^^00B,IOCS2WT2,^'02F2649QBOOL^00?Q,)195,,^'02I2650^BOOL^00?,)063,#125,^'04F2651 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 301: ^NOPWM00BIOCS2DWS,,^TGF^L0W^WRT^SCHED^'02H2652^B^^^^00B,IOCS2WT2,^'02F2653QBOOL^00?Q,)194,,^'02I2654 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: ^BOOL^00?,)063,#124,^'04F2655^NOPWM00BIOCS2EWS,,^TGF^L1W^WRT^SCHED^'02H2656^B^^^^00B,IOCS2WT2,^'02F2 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 501: 657QBOOL^00?Q,)193,,^'02I2658^BOOL^00?,)063,#123,^'04F2659^NOPWM00BIOCS2FWS,,^TGF^L2W^WRT^SCHED^'02H 1 1 11 11 1 1 1 1 1 11 1 1 11 11 601: 2660^B^^^^00B,IOCS2WT2,^'02F2661QBOOL^00?Q,)059,,^'02I2662^BOOL^00?,)063,#122,^'04C2663^NOPWM00BIOCS 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 701: 2AWS,,^1009^WRT^SCHED^'03A2664^B^^^^00B,IOCS)002ADD,^'02F2665QBOOL^00?Q,-)059,^'04B2666^MLCB^00C,IOC 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: SWTSW2,IOCS)002OUTQ,^'03C2667^A^^^^00C,@5@,IOCSWTSW2,^'04D2668^MLCA^00C,IOCSWTSW2,IOCS)002XXX&10,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 901: 4C2669^MLCA^00C,IOCSWTSW2,IOCS)002YYY&5,^'03C2670^A^^^^00C,@1@,IOCSWTSW2,^' 1 1 1 1 1 11 1 1 1 1 1 1 1: 099E03C2671^MLCA^00C,IOCSWTSW2,*&9,^'02F2672^BOOL^00?R,)197,,^'03F2673^WQO^^00CIOCS)002WRT9,21,0,^'0 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 101: 2F2674RBOOL^00?R,)196,,^'03F2675^WQO^^00CIOCS)002WRT9,20,0,^'02F2676RBOOL^00?R,)195,,^'03F2677^WLO^^ 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 201: 00CIOCS)002WRT9,20,0,^'02F2678RBOOL^00?R,)194,,^'03F2679^WLO^^00CIOCS)002WRT9,21,0,^'02F2680RBOOL^00 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: ?R,)193,,^'03F2681^WLO^^00CIOCS)002WRT9,22,0,^'03A2682RBA2^^00B,IOCS)002ERO,^'03C2683^SW^^^00B,IOCS) 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 002RLS&1,^'04B2684^C^^^^00CIOCS)002XXX,IOCS5BLNK,0,^'03A2685^BE^^^00B,IOCS)002ZZZ,^'04B2686^MLCB^00C 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: IOCS)002YYY,0,IOCSWTSW2,^'03A2687^SW^^^00B,IOCSWTSW2-4,^'02G2688^B^^^^00B,IOCS2WT,^'04B2689^CW^^^00B 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: IOCS)002ZZZ,IOCSWTSW2-4,^'02H2690^B^^^^00B,IOCS2WT2,^'02F2691QBOOL^00?Q,)059,,^'03C2692^SW^^^00B,IOC 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: S)002RLS&1,^'03F2693^MLCS^00C,@0@,IOCS)002CTRB,^'04B2694^MLCB^00C,IOCSWTSW2,IOCS)002OUTQ,^'03C2695^A 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 801: ^^^^00C,@5@,IOCSWTSW2,^'04D2696^MLCA^00C,IOCSWTSW2,IOCS)002XXX&10,^'04C2697^MLCA^00C,IOCSWTSW2,IOCS) 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 901: 002YYY&5,^'04B2698^MLCA^00C,IOCSWTSW2,IOCS)002M1&5,^'04B2699^MLCA^00C,IOCS)002OUTQ,IOCSWTSW2,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 096H03I2700^A^^^^00CIOCS)002ADD,@80@,*&6,^'04G2701^MLCB^00CIOCS)002M1,0,IOCS)002OUTP&79,^'04F2702^WT 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: DO^00CIOCS)002WRT9,2,IOCS)002OUTP,^'03A2703^BA2^^00B,IOCS)002ERO,^'03F2704^A^^^^00C,@1@,IOCS)002CTRB 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ,^'03H2705^BCE^^00D,*&8,IOCS)002CTRB,2,^'03A2706^B^^^^00B,IOCS)002ADD,^'03F2707^S^^^^00C,@1@,IOCS)00 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: 2CTRB,^'02H2708^B^^^^00B,IOCS2WT2,^'03B2709QEQU^^00BIOCS)002ERO,*,^'02F2710^BOOL^00?Q,)059,,^'02C271 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: 1^BCB2^00B,*&8,^'03A2712^B^^^^00B,IOCS)002ERA,^'03G2713^S^^^^00C,@80@,IOCS)002M1&5,^'02H2714^B^^^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 501: B,IOCS2WT2,^'04G2715QA^^^^00CIOCS)002ERA,@1@,IOCS)002CTRA,^'04F2716^BCE^^00D,IOCS)002ERB,IOCS)002CTR 1 1 11 1 1 1 1 1 11 1 1 1 1 601: A,3,^'03B2717^B^^^^00B,IOCS)002WRT9,^'04G2718^MLCS^00CIOCS)002ERB,@0@,IOCS)002CTRA,^'03G2719^MLCA^00 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: C,IOCS)002OUTQ,)006,^'03D2720^MLCS^00C,@1@,IOCSEROUT1,^'02D2721^B^^^^00B,)042,^'04G2722^SBR^^00B,IOC 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 801: S)002GOW&10,^USERS^RETURN^'03H2723^A^^^^00C,@1@,IOCS)002GOW&10,^'03B2724^EQU^^00BIOCS)002GOW,*,^'02G 1 11 1 1 1 1 1 11 1 1 1 1 11 901: 2725^BOOL^00?Q,-)059,,^'04D2726^BW^^^00C,IOCS)002WRT9,0,^TRY^AGAIN^' 1 1 1 11 11 1 1 1 1 1 1 1: 099?03F2727^MLCA^00C,IOCS)002OUTQ,*&6,^'03E2728^CW^^^00C,0,IOCS)002RLS&1,^'03H2729^B^^^^00B,IOCS)002 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: XXX,^ACCEPT^'02F2730QBOOL^00?Q,)059,,^'03D2731^BW^^^00C,IOCS)002WRT9,0,^'03F2732^MLCS^00C,@0@,IOCS)0 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 201: 02ERIN,^'03C2733^CW^^^00B,IOCS)002TTT&1,^'03A2734^B^^^^00B,IOCS)002NT1,^'02E2735QEQU^^00B)04I,*,^'05 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 301: ?2736^DCW^^00BIOCS)002OPSW,@0@,^OPEN^OR^CLOSED^'03E2737^DCW^^00BIOCS)002CTRA,@^@,^'03E2738^DCW^^00BI 1 1 1 1 11 1 1 1 1 11 1 1 401: OCS)002CTRB,@^@,^'03C2739^DCW^^00BIOCS)002A1,@0@,^'03I2740^DCW^^00BIOCS)002OUTQ,@00000@,^'03C2741^DC 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^^^00B,@00000000000@,^'03D2742^DCW^^00BIOCS)002ACT,@A@,^'03?2743^B^^^^00B,IOCSEXITRU,^'02?2744^NOP^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: 00B,,^'02F2745^BOOL^00?Q,)059,,^'03H2746^DA^^^00CIOCS)002OUTP,1X80,G,^'02C2747^^^^^^00C,1,1,^'03E274 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 701: 8QDCW^^00BIOCS)002ERIN,@^@,^'04C2749PCOMP^00F,)00A,3,,)189,,^TEST^7750^'02G2750^BOOL^00?P,-)189,,^'0 1 1 1 11 1 1 1 1 11 11 11 1 1 1 11 11 801: 4C2751^COMP^00F,)00A,4,,)189,,^TEST^1440^'02F2752^BOOL^00?Q,)189,,^'05G2753PFOR^^00B*,PROGRAMMED^TRA 1 1 1 1 11 11 11 1 1 1 11 11 1 1 1 901: NSMISSION^CONTROL^UNIT,^'02F2754^BOOL^00?P,)161,,^'03I2755^ORG^^00BIOCSTBLD50,IOCSCS1E6,^' 1 11 1 1 1 11 11 1 1 1 1 1 1: 095F03?2756^BXPA^00B,IOCSINPT50,^'03?2757^ORG^^00B,IOCSTBLD50,^'04A2758^ORG^^00BIOCSTBLK50,IOCSCS1S1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: &1,^'03?2759^DC^^^00B,IOCSWRIT50,^'03?2760^ORG^^00B,IOCSTBLK50,^'07A2761^BCE^^00DIOCS)002GOBK,IOCSCS 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 1ENT,IOCSTPON50,1,^RETN^TP^IN^PROC^'04F2762^B^^^^00B,IOCSCS1E6&7,^RETURN^TO^IOCS^'02F2763PBOOL^00?P, 1 1 1 11 1 1 1 1 11 1 1 1 301: )171,,^'03I2764^ORG^^00BIOCSTBLD50,IOCSCS2E6,^'03?2765^BXPA^00B,IOCSINPT50,^'03?2766^ORG^^00B,IOCSTB 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: LD50,^'04A2767^ORG^^00BIOCSTBLK50,IOCSCS2S1&1,^'03?2768^DC^^^00B,IOCSWRIT50,^'03?2769^ORG^^00B,IOCST 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: BLK50,^'07A2770^BCE^^00DIOCS)002GOBK,IOCSCS2ENT,IOCSTPON50,1,^RETN^TP^IN^PROC^'04D2771^B^^^^00B,IOCS 1 11 1 1 1 1 1 1 11 1 1 1 601: CS2E6&7,^RETN^TO^IOCS^'03?2772PNOP^^00BIOCSINPT50,,^'06A2773^BCE^^00D,IOCS)002GOBK,IOCS)002OPSW,,^RE 1 11 1 1 11 11 1 1 1 1 11 701: TN^NOT^OPEND^'05G2774^BCE^^00D,IOCSSNRD50,IOCSINBS50,1,^BR^INBUF^FULL^'03B2775^NOPWM00BIOCS)002SCVL, 11 1 1 1 1 1 1 11 1 1 1 801: ,^'03?2776^B^^^^00B,IOCSSNRD50,^'03B2777^NOPWM00BIOCS)002LM50,,^'03?2778^B^^^^00B,IOCSLDIT50,^'06A27 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 901: 79^BCE^^00D,IOCSTPM50,IOCS)002INP1-1,,^BR^END^OF^CHAIN^' 1 1 1 11 1 1: 095F05D2780^MLCA^00C,IOCS)002INP1,*&11,^IS^AN^AREA^AVAIL^'02E2781^BW^^^00C,*&8,0,^'06C2782^B^^^^00B, 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: IOCSTPM50,^BR^NO^AREA^TO^SENSE^-^SVC^OR^DATA^'06A2783^MLCA^00C,IOCS)002INP1,IOCS)002RD50&8,^GET^READ 1 11 1 1 1 1 1 201: ^AREA^'03D2784^SW^^^00B,IOCS)002RD50&4,^'04G2785^A^^^^00C,@6@,IOCS)002RD50&8,^POSITION^'03D2786^CW^^ 11 1 1 1 1 11 1 1 1 1 1 11 1 301: ^00B,IOCS)002RD50&4,^'02F2787^BOOL^00?P,)161,,^'04E2788^SRMO^00CIOCS)002RD50,1,0,^READ^7750^'03?2789 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 401: ^BA1^^00B,IOCSIPER50,^'02F2790PBOOL^00?P,)171,,^'04E2791^SRMO^00CIOCS)002RD50,2,0,^READ^7750^'03?279 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: 2^BA2^^00B,IOCSIPER50,^'03F2793PMLCA^00C,IOCS)002INP1,*&6,^'03I2794^CW^^^00B,0,^CLR^WM^^AREA^FULL^'0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 601: 5H2795^MLCA^00C,IOCS)002INP1,IOCS)002INP2,^UPDATE^CHAIN^'04I2796^MLCA^00C,IOCS)002INP1,*&17,^SET^UP^ 1 1 1 1 1 11 1 1 1 1 1 701: NEXT^'04D2797^A^^^^00C,@5@,*&6,^AREA^AVAIL^TO^BE^'04D2798^MLCB^00C,0,IOCS)002INP1,^READ^INTO^'03G279 11 1 1 1 1 1 11 1 1 1 1 1 11 1 801: 9^MLCA^00C,IOCS)002INP2,*&22,^'02H2800^A^^^^00C,@5@,*&11,^'03B2801^MLCA^00C,IOCS5BNK50,0,^'03G2802^M 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: LCA^00C,IOCS)002INP2,*&22,^'02H2803^A^^^^00C,@6@,*&11,^' 1 1 1 1 11 1 1 1 1 1 1 1: 097E05B2804^BBE^^00D,IOCS)002DATA,0,-,^BR^IF^DATA^MSSG^'04I2805^MLCS^00C,@2@,IOCSIO50,^SET^SVC^READ^ 1 1 1 1 1 1 1 1 11 1 1 1 1 1 101: IND^'06?2806^BCE^^00D,IOCS)002SHUK,IOCSTPON50,1,^SVC^-^BR^TP^ON^'05B2807^MLCS^00C,@1@,IOCSTPON50,^SE 11 1 1 1 1 1 1 11 1 1 1 1 1 201: T^TP^IN^PROCESS^'05B2808^MLCA^00C,IOCS)002INP2,IOCS)002SVC1,^SET^UP^'05I2809^MLCA^00C,IOCS)002INP2,I 11 1 1 1 1 1 11 1 1 1 1 301: OCS)002SVC2,^SERVICE^CHAIN^'06G2810^MLCA^00CIOCS)002SVNT,IOCS)002SVC1,)006,^INPT^AREA^INTO^XR^'03D28 1 11 1 1 1 1 1 11 1 401: 11^CW^^^00B,IOCS)002MOSV&1,^'06C2812^MLCA^00C,IOCS)002SVC1,IOCS)002LVAR,^SAVE^AREA^FOR^LVT^'03H2813^ 1 1 1 11 1 1 1 1 1 11 1 501: BEPA^00B,)044,^BR^TO^CTLADDR^'05H2814^BCE^^00DIOCS)002SHUK,IOCS)002ANCH,IOCS)002SVC1,,^'04A2815^MLCA 1 1 1 11 1 1 1 1 11 11 1 601: ^00C,IOCS)002SVC2,*&22,^ADD^'03A2816^A^^^^00C,@5@,*&11,^TO^'04B2817^MLCA^00C,IOCS)002INP2,0,^SERVICE 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 701: ^'05A2818^MLCA^00C,IOCS)002INP2,IOCS)002SVC2,^CHAIN^'03B2819^NOP^^00BIOCS)002DAKS,,^'03B2820^B^^^^00 11 1 1 1 1 1 11 1 1 11 11 1 1 801: B,IOCS)002GOBK,^'03B2821^B^^^^00B,IOCS)002REFR,^'05G2822^MLCA^00CIOCS)002ANCH,IOCS)002INP2,IOCS)002S 1 1 11 1 1 1 1 11 1 1 1 1 901: VC1,^'03D2823^SW^^^00B,IOCS)002MOSV&1,^'03E2824^B^^^^00B,IOCS)002DAKS-12,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 094E06B2825^MLCS^00CIOCS)002DATA,@1@,IOCSIO50,^SET^DATA^RD^INDIC^'06A2826^BCE^^00D,IOCS)002DHUK,IOCS 1 1 1 1 1 1 1 11 1 1 1 1 101: TPON50,1,^DATA^-^BR^TP^ON^'05B2827^MLCS^00C,@1@,IOCSTPON50,^SET^TP^IN^PROCESS^'05B2828^MLCA^00C,IOCS 1 1 11 1 1 1 1 1 11 1 1 1 201: )002INP2,IOCS)002DAT1,^SET^UP^'05F2829^MLCA^00C,IOCS)002INP2,IOCS)002DAT2,^DATA^CHAIN^'06G2830^MLCA^ 1 1 11 1 1 1 1 1 11 1 301: 00CIOCS)002DTNT,IOCS)002DAT1,)006,^INPT^AREA^INTO^XR^'03D2831^CW^^^00B,IOCS)002MODA&1,^'06C2832^MLCA 1 1 1 1 11 1 1 1 1 11 1 401: ^00C,IOCS)002DAT1,IOCS)002LVAR,^SAVE^AREA^FOR^LVT^'06C2833^BBE^^00D,IOCS)002TPRO-7,10&)006,$,^BR^IF^ 1 1 1 1 11 1 1 1 1 1 1 501: SYS^HDR^EROR^'04?2834^BCE^^00D,IOCS)002TPRO,0&)006,,^'02D2835^BEPA^00B,)042,^'05A2836^BEPA^00BIOCS)0 11 1 1 1 1 11 11 1 1 1 1 11 1 1 601: 02TPRO,)040,^BR^TO^PROCADDR^'05H2837^BCE^^00DIOCS)002DHUK,IOCS)002ANCK,IOCS)002DAT1,,^'04A2838^MLCA^ 1 1 11 1 1 1 1 11 11 1 701: 00C,IOCS)002DAT2,*&22,^ADD^'03A2839^A^^^^00C,@5@,*&11,^TO^'03I2840^MLCA^00C,IOCS)002INP2,0,^DATA^'05 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 801: A2841^MLCA^00C,IOCS)002INP2,IOCS)002DAT2,^CHAIN^'03B2842^NOP^^00BIOCS)002DAKD,,^'03B2843^B^^^^00B,IO 1 1 1 1 1 11 1 1 11 11 1 1 1 901: CS)002GOBK,^'03B2844^B^^^^00B,IOCS)002REFR,^' 1 11 1 1 1 1 1 1: 099F05G2845^MLCA^00CIOCS)002ANCK,IOCS)002INP2,IOCS)002DAT1,^'03D2846^SW^^^00B,IOCS)002MODA&1,^'03E28 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 47^B^^^^00B,IOCS)002DAKD-12,^'07G2848^BCE^^00DIOCS)002SVSW,IOCS)002SVNA,IOCS)002SVAV,1,^BR^SP^AREA^N 1 1 1 11 1 1 1 1 1 1 201: OT^AV^'05B2849^MLCS^00C,@1@,IOCS)002SVAV,^AVAL-SET^TO^USE^'02F2850^BOOL^00?P,)161,,^'04E2851^SRMO^00 11 1 1 1 1 1 11 1 1 1 11 11 1 1 301: CIOCS)002SSRD,1,IOCS)002RSA,^'04I2852^MLCS^00C,@2@,IOCSIO50,^SET^SVC^READ^IND^'03B2853^BWL1^00B,IOCS 1 1 1 11 1 1 1 1 1 11 1 1 1 401: )002OKSV,^'03?2854^BA1^^00B,IOCSIPER50,^'02F2855PBOOL^00?P,)171,,^'04E2856^SRMO^00CIOCS)002SSRD,2,IO 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: CS)002RSA,^'05A2857^MLCS^00C,@2@,IOCSIO50,^SET^SVC^READ^INDIC^'03B2858^BWL2^00B,IOCS)002OKSV,^'03?28 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: 59^BA2^^00B,IOCSIPER50,^'05H2860PBCE^^00DIOCS)002OKSV,IOCS)002SPNC,IOCS)002SVC1,,^'05D2861^MLCA^00C, 1 1 1 11 1 1 1 1 11 11 1 1 1 701: IOCS)002SVC2,*&22,^ADD^SPECIAL^AREA^'03A2862^A^^^^00C,@5@,*&11,^TO^'04B2863^MLCA^00C,IOCS)002SVAC,0, 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: ^SERVICE^'06C2864^MLCA^00CIOCS)002SPGO,IOCS)002SVAC,IOCS)002SVC2,^CHAIN^'03B2865^B^^^^00B,IOCS)002GO 11 1 1 1 1 1 11 1 1 1 901: BK,^'05G2866^MLCA^00CIOCS)002SPNC,IOCS)002SVAC,IOCS)002SVC1,^'03D2867^SW^^^00B,IOCS)002MOSV&1,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 098?03B2868^B^^^^00B,IOCS)002SPGO,^'06F2869^MLCS^00CIOCS)002SVNA,@1@,IOCS)002SVCN,^ATTN^UNACCEPT^SVC 1 1 1 1 1 1 11 1 1 1 1 1 101: ^'02F2870^BOOL^00?P,)161,,^'03A2871^B^^^^00B,IOCSCS1S1-1,^'06G2872^MLCS^00CIOCS)002PDAT,@1@,IOCS)002 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: DATN,^ATTN^UNACCEPT^DATA^'03A2873^B^^^^00B,IOCSCS1S1-1,^'02F2874PBOOL^00?P,)171,,^'03A2875^B^^^^00B, 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: IOCSCS2S1-1,^'06G2876^MLCS^00CIOCS)002PDAT,@1@,IOCS)002DATN,^ATTN^UNACCEPT^DATA^'03A2877^B^^^^00B,IO 1 11 1 1 1 1 1 11 1 1 1 401: CSCS2S1-1,^'04B2878PSBR^^00BIOCSIPER50,IOCSRDEX50&5,^'03B2879^CW^^^00B,IOCSEREX50&1,^'02I2880^NOPWM0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: 0BIOCSERR50,,^'02F2881^BOOL^00?P,)161,,^'05?2882^BCB1^00B,IOCS)002RD50,^BCB^IF^FROM^LEVRT^'04C2883^B 11 11 1 1 1 11 11 1 1 1 1 11 1 601: NR1^00B,IOCSERNR50,^BR^NOT^READY^'04F2884^BEF1^00B,IOCSERCD50,^BR^CONDTN^CHECK^'04E2885^BNT1^00B,IOC 1 1 1 11 1 1 1 1 11 1 1 1 701: SERNT50,^BR^NO^TRANSFER^'04A2886^BWL1^00B,*&1,^IGNORE^LNGTH^CHEK^'05E2887^BER1^00BIOCSSENT50,IOCSRDS 1 11 1 1 1 1 11 1 1 1 801: N50,^BR^SENSE^ERROR^'04E2888^B^^^^00B,IOCSEREX50,^EXIT^NO^ERRORS^'05H2889^SSM^^00CIOCSRDSN50,1,IOCSI 1 11 1 1 1 1 11 1 1 1 1 901: NSENS,^READ^SENSE^DATA^'03?2890^BA1^^00B,IOCSRSNS50,^'02F2891PBOOL^00?P,)171,,^' 1 11 1 1 1 1 11 1 1 1 11 1 1: 097E05?2892^BCB2^00B,IOCS)002RD50,^BCB^IF^FROM^LEVRT^'04C2893^BNR2^00B,IOCSERNR50,^BR^NOT^READY^'04F 1 1 1 1 1 1 11 1 1 1 1 11 101: 2894^BEF2^00B,IOCSERCD50,^BR^CONDTN^CHECK^'04E2895^BNT2^00B,IOCSERNT50,^BR^NO^TRANSFER^'04B2896^BWL2 1 1 1 1 11 1 1 1 1 11 1 201: ^00B,*&1,^IGNORE^WRONG^LNGTH^'05E2897^BER2^00BIOCSSENT50,IOCSRDSN50,^BR^SENSE^ERROR^'03?2898^B^^^^00 1 1 1 11 1 1 1 1 11 1 1 301: B,IOCSEREX50,^'05H2899^SSM^^00CIOCSRDSN50,2,IOCSINSENS,^READ^SENSE^DATA^'03?2900^BA2^^00B,IOCSRSNS50 1 1 11 1 1 1 1 1 11 1 1 1 401: ,^'03?2901PNOPWM00BIOCSOPER50,,^'04E2902^BBE^^00D,IOCSRSBU50,IOCSINSENS&3,0,^'05I2903^BBE^^00D,IOCSE 1 11 1 1 11 11 1 1 1 1 1 1 11 1 1 1 501: XCD50,IOCSINSENS,1,^BR^EXCPTNL^COND^'05G2904^BBE^^00D,IOCSDTCK50,IOCSINSENS,2,^BR^DATA^CHECK^'06?290 1 1 1 11 1 1 1 1 1 1 11 1 601: 5^BBE^^00D,IOCSPGCK50,IOCSINSENS,4,^BR^PROGRAM^CHECK^'07C2906^BBE^^00DIOCSINBF50,IOCSEREX50,IOCSINSE 1 1 1 1 1 11 1 1 1 1 701: NS&3,1,^BR^IF^INBUF^AVAIL^'04C2907^BCE^^00D,IOCSCLSL50,IOCS1ERR50,2,^'03?2908^NOP^^00BIOCSEREX50,,^' 1 1 11 1 1 1 1 1 1 11 1 1 11 1 801: 03?2909^B^^^^00B,IOCSOUTPAM,^'03B2910^SW^^^00B,IOCSEREX50&1,^'04F2911^C^^^^00C,IOCSRDEX50&5,&IOCS)00 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: 2OKSV,^'03?2912^BE^^^00B,IOCSSPEC50,^'03G2913^MLCA^00C,IOCS)002INP1,*&11,^' 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098A03B2914^MLCS^00C,IOCS1ERR50,0,^'02D2915^B^^^^00B,*&13,^'05C2916^MLCS^00CIOCSSPEC50,IOCS1ERR50,IO 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: CS)002SVAR,^'03D2917^MLCS^00C,@^@,IOCS1ERR50,^'03A2918^B^^^^00BIOCSRDEX50,0,^'04D2919^MLCS^00CIOCSCL 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: SL50,@^@,IOCS1ERR50,^'03?2920^B^^^^00B,IOCSEREX50,^'05A2921^BW^^^00CIOCSRSNS50,IOCSCNLR50,IOCSRPTSNS 1 1 1 11 1 1 1 1 11 1 1 1 1 301: ,^'03?2922^SW^^^00B,IOCSRPTSNS,^'02I2923^B^^^^00B,IOCSERR50,^'04?2924^CW^^^00BIOCSCNLR50,IOCSRPTSNS, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: ^'03?2925^B^^^^00B,IOCSEREX50,^'02F2926^BOOL^00?P,)161,,^'05I2927^SSM^^00CIOCSSNRD50,1,IOCSINSENS,^S 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 501: NS^RD^FOR^INBUF^'03?2928^BA1^^00B,IOCSBFSN50,^'02F2929PBOOL^00?P,)171,,^'06C2930^SSM^^00CIOCSSNRD50, 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: 2,IOCSINSENS,^SENSE^READ^FOR^INBUF^'03?2931^BA2^^00B,IOCSBFSN50,^'03?2932PNOPWM00BIOCSBCLR50,,^'03B2 1 1 11 1 1 1 1 11 1 1 11 11 1 701: 933^B^^^^00B,IOCS)002RTCL,^'06?2934^BBE^^00D,IOCSINBE50,IOCSINSENS&3,1,^BR^INBUF^AVAIL^'07B2935^BBE^ 1 1 1 11 1 1 1 1 1 1 11 1 801: ^00DIOCSTPSG50,IOCS)002SCVL,IOCSINSENS&3,2,^BR^IF^SVC^MSSG^'06B2936^BBE^^00D,IOCS)002SCVL,IOCSINSENS 1 1 1 1 1 11 1 1 1 1 901: &3,4,^B^IF^DATA^MSSG^'05I2937^MLCS^00CIOCSINBE50,@0@,IOCSINBS50,^CLEAR^INBUF^SW^' 1 1 11 1 1 1 1 1 1 1: 097F03?2938^B^^^^00B,IOCSTPSG50,^'06A2939^BW^^^00CIOCSBFSN50,IOCSCNLR50,IOCSRPTSNS,^REPEAT^IF^'03I29 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: 40^SW^^^00B,IOCSRPTSNS,^ERROR^ON^'04A2941^B^^^^00B,IOCSSNRD50,^SENSE^READ^'06F2942^MLCS^00CIOCSERNR5 1 1 1 11 1 1 1 1 11 1 1 201: 0,@0@,IOCS1ERR50,^NOT^READY^-^SET^INDIC^'03?2943^B^^^^00B,IOCSEREX50,^'06?2944^MLCS^00CIOCSERCD50,@& 1 1 1 11 1 1 1 1 11 1 1 1 301: @,IOCS1ERR50,^CONDITION^CHECK^'04F2945^B^^^^00B,IOCSSENT50,^RETN^TO^TST^SNS^'05F2946^MLCS^00CIOCSERN 1 1 11 1 1 1 1 11 1 1 401: T50,@-@,IOCS1ERR50,^NO^TRANSFER^'04F2947^B^^^^00B,IOCSSENT50,^RETN^TO^TST^SNS^'06H2948^BBE^^00DIOCSE 1 1 1 11 1 1 1 1 11 1 1 501: XCD50,IOCSCHLD50,IOCSINSENS&1,1,^BR^CHAN^HELD^'06?2949^BBE^^00D,IOCSCHFL50,IOCSINSENS&1,2,^BR^CHAN^Q 1 1 1 1 11 1 1 1 1 1 1 601: ^FULL^'06A2950^BBE^^00D,IOCSLGTH50,IOCSINSENS&1,4,^BR^LENGTH^CHECK^'04D2951^MLNS^00CIOCSCHLD50,@4@,I 11 1 1 1 1 1 1 11 1 1 1 1 701: OCS1ERR50,^'04E2952^B^^^^00B,IOCSEREX50,^EXIT^ERROR^RTN^'04D2953^MLNS^00CIOCSCHFL50,@3@,IOCS1ERR50,^ 1 11 1 1 1 1 11 1 1 1 1 1 801: '03?2954^B^^^^00B,IOCSEREX50,^'04D2955^MLNS^00CIOCSLGTH50,@2@,IOCS1ERR50,^'03?2956^B^^^^00B,IOCSINBF 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: 50,^'07A2957^BBE^^00DIOCSDTCK50,IOCSCPAR50,IOCSINSENS&2,4,^CHAN^PARITY^ERR^' 1 11 1 1 1 1 1 1 1 1: 095?05I2958^BCE^^00D,IOCSPRNT50,IOCSIO50,3,^INTERFACE^TIMEOUT^'05D2959^BCE^^00D,IOCSDTDR50,IOCSIO50, 1 1 1 1 1 1 1 1 11 1 1 1 1 1 101: 1,^BR^DATA^READ^'05G2960^BCE^^00D,IOCSSVDR50,IOCSIO50,2,^BR^SERVICE^READ^'05F2961^BCE^^00D,IOCSCLWR5 1 11 1 1 1 1 1 1 11 1 1 1 201: 0,IOCSIO50,4,^BR^TOUT^ON^CTL^'03?2962^B^^^^00B,IOCSRENT50,^'05G2963^BW^^^00CIOCSCLWR50,IOCSRENT50,IO 1 1 1 11 1 1 1 1 11 1 1 1 1 301: CSWMSW50,^RETRY^'03?2964^SW^^^00B,IOCSWMSW50,^'04H2965^B^^^^00B,IOCS)002WCTL,^BR^TO^CTL^WRITE^'05A29 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 66^BW^^^00CIOCSSVDR50,IOCSRENT50,IOCSWMSW50,^'03?2967^SW^^^00B,IOCSWMSW50,^'04I2968^B^^^^00B,IOCS)00 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 2SSRD,^BR^TO^SP^SVC^WRT^'05A2969^BW^^^00CIOCSDTDR50,IOCSRENT50,IOCSWMSW50,^'03?2970^SW^^^00B,IOCSWMS 1 11 1 1 1 1 1 11 1 1 1 601: W50,^'04H2971^B^^^^00B,IOCS)002RD50,^BR^TO^NORM^READ^'05A2972^BW^^^00CIOCSPRNT50,IOCSRENT50,IOCSWMSW 1 11 1 1 1 1 11 1 1 1 1 701: 50,^'03?2973^SW^^^00B,IOCSWMSW50,^'04I2974^B^^^^00B,IOCS)002DTAW,^BR^TO^DATA^WRITE^'06B2975^MLNS^00C 1 11 1 1 1 1 11 1 1 1 1 11 1 1 801: IOCSRENT50,@6@,IOCS1ERR50,^INTERFACE^TIMEOUT^'04H2976^CW^^^00B,IOCSWMSW50,^EXIT^FROM^ERR^RTN^'03?297 1 1 1 11 1 1 1 1 11 1 901: 7^B^^^^00B,IOCSEREX50,^'02F2978^BOOL^00?P,)161,,^' 1 1 1 11 1 1 1 11 1 1: 095C05H2979^SSM^^00CIOCSTPM50,1,IOCSINSENS,^SNS^RD^-^NO^AREA^'03?2980^BA1^^00B,IOCSARSN50,^'02F2981P 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: BOOL^00?P,)171,,^'06A2982^SSM^^00CIOCSTPM50,2,IOCSINSENS,^SENS^READ^-^NO^AREA^'03?2983^BA2^^00B,IOCS 1 1 11 11 1 1 1 1 1 11 1 1 1 201: ARSN50,^'06B2984PBBE^^00D,IOCS)002PDAT,IOCSINSENS&3,4,^BR^IF^DATA^MSG^'04G2985^B^^^^00B,IOCS)002SVSW 1 11 1 1 1 1 1 1 11 1 1 1 301: ,^BR^IF^SVC^MSSG^'04E2986^BW^^^00CIOCSARSN50,*-30,IOCSRPTSNS,^'03?2987^SW^^^00B,IOCSRPTSNS,^'02I2988 1 11 1 1 1 1 1 11 1 1 1 1 11 1 401: ^B^^^^00B,IOCSTPM50,^'04B2989^CW^^^00BIOCSRSBU50,IOCSOPER50&1,^'03B2990^B^^^^00B,IOCS)002GOBK,^'04B2 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 991^SBR^^00BIOCSERWT50,IOCSRTNP50&5,^'04B2992^SW^^^00BIOCSERMA50,IOCSEREX50&1,^'03B2993^SW^^^00B,IOC 1 1 1 11 1 1 1 1 11 1 1 1 601: SOPER50&1,^'02I2994^B^^^^00B,IOCSERR50,^'04B2995^CW^^^00BIOCSOUTPAM,IOCSOPER50&1,^'03B2996^CW^^^00B, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: IOCSEREX50&1,^'03?2997^NOPWM00BIOCSMKRO50,,^'03?2998^B^^^^00B,IOCSMACE50,^'04B2999^BCE^^00D,IOCSRTNP 1 11 1 1 11 11 1 1 1 1 11 1 1 1 801: 50,IOCS1ERR50,,^'03G3000^MLCS^00C,IOCS1ERR50,0&)048,^'03D3001^B^^^^00BIOCSMACE50,)046,^'03D3002^MLCS 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 901: ^00C,@^@,IOCS1ERR50,^'03A3003^B^^^^00BIOCSRTNP50,0,^' 1 1 1 1 11 1 1 1 1 1 1: 099H06I3004^BCE^^00DIOCSCPAR50,IOCSWTDT50,IOCSIO50,3,^CHAN^PARITY^ERROR^'04A3005^BCE^^00D,IOCSWTCL50 1 1 1 1 1 1 1 1 11 1 1 1 101: ,IOCSIO50,4,^'06B3006^MLNS^00CIOCSRETN50,@5@,IOCS1ERR50,^CHAN^PARITY^ERROR^'03?3007^CW^^^00B,IOCSWMS 1 1 1 11 1 1 1 1 1 11 1 1 1 201: W50,^'04E3008^B^^^^00B,IOCSEREX50,^EXIT^ERROR^RTN^'05A3009^BW^^^00CIOCSWTDT50,IOCSRETN50,IOCSWMSW50, 1 11 1 1 1 1 11 1 1 1 1 1 301: ^'03?3010^SW^^^00B,IOCSWMSW50,^'05?3011^B^^^^00B,IOCS)002DTAW,^BR^TO^RETRY^DTA^W^'05A3012^BW^^^00CIO 11 1 1 1 1 11 1 1 1 1 11 1 1 401: CSWTCL50,IOCSRETN50,IOCSWMSW50,^'03?3013^SW^^^00B,IOCSWMSW50,^'05?3014^B^^^^00B,IOCS)002WCTL,^BR^TO^ 1 1 1 11 1 1 1 1 11 1 1 1 1 501: RETRY^CTL^W^'06B3015^BCE^^00DIOCSPGCK50,IOCSPGIT50,IOCSIO50,4,^BR^CTL^WRT^'05H3016^MLNS^00CIOCSPGRT5 11 1 1 1 1 1 1 11 1 1 601: 0,@1@,IOCS1ERR50,^PROGRAM^CHECK^'03?3017^CW^^^00B,IOCSWMSW50,^'04E3018^B^^^^00B,IOCSEREX50,^EXIT^ERR 1 1 1 11 1 1 1 1 11 1 1 1 1 701: OR^RTN^'05A3019^BW^^^00CIOCSPGIT50,IOCSPGRT50,IOCSWMSW50,^'03?3020^SW^^^00B,IOCSWMSW50,^'05?3021^B^^ 11 1 1 1 1 1 11 1 1 1 1 11 1 801: ^^00B,IOCS)002WCTL,^BR^TO^RETRY^CTL^W^'03D3022^EQU^^00B)04I,*,^FILENAME^'06E3023^DCW^^00BIOCS)002OPS 1 1 1 11 1 1 1 1 11 1 1 901: W,@^@,^OPEN^SWITCH^-^1-OPEN^0-CLOSED^'06?3024^DCW^^00BIOCSTPON50,@0@,^TP^IN^PROCESS^SW^-^1^IF^TP^' 1 1 11 1 1 1 1 1 1: 098G07?3025^DCW^^00BIOCS)002SVCN,@^@,^SW^FOR^LEVRT^-^SVC^ATTN^UNACCEPTED^'07?3026^DCW^^00BIOCS)002DA 1 1 1 1 1 1 11 1 1 101: TN,@^@,^SW^FOR^LEVRT^-^DAT^ATTN^UNACCEPTED^'03G3027^DCW^^00BIOCS5BNK50,@^^^^^@,^'03A3028^DCW^^00BIOC 1 1 11 1 1 1 1 11 1 1 201: SIO50,@^@,^'05A3029^DA^^^00CIOCSINSENS,1X4,G,^SENSE^READ^AREA^'03I3030^DCW^^00BIOCS)002LVAR,@^^^^^@, 1 1 11 1 1 1 1 1 11 1 1 1 1 301: ^'03D3031^DCW^^00BIOCS)002TAC,@K@,^'03B3032^B^^^^00B,IOCS)002CLOS,^'03?3033^B^^^^00B,IOCSEXITRU,^'06 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: ?3034^DCW^^00BIOCSINBS50,@^@,^INBUF^SW^-^1^IF^INBUF^FULL^'05E3035^DC^^^00BIOCSWMSW50,@^@,^WM^SW^FOR^ 1 1 1 1 11 1 1 1 1 501: ERROR^RETRY^'03I3036^DCW^^00BIOCS)002LVAS,@^^^^^@,^'05C3037^DCW^^00BIOCS)002CLSB,@^@,^ONE^IF^CLOSE^1 11 1 1 1 1 11 1 1 1 1 601: SSD^'07A3038^DCW^^00BIOCS)002SVAV,@^@,^AVAILABILITY^OF^SPECIAL^SERVIC^AREA^'07?3039^DCW^^00BIOCS)002 11 1 1 1 1 11 1 1 701: SVAC,IOCS)002SVAR,^ADCON^OF^SPECIAL^SVC^AREA^'03E3040^DC^^^00BIOCS)002SVAR,@^@,^'03G3041^DCW^^00B,@^ 1 1 11 1 1 1 1 11 1 1 1 801: ^^^^@,^CHAIN^FOR^'04D3042^DCW^^00C^IOCS)002RSA,@^^^^^^^^@,G,^'03C3043^DCW^^00BIOCS1ERR50,@^@,^'03C30 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: 44^DC^^^00BIOCSRPTSNS,@^@,^'05I3045^DCW^^00BIOCS)002INP1,)022,^ADDR^OF^NXT^AREA^AVAIL^' 1 1 1 11 1 1 1 1 1 1: 099E06G3046^DCW^^00BIOCS)002INP2,@^^^^^@,^ADDR^OF^LAST^AREA^READ^INTO^'07E3047^DCW^^00BIOCS)002SVC1, 1 1 1 1 1 1 11 1 1 1 101: @^^^^^@,^ADDR^OF^NXT^SVC^MSG^AREA^TO^PROCESS^'07D3048^DCW^^00BIOCS)002SVC2,@^^^^^@,^ADDR^OF^LAST^SVC 1 11 1 1 1 1 201: ^MSG^READ^AND^REDY^'07E3049^DCW^^00BIOCS)002DAT1,@^^^^^@,^ADDR^OF^NXT^DATA^MSG^AREA^TO^PROCES^'07E30 11 1 1 1 1 11 1 301: 50^DCW^^00BIOCS)002DAT2,@^^^^^@,^ADDR^OF^LAST^DATA^MSG^READ^AND^REDY^'07A3051^DCW^^00BIOCS)002DOT1,@ 1 1 1 11 1 1 1 401: ^^^^^@,^ADDR^OF^LAST^AREA^IN^DATA^CHAIN^'07?3052^DCW^^00BIOCS)002DOT2,@^^^^^@,^ADDR^OF^NXT^DATA^AREA 1 11 1 1 1 1 501: ^TO^WRITE^'07B3053^DCW^^00BIOCS)002CTL1,@^^^^^@,^ADDR^OF^LAST^AREA^IN^IOCTL^CHAIN^'07?3054^DCW^^00BI 11 1 1 1 1 11 1 1 601: OCS)002CTL2,@^^^^^@,^ADDR^OF^NXT^CTL^ORDER^TO^WRITE^'03F3055^DCW^^00BIOCS)002INPA,)023,^'03I3056^DCW 1 1 11 1 1 1 1 11 1 701: ^^00BIOCS)002HODA,@^^^^^@,^'04G3057^SBR^^00BIOCS)002PT50,IOCS)002PTEX&11,^'06D3058^BCE^^00D,IOCS)002 1 1 1 11 1 1 1 1 11 1 1 1 801: PCTU,IOCS)002OPSW,1,^CONTINUE^IF^OPEN^'03B3059^B^^^^00B,IOCS)002GOBK,^'07C3060^BCE^^00DIOCS)002PCTU, 1 1 1 11 1 1 1 1 11 1 1 1 901: IOCS)002STDT,IOCS)002DOT2,,^BR^IF^NO^CHAIN^'05A3061^MLCA^00C,IOCS)002DOT1,*&22,^MOVE^CONTENTS^' 1 11 11 1 1 1 1 1 1 1: 099E03G3062^A^^^^00C,@5@,*&11,^OF^X^REG^'03G3063^MLCA^00C,)048,0,^INTO^CHAIN^'03G3064^MLCB^00C,)048, 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: IOCS)002DOT1,^'02F3065^BOOL^00?P,)161,,^'05G3066^SW^^^00BIOCS)002PTEX,IOCSCS1S1,^SET^WRT^PNDG^SW^'02 1 11 1 1 1 11 11 1 1 1 1 11 201: F3067PBOOL^00?P,)171,,^'06F3068^SW^^^00BIOCS)002PTEX,IOCSCS2S1,^SET^WRITE^PENDING^SWITCH^'03?3069PB^ 1 1 1 11 11 1 1 1 1 11 1 301: ^^^00B,0,^EXIT^PUT^'05F3070^MLCA^00CIOCS)002STDT,)048,IOCS)002DOT2,^SET^UP^'05D3071^MLCA^00C,)048,IO 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: CS)002DOT1,^DATA^WRITE^CHAIN^'04G3072^B^^^^00B,IOCS)002PTEX,^BR^TO^EXIT^PUT^'02G3073^DCW^^00B,@^^^^^ 1 11 1 1 1 1 11 1 1 1 501: @,^'05H3074^SBR^^00BIOCS1CTW50,IOCS1CTW50-1,^IOCTL^CHAIN^RTN^'03E3075^SBR^^00B,IOCS)002CCTU&10,^'03D 1 11 1 1 1 1 11 1 1 1 1 11 601: 3076^SBR^^00B,IOCS)002CLXT&5,^'03F3077^A^^^^00C,@1@,IOCS1CTW50-1,^'03I3078^A^^^^00C,@1@,IOCS)002CCTU 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 701: &10,^'03H3079^A^^^^00C,@1@,IOCS)002CLXT&5,^'06C3080^BCE^^00D,IOCS)002CCTU,IOCS)002OPSW,1,^BR^IF^FILE 1 11 1 1 1 1 1 11 1 1 1 1 1 1 801: ^OPEN^'03B3081^B^^^^00B,IOCS)002GOBK,^'06A3082^BCE^^00DIOCS)002CCTU,IOCS)002HCDT,0,C,^BR^IF^HLDCLR^' 11 1 1 1 1 11 1 1 1 1 1 1 1 901: 05H3083^BCE^^00D,IOCS)002STCN,IOCS)002CTL2,,^BR^NO^CHAIN^'03G3084^MLCA^00C,IOCS)002CTL1,*&22,^' 1 1 1 1 1 11 11 1 1 1 1 1 1 1: 095F02H3085^A^^^^00C,@5@,*&11,^'05B3086^MLCA^00C,IOCS1CTW50-1,0,^HOOK^INTO^CTL^CHN^'04E3087^MLCB^00C 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,IOCS1CTW50-1,IOCS)002CTL1,^'02F3088^BOOL^00?P,)161,,^'04G3089^SW^^^00B,IOCSCS1S1,^SET^PNDG^WRIT^IND 1 1 1 11 1 1 1 11 11 1 1 1 1 201: ^'02F3090PBOOL^00?P,)171,,^'05C3091^SW^^^00B,IOCSCS2S1,^SET^PENDING^WRITE^INDIC^'04F3092PSCNRG00CIOC 11 1 1 1 11 11 1 1 1 1 11 1 1 301: S)002CLXT,0,IOCS)002CCTU,^'02C3093^SAR^^00B,*&6,^'02A3094^B^^^^00B,0,^'06D3095^MLCB^00CIOCS)002STCN, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: IOCS1CTW50-1,IOCS)002CTL1,^SET^UP^'05G3096^MLCB^00C,IOCS1CTW50-1,IOCS)002CTL2,^IOCTL^CHAIN^'04G3097^ 1 1 11 1 1 1 1 1 11 1 501: B^^^^00B,IOCS)002CLXT-6,^RETN^TO^EXIT^'07E3098^BCE^^00DIOCS)002HCDT,IOCS)002STHC,IOCS)002DOT2,,^BR^N 1 1 1 11 1 1 1 1 11 601: O^DATA^CHAIN^'04A3099^MLCA^00C,IOCS)002DOT1,*&22,^ADD^'03H3100^A^^^^00C,@5@,*&11,^HLDCLR^TO^'05A3101 11 1 1 1 1 1 11 1 1 1 1 1 11 1 701: ^MLCA^00C,IOCS1CTW50-1,0,^DATA^WRITE^CHAIN^'04E3102^MLCB^00C,IOCS1CTW50-1,IOCS)002DOT1,^'04G3103^B^^ 1 1 1 1 11 1 1 1 1 1 11 1 801: ^^00B,IOCS)002CLXT-6,^RETN^TO^EXIT^'06D3104^MLCA^00CIOCS)002STHC,IOCS1CTW50-1,IOCS)002DOT1,^SET^UP^' 1 1 1 11 1 1 1 1 1 1 901: 05F3105^MLCA^00C,IOCS1CTW50-1,IOCS)002DOT2,^DATA^CHAIN^' 1 1 1 1 1 1 1 1: 096H04G3106^B^^^^00B,IOCS)002CLXT-6,^RETN^TO^EXIT^'06I3107^BCE^^00DIOCSWRIT50,IOCS)002GOBK,IOCSINBS5 1 1 1 1 1 1 11 1 1 1 1 101: 0,1,^BR^INBUF^FULL^'03G3108^MLCWA00C,)048,IOCS)002XSAV,^'06D3109^BCE^^00D,IOCS)002ANYD,IOCS)002CTL2, 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: ,^BR^NO^IOCTL^TO^WT^'05I3110^MLCA^00CIOCS)002CTLS,IOCS)002CTL2,IOCS)002WCTL&8,^'03D3111^SW^^^00B,IOC 1 11 1 1 1 1 1 11 1 1 1 301: S)002WCTL&4,^'03H3112^A^^^^00C,@6@,IOCS)002WCTL&8,^'03D3113^CW^^^00B,IOCS)002WCTL&4,^'02F3114^BOOL^0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: 0?P,)161,,^'05B3115^SCMO^00CIOCS)002WCTL,1,0,^WRITE^IOCTL^MSSG^'05?3116^MLCS^00C,@4@,IOCSIO50,^SET^C 1 11 11 1 1 1 1 1 11 1 1 1 1 1 501: TL^WRT^INDIC^'03G3117^MLCA^00C,IOCS)002CTL2,)048,^'02F3118^CW^^^00B,0&)048,^'03?3119^BA1^^00B,IOCSER 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: WT50,^'02F3120PBOOL^00?P,)171,,^'03E3121^SCMO^00CIOCS)002WCTL,2,0,^'05B3122^MLCS^00C,@4@,IOCSIO50,^S 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 701: ET^CTL^WRITE^INDIC^'03G3123^MLCA^00C,IOCS)002CTL2,)048,^'02F3124^CW^^^00B,0&)048,^'03?3125^BA2^^00B, 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 801: IOCSERWT50,^'03I3126PMLCA^00C,IOCS)002CLAR,0&)048,^'03I3127^BW^^^00C,IOCS)002WCTL,0&)048,^'04D3128^M 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: LCA^00C,IOCS)002CTL2,*&17,^UPDATE^'03C3129^A^^^^00C,@5@,*&6,^IOCTL^' 1 1 1 1 11 1 1 1 1 1 1 1: 099E05B3130^MLCB^00CIOCS)002CRUS,0,IOCS)002CTL2,^CHAIN^'03D3131^SW^^^00B,IOCS)002CRUS&1,^'03I3132^ML 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: CA^00C,IOCS)002CRUS&5,*&11,^'03B3133^MLCA^00C,IOCS5BNK50,0,^'03D3134^CW^^^00B,IOCS)002CRUS&1,^'06C31 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: 35^BCE^^00D,IOCS)002ANYD,IOCS)002CTL2,,^BR^NO^MORE^IOCTL^'03B3136^B^^^^00B,IOCS)002CTLS,^'07F3137^BC 1 1 1 11 11 1 1 1 1 11 1 301: E^^00DIOCS)002ANYD,IOCS)002NOWT,IOCS)002DOT2,,^BR^OUT^NO^DTA^MSG^'03G3138^MLCA^00C,IOCS)002DOT2,*&11 1 1 1 11 11 1 1 1 1 401: ,^'05C3139^BCE^^00D,IOCS)002WHCR,0,C,^BR^IF^HLDCLR^MSG^'04G3140^MLCA^00C,IOCS)002DOT2,IOCS)002DTAW&8 1 11 1 1 1 1 1 1 11 1 1 1 1 501: ,^'03D3141^SW^^^00B,IOCS)002DTAW&4,^'03H3142^A^^^^00C,@6@,IOCS)002DTAW&8,^'03D3143^CW^^^00B,IOCS)002 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: DTAW&4,^'02F3144^BOOL^00?P,)161,,^'05A3145^SWMO^00CIOCS)002DTAW,1,0,^WRITE^DATA^MSSG^'05?3146^MLCS^0 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 701: 0C,@3@,IOCSIO50,^SET^DTA^WRT^INDIC^'03G3147^MLCA^00C,IOCS)002DOT2,)048,^'02F3148^CW^^^00B,0&)048,^'0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 801: 3?3149^BA1^^00B,IOCSERWT50,^'02F3150PBOOL^00?P,)171,,^'05?3151^SWMO^00CIOCS)002DTAW,2,0,^WRITE^DATA^ 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 901: MSG^'05C3152^MLCS^00C,@3@,IOCSIO50,^SET^DATA^WRITE^INDIC^'03G3153^MLCA^00C,IOCS)002DOT2,)048,^' 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 098B02F3154^CW^^^00B,0&)048,^'03?3155^BA2^^00B,IOCSERWT50,^'03I3156PMLCA^00C,IOCS)002CLAR,0&)048,^'0 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 101: 3I3157^BW^^^00C,IOCS)002DTAW,0&)048,^'05F3158^MLCA^00CIOCS)002TDTA,IOCS)002DOT2,*&17,^UPDATE^'03B315 1 1 1 1 1 11 1 1 1 1 1 11 1 201: 9^A^^^^00C,@5@,*&6,^DATA^'05B3160^MLCB^00CIOCS)002CLOU,0,IOCS)002DOT2,^CHAIN^'03D3161^SW^^^00B,IOCS) 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 002CLOU&1,^'03I3162^MLCA^00C,IOCS)002CLOU&5,*&11,^'03B3163^MLCA^00C,IOCS5BNK50,0,^'03D3164^CW^^^00B, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: IOCS)002CLOU&1,^'05?3165^B^^^^00B,IOCS)002ANYD,^BR^TO^TST^ANYMORE^'05I3166^MLCA^00CIOCS)002WHCR,IOCS 1 11 1 1 1 1 11 1 1 1 501: )002DOT2,IOCS)002WTHC&8,^'03D3167^SW^^^00B,IOCS)002WTHC&4,^'03H3168^A^^^^00C,@6@,IOCS)002WTHC&8,^'03 1 1 11 1 1 1 1 11 1 1 1 1 1 11 601: D3169^CW^^^00B,IOCS)002WTHC&4,^'02F3170^BOOL^00?P,)161,,^'05C3171^SCMO^00CIOCS)002WTHC,1,0,^WRT^IOCT 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: L^HOLDCLR^'05?3172^MLCS^00C,@4@,IOCSIO50,^SET^CTL^WRT^INDIC^'03G3173^MLCA^00C,IOCS)002DOT2,)048,^'02 11 1 1 1 1 1 11 1 1 1 1 1 11 801: F3174^CW^^^00B,0&)048,^'03?3175^BA1^^00B,IOCSERWT50,^'03I3176^MLCA^00C,IOCS)002CLAR,0&)048,^'03I3177 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 901: ^BW^^^00C,IOCS)002WTHC,0&)048,^'05?3178^B^^^^00B,IOCS)002TDTA,^TEST^FOR^MORE^DTA^' 1 1 1 1 11 1 1 1 1 1 1: 098G05I3179^CW^^^00BIOCS)002NOWT,IOCSCS1S1,^CLEAR^WRT^PNDG^SW^'03G3180^MLCWA00C,IOCS)002XSAV,)048,^' 1 1 1 1 1 1 11 1 1 1 1 1 1 101: 03A3181^B^^^^00B,IOCSCS1S1&7,^'03I3182^DCW^^00BIOCS)002XSAV,@^^^^^@,^'02F3183PBOOL^00?P,)171,,^'05E3 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: 184^SCMO^00CIOCS)002WTHC,2,0,^WRITE^IOCTL^HOLDCLR^'05B3185^MLCS^00C,@4@,IOCSIO50,^SET^CTL^WRITE^INDI 1 1 1 1 11 1 1 1 1 1 301: C^'03G3186^MLCA^00C,IOCS)002DOT2,)048,^'02F3187^CW^^^00B,0&)048,^'03?3188^BA2^^00B,IOCSERWT50,^'03I3 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 189^MLCA^00C,IOCS)002CLAR,0&)048,^'03I3190^BW^^^00C,IOCS)002WTHC,0&)048,^'05A3191^B^^^^00B,IOCS)002T 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: DTA,^TEST^FOR^MORE^DATA^'04A3192^CW^^^00BIOCS)002NOWT,IOCSCS2S1,^'03G3193^MLCWA00C,IOCS)002XSAV,)048 1 11 1 1 1 1 11 1 1 1 1 601: ,^'03A3194^B^^^^00B,IOCSCS2S1&7,^'03I3195^DCW^^00BIOCS)002XSAV,@^^^^^@,^'03E3196PDCW^^00BIOCS)002CLA 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: R,@^@,^'04G3197^MLCA^00CIOCSLVRT50,IOCS)002LVAR,*&11,^'05C3198^MLCWA00C,IOCS)002CLAR,0,^SET^AREA^AVA 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: ILABLE^'03G3199^MLCA^00C,IOCS)002LVAR,*&17,^'02G3200^A^^^^00C,@5@,*&6,^'05?3201^MLCB^00C,0,IOCS)002H 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 901: ODA,^SAVE^CHAIN^ADDR^'03G3202^MLCA^00C,IOCS)002LVAR,*&22,^'02H3203^A^^^^00C,@5@,*&11,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 099G06C3204^MLCA^00C,IOCS5BNK50,0,^CLEAR^CHAIN^ADDR^OD^AVAIL^AREA^'04E3205^C^^^^00C,IOCS)002LVAR,IOC 1 1 1 1 1 1 1 11 1 1 1 1 101: S)002SVC1,^'02D3206^BE^^^00B,*&13,^'04E3207^MLCA^00C,IOCS)002HODA,IOCS)002DATH,^'04E3208^MLCA^00C,IO 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: CS)002HODA,IOCS)002SERH,^'04E3209^C^^^^00C,IOCS)002LVAR,IOCS)002SVAC,^'03B3210^BE^^^00B,IOCS)002CSPS 1 1 11 1 1 1 1 1 11 1 1 1 301: ,^'03G3211^MLCA^00C,IOCS)002INPA,*&11,^'05B3212^BW^^^00C,IOCS)002CHIP,0,^BR^IF^AREAS^AVAIL^'05G3213^ 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: MLCA^00C,IOCS)002LVAR,IOCS)002INP1,^START^AVAIL^'05A3214^MLCA^00C,IOCS)002LVAR,IOCS)002INPA,^CHAIN^' 1 1 1 1 11 1 1 1 1 1 1 501: 03B3215^B^^^^00B,IOCS)002FSPS,^'06B3216^MLCA^00CIOCS)002CHIP,IOCS)002INPA,*&22,^HOOK^UP^JUST^'04F321 1 1 1 1 1 11 1 1 1 1 1 11 1 601: 7^A^^^^00C,@5@,*&11,^PROCESSED^AREA^TO^'04F3218^MLCA^00C,IOCS)002LVAR,0,^AVAIL^CHAIN^'06C3219^MLCA^0 1 1 1 1 11 1 1 1 1 1 11 1 1 701: 0C,IOCS)002LVAR,IOCS)002INPA,^MAKE^THIS^LST^AVA^'07E3220^BCE^^00DIOCS)002FSPS,IOCS)002RSPA&18,IOCS)0 1 1 1 11 1 1 1 1 801: 02SVCN,1,^BR^SVC^INRES^'06D3221^BCE^^00D,IOCS)002RSPA,IOCS)002DATN,1,^B^DTA^ATT^INRESP^'06A3222^SW^^ 1 1 11 1 1 1 1 1 1 11 1 901: ^00CIOCS)002REFR,IOCS)002DAKD&1,IOCS)002DAKS&1,^'04H3223^BCE^^00D,IOCS)002MDTA,IOCS)002SVC1-1,,^' 1 1 1 1 11 1 1 1 1 11 1 1: 099D03B3224^NOPWM00BIOCS)002MOSV,,^'03B3225^B^^^^00B,IOCS)002SVNT,^'05H3226^BCE^^00DIOCS)002AMOS,IOC 1 1 1 1 11 11 1 1 1 1 11 1 1 1 101: S)002MDTA,IOCS)002SERH,,^'03B3227^B^^^^00B,IOCS)002UPSE,^'05E3228^MLCA^00CIOCS)002MDTA,IOCS5BNK50,IO 1 11 11 1 1 1 1 11 1 1 1 1 201: CS)002SVC1,^'04C3229^MLCA^00C,IOCS5BNK50,IOCS)002SVC2,^'04H3230^BCE^^00D,IOCS)002TCLS,IOCS)002DAT1-1 1 11 1 1 1 1 1 11 1 1 1 1 301: ,,^'03B3231^NOPWM00BIOCS)002MODA,,^'03B3232^B^^^^00B,IOCS)002DTNT,^'05H3233^BCE^^00DIOCS)002AMOD,IOC 11 11 1 1 11 11 1 1 1 1 11 1 1 1 401: S)002TCLS,IOCS)002DATH,,^'03B3234^B^^^^00B,IOCS)002UPDA,^'05E3235^MLCA^00CIOCS)002TCLS,IOCS5BNK50,IO 1 11 11 1 1 1 1 11 1 1 1 1 501: CS)002DAT1,^'04C3236^MLCA^00C,IOCS5BNK50,IOCS)002DAT2,^'04G3237^BCE^^00D,IOCS)002ENLV,IOCS)002OPSW,0 1 11 1 1 1 1 1 11 1 1 1 1 1 601: ,^'03B3238^B^^^^00B,IOCS)002TPOF,^'03I3239^DCW^^00BIOCS)002DATH,@^^^^^@,^'03I3240^DCW^^00BIOCS)002SE 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: RH,@^^^^^@,^'04H3241^MLCS^00CIOCS)002RSPA,@0@,IOCS)002DATN,^'03D3242^CW^^^00B,IOCS)002DAKD&1,^'03F32 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 801: 43^MLCS^00C,@0@,IOCS)002SVCN,^'03D3244^CW^^^00B,IOCS)002DAKS&1,^'03?3245^B^^^^00B,IOCSINPT50,^'06G32 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: 46^MLCS^00CIOCS)002CSPS,@0@,IOCS)002SVAV,^CLR^SPECL^SVC^AREA^'03B3247^B^^^^00B,IOCS)002FSPS,^' 1 1 1 1 11 1 1 1 1 1 1: 096H05G3248^MLCA^00CIOCS)002UPSE,IOCS)002HODA,IOCS)002SVC1,^'03B3249^B^^^^00B,IOCS)002SVNT,^'05G3250 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^MLCA^00CIOCS)002UPDA,IOCS)002HODA,IOCS)002DAT1,^'03B3251^B^^^^00B,IOCS)002DTNT,^'06I3252^MLCS^00CIO 1 1 1 1 11 1 1 1 1 11 1 1 201: CS)002TPOF,@0@,IOCSTPON50,^CLEAR^TP^IN^PROC^INDIC^'02F3253^BOOL^00?P,)161,,^'03A3254^B^^^^00B,IOCSCS 1 1 1 11 1 1 1 11 11 1 1 1 301: 1E6&7,^'02F3255PBOOL^00?P,)171,,^'03A3256^B^^^^00B,IOCSCS2E6&7,^'05E3257PSBR^^00BIOCS)002CLOS,IOCS)0 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: 02CLEX&5,^SET^EXIT^'05B3258^MLCS^00C,@0@,IOCS)002OPSW,^SET^CLOSE^INDIC^'03H3259^SW^^^00B,IOCS)002SCV 1 11 1 1 1 1 1 11 1 1 1 501: L&1,^SET^'04G3260^SW^^^00B,IOCSBCLR50&1,^INITIALIZATION^'04F3261^MLCA^00C,IOCS)002NORD,IOCSINBE50&17 1 11 1 1 1 1 11 1 1 1 1 601: ,^'06B3262^BCE^^00D,IOCS)002CLEX,IOCSTPON50,1,^BR^IF^RT^IN^PROC^'07E3263^BCE^^00DIOCS)002ENLV,IOCS)0 1 11 1 1 1 1 1 1 11 1 1 1 701: 02CLNW,IOCS)002DOT2,,^MN^LNE^BR^NO^WTS^'04F3264^BEPA^00B,IOCS)002ENLV,^WRITES^-^WAIT^'04B3265^DCW^^0 1 11 11 1 1 1 1 11 1 1 801: 0BIOCS)002RNOR,IOCSTPSG50,^'04D3266^DCW^^00BIOCS)002NORD,IOCS)002RTCL,^'05?3267^CW^^^00BIOCS)002RTCL 1 1 11 1 1 1 1 11 1 1 901: ,IOCSBCLR50&1,^RESET^'04F3268^MLCA^00C,IOCS)002RNOR,IOCSINBE50&17,^' 1 1 11 1 1 1 1 1 1 1: 096H03D3269^CW^^^00B,IOCS)002SCVL&1,^'06C3270^BBE^^00D,IOCS)002SCVL&8,IOCSINSENS&3,2,^BR^IF^SVC^MSG^ 1 1 1 1 1 1 11 1 1 1 1 1 1 101: '03B3271^B^^^^00B,IOCS)002GOBK,^'03E3272^BXPA^00BIOCS)002CLNW,*&1,^'04G3273^MLCS^00C,@^@,IOCS)002OPS 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: W,^CLEAR^OPSW^'03C3274^B^^^^00BIOCS)002CLEX,0,^'04B3275^SBR^^00BIOCSLDCP50,IOCSXTIL50&5,^'03D3276^SW 1 11 1 1 1 1 11 1 1 1 1 11 1 301: ^^^00B,IOCS)002SCVL&1,^'03B3277^CW^^^00B,IOCSINPT50&1,^'04E3278^MLCA^00C,IOCSXTPT50,IOCS)002SCVL&6,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 401: '02I3279^WCP^^00B,IOCSMLD50,^'02D3280^BCB1^00B,*-16,^'02C3281^BA1^^00B,*&1,^'03?3282^BEPA^00B,IOCSWA 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: IT50,^'04D3283^MLCS^00CIOCSWAIT50,@1@,IOCSWTTN50,^'03D3284^A^^^^00C,@1@,IOCSWTTN50,^'04?3285^B^^^^00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: BIOCSSTWT50,IOCSWAIT50,^'05D3286^MLCA^00CIOCSLPXT50,&IOCSILDX50,IOCSSTWT50&5,^'03B3287^B^^^^00B,IOCS 1 1 11 1 1 1 1 1 11 1 1 1 701: )002GOBK,^'05D3288^MLCA^00CIOCSILDX50,&IOCSWAIT50,IOCSSTWT50&5,^'04F3289^MLCA^00C,&IOCSSNRD50,IOCS)0 1 11 1 1 1 1 1 11 1 1 1 1 801: 02SCVL&6,^'03B3290^SW^^^00B,IOCSINPT50&1,^'03D3291^CW^^^00B,IOCS)002SCVL&1,^'03A3292^BEPA^00BIOCSXTI 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: L50,0,^'02?3293^NOP^^00B,,^'04?3294^DCW^^00BIOCSXTPT50,IOCSLPXT50,^' 1 1 11 1 1 11 11 1 1 1 1 1 1: 096C03C3295^DCW^^00BIOCSWTTN50,@^@,^'06C3296^DCW^^00C^IOCSMLD50,@PREPARE^7750^FOR^INITIAL^LOAD@,G,^' 1 1 1 1 1 1 11 1 1 1 1 1 1 101: 04B3297^SBR^^00BIOCSPTLD50,IOCSPTXI50&5,^'03B3298^SBR^^00B,IOCSPLST50&5,^'03F3299^A^^^^00C,@5@,IOCSP 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: TXI50&5,^'03F3300^A^^^^00C,@4@,IOCSPLST50&5,^'04B3301^MLCA^00CIOCSPLST50,0,IOCSSWPL50,^'04C3302^MLCA 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: ^00C,IOCSSWPL50,IOCSPUTL50&8,^'03E3303^A^^^^00C,@64@,IOCSSWPL50,^'03D3304^MLCA^00C,IOCSSWPL50,*&6,^' 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 401: 02A3305^SW^^^00B,0,^'02F3306^BOOL^00?P,)161,,^'03C3307^SWMO^00CIOCSPUTL50,1,0,^'02C3308^BA1^^00B,*&1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 501: ,^'03D3309^MLCA^00C,IOCSSWPL50,*&6,^'02A3310^CW^^^00B,0,^'02C3311^BWL1^00B,*&8,^'03?3312^BA1^^00B,IO 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: CSPLDE50,^'02F3313PBOOL^00?P,)171,,^'03C3314^SWMO^00CIOCSPUTL50,2,0,^'02C3315^BA2^^00B,*&1,^'03D3316 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 701: ^MLCA^00C,IOCSSWPL50,*&6,^'02A3317^CW^^^00B,0,^'02C3318^BWL2^00B,*&8,^'03?3319^BA2^^00B,IOCSPLDE50,^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: '03A3320PBEPA^00BIOCSPTXI50,0,^'03G3321^DCW^^00BIOCSSWPL50,@^^^^^@,^'03I3322^WCP^^00BIOCSPLDE50,IOCS 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ELD50,^'02C3323^BA1^^00B,*&1,^'03B3324^B^^^^00B,IOCSLDCP50&7,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 099I07F3325^DCW^^00C^IOCSELD50,@ERROR^ON^INIT^LOAD^-^OPERATOR^RESTART^7750@,G,^'04B3326^SBR^^00BIOCS 1 1 1 1 1 1 1 11 1 1 101: LOAD50,IOCSLDXT50&5,^'02D3327^SBR^^00B,*&17,^'02G3328^A^^^^00C,@4@,*&6,^'03D3329^MLCA^00C,0,IOCSLDWT 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: 50&8,^'03F3330^A^^^^00C,@5@,IOCSLDXT50&5,^'03B3331^SW^^^00B,IOCSMKRO50&1,^'04D3332^MLCA^00C,&IOCSLDR 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 301: S50,IOCSRTNP50&5,^'02F3333^BOOL^00?P,)161,,^'03A3334^SCMO^00C,1,IOCSDLD50,^'03B3335^MLCS^00C,@4@,IOC 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 401: SIO50,^'03?3336^BA1^^00B,IOCSERMA50,^'03C3337^SWMO^00CIOCSLDWT50,1,0,^'03B3338^MLCS^00C,@6@,IOCSIO50 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: ,^'02C3339^BWL1^00B,*&8,^'03?3340^BA1^^00B,IOCSERWT50,^'02F3341PBOOL^00?P,)171,,^'03A3342^SCMO^00C,2 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: ,IOCSDLD50,^'03B3343^MLCS^00C,@4@,IOCSIO50,^'03?3344^BA2^^00B,IOCSERMA50,^'03C3345^SWMO^00CIOCSLDWT5 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 701: 0,2,0,^'03B3346^MLCS^00C,@6@,IOCSIO50,^'02C3347^BWL2^00B,*&8,^'03?3348^BA2^^00B,IOCSERWT50,^'05C3349 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: PMLCA^00CIOCSLDRS50,IOCS5BNK50,IOCSRTNP50&5,^'03D3350^SW^^^00B,IOCS)002LM50&1,^'03B3351^CW^^^00B,IOC 1 1 1 1 11 1 1 1 1 11 1 1 1 901: SMKRO50&1,^'03A3352^BEPA^00BIOCSLDXT50,0,^'02?3353^NOP^^00B,,^'03F3354^DC^^^00C^IOCSDLD50,@74@,G,^' 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 1 1 1: 099?04B3355^SBR^^00BIOCSENDL50,IOCSEDXT50&5,^'04D3356^MLCA^00C,&IOCSELRS50,IOCSRTNP50&5,^'03B3357^SW 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^^^00B,IOCSMKRO50&1,^'02F3358^BOOL^00?P,)161,,^'03A3359^SCMO^00C,1,IOCSEDM50,^'03B3360^MLCS^00C,@4@, 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 201: IOCSIO50,^'03?3361^BA1^^00B,IOCSERMA50,^'02F3362PBOOL^00?P,)171,,^'03A3363^SCMO^00C,2,IOCSEDM50,^'03 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 301: B3364^MLCS^00C,@4@,IOCSIO50,^'03?3365^BA2^^00B,IOCSERMA50,^'05C3366PMLCA^00CIOCSELRS50,IOCS5BNK50,IO 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: CSRTNP50&5,^'03D3367^CW^^^00B,IOCS)002LM50&1,^'03B3368^CW^^^00B,IOCSMKRO50&1,^'05?3369^BCE^^00D,IOCS 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: )002RSPA&12,IOCS)002SVCN,1,^'03A3370^BEPA^00BIOCSEDXT50,0,^'02?3371^NOP^^00B,,^'03F3372^DC^^^00C^IOC 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 601: SEDM50,@76@,G,^'04F3373^MLCS^00CIOCSLDIT50,@1@,IOCS)002SVCN,^'03B3374^B^^^^00B,IOCS)002GOBK,^'04B337 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: 5^SBR^^00BIOCSDUMP50,IOCSDPXT50&5,^'02D3376^SBR^^00B,*&17,^'02G3377^A^^^^00C,@9@,*&6,^'03B3378^MLCA^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: 00C,0,IOCSDPPA50,^'03G3379^A^^^^00C,@10@,IOCSDPXT50&5,^'04D3380^MLCA^00C,&IOCSDPRS50,IOCSRTNP50&5,^' 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 901: 03B3381^SW^^^00B,IOCSMKRO50&1,^'03B3382^SW^^^00B,IOCSDPPR50&1,^'02F3383^BOOL^00?P,)161,,^' 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 099C03A3384^SCMO^00C,1,IOCSDPC50,^'03B3385^MLCS^00C,@4@,IOCSIO50,^'03?3386^BA1^^00B,IOCSERMA50,^'03D 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 101: 3387^MLCA^00C,IOCSDPPR50,*&9,^'02C3388^SWMO^00C,1,0,^'03B3389^MLCS^00C,@7@,IOCSIO50,^'02C3390^BWL1^0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 201: 0B,*&8,^'03?3391^BA1^^00B,IOCSERMA50,^'03D3392^MLCA^00C,IOCSDPPA50,*&9,^'02C3393^SRMO^00C,1,0,^'03B3 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: 394^MLCS^00C,@8@,IOCSIO50,^'02C3395^BWL1^00B,*&8,^'03?3396^BA1^^00B,IOCSERMA50,^'02F3397PBOOL^00?P,) 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 171,,^'03A3398^SCMO^00C,2,IOCSDPC50,^'03B3399^MLCS^00C,@4@,IOCSIO50,^'03?3400^BA2^^00B,IOCSERMA50,^' 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 501: 03D3401^MLCA^00C,IOCSDPPR50,*&9,^'02C3402^SWMO^00C,2,0,^'03B3403^MLCS^00C,@7@,IOCSIO50,^'02C3404^BWL 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: 2^00B,*&8,^'03?3405^BA2^^00B,IOCSERMA50,^'03D3406^MLCA^00C,IOCSDPPA50,*&9,^'02C3407^SRMO^00C,2,0,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 701: 3B3408^MLCS^00C,@8@,IOCSIO50,^'02C3409^BWL2^00B,*&8,^'03?3410^BA2^^00B,IOCSERMA50,^'05C3411PMLCA^00C 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 801: IOCSDPRS50,IOCS5BNK50,IOCSRTNP50&5,^'03B3412^CW^^^00B,IOCSMKRO50&1,^'03A3413^BEPA^00BIOCSDPXT50,0,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 901: 02?3414^NOP^^00B,,^'03F3415^DC^^^00C^IOCSDPC50,@36@,G,^'03G3416^DCW^^00BIOCSDPPR50,@^^^^^@,^' 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1: 099F03G3417^DCW^^00BIOCSDPPA50,@^^^^^@,^'02F3418QBOOL^00?P,)055,,^'03I3419^ILE^S00B***^LAST^F,TATEME 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: NTS,^'03H3420^BOOL^00AQ,#100*@#109n@,,^'04A3421^MATH^00?#095,#095&00000,,)099,,^'04A3422^MATH^00 1 11 1 1 1 11 11 1 1 1 1 11 11 11 1 1 201: ?#090,#090&00000,,)098,,^'05A3423^BOOL^00AR,)122*)142*-)145*@-)098&-)099@,,^'02G3424^BOOL^00?S,-)099 1 1 11 11 11 1 1 1 11 11 1 1 1 301: ,,^'03H3425^ORG^^00BIOCSLTF,IOCSCS1S3&1,^'03?3426^DC^^^00B,IOCSE00000,^'03B3427^EQU^^00BIOCSE#095,*& 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 1,^'02F3428^BOOL^00?T,)098,,^'02G3429^BOOL^00?U,-)098,,^'03H3430SORG^^00BIOCSLTF,IOCSCS2S3&1,^'02F34 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 501: 31^BOOL^00?S,)098,,^'03A3432TORG^^00B,IOCSCS2S3&1,^'03?3433SDC^^^00B,IOCSF00000,^'03B3434^EQU^^00BIO 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 601: CSF#090,*&1,^'02G3435UORG^^00B,IOCSLTF,^'02G3436^BOOL^00?Q,-#100,,^'02F3437RBOOL^00?R,#109,,^'04?343 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 701: 8^EQU^^00BIOCSE#095,IOCSCS1S3&7,^'02F3439RBOOL^00?Q,#110,,^'04?3440^EQU^^00BIOCSF#090,IOCSCS2S3&7,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 801: 02F3441QBOOL^00?Q,)160,,^'02F3442^BOOL^00?Q,#114,,^'04G3443^BW^^^00CIOCSX#080,IOCSCS1ENT,IOCSINT,^'0 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 901: 3?3444^B^^^^00B,IOCSCS1LRT,^'03H3445^SW^^^00BIOCSW#075,IOCSCS1S1,^'02I3446^B^^^^00B,IOCSX#080,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099B03H3447^EQU^^00BIOCSX#070,IOCSX#080,^'02G3448^BOOL^00?R,-#120,,^'02G3449^NOP^^00BIOCSCWS,,^'02G3 1 1 1 1 1 1 11 1 1 1 11 11 1 1 11 11 1 101: 450RBOOL^00?R,-#119,,^'02G3451^NOP^^00BIOCSBWS,,^'02G3452RBOOL^00?R,-#118,,^'02G3453^NOP^^00BIOCSDWS 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 201: ,,^'02G3454RBOOL^00?R,-#117,,^'02G3455^NOP^^00BIOCSEWS,,^'02G3456RBOOL^00?R,-#116,,^'02G3457^NOP^^00 11 11 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 301: BIOCSFWS,,^'02G3458RBOOL^00?Q,-#115,,^'02G3459^NOP^^00BIOCSAWS,,^'02F3460QBOOL^00?Q,)170,,^'02F3461^ 11 11 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 401: BOOL^00?Q,#121,,^'04H3462^BW^^^00CIOCSX#060,IOCSCS2ENT,IOCSINT2,^'03?3463^B^^^^00B,IOCSCS2LRT,^'03H3 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 501: 464^SW^^^00BIOCSW#065,IOCSCS2S1,^'02I3465^B^^^^00B,IOCSX#060,^'03H3466^EQU^^00BIOCSX#055,IOCSX#060,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 601: '02G3467^BOOL^00?R,-#127,,^'02H3468^NOP^^00BIOCS2CWS,,^'02G3469RBOOL^00?R,-#126,,^'02H3470^NOP^^00BI 11 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 701: OCS2BWS,,^'02G3471RBOOL^00?R,-#125,,^'02H3472^NOP^^00BIOCS2DWS,,^'02G3473RBOOL^00?R,-#124,,^'02H3474 11 11 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 801: ^NOP^^00BIOCS2EWS,,^'02G3475RBOOL^00?R,-#123,,^'02H3476^NOP^^00BIOCS2FWS,,^'02G3477RBOOL^00?Q,-#122, 1 11 11 1 1 1 11 11 1 1 11 11 1 1 1 1 901: ,^'02H3478^NOP^^00BIOCS2AWS,,^'02A3479QLTORG00B,*,^'02?3480PEJECT00B,,^'02?3481^MEND^00B,,^' 1 11 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 11 1 1: 002A017HEADER^ZZIOCS' 1 1 1 1: 098F02?0001^EJECT00B,,^'05H0002*O-92600D**^1410-I,^V5^L17,^RTAPE^L21,^WTAPE^L19,^'03E0003^BOOL^00?P, 1 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 101: )003&)057,)057,^'04A0004^BOOL^00A,@)001*)003@&)067,)067,^'03E0005PBOOL^00?P,)038&)058,)058,^'04A0006 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 201: ^BOOL^00A,@)001*)038@&)068,)068,^'04B0007^BOOL^00A,@)038*-)031@&)030,)030,^'03D0008PBOOL^00?,)068&)0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: 58,)058,^'02I0009^BOOL^00?,)058,)038,^'02I0010^BOOL^00?,)058,#108,^'03E0011^BOOL^00?P,)026&)059,)059 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: ,^'04A0012^BOOL^00A,@)001*)026@&)069,)069,^'04G0013PBOOL^00A,@)047*-)064@&)004&)054,)054,^'04B0014^B 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 501: OOL^00A,@)047*-)054@&)064,)064,^'03D0015^BOOL^00?,)005&)055,)055,^'03D0016^BOOL^00?,)006&)056,)056,^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 601: '04D0017^BOOL^00?,)058&)059&)068&)069,#105,^'03I0018^BOOL^00?,)054&)055&)056,#101,^'03I0019^BOOL^00? 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 701: ,)064&)065&)066,#102,^'06F0020^BOOL^00A,@)002*)029@i&)060&)070&)035&)036&)076,#100,^'04?0021^BOO 1 1 1 11 1 1 1 1 1 11 1 801: L^00?P,)061&)071d,#100,^'04I0022^BOOL^00?,)057&)058&)059&)060&)061,#103,^'05?0023^BOOL^00?,)067& 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: )068&)069&)070&)071,#104,,^'02I0024PBOOL^00?,)057,#109,^'02I0025^BOOL^00?,)067,#110,^' 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 098F03?0026^BOOL^00?,-)044,#111,^'03?0027^BOOL^00?,)032,#106,,^'03?0028^BOOL^00?,)051,#107,,^'02I002 1 1 1 1 1 1 1 11 1 1 1 1 11 11 1 1 1 1 11 11 1 101: 9^BOOL^00?,)045,#112,^'02E0030^ORG^^00B,21600,^'02I0031^BOOL^00?,)022,#113,^'03B0032^BOOL^00?P,)045& 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: -)022,,^'04E0033^DCW^^00B100,@"@,^FIXTURE,^FOR^MRCWG^'02F0034^BOOL^00?Q,#100,,^'03G0035^UPT^S00B***^ 11 11 1 1 1 1 11 1 1 1 11 11 1 1 301: INTERR,EQUENCE,^'06E0036^BOOL^00?R,#105&)035&)036&)076&)060&)061&)070&)071,)198,^'05F0037^SBR^^00B10 1 1 11 1 1 1 1 1 11 1 1 401: 1,IOCSINTEXT&5,^SET^INTERRUPT^RETURN^'02G0038^BOOL^00?S,-)198,,^'05D0039RSBR^^00B101,IOCSATTN&5,^SET 1 1 11 1 1 1 11 11 1 1 1 1 501: ^INTERRUPT^RETURN^'04B0040SBXPA^00B108,IOCSATTN,^ENTER^IOCS^'04?0041QDA^^^00B115,1X385,^TERMINAL^WM^ 11 1 1 1 1 11 1 1 1 1 601: '02C0042^^^^^^00C,1,1,^'03B0043^BOOL^00?Q,-)045*)022,,^'02F0044PBOOL^00?P,#100,,^'07D0045^P-PRI00B** 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 701: *^OVERLA,ORITY^LINKAGE^TABLE^DEFINITIONS^AND^OVERLAYS,^'05D0046^DA^^^00BIOCSSYS,1X444,^OVLAP-PRIORIT 1 1 11 1 1 1 1 801: Y^SYSTEM^'05F0047^BOOL^00?R,#105&)035&)036&)076&)060&)070,)198,,^'04H0048^^^^^^00BIOCSCSNENT,1,^CHAN 11 1 1 1 1 11 11 1 1 1 1 901: -AMBIG^ENTRY^'02G0049^BOOL^00?S,-)198,,^'04E0050R^^^^^00BIOCSATTN,1,^INTERRUPT^ENTRY^' 11 1 1 1 11 11 1 1 1 1 1 1: 097B04D0051S^^^^^00BIOCSCS1ENT,20,^CHAN1^ENTRY^'02F0052^BOOL^00?R,#103,,^'04C0053^^^^^^00BIOCSCS1PR, 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: 27,^EXIT^TO^BA1^'04H0054^^^^^^00BIOCSCS1SCN,34,^RETURN^FROM^BA1^'03A0055^BOOL^00?S,)060&)061,,^'04G0 1 11 1 1 1 1 11 1 1 1 11 11 1 201: 056^^^^^^00BIOCSCS1S1,71,^T/P^ACTIVITY^SW^'03A0057SBOOL^00?S,)058&)059,,^'04H0058^^^^^^00BIOCSCS1S2, 1 1 1 11 1 1 1 11 11 1 1 1 301: 79,^SEEK^ACTIVITY^SW^'02F0059SBOOL^00?S,)057,,^'04H0060^^^^^^00BIOCSCS1S3,87,^TAPE^ACTIVITY^SW^'03B0 1 11 1 1 1 11 11 1 1 1 1 11 1 401: 061^MATH^00?#095,00000,,,,^'03A0062SBOOL^00?R,)058&)059,,^'05B0063^^^^^^00BIOCSCS1S4,95,^DISK^R/W^AC 1 11 1111 11 1 1 1 11 11 1 1 1 1 501: TIVITY^SW^'03A0064RBOOL^00?R,#104&)076,,^'04E0065^^^^^^00BIOCSCS2ENT,102,^CHAN2^ENTRY^'02F0066^BOOL^ 11 1 1 1 11 11 1 1 1 1 11 1 601: 00?R,#104,,^'04D0067^^^^^^00BIOCSCS2PR,109,^EXIT^TO^BA2^'04I0068^^^^^^00BIOCSCS2SCN,116,^RETURN^FROM 1 1 11 11 1 1 1 1 11 1 1 1 1 701: ^BA2^'03A0069^BOOL^00?S,)070&)071,,^'04H0070^^^^^^00BIOCSCS2S1,153,^T/P^ACTIVITY^SW^'03A0071SBOOL^00 11 1 1 1 11 11 1 1 1 1 11 1 1 801: ?S,)068&)069,,^'04I0072^^^^^^00BIOCSCS2S2,161,^SEEK^ACTIVITY^SW^'02F0073SBOOL^00?R,)067,,^'04I0074^^ 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: ^^^^00BIOCSCS2S3,169,^TAPE^ACTIVITY^SW^'03B0075^MATH^00?#090,00000,,,,^' 1 1 1 11 1 1 11 1111 1 1: 098G03A0076RBOOL^00?R,)068&)069,,^'05C0077^^^^^^00BIOCSCS2S4,177,^DISK^R/W^ACTIVITY^SW^'05?0078R^^^^ 1 1 1 1 1 11 11 1 1 1 1 11 1 101: ^00BIOCSINTEXT,191,^INTERRUPT^RETURN^'04H0079^^^^^^00BIOCSPS,200,^STORED^1411^STATUS^'04G0080^^^^^^0 1 1 1 11 1 1 1 1 11 1 1 201: 0BIOCSENTRY,202,^START^CHANNELS^'02F0081^BOOL^00?R,#103,,^'04E0082^^^^^^00BIOCSCS1SFS,231,^CLEAR^CHA 1 1 11 1 1 1 11 11 1 1 1 1 301: N1^'05A0083^^^^^^00BIOCSCS1RET,245,^SET^RETURN^TO^BA1^'02F0084RBOOL^00?R,#104,,^'04E0085^^^^^^00BIOC 11 1 1 1 1 11 1 1 1 11 11 1 1 401: SCS2SFS,259,^CLEAR^CHAN2^'05A0086^^^^^^00BIOCSCS2RET,273,^SET^RETURN^TO^BA2^'04I0087R^^^^^00BIOCSCPE 1 1 11 1 1 1 1 11 1 1 501: RR,287,^1415^ERROR^ENTRY^'02G0088^BOOL^00?R,-)044,,^'04H0089^^^^^^00BIOCSCLOP,301,^OPEN/CLOSE^ENTRY^ 1 1 11 1 1 1 11 11 1 1 1 1 601: '05A0090^^^^^^00BIOCSRENTRY,315,^IOCS-EXIT^REENTRY^'05E0091^^^^^^00BIOCSEXITRU,322,^CALLING^SEQUENCE 11 1 1 1 1 11 1 1 1 1 701: ^SCAN^'02F0092RBOOL^00?R,)060,,^'05B0093^^^^^^00BIOCSCS1E2,359,^1414^BIPR/BUPR^EXIT^'05A0094^^^^^^00 11 1 1 1 11 11 1 1 1 1 11 1 1 801: BIOCSCS1E3,366,^1414^OUTQUIRY^EXIT^'02F0095RBOOL^00?R,)061,,^'04G0096^^^^^^00BIOCSCS1E6,380,^7750^AT 1 1 11 1 1 1 11 11 1 1 1 1 901: TN^EXIT^'02F0097RBOOL^00?R,)070,,^'05B0098^^^^^^00BIOCSCS2E2,410,^1414^BIPR/BUPR^EXIT^' 11 1 1 1 11 11 1 1 1 1 1 1: 097H05A0099^^^^^^00BIOCSCS2E3,417,^1414^OUTQUIRY^EXIT^'02F0100RBOOL^00?R,)071,,^'04G0101^^^^^^00BIOC 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: SCS2E6,431,^7750^ATTN^EXIT^'02G0102RBOOL^00?R,-)035,,^'04B0103^^^^^^00BIOCSCIE,329,^USABLE^BXPA^'05D 1 1 11 1 1 1 11 11 1 1 1 1 11 201: 0104^^^^^^00BIOCSRESUME,336,^HLT^RESUMPTION^ENTRY^'02F0105^BOOL^00?S,)035,,^'04E0106RORG^^00B,IOCSSY 1 1 1 1 11 1 1 1 11 11 1 1 1 301: S&328,^TABLE-OVERLAY^'05B0107^BXPA^00BIOCSCIE,)035,^CONSOLE^INQUIRY^EXIT^'02F0108SBOOL^00?R,)036,,^' 1 11 1 1 1 1 11 1 1 1 11 1 401: 04E0109^ORG^^00B,IOCSSYS&342,^TABLE-OVERLAY^'05D0110^BXPA^00BIOCSCS1E1,)036,^CHAN1^URREQUEST^EXIT^'0 1 1 1 1 1 11 1 1 1 1 11 501: 2F0111RBOOL^00?R,)076,,^'04E0112^ORG^^00B,IOCSSYS&393,^TABLE-OVERLAY^'05D0113^BXPA^00BIOCSCS2E1,)076 1 1 1 11 11 1 1 1 1 11 1 1 1 601: ,^CHAN2^URREQUEST^EXIT^'03F0114RBOOL^00?R,)035&)036&)076,,^'05A0115^ORG^^00B,IOCSSYS&444,^END^SYSTEM 1 11 1 1 1 11 11 1 1 1 1 701: ^LINKAGES^'02G0116^BOOL^00?R,-#100,,^'06I0117PERLAP00B***^NON-OV,^LINKAGE^TABLE^DEFINITIONS^AND^OVER 11 1 1 1 11 11 1 1 1 801: LAYS,^'05?0118^DA^^^00BIOCSSYS,1X42,^NON-OVERLAP^SYSTEM^'04G0119^^^^^^00BIOCSCPERR,1,^1415^ERROR^ENT 1 11 1 1 1 1 11 1 1 1 1 901: RY^'02G0120^BOOL^00?P,-)044,,^'04G0121^^^^^^00BIOCSCLOP,15,^OPEN/CLOSE^ENTRY^' 11 1 1 1 11 11 1 1 1 1 1 1: 099H05?0122^^^^^^00BIOCSRENTRY,29,^IOCS-EXIT^REENTRY^'05D0123^^^^^^00BIOCSEXITRU,36,^CALLING^SEQUENC 1 1 1 1 1 1 11 1 1 1 1 101: E^SCAN^'02F0124^BOOL^00?R,)044,,^'05?0125PORG^^00B,IOCSSYS&35,^END^SYSTEM^LINKAGES^'04F0126RBOOL^00? 11 1 1 1 11 11 1 1 1 1 11 1 1 201: P,#101fi&)057&)067,,^'03I0127^BOOL^00?R,-#105*-)057*-)067,,^'05?0128^DA^^^00BIOCSCDTAP,1X22, 1 11 11 1 1 1 11 11 1 1 1 1 301: ^1402/03^LINKAGES^'05?0129^^^^^^00BIOCSURERR,1,^1402/03^ERROR^ENTRY^'03C0130^BOOL^00?P,-#101*-#102,, 11 1 1 1 1 11 1 1 1 11 401: ^'05C0131RDA^^^00BIOCSCDTAP,1X136,^CARD-TAPE^LINKAGES^'03A0132^BOOL^00?R,#101f,,^'05?0133^^^^^^0 11 1 1 1 1 11 1 1 1 11 11 1 1 501: 0BIOCSURERR,1,^1402/03^ERROR^ENTRY^'03A0134RBOOL^00?R,)057&)067,,^'04H0135^^^^^^00BIOCSERROR,36,^TAP 1 1 11 1 1 1 11 11 1 1 1 1 601: E^ERROR^ENTRY^'05B0136^^^^^^00BIOCSEREX,58,^TAPE^EXCEPTION^PIVOTS^'05A0137^^^^^^00BIOCSERNOIS,83,^AR 11 1 1 1 1 11 1 1 1 1 701: -SAVE^FOR^ERRORS^'02F0138^BOOL^00?S,)007,,^'05D0139^^^^^^00BIOCSLBAREA,94,^LOCATION^OF^LABELAREA^'02 11 1 1 1 11 11 1 1 1 1 11 801: G0140SBOOL^00?S,-)044,,^'04H0141^^^^^^00BIOCSENTAB,95,^FILE-INIT^RETURN^'05?0142^^^^^^00BIOCSCLSAB,1 1 1 1 11 11 1 1 1 1 11 1 1 1 901: 02,^NON-PADDING^ENTRY^'02F0143SBOOL^00?S,)032,,^'04I0144^^^^^^00BIOCSCHKPT,109,^CHECKPOINT^ENTRY^' 1 11 1 1 1 11 11 1 1 1 1 1 1: 099?02F0145SBOOL^00?S,)051,,^'04D0146^^^^^^00BIOCSCLOSD,123,^DISCOURAGED^'03B0147SORG^^00B,IOCSCDTAP 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 101: &83,^'03C0148^BOOL^00?S,-)050*-)051,,^'03H0149^DCW^^00BIOCSEROPTN,@^^SRP^@,^'03B0150SBOOL^00?S,)050* 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 201: -)051,,^'03H0151^DCW^^00BIOCSEROPTN,@^*SRP^@,^'03B0152SBOOL^00?S,-)050*)051,,^'03H0153^DCW^^00BIOCSE 11 11 1 1 1 1 11 1 1 1 11 11 1 1 301: ROPTN,@D^SRPD@,^'03A0154SBOOL^00?S,)050*)051,,^'03H0155^DCW^^00BIOCSEROPTN,@D*SRP^@,^'03C0156SORG^^0 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 401: 0B,IOCSCDTAP&136,^'02F0157RBOOL^00?P,#105,,^'03D0158^DA^^^00BIOCSCOMMON,1X84,^'03A0159^^^^^^00BIOCSR 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: ELARM,1,^'03?0160^^^^^^00BIOCSMDWA,15,^'03A0161^^^^^^00BIOCSINTLK,29,^'02I0162^^^^^^00BIOCSGET,43,^' 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: 02I0163^^^^^^00BIOCSPUT,57,^'03?0164^^^^^^00BIOCSEXDP,78,^'03C0165^DCW^^00BIOCSMRET,00000,^'02F0166^ 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: BOOL^00?R,)028,,^'03D0167^EQU^^00BIOCSTRSLAB,)028,^'03I0168^DCW^^00BIOCSSTKAR,IOCSTRSLAB,^'03C0169^E 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 801: QU^^00BIOCSTSLAB,)048,^'03H0170^DCW^^00BIOCSSGMTL,IOCSTSLAB,^'02G0171^BOOL^00?S,-)028,,^'03F0172RDCW 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 901: ^^00BIOCSSTKAR,@^^^^^@,^'03A0173SORG^^00B,IOCSMRET&11,^'03D0174^DA^^^00BIOCSDISKLN,1X61,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097G03?0175^ORG^^00B,IOCSDISKLN,^'02F0176^BOOL^00?R,#108,,^'03B0177^DA^^^00BIOCS1405,1X35,^'02I0178^ 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: ^^^^^00BIOCSCONV,1,^'03B0179^^^^^^00BIOCSPIKSEQ,15,^'03B0180^^^^^^00BIOCSRELPAD,29,^'03C0181^DCW^^00 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: BIOCSUNIT,&)049,^'03D0182^DCW^^00BIOCSCONV10,@@0@,^'02G0183^EQU^^00BIOCSRQ,*,^'03D0184^DCW^^00BIOCSR 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: QDKIN,0000,^'03C0185^^^^^^00BIOCSRQAVLY,@A@,^'03F0186^^^^^^00BIOCSROUTINE,00000,^'03?0187^^^^^^00BIO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: CSRQARM,0,^'03F0188^DC^^^00BIOCSDSKAD,0000000,^'02C0189^DCW^^00B,@"@,^'04?0190^DA^^^00DIOCSALMASK,1X 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 27,X14,0,^'03A0191^^^^^^00BIOCSALLINK,5,^'03A0192^^^^^^00BIOCSALERCT,6,^'03A0193^^^^^^00BIOCSALERAR, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: 7,^'03B0194^^^^^^00BIOCSALDKIN,11,^'03B0195^^^^^^00BIOCSALAVLY,12,^'03?0196^^^^^^00BIOCSALRL,17,^'03 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 701: A0197^^^^^^00BIOCSALARM,18,^'03B0198^^^^^^00BIOCSALDKAD,25,^'03?0199^^^^^^00BIOCSALGM,26,^'03B0200^^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: ^^^^00BIOCSALFILD,27,^'03?0201^ORG^^00B,IOCSALMASK,^'03A0202^EQU^^00CIOCSXFD,12,X,^'03A0203^EQU^^00C 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 901: IOCSXRL,13,X,^'03A0204^EQU^^00CIOCSXAL,14,X,^'03A0205^EQU^^00CIOCSXAT,15,X,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 099A03A0206^EQU^^00BIOCSXWA,)03C,^'03A0207RBOOL^00?R,)059&)069,,^'03C0208^DCW^^00BIOCSSEKAD,0000,^'0 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 101: 3G0209^DCW^^00BIOCSDSKAD,00000000,^'03B0210^DA^^^00BIOCSGETS,1X28,^'03B0211^^^^^^00BIOCSSRELAR,15,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: 03A0212^ORG^^00B,IOCSGETS&35,^'02D0213^B^^^^00B,)04C,^'02G0214^BOOL^00?S,-)043,,^'02?0215^NOP^^00B,, 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 11 301: ^'03?0216SEQU^^00BIOCSXRL,X13,^'03?0217^EQU^^00BIOCSXAL,X14,^'03?0218^EQU^^00BIOCSXAT,X15,^'03A0219^ 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: EQU^^00BIOCSXWA,)03C,^'03C0220RORG^^00B,IOCSDISKLN&62,^'03F0221PORG^^00B,)02A,^IOCS^ORIGIN^'02?0222^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: EJECT00B,,^'02?0223^MEND^00B,,^'02F0224QBOOL^00?P,)045,,^'03G0225^LINKA00B***^BEGIN,GE^TABLE,^'02H02 1 11 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 601: 26^EQU^^00BIOCSSYS,*,^'02F0227^BOOL^00?Q,#100,,^'03A0228^BOOL^00?R,)198*#104,,^'05D0229^BOL1^00BIOCS 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 701: CSNENT,IOCSCS2ENT,^Q.^CHAN1^BUSY^'06?0230^BW^^^00C,IOCSCS2SF,IOCSCS2SCN&1,^RESOLVE^AMBIGUITY^'03B023 1 1 11 1 1 1 1 1 11 1 801: 1RBOOL^00?R,)198*-#104,,^'05A0232^BXPA^00BIOCSCSNENT,*&13,^AUXILIARY^CS1ENT^'03B0233^BW^^^00C,IOCSIN 1 1 11 11 1 1 1 1 11 1 1 1 901: TEXT,0,^'02G0234RBOOL^00?R,-)198,,^'05E0235^SCNLB00CIOCSATTN,0,*-6,^DECREMENT^RETURN^ADDR^' 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 097H03B0236^SAR^^00B,IOCSINTEXT&5,^'04G0237RFORMA00B***^FIXED-,T^CHAN1^SCHEDULER,^'02G0238^BOOL^00?R 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: ,-#103,,^'05D0239^BIPR100BIOCSCS1ENT,IOCSCIPR,^Q.^1415^REQUEST^'02F0240^BOOL^00?S,)036,,^'04I0241^BU 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: PR100B,IOCSCS1UPR,^Q.^1402/03^REQUEST^'03A0242SBOOL^00?S,#104&)076,,^'05B0243^BXPA^00B,IOCSCS2ENT,^E 1 1 1 11 1 1 1 11 11 1 1 1 1 301: ND^DEGEN^CHAN1^SCHED^'03H0244SBOOL^00?S,-#104*-)076*)198,,^'04I0245^BXPA^00B,IOCSPSR,^END^DEGEN^CHAN 11 1 1 1 11 11 1 1 1 1 401: 1^SCHED^'03I0246SBOOL^00?S,-#104*-)076*-)198,,^'05B0247^BXPA^00B,IOCSINTEXT,^END^DEGEN^CHAN1^SCHED^' 11 1 1 1 11 11 1 1 1 1 1 501: 02F0248SBOOL^00?S,)036,,^'02F0249^NOP^^00B,,^SPARE^'02G0250^BOOL^00?T,-)036,,^'02F0251SNOPWM00B,,^SP 1 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 11 601: ARE^'02G0252^BXPA^00B,0,^SPARE^'02G0253TBIPR100B,0,^SPARE^'02G0254^BQPR100B,0,^SPARE^'02G0255^BUPR10 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: 0B,0,^SPARE^'02G0256^BXPR100B,0,^SPARE^'02F0257^NOPWM00B,,^SPARE^'02G0258^BXPA^00B,0,^SPARE^'02F0259 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 801: ^NOPWM00B,,^SPARE^'02G0260^BXPA^00B,0,^SPARE^'02F0261^NOPWM00B,,^SPARE^'02G0262^BXPA^00B,0,^SPARE^'0 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 901: 2F0263^NOPWM00B,,^SPARE^'02G0264^BXPA^00B,0,^SPARE^'02F0265^BOOL^00?S,#103,,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098?03A0266RBOOL^00?R,#104&)076,,^'05D0267^BOL1^00BIOCSCS1ENT,IOCSCS2ENT,^Q.^CHAN1^BUSY^'02G0268^BOO 1 1 1 1 1 11 11 1 1 1 1 11 1 101: L^00?T,-#103,,^'02F0269RBOOL^00?R,)198,,^'05A0270^BOL1^00BIOCSCS1ENT,IOCSPSR,^Q.^CHAN1^BUSY^'02G0271 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 201: ^BOOL^00?T,-)198,,^'05D0272RBOL1^00BIOCSCS1ENT,IOCSINTEXT,^Q.^CHAN1^BUSY^'05A0273TBOPR100BIOCSCS1PR, 1 1 11 11 1 1 1 1 11 1 1 1 301: 0,^Q.^OVLAP^REQ,^TO^BA1^'03?0274^NOPWM00BIOCSCS1SCN,,^'05?0275^B^^^^00B,IOCSCS1SF,^Q.^FORCING,^NORM^ 1 11 1 1 11 11 1 1 1 1 401: NOP^'02G0276^BOOL^00?R,-)060,,^'04D0277^BIPR100B,IOCSCIPR,^Q.^1415^REQUEST^'02F0278^BOOL^00?T,)061,, 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 501: ^'03?0279^BXPR100B,IOCSCS1R50,^'02F0280TBOOL^00?T,)036,,^'04I0281^BUPR100B,IOCSCS1UPR,^Q.^1402/03^RE 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: QUEST^'03I0282TBOOL^00AT,-)061*@)058&)059@,,^'04E0283^BXPA^00B,IOCSCS1S2-1,^BYPASS^SPARES^'03I0284TB 11 1 1 1 11 11 1 1 1 1 11 1 701: OOL^00?T,-)061*-)058*-)059,,^'04E0285^BXPA^00B,IOCSCS1S3-1,^BYPASS^SPARES^'02F0286TBOOL^00?T,)061,,^ 1 1 11 11 1 1 1 1 11 1 1 1 11 801: '04E0287^BXPA^00B,IOCSCS1S1-1,^BYPASS^SPARES^'02G0288TBOOL^00?T,-)036,,^'02G0289^BUPR100B,0,^SPARE^' 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 901: 02G0290TBOOL^00?T,-)061,,^'02G0291^BXPR100B,0,^SPARE^'02F0292^NOPWM00B,,^SPARE^' 1 1 1 1 11 11 1 1 1 1 11 1 1 11 1 1: 099G02G0293^BXPA^00B,0,^SPARE^'02G0294^BOOL^00?U,-#103,,^'04I0295RBIPR100B,IOCSCS1QIQ,^Q.^1414/15^RE 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: QUEST^'04F0296^BQPR100B,IOCSCS1QPR,^Q.^1414^REQUEST^'02F0297^BOOL^00?R,)036,,^'05B0298^BUPR100B,IOCS 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: CS1QUQ,^Q.^1402/03/14^REQUEST^'02G0299^BOOL^00?V,-)036,,^'04F0300RBUPR100B,IOCSCS1UIR,^Q.^1414^REQUE 1 11 1 1 1 11 11 1 1 1 1 301: ST^'02F0301VNOPWM00B,,^SPARE^'02G0302^BW^^^00B,0,^SPARE^'02?0303TNOPWM00B,,^'04I0304^BXPA^00BIOCSCS1 11 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 401: S1,0,^Q.^EXEC^T/P^WRITES^'03A0305UBOOL^00?R,)058&)059,,^'02?0306^NOPWM00B,,^'05E0307^BXPA^00BIOCSCS1 1 1 11 1 1 1 11 11 1 1 11 11 1 1 501: S2,IOCS1SEEK,^Q.^PENDING^SEEKS^'02G0308^BOOL^00?T,-#103,,^'02F0309RNOPWM00B,,^SPARE^'02G0310^BXPA^00 1 1 11 1 1 1 11 11 1 1 11 11 1 1 601: B,0,^SPARE^'02F0311TBOOL^00?R,)057,,^'02?0312^NOP^^00B,,^'02F0313^BOOL^00?T,)042,,^'05I0314^BXPA^00B 1 1 11 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 701: IOCSCS1S3,IOCSE00000,^Q.^PENDING^TAPE^I/O^'02G0315^BOOL^00?U,-)042,,^'03A0316TBOOL^00?T,)058&)059,,^ 1 1 11 1 1 1 11 11 1 1 1 11 801: '05B0317^BXPA^00BIOCSCS1S3,*&1,^Q.^PENDING^TAPE^I/O^'02G0318^BOOL^00?U,-#100,,^'03A0319TBOOL^00?T,#1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: 04&)076,,^'05I0320^BXPA^00BIOCSCS1S3,IOCSCS2ENT,^Q.^PENDING^TAPE^I/O^'02G0321^BOOL^00?U,-#100,,^' 11 11 1 1 1 1 11 1 1 1 11 1 1: 097D02F0322TBOOL^00?T,)198,,^'05F0323^BXPA^00BIOCSCS1S3,IOCSPSR,^Q.^PENDING^TAPE^I/O^'02G0324^BOOL^0 1 1 1 1 1 11 11 1 1 1 1 11 1 1 101: 0?U,-)198,,^'05I0325TBXPA^00BIOCSCS1S3,IOCSINTEXT,^Q.^PENDING^TAPE^I/O^'03B0326UMATH^00?#095,00000,, 1 11 11 1 1 1 1 11 1 1 11 11 201: ,,^'02G0327^BOOL^00?T,-)057,,^'02F0328RNOPWM00B,,^SPARE^'02G0329^BXPA^00B,0,^SPARE^'03A0330TBOOL^00? 11 11 1 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 301: R,)058&)059,,^'02?0331^NOPWM00B,,^'05H0332^BXPA^00BIOCSCS1S4,IOCS1DISK,^Q.^PENDING^DISK^I/O^'02G0333 1 11 11 1 1 11 11 1 1 1 1 11 1 401: ^BOOL^00?S,-#103,,^'02F0334RNOPWM00B,,^SPARE^'02G0335^BXPA^00B,0,^SPARE^'04G0336SFORMA00B***^FIXED-, 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 501: T^CHAN2^SCHEDULER,^'02G0337^BOOL^00?R,-#104,,^'02F0338^BOOL^00?S,)076,,^'05I0339^BUPR200BIOCSCS2ENT, 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 601: IOCSCS2UPR,^Q.^1402/03^REQUEST^'02F0340SBOOL^00?S,)198,,^'04I0341^BXPA^00B,IOCSPSR,^END^DEGEN^CHAN2^ 1 11 1 1 1 11 11 1 1 1 1 701: SCHED^'02G0342^BOOL^00?T,-)198,,^'05B0343SBXPA^00B,IOCSINTEXT,^END^DEGEN^CHAN2^SCHED^'02G0344TBOOL^0 11 1 1 1 11 11 1 1 1 1 11 1 1 801: 0?S,-)076,,^'02G0345^BOPR200B,0,^SPARE^'02F0346SNOPWM00B,,^SPARE^'02G0347^BXPA^00B,0,^SPARE^'02G0348 1 11 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 901: ^BIPR200B,0,^SPARE^'02G0349^BQPR200B,0,^SPARE^'02G0350^BUPR200B,0,^SPARE^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097E02G0351^BXPR200B,0,^SPARE^'02F0352^NOPWM00B,,^SPARE^'02G0353^BXPA^00B,0,^SPARE^'02F0354^NOPWM00B 1 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 101: ,,^SPARE^'02G0355^BXPA^00B,0,^SPARE^'02F0356^NOPWM00B,,^SPARE^'02G0357^BXPA^00B,0,^SPARE^'02F0358^NO 11 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 201: PWM00B,,^SPARE^'02G0359^BXPA^00B,0,^SPARE^'02F0360^BOOL^00?S,#104,,^'02F0361RBOOL^00?R,)198,,^'05A03 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 301: 62^BOL2^00BIOCSCS2ENT,IOCSPSR,^Q.^CHAN2^BUSY^'02G0363^BOOL^00?T,-)198,,^'05D0364RBOL2^00BIOCSCS2ENT, 1 1 1 11 1 1 1 11 11 1 1 1 401: IOCSINTEXT,^Q.^CHAN2^BUSY^'05A0365TBOPR200BIOCSCS2PR,0,^Q.^OVLAP^REQ,^TO^BA2^'03?0366^NOPWM00BIOCSCS 1 11 1 1 1 1 11 1 1 501: 2SCN,,^'05?0367^B^^^^00B,IOCSCS2SF,^Q.^FORCING,^NORM^NOP^'03C0368^BOOL^00?R,-)070*-)071,,^'02F0369^B 11 11 1 1 1 1 11 1 1 1 11 11 1 601: OOL^00?T,)076,,^'04I0370^BUPR200B,IOCSCS2UPR,^Q.^1402/03^REQUEST^'03A0371TBOOL^00?T,)068&)069,,^'04E 1 1 11 11 1 1 1 1 11 1 1 1 11 11 701: 0372^BXPA^00B,IOCSCS2S2-1,^BYPASS^SPARES^'02G0373^BOOL^00?U,-#104,,^'04E0374TBXPA^00B,IOCSCS2S3-1,^B 1 1 1 1 11 1 1 1 11 11 1 1 1 1 801: YPASS^SPARES^'02G0375UBOOL^00?T,-)076,,^'02G0376^BUPR200B,0,^SPARE^'02G0377TBQPR200B,0,^SPARE^'02G03 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 901: 78^BXPR200B,0,^SPARE^'02F0379^NOPWM00B,,^SPARE^'02G0380^BXPA^00B,0,^SPARE^' 1 1 1 11 1 1 11 11 1 1 1 1 1 1: 095F02F0381^BOOL^00?T,)070,,^'02F0382RBOOL^00?R,)071,,^'05I0383^BXPR200B,IOCSCS2R50,^7750^INT^-^BR^T 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 101: O^PRGM^STKING^'02F0384^BOOL^00?U,)070,,^'04F0385RBIPR200B,IOCSCS2UIR,^Q.^1414^REQUEST^'04F0386^BQPR2 11 1 1 1 11 11 1 1 1 1 11 1 201: 00B,IOCSCS2QPR,^Q.^1414^REQUEST^'02F0387UBOOL^00?R,)076,,^'05B0388^BUPR200B,IOCSCS2QUQ,^Q.^1402/03/1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: 4^REQUEST^'02G0389^BOOL^00?U,-)076,,^'04F0390RBUPR200B,IOCSCS2UIR,^Q.^1414^REQUEST^'02F0391UBOOL^00? 11 1 1 1 11 11 1 1 1 1 11 1 1 401: R,)071,,^'02C0392^BXPA^00B,*&9,^'02F0393RNOPWM00B,,^SPARE^'02F0394FNOPWM00B,,^SPARE^'02G0395^BW^^^00 1 11 11 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 501: B,0,^SPARE^'02?0396^NOPWM00B,,^'04I0397^BXPA^00BIOCSCS2S1,0,^Q.^EXEC^T/P^WRITES^'03A0398TBOOL^00?R,) 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 601: 068&)069,,^'02?0399^NOPWM00B,,^'05E0400^BXPA^00BIOCSCS2S2,IOCS2SEEK,^Q.^PENDING^SEEKS^'02G0401^BOOL^ 11 11 1 1 11 11 1 1 1 1 11 1 701: 00?T,-#104,,^'02F0402RNOPWM00B,,^SPARE^'02G0403^BXPA^00B,0,^SPARE^'02F0404TBOOL^00?R,)067,,^'02?0405 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: ^NOP^^00B,,^'02F0406^BOOL^00?T,)042,,^'05I0407^BXPA^00BIOCSCS2S3,IOCSF00000,^Q.^PENDING^TAPE^I/O^'02 1 11 11 1 1 1 11 11 1 1 1 1 11 901: G0408^BOOL^00?U,-)042,,^'03A0409TBOOL^00?T,)068&)069,,^' 1 1 1 11 11 1 1 1 11 1 1: 098D05B0410^BXPA^00BIOCSCS2S3,*&1,^Q.^PENDING^TAPE^I/O^'02G0411^BOOL^00?U,-#100,,^'02F0412TBOOL^00?T 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: ,)198,,^'05F0413^BXPA^00BIOCSCS2S3,IOCSPSR,^Q.^PENDING^TAPE^I/O^'02G0414^BOOL^00?U,-)198,,^'05I0415T 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: BXPA^00BIOCSCS2S3,IOCSINTEXT,^Q.^PENDING^TAPE^I/O^'03B0416UMATH^00?#090,00000,,,,^'02G0417^BOOL^00?T 1 1 1 11 1 1 11 1111 11 1 1 301: ,-)067,,^'02F0418RNOPWM00B,,^SPARE^'02G0419^BXPA^00B,0,^SPARE^'03A0420TBOOL^00?R,)068&)069,,^'02?042 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: 1^NOPWM00B,,^'05H0422^BXPA^00BIOCSCS2S4,IOCS2DISK,^Q.^PENDING^DISK^I/O^'02G0423^BOOL^00?S,-#104,,^'0 1 11 11 1 1 1 1 11 1 1 1 11 11 501: 2F0424RNOPWM00B,,^SPARE^'02G0425^BXPA^00B,0,^SPARE^'04H0426S^TO^I00B***^RETURN,NTERRUPTED^PROGRAM,^' 1 1 11 11 1 1 1 1 11 1 1 1 1 1 601: 02F0427^BOOL^00?R,)198,,^'04G0428^BXPA^00B,IOCSPSR,^RESTORE^1411^STATUS^'02G0429^BOOL^00?S,-)198,,^' 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 701: 02F0430RNOPWM00B,,^SPARE^'02G0431^BW^^^00B,0,^SPARE^'04F0432SBEPA^00BIOCSINTEXT,0,^INTERRUPT^EXIT^'0 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 801: 4I0433^DCW^^00CIOCSPS,@101@,G,^1411^INDICATORS^'04F0434^S^TO^00B***^ENTRIE,MISC^SUBROUTINES,^'05I043 1 1 1 1 1 11 1 1 1 1 11 1 901: 5^SBR^^00BIOCSENTRY,IOCSINTEXT&5,^RESUME^SUBROUTINE^'03A0436^NOP^^00B,,^Q.^DISABLE^' 1 1 1 11 1 1 11 1 1: 099E04E0437^BXPA^00B,IOCSCS1ENT,^START^CHANNELS^'03G0438^SBR^^00B,*&6,^EXIT^DISABLED^'02A0439^BXPA^0 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: 0B,0,^'02G0440^BOOL^00?R,-#103,,^'02G0441^SBR^^00B,0,^SPARE^'02G0442^BXPA^00B,0,^SPARE^'02G0443^SBR^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 201: ^00B,0,^SPARE^'02G0444^BXPA^00B,0,^SPARE^'02F0445^BOOL^00?S,#103,,^'05D0446RSBR^^00BIOCSCS1SFS,IOCSC 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: S1SFX&5,^CLEAR^CHAN1^'03A0447^B^^^^00B,IOCSCS1SF-6,^'05I0448^SBR^^00BIOCSCS1RET,IOCSCS1PR&5,^SET^RET 1 11 1 1 1 1 11 1 1 1 1 401: URN^TO^BA1^'03A0449^BOOL^00?R,#104&)076,,^'03?0450^BXPA^00B,IOCSCS2ENT,^'02G0451^BOOL^00?S,-#103,,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 501: 02F0452RBOOL^00?R,)198,,^'02G0453^BXPA^00B,IOCSPSR,^'02G0454^BOOL^00?S,-)198,,^'03?0455RBXPA^00B,IOC 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: SINTEXT,^'02G0456SBOOL^00?R,-#104,,^'02G0457^SBR^^00B,0,^SPARE^'02G0458^BXPA^00B,0,^SPARE^'02G0459^S 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 701: BR^^00B,0,^SPARE^'02G0460^BXPA^00B,0,^SPARE^'02F0461^BOOL^00?Q,#104,,^'05D0462RSBR^^00BIOCSCS2SFS,IO 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: CSCS2SFX&5,^CLEAR^CHAN2^'03A0463^B^^^^00B,IOCSCS2SF-6,^'05I0464^SBR^^00BIOCSCS2RET,IOCSCS2PR&5,^SET^ 1 11 1 1 1 1 11 1 1 1 1 901: RETURN^TO^BA2^'02F0465^BOOL^00?R,)198,,^'02G0466^BXPA^00B,IOCSPSR,^'02G0467^BOOL^00?Q,-)198,,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098I03?0468RBXPA^00B,IOCSINTEXT,^'05F0469QSBR^^00BIOCSCPERR,IOCSCPEX&5,^1415^ERROR^ENTRY^'03?0470^B^ 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^^^00B,IOCSCPEX-7,^'02F0471^BOOL^00?Q,)044,,^'02G0472^SBR^^00B,0,^SPARE^'02G0473^B^^^^00B,0,^SPARE^' 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 201: 02G0474^B^^^^00B,0,^SPARE^'02G0475^B^^^^00B,0,^SPARE^'02G0476^BOOL^00?R,-)044,,^'05E0477QSBR^^00BIOC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 301: SCLOP,IOCSEXIT&5,^OPEN/CLOSE^ENTRY^'02H0478^B^^^^00B,IOCSOCEA,^'04G0479^B^^^^00BIOCSRENTRY,IOCSREENT 1 1 11 1 1 1 1 11 1 1 1 401: ,^REENTRY^'05I0480^B^^^^00BIOCSEXITRU,IOCSSCS,^CALLING^SEQUENCE^SCAN^'02F0481RBOOL^00?Q,#100,,^'05F0 1 11 1 1 1 1 11 1 1 1 11 11 1 501: 482^BOOL^00?R,)035&)036&)060&)070&)076&)061&)071,,^'06C0483^ES^TO00B***^LINKAG,^SATELLITE^AND^REAL-T 1 1 11 11 1 1 1 601: IME^PROGRAMS,^'02F0484RBOOL^00?R,)035,,^'05B0485^BXPA^00BIOCSCIE,)035,^CONSOLE^INQUIRY^EXIT^'04C0486 1 11 1 1 1 11 11 1 1 1 1 11 1 701: ^BXPA^00B,IOCSCIER,^RETURN^TO^IOCS^'02G0487^BOOL^00?S,-)035,,^'04B0488RBXPA^00BIOCSCIE,*&1,^USABLE^B 1 1 1 11 1 1 1 11 11 1 1 1 1 801: XPA^'05I0489^BXPA^00BIOCSRESUME,IOCSCIER,^HLT^RESUMPTION^ENTRY^'02F0490SBOOL^00?R,)036,,^'05D0491^BX 11 1 1 1 1 11 1 1 1 11 11 1 901: PA^00BIOCSCS1E1,)036,^CHAN1^URREQUEST^EXIT^'04E0492^BXPA^00B,IOCSCS1E1R,^RETURN^TO^IOCS^' 1 1 1 11 1 1 1 1 1 1: 095E02G0493^BOOL^00?S,-)036,,^'02G0494RBXPA^00B,0,^SPARE^'02G0495^BXPA^00B,0,^SPARE^'02F0496SBOOL^00 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 101: ?R,)060,,^'03G0497^NOP^^00B,,^CHAN1^1414^EXITS^'02H0498^NOP^^00B,,^1011^SW^'05?0499^BXPA^00BIOCSCS1E 1 11 11 1 1 11 11 1 1 11 11 1 1 201: 2,0,^1414^BIPR/BUPR^EXIT^'04I0500^BXPA^00BIOCSCS1E3,0,^1414^OUTQUIRY^EXIT^'04E0501^BXPA^00B,IOCSCS1E 1 1 11 1 1 1 1 11 1 1 1 301: 5R,^RETURN^TO^IOCS^'02G0502^BOOL^00?S,-)060,,^'02F0503RNOP^^00B,,^SPARE^'02F0504^NOP^^00B,,^SPARE^'0 1 11 1 1 1 11 11 1 1 11 11 1 1 11 11 401: 2G0505^BXPA^00B,0,^SPARE^'02G0506^BXPA^00B,0,^SPARE^'02G0507^BXPA^00B,0,^SPARE^'02F0508SBOOL^00?R,)0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 61,,^'05F0509^BXPA^00BIOCSCS1E6,0,^7750^BXPR^INPT^EXIT^CHAN1^'03?0510^BXPA^00B,IOCSCS1E6R,^'02G0511R 11 11 1 1 1 1 11 1 1 1 1 11 1 601: BOOL^00?R,-)061,,^'02G0512^BXPA^00B,0,^SPARE^'02G0513^BXPA^00B,0,^SPARE^'02F0514RBOOL^00?R,)076,,^'0 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 701: 5D0515^BXPA^00BIOCSCS2E1,)076,^CHAN2^URREQUEST^EXIT^'03?0516^BXPA^00B,IOCSCS2E1R,^'02G0517^BOOL^00?S 1 1 1 1 11 1 1 1 1 11 1 1 801: ,-)076,,^'02G0518RBXPA^00B,0,^SPARE^'02G0519^BXPA^00B,0,^SPARE^'02F0520SBOOL^00?R,)070,,^'03G0521^NO 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 901: P^^00B,,^CHAN2^1414^EXITS^'02H0522^NOP^^00B,,^1011^SW^' 1 11 11 1 1 11 1 1: 098H05?0523^BXPA^00BIOCSCS2E2,0,^1414^BIPR/BUPR^EXIT^'04I0524^BXPA^00BIOCSCS2E3,0,^1414^OUTQUIRY^EXI 1 1 1 1 1 1 11 1 1 1 1 101: T^'04E0525^BXPA^00B,IOCSCS2E5R,^RETURN^TO^IOCS^'02G0526^BOOL^00?S,-)070,,^'02F0527RNOP^^00B,,^SPARE^ 11 1 1 1 1 11 1 1 1 11 11 1 1 11 201: '02F0528^NOP^^00B,,^SPARE^'02G0529^BXPA^00B,0,^SPARE^'02G0530^BXPA^00B,0,^SPARE^'02G0531^BXPA^00B,0, 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: ^SPARE^'02F0532SBOOL^00?R,)071,,^'05F0533^BXPA^00BIOCSCS2E6,0,^7750^BXPR^INPT^EXIT^CHAN2^'03?0534^BX 11 1 1 1 11 11 1 1 1 1 11 1 401: PA^00B,IOCSCS2E6R,^'02G0535RBOOL^00?Q,-)071,,^'02G0536^BXPA^00B,0,^SPARE^'02G0537^BXPA^00B,0,^SPARE^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 501: '04F0538QBOOL^00?Q,#101fi&)057&)067,,^'05C0539^ND^UN00B***^TAPE^A,IT^RECORD^IOCS^LINKAGES,^' 11 1 1 1 11 11 1 1 1 1 1 601: 03A0540^BOOL^00?R,#101f,,^'06A0541^SBR^^00BIOCSURERR,IOCSUREXIT&5,^1402/03^ERROR^ENTRY^'05?0542^ 1 1 1 1 11 11 1 1 1 1 11 1 701: SBR^^00B,IOCSURQE&10,^INIT^EOF^EXIT^TEST^'03D0543^SW^^^00B,,^DECREMENT^BAR^'02?0544^CW^^^00B,,^'02?0 1 1 1 11 1 1 11 11 1 1 11 11 1 801: 545^CW^^^00B,,^'02?0546^CW^^^00B,,^'02?0547^CW^^^00B,,^'02?0548^CW^^^00B,,^'02?0549^CW^^^00B,,^'04G0 1 11 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 11 11 1 901: 550^SBR^^00B,IOCSURPKUP&5,^INIT^OP-SEARCH^'04E0551^B^^^^00B,IOCSURENT,^TO^U/R^ERROR^SR^' 1 1 1 11 1 1 1 1 1 1: 098?03F0552^BOOL^00?Q,#105&)057&)067,,^'03C0553^BOOL^00?S,-#101*-#102,,^'02G0554RSBR^^00B,0,^SPARE^' 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 101: 02G0555^B^^^^00B,0,^SPARE^'02G0556^B^^^^00B,0,^SPARE^'02G0557^SBR^^00B,0,^SPARE^'02G0558^B^^^^00B,0, 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ^SPARE^'03A0559SBOOL^00?R,)057&)067,,^'05F0560^SBR^^00BIOCSERROR,IOCSEREX&5,^TAPE^ERROR^ENTRY^'03D05 11 1 1 1 11 11 1 1 1 1 11 1 301: 61^SW^^^00B,,^DECREMENT^BAR^'04F0562^SBR^^00B,IOCSERENT&5,^INIT^OP-SEARCH^'04F0563^B^^^^00B,IOCSEREN 1 11 11 1 1 1 1 11 1 1 1 401: T,^TO^TAPE^ERROR^SR^'05A0564^B^^^^00BIOCSEREX,0,^TAPE^EXCEPTION^PIVOTS^'02A0565^B^^^^00B,0,^'02A0566 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^B^^^^00B,0,^'05F0567^DCW^^00BIOCSERNOIS,00000,^STAR^SAVE^FOR^ERRORS^'03C0568^BOOL^00?S,-)050*-)051, 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ,^'05G0569^DCW^^00BIOCSEROPTN,@^^SRP^@,^TAPE^ERROR^OPTIONS^'03B0570SBOOL^00?S,)050*-)051,,^'05G0571^ 1 11 1 1 1 1 11 1 1 1 11 11 1 701: DCW^^00BIOCSEROPTN,@^*SRP^@,^TAPE^ERROR^OPTIONS^'03B0572SBOOL^00?S,-)050*)051,,^'05G0573^DCW^^00BIOC 1 1 1 11 1 1 1 11 11 1 1 801: SEROPTN,@D^SRPD@,^TAPE^ERROR^OPTIONS^'03A0574SBOOL^00?S,)050*)051,,^'05G0575^DCW^^00BIOCSEROPTN,@D*S 1 1 11 1 1 1 11 11 1 1 1 901: RP^@,^TAPE^ERROR^OPTIONS^'02G0576^BOOL^00?S,-)050,,^'02G0577RSBR^^00B,0,^SPARE^' 1 11 1 1 1 11 11 1 1 1 1 1 1: 098B02F0578^SW^^^00B,,^SPARE^'02G0579^SBR^^00B,0,^SPARE^'02G0580^B^^^^00B,0,^SPARE^'02G0581^B^^^^00B 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 101: ,0,^SPARE^'02G0582^B^^^^00B,0,^SPARE^'02G0583^B^^^^00B,0,^SPARE^'03A0584^DCW^^00B,00000,^SPARE^'03D0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 585^DCW^^00B,@^^^^^^@,^SPARE^'02F0586SBOOL^00?R,)007,,^'05I0587^DCW^^00BIOCSLBAREA,IOCSLBA,^LOCATION 1 1 1 11 1 1 1 11 11 1 1 1 1 301: ^OF^LABELAREA^'02G0588^BOOL^00?S,-)007,,^'03C0589RDCW^^00B,@^^^^^@,^SPARE^'03I0590SBOOL^00AR,-)044*@ 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: )057&)067@,,^'05F0591^B^^^^00BIOCSENTAB,IOCSENTABA,^FILE-INIT^RETURN^'05G0592^B^^^^00BIOCSCLSAB,IOCS 11 11 1 1 1 1 11 1 1 1 501: CLSABA,^NO^PADDING^RETURN^'03C0593^BOOL^00?S,-)057*-)067,,^'02G0594RB^^^^00B,0,^SPARE^'02G0595^B^^^^ 1 11 1 1 1 11 11 1 1 1 1 11 1 601: 00B,0,^SPARE^'02F0596SBOOL^00?R,)032,,^'05H0597^SBR^^00BIOCSCHKPT,IOCSCKEXIT&5,^CHECKPOINT^ENTRY^'04 1 1 1 11 1 1 1 11 11 1 1 1 1 11 701: G0598^B^^^^00B,IOCSCHKPTA,^TO^CHECKPOINT^SR^'02G0599^BOOL^00?S,-)032,,^'02G0600RSBR^^00B,0,^SPARE^'0 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 801: 2G0601^B^^^^00B,0,^SPARE^'02F0602SBOOL^00?R,)051,,^'05C0603^SBR^^00BIOCSCLOSD,IOCSBOOBOO&5,^DISCOURA 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: GED^'05?0604^B^^^^00B,IOCSBOOBOO,^USE^IOWTM^AND^IORWD^'02G0605^BOOL^00?S,-)051,,^' 11 1 1 1 1 11 1 1 1 11 1 1: 099F02G0606RSBR^^00B,0,^SPARE^'02G0607^B^^^^00B,0,^SPARE^'02G0608SBOOL^00?R,-#105,,^'02C0609QNOP^^00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 101: B,,^WM^'02F0610^BOOL^00?P,#105,,^'03G0611ROCS^L00B***^DISK^I,INKAGES,^'03A0612^EQU^^00BIOCSCOMMON,*, 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: ^'02F0613^BOOL^00?Q,#105,,^'04B0614^SBR^^00BIOCSRELARM,IOCSINTEXT&5,^'03?0615^B^^^^00B,IOCSRELARR,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 301: 02G0616^BOOL^00?R,-)030,,^'02?0617^H^^^^00B,,^'02F0618^BOOL^00?Q,)030,,^'03I0619RSBR^^00BIOCSMDWA,IO 1 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 1 401: CSMDWA3&5,^'02I0620^B^^^^00B,IOCSMDWAA,^'04A0621^SBR^^00BIOCSINTLK,IOCSINTLK1&5,^'03?0622^B^^^^00B,I 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: OCSINTLKK,^'03D0623^SBR^^00BIOCSGET,IOCSXAL,^'02H0624^B^^^^00B,IOCSGETT,^'03D0625^SBR^^00BIOCSPUT,IO 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: CSXAL,^'03?0626^SBR^^00B,IOCSREL4&5,^'02H0627^B^^^^00B,IOCSPUTT,^'03G0628^B^^^^00BIOCSEXDP,IOCSEXDPP 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: ,^'03C0629^DCW^^00BIOCSMRET,00000,^'02F0630^BOOL^00?Q,)028,,^'03D0631^EQU^^00BIOCSTRSLAB,)028,^'03I0 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 632^DCW^^00BIOCSSTKAR,IOCSTRSLAB,^'03C0633^EQU^^00BIOCSTSLAB,)048,^'03H0634^DCW^^00BIOCSSGMTL,IOCSTS 1 1 1 11 1 1 1 1 11 1 1 1 901: LAB,^'03C0635QORG^^00B,IOCSCOMMON&99,^'03A0636^EQU^^00BIOCSSEPRAT,*,^'02F0637^BOOL^00?Q,#108,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 097C03E0638^SBR^^00BIOCSCONV,IOCSXAL,^'02I0639^B^^^^00B,IOCSCONVV,^'03?0640^BOOL^00?R,)031,,^SEQ^'04 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 101: B0641^SBR^^00BIOCSPIKSEQ,IOCSINTEXT&5,^'03?0642^B^^^^00B,IOCSPIKSEE,^'03B0643RBOOL^00?R,-)031,,^-SEQ 1 1 1 1 11 1 1 1 1 11 1 1 1 11 201: ^'03F0644^DCW^^00B,@^^^^^^^^^^^^^^@,^'04?0645RB^^^^00BIOCSRELPAD,IOCSRELPAA,^'03D0646^EQU^^00BIOCSTX 11 1 1 1 1 11 1 1 1 1 11 1 1 301: SLAB,)049,^'03H0647^DCW^^00BIOCSUNIT,IOCSTXSLAB,^'03D0648^DCW^^00BIOCSCONV10,@@0@,^'02G0649^EQU^^00B 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: IOCSRQ,*,^'03D0650^DCW^^00BIOCSRQDKIN,0000,^'03C0651^^^^^^00BIOCSRQAVLY,@A@,^'03E0652^^^^^^00BIOCSRO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: UTNE,00000,^'03?0653^^^^^^00BIOCSRQARM,0,^'03F0654^DC^^^00BIOCSDSKAD,0000000,^'02C0655^DCW^^00B,@"@, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 601: ^'03A0656QBOOL^00?Q,)059&)069,,^'03C0657^DCW^^00BIOCSSEKAD,0000,^'03G0658^DCW^^00BIOCSDSKAD,00000000 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: ,^'03I0659^SBR^^00BIOCSGETS,IOCSGETEX&5,^'02H0660^BXPA^00B,IOCSRGET,^'02G0661^BOOL^00?R,-)031,,^'02? 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 801: 0662^BCE^^00B,,^'02F0663RBOOL^00?R,)031,,^'04A0664^SBR^^00BIOCSSRELAR,IOCSSPECX&5,^'03?0665^B^^^^00B 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 901: ,IOCSSRELAA,^'03C0666RORG^^00B,IOCSSEPRAT&40,^'02F0667^BOOL^00?R,)043,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 099B03C0668^SBR^^00BIOCSNRFEX,*&13,^'02D0669^B^^^^00B,)043,^'02A0670^B^^^^00B,0,^'02?0671RH^^^^00B,, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 101: ^'03C0672QORG^^00B,IOCSSEPRAT&62,^'02F0673PBOOL^00?P,)045,,^'03G0674^FLEXI00B***^BEGIN,BLE^IOCS,^'03 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 201: F0675PORG^^00B,)02A,^IOCS^ORIGIN^'02F0676^BOOL^00?P,#100,,^'03B0677^BOOL^00?Q,)198&-)045,,^'02F0678^ 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 301: BOOL^00?R,)198,,^'06A0679^MRCW^00CIOCSATTN,IOCSPS-2,IOCSPS,^STORE^1411^STATUS^'02?0680^SW^^^00B,,^'0 1 1 11 11 1 1 1 1 1 11 1 1 11 11 401: 2C0681^BZ^^^00B,*&7,^'02H0682^CW^^^00B,IOCSPS-1,^'02D0683^BE^^^00B,*&20,^'02C0684^BL^^^00B,*&7,^'02F 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 501: 0685^S^^^^00B,IOCSPS,^'02F0686^A^^^^00B,IOCSPS,^'05G0687^S^^^^00C,&6,IOCSINTEXT&5,^DECREMENT^RETURN^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: ADDR^'03A0688^BOOL^00?S,)058&)068,,^'04F0689^MRCWG00C,80,IOCSISAVE,^STORE^X12-X15^'03A0690SBOOL^00?S 11 1 1 1 11 11 1 1 1 1 1 11 1 1 701: ,)059&)069,,^'04F0691^MRCWG00C,85,IOCSISAVE,^STORE^X13-X15^'04G0692^MRWG^00C,IOCSIREST,85,^SET^WM^PA 1 11 11 1 1 1 1 1 11 1 1 1 1 1 801: TTERN^'02F0693SBOOL^00?S,)045,,^'04E0694^BXPA^00B,IOCSCS1ENT,^TO^CHAN1^SCHED^'02G0695^BOOL^00?T,-)04 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: 5,,^'05E0696RSCNLB00CIOCSATTN,0,*-6,^DECREMENT^RETURN^ADDR^'03B0697^SAR^^00B,IOCSINTEXT&5,^' 11 11 1 1 1 1 1 11 1 1 1 1 1 1: 097G04C0698SLE^CH00B***^FLEXIB,AN1^SCHEDULER,^'02G0699^BOOL^00?R,-#103,,^'05D0700^BIPR100BIOCSCS1ENT 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: ,IOCSCIPR,^Q.^1415^REQUEST^'02F0701^BOOL^00?S,)036,,^'04I0702^BUPR100B,IOCSCS1UPR,^Q.^1402/03^REQUES 1 1 11 1 1 1 11 11 1 1 1 1 201: T^'02F0703^BOOL^00?S,#103,,^'03A0704RBOOL^00?R,#104&)076,,^'05D0705^BOL1^00BIOCSCS1ENT,IOCSCS2ENT,^Q 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 301: .^CHAN1^BUSY^'02G0706^BOOL^00?U,-#103,,^'02F0707RBOOL^00?R,)198,,^'05A0708^BOL1^00BIOCSCS1ENT,IOCSPS 11 1 1 1 11 11 1 1 1 11 11 1 1 1 401: R,^Q.^CHAN1^BUSY^'02G0709^BOOL^00?U,-)198,,^'05D0710RBOL1^00BIOCSCS1ENT,IOCSINTEXT,^Q.^CHAN1^BUSY^'0 1 11 1 1 1 11 11 1 1 1 1 11 501: 5A0711UBOPR100BIOCSCS1PR,0,^Q.^OVLAP^REQ,^TO^BA1^'03?0712^NOPWM00BIOCSCS1SCN,,^'05?0713^B^^^^00B,IOC 1 1 1 1 11 1 1 11 11 1 1 1 601: SCS1SF,^Q.^FORCING,^NORM^NOP^'02G0714^BOOL^00?R,-)060,,^'04D0715^BIPR100B,IOCSCIPR,^Q.^1415^REQUEST^ 1 11 1 1 1 11 11 1 1 1 1 701: '02F0716^BOOL^00?U,)061,,^'04F0717^BXPR100B,IOCSCS1R50,^Q.^7750^REQUEST^'02F0718^BOOL^00?V,)036,,^'0 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 801: 4I0719^BUPR100B,IOCSCS1UPR,^Q.^1402/03^REQUEST^'02G0720^BOOL^00?V,-)036,,^'02F0721UBOOL^00?U,)036,,^ 1 1 1 1 11 1 1 1 11 11 1 1 1 11 901: '04I0722^BUPR100B,IOCSCS1UPR,^Q.^1402/03^REQUEST^'02G0723^BOOL^00?U,-)036,,^' 11 1 1 1 1 11 1 1 1 11 1 1: 099C05B0724RBIPR100B,IOCSCS1QIQ,^Q.^1402/03/14^REQUEST^'04F0725^BQPR100B,IOCSCS1QPR,^Q.^1414^REQUEST 1 1 1 1 1 1 11 1 1 1 1 101: ^'02F0726^BOOL^00?R,)036,,^'05B0727^BUPR100B,IOCSCS1QUQ,^Q.^1402/03/14^REQUEST^'02G0728^BOOL^00?V,-) 11 1 1 1 11 11 1 1 1 1 11 1 1 1 201: 036,,^'04F0729RBUPR100B,IOCSCS1UIR,^Q.^1414^REQUEST^'02?0730VNOPWM00B,,^'05?0731^BXPA^00BIOCSCS1S1,0 11 11 1 1 1 1 11 1 1 11 11 1 1 1 301: ,^Q.^EXEC^1414^WRITES^'03A0732UBOOL^00?R,)058&)059,,^'02?0733^NOPWM00B,,^'05E0734^BXPA^00BIOCSCS1S2, 1 11 1 1 1 11 11 1 1 11 11 1 1 1 401: IOCS1SEEK,^Q.^PENDING^SEEKS^'02F0735RBOOL^00?R,)057,,^'02?0736^NOP^^00B,,^'02F0737^BOOL^00?U,)042,,^ 1 11 1 1 1 11 11 1 1 11 11 1 1 1 11 501: '05I0738^BXPA^00BIOCSCS1S3,IOCSE00000,^Q.^PENDING^TAPE^I/O^'02G0739^BOOL^00?V,-)042,,^'05B0740UBXPA^ 11 1 1 1 1 11 1 1 1 11 11 1 601: 00BIOCSCS1S3,*&1,^Q.^PENDING^TAPE^I/O^'03B0741VMATH^00?#095,00000,,,,^'03A0742RBOOL^00?S,)058&)059,, 1 1 1 11 1 1 11 1111 11 1 1 1 11 701: ^'02?0743^NOPWM00B,,^'05H0744^BXPA^00BIOCSCS1S4,IOCS1DISK,^Q.^PENDING^DISK^I/O^'03A0745SBOOL^00?R,#1 11 1 1 11 11 1 1 1 1 11 1 1 1 801: 04&)076,,^'04C0746^LE^CH00B***^FLEXIB,AN2^SCHEDULER,^'02G0747^BOOL^00?S,-#104,,^'05I0748^BUPR200BIOC 11 11 1 1 1 1 11 1 1 1 11 11 1 1 901: SCS2ENT,IOCSCS2UPR,^Q.^1402/03^REQUEST^'02G0749^BOOL^00?R,-)076,,^'02F0750SBOOL^00?S,)198,,^' 1 1 11 1 1 1 11 11 1 1 1 11 1 1: 098H05A0751^BOL2^00BIOCSCS2ENT,IOCSPSR,^Q.^CHAN2^BUSY^'02G0752^BOOL^00?U,-)198,,^'05D0753SBOL2^00BIO 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: CSCS2ENT,IOCSINTEXT,^Q.^CHAN2^BUSY^'05A0754UBOPR200BIOCSCS2PR,0,^Q.^OVLAP^REQ,^TO^BA2^'03?0755^NOPWM 1 1 11 1 1 1 1 11 1 201: 00BIOCSCS2SCN,,^'05?0756^B^^^^00B,IOCSCS2SF,^Q.^FORCING,^NORM^NOP^'02G0757^BOOL^00?S,-)070,,^'02F075 1 11 11 1 1 1 1 11 1 1 1 11 11 1 301: 8^BOOL^00?U,)071,,^'04F0759^BXPR200B,IOCSCS2R50,^Q.^7750^REQUEST^'02F0760^BOOL^00?V,)076,,^'04H0761^ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: BUPR200B,IOCSCS2UPR,^Q.1402/03^REQUEST^'02G0762^BOOL^00?V,-)076,,^'02F0763UBOOL^00?U,)076,,^'04I0764 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 501: ^BUPR200B,IOCSCS2UPR,^Q.^1402/03^REQUEST^'02G0765^BOOL^00?U,-)076,,^'04F0766SBIPR200B,IOCSCS2UIR,^Q. 1 1 1 11 1 1 1 11 11 1 1 1 1 601: ^1414^REQUEST^'04F0767^BQPR200B,IOCSCS2QPR,^Q.^1414^REQUEST^'02F0768^BOOL^00?S,)076,,^'05B0769^BUPR2 11 1 1 1 1 11 1 1 1 11 11 1 701: 00B,IOCSCS2QUQ,^Q.^1402/03/14^REQUEST^'02G0770^BOOL^00?V,-)076,,^'04F0771SBUPR200B,IOCSCS2UIR,^Q.^14 1 1 1 11 1 1 1 11 11 1 1 1 1 801: 14^REQUEST^'02?0772VNOPWM00B,,^'05?0773^BXPA^00BIOCSCS2S1,0,^Q.^EXEC^1414^WRITES^'03A0774UBOOL^00?S, 11 1 1 11 11 1 1 1 1 11 1 1 1 901: )068&)069,,^'02?0775^NOPWM00B,,^'05E0776^BXPA^00BIOCSCS2S2,IOCS2SEEK,^Q.^PENDING^SEEKS^' 11 11 1 1 11 11 1 1 1 1 1 1: 098E02F0777SBOOL^00?S,)067,,^'02?0778^NOP^^00B,,^'02F0779^BOOL^00?U,)042,,^'05I0780^BXPA^00BIOCSCS2S 1 1 1 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 101: 3,IOCSF00000,^Q.^PENDING^TAPE^I/O^'02G0781^BOOL^00?V,-)042,,^'05B0782UBXPA^00BIOCSCS2S3,*&1,^Q.^PEND 1 1 11 1 1 1 11 11 1 1 1 1 201: ING^TAPE^I/O^'03B0783VMATH^00?#090,00000,,,,^'03A0784SBOOL^00?R,)068&)069,,^'02?0785^NOPWM00B,,^'05H 11 1 1 11 1111 11 1 1 1 11 11 1 1 11 11 301: 0786^BXPA^00BIOCSCS2S4,IOCS2DISK,^Q.^PENDING^DISK^I/O^'02F0787RBOOL^00?R,)198,,^'04H0788^^TO^I00B*** 1 1 1 1 11 1 1 1 11 11 1 1 401: ^RETURN,NTERRUPTED^PROGRAM,^'06A0789TC^^^^00CIOCSPSR,IOCSPS,IOCS101,^RESTORE^1411^STATUS^'02?0790^ZA 1 1 11 1 1 1 1 1 11 1 501: ^^^00B,,^'03A0791^BOOL^00?S,)058&)068,,^'04H0792^MRCWG00C,IOCSISAVE,80,^RESTORE^X12-X15^'03A0793SBOO 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 601: L^00?S,)059&)069,,^'04H0794^MRCWG00C,IOCSISAVE,85,^RESTORE^X13-X15^'02F0795SBOOL^00?R,)045,,^'04H079 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 701: 6^BXPA^00B,IOCSINTEXT,^TO^INTERRUPT^EXIT^'02G0797^BOOL^00?S,-)045,,^'04D0798RBEPA^00BIOCSINTEXT,0,^E 1 1 1 11 1 1 1 11 11 1 1 1 1 801: XIT^ENABLED^'04E0799^DCW^^00CIOCSPS,@101@,G,^1411^STATUS^'02F0800^BOOL^00?Q,)198,,^'02F0801^BOOL^00? 11 1 1 1 1 1 11 1 1 1 11 11 1 1 901: R,#104,,^'04D0802^OUS-R00B***^AMBIGU,ETURN^SEQUENCE,^'03A0803^EQU^^00BIOCSCSNENT,*,^' 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 099I02E0804^BOOL^00?T,#103,^'04C0805^BZN^^00D,IOCSCS1SF,IOCSWTGX&11,&,^'04B0806TBW^^^00C,IOCSCS2SF,I 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 101: OCSCS2SCN&1,^'03?0807^BXPA^00B,IOCSCS1ENT,^'02G0808^BOOL^00?T,-#104,,^'05A0809REQU^^00BIOCSCSNENT,IO 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: CSCS1ENT,^CHAN1^ONLY^'02G0810TBOOL^00?R,-)198,,^'05D0811QSBR^^00BIOCSPSV,IOCSPSX&5,^STORE^1411^STATU 1 11 1 1 1 11 11 1 1 1 1 301: S^'03E0812^MRCW^00C,IOCSPS-2,IOCSPS,^'02?0813^SW^^^00B,,^'02C0814^BZ^^^00B,*&7,^'02H0815^CW^^^00B,IO 11 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 401: CSPS-1,^'02D0816^BE^^^00B,*&20,^'02C0817^BL^^^00B,*&7,^'02F0818^S^^^^00B,IOCSPS,^'02F0819^A^^^^00B,I 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: OCSPS,^'02H0820^B^^^^00BIOCSPSX,0,^'02G0821^BOOL^00?S,-)045,,^'04F0822RAND^R00B***^PAUSE,ESUME^SUBRO 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: UTINES,^'05F0823^SBR^^00BIOCSENTRY,IOCSINTEXT&5,^RESUME^ROUTINE^'03A0824^NOP^^00B,,^Q.^DISABLE^'04E0 1 11 1 1 1 1 11 1 1 11 11 1 701: 825^BXPA^00B,IOCSCS1ENT,^START^CHANNELS^'03G0826^SBR^^00B,*&6,^EXIT^DISABLED^'02A0827^BXPA^00B,0,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 2F0828SBOOL^00?Q,#103,,^'02G0829^BOOL^00?R,-)045,,^'05I0830^SBR^^00BIOCSCS1RET,IOCSCS1PR&5,^SET^RETU 1 1 1 11 11 1 1 1 11 11 1 1 1 1 901: RN^TO^BA1^'03A0831^BOOL^00?S,#104&)076,,^'03?0832^BXPA^00B,IOCSCS2ENT,^'02G0833^BOOL^00?T,-#103,,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 099H02F0834SBOOL^00?S,)198,,^'02G0835^BXPA^00B,IOCSPSR,^'02G0836^BOOL^00?T,-)198,,^'03?0837SBXPA^00B 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 101: ,IOCSINTEXT,^'05D0838TSBR^^00BIOCSCS1SFS,IOCSCS1SFX&5,^CLEAR^CHAN1^'05?0839RSW^^^00B,IOCSCS1SCN&1,^S 1 1 11 1 1 1 1 11 1 1 1 1 201: ET^CHAN1^FORCING^'05B0840^BOL1^00BIOCSCS1SF,IOCSCS1PR,^TO^BA1^IF^ANY^'02?0841^BOPR100B,,^'05D0842^CW 11 1 1 1 1 11 1 1 11 11 1 301: ^^^00B,IOCSCS1SCN&1,^SET^CHAN1^NON-FORCING^'04H0843^BXPA^00BIOCSCS1SFX,0,^CHAN1^FORCE^EXIT^'05C0844^ 1 1 1 11 1 1 1 1 11 1 401: BXPA^00B,IOCSCS1SF-6,^BOOTSTRAP^FORCE^ENTRY^'02F0845QBOOL^00?Q,#104,,^'02G0846^BOOL^00?R,-)045,,^'05 1 1 1 11 1 1 1 11 11 1 1 1 11 11 501: I0847^SBR^^00BIOCSCS2RET,IOCSCS2PR&5,^SET^RETURN^TO^BA2^'02F0848^BOOL^00?S,)198,,^'02G0849^BXPA^00B, 1 1 1 1 11 1 1 1 11 11 1 1 1 601: IOCSPSR,^'02G0850^BOOL^00?T,-)198,,^'03?0851SBXPA^00B,IOCSINTEXT,^'05D0852TSBR^^00BIOCSCS2SFS,IOCSCS 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: 2SFX&5,^CLEAR^CHAN2^'05?0853RSW^^^00B,IOCSCS2SCN&1,^SET^CHAN2^FORCING^'05B0854^BOL2^00BIOCSCS2SF,IOC 1 11 1 1 1 1 11 1 1 1 801: SCS2PR,^TO^BA2^IF^ANY^'02?0855^BOPR200B,,^'05D0856^CW^^^00B,IOCSCS2SCN&1,^SET^CHAN2^NON-FORCING^'04H 1 11 1 1 11 11 1 1 1 1 11 901: 0857^BXPA^00BIOCSCS2SFX,0,^CHAN2^FORCE^EXIT^'05C0858^BXPA^00B,IOCSCS2SF-6,^BOOTSTRAP^FORCE^ENTRY^' 1 1 1 1 11 1 1 1 1 1 1: 097E02F0859^BOOL^00?Q,#103,,^'04C0860^S^^^^00CIOCSLMWTGR,&7,IOCSWTGX&5,^'02F0861^BOOL^00?R,)057,,^'0 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 101: 4D0862^ZA^^^00C,IOCSCS1SFX&5,IOCSWTGX&11,^'02G0863RBOOL^00?R,-)198,,^'05D0864^C^^^^00C,IOCSPS,IOCS10 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: 1,^RESTORE^1411^STATUS^'02?0865^ZA^^^00B,,^'05?0866RBXPA^00B,IOCSCS1SFS,^CLEAR^CHAN1^TO^TYPE^'02F086 1 11 1 1 11 11 1 1 1 1 11 1 301: 7^BOOL^00?R,)057,,^'03G0868^MLNA^00C,*&24,IOCSCS1SFX&5,^'02H0869^MLZS^00C,*&1,*&12,^'02I0870^B^^^^00 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 401: BIOCSWTGX,0,^'02F0871^DCW^^00B,-00000,^'02G0872^BOOL^00?Q,-)057,,^'02I0873RB^^^^00BIOCSWTGX,0,^'02F0 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 874QBOOL^00?Q,)060,,^'04C0875^INE^B00B***^DETERM,IPR1^STIMULUS,^'04G0876^NRCPO00BIOCSCS1QIQ,0,^Q.^14 1 1 11 11 1 1 1 1 11 1 1 1 1 601: 15^REQUEST^'04I0877^BA1^^00B,IOCSCS1UIR,^STACK^PGM^FOR^1414^'02G0878QBOOL^00?Q,-)035,,^'04E0879^E^IN 11 1 1 1 1 11 1 1 1 11 11 1 701: T00B***^CONSOL,ERRUPT^SEQUENCE,^'02G0880^BOOL^00?R,-)060,,^'02I0881^EQU^^00BIOCSCIPR,*,^'02G0882RBOO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: L^00?R,-)198,,^'04E0883^BXPA^00B,IOCSPSV,^STORE^1411^STATUS^'02F0884RBOOL^00?R,#104,,^'04B0885^BXPA^ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: 00B,IOCSCS2SFS,^CLEAR^CHAN2^'04F0886RCW^^^00B,IOCSENTRY&8,^SET^DISABLE^SW^' 1 1 1 11 1 1 1 1 1 1: 095A02F0887^BOOL^00?R,)032,,^'05G0888^MRCWG00CIOCSCIR,IOCSCIM,IOCSERFLD,^LOAD^MESSAGE^'04D0889^BXPA^ 1 1 1 1 1 11 11 1 1 1 1 1 11 1 101: 00B,IOCSHALT,^TYPE,^GET^REPLY^'05G0890^BCE^^00D,IOCSCICK,IOCSREPLY,C,^Q.^CHKPT^DESIRED^'02G0891^BOOL 1 1 1 11 1 1 1 1 1 1 11 1 201: ^00?S,-)032,,^'05?0892RMRCWG00C,IOCSCIM,IOCSERFLD,^LOAD^MESSAGE^'04D0893^BXPA^00B,IOCSHALT,^TYPE,^GE 1 1 11 11 1 1 1 1 1 11 1 1 1 1 301: T^REPLY^'05F0894SBBE^^00D,*&24,IOCSREPLY&4,&,^Q.^BRANCH^DESIRED^'03E0895^BCE^^00B,,^ALLOW^TAG^BITS^' 11 1 1 1 1 1 1 11 1 1 11 1 401: 02?0896^BCE^^00B,,^'02?0897^BBE^^00B,,^'02?0898^BBE^^00B,,^'05A0899^MLCA^00C,IOCSREPLY&4,*&6,^BRANCH 1 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 1 1 501: ^TO^REPLY^'02A0900^BXPA^00B,0,^'02F0901^BOOL^00?R,)045,,^'05F0902^SW^^^00BIOCSCIER,IOCSENTRY&8,^RESE 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: T^DISABLE^SW^'02G0903^BOOL^00?S,-)045,,^'05H0904RSW^^^00BIOCSRESUME,IOCSENTRY&8,^RESET^DISABLE^SW^'0 11 1 1 1 11 11 1 1 1 1 11 701: 2G0905SBOOL^00?R,-)198,,^'05D0906^C^^^^00C,IOCSPS,IOCS101,^RESTORE^1411^STATUS^'02?0907^ZA^^^00B,,^' 1 1 1 11 11 1 1 1 1 1 11 1 1 11 1 801: 04E0908RBXPA^00B,IOCSCS1ENT,^START^CHANNELS^'02F0909^BOOL^00?R,)032,,^'05C0910^DCW^^00B^IOCSCIM,@401 1 1 1 1 1 11 1 1 1 11 11 1 1 1 901: 82^HLT^@,^HALT^MESSAGE^'02G0911^BOOL^00?S,-)032,,^' 1 11 1 1 1 11 1 1: 099B05C0912RDCW^^00B^IOCSCIM,@30181^HLT^@,^HALT^MESSAGE^'04F0913SDCW^^00B,IOCSRESUME,^RESTART^ADDRES 1 1 1 1 1 1 11 1 1 1 1 101: S^'03E0914^DCW^^00B,@"@,^END^MESSAGE^'02F0915^BOOL^00?R,)035,,^'02G0916QBOOL^00?Q,-)060,,^'05H0917^M 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 201: ^STA00B***^PROGRA,CKING^FOR^CONSOLE^INTERRUPTS,^'05F0918^BW^^^00CIOCSCIPR,IOCSCIE,IOCSCIA&9,^Q.^NEST 1 1 1 11 1 1 1 1 1 301: ING^'02F0919^BOOL^00?S,)060,,^'05H0920QM^STA00B***^PROGRA,CKING^FOR^CONSOLE^INTERRUPTS,^'04H0921^BW^ 11 1 1 1 11 11 1 1 1 1 11 1 401: ^^00C,IOCSCIE,IOCSCIA&9,^Q.^NESTING^'02F0922SBOOL^00?Q,#103,,^'06C0923^MLCB^00C,IOCSCS1SFX&5,IOCSCIA 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: -1,^STORE^CHAN1^FORCE^EX^'02F0924^BOOL^00?S,#104,,^'05C0925^MLCB^00B,IOCSCS2SFX&5,^STORE^CHAN2^FORCE 1 11 1 1 1 11 11 1 1 1 1 601: ^EX^'02G0926^BOOL^00?S,-#100,,^'02F0927QBOOL^00?S,#104,,^'06C0928^MLCB^00C,IOCSCS2SFX&5,IOCSCIA-1,^S 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 701: TORE^CHAN2^FORCE^EX^'03A0929SBOOL^00?Q,)059&)069,,^'05A0930^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^RE 11 1 1 1 11 11 1 1 1 1 801: T^'05G0931QMRCWG00C,IOCSINTEXT&1,IOCSCIA,^STORE^PGM^STATUS^'02F0932^BOOL^00?Q,#105,,^'04C0933^MRCWG0 11 1 1 1 1 1 11 1 1 1 11 11 1 1 901: 0B,IOCSISAVE,^STORE^X13-X15^'02G0934^BOOL^00?S,-#105,,^'03F0935QMRCWG00B,85,^STORE^X13-X15^' 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099I02G0936SBOOL^00?Q,-)045,,^'04A0937^BXPA^00BIOCSCIE,)035,^EXIT^IOCS^'05I0938^MRCWG00C,IOCSCIA,IOC 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 101: SINTEXT&1,^RESTORE^PGM^STATUS^'02F0939^BOOL^00?S,)045,,^'03G0940QBXPA^00B,IOCSCIE,^EXIT^IOCS^'06G094 1 11 1 1 1 11 11 1 1 1 1 11 1 201: 1^MRCWG00CIOCSCIER,IOCSCIA,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F0942SBOOL^00?Q,#105,,^'05F0943^MRCWG 1 1 1 1 11 1 1 1 11 11 1 301: 00C,IOCSCIA&10,IOCSISAVE,^RESTORE^X13-X15^'02G0944^BOOL^00?S,-#105,,^'04I0945QMRCWG00C,IOCSCIA&10,85 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: ,^RESTORE^X13-X15^'02F0946SBOOL^00?Q,#103,,^'06D0947^MLCA^00C,IOCSCIA-1,IOCSCS1SFX&5,^RESTOR^CHAN1^F 1 11 1 1 1 11 11 1 1 1 1 1 501: ORCE^EX^'02F0948^BOOL^00?Q,#104,,^'06D0949^MLCA^00C,IOCSCIA-6,IOCSCS2SFX&5,^RESTOR^CHAN2^FORCE^EX^'0 11 1 1 1 11 11 1 1 1 1 1 11 601: 3A0950^BOOL^00?S,)059&)069,,^'06D0951^MLCA^00C,IOCSCIA-11,IOCSGETEX&5,^RESTORE^GETS/PUTS^RET^'02G095 1 1 1 11 11 1 1 1 1 1 11 1 701: 2^BOOL^00?S,-#100,,^'03A0953QBOOL^00?Q,)059&)069,,^'06C0954^MLCA^00C,IOCSCIA-6,IOCSGETEX&5,^RESTORE^ 1 1 11 11 1 1 1 11 11 1 1 1 1 1 801: GETS/PUTS^RET^'03B0955QBOOL^00?S,-#103*#104,,^'06D0956^MLCA^00C,IOCSCIA-1,IOCSCS2SFX&5,^RESTOR^CHAN2 11 1 1 1 11 11 1 1 1 1 1 901: ^FORCE^EX^'04C0957SCW^^^00B,IOCSCIA&9,^CLEAR^NEST^SW^'04E0958^BXPA^00B,IOCSCS1ENT,^START^CHANNELS^' 11 1 1 1 1 11 1 1 1 1 1 1: 099F02F0959RBOOL^00?Q,)060,,^'02F0960^BOOL^00?R,)036,,^'04C0961^INE^B00B***^DETERM,UPR1^STIMULUS,^'0 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 101: 5B0962^NRPTO00CIOCSCS1QUQ,1,0,^Q.^1402/03^REQUEST^'05B0963^BA1^^00B,IOCSCS1UPR,^STACK^PGM^FOR^1402/0 1 1 1 1 1 11 1 1 1 1 201: 3^'06A0964^BW^^^00C,IOCSCS1UPR,IOCSCS1E2-1,^STACK^PGM^FOR^1011^'06A0965RM^STA00B***^PROGRA,CKING^FOR 11 1 1 1 1 1 11 1 1 1 301: ^CHAN1^1414^INTERRUPTS,^'05G0966^SW^^^00BIOCSCS1UIR,IOCSCS1E2,^SET^1414^INPUT^SW^'05D0967^BW^^^00C,I 1 11 1 1 1 1 11 1 1 1 401: OCSCS1E2-2,IOCSCS1A5&9,^Q.^NESTING^'02E0968^BOOL^00?R,#103,^'06E0969^MLCB^00C,IOCSCS1SFX&5,IOCSCS1A5 1 1 11 1 1 1 1 11 1 1 1 1 501: -1,^STORE^CHAN1^FORCE^EX^'02F0970^BOOL^00?S,#104,,^'05C0971^MLCB^00B,IOCSCS2SFX&5,^STORE^CHAN2^FORCE 1 11 1 1 1 11 11 1 1 1 1 601: ^EX^'02G0972^BOOL^00?S,-#100,,^'02F0973RBOOL^00?S,#104,,^'06E0974^MLCB^00C,IOCSCS2SFX&5,IOCSCS1A5-1, 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 701: ^STORE^CHAN2^FORCE^EX^'03A0975SBOOL^00?R,)059&)069,,^'05A0976^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^ 11 1 1 1 11 11 1 1 1 1 801: RET^'05I0977RMRCWG00C,IOCSINTEXT&1,IOCSCS1A5,^STORE^PGM^STATUS^'02F0978^BOOL^00?R,#105,,^'04C0979^MR 11 1 1 1 1 1 11 1 1 1 11 11 1 901: CWG00B,IOCSISAVE,^STORE^X13-X15^'02G0980^BOOL^00?S,-#105,,^'03F0981RMRCWG00B,85,^STORE^X13-X15^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097I02G0982SBOOL^00?R,-)045,,^'02?0983^NOP^^00B,,^'02H0984^NOP^^00B,,^1011^SW^'04H0985^BXPA^00BIOCSC 1 1 1 1 1 11 11 1 1 11 11 1 1 11 11 1 1 101: S1E2,0,^1414^INQUIRY^EXIT^'04I0986^BXPA^00BIOCSCS1E3,0,^1414^OUTQUIRY^EXIT^'06A0987^MRCWG00C,IOCSCS1 1 1 11 1 1 1 1 11 1 1 1 201: A5,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F0988^BOOL^00?S,)045,,^'04I0989RBXPA^00B,IOCSCS1E2-2,^TO^INQ/ 1 1 11 1 1 1 11 11 1 1 1 1 301: OUTQ^LINKS^'07A0990^MRCWG00CIOCSCS1E5R,IOCSCS1A5,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F0991SBOOL^00?R 11 1 1 1 1 1 11 1 1 401: ,#105,,^'05H0992^MRCWG00C,IOCSCS1A5&10,IOCSISAVE,^RESTORE^X13-X15^'02G0993^BOOL^00?S,-#105,,^'05A099 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 501: 4RMRCWG00C,IOCSCS1A5&10,85,^RESTORE^X13-X15^'02F0995SBOOL^00?R,#103,,^'06D0996^MLCA^00C,IOCSCS1A5-1, 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: IOCSCS1SFX&5,^RESTOR^CH1^FORCE^XT^'02F0997^BOOL^00?R,#104,,^'06F0998^MLCA^00C,IOCSCS1A5-6,IOCSCS2SFX 1 11 1 1 1 11 11 1 1 1 1 701: &5,^RESTOR^CHAN2^FORCE^EX^'03A0999^BOOL^00?S,)059&)069,,^'06F1000^MLCA^00C,IOCSCS1A5-11,IOCSGETEX&5, 1 11 1 1 1 11 11 1 1 1 1 1 801: ^RESTORE^GETS/PUTS^RET^'02G1001^BOOL^00?S,-#100,,^'03A1002RBOOL^00?R,)059&)069,,^'06E1003^MLCA^00C,I 11 1 1 1 11 11 1 1 1 11 11 1 1 1 901: OCSCS1A5-6,IOCSGETEX&5,^RESTORE^GETS/PUTS^RET^'03B1004RBOOL^00?S,-#103*#104,,^' 1 1 11 1 1 1 11 1 1: 099F06F1005^MLCA^00C,IOCSCS1A5-1,IOCSCS2SFX&5,^RESTOR^CHAN2^FROCE^EX^'04E1006SCW^^^00B,IOCSCS1A5&9,^ 1 1 1 1 1 1 1 11 1 1 1 1 101: CLEAR^NEST^SW^'04E1007^BXPA^00B,IOCSCS1ENT,^START^CHANNELS^'05D1008^CW^^^00BIOCSCS1QPR,IOCSCS1E2,^CL 11 1 1 1 1 11 1 1 1 1 201: EAR^INPUT^SW^'03H1009^BXPA^00B,IOCSCS1UIR&6,^ABOVE^'02F1010QBOOL^00?Q,)036,,^'06H1011^M^STA00B***^PR 11 1 1 1 1 11 1 1 1 11 11 1 1 301: OGRA,CKING^FOR^CHAN1^UNIT^RECORD^INTERRUPTS,^'06B1012^BW^^^00CIOCSCS1UPR,IOCSCS1E1,IOCSCS1A1&9,^Q.^N 1 1 11 1 1 1 1 1 401: ESTING^'02F1013^BOOL^00?R,#103,,^'06E1014^MLCB^00C,IOCSCS1SFX&5,IOCSCS1A1-1,^STORE^CHAN1^FORCE^EX^'0 11 1 1 1 11 11 1 1 1 1 1 11 501: 2F1015^BOOL^00?S,#104,,^'05C1016^MLCB^00B,IOCSCS2SFX&5,^STORE^CHAN2^FORCE^EX^'02G1017^BOOL^00?S,-#10 1 1 1 11 11 1 1 1 1 11 1 1 1 601: 0,,^'02F1018RBOOL^00?S,#104,,^'06E1019^MLCB^00C,IOCSCS2SFX&5,IOCSCS1A1-1,^STORE^CHAN2^FORCE^EX^'03A1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 701: 020SBOOL^00?R,)059&)069,,^'05A1021^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^RET^'05I1022RMRCWG00C,IOCSI 1 1 11 11 1 1 1 1 11 1 1 1 801: NTEXT&1,IOCSCS1A1,^STORE^PGM^STATUS^'02F1023^BOOL^00?R,#105,,^'04C1024^MRCWG00B,IOCSISAVE,^STORE^X13 1 1 11 1 1 1 11 11 1 1 1 1 901: -X15^'02G1025^BOOL^00?S,-#105,,^'03F1026RMRCWG00B,85,^STORE^X13-X15^'02G1027SBOOL^00?R,-)045,,^' 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 099F04C1028^BXPA^00BIOCSCS1E1,)036,^EXIT^IOCS^'06A1029^MRCWG00C,IOCSCS1A1,IOCSINTEXT&1,^RESTORE^PGM^ 1 1 1 1 1 1 11 1 1 1 1 1 101: STATUS^'02F1030^BOOL^00?S,)045,,^'03I1031RBXPA^00B,IOCSCS1E1,^EXIT^IOCS^'07A1032^MRCWG00CIOCSCS1E1R, 11 1 1 1 11 11 1 1 1 1 11 1 1 1 201: IOCSCS1A1,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F1033SBOOL^00?R,#105,,^'05H1034^MRCWG00C,IOCSCS1A1&10, 1 1 11 1 1 1 11 11 1 1 1 1 301: IOCSISAVE,^RESTORE^X13-X15^'02G1035^BOOL^00?S,-#105,,^'05A1036RMRCWG00C,IOCSCS1A1&10,85,^RESTORE^X13 1 11 1 1 1 11 11 1 1 1 1 1 401: -X15^'02F1037SBOOL^00?R,#103,,^'06D1038^MLCA^00C,IOCSCS1A1-1,IOCSCS1SFX&5,^RESTOR^CH1^FORCE^XT^'02F1 11 1 1 1 11 11 1 1 1 1 1 11 1 501: 039^BOOL^00?R,#104,,^'06F1040^MLCA^00C,IOCSCS1A1-6,IOCSCS2SFX&5,^RESTOR^CHAN2^FORCE^EX^'03A1041^BOOL 1 1 11 11 1 1 1 1 1 11 1 601: ^00?S,)059&)069,,^'06F1042^MLCA^00C,IOCSCS1A1-11,IOCSGETEX&5,^RESTORE^GETS/PUTS^RET^'02G1043^BOOL^00 1 1 11 11 1 1 1 1 1 11 1 1 701: ?S,-#100,,^'03A1044RBOOL^00?R,)059&)069,,^'06E1045^MLCA^00C,IOCSCS1A1-6,IOCSGETEX&5,^RESTORE^GETS/PU 1 11 11 1 1 1 11 11 1 1 1 1 1 801: TS^RET^'03B1046RBOOL^00?S,-#103*#104,,^'06F1047^MLCA^00C,IOCSCS1A1-1,IOCSCS2SFX&5,^RESTOR^CHAN2^FROC 11 1 1 1 11 11 1 1 1 1 1 901: E^EX^'04E1048SCW^^^00B,IOCSCS1A1&9,^CLEAR^NEST^SW^'04E1049^BXPA^00B,IOCSCS1ENT,^START^CHANNELS^' 11 1 1 1 1 11 1 1 1 1 1 1: 098C02F1050QBOOL^00?Q,)061,,^'06A1051^CKING00B***^PROGRAM^STA,^FOR^CHAN1^7750^INTERRUPTS,^'06B1052^B 1 1 1 1 1 11 11 1 1 1 1 11 1 101: W^^^00CIOCSCS1R50,IOCSCS1E6,IOCSCS1A6&9,^Q.^NESTING^'02F1053^BOOL^00?R,#103,,^'06B1054^MLCB^00C,IOCS 1 1 1 1 11 1 1 1 11 11 1 1 1 201: CS1SFX&5,IOCSCS1A6-1,^STORE^CHAN1^FORCE^'02F1055^BOOL^00?S,#104,,^'05E1056^MLCB^00B,IOCSCS2SFX&5,^ST 1 1 11 1 1 1 11 11 1 1 1 1 301: ORE^CHAN1^FORCE^EXIT^'02G1057^BOOL^00?S,-#100,,^'02F1058RBOOL^00?S,#104,,^'06B1059^MLCB^00C,IOCSCS2S 11 1 1 1 11 11 1 1 1 11 11 1 1 1 401: FX&5,IOCSCS1A6-1,^STORE^CHAN2^FORCE^'03A1060SBOOL^00?R,)059&)069,,^'05D1061^MLCB^00B,IOCSGETEX&5,^ST 1 1 11 1 1 1 11 11 1 1 1 1 501: ORE^GETS/PUTS^RETURN^'06?1062RMRCWG00C,IOCSINTEXT&1,IOCSCS1A6,^STORE^PRGM^STATUS^'04?1063^BOOL^00?R, 11 1 1 1 1 1 11 1 1 1 601: #105,,^THERE^IS^DISK^'04C1064^MRCWG00B,IOCSISAVE,^STORE^X13-X15^'03E1065^BOOL^00?S,-#105,,^NO^DISK^' 11 11 1 1 1 1 11 1 1 1 11 1 701: 03F1066RMRCWG00B,85,^STORE^X13-X15^'03I1067SBOOL^00?R,-)045,,^NO^LINKAGES^'06C1068^BXPA^00BIOCSCS1E6 1 1 1 1 1 11 1 1 1 11 11 1 1 801: ,IOCSINPT50,^EXIT^IOCS^FOR^7750^ATTN^'06A1069^MRCWG00C,IOCSCS1A6,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'0 1 1 11 1 1 1 1 1 11 901: 3E1070^BOOL^00?S,)045,,^LINKAGES^'04I1071RBXPA^00B,IOCSCS1E6,^BR^TO^LINKAGE^TABLE^' 1 1 1 11 11 1 1 1 1 1 1: 098C07A1072^MRCWG00CIOCSCS1E6R,IOCSCS1A6,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'03A1073^BOOL^00?R,#105,,^ 1 1 1 1 1 1 1 11 1 1 1 11 101: DISK^'05H1074^MRCWG00C,IOCSCS1A6&10,IOCSISAVE,^RESTORE^X13-X15^'02G1075^BOOL^00?S,-#105,,^'03E1076RM 11 1 1 1 1 1 11 1 1 1 11 11 1 201: RCWG00C,IOCSCS1A6&10,85,^'02F1077SBOOL^00?R,#103,,^'06D1078^MLCA^00C,IOCSCS1A6-1,IOCSCS1SFX&5,^RESTO 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 301: RE^CHAN1^FORCE^'02F1079^BOOL^00?R,#104,,^'06E1080^MLCA^00C,IOCSCS1A6-6,IOCSCS2SFX&5,^RESTORE^CH1^FOR 11 1 1 1 11 11 1 1 1 1 1 401: CE^XT^'03A1081^BOOL^00?S,)059&)069,,^'06E1082^MLCA^00C,IOCSCS1A6-11,IOCSGETEX&5,^RESTORE^GETS/PUTS^R 11 1 1 1 11 11 1 1 1 1 1 501: T^'02G1083^BOOL^00?S,-#100,,^'03A1084RBOOL^00?R,)059&)069,,^'06E1085^MLCA^00C,IOCSCS1A6-6,IOCSGETEX& 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 601: 5,^RESTORE^GETS/PUTS^RTN^'03B1086RBOOL^00?S,-#103*#104,,^'06B1087^MLCA^00C,IOCSCS1A6-1,IOCSCS2SFX&5, 1 11 1 1 1 11 11 1 1 1 1 1 701: ^RSTR^CH2^FORCE^XT^'04E1088SCW^^^00B,IOCSCS1A6&9,^CLEAR^NEST^SW^'04E1089^BXPA^00B,IOCSCS1ENT,^START^ 11 1 1 1 1 11 1 1 1 1 801: CHANNELS^'02F1090QBOOL^00?Q,)071,,^'06A1091^CKING00B***^PROGRAM^STA,^FOR^CHAN2^7750^INTERRUPTS,^'06A 11 1 1 1 11 11 1 1 1 1 11 901: 1092^BW^^^00CIOCSCS2R50,IOCSCS2E6,IOCSCS2A6&9,^Q.NESTING^'02E1093^BOOL^00?R,#103,^' 1 1 1 1 1 11 1 1 1 1 1 1: 099C06C1094^MLCB^00C,IOCSCS1SFX&5,IOCSCS2A6-1,^STR^CH1^FORCE^EXIT^'02F1095^BOOL^00?S,#104,,^'05C1096 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: ^MLCB^00B,IOCSCS2SFX&5,^STORE^CH2^FORCE^EXIT^'02G1097^BOOL^00?S,-#100,,^'02F1098RBOOL^00?S,#104,,^'0 1 1 1 11 1 1 1 11 11 1 1 1 11 11 201: 6C1099^MLCB^00C,IOCSCS2SFX&5,IOCSCS2A6-1,^STR^CH2^FORCE^EXIT^'03A1100SBOOL^00?R,)059&)069,,^'05D1101 1 1 1 1 1 11 1 1 1 11 11 1 301: ^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^RETURN^'05H1102RMRCWG00C,IOCSINTEXT&1,IOCSCS2A6,^STR^PRGM^STA 1 1 1 11 1 1 1 1 1 401: TUS^'04?1103^BOOL^00?R,#105,,^THERE^IS^DISK^'04C1104^MRCWG00B,IOCSISAVE,^STORE^X13-X15^'03E1105^BOOL 11 1 1 1 11 11 1 1 1 1 11 1 501: ^00?S,-#105,,^NO^DISK^'03F1106RMRCWG00B,85,^STORE^X13-X15^'03I1107SBOOL^00?R,-)045,,^NO^LINKAGES^'06 1 1 11 11 1 1 1 1 11 1 1 1 11 11 601: C1108^BXPA^00BIOCSCS2E6,IOCSINPT50,^EXIT^IOCS^FOR^7750^ATTN^'06A1109^MRCWG00C,IOCSCS2A6,IOCSINTEXT&1 1 1 1 1 11 1 1 1 1 701: ,^RESTORE^PGM^STATUS^'03E1110^BOOL^00?S,)045,,^LINKAGES^'04I1111RBXPA^00B,IOCSCS2E6,^BR^TO^LINKAGE^T 1 11 1 1 1 11 11 1 1 1 1 801: ABLE^'07A1112^MRCWG00CIOCSCS2E6R,IOCSCS2A6,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'03A1113^BOOL^00?R,#105, 11 1 1 1 1 1 11 1 1 1 1 901: ,^DISK^'05H1114^MRCWG00C,IOCSCS2A6&10,IOCSISAVE,^RESTORE^X13-X15^'02G1115^BOOL^00?S,-#105,,^' 1 11 1 1 1 1 1 11 1 1 1 11 1 1: 095D05A1116RMRCWG00C,IOCSCS2A6&10,85,^RESTORE^X13-X15^'02F1117SBOOL^00?R,#103,,^'06C1118^MLCA^00C,IO 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: CSCS2A6-1,IOCSCS1SFX&5,^RESTR^CH1^FORCE^XT^'02F1119^BOOL^00?R,#104,,^'06C1120^MLCA^00C,IOCSCS2A6-6,I 1 1 11 1 1 1 11 11 1 1 1 1 201: OCSCS2SFX&5,^RESTR^CH2^FORCE^XT^'03A1121^BOOL^00?S,)059&)069,,^'06D1122^MLCA^00C,IOCSCS2A6-11,IOCSGE 1 11 1 1 1 11 11 1 1 1 1 301: TEX&5,^RESTR^GETS/PUTS^RTN^'02G1123^BOOL^00?S,-#100,,^'03A1124RBOOL^00?R,)059&)069,,^'06C1125^MLCA^0 1 11 1 1 1 11 11 1 1 1 11 11 1 1 401: 0C,IOCSCS2A6-6,IOCSGETEX&5,^RESTR^GETS/PUTS^RTN^'03B1126RBOOL^00?S,-#103*#104,,^'06B1127^MLCA^00C,IO 1 1 1 11 1 1 1 11 11 1 1 1 501: CSCS2A6-1,IOCSCS2SFX&5,^RSTR^CH2^FROCE^XT^'04E1128SCW^^^00B,IOCSCS2A6&9,^CLEAR^NEST^SW^'04E1129^BXPA 1 1 11 1 1 1 1 11 1 601: ^00B,IOCSCS1ENT,^START^CHANNELS^'02F1130QBOOL^00?Q,)070,,^'02F1131^BOOL^00?R,)076,,^'04C1132^INE^B00 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 701: B***^DETERM,UPR2^STIMULUS,^'05B1133^NRPTO00CIOCSCS2QUQ,2,0,^Q.^1402/03^REQUEST^'05B1134^BA2^^00B,IOC 1 1 11 1 1 1 1 1 11 1 1 1 801: SCS2UPR,^STACK^PGM^FOR^1402/03^'06A1135^BW^^^00C,IOCSCS2UPR,IOCSCS2E2-1,^STACK^PGM^FOR^1011^'06A1136 1 11 1 1 1 1 1 11 1 901: RM^STA00B***^PROGRA,CKING^FOR^CHAN2^1414^INTERRUPTS,^' 1 1 1 1 1: 098C05G1137^SW^^^00BIOCSCS2UIR,IOCSCS2E2,^SET^1414^INPUT^SW^'05D1138^BW^^^00C,IOCSCS2E2-2,IOCSCS2A5& 1 1 1 1 1 1 11 1 1 1 1 101: 9,^Q.^NESTING^'02E1139^BOOL^00?R,#103,^'06E1140^MLCB^00C,IOCSCS1SFX&5,IOCSCS2A5-1,^STORE^CHAN1^FORCE 1 11 1 1 1 1 11 1 1 1 1 1 201: ^EX^'02F1141^BOOL^00?S,#104,,^'05C1142^MLCB^00B,IOCSCS2SFX&5,^STORE^CHAN2^FORCE^EX^'02G1143^BOOL^00? 11 1 1 1 11 11 1 1 1 1 11 1 1 301: S,-#100,,^'02F1144RBOOL^00?S,#104,,^'06E1145^MLCB^00C,IOCSCS2SFX&5,IOCSCS2A5-1,^STORE^CHAN2^FORCE^EX 1 11 11 1 1 1 11 11 1 1 1 1 1 401: ^'03A1146SBOOL^00?R,)059&)069,,^'05A1147^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^RET^'05I1148RMRCWG00C 11 1 1 1 11 11 1 1 1 1 11 1 1 501: ,IOCSINTEXT&1,IOCSCS2A5,^STORE^PGM^STATUS^'02F1149^BOOL^00?R,#105,,^'04C1150^MRCWG00B,IOCSISAVE,^STO 1 1 1 11 1 1 1 11 11 1 1 1 1 601: RE^X13-X15^'02G1151^BOOL^00?S,-#105,,^'03F1152RMRCWG00B,85,^STORE^X13-X15^'02G1153SBOOL^00?R,-)045,, 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 701: ^'02?1154^NOP^^00B,,^'02H1155^NOP^^00B,,^1011^SW^'04H1156^BXPA^00BIOCSCS2E2,0,^1414^INQUIRY^EXIT^'04 11 1 1 11 11 1 1 11 11 1 1 1 1 11 801: I1157^BXPA^00BIOCSCS2E3,0,^1414^OUTQUIRY^EXIT^'06A1158^MRCWG00C,IOCSCS2A5,IOCSINTEXT&1,^RESTORE^PGM^ 1 1 1 1 11 1 1 1 1 1 901: STATUS^'02F1159^BOOL^00?S,)045,,^'04I1160RBXPA^00B,IOCSCS2E2-2,^TO^INQ/OUTQ^LINKS^' 11 1 1 1 11 11 1 1 1 1 1 1: 094E07A1161^MRCWG00CIOCSCS2E5R,IOCSCS2A5,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F1162SBOOL^00?R,#105,,^ 1 1 1 1 1 1 1 11 1 1 1 11 101: '05H1163^MRCWG00C,IOCSCS2A5&10,IOCSISAVE,^RESTORE^X13-X15^'02G1164^BOOL^00?S,-#105,,^'05A1165RMRCWG0 11 1 1 1 1 1 11 1 1 1 11 11 1 1 201: 0C,IOCSCS2A5&10,85,^RESTORE^X13-X15^'02F1166SBOOL^00?R,#103,,^'06D1167^MLCA^00C,IOCSCS2A5-1,IOCSCS1S 1 1 1 11 1 1 1 11 11 1 1 1 1 301: FX&5,^RESTOR^CH1^FORCE^XT^'02F1168^BOOL^00?R,#104,,^'06F1169^MLCA^00C,IOCSCS2A5-6,IOCSCS2SFX&5,^REST 1 11 1 1 1 11 11 1 1 1 1 1 401: OR^CHAN2^FORCE^EX^'03A1170^BOOL^00?S,)059&)069,,^'06F1171^MLCA^00C,IOCSCS2A5-11,IOCSGETEX&5,^RESTORE 11 1 1 1 11 11 1 1 1 1 1 501: ^GETS/PUTS^RET^'02G1172^BOOL^00?S,-#100,,^'03A1173RBOOL^00?R,)059&)069,,^'06E1174^MLCA^00C,IOCSCS2A5 11 1 1 1 11 11 1 1 1 11 11 1 1 1 601: -6,IOCSGETEX&5,^RESTORE^GETS/PUTS^RET^'03B1175RBOOL^00?S,-#103*#104,,^'06F1176^MLCA^00C,IOCSCS2A5-1, 1 1 11 1 1 1 11 11 1 1 1 1 701: IOCSCS2SFX&5,^RESTOR^CHAN2^FROCE^EX^'04E1177SCW^^^00B,IOCSCS2A5&9,^CLEAR^NEST^SW^'04E1178^BXPA^00B,I 1 11 1 1 1 1 11 1 1 1 801: OCSCS1ENT,^START^CHANNELS^'05D1179^CW^^^00BIOCSCS2QPR,IOCSCS2E2,^CLEAR^INPUT^SW^'03H1180^BXPA^00B,IO 1 11 1 1 1 1 11 1 1 1 901: CSCS2UIR&6,^ABOVE^'02F1181QBOOL^00?Q,)076,,^' 1 11 1 1 1 11 1 1: 098G06H1182^M^STA00B***^PROGRA,CKING^FOR^CHAN2^UNIT^RECORD^INTERRUPTS,^'06B1183^BW^^^00CIOCSCS2UPR,I 1 1 1 1 1 1 11 1 1 1 101: OCSCS2E1,IOCSCS2A1&9,^Q.^NESTING^'02E1184^BOOL^00?R,#103,^'06E1185^MLCB^00C,IOCSCS1SFX&5,IOCSCS2A1-1 1 1 11 1 1 1 1 11 1 1 1 1 201: ,^STORE^CHAN1^FORCE^EX^'02F1186^BOOL^00?S,#104,,^'05C1187^MLCB^00B,IOCSCS2SFX&5,^STORE^CHAN2^FORCE^E 1 11 1 1 1 11 11 1 1 1 1 301: X^'02G1188^BOOL^00?S,-#100,,^'02F1189RBOOL^00?S,#104,,^'06E1190^MLCB^00C,IOCSCS2SFX&5,IOCSCS2A1-1,^S 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 401: TORE^CHAN2^FORCE^EX^'03A1191SBOOL^00?R,)059&)069,,^'05A1192^MLCB^00B,IOCSGETEX&5,^STORE^GETS/PUTS^RE 11 1 1 1 11 11 1 1 1 1 501: T^'05I1193RMRCWG00C,IOCSINTEXT&1,IOCSCS2A1,^STORE^PGM^STATUS^'02F1194^BOOL^00?R,#105,,^'04C1195^MRCW 11 1 1 1 1 1 11 1 1 1 11 11 1 601: G00B,IOCSISAVE,^STORE^X13-X15^'02G1196^BOOL^00?S,-#105,,^'03F1197RMRCWG00B,85,^STORE^X13-X15^'02G119 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: 8SBOOL^00?R,-)045,,^'04C1199^BXPA^00BIOCSCS2E1,)076,^EXIT^IOCS^'06A1200^MRCWG00C,IOCSCS2A1,IOCSINTEX 1 1 11 11 1 1 1 1 11 1 1 1 1 801: T&1,^RESTORE^PGM^STATUS^'02F1201^BOOL^00?S,)045,,^'03I1202RBXPA^00B,IOCSCS2E1,^EXIT^IOCS^'07A1203^MR 1 11 1 1 1 11 11 1 1 1 1 11 1 901: CWG00CIOCSCS2E1R,IOCSCS2A1,IOCSINTEXT&1,^RESTORE^PGM^STATUS^'02F1204SBOOL^00?R,#105,,^' 1 1 1 1 11 1 1 1 11 1 1: 097E05H1205^MRCWG00C,IOCSCS2A1&10,IOCSISAVE,^RESTORE^X13-X15^'02G1206^BOOL^00?S,-#105,,^'05A1207RMRC 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: WG00C,IOCSCS2A1&10,85,^RESTORE^X13-X15^'02F1208SBOOL^00?R,#103,,^'06D1209^MLCA^00C,IOCSCS2A1-1,IOCSC 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: S1SFX&5,^RESTOR^CH1^FORCE^XT^'02F1210^BOOL^00?R,#104,,^'06F1211^MLCA^00C,IOCSCS2A1-6,IOCSCS2SFX&5,^R 1 11 1 1 1 11 11 1 1 1 1 1 301: ESTOR^CHAN2^FORCE^EX^'03A1212^BOOL^00?S,)059&)069,,^'06F1213^MLCA^00C,IOCSCS2A1-11,IOCSGETEX&5,^REST 11 1 1 1 11 11 1 1 1 1 1 401: ORE^GETS/PUTS^RET^'02G1214^BOOL^00?S,-#100,,^'03A1215RBOOL^00?R,)059&)069,,^'06E1216^MLCA^00C,IOCSCS 11 1 1 1 11 11 1 1 1 11 11 1 1 1 501: 2A1-6,IOCSGETEX&5,^RESTORE^GETS/PUTS^RET^'03B1217RBOOL^00?S,-#103*#104,,^'06F1218^MLCA^00C,IOCSCS2A1 1 1 11 1 1 1 11 11 1 1 1 601: -1,IOCSCS2SFX&5,^RESTOR^CHAN2^FROCE^EX^'04E1219SCW^^^00B,IOCSCS2A1&9,^CLEAR^NEST^SW^'04E1220^BXPA^00 1 1 11 1 1 1 1 11 1 1 701: B,IOCSCS1ENT,^START^CHANNELS^'04C1221QDCW^^00B,10,^STATUS-RESTORE^CONST^'02H1222^DCW^^00BIOCS101,1,^ 1 1 11 1 1 1 1 11 1 1 1 1 801: '05F1223^BOOL^00?P,)035&)036&)076&)060&)061&)070&)071,,^'04A1224^M^STA00B***^PROGRA,CKING^AREAS,^'02 11 1 1 1 11 11 1 1 1 1 11 901: F1225^BOOL^00?Q,)035,,^'02F1226^BOOL^00?R,#103,,^'02E1227^DCW^^00B,00000,^' 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 1: 100?02F1228RBOOL^00?R,#104,,^'02E1229^DCW^^00B,00000,^'03B1230RBOOL^00?R,#105*-#108,,^'02E1231^DCW^^ 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: 00B,00000,^'02F1232RBOOL^00?R,#108,,^'06A1233^DCW^^00B^IOCSCIA,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 201: 2G1234^BOOL^00?Q,-#100,,^'05F1235RDCW^^00B^IOCSCIA,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F1236QBOOL^00?Q, 1 1 1 11 11 1 1 1 1 11 1 1 1 301: )036,,^'02F1237^BOOL^00?R,#103,,^'02E1238^DCW^^00B,00000,^'02F1239RBOOL^00?R,#104,,^'02E1240^DCW^^00 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 401: B,00000,^'03B1241RBOOL^00?R,#105*-#108,,^'02E1242^DCW^^00B,00000,^'02F1243RBOOL^00?R,#108,,^'06C1244 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 501: ^DCW^^00B^IOCSCS1A1,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G1245^BOOL^00?Q,-#100,,^'05H1246RDCW^^00B^ 1 1 1 11 1 1 1 11 11 1 1 601: IOCSCS1A1,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F1247QBOOL^00?Q,)060,,^'02F1248^BOOL^00?R,#103,,^'02E1249 1 1 11 1 1 1 11 11 1 1 1 11 11 1 701: ^DCW^^00B,00000,^'02F1250RBOOL^00?R,#104,,^'02E1251^DCW^^00B,00000,^'03B1252RBOOL^00?R,#105*-#108,,^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 801: '02E1253^DCW^^00B,00000,^'02F1254RBOOL^00?R,#108,,^'06C1255^DCW^^00B^IOCSCS1A5,@^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: ^^^^^^^^^^^@,^'02G1256^BOOL^00?Q,-#100,,^'05H1257RDCW^^00B^IOCSCS1A5,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^' 1 11 1 1 1 11 11 1 1 1 1 1 1: 099F02F1258QBOOL^00?Q,)061,,^'02F1259^BOOL^00?R,#103,,^'02E1260^DCW^^00B,00000,^'02F1261RBOOL^00?R,# 1 1 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 101: 104,,^'02E1262^DCW^^00B,00000,^'03B1263RBOOL^00?R,#105*-#108,,^'02E1264^DCW^^00B,00000,^'02F1265RBOO 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: L^00?R,#108,,^'06C1266^DCW^^00B^IOCSCS1A6,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G1267^BOOL^00?Q,-#10 1 1 11 11 1 1 1 1 11 1 1 1 301: 0,,^'05H1268RDCW^^00B^IOCSCS1A6,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F1269QBOOL^00?Q,)076,,^'02F1270^BOO 11 11 1 1 1 1 11 1 1 1 11 11 1 401: L^00?R,#103,,^'02E1271^DCW^^00B,00000,^'02F1272RBOOL^00?R,#104,,^'02E1273^DCW^^00B,00000,^'03B1274RB 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: OOL^00?R,#105*-#108,,^'02E1275^DCW^^00B,00000,^'02F1276RBOOL^00?R,#108,,^'06C1277^DCW^^00B^IOCSCS2A1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 601: ,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G1278^BOOL^00?Q,-#100,,^'05H1279RDCW^^00B^IOCSCS2A1,@^^^^^^^^ 1 1 11 1 1 1 11 11 1 1 1 701: ^^^^^^^^^^^^^^^^^^@,^'02F1280QBOOL^00?Q,)071,,^'02F1281^BOOL^00?R,#103,,^'02E1282^DCW^^00B,00000,^'0 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 11 801: 2F1283RBOOL^00?R,#104,,^'02E1284^DCW^^00B,00000,^'03B1285RBOOL^00?R,#105*-#108,,^'02E1286^DCW^^00B,0 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: 0000,^'02F1287RBOOL^00?R,#108,,^'06C1288^DCW^^00B^IOCSCS2A6,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^' 1 11 1 1 1 11 11 1 1 1 1 1 1: 100?02G1289^BOOL^00?Q,-#100,,^'05H1290RDCW^^00B^IOCSCS2A6,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F1291QBOO 1 1 1 1 1 11 11 1 1 1 1 11 1 101: L^00?P,)070,,^'02F1292^BOOL^00?Q,#103,,^'02E1293^DCW^^00B,00000,^'02F1294QBOOL^00?Q,#104,,^'02E1295^ 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: DCW^^00B,00000,^'03B1296QBOOL^00?Q,#105*-#108,,^'02E1297^DCW^^00B,00000,^'02F1298QBOOL^00?Q,#108,,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 301: 06C1299^DCW^^00B^IOCSCS2A5,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G1300^BOOL^00?P,-#100,,^'05H1301QDC 1 1 1 1 1 11 1 1 1 11 11 1 401: W^^00B^IOCSCS2A5,@^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G1302PBOOL^00?P,-)044,,^'03C1303^BOOL^00?Q,-)057*- 1 1 1 11 1 1 1 11 11 1 1 1 501: )067,,^'03F1304^EQU^^00BIOCSDTFACT,20&X15,^'04I1305QLOSE,00C***^OPEN,C,FEORL,RDLIN^ENTRIES,^'02F1306 11 11 1 1 1 1 11 1 1 1 1 1 11 1 601: ^BOOL^00?Q,)045,,^'02I1307^EQU^^00BIOCSOCEA,*,^'02G1308^BOOL^00?R,-)045,,^'03H1309QSBR^^00BIOCSCLOP, 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: IOCSEXIT&5,^'03A1310RBOOL^00?Q,)030&)031,,^'02H1311^B^^^^00B,IOCSFORS,^'02F1312^BOOL^00?Q,)039,,^'03 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 801: ?1313^B^^^^00B,IOCSDKOPEN,^'02H1314QB^^^^00B,IOCSSTLE,^'04A1315^MRC^^00CIOCSEXIT,0,IOCSDTFBX-5,^'02? 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 901: 1316^MRC^^00B,,^'02?1317^MRC^^00B,,^'03?1318^SAR^^00B,IOCSEXIT&5,^'03C1319^S^^^^00C,&1,IOCSEXIT&5,^' 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1 1: 098C03C1320^MLCA^00C,IOCSDTFBX,X15,^'03B1321^BOOL^00?Q,)047,,^RDLIN^'04C1322^BCE^^00D,IOCSRDLIN,IOCS 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: DTFBX-5,?,^'03I1323QLEH^^00C,IOCSDTFACT,IOCSNEPO,^'02C1324^SBR^^00B,*&6,^'02F1325^MLCA^00C,0,*&25,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 201: 04G1326^BBE^^00D,*&8,IOCSDTFBX-5,2,^TEST^OPEN^'02A1327^B^^^^00B,0,^'02A1328^B^^^^00B,0,^'04B1329^BOO 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: L^00?Q,)031*-#108,,^SEQ*-1405^'03?1330^DCW^^00B,IOCSDFCLOS,^'02D1331^DC^^^00B,@^J@,^'03?1332^DC^^^00 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 401: B,IOCSDFOPEN,^'02A1333^DC^^^00B,9,^'04?1334QBOOL^00?Q,)031*#108,,^SEQ*1405^'03C1335^DCW^^00B,IOCSFDP 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 501: AD&X15,^'02D1336^DC^^^00B,@^J@,^'03?1337^DC^^^00B,IOCSDFOPEN,^'02A1338^DC^^^00B,9,^'03?1339^DCW^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ,IOCSDFCLOS,^'02D1340^DC^^^00B,@^J@,^'03?1341^DC^^^00B,IOCSDFOPEN,^'02A1342^DC^^^00B,8,^'04A1343QBOO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: L^00?Q,)030*#108,,^RAN.*1405^'03?1344^DCW^^00B,IOCSCLSRND,^'02D1345^DC^^^00B,@^J@,^'03?1346^DC^^^00B 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: ,IOCSDFOPEN,^'02A1347^DC^^^00B,7,^'04C1348QBOOL^00?Q,)030*-#108,,^RAN.*-1405^'03?1349^DCW^^00B,IOCSE 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: XITRU,^'02D1350^DC^^^00B,@^J@,^'03?1351^DC^^^00B,IOCSDFOPEN,^'02A1352^DC^^^00B,7,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098E03G1353QBOOL^00?Q,)030*)039*-#108,,^'03?1354^DCW^^00B,IOCSRNDCLS,^'02D1355^DC^^^00B,@^J@,^'03?13 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: 56^DC^^^00B,IOCSDFOPEN,^'02A1357^DC^^^00B,6,^'03A1358QBOOL^00?Q,)056&)066,,^'03?1359^DCW^^00B,IOCSEX 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: ITRU,^'02D1360^DC^^^00B,@^J@,^'03?1361^DC^^^00B,IOCSUROPEN,^'02A1362^DC^^^00B,5,^'03A1363QBOOL^00?Q, 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: )055&)065,,^'03C1364^DCW^^00B,IOCSDTFACT&11,^'02D1365^DC^^^00B,@^J@,^'03?1366^DC^^^00B,IOCSUROPEN,^' 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 401: 02A1367^DC^^^00B,4,^'06?1368QBOOL^00BQ,@)054&)064@*@@)055&)065@&-@)056&)066@@,,^'03?1369^DCW^^00B,IO 1 1 1 1 1 11 1 1 1 11 11 1 1 1 501: CSEXITRU,^'02D1370^DC^^^00B,@^J@,^'03?1371^DC^^^00B,IOCSUROPEN,^'02A1372^DC^^^00B,3,^'03A1373QBOOL^0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 0?Q,)057&)067,,^'02G1374^BOOL^00?R,-#100,,^'03?1375^DCW^^00B,IOCSTPCLOS,^'02D1376^DC^^^00B,@^J@,^'02 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 701: H1377^DC^^^00B,IOCSENTA,^'02A1378^DC^^^00B,2,^'02F1379^BOOL^00?Q,#100,,^'02F1380RBOOL^00?R,)046,,^'0 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 801: 3?1381^DCW^^00B,IOCSTPCLOS,^'02D1382^DC^^^00B,@^J@,^'02I1383^DC^^^00B,IOCSPAHSK,^'02A1384^DC^^^00B,2 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ,^'03?1385^DCW^^00B,IOCSTPCLOS,^'02D1386^DC^^^00B,@^J@,^'02H1387^DC^^^00B,IOCSENTA,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096D02A1388^DC^^^00B,1,^'05A1389RBOOL^00?R,)042*-)046,,^ASSEM*-NON^OVERLAY^'03?1390^DCW^^00B,IOCSTPC 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: LOS,^'02D1391^DC^^^00B,@^J@,^'02H1392^DC^^^00B,IOCSENTA,^'02A1393^DC^^^00B,2,^'05C1394RBOOL^00?Q,-)0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: 42*-)046,,^-ASSEM*-NON^OVERLAY^'03?1395^DCW^^00B,IOCSEXITRU,^'02D1396^DC^^^00B,@^J@,^'02I1397^DC^^^0 11 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0B,IOCSPAHSK,^'02H1398^DC^^^00BIOCSPOX,9,^'03F1399QBOOL^00?Q,)061&)071,,^7750^'03?1400^DCW^^00B,IOCS 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 401: CLOSER,^'02D1401^DC^^^00B,@^J@,^'02I1402^DC^^^00B,IOCSOPENR,^'02C1403^DC^^^00B,@K@,^'03F1404QBOOL^00 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: ?Q,)060&)070,,^1414^'03?1405^DCW^^00B,IOCSCLOSER,^'02D1406^DC^^^00B,@^J@,^'02I1407^DC^^^00B,IOCSOPEN 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: R,^'02C1408^DC^^^00B,@A@,^'03A1409QEQU^^00BIOCSNEPO,*-1,^'04A1410^BOOL^00?Q,)060&)061&)070&)071,,^'0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 701: 3H1411^MLCS^00CIOCSOPENR,@1@,0&X15,^'03?1412^B^^^^00B,IOCSEXITRU,^'03I1413^MLCS^00CIOCSCLOSER,@0@,0& 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: X15,^'02F1414^B^^^^00B,21&X15,^'03A1415QBOOL^00?Q,#101f,,^'04C1416^S^^^^00BIOCSUROPEN,IOCSDTFACT 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: &10,^'03B1417QEQUEN00B***^EXIT^S,CE,^'02F1418^BOOL^00?Q,)045,,^' 1 11 1 1 1 1 11 1 1 1 11 1 1: 100?04D1419^BCE^^00DIOCSSCS,*&8,IOCSDTFBX&1,J,^'02G1420^BOOL^00?R,-)045,,^'04G1421QBCE^^00DIOCSEXITR 1 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: U,*&8,IOCSDTFBX&1,J,^'02H1422RB^^^^00B,IOCSEXIT,^'03H1423^BOOL^00AQ,#100*@)057&)067@,,^'03A1424^SW^^ 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: ^00B,IOCSENTRY&8,^'03A1425QBOOL^00?Q,)030&)031,,^'02H1426^B^^^^00B,IOCSFORS,^'04B1427QMLCS^00C,IOCSE 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: XIT&5,IOCSSWBXA&5,^'02?1428^MLCS^00B,,^'02?1429^MLCS^00B,,^'02?1430^MLCS^00B,,^'02?1431^MLCS^00B,,^' 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 11 1 401: 06A1432^BOOL^00?Q,)013&)014&)015&)016&)017&)018&)019&)020,,^'04?1433^SBR^^00BIOCSSWBX,IOCSSTLEXT&5,^ 1 1 1 1 11 11 1 1 1 1 501: '02G1434QBOOL^00?Q,-#105,,^'03C1435^MLCA^00C,IOCSX15HD,X15,^'03A1436QBOOL^00?Q,#100*#105,,^'02I1437^ 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 601: B^^^^00B,IOCSENTRY,^'03?1438QB^^^^00BIOCSSWBXA,0,^'03E1439^Y^SEQ00B***^REENTR,UENCE,^'04?1440^SBR^^0 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: 0BIOCSSTLE,IOCSSTLEXT&5,^'03A1441^BOOL^00?Q,#100*#103,,^'03?1442^BXPA^00B,IOCSCS1SFS,^'03A1443QBOOL^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 00?Q,#100*#104,,^'03?1444^BXPA^00B,IOCSCS2SFS,^'03H1445QBOOL^00AQ,#100*@)057&)067@,,^'03A1446^CW^^^0 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 901: 0B,IOCSENTRY&8,^'02F1447QBOOL^00?Q,)045,,^'03?1448^EQU^^00BIOCSREENT,*,^'02G1449^BOOL^00?R,-)045,,^' 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 097I03A1450QEQU^^00BIOCSRENTRY,*,^'02G1451RBOOL^00?Q,-#105,,^'03C1452^MLCB^00C,X15,IOCSX15HD,^'03C14 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 101: 53QMLCA^00C,IOCSDTFBX,X15,^'03A1454^B^^^^00BIOCSSTLEXT,0,^'02C1455^DCW^^00B,@^@,^'03F1456^DCW^^00BIO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: CSDTFBX,@^^^^^@,^'02C1457^DCW^^00B,@^@,^'02G1458^BOOL^00?P,-#105,,^'03F1459^DCW^^00BIOCSX15HD,@^^^^^ 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: @,^'02F1460PBOOL^00?P,)051,,^'04C1461^APE^C00B***^DUMP^T,LOSE^SEQUENCE,^'03D1462^COMP^00F,)051,20,)1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 401: 97,,,^'02F1463^BOOL^00?Q,)045,,^'04D1464^MRC^^00CIOCSBOOBOO,0,IOCSCLOSDD&4,^'02G1465^BOOL^00?R,-)045 111 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 501: ,,^'03B1466QSBR^^00BIOCSCLOSD,*&6,^'03D1467^MRC^^00C,0,IOCSCLOSDD&4,^'03B1468RSAR^^00B,IOCSCLOSDX&5, 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: ^'03A1469^BOOL^00?Q,#103*)197,,^'03?1470^BXPA^00B,IOCSCS1SFS,^'03B1471QBOOL^00?Q,#104*-)197,,^'03?14 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 701: 72^BXPA^00B,IOCSCS2SFS,^'02D1473QWTM^^00B,)051,^'02F1474^BOOL^00?Q,)197,,^'02I1475^BA1^^00B,IOCSERRO 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: R,^'02G1476^BOOL^00?R,-)197,,^'02I1477QBA2^^00B,IOCSERROR,^'03?1478RBCE^^00D,*&13,*&5,N,^'03D1479^RW 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1 11 1 901: D^^00BIOCSCLOSDD,)051,^'02F1480^BOOL^00?Q,)197,,^'02I1481^BA1^^00B,IOCSERROR,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097F02G1482^BOOL^00?R,-)197,,^'02I1483QBA2^^00B,IOCSERROR,^'02F1484RBOOL^00?Q,#100,,^'02I1485^BXPA^0 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 101: 0B,IOCSENTRY,^'03A1486QB^^^^00BIOCSCLOSDX,0,^'02F1487PBOOL^00?P,)032,,^'03G1488^OINT^00B***^CHECKP,R 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: OUTINE,^'03B1489^BOOL^00?Q,#100*-)035,,^'03G1490^CW^^^00BIOCSCICK,IOCSCIR&1,^'02F1491^BOOL^00?R,)045 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: ,,^'03B1492^SBR^^00B,IOCSCKEXIT&5,^'02G1493QBOOL^00?Q,-)045,,^'04A1494RSBR^^00BIOCSCHKPT,IOCSCKEXIT& 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 401: 5,^'02F1495^BOOL^00?R,)045,,^'03A1496QEQU^^00BIOCSCHKPTA,*,^'02F1497RBOOL^00?Q,#103,,^'03?1498^BXPA^ 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 501: 00B,IOCSCS1SFS,^'02F1499QBOOL^00?Q,#104,,^'03?1500^BXPA^00B,IOCSCS2SFS,^'03B1501QMLCWA00C,*,IOCSCKHL 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 601: DA,^'02D1502^MLCWA00B,*&12,^'03C1503^MLCWB00C,24,IOCSCKHLDA,^'02?1504^MLCWB00B,,^'03D1505^WT^^^00C,) 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 701: 032,IOCSCKREC,^'03D1506^COMP^00F,)032,20,)199,,,^'02F1507^BOOL^00?Q,)199,,^'03A1508^BEX1^00C,IOCSERR 1 1 11 1 1 1 1 1 111 11 1 1 1 11 11 1 1 1 801: OR,7,^'02I1509^BA1^^00B,IOCSCKBSP,^'02G1510^BOOL^00?R,-)199,,^'03A1511QBEX2^00C,IOCSERROR,7,^'02I151 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 901: 2^BA2^^00B,IOCSCKBSP,^'02G1513RWTBEW00C,)032,25,^'02F1514^BOOL^00?Q,)199,,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 11 1 1: 099D03A1515^BEX1^00C,IOCSERROR,7,^'03B1516^BA1^^00B,IOCSCKBSP-12,^'02G1517^BOOL^00?R,-)199,,^'03A151 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 101: 8QBEX2^00C,IOCSERROR,7,^'03B1519^BA2^^00B,IOCSCKBSP-12,^'02I1520RWCP^^00B,IOCSCKRCC,^'02I1521^BA1^^0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 201: 0B,IOCSCPERR,^'03G1522^A^^^^00C,*-10,IOCSCKRCC&12,^'03F1523^A^^^^00C,*-10,IOCSCKREC&9,^'03A1524^B^^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 301: ^00BIOCSCKEXIT,0,^'02D1525^BSP^^00B,)032,^'02F1526^BOOL^00?Q,)199,,^'02I1527^BA1^^00B,IOCSERROR,^'02 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 401: G1528^BOOL^00?R,-)199,,^'02I1529QBA2^^00B,IOCSERROR,^'03C1530RBSP^^00BIOCSCKBSP,)032,^'02F1531^BOOL^ 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 501: 00?Q,)199,,^'02I1532^BA1^^00B,IOCSERROR,^'02G1533^BOOL^00?R,-)199,,^'02I1534QBA2^^00B,IOCSERROR,^'03 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 601: ?1535RB^^^^00B,IOCSCKEXIT,^'03I1536^DCW^^00B^IOCSCKREC,@**CHKPT@,^'02E1537^DCW^^00B,@001@,^'02D1538^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: DCW^^00B,@**@,^'02F1539^DCW^^00B,IOCSCU,^'02G1540^DCW^^00B,IOCSTBC,^'02F1541^BOOL^00?Q,)007,,^'02I15 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 801: 42^DCW^^00B,IOCSHFS-4,^'02G1543^BOOL^00?R,-)007,,^'02G1544QDCW^^00B,@XXXXX@,^'03B1545RBOOL^00?Q,#100 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: *-)044,,^'03?1546^DCW^^00B,IOCSPENSWE,^'02G1547^BOOL^00?R,-#100,,^'02G1548QDCW^^00B,@XXXXX@,^' 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099C02G1549RBOOL^00?Q,-)044,,^'03?1550^DCW^^00B,IOCSDTFACT,^'02I1551^DCW^^00B,IOCSDTFL1,^'03?1552QDC 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: W^^00B,IOCSRSCLOT,^'02C1553^DCW^^00B,@"@,^'02G1554^RTBGW00C,)032,25,^'02F1555^BOOL^00?Q,)199,,^'04A1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 201: 556^BEX1^00CIOCSRSCLOT,IOCSERROR,7,^'02C1557^BA1^^00B,*&1,^'02D1558^BSP^^00B,)032,^'02I1559^BA1^^00B 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: ,IOCSERROR,^'02G1560^WTBEW00C,)032,25,^'02D1561^BCB1^00B,*-16,^'02I1562^BA1^^00B,IOCSERROR,^'02G1563 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: ^BOOL^00?R,-)199,,^'04A1564QBEX2^00CIOCSRSCLOT,IOCSERROR,7,^'02C1565^BA2^^00B,*&1,^'02D1566^BSP^^00B 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: ,)032,^'02I1567^BA2^^00B,IOCSERROR,^'02G1568^WTBEW00C,)032,25,^'02D1569^BCB2^00B,*-16,^'02I1570^BA2^ 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^00B,IOCSERROR,^'02D1571RMLCWA00C,*,24,^'02D1572^MLCWA00B,*&12,^'03C1573^MLCWB00C,IOCSCKHLDA,24,^'02 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: ?1574^MLCWB00B,,^'03C1575^SW^^^00B,IOCSCKHLDA-23,^'03I1576^MRCWG00C,IOCSCKMSG,IOCSERFLD,^'02H1577^B^ 1 1 11 11 1 1 1 1 11 1 1 1 1 1 11 1 801: ^^^00B,IOCSHALT,^'03C1578^B^^^^00B,IOCSCKEXIT-22,^'05F1579^DCW^^00BIOCSCKHLDA,@^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 901: ^^^@,^'04D1580^DCW^^00C^IOCSCKMSG,@20186^RST^@,G,^'04B1581^DCW^^00B^IOCSCKRCC,@10185^CPT^@,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 099C02G1582^DCW^^00C,@001@,G,^'04I1583PE^AND00B***^MESSAG,^WAIT-LOOP^ROUTINES,^'03I1584^SBR^^00BIOCS 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: HALT,IOCSHALTX&5,^'02H1585^B^^^^00B,IOCSNOTE,^'04C1586^MLCA^00C,@20183^CI^@,IOCSERFLD&8,^'02I1587^RC 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: P^^00B,IOCSREPLY,^'02F1588^BEX1^00C,*-16,/,^'03B1589^BEX1^00C,IOCSHALT&7,@,^'02C1590^BA1^^00B,*&1,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: 03?1591^B^^^^00BIOCSHALTX,0,^'03A1592^DCW^^00CIOCSGM,@^@,G,^'03I1593^DCW^^00C^IOCSREPLY,@RETRY@,G,^' 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 401: 06C1594^DCW^^00C^IOCSERFLD,@20183^CI^^^^^^^^^^^^^^^^^^^^^@,G,^'03B1595^SBR^^00BIOCSNOTE,*&23,^'02I15 1 1 1 1 1 1 11 1 1 1 1 11 1 501: 96^WCP^^00B,IOCSERFLD,^'02I1597^BA1^^00B,IOCSCPERR,^'02A1598^B^^^^00B,0,^'04H1599^E^PRI00B***^CONSOL 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ,NTER^ERROR^ROUTINE,^'02G1600^BOOL^00?P,-)045,,^'03I1601^SBR^^00BIOCSCPERR,IOCSCPEX&5,^'02E1602PBEX1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: ^00C,*&8,\,^'02I1603^B^^^^00BIOCSCPEX,0,^'02H1604^S^^^^00C,&17,*-12,^'02H1605^B^^^^00B,IOCSCPEX,^'03 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 801: A1606^BOOL^00?P,#101f,,^'04D1607^ECORD00B***^UNIT-R,^ERROR^ROUTINE,^'03A1608^BOOL^00?Q,#101*#102 1 1 1 11 11 1 1 1 1 11 1 1 1 901: ,,^'03D1609^SBR^^00BIOCSURCHOP,*&18,^'02D1610^SBR^^00B,*&18,^'03A1611^MRC^^00C,IOCSURBAN,0,^' 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 097H02A1612^B^^^^00B,0,^'02F1613QBOOL^00?Q,)045,,^'04?1614^SW^^^00BIOCSURENT,IOCSURNR&13,^'02G1615^B 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: OOL^00?R,-)045,,^'04A1616QSBR^^00BIOCSURERR,IOCSUREXIT&5,^'03A1617^BOOL^00?Q,#101f,,^'03A1618^SB 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: R^^00B,IOCSURQE&10,^'02?1619QSW^^^00B,,^'02?1620^CW^^^00B,,^'02?1621^CW^^^00B,,^'02?1622^CW^^^00B,,^ 1 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 11 301: '02?1623^CW^^^00B,,^'02?1624^CW^^^00B,,^'02?1625^CW^^^00B,,^'03B1626^SBR^^00B,IOCSURPKUP&5,^'03A1627 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 1 11 1 401: ^SW^^^00B,IOCSURNR&13,^'04A1628RBOOL^00?Q,)054&)056&)064&)066,,^'04C1629^MLCWA00C,@N^^^^^^^^@,IOCSUR 1 1 1 11 1 1 1 11 11 1 1 1 1 501: BAN-3,^'04A1630QMLCWA00CIOCSURPKUP,0,IOCSURBAN,^'02?1631^MLCWA00B,,^'03A1632^BOOL^00?Q,#101*#102,,^' 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 11 1 601: 03I1633^B^^^^00BIOCSURANY,IOCSURCHOP,^'02G1634QBOOL^00?Q,-#102,,^'04A1635^BCB1^00BIOCSURANY,IOCSURBA 1 1 1 1 1 11 1 1 1 11 11 1 1 1 701: N-11,^'02F1636^BOOL^00?R,#102,,^'02G1637QBOOL^00?Q,-#101,,^'04A1638^BCB2^00BIOCSURANY,IOCSURBAN-11,^ 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 1 801: '02F1639^BOOL^00?R,#101,,^'03B1640QBCB2^00B,IOCSURBAN-11,^'03A1641RBOOL^00?Q,)054&)064,,^'03A1642^BO 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: OL^00?R,#101*#102,,^'03?1643^B^^^^00B,IOCSURCHOP,^'02G1644RBOOL^00?R,-#102,,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098F02F1645^BEX1^00C,*&13,+,^'02F1646^BOOL^00?S,#102,,^'02F1647RBEX2^00C,*&13,+,^'04E1648SBCE^^00D,I 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 101: OCSUREXIT,IOCSURBAN-10,L,^'03A1649QBOOL^00?Q,#102*#103,,^'03?1650^BXPA^00B,IOCSCS1SFS,^'04A1651QMLCW 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: A00C,IOCSGM&1,IOCSERFLD&20,^'03A1652^MLCWA00B,IOCSURBAN-1,^'02F1653^MLCWA00B,IOCS44,^'04A1654^BOOL^0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0?Q,)054&)056&)064&)066,,^'03G1655^BW^^^00C,*&15,IOCSURBAN-10,^'04E1656^MLCWA00C,IOCSERFLD&20,IOCSER 1 11 11 1 1 1 1 1 11 1 1 1 1 401: FLD&12,^'02?1657^MLCWA00B,,^'02?1658^MLCWA00B,,^'03A1659^BOOL^00?Q,#101*#102,,^'03?1660^B^^^^00B,IOC 1 11 1 1 11 11 1 1 11 11 1 1 1 11 11 1 1 1 501: SURCHOP,^'02G1661QBOOL^00?Q,-#102,,^'02H1662^BWL1^00B,IOCSURTY,^'02F1663^BOOL^00?R,#102,,^'02H1664QB 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 601: WL2^00B,IOCSURTY,^'04C1665RMLCA^00C,@20116^DCK@,IOCSERFLD&8,^'03A1666^BOOL^00?Q,#101*#102,,^'03?1667 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 701: ^B^^^^00B,IOCSURCHOP,^'04E1668QBOOL^00?Q,-)055*-)056*-)065*-)066,,^'02G1669^BOOL^00?R,-#102,,^'02H16 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 801: 70^BER1^00B,IOCSURTY,^'02F1671^BOOL^00?S,#102,,^'02H1672RBER2^00B,IOCSURTY,^'02G1673^BOOL^00?S,-#102 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: ,,^'02G1674QBOOL^00?Q,-#102,,^'02I1675^BER1^00B,IOCSURDCK,^'02F1676^BOOL^00?S,#102,,^' 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 099?02I1677QBER2^00B,IOCSURDCK,^'03A1678SBOOL^00?Q,)054&)064,,^'04C1679^MLCA^00C,@20143^STK@,IOCSERF 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: LD&8,^'03A1680^BOOL^00?R,#101*#102,,^'03?1681^B^^^^00B,IOCSURCHOP,^'02G1682RBOOL^00?R,-#102,,^'03B16 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: 83^BEX1^00C,IOCSURCDJM,S,^'02F1684RBOOL^00?Q,#102,,^'03B1685^BEX2^00C,IOCSURCDJM,S,^'03A1686QBOOL^00 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: ?Q,#101*#102,,^'03?1687^B^^^^00B,IOCSURCHOP,^'02G1688QBOOL^00?Q,-#102,,^'02H1689^BNR1^00B,IOCSURNR,^ 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: '02F1690^BOOL^00?R,#102,,^'02H1691QBNR2^00B,IOCSURNR,^'04A1692RBOOL^00?Q,)055&)056&)065&)066,,^'04C1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 501: 693^MLCA^00C,@20115^LLC@,IOCSERFLD&8,^'03A1694QBOOL^00?Q,#101*#102,,^'03I1695^C^^^^00CIOCSURQE,IOCSU 1 1 1 1 11 1 1 1 11 11 1 1 1 601: RBAN,0,^'03?1696^BE^^^00B,IOCSUREXIT,^'02G1697QBOOL^00?Q,-#102,,^'04B1698^BCE^^00DIOCSURQE,IOCSUREXI 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: T,0,R,^'02G1699QBOOL^00?R,-#101,,^'04B1700^BCE^^00DIOCSURQE,IOCSUREXIT,0,X,^'04A1701RBOOL^00?Q,)055& 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 801: )056&)065&)066,,^'04B1702^BBE^^00D,IOCSURTY,IOCSURBAN-8,6,^'05A1703QMLCA^00CIOCSURNR,@10100^NR^@,IOC 11 11 1 1 1 1 1 1 11 1 1 1 1 901: SERFLD&8,^'02?1704^NOP^^00B,,^'02H1705^B^^^^00B,IOCSNOTE,^'03A1706^CW^^^00B,IOCSURNR&13,^' 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 097G03?1707^BOOL^00?R,)054&)064,^'04E1708^BW^^^00C,IOCSURBAN-11,IOCSURBAN-10,^'02E1709^BOOL^00?S,)05 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 4,^'04D1710^BCE^^00D,IOCSURDMRD,IOCSURBAN-2,K,^'02E1711SBOOL^00?R,)064,^'04G1712^BCE^^00D,IOCSURDMRD 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 201: -12,IOCSURBAN-2,4,^'03B1713RB^^^^00B,IOCSURBAN-11,^'03?1714^BOOL^00?R,)054&)064,^'02E1715^BOOL^00?S, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: )064,^'02G1716^MLCS^00C,@)@,*&2,^'04A1717SR1^^^00CIOCSURDMRD,9,IOCSURDMA,^'03?1718^BOOL^00?S,)054*)0 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: 64,^'02H1719^MLCS^00C,@%@,*-20,^'03?1720^B^^^^00B,IOCSURCHOP,^'02F1721SBOOL^00?S,-)064,^'02H1722^BNR 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: 1^00B,IOCSURNR,^'02E1723SBOOL^00?S,)064,^'02H1724^BNR2^00B,IOCSURNR,^'03?1725SBOOL^00?S,)054*)064,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 601: 03?1726^B^^^^00B,IOCSURCHOP,^'02F1727SBOOL^00?S,-)064,^'02C1728^BA1^^00B,*&1,^'02E1729SBOOL^00?S,)06 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 701: 4,^'02C1730^BA2^^00B,*&1,^'03B1731SB^^^^00B,IOCSURBAN-11,^'03I1732^DCW^^00C^IOCSURDMA,@^^^^^@,G,^'03 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 801: I1733RSW^^^00BIOCSURTY,IOCSURNR&13,^'02H1734^B^^^^00B,IOCSHALT,^'02?1735^NOP^^00B,,^'02C1736^WCP^^00 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 901: B,*-9,^'03H1737^BA1^^00BIOCSURBAN,IOCSURANY,^'03A1738^B^^^^00BIOCSUREXIT,0,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098H03A1739^BOOL^00?Q,)054&)064,,^'03H1740^B^^^^00BIOCSURCDJM,IOCSHALT,^'03?1741^B^^^^00B,IOCSUREXIT 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 101: ,^'04A1742QBOOL^00?Q,)055&)056&)065&)066,,^'03A1743^BOOL^00?R,)054&)064,,^'05A1744^BCE^^00DIOCSURDCK 1 11 1 1 1 11 11 1 1 1 11 11 1 1 201: ,IOCSURTY,IOCSURBAN-8,1,^'02I1745^A^^^^00C,*-10,*&22,^'03C1746^BOOL^00?S,-)054*-)064,,^'03H1747RA^^^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 301: ^00CIOCSURDCK,*-10,*&22,^'03I1748SBBE^^00D,IOCSURBAN-11,*&10,1,^'02H1749^B^^^^00B,IOCSURTY,^'02C1750 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 401: ^DCW^^00B,000,^'03H1751QDCW^^00BIOCS44,@20144^WLR^@,^'03A1752PBOOL^00?P,)057&)067,,^'03H1753^BOOL^00 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 501: ?Q,#100*-)042*-)044,,^'03B1754^BOOL^00?R,)041&-)046,,^'02?1755^EJECT00B,,^'06A1756RG^SWI00B***^PENDI 1 11 11 1 1 1 11 11 1 1 11 11 1 1 601: N,TCH^SORT^FOR^TAPE^FILE^PRIORITY,^'03C1757^ORG^^00BIOCSPAORG,)04A,^'03?1758^EQU^^00BIOCSPAHSK,*,^'0 1 1 11 1 1 1 1 11 1 1 1 1 11 701: 2G1759^BOOL^00?R,-)046,,^'03F1760^BCE^^00D,*&8,IOCSDTFACT,2,^'03?1761^B^^^^00B,IOCSPAEXIT,^'04A1762R 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 11 1 801: MLCS^00C,IOCSPENSWE,IOCSOUT&10,^'02?1763^MLCS^00B,,^'02?1764^MLCS^00B,,^'02?1765^MLCS^00B,,^'02?1766 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 901: ^MLCS^00B,,^'03D1767^A^^^^00C,&44,IOCSOUT&10,^'04A1768^MLCS^00C,IOCSDTFACT-1,IOCSPARG,^' 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 097F03B1769^MLCS^00B,IOCSDTFACT&4,^'02F1770^BOOL^00?R,)046,,^'04?1771^SBR^^00B,X15,^REMOVE^FROM^LIST 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: ^'04D1772^BCE^^00DIOCSCOMP,IOCSEND,0-6&X15,,^'02C1773^SBR^^00B,X15,^'03F1774^C^^^^00C,IOCSOUT&10,7&X 11 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: 15,^'02H1775^BU^^^00B,IOCSCOMP,^'03G1776^MLCA^00C,0&X15,IOCSLINK&10,^'02E1777^MLCA^00B,7&X15,^'03A17 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: 78^MLC^^00CIOCSLINK,0,0,^'03I1779^MLCB^00CIOCSMOVE,0&X15,7&X15,^'02C1780^SAR^^00B,X15,^'03F1781^BBE^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 401: ^00D,IOCSMOVE,6&X15,8,^'04C1782RLLE^^00CIOCSEND,IOCSPARG,IOCSTBL,^'02C1783^SBR^^00B,X15,^'03E1784^ML 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 501: CA^00C,7&X15,IOCSOUT&5,^'03?1785^MLCA^00CIOCSOUT,0,0,^'03?1786^MLCS^00C,*&12,3&X15,^'04C1787^MRCWM00 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: C,IOCSHITBL&8,IOCSHITBL&1,^'03F1788^MLC^^00C,IOCSOUT&10,7&X15,^'02H1789^MLC^^00B,IOCSPARG,^'02I1790^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: MLC^^00B,IOCSOUT&5,^'03E1791^MLCA^00C,0&X15,IOCSIN&10,^'03C1792^S^^^^00C,&6,IOCSOUT&10,^'03H1793^MLC 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 801: S^00CIOCSIN,IOCSOUT&10,0,^'02?1794^MLCS^00B,,^'02?1795^MLCS^00B,,^'02?1796^MLCS^00B,,^'02?1797^MLCS^ 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 901: 00B,,^'02G1798^BOOL^00?R,-)046,,^'04B1799^A^^^^00CIOCSPAEXIT,&6,IOCSCOUNT,^' 1 11 11 1 1 1 11 11 1 1 1 1 1 1 1: 097E03G1800^BCE^^00D,*&8,IOCSDTFBX&1,J,^'02H1801^B^^^^00B,IOCSEXIT,^'04?1802^S^^^^00C,IOCSCOUNT,IOCS 1 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: EXIT&5,^'03B1803^MLCA^00C,*&20,IOCSPOX,^'02C1804^B^^^^00B,281,^'03?1805^DCW^^00B,IOCSTPCLOS,^'02D180 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 6^DC^^^00B,@^J@,^'02H1807^DC^^^00B,IOCSENTA,^'02A1808^DC^^^00B,2,^'02F1809^BOOL^00?S,)046,,^'03C1810 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: RMLCA^00C,IOCSDTFBX,X15,^'03H1811^B^^^^00BIOCSPAEXIT,IOCSENTA,^'06G1812SDCW^^00B^IOCSHITBL,@^^^^^^^^ 1 1 1 1 11 1 1 1 1 11 1 1 1 401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'05G1813^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'03A1814^BOOL 1 11 1 1 1 1 11 1 501: ^00?R,)057*)067,,^'05G1815^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'05I1816^DC^^^00B,@^^^^^^ 1 1 11 11 1 1 1 1 11 1 1 1 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'03A1817^DCW^^00B,IOCSCS2S3&5,^'03A1818^DC^^^00BIOCSTBL,@@^@,^'03A 1 11 1 1 1 1 11 1 1 1 1 11 701: 1819^DCW^^00B,IOCSCS1S3&5,^'03B1820RBOOL^00?R,)057*-)067,,^'03A1821^DC^^^00BIOCSTBL,@^^@,^'03A1822^D 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: CW^^00B,IOCSCS1S3&5,^'03B1823RBOOL^00?R,-)057*)067,,^'03A1824^DC^^^00BIOCSTBL,@^^@,^'03A1825^DCW^^00 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 901: B,IOCSCS2S3&5,^'03B1826RDCW^^00BIOCSPARG,@CP@,^'02G1827^BOOL^00?R,-)046,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 099G03D1828^DCW^^00BIOCSCOUNT,@^^^@,^'02F1829RBOOL^00?R,)041,,^'02I1830^ORG^^00B,IOCSPAORG,^'02?1831 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: ^EJECT00B,,^'02G1832RBOOL^00?Q,-)046,,^'02C1833^GENER00BOUT,,^'02?1834^EJECT00B,,^'02F1835^BOOL^00?R 1 11 11 1 1 1 11 11 1 1 11 11 1 1 11 11 1 1 201: ,)045,,^'04H1836^OBJEC00B***^PLACE,T^PROGRAM^DECK^HERE,^'07H1837^ERLAY00B***^ALL^OV,S^UP^TO^AND^INCL 1 11 11 1 1 1 1 11 1 1 1 301: UDING^FIRST^OPEN^MUST^BE^PRESENT,^'07B1838^UENT^00B***^SUBSEQ,OVERLAYS^MAY^FOLLOW^THE^REMAINDER^OF^Z 1 11 1 1 1 401: IOCS,^'02I1839RORG^^00B,IOCSPAHSK,^'04B1840QTAPE^00B***^BEGIN,ERROR^ROUTINE,^'02F1841^BOOL^00?Q,)045 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: ,,^'04A1842^MLCA^00CIOCSERENT,0,IOCSERBA&6,^'02G1843^BOOL^00?R,-)045,,^'03I1844QSBR^^00BIOCSERROR,IO 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 601: CSEREX&5,^'02?1845^SW^^^00B,,^'02C1846^SBR^^00B,*&6,^'03B1847^MLCA^00C,0,IOCSERBA&6,^'02D1848RSAR^^0 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: 0B,*&12,^'02G1849^CW^^^00B,IOCSJUG,^'03I1850^MLCWA00CIOCSERPU,0,IOCSJUG&9,^'02D1851^SAR^^00B,*-13,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: 03F1852^BW^^^00C,IOCSER10,IOCSJUG,^'03E1853^BBE^^00D,*&8,IOCSJUG&5,&,^'02H1854^B^^^^00B,IOCSERPU,^'0 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 901: 3G1855^MRCW^00C,IOCSJUG&5,IOCSJUG,^'02?1856^MRCW^00B,,^'04A1857^MLCWA00C,IOCSGM&1,IOCSERFLD&15,^' 1 1 1 1 1 11 1 1 11 11 1 1 1 1 1 1 1: 099?02I1858^MLCWA00B,IOCSJUG&4,^'02D1859^B^^^^00B,*&20,^'04I1860^MLCWA00CIOCSER10,IOCSGM&1,IOCSERFLD 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: &21,^'02?1861^MLCWA00B,,^'02I1862^MLCWA00B,IOCSJUG&9,^'03B1863^BOOL^00?Q,-)198*#100,,^'02G1864^B^^^^ 1 11 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: 00B,IOCSPSV,^'02G1865QBOOL^00?Q,-)044,,^'03G1866^MLCS^00C,IOCSJUG&1,IOCSARG,^'02I1867^MLCS^00B,IOCSJ 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 301: UG&3,^'03D1868^LLE^^00C,IOCSARG,IOCSCU,^'03?1869^SBR^^00B,IOCSERFH&5,^'02H1870QS^^^^00B,IOCSERCT,^'0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: 2?1871^S^^^^00B,,^'04C1872^MLCS^00C,IOCSEREX&5,IOCSERQLB&10,^'02?1873^MLCS^00B,,^'02?1874^MLCS^00B,, 1 1 11 11 1 1 1 1 1 11 1 1 11 11 1 1 11 501: ^'02?1875^MLCS^00B,,^'02?1876^MLCS^00B,,^'03A1877^SW^^^00B,IOCSERNR&13,^'02G1878^BOOL^00?Q,-)044,,^' 11 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 11 1 601: 03A1879^SW^^^00B,IOCSERDLY&1,^'03B1880QCW^^^00C,*&9,IOCSERSK,^'03?1881^SAR^^00B,IOCSERBA&5,^'02G1882 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 701: ^BOOL^00?Q,-)044,,^'04?1883^MLNA^00CIOCSERFH,0,IOCSERFA&5,^'03A1884QBOOL^00?Q,)057*)067,,^'03?1885^B 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 801: ^^^^00B,IOCSERCHOP,^'02G1886QBOOL^00?Q,-)067,,^'02G1887^BCB1^00B,IOCSJUG,^'02F1888^BOOL^00?R,)067,,^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 901: '02G1889QBCB2^00B,IOCSJUG,^'03F1890RBOOL^00?Q,#103*#104*)067,,^'02F1891^BOOL^00?R,)057,,^' 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 1 1: 098H03E1892^BBE^^00D,*&21,IOCSERBA,8,^'04A1893RMLC^^00C,IOCSEREX&5,IOCSWTGX&5,^'03?1894^BOL1^00B,IOC 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: SLMWTGR,^'02?1895^BOPR100B,,^'03A1896QBOOL^00?Q,)057*)067,,^'03?1897^B^^^^00B,IOCSERCHOP,^'02G1898QB 1 11 1 1 11 11 1 1 1 11 11 1 1 1 1 11 1 201: OOL^00?Q,-)067,,^'02H1899^BNR1^00B,IOCSERNR,^'02F1900^BOOL^00?R,)067,,^'02H1901QBNR2^00B,IOCSERNR,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 301: 03F1902RBOOL^00?Q,#100*)057*)067,,^'03E1903^BBE^^00D,*&15,IOCSERBA,8,^'03A1904QBOOL^00?Q,#100*)067,, 1 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 11 401: ^'03?1905^SFR^^00B,IOCSERNOIS,^'02F1906^BOOL^00?R,)057,,^'02C1907^B^^^^00B,*&8,^'03A1908QBOOL^00?R,# 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 501: 100*)057,,^'03?1909^SER^^00B,IOCSERNOIS,^'03A1910RBOOL^00?Q,)057*)067,,^'03?1911^B^^^^00B,IOCSERCHOP 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: ,^'02G1912QBOOL^00?Q,-)067,,^'02H1913^BEF1^00B,IOCSEREF,^'02F1914^BOOL^00?R,)067,,^'02H1915QBEF2^00B 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 701: ,IOCSEREF,^'03A1916RBOOL^00?Q,)057*)067,,^'03?1917^B^^^^00B,IOCSERCHOP,^'02G1918QBOOL^00?Q,-)067,,^' 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 801: 02H1919^BER1^00B,IOCSERDC,^'02F1920^BOOL^00?R,)067,,^'02H1921QBER2^00B,IOCSERDC,^'02G1922RBOOL^00?Q, 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 901: -)044,,^'03F1923^BBE^^00D,*&20,IOCSJUG&9,8,^'04C1924^MLCA^00C,@20117^ZLR@,IOCSERFLD&8,^' 11 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1: 097A02I1925^B^^^^00B,IOCSERHLT,^'04A1926^BBE^^00D,IOCSERDC,IOCSERCT-1,8,^'03I1927^MLCB^00C,IOCSERFA& 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 101: 5,IOCSERAD,^'02F1928^BOOL^00?R,#100,,^'03B1929^S^^^^00C,&33,IOCSERAD,^'02I1930RNOP^^00BIOCSERDLY,,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 11 1 201: 04B1931^MLCA^00C,IOCSEREX&5,IOCSEREX&12,^'02D1932^CW^^^00B,*-17,^'02F1933^BOOL^00?R,#100,,^'02G1934^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: A^^^^00C,&18,*&6,^'04B1935^MLCA^00CIOCSERFA,0,IOCSERTRIG&5,^'03B1936^SAR^^00B,IOCSERTRIG-2,^'03G1937 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 401: ^MLCS^00C,IOCSERTRIG&5,*&10,^'02?1938^MLCS^00B,,^'02?1939^MLCS^00B,,^'02?1940^MLCS^00B,,^'02?1941^ML 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 501: CS^00B,,^'03B1942^C^^^^00C,0,&IOCSCLSAB,^'03B1943^BE^^^00B,IOCSERTRIG&7,^'04A1944^BW^^^00C,IOCSERTRI 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: G&7,IOCSCU&1,^'02H1945^S^^^^00C,&15,*&11,^'03?1946^MLCA^00C,IOCSERAD,0,^'03A1947^SBR^^00BIOCSERTRIG, 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: 0,^'02G1948^BOOL^00?S,-#100,,^'03I1949REQU^^00BIOCSERFA,IOCSDTFBX-5,^'03I1950^MLCA^00C,IOCSERAD,IOCS 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 801: EREX&5,^'04B1951SMLCS^00C,IOCSERPU&5,IOCSEREX&19,^'02?1952^MLCS^00B,,^'02?1953^MLCS^00B,,^'02?1954^M 1 11 1 1 1 1 1 11 1 1 11 11 1 1 11 11 1 901: LCS^00B,,^'02?1955^MLCS^00B,,^'04?1956^BBE^^00D,IOCSERLV,IOCSJUG&9,8,^' 1 11 11 1 1 11 11 1 1 1 1 1 1 1 1: 098B03A1957^EQU^^00BIOCSTESTDC,*,^'03A1958^BOOL^00?R,)057*)067,,^'03?1959^B^^^^00B,IOCSERCHOP,^'02G1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: 960RBOOL^00?R,-)067,,^'02H1961^BER1^00B,IOCSERDC,^'02F1962^BOOL^00?S,)067,,^'02H1963RBER2^00B,IOCSER 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: DC,^'02H1964SB^^^^00B,IOCSERLV,^'03H1965^CW^^^00BIOCSEREF,IOCSEORU&1,^'02H1966^SAR^^00B,IOCSERAD,^'0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 301: 4B1967^BBE^^00D,IOCSERDLY,IOCSERBA&6,8,^'03?1968^B^^^^00B,IOCSTESTDC,^'03A1969^BOOL^00?R,)057*)067,, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 401: ^'02I1970^DCW^^00B,@000000)@,^'02I1971^DCW^^00B,@000000%@,^'02I1972^DCW^^00B,@000001)@,^'02I1973^DCW 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^^00B,@000001%@,^'02I1974^DCW^^00B,@000002)@,^'02I1975^DCW^^00B,@000002%@,^'02I1976^DCW^^00B,@000003 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 601: )@,^'02I1977^DCW^^00B,@000003%@,^'02I1978^DCW^^00B,@000004)@,^'02I1979^DCW^^00B,@000004%@,^'02I1980^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: DCW^^00B,@000005)@,^'02I1981^DCW^^00B,@000005%@,^'02I1982^DCW^^00B,@000006)@,^'02I1983^DCW^^00B,@000 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 006%@,^'02I1984^DCW^^00B,@000007)@,^'02I1985^DCW^^00B,@000007%@,^'02I1986^DCW^^00B,@000008)@,^'02I19 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: 87^DCW^^00B,@000008%@,^'02I1988^DCW^^00B,@000009)@,^'02I1989^DCW^^00B,@000009%@,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099C02G1990^BOOL^00?S,-)057,,^'02I1991RDCW^^00B,@000000)@,^'02I1992^DCW^^00B,@000001)@,^'02I1993^DCW 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: ^^00B,@000002)@,^'02I1994^DCW^^00B,@000003)@,^'02I1995^DCW^^00B,@000004)@,^'02I1996^DCW^^00B,@000005 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: )@,^'02I1997^DCW^^00B,@000006)@,^'02I1998^DCW^^00B,@000007)@,^'02I1999^DCW^^00B,@000008)@,^'02I2000^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: DCW^^00B,@000009)@,^'02I2001SEQU^^00BIOCSCU,*-1,^'02A2002^DC^^^00B,1,^'03H2003^BOOL^00?Q,#100*-)042* 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: -)046,,^'02A2004^LTORG00B,*,^'02H2005^EX^^^00B,IOCSEXIT,^'02B2006^GENER00BIN,,^'02?2007^EJECT00B,,^' 11 11 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 11 1 501: 05D2008^NT^PA00B***^RESIDE,RT^OF^TAPE^ERROR^ROUTINE,^'03C2009^BOOL^00?R,-)067&-#103,,^'03C2010^ORG^^ 1 1 1 1 1 11 1 1 1 11 11 1 601: 00B,IOCSPAHSK&634,^'03G2011RBOOL^00?R,#103*)067*-)057,,^'03C2012^ORG^^00B,IOCSPAHSK&654,^'03A2013RBO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 701: OL^00?Q,)057*)067,,^'03C2014^ORG^^00B,IOCSPAHSK&797,^'05A2015QMLCA^00CIOCSERNR,@10100^NR^@,IOCSERFLD 1 1 11 11 1 1 1 1 11 1 1 1 1 801: &8,^'02?2016^NOP^^00B,,^'02H2017^B^^^^00B,IOCSNOTE,^'02D2018^CW^^^00B,*-12,^'02G2019^B^^^^00B,IOCSJU 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: G,^'03A2020^BOOL^00?Q,)057*)067,,^'03D2021^SBR^^00BIOCSERCHOP,*&18,^'02D2022^SBR^^00B,*&18,^' 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1: 098H03?2023^MRC^^00C,IOCSERBA,0,^'02A2024^B^^^^00B,0,^'04G2025QBCE^^00DIOCSERDC,IOCSERH&7,IOCSJUG,U, 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 101: ^'03D2026^MLCS^00C,IOCSJUG&8,*&10,^'02?2027^MLCS^00B,,^'02?2028^MLCS^00B,,^'02?2029^MLCS^00B,,^'02?2 11 1 1 1 1 1 11 1 1 11 11 1 1 11 11 1 1 11 11 1 201: 030^MLCS^00B,,^'02A2031^BCE^^00B,0,^'03B2032^SAR^^00B,IOCSERFLD&18,^'02F2033^BOOL^00?Q,)051,,^'03?20 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: 34^SAR^^00B,IOCSERDA&8,^'04A2035QZA^^^00C,IOCSERFLD&18,IOCSERBL,^'03I2036^S^^^^00C,IOCSERNOIS,IOCSER 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: BL,^'02G2037^BOOL^00?Q,-#100,,^'04A2038^BBE^^00D,IOCSERH&7,IOCSJUG&9,4,^'03E2039QC^^^^00C,-00012,IOC 1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 501: SERBL,^'02I2040^BH^^^00B,IOCSERH&7,^'03E2041^A^^^^00C,*-10,IOCSERCT-2,^'04?2042^BCE^^00D,IOCSJUG,IOC 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: SERCT-3,0,^'03?2043^S^^^^00B,IOCSERCT-2,^'04C2044^MLCA^00C,@20118^NLR@,IOCSERFLD&8,^'03E2045^B^^^^00 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: BIOCSERH,IOCSHALT,^'03I2046^A^^^^00C,IOCSERBL&3,IOCSERBL,^'02?2047^A^^^^00B,,^'04B2048^BCE^^00D,IOCS 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 1 801: ERCTL,IOCSERCT-1,2,^'04?2049^MLCS^00C,IOCSJUG&3,IOCSERSK&3,^'02?2050^MLCS^00B,,^'02?2051^MLCS^00B,,^ 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 11 901: '03D2052^MLCB^00C,IOCSERSK&3,*&4,^'02B2053^BSP^^00B,10,^'03A2054^BOOL^00?Q,)057*)067,,^' 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098G03?2055^B^^^^00B,IOCSERCHOP,^'02D2056^BA2^^00B,*-18,^'03B2057QBOOL^00?Q,)057*-)067,,^'02D2058^BA 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 101: 1^^00B,*-11,^'03B2059QBOOL^00?Q,-)057*)067,,^'02D2060^BA2^^00B,*-11,^'02?2061QNOP^^00B,,^'03?2062^SK 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 11 11 1 201: P^^00BIOCSERSK,10,^'03A2063^BOOL^00?Q,)057*)067,,^'03?2064^B^^^^00B,IOCSERCHOP,^'02D2065^BA2^^00B,*- 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: 18,^'03B2066QBOOL^00?Q,)057*-)067,,^'02D2067^BA1^^00B,*-11,^'03B2068QBOOL^00?Q,-)057*)067,,^'02D2069 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: ^BA2^^00B,*-11,^'02H2070QSW^^^00B,IOCSERSK,^'02?2071^NOP^^00B,,^'03?2072^WCP^^00BIOCSJUG,*-9,^'02?20 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 501: 73^NOP^^00B,,^'02G2074^BOOL^00?Q,-#100,,^'03?2075^SBR^^00B,IOCSERNOIS,^'02I2076QBA1^^00BIOCSERBA,0,^ 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 601: '03A2077^BOOL^00?Q,)057*)067,,^'03?2078^B^^^^00B,IOCSERCHOP,^'02G2079QBOOL^00?Q,-)067,,^'02C2080^BA1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 701: ^^00B,*&1,^'02F2081^BOOL^00?R,)067,,^'02C2082QBA2^^00B,*&1,^'02I2083REQU^^00BIOCSERLV,*,^'02F2084^BO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 801: OL^00?Q,)044,,^'02I2085^EQU^^00BIOCSEREF,*,^'03B2086QBOOL^00?Q,-)198*#100,,^'03D2087^C^^^^00C,IOCSPS 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: ,IOCS101,^'02?2088^ZA^^^00B,,^'02G2089QBOOL^00?Q,-)045,,^'02I2090^B^^^^00BIOCSEREX,0,^' 1 1 11 1 1 11 11 1 1 1 11 11 1 1 1 1 1 1: 096?02A2091^B^^^^00B,0,^'02A2092^B^^^^00B,0,^'03C2093^BOOL^00?R,-)050*-)051,,^'03H2094^DCW^^00BIOCSE 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 101: ROPTN,@^^SRP^@,^'03B2095RBOOL^00?R,)050*-)051,,^'03H2096^DCW^^00BIOCSEROPTN,@^*SRP^@,^'03B2097RBOOL^ 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: 00?R,-)050*)051,,^'03H2098^DCW^^00BIOCSEROPTN,@D^SRPD@,^'03A2099RBOOL^00?R,)050*)051,,^'03H2100^DCW^ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 301: ^00BIOCSEROPTN,@D*SRP^@,^'03E2101RDCW^^00BIOCSERNOIS,00000,^'02F2102^BOOL^00?R,)045,,^'02H2103QB^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: 00B,IOCSEREX,^'02B2104RDCW^^00B,00,^'03?2105^DCW^^00BIOCSERCT,00,^'03G2106^DCW^^00CIOCSERBL,@00000@, 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: G,^'02A2107^DCW^^00B,1,^'02A2108^DCW^^00B,1,^'02G2109^BOOL^00?Q,-)044,,^'03C2110^DCW^^00BIOCSERAD,00 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: 000,^'02I2111^DCW^^00BIOCSARG,00,^'03A2112QBOOL^00?Q,)050*)051,,^'03A2113^DCW^^00B,@60113^DCK@,^'03B 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 701: 2114QBOOL^00?Q,-)050*)051,,^'03A2115^DCW^^00B,@50111^DCK@,^'03B2116QBOOL^00?Q,)050*-)051,,^'03A2117^ 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: DCW^^00B,@50112^DCK@,^'03C2118QBOOL^00?Q,-)050*-)051,,^'03A2119^DCW^^00B,@40110^DCK@,^'03G2120QS^^^^ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 901: 00BIOCSERCTL,IOCSERCT,^'03F2121^BBE^^00D,*&20,IOCSJUG&9,8,^' 1 1 1 11 1 1 1 1 1 1 1 1: 097A04C2122^MLCA^00C,@20114^DCK@,IOCSERFLD&8,^'02G2123^B^^^^00B,IOCSERH,^'04C2124^MLCWA00C,IOCSERBL& 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 1,IOCSERFLD&26,^'02?2125^MCS^^00B,,^'04C2126^MLCA^00C,@40119^LRE@,IOCSERFLD&8,^'04B2127^BCE^^00DIOCS 1 1 11 1 1 11 11 1 1 1 1 1 11 1 1 201: ERQLB,IOCSERHLT,0,N,^'04C2128^MLCA^00C,IOCSERCTL-1,IOCSERFLD&8,^'02F2129^BOOL^00?Q,)051,,^'04B2130^B 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 301: CE^^00D,IOCSERDMP,IOCSEROPTN,D,^'03G2131QB^^^^00BIOCSERHLT,IOCSHALT,^'03D2132^MLCS^00C,IOCSREPLY,*&1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: 2,^'04B2133^BCE^^00D,IOCSERLV,IOCSEROPTN-1,,^'02H2134^BCE^^00B,IOCSERDC,^'02G2135^BCE^^00B,IOCSJUG,^ 1 11 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 501: '02F2136^BOOL^00?Q,)050,,^'02I2137^BCE^^00B,IOCSERSCN,^'03B2138^BOOL^00?R,-)050*)051,,^'02?2139QBW^^ 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 601: ^00B,,^'02F2140RBOOL^00?Q,)051,,^'03B2141^BCE^^00B,IOCSERDMP-19,^'02I2142QB^^^^00B,IOCSERHLT,^'02F21 1 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 701: 43^BOOL^00?Q,)050,,^'05D2144^SW^^^00CIOCSERSCN,IOCSERFLD&14,IOCSERFLD&21,^'03G2145^MLNA^00C,IOCSERFL 1 1 11 11 1 1 1 1 1 11 1 1 1 801: D&18,*&11,^'03B2146^BCE^^00D,IOCSERPA,0,*,^'02I2147^A^^^^00C,*-10,*-12,^'03G2148^S^^^^00C,*-21,IOCSE 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 901: RFLD&25,^'02I2149^BZ^^^00B,IOCSERCTL,^'03B2150^B^^^^00B,IOCSERSCN&23,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 098G04H2151^MLCWS00CIOCSERPA,IOCSGM&1,IOCSERFLD&5,^'03B2152^MLCWS00B,IOCSERSCN&33,^'02?2153^MLCWS00B 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: ,,^'02?2154^MLCWS00B,,^'02?2155^MLCWS00B,,^'02?2156^MLCWS00B,,^'02H2157^B^^^^00B,IOCSNOTE,^'03B2158^ 11 11 1 1 11 11 1 1 11 11 1 1 11 11 1 1 1 1 11 1 201: B^^^^00B,IOCSERSCN&35,^'02F2159QBOOL^00?Q,)051,,^'04C2160^MLCA^00C,IOCSERCTL-1,IOCSERFLD&8,^'02D2161 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 301: ^B^^^^00B,*&13,^'05?2162^MLNS^00CIOCSERDMP,IOCSERFLD&2,IOCSERFLD,^'03D2163^WT^^^00C,)051,IOCSERFLD,^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 401: '02F2164^BOOL^00?R,)197,,^'02F2165^BEX1^00C,*-16,3,^'02C2166^BA1^^00B,*&1,^'02F2167^BOOL^00?S,-)197, 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: ^'02F2168RBEX2^00C,*-16,3,^'02C2169^BA2^^00B,*&1,^'03D2170SWTW^^00CIOCSERDA,)051,0,^'02F2171^BOOL^00 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 601: ?R,)197,,^'03?2172^BEX1^00C,IOCSERDA,3,^'02C2173^BA1^^00B,*&1,^'02G2174^BOOL^00?S,-)197,,^'03?2175^B 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: EX2^00C,IOCSERDA,3,^'02C2176RBA2^^00B,*&1,^'04A2177SBCE^^00D,IOCSERCTL,IOCSEROPTN,,^'02H2178^B^^^^00 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 11 1 1 801: B,IOCSNOTE,^'02I2179^B^^^^00B,IOCSJUG-1,^'02G2180QBOOL^00?P,-)044,,^'04C2181^ILE^C00B***^TAPE-F,LOSE 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: ^SEQUENCE,^'04B2182^MLNA^00CIOCSTPCLOS,IOCSDTFA,*&6,^'03C2183^BCE^^00D,0,IOCSDTFL1,0,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1: 097E02F2184^BOOL^00?Q,#105,,^'03C2185^MLCA^00C,IOCSDTFBX,X15,^'02F2186QBOOL^00?Q,)007,,^'02F2187^BOO 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 101: L^00?R,)045,,^'05D2188^BCE^^00DIOCSCLSABA,IOCSOPEORA,IOCSDTFBX-5,*,^'02G2189^BOOL^00?S,-)045,,^'05C2 1 1 11 11 1 1 1 1 1 1 11 1 1 1 11 11 1 201: 190RBCE^^00DIOCSCLSAB,IOCSOPEORA,IOCSDTFBX-5,*,^'03G2191SMLCA^00C,@1EOF^@,IOCSLBA&4,^'02I2192^S^^^^0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: 0B,IOCSHRS-1,^'02F2193QBOOL^00?Q,)032,,^'03F2194^MLCS^00C,@^@,IOCSDTFACT&1,^'02H2195QB^^^^00B,IOCSCL 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 401: SA,^'03A2196^OR^EO00B***^INIT^F,R,^'03H2197^SBR^^00BIOCSEORU,IOCSEXIT&5,^'02F2198^BOOL^00?Q,#100,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 501: 02I2199^SBR^^00B,IOCSDTFBX,^'03E2200QMLCS^00C,@*@,IOCSDTFBX-5,^'02H2201^B^^^^00B,IOCSSTLE,^'04A2202^ 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: BCE^^00D,IOCSOPEOR,IOCSDTFL1,0,^'03C2203^A^^^^00C,&7,IOCSEXIT&5,^'02F2204^BOOL^00?Q,)007,,^'03F2205^ 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 701: EOR^S00B***^INPUT,EQUENCE,^'04A2206^BCE^^00D,IOCSIPEOR,IOCSDTFLB,0,^'02F2207QBOOL^00?Q,)018,,^'03D22 1 1 1 11 1 1 1 1 1 1 11 1 1 1 11 11 1 801: 08^^SEQU00B***^EXIT^6,ENCE,^'03G2209^BCE^^00D,IOCSENTG,IOCSD6,0,^'02F2210^BOOL^00?R,)007,,^'03G2211^ 1 1 1 11 1 1 1 1 1 1 11 1 1 1 11 11 1 901: MLCA^00C,@1EOR^@,IOCSLBA&4,^'04F2212^MLCA^00CIOCSBCRT,IOCSE6,IOCSSWBXA&5,^' 1 1 1 1 11 1 1 1 1 1 1 1: 098D03G2213^BCE^^00D,IOCSSWBX,IOCSD6,1,^'02G2214RBOOL^00?Q,-)007,,^'03H2215^MLCA^00C,IOCSE6,IOCSSWBX 1 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: A&5,^'02H2216^B^^^^00B,IOCSSWBX,^'02H2217^B^^^^00B,IOCSENTH,^'02F2218QBOOL^00?Q,)007,,^'02G2219^BOOL 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: ^00?R,-)018,,^'02H2220^B^^^^00B,IOCSENTG,^'02I2221^EQU^^00BIOCSBCRT,*,^'04?2222RBCE^^00D,IOCSENTH,IO 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: CSLBA&3,R,^'03F2223QIT^SE00B***^EOF^EX,QUENCE,^'04G2224^MLCA^00CIOCSENTG,IOCSDTFA,IOCSEXIT&5,^'02H22 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: 25^B^^^^00B,IOCSENTJ,^'03?2226^EQU^^00BIOCSOPEOR,*,^'02F2227^BOOL^00?Q,)020,,^'03D2228^^SEQU00B***^E 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 501: XIT^8,ENCE,^'03I2229^BCE^^00D,IOCSOPEORA,IOCSD8,0,^'03H2230^MLNA^00C,IOCSE8,IOCSSWBXA&5,^'02F2231^BO 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 601: OL^00?R,#100,,^'03E2232^MLCA^00C,IOCSTRIGEN,*&11,^'03B2233^MLCA^00C,&IOCSENTRY,0,^'02H2234RB^^^^00B, 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: IOCSSWBX,^'03?2235^B^^^^00B,IOCSEXITRU,^'03H2236Q^EOR^00B***^OUTPUT,SEQUENCE,^'03A2237^EQU^^00BIOCSO 1 11 1 1 1 1 11 1 1 1 1 11 1 1 801: PEORA,*,^'02F2238^BOOL^00?Q,)007,,^'03G2239^MLCA^00C,@1EOR^@,IOCSLBA&4,^'02G2240QBOOL^00?Q,-)007,,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 1 901: 02F2241^BOOL^00?R,)045,,^'03A2242^EQU^^00BIOCSCLSABA,*,^'02G2243^BOOL^00?Q,-)045,,^' 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098H03?2244REQU^^00BIOCSCLSAB,*,^'04H2245QBCE^^00DIOCSCLSA,IOCSENTH,IOCSDTFL1,1,^'02F2246^BOOL^00?Q, 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 101: #100,,^'04C2247^MLCA^00C,IOCSTRIGEN,IOCSPRIME3&5,^'04C2248^BCE^^00D,IOCSPRIMER,IOCSDTFACT,1,^'03A224 11 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 201: 9^SAR^^00BIOCSPRIME3,0,^'02E2250^B^^^^00B,7&X15,^'03A2251^EQU^^00BIOCSPRIMER,*,^'02F2252^BOOL^00?Q,# 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: 105,,^'03C2253^MLCA^00C,IOCSDTFBX,X15,^'02I2254QB^^^^00B,IOCSWTMRU,^'02F2255^BOOL^00?Q,)007,,^'04?22 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: 56^BCE^^00D,IOCSCLSB,IOCSDTFLB,0,^'02F2257QBOOL^00?Q,)014,,^'03D2258^^SEQU00B***^EXIT^2,ENCE,^'04F22 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 59^MLCA^00CIOCSUSXA,IOCSE2,IOCSSWBXA&5,^'03G2260^BCE^^00D,IOCSSWBX,IOCSD2,1,^'02I2261^B^^^^00B,IOCSW 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 601: TMRU,^'04A2262Q/UNLO00B***^REWIND,AD^SEQUENCE,^'03A2263^BOOL^00?Q,)025&)027,,^'04I2264^BCE^^00DIOCSE 1 11 1 1 1 1 11 1 1 1 11 11 1 1 701: NTH,IOCSRWDRU,IOCSDTFL5,1,^'02F2265^BOOL^00?Q,)027,,^'04A2266^BCE^^00D,IOCSRWURU,IOCSDTFL5,2,^'03C22 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 801: 67QBOOL^00?Q,-)025*-)027,,^'03G2268^B^^^^00BIOCSENTH,IOCSRWDRU,^'02F2269QBOOL^00?Q,)007,,^'03B2270^A 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: ^^^^00C,&1,IOCSHRS-1,^'03G2271QBCE^^00D,*&8,IOCSDTFBX-5,*,^'02H2272^B^^^^00B,IOCSENTJ,^' 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 1: 098B03I2273^HANGE00B***^REEL^C,^SEQUENCE,^'04A2274^MLCWA00C,IOCSGM&1,IOCSERFLD&14,^'02H2275^MLCWA00B 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,IOCSAD-6,^'02F2276^MLCWA00B,IOCS20,^'02F2277^BOOL^00?Q,)012,,^'03I2278^BCE^^00D,IOCSMDC,IOCSDTFL2,1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 201: ,^'02H2279QB^^^^00B,IOCSHALT,^'02F2280^BOOL^00?Q,)012,,^'02H2281^B^^^^00B,IOCSENTA,^'04B2282^OR^AL00 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 301: B***^INIT^F,TERNATE^UNIT,^'04F2283^MLCWA00CIOCSMDC,IOCSAD,IOCSERFLD&27,^'03E2284^MLCWA00C,IOCSAD-5,I 1 1 11 1 1 1 1 1 11 1 1 1 1 401: OCSAD,^'03B2285^MLCWA00B,IOCSERFLD&27,^'03B2286^S^^^^00C,&1,IOCSERFLD,^'02H2287^B^^^^00B,IOCSNOTE,^' 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 501: 05D2288Q^FILE00B***^COMMON,^SCHEDULER^INIT^SEQUENCE,^'04D2289^MLCS^00CIOCSENTA,IOCSAD-8,IOCSARG,^'02 1 1 1 1 1 11 1 1 1 1 1 11 601: H2290^MLCS^00B,IOCSAD-6,^'03D2291^LLE^^00C,IOCSARG,IOCSCU,^'02D2292^SBR^^00B,*&11,^'02E2293^MLNB^00C 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 701: ,X15,0,^'02F2294^BOOL^00?Q,)032,,^'03B2295^S^^^^00B,IOCSDTFACT&1,^'03A2296QBOOL^00?Q,)023*)024,,^'04 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 801: ?2297^MLCA^00C,IOCSBLANK&30,IOCSTHT,^'03B2298QBOOL^00?Q,)023*-)024,,^'04?2299^MLCA^00C,IOCSBLANK&14, 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: IOCSTRC,^'03B2300QBOOL^00?Q,-)023*)024,,^'04?2301^MLCA^00C,IOCSBLANK&20,IOCSTHT,^' 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 097G03C2302QBOOL^00?Q,-)023*-)024,,^'03I2303^MLCA^00C,IOCSBLANK&4,IOCSTBC,^'04F2304QO^FIL00B***^EXIT 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 101: ^T,E^SCHEDULER^INIT,^'03A2305^BOOL^00?Q,)034*#100,,^'04A2306^MLCA^00C,IOCSDTFI,IOCSTFINIT&5,^'04A230 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 201: 7^CW^^^00C,IOCSCCTAB&27,IOCSAD-7,^'02C2308^SAR^^00B,X15,^'02D2309^BBE^^00B,*&14,^'03A2310^CW^^^00B,I 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: OCSCCTAB&1,^'02C2311^SAR^^00B,X15,^'03A2312^B^^^^00BIOCSTFINIT,0,^'02F2313^BOOL^00?R,)045,,^'04C2314 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: ^MLCA^00CIOCSENTABA,IOCSDTFBX,X15,^'02G2315^BOOL^00?S,-)045,,^'04B2316RMLCA^00CIOCSENTAB,IOCSDTFBX,X 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: 15,^'02G2317SBOOL^00?R,-)034,,^'03B2318QMLCA^00C,IOCSDTFI,*&6,^'02A2319^B^^^^00B,0,^'02F2320^BOOL^00 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: ?Q,)045,,^'03A2321^EQU^^00BIOCSENTABA,*,^'02G2322^BOOL^00?R,-)045,,^'03?2323QEQU^^00BIOCSENTAB,*,^'0 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 701: 4A2324RNIT^B00B***^POST-I,OR^SEQUENCE,^'03A2325^BOOL^00?Q,)025&)027,,^'03E2326^BCE^^00D,*&8,IOCSDTFL 1 1 1 1 11 1 1 1 11 11 1 1 1 1 801: 5,0,^'02I2327QB^^^^00B,IOCSRWDRU,^'02F2328^BOOL^00?Q,)007,,^'04?2329^BCE^^00D,IOCSENTC,IOCSDTFLB,0,^ 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 901: '03F2330QBOOL^00?Q,)011&)017&)019,,^'04?2331^BCE^^00D,IOCSENTF,IOCSDTFL1,0,^' 11 1 1 1 11 11 1 1 1 1 1 1 1 1: 098H02I2332QEQU^^00BIOCSENTD,*,^'02F2333^BOOL^00?Q,)019,,^'03D2334^^SEQU00B***^EXIT^7,ENCE,^'03H2335 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 101: ^MLNA^00C,IOCSE7,IOCSSWBXA&5,^'03G2336^BCE^^00D,IOCSSWBX,IOCSD7,1,^'02F2337QBOOL^00?Q,)011,,^'04B233 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 11 11 1 201: 8^BCE^^00D,IOCSREADRU,IOCSDTFL4,1,^'03A2339QBOOL^00?Q,)011&)017,,^'02H2340^B^^^^00B,IOCSENTI,^'02I23 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 301: 41QEQU^^00BIOCSENTF,*,^'02F2342^BOOL^00?Q,)017,,^'03D2343^^SEQU00B***^EXIT^5,ENCE,^'03H2344^MLNA^00C 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 401: ,IOCSE5,IOCSSWBXA&5,^'03G2345^BCE^^00D,IOCSSWBX,IOCSD5,1,^'02F2346QBOOL^00?Q,)011,,^'04A2347^BCE^^00 1 1 1 11 1 1 1 1 1 1 11 1 1 1 11 11 1 1 501: D,IOCSWTMRU,IOCSDTFL4,1,^'02I2348QEQU^^00BIOCSENTI,*,^'02F2349^BOOL^00?Q,)032,,^'04C2350^BCE^^00D,IO 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: CSCHKPT,IOCSDTFBX-5,*,^'02I2351QEQU^^00BIOCSENTJ,*,^'02F2352^BOOL^00?Q,#100,,^'04C2353^BCE^^00D,IOCS 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 701: EXITRU,IOCSDTFACT,1,^'03D2354^MLCS^00C,IOCSPENSWE,X15,^'02?2355^MLCS^00B,,^'02?2356^MLCS^00B,,^'02?2 1 1 1 11 1 1 1 1 1 11 1 1 11 11 1 1 11 11 1 801: 357^MLCS^00B,,^'02?2358^MLCS^00B,,^'02F2359^SW^^^00B,39&X15,^'03?2360QB^^^^00B,IOCSEXITRU,^'02F2361^ 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 901: BOOL^00?Q,)007,,^'04D2362^OUTPU00B***^INPUT/,T^COMMON^TESTS,^'02F2363^BOOL^00?R,)015,,^' 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 097I04I2364^BCE^^00DIOCSENTC,IOCSENTCR,IOCSDTFL1,1,^'03D2365^^SEQU00B***^EXIT^3,ENCE,^'04A2366^BCE^^ 1 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 00D,IOCSENTCR-12,IOCSD3,0,^'03?2367^B^^^^00B,IOCSREADRU,^'03H2368^MLNA^00C,IOCSE3,IOCSSWBXA&5,^'02H2 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: 369^B^^^^00B,IOCSSWBX,^'03?2370^B^^^^00B,IOCSOPHDAB,^'04B2371^BCE^^00D,IOCSOPHDAB,IOCSDTFL3,1,^'03I2 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 11 1 301: 372^B^^^^00BIOCSENTCR,IOCSREADRU,^'02G2373^BOOL^00?S,-)015,,^'04D2374RBCE^^00DIOCSENTC,*&13,IOCSDTFL 1 1 1 11 1 1 1 11 11 1 1 1 1 401: 1,1,^'04B2375^BCE^^00D,IOCSOPHDAB,IOCSDTFL3,1,^'03?2376^B^^^^00B,IOCSREADRU,^'03C2377SBOOL^00?R,-)00 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 501: 9*-)010,,^'04?2378^BCE^^00D,IOCSENTD,IOCSDTFL1,1,^'03A2379^BOOL^00?S,)009&)010,,^'04?2380RBCE^^00D,I 11 11 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 601: OCSENTD,IOCSDTFL3,1,^'03G2381^C^^^^00C,IOCSLBA&4,@1HDR^@,^'02G2382^BU^^^00B,IOCSNHL,^'04?2383^BCE^^0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 701: 0D,IOCSOPHD,IOCSDTFL1,0,^'03I2384^HEADE00B***^INPUT,R^SEQUENCE,^'02F2385^BOOL^00?R,)009,,^'03F2386^B 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 801: CE^^00D,*&43,IOCSDTFL3,2,^'03B2387^BCE^^00D,*&7,IOCSD9,1,^'02I2388^CW^^^00B,IOCSHFS&1,^'03H2389^C^^^ 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 901: ^00C,IOCSLBA&34,IOCSHCD,^'02I2390^SW^^^00B,IOCSHFS&1,^'02D2391^B^^^^00B,*&24,^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 096F02I2392RSW^^^00B,IOCSHAN-9,^'03H2393^C^^^^00C,IOCSLBA&29,IOCSHAN,^'02I2394^CW^^^00B,IOCSHAN-9,^' 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 101: 02H2395^BE^^^00B,IOCSENTD,^'04E2396^HEADE00B***^INPUT,R^ERROR^SEQUENCE,^'04A2397^MLCWA00C,IOCSGM&1,I 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: OCSERFLD&14,^'02H2398^MLCWA00B,IOCSAD-6,^'02F2399^MLCWA00B,IOCS32,^'02H2400^B^^^^00B,IOCSNOTE,^'03?2 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 401^SW^^^00B,IOCSLBA&10,^'04A2402^MLCWA00C,IOCSGM&1,IOCSERFLD&25,^'03?2403^MLCWA00B,IOCSLBA&34,^'02H 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 401: 2404^B^^^^00B,IOCSNOTE,^'04A2405^MLCWA00C,IOCSGM&1,IOCSERFLD&25,^'02G2406^MLCWA00B,IOCSHCD,^'02?2407 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 501: ^MLCWA00B,,^'03E2408^B^^^^00BIOCSNIH,IOCSHALT,^'04?2409^BCE^^00D,IOCSENTD,IOCSREPLY,A,^'02I2410^B^^^ 1 11 11 1 1 1 1 11 1 1 1 1 1 1 11 1 601: ^00B,IOCSENTAB,^'04I2411^^LABE00B***^COMMON,L-ID^ERROR^SEQUENCE,^'04H2412^MLCWA00CIOCSNHL,IOCSGM&1,I 1 1 1 11 1 1 1 1 11 1 1 1 1 701: OCSERFLD&14,^'02H2413^MLCWA00B,IOCSAD-6,^'02F2414^MLCWA00B,IOCS33,^'03I2415^BCE^^00D,IOCSNIH,IOCSDTF 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: L1,1,^'04B2416^MLCA^00C,@40130^NO@,IOCSERFLD&7,^'02G2417^B^^^^00B,IOCSNOH,^'04A2418^ION^P00B***^RETE 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 901: NT,ERIOD^TESTS,^'04I2419^SW^^^00CIOCSOPHD,IOCSLBA&30,IOCSLBA&36,^' 1 1 11 1 1 1 1 1 1 1: 099G04A2420^A^^^^00C,IOCSLBA&38,IOCSLBA&34,^'03F2421^C^^^^00C,IOCSLBA&34,@366@,^'02D2422^BH^^^00B,*& 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: 12,^'03E2423^A^^^^00C,&635,IOCSLBA&34,^'03D2424^C^^^^00C,119,IOCSLBA&34,^'02I2425^BH^^^00B,IOCSDATER 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: ,^'04C2426SBCE^^00DIOCSOPHDAB,*&25,IOCSD9,0,^'03H2427^BCE^^00D,*&13,IOCSDTFBX-5,*,^'03I2428^MLCB^00C 1 11 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 301: ,IOCSLBA&9,IOCSHFS-1,^'03A2429^MLCA^00C,119,IOCSHCD,^'04?2430^LE^HE00B***^ASSEMB,ADER^LABEL,^'03I243 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 401: 1^MLCWA00C,IOCSHDBL,IOCSLBA&79,^'02G2432^MLCWA00B,IOCSHRC,^'02?2433^MLCWA00B,,^'03G2434^MLCA^00C,@1H 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 1 1 501: DR^@,IOCSLBA&4,^'02F2435^BOOL^00?R,)016,,^'03D2436^^SEQU00B***^EXIT^4,ENCE,^'03H2437^MLNA^00C,IOCSE4 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 601: ,IOCSSWBXA&5,^'03G2438^BCE^^00D,IOCSSWBX,IOCSD4,1,^'04I2439RBBE^^00DIOCSENTE,IOCSRWDRU,IOCSDTFL3,2,^ 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 1 701: '03?2440^B^^^^00B,IOCSWRITRU,^'02H2441^B^^^^00B,IOCSENTF,^'03A2442^BOOL^00?R,)009&)010,,^'05?2443^IO 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 801: N^P00B***^RETENT,ERIOD^ERROR^SEQUENCE,^'05?2444^MLCWA00CIOCSDATER,IOCSGM&1,IOCSERFLD&20,^'03?2445^ML 1 1 1 11 1 1 1 1 1 11 1 901: CWA00B,IOCSLBA&34,^'02C2446^MLCWA00B,@^@,^'02H2447^MLCWA00B,IOCSAD-6,^'02F2448^MLCWA00B,IOCS31,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 098F03E2449^B^^^^00BIOCSNOH,IOCSHALT,^'04B2450^BCE^^00D,IOCSOPHDAB,IOCSREPLY,A,^'04A2451^BBE^^00D,IO 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 101: CSENTAB,IOCSREPLY,&,^'03E2452^MLCWA00C,IOCSREPLY&4,119,^'02I2453^B^^^^00B,IOCSENTAB,^'05A2454RPUT^T0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: 0B***^STD^IN,RAILER^LABEL^SEQUENCE,^'03I2455^B^^^^00BIOCSIPEOR,IOCSREADRU,^'04A2456^MLCWA00C,IOCSGM& 1 1 11 1 1 1 1 11 1 1 1 301: 1,IOCSERFLD&14,^'02H2457^MLCWA00B,IOCSAD-6,^'02F2458^MLCWA00B,IOCS34,^'03A2459^BOOL^00?R,)023*)024,, 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 401: ^'04?2460^SW^^^00C,IOCSLBA&5,IOCSLBA&20,^'03H2461^C^^^^00C,IOCSTHT,IOCSLBA&29,^'02D2462^BU^^^00B,*&2 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 4,^'02I2463^CW^^^00B,IOCSTBC&1,^'03H2464^C^^^^00C,IOCSTRC,IOCSLBA&19,^'02I2465^SW^^^00B,IOCSTBC&1,^' 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 601: 02H2466^BE^^^00B,IOCSBCRT,^'02H2467^B^^^^00B,IOCSNOTE,^'04A2468^MLCWA00C,IOCSGM&1,IOCSERFLD&25,^'03? 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: 2469^MLCWA00B,IOCSLBA&29,^'02?2470^MLCWA00B,,^'02H2471^B^^^^00B,IOCSNOTE,^'04A2472^MLCWA00C,IOCSGM&1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 801: ,IOCSERFLD&25,^'02G2473^MLCWA00B,IOCSTHT,^'04?2474^MLCWA00C,IOCSTRC,IOCSERFLD&14,^'02?2475^MLCWA00B, 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: ,^'02H2476^B^^^^00B,IOCSNOTE,^'02H2477^B^^^^00B,IOCSBCRT,^'02G2478^BOOL^00?S,-)023,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098C03C2479RBOOL^00?R,-)023*-)024,,^'02I2480^SW^^^00B,IOCSLBA&5,^'03G2481^C^^^^00C,IOCSTBC,IOCSLBA&9 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 101: ,^'02H2482^BE^^^00B,IOCSBCRT,^'02H2483^B^^^^00B,IOCSNOTE,^'04?2484^MLCWA00C,IOCSGM&1,IOCSERFLD&5,^'0 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 201: 2I2485^MLCWA00B,IOCSLBA&9,^'02H2486^B^^^^00B,IOCSNOTE,^'04?2487^MLCWA00C,IOCSGM&1,IOCSERFLD&5,^'02G2 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: 488^MLCWA00B,IOCSTBC,^'02H2489^B^^^^00B,IOCSNOTE,^'02H2490^B^^^^00B,IOCSBCRT,^'02F2491^BOOL^00?S,)02 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 3,,^'02F2492RBOOL^00?R,)023,,^'02I2493^SW^^^00B,IOCSLBA&5,^'02I2494^CW^^^00B,IOCSTBC&1,^'03H2495^C^^ 11 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 501: ^^00C,IOCSTRC,IOCSLBA&19,^'02I2496^SW^^^00B,IOCSTBC&1,^'02H2497^BE^^^00B,IOCSBCRT,^'02H2498^B^^^^00B 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ,IOCSNOTE,^'04A2499^MLCWA00C,IOCSGM&1,IOCSERFLD&15,^'03?2500^MLCWA00B,IOCSLBA&19,^'02H2501^B^^^^00B, 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: IOCSNOTE,^'04A2502^MLCWA00C,IOCSGM&1,IOCSERFLD&15,^'02G2503^MLCWA00B,IOCSTRC,^'02?2504^MLCWA00B,,^'0 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 11 11 801: 2H2505^B^^^^00B,IOCSNOTE,^'02H2506^B^^^^00B,IOCSBCRT,^'02F2507^BOOL^00?S,)024,,^'04?2508RSW^^^00C,IO 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: CSLBA&5,IOCSLBA&10,^'03H2509^C^^^^00C,IOCSTHT,IOCSLBA&19,^'02D2510^BU^^^00B,*&12,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 099H03G2511^C^^^^00C,IOCSTBC,IOCSLBA&9,^'02H2512^BE^^^00B,IOCSBCRT,^'02H2513^B^^^^00B,IOCSNOTE,^'04A 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 101: 2514^MLCWA00C,IOCSGM&1,IOCSERFLD&15,^'03?2515^MLCWA00B,IOCSLBA&19,^'02?2516^MLCWA00B,,^'02H2517^B^^^ 1 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 201: ^00B,IOCSNOTE,^'02I2518^SW^^^00B,IOCSTHT-9,^'04A2519^MLCWA00C,IOCSGM&1,IOCSERFLD&15,^'02G2520^MLCWA0 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 301: 0B,IOCSTHT,^'02G2521^MLCWA00B,IOCSTBC,^'02I2522^CW^^^00B,IOCSTHT-9,^'02H2523^B^^^^00B,IOCSNOTE,^'02H 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: 2524^B^^^^00B,IOCSBCRT,^'05A2525SLE^AN00B***^ASSEMB,D^WRITE^TRAILER^LABEL,^'04G2526^MLCWA00CIOCSCLSB 1 1 1 1 11 1 1 1 1 11 1 1 501: ,IOCSTRBL,IOCSLBA&79,^'02F2527^BOOL^00?R,)024,,^'02G2528^MLCWA00B,IOCSTHT,^'02F2529RBOOL^00?R,)023,, 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 601: ^'03H2530^MLCWA00C,IOCSTRC,IOCSLBA&19,^'02?2531^MLCWA00B,,^'02G2532RBOOL^00?R,-)023,,^'03G2533^MLCWA 11 1 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 701: 00C,IOCSTBC,IOCSLBA&9,^'02F2534^BOOL^00?R,)024,,^'02I2535^MLCWA00B,IOCSBLANK,^'02F2536RBOOL^00?R,)01 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 801: 3,,^'03D2537^^SEQU00B***^EXIT^1,ENCE,^'03H2538^MLNA^00C,IOCSE1,IOCSSWBXA&5,^'03G2539^BCE^^00D,IOCSSW 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: BX,IOCSD1,1,^'03?2540RB^^^^00B,IOCSWRITRU,^'02F2541^BOOL^00?R,)014,,^'02H2542^B^^^^00B,IOCSUSXA,^' 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099I02G2543RBOOL^00?R,-)014,,^'02I2544^B^^^^00B,IOCSWTMRU,^'02H2545^B^^^^00B,IOCSENTH,^'04C2546RREAD 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: /00B***^LABEL,WRITE^ROUTINES,^'04B2547^SBR^^00BIOCSREADRU,IOCSWRITRU-2,^'03I2548^MLCWA00C,IOCSHDBL,I 1 1 1 11 1 1 1 1 11 1 1 1 1 201: OCSLBA&79,^'03?2549^CW^^^00B,IOCSLBA&40,^'02H2550^MLCWA00B,IOCSHDBL,^'03D2551^MLCS^00C,@R@,IOCSLBOP& 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: 9,^'04G2552^MLCS^00CIOCSLBIN,IOCSAD-6,IOCSLBOP&3,^'03I2553^MLCS^00C,IOCSAD-8,IOCSLBOP&1,^'03A2554^BO 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: OL^00?R,)057*)067,,^'04?2555^MLCS^00C,IOCSAD-5,IOCSLBOP&10,^'04C2556^MLCS^00C,IOCSLBOP&10,IOCSLBOP&1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 501: 8,^'03H2557RRT^^^00CIOCSLBOP,10,IOCSLBA,^'02G2558^BOOL^00?R,-)067,,^'03A2559^BEX1^00C,IOCSERROR,7,^' 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 601: 02?2560^NOP^^00B,,^'02C2561^BA1^^00B,*&1,^'02F2562^BOOL^00?S,)067,,^'03A2563RBEX2^00C,IOCSERROR,7,^' 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 701: 02?2564^NOP^^00B,,^'02C2565^BA2^^00B,*&1,^'02A2566SB^^^^00B,0,^'03C2567^SBR^^00BIOCSWRITRU,*-8,^'03D 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 2568^MLCS^00C,@W@,IOCSLBOP&9,^'02H2569^B^^^^00B,IOCSLBIN,^'04G2570QONTRO00B***^MISC^C,L^UNIT^OPERATI 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ONS,^'04?2571^SBR^^00BIOCSRWDRU,IOCSRWDXT&5,^'03?2572^B^^^^00B,IOCSRWDRUA,^'02C2573^DCW^^00B,@R@,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099G03A2574^BOOL^00?Q,)057*)067,,^'03D2575^SBR^^00BIOCSRWDRUA,*&18,^'03I2576^MLCS^00C,IOCSAD-5,IOCSR 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 101: WDB&5,^'02A2577^MLCS^00B,0,^'02G2578^BOOL^00?R,-)067,,^'03C2579QSBR^^00BIOCSRWDRUA,*&6,^'03B2580^MLC 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: S^00C,0,IOCSRWDB&4,^'02H2581RMLCS^00B,IOCSAD-6,^'03I2582^MLCS^00C,IOCSAD-8,IOCSRWDB&1,^'02E2583^BOOL 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 301: ^00?Q,#103,^'03?2584^BXPA^00B,IOCSCS1SFS,^'02E2585QBOOL^00?Q,#104,^'03?2586^BXPA^00B,IOCSCS2SFS,^'03 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 401: ?2587QRWD^^00BIOCSRWDB,11,^'02G2588^BOOL^00?Q,-)067,,^'02I2589^BA1^^00B,IOCSERROR,^'02F2590^BOOL^00? 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: R,)067,,^'02I2591QBA2^^00B,IOCSERROR,^'03?2592RB^^^^00BIOCSRWDXT,0,^'02F2593^BOOL^00?Q,)027,,^'04?25 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 601: 94^SBR^^00BIOCSRWURU,IOCSRWDXT&5,^'03?2595^B^^^^00B,IOCSRWDRUA,^'02C2596^DCW^^00B,@U@,^'04?2597QSBR^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: ^00BIOCSWTMRU,IOCSRWDXT&5,^'03?2598^B^^^^00B,IOCSRWDRUA,^'02C2599^DCW^^00B,@M@,^'02F2600^BOOL^00?Q,) 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: 047,,^'03B2601^SEQUE00B***^RDLIN,NCE,^'03F2602^MRCWG00C,IOCS36,IOCSERFLD,^'02H2603^B^^^^00B,IOCSHALT 11 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: ,^'02G2604^BOOL^00?R,-)054,,^'03H2605^R2^^^00CIOCSRDLIN,1,IOCSLBA,^'02I2606^BA2^^00B,IOCSURERR,^' 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1: 098D02F2607^BOOL^00?S,)054,,^'03H2608RR^^^^00CIOCSRDLIN,1,IOCSLBA,^'02I2609^BA1^^00B,IOCSURERR,^'03? 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 101: 2610SCW^^^00B,IOCSLBA&16,^'03H2611^C^^^^00C,IOCSLBA&19,@RDLIN@,^'03B2612^BU^^^00B,IOCSRDLIN-19,^'03H 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 201: 2613^MLCB^00C,IOCSLBA&49,IOCSHRC,^'02?2614^MLCB^00B,,^'03?2615^B^^^^00B,IOCSEXITRU,^'04A2616^DCW^^00 1 1 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 301: C^IOCS36,@20136^RLN^@,G,^'03A2617QBOOL^00?Q,)034*#100,,^'05G2618^NTS^F00B***^CONSTA,OR^TAPE-FILE^CHA 1 1 1 11 1 1 1 11 11 1 1 1 401: NNEL-CHANGE,^'04?2619^DCW^^00B^IOCSCCTAB,IOCSCS1SFS,^'03?2620^DCW^^00B,IOCSCS1RET,^'02D2621^DC^^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: ,@1R@,^'02I2622^DC^^^00B,IOCSERROR,^'02D2623^DC^^^00B,@+R@,^'02D2624^DCW^^00B,@EY@,^'03?2625^DC^^^00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: B,IOCSCS1SCN,^'03?2626^DCW^^00B,IOCSCS2SFS,^'03?2627^DCW^^00B,IOCSCS2RET,^'02D2628^DC^^^00B,@2X@,^'0 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 701: 2I2629^DC^^^00B,IOCSERROR,^'02D2630^DC^^^00B,@+X@,^'02D2631^DCW^^00B,@FY@,^'03?2632^DC^^^00B,IOCSCS2 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: SCN,^'03H2633QDCW^^00BIOCS20,@20120^EOR^@,^'02F2634^BOOL^00?Q,)007,,^'03H2635^DCW^^00BIOCS31,@40131^ 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: DAT^@,^'03H2636^DCW^^00BIOCS32,@30132^FIL^@,^'03H2637^DCW^^00BIOCS33,@30133^NIH^@,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 099H03H2638^DCW^^00BIOCS34,@10134^TIE^@,^'02G2639^BOOL^00?R,-)045,,^'03A2640^EQU^^00BIOCSLBAREA,*,^' 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 101: 07?2641RDCW^^00B^IOCSLBA,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06D2642^DC^^^00C,@^^^^^^^^^^^^ 1 1 1 1 1 11 1 1 1 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,G,^'03?2643^EQU^^00BIOCSBLANK,*,^'07?2644^DCW^^00BIOCSHDBL,@^^^^^^^^^^ 1 1 11 1 1 1 1 11 1 1 1 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02G2645^BOOL^00?R,-)023,,^'03B2646^DC^^^00B,@^^^^^^^^^^@,^'02G2647 1 11 1 1 1 11 11 1 1 1 1 11 1 401: RBOOL^00?R,-)024,,^'03B2648^DC^^^00B,@^^^^^^^^^^@,^'04?2649RDC^^^00BIOCSTRBL,@^^^^^^^^^^@,^'02G2650^ 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 501: BOOL^00?R,-)007,,^'03G2651QDCW^^00B^IOCSBLANK,@^^^^^@,^'02F2652^BOOL^00?Q,)023,,^'03B2653^DCW^^00B,@ 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: ^^^^^^^^^^@,^'02F2654QBOOL^00?R,)024,,^'03H2655^DCW^^00B,@^^^^^^^^^^^^^^^^@,^'03D2656RDA^^^00C00000, 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: 1X200,X15,^'03B2657^MATH^00?#010,00044,,,,^'02F2658^BOOL^00?Q,#100,,^'03E2659^^^^^^00BIOCSPENSWE,000 1 1 11 1 1 11 1111 11 1 1 1 11 11 1 1 1 801: 13,^'03E2660^^^^^^00BIOCSTRIGEN,00019,^'03E2661Q^^^^^00BIOCSDTFACT,00021,^'03A2662^^^^^^00BIOCSAD,00 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: 033,^'03C2663^^^^^^00BIOCSDTFI,00038,^'03C2664^^^^^^00BIOCSDTFA,00043,^'02F2665^BOOL^00?Q,)007,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 097?03B2666^MATH^00?#010,00076,,,,^'03A2667^^^^^^00BIOCSD9,00044,^'03B2668^^^^^^00BIOCSHFS,00050,^'0 1 1 1 1 11 1111 11 1 1 1 1 11 1 1 1 1 11 101: 3B2669^^^^^^00BIOCSHRS,00054,^'03B2670^^^^^^00BIOCSHAN,00064,^'03B2671^^^^^^00BIOCSHCD,00069,^'03B26 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 72^^^^^^00BIOCSHRC,00074,^'03D2673^^^^^^00BIOCSDTFLB,00075,^'03C2674Q^^^^^00BIOCSDTFL1,#010,^'02F267 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 5^BOOL^00?Q,)012,,^'03G2676^MATH^00?#010,#010&00001,,,,^'03C2677^^^^^^00BIOCSDTFL2,#010,^'02F2678QBO 1 1 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 401: OL^00?Q,)007,,^'03G2679^MATH^00?#010,#010&00001,,,,^'03C2680^^^^^^00BIOCSDTFL3,#010,^'02F2681QBOOL^0 1 1 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 501: 0?Q,)011,,^'03G2682^MATH^00?#010,#010&00001,,,,^'03C2683^^^^^^00BIOCSDTFL4,#010,^'03A2684QBOOL^00?Q, 1 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 601: )025&)027,,^'03G2685^MATH^00?#010,#010&00001,,,,^'03C2686^^^^^^00BIOCSDTFL5,#010,^'03G2687QMATH^00?# 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 701: 010,#010&00005,,,,^'03A2688^^^^^^00BIOCSTBC,#010,^'02F2689^BOOL^00?Q,)023,,^'03G2690^MATH^00?#010,#0 1 1 1111 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: 10&00010,,,,^'03A2691^^^^^^00BIOCSTRC,#010,^'02F2692QBOOL^00?Q,)024,,^'03G2693^MATH^00?#010,#010&000 1 1111 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: 16,,,,^'03A2694^^^^^^00BIOCSTHT,#010,^'03A2695QBOOL^00?Q,)018&)019,,^' 1111 11 1 1 1 1 11 1 1 1 11 1 1: 099E03A2696^MATH^00?#005,#010,,,,^'02F2697^BOOL^00?R,)018,,^'03G2698^MATH^00?#005,#005&00001,,,,^'03 1 1 1 1 1 1111 11 1 1 1 11 11 1 1 1 1 1111 11 101: ?2699^^^^^^00BIOCSD6,#005,^'03G2700^MATH^00?#005,#005&00005,,,,^'03?2701^^^^^^00BIOCSE6,#005,^'02F27 1 1 1 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 201: 02^BOOL^00?Q,)019,,^'03G2703RMATH^00?#005,#005&00001,,,,^'03?2704^^^^^^00BIOCSD7,#005,^'03G2705^MATH 1 1 11 11 1 1 1 1 1111 11 1 1 1 1 11 1 301: ^00?#005,#005&00005,,,,^'03?2706^^^^^^00BIOCSE7,#005,^'02F2707QBOOL^00?Q,)013,,^'03G2708^MATH^00?#01 1 1 1 1111 11 1 1 1 1 11 1 1 1 11 11 1 1 401: 0,#010&00001,,,,^'03?2709^^^^^^00BIOCSD1,#010,^'03G2710^MATH^00?#010,#010&00005,,,,^'03?2711^^^^^^00 1 1 1111 11 1 1 1 1 11 1 1 1 1 1111 11 1 1 501: BIOCSE1,#010,^'02F2712QBOOL^00?Q,)014,,^'03G2713^MATH^00?#010,#010&00001,,,,^'03?2714^^^^^^00BIOCSD2 1 1 11 1 1 1 11 11 1 1 1 1 1111 11 1 1 601: ,#010,^'03G2715^MATH^00?#010,#010&00005,,,,^'03?2716^^^^^^00BIOCSE2,#010,^'02F2717QBOOL^00?Q,)015,,^ 1 1 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 11 701: '03G2718^MATH^00?#010,#010&00001,,,,^'03?2719^^^^^^00BIOCSD3,#010,^'03G2720^MATH^00?#010,#010&00005, 11 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 1 801: ,,,^'03?2721^^^^^^00BIOCSE3,#010,^'02F2722QBOOL^00?Q,)016,,^'03G2723^MATH^00?#010,#010&00001,,,,^'03 111 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1111 11 901: ?2724^^^^^^00BIOCSD4,#010,^'03G2725^MATH^00?#010,#010&00005,,,,^'03?2726^^^^^^00BIOCSE4,#010,^' 1 1 1 1 11 1 1 1 1 1111 11 1 1 1 1 1 1: 099H02F2727QBOOL^00?Q,)017,,^'03G2728^MATH^00?#010,#010&00001,,,,^'03?2729^^^^^^00BIOCSD5,#010,^'03G 1 1 1 1 1 11 11 1 1 1 1 1111 11 1 1 1 1 11 101: 2730^MATH^00?#010,#010&00005,,,,^'03?2731^^^^^^00BIOCSE5,#010,^'02F2732QBOOL^00?P,)020,,^'03G2733^MA 1 1 1 1 1111 11 1 1 1 1 11 1 1 1 11 11 1 201: TH^00?#010,#010&00001,,,,^'03?2734^^^^^^00BIOCSD8,#010,^'03G2735^MATH^00?#010,#010&00005,,,,^'03?273 1 1 1 1111 11 1 1 1 1 11 1 1 1 1 1111 11 1 301: 6^^^^^^00BIOCSE8,#010,^'03F2737PBOOL^00?P,)030&)031&)038,,^'03I2738^SBR^^00BIOCSFORS,IOCSFEXRU&5,^'0 1 1 1 11 1 1 1 11 11 1 1 1 1 11 401: 2I2739^BXPA^00B,IOCSENTRY,^'02F2740^BOOL^00?Q,)039,,^'02I2741^B^^^^00B,IOCSINTLK,^'04E2742QBOOL^00AQ 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 501: ,@)058&)059@*@)068&)069@,,^'03?2743^BXPA^00B,IOCSCS1SFS,^'03?2744^BXPA^00B,IOCSCS2SFS,^'02F2745^BOOL 1 11 11 1 1 1 1 11 1 1 1 1 11 1 601: ^00?R,)059,,^'03?2746^ZA^^^00B,IOCSCS1SKL,^'02F2747RBOOL^00?R,)058,,^'02I2748^ZA^^^00B,IOCS1SKRQ,^'0 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 701: 2C2749RBZ^^^00B,*&8,^'03?2750^B^^^^00B,IOCSFORS&7,^'02F2751^BOOL^00?R,)069,,^'03?2752^ZA^^^00B,IOCSC 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: S2SKL,^'02F2753RBOOL^00?R,)068,,^'02I2754^ZA^^^00B,IOCS2SKRQ,^'02C2755RBZ^^^00B,*&8,^'03?2756^B^^^^0 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 901: 0B,IOCSFORS&7,^'02I2757^ZA^^^00B,IOCS2RWRQ,^'02C2758^BZ^^^00B,*&8,^'03?2759^B^^^^00B,IOCSFORS&7,^' 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 095C02I2760^ZA^^^00B,IOCS1RWRQ,^'03?2761^BZ^^^00BIOCSFEXRU,0,^'03?2762^B^^^^00B,IOCSFORS&7,^'04F2763 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: QBOOL^00AQ,@)058&)059@*-@)068&)069@,,^'03?2764^BXPA^00B,IOCSCS1SFS,^'02F2765^BOOL^00?R,)059,,^'03?27 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: 66^ZA^^^00B,IOCSCS1SKL,^'02F2767RBOOL^00?R,)058,,^'02I2768^ZA^^^00B,IOCS1SKRQ,^'02C2769RBZ^^^00B,*&8 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: ,^'03?2770^B^^^^00B,IOCSFORS&7,^'02I2771^ZA^^^00B,IOCS1RWRQ,^'03?2772^BZ^^^00BIOCSFEXRU,0,^'03?2773^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: B^^^^00B,IOCSFORS&7,^'04F2774QBOOL^00AP,-@)058&)059@*@)068&)069@,,^'03?2775^BXPA^00B,IOCSCS2SFS,^'02 1 1 1 11 1 1 1 11 11 1 1 1 1 11 501: F2776^BOOL^00?R,)069,,^'03?2777^ZA^^^00B,IOCSCS2SKL,^'02F2778RBOOL^00?R,)068,,^'02I2779^ZA^^^00B,IOC 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: S2SKRQ,^'02C2780RBZ^^^00B,*&8,^'03?2781^B^^^^00B,IOCSFORS&7,^'02I2782^ZA^^^00B,IOCS2RWRQ,^'03?2783^B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 701: Z^^^00BIOCSFEXRU,0,^'03?2784^B^^^^00B,IOCSCS2ENT,^'03A2785PBOOL^00?P,)059&)069,,^'02F2786^BOOL^00?Q, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 801: )040,,^'04B2787^SINGL00B*,E^RECORD^SEEK^ROUTING,^'04G2788^SBR^^00BIOCSCSSNGL,IOCSXAT,^SAVE^RETN^'05F 11 11 1 1 1 1 11 1 1 1 1 11 901: 2789^MLCA^00C,0-8&IOCSXAL,IOCSCSSEEK&2,^SET^SK^INST^' 1 1 1 1 1 1 1: 096D05D2790^MRCWG00C,0&IOCSXAL,IOCSCSAXSK-7,^SET^B^FIELD^'04E2791^MLCA^00C,0-11&IOCSXAL,IOCSCSAXSK-2 1 1 1 1 1 1 1 11 1 1 1 1 101: ,^'04D2792^SDO^^00CIOCSCSSEEK,1,IOCSCSAXSK-7,^'03G2793^B^^^^00B,10&IOCSXAT,^RETURN^'03H2794^DCW^^00B 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: IOCSCSAXSK,00000000,^'02C2795^^^^^^00B,@"@,^'02G2796QBOOL^00?Q,-)045,,^'05B2797^SBR^^00BIOCSRELARM,I 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 301: OCSINTEXT&5,^SAVE^EXIT^'04A2798QA^^^^00CIOCSRELARR,&21,IOCSXAL,^'04C2799^ROUTI00B*,NE^TO^ASSIGN^DISK 1 11 1 1 1 1 1 11 1 1 1 401: ^ARMS,^'03G2800^B^^^^00BIOCSRAY,IOCSRSERRC,^'05H2801^BCE^^00D,IOCSRAY2,0&IOCSXAL,9,^BR^IF^NO^ARM^ASS 1 11 1 1 1 1 11 1 1 1 1 1 1 501: I^'03E2802^MLZS^00C,*-1,0-5&IOCSXRL,^'03B2803^BOOL^00?Q,)059*-)069,,^'02I2804^SW^^^00B,IOCSCS1S2,^'0 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 601: 3B2805QBOOL^00?Q,)069*-)059,,^'02I2806^SW^^^00B,IOCSCS2S2,^'03A2807QBOOL^00?Q,)069*)059,,^'03I2808^S 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 701: W^^^00C,IOCSCS1S2,IOCSCS2S2,^'02F2809QBOOL^00?Q,)059,,^'02F2810^BOOL^00?R,)069,,^'06A2811^BBE^^00D,I 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 1 801: OCSCS2DKS,0-9&IOCSXAL,-,^ADD^TO^SEEK^LIST^'04G2812RB^^^^00B,IOCSCS1DKS,^ADD^TO^SEEK^LIST^'02G2813^BO 1 1 1 11 1 1 1 1 11 1 901: OL^00?R,-)059,,^'04G2814QB^^^^00B,IOCSCS2DKS,^ADD^TO^SEEK^LIST^' 1 1 11 11 1 1 1 1 1 1: 096H06E2815RZA^^^00CIOCSRAY2,0-5&IOCSXRL,IOCSXAT,^CHK^IF^ARM^ASSIGN^'04B2816^BZ^^^00B,IOCSRAY5,^NO^A 1 1 1 1 1 1 1 11 1 1 1 1 101: RM^ASSIGN^'02F2817^BOOL^00?Q,)030,,^'04C2818^BBE^^00D,IOCSRAY7,0-16&IOCSXAL,1,^'03I2819QBBE^^00D,*&1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 201: 3,0-16&IOCSXAL,2,^'06F2820^BZN^^00DIOCSRAY7,IOCSRAY6,0-5&IOCSXRL,&,^BR^IF^CAN^STEAL^'05C2821^ZA^^^00 1 1 1 11 1 1 1 1 1 1 11 1 1 301: C,0&IOCSXRL,0-17&IOCSXAL,^MOD^LTR^15^'04D2822^ZA^^^00C,IOCSXAL,0&IOCSXRL,^AND^16^'04A2823^B^^^^00B,I 1 1 1 11 1 1 1 1 1 11 1 1 1 401: OCSCSNENT,^CORRECTION^'04G2824^S^^^^00B,0-17&IOCSXAL,^ALT^CORRECTION^'03G2825^ZA^^^00C,0&IOCSXRL,IOC 1 11 1 1 1 1 11 1 1 1 1 501: SXAT,^'03E2826^BZ^^^00B,*&50,^MOD^LTR^16^'04B2827^ZA^^^00BIOCSANOTHR,0-17&IOCSXAT,^'03E2828^BZ^^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: ,*&19,^MOD^LTR^16^'04?2829^ZA^^^00C,0-17&IOCSXAT,IOCSXAT,^'04A2830^B^^^^00B,IOCSANOTHR,^MOD^LTR^16^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 701: 04?2831^ZA^^^00C,IOCSXAL,0-17&IOCSXAT,^'03?2832^B^^^^00B,IOCSCSNENT,^'03G2833^ZA^^^00C,IOCSXAL,0&IOC 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: SXRL,^'03?2834^B^^^^00B,IOCSCSNENT,^'02F2835^BOOL^00?Q,)039,,^'06B2836^ZA^^^00CIOCSRAY1,0-1&IOCSXAL, 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: IOCSXAT,^RETURN^TO^LIST^'04C2837^ZA^^^00C,26&IOCSXAT,0-17&IOCSXAL,^' 1 11 1 1 1 1 1 1 1: 099?03H2838^ZA^^^00C,IOCSXAL,26&IOCSXAT,^'03D2839^S^^^^00C,&37,26&IOCSXAT,^'04F2840^B^^^^00B,IOCSREL 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: AR2,^TO^PART^REL^ARM^'05E2841^S^^^^00CIOCSRAY8,&37,IOCSXAL,^ADJUST^FOR^PICK^'05?2842^ZA^^^00C,20&IOC 1 11 1 1 1 1 1 11 1 1 1 201: SXAL,IOCSXRL,^SEARCH^LIST^'03?2843^BZ^^^00B,IOCSCSNENT,^'04A2844^C^^^^00C,20&IOCSXAL,IOCSOLDEST,^'02 1 1 11 1 1 1 1 11 1 1 1 1 1 11 301: D2845^BE^^^00B,*&19,^'04H2846^ZA^^^00C,IOCSXRL,IOCSXAL,^REINITIALIZE^'03A2847^B^^^^00B,IOCSRAY8&11,^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: '05C2848^ZA^^^00C,20&IOCSXRL,20&IOCSXAL,^DELETE^LIST^'05C2849^ZA^^^00C,36&IOCSXRL,IOCSXAT,^SETUP^FOP 11 1 1 1 1 1 11 1 1 1 1 1 501: ^PICK^'04C2850^B^^^^00B,IOCSPICK10,^RETRY^OLDEST^'06A2851QBCE^^00DIOCSRAY6,*&13,0&IOCSXAT,0,^1302^BR 11 1 1 1 1 11 1 1 1 1 1 1 601: ^IF^ARM^0^'05B2852^MLZS^00C,*-11,1&IOCSXAT,^1302^RSTR^ARM^IND^'03H2853^MLCS^00C,@9@,0&IOCSXAT,^1302^ 11 1 1 1 1 1 11 1 1 1 1 1 701: '05B2854^MLCS^00CIOCSRAY5,@0@,0&IOCSXAL,^ASSIGN^ARM^'05B2855^BZN^^00C,*&25,1&IOCSXAL,^1302^BR^NO^ARM 11 1 1 1 1 1 11 1 1 1 1 1 801: IND^'04H2856^MLCS^00C,@1@,0&IOCSXAL,^1302^SET^ARM^1^'05A2857^MLZS^00C,*-1,1&IOCSXAL,^1302^CLEAR^ARMI 11 1 1 1 1 1 11 1 1 1 1 1 901: ND^'05A2858^MLNA^00C,IOCSXAL,0-5&IOCSXRL,^RESERVE^ARM^'03E2859^MLZS^00C,*-1,0-5&IOCSXRL,^' 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 095G02I2860^EQU^^00BIOCSRAY4,*,^'02F2861^BOOL^00?Q,)069,,^'02F2862^BOOL^00?R,)059,,^'05D2863^BBE^^00 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 1 101: D,IOCS2RAY4,1&IOCSXRL,-,^BR^IF^CHAN^2^'05H2864QZA^^^00C,IOCSCS1SKL,0-17&IOCSXAL,^PUT^ON^SK^LIST^'03H 1 1 1 1 11 1 1 1 1 1 11 201: 2865^ZA^^^00C,IOCSXAL,IOCSCS1SKL,^'02I2866^SW^^^00B,IOCSCS1S2,^'03?2867^B^^^^00B,IOCSCSNENT,^'02F286 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 8^BOOL^00?Q,)069,,^'05B2869RZA^^^00CIOCS2RAY4,IOCSCS2SKL,0-17&IOCSXAL,^'03H2870^ZA^^^00C,IOCSXAL,IOC 1 1 11 11 1 1 1 1 1 11 1 1 1 1 401: SCS2SKL,^'02I2871^SW^^^00B,IOCSCS2S2,^'03?2872^B^^^^00B,IOCSCSNENT,^'04D2873^ROUTI00B*,NE^TO^RELEASE 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: ^DISK^ARMS,^'02F2874QBOOL^00?Q,)039,,^'05E2875^SBR^^00BIOCSRELAR8,IOCSINTEXT&5,^RANDOM^ENTRY^'03B287 1 11 1 1 1 11 11 1 1 1 1 11 1 601: 6^MRCWG00C,85,IOCSISAVE,^'04D2877^BBE^^00D,IOCSRELAR2,0-6&IOCSXAL,8,^'05?2878^ZA^^^00C,IOCSXAT,0-1&I 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 701: OCSXAL,^ADDR^OF^FD^'04A2879^BCE^^00D,IOCSRAY,0-6&IOCSXAL,W,^'07?2880^BCE^^00DIOCSRELAR2,IOCSRELAR7,0 1 11 1 1 1 1 1 1 11 1 1 1 1 801: &IOCSXAL,9,^BR^IF^NO^ARM^ASSI^'02G2881^BOOL^00?R,-)030,,^'05B2882QBCE^^00DIOCSRELAR2,IOCSCSNENT,0&IO 1 1 11 1 1 1 11 11 1 1 1 1 901: CSXAL,9,^'04G2883RB^^^^00B,IOCSRSERRC,^TO^LOOK^FOR^FREE^' 1 1 11 1 1 1 1 1 1: 098D04D2884^ZA^^^00B,0&IOCSXRL,^CHK^ARM^REQSTS^'04F2885^BZ^^^00B,IOCSRELAR1,^BR^IF^NO^REQSTS^'05E288 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 6^ZA^^^00C,0&IOCSXRL,IOCSXAT,^RESERVE^ARM^FOR^R^'03I2887^MLNA^00C,IOCSXAT,0-5&IOCSXRL,^'03E2888^MLZS 1 1 1 1 11 1 1 1 1 1 11 1 201: ^00C,*-1,0-5&IOCSXRL,^'03H2889^MLCS^00C,@0@,0&IOCSXAT,^1302^'05B2890^BZN^^00C,*&25,1&IOCSXAT,^1302^B 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: R^NO^ARMIND^'04H2891^MLCS^00C,@1@,0&IOCSXAT,^1302^SET^ARM^1^'05A2892^MLZS^00C,*-1,1&IOCSXAT,^1302^CL 11 1 1 1 1 1 11 1 1 1 1 1 401: EAR^ARMIND^'04B2893^ZA^^^00C,0-17&IOCSXAT,0&IOCSXRL,^'03A2894^BOOL^00?Q,)069*)059,,^'05E2895^BBE^^00 11 1 1 1 1 1 11 1 1 1 11 11 1 1 501: D,IOCS2ADD,0-9&IOCSXAT,-,^BR^IF^CHAN^2^'02F2896^BOOL^00?R,)059,,^'03B2897QBOOL^00?Q,)069*-)059,,^'02 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 601: H2898^B^^^^00B,IOCS2ADD,^'02F2899QBOOL^00?R,)059,,^'04C2900^ZA^^^00C,IOCSCS1SKL,0-17&IOCSXAT,^'03H29 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 701: 01^ZA^^^00C,IOCSXAT,IOCSCS1SKL,^'02I2902^SW^^^00B,IOCSCS1S2,^'03?2903^B^^^^00B,IOCSRELAR5,^'07A2904R 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: BBE^^00DIOCSRELAR1,IOCSRELAR6,0-16&IOCSXAL,2,^BR^IF^SEEK^ONLY^'05H2905^S^^^^00BIOCSRELAR3,0-5&IOCSXR 1 1 1 1 1 11 1 1 1 901: L,^DELETE^ARM^TABLE^'06C2906^BCE^^00DIOCSRELAR5,*&13,0&IOCSXAL,0,^1302^BR^IF^ARM^0^' 1 11 1 1 1 1 1 1 1 1: 098F05B2907^MLZS^00C,*-11,1&IOCSXAL,^1302^RSTR^ARM^IND^'05?2908^MLCS^00C,@9@,0&IOCSXAL,^1302^RELEASE 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^ARM^'03A2909^BOOL^00?Q,)030*)039,,^'06H2910^BBE^^00DIOCSRELAR7,IOCSRELAR4,0-16&IOCSXAL,1,^BE^IF^RAN 11 1 1 1 11 11 1 1 1 1 1 1 201: DOM^'03B2911QB^^^^00B,IOCSRELAR9-1,^'06B2912^MLZS^00CIOCSRELAR6,*-11,0-5&IOCSXRL,^PARTIAL^REL^ARM^'0 11 1 1 1 1 11 1 1 1 1 1 11 301: 3C2913^BOOL^00?Q,-)030&-)039,,^'03B2914^B^^^^00B,IOCSRELAR9-1,^'03A2915^BOOL^00?R,)030*)039,,^'03?29 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: 16QB^^^^00B,IOCSRELAR7,^'06F2917^BBE^^00DIOCSRELAR4,IOCSRAY8,0-16&IOCSXAL,2,^IF^SEEK^ONLY^'04F2918^B 1 1 1 11 1 1 1 1 1 1 11 1 501: CE^^00D,IOCSRELAR9-1,0-6&IOCSXAL,R,^'05B2919^ZA^^^00C,0-1&IOCSXAL,IOCSXAT,^GET^R/L^ADDR^'04A2920^BCE 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ^^00D,IOCSPICK,0-6&IOCSXAL,,^'03H2921^ZA^^^00C,36&IOCSXAT,IOCSXAT,^'02H2922^B^^^^00B,IOCSPICK,^'02?2 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 701: 923RNOPWM00B,,^'04?2924^B^^^^00BIOCSRELAR9,IOCSRESEK1,^'03?2925^B^^^^00B,IOCSCSNENT,^'02F2926^BOOL^0 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: 0?Q,)069,,^'05A2927^ZA^^^00CIOCS2ADD,IOCSCS2SKL,0-17&IOCSXAT,^'03H2928^ZA^^^00C,IOCSXAT,IOCSCS2SKL,^ 1 11 11 1 1 1 1 1 11 1 1 1 1 1 901: '02I2929^SW^^^00B,IOCSCS2S2,^'03?2930^B^^^^00B,IOCSRELAR5,^'02F2931QBOOL^00?Q,)031,,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 096?05C2932^ROUTI00B*,NE^FOR^SEQUENTIAL^ARM^SCHEDULING,^'02G2933^BOOL^00?R,-)045,,^'05?2934^SBR^^00B 1 1 1 1 1 1 11 1 1 1 11 11 1 1 101: IOCSSRELAR,IOCSSPECX&5,^SAVE^RTN^'05B2935RBCE^^00DIOCSSRELAA,IOCSSPECX,36&IOCSXRL,1,^'03I2936^MLNA^0 1 1 11 1 1 1 1 1 1 11 1 1 201: 0C,9&IOCSXRL,IOCSSPHLD,^'03G2937^ZA^^^00C,9&IOCSXRL,IOCSXAT,^'05E2938^BCE^^00D,IOCSSPECX,21&IOCSXAT, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 301: 9,^BR^IF^NO^ARM^'04D2939^S^^^^00B,IOCSSKCHK,^PREPARE^SK^CHK^'04B2940^ZA^^^00C,26&IOCSXAL,IOCSSKCHK-2 1 11 1 1 1 1 11 1 1 1 1 401: ,^'04B2941^BCE^^00D,IOCSSKON,IOCSSKCHK-2,?,^'05H2942^A^^^^00CIOCSNOWIO,&21,IOCSXAL,^ADJ^HLD^AREA^ADD 1 11 1 1 1 1 1 1 11 1 1 1 1 1 501: R^'04?2943^MLCS^00C,21&IOCSXAT,0&IOCSXAL,^'04?2944^MLNA^00C,IOCSXAL,IOCSIOSTUP-1,^'04D2945^MLCA^00C, 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 601: 0-7&IOCSXAL,IOCSIOSTUP-6,^'04B2946^MLCS^00C,0-6&IOCSXAL,IOCSIOSTUP,^'03C2947^A^^^^00C,&21,IOCSSPHLD, 1 1 11 1 1 1 1 1 11 1 1 1 1 1 701: ^'03A2948^BOOL^00?R,)069*)059,,^'05C2949^BCE^^00D,IOCS2NOWDK,12&IOCSXAT,*,^IF^CHAN^2^'02G2950RBOOL^0 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 801: 0?R,-)059,,^'03?2951^B^^^^00B,IOCS2NOWDK,^'02F2952RBOOL^00?R,)059,,^'06B2953^BW^^^00CIOCS1NOWDK,IOCS 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: 1DKCMP,IOCS1DIO,^BR^IF^DSK^IO^'02I2954^B^^^^00B,IOCSENTRY,^' 1 1 11 1 1 1 1 1 1: 099?04D2955^BXPA^00B,IOCS1NOWDK,^TO^TEST^AGAIN^'05?2956^C^^^^00CIOCS1DKCMP,IOCS1DIO&8,IOCSSPHLD,^'03 1 1 1 1 1 1 11 1 1 1 1 1 11 101: C2957^BU^^^00B,IOCS1NOWDK&12,^'04C2958^MLCWA00C,IOCSIOSTUP,IOCS1ALTIO&9,^'04C2959^B^^^^00B,IOCSCS1FN 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: T,^TO^C^S^FORCE^'02C2960^BXPA^00B,*&1,^'03E2961RA^^^^00C,&28,IOCSSPECX&5,^'04D2962^B^^^^00BIOCSSPECX 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 301: ,0,^TO^FILE^SCHED^'03D2963^DCW^^00BIOCSSPHLD,00000,^'03A2964^BOOL^00?R,)059*)031,,^'04B2965^SBR^^00B 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 401: IOCSCS1FNT,IOCSINTEXT&5,^'03E2966^MLCA^00C,IOCSCS1PR&5,*&6,^'02A2967^BXPA^00B,0,^'03F2968^SBR^^00BIO 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: CS1EOCY,IOCSXRL,^'04C2969^CW^^^00C,IOCS1NOWDK&1,IOCS1ALTIO,^'03B2970^SAR^^00B,IOCSINTEXT&5,^'03H2971 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^CW^^^00C,1&IOCSXRL,IOCS1DIO,^'02?2972^B^^^^00B,,^'03A2973RBOOL^00?R,)069*)031,,^'04B2974^SBR^^00BIO 1 1 1 1 11 1 1 11 11 1 1 1 11 11 1 1 701: CSCS2FNT,IOCSINTEXT&5,^'03E2975^MLCA^00C,IOCSCS2PR&5,*&6,^'02A2976^BXPA^00B,0,^'03F2977^SBR^^00BIOCS 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: 2EOCY,IOCSXRL,^'04C2978^CW^^^00C,IOCS2NOWDK&1,IOCS2ALTIO,^'03B2979^SAR^^00B,IOCSINTEXT&5,^'03H2980^C 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: W^^^00C,1&IOCSXRL,IOCS2DIO,^'02?2981^B^^^^00B,,^'04A2982RM^^^^00CIOCSSKON,&25,IOCSSKCHK,^' 1 1 1 1 11 1 1 11 11 1 1 1 1 1 1 1: 097H03H2983^C^^^^00C,IOCSSKCHK,IOCSZERO,^'04D2984^BE^^^00B,IOCSSPECX,^CANT^GET^ROTAT^'02I2985^B^^^^0 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: 0B,IOCSNOWIO,^'02F2986^BOOL^00?Q,)069,,^'06C2987^BW^^^00CIOCS2NOWDK,IOCS2DKCMP,IOCS2DIO,^BR^IF^NOW^D 1 1 11 1 1 1 11 11 1 1 1 1 1 201: SK^'03B2988^CW^^^00B,IOCS2DKCMP-6,^'03B2989^SAR^^00B,IOCSINTEXT&5,^'03?2990^B^^^^00B,IOCSCS2ENT,^'04 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 301: D2991^BXPA^00B,IOCS2NOWDK,^TO^TEST^AGAIN^'05?2992^C^^^^00CIOCS2DKCMP,IOCS2DIO&8,IOCSSPHLD,^'03C2993^ 1 1 1 1 11 1 1 1 1 1 11 1 401: BU^^^00B,IOCS2NOWDK&12,^'04C2994^MLCWA00C,IOCSIOSTUP,IOCS2ALTIO&9,^'03I2995^B^^^^00B,IOCSCS2FNT,^TO^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: FORCE^'03B2996^BXPA^00B,IOCSSPECX-11,^'04D2997QDISK^00B*,ARM^LIST^SEARCH^ROUTINE,^'05C2998^SBR^^00BI 11 1 1 1 1 11 1 1 1 1 11 1 1 601: OCSRSERRC,IOCSLUEXIT&5,^STORE^RETN^'04?2999^MLCS^00C,1&IOCSXAL,IOCSCUCELL,^'02C3000^MLCS^00B,@*@,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 11 701: 3H3001^BBE^^00D,*&13,0-9&IOCSXAL,-,^'03G3002^MLZS^00C,*-10,IOCSCUCELL-1,^'05A3003^BCE^^00D,*&8,0&IOC 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: SXAL,1,^1302^ENSURE^ARM^'04B3004^B^^^^00B,*&13,^1302^IND^OVER^MOD^'04I3005^MLZS^00C,*-11,IOCSCUCELL, 1 1 11 1 1 1 1 11 1 1 1 1 1 901: ^1302^IF^ARM^1^'06B3006^LE^^^00CIOCSLUBAK,IOCSCUCELL,IOCSUNIT,^SERCH^FOR^ARM^' 11 1 1 1 1 1 1 1: 099B04E3007^SBR^^00B,IOCSXRL,^SRCH^STOPPED^HERE^'03A3008^BE^^^00BIOCSLUEXIT,0,^'05E3009^ZA^^^00C,&IO 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: CSUNIT,IOCSXRL,^SRCH^FOR^EMTY^SLO^'05D3010^BBE^^00D,IOCSINSRT,0-1&IOCSXRL,@,^BR^IF^FULL^'05B3011^MLC 1 1 11 1 1 1 1 1 1 11 1 201: A^00C,IOCSCUCELL,0&IOCSXRL,^ASSIGN^SLOT^'02I3012^B^^^^00B,IOCSLUBAK,^'05?3013^S^^^^00CIOCSINSRT,&12, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 301: IOCSXRL,^CONT^SRCH^'02D3014^B^^^^00B,*-48,^'02C3015^DCW^^00B,@"@,^'02I3016^EQU^^00BIOCSDUMY,*,^'03G3 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 017^MATH^00?,)049-00020,)195,,,^'06B3018^DCW^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B30 1 1 1 1 111 11 1 1 1 1 11 1 501: 19^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B3020^^^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1 1 601: ^^^^^^^^^^^^^^^@,^'06B3021^^^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B3022^^^^^^00B,@^ 1 11 1 1 1 1 11 1 1 1 701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B3023^^^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1 1 1 801: ^@,^'02F3024^BOOL^00?Q,)195,,^'03G3025^MATH^00?,)049-00030,)195,,,^'06B3026^DC^^^00B,@^^^^^^^^^^^^^^ 1 11 1 1 1 11 11 1 1 1 1 1 111 11 1 1 1 901: ^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B3027^^^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^' 1 11 1 1 1 1 1 1: 098H06B3028^^^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F3029^BOOL^00?Q,)195,,^'03G3030^ 1 1 1 1 1 1 11 1 1 1 11 11 1 101: MATH^00?,)049-00036,)195,,,^'06B3031^DC^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'06B3032^^ 1 1 1 1 111 11 1 1 1 1 11 1 201: ^^^^00B,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02F3033^BOOL^00?Q,)195,,^'06B3034^DC^^^00B,@^^^ 1 1 1 11 1 1 1 11 11 1 1 1 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,^'02H3035QORG^^00B,IOCSDUMY,^'02G3036^DA^^^00B,)049X12,^'02C3 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 037^^^^^^00C,1,1,^'02C3038^^^^^^00C,6,6,^'02E3039^^^^^^00C,11,11,^'03A3040^EQU^^00BIOCSUNIT,*-1,^'02 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 501: F3041^BOOL^00?Q,)069,,^'05A3042^CHANN00B*,EL^2^DISK^READ/WRITE^SCHEDULER,^'06C3043^ZA^^^00CIOCS2DISK 1 1 1 11 11 1 1 1 1 11 1 1 601: ,IOCS2RWLAD,IOCSXAL,^SRCH^RD/WR^LIST^'04E3044^ZA^^^00CIOCS2RWRQ1,IOCSXAL,IOCSXAT,^'02I3045^ZA^^^00B, 1 1 1 11 1 1 1 1 1 11 1 1 1 701: IOCS2RWRQ,^'02C3046^BZ^^^00B,*&8,^'02C3047^B^^^^00B,*&7,^'02I3048^CW^^^00B,IOCSCS2S4,^'04?3049^ZA^^^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 00C,0-17&IOCSXAT,IOCSXAL,^'02F3050^BOOL^00?R,)053,,^'02?3051^NOP^^00B,,^'04?3052^BZ^^^00BIOCS2SKCMP, 1 1 1 1 11 1 1 1 11 11 1 1 11 11 1 1 1 901: IOCSRL2PSC,^'04D3053^CW^^^00B,IOCS2SKCMP,^ENTRY^PRESENT^'03A3054RBZ^^^00B,IOCSCS2S4&7,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 095D02F3055SBOOL^00?R,)040,,^'05I3056^BCE^^00D,IOCSIONOP,0-7&IOCSXAL,1,^TEST^SINGLE^RCD^'03E3057RMU^ 1 1 1 1 1 11 11 1 1 1 1 1 1 11 1 101: ^^00D,*F0,0&IOCSXAL,Q,^'03?3058^BCB2^00B,IOCS2RWRQ1,^'02F3059^BOOL^00?R,)053,,^'03I3060^SW^^^00B,IOC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 201: S2SKCMP,^RESET^SW^'02C3061RBA2^^00B,*&1,^'06B3062^ZA^^^00C,0-17&IOCSXAL,0-17&IOCSXAT,^REMOVE^FROM^LI 1 11 1 1 1 1 11 1 1 1 1 1 301: ST^'05C3063^MLCA^00C,0-6&IOCSXAL,IOCS2DIO&9,^SET^UP^I/O^'03H3064^MLNA^00C,IOCSXAL,IOCS2DIO&8,^'04B30 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 65^MLCWA00C,0-7&IOCSXAL,IOCS2DIO&3,^'05I3066^BBE^^00D,IOCS2DSK,0-16&IOCSXAL,2,^BR^IF^SEEK^ONLY^'05F3 1 1 1 1 11 1 1 1 1 1 1 11 1 501: 067^MLZS^00C,0-16&IOCSXAL,IOCSBA2&6,^SET^ERROR^CHK^'04?3068^RDO^^00CIOCS2DIO,2,0,^I/O^INST^'02F3069^ 1 1 1 1 11 1 1 1 1 1 11 1 601: BOOL^00?R,)052,,^'04H3070^BBE^^00D,*&13,IOCS2DIO&9,-,^BR^IF^READ^'06B3071^BBE^^00D,IOCS2WDCK,0-16&IO 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 701: CSXAL,4,^BR^IF^WR^CHK^REQD^'04D3072RBW^^^00CIOCS2BAK,*&8,IOCSCS2SCN&1,^'03?3073^BOL2^00B,IOCSCS2RET, 1 1 11 1 1 1 1 1 11 1 1 1 1 801: ^'03F3074^BA2^^00BIOCSBA2,IOCSDKERR,^'02C3075^BA2^^00B,*&1,^'02F3076^BOOL^00?R,)031,,^'02?3077^NOPWM 11 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 901: 00B,,^'04G3078^RDO^^00CIOCS2ALTIO,2,0,^ALTERNATE^I/O^' 1 11 11 1 1 1 1 1 1 1: 096B06?3079RMLCB^00CIOCS2DSK,IOCS2DIO&8,IOCSXAL,^SAVE^I/O^ADDR^'02F3080^BOOL^00?R,)031,,^'06A3081^ML 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: CWB00C,IOCS2ALTIO&9,IOCS2DIO&9,^PUT^ALT^I/O^IN^I/^'03I3082^BW^^^00C,IOCS2ARMST,IOCS2DIO,^'02H3083RB^ 1 1 1 1 11 1 1 1 1 1 11 1 201: ^^^00B,IOCSDISK,^'03A3084^BOOL^00?Q,)052*)069,,^'06C3085^MLCA^00CIOCS2WDCK,IOCS2DIO&9,IOCS2WDCIO&9,^ 1 1 1 11 1 1 1 11 11 1 1 1 1 1 301: SET^UP^WDC^'03F3086^MLCS^00C,@3@,IOCS2WDCIO&3,^'03F3087^BW^^^00C,*&8,IOCSCS2SCN&1,^'04E3088^BOL2^00B 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 401: ,IOCSCS2RET,^BR^IF^I/O^TOOK^'03C3089^BA2^^00B,*&1,^CLR^INTLK^'03C3090^WDO^^00CIOCS2WDCIO,2,0,^'02F30 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 501: 91^BOOL^00?R,)031,,^'03H3092^BW^^^00C,IOCSBA2,IOCS2ALTIO,^'02H3093RB^^^^00B,IOCS2BAK,^'02F3094QBOOL^ 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 601: 00?Q,)059,,^'05A3095^CHANN00B*,EL^1^DISK^READ/WRITE^SCHEDULER,^'06C3096^ZA^^^00CIOCS1DISK,IOCS1RWLAD 1 1 11 11 1 1 1 1 11 1 1 1 701: ,IOCSXAL,^SRCH^RD/WR^LIST^'04E3097^ZA^^^00CIOCS1RWRQ1,IOCSXAL,IOCSXAT,^'02I3098^ZA^^^00B,IOCS1RWRQ,^ 1 1 11 1 1 1 1 1 11 1 1 1 1 801: '02C3099^BZ^^^00B,*&8,^'02C3100^B^^^^00B,*&7,^'02I3101^CW^^^00B,IOCSCS1S4,^'04?3102^ZA^^^00C,0-17&IO 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 901: CSXAT,IOCSXAL,^'02F3103^BOOL^00?R,)053,,^'02?3104^NOP^^00B,,^' 1 1 11 1 1 1 11 11 1 1 11 1 1: 097I04?3105^BZ^^^00BIOCS1SKCMP,IOCSRL1PSC,^'04D3106^CW^^^00B,IOCS1SKCMP,^ENTRY^PRESENT^'03A3107RBZ^^ 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^00B,IOCSCS1S4&7,^'02F3108SBOOL^00?R,)040,,^'06B3109^BCE^^00D,IOCSIONOP,0-7&IOCSXAL,1,^TEST^SINGLE^R 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 201: ECORD^'03E3110RMU^^^00D,@F0,0&IOCSXAL,Q,^'03?3111^BCB1^00B,IOCS1RWRQ1,^'02F3112^BOOL^00?R,)053,,^'03 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 301: I3113^SW^^^00B,IOCS1SKCMP,^RESET^SW^'02C3114RBA1^^00B,*&1,^'06B3115^ZA^^^00C,0-17&IOCSXAL,0-17&IOCSX 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: AT,^REMOVE^FROM^LIST^'05C3116^MLCA^00C,0-6&IOCSXAL,IOCS1DIO&9,^SET^UP^I/O^'03H3117^MLNA^00C,IOCSXAL, 1 11 1 1 1 1 1 11 1 1 1 1 501: IOCS1DIO&8,^'04B3118^MLCWA00C,0-7&IOCSXAL,IOCS1DIO&3,^'05I3119^BBE^^00D,IOCS1DSK,0-16&IOCSXAL,2,^BR^ 1 11 1 1 1 1 1 11 1 1 1 1 1 1 601: IF^SEEK^ONLY^'05F3120^MLZS^00C,0-16&IOCSXAL,IOCSBA1&6,^SET^ERROR^CHK^'04?3121^RDO^^00CIOCS1DIO,1,0,^ 11 1 1 1 1 1 11 1 1 1 1 1 701: I/O^INST^'02F3122^BOOL^00?R,)052,,^'04H3123^BBE^^00D,*&13,IOCS1DIO&9,-,^BR^IF^READ^'06B3124^BBE^^00D 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 801: ,IOCS1WDCK,0-16&IOCSXAL,4,^BR^IF^WR^CHK^REQD^'04D3125RBW^^^00CIOCS1BAK,*&8,IOCSCS1SCN&1,^'03?3126^BO 1 1 1 1 11 1 1 1 1 1 11 1 901: L1^00B,IOCSCS1RET,^'03F3127^BA1^^00BIOCSBA1,IOCSDKERR,^'02C3128^BA1^^00B,*&1,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099H02F3129^BOOL^00?R,)031,,^'02?3130^NOPWM00B,,^'04G3131^RDO^^00CIOCS1ALTIO,1,0,^ALTERNATE^I/O^'06? 1 1 1 1 1 11 11 1 1 11 11 1 1 1 1 1 11 101: 3132RMLCB^00CIOCS1DSK,IOCS1DIO&8,IOCSXAL,^SAVE^I/O^ADDR^'02F3133^BOOL^00?Q,)031,,^'06A3134^MLCWB00C, 1 1 1 1 1 11 1 1 1 11 11 1 1 1 201: IOCS1ALTIO&9,IOCS1DIO&9,^PUT^ALT^I/O^IN^I/^'03I3135^BW^^^00C,IOCS1ARMST,IOCS1DIO,^'04?3136QEND^O00B* 1 1 11 1 1 1 1 1 11 1 1 301: ,F^OPERATION^ROUTINE,^'04D3137^MLCA^00CIOCSDISK,@0@,0-15&IOCSXAL,^'03A3138^BOOL^00?Q,)030*)039,,^'05 1 1 11 1 1 1 1 1 11 1 1 1 11 11 401: G3139^BBE^^00D,IOCSDISK1,0-16&IOCSXAL,1,^BR^IF^RANDOM^'03B3140QBOOL^00?Q,)030*-)039,,^'04D3141^BBE^^ 1 1 1 1 1 1 11 1 1 1 11 11 1 501: 00D,IOCSENDWT,0-16&IOCSXAL,1,^'03I3142QMLCA^00C,0-1&IOCSXAL,IOCSXRL,^'02I3143^CW^^^00B,0&IOCSXRL,^'0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 601: 3?3144^B^^^^00B,IOCSRELAR2,^'03A3145^BOOL^00?Q,)052*)059,,^'06C3146^MLCA^00CIOCS1WDCK,IOCS1DIO&9,IOC 1 1 1 1 11 1 1 1 11 11 1 1 1 1 701: S1WDCIO&9,^SET^UP^WDC^'03F3147^MLCS^00C,@3@,IOCS1WDCIO&3,^'03F3148^BW^^^00C,*&8,IOCSCS1SCN&1,^'04E31 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 801: 49^BOL1^00B,IOCSCS1RET,^BR^IF^I/O^TOOK^'03C3150^BA1^^00B,*&1,^CLR^INTLK^'03C3151^WDO^^00CIOCS1WDCIO, 1 1 1 11 1 1 1 1 11 1 1 1 901: 1,0,^'02F3152^BOOL^00?R,)031,,^'03H3153^BW^^^00C,IOCSBA1,IOCS1ALTIO,^'02H3154RB^^^^00B,IOCS1BAK,^' 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 1 1: 098G02F3155QBOOL^00?Q,)039,,^'05C3156^BBE^^00DIOCSDISK1,IOCSDISK2,0-16&IOCSXAL,2,^'04C3157^BBE^^00D, 1 1 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 101: IOCSENDWT,0-6&IOCSXAL,6,^'04B3158^ZA^^^00C,IOCSREADY,0-17&IOCSXAL,^'03G3159^ZA^^^00C,IOCSXAL,IOCSREA 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: DY,^'03?3160^B^^^^00B,IOCSCSNENT,^'04H3161^ZA^^^00CIOCSDISK2,0-1&IOCSXAL,IOCSXAT,^'03E3162^ZA^^^00C, 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: IOCSXAL,IOCSXRL,^'03A3163^S^^^^00C,&37,IOCSXRL,^'03?3164^B^^^^00B,IOCSPICK10,^'02F3165QBOOL^00?Q,)03 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 401: 0,,^'05F3166^MLCS^00CIOCSENDWT,@^@,0-6&IOCSXAL,^CLEAR^D^MOD^'03?3167^B^^^^00B,IOCSRELAR2,^'02F3168QB 11 11 1 1 1 1 1 11 1 1 1 1 11 1 501: OOL^00?Q,)040,,^'06A3169^^^^^^00B*,ISSUE^IONOP^FOR^SINGLE^RECORD^OPERATIONS,^'04H3170^SBR^^00BIOCSIO 1 1 11 11 1 1 1 1 11 1 1 601: NOP,IOCSIONOPX&5,^RETURN^'05F3171^MLCA^00C,0-8&IOCSXAL,IOCSIONOPA&2,^INSTRUCTION^'05A3172^MLCA^00C,0 1 1 11 1 1 1 1 1 11 1 1 1 701: -11&IOCSXAL,IOCSIONOPC-2,^TRACK^'05G3173^MLCB^00C,1&IOCSXAL,IOCSIONOPC-6,^1302^MOD^,^ARM^'04H3174^MU 1 1 11 1 1 1 1 1 11 1 801: ^^^00DIOCSIONOPA,@F0,IOCSIONOPC-7,Q,^'05?3175^A^^^^00C,&10,IOCSIONOPX&5,^MODIFY^RETURN^'03H3176^B^^^ 1 1 1 1 1 11 1 1 1 1 1 11 1 901: ^00BIOCSIONOPX,0,^RETURN^'03H3177^DCW^^00BIOCSIONOPC,00000000,^'02C3178^DCW^^00B,@"@,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099A02F3179QBOOL^00?Q,)059,,^'04A3180^L^1^S00B***^CHANNE,EEK^ROUTINE,^'04G3181^ZA^^^00CIOCS1SEEK,IOC 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 101: SCS1SKL,IOCSXAL,^'02I3182^BZ^^^00B,IOCS1SKCW,^'04C3183^ZA^^^00C,0-17&IOCSXAL,IOCSCS1SKL,^'02F3184^BO 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: OL^00?R,)040,,^'04D3185^BCE^^00D,IOCSCSSNGL,0-7&IOCSXAL,1,^'03A3186RSDO^^00C,1,0&IOCSXAL,^'03A3187^B 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 301: OOL^00?R,)040*)053,,^'02D3188^BCB1^00B,*-28,^'03B3189RBOOL^00?R,-)040*)053,,^'02D3190^BCB1^00B,*-16, 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: ^'03?3191RBA1^^00B,IOCS1SKERR,^'05B3192^ZA^^^00CIOCSCS1DKS,IOCS1RWRQ,0-17&IOCSXAL,^'03G3193^ZA^^^00C 11 1 1 1 1 11 1 1 1 1 1 11 1 1 501: ,IOCSXAL,IOCS1RWRQ,^'02I3194^SW^^^00B,IOCSCS1S4,^'03?3195^B^^^^00B,IOCSCS1ENT,^'03H3196^CW^^^00BIOCS 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: 1SKCW,IOCSCS1S2,^'03A3197^B^^^^00B,IOCSCS1S2&7,^'02F3198QBOOL^00?Q,)069,,^'04A3199^L^2^S00B***^CHANN 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 701: E,EEK^ROUTINE,^'04G3200^ZA^^^00CIOCS2SEEK,IOCSCS2SKL,IOCSXAL,^'02I3201^BZ^^^00B,IOCS2SKCW,^'04C3202^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 801: ZA^^^00C,0-17&IOCSXAL,IOCSCS2SKL,^'02F3203^BOOL^00?R,)040,,^'04D3204^BCE^^00D,IOCSCSSNGL,0-7&IOCSXAL 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: ,1,^'03A3205RSDO^^00C,2,0&IOCSXAL,^'03A3206^BOOL^00?R,)040*)053,,^'02D3207^BCB2^00B,*-28,^' 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099B03B3208RBOOL^00?R,-)040*)053,,^'02D3209^BCB2^00B,*-16,^'03?3210RBA2^^00B,IOCS1SKERR,^'05B3211^ZA 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 101: ^^^00CIOCSCS2DKS,IOCS2RWRQ,0-17&IOCSXAL,^'03G3212^ZA^^^00C,IOCSXAL,IOCS2RWRQ,^'02I3213^SW^^^00B,IOCS 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: CS2S4,^'03?3214^B^^^^00B,IOCSCS2ENT,^'03H3215^CW^^^00BIOCS2SKCW,IOCSCS2S2,^'03A3216^B^^^^00B,IOCSCS2 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 301: S2&7,^'02G3217QBOOL^00?Q,-)045,,^'03I3218^SBR^^00BIOCSGETS,IOCSGETEX&5,^'03A3219QBXPA^00BIOCSRGET,*& 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 401: 1,^'03E3220^S^^^^00C,&14,IOCSGETEX&5,^'02F3221^BOOL^00?Q,)039,,^'03G3222^ZA^^^00C,IOCSHOLDS,IOCSXAL, 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 501: ^'04?3223^BZ^^^00B,*&21,^T^ST^GETS^PATCH^'04E3224^S^^^^00B,IOCSHOLDS,^T^ST^GETS^PATCH^'03?3225^B^^^^ 11 1 1 1 1 11 1 1 1 1 11 1 601: 00B,IOCSRELAR8,^'02C3226^BXPA^00B,*&1,^'03G3227^ZA^^^00C,IOCSREADY,IOCSXAL,^'03H3228^BZ^^^00BIOCSRGE 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: T1,IOCSGETEX,^'03?3229^B^^^^00B,IOCSRELAR8,^'02C3230^BXPA^00B,*&1,^'04?3231^ZA^^^00C,0-17&IOCSXAL,IO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 801: CSXAL,^'02I3232^B^^^^00B,IOCSRGET1,^'03?3233QBEPA^00BIOCSGETEX,0,^'03D3234^DCW^^00BIOCSCUCELL,@@0@,^ 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: '03G3235^DCW^^00B^IOCSISAVE,@^^^^^@,^'02G3236^^^^^^00B,@^^^^^@,^'02G3237^^^^^^00B,@^^^^^@,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 097H02C3238^^^^^^00B,@"@,^'03G3239^DCW^^00B^IOCSIREST,@^^^^^@,^'02G3240^^^^^^00B,@^^^^^@,^'02G3241^^ 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: ^^^^00B,@^^^^^@,^'02C3242^^^^^^00B,@"@,^'02F3243^BOOL^00?Q,)059,,^'03E3244^DCW^^00BIOCSCS1SKL,00000, 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: ^'02F3245QBOOL^00?Q,)069,,^'03E3246^DCW^^00BIOCSCS2SKL,00000,^'02F3247QBOOL^00?Q,)031,,^'03D3248^DCW 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 301: ^^00BIOCSSKCHK,00000,^'03A3249^DCW^^00BIOCSZERO,&00,^'02F3250QBOOL^00?Q,)059,,^'03D3251^DCW^^00BIOCS 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 401: 1RWRQ,00000,^'02F3252QBOOL^00?Q,)069,,^'03D3253^DCW^^00BIOCS2RWRQ,00000,^'02F3254QBOOL^00?Q,)059,,^' 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 501: 04C3255^^^^^^00BIOCS1RWLAD,&IOCS1RWRQ&17,^'02F3256QBOOL^00?Q,)069,,^'04C3257^^^^^^00BIOCS2RWLAD,&IOC 1 1 1 1 1 11 1 1 1 11 11 1 1 1 601: S2RWRQ&17,^'02F3258QBOOL^00?Q,)030,,^'03D3259^DCW^^00BIOCSREADY,00000,^'02F3260QBOOL^00?Q,)031,,^'02 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 701: F3261^BOOL^00?R,)059,,^'04?3262^CW^^^00BIOCS1ARMST,IOCS1ALTIO,^'03?3263^B^^^^00B,IOCSRSERRC,^'04D326 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 801: 4^MLCB^00C,IOCS1ALTIO&8,0-5&IOCSXRL,^'05C3265^BCE^^00D,*&13,0&IOCSXAL,0,^1302^BR^IF^ARM^0^'05D3266^M 1 1 1 1 11 1 1 1 1 1 1 11 1 901: LZS^00C,*-11,1&IOCSXAL,^1302^RSTR^ARM^1^IND^'03C3267^MLCS^00C,@9@,0&IOCSXAL,^' 1 1 1 1 11 1 1 1 1 1 1 1: 098A03A3268^B^^^^00B,IOCS1DIO&10,^'02F3269RBOOL^00?R,)069,,^'04?3270^CW^^^00BIOCS2ARMST,IOCS2ALTIO,^ 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: '03?3271^B^^^^00B,IOCSRSERRC,^'04D3272^MLCB^00C,IOCS2ALTIO&8,0-5&IOCSXRL,^'05C3273^BCE^^00D,*&13,0&I 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: OCSXAL,0,^1302^BR^IF^ARM^0^'05C3274^MLZS^00C,*-11,1&IOCSXAL,^1302^RSTR^ARM1^IND^'03C3275^MLCS^00C,@9 1 1 11 1 1 1 1 1 11 1 1 1 301: @,0&IOCSXAL,^'03A3276^B^^^^00B,IOCS2DIO&10,^'04?3277RDCW^^00BIOCSIOSTUP,0000000000,^'03?3278QEQU^^00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: BIOCSXAT,X15,^'03?3279^EQU^^00BIOCSXAL,X14,^'03?3280^EQU^^00BIOCSXRL,X13,^'03D3281^DISK^00B*,ERROR^R 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 501: OUTINE,^'04F3282^SBR^^00BIOCSDKERR,IOCSXAT,^SAVE^RETN^'02F3283^BOOL^00?Q,)069,,^'02E3284^BOOL^00?R,) 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 601: 059,^'04A3285^MLCS^00C,0-7&IOCSXAT,IOCSBEXOP,^'03F3286^BCE^^00D,*&13,IOCSBEXOP,R,^'02E3287RBOOL^00?Q 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 701: ,#103,^'03H3288^MLNA^00C,IOCSXAT,IOCSWTGX&5,^'03?3289^BOL1^00B,IOCSLMWTGR,^'02?3290^BOPR100B,,^'02F3 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 11 11 1 801: 291QBOOL^00?Q,)052,,^'04F3292^MLCA^00C,0-51&IOCSXAT,IOCSERRFLD&19,^'04?3293^MLCB^00C,0-52&IOCSXAT,IO 1 1 11 11 1 1 1 1 1 11 1 1 1 1 901: CSXAL,^'02G3294^BOOL^00?R,-)052,,^'04F3295QMLCA^00C,0-27&IOCSXAT,IOCSERRFLD&19,^' 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 097?04?3296^MLCB^00C,0-28&IOCSXAT,IOCSXAL,^'04C3297RMLCA^00C,7&IOCSXAL,IOCSERRFLD&28,^'02?3298^MLCA^ 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: 00B,,^'02F3299^BOOL^00?Q,)040,,^'04C3300^MLCB^00C,0-11&IOCSXAL,IOCSERHLDB,^'04D3301QMLCA^00C,@40100^ 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 201: NR^@,IOCSERRFLD&8,^'03A3302^BOOL^00?Q,)059*)069,,^'02G3303^B^^^^00B,IOCSBEX,^'03?3304^BNR1^00B,IOCSE 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: RRMSG,^'02G3305^B^^^^00B,IOCSBEX,^'02I3306^BER1^00B,IOCS1NTCK,^'02G3307^B^^^^00B,IOCSBEX,^'02H3308^B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: EF1^00B,IOCS1NMF,^'02G3309QBOOL^00?Q,-)059,,^'03?3310^BNR2^00B,IOCSERRMSG,^'02I3311^BER2^00B,IOCS1NT 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 501: CK,^'02H3312^BEF2^00B,IOCS1NMF,^'02G3313QBOOL^00?Q,-)069,,^'03?3314^BNR1^00B,IOCSERRMSG,^'02I3315^BE 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 601: R1^00B,IOCS1NTCK,^'02H3316^BEF1^00B,IOCS1NMF,^'04A3317QMLCA^00C,@53^WLR@,IOCSERRFLD&8,^'04D3318^BCE^ 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: ^00D,IOCSRETRY,0-15&IOCSXAL,0,^'05D3319^MLCB^00CIOCSERRMSG,IOCSERRFLD&26,IOCSERHLDA,^'04?3320^MRCWG0 1 1 1 1 1 11 1 1 1 1 1 11 1 1 801: 0C,IOCSERRFLD,IOCSERFLD,^'03F3321^MLCA^00C,@0@,0-15&IOCSXAL,^'02H3322^B^^^^00B,IOCSHALT,^'04?3323^BC 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: E^^00D,IOCSPRCS,IOCSREPLY,P,^'04?3324^BCE^^00D,IOCSSKIP,IOCSREPLY,S,^' 1 1 1 1 1 11 1 1 1 1 1 1 1 1: 097F04B3325^BCE^^00D,IOCSRESEEK,IOCSREPLY,R,^'03?3326^B^^^^00B,IOCSERRMSG,^'03?3327^EQU^^00BIOCS1NTC 1 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: K,*,^'03A3328^BOOL^00?Q,)059*)069,,^'02G3329^B^^^^00B,IOCSBEX,^'02F3330QBOOL^00?Q,)059,,^'02I3331^BN 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 201: T1^00B,IOCS1ACT4,^'02G3332^BOOL^00?R,-)059,,^'02I3333QBNT2^00B,IOCS1ACT4,^'04A3334RMLCA^00C,@17^CHC@ 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 301: ,IOCSERRFLD&8,^'04E3335^BBE^^00D,IOCSERRMSG,0-15&IOCSXAL,4,^'04D3336^A^^^^00CIOCSRETRY,&1,0-15&IOCSX 1 1 11 1 1 1 1 1 1 11 1 1 1 1 401: AL,^'03A3337^BOOL^00?Q,)031*)059,,^'04?3338^BW^^^00C,IOCS1EOCY,IOCS1ALTIO,^'03A3339QBOOL^00?Q,)031*) 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 501: 069,,^'04?3340^BW^^^00C,IOCS2EOCY,IOCS2ALTIO,^'02F3341QBOOL^00?Q,)052,,^'02F3342^BOOL^00?R,)031,,^'0 11 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 601: 3B3343^SW^^^00B,0-60&IOCSXAT,^'03B3344RB^^^^00B,0-60&IOCSXAT,^'02G3345^BOOL^00?R,-)052,,^'02F3346QBO 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: OL^00?Q,)031,,^'03B3347^SW^^^00B,0-36&IOCSXAT,^'03B3348QB^^^^00B,0-36&IOCSXAT,^'02I3349REQU^^00BIOCS 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 801: 1NMF,*,^'03A3350^BOOL^00?Q,)059*)069,,^'02G3351^B^^^^00B,IOCSBEX,^'02F3352QBOOL^00?Q,)059,,^'02H3353 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 901: ^BNT1^00B,IOCS1NRF,^'02G3354^BOOL^00?R,-)059,,^'02H3355QBNT2^00B,IOCS1NRF,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 099B04A3356RMLCA^00C,@50^CND@,IOCSERRFLD&8,^'03?3357^B^^^^00B,IOCSERRMSG,^'02I3358^EQU^^00BIOCS1NRF, 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: *,^'02F3359^BOOL^00?Q,)043,,^'04E3360^BCE^^00D,IOCSERRNRF,0-15&IOCSXAL,1,^'05C3361QBCE^^00DIOCS2NRF, 1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 201: IOCSINVAL1,0-15&IOCSXAL,4,^'04A3362^MLCA^00C,@51^NRF@,IOCSERRFLD&8,^'04E3363^BCE^^00D,IOCSERRMSG,0-1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: 5&IOCSXAL,8,^'02I3364^B^^^^00B,IOCSRETRY,^'02F3365^BOOL^00?Q,)043,,^'02F3366^BOOL^00?R,)045,,^'03I33 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 401: 67^B^^^^00BIOCSERRNRF,IOCSNRFEX,^'02G3368^BOOL^00?S,-)045,,^'03D3369RB^^^^00BIOCSERRNRF,)043,^'04A33 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 70SBCE^^00D,0&IOCSXAT,2&IOCSXAL,P,^'04?3371^BCE^^00D,IOCSSKIP,2&IOCSXAL,S,^'04C3372^C^^^^00C,IOCSERR 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 601: FLD&28,7&IOCSXAL,^'03?3373^BU^^^00B,IOCSRESEEK,^'04C3374^C^^^^00C,0-11&IOCSXAL,IOCSERHLDB,^'03?3375^ 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 701: BU^^^00B,IOCSRESEEK,^'02H3376^B^^^^00B,IOCS2NRF,^'04B3377QSBR^^00BIOCS1ACT4A,IOCSACTOUT&5,^'02I3378^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: B^^^^00B,IOCSACT4A,^'03G3379^B^^^^00BIOCS1ACT4,IOCSACT4,^'03A3380^BOOL^00?Q,)059*)069,,^'02G3381^B^^ 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 901: ^^00B,IOCSBEX,^'02F3382QBOOL^00?Q,)059,,^'02C3383^BA1^^00B,*&1,^'02G3384^BOOL^00?R,-)059,,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 11 1 1: 098G02C3385QBA2^^00B,*&1,^'03G3386RMLCS^00C,IOCSERRFLD&11,*&2,^'03G3387^MU^^^00D,@F0,IOCSERSEK-7,Q,^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 101: '03A3388^BOOL^00?Q,)059*)069,,^'02G3389^B^^^^00B,IOCSBEX,^'02D3390^BCB1^00B,*-23,^'03B3391QBOOL^00?Q 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 1 201: ,)059*-)069,,^'02D3392^BCB1^00B,*-16,^'03B3393QBOOL^00?Q,-)059*)069,,^'02D3394^BCB2^00B,*-16,^'03A33 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 301: 95QBOOL^00?Q,)059*)069,,^'02G3396^B^^^^00B,IOCSBEX,^'02F3397QBOOL^00?Q,)059,,^'02C3398^BA1^^00B,*&1, 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: ^'02G3399^BOOL^00?R,-)059,,^'02C3400QBA2^^00B,*&1,^'03E3401RA^^^^00C,&1,0-15&IOCSXAL,^'03A3402^BOOL^ 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 11 1 501: 00?Q,)031*)059,,^'04?3403^BW^^^00C,IOCS1EOCY,IOCS1ALTIO,^'03A3404QBOOL^00?Q,)031*)069,,^'04?3405^BW^ 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 601: ^^00C,IOCS2EOCY,IOCS2ALTIO,^'03A3406QBOOL^00?Q,)059*)069,,^'04C3407^BBE^^00D,IOCS2RAY4,0-7&IOCSXAT,2 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 701: ,^'03A3408^B^^^^00B,IOCSRAY4&12,^'03B3409QBOOL^00?Q,)069*-)059,,^'02I3410^B^^^^00B,IOCS2RAY4,^'03B34 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: 11QBOOL^00?Q,)059*-)069,,^'02H3412^B^^^^00B,IOCSRAY4,^'04E3413QA^^^^00CIOCSINVAL1,&1,0-15&IOCSXAL,^' 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1 901: 02I3414^B^^^^00B,IOCSINVAL,^'03A3415^BOOL^00?Q,)059*)069,,^'02G3416^B^^^^00B,IOCSBEX,^' 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097B02F3417QBOOL^00?Q,)059,,^'02C3418^BA1^^00B,*&1,^'02G3419^BOOL^00?R,-)059,,^'02C3420QBA2^^00B,*&1 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 101: ,^'03?3421RB^^^^00B,IOCS1ACT4A,^'03A3422^BOOL^00?Q,)059*)069,,^'02G3423^B^^^^00B,IOCSBEX,^'02F3424QB 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 201: OOL^00?Q,)059,,^'02D3425^BCB1^00B,*-20,^'02G3426^BOOL^00?R,-)059,,^'02D3427QBCB2^00B,*-20,^'03A3428R 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 301: B^^^^00B,IOCS1ACT4&7,^'04?3429^SBR^^00BIOCSACT4,IOCSACTOUT&5,^'04A3430^MLCA^00C,@52^ITN@,IOCSERRFLD& 1 1 1 11 1 1 1 1 11 1 1 1 1 401: 8,^'03H3431^BCE^^00D,*&8,0-15&IOCSXAL,0,^'03?3432^B^^^^00B,IOCSERRMSG,^'05B3433^MLCB^00CIOCSACT4A,IO 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 501: CSERRFLD&28,IOCSERSEK,^'03H3434^MLCA^00C,@0000@,IOCSERSEK-2,^'03G3435^MLCS^00C,IOCSERRFLD&11,*&2,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 3C3436^SD^^^00C,1,IOCSERSEK-7,^'03A3437^B^^^^00BIOCSACTOUT,0,^'04?3438^SBR^^00BIOCSINVAL,IOCSINOUT&5 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: ,^'04E3439^MLCB^00C,IOCSERRFLD&22,IOCSINSEK-6,^'03G3440^MLCS^00C,IOCSERRFLD&11,*&2,^'03C3441^SD^^^00 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 801: C,1,IOCSINSEK-7,^'03?3442^B^^^^00BIOCSINOUT,0,^'03A3443^BOOL^00?Q,)059*)069,,^'03H3444^SBR^^00BIOCSB 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 901: EX,IOCSBEXIT&5,^'02D3445^SBR^^00B,*&11,^'03A3446^MLCS^00C,IOCSBEXOP,0,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098A03?3447^B^^^^00BIOCSBEXIT,0,^'03G3448QSBR^^00BIOCS1SKERR,IOCSXAT,^'03A3449^BOOL^00?Q,#103*#104,, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 101: ^'03H3450^BCE^^00D,*&13,0-7&IOCSXAT,R,^'03H3451^MLNA^00C,IOCSXAT,IOCSWTGX&5,^'03?3452^BOL1^00B,IOCSL 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: MWTGR,^'02?3453^BOPR100B,,^'04A3454QMRCWG00C,IOCSSKMSG-9,IOCSERFLD,^'02H3455^B^^^^00B,IOCSNOTE,^'03B 1 11 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 301: 3456^BOOL^00?Q,)040*-)053,,^'03B3457^B^^^^00B,0-29&IOCSXAT,^'03C3458QBOOL^00?Q,-)040*-)053,,^'03B345 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 401: 9^B^^^^00B,0-17&IOCSXAT,^'03A3460QBOOL^00?Q,)040*)053,,^'03B3461^B^^^^00B,0-36&IOCSXAT,^'03B3462QBOO 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: L^00?Q,-)040*)053,,^'03B3463^B^^^^00B,0-24&IOCSXAT,^'03H3464QERROR00B*,^DECISION^ROUTINE,^'04H3465^C 1 1 11 11 1 1 1 1 11 1 1 1 1 11 1 601: ^^^^00CIOCSPRCS,5&IOCSXAL,IOCSERHLDA,^'03?3466^BU^^^00B,IOCSRESEEK,^'02F3467^BOOL^00?Q,)040,,^'04C34 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 701: 68^C^^^^00C,0-11&IOCSXAL,IOCSERHLDB,^'03?3469^BU^^^00B,IOCSRESEEK,^'02I3470QB^^^^00B,0&IOCSXAT,^'02F 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 801: 3471^BOOL^00?Q,)053,,^'02F3472^BOOL^00?R,)059,,^'04C3473^PSC^^00CIOCSRL1PSC,1,IOCSERSEK&1,^'02C3474^ 1 1 1 11 11 1 1 1 11 11 1 1 1 1 1 11 1 901: BA1^^00B,*&1,^'04C3475^REL^^00CIOCSRL1SYS,1,IOCSERSEK&1,^'02C3476^BA1^^00B,*&1,^' 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 099D03A3477^B^^^^00B,IOCSCS1S4&7,^'02F3478RBOOL^00?Q,)069,,^'04C3479^PSC^^00CIOCSRL2PSC,2,IOCSERSEK& 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: 1,^'02C3480^BA2^^00B,*&1,^'04C3481^REL^^00CIOCSRL2SYS,2,IOCSERSEK&1,^'02C3482^BA2^^00B,*&1,^'03A3483 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: ^B^^^^00B,IOCSCS2S4&7,^'04E3484QMLZS^00CIOCSSKIP,*-11,0-15&IOCSXAL,^'02I3485^B^^^^00B,0&IOCSXAT,^'03 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 301: A3486^EQU^^00BIOCSRESEEK,*,^'03A3487^BOOL^00?Q,)031*)059,,^'04?3488^BW^^^00C,IOCS1EOCY,IOCS1ALTIO,^' 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 401: 03A3489QBOOL^00?Q,)031*)069,,^'04?3490^BW^^^00C,IOCS2EOCY,IOCS2ALTIO,^'03?3491QSW^^^00B,IOCSRELAR9,^ 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 501: '03?3492^B^^^^00B,IOCSRELAR2,^'04?3493^CW^^^00BIOCSRESEK1,IOCSRELAR9,^'02G3494^B^^^^00B,IOCSRAY,^'03 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 601: A3495^EQU^^00BIOCSERRFLD,*,^'05C3496^DCW^^00C,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@,G,^'03E3497^DCW^^00BIO 1 1 1 1 11 1 1 1 1 1 11 1 1 701: CSERHLDA,00000,^'03D3498^DCW^^00BIOCSERHLDB,0000,^'03G3499^DCW^^00BIOCSERSEK,00000000,^'02C3500^^^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: ^00B,@"@,^'04A3501^^^^^^00BIOCSSKMSG,@10118^SKC^@,^'02C3502^^^^^^00B,@"@,^'03I3503^DCW^^00BIOCSINSEK 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 901: ,@009@ZERO@,^'02C3504^^^^^^00B,@"@,^'03D3505^^^^^^00BIOCSOPTN,@^^^^@,^'02C3506^^^^^^00B,@"@,^' 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 099F03A3507^BOOL^00?Q,)059*)069,,^'03B3508^^^^^^00BIOCSBEXOP,@^@,^'02F3509QBOOL^00?Q,)031,,^'04D3510 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 101: ^MLNA^00CIOCSDFCLOS,79&IOCSXAT,*&6,^'02A3511^B^^^^00B,0,^'03G3512^MLCB^00C,9&IOCSXAT,IOCSXAL,^'03?35 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: 13^SW^^^00B,29&IOCSXAT,^'04A3514^MLCA^00C,IOCSCLMSG,IOCSCLFLD&8,^'04C3515^MLCS^00C,22&IOCSXAL,IOCSCL 1 1 1 11 1 1 1 1 1 11 1 1 1 1 301: FLD&10,^'04C3516^MLCS^00C,12&IOCSXAL,IOCSCLFLD&12,^'04C3517^MLCA^00C,10&IOCSXAL,IOCSCLFLD&17,^'04C35 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: 18^MRCG^00C,23&IOCSXAL,IOCSCLFLD&19,^'03I3519^MRCWG00C,IOCSCLFLD,IOCSERFLD,^'02H3520^B^^^^00B,IOCSNO 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: TE,^'03?3521^B^^^^00B,IOCSEXITRU,^'04?3522^DCW^^00BIOCSCLMSG,@10125^EOF@,^'04G3523^DCW^^00B^IOCSCLFL 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: D,@^^^^^^^^^^^^^^^@,^'02G3524^DCW^^00B,@^^^^^@,^'02H3525^DCW^^00B,@^^^^^^@,^'02C3526^DCW^^00B,@"@,^' 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 701: 03A3527QBOOL^00?P,)030&)031,,^'03A3528^EQU^^00BIOCSDFOPEN,*,^'02F3529^BOOL^00?Q,)030,,^'02F3530^BOOL 1 1 1 1 11 11 1 1 1 1 11 1 1 1 11 11 1 801: ^00?R,)031,,^'03G3531^BBE^^00D,*&31,20&IOCSXAT,8,^'03H3532RMLCA^00C,@^^^^^@,49&IOCSXAT,^'03D3533^MLC 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 901: S^00C,@^@,37&IOCSXAT,^'03?3534^S^^^^00B,26&IOCSXAT,^'04C3535^S^^^^00B,9&IOCSXAT,^ZERO^CUR^AREA^' 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1: 095I05G3536^BCE^^00D,IOCSDFOPN2-11,20&IOCSXAT,6,^RAN.^INPUT^'02F3537^BOOL^00?R,)031,,^'04C3538^BCE^^ 1 1 1 1 1 1 1 1 11 1 1 1 11 11 1 101: 00D,IOCSDFOPN4,20&IOCSXAT,7,^'04A3539QMLCB^00C,66&IOCSXAT,50&IOCSXAT,^'04A3540^MLCB^00C,48&IOCSXAT,3 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: 2&IOCSXAT,^'03H3541^MLCA^00C,@^^^^&@,84&IOCSXAT,^'03G3542^BCE^^00D,*&46,20&IOCSXAT,8,^'03G3543^BCE^^ 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 301: 00D,*&34,21&IOCSXAT,1,^'04?3544^ZA^^^00C,4&IOCSXAT,84&IOCSXAT,^'04A3545^A^^^^00C,14&IOCSXAT,84&IOCSX 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 401: AT,^'03C3546^S^^^^00C,&2,84&IOCSXAT,^'03D3547^MLCS^00C,@@@,34&IOCSXAT,^'03G3548^BCE^^00D,*&13,59&IOC 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: SXAT,1,^'03D3549^MLCS^00C,@*@,34&IOCSXAT,^'04I3550RZA^^^00CIOCSDFOPN4,4&IOCSXAT,9&IOCSXAT,^'05B3551^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ZA^^^00C,19&IOCSXAT,IOCSXAL,^ADDR^OF^XREG.^'03I3552^ZA^^^00C,4&IOCSXAT,0&IOCSXAL,^'05C3553^A^^^^00C, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: 53&IOCSXAT,0&IOCSXAL,^TO^DATA^AREA^'03G3554^ZA^^^00C,4&IOCSXAT,IOCSXAL,^'06D3555^MRCWG00CIOCSDFOPN2, 1 1 11 1 1 1 1 1 11 1 1 1 801: 22&IOCSXAT,0&IOCSXAL,^MASK^HLD^AREA^'03B3556^SBR^^00B,IOCSDFOPN3&5,^'05E3557^A^^^^00C,14&IOCSXAT,IOC 1 1 11 1 1 1 1 11 1 1 1 1 901: SXAL,^SET^FOR^NEXT^SEG^'03E3558^MRCWG00C,@"@,0-1&IOCSXAL,^' 1 11 1 1 1 1 1 1 1: 098I04B3559^BCE^^00D,IOCSEXITRU,0&IOCSXAL,",^'02F3560^BOOL^00?Q,)031,,^'04C3561^BBE^^00D,IOCSDFOPN3, 1 1 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 101: 20&IOCSXAT,6,^'03H3562^MLCA^00C,IOCSXAL,58&IOCSXAT,^'05A3563QMRCWG00CIOCSDFOPN3,0,30&IOCSXAL,^MOVE^W 1 1 11 1 1 1 1 1 11 1 1 1 1 1 201: MS^'03?3564^B^^^^00B,IOCSDFOPN2,^'02F3565^BOOL^00?P,)039,,^'02G3566^BOOL^00?Q,-)045,,^'03D3567^SBR^^ 11 1 1 1 1 11 1 1 1 11 11 1 1 1 11 11 1 301: 00BIOCSPUT,IOCSXAL,^'04C3568^SBR^^00B,IOCSREL4&5,^STORE^RETURN^'05H3569QZA^^^00CIOCSPUTT,IOCSROUTNE, 1 1 1 11 1 1 1 1 11 1 1 1 1 401: IOCSXRL,^LOOK^AT^R/L^'04?3570^C^^^^00C,5&IOCSXAL,36&IOCSXRL,^'04C3571^BE^^^00B,IOCSPUT2,^IF^FILE^ON^ 1 11 1 1 1 1 1 11 1 1 1 1 501: R/L^'03H3572^C^^^^00C,IOCSXRL,IOCSOLDEST,^'04F3573^BE^^^00B,IOCSPUT3,^IF^PUT^FOR^OLDEST^'03?3574^EQU 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^^00BIOCSERRO2,*,^'02F3575^BOOL^00?Q,#103,,^'03?3576^BXPA^00B,IOCSCS1SFS,^'05C3577QMLCA^00C,@30257^P 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 701: UT@,IOCSERFLD&8,^PUT^ERROR^'02H3578^B^^^^00B,IOCSHALT,^'05G3579^ZA^^^00CIOCSPUT2,@0@,36&IOCSXRL,^CLE 1 1 11 1 1 1 1 11 1 1 1 1 1 801: AR^FILE^REF^'04H3580^ZA^^^00C,@0@,IOCSLUFD,^CLEAR^LAST^FILE^'02I3581^S^^^^00B,IOCSHOLDS,^'04E3582^ZA 11 1 1 1 1 1 11 1 1 1 1 11 1 901: ^^^00CIOCSPUT3,5&IOCSXAL,IOCSXAT,^'05D3583^ZA^^^00C,9&IOCSXAT,IOCSXAL,^GET^CURRENT^AREA^' 1 1 1 1 11 1 1 1 1 1 1 1: 099?04E3584^BZ^^^00B,IOCSERRO2,^NO^CURRENT^AREA^'03E3585^MLCS^00C,@W@,0-6&IOCSXAL,^'03?3586^B^^^^00B 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,IOCSREL3-7,^'05A3587^SBR^^00BIOCSDKOPEN,IOCSMRET,^STORE^RETURN^'03?3588^S^^^^00B,IOCSOLDEST,^'02F35 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 89^BOOL^00?Q,)045,,^'03I3590^BCE^^00D,IOCSODW3,IOCSSTKAR,,^'03G3591^ZA^^^00C,IOCSSTKAR,IOCSXAL,^'02G 1 1 11 11 1 1 1 1 11 11 1 1 1 1 1 11 301: 3592^BOOL^00?R,-)045,,^'03C3593QZA^^^00C,&)028,IOCSXAL,^'05C3594RMLCA^00CIOCSODW2,IOCSOLDEST,4&IOCSX 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 401: AL,^LINK^'03H3595^ZA^^^00C,IOCSXAL,IOCSOLDEST,^'02F3596^BOOL^00?Q,)045,,^'03G3597^A^^^^00C,IOCSSGMTL 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 501: ,IOCSXAL,^'02G3598^BOOL^00?R,-)045,,^'03C3599QA^^^^00C,&)048,IOCSXAL,^'05F3600RBCE^^00D,IOCSODW3,0&I 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 1 601: OCSXAL,",^IF^HLD^AREA^END^'02H3601^B^^^^00B,IOCSODW2,^'06D3602^ZA^^^00CIOCSODW3,IOCSOLDEST,IOCSWAFRE 1 1 11 1 1 1 1 11 1 1 1 1 701: E,^KEEP^LAST^LINK^'03A3603^ZA^^^00C,@0@,IOCSLWA,^'04G3604^S^^^^00B,IOCSOLDEST,^SET^UP^ROUT^LIST^'04? 1 11 1 1 1 1 1 11 1 1 1 1 11 801: 3605^ZA^^^00C,&IOCSOLDEST,IOCSLAST,^'03E3606^ZA^^^00C,&IOCSRL,IOCSXRL,^'06G3607^MRCWG00CIOCSODR2,IOC 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: SOLDEST-4,0&IOCSXRL,^MASK^R/L^SEGMENT^'05A3608^ZA^^^00C,IOCSXRL,IOCSOLDEST,^UPDATE^CHAIN^' 1 1 11 1 1 1 1 1 1 1: 097G03A3609^A^^^^00C,&46,IOCSXRL,^'05D3610^BCE^^00D,IOCSWL1,0&IOCSXRL,",^ROUT^LIST^MADE^'04E3611^B^^ 1 1 1 1 1 1 1 11 1 1 1 1 1 1 11 1 101: ^^00B,IOCSODR2,^TO^SET^NEXT^LINK^'02F3612^BOOL^00?Q,)045,,^'04H3613^ZA^^^00CIOCSEXDPP,&IOCSOLDEST,IO 1 1 1 11 1 1 1 11 11 1 1 1 1 201: CSXRL,^'02G3614^BOOL^00?R,-)045,,^'04G3615QZA^^^00CIOCSEXDP,&IOCSOLDEST,IOCSXRL,^'04B3616RZA^^^00CIO 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 301: CSEX2,IOCSXRL,IOCSXAT,^'03G3617^ZA^^^00C,0&IOCSXAT,IOCSXRL,^'05D3618^C^^^^00C,IOCSXRL,IOCSROUTNE,^SR 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 401: CH^FOR^ROUTNE^'03?3619^A^^^^00C,&4,IOCSXRL,^'04B3620^BU^^^00B,IOCSEX2,^SRCH^NEXT^LINK^'03F3621^C^^^^ 11 1 1 1 1 1 11 1 1 1 1 11 1 501: 00C,IOCSXRL,IOCSLAST,^'03F3622^ZA^^^00C,IOCSLAST,IOCSXAL,^'02I3623^ZA^^^00B,0&IOCSXAL,^'04D3624^BZ^^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: ^00B,IOCSEX3,^LAST^IS^END^LIST^'05E3625^ZA^^^00C,0&IOCSXAL,IOCSXAL,^STORE^2^ENTRYS^OF^'03G3626^A^^^^ 1 1 1 11 1 1 1 1 1 11 1 701: 00C,&4,IOCSXAL,^ADJUST^'06D3627^ZA^^^00CIOCSEX4,0&IOCSXRL,0&IOCSXAT,^DELETE^RTNE^ENTRY^'05D3628^ZA^^ 1 1 1 1 11 1 1 1 1 1 11 1 801: ^00C,0&IOCSXAL,0&IOCSXRL,^CLOSE^R/L^HOLE^'05F3629^ZA^^^00C,IOCSROUTNE,0&IOCSXAL,^PUT^RTNE^AT^END^'04 1 1 1 1 11 1 1 1 1 1 11 901: E3630^BU^^^00B,IOCSEX5,^ROUT^NOT^EQU^LAST^'03D3631^BU^^^00BIOCSEX3,IOCSEX4,^' 1 1 1 1 11 1 1 1 1 1 1: 098C03F3632^ZA^^^00C,IOCSXAT,IOCSLAST,^'05I3633^MLCA^00CIOCSEX5,10&IOCSXRL,IOCSXAL,^DELETE^ROUTNE^'0 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: 4B3634^MRCWG00C,IOCSOLDEST&1,1&IOCSXRL,^'05D3635^ZA^^^00C,0&IOCSXAT,IOCSXRL,^IF^USED^PREVIOUS^'05?36 1 1 1 1 1 11 1 1 1 1 1 11 1 201: 36^BZN^^00D,IOCSEX7,IOCSXAL,,^IF^USED^AGAIN^'05G3637^BZN^^00D,IOCSEX6,14&IOCSXRL,,^RELESE^STACK^AREA 1 1 1 11 11 1 1 1 1 11 301: ^'04?3638^MLCA^00C,IOCSWAFREE,4&IOCSXAL,^'03H3639^ZA^^^00C,IOCSXAL,IOCSWAFREE,^'05C3640^ZA^^^00BIOCS 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 401: EX6,14&IOCSXRL,^MAKE^FIRST^USED^'02G3641^B^^^^00B,IOCSEX7,^'02G3642^BOOL^00?Q,-)045,,^'05D3643^SBR^^ 1 1 11 1 1 1 1 11 1 1 1 11 11 1 501: 00BIOCSINTLK,IOCSINTLK1&5,^STORE^RETURN^'05A3644QC^^^^00CIOCSINTLKK,IOCSROUTNE,IOCSOLDEST,^'04A3645^ 1 1 1 11 1 1 1 1 1 11 1 601: BE^^^00BIOCSINTLK1,0,^IF^OLDEST^'03H3646^ZA^^^00C,IOCSROUTNE,IOCSXRL,^'05C3647^MLCB^00C,IOCSINTLK1&5 1 1 1 11 1 1 1 1 1 11 1 1 1 701: ,9&IOCSXRL,^STORE^EXIT^'03H3648^ZA^^^00C,36&IOCSXRL,IOCSXAT,^'03G3649^ZA^^^00C,9&IOCSXAT,IOCSXAL,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 801: 4D3650^MLCS^00CIOCSINTLK2,@9@,15&IOCSXRL,^'02G3651^B^^^^00B,IOCSEX7,^'02G3652^BOOL^00?Q,-)045,,^'03I 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 901: 3653^SBR^^00BIOCSMDWA,IOCSMDWA3&5,^'04G3654QZA^^^00CIOCSMDWAA,IOCSROUTNE,IOCSXRL,^' 1 1 1 1 11 1 1 1 1 1 1 1: 098D06G3655^BZN^^00DIOCSMDWA1,IOCSMDWA3,14&IOCSXRL,&,^IS^FIRST^TO^USE^'03H3656^ZA^^^00C,IOCSWAFREE,I 1 1 1 1 1 1 1 1 11 1 1 1 1 101: OCSXWA,^'04B3657^BZ^^^00B,IOCSMDWA2,^IF^LIST^FULL^'05B3658^ZA^^^00C,IOCSXWA,IOCSLWA,^SAVE^ASSIGN^ARE 1 11 1 1 1 1 11 1 1 1 1 1 201: A^'03H3659^ZA^^^00C,IOCSXWA,14&IOCSXRL,^'04?3660^MLCB^00C,4&IOCSXWA,IOCSWAFREE,^'03?3661^B^^^^00BIOC 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: SMDWA3,0,^'05H3662^ZA^^^00CIOCSMDWA2,&IOCSMDWA1,IOCSMRET,^STORE^RTN^'03F3663^B^^^^00B,IOCSEXDP,^TO^W 1 1 11 1 1 1 1 1 11 1 1 1 1 401: AIT^'03E3664^DCW^^00BIOCSOLDEST,00000,^'02H3665^^^^^^00B,&IOCSWL1,^'02E3666^^^^^^00B,00000,^'02C3667 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 501: ^^^^^^00B,@^@,^'04I3668^^^^^^00B,00000000000000000000000000000,^'02C3669^^^^^^00B,@"@,^'03E3670^^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: ^00BIOCSROUTNE,00000,^'02G3671^BOOL^00?Q,-)045,,^'03C3672^^^^^^00BIOCSSEKAD,0000,^'03G3673^^^^^^00BI 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 701: OCSDSKAD,00000000,^'03C3674Q^^^^^00BIOCSLUFD,00000,^'03E3675^^^^^^00BIOCSSVCUAR,00000,^'03D3676^^^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: ^00BIOCSSVXSP,00000,^'03E3677^^^^^^00BIOCSWAFREE,00000,^'03C3678^^^^^^00BIOCSLAST,00000,^'03D3679^DC 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 901: W^^00BIOCSHOLDS,00000,^'02G3680^BOOL^00?Q,-)045,,^'03C3681^^^^^^00BIOCSMRET,00000,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1: 097B03D3682^^^^^^00BIOCSSTKAR,&)028,^'03D3683^^^^^^00BIOCSSGMTL,&)048,^'03C3684Q^^^^^00BIOCSLNTH,000 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 00,^'03?3685^^^^^^00BIOCSREMOV,2,^'03B3686^^^^^^00BIOCSLWA,00000,^'03A3687^EQU^^00BIOCSXWA,)033,^'03 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 201: E3688^DA^^^00CIOCSRL,)039X46,G,^'02G3689^BOOL^00?Q,-)045,,^'03D3690^SBR^^00BIOCSGET,IOCSXAL,^'06?369 1 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 301: 1QZA^^^00CIOCSGETT,IOCSROUTNE,IOCSXRL,^GET^R/L^ENTRY^'05B3692^ZA^^^00C,5&IOCSXAL,IOCSXAT,^GET^FILE^E 1 1 1 1 11 1 1 1 1 1 401: NTRY^'05?3693^ZA^^^00C,IOCSXAL,9&IOCSXRL,^STORE^RETURN^'05G3694^MRCWG00C,22&IOCSXAT,16&IOCSXRL,^STOR 11 1 1 1 1 1 11 1 1 1 1 1 501: E^FILE^MASK^'04?3695^MLZS^00C,21&IOCSXRL,IOCSREMOV,^'04?3696^A^^^^00C,IOCSREMOV,21&IOCSXRL,^'04B3697 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ^MLCS^00C,IOCSDSKAD-7,28&IOCSXRL,^'05F3698^MLCB^00C,IOCSDSKAD,44&IOCSXRL,^STORE^DISK^ADDR^'03E3699^M 1 1 1 1 11 1 1 1 1 1 11 1 701: LCB^00B,@9@,^MAKE^NO^ARM^'05F3700^MLCA^00C,IOCSSEKAD,26&IOCSXRL,^STORE^SEEK^ADDR^'03D3701^MLCS^00C,@ 1 1 1 11 1 1 1 1 1 11 1 1 1 801: R@,31&IOCSXRL,^'05A3702^ZA^^^00C,IOCSXRL,26&IOCSXAT,^PUT^ON^CHAIN^'03G3703^BEPA^00BIOCSEX7,IOCSRLEAS 1 1 11 1 1 1 1 1 11 1 1 1 901: E,^'03H3704^ZA^^^00C,36&IOCSXRL,IOCSXAT,^'03?3705^BZ^^^00B,IOCSWAITLP,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 098B03B3706^SAR^^00B,IOCSINTEXT&5,^'02H3707^BXPA^00B,IOCSPICK,^'04?3708^SBR^^00BIOCSRLEASE,IOCSREL4& 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 5,^'05A3709^ZA^^^00C,IOCSLUFD,IOCSXAT,^FOR^POSS^RELSE^'05B3710^C^^^^00C,IOCSXRL,IOCSOLDEST,^IS^OLDES 1 11 1 1 1 1 1 11 1 1 1 1 1 201: T^RTN^'03D3711^BU^^^00B,IOCSREL2,^IF^NO^'04E3712^BZ^^^00B,IOCSREL8,^IF^NO^OLDER^FILE^'03G3713^ZA^^^0 11 1 1 1 1 11 1 1 1 1 11 1 1 301: 0C,9&IOCSXAT,IOCSXAL,^'04G3714^BXPA^00B,IOCSRELAR8,^REL^PREVIOUS^GET^'06C3715^ZA^^^00CIOCSREL8,36&IO 1 1 1 11 1 1 1 1 11 1 1 1 401: CSXRL,IOCSXAT,^CHK^CURRENT^FILE^'05B3716^BZ^^^00BIOCSREL2,IOCSREL4,^NOTHING^CURRENT^'05D3717^ZA^^^00 1 1 11 1 1 1 1 11 1 1 501: C,9&IOCSXAT,IOCSXAL,^CHK^CUR^HLD^AREA^'02H3718^BZ^^^00B,IOCSREL3,^'04A3719^MLNA^00C,IOCSROUTNE,IOCSR 1 1 1 11 1 1 1 1 11 1 1 1 1 601: EL1&5,^'03D3720^A^^^^00C,&15,IOCSREL1&5,^'04A3721^MLCS^00CIOCSREL1,0,0-6&IOCSXAL,^'02I3722^S^^^^00B, 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: IOCSHOLDS,^'03?3723^BXPA^00B,IOCSRELAR8,^'06A3724^ZA^^^00CIOCSREL3,IOCSSVCUAR,9&IOCSXAT,^RESTORE^CUA 1 11 1 1 1 1 11 1 1 1 1 1 801: R^'04B3725^MLNA^00C,19&IOCSXAT,IOCSREL5&10,^'05C3726^ZA^^^00CIOCSREL5,IOCSSVXSP,0,^RESTORE^X^REG^'03 11 1 1 1 1 1 11 1 1 1 1 1 11 901: F3727^BEPA^00BIOCSREL4,0,^RETURN^'04H3728^BXPA^00BIOCSWAITLP,*&1,^MASK^INTERRUPT^' 1 1 1 1 11 1 1 1 1 1 1: 097C05B3729^ZA^^^00C,IOCSREADY,IOCSXAL,^CHK^READY^LIST^'03G3730^BZ^^^00B,IOCSWL10,^IF^EMPTY^'05B3731 1 1 1 1 1 1 1 11 1 1 1 1 11 1 101: ^ZA^^^00C,0-17&IOCSXAL,IOCSREADY,^CLOSE^GAP^'05C3732^ZA^^^00C,0-1&IOCSXAL,IOCSXRL,^GET^R/L^ENTRY^'05 1 1 1 1 11 1 1 1 1 1 11 201: B3733^ZA^^^00C,36&IOCSXRL,IOCSXAT,^GET^F/T^ENTRY^'05B3734^ZA^^^00C,IOCSXAT,IOCSLUFD,^STORE^LAST^FILE 1 1 1 1 1 11 1 1 1 1 1 301: ^'05F3735^ZA^^^00C,IOCSXAL,20&IOCSXRL,^SET^CU^AREA^IN^R/^'04D3736^ZA^^^00CIOCSWL2,IOCSXAL,IOCSHOLDS, 11 1 1 1 1 1 11 1 1 1 1 1 401: ^'03E3737^MLCS^00C,@R@,0-6&IOCSXAL,^'04H3738^ZA^^^00C,9&IOCSXAT,IOCSSVCUAR,^ST^CUAR^'04I3739^ZA^^^00 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: C,IOCSXAL,9&IOCSXAT,^SET^CU^AREA^'04H3740^ZA^^^00C,19&IOCSXAT,IOCSXAL,^GET^X^REG^'05D3741^ZA^^^00C,0 1 1 1 11 1 1 1 1 1 11 1 1 1 601: &IOCSXAL,IOCSSVXSP,^SAVE^OLD^X^REG^'04I3742^ZA^^^00C,9&IOCSXAT,0&IOCSXAL,^SET^X^REG^'05C3743^A^^^^00 1 1 11 1 1 1 1 1 11 1 1 701: C,53&IOCSXAT,0&IOCSXAL,^INCR^TO^DATA^'04D3744^S^^^^00C,&21,0&IOCSXAL,^COMPENSATE^'03H3745^ZA^^^00C,I 1 1 1 11 1 1 1 1 1 11 1 1 1 801: OCSXRL,IOCSROUTNE,^'04?3746^BCE^^00D,IOCSWL4A,15&IOCSXRL,,^'03H3747^C^^^^00C,IOCSXRL,IOCSOLDEST,^'03 1 1 11 1 1 1 1 11 11 1 1 1 1 1 11 901: ?3748^BU^^^00B,IOCSINTLK2,^'04E3749^ZA^^^00CIOCSWL4A,9&IOCSXAT,IOCSXAL,^' 1 1 1 1 11 1 1 1 1 1 1 1: 097I04C3750^BZN^^00D,IOCSEXDP,0-15&IOCSXAL,&,^'05E3751^MLNA^00CIOCSWL4,9&IOCSXRL,IOCSWL6&5,^SET^EXIT 1 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^'06A3752^ZA^^^00CIOCSWL5,IOCSXRL,IOCSROUTNE,^SET^SLOT^IN^R/L^'04E3753^MLCA^00CIOCSWL7,14&IOCSXRL,IO 11 1 1 1 1 1 11 1 1 1 1 201: CSXWA,^'05D3754^ZA^^^00C,IOCSXAT,IOCSLUFD,^SET^LUFD^FOR^FSEQ^'04F3755^MLCS^00C,@^@,15&IOCSXRL,^CLEAR 1 11 1 1 1 1 1 11 1 1 1 1 1 301: ^INTLK^'03C3756^BEPA^00BIOCSWL6,0,^EXIT^'06A3757^ZA^^^00CIOCSWL10,IOCSOLDEST,IOCSXRL,^LOOK^AT^OLDEST 11 1 1 1 1 11 1 1 1 1 1 401: ^'03H3758^ZA^^^00C,36&IOCSXRL,IOCSXAT,^'02G3759^BZ^^^00B,IOCSWL4,^'05C3760^ZA^^^00C,20&IOCSXRL,IOCSX 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: AL,^SET^XAL^FOR^BR^'04?3761^BCE^^00D,IOCSWL2,15&IOCSXRL,9,^'06D3762^MLNA^00CIOCSWL1,IOCSLAST,IOCSWL1 1 11 1 1 1 1 1 1 11 1 1 1 1 601: 2&5,^CHK^MORE^R/L^ROOM^'02C3763^BEPA^00B,*&1,^'03G3764^ZA^^^00CIOCSWL12,0,IOCSXRL,^'04D3765^BZ^^^00B 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 701: ,IOCSWAITLP,^WAIT^FOR^ROOM^'05C3766^ZA^^^00C,IOCSXRL,IOCSLAST,^CHOOSE^NEW^ENTRY^'03A3767^A^^^^00C,&4 1 1 11 1 1 1 1 1 11 1 1 1 801: ,IOCSLAST,^'05C3768^MLNA^00C,IOCSLWA,14&IOCSXRL,^SET^STACK^AREA^'02G3769^S^^^^00B,IOCSXAT,^'04I3770^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 901: MLNA^00C,IOCSMRET,IOCSWL6&5,^SET^RETURN^'03H3771^ZA^^^00C,&IOCSEXDP,IOCSMRET,^' 1 1 1 1 11 1 1 1 1 1 1 1: 097D02G3772^B^^^^00B,IOCSWL5,^'05I3773^ZA^^^00CIOCSPICK,26&IOCSXAT,IOCSXRL,^CHK^REQUESTS^'03B3774^BZ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: ^^^00B,IOCSRELAR9-1,^'04A3775^BW^^^00C,IOCSRESEK1,IOCSRELAR9,^'05D3776^ZA^^^00C,20&IOCSXRL,26&IOCSXA 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: T,^DELETE^ENTRY^'06F3777^ZA^^^00CIOCSPICK10,14&IOCSXAT,IOCSLNTH,^PREPARE^FOR^SRCH^'03G3778^ZA^^^00C, 1 11 1 1 1 1 1 11 1 1 1 301: 4&IOCSXAT,IOCSXAT,^'03?3779^SW^^^00B,IOCSPICK13,^'05E3780^ZA^^^00CIOCSPICK3,IOCSXAT,IOCSXAL,^START^S 1 1 11 1 1 1 1 11 1 1 1 1 1 401: ORT^'06F3781ZBCE^^00DIOCSPICK2,IOCSPICK2A,37&IOCSXRL,9,^1302^ARM^COMP^'05G3782^BCE^^00D,IOCSPICK2B,2 11 1 1 1 1 1 1 11 1 1 1 1 501: 1&IOCSXAT,9,^1302^ARM^COMP^'05E3783^C^^^^00C,37&IOCSXRL,21&IOCSXAT,^1302^ARM^COMP^'04C3784^BU^^^00B, 1 1 11 1 1 1 1 1 11 1 1 1 601: IOCSPICK5,^1302^ARM^COMP^'04D3785^B^^^^00B,IOCSPICK2C,^1302^ARM^COMP^'06G3786^BCE^^00DIOCSPICK2A,IOC 1 11 1 1 1 1 11 1 1 1 701: SPICK2C,21&IOCSXAT,9,^1302^ARM^COMP^'05G3787^MLCB^00C,22&IOCSXAT,IOCSPICK2G-2,^1302^ARM^COMP^'05E378 1 1 1 11 1 1 1 1 1 11 1 801: 8^MLNS^00C,38&IOCSXRL,IOCSPICK2G,^1302^ARM^COMP^'03G3789^MLNS^00B,@0@,^1302^ARM^COMP^'04D3790^BZN^^0 1 1 1 1 11 1 1 1 1 11 1 1 901: 0C,IOCSPICK2D&12,38&IOCSXRL,^'04D3791^B^^^^00B,IOCSPICK2D,^1302^ARM^COMP^' 1 1 1 11 1 1 1 1 1 1: 098G03H3792^DCW^^00B,@^^@,^1302^ARM^COMP^'04H3793^DCW^^00BIOCSPICK2G,@^^@,^1302^ARM^COMP^'06G3794^ML 1 1 1 1 1 1 11 1 1 1 1 11 1 101: CB^00CIOCSPICK2B,38&IOCSXRL,IOCSPICK2G-2,^1302^ARM^COMP^'05E3795^MLNS^00C,22&IOCSXAT,IOCSPICK2G,^130 1 1 1 1 11 1 1 1 1 1 201: 2^ARM^COMP^'03G3796^MLNS^00B,@0@,^1302^ARM^COMP^'04I3797^BZN^^00C,*&13,22&IOCSXAT,^1302^ARM^COMP^'06 11 1 1 1 1 11 1 1 1 1 1 11 301: ?3798^MLCS^00CIOCSPICK2D,@1@,IOCSPICK2G-1,^1302^ARM^COMP^'05G3799^C^^^^00C,IOCSPICK2G,IOCSPICK2G-2,^ 1 1 1 1 1 11 1 1 1 1 1 401: 1302^ARM^COMP^'04C3800^BU^^^00B,IOCSPICK5,^1302^ARM^COMP^'05E3801^SW^^^00C,39&IOCSXRL,23&IOCSXAT,^13 11 1 1 1 1 11 1 1 1 1 1 501: 02^ARM^COMP^'05E3802^C^^^^00C,44&IOCSXRL,28&IOCSXAT,^1302^ARM^COMP^'05E3803^CW^^^00C,39&IOCSXRL,23&I 11 1 1 1 1 1 11 1 1 1 1 601: OCSXAT,^1302^ARM^COMP^'03H3804^B^^^^00B,*&12,^1302^ARM^COMP^'06E3805^C^^^^00CIOCSPICK2C,44&IOCSXRL,2 1 11 1 1 1 1 11 1 1 1 1 701: 8&IOCSXAT,^1302^ARM^COMP^'04F3806^BU^^^00B,IOCSPICK5,^IF^NOT^DUPLI^REQ^'04A3807^C^^^^00C,28&IOCSXRL, 1 11 1 1 1 1 11 1 1 1 1 801: 12&IOCSXAT,^'04F3808^BU^^^00B,IOCSPICK5,^IF^NOT^DUPLI^REQ^'04A3809^C^^^^00C,26&IOCSXRL,10&IOCSXAT,^' 1 11 1 1 1 1 11 1 1 1 1 1 1 901: 04B3810^BE^^^00B,IOCSPICK4,^IF^DUPLI^REQ^'04E3811^A^^^^00CIOCSPICK5,IOCSLNTH,IOCSXAT,^' 1 1 1 1 1 11 1 1 1 1 1 1 1: 097A06?3812^BCE^^00D,IOCSPICK6A,0&IOCSXAT,",^IF^END^OF^HLD^FLD^'04A3813^C^^^^00C,15&IOCSXAT,15&IOCSX 1 1 1 1 1 1 1 1 11 1 1 1 1 101: AL,^'04C3814^BH^^^00B,IOCSPICK3,^IF^MORE^AVAIL^'04F3815^B^^^^00B,IOCSPICK2,^TO^TRY^NEXT^AREA^'04A381 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 6^A^^^^00CIOCSPICK6A,&21,IOCSXAL,^'04?3817^BCE^^00D,IOCSRAM,37&IOCSXRL,9,^'02I3818^B^^^^00B,IOCSPICK 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 301: 6,^'04D3819^ZA^^^00CIOCSPICK4,IOCSXAT,IOCSXAL,^'03A3820^A^^^^00C,&21,IOCSXAL,^'06E3821^BCE^^00DIOCSP 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 401: ICK6,IOCSPICK11,0-6&IOCSXAL,,^IF^AVAILABLE^'03H3822^C^^^^00C,IOCSXRL,IOCSOLDEST,^'03I3823^BE^^^00B,I 1 1 11 11 1 1 1 1 1 11 1 1 1 501: OCSPICK8,^IF^OLDEST^'05H3824^ZA^^^00CIOCSPICK1,IOCSXRL,IOCSXAL,^SETUP^FOR^RAY^'03A3825^A^^^^00C,&37, 1 11 1 1 1 1 1 11 1 1 1 1 601: IOCSXAL,^'04C3826^B^^^^00B,IOCSRAY1,^TO^REPLACE^REQ^'07?3827^BBE^^00DIOCSPICK8,IOCSPICK1,0-6&IOCSXAL 1 11 1 1 1 1 11 1 1 1 1 701: ,&,^TO^IGNORE^SEGMENT^'05C3828^MLCA^00C,0-1&IOCSXAL,IOCSXAT,^REFERENCE^R/L^'05G3829^MLCS^00C,1&IOCSX 1 1 11 1 1 1 1 1 11 1 1 1 801: AL,38&IOCSXAT,^1302^REPLACE^ARM^'03F3830^MLCS^00B,,^1302^^&^ARM^IND^'04D3831^MLCS^00C,@B@,15&IOCSXAT 1 1 11 1 1 11 11 1 1 1 1 901: ,^SET^STEAL^'05H3832^MRCWG00C,16&IOCSXRL,0-21&IOCSXAL,^ASSIGN^SEGMENT^' 1 11 1 1 1 1 1 1 1: 096B05I3833^MLZS^00C,0-16&IOCSXAL,IOCSREMOV,^MAKE^SIGNS^ALIKE^'05I3834^S^^^^00C,IOCSREMOV,0-16&IOCSX 1 1 1 1 1 1 1 11 1 1 1 1 101: AL,^REMOVE^SEEK^ONLY^'05E3835^ZA^^^00C,IOCSXRL,0-1&IOCSXAL,^STORE^R/L^ENTRY^'05I3836^BCE^^00D,IOCSPI 1 11 1 1 1 1 1 11 1 1 1 201: CK7,37&IOCSXAT,9,^IF^NO^ARM^ASSIGN^'04E3837^ZA^^^00C,IOCSXAL,IOCSLNTH,^SAVE^XAL^'03E3838^ZA^^^00C,IO 1 1 1 11 1 1 1 1 1 11 1 1 1 301: CSXAT,IOCSXAL,^'03A3839^A^^^^00C,&37,IOCSXAL,^'03I3840^B^^^^00B,IOCSRSERRC,^FIND^ARM^'05F3841^ZA^^^0 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 401: 0C,IOCSXAL,0-5&IOCSXRL,^CHANGE^ARM^REFER^'04H3842^ZA^^^00C,IOCSLNTH,IOCSXAL,^RESTORE^XAL^'06G3843^BC 1 1 1 11 1 1 1 1 1 11 1 501: E^^00DIOCSPICK7,IOCSPICK9,0&IOCSXAL,9,^IF^NO^ARM^ASSIGN^'03C3844^MLZS^00C,*,0-5&IOCSXRL,^'03I3845^B^ 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ^^^00B,IOCSRSERRC,^FIND^ARM^'05F3846^MLNA^00C,IOCSXAL,0-5&IOCSXRL,^CHANGE^ARM^REFER^'04D3847^MLZS^00 1 1 1 11 1 1 1 1 1 11 1 1 701: CIOCSPICK9,*-1,0-5&IOCSXRL,^'05D3848^ZA^^^00C,0-1&IOCSXAL,IOCSXRL,^FIND^R/L^ENTRY^'05B3849^ZA^^^00C, 1 1 1 11 1 1 1 1 1 11 1 1 1 801: 36&IOCSXRL,IOCSXRL,^FIND^FD^ENTRY^'05G3850^ZA^^^00C,26&IOCSXRL,20&IOCSXAT,^PUT^REQ^ON^LIST^'05?3851^ 1 1 11 1 1 1 1 1 11 1 901: ZA^^^00C,IOCSXAT,26&IOCSXRL,^PUT^ON^LIST^'02?3852^NOPWM00B,,^' 1 1 1 1 11 1 1 11 1 1: 099H05?3853^B^^^^00BIOCSPICK13,IOCSRAY,^IF^NOT^DUPLI^'06?3854^ZA^^^00C,IOCSREADY,0-17&IOCSXAL,^PUT^O 1 1 1 1 1 1 11 1 1 1 1 1 101: N^READY^LIST^'03G3855^ZA^^^00C,IOCSXAL,IOCSREADY,^'03?3856^B^^^^00B,IOCSRELAR2,^'06H3857^MRCWG00CIOC 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: SPICK11,16&IOCSXRL,0-21&IOCSXAL,^ASSIGN^SEGMENT^'05D3858^BCE^^00D,*&13,37&IOCSXRL,0,^1302^BR^IF^ARM^ 1 1 1 11 1 1 1 1 1 1 301: 0^'05C3859^MLZS^00C,*-11,38&IOCSXRL,^1302^RSTR^ARM^IND^'03D3860^MLCS^00C,@9@,37&IOCSXRL,^'05I3861^ML 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: ZS^00C,0-16&IOCSXAL,IOCSREMOV,^MAKE^SIGNS^ALIKE^'05I3862^S^^^^00C,IOCSREMOV,0-16&IOCSXAL,^REMOVE^SEE 1 1 1 1 11 1 1 1 1 1 501: K^ONLY^'05E3863^ZA^^^00C,IOCSXRL,0-1&IOCSXAL,^STORE^R/L^ENTRY^'06A3864^BCE^^00D,IOCSPICK13-1,0&IOCSX 11 1 1 1 1 1 11 1 1 1 1 601: AL,9,^IF^NO^ARM^ASSIGN^'03I3865^B^^^^00B,IOCSRSERRC,^FIND^ARM^'05F3866^MLNA^00C,IOCSXAL,0-5&IOCSXRL, 1 1 11 1 1 1 1 11 1 1 1 1 1 701: ^CHANGE^ARM^REFER^'03E3867^MLZS^00C,*-1,0-5&IOCSXRL,^'03B3868^B^^^^00B,IOCSPICK13-1,^'04B3869^ZA^^^0 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: 0CIOCSRAM,IOCSXRL,IOCSXAL,^'03A3870^A^^^^00C,&37,IOCSXAL,^'02G3871^B^^^^00B,IOCSRAY,^'04G3872^ZA^^^0 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 901: 0CIOCSRNDCLS,9&IOCSXAT,IOCSXAL,^'03?3873^BZ^^^00B,IOCSEXITRU,^'03E3874^MLCS^00C,@^@,0-6&IOCSXAL,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098B03?3875^B^^^^00B,IOCSRELAR8,^'02H3876^BXPA^00B,IOCSSTLE,^'03?3877^B^^^^00B,IOCSEXITRU,^'03A3878P 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: BOOL^00?P,)058&)068,,^'02?3879^EJECT00B,,^'03?3880^^^^^^00B*,1405^IOCS,^'03A3881^EQU^^00CIOCSXRL,13, 1 1 11 11 1 1 11 11 1 1 1 1 11 1 1 1 1 201: X,^'03A3882^EQU^^00CIOCSXAL,14,X,^'03A3883^EQU^^00CIOCSXFD,12,X,^'03A3884^EQU^^00CIOCSXAT,15,X,^'02F 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 301: 3885^BOOL^00?Q,)039,,^'04?3886^EQU^^00BIOCSXWA,)033,^STKINDEX^'03H3887^SBR^^00BIOCSDKOPEN,IOCSMRET,^ 1 1 1 11 11 1 1 1 1 11 1 1 1 1 401: '05G3888^BCE^^00D,IOCSODR1,IOCSSTKAR,,^TEST^NO^STACKAREA^'03D3889^BOOL^00?R,)028,,^STKAREA^'05H3890^ 11 1 1 1 1 11 11 1 1 1 11 11 1 501: S^^^^00BIOCSODW1,IOCSOLDEST,^START^CHAIN^AT^ZERO^'05B3891^ZA^^^00C,IOCSSTKAR,IOCSXAL,^ADDR^STK.^AREA 1 1 1 11 1 1 1 1 1 601: ^'06F3892^MLCA^00CIOCSODW2,IOCSOLDEST,IOCSALLINK,^CHAIN^STK.^AREAS^'05B3893^ZA^^^00C,IOCSXAL,IOCSOLD 11 1 1 1 1 1 11 1 1 1 1 701: EST,^ADVANCE^CHAIN^'03G3894^A^^^^00C,IOCSSGMTL,IOCSXAL,^'04I3895^BCE^^00D,IOCSODW3,0&IOCSXAL,",^TEST 1 11 1 1 1 1 1 11 1 1 1 1 1 1 801: ^END^'04C3896^B^^^^00B,IOCSODW2,^CONTINUE^CHAIN^'06H3897^ZA^^^00CIOCSODW3,IOCSOLDEST,IOCSWAFREE,^PRE 11 1 1 1 1 11 1 1 1 1 1 901: SERVE^1ST^ENTRY^'02G3898^S^^^^00B,IOCSLWA,^'03H3899RS^^^^00BIOCSODR1,IOCSOLDEST,^' 11 1 1 1 1 11 1 1 1 1 1 1: 097E05E3900^ZA^^^00C,&IOCSOLDEST,IOCSLAST,^INIT.^IOCSLAST^'05B3901^ZA^^^00C,&IOCSRL,IOCSXRL,^TO^1ST^ 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ENTRY^RL.^'06D3902^MRCWG00CIOCSODR2,IOCSOLDEST-4,0&IOCSXRL,^INITIALIZE^RL^'05G3903^ZA^^^00C,IOCSXRL, 11 1 1 1 1 1 11 1 1 1 1 201: IOCSOLDEST,^PRESERVE^1ST^ENTRY^'04E3904^A^^^^00C,IOCSRLLNG,IOCSXRL,^ADD^&27^'04H3905^BCE^^00D,IOCSWL 1 11 1 1 1 1 1 11 1 1 1 301: 1,0&IOCSXRL,",^TEST^END^'03E3906^B^^^^00B,IOCSODR2,^REPEAT^'03D3907^BOOL^00?R,)028,,^STKAREA^'04?390 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 401: 8^BOOL^00?S,-)045,,^NOT^LINKAGES^'03I3909^SBR^^00BIOCSMDWA,IOCSMDWA3&5,^'06C3910SZA^^^00CIOCSMDWAA,I 1 1 11 11 1 1 1 1 11 1 1 1 501: OCSROUTNE,IOCSXRL,^AVAIL.^RL^ENTRY^'05A3911^BZN^^00DIOCSMDWA1,IOCSMDWA3,IOCSRLWKAR,&,^'05F3912^ZA^^^ 1 1 11 1 1 1 1 1 1 11 1 601: 00C,IOCSWAFREE,IOCSXWA,^INIT^USERS^X^REG.^'02I3913^BZ^^^00B,IOCSMDWA2,^'05A3914^ZA^^^00C,IOCSXWA,IOC 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: SLWA,^MOST^RECENT^STK^'05B3915^ZA^^^00C,IOCSXWA,IOCSRLWKAR,^STK^AREA^ADDR^'05G3916^MLCB^00C,4&IOCSXW 1 11 1 1 1 1 1 11 1 1 1 801: A,IOCSWAFREE,^TO^1ST^ENTRY^STK^'05B3917^ZA^^^00C,IOCSXWA,IOCSWATEMP,^STK^AREA^ADDR^'03?3918^B^^^^00B 1 1 11 1 1 1 1 1 11 1 1 901: IOCSMDWA3,0,^'06A3919^ZA^^^00CIOCSMDWA2,&IOCSMDWA1,IOCSMRET,^FORCE^RETURN^' 1 1 11 1 1 1 1 1 1 1: 099F02H3920^B^^^^00B,IOCSEXDP,^'04?3921^BOOL^00?S,-)045,,^NOT^LINKAGES^'03D3922RSBR^^00BIOCSGET,IOCS 1 1 1 1 1 1 11 1 1 1 11 11 1 1 1 101: XAL,^'04F3923SZA^^^00CIOCSGETT,IOCSROUTNE,IOCSXRL,^'03G3924^ZA^^^00C,5&IOCSXAL,IOCSXFD,^'05E3925^ZA^ 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 201: ^^00C,IOCSXAL,IOCSRLRET,^ADDR^USERS^GET^&1^'03F3926^ZA^^^00C,IOCSXFD,IOCSRLFD,^'02H3927^BXPA^00B,IOC 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: SCONV,^'02F3928^DCW^^00B,@GET^@,^'04?3929^MLCS^00C,IOCSDSKAD,IOCSRLBLOK,^'04A3930^C^^^^00C,IOCSFDMXB 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: L,IOCSRLBLOK,^'02G3931^BH^^^00B,IOCSER1,^'04A3932^MLCA^00C,IOCSFDDKIN,IOCSRQDKIN,^'02F3933^BOOL^00?R 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 501: ,)068,,^'04E3934^MLCS^00C,IOCSCONV10-1,IOCSRQDKIN-2,^'03C3935RMLCS^00C,@9@,IOCSRQARM,^'03?3936^S^^^^ 1 11 11 1 1 1 1 1 11 1 1 1 1 1 11 1 601: 00B,IOCSRLCUAR,^'03?3937^B^^^^00B,IOCSRLEASE,^'05B3938^MLNA^00CIOCSGET1,&IOCSWAITLP,IOCSINTEXT&5,^'0 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: 2H3939^BXPA^00B,IOCSPICK,^'02G3940^BOOL^00?R,-)045,,^'03D3941^SBR^^00BIOCSPUT,IOCSXAL,^'03?3942^SBR^ 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 801: ^00B,IOCSREL4&5,^'04F3943RZA^^^00CIOCSPUTT,IOCSROUTNE,IOCSXRL,^'03H3944^C^^^^00C,5&IOCSXAL,IOCSRLFD, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 901: ^'02H3945^BE^^^00B,IOCSPUT2,^'03H3946^C^^^^00C,IOCSXRL,IOCSOLDEST,^'02H3947^BE^^^00B,IOCSPUT3,^' 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 098D04G3948^MLNB^00CIOCSER2,IOCSREL4&5,IOCSMSG44,^'03B3949^S^^^^00C,&7,IOCSMSG44,^'02F3950^BOOL^00?R 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: ,#103,,^'03B3951^MRCWG00C,80,IOCSXSAVE,^'03?3952^BXPA^00B,IOCSCS1SFS,^'04?3953^MRCWG00CIOCSER2Z,IOCS 1 11 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 201: XSAVE,80,^'07B3954RMRCWG00CIOCSER21,IOCSMSG4,IOCSERFLD,^MOVE^INVALID^PUT^20259MSG^'02H3955^BXPA^00B, 1 1 11 1 1 1 1 1 11 1 1 1 301: IOCSHALT,^'02H3956^B^^^^00B,IOCSREL4,^'03F3957^S^^^^00BIOCSPUT2,IOCSRLFD,^'02H3958^S^^^^00B,IOCSLUFD 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: ,^'04E3959^ZA^^^00CIOCSPUT3,5&IOCSXAL,IOCSXFD,^'03H3960^ZA^^^00C,IOCSFDCUAR,IOCSXAL,^'02G3961^BZ^^^0 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 501: 0B,IOCSER2,^'04B3962^BCE^^00D,IOCSREL10,IOCSALAVLY,E,^'03D3963^MLCS^00C,@B@,IOCSALAVLY,^'02H3964^B^^ 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 601: ^^00B,IOCSREL1,^'02G3965^BOOL^00?R,-)045,,^'04G3966^ZA^^^00CIOCSEXDP,&IOCSOLDEST,IOCSXRL,^'02F3967RB 1 1 1 11 1 1 1 11 11 1 1 1 1 1 11 1 701: OOL^00?R,)045,,^'04H3968^ZA^^^00CIOCSEXDPP,&IOCSOLDEST,IOCSXRL,^'04B3969RZA^^^00CIOCSEX2,IOCSXRL,IOC 1 1 11 11 1 1 1 1 1 11 1 1 1 1 801: SXFD,^'03G3970^ZA^^^00C,0&IOCSXFD,IOCSXRL,^'03H3971^C^^^^00C,IOCSXRL,IOCSROUTNE,^'03I3972^A^^^^00C,& 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: IOCSRLLINK,IOCSXRL,^'02G3973^BU^^^00B,IOCSEX2,^'03F3974^C^^^^00C,IOCSXRL,IOCSLAST,^' 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098I03F3975^ZA^^^00C,IOCSLAST,IOCSXAL,^'02I3976^ZA^^^00B,0&IOCSXAL,^'02G3977^BZ^^^00B,IOCSEX3,^'03G3 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 101: 978^ZA^^^00C,0&IOCSXAL,IOCSXAL,^'03I3979^A^^^^00C,&IOCSRLLINK,IOCSXAL,^'04F3980^ZA^^^00CIOCSEX4,0&IO 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: CSXRL,0&IOCSXFD,^'03I3981^ZA^^^00C,0&IOCSXAL,0&IOCSXRL,^'04?3982^ZA^^^00C,IOCSROUTNE,0&IOCSXAL,^'02G 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 301: 3983^BU^^^00B,IOCSEX5,^'03D3984^BU^^^00BIOCSEX3,IOCSEX4,^'03F3985^ZA^^^00C,IOCSXFD,IOCSLAST,^'04I398 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 401: 6^MRCG^00CIOCSEX5,IOCSOLDEST&1,1&IOCSXRL,^'03G3987^ZA^^^00C,0&IOCSXFD,IOCSXRL,^'03D3988^BOOL^00?R,)0 1 1 1 1 11 1 1 1 1 1 11 1 1 1 501: 28,,^STKAREA^'03I3989^BZN^^00D,IOCSEX7,IOCSWATEMP,,^'03I3990^BZN^^00D,IOCSEX6,IOCSRLWKAR,,^'03H3991^ 11 11 1 1 1 1 11 11 1 1 1 1 11 11 1 601: ZA^^^00C,IOCSWATEMP,IOCSXAL,^'02G3992^BZ^^^00B,IOCSEX7,^'04?3993^MLCA^00C,IOCSWAFREE,4&IOCSXAL,^'03H 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 701: 3994^ZA^^^00C,IOCSXAL,IOCSWAFREE,^'03G3995^ZA^^^00BIOCSEX6,IOCSRLWKAR,^'03G3996RB^^^^00BIOCSEX7,IOCS 1 1 1 1 1 11 1 1 1 1 11 1 1 1 801: RLEASE,^'03?3997^B^^^^00B,IOCSWAITLP,^'02G3998^BOOL^00?R,-)045,,^'04A3999^SBR^^00BIOCSINTLK,IOCSINTL 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 901: K1&5,^'05A4000RC^^^^00CIOCSINTLKK,IOCSROUTNE,IOCSOLDEST,^'03A4001^BE^^^00BIOCSINTLK1,0,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 098C03H4002^ZA^^^00C,IOCSROUTNE,IOCSXRL,^'04B4003^MLCB^00C,IOCSINTLK1&5,IOCSRLRET,^'05A4004^MLCS^00C 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: IOCSWL14,IOCSABLANK&1,IOCSRLCODE,^'03H4005^B^^^^00BIOCSWL15,IOCSRLEASE,^'03?4006^B^^^^00B,IOCSWAITLP 1 1 1 11 1 1 1 1 11 1 1 1 201: ,^'04?4007^SBR^^00BIOCSRLEASE,IOCSREL4&5,^'03F4008^ZA^^^00C,IOCSLUFD,IOCSXFD,^'03H4009^C^^^^00C,IOCS 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: XRL,IOCSOLDEST,^'02H4010^BU^^^00B,IOCSREL2,^'02H4011^BZ^^^00B,IOCSREL8,^'03H4012^ZA^^^00C,IOCSFDCUAR 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 401: ,IOCSXAL,^'03H4013^BXPA^00BIOCSREL7,IOCSRELARM,^'04D4014^ZA^^^00CIOCSREL8,IOCSRLFD,IOCSXFD,^'03F4015 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 501: ^BZ^^^00BIOCSREL2,IOCSREL4,^'03H4016^ZA^^^00C,IOCSFDCUAR,IOCSXAL,^'02H4017^BZ^^^00B,IOCSREL3,^'03H40 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 601: 18^ZA^^^00C,IOCSROUTNE,IOCSXRL,^'04A4019^MLZS^00C,IOCSRLCODE,IOCSALAVLY,^'04B4020^BCE^^00D,IOCSREL10 1 1 1 1 11 1 1 1 1 1 11 1 1 1 701: ,IOCSALAVLY,E,^'03H4021^BXPA^00BIOCSREL1,IOCSRELARM,^'04I4022^ZA^^^00CIOCSREL3,IOCSSVCUAR,IOCSFDCUAR 1 1 1 11 1 1 1 1 11 1 1 1 1 801: ,^'04A4023^MLNA^00C,IOCSFDXSP,IOCSREL5&10,^'03I4024^ZA^^^00CIOCSREL5,IOCSSVXSP,0,^'02I4025^BEPA^00BI 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 901: OCSREL4,0,^'04C4026^MLCS^00CIOCSREL10,@A@,IOCSALAVLY,^'02H4027^B^^^^00B,IOCSREL1,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 098F03G4028QBOOL^00?Q,)031,,^SEQUENTIAL^'04A4029^ZA^^^00CIOCSDFCLOS,X15,IOCSXAL,^'03A4030^ZA^^^00C,X 1 1 1 1 1 11 11 1 1 1 1 1 11 1 1 1 101: 15,IOCSXFD,^'03I4031^A^^^^00C,&IOCSFDSREQ,IOCSXAL,^'03D4032^ZA^^^00C,@1@,IOCSALAVLY,^'03?4033^BXPA^0 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 201: 0B,IOCSRELARM,^'03F4034^ZA^^^00C,IOCSFDAL,IOCSXAL,^'04?4035^ZA^^^00BIOCSCLSSQ2,IOCSALAVLY,^'03?4036^ 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 301: BXPA^00B,IOCSRELARM,^'03H4037^A^^^^00C,IOCSFDALLG,IOCSXAL,^'04B4038^BCE^^00D,IOCSCLSCLR,0&IOCSXAL,", 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 401: ^'03?4039^B^^^^00B,IOCSCLSSQ2,^'02G4040^BOOL^00?R,-)045,,^'04B4041^SBR^^00BIOCSPIKSEQ,IOCSINTEXT&5,^ 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 501: '04D4042RMLCS^00CIOCSPIKSEE,@9@,IOCSFDSRAM,^'05?4043^BOOL^00?R,)039*)031,,^RNDMDEPTH*SEQUENTI^'04?40 11 1 1 1 1 1 11 1 1 1 11 11 1 601: 44^ZA^^^00C,IOCSFDRTN,IOCSFDSRRL,^'02F4045RBOOL^00?Q,)001,,^'04E4046^MLCS^00C,IOCSFDDKIN-2,IOCSCUCEL 1 1 1 1 11 1 1 1 11 11 1 1 1 1 701: L-1,^'04A4047QBOOL^00?Q,-)039,,^NOT^RNDMDEPTH^'06C4048^ZA^^^00CIOCSPICK15,IOCSALRL,IOCSXFD,^ADDR^OF^ 1 11 1 1 1 11 11 1 1 1 1 1 801: RTN^LIST^'06D4049^MLCS^00CIOCSPICK14,@0@,IOCSFDSRDA,^UNITS^POS^DISK^ADDR^'05A4050^ZA^^^00C,IOCSFDAL, 11 1 1 1 1 1 11 1 1 1 1 901: IOCSXAL,^HOLD^AREA^ADDR^'06A4051^BCE^^00DIOCSPICK1,IOCSPICK2,IOCSALAVLY,A,^AVAILABLE^' 1 11 1 1 1 1 1 1 1 1: 098?05C4052^A^^^^00C,IOCSFDALLG,IOCSXAL,^SEGMENT^LENGTH^'05H4053^BCE^^00D,IOCSPICK3,0&IOCSXAL,",^NO^ 1 1 1 1 1 1 1 11 1 1 1 1 1 1 101: MORE^SEGMENTS^'03D4054^B^^^^00B,IOCSPICK1,^LOOP^'07E4055^MRCG^00CIOCSPICK2,IOCSFDSRAV&1,IOCSALAVLY&1 11 1 1 1 1 11 1 1 1 1 201: ,^RTN^LIST^&^DISK^ADDR^'05?4056^MLCS^00C,@5@,IOCSALAVLY,^SEQ^NORMAL^SEEK^'04D4057^MLCS^00C,@A@,IOCSF 1 11 1 1 1 1 1 11 1 1 1 1 301: DSRAV,^AVAILABLE^'04A4058^B^^^^00B,IOCSRAY,^TO^ASSIGN^ARM^'04D4059^ZA^^^00CIOCSPICK3,IOCSXFD,IOCSXAL 1 11 1 1 1 1 11 1 1 1 1 401: ,^'03I4060^A^^^^00C,&IOCSFDSREQ,IOCSXAL,^'05E4061^MLCS^00C,@Q@,IOCSALAVLY,^SPECIAL^REQ^NOT^LIST^'02G 1 11 1 1 1 1 1 11 1 1 1 1 1 11 501: 4062^B^^^^00B,IOCSRAY,^'03F4063QBOOL^00?Q,)039,,^RNDMDEPTH^'04E4064^ZA^^^00CIOCSPICK14,IOCSXFD,IOCSX 1 1 1 1 11 1 1 1 11 11 1 1 1 1 601: AL,^'03I4065^A^^^^00C,&IOCSFDSREQ,IOCSXAL,^'04H4066^ZA^^^00CIOCSPICK15,IOCSXAL,IOCSSVEXAL,^'03F4067^ 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 701: MRCWG00C,IOCSRQ,IOCSAUXRQ,^'03I4068^MRCG^00C,IOCSALDKIN-3,IOCSRQ,^'03D4069^MLCS^00C,@Q@,IOCSRQAVLY,^ 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: '03D4070^MLCS^00C,@A@,IOCSALAVLY,^'02I4071^EQU^^00BIOCSPICK,*,^'04G4072^ZA^^^00CIOCSPICK1,IOCSROUTNE 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ,IOCSXRL,^'03F4073^ZA^^^00C,IOCSRLFD,IOCSXFD,^'03C4074^MLCS^00C,@0@,IOCSDSKAD,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 099?03F4075^ZA^^^00C,IOCSFDAL,IOCSXAT,^'03?4076^SW^^^00B,IOCSPICK16,^'04D4077^ZA^^^00CIOCSPICK3,IOCS 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: XAT,IOCSXAL,^'06A4078^C^^^^00CIOCSPICK2,IOCSDSKAD-1,IOCSALDKAD-1&IOCSXAT,^'02F4079^BOOL^00?R,)068,,^ 1 1 11 1 1 1 1 1 11 1 1 1 11 201: '02I4080^BU^^^00B,IOCSPICK5,^'05C4081^C^^^^00C,IOCSRQDKIN-2,IOCSALDKIN-2&IOCSXAT,^'02I4082RBE^^^00B, 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: IOCSPICK4,^'04G4083^A^^^^00CIOCSPICK5,IOCSFDALLG,IOCSXAT,^'04A4084^BCE^^00D,IOCSPICK6,0&IOCSXAT,",^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 401: 04I4085^C^^^^00C,IOCSALAVLY&IOCSXAT,IOCSALAVLY,^'02I4086^BH^^^00B,IOCSPICK3,^'02I4087^B^^^^00B,IOCSP 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 501: ICK2,^'04D4088^ZA^^^00CIOCSPICK4,IOCSXAT,IOCSXAL,^'03?4089^CW^^^00B,IOCSPICK16,^'05A4090^BCE^^00DIOC 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 601: SPICK6,IOCSPICK7,IOCSALAVLY,A,^'04A4091^C^^^^00C,IOCSROUTNE,IOCSOLDEST,^'02I4092^BE^^^00B,IOCSPICK8, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 701: ^'03H4093^ZA^^^00C,IOCSSVEXAL,IOCSXAL,^'04C4094^BBE^^00D,IOCSPICK10,IOCSRQAVLY,8,^'04I4095^ZA^^^00CI 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 801: OCSPICK13,&IOCSPRSREQ,IOCSXAL,^'03?4096^B^^^^00B,IOCSPICK11,^'05B4097^BBE^^00DIOCSPICK8,IOCSPICK17,I 1 1 1 11 1 1 1 1 11 1 1 1 1 901: OCSFDSRAV,8,^'04A4098^BZN^^00D,IOCSPICK9,IOCSALAVLY,,^'03E4099^ZA^^^00C,IOCSXFD,IOCSXAL,^' 1 1 11 1 1 1 1 11 11 1 1 1 1 1 1 1: 097D03I4100^A^^^^00C,&IOCSFDSREQ,IOCSXAL,^'04D4101^MLCS^00CIOCSPICK11,@Q@,IOCSRQAVLY,^'03?4102^B^^^^ 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: 00B,IOCSPICK10,^'05C4103^BCE^^00DIOCSPICK17,IOCSPICK13,IOCSRQAVLY,Q,^'02H4104^BEPA^00B,IOCSGET1,^'04 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 201: I4105^MRCG^00CIOCSPICK9,0&IOCSXAL,IOCSFDSREQ,^'03D4106^MLCS^00C,@Q@,IOCSFDSRAV,^'03F4107^ZA^^^00C,IO 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 301: CSALRL,IOCSXRL,^'02C4108^BZ^^^00B,*&7,^'03?4109^S^^^^00B,IOCSRLCUAR,^'04A4110^BCE^^00D,IOCSPICK7,IOC 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: SALARM,9,^'04B4111^MLCS^00C,IOCSALARM&1,IOCSCUCELL,^'02F4112^BOOL^00?R,)068,,^'03B4113^MLCS^00B,IOCS 1 1 11 1 1 1 1 1 11 1 1 1 11 11 1 1 1 501: ALDKIN-2,^'04B4114RMLCS^00C,IOCSRQARM,IOCSARLSCH-1,^'03?4115^B^^^^00B,IOCSRSERRC,^'04A4116^ZA^^^00C, 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: IOCSXFD,99992&IOCSXRL,^'04E4117^A^^^^00C,&IOCSFDSREQ,99992&IOCSXRL,^'04?4118^BW^^^00C,IOCSPICK7,IOCS 1 1 11 1 1 1 1 1 11 1 1 1 1 701: PICK16,^'03A4119^S^^^^00B,0-8&IOCSXRL,^'03D4120^MLCS^00C,@9@,IOCSFDSRAM,^'04B4121^BCE^^00D,IOCSPICK1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 801: 2,IOCSRQARM,9,^'03C4122^MLCS^00C,@0@,2&IOCSXAT,^'03C4123^A^^^^00C,@1@,0&IOCSXRL,^'04I4124^MLCS^00CIO 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 901: CSPICK12,IOCSALARM,IOCSRQARM,^'04C4125^MLCS^00CIOCSPICK7,@J@,IOCSRQAVLY,^' 1 1 1 11 1 1 1 1 1 1 1: 097I03G4126^BOOL^00?R,)031,,^SEQUENTIAL^'04C4127^BCE^^00D,IOCSPICK10,IOCSFDCODE,6,^'03H4128^ZA^^^00C 1 1 1 1 1 11 11 1 1 1 1 1 1 11 1 1 101: ,IOCSXFD,IOCSROUTNE,^'03D4129^MLCS^00C,@5@,IOCSRQAVLY,^'04I4130RMRCG^00CIOCSPICK10,IOCSRQ,IOCSALDKIN 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: -3,^'02F4131^BOOL^00?R,)068,,^'04E4132^MLCS^00C,IOCSALDKIN-2,IOCSCUCELL-1,^'03F4133RMRCG^00C,IOCSAUX 1 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 301: RQ,IOCSRQ,^'02?4134^NOPWM00B,,^'03G4135^B^^^^00BIOCSPICK16,IOCSRAY,^'04B4136^BBE^^00D,IOCSENDRD,IOCS 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 1 401: ALAVLY,1,^'04B4137^BCE^^00D,IOCSCSNENT,IOCSALARM,9,^'02G4138^B^^^^00B,IOCSRAY,^'06G4139^ZA^^^00CIOCS 1 1 11 1 1 1 1 1 1 11 1 1 1 1 11 1 1 501: ENDRD,IOCSREADY,IOCSALLINK,^ADD^TO^READY^LIST^'03G4140^ZA^^^00C,IOCSXAL,IOCSREADY,^'04B4141^BOOL^00? 1 1 1 11 1 1 1 1 1 11 1 1 601: R,-)031,,^NOT^SEQUENTIAL^'03?4142^B^^^^00B,IOCSCSNENT,^'03G4143RBOOL^00?R,)031,,^SEQUENTIAL^'03?4144 1 11 11 1 1 1 1 11 1 1 1 11 11 1 701: ^B^^^^00B,IOCSRELAR2,^'03C4145RBXPA^00BIOCSWAITLP,*&1,^'05E4146^ZA^^^00C,IOCSREADY,IOCSXAL,^TEST^REC 1 1 1 11 1 1 1 1 11 1 1 1 1 1 801: ORD^READY^'03C4147^MLCS^00C,@J@,IOCSWL6-1,^'03I4148^BZ^^^00B,IOCSWL10,^NONE^READY^'04?4149^MLCS^00C, 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: 11&IOCSXAL,IOCSWL6-1,^'05F4150^ZA^^^00C,IOCSALLINK,IOCSREADY,^MOVE^NEXT^ENTRY^' 1 1 11 1 1 1 1 1 1 1: 099C05C4151^ZA^^^00C,IOCSALRL,IOCSXRL,^ADDR^OF^RL^ENTRY^'05C4152^ZA^^^00C,IOCSRLFD,IOCSXFD,^ADDR^OF^ 1 1 1 1 1 1 1 11 1 1 1 1 1 101: FD^ENTRY^'03F4153^ZA^^^00C,IOCSXFD,IOCSLUFD,^'05E4154^ZA^^^00C,IOCSXAL,IOCSRLCUAR,^INIT^RL^CUR^AREA^ 11 1 1 1 1 1 11 1 1 1 1 1 201: '04H4155^ZA^^^00CIOCSWL2,IOCSFDCUAR,IOCSSVCUAR,^'05E4156^ZA^^^00C,IOCSXAL,IOCSFDCUAR,^INIT^FD^CUR^AR 11 1 1 1 1 1 11 1 1 1 1 1 301: EA^'04I4157^ZA^^^00C,IOCSFDXSP,IOCSXAL,^USERS^X^REG^'03I4158^ZA^^^00C,0&IOCSXAL,IOCSSVXSP,^'02I4159^ 11 1 1 1 1 1 11 1 1 1 1 1 11 1 401: S^^^^00B,0&IOCSXAL,^'04D4160^ZA^^^00C,IOCSFDRCLG,99998&IOCSXAL,^'04?4161^M^^^^00C,IOCSRLBLOK,0&IOCSX 1 1 1 11 1 1 1 1 1 11 1 1 1 1 501: AL,^'04?4162^A^^^^00C,IOCSFDCUAR,0&IOCSXAL,^'04A4163^A^^^^00C,&IOCSALFILD,0&IOCSXAL,^'03H4164^C^^^^0 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 601: 0C,IOCSXRL,IOCSOLDEST,^'04G4165^BE^^^00B,IOCSWL4,^EXIT^USERS^DISK^RTN^'03H4166^ZA^^^00C,IOCSXRL,IOCS 1 1 1 11 1 1 1 1 11 1 1 1 1 701: ROUTNE,^'05F4167^BCE^^00D,IOCSWL15,IOCSRLCODE,,^TO^PART^RELEASE^'05G4168^BBE^^00D,IOCSWL14,IOCSPRSRA 1 11 1 1 1 1 11 11 1 1 1 1 801: V,8,^TO^PART^RELEASE^'06D4169^MLNA^00CIOCSWL4,IOCSRLRET,IOCSWL6&5,^ADDR^USERS^GET^&1^'04E4170^ZA^^^0 1 1 11 1 1 1 1 1 11 1 1 901: 0CIOCSWL5,IOCSXRL,IOCSROUTNE,^'02H4171^EQU^^00BIOCSWL7,*,^'03D4172^BOOL^00?R,)028,,^STKAREA^' 1 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098G04A4173^MLCA^00C,IOCSRLWKAR,IOCSWATEMP,^'03H4174^ZA^^^00C,IOCSWATEMP,IOCSXWA,^'03F4175RZA^^^00C, 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 101: IOCSXFD,IOCSLUFD,^'03I4176^MLCS^00C,IOCSGM&1,IOCSRLCODE,^'04A4177^BCE^^00D,IOCSEXDP,IOCSWL10-1,J,^'0 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 201: 2H4178^BEPA^00BIOCSWL6,0,^'06D4179^ZA^^^00CIOCSWL10,IOCSOLDEST,IOCSXRL,^INIT^TO^OLDEST^RL^'05D4180^Z 1 1 1 1 11 1 1 1 1 1 11 1 301: A^^^00C,IOCSRLFD,IOCSXFD,^ADDR^OF^OLDEST^FD^'02G4181^BZ^^^00B,IOCSWL4,^'05F4182^ZA^^^00C,IOCSRLCUAR, 1 1 1 1 11 1 1 1 1 11 1 1 1 1 401: IOCSXAL,^CURRENT^HOLD^AREA^'04B4183^BZ^^^00B,IOCSWL11,^NONE^ASSIGNED^'03?4184^ZS^^^00B,IOCSALAVLY,^' 1 11 1 1 1 1 11 1 1 1 1 1 501: 02G4185^B^^^^00B,IOCSWL2,^'04A4186^BEPA^00BIOCSWL11,*&1,^ALLOW^INT^'05F4187^BBE^^00D,IOCSWAITLP,IOCS 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 601: PRSRAV,8,^PGM^SPEC^REQ^'04F4188^MLNA^00CIOCSWL1,IOCSLAST,IOCSWL12&5,^'03G4189^ZA^^^00CIOCSWL12,0,IOC 1 1 11 1 1 1 1 1 11 1 1 1 1 701: SXRL,^'04G4190^BZ^^^00B,IOCSWAITLP,^NO^ENTRIES^EMPTY^'03F4191^ZA^^^00C,IOCSXRL,IOCSLAST,^'04C4192^A^ 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: ^^^00C,&IOCSRLLINK,IOCSLAST,^&4^'03D4193^BOOL^00?R,)028,,^STKAREA^'03H4194^MLNA^00C,IOCSLWA,IOCSRLWK 1 1 1 1 11 1 1 1 11 11 1 1 1 1 901: AR,^'02G4195RS^^^^00B,IOCSXFD,^'05E4196^MLNA^00C,IOCSMRET,IOCSWL6&5,^B^REG^WHEN^ENTDR^' 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 096D05E4197^ZA^^^00C,&IOCSEXDP,IOCSMRET,^ADDR^OF^EXIT^RTN^'02G4198^B^^^^00B,IOCSWL5,^'05B4199^ZA^^^0 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 101: 0CIOCSCLSRND,IOCSFDCUAR&X15,IOCSXAL,^'03?4200^BZ^^^00B,IOCSEXITRU,^'03D4201^MLCS^00C,@A@,IOCSALAVLY, 1 1 1 11 1 1 1 1 11 1 1 1 1 1 201: ^'02G4202QBOOL^00?Q,-)045,,^'04A4203^ZA^^^00CIOCSRELPAD,X15,IOCSXFD,^'02F4204QBOOL^00?Q,)045,,^'04A4 11 1 1 1 11 11 1 1 1 1 1 11 1 1 1 11 11 1 301: 205^ZA^^^00CIOCSRELPAA,X15,IOCSXFD,^'03?4206QBXPA^00B,IOCSRELARM,^'03H4207^BXPA^00BIOCSCLSCLR,IOCSST 1 1 1 1 11 1 1 1 1 11 1 1 1 401: LE,^'03?4208^B^^^^00B,IOCSEXITRU,^'03A4209^EQU^^00BIOCSDFOPEN,*,^'03H4210^ZA^^^00C,@1@,IOCSFDSRAV&X1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: 5,^'03F4211^BOOL^00?Q,)039,,^RNDMDEPTH^'03D4212^S^^^^00B,IOCSFDCUAR&X15,^'04G4213^BCE^^00D,IOCSDFOPN 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 601: P,IOCSFDCODE&X15,6,^'04G4214QZA^^^00C,IOCSFDAL&X15,IOCSFDCUAR&X15,^'04A4215^ZA^^^00C,IOCSFDXSP&X15,I 1 1 1 11 1 1 1 1 1 11 1 1 1 1 701: OCSXAL,^'04D4216^ZA^^^00C,IOCSFDCUAR&X15,0&IOCSXAL,^'03G4217^BOOL^00?Q,)031,,^SEQUENTIAL^'04G4218^BC 1 11 1 1 1 1 1 11 1 1 1 11 11 1 801: E^^00D,IOCSDFOPNR,IOCSFDCODE&X15,7,^'04D4219^A^^^^00C,IOCSFDFILD&X15,0&IOCSXAL,^'03D4220^S^^^^00B,IO 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: CSFDRLAC&X15,^'04I4221^ZA^^^00C,IOCSFDENDI&X15,IOCSFDENDD&X15,^' 1 11 1 1 1 1 1 1 1: 099F04D4222^MLCB^00C,IOCSFDSTRT&X15,IOCSDSKAD,^'02H4223^B^^^^00B,IOCSCONV,^'02F4224^DCW^^00B,@OPN^@, 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: ^'04I4225^MLCS^00C,IOCSCONV10-1,IOCSFDDKIN-2&X15,^'04D4226^MLCB^00C,IOCSDSKAD,IOCSFDSRDA&X15,^'04G42 11 1 1 1 1 1 11 1 1 1 1 1 11 1 201: 27^BCE^^00D,IOCSDFOPNA,IOCSFDCODE&X15,9,^'04I4228^S^^^^00C,IOCSFDINCR&X15,IOCSFDSRDA&X15,^'03?4229^B 1 1 1 1 1 11 1 1 1 1 1 11 1 301: ^^^^00B,IOCSDFOPNA,^'05A4230QA^^^^00CIOCSDFOPNR,&IOCSALFILD,0&IOCSXAL,^'05I4231^MRCG^00CIOCSDFOPNP,I 1 1 1 11 1 1 1 1 1 11 1 1 1 401: OCSABLANK&7,IOCSFDSRAV&7&X15,^'05?4232^ZA^^^00CIOCSDFOPNA,IOCSFDAL&X15,IOCSXAL,^'05D4233^MRCWG00CIOC 1 1 11 1 1 1 1 1 11 1 1 501: SDFOPN2,IOCSFDSREQ&X15,0&IOCSXAL,^'03B4234^SBR^^00B,IOCSDFOPN3&5,^'04B4235^A^^^^00C,IOCSFDALLG&X15,I 1 1 1 11 1 1 1 1 11 1 1 1 1 601: OCSXAL,^'03G4236^MRCWG00C,@"@,99999&IOCSXAL,^'02G4237^SBR^^00B,IOCSXAL,^'05F4238^BCE^^00D,IOCSEXITRU 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: ,0&IOCSXAL,",^END^HOLD^AREA^'04B4239^MRCWG00CIOCSDFOPN3,0,IOCSALFILD,^'03?4240^B^^^^00B,IOCSDFOPN2,^ 1 1 1 11 1 1 1 1 1 11 1 1 1 1 801: '04?4241^BOOL^00?Q,-)045,,^NOT^LINKAGES^'04B4242^SBR^^00BIOCSRELARM,IOCSINTEXT&5,^'04B4243QMRCWG00CI 11 1 1 1 11 11 1 1 1 1 11 1 1 901: OCSRELARR,80,IOCSISAVE,^'02F4244^BOOL^00?Q,)068,,^'04E4245^MLCS^00C,IOCSALDKIN-2,IOCSCUCELL-1,^' 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 1: 099?04C4246QBBE^^00D,IOCSRELAR2,IOCSALAVLY,1,^'03F4247^ZA^^^00C,IOCSXFD,IOCSALRL,^'04I4248^MLCS^00CI 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 101: OCSRAY,IOCSALARM&1,IOCSCUCELL,^'03B4249^MLCS^00B,IOCSALDKIN-2,^'03?4250^B^^^^00B,IOCSRSERRC,^'04?425 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 1^BCE^^00D,IOCSRAY2,IOCSALARM,9,^'03A4252^S^^^^00B,0-8&IOCSXRL,^'02F4253^BOOL^00?Q,)068,,^'05H4254^B 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 301: BE^^00D,IOCSRAYEXT,IOCSALAVLY,7,^NOT^SPEC.^REQ.^'02G4255QBOOL^00?Q,-)068,,^'05G4256^BBE^^00D,IOCSASK 1 1 1 1 1 11 1 1 1 11 11 1 1 1 401: RQY,IOCSALAVLY,7,^NOT^SPEC.^REQ^'04A4257QZA^^^00C,IOCSXAL,99992&IOCSXRL,^'04A4258^ZA^^^00C,99997&IOC 1 1 1 11 1 1 1 1 1 11 1 1 1 501: SXRL,IOCSXAL,^'03?4259^BZ^^^00B,IOCSCSNENT,^'04D4260^ZA^^^00C,IOCSALLINK,99997&IOCSXRL,^'02H4261^B^^ 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 601: ^^00B,IOCSRAY7,^'04H4262^BCE^^00DIOCSRAY2,IOCSRAY5,0&IOCSXRL,0,^'03C4263^S^^^^00C,@1@,0&IOCSXRL,^'03 1 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 701: G4264^LE^^^00C,@0@,99987&IOCSXRL,^'02G4265^SBR^^00B,IOCSXAT,^'03C4266^MLCS^00C,@1@,1&IOCSXAT,^'03I42 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: 67^MLCS^00C,0&IOCSXAT,IOCSALARM,^'02H4268^B^^^^00B,IOCSRAY4,^'05A4269^BBE^^00DIOCSRAY5,IOCSCSNENT,IO 1 1 1 1 11 1 1 1 1 11 1 1 1 1 901: CSALAVLY,8,^'04I4270^ZA^^^00CIOCSRAY7,99992&IOCSXRL,IOCSXAT,^'02H4271^BZ^^^00B,IOCSRAY6,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1: 100?04G4272^S^^^^00B,0-8&IOCSXRL,^ZERO^PART.^REL.^'04G4273^MLCS^00C,IOCSALARM&IOCSXAT,IOCSALARM,^'04 1 1 1 1 1 1 11 1 1 1 1 1 11 101: A4274^MLCS^00C,@9@,IOCSALARM&IOCSXAT,^'02I4275^EQU^^00BIOCSRAY4,*,^'02F4276^BOOL^00?Q,)068,,^'04E427 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 11 1 201: 7^BCE^^00D,IOCSRAY4X1,IOCSCUCELL-1,@,^'05B4278^ZA^^^00C,IOCS2SKRQ,IOCSALLINK,^ADD^TO^CH^2^'04G4279^Z 1 1 1 1 1 11 1 1 1 1 1 11 1 301: A^^^00C,IOCSXAL,IOCS2SKRQ,^SEEK^LIST^'03I4280^SW^^^00B,IOCSCS2S2,^CH^2^SEEK^'03?4281^B^^^^00B,IOCSRA 1 1 1 1 11 1 1 1 1 11 1 1 1 401: Y4XX,^'06B4282QZA^^^00CIOCSRAY4X1,IOCS1SKRQ,IOCSALLINK,^ADD^TO^CH^1^'04G4283^ZA^^^00C,IOCSXAL,IOCS1S 1 11 1 1 1 1 1 11 1 1 1 1 501: KRQ,^SEEK^LIST^'03I4284^SW^^^00B,IOCSCS1S2,^CH^1^SEEK^'05C4285^BBE^^00DIOCSRAY4XX,IOCSCSNENT,IOCSALA 1 11 1 1 1 1 11 1 1 1 1 601: VLY,7,^'04C4286^MLZS^00C,IOCSABLANK&1,IOCSALAVLY,^'03?4287^B^^^^00B,IOCSCSNENT,^'05B4288^ZA^^^00CIOC 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 701: SRAY6,99997&IOCSXRL,IOCSALLINK,^'04A4289^ZA^^^00C,IOCSXAL,99997&IOCSXRL,^'03?4290^B^^^^00B,IOCSCSNEN 1 1 1 11 1 1 1 1 1 11 1 1 1 801: T,^'02F4291^BOOL^00?Q,)068,,^'06?4292^BCE^^00DIOCSRAYEXT,IOCSASKRQY,IOCSCUCELL-1,@,^CH^1^'03E4293^B^ 1 11 1 1 1 11 11 1 1 1 1 1 1 11 1 901: ^^^00B,IOCSASKRQX,^CH^2^'04B4294QSBR^^00BIOCSRSERRC,IOCSLUEXIT&5,^'03C4295^MLNA^00C,IOCSUNIT,*&11,^' 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 1: 098B03B4296^LE^^^00C,IOCSCUCELL,0,^'02G4297^SBR^^00B,IOCSXRL,^'04D4298^LE^^^00C,IOCSARLSCH,99987&IOC 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: SXRL,^'02G4299^SBR^^00B,IOCSXAT,^'03A4300^B^^^^00BIOCSLUEXIT,0,^'05F4301^S^^^^00BIOCSDISK,IOCSALERCT 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 201: ,^RESTORE^ERROR^CTR^'06B4302^BCE^^00D,IOCSDISK1,IOCSALERAR,9,^TEST^ARM^SUBSTITUTE^'02F4303^BOOL^00?Q 1 11 1 1 1 1 1 1 11 1 1 301: ,)068,,^'05D4304^BCE^^00D,IOCSDISK2,IOCSALDKIN-2,@,^TEST^CH^1^'04C4305^MLNA^00C,&IOCS2DIOB&7,IOCSWTG 1 11 11 1 1 1 1 1 1 11 1 1 1 1 401: X&5,^'03B4306^MRCWG00C,80,IOCSXSAVE,^'04H4307^BOL1^00B,IOCSLMWTGR&11,^ENTER^ADDR^&11^'02?4308^BOPR10 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 501: 0B,,^'04A4309^MRCWG00CIOCSDISKR,IOCSXSAVE,80,^'05B4310QMLCS^00CIOCSDISK2,IOCSALERAR,IOCSARLSCH-1,^'0 11 11 1 1 1 1 1 11 1 1 1 1 1 11 601: 4B4311^MLCS^00C,IOCSALARM&1,IOCSCUCELL,^'03B4312^MLCS^00B,IOCSALDKIN-2,^'04G4313^B^^^^00B,IOCSRSERRC 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: ,^SEARCH^ARM^TABLE^'04A4314^B^^^^00B,IOCSARMRMD,^REMOVE^ARM^'03D4315^MLCS^00C,@9@,IOCSALERAR,^'03?43 1 11 1 1 1 1 11 1 1 1 1 1 11 1 801: 16^EQU^^00BIOCSDISK1,*,^'03F4317^BOOL^00?Q,)039,,^RNDMDEPTH^'04B4318^BCE^^00D,IOCSENDRD,IOCSALAVLY,J 1 1 1 11 1 1 1 11 11 1 1 1 1 1 901: ,^'04C4319QMLNS^00CIOCSDISK4,@1@,IOCSALAVLY,^'03F4320^ZA^^^00C,IOCSALRL,IOCSXFD,^' 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 096B05B4321^BCE^^00DIOCSRELAR2,IOCSRELAR4,IOCSALARM,9,^'04B4322^MLCS^00C,IOCSALARM,IOCSARLSCH-1,^'04 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: B4323^MLCS^00C,IOCSALARM&1,IOCSCUCELL,^'03B4324^MLCS^00B,IOCSALDKIN-2,^'03?4325^B^^^^00B,IOCSRSERRC, 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 201: ^'03?4326^S^^^^00B,IOCSALERCT,^'03C4327^ZA^^^00B,99997&IOCSXRL,^'03?4328^BZ^^^00B,IOCSRELAR1,^'04A43 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: 29^ZA^^^00C,99997&IOCSXRL,IOCSXAT,^'04G4330^MLCS^00C,IOCSALARM,IOCSALARM&IOCSXAT,^'05B4331^ZA^^^00C, 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: IOCSALLINK&IOCSXAT,99997&IOCSXRL,^'02F4332^BOOL^00?Q,)068,,^'04E4333^BCE^^00D,IOCSRELARX,IOCSCUCELL- 1 1 11 1 1 1 11 11 1 1 1 1 501: 1,@,^'06?4334^ZA^^^00C,IOCS2SKRQ,IOCSALLINK&IOCSXAT,^ADD^TO^CH^2^'04G4335^ZA^^^00C,IOCSXAT,IOCS2SKRQ 1 1 11 1 1 1 1 1 11 1 1 1 1 601: ,^SEEK^LIST^'03I4336^SW^^^00B,IOCSCS2S2,^CH^2^SEEK^'03?4337^B^^^^00B,IOCSRELAR5,^'07?4338QZA^^^00CIO 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: CSRELARX,IOCS1SKRQ,IOCSALLINK&IOCSXAT,^ADD^TO^CH^1^'04G4339^ZA^^^00C,IOCSXAT,IOCS1SKRQ,^SEEK^LIST^'0 1 1 1 11 1 1 1 1 1 11 801: 3I4340^SW^^^00B,IOCSCS1S2,^CH^1^SEEK^'03?4341^B^^^^00B,IOCSRELAR5,^'05A4342^ZA^^^00CIOCSRELAR1,IOCSX 1 1 1 1 11 1 1 1 1 11 1 1 1 901: AL,99992&IOCSXRL,^'04C4343^BZN^^00D,IOCSRELAR3,IOCSALAVLY,&,^' 1 1 11 1 1 1 1 1 1 1 1: 097F04C4344^BCE^^00D,IOCSRELAR4,IOCSALERAR,9,^'04C4345^A^^^^00CIOCSRELAR3,@1@,0&IOCSXRL,^'03C4346^ML 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 101: CS^00C,@0@,2&IOCSXAT,^'05?4347^MLCS^00CIOCSRELAR5,IOCSALERAR,IOCSALARM,^'03D4348^MLCS^00C,@9@,IOCSAL 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 201: ERAR,^'03C4349^S^^^^00B,99992&IOCSXRL,^'03?4350^B^^^^00B,IOCSRELAR2,^'03?4351^NOPWM00BIOCSRELAR4,,^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 11 1 301: 03?4352^B^^^^00B,IOCSCHGAD1,^'04C4353^BCE^^00D,IOCSPICK14,IOCSFDSRAV,Q,^'03F4354^BOOL^00?Q,)039,,^RN 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 1 11 401: DMDEPTH^'03I4355^ZA^^^00C,&IOCSPRSREQ,IOCSXAL,^'04C4356^BCE^^00D,IOCSPICK15,IOCSPRSRAV,Q,^'03?4357QB 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 501: ^^^^00B,IOCSCSNENT,^'04D4358^^^^^^00C*,SEEK^ROUTINE,^CHANNEL^1,^'04F4359^ZA^^^00CIOCS1SEEK,IOCS1SKRQ 1 1 1 11 1 1 1 1 1 11 1 1 1 601: ,IOCSXAL,^'03?4360^BZ^^^00B,IOCS1SEEKX,^'03I4361^ZA^^^00C,4&IOCSXAL,IOCS1SKRQ,^'03A4362^SD^^^00C,1,I 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 701: OCSALARM,^'03?4363^BA1^^00B,IOCSSKERR1,^'06A4364^ZA^^^00CIOCSASKRQY,IOCS1RWRQ,IOCSALLINK,^ADD^TO^CH1 1 11 1 1 1 1 11 1 1 1 1 1 801: ^'03G4365^ZA^^^00C,IOCSXAL,IOCS1RWRQ,^'03G4366^SW^^^00B,IOCSCS1S4,^CH^1^RW^'03?4367^B^^^^00B,IOCSCSN 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: ENT,^'03I4368^CW^^^00BIOCS1SEEKX,IOCSCS1S2,^'03A4369^B^^^^00B,IOCSCS1S2&7,^' 1 11 1 1 1 1 11 1 1 1 1 1 1: 096B04G4370^^^^^^00C*,READ^WRITE^1405,^CHANNEL^1,^'04G4371^ZA^^^00CIOCS1DISK,&IOCS1RWRQ,IOCSXAL,^'06 1 1 1 1 1 1 1 11 1 1 1 1 1 11 101: G4372^ZA^^^00CIOCS1RWRC1,IOCSXAL,IOCSXAT,^TRANSFER^ADDR^OF^RWRQ^'06F4373^ZA^^^00C,0&IOCSXAT,IOCSXAL, 1 1 1 1 1 11 1 1 1 1 1 201: ^PICK^UP^DATA^AT^ADDR^OF^RWRQ^'03A4374^BZ^^^00B,IOCSCS1S4&7,^'04I4375^A^^^^00C,&IOCSALLINK,IOCSXAL,^ 11 1 1 1 1 11 1 1 1 1 1 301: &4^TO^XAL^'05?4376^MU^^^00D,@F0,13&IOCSXAL,Q,^TEST^ARM^BUSY^'05H4377^BCB1^00B,IOCS1RWRC1,^LOOP^TO^LO 11 1 1 1 1 1 1 11 1 1 1 1 401: CATE^ARM^NOT^BUSY^'05A4378^^^^^^00B*,ENTRY^LOCATED^TO^READ^OR^WRITE,^'02C4379^BA1^^00B,*&1,^'05I4380 11 1 1 1 1 11 1 1 1 1 11 1 501: ^ZA^^^00C,0&IOCSXAL,0&IOCSXAT,^REMOVE^FROM^RW^LIST^'02I4381^ZA^^^00B,IOCS1RWRQ,^'02C4382^BZ^^^00B,*& 1 1 1 1 11 1 1 1 1 11 1 1 1 601: 8,^'02C4383^B^^^^00B,*&7,^'02I4384^CW^^^00B,IOCSCS1S4,^'04D4385^A^^^^00C,&13,IOCSXAL,^TO^DISK^ADDR^' 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 701: 05C4386^MLNA^00C,IOCSXAL,IOCS1DIO&8,^HOLD^AREA^ADDR^'04C4387^S^^^^00C,&17,IOCSXAL,^DECR^2^ADDS^'06G4 1 1 1 1 1 1 11 1 1 1 1 1 11 1 801: 388^BBE^^00D,IOCSPICK15,IOCSALAVLY,8,^TEST^FOR^SPECIAL^REQUES^'05C4389^MLCA^00C,IOCSALDKIN,IOCS1DIO& 1 1 1 1 1 11 1 1 1 1 901: 3,^MOVE^INSTR.^'04F4390^MLCS^00C,@R@,IOCS1DIO&9,^ASSUME^READ^' 1 11 1 1 1 1 1 1 1: 097I05F4391^BBE^^00D,IOCS1DIO,IOCSALAVLY,1,^TEST^FOR^WRITE^'05F4392^MLCS^00C,@B@,IOCSALAVLY,^CODE^B, 1 1 1 1 1 1 1 1 11 1 1 1 1 1 101: ^TO^BE^WRITTEN^'04I4393^MLCS^00C,@W@,IOCS1DIO&9,^INDICATE^WRITE^'04G4394^RDO^^00CIOCS1DIO,1,0,^CHAN^ 11 1 1 1 1 1 11 1 1 1 1 1 201: 1^RD^OR^WR^'04G4395^BCE^^00D,IOCS1WDC,*-12,W,^TEST^FOR^WR^'05A4396^BW^^^00CIOCS1DIOA,IOCS1DIOB,IOCSC 11 1 1 1 1 1 1 11 1 1 1 1 301: S1SCN&1,^'04F4397^BOL1^00B,IOCSCS1RET,^BRANCH^EXPECTED^'05I4398^MLNB^00CIOCS1DIOB,IOCS1DIO&8,IOCSXAL 1 11 1 1 1 1 11 1 1 1 1 401: ,^RESTORE^XAL^'03A4399^S^^^^00C,&17,IOCSXAL,^'04G4400^BA1^^00B,IOCSERDISK,^TO^ERROR^ROUTINE^'02H4401 1 11 1 1 1 1 1 11 1 1 1 1 11 1 501: ^B^^^^00B,IOCSDISK,^'05F4402^^^^^^00C*,WRITE^DISK^CHECK^ROUTINE,^CHANNEL^1,^'07E4403^MLCA^00CIOCS1WD 1 1 1 11 1 1 1 1 1 11 1 1 601: C,IOCS1DIO&9,IOCS1WDCIO&9,^MOVE^INSTRUCTION^TO^WDC^'06?4404^MLCS^00C,@3@,IOCS1WDCIO&3,^MOVE^3^TO^CHA 1 1 1 11 1 1 1 1 1 701: NGE^TO^WDC^'04B4405^BW^^^00C,IOCS1WDCB,IOCSCS1SCN&1,^'03?4406^BOL1^00B,IOCSCS1RET,^'03B4407^BA1^^00B 11 1 1 1 1 1 11 1 1 1 1 11 1 1 801: IOCS1WDCB,*&1,^'03C4408^WDC^^00CIOCS1WDCIO,1,0,^'04?4409^MLNB^00C,IOCS1WDCIO&8,IOCSXAL,^'04C4410^S^^ 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: ^^00C,&17,IOCSXAL,^RESTORE^XAL^'04G4411^MLCS^00C,@D@,IOCSALAVLY,^INDICATE^WDC^' 1 1 1 1 11 1 1 1 1 1 1 1: 097?05C4412^B^^^^00B,IOCS1DIOA,^TO^TAKE^ADVANTAGE^OF^BO^'03H4413^BOOL^00?Q,)068,,^CHAN^2^1405^'04D44 1 1 1 1 1 1 11 1 1 1 11 11 1 101: 14^^^^^^00C*,SEEK^ROUTINE,^CHANNEL^2,^'04F4415^ZA^^^00CIOCS2SEEK,IOCS2SKRQ,IOCSXAL,^'03?4416^BZ^^^00 1 1 1 1 11 1 1 1 1 1 11 1 1 201: B,IOCS2SEEKX,^'03I4417^ZA^^^00C,4&IOCSXAL,IOCS2SKRQ,^'03A4418^SD^^^00C,2,IOCSALARM,^'03?4419^BA2^^00 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 301: B,IOCSSKERR1,^'06F4420^ZA^^^00CIOCSASKRQX,IOCS2RWRQ,IOCSALLINK,^ADD^TO^CH2^RWRQ^'03G4421^ZA^^^00C,IO 1 1 11 1 1 1 1 1 11 1 1 1 401: CSXAL,IOCS2RWRQ,^'03G4422^SW^^^00B,IOCSCS2S4,^CH^2^RW^'03?4423^B^^^^00B,IOCSCSNENT,^'03I4424^CW^^^00 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 501: BIOCS2SEEKX,IOCSCS2S2,^'03A4425^B^^^^00B,IOCSCS2S2&7,^'04G4426^^^^^^00C*,READ^WRITE^1405,^CHANNEL^2, 1 1 11 1 1 1 1 11 1 1 1 1 1 601: ^'04G4427^ZA^^^00CIOCS2DISK,&IOCS2RWRQ,IOCSXAL,^'06G4428^ZA^^^00CIOCS2RWRC1,IOCSXAL,IOCSXAT,^TRANSFE 11 1 1 1 1 1 11 1 1 1 1 1 701: R^ADDR^OF^RWRQ^'06F4429^ZA^^^00C,0&IOCSXAT,IOCSXAL,^PICK^UP^DATA^AT^ADDR^OF^RWRQ^'03A4430^BZ^^^00B,I 11 1 1 1 1 1 11 1 1 1 801: OCSCS2S4&7,^'04I4431^A^^^^00C,&IOCSALLINK,IOCSXAL,^&4^TO^XAL^'05?4432^MU^^^00D,*F0,13&IOCSXAL,Q,^TES 1 11 1 1 1 1 1 11 1 1 1 1 1 1 901: T^ARM^BUSY^'05H4433^BCB2^00B,IOCS2RWRC1,^LOOP^TO^LOCATE^ARM^NOT^BUSY^' 11 1 1 1 1 1 1: 097H05A4434^^^^^^00B*,ENTRY^LOCATED^TO^READ^OR^WRITE,^'02C4435^BA2^^00B,*&1,^'05I4436^ZA^^^00C,0&IOC 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: SXAL,0&IOCSXAT,^REMOVE^FROM^RW^LIST^'02I4437^ZA^^^00B,IOCS2RWRQ,^'02C4438^BZ^^^00B,*&8,^'02C4439^B^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: ^^00B,*&7,^'02I4440^CW^^^00B,IOCSCS2S4,^'04D4441^A^^^^00C,&13,IOCSXAL,^TO^DISK^ADDR^'05C4442^MLNA^00 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 301: C,IOCSXAL,IOCS2DIO&8,^HOLD^AREA^ADDR^'04C4443^S^^^^00C,&17,IOCSXAL,^DECR^2^ADDS^'06G4444^BBE^^00D,IO 1 1 1 11 1 1 1 1 1 11 1 1 1 401: CSPICK15,IOCSALAVLY,8,^TEST^FOR^SPECIAL^REQUES^'05C4445^MLCA^00C,IOCSALDKIN,IOCS2DIO&3,^MOVE^INSTR.^ 1 1 1 11 1 1 1 1 1 501: '04F4446^MLCS^00C,@R@,IOCS2DIO&9,^ASSUME^READ^'05F4447^BBE^^00D,IOCS2DIO,IOCSALAVLY,1,^TEST^FOR^WRIT 11 1 1 1 1 1 11 1 1 1 1 1 1 601: E^'05F4448^MLCS^00C,@B@,IOCSALAVLY,^CODE^B,^TO^BE^WRITTEN^'05A4449^MLCS^00C,@W@,IOCS2DIO&9,^WRITE^D^ 11 1 1 1 1 1 11 1 1 1 1 1 701: MODIFIER^'04G4450^RDO^^00CIOCS2DIO,2,0,^CHAN^2^RD^OR^WR^'05?4451^BCE^^00D,IOCS2WDC,*-12,W,^TEST^FOR^ 11 1 1 1 1 1 11 1 1 1 1 1 1 801: WRITE^'05A4452^BW^^^00CIOCS2DIOA,IOCS2DIOB,IOCSCS2SCN&1,^'03?4453^BOL2^00B,IOCSCS2RET,^'04G4454^MLNB 11 1 1 1 1 1 11 1 1 1 1 11 1 901: ^00CIOCS2DIOB,IOCS2DIO&8,IOCSXAL,^'04C4455^S^^^^00C,&17,IOCSXAL,^DECR^2^ADDS^' 1 1 1 1 11 1 1 1 1 1 1 1: 097G05E4456^BA2^^00BIOCS2BA2,IOCSERDISK,^TO^ERROR^ROUTINE^'02H4457^B^^^^00B,IOCSDISK,^'05F4458^^^^^^ 1 1 1 1 1 1 11 1 1 1 1 11 1 101: 00C*,WRITE^DISK^CHECK^ROUTINE,^CHANNEL^2,^'07E4459^MLCA^00CIOCS2WDC,IOCS2DIO&9,IOCS2WDCIO&9,^MOVE^IN 1 1 1 1 11 1 1 1 1 1 201: STRUCTION^TO^WDC^'06?4460^MLCS^00C,@3@,IOCS2WDCIO&3,^MOVE^3^TO^CHANGE^TO^WDC^'04B4461^BW^^^00C,IOCS2 11 1 1 1 1 1 11 1 1 1 301: WDCB,IOCSCS2SCN&1,^'03?4462^BOL2^00B,IOCSCS2RET,^'03B4463^BA2^^00BIOCS2WDCB,*&1,^'03C4464^WDC^^00CIO 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 401: CS2WDCIO,2,0,^'04?4465^MLNB^00C,IOCS2WDCIO&8,IOCSXAL,^'04C4466^S^^^^00C,&17,IOCSXAL,^RESTORE^XAL^'04 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 501: G4467^MLCS^00C,@D@,IOCSALAVLY,^INDICATE^WDC^'05C4468^B^^^^00B,IOCS2DIOA,^TO^TAKE^ADVANTAGE^OF^BO^'02 1 1 1 1 1 11 1 1 1 1 11 601: ?4469QEJECT00B,,^'04D4470^DA^^^00DIOCSDMMYFD,1X99,IOCSXFD,0,^'03?4471^^^^^^00BIOCSFDXSP,5,^'03B4472^ 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 11 1 701: ^^^^^00BIOCSFDCUAR,10,^'04F4473^^^^^^00BIOCSFDRCLG,15,^RECORD^LENGTH^'05A4474^^^^^^00BIOCSFDAL,20,^A 1 1 1 11 1 1 1 1 11 1 1 1 1 801: DDR^OF^HOLDING^AREA^'04F4475^^^^^^00BIOCSFDCODE,21,^SIX^THRU^NINE^'04F4476^^^^^^00BIOCSFDMXBL,22,^MA 11 1 1 1 1 11 1 1 1 1 901: X.^BLOCKING^'03B4477^^^^^^00BIOCSFDALLG,27,^'03B4478^^^^^^00BIOCSFDSREQ,28,^' 11 1 1 1 1 11 1 1 1 1 1 1: 099A03B4479^^^^^^00BIOCSFDRLAC,32,^'03B4480^^^^^^00BIOCSFDDKIN,38,^'03B4481^^^^^^00BIOCSFDSRAV,39,^' 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 101: 03B4482^^^^^^00BIOCSFDSRRL,44,^'03B4483^^^^^^00BIOCSFDSRAM,45,^'03B4484^^^^^^00BIOCSFDSRDA,52,^'03B4 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 485^^^^^^00BIOCSFDSTRT,61,^'03A4486^^^^^^00BIOCSFDEND,69,^'03B4487^^^^^^00BIOCSFDINCR,74,^'03B4488^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 301: ^^^^00BIOCSFDENDD,79,^'03B4489^^^^^^00BIOCSFDENDI,84,^'03B4490^^^^^^00BIOCSFDFILD,86,^'03A4491^^^^^^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 401: 00BIOCSFDPAD,87,^'03A4492^^^^^^00BIOCSFDRTN,91,^'03D4493^DA^^^00D,1X27,IOCSXAL,0,^'03A4494^^^^^^00BI 1 1 1 11 1 1 1 1 11 1 1 1 1 1 1 11 1 1 501: OCSALLINK,5,^'03A4495^^^^^^00BIOCSALERCT,6,^'03A4496^^^^^^00BIOCSALERAR,7,^'03B4497^^^^^^00BIOCSALDK 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 601: IN,11,^'03B4498^^^^^^00BIOCSALAVLY,12,^'03?4499^^^^^^00BIOCSALRL,17,^'03A4500^^^^^^00BIOCSALARM,18,^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 701: '03B4501^^^^^^00BIOCSALDKAD,25,^'03?4502^^^^^^00BIOCSALGM,26,^'03B4503^^^^^^00BIOCSALFILD,27,^'03?45 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 801: 04^ORG^^00B,IOCSDMMYFD,^'03E4505^DA^^^00CIOCSISAVE,1X20,G,^'02C4506^^^^^^00C,1,1,^'02C4507^^^^^^00C, 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 901: 6,6,^'02E4508^^^^^^00C,11,11,^'02E4509^^^^^^00C,16,16,^'03E4510^DA^^^00CIOCSXSAVE,1X20,G,^' 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1: 098G03D4511^DCW^^00BIOCS1SKRQ,00000,^'03D4512^DCW^^00BIOCS2SKRQ,00000,^'04I4513^DCW^^00BIOCS1RWRQ,00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 000,^1ST^ENTRY^CH^1^'04I4514^DCW^^00BIOCS2RWRQ,00000,^1ST^ENTRY^CH^2^'03E4515^DCW^^00BIOCSRETAIN,000 1 11 1 1 1 1 11 1 1 1 201: 00,^'03A4516^EQU^^00BIOCSABLANK,*,^'03H4517^DCW^^00C,@A^^^^^^^^^^^^^@,G,^'03D4518^^^^^^00BIOCSCUCELL 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 301: ,@@0@,^'03B4519^^^^^^00BIOCSARLSCH,01,^'02G4520^BOOL^00?Q,-)045,,^'03D4521^DCW^^00BIOCSCONV10,@@0@,^ 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 401: '03C4522^DCW^^00BIOCSUNIT,&)049,^'02F4523QBOOL^00?Q,)039,,^'03E4524^DCW^^00BIOCSOLDEST,00000,^'02G45 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 11 1 501: 25^^^^^^00B,IOCSWL1,^'02E4526^^^^^^00B,00000,^'02E4527^^^^^^00B,00000,^'02E4528^^^^^^00B,00000,^'02A 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 601: 4529^^^^^^00B,0,^'02C4530^^^^^^00B,@"@,^'04C4531^^^^^^00B*,1405^IOCS^ROUTINE^LIST,^'04C4532^DA^^^00D 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: IOCSRL,)039X27,IOCSXRL,0,^'03C4533^^^^^^00CIOCSRLLINK,1,5,^'04E4534^^^^^^00CIOCSRLRET,6,10,^USER^GET 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 801: ^&1^'04F4535^^^^^^00CIOCSRLWKAR,11,15,^STACK^AREA^'04B4536^^^^^^00CIOCSRLFD,16,20,^FD^TABLE^'05?4537 11 1 1 1 1 1 11 1 1 1 1 1 11 1 901: ^^^^^^00CIOCSRLCUAR,21,25,^CUR.^HOLD^AREA^'04D4538^^^^^^00CIOCSRLBLOK,26,26,^BLOCKING^' 1 1 1 1 11 1 1 1 1 1 1 1: 098?04G4539^^^^^^00CIOCSRLCODE,27,27,^BLANK^OR^GM^'02C4540^DCW^^00B,@"@,^'02G4541^BOOL^00?R,-)045,,^ 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 11 101: '04D4542^^^^^^00B*,1405^IOCS^REQUEST^FIELD,^'03B4543^DA^^^00CIOCSRQ,1X18,G,^'02F4544^ORG^^00B,IOCSRQ 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 201: ,^'04E4545^DCW^^00BIOCSRQDKIN,0000,^OP^CODE^&X^'03C4546^DCW^^00BIOCSRQAVLY,@A@,^'04D4547^DCW^^00BIOC 1 11 1 1 1 1 11 1 1 1 1 11 1 1 301: SROUTNE,00000,^RL^ENTRY^'03D4548^DCW^^00BIOCSRQARM,0,^ARM^'04F4549^DC^^^00BIOCSDSKAD,0000000,^DISK^A 1 1 11 1 1 1 1 11 1 1 1 1 401: DDR^'02C4550^DCW^^00B,@"@,^'03F4551RDA^^^00CIOCSPRSREQ,1X25,G,^'03H4552^^^^^^00CIOCSPRSRLI,1,5,^LINK 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 501: ^'04H4553^^^^^^00CIOCSPRSRDI,8,11,^OP^CODE^AND^X^'04H4554^^^^^^00CIOCSPRSRAV,12,12,^AVAILABILITY^'04 11 1 1 1 1 1 11 1 1 1 1 1 11 601: D4555^^^^^^00CIOCSPRSRRL,13,17,^RL^ENTRY^'03I4556^^^^^^00CIOCSPRSRAM,18,18,^ARM^'04E4557^^^^^^00CIOC 1 1 1 1 1 11 1 1 1 1 1 11 1 1 701: SPRSRDA,19,25,^DISK^ADDR^'03E4558^DA^^^00CIOCSAUXRQ,1X18,G,^'03C4559^DCW^^00BIOCSLAST,00000,^'05?456 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 801: 0^^^^^^00BIOCSREADY,00000,^1ST^ENTRY^READY^'03E4561^^^^^^00BIOCSSVCUAR,00000,^'03D4562^^^^^^00BIOCSS 1 1 1 11 1 1 1 1 11 1 1 901: VXSP,00000,^'03C4563^^^^^^00BIOCSLUFD,00000,^'03D4564^BOOL^00?R,)028,,^STKAREA^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 098I03E4565^^^^^^00BIOCSWATEMP,00000,^'03E4566^^^^^^00BIOCSWAFREE,00000,^'03B4567^^^^^^00BIOCSLWA,00 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: 000,^'03E4568RDCW^^00BIOCSSVEXAL,00000,^'02G4569^BOOL^00?R,-)045,,^'03C4570^DCW^^00BIOCSMRET,00000,^ 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 201: '03D4571^DCW^^00BIOCSSTKAR,&)02H,^'03D4572^DCW^^00BIOCSSGMTL,&)04H,^'03A4573RDCW^^00BIOCSRLLNG,27,^' 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 301: 04G4574QBOOL^00?Q,-)039*-)045,,^NOT^RNDMDEPTH^'03?4575^EQU^^00BIOCSRQARM,*,^'04A4576^DCW^^00CIOCSDSK 1 1 1 1 11 11 1 1 1 1 11 1 1 401: AD,@00000000@,G,^'02?4577QEJECT00B,,^'04D4578^^^^^^00B*,1405^IOCS^ERROR^ROUTINE,^'02A4579^^^^^^00B*, 1 1 1 11 1 1 11 11 1 1 1 1 11 1 1 1 501: ,^'05D4580^SBR^^00BIOCSERDISK,IOCSXRL,^TEMP.^USE^OF^XRL^'05D4581^MLCA^00C,0-62&IOCSXRL,IOCS5MSG3,^14 1 11 1 1 1 1 11 1 1 1 1 1 601: 10^INSTR.^'05E4582^SW^^^00B,IOCS5MSG3-5,^WM^OVER^ADDR^OF^DISK^AD^'07E4583^MLNA^00CIOCSSEEKER,IOCS5MS 11 1 1 1 1 11 1 1 1 701: G3-1,IOCSERAA&5,^MOVE^ADDR^OF^DISK^ADDR^'06F4584^MLNA^00C,IOCS5MSG3-1,IOCSERAB&5,^MOVE^ADDR^OF^DISK^ 1 1 11 1 1 1 1 1 801: ADDR.^'05G4585^MRCWG00CIOCSERAA,0,IOCS5MSG4-7,^MOVE^DISK^ADDR.^'06?4586^MRCG^00CIOCSERAB,0,IOCS5CONJ 11 1 1 1 1 1 11 1 1 1 1 901: -7,^HOLD^ADDR^FOR^COMP^'06E4587^MLCS^00C,0-7&IOCSXRL,IOCSBEXOP,^RETAIN^CHANNEL^NOTATION^' 1 11 1 1 1 1 1 1 1: 095H03A4588^BOOL^00?Q,#103*#104,,^'04?4589^BCE^^00D,IOCSERAJ,IOCSBEXOP,R,^'03H4590^ZA^^^00C,IOCSXAL, 1 1 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 1 101: IOCSRETAIN,^'04?4591^MLNA^00C,&IOCSERAI,IOCSWTGX&5,^'03C4592^BOL1^00B,IOCSLMWTGR&11,^'02?4593^BOPR10 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 201: 0B,,^'04F4594^ZA^^^00CIOCSERAI,IOCSRETAIN,IOCSXAL,^'05?4595QMLCS^00CIOCSERAJ,IOCSALARM&1,IOCSCUCELL, 11 11 1 1 1 1 1 11 1 1 1 1 1 301: ^'03B4596^MLCS^00B,IOCSALDKIN-2,^'04B4597^MLCS^00C,IOCSALARM,IOCSARLSCH-1,^'05D4598^B^^^^00B,IOCSRSE 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 401: RRC,^LOOK^UP^CHANNEL^ARM^ENT^'05A4599^B^^^^00B,IOCSBEX,^TO^ALTER^NEXT^INSTR^CH1^'03?4600^BNR1^00B,IO 1 11 1 1 1 1 11 1 1 1 501: CSARMRM1,^'05A4601^B^^^^00B,IOCSBEX,^TO^ALTER^NEXT^INSTR^CH1^'04H4602^BEX1^00C,IOCSERRRTY,@,^TEST^4^ 1 11 1 1 1 1 11 1 1 1 1 1 601: &^8^BITS^'04A4603^MLCA^00C,@10254^111@,IOCS5MSG2,^'02G4604^B^^^^00B,IOCSBEX,^'02I4605^BNT1^00B,IOCS5 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 701: ER1D,^'03E4606^MLCS^00C,@0@,IOCS5MSG2-2,^'03F4607^B^^^^00BIOCS5ER1D,IOCSBEX,^'03D4608^BCB1^00B,IOCS5 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 801: ER1E,^BUSY^'03E4609^MLCS^00C,@0@,IOCS5MSG2-1,^'03F4610^B^^^^00BIOCS5ER1E,IOCSBEX,^'04B4611^BWL1^00B, 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 901: IOCS5ER1F,^WRONG^LENGTH^'03C4612^MLCS^00C,@0@,IOCS5MSG2,^' 1 11 1 1 1 1 1 1 1: 098G04G4613^MRCWG00CIOCS5ER1F,IOCS5MSG,IOCSERFLD,^'02H4614^B^^^^00B,IOCSNOTE,^'04E4615^B^^^^00B,IOCS 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 101: RAY4,^PUT^ON^SEEK^LIST^'05G4616^^^^^^00C*,1405^IOCS^ERROR^ROUTINE,^BNR^ROUTINE,^'05H4617^B^^^^00BIOC 1 11 1 1 1 1 1 11 1 1 201: SARMRM1,IOCSARMRMD,^CLOSED^SUBROUTINE^'06D4618^BCE^^00D,IOCSARMRM2,0-2&IOCSXRL,0,^ZERO^ARMS^FUNCTION 1 1 11 1 1 1 1 1 1 301: I^'04F4619^B^^^^00B,IOCSNUARM,^ASSIGN^A^NEW^ARM^'05A4620^MLCA^00CIOCSARMRM2,@00255^ARM@,IOCS5MSG2,^' 11 1 1 1 1 11 1 1 1 1 1 1 401: 03H4621^MRCWG00C,IOCS5MSG,IOCSERFLD,^'02H4622^B^^^^00B,IOCSHALT,^'04I4623^B^^^^00B,IOCSARMRM2,^LOOP, 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: ^CANNOT^PROCE^'05H4624^^^^^^00C*,1405^IOCS^ERROR^ROUTINE,^BEX@^ROUTINE,^'05?4625^BBE^^00DIOCSERRRTY, 11 1 1 1 1 1 11 1 1 1 601: IOCSRAY,IOCSALAVLY,8,^'06A4626^BCE^^00D,IOCSANARM1,IOCSALERCT,C,^TEST^CTR^EQUAL^TO^'04H4627^A^^^^00C 1 1 1 11 1 1 1 1 1 1 11 1 1 701: ,@1@,IOCSALERCT,^ADD^&1^TO^CTR^'04F4628^B^^^^00B,IOCSBEX,^TO^ALTER^TO^CH1^OR^'04G4629^BNT1^00B,IOCSR 1 1 1 11 1 1 1 1 11 1 1 1 801: AY4,^NO^TR,^ADD^TO^SK^L^'02G4630^B^^^^00B,IOCSRAY,^'07A4631^BCE^^00DIOCSANARM1,IOCSANARM2,IOCSALERAR 1 11 1 1 1 1 11 1 1 1 1 901: ,9,^NO^SUBSTITUTE^YET^'06D4632^^^^^^00C*,1405^ERROR^ROUTINE,^ERROR^ON^TWO^ARMS^OR^NO,^' 1 1 11 1 1 1 1 1 1 1: 100?04B4633^^^^^^00B*,,^SUBSTITUTE^AVAILABLE^'04I4634^MLCA^00CIOCS5ER1,@30256^111@,IOCS5MSG2,^'04B46 1 1 1 1 11 11 1 1 1 1 1 11 1 101: 35^CW^^^00B,IOCSERBNT&1,^BNT^SWITCH^'02G4636^B^^^^00B,IOCSBEX,^'03?4637^BNT1^00B,IOCS5ER1AA,^'03E463 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 201: 8^MLCS^00C,@0@,IOCS5MSG2-2,^'02I4639^B^^^^00B,IOCS5ER1A,^'04A4640^SW^^^00BIOCS5ER1AA,IOCSERBNT&1,^'0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 301: 3F4641^B^^^^00BIOCS5ER1A,IOCSBEX,^'02I4642^BEF1^00B,IOCS5ER1B,^'03E4643^MLCS^00C,@0@,IOCS5MSG2-1,^'0 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 401: 3F4644^B^^^^00BIOCS5ER1B,IOCSBEX,^'02I4645^BER1^00B,IOCS5ER1C,^'03C4646^MLCS^00C,@0@,IOCS5MSG2,^'04G 1 1 1 1 11 1 1 1 1 11 1 1 1 1 1 11 501: 4647^MRCWG00CIOCS5ER1C,IOCS5MSG,IOCSERFLD,^'02H4648^B^^^^00B,IOCSHALT,^'06B4649^^^^^^00B*,DETERMINE^ 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: ACTION^ON^WHAT^USER^HAS^ALTERED,^'04?4650^BCE^^00D,IOCS5ER8,IOCSREPLY,S,^'05H4651^BCE^^00D,IOCSERBNT 1 11 1 1 1 1 1 1 11 1 1 1 701: ,IOCSALAVLY,5,^TEST^SEQUENTIAL^'03B4652^CW^^^00B,IOCSALDKAD-6,^'04?4653^C^^^^00C,IOCS5CONJ,IOCSALDKA 1 1 1 11 1 1 1 1 11 1 1 1 1 801: D,^'03B4654^SW^^^00B,IOCSALDKAD-6,^'05C4655^BE^^^00B,IOCSERBNT,^USER^DID^NOT^ALTER^ADDR^'02I4656^B^^ 1 11 1 1 1 1 11 1 1 1 1 11 1 901: ^^00B,IOCSCHGAD,^'05C4657^NOPWM00BIOCSERBNT,,^SW^SET^BY^BNT,^NO^TRANS^'02I4658^B^^^^00B,IOCS5ER1C,^' 1 1 1 11 1 1 11 11 1 1 1 1 1 1: 099F04?4659^BCE^^00D,IOCS5ER8,IOCSREPLY,P,^'02I4660^B^^^^00B,IOCS5ER1C,^'02I4661^EQU^^00BIOCS5ER8,*, 1 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 1 1 101: ^'03F4662^BOOL^00?Q,)039,,^RNDMDEPTH^'04B4663^BCE^^00D,IOCS5ER8J,IOCSALAVLY,J,^'03B4664QBOOL^00?Q,)0 11 1 1 1 11 11 1 1 1 1 1 1 11 1 1 1 201: 39*-)031,,^'02I4665^B^^^^00B,IOCSDISK4,^'03?4666QBOOL^00?Q,)031,,^SEQ^'04B4667^BBE^^00D,IOCSDISK4,IO 11 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 301: CSALAVLY,2,^'04A4668^BCE^^00D,IOCSDISK4,IOCSREPLY,P,^'03D4669^MLCS^00C,@/@,IOCSALAVLY,^'03B4670^B^^^ 1 1 11 1 1 1 1 1 1 11 1 1 1 1 1 11 1 401: ^00B,IOCSDISK4&12,^'03F4671QBOOL^00?Q,)039,,^RNDMDEPTH^'05?4672^BCE^^00DIOCS5ER8J,IOCSENDRD,IOCSREPL 1 1 1 11 1 1 1 11 11 1 1 1 1 501: Y,P,^'03D4673^MLCS^00C,@E@,IOCSALAVLY,^'02I4674^B^^^^00B,IOCSENDRD,^'05D4675Q^^^^^00B*,USER^HAS^CHAN 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 1 1 601: GED^THE^DISK^ADDRESS,^'06D4676^MRCG^00CIOCSCHGAD,IOCSALARM,IOCS5CONK-7,^HOLD^NEW^ADDR^'05D4677^MRCG^ 1 11 1 1 1 1 1 11 1 701: 00C,IOCS5CONJ-7,IOCSALARM,^MOVE^IN^ORIG^'04I4678^SW^^^00B,IOCSRELAR4&1,^SET^SW^TO^RETURN^'04I4679^B^ 1 1 1 1 11 1 1 1 1 11 1 801: ^^^00B,IOCSRELAR2,^TO^RELEASE^OLD^ARM^'05A4680^CW^^^00BIOCSCHGAD1,IOCSRELAR4&1,^CLEAR^SW^'06A4681^MR 1 1 1 11 1 1 1 1 11 1 901: CG^00C,IOCS5CONK-6,IOCSALARM&1,^RESTORE^NEW^TRACK^'04E4682^B^^^^00B,IOCSRAY,^TO^ASSIGN^NEW^ARM^' 1 1 1 1 11 1 1 1 1 1 1: 094F05D4683^^^^^^00C*,1405^ERROR^ROUTINE,^ARM^NOT^READY,^'04B4684^SBR^^00BIOCSARMRMD,IOCSARMRMX&5,^' 1 1 1 1 1 1 1 11 1 1 1 1 1 101: 05D4685^S^^^^00C,@1@,0-2&IOCSXRL,^REDUCE^NO.^OF^ARMS^'03C4686^MLCS^00C,@1@,2&IOCSXAT,^'05E4687^MLCS^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 201: 00C,IOCSARLSCH-1,IOCS5MSG2-2,^ARM^NUMBER^'05E4688^MLCS^00C,IOCSALARM&1,IOCS5MSG2-1,^UNIT^NUMBER^'04C 1 1 1 1 11 1 1 1 1 1 11 301: 4689^MLCS^00C,@1@,IOCS5MSG2,^CH^NUMBER^'05E4690^BCE^^00D,IOCSARMRMC,IOCSALDKIN-2,@,^TEST^CH^1^'05B46 1 1 1 1 1 11 1 1 1 1 1 1 11 1 401: 91^MLCS^00C,@2@,IOCS5MSG2,^OVERLAY^WITH^2^CH.^'04G4692^MLCA^00CIOCSARMRMC,@10257@,IOCS5MSG1,^'03H469 1 1 1 1 11 1 1 1 1 1 11 1 501: 3^MRCWG00C,IOCS5MSG,IOCSERFLD,^'02H4694^B^^^^00B,IOCSNOTE,^'03A4695^B^^^^00BIOCSARMRMX,0,^'06G4696^^ 1 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 601: ^^^^00C*,1405^ERROR^ROUTINE,^ATTEMPT^TO^TRY^ANOTHER^ARM,^'07D4697^BCE^^00DIOCSANARM2,IOCS5ER1,0&IOCS 1 1 1 1 11 1 1 1 1 701: XRL,0,^TEST^NO.^ARMS^AVAILABLE^'05G4698^MLCS^00C,IOCSALARM,IOCSALERAR,^HOLD^ORIG^ARM^NO^'04I4699^ZA^ 1 1 11 1 1 1 1 1 11 1 801: ^^00C,@1@,IOCSALERCT,^SET^CTR^TO^ONE^'06G4700^MLCS^00CIOCSNUARM,@9@,IOCSALARM,^INDICATE^NO^ARM^ASSIG 1 1 1 1 11 1 1 1 1 1 901: NED^'04A4701^B^^^^00B,IOCSRAY,^TO^ASSIGN^ARM^' 11 1 1 1 1 1 1: 097G06G4702^^^^^^00B*,ROUTINE^TO^CHANGE^CHANNEL^OF^SUBSEQUENT^INSTR.,^'03H4703^SBR^^00BIOCSBEX,IOCSB 1 1 1 1 1 1 11 1 1 1 101: EXIT&5,^'02D4704^SBR^^00B,*&11,^'03A4705^MLCS^00C,IOCSBEXOP,0,^'03?4706^B^^^^00BIOCSBEXIT,0,^'05E470 1 11 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 11 1 201: 7^^^^^^00C*,CONSTANT^AND^WORK^AREAS,^1405^IOCS,^'04D4708^^^^^^00B*,CONSTANT^AREA^1405^IOCS,^'05F4709 1 1 1 1 11 1 1 1 1 11 1 301: ^DCW^^00BIOCSBEXOP,@^@,^CHANNEL^INDICATOR,^ERRO^'04A4710^DCW^^00CIOCS5CONJ,@00000000@,G,^'04A4711^DC 1 1 1 11 1 1 1 1 1 11 1 401: W^^00CIOCS5CONK,@00000000@,G,^'05B4712^DCW^^00B^IOCSMSG4,@20259^INVALID^PUT^AT^@,^'03D4713^DCW^^00BI 1 1 1 1 11 1 1 1 1 11 1 1 501: OCSMSG44,00000,^'02C4714^DCW^^00B,@"@,^'06H4715^^^^^^00C*,WORK^AREA^TO^CONSTRUCT^IOCS^MESSAGES,^1405 1 1 11 1 1 1 1 11 1 1 1 1 601: ^IOCS,^'02I4716^EQU^^00BIOCS5MSG,*,^'04G4717^DCW^^00BIOCS5MSG1,@^^^^^@,^MSG^NUMBER^'02C4718^^^^^^00B 1 11 1 1 1 1 11 1 1 1 1 11 1 1 701: ,@^@,^'03H4719^^^^^^00BIOCS5MSG2,@^^^@,^MSG^'02C4720^^^^^^00B,@^@,^'05C4721^^^^^^00BIOCS5MSG3,@^^^^^ 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 801: ^^^^^@,^1410^INSTR.^'02C4722^^^^^^00B,@^@,^'05C4723^^^^^^00BIOCS5MSG4,@^^^^^^^^@,^1405^DSK^ADDR^'02C 1 11 1 1 1 1 11 1 1 1 1 11 901: 4724^^^^^^00B,@"@,^'05G4725^^^^^^00B*,CONVERT^AND^TEST^FOR^INVALID^CHANNEL,^' 1 1 1 1 11 1 1 1 1 1 1: 097D02G4726^BOOL^00?Q,-)045,,^'03E4727^SBR^^00BIOCSCONV,IOCSXAL,^'05A4728QMLCS^00CIOCSCONVV,IOCSRQAR 1 1 1 1 1 11 11 1 1 1 1 11 1 1 1 101: M&1,IOCSCONV10,^'02F4729^BOOL^00?Q,)001,,^'02C4730^MLCS^00B,@@@,^'04A4731^BCE^^00D,IOCSCONV1,IOCSRQA 1 1 11 1 1 1 11 11 1 1 1 1 11 1 1 1 1 201: RM,1,^'03F4732^MLCS^00C,@*@,IOCSCONV10-1,^'04A4733^BCE^^00D,IOCSCONV1,IOCSRQARM,2,^'02G4734^B^^^^00B 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 11 1 1 301: ,IOCSER1,^'04B4735QMLNA^00CIOCSCONV1,IOCSUNIT,*&11,^'03B4736^LE^^^00C,IOCSCONV10,0,^'02I4737^BE^^^00 1 1 11 1 1 1 1 1 11 1 1 1 1 1 11 1 1 401: B,4&IOCSXAL,^'02H4738^EQU^^00BIOCSER1,*,^'02F4739^BOOL^00?Q,#103,,^'03B4740^MRCWG00C,80,IOCSISAVE,^' 1 1 11 1 1 1 1 11 1 1 1 11 11 1 1 1 1 1 1 501: 03?4741^BXPA^00B,IOCSCS1SFS,^'03B4742^MRCWG00C,IOCSISAVE,80,^'06B4743QMLCA^00CIOCSERQ,2&IOCSXAL,IOCS 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 601: 5MSG2,^MSG.^OPN^OR^GET^'05C4744^MLCA^00C,@^^^^^^^^^^@,IOCS5MSG3,^CLEAR^AREA^'05B4745^MLCA^00C,@20258 1 11 1 1 1 1 1 11 1 1 1 701: @,IOCS5MSG1,^INVALID^DSK^AD^'06B4746^MLCA^00C,&IOCSRQARM,IOCS5MSG3-1,^ADDR^HIGH^ORD^DSKAD^'05G4747^M 1 1 11 1 1 1 1 1 11 1 801: LCA^00C,IOCSDSKAD,IOCS5MSG4,^CONTENTS^OF^DSKAD^'03H4748^MRCWG00C,IOCS5MSG,IOCSERFLD,^'02H4749^B^^^^0 1 1 1 1 11 1 1 1 1 1 11 1 1 901: 0B,IOCSHALT,^'02I4750^SW^^^00B,IOCSRQARM,^'03A4751^BOOL^00?Q,#103*#104,,^' 1 1 11 1 1 1 1 11 1 1 1 11 1 1: 078C03I4752^MRCWG00C,IOCSXSAVE,IOCSISAVE,^'03A4753QS^^^^00C,@7@,IOCSXAL,^'04?4754^MLNA^00C,IOCSXAL,I 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 101: OCSINTEXT&5,^'03?4755^B^^^^00B,IOCSCSNENT,^'05?4756^^^^^^00C*,1405^IOCS,^SEEK^ERROR^ROUTINE,^'03G475 1 11 1 1 1 1 11 1 1 1 1 1 11 1 201: 7^SBR^^00BIOCSSKERR1,IOCSXRL,^'05H4758^MLCA^00C,0-8&IOCSXRL,IOCS5MSG3,^MOVE^1410^INSTR.^'03A4759^SW^ 1 1 1 11 1 1 1 1 1 11 1 301: ^^00B,IOCS5MSG3-5,^'05E4760^A^^^^00C,IOCSXAL,IOCS5MSG3-1,^ADD^XAL^TO^ADDR^'04C4761^BBE^^00D,IOCSSEEK 1 1 1 11 1 1 1 1 1 11 1 1 1 401: ER,IOCSALAVLY,7,^'03?4762^ZS^^^00B,IOCSALAVLY,^'03?4763^B^^^^00B,IOCSSEEKER,^'02C4764^DCW^^00B,@^@,^ 1 1 1 11 1 1 1 1 11 1 1 1 1 11 1 1 1 1 501: '02F4765PBOOL^00?P,)044,,^'04A4766^BOOL^00?Q,#100*)042*)045*)057,,^'04A4767^EQU^^00BIOCSE00000,IOCSC 11 1 1 1 11 11 1 1 1 11 11 1 1 1 601: S1S3&7,^'04A4768QBOOL^00?P,#100*)042*)045*)067,,^'04A4769^EQU^^00BIOCSF00000,IOCSCS2S3&7,^'03A4770PB 1 11 1 1 1 11 11 1 1 1 1 11 1 701: OOL^00?P,)044&)045,,^'02A4771^LTORG00B,*,^'02?4772PEJECT00B,,^'02?4773^MEND^00B,,^' 1 1 11 11 1 1 1 1 11 1 1 11 11 1 1 11 1 1: 002A017HEADER^Z99999' 1 1 1 1: 002A017HEADER^1RPG1^' 1 1: 096D080^^^^^^^^^^^^DTF^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^FILETYPE^^^ 101: ^^^^READER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^CARDPOC^^^^^^^^1^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^IOAREA^^^^^^^^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^R^^^^^^^^'080^^EOFADD^^^^^^^^^E0F^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^ 401: ^^^'080^^^^^^^^^^^^DTF^^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^FILETYPE^^^ 501: ^^^^PUNCH^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^CARDPOC^^^^^^^^4^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^IOAREAS^^^^^^^^PCH1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^P^^^^^^^^'080^^^^^^^^^^^^DTF^^PR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^ 801: ^^^'080^^FILETYPE^^^^^^^PRINTER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^IOAREAS^^^^ 901: ^^^^PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^' 1: 096D080^^RDCD1^^^^^SBR^^BCCK1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^G 101: ET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^RDCD7^^^^^GET^^READER0^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^RAMACRC1D^B^^^^IN1TRAM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^EXTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 401: ^^^'080^^BEG1N^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^GE7ADR^^^^S 501: ^^^^C1C,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^BCE^^NX7RAM,BL0CTR,J^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^ 801: ^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B 901: ^^^^NX7RAM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^' 1: 096D080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^A 101: ^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^RA1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^1^^^^^^^'080^^NX7RAM^^^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^ 401: ^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^M 501: LCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^GE7ADR^^^^S^^^^C1C,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^BCE^^NX7RAM,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^ 801: ^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^C 901: ^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^' 1: 096D080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B 101: ^^^^NX7RAM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^ 401: ^^^'080^^^^^^^^^^^^B^^^^RA1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^NX7RAM^^^^G 501: ET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CT 601: R^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^ 801: ^^^'080^^GE7ADR^^^^A^^^^C1C,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^C0NVNEEDEDN 901: OP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^' 1: 096D080^^^^^^^^^^^^DC^^^CKPR0GRESS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^D 101: C^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,N0PERBLCK^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BU^^^CKPR0GRESS^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^MLCA^C0C,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^ 401: ^^^'080^^^^^^^^^^^^A^^^^C5C,L3N78-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^CKPR0GRESSC 501: ^^^^M0D4ENDCTL,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BH^^^M0D3RD^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^B^^^^DISKRT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^SF^^^^^^^'080^^L3N78^^^^^DCW^^#8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^ 801: ^^^'080^^RA1^^^^^^^MVRSAL3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^B 901: ^^^^DISKRT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^B 101: ^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 401: ^^^'080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^3^^^^^^^'080^^DISKRT^^^^ENTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^ZA^^^LEGDATA0,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^Z 901: A^^^LEGDATA0,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^' 1: 096D080^^^^^^^^^^^^A^^^^X1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^A 101: ^^^^X1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^Y^^^^^^^^'080^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^ 401: ^^^'080^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^CVTR00^^^^E 501: QU^^CVRT00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^^^^^^^^^^^MLCB^7&X1,IOCSDSKAD^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^RETU1^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^ 801: ^^^'080^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^G 901: ET^^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S 101: W^^^0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^C0MPARE^^C^^^^0&X2,0&X1^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C^^^^0&X1,0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^L^^^^^^^^'080^^^^^^^^^^^^B^^^^SEQR0UT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^ 401: ^^^'080^^^^^^^^^^^^BU^^^CHA1NE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B 501: U^^^HALT2B^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^MLCA^N0T441L,MAXNUMTR 601: L1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^SEQR0UT^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^SF^^^^^^^'080^^^^^^^^^^^^S^^^^X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^A^^^^RAM512E,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S 901: ^^^^C1C,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^M 101: LCWARAM512E,X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^M0VEMASTERMLCB^0&X2,CDRD1-1&X8^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^CHECKFT000S^^^^C1C,MAXNUMTRL1^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^FDSEQR0UTE,MAXNUMTRL1,J^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^ 401: ^^^'080^^^^^^^^^^^^BCE^^FDSEQR0UTE,CDRD1&6&X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B 501: CE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^ 801: ^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B 901: CE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^' 1: 096D080^^RAMTRL1I^^MLNB^CDRD1&6&X7,RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B 101: ZN^^CHAN2RT,CDRD1&4&X7,&^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^MLCA^C1C,RAMA0D^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^GETTRLA1R^MLCWAX8,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^MLNB^RAMA0D&7,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^ 401: ^^^'080^^^^^^^^^^^^GET^^TRA1LERFIL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^C0MPARETL^C 501: ^^^^0&X3,0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^C^^^^0&X1,0&X1^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^L^^^^^^^^'080^^^^^^^^^^^^BU^^^HALT2B^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^A^^^^TRL512E,X3^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^ 801: ^^^'080^^^^^^^^^^^^SW^^^CDRD1&X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^S 901: ^^^^C1C,X3^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^' 1: 096D080^^^^^^^^^^^^A^^^^TRL512E,X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^M 101: LCB^0&X3,CDRD1-1&X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B^^^^CHECKFT0002^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^CHA1NE^^^^S^^^^C1C,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 401: ^^^'080^^^^^^^^^^^^A^^^^RAM512E,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B 501: CE^^HALT1B,0&X2,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 801: ^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B 901: CE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^' 1: 096D080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^M 101: LCB^0&X2,RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BZN^^CHAN2M,RAMA0D&4, 201: &^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^MLCA^C1C,RAMA0D^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^MLCA^RAMA0D&7,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 401: ^^^'080^^^^^^^^^^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^FDSEQR0UTEB 501: ^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^FDSEQR0UTEMLCB^L0CFWDSEQ,L3N78^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,LEN6FWSEQ^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^M 901: LCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^' 1: 096D080^^^^^^^^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^FDSEQR0UTEM 101: LCB^L0CFWDSEQ,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,LEN6FWSEQ^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 401: ^^^'080^^^^^^^^^^^^MLCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^FDSEQR0UTEMLCB^L0CFWDSEQ,L3N78^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,LEN6FWSEQ^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 801: ^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^M 901: LCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^' 1: 096D080^^^^^^^^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^FDSEQR0UTEB 101: ^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^2^^^^^^^'080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^ 401: ^^^'080^^C5C^^^^^^^DCW^^@1@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^V^^^^^^^^^E 501: QU^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^DSA1AD^^^^DCW^^P0SIT0NCTL^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^DC^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^RE1T^^^^^^D 901: CW^^RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^' 1: 096D080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^D 101: C^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^RE1T^^^^^^DCW^^RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 401: ^^^'080^^^^^^^^^^^^DC^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^D 501: C^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^RE1T^^^^^^DCW^^RAMACRC1D^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^4^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^D 901: CW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^' 1: 096D080^^SAVE0001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^D 101: CW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^DCW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 401: ^^^'080^^SAVE0001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^D 501: CW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DCW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 801: ^^^'080^^SAVE0001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^MAXNUMTRL1D 901: CW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^' 1: 096D080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^BL0CTR^^^^D 101: CW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^RAMA0D^^^DCW^^@^^^^^^^^@,G^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^CHAN2M^^^^MLCB^@2@,RAMA0D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 401: ^^^'080^^^^^^^^^^^^MLCA^RAMA0D&7,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^M0D45601^^MLCWBSAVE0001,8^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCWB^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^M0D45601^^MLCWBSAVE0001,8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^M 901: LCWB^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^' 1: 096D080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^M0D45601^^M 101: LCWBSAVE0001,8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWB^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^6^^^^^^^'080^^HALT1B^^^^CONSLWCP,ERR0R^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 401: ^^^'080^^^^^^^^^^^^SW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^M 501: LCA^SETUP1,*&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^CW^^^SETUP1-4^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^SW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^SETUP1,*&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 801: ^^^'080^^^^^^^^^^^^CW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^S 901: W^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^' 1: 096D080^^^^^^^^^^^^MLCA^SETUP1,*&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C 101: W^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^H^^^^READ1^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^CJ1^^^^^^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^3^^^^^^^'080^^^ERR0R^^^^DCW^^@CHAIN^ADD^ERR@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^ 401: ^^^'080^^CHAN2RT^^^MLCA^@2@,RAMA0D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^GETTRLA1R^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^HALT2B^^^^CONSLWCP,STATM1T^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^SW^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCWB8,SAVE0001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^M 901: LCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^' 1: 096D080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^S 101: W^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWB8,SAVE0001^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 401: ^^^'080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^S 501: W^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWB8,SAVE0001^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 801: ^^^'080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^H 901: ^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^' 1: 096D080^^^^^^^^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'08^^^^^^^^^^^^^H 101: ^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^STATM1T^^DCW^^@CTL^DATA^CK@,G^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^IN1TRAM^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,LEGDATA0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 401: ^^^'080^^^^^^^^^^^^SW^^^X7-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S 501: ^^^^LEGDATA0,RA1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,TR4LCTLDTA^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,R3CCTLDTA^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^A^^^^R3CCTLDTA,C0MPARE&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^A^^^^LEGDATA0,C0MPARE&10^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^A 901: ^^^^TR4LCTLDTA,C0MPARETL&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^' 1: 096D080^^^^^^^^^^^^A^^^^LEGDATA0,C0MPARETL&10^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^S 101: W^^^N0PERBLCK^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^M0D3RD^^^^GET^^READER0^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^MLCB^P0SIT0NCTL,L3N78^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,*&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^ 401: ^^^'08^^^RESTART1^^MLCB^P0SIT0NCTL,M0D4ENDCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^M 501: LCA^DSA1AD,RESTART1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,L3N78^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BCE^^C0NVS0NRT,RETU1&1,D^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BCE^^TRACKCASE1,H0LDAREA&1026,"^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^ 801: ^^^'080^^M0D456^^^^B^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^M0D456RD^^G 901: ET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^' 1: 096D080^^^^^^^^^^^^MLCB^P0SIT0NCTL,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^M0D456^^^^S 101: ^^^^C1C,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^BCE^^M0D456RD,BL0CTR, 201: J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 401: ^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 801: ^^^'080^^M0D456^^^^S^^^^C1C,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B 901: CE^^M0D456RD,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^' 1: 096D080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C 101: ^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 401: ^^^'080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C 501: W^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^N0P,RAMACRC1D^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^ 801: ^^^'080^^BEG1N1T^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^C0NVS0NRT^M 901: LCA^CJ1,C0NVNEEDED^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^' 1: 096D080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^TRACKCASE1M 101: LCS^@5@,C5C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^M0D456RD^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^ 401: ^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^M0D456RD^^GET^^INFILE^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^ 801: ^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^BCCK1^^^^^B 901: ^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 096D080^^TEMP1N^^^^EQU^^PRT0-1&200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^INPUT1^^^^E 101: QU^^CDRD1-1&200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^CDRD1^^^^^EQU^^REC1N^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^CONV1^^^^^EQU^^RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^X^^^^^^^^'080^^CONV1^^^^^EQU^^RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^ 401: ^^^'080^^CDRD1^^^^^EQU^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^CXP1^^^^^^E 501: QU^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^TEMP1N^^^^EQU^^PRT0&79^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^INPUT1^^^^EQU^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^C^^^^^^^^'080^^OUT1^^^^^^EQU^^PRT0-200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 801: ^^^'080^^^ME5G2^^^^DCW^^@RECORD^TYPE^NOT^FOUND@,G^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CL0SEDSK^^N 901: OP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 096D080^^^^^^^^^^^^CLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^B 101: ^^^^DSKCL0SED^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^NEXT00^^^^H^^^^READ1^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CL0SE^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CLOSEREADER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^ 401: ^^^'080^^^^^^^^^^^^CLOSEPUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^^^^^^^^^^^C 501: LOSEPR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^^^^^^^^^^^CLOSEINFILE^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^^^^^^CONSLWCP,E0JX^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^NEXT00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 801: ^^^'080^^EXIT1^^^^^B^^^^START1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^RAMACRC1D^D 901: CW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^' 1: 096D080^^LEGDATA0^^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^R3CCTLDTA^D 101: CW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^START1^^^^CS^^^CDRD1&999^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 401: ^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C 501: S^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C 901: S^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^CS^^^PCH1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^START1^^^^M 101: LCA^RECS1Z,X5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^^^^^^CS^^^CDRD1-1&X5^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^START1^^^^CS^^^PCH1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^C^^^^^^^^'080^^^^^^^^^^^^CS^^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^ 401: ^^^'080^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^^^^^^O 501: PEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^'080^^^^^^^^^^^^OPEN^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^R^^^^^^^^'080^^^^^^^^^^^^OPEN^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^ 801: ^^^'080^^^^^^^^^^^^OPEN^PR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^^^^^^^^^^^O 901: PEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^OPEN^TRA1LERFIL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B 101: ^^^^OPEN0UT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^OPEN0UT^^^NOP^^^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^N^^^^^^^^'080^^SW00^^^^^^SW^^^CDRD1&0,PCH1^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^HA0000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^READ1^^^^^CS^^^CDRD1-1&X5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^READ1^^^^^C 501: S^^^CDRD1&999^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C 901: S^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 1: 096D080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C 101: S^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^PCH1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 401: ^^^'080^^READ1^^^^^CS^^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^^^^^^^^^^^B 501: ^^^^RDCD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^ZA^^^LEGDATA0,X4^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^A^^^^X1,X4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^CTLDTA^^^^EQU^^0&X4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^ 801: ^^^'080^^^^^^^^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^ENTRY1^^^^C 901: W^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 096D080^^^^^^^^^^^^MLC^^CONBK1,CONBK1-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^S 101: W^^^CONF1,PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^CDRD1^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^RA0100^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^ME5G1^^^^DCW^^@INPUT^REC^OUT^OF^SEQ@,G^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^SWICH4^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^D 501: CW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^CDRD1^^^^^DA^^^1X1000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^ 801: ^^^'080^^REC1N^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^^^^^^^^^^^O 901: RG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 096D080^^PCH1^^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^O 101: RG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 401: ^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^ 501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 801: ^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^ 901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^' 1: 096D080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^H0LD20^^^^DCW^^@^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^T^^^^^^^^'080^^WR1TETAPE^SBR^^EX1T0X&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^ 401: ^^^'080^^^^^^^^^^^^MLCS^PR1NT&1,H0LD20^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^M 501: LCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLCWS@"@,PR1NT&1^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLZS^@S@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLNS^@0@,PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^ 801: ^^^'080^^PUT00^^^^^PUT^^PRT0^TO^OUTFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^M 901: LCWSH0LD20,PR1NT&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^' 1: 096D080^^^^^^^^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^EX1T0X^^^^B 101: ^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^E0F0UT^^^^H^^^^PUT00^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^PR1TX^^^^^DCW^^PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^CLR001^^^^SBR^^CLRT5&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^^^^^^^^^^^MLCA^PR1TX,CS1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^S 501: W^^^PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CS1^^^^^^^CS^^^PR1NT^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SBR^^CS1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^BW^^^CS1,PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 801: ^^^'080^^CLRT5^^^^^B^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^H0LD^^^^^^D 901: CW^^@^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^' 1: 096D080^^PRINT1^^^^SBR^^P0&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^M 101: LCWSPRT0&132,H0LD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^MLCWS@"@,PRT0&132^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^PUT^^PR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^MLCWSH0LD,PRT0&132^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^ 401: ^^^'080^^P0^^^^^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^PUNCH1^^^^S 501: BR^^P1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^SBR^^X9^^^^^^^^^^^^^^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^MLCS^1&X9,PCH001&3^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^PUT^^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^ 801: ^^^'080^^PCH001^^^^EQU^^IOCSPUPNCH^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^P1^^^^^^^^B 901: ^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^' 1: 096D080^^TSTL5T^^^^BCE^^L5TCRD,CONLC,1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B 101: ^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^L5TCRD^^^^MLC^^C1C,CONLC^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CW^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^CONBK1,CONBK1-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^^^^^^^^^^^SW^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^M 501: LC^^ONES1,CONBK1-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^END1AD,SWICH4&5^ 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^END1^^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CLOSEOUTFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^ 801: ^^^'080^^^^^^^^^^^^B^^^^CL0SE^^^^^^^^^^^^^^^^^^^-^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^H 901: ^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 096D080^^CONOF^^^^^DCW^^@0@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^E0JX^^^^^D 101: CW^^@EOJ@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^E0F^^^^^^^NOP^^^^^^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^CL0SEDSK^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^DSKCL0SED^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^^^^^^^^^^^MLC^^C1C,C0NLC^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^C 501: W^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^CONBK1,CONBK1-00 601: 1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 701: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^ONES1,CONBK1-001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 801: ^^^'080^^^^^^^^^^^^MLC^^END1AD,SWICH4&005^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B 901: ^^^^ENTRY2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^' 1: 056D080^Z^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^C0NLC^^^^^D 101: CW^^@0@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CONLC^^^^^DCW^^@0@^^^^^^^^^^^^^ 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^END1AD^^^^DCW^^END1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 301: ^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^END^^START1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^ 401: ^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^Y^^^^^LAST^C 501: ARD^^1410^^RPG^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^' 1: 002A017HEADER^199999' 1 1: 002B018END^OF^LIBRARY' 1 1: LIBRA112030150009700J00000^J00000^ 1: J02115^C0271702615J01986SC0270901341J01568SC0134102620J01986SJ01788^B0169802720NB0165502720HNJ01280^ 1 1 1 1 1 1 1 1 1 1 11 101: ,02533,0246101593B0172302720AB0172302720NJ02204^J01795^J02160^D0273301370LDDDDDJ02160^J01507^00000U% 1 1 1 1 1 1 1 1 111111 1 1 1 201: U2BR00101")01593J01655^G01766B/19R99G01773BC0177302625J01768TJ00000^/00000G01773BJ01743^J01280^J0208 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 4^J01877^J01500^M%T002060WJ01816RR01840"U%U1MR00101"U%U1RR00101"U%U2RR00101".G01984BC0134102630J0193 1 1 1 1 1 1 1 1 1 1 1 11 1 1 401: 6/A0135601934S0263401934D0278102P81_D0135601956/L%B100!00XR00101+R01972"J01723^J00000^J02084^C013410 1 1 1 1 1 1 1 1 1 1 1 501: 2620J01816SJ01280^J01877^J02115^J01986^CARD^ERR^IN^LIBR^RUN"NEW^SYSTEMS^TAPE^ON^^^^"G02113BM%B101337 1 1 1 1 1 1 11 1 11 1 601: WR00101"J00000^G02158BM%B201337RG01378BR001017R02153"J00000^G02202B/02779M%1102700RG01378BR00101"J00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 000^G02272BJ02160^B0227402706C0270102636J02267/D0264102744/J02274^J00000^?0264200029?0264200034B0236 1 1 1 1 1 1 1 1 1 1 1 801: 7027'0D027'0027!03A0264300029A0264300034C0002902645J02403SJ02296^B02385027'1,027!0A0264300029J02308^ 1 1 1 1 1 1 1 1 1 1 901: D0270900029T?0135601697S0135101697B0252102700EA0169702704NA0006402704D0270402505/S0264300029D027/000 1 1 1 1 1 1 1 1 1 1001: 0'07J02211VJ02484^?0169700034NA0006400034S00029D0264602710SA0265102706A0265102747A0265602723A0265602 1 1 1 1 1 1 1 1 1 1 1101: 734J02701^END9999902800LIBRA150?E02211?A8?-025000250050?E02211?A8?E-^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 11 111 11 11 111 11 1201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"SLRPYGETVXSLRPPSLNKKSKED 11 1 1 1 1 1301: AMSVBRMSVARMSTTCMSTESMSPRIMSOFFMSLODMSLCAMSJEOMSDUPMSDFLMSDELMSDBMMSDBKWLRTNVARETUPDATTRKOPTRAP^TEST 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: ^SLURPSLINGSHORTSEQUNSCHEDRMTSTREMOVRACONPUTV^PUTRMPUTPRPUTCDOTESTOPOFFOLAY^OFFLNOCALLMVRSCMTAB^MSTY 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: PMSLNKIOSYSLEVRTMSJOEMSEOJWAITSPUTS^PRSEQMVRSALEVDRMSDECLOCATLINK^INITAGETV^GETRMGETCDGERT^ENDRLDRHA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: ^DITTODBLCKCTESTCTAPECLOFFCLEARCDRM^ASEOFZIOCSXTF^^WTLBLWTAPESTACKSKIP^RTLBLRTAPERELSERDLINPUT^^PSTA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: COPEN^IOWTMIORWUIORWDIOBSPGET^^FEORLCONSLCLOSECLOSDCHKPTGETS^FSEQPEXTDRENTDR"B03325013721D0278101500 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1801: _D0837201174TJ01175^D0837701292/D08378013052U%U1RR00101"U%U2RR00101"?0838301356A0006401356?083850135 1 1 1 1 1 1 1 1 1 1 1 1901: 1L%B211Q00$G01378BR001017R03437"J02160^C0270908390J02204SL%B211Q00XR001017R03486"J03534^)0466604688M 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: %T002039WJ03504RR03528".04621G03630BB0362502779'C0271708393J04621SC0271908398J04621SC0271908403J0571 1 1 1 1 1 1 1 1 1 1 1 2101: 9SC0271908408J04745SJ00000^SEQ^ER^^^^^^^^^^^^"^^^^^^^^^^G03817BC0880808414J04024SC0881604620J04024SA 1 1 1 1 1 1 11 1 1 1 1 1 1 1 2201: 0880203822C0382208418J03751UJ03833^A0880203822S0383200059)08808D0880010S?1_G00059BA0880210204NJ03833 1 1 1 1 1 1 1 1 1 11 2301: ^)03799J00000^000D1020F1020BG04022BC0382208422J04017SNJ03961^?1020400074)1020110205)1028510365)10445 1 1 1 1 1 1 1 1 11 1 1 1 1 2401: 10525)1060510685)1076510845)1092511005)11085D0842310K!17L%B110201WR00101",10201?0842410204?038270005 1 1 1 1 1 1 1 1 1 1 2501: 9?0842403822J00000^,03799NJ04058^J03833^,03799J03704^)04031D0842904022/J03984^G04266BNJ04135^A00''20 1 1 1 11 1 1 1 1 1 1 1 1 1 2601: 0049C0004904550J04270SNJ04270^/09199///,08800?00''200054A00''200049D0842308Y!07D99ZZ908XR9PS00054000 1 1 11 1 1111 1 1 1 1 1 2701: 49)04091C0881604620J04687SC0880808414J04261/D0881504572LJ00000^80G04544BD0455500049TL%B209200RG04550 1 1 1 1 1 1 1 1 1 1 1 1 2801: BR001017R04320")04128S0456004550C0921708433J04366/)0436703859NJ04451^,0920009204,0928409364,09444095 1 1 1 1 1 1 1 11 1 1 1 2901: 24,0960409684,0976409844,0992410004,1008410164C0455009203J04528SB0451104566IA0843404566U%U2BR00101"J 1 1 1 1 1 1 1 1 1 1 1 3001: 04289^M%T004567WR00101"A0456504550J00000^0000?0920D0920109200?^^^^^^^MACRO^WLR"G04602B,04091J00000^0 1 1 1 1 1 1 1 1 11 11 1 1 1 3101: 18END^OF^LIBRARYD08435042243J05636^J04083^J03661^C0881604620NJ01500SJ04687SJ04640^NJ03661^J02160^C02 1 1 1 1 1 11 1 1 11 1 1 3201: 71708393J01500SC0271908398J01500SJ04695^D0270903656LD02720036513C0365603649J05321SJ05636^D0365603649 1 1 1 1 1 1 1 1 1 1 3301: TJ05275^B0487802721,J04083^C0880808414J04825/J05186^J04584^J02160^J03486^J03661^J04906^J02160^J03486 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: ^G05184BD0843907975TD08439,02722?0844100029B04990027'0,B04990027'0^A0843400029J04948^D026Z907971/J04 1 1 1 1 1 1 1 1 1 1 1 3501: 083^C0797108445J05167SC0797108806J05082SJ03661^D0880607967/A0843407967J05002^B05167027'0^,027'1A0843 1 1 1 1 1 1 1 1 1 1 1 3601: 400029W05100027'0"D026Z907975/J04083^C0797508806J05135TJ04584UD0797107967/J00000^,03645T03649032802G 1 1 1 1 1 1 1 1 1 1 1 3701: 05239BJ05241/A0844605239D0845100000T)03645J04857^017HEADER^^^^^^^'"^^"G05305BJ04083^C0881503649J0000 1 1 1 1 1 1 111 11 1 1 1 3801: 0SJ03661^J05282^J05374^D0796707962TJ04906^D0796207967TNJ04892^J06398^G05563B,02722?0844100029B054400 1 1 1 1 1 1 11 1 1 1 1 1 3901: 27'0,B05440027'0^A0843400029J05398^D0843903660TD026Z903660/J04083^C0366008806J05551SJ05565UC08808084 1 1 1 1 1 1 1 1 1 1 4001: 14J05565SD0796708806/A0843407967J03661^J05452^J04584^J00000^D0364905626LJ04584^M%T005622WR00101"J021 1 1 1 1 1 1 1 1 1 1 1 1 4101: 60^J03534^J05601^^^^^^^SEQ^ERR"G05680BJ04083^C0880808414J05682/J04584^J00000^D0796708806/A0843407967 1 1 1 11 1 1 1 1 1 1 1 4201: J03661^J05643^B06075027201D0270903656LD02720036513C0526903656J03493TD0365605269TB0616402721,J05636^D 1 1 1 1 1 1 1 1 1 1 1 4301: 0365603649TJ07981^D0843907975TD08439D08439D0845107963TJ04083^,05257C0881005264)05257J05910SJ03661^J0 1 1 1 1 1 1 1 1 1 1 1 1 4401: 5859^C0881503649J05896UJ05960TJ04083^C0880808414J05935/J04584^D0525408800+J03661^J02160^J03534^C0270 1 1 1 1 1 1 1 1 1 1 1 1 4501: 407963J06061TJ06061SD0270403643LM%T003632WJ06037RR06061"J06411^J05993^D08435058163D0845605998TJ05731 1 1 1 1 1 1 1 1 1 1 1 4601: ^J03534^/08879D08423088807D0270008800$J03661^J02160^J06106^D0270903656LD02720036513C0365603649J06385 1 1 1 1 1 1 1 1 1 1 1 4701: SD0365603649TJ05636^J05275^J03661^J04906^C0797108445J06278/J04584^J06346^D02723027238G06318BS0843406 1 1 1 1 1 1 1 1 1 1 1 1 4801: 318B0632700000"J06357^D0796708806TJ03661^A0843407967J02160^J03534^J06411^J06364^)05360J05321^,05360J 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 06246^G07940BB0806102771)/09199///D0527402776XD0527302775TD0794208800+D0270407980LD0796708806TD02705 1 1 1 1111 1 1 1 1 1 5001: 088073D0272508812LD0272008830P?0845800034W06576088!0"S0843400034J06546^C0272408462J06612/A0843400034 1 1 1 1 1 1 1 1 1 5101: J06635^D08463088!17A0846400034D02726088!0_G00039BC088!108466J06714SB06967088!0,B06980088!0@A08434000 1 1 1 1 1 1 1 1 1 1 5201: 34J06654^D08468088!1XA0846400034S0846400039W06778000?0"S0843400039J06748^D05271000?37D?0003400039W06 1 1 1 1 1 1 1 1 11 1 5301: 832088?0"A0843400039J06802^D088?0088!0_G00034BS0847300034D0003408802LA0846408802?0847800039?08479088 1 1 1 1 1 1 1 1 1 5401: 15D000?1000?18G00039BS0843400039B07105000?0'A0843408815J06907^,088!0J06696^C0881208484J07075SC088120 1 1 1 1 1 1 1 1 1 1 1 5501: 8489J07075SC0881208494J07075SA0849600034B06696088!0@S0843400034J07045^A0843400034B06696088!0@J07075^ 1 1 1 1 1 1 1 1 1 1 5601: ND0870002700$NJ07187^J02160^C0270407980J07187/C0272108497J07187/S0843400034J06635^C0881208489J07282S 1 1 1 1 1 1 1 1 1 1 1 5701: )0710607119C0881208494J07282SC0881208502J07282SC0881208507J07905/D0850208812TD0881708816_S0843408802 1 1 1 1 1 1 1 1 1 1 5801: S07481S08815S00044A0843400044B0748308Y15"B0737708Y15@D08497074823J07323^W0741908Y14&B07419074821S084 1 1 1 1 1 1 1 1 1 1 1 5901: 3407481J07323^A0843407481D08508074823C0748108815J07323UD0748108815/J07323^000^C0881208489J07519SC088 1 1 1 1 1 1 1 1 11 1 1 6001: 1208494J07905/D0849408812TS00034?0850900039D08497074823?0851000044A0843400034A0843400039B07660088J5, 1 1 1 1 1 1 1 1 1 6101: B07641088J5)W07684088J5&B07684088J5@D088J5085C77J07571^B07844074821D08508074821D088J5085C77A08434000 1 1 1 1 1 1 1 1 1 6201: 34W07773088J5&B07773088J5@B07773088J5#D088J501W973A0843400044J07696^B0758200044MA0844600039D08515085 1 1 1 1 1 1 1 1 1 6301: C7XD01W96085C7A?0851000044S01697J07582^D088J5085C7_D0853708816_G00034BS0852000034D0003408802LJ07905^ 1 1 1 1 1 1 1 1 1 1 6401: J03661^D0798007963TA0843407967J00000^^^^^^^^^^^^^^000'^^^^^^^^^^^^^^^^^^^^^^,03645T03649032802J08048 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 6501: ST08451032802G08046BJ11656^N046D0364900000T)03645J05823^,0710607119/08779D0270008700_/02779,08700087 1 1 1 1 1 1 1 1 1 1 1 1 6601: 05,0870608721D0852402724TD0870402704TD08525087053?0852700034B08195087!0^S0843400034J08165^D084630272 1 1 1 1 1 1 1 1 1 6701: 73?0852900039W08253087!2^D08378027?03A0843400039D087!1027?13DD087!2027?21D08532087!2TC0003408534J083 1 1 1 1 1 11 1 1 1 6801: 49SD08535027?33A0842400039A0853600034J08218^D08463027?33J06430^DIOCS01356-1180?1ACNTRLENDUPDATINSERD 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 6901: ELETHEADER100A000D"D040451RPGAN00012C0000E^^^^^061063?NOTE,B^^,^0880308815?CALL^ARITHMATH^5A^BOOL^LO 1 1 1 111 1 111 1 1 11 1 1 1 111 1 1 1 11 1 1 1 11 1 7001: GIC1JM0000008801BOOLL7C2H^^^7B*CRPGAN00012C0000E^^^^^061032INOTE,B^^,^0880308814?CALL^ARITHMATH^5A^B 1111 1 1 11 1 1 1 11 111 1 1 11 1 1 1 111 1 1 1 11 1 1 1 11 7101: OOL^LOGIC1JM0000008801BOOLL7C2H^^^7B*C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1111 1 1 11 1 1 1 11 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^ 1 7301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^ 1 7601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000?^ 1 8601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"0000 11 8701: ?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"0000 11 8801: ?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 9601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"ND 111 9701: 0140301701TD01404017033D01422018433D01420018413D01423018453D0142201855TD01423018573D0140301867TD0140 1 1 1 1 1 1 1 1 9801: 4018693D0142201951TD01423019583D01423019653D0142202094TD01423021013D0140302125TD01404021393D01404021 1 1 1 1 1 1 1 1 9901: 463D0140702176TD01408021903D0142203352TD01423033543D0140303364TD01404033663D0140303409TD01404034233D 1 1 1 1 1 1 1 1 1 10001: 01404034303D0142203465TD01423034723D01423034793D0142203964TD01423039713D0140304292TD01404043063D0140 1 1 1 1 1 1 1 1 10101: 4043133D0140304495TD01404044973D0142202082LJ03282^NJ11681/A0844608046J08036^D0364911715TM%T011711WR0 1 1 1 1 11 1 1 1 1 1 10201: 0100".^^^^^^OVERFLOWS^LIBRARY^TABLE^-^JOB^TERMINATED"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1: DIOCS152580400004060J04082^J04082^ 1: U%U4RR00100"M%U418141RR001003R04036"B0431904021WD15102040213J04000^BEGIN^ASSEMBLY"U%U3MR00100"U%U3RR 1 1 1 1 1 1 1 1 1 11 1 1 1 101: 00100"U%U4RR00100"D1510701174TJ01175^D0000018331TJ04175^J09941^D15108183253,18161D1822018301TDDA1510 1 1 1 1 1 1 1 1 1 1 111 201: 918225D1814518317TB1943119539CD1822219VM2$G00054BS1953800054A1510919539D1509418331TD15110183123S1816 1 1 1 1 1 1 1 1 1 301: 1S18156S18146S18141M%1118141RG15115BR00100"B0416318146*C1816015120J04295SNM%T004067WR00100")04374043 1 1 1 1 1 1 1 1 1 11 1 1 401: 84C1814514649J04432TD15121183263D1814514649LT18160101532G04142BJ04137S?1512300029W0685518156"B099411 1 1 1 1 1 1 1 1 1 1 501: 8161^T18150142122G04536BJ04156/D0000004548/J00000^D181U217668CJ04163^J04740^D181U017606CJ08683^J0474 1 1 1 1 1 1 1 1 1 1 1 601: 0^D181U017619CJ08683^D181U517706TJ04163^J04740^D181U017720CJ08683^G04738BA1510900029B04733181U0,C181 1 1 1 1 1 1 1 1 1 1 1 701: U115125J04163SB09941181U0^J04673^J00000^G04826BNJ04821^A1510900029C181U215125J04815SB09941181U1^B048 1 1 1 1 1 1 1 1 1 1 1 801: 21181U1,J04755^,04748J00000^D1512710155/J05094^D1512910155/J05094^D1513110155/J05094^D1513310155/J05 1 1 1 1 1 1 1 1 1 1 1 901: 094^D1513510155/J05094^D1513710155/J05094^D1513910155/J05094^D1514110155/J05094^D1514310155/J05094^D 1 1 1 1 1 1 1 1 1 1 1 1001: 1514510155/J05094^D1514710155/J05094^D1514910155/J05094^D1515110155/J05094^18161^^^^^210^^^^^^)05604 1 1 1 1 1 1 1 1 1 1 1 11 1101: 18161D0507905122/D0000010156#G05244AG05256AG05122AB0547110158^B0549610159^B0552110160^B0532110160,B0 1 1 1 1 1 1 1 1 1 1 1201: 5351B05381B05411B05441B0553410161,B0552100000^B0528700000,A1510905244A1510905256J05234^D05256051221D 1 1 1 1 1 1 1 1 1 1 1 1301: DDDA1510905122J05534^D0508810160TS1510905122J05534^D0508910160TS1515205122J05534^D0509010160TS151530 1111 1 1 1 1 1 1 1 1 1 1401: 5122J05534^D0509110160TS1515405122J05534^D0509210160TS1515505122J05534^,05604D0509010160TJ05534^,056 1 1 1 1 1 1 1 1 1 1 1 1501: 04D0508910160TJ05534^,05604J05534^T10160134102G05572BG05084BJ05618/D00000055903B05603050870B05637B05 1 1 1 1 1 1 1 1 1 1 1 1 1601: 787NJ04163^J05117^D15156183123J05603^S1510905084D0508405665TD00000050933S1510905084D0508405739TS1510 1 1 1 1 1 1 1 1 1 1 1701: 905084D0508405723TD00000057441DDDDD00000000003B05603050931S1510905093S1515505084J05683^S1510905084D0 1 1 11111 1 1 1 1 1 1 1801: 508405815/D0000005827/J00000^D15157175583J04163^J04666^C181U315160J04163SC181U315163J05910/D15157176 1 1 1 1 1 1 1 1 1 1 1901: 783J04163^C181U315166J05947/D15157176983J05848^J04740^D181U017676CJ08683^J09941^J04163^C181U315169J0 1 1 1 1 1 1 1 1 1 1 1 1 2001: 6024/D15157175823J04163^C181U315172J05973/D15157176963J04666^J04740^D181U017775CJ08683^J09941^J04666 1 1 1 1 1 1 1 1 1 1 1 2101: ^B06204181U11B06223181U12B06242181U13B06261181U14B06280181U15B06299181U16B06318181U17B06337181U18J06 1 1 1 1 1 1 1 1 1 2201: 087^D15157175603J06094^D15157175623J06094^D15157175643J06094^D15157175663J06094^D15157175683J06094^D 1 1 1 1 1 1 1 1 1 1 1 2301: 15157175703J06094^D15157175723J06094^D15157175743J06094^J09941^J04666^C181U315175J06413SC181U315178J 1 1 1 1 1 1 1 1 1 1 1 2401: 06432SJ06356^D15157175883J06363^D15157175923J06363^J04740^D181U017580CJ08683^D15157177773J04163^J099 1 1 1 1 1 1 1 1 1 1 1 2501: 41^J04666^C181U315181J06553SC181U315184J06572SJ06496^D15157177223J06503^D181U7177253DJ04163^J04740^D 1 1 1 1 1 1 1 1 1 11 1 1 2601: 181U017649CJ08683^J04740^D181U017791CJ08683^J04740^D181U017663CJ08683^J04740^D181U017692CJ08683^J099 1 1 1 1 1 1 1 1 1 1 1 2701: 41^J04666^C181U315187J06753SC181U315190J06772SJ06696^D15157175843J06703^D15157175863J06703^D181U2176 1 1 1 1 1 1 1 1 1 1 1 2801: 15CJ04163^D15157176213J04163^J04740^D181U017635CJ08683^C1816015195NJ06917^J06917/,06867D15157194303? 1 1 1 1 1 1 1 1 1 1 1 1 2901: 1520000034J04163^B0742419430^C1816015205J07077/A1510918140J04740^D1509514978TD181U014978C)0474808173 1 1 1 1 1 1 1 1 1 3001: )0804107874)0791507966NJ07517^,07023D1521004515/?1521500029?1522000039J07144^,07309C1814015127J07113 1 1 1 1 1 1 1 1 1 1 1 3101: /D15157176943D15157174413B07022194301J07424^B07228000'0^B07246000'0(D000'0000?07ND000'0000!07A151090 1 1 1 1 1 1 1 1 1 3201: 0039B07283000'0"NA1510900034A1510900029J07144^)0718107217D15221000!0(G00034BJ07228^NJ07308^L%B414213 1 1 1 1 1 1 1 1 11 1 3301: WR00100"NJ07412^)07284?1512300029J04740^D181U018699CD0003418689/G07350BS1522307362,0718107217D146501 1 1 1 1 1 1 1 1 1 1 1 3401: 7100_J08683^D15125000'1XM%B414613WR00100"M%B414629WR00100"U%U4BR00100"D1522801174T)17838)1814118146) 1 1 1 1 1 1 1 1 1 1 1 1 3501: 1815618161J01175^D15229175357D1523400039/D1523900029/W0757717164"D1509017165TW0760117159"D1509017155 1 1 1 1 1 1 1 1 3601: TV07625174392D1508817159TJ07144^J04740^D181U017337CJ08683^D15157172913J04163^J04740^D181U017369CJ086 1 1 1 1 1 1 1 1 1 1 1 3701: 83^J04740^D181U017353CJ08683^J04740^D181U017385CJ08683^J04740^D181U017369CJ08683^J04740^D181U017401C 1 1 1 1 1 1 1 1 1 1 1 3801: J08683^D15240171003D15157174603J07850^D15157171003A1510907901D0790117439TNJ05603^D0790117103TJ05603^ 1 1 1 1 1 1 1 1 1 1 3901: 50D15241174393NJ07934^D15241171033D15241171673J07997^D15242174393NJ07985^D15242171033D15102171673D15 1 1 1 1 1 1 1 1 1 1 1 4001: 110171293J05603^D15240174383D15240171683NJ08060^D15240171023J05603^D181U1174431D181U5174473DDJ04163^ 1 1 1 1 1 1 1 1 111 4101: D181U2171033D,0817307874,0791507966,08041J04163^W09941181U1)W09941181U2&NJ08193^D181U2171033DD181U21 1 11 1 1 1 1 1 1 1 11 4201: 74393DD181U2171493D181U2171543D181U2171593B08345181U12D15243171573B0416317172OD15244171573D152440844 11 1 1 1 1 1 1 1 4301: 33D08443171483D08443171523D08443171623J04163^D15245171553D15245171653D15108171573B0842417172OD152461 1 1 1 1 1 1 1 1 1 4401: 71573D15246084433J08302^D15108084433J08302^^W09941181U1&D181U1171643J04163^W09941181U1&D181U1171743J 1 1 1 1 11 1 1 1 1 1 4501: 04163^J04740^D181U017450CJ08683^J04740^D181U017117CJ08683^D181U1174323J04163^J04740^D181U017180CJ086 1 1 1 1 1 1 1 1 1 1 1 4601: 83^J04740^D181U017212CB08646181U2^D1515717131C,181U2J04740^D181U217228CD1816218163@)04748J04163^J047 1 1 1 1 1 1 1 1 1 1 1 4701: 40^D181U017198CJ08683^J04740^D181U017121CB08760181U1,J08683^,181U2J04740^D181U017417CD1816218163@J08 1 1 1 1 1 1 1 1 1 1 1 4801: 683^D181U1172583J04163^J04740^D181U017242CJ08683^J04740^D181U017256CJ08683^C181U315187J08955SJ04740^ 1 1 1 1 1 1 1 1 1 1 1 4901: D181U017109CC181U415187J08999SC181U215125J09941/J08683^J04740^,181U2J04740^D181U217109CD1816218163@D 1 1 1 1 1 1 1 1 1 1 1 1 5001: 15157171273J08683^J04740^,181U2D181U017273CB09105181U2^J04740^V09093181T81D181U017279CJ09105^D181U01 1 1 1 1 1 1 1 1 1 1 5101: 7283CD1002618220UJ08683^D181U517289CJ04163^C181U315249J09193SC181U315252J09212SJ09941^J04163^D152531 1 1 1 1 1 1 1 1 1 1 1 5201: 72623J04163^D15240172623J04163^C181U315178J09281SC181U315175J09300SJ09941^J04163^D15240174343J04163^ 1 1 1 1 1 1 1 1 1 1 1 5301: D15253174343J04163^D15157172913J04740^D181U017305CJ08683^D15157173073J04740^D181U017321CJ08683^D1515 1 1 1 1 1 1 1 1 1 1 1 5401: 7173233J04740^D181U017337CJ08683^D15157173393J04740^D181U017353CJ08683^D15157173553J04740^D181U01736 1 1 1 1 1 1 1 1 1 1 5501: 9CJ08683^D15157173713J04740^D181U017385CJ08683^D15157173873J04740^D181U017401CJ08683^D15157174033J04 1 1 1 1 1 1 1 1 1 1 1 5601: 740^D181U017417CJ08683^D181U317184CJ04163^D15254171743J04163^J04740^D181U017145CJ08683^B0994118161^D 1 1 1 1 1 1 1 1 1 1 1 5701: 18161174621B0980218163^D18163174641B0982118165^D18165174661B0984018167^D18167174681W0994118168"J0416 1 1 1 1 1 1 1 1 5801: 3^W0994118162"J04163^W0994118164"J04163^W0994118166"J04163^C1525718163J04163/D15157174623J04163^D181 1 1 1 1 1 1 1 1 1 1 1 5901: 61171741J04163^J04740^D181U017385CJ08683^G09965BD15156183123J00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 6001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^W8DCWS^R8DAV^^X8TITLET8 111 1 1 1 6101: DCWF^Y8RSV^^O8RESEQP8EJECTQ8LOAD^K8CTL^^J8JOB^^L8PST^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 8101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1761011101RANDO1761211101SEQUE1767011 11 1 1 8201: 102SINGL1772711102WRITE1772911102SHARE1753611103CHANN14722O1753812103PRIOR14722O1760812103OVERL17540 1 1 1 1 1 1 8301: 11104TAPE^1766511104DISK^1754211104READE1754411104PUNCH1754611104PRINT17590111041301^1754811105STAND 1 1 1 1 1 1 8401: 1754811105MIXED1755211105CHECK1755411105IDENT1755611105TM^^^1755011105NONST1770011105RDLIN1773111106 1 1 1 1 1 1 1 8501: READE1773311106PUNCH1773511106PRINT1773711106TAPE^17739111061405^17741111061301^17743111061414^17745 1 1 1 1 1 1 1 8601: 111061440^17745111067750^17747111061311^1775111107READE1775311107PUNCH1775511107PRINT1775711107TAPE^ 1 1 1 1 1 1 8701: 17759111071405^17761111071301^17763111071414^17765111077750^17765111071440^17767111071311^008MOVE^17 1 1 1 1 1 1 1 1 8801: 11111108LOAD^008SECTO1726021108TRACK009MOVE^1711111109LOAD^1726011109SECTO1726051109SCTRO1726061109A 1 1 1 1 1 1 1 8901: DDRE1726061109TRACK1726021109NOADD17260@1109CYLIN1726071109FORMA1726011109SINGL17168T1110TAPE^0783H2 1 1 1 1 1 1 1 9001: 10DISK^010RANDO1713111110SEQUE010READE0790B210PUNCH0795C210PRINT010INPUT0798E210OUTPU1743011110CHKPT 1 1 1 1 1 1 1 1 9101: 0801F210CHANN0801F210CHAN20780G2101414^17452111101009^17454111101011^17456111101014^17100111101311^1 1 1 1 1 1 1 1 1 9201: 7100411101440^17100311107750^1745811110TELEG17171W17161L17151L1711114111LOAD^011MOVE^011EVEN^17170B1 1 1 1 1 1 1 9301: 7163B17153B3111ODD^^012FIXED17125^1112VARIA1712311112BLOCK012UNBLO1726001113STAND1726021113NONST1743 1 1 1 1 1 1 1 9401: 611113TM^^^^0985IRTOVE0968GALTPA0991ESCANA0989FNPACS0810?PREFI0767GERRAD0770CPROCA0772ICTLAD0775EINE 11 1 1 1 1 1 1 1 1 9501: RR0778AOUTER0763BSCRAM0765HDISKC0498?FILEF0806GCHANA0935GFILEN09642SCHED0966AVARBU0958EEX8AD0954GEX7 1 1 1 1 1 1 1 1 1 1 9601: AD0950IEX6AD0947AEX5AD0943CEX4AD0939EEX3AD0935GEX2AD0931IEX1AD0847ECARDP0855HPADDI0962CREELS0923AREW 1 1 1 1 1 1 1 1 1 1 9701: IN0496ATRACK0850FNRECO0931IFILES0935GFILEE0860CHOLDA0869FWORKA0887ETOTAL0880DPRIOR0503GRECFO0872BIND 1 1 1 1 1 1 1 1 1 1 9801: EX0884IWLRAD0857GBLOCK0853BSIZER0844DALTTA0912DSERIA0901HHEADE0914CCHECK0505FTYPEL0814HCHAND0882CEOF 1 1 1 1 1 1 1 1 1 1 9901: AD0860CIOARE0501HMODEP0499IFILET^0661HUR2RE0647GPACAS0484GDISKO0492CCHAN10494BCHAN20667?NORCD0659BUR 1 1 1 11 1 1 1 1 1 1 10001: REQ0664DREMOT0682IINQUI0681?CHANC0585EPRIOR0482HPROCE0455?RNDMD0456ISTKAR0459ESTKIN0462ASGMTL0464?DI 1 1 1 1 1 1 1 1 1 1 10101: SKA0598GOPTIO0645ADIOCS0651?READE0637?RWDOP0610AEXITS0582IALTDR0486FFEATU0679ACHECK0671?COUNT0490DLA 1 1 1 1 1 1 1 1 1 1 10201: BEL0488EIODEV^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 10601: ^^^^^^^^^^^^^HEADER^GENER^^^"TRAILER^GENER^^"^^^^^^,1R,^^^^^,^,^^^^^,^^^,^,1,^,1,^,^^^^^^^^^^^^^(,@^ 1 11 11 1 1 1 1 1 1 1 1 1 1 1 1 10701: ,M@U^R,@U^,M@U^R,R1^^^^,^,^^^^^,^^^,^^^^^^^^^^^^^,^^^^^^^^^^^^^,^^^^^^^^^^^^^^^,^^^^^^^^^^^^^,^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 10801: ^^^^^^^,^,1,1,^^^^^^^^^^,^^^^^,^^^,^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10901: ^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,^^^^^^^^^^,^,^,1,0,1R,^,^,^^^,^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11001: ^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^"^^^^^^^^^^^000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 11101: 00WMAG2A*A^43798RUN^^S2?^^01020304050607080910111213BCDEF1OVEASSNONDELLINNORUNLSCATAPRECHASDIOCS1871 11 1111 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1111111 1 1 1 1 1 1 1 1 1 1 1 1 11201: 0DTF^^139311753617536"1EMAGEN,14213171002PL@%X)ALLIDE09YESD0143204003TD01433040057D0143204015TD15577 1 1 1 1 11 1 11 1 11111111 1 111 1 1 1 1 11301: 040143D01433040227D01433040297D0142704085TD15577040843D01428040877D0142704097TD01428040997D014320410 1 1 1 1 1 1 1 1 11401: 9TD01433041117D0140704322TD01408043367D0143207294TD01433073017D0143207427TD01433074347D0143207444TD0 1 1 1 1 1 1 1 1 1 11501: 1433074517D0143207461TD01433074637D0142719465TD01428194727D1558101399TJ04000^U0807^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 11 13101: ^,^^,^^^^^,^,^^^^^,^^^,^,^,^,^,^,^^^^^^^^^^^^^(,@^,M@U^R,@U^,M@U^R,R1^^^^,^,^^^^^,^^^,^^^^^^^^^^^^^, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13201: ^^^^^^^^^^^^^,^^^^^^^^^^^^^^^,^^^^^^^^^^^^^,^^^^^^^^^^^^^,^,^,^,^^^^^^^^^^,^^^^^,^^^,^^^^^,^,^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 13301: ^^^^^^,^,^^^^^^^^^^^^^,^,^^^^^^^^^^^^^,^,^^^^^^^^^^^^^,^,^^^^^^^^^^^^^,0,^^^^^^^^^^^^^,0,^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 13401: ^^,0,^^^^^^^^^^^^^,^^^^^^^^^^,^,^,^,^,^^,^,^,^^^,^^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13501: ^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^"^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^^^^^,^,^,^,^,^,^,^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13601: ^^^^^^^,^,^,^,^^,^^^,^,^^^^^^^^^^^^^,^^^^^^^^^^^^^,^^^^^^^^^^^^^,^,^^,^,^^^^^,^,^^^^^^^^^^^^^,^,^,^, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13701: ^,^^^^^,^^^^^^^^^^^^^,^,^^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^^^^^,^,^^^^^^^^^^^^^,^,^,^,^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13801: ,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^,^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^01^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 14201: ^^^^^^^^^^^^^^^^^^^^^"0100^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 14301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 14401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 14501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 14601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 14701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 15401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G19532BD1954019VM23D19541199387M%B319542WR00100"S19539S00054D19540195 11 1 1 1 1 1 1 1 15501: 423D1954219543#D19541199387J00000^1954C?^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 111 1: MAGEN158620200004464J02116^J02116^ 1: U%U2RR00101"D1223512236%,1223612434D15618124343D1243412433PD1822512125TJ14538^G02114BM%1110700RG1562 1 1 1 1 1 1 1 1 1 1 1 101: 3BR00100"J00000^D0214110700$,06155J02291^99999^^^^^^^^^^END^^^^^^^^^^*END^OF^FILE*^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 201: ^^^^^^^^^^^^^^^^^^^^^"U%U3MR00100"U%U3RR00100"U%U4RR00100"D1562801174TJ01175^J02078^J02921^D10705109 11 1 1 1 1 1 1 1 1 1 1 301: 66$B0284410705*C1071915633J10025SC1071915638J10025SC1071915643J10025SC1071915638NJ06376SC1071915643N 1 1 1 1 1 1 1 1 1 1 1 401: J06376SD15644110413B0285610705*C1071915649J06217SC1071915643J02890SD15650143733)06043T10719141912G02 1 1 1 1 1 1 1 1 1 1 501: 573BJ02568ST10719143722J02542SD15651143733T10719019992J02587SJ06217^D0000002585/J00000^J14669^S12133 1 1 1 1 1 1 1 1 1 1 1 601: A1565212139?1561800094?1561800099D1070017516_J02977^D15653110643J06023^J02078^J02921^C1071915649J027 1 1 1 1 1 1 1 1 1 1 1 701: 67SNJ02724^,02704J02291^C1753515658J09349SC1753515663J09336SJ04056^B0270310705*D1070010961$D15644110 11 1 1 1 1 1 1 1 1 1 1 801: 413S1565200099S1565212133D1072017EL6_J02645^D15644110413D15653110643J06023^NJ06466^J02277^D156491107 1 1 1 1 1 1 1 1 1 1 901: 0TD1566511070TJ02868^G02975BC1213010704J02958UD15666110653D1070412130TJ00000^G03379BB0310617EL6,B031 1 1 1 1 1 1 1 1 1 1 1 1001: 9117EL6@B0327817EL6^A1565200094V03050031921J02984^S1565215668J03075VJ02984^D15669110513S00094)02704J 1 1 1 1 1 1 1 1 1 1 1 1101: 03374^NJ03020^,17EL6A1565200099A1565212133B0302017EL5,A1561800094J03020VD1565212DC53J03020^NJ03253^C 1 1 1 1 1 1 1 1 1 1 1 1201: 1753515674J03020S?1567615668,03279,03107,03192J03020^)03107)03192)03279J03020^NJ03020^C0009415681J03 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 350SA1565200099A1565212133B0335017EL5,D1565212DC53D1568217EL67D1213311113/J03380^G03551BC1413014135J 1 1 1 1 1 1 1 1 1 1 1401: 03505SJ03505TD0350403447/D1413003442/D0000000000+G14130AG03447BG03491BS1565203491V03546000001J03425^ 1 1 1 1 1 1 1 1 1 1 1501: 1109HD1414014130/J03553^S1565214135A1110014130J00000^G03773BS03775L%U511094RG14135BR00100+R03597"NJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 3630^D15683035683,03598J03566^D1413503785JS0378003785C0378511097J03768SB0373903775ID03569037123DDD03 1 1 1 1 1 1 1 1 1 111 1701: 583037147U%U1BR00100"A1565203775J03566^D1753503790LM%T003786WR00100"J00000^?110950000?^^^^^^WLR"%%5R 1 1 1 1 1 1 1 1 11 1 1 11111 1801: 2RU%U5RR00100"D1564911113T)03598B03972035695D03798038053D03796038033D03796035673D03798035693D0379903 111 1 1 1 1 1 1 1 1 1 1901: 8077D03799035837D03799035907D15684035683J04056^C1110814373J04056UJ03802^D03800035693D03800038053D038 1 1 1 1 1 1 1 1 1 1 2001: 01035837D03801035907D03801038077D03797038033D03797035673J03553^C1111317535J03947TJ04056/D1413014135T 1 1 1 1 1 1 1 1 1 2101: NW0530517521&J03381^NJ07893^B0431811114*C1111015689J07944SC1111015658J09889SC1111015663J09876SC11110 11 1 1 1 1 1 1 1 1 1 1 2201: 15694J07217SC1111015699J08960SC1111015704J09265SC1110615710J04277SC1111015715NJ10275SNJ14404SJ02291S 1 1 1 1 1 1 1 1 1 11 1 2301: C1111015720J05250S?1572500094?1111312136D00?!000?!08G00094BS1565212136J04384VJ04340^,11033D00?!01101 1 1 1 1 1 1 1 1 1 1 1 2401: 1#G04419BD1572700000T)11033?1573200094D1111410782(G04578A)10782S1565211113B0450510782,J05035^D108361 1 1 1 1 1 1 1 1 1 1 1 2501: 0966#D1110610782#D,10787J05035^D1083610976#C1111315735J05918SB0586211114*D0000010782(G04660AJ05035^D 1 11 1 1 1 1 1 1 1 1 1 2601: 1083610981#G04646BS1565211113J05918VD1568200000#G04691BD0000010782(G04742AJ05035^D1083600000#G04728B 1 1 1 1 1 1 1 1 1 1 2701: S1565211113J05918VD1568200000#G04809BD0000010782(G04878AJ05035^C1573710838J04993SC1574010839J04993SD 1 1 1 1 1 1 1 1 1 1 1 1 2801: 1083600000#G04864BS1565211113J05918VC1098015745J05918/D1568200000#G04909BD0000010782(G04960AJ05035^D 1 1 1 1 1 1 1 1 1 1 1 2901: 1083600000#G04946BS1565211113J05918VD1568200000#G04984BD0000010782(J05035^D1083600000#J05918^D048090 1 1 1 1 1 1 1 1 1 1 3001: 5026TA1565205021D10836000003J05918^G05230BV05912107821D1089010836+?1575000089?1573200094NB0535000?'0 1 1 1 1 1 1 1 1 11 3101: )NB0562800?'0#V0569300?'01D00?'000?!03A1565200089A1565200094J05088^D1089010782+?1573200094?156180008 11 1 1 1 1 1 1 1 1 3201: 4B0523210836&B0523210836^J00000^?1565200084J05225^C1111615753J05281S)06043J04113^,06043,0238102400J0 1 1 1 1 1 1 1 1 1 1 1 1 3301: 4113^G05348BD1753010975TD1395810981TJ05930^J00000^C00?'115754J05126UC00?'215754J05126UC00?'315618J05 1 1 1 1 1 1 1 1 1 1 1 3401: 126UC00?'315757J05809SV0580900?'3KD00?'312136JC1213615735J05549SC1213312136J05706U?1576200084S156521 1 1 1 1 1 1 1 1 1 1 3501: 2136J05568VB0570612136JD00?0000?008G00084BJ05493^D1753010960TJ05482^D00?0000?!0#G00094BB0570600?00,A 1 1 1 1 1 1 1 1 1 1 1 3601: 1576300089S1565200094J05088^?1561800084D00?'3000843DD13H5600?!4TA1576400094A1576300089J05088^,99IR9J 1 1 1 1 11 1 1 1 1 1 3701: 05167^V0576600?'3BD00?'312184JD1753512171LM%T012167WR057423R05766"D1089010782+D15767109613D109611096 1 1 1 1 1 1 1 1 1 3801: 2#J04113^D00?'000?!0#D1213900?!6TA1576800094A1576300089J05088^D0457805879TD0000010981,G05903BD157270 1 1 1 1 1 1 1 1 1 1 3901: 0000TJ05992^)10782D1110411056TD15769110523)10976D1564911070TD1577406152TND1577906152TJ06042^D1565311 1 1 1 1 1 1 1 1 1 1 4001: 0643D15769110523J05960^G06152BD1070411056TNJ06193^A1565212125D1212510964TND15780110937J06243^D156441 1 1 1 1 1 1 1 11 1 1 4101: 09613B0613511064*C1098015638J06154SD1096110962#J06153^NJ02222^U%U5RR00101"D1578501174LJ01175^M%B4109 1 1 1 1 1 1 1 1 1 1 1 4201: 61WR00100"J06093^D1564911070TJ06023^J02277^G06374BB1943119539CD1096119VM2$G00054BS1953800054A1565219 1 1 1 1 1 1 1 1 1 1 1 4301: 539B0636911064*C1098015638J19431SC1098015633J19431SC1098015643J19431SJ00000^)0238102400C1071915638,0 1 1 1 1 1 1 1 1 1 1 1 4401: 2876J06418SJ02380^D1564310719TD1564310980T,0664406657,06677J02380^)02876U%U4RR00100"M%U411013RG15623 1 1 1 1 1 1 1 1 1 1 1 1 4501: BR00100"M%B410961RG15623BR00100+R06539"C1097514106J06508/M%B410961RG15623BR00100+R06588"C1098015643A 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 1565212125D1212510964TJ06643SJ06243^J06557^ND1563810980TND1578711070TJ06243^NJ06154^J02277^?15618000 1 1 1 1 1 1 1 1 1 1 4701: 99?1561800094?1561800089B0685511114,D11114111148G00099BS1411200099D11114079103B1057111AA4)B1057811AA 1 1 1 1 1 1 1 1 1 4801: 4#B0687311AA4,D11AA412FL67A1565200099A1565200094J06778^A1565200099J06778^D1578812FL63?1111313849C138 1 1 1 1 1 1 1 1 1 1 4901: 4915791J10592SJ06963^S1565213849D1578813?T7+D1303712636+J06896^?1561800094?1561800089?1384913846J073 1 1 1 1 1 1 1 1 1 1 5001: 42VB0706812FL6@B0692112FL6'D12FL613?T77A1565200094A1565200089J07003^B0714712FL5@D12FL5122073T1220712 1 1 1 1 1 1 1 1 1 5101: 2133J07159/S1565213846J10585V?1565212156J07027^B0711112156AA1565213846?1561812156J07027^A1565213846? 1 1 1 1 1 1 1 1 1 1 1 5201: 1561812156J07039^D1061410571+?1565200074J06691^?1579400089A1579500099D11AA4000891DC11AA215796J07311/ 1 1 1 1 1 1 1 11 1 5301: A1565200087D12BT512FL67D15618000871J06826^S1565200094J10585^?1561800099A1565200094B0745912FL6-B07507 1 1 1 1 1 1 1 1 1 1 5401: 12FL6@B0750712FL6'D12FL613DC87A1565200099A1565200094J07382^A1565200094S1565212FL6J07418VD1565213DC87 1 1 1 1 1 1 1 1 1 5501: J07430^D1578813DC87?0009412161?1561800094?1561800099B0761713DC8*D13DC813DL87B0767113DC8'A1565200094A 1 1 1 1 1 1 1 1 1 1 5601: 1565200099J07552^A1579700099B0755213DL7?B0755213DC7AD1561813DL77J07552^?1216100094?1565200099B077351 1 1 1 1 1 1 1 1 1 5701: 3DC8&B0778213DC8'A1565200099J07693^A1579700099A13DC713438J07693V?1565213438J07693^D1343813?T77C13849 1 1 1 1 1 1 1 1 1 1 5801: 15735J07819SJ07188^A1565200089J06921^D13037141233J08714^B0411313037AB0411311114,,04121J04113^)04121B 1 1 1 1 1 1 1 1 1 1 1 1 5901: 0412811105^C1111315649NJ14404TJ02277TJ07880^D1065710571+?1576400074J06691^A1579500099D11AA4121663DDD 1 11 1 1 1 1 1 1 1 111 6001: D1216310782(D0009410948TJ05035^D10836108368G00094B)99IR9D1568112218XB0815210836&B0815210836-,10836D9 1 1 1 1 1 1 1 1 1 1 1 6101: 9IR912218CD1094800094LA1576300094D1221812FL6XJ06826^,10837D1083699IR92J08098^?1561800099A1565200094B 1 1 1 1 1 1 1 1 1 1 6201: 0828812FL6*B0835212FL6/B0841612FL6@B0841612FL6'D12FL613DC87A1565200099A1565200094J08199^D1215012121X 1 1 1 1 1 1 1 1 6301: ?13DC712115A1579800094@12FL512121D1212113DC7LJ08199^D1215512121X?13DC712116A1579800094%12FL512112D12 1 1 1 1 1 1 1 1 1 1 6401: 11013DC7PJ08199^D1578813DC87?1576400099B0849313DC8&B0851113DC8-B0852913DC8'A1579800099J08439^A13DD31 1 1 1 1 1 1 1 1 1 6501: 3442J08475^S13DD313442J08475^A1576300089D1344213?T7XC1384915735J07819SJ07188^B0862511114,?1561800089 1 1 1 1 1 1 1 1 1 1 6601: D11117000893DD1304113HV6T?12640J08669VV0868812640KD1580114125TJ08700^D1580414125TJ08700^D1580714125T 1 11 1 1 1 1 1 1 1 1 6701: J08714^J04113^G08841BD11114111148G00099AD00??000??08G00099AB0877899II9,J08740^?1561800089?1561800094 1 1 1 1 1 1 1 1 1 1 1 6801: B0887700??0#B0886600??0)B0894200??0,B0000000??0'A1565200099J08800^?1579400089A1576300099C99II715796J 1 1 1 1 1 1 1 1 1 1 6901: 08917/A1565200087D99II9000891DD14AK312BT53A1565200094J08848^?1561800099D1111510782(G09099AJ05035^D10 1 1 11 1 1 1 1 1 1 1 7001: 836108368G09067BS1565209067C0906715732J09056/)0907509077,10836D0000013983XNDN)13983,0907509077D00000 1 1 1 1 1 1 1 1111 1 1 7101: 10782(J05035^D10836108368G09183BS1565209183C0918315732J09172/)0919109193,10836D0000013998XNDN)13998, 1 1 1 1 1 1 1 1 1 1111 1 7201: 0919109193)1083611114C1398313998J08650UJ08688TD1581014125TJ08700^D1111414014,G00064BD1578099R977D175 1 1 1 1 1 1 1 1 1 1 7301: 20140123DDDDM%T014004WR00100"J04113^,09403J09355^)09403,05973W0530517521&)05973,09502)09489?15762000 11111 1 1 1 1 1 1 1 1 1 1 1 7401: 79NJ09455^J10139^D1581510980TD1582011070TJ09672^J09564^J09672^D00!?000!?08G00079BJ10177^NB0411300!?0 11 1 1 1 1 1 1 1 1 1 11 7501: ^NB0229100!?0^J10139^D1582510980TD1583011070TD00!?010782(G09574BD0956500000UJ05035^J09597^J09462^G09 11 1 1 1 1 1 1 1 1 1 1 7601: 670BD1083610981#B0965810981,A1565212125D1212510964TJ06243^J10139^J00000^G09798BJ10177^D00!?010782(G0 1 1 1 1 1 1 1 1 1 1 1 7701: 9574B,10782T10786105702J09787ST10786018992J09800/D1078610570XG09759BG09785BD1564400000X)10782J00000^ 1 1 1 1 1 1 1 1 1 1 1 7801: D1078609859TM%T009855WR00100"J10177^V02291095021J04113^^^^^^^NOT^IN^LIBRARY",09403J09895^)09403)0950 1 1 1 1 1 1 1 11 1 1 1 7901: 2,09489?1572500079B0999300!?0,,05973J10139^D00!?010966#G09972BD1572700000TD1583505348/J05324^)05973D 1 1 1 1 1 1 1 1 1 1 1 1 8001: 00!?000!?08G00079BJ09402^B0236910570^?1396300069C00!'000!'5J10084US1576400069J10048^C1564400!'0J1020 1 1 1 1 1 1 1 1 1 1 8101: 3SD00!'512100TD00!'000!'5TD12100J10037^G10175BD15644109613D1096110962#J00000^G10201BD1089010782+J000 1 1 1 1 1 1 1 1 1 1 1 8201: 00^)0508905102)04101,04278J10139^?1584000074D15666143733D00!!017535TJ04056^S1576400074C1564400!!0J10 1 1 1 1 1 1 1 1 1 1 1 8301: 256/,0508905102)04278,04101D1584009759/D15644105707D1070510966$J02369^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 8501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^J00000^J00000^J00000^J00000^J 11 1 1 1 1 8601: 00000^J00000^'J07247^J07258^J07360^J07837^J00000^J00000^'J07974^J07974^J08177^J08577^J00000^J00000^' 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^ 1 1 1 8801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^ 1 8901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 9001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^ 1 1 10001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"'^^^^ 111 10101: ^^^^^^^^^^^^^^^^^^^^^^01000000000?00?000000000000000000000000000000^^^^^^OPERAND^#^^^^MISSING"BAD^OP 1 1 11 11 1 1 1 1 1 11 1 1 1 1 11 10201: R^CODE"^^&*-/'^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 111111111 1 10401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 10601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 11001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 11401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 11801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^''''''00?00?0?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'EQU^^*1056E1111E^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 12001: 399BP/L^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^HEADER^TRAILER^"HEADER^G 1 1 111 1 11 12101: ENER^^^"1111D12DLE12BLE^^^^^^^^^^^^^11098.1473ERELSE1473EGET^^0259DCALL^1473EPUT^^0259DINCLD^^^^^^^^ 11 1 1 1 1 1 1 11 1 1 1 1 12201: ^^^^^^^^^^^^^^^^^.ENTDREXTDRFSEQPGETS^IOSYSLEVDRLEVRTMVRSAPRSEQPUTS^WAITSOPEN^CLOSECLOSDRDLINFEORLXT 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12301: F^^ZIOCSCONSLCHKPTRTLBLWTLBLSTACKIOBSPIORWDIOWTMIORWUPSTACRTAPEWTAPESKIP^Z)0428607923D1814110700$J02 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 12401: 291^NJ14454^,14405U%U4RR00100"M%U417536RR001003R14454"L%B417536RG14513BR00100+R14485"S1565218140J143 1 1 1 1 1 1 1 1 1 1 1 1 1 12501: 74VD1572700000XA1565212139D1584517535XB1437419430^J14669^S12133?1473400029?1585000034B14609000'0,D15 1 1 1 1 1 1 1 1 1 1 12601: 851000!0#A1565200034A1565212133D000'0000'08G00029AW14585000'0"J04056^G14728BD1243512436%,1243612634D 1 1 1 1 1 1 1 1 1 1 12701: 15618126347D1263412633PJ00000^17536,10720J14669^A1565212139?1576200034D1071917535TD)1495915153)15071 1 1 1 1 1 1 1 1 11 1 12801: ?1585300029J15349^T15491187092G15331B)10720J15326SB1557417531GD106Z9175/5XD15682175/6(G00034B,149591 1 1 1 1 1 1 1 1 1 1 1 12901: 5153,15071C107'215856J15004SC107'215859J15004SB1497817531GNJ15574^D15851125153D15682000!0(G00034BJ15 1 1 1 1 1 1 11 1 1 1 1 13001: 160^,107'4A1579500029J15375^T15491187092G15059BJ15495/D00000151141DDDDNJ15109^B1556217531GD15682000! 1 1 1 1 1 1 1 111111 1 1 13101: 0(G00034BD00000000!0_G00034BD15861000!0XD1072110722@NJ15293^V1526210715KB15243107'0^,107'0J15375^A15 1 1 1 1 1 11 1 1 1 1 1 13201: 49400034D106Z9000!0XA1565200034D1072110722@D15682000!0(G00034BD00000000!0_G00034BD15727000!0XD156531 1 1 1 1 1 1 1 1 1 13301: 10643J06023^J02078^J14557^D00000152671DDDDJ14910^G15480BB15574107'0^J15394^G15480BB15562107'1^!15797 1 1 1 1 11111 1 1 1 1 1 1 13401: 15494A1565200029A1565215494B15451107'0,W15405107'0"D1549215491LD106Z915491CJ00000^^^^^^^^^^^^^^B1556 1 1 1 1 1 1 1 1 1 1 13501: 217531PA1549400034D106Z9000!0X)17536D15682000!1(G00034BJ15140^D1072110722@)10720D15653110643D1566911 1 1 1 1 1 1 1 1 1 1 13601: 0513J06023^J02277^?43579MAG2ALTORGEND^^EX^^^^^^^^^ZMA*CALL^INCLDH8SZZFSKIP^5A0000?,BUMATH^BOOL^COMP^ 1 1 11 1 1 1 1 11 11111 1 1 11 11 1 1 1111 1 1 13701: NOTE^HEADERMEND^GENER11114^^1083600?@@@,@DA^^^10782OUT000017536DE^^^GG0411305343"DIOCSG8'00J20?C1BFA 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 111 111 1 11 1 11 1 11111 13801: ??AA???A?A?B^^^^^^^^JDCW^^^^^C80999310570XTF^^12436A2?^TO^IN,^D0140302003TD01404020057D0140702088TD0 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 13901: 1408021027D0142702225TD16445022243D01428022277D0142702237TD01428022397D0143202249TD01433022517D01422 1 1 1 1 1 1 1 1 14001: 03569TD16445035683D01423035837D01423035907D0142203805TD01422038433D01423038077D01420037963D014220379 1 1 1 1 1 1 1 1 14101: 83D01423037997D01403038003D01404038017D01401037973D0142206165TD01423061677D0143206196TD01433062037D0 1 1 1 1 1 1 1 1 1 14201: 143206475TD01433064777D0143206487TD16445064863D01433065017D0143206511TD01433065257D01433065327D01432 1 1 1 1 1 1 1 1 14301: 06560TD01433065747D01433065817D0143214421TD01433144237D0143214433TD16445144323D01433144407D014331444 1 1 1 1 1 1 1 1 14401: 77D0143214457TD01433144717D01433144787J02000^U^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 15501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ZIOCS 1 1 1 1: MAG2A024830200014290J00000^J03305^ 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^ 1 401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^D0143202834CD0143 11 1 1 501: 302836CD0143202846CD0770302845CD0143302860CD0143202870CD0143302872CD0143202882CD0770302881CD01433028 1 1 1 1 1 1 1 1 601: 89CD0142702899CD0142802901CD0142702911CD0770302910CD0142802925CD0142702944CD0142802958CD0143203190CD 1 1 1 1 1 1 1 1 1 701: 0143303197CD0142703308CD0142803310CD0143203320CD0770303319CD0143303322CD0143203332CD0143303334CD0143 1 1 1 1 1 1 1 1 801: 203344CD0770303343CD0143303358CU%U3RR00101"M%U302397RG02482BR00101"U%U3RR00101"M%U302397WR00101"U%U4 1 1 1 1 1 1 1 1 1 1 1 1 901: RR00101"M%U402397RG02482BR00101"/02395///M%B402000RG02482BR00101",02015,02147,02279B0304502103*D0201 1 1 1 1 1 1111 1 1 1 1 1 1 1 1001: 903292TJ03211^D0329703038TJ03045/D0000002109TB0310702235*D0215103292TJ03211^D0329703100TJ03107/D0000 1 1 1 1 1 1 1 1 1 1 1101: 002241TB0316902367*D0228303292TJ03211^D0329703162TJ03169/D0000002373T)02015)02147)02279M%B302000WR00 1 1 1 1 1 1 1 1 1 1 1 1201: 101"J02932^G03286B,03255B0324203288N)03255D0330403303CNDD03292T03302077022G03297BJ00000^^^^^^^^^^^^^ 1 1 1 1 1 1 111 1 1 1 1 1 1 1301: ^^^^^U%U4RR00101"U%U3MR00101"U%U3RR00101"M%U302397RG02482BR00101"D0770801174TJ01175^N^^^^^^^^^^^^^^^ 111 1 1 1 1 1 1 1 1 1 1 1 1601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^$STATSS 11 1 1701: $STCPUR$RSCPU@0FWMWTR^^@2FWMWTRO^@0FWLWTRW^@2FWLWTRWO@0FXMWTRE^@0FXLWTREW@0FRMRTR^^@2FRMRTRO^@0FRLRT 1 1 1 1 1 1 1 1 1 1 1801: RW^@2FRLRTRWO@0F$MRTRG^@0F$LRTRGW50FWMWDV^^52FWMWDVO^50FWLWDVW^52FWLWDVWO50FXMWDVE^50FXLWDVEW50FRMRD 1 1 1 1 1 1 1 1 1 1 1901: V^^52FRMRDVO^50FRLRDVW^52FRLRDVWO50F$MRDVG^50F$LRDVGW40FRMSFA^^70FWMSDL^^72FWMSDLO^70FWLSDLW^72FWLSD 1 1 1 1 1 1 1 1 1 1 2001: LWO80FWMSDE^^82FWMSDEO^80FWLSDEW^82FWLSDEWO90FWMSDH^^92FWMSDHO^90FWLSDHW^92FWLSDHWO00KCLSCL^^02KCLSC 1 1 1 1 1 1 1 1 1 1 2101: LO^10KCLSCK^^12KCLSCKO^10KCMSCM^^12KCMSCMO^00KSLSSL^^02KSLSSLO^10KSLSSK^^12KSLSSKO^10KSMSSM^^12KSMSS 1 1 1 1 1 1 1 1 1 1 2201: MO^)1RMR2^^^)1RLR2W^^*1RMR2O^^*1RLR2WO^04SSF2^0)2WMW2^^^0)2WLW2W^^0*2WMW2O^^0*2WLW2WO^1)2WMWM2^^1*2W 1 1 1 1 1 1 1 1 1 1 1 2301: MWM2O^12CC2^^)4WMP2^^^)4WLP2W^^*4WMP2O^^*4WLP2WO^)8WMPB2^^*8WMPB2O^EQECR2^DQDCR2^QSS2^^%JBB2^^LJBPCB 1 1 1 1 1 1 1 1 1 1 1 1 2401: 2)JBCV2^!JBC92^FYBUPR2*JBNQ2^*YBIPR2'JBOQ2^'YBQPR21OBCLR22OBCNR23OBCRC24OBCAF25OBCPC26OBCAN27OBCTR28 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: OBCDC2NNOP^^TGSTC^^1IBCLR12IBCNR13IBCRC14IBCAF15IBCPC16IBCAN17IBCTR18IBCDC1EPECR1^DPDCR1^PSS1^^2SRMR 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: CRO^0SRLRCRW^2SRLRCRWO0SRMRCR^^00DRMRTD^^02DRMRTDO^00DRLRTDW^02DRLRTDWO00DWMWTD^^02DWMWTDO^00DWLWTDW 1 1 1 1 1 1 1 1 1 1 2701: ^02DWLWTDWO0QRMRQ^^^0QRLRQW^^2QRMRQO^^2QRLRQWO^0QWMWQ^^^0QWLWQW^^2QWMWQO^^2QWLWQWO^00PRMRPT^^00PRLRP 1 1 1 1 1 1 1 1 1 1 1 2801: TW^02PRLRPTWO02PRMRPTO^0LRMRL^^^2LRMRLO^^0LWMWL^^^2LWMWLO^^10KRLSRK^^00KRLSRL^^10KRMSRM^^12KRLSRKO^0 1 1 1 1 1 1 1 1 1 1 1 2901: 2KRLSRLO^12KRMSRMO^10K$LSRKG^00K$LSRLG^10K$MSRMG^10KWLSWK^^00KWLSWL^^10KWMSWM^^12KWLSWKO^02KWLSWLO^1 1 1 1 1 1 1 1 1 1 1 3001: 2KWMSWMO^10KXLSWKE^00KXLSWLE^10KXMSWME^80FRMSAI^^82FRMSAIO^90FRMREL^^92FRMRELO^@0FWMWCY^^@2FWMWCYO^@ 1 1 1 1 1 1 1 1 1 1 3101: 0FWLWCYW^@2FWLWCYWO@0FXMWCYE^@0FXLWCYEW@0FRMRCY^^@2FRMRCYO^@2FRLRCYWO@0FRLRCYW^@0F$MRCYG^@0F$LRCYGW7 1 1 1 1 1 1 1 1 1 1 3201: 0FWMWFO^^72FWMWFOO^70FXMWFOE^60FWMWFT^^62FWMWFTO^60FWLWFTW^62FWLWFTWO60FXMWFTE^60FXLWFTEW60FRMRFT^^6 1 1 1 1 1 1 1 1 1 1 3301: 2FRMRFTO^60FRLRFTW^62FRLRFTWO60F$MRFTG^60F$LRFTGW50FWMWHA^^52FWMWHAO^50FWLWHAW^52FWLWHAWO50FXMWHAE^5 1 1 1 1 1 1 1 1 1 1 3401: 0FXLWHAEW50FRMRHA^^52FRMRHAO^50FRLRHAW^52FRLRHAWO50F$MRHAG^50F$LRHAGW40FWMPSC^^42FRMPSCO^30FWMWDC^^3 1 1 1 1 1 1 1 1 1 1 3501: 2FWMWDCO^30FWLWDCW^32FWLWDCWO30FXMWDCE^30FXLWDCEW20FWMWDT^^22FWMWDTO^20FWLWDTW^22FWLWDTWO20FXMWDTE^2 1 1 1 1 1 1 1 1 1 1 3601: 0FXLWDTEW20FRMRDT^^20FRLRDTW^22FRMRDTO^22FRLRDTWO20F$MRDTG^20F$LRDTGW10FWMWD^^^12FWMWDO^^10FWLWDW^^1 1 1 1 1 1 1 1 1 1 1 3701: 2FWLWDWO^10FXMWDE^^10FXLWDEW^10FRMRD^^^10FRLRDW^^12FRMRDO^^12FRLRDWO^10F$MRDG^^10F$LRDGW^00FRMSD^^^0 1 1 1 1 1 1 1 1 1 1 3801: 2FRMSDO^^H8EX^^^K8CTL^^G8END^^O8RESEQP8EJECTQ8LOAD^L8PST^^J8JOB^^X8TITLET8DCWF^Y8RSV^^W8DCWS^R8DAV^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: EGSER^^FGSFR^^NYBQPR^NYBQPR1UYBUPR^UYBUPR1QYBIPR^QYBIPR1SYBSPR1TYBSPR2BYBXPR2AYBXPR12YBOPR21YBOPR1NJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: BOQ^^NJBOQ1^QJBNQ^^QJBNQ1^9JBC9^^9JBC91^@JBCV^^@JBCV1^RJBPCB^RJBPCB1MJBB1^^@RBRC1^@XBRC2^2JBOL2^1JBO 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: L1^4XBER2^4RBER1^-XBWL2^-RBWL1^8XBEF2^8RBEF1^2XBCB2^2RBCB1^1XBNR2^1RBNR1^^RBNT1^^XBNT2^XBEX2^RBEX1^" 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: RBA1^^"XBA2^^XYBXPA^EYBEPA^ZJBAV^^WJBDV^^%8WMPB1^^@8WMPB1O^%4WLP1W^^%4WLPW^^^@4WLP1WO^@4WLPWO^^@4WMP 1 1 1 1 1 1 1 1 1 1 1 1 4301: 1O^^@4WMPO^^^%4WMP1^^^%4WMP^^^^1FCC^^^1FCC1^^1%2WMWM^^^1%2WMWM1^^1@2WMWMO^^1@2WMWM1O^0@TWLWCPWO0@TRL 1 1 1 1 1 1 1 1 1 1 1 4401: RCPWO0%TRLRCPW^0%TWLWCPW^0@TRMRCPO^0@TWMWCPO^0%TRMRCP^^0%TWMWCP^^0@2WMW1O^^0@2WMWO^^^0@2WLW1WO^0@2WL 1 1 1 1 1 1 1 1 1 1 4501: WWO^^0%2WLW1W^^0%2WLWW^^^0%2WMW1^^^0%2WMW^^^^0KSSF^^0KSSF1^@1RLR1WO^@1RLRWO^^@1RMR1O^^@1RMRO^^^%1RLR 1 1 1 1 1 1 1 1 1 1 1 4601: 1W^^%1RLRW^^^%1RMR1^^^%1RMR^^^^0URMMU^^^0URLLU^^^0UBUCU^^^0UUURWU^^0URURWD^^0UMUWTM^^0UEUSKP^^0UBUBS 1 1 1 1 1 1 1 1 1 1 1 4701: P^^0BXMWTBE^0UXMWTE^^0B$MRTBG^0U$MRTG^^0BXLWTBEW0UXLWTEW^0B$LRTBGW0U$LRTGW^2BWLWTBWO0BWLWTBW^2BWMWTB 1 1 1 1 1 1 1 1 1 1 1 4801: O^0BWMWTB^^2BRLRTBWO0BRLRTBW^2BRMRTBO^0BRMRTB^^2UWLWTWO^0UWLWTW^^2UWMWTO^^0UWMWT^^^2URLRTWO^0URLRTW^ 1 1 1 1 1 1 1 1 1 1 1 4901: ^2URMRTO^^0URMRT^^^N8SFX^^M8XFR^^YDSCNRRQDSCNRGHDSCNRM8DSCNR^^DSCNLA-DSCNLB&DSCNL^^DSCNLS^DMRNWRZDMR 1 1 1 1 1 1 1 1 1 1 1 1 11 1 5001: NR^'DMRZR^,DMRCR^%DMRWR^\DMRZWR+DMRCWRRDMRNG^!DMRZG^]DMRNWG;DMRZWGIDMRNM^?DMRZM^)DMRWM^[DMRNWMDMRZW^(DMRCW^#DMRC^^"DMRCWM.DMRCM^_DMRCWG$DMRCG^*DMRWG^MDMLWB^NDMLNWBP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: DMLCWBODMLZWBDDMLW^^EDMLNW^FDMLZW^GDMLCW^4DMLWS^5DMLNWS6DMLZWS7DMLCWS/DMLNA^SDMLZA^UDMLWA^VDMLNWAWDM 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: LZWAXDMLCWAJDMLNB^KDMLZB^ADMLN^^BDMLZ^^1DMLNS^2DMLZS^3DMLCS^CDMLC^^LDMLCB^TDMLCA^AGSAR^^BGSBR^^A#FA^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: ^^S#FS^^^M#FM^^^D#FD^^^R#FRA^^L#FST^^%D^^^^@M^^^^!ZS^^^ZMCS^^EMCE^^3TLLE^^5TLLH^^6TLEH^^1TLL^^^4TLH^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: ^^2TLE^^^?ZA^^^SS^^^^AA^^^^.H^^^^VJBZ^^^2VBZN^^3VBWZ^^WBBE^^NOPWM^CC^^^^SJBE^^^TJBL^^^UJBH^^^/JBU^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: I8LTORGF8ORG^^D8DS^^^A8DA^^^B8DC^^^E8EQU^^NOP^^^/CS^^^1VBW^^^)CW^^^,SW^^^C8DCW^^BBCE^^JB^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: ^^UFAZ3AN 11 1 1: FAZ3A120190150005016J00000^J11362^ 1: J14000^J11362^D1365200!89TJ07010^B0189600J108J09400^J02253^D00J10015823B0166001895*BBBBBB01678BBBBBB 1 1 1 1 1 1 1 1 1 111111 111111 101: BBBBBB01696BBB01765BBBBBB01754B01736BBBBB01725BB01776J13079^A01YU800!82J01787^A01YV200!82J01787^A01Y 111111 111 111111 1 11111 11 1 1 1 1 1 1 201: V600!82J01787^A1186900!82A1187000!82A1187100!82J01787^A1187000!82A1187200!82A1187200!82A00!8211662B0 1 1 1 1 1 1 1 1 1 1 301: 182900!822B0182900!827J01526^D1187300J002J01822^161216111707NLMGIOXRUQP42FK#YJ/),CEZ%@!?SAVWB.TDD00J 1 1 1 1 111 111 111 11 1 11 1 1 1 1 401: 09019193B04611020840BB03951B05908B04976B03872B05902B05865B03342B03399B01514BB05883B03380B01514B01514 1 11 1 1 1 1 1 1 1 1 11 1 1 1 501: B03361B01514B01526B02217B03951B02181R90003^.D1187400J093J05865^TRWYXQPONHMJKLGIDEFABCG02179B?0003400 1 1 1 1 1 1 1 11 1 1 1 1 601: 029D000!1021263B0216211518*B02174BBBBNB04035A1187200034J02103^W02144000!2"J00000^A1187500!82A00!8211 1 1 1 11111 1 1 1 1 1 1 701: 662J09400^J01526^A1187100!82A00!8211662J09400^J01526^G02284BW0228600!22"WS00049J00000^?1187200049A11 1 1 1 1 1 1 1 1 11 1 1 1 801: 87200034D1366213677XD000!0023433B0237611518*B02395B02586BB02814B02491J02297^W02297000!1"J02279^B0227 1 1 1 1 1 11 1 1 1 1 1 901: 900049CC1187800!18J02279SA1186900049W02478000!1"A1187200034V02279000!01J02436^,000!1J02297^J12992^D0 1 1 1 1 1 1 1 1 1 1 1 1001: 00'0000'0^G00039B)000?1,000'1),D000?113668#J10677^A000!013667D11872136642)03211J03140^V02668000!01V0 1 1 1 111 1 1 1 1 1 1 1 1101: 2297000!12B02297000!1*J02085^,000!0D000'113668#J10407^J10279/J02297^J02085^)000'0,000!0W02770000'1&? 1 1 1 1 1 1 1 1 1 1 1 1 1201: 0003400054S0002900054C1188200053J02885/D000'013668#D0005413667/J03140^D1188713667/D000'113668#J10677 1 1 1 1 1 1 1 1 1 1301: ^,03198J03140^J03066^!0003400054A1187200034A0002900054J02999VV0297300054BB02916000530D1364213677TD00 1 1 1 1 1 1 1 1 1 1 1 1401: 05413667/J03274^D00054136681D000'113669#D0005413667/J03140^J02085^J02297^D00J10029963B0295911890^BBR 1 1 1 1 1 1 1 1 1 111 1501: 000'1^G00034AJ02085^,000!0S1187200029!0003400054?1187000049J02843^G03138B?0003400029D00!7300!72MT115 1 1 1 1 1 1 1 1 1 1 1 1601: 6500!722G00034BD1355000!72U,000!0J00000^R14?'4^G00039A,13RZ913668T13677999I52G00039B)13RZ9J03274/NV0 1 1 1 1 1 1 1 1 1 1 1 1 1701: 3154999I7BNJ03315^V03154999I72C000?013667J03315SD11891999I82J11444^J03315^W1073313RZ0")13668D1367713 11 1 1 1 1 1 1 1 1 1 1801: RZ9XS1189300069,03211)03198NJ06614^J02297^D11891014933J01514^D11891014743J01514^D00!21115643J01514^D 1 1 1 1 1 1 1 1 1 1 1 1 1901: 1189810940/D00!22014963J13048^N!231B0380400!232B03639014953B03535014954B03587014955?1176111756?11736 1 1 1 1 1 1 1 1 1 2001: 11731?1180411800D1178101479XJ03684^?1177111756?1174611731?1181211800D1179101479XJ03684^?1177611756?1 1 1 1 1 1 1 1 1 1 1 2101: 175111731?1181611800D1179601479XJ03684^?1176611756?1174111731?1180811800D1178601479X?1173100069?0006 1 1 1 1 1 1 1 1 1 2201: 900089?1175600044D1189914!'07D0147910824/,10851J10819^B0378501411BD11900014973J10935^D11901014973J03 1 1 1 1 1 1 1 1 1 1 2301: 447^B0383501416BD11902014973J03847^D11903014973,10613D11904106357J10935^A1187200034J02085^D000!000J2 1 1 1 1 1 1 1 1 1 1 2401: 0A?00J2011529A00J2011662)09496J09400^J01526^"005000,02138)04426,07292J02085^A000!000J20A1187200J15W0 1 1 1 1 1 11 11 1 1 1 1 1 1 2501: 407700!21"?1190700J20J11418^J04077^?000!000J15,000!2G00034BJ02085^?000!000J20)02138?00J1511536@00J20 1 1 1 1 1 1 1 1 1 1 1 2601: 11542?00J2011536?0005913647A1154211662B04388000!1^A1187200034J02085^,000!0V04193000'11J04231^D000'10 1 1 1 1 1 1 1 1 1 1 2701: 42163B0430111912*BB04331BB04361W0437413668"D000'113668#J10407^J11276/J11470/B1147013665X,04426J04138 1 11 11 1 1 1 1 1 1 1 1 2801: ^A1187211662D1349600J033J04138^A00J1511662D1191300J023J04138^S13647J04138^J11418^J04138^D00!8913667T 1 1 1 1 1 1 1 1 1 1 1 2901: J04432^)09496D1364713667JN,09526J09400^J07010^?0006400054A1187200034J02085^,000'0A000!000/J5?00/J511 1 1 1 11 1 1 1 1 1 1 1 1 3001: 529C1152911536J11418TA1187200034B04407000!0^W0459700J20"C0005400064J04407/A1187500054B04457000!0,J11 1 1 1 1 1 1 1 1 1 1 3101: 418^J04439^A1187200034D00!21046453B0475611524^B04678BB04726B04792W04823J04701^W0482300!22&A118720003 1 1 1 1 1 11 1 1 1 1 1 3201: 4J02085^S1187200029J04733^J03066^S0003400029V0477400029K!1191500029J11418^!0002900!82J04864^J02085^, 1 1 1 1 1 1 1 1 1 1 1 1 3301: 000'1?000!000J20J04864^J02253^?0005913667D13652136672?1187500!82B0490400!06^?00!8211529A00J2011529)0 1 1 1 1 1 1 1 1 1 1 3401: 9496J09400^A00!8211662A00J2011662C000!311918J04962/A1187211662J07010^J04611^B0522600!21^B0522600!06^ 1 1 1 1 1 1 1 1 1 1 3501: D1365411531TD1366213677X)0558105826)05851D1366211707XD13662A1187200034J02085^D00!21051003B0525211923 1 1 1 1 1 1 1 1 1 1 3601: *B05282BBW05301B05151000!1,A000!011529,10227J05375^B05182000!2XD000!013667AJ05606^)00!21,000!0D11891 1 111 1 1 1 1 1 1 1 1 1 1 3701: 13668#D00!21J10407^J05606SJ11418^D1365200!89TJ07017^W0528200!22(A0005911529J05375^D00!2313665TJ05606 1 1 1 1 1 1 1 1 1 1 1 3801: ^)00!21,000!0D00!2113668#J10407^J05651/B0560613663^D1366711529AD1366711531KB05558000!1^A1187200034J0 1 1 1 1 1 1 1 1 1 1 1 3901: 2085^W05471000'1&,000'1B05453000'0&S000!011529J05375^A000!011529J05375^,000!0D1366213677XD000'113668 1 1 1 1 1 1 1 1 1 1 4001: #J10407^J05620/W0553913667&WA1366711529D1366711531BJ05375^?1192911935A1152911935NJ05724^,09526D11935 1 1 1 11 1 1 1 1 1 1 1 4101: 13667LJ09400^J05233^J10279^V05688055811D1193711694TD11891116942D1367711707T,05581J05375^D1367711692T 1 1 1 1 1 1 1 1 1 1 4201: D11940,0582605851J05375^)13668D00!0613668#J10677^D1367711722X?1193511712D1153111712SD11942W1073314'3 1 1 1 1 1 1 1 1 1 1 1 4301: 5"D11891140103A1194400044NA1189300044D1172213Z99XDND,14'00J05233^)06977D00!3011868LD1365200!89TJ0657 1 1 11 1 11 1 1 1 1 1 1 4401: 7^)06564C00!2911953J05949/,00!31?00!3511553)00!31J09400^?0005911542?0005911558)00!21)06197?119540005 1 1 1 1 1 1 1 1 1 1 1 1 4501: 9J02085^A1187200034B0634500!21^W06067000'1&,000'1?999R913667J06172^C000'511959J06276SB06327000'1*,99 1 1 1 1 1 1 1 1 1 1 1 4601: 9R9D1366213677XD000'113668#J10407^J11276/J06389/W1144413665^D13652136672B06222000'0-B06204000'0&NJ06 1 1 1 1 1 1 1 1 1 1 4701: 375^A1366700059J06233^S1366700059B06407000!0^J02085^A1187200034,06197J06031^?1154211533J06316VS11533 1 1 1 1 1 1 1 1 1 1 1 4801: 11542A1187211540A1196000034?1154213667J06172^W0606700!22"A0149100059J06407^J11418^J06396^J11470^?115 1 1 1 1 1 1 1 1 1 1 1 4901: 4200059?0005900!89V06437065641J06563^C1155811965NJ06520T)06449NJ06563^C0005911965J06563UJ06520SC0005 1 1 1 1 11 1 1 1 1 1 1 5001: 911548J06551UJ06563^D1196511548T)06449,06463J06563^D0005911548TNJ01526^,06564)13668D1196613677CD1367 1 1 1 1 1 1 1 11 1 1 1 1 5101: 7,03328J03140^)03328,14!'1?0008900054?0006900089B0693513ZR0.NJ07228^,00!8106661D0005900!89/A13ZQ9000 1 1 1 1 1 1 1 11 1 1 1 5201: 59V0686813ZQ6B,00!21D13ZR900!30LD13ZQ900!82JB0682113ZR0#W0682700!21&D1196700!213?0006400034A00!82000 1 1 1 1 1 1 1 1 1 5301: 34D11967000K23J06827^)06661S1189300054D0005914'!4VS1187214'!4J06648^D1164900!84XD13ZQ900J20V,00!06D1 1 1 1 1 1 1 1 1 1 1 1 5401: 3ZR900!15LD00J2000!26/D11968J06827^V07228066611,06661D1197000J10T?1187211724NJ01526^J07228^D11975011 1 1 1 1 1 1 1 11 1 1 5501: 74XJ01175^G07226BJ07228^NJ07062^,07025M%B313100RG00039BR00101"B0701700J04*B0701700!06*C0149100059J07 1 1 1 11 1 1 1 1 1 1 1 1 5601: 115T?0005901491,00J1600J11,00!8500!81,00!7300!21,00!16,D1366213677XA0005913667A0005900!89R00!20^G000 1 1 1 1 1 11 1 1 1 1 5701: 34AC1198000!20J01533/J00000^G07440BB0731600!06^W0731600!06&)00!07G00034B,J02085^?000!000!89N?000!013 1 1 1 1 1 1 1 1 11 1 1 5801: 647)07292J07327^A1166200059S11662D1363100J31US1187211724J07381VA1198300064J07435^M%B413100WR00101"/1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 3495///)07025?1172311724?1198800064J00000^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1111 1 1 1 1 7901: G09562BD1365713677T)13668?0006400054W0948300!06&W0954500!06(B0954500!07^A1187200054D00'!613668#NJ095 1 1 1 1 1 1 1 1 1 11 8001: 25^A1152913667S1187213667ND1153113667SJ09564^)09526,09496J00000^G10256BJ09671^J10677^R14'04^G00039A, 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 13668)14005T13677999I52G00039B,14005J10105/,09657J09772^NJ09605^J10251^G09770B?1198900054S1187200054 1 1 1 1 1 1 1 11 1 1 1 1 8201: J09719VB0968913WO9^D13WO8000239DA0002300024@1175500029A1175500029J00000^G10096BW11444999I8^V09835999 1 1 1 11 1 1 1 1 1 1 8301: I7SD11891999I82J11444^)09657J10091^)10106B09969999I7XD13662000A0XW09891000A5&WD13667000A52DD13667116 1 1 1 1 1 1 1 1 11 11 8401: 77/D000A5A1167711672D11672000A5/C1366511992J10055/D11980000A5SJ10055^C999I611993D13662000A0XJ10105SV 1 1 1 1 1 1 1 1 1 1 1 8501: 10022000A2BA1189300039W1004213667&WJ09891^D13667000A52DV10091999I7SV10091999H2SD11993000A2SJ00000^G1 1 1 11 1 11 1 1 1 1 8601: 0256BNJ10171^T13657139Z92G00039BJ10201ST1365713Z992G00039BJ10201S,10106J12759^N'05"G00039BA118930004 1 1 1 1 1 1 1 1 1 1 1 1 8701: 4)13668J10677^D13677000A0XND11994999I62)10227,000A1J00000^J10733^J09671^J10113^G10405BJ10677^T136771 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: 39992J10400ST13657139992G00039BJ10369/D13677000A0TD11999000?0XJ10400^D1181713500.D1367713552TJ10605^ 1 1 1 1 1 1 1 1 1 1 8901: J00000^G10603B,13668W1049913672"WT13670137742G00039BJ10499/D000?0136673DD13652DDD11891999I83J10556^J 1 1 1 1 11 1 1 1 11 111 1 1 9001: 10677^T1367713Z992G00039BJ10598/W10587999I7&D000?013667CD1366711531KW1144413665^J10598^C1187211869J0 1 1 1 1 1 1 1 1 1 1 9101: 0000^G10675BNJ10635^F1R00101",10613M%2013500WR00101"/13631/S1187201486J00000^G10731BC1367112003J1072 1 1 1 1 1 1 1 1 11 1 1 1 1 9201: 6SJ12870^N677"D11564136773J00000^G10940BD1200514014XD14'00116507G14009AD1349614'007L%B514000WR00101" 1 1 1 1 1 1 1 1 1 1 1 9301: D1165014'007G10824B/00000G10824BC1082412010J10819/NJ10911^)10106J10871ZA1187201494J11496ZS1180011756 1 1 1 1 1 1 1 1 1 1 1 1 9401: ?1175600044)10851D1175614009XD11756J00000^G11025BR13Z99^G14009BD1200514014TL%B514000WR00101"M%B51310 1 1 1 1 1 1 1 1 1 1 1 1 9501: 0WR00101"A1187201494J00000^G11086BU%U5RR00101"M%U513496RR00101+R11070"?1187211656J00000^G11200BC0149 1 1 1 1 1 1 1 1 1 1 1 1 1 9601: 411656J11027UL%B514000$G00039BR00101+R11144"?1400900084?1165611655A1187211656C0149411656J11027UJ0000 1 1 1 1 1 1 1 1 1 1 1 9701: 0^G11274BC1165611657J11248TJ11262SJ11088^J11209^J11027^J11209^J11088^J00000^G11360BB1133801494?D1201 1 1 1 1 1 1 1 1 1 1 1 1 1 9801: 501174XJ01175^L%B201500RR00101+R11338"C1165111872S11651J00000^NJ16122^M%T011403WR00101"R90004^.J1138 1 1 1 1 1 1 1 11 1 1 1 11 9901: 7^.EOF^ON^WORKTPE"G11442BD1201600!913J00000^G11468BD1201700!903J00000^G11494BD1201800!903J00000^R900 1 11 1 1 1 1 1 1 1 1 1 10001: 01^.J11496^.X#@-&,^&#@-&^^^^^^^^^^^^^^^^^^^^9999I00000^^^^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 11 1 1 1 111 10101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^?^^^^??0000?0000?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 111111111 1 1 1 1 1 10201: ^^^^^^^^^^^^^^^^^^^^^^^CC20^^^^^05985259954599065985^^^^^0390022200399005670019984399945998979984^^^ 1 111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: ^075?150?225?300?PHASE^3^UNABLE^TO^ASSIGN^THE^FOLLOWING^XR"^^^^^^^^^^BCGA&GEBEX00000000EMLUX1E01514" 1 1 1 1 11 11111111 1 1 1 11 1 1 10401: 4567N13C0'R"G'5A@,G&%@)*10000?^^^^^^XX^^^&^3?COMMONCTR?*&X00D0070?.@#Z8FAZ3C^^^^^13B13099H^^^^Z^X^^^ 111111 1 11 1 1 1 1 1 1 1 1 11 11 1111 1 1 1 1 11 111 10501: IOCS0A13999FAZ3BFMUD01427014983D01422014993D01425014713D01428014703D01420014733D01423014723D01404140 1 1 1 1 1111 1 1 1 1 1 1 10601: 467D0143214056TD01433140707D0142214086TD01423140887D0142214098TD12758140973D01423141127D0142214122TD 1 1 1 1 1 1 1 1 1 10701: 01423141247D0142214134TD12758141333D01423141417D0142714162TD12758141613D01428141767D0142714186TD0142 1 1 1 1 1 1 1 1 10801: 8141887D0142714198TD12758141973D01428142057D0140316142TD01404161447D0143216202TD01433162047D01433162 1 1 1 1 1 1 1 1 10901: 117D0140316229TD0143207041TD01433070557D0142707384TD01428073917D0141210638TD01413106457D0142210786TD 1 1 1 1 1 1 1 1 1 11001: 01423107937D0142210978TD01423109857D0142210995TD01423110027D0142211037TD01423110397D0142211049TD1275 1 1 1 1 1 1 1 1 11101: 8110483D01423110567D01423110637D0142211116TD01423111307D01423111377D0140311317TD01404113247D01404113 1 1 1 1 1 1 1 1 11201: 317D0141216166TD01413161687D0141716190TD01418161927J01500^UB1025814'00"W1025814'05"G00039BJ10190^N^^ 1 1 1 1 1 11 1 1 1 1 11301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B1290713669$B12962W1072613677" 1 1 1 11401: J10714^D13668129903D1367812989LD1299013677TD13662136783J10726^D1367812990LJ12931^^^^^^^^^^^NC00!2013 1 1 1 1 1 1 1 1 1 11 11501: 047J02279SJ02085^D000'0000'0^G00039BJ02517^CC^^^B0375400!231B0380400!232J10935^B0173600J10$J01714^N^ 1 1 1 1 1 1 1 1 1 1 1 1 11601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^@ 1 1 12101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"#^^^^^^^^#^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X0^^2ZX1^^3MX2^^3I 11 1 1 1 11 1 1 1 12201: X3^^U4X4^^UZX5^^VMX6^^VIX7^^O4X8^^OZX9^^PMX10^PIX11^H4X12^HZX13^IMX14^IIX15^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 12501: NW1402001395-J14032^D16251039471D1623700012XDDR14053"M%B313100RG00039BR00101")11363U%U5RR00101"M%U51 11 1 1 1 111 1 1 1 1 1 1 1 12601: 4219RG00039BR00101"U%U5RR00101"M%U514219WR00101"?1625211656M%U414219RG00039BR00101"U%U4RR00101"M%U41 1 1 1 1 1 1 1 1 1 1 1 1 1 12701: 4219WR00101"J14300^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^" 1 1 1 1 12801: D1365200099XD0009900094XDDDDDDDDDDDDDD1625301492XD01400014951D1625401493XD1625401474XD1625601486XD16 1 1 11111111111111 1 1 1 1 1 12901: 26101484X,00024,D16253014947D1365201491X?1626600064?1172311724?0394900059?1175600044D1627110940/D162 1 11 1 1 1 1 1 1 1 13001: 7607226/B1455101411BB1460601416BD1627701497TJ03447^D16278106207D16278106227B1462501416BD16279014973J 1 1 1 1 1 1 1 1 1 13101: 14681^D16280014973J03447^C0141201417J14662/D16279014973J14681^D16281014973J14681^W0344701400^D146930 1 1 1 1 1 1 1 1 1 1 13201: 14002D0141214768TD01413147707D0141214780TD01413147877D1628214779TU%U6RR00101"L%U614801WR00101"J03447 1 1 1 1 1 1 1 1 1 1 13301: ^B354.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 13401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y/68347D/69347B784. 1 1 1 1 13601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"LP^^X72B37600^^JOB^^,333,001005M344004.388/0801M004337/332/M/70331 1 11 1 1 111 1 1 1 1 1 11 1 11 13701: M%B1201RB/36KB'43LS346B490331_B562DB562336PB388BB388334^B486201^B4772010F4791FJM/692012388B503EB5273 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13801: 37^,281M333281M%B4201WB/00LB388CB388335^/180,101M2801804K4B388/180B851202+B832205^B824210G,101106M20 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 13901: 5104B814216*,116121M286172M232120M225115BS01N^^)663Y/69664B791072^,663M664694M664701M664790M072347M1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14001: 72348B873347LB899347GB925347RB936347.B962347DB973347WB991347,B'17347QB181347CM/71347M347172,663S/726 1 1 1 1 1 1 1 1 1 1 1 1 1 14101: 64B8216631B647M2821724K8/080B443/072,021M286072B443M353120,121M286172B821M/73347B784348PM/74347B784M 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14201: 333347B784348MM/75347B784M/76347B784M/77347B784348,M/78347B784M/70347B784D/73347Y/79347B784M/79347B7 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14301: 84348^M/80347B784M/81347B784348TM/82347B784B'673451U%U1BA/72346B388/180,101M2801804S346M338201FL2388 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 14401: U%U4BM%B4201WB/22LB527U%U4BU%U4EB514B/49EB/83337^U%U4BU%U4MU%U4BB/83S^_(1[<>];:\!+?B/96DB354336^4354 1 1 1 1 1 1 1 1 1 1 1 1 1 1111111111111111 1 1 14501: .B8212010M340664B647."^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 11 14601: ^^^^^^^^^^^^^^^^^^^^^^M%T016238WR00101"U%U2RR00101"B16175014112U%U6RR00101"B16199014164U%U7RR00101"U 1 1 1 1 1 1 1 1 1 1 1 14701: %U3RR00101"R99999^.J16211^L%B200011$..END^OF^BATCH"7A?^5F140001309907062015330N213U^^^^^^^^^^^^^^^^^ 1 1 11 1 11 111111 1 1 1 1 111111 1: FAZ3B025490150018499J00000^J11362^ 1: J01966^J11362^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^@U%U2BR00101"U%U2BR00101"U%U2BR0010 1 1 1 1 1 1 501: 1"D1367702538L)02215?0254300079S0254500079J10942^J11027^J11088^?1165611653J02106^J11088^C1165611653J 1 1 1 1 1 1 1 1 1 1 1 1 601: 02233S?1400900039A0254600039T13677999I52G00039BJ02081/V02128999I7SV02304999I7BD000?013667CD136671153 1 1 1 1 1 1 1 1 1 701: 1KW11444999I8&NJ02496^?0254711651?0149411657A0254701494J11202^S0254801494U%U5BR00101"D0253813677XJ11 1 1 1 1 1 1 1 1 1 1 1 801: 314^A0254500079B0223300!?1@,00!?100!A6,00!C1D000A000!D5LDDV0244300!A7SD00!A500!C0CD13662V0244300!A7S 1 1 1 1 1 111 1 1 1 901: C0007902528J02473/D00!C513667T)02215J02190^D00!C013677X,1366802215J02063^D00!D513677TS0254500079R00! 1 1 1 1 1 1 1 1 1 1 1 1001: B0^G00039BJ09772^J02358^0151D^^^^^^^^^^015144EEABD0140301969TD01404019717D0140301981TD01404019837D01 1 1 1 1 1 1 1 1111 1 1 1 1 1101: 40301993TD01404019957D0142202276TD01423022787J01500^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1: FAZ3C038130150017382J00000^J11362^ 1: J01514^J11362^U%U4RR00101"D03761115643!0376300034B0180201494?V01580139851J01802^J10942^J11027^A03764 1 1 1 1 1 1 1 1 1 1 1 1 101: 01494J11088^C1165601494J01779S!0376700059J01678^D1366214'A4XA0376900059J01605VD1366213677XD14'A41367 1 1 1 1 1 1 1 1 1 1 201: 7CB0166013668^R00?05^G00039A,13668T13677999I52G00039BJ01660/V01734999I7SJ01648^S0377001494U%U5BR0010 1 1 1 1 1 1 1 1 1 1 1 1 301: 1"?0377300049S0376900049J01950VB0181313XW5^D13XX413677LA0377400034J01920VB01855137P5XD137P7136673DD1 1 1 1 1 1 1 1 1 1 11 401: 3652DDJ09564^J01813^D0377910405/S0377400034J10369^R13Z99^G14009AG00084A/09399G01976BC0197603642J0197 111 1 1 1 1 1 1 1 1 1 1 1 501: 1/D03780040147D03780B0205301494?J10942^J11027^J11088^B0326614010^,02389D0378500049X?0378600059?03786 1 1 1 1 1 1 1 1 1 1 1 601: 00034?0379100079A1400400079S0379300079D0007902208/,99RI9G00079B!00079A1400900079S0376900079J02388VV0 1 1 1 1 1 1 1 1 1 1 1 701: 218000!?02G00039B)02389B03556093R8@,094!0D000A4093R9XD13662000A4XV02301999H62D999I9093Q4XD13662999I9 1 1 1 1 1 1 1 1 1 801: XV02320999G1SJ02344^D999H4093O9XD13662999H4XD03780093N4XS0379500034NJ02180^,02368J02773^NJ03266^V024 1 1 1 1 1 1 11 1 1 11 1 901: 5109TG1SV0242709TF0SJ03001^D09TF909TH4TD1366209TF9TD09TH413677X?1165511652?1165611653,13668R09404^G0 1 1 1 1 1 1 1 1 1 1 1001: 0039AT13677999I52G00039BJ02602/V02505999I7SV02621999I72S0376403647J02864V!0363600059A0003900059J0239 1 1 1 1 1 1 1 1 1 1 1101: 6^T1367700?002G00039BJ02802/W02711999I7&D000?013667CW0267113665^J02683^D0379609TH72R09TG4^G00039AJ09 1 1 1 1 1 1 1 1 1 1 1 1201: 772^J02408^V02749999I7BT13677999I52G00039BJ02621^A0379700039)02368J02223^?0003400059A0379500059J0239 1 1 1 1 1 1 1 1 1 1 1 1301: 6^B0286401494?J11088^C1165611653J02864SC1165511652J02802SJ02602^D1367703694CD09TI903668CD0364813500. 1 1 1 1 1 1 1 1 1 1 1401: J10605^D1366209TI9XD13662D13662C0005900049J02960/S0379500049?0004900059?0364503647B0308309TI9@J02396 1 1 1 1 1 1 1 1 1 1 1 1501: ^D09TI913677X,13668T1367709TZ92G00039BJ02931/V09772999I7ST13677999I52G00039BJ03038^S00059B0315301494 1 1 1 1 1 1 1 1 1 1 1 1601: ??0149411657A0376401494J11202^S0377001494U%U5BR00101"B0320309TI0^D09TI913677XJ09671^J10098^D1366209T 1 1 1 1 1 1 1 1 1 1 1 1701: I9XS0379500059B0323309TI9@J03153^R13Z99^G14009AB0335001494?J10942^B0335001494?A0376403643C0364301494 1 1 1 1 1 1 1 1 1 1 1801: J03343S?0364311657A0376411657J11202^J02053^J11027^NB0337210620NF1R00101"W03391014861J03402^A03764014 1 1 1 1 1 1 11 1 1 1 1 1 1901: 86V03572118592D1366213677XD1186813677TJ10407^J03723/D1366711563LU%U5RR00101"D0380201174XC1154803807J 1 1 1 1 1 1 1 1 1 1 1 2001: 03513SJ03525^D0381211548TD1155300094LD11563D11548J01175^R90002^.J02388^.B0360211860^A0376403582J0357 1 1 1 1 1 1 1 11 11 1 1 2101: 2^D0358200094L?99IR911563J03464^09389/03999?2?2?THE^SYMBOL^^^^^^^^^^^^WAS^EQUATED^TO^^^^^^^^^^^^THE^ 1 1 1 1 1 11 1 1 1 2201: LATTER^WAS^NOT^DEFINED"B0346401494?J11088^B0346411656AJ03438^^9FA22E1EB24?F01813@0000??139991C4EXDFA 11 1 1 1 11 11 1 11 11 11 11 1 1 111 2301: Z4A9999I00700D0142701517TD01428015197D0142201793TD01423017957D0142203144TD01423031467D0142203467TD01 1 1 1 1 1 1 1 1 1 1 2401: 423034697J01500^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1: FAZ4A132330180007862J09384^J09384^ 1: N/01799//D01924017327D01924015807,0158901588,0173301785,0179001795,0813801500,01572A0811601574D00019 11 111 1 1 1 1 1 1 1 1 101: 08985/,0161501634J01936^"^^^^^^^^^^^NB0849600014",01937/01935/D0858800094XD00094DDDDDDDDDDDDV0201213 1 1 1 1 1 1 11 1 1111111111111 201: AD51VJ02048^)13AD4S00099M%B413145RG03432BR00101",01800D13BG601931LND01899018743)0771607724)077400777 11 1 1 1 1 1 1 1 1 1 1 301: 5)0781007732)0780207767,11951A0859100099,01805)03514D08322018882,0181501880,0570001820D01890019353D0 1 1 1 1 1 1 1 1 1 1 1 401: 190205864LD01889019323D0832201902XNJ02272^B0227200014"C0181908596J04644/,02235B0483201805*B026320190 1 1 1 1 1 1 1 1 1 501: 3*B0233801884^D0814308665LD0188808143LNJ03177^)02339D0849511301TC0181908315J02645SNJ03177^)02383D023 1 1 1 1 1 1 1 1 1 1 1 601: 8008277LD0849002380T?0811600084B09499019098)03934W03177094443D08597094447B0264501909^D01909018913D01 1 1 1 1 1 1 1 1 1 701: 909025203B0266908600MBBB0260701909NC0188108602J10375/D01908018923B0258901820^D01820018923A0811600084 1 111 1 1 1 1 1 1 801: J11296^B1037501819^,08162J10375^)04457J04275^)11147?0811600084J10375^A0860300084D08604094433B0280901 1 1 1 1 1 1 1 1 1 1 1 1 901: 815ND01907018933DD01905018943D01907027523B10375086070BBD0861200029T?0861300034J03091^S00034!08116000 1 11 1 1 111 1 1 1 1 1001: 84J10375^D08614019083B0284501816SB0270401816RB0270401817RB0270401817SD08615019083J02704^W02911018J9" 1 1 1 1 1 1 1 1 1 1101: S0811600034B0294201934^D0584101894TJ10375^D1314400029TJ03091^D01906000691D01907029963B0304908621FBBB 1 1 1 1 1 1 1 1 1 111 1201: BBD01794018943V10375019072B0304901907SS0811600074,00069A01PR400069)00069D08OS1018923J10375^G03130BD0 111 1 1 1 1 1 1 1 1 1 1 1301: 00'0031213B03132086250BBBJ00000^D000'2018943DDD08123000541B1110301815CJ10375^G03432BB03332015715B034 1 1111 1 111 1 1 1 1 1 1401: 2701501^NJ03332^B0343409461EB03332015716B0330101500EB03332015717C0150508630J03320UD08631015713J03332 11 1 1 1 1 1 1 1 1 1501: ^D08632015713J03332^D08633015713M%4401500WR00101"A0811601574S09464D0863503777//01571,01500W034090139 1 1 1 1 1 1 1 1 1 1 1 1601: 5-J03427^J13820^N3644,03599J00000^B0345301500EJ03264^D08636015713S09461J03332^D0815001512P?081160817 1 1 1 1 1 1 1 1 1 1 1 1 1701: 1B0389800014"NJ03563^B0356301805^W0356301805&J03177^,0351402339A0008408171NA0811608171NS0811608171NA 1 11 1 1 1 1 1 1 1 1 1801: 0860309464A0817109464C0815909464S0817109464NJ03669^S0863709464J03177SJ03177UB0347801505^)0358703575N 1 1 1 11 1 1 1 1 1 1 1901: D0814301888/,03700?0817100029A0008401511D01H90015/1TNJ03790^J07370^D01874015703S0863803777ND018A9015 1 1 1 1 1 11 1 1 1 1 2001: /1TD08633037451ND01921015/12)0379103816V04076081621D08151015/33DA0812208171B03898015/1S0811608171A00 1 1 1 1 1 11 1 1 1 2101: 08408143NJ07950^NJ05584^NJ10055^NJ04275^,03934B0427500084A?0008400094A0816500094?D01891040053B040170 1 1 1 11 1 1 1 1 11 1 2201: 86430BBBBJ04024^J07950^NJ04275^C0188108644J04275T?0816800094?J07950^J04275^,03587)08162J03851^G04193 11111 1 11 1 1 1 11 1 1 1 1 1 2301: BM%2001600WR00101"/01731/,0161501634S0811608161NV04169043371NJ04188^J04195VV0419508161KJ00000^D04193 1 1 1 11 1 11 1 1 1 1 1 2401: 04231X,04618J04644^)04618J00000^S0863808161J04369^D0832201902TD0832200084LB0193600014"/01614,03700NJ 1 1 1 1 1 1 1 1 1 1 1 11 2501: 04325^,0453204300J04095^Z0831501879ND08633016003N,04337NV04233043001D0188801702LND08597016883D019020 1 1 1 1 1 1 1 11 1 2601: 1716TD0181901631TD0181401624LZ0188101695D01935017313DDDNZ0157401723Z0180401605Z0585801614D0190401606 1 1 1 1 11111 1 1 1 2701: 3C0193508314J04531SA0811606126NJ04559^FKR00101"S0811608161)04532)0163401615J04095^,04457NJ04769^V092 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 03094731NJ09222^NJ04220^V01936022351J02272^F1R00101"A0811601799?0487308161NJ04095^D08631016003D01784 1 1 1 1 1 1 1 1 1 1 1 2901: 01685TNJ04733^D08645016013,04708Z0179901707D0864901702T,04590J04531^)04590NJ04095^D0821601731TD08256 11 1 1 1 1 1 1 1 1 1 1 3001: 01640TFKR00101"FSR00101"J04565^B0193600014"NJ04095^D0187101681LDJ04468^55G02380A,03575J04901^G02380A 1 1 1 1 1 1 1 1 11 1 1 1 1 1 3101: W04932094443D08631094447J03177^,0358704457B0517501820#?0188101794?0179400084?0008400039J05382^B05484 1 1 1 1 1 1 1 1 1 1 3201: 01820@B0552001820#S00039W0506701820(D01820019212A0811600039?,03816W05210018B0&B0193600014"A000840003 1 1 1 1 1 11 1 1 1 3301: 9,018K003791,03753,03644)03599W05156094442)09444J03501^D08285094447J04925^?0191901794!0812200094,056 1 1 1 1 1 1 1 1 1 1 1 1 3401: 10J04966^S00084V05246094441,09444B04925094441D08636094443J10368^S09466J13890^N785KV0536301785SD01895 1 1 1 1 1 1 1 1 1 1 1 1 3501: 09471JC0947108630J05363UD08650018743J03501^D08651018743J03501^D08614018743J03501^G05482BB0547700014" 1 1 1 1 1 1 1 1 1 1 3601: S0811601794A0814301794D0179401888/)03700W0547701805"B0547701806^D0814301888/J00000^B0193600014"C018B 1 1 1 1 1 1 1 1 1 1 3701: 308653J05520/)05700,0391003918W03177094442,03753,03644)03599D08285094447A0811600039A0812200094??D086 1 1 1 1 1 1 1 1 1 1 111 3801: 50033903NS0811600094)03700S0811600039J05670VD01HJ9018913,03587J03501^)0391803910)05610D08654033903NJ 1 1 1 1 1 1 1 1 1 1 11 3901: 04251^D08655018913J03501^,05904B0577500014"?0001900094T0585200?!02,G08985BD0866002380TJ03177^J04275^ 1 1 1 1 1 1 11 1 1 1 4001: C0814308665J03177/B0587801908ZJ04881^^..............^^^^^^^^^^^^)06721J06655^D0898500019J,13AD4J0317 1 1 1 1 11 1 1 1 1 1 1 4101: 7^NJ01936^J03177^B0594900014"D0813701509TJ03177^B0426301815XNJ01936^)08570J08496^^^AUTOCODER^^^U%U4R 11 1 1 1 1 1 11 1 1 1 1 4201: R00101"B0643000014")0445704149D13541017857M%T001733WR00101"J06550^06084END^OF^ASSEMBLY"J06373^NO.^OF 1 1 1 1 1 1 1 1 1 11 1 4301: ^ERRONEOUS^STATEMENTS^^^^^00000D08666064033J06373^PROGRM^EXCEEDS^OBJ^SIZE^OF^4000?^^^^^M%4401652WR00 1 1 1 1 1 1 1 1 1 4401: 101"J06550^03334PUNCH^TAPE^^^^^"J06550^04104PRINT^TAPE^^^^^"D0608601661TD0599501676TD0139901682/J040 1 1 1 11 1 1 11 1 1 1 4501: 95^W06328033344U%U7MR00101"NJ06478^C0333504105J06478SU%U6MR00101"J06478^G00034BC000L1000L6Z000L1J000 1 1 1 11 1 1 1 1 1 1 1 1 1 4601: L7UD000L101638TJ04095^J000L7^D02027014993D08555D02025014733D02041D08553D08562U%U5RR00101"D0867101174 1 1 1 1 1 1 1 1 1 1 1 1 4701: T?0867300034U%U2BR00101"S0863800034J06880VJ06513^G00034B?000!400029B06587000'0BJ000K1^D000'1000J83DD 1 1 1 1 1 1 1 1 1 1 1 11 4801: M%T0000!5WR00101"J000K1^)05962D08674094613)05904,06721?0867501881?0811600084J10368^D0832201881LD0179 1 1 1 1 1 1 1 1 1 1 1 1 4901: 408135TD08676018913NJ05732^J05911^?0191901794J05382^J05787^B0193600014"J03177^D0187101784L)04708D018 1 11 1 1 1 1 1 1 1 1 1 5001: 79015793DDDDD08679DDJ04644^B0193600014"J03177^J06797^B0193600014"J03177^J04644^B0117500014"D06982000 11111 111 1 1 1 1 1 1 1 1 5101: 08XDM%T006942WR00101".D0868401174TJ01175^FOR^EXTRA^LIST,PRESS^RESET^START"J06983^NB0703504104BD08685 11 1 11 1 1 11 11 1 5201: 014973F1R00101"D0867101174TJ01175^D08686014973J07016^J10368^J04251^S0861307100,1107210817D0867600000 1 1 1 1 1 1 1 1 1 1 1 5301: 2J04251^W0713301844"D0945901844/B0193600014"D0184401544LD08686015713J03177^J04251^?0868700084J07218^ 1 1 1 1 1 1 1 1 1 1 5401: ?0868800084,07325B0193600014"J03177^D0815001512PA0008408143A0008408171A0008401511,01820D0182901523TD 1 1 1 1 1 1 1 1 1 1 1 5501: 08676)01513D0869001571TND0869201571T)07325D08151015253DJ03177^J04275^G07764BB0755509443AB07759094443 1 1 1 1 1 11 1 1 1 1 5601: B0744309466AB0770909466BB0753001893^.99999S09466V07492077161V07511077241D08693018741J07759^D08694018 1 1 1 1 1 1 1 1 1 1 5701: 741J07759^D08695018741J07759^D08696018741S09466J07759^S09443S09466V07652077401V07671077321B076900189 1 1 1 1 1 1 1 1 1 1 1 5801: 6^J13740^N471JC0947108630J07671UD08676018743J07759^D08697018743J07759^D08698018743J07759^D0869901874 1 1 1 1 1 1 1 1 1 1 1 5901: 3J07759^S09466NJ07766^NJ07801^NJ07836^NJ07855^D08685018741J00000^NJ07874^NJ07893^D08631018741J07759^ 1 1 1 1 1 1 1 1 1 1 1 1 6001: NJ07912^NJ07931^D08700018741J07759^D08636018741J07759^D08686018741J07759^D08633018741J07759^D0870101 1 1 1 1 1 1 1 1 1 1 1 6101: 8741J07759^D08644018741J07759^D08632018741J07759^G08106BB0798701HJ9!C01HJ908702J08089TD01HJ9084403B0 1 1 1 1 1 1 1 1 1 1 1 6201: 808900014"T08440084852G00044BV0808900'011D00'0001HJ93D99Z9901FL33)0430004337NA0811608161S0811600094S 1 1 1 1 1 1 1 1 1 6301: J00000VJ07957^1101711254511EJ^^^^^^00500^^^^^^^^^^05G^^^171155^^^REL^^^^CT^^ADDRS^^INSTRUCTION^^^^CA 1 1 1111 1111111 11 1 1 1 1 1 11 11 1 1 6401: RD^^^^FLAGSEQNO^^PGLIN^^LABEL^^^^^^^OPCOD^^OPERAND99999#@^,-&10399^^^^^^^^^^^^10986?#^^^^^^^^#018190 1 1 1 1 1 1 1 1 1 1 1 6501: 4251^^^^^^^^^^^^100^^^^^^^^^^^^^^^^J00281^^^^^^&5N^^7,^^^^-B^^A^^000^II15IM14HZ13H412PI11PM10OZ9^O48 1 11 1 1 1 11 11 11 111 111 1 11 1 1 1 1 1 1 1 1 6601: ^VI7^VM6^UZ5^U44^3I3^3M2^2Z1^^LP[LTTM(QM?,.!0264503501,13?A4D058640190 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: 2TD0193113AD4L)13?A4V0855213AD51VJ08569^M%B513145WR00101"NJ01949^J05996^0000013BJOB^^^ULM02CAZT20182 1 1 1 11 1 1 11 1 1 1 1 11 1 111 1 6801: 0DQVXXPDKF%)@*00700180703BAXRDWB6+PAGENP,GW"05801^^^^^TFAZ4A1?EFJ001FAZ3A45EGS7S6@>:9KLM72?D09478011 1111 1 1 1111 1111 111 111 111 1 11 1 1111 1 11111 1 11111111111 6901: 74TJ01175^?0830500044D0948309382T)1069609311A0003400044?00029D0188001879MT018J9018712G00029BD0169301 1 1 1 1 1 1 1 1 1 1 7001: 879UC0004400029S0004400029J08922UD09484019353,10607A0811600034?J10417^C0002909486J08922SS0002900034S 1 1 1 1 1 1 11 1 1 1 1 7101: 0811600029?0003400094?0002900039B11303000280B1136300014"J03177^T08300000002G09006BJ12686UD0000001789 1 1 1 1 1 1 1 1 1 7201: TG08985A!0002908143A0178908143A0811608143Z0157401723Z0002901695D0178901702/D0949101731TA0002900094/0 1 1 1 1 1 1 1 1 1 1 7301: 1633D01HK0016T5LD09492016003ND08322016T53)09141S0002900094FKR00101"S0949308161,09473J04644V)09473,04 1 1 1 1 1 1 1 1 1 1 1 1 7401: 610J04095^)0461004618D08322081432D0949805705T,0828403575S0811600094D0008400079TJ05520^D0831005705TND 1 1 1 1 1 1 1 1 1 11 7501: 01589015/12D0188808143LD01909018913D0007900084TS0811600034J03177^J00000^D0085809441TM%T009419WR00101 1 1 1 1 1 1 1 1 1 7601: ".00849END^OF^FILE^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^000?0^^^^^^^^FAZ4B11363F0ALITRL0A09298M%U413152RG03 1 1 1111 111 111 1 1 1 11 1 111 1 1 7701: 432BR00101+R09530",0149801471C0950201498J09577/C0950001471J09606SU%U4RR00101"M%U413152WR00101")01498 1 1 1 1 1 1 1 1 1 1 1 1 7801: 01471M%U513152RG03432BR00101+R09648"W0966701395-J09743^,0206703599)0320903644)0375304025)04382D12936 1 1 1 1 1 1 1 1 1 1 1 7901: 081411S1293708159D0009409459/DDD01498020271D01471020253D01470020413D01499085551D01473085533D01472085 1 1 111 1 1 1 1 1 8001: 623D0832200024XD1294200099XD0149106187TD12943000143?0148412948S1293712948D1294808272/D1294812953/A12 1 1 1 1 1 1 1 1 1 8101: 95412948D1294811156/D1294811180/D1294812959/A1295412948D1294810576/A1293712948D1294811168/D129481121 1 1 1 1 1 1 1 1 8201: 2/A1293712948D1294811137/A1296012948D1294810554/A1296012948D1294810299/A1293712948D1294810306/D12948 1 1 1 1 1 1 1 1 1 8301: 11200/B1051301494?A0811601492C0149401492J10171SD12961000143?0149200029?0002900034A0811600029!1293700 1 1 1 1 1 1 1 1 1 8401: 039D1296600049XD1295910271/S0811600029,10301J10355VL%B5000?0$G11655BR00101+R10294",00000N?1041400049 1 1 1 1 1 1 1 1 1 1 11 8501: )10301S0811600049J10227VD1165510271/J10263^C0003401494J10470SA0811600034,10428L%B513100RG03432BR0010 1 1 1 1 1 1 1 1 1 1 1 1 8601: 1+R10421",13113N?1311400049)10428S0811600049J10355VJ10390^M%B513100RG03432BR00101+R10501"U%U5BR00101 1 1 11 1 1 1 1 1 1 1 1 1 1 8701: "B1054900014"D12967085523D12967085623?0000008290,0002000015D1040308281L)02235B12843014961B1287401496 1 1 1 1 1 1 1 1 1 8801: 4B12905014965B10661014963D12968061783D12969126913?0147900019)11834B10776014973B11540014972B109320149 1 1 1 1 1 1 1 1 1 8901: 71B11559014974B11553014975B11466014976B11472014977,11834NJ10932^,0453204676,0484504776,0435708078,04 1 1 1 1 1 11 1 1 1 1 9001: 33704350,04162D1297804652TD1297809178TD1297807003TD1298304537TD12984048733D1297811399TD1164304824XDD 1 1 1 1 1 1 1 1 11 9101: NJ11485^)11305)06329B1181001493^/13231/D1167613120T?1293700074?0148608161C0816112986J11038SD08161110 1 1 1 1 1 11 1 1 1 1 1 9201: 263B11038129910S0811608161C0149212992J11274S,11220J11369^?0829000039S1295300039D13!J8111383S00034S13 1 1 1 1 1 1 1 1 1 1 1 9301: 02000039J11268VB11146104?50J11109^V11189000?02W11109000?0"W11189000?0(J11109^,131J2D000?0131K1LD000? 1 1 1 1 1 1 1 1 1 1 9401: 0131K7/ND12969131003)11220A1302200034B11274000321J11109^,11377B1137613112^S1295408161J11391VNJ11343^ 1 1 1 1 1 1 1 1 1 11 9501: B11352131001D13023131003J11352^FKR00101"M%2013100WR00101"/13231/NJ11430^J11103^F1R00101"D12969131003 1 1 1 1 1 1 1 1 111 1 1 1 1 9601: ?1298608161J11304^B1181011138Z)11377S0811600074J11069^,11834,10913J10776^D1297811351TD1297811368TD12 1 1 1 1 1 1 1 1 1 1 1 1 9701: 977D1297804118TD12977J10932^,11834J10776^)10769D1297803348TD12977D1297806204TD12977D01499130251D1165 1 1 1 1 1 1 1 1 1 1 1 1 9801: 011840XJ10768^J04095^J04095^NNNNJ08703^^^^^^1^^^^^^^SYMBOL^^TABLE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 9901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"?0 11 10001: 816101486B0870300014"NJ12333^D1297806204TD12977U%U5RR00101"L%B511895WR00101"J08703^R001004J00119^^^^ 1 11 1 1 1 1 1 1 1 1 1 1 10101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^U%U1RR00100"J00001^R00281"^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^",0028000446/00279L%B100200RR00395+R00322"B00201 1 1 1 1 1 1 10401: 00200ED0020900099XD0020400379/S0044700099D00BA000??07J00292VJ00358^R002983R004388U%U1BR00409"M%T0004 1 1 1 1 1 1 1 1 1 1 1 10501: 44WR00421".00298RE"1"B0870301474^M%4412438WR00101"M%4412519WR00101"M%4412600WR00101"M%4412681WR00101 1 1 1 111 1 1 1 1 1 1 1 1 10601: "M%4412762WR00101"J08703^.R00264"L%1100328$R002642/00279R00294"L%1100200RR00384(B0020100200ED0020"90 1 1 1 11 1 1 1 1 1 1 1 1 11 10701: 0099XD0020400368/S0039700099D00BA000??07J00281VJ00347^R002872.002871^^"ER00208"D0025300303XDDDJ00281 1 1 1 1 1 1 1 1 1 1 1 1111 10801: ^"/00279L%1100200RR00304"^^^^^^^^^^^^^^^^"E,00500/39999G00212BV00207005001J00281^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 1 1 1 1 10901: ^^^^^^^^^^^^^^^^"ED0024300099XD00099DDDDDDDDDDDDDJ00281^^^^^^^^^^^^^^^^^^^^^^^^"D12969061783D1302312 1 1 1 11111111111111 1 1 11 1 11001: 6913J10661^D13026061783D13027126913J10661^D13028061783D12936126913J10661^7A00396^^^^^^1039IB10401D"^ 1 1 1 1 1 1 1 111 11 1 11 111 11101: ^^^^N21NNNNNNNNN04565F5F?BDFH?ZYXWVUTSRQPONMLKJIHGFEDCBA1E2C0B1658^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1111 1 11 1 11 1 1 11 111 11301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"D0141703335TD01418033427D01412 11 1 1 11401: 04105TD01413041127D0142705999TD01428060017D0141706191TD01418061987D0141706319TD13936063183D014180632 1 1 1 1 1 1 1 1 11501: 17D0141206357TD13936063563D01413063597D0142206481TD01423064837D0140306516TD01404065187D0142709502TD1 1 1 1 1 1 1 1 1 1 11601: 3936095013D01428095167D01428095237D0142709580TD01428095827D0142709592TD13936095913D01428095997D01422 1 1 1 1 1 1 1 1 11701: 10473TD01423104877D01423104947D0142210504TD01423105067D0142209620TD13936096193D01423096347D014230964 1 1 1 1 1 1 1 1 11801: 17D0142210266TD01423102807D01423102877D0142210393TD01423104077D01423104147D0141211355TD01413113627D0 1 1 1 1 1 1 1 1 1 11901: 141711874TD01418118817D0141711862TD01418118647D0141712348TD01418123557D0141712365TD01418123727D01417 1 1 1 1 1 1 1 1 12001: 12382TD01418123897D0141712399TD01418124067D0141712416TD01418124237J09499^UN 1 1 1 1 1 1 11 1: FAZ4B135880949915499J09384^J09384^ 1: B0489401908BB0487401908CW03177094443D13542094447D01908095767)04457B04251097310BB05787B09759B06760B06 1 1 1 1 1 1 1 11 1 1 1 101: 643B06625B05726B04894B04874B06735B05865B13118B06828B06854B04251B07109B07054B07201B09732B07183D082770 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 2380TJ04251^TRWYXQPONMDCBIGHJAFKLJ03177^ND13543103663J09779^J03177^ND13544103663D1354902380TD0832210 1 1 1 1 1 1 1 1 1 301: 2043,0238310000B0193600014"D0191908335J?D0833010361/B0987005864"J09887^,04457)0570003700S08367D08143 1 1 1 11 1 1 1 1 1 1 401: 01888/?0814308340S08366S08351B0994705863'J09959^S10204)10000?0833001794J10254VA0833508143S0811601794 1 1 1 1 1 1 1 1 1 1 1 501: NJ09970^)03700,03587D13550018913?0811600084,03926J03501^J03177^)0392603700?01794J09970^B0193600014"J 11 1 1 1 1 1 1 1 1 1 1 1 1 601: 03177^B1020501919^A0812300054?0834000089S0811600089A0191400089D0008910308/D1029601500$D13542015713J1 1 1 1 1 1 1 1 1 1 701: 0205^^?01ZJ401794D0834008143TJ05382^D10366018743J04251^B1027710204^A1355108335D0833510355/J05699^ED0 11 1 1 1 1 1 1 1 1 11 801: 0201000004A0025300211S0021300258J00281VJ00201^^^^^^^^^^^^^^^^"G11301BD0832001794T,12290B11146018K0^, 1 1 1 1 1 1 111 1 1 1 1 901: 10696S00029D0832101599XA0811600034AD018J9104643B1049708267&BB10559B10583B08722B12791J10429^C00034135 1 1 1 11 1 11 1 1 1 1 1 1001: 53J10534SB10534018J8,J10595^)10696W10411018K0&J10429^)10964B10589000540,10964)11072)10817?0001900094 1 1 1 1 1 1 1 1 1 1 1 1 1101: NJ08882^NJ11533^V10710082841ND018J8015Y7L,10635N?0828300029)10654B1150401589*V12845015892NJ11689^J11 1 1 1 11 1 1 1 1 1 11 1 1201: 533^A0178901794B1074500014^D0178901ZJ4TB1077001786^D01789017932DD08322017942)1229013587)1060708284D0 1 1 1 1 1 11 1 1 1 1301: 18J9019202NJ10405^,10817NJ10963^B1096300014"B12104000540A1313909466V1094612240SV10963077321V12241122 11 1 11 1 1 1 1 1 1 1401: 40KD0179409471JC0947113558J10963TJ10963S,0773207767,07802NJ10982^A0812300054,1096411951J13705^N084C0 1 1 1 1 1 1 11 1 1 1 1 1 1501: 008413560J02888SD0179401H90TND0584301H90T)11035C0181713563J13945^NJ10375^B1305501891VB11146018J9^A08 1 1 1 1 1 1 11 1 1 1 1601: 11600034?D018J9019083?0003400094?J07950^NJ11195^,11147D11146018913D13564019333?1356600084,11072?0188 11 1 11 11 1 1 1 1 1 1 1701: 1C0008401881J11296SA0811600084C0008401881J11284SD13567019353?0188100084J11296^D0190801H903J03501^A00 1 1 1 1 1 1 1 1 1 1 1 1801: 02900034D018J9015Y9LD00029015891?0003400094?J07950^,10615V11416106071B11398000280A0002900034A0811600 1 1 1 11 1 1 1 1 1 1901: 034J10429^A0811600034V11457082841?0001900094J11533^A0002900034J10710^A0811601794A0826101794J10770^?0 1 1 1 1 1 1 1 1 1 1 1 2001: 814301794A0188101794J11486^)10615B1077000014"V11874015892W1180201589(D08322000292C0002913569J11874UD 1 1 1 1 1 1 1 1 1 1 2101: 1357409382T,0914109311S1168800034S?0003400094S0002900094J08933^A0812200034J10710^21B1296801589X,0008 1 1 11 1 1 1 1 111 1 2201: 9B1173901598^D01597000901DJ11752^D015Y7000901DA0009000089@0828100094A0828100094A0827200094)00089D083 1 1 11 1 11 1 1 1 1 1 2301: 2012483XB1241201590$B12455W1187401598"C0159213578J11874SD13137015983T0159800?!02G11936BG07100B)11875 1 1 1 1 1 1 1 1 1 1 2401: J12489UC0190913580J07068SD0000001789TG12488AND01785122402)11951V12619106961W1260001786&V12012122901J 1 1 1 1 1 11 1 1 1 1 1 2501: 12043^B1204301ZJ4^D13581019323J12698^W1226501789"W1226501785"D13582019343B1077000084J,11035J10770^NJ 1 1 1 1 1 1 1 1 1 11 2601: 12265^?1313909466V1219612240SV10963077161V1220912240KD0179409471JC0947113558J10963TJ10963S,07716J109 1 1 1 1 1 1 1 1 1 1 2701: 63^,07724D13542122402,11951J10963^^,07810,0774007775J12215^V12289017872D13581019323NJ10710^W12392017 1 1 1 1 11 1 1 1 1 11 1 2801: 89&WC0159113585J12392SD01920017892A0826101789A0811601789D0178901ZK6/A0178901794J10770^D0178901ZK52DJ 11 1 1 1 1 1 1 1 1 11 2901: 10757^D01589124833D0159912482LD1248301598TJ11874^D0159912483LJ12436^^^^^^^^^^^0000?V12686135871C0009 1 1 1 1 1 1 1 1 1 1 3001: 408290J12686TJ12558S,00?!1G11905B,?0829000094J11874^B1077000014"?0001900094J11874^W1199301786&D12488 1 1 1 1 11 1 1 1 1 1 1 3101: 00094TJ11874^C0009408290J12588TV11993017862W1267301789"W1199301786(,13587J12600^B1077000014"J13650^N 1 1 1 1 1 1 1 1 1 1 1 3201: 789LV12043122901C01ZK508312J12067SA01ZK601794W1277101ZK5&WJ10770^D01ZK5017932DJ10770^)10635?00029082 1 1 1 1 1 11 1 11 1 1 3301: 83,10654V10595106071D018J8015Y7LJ10429^NJ12907^W1290701794"B12901000540,0773207767,07802J12907^,0771 1 1 1 1 11 1 1 1 1 1 1 3401: 6V1292601920KJ12938^D01920015Y72A015Y701794V1147501794KJ10770^S00094W1170101592",01590T01591084392G1 1 1 1 1 1 1 1 1 1 1 1 3501: 1936B)01590J11701/B1077000014"D0832201789LJ11931^,018K0T018K1083746G13085BD00000019082J11146SD018K00 1 1 1 1 1 1 1 1 1 1 1 3601: 19082J11146^D01820131373J04251^^^101785^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1111 4001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^8410086'A01007000DBEXO1BF1211669IOCSY8MUX0^^^W1360701395-J01800 11111 111 1 1 1 11 11 1 1 1 111 1 1 1 4101: ^,0974009767)1083112105)12846J01800^N^^^^^^^D01ZJ401789LD01785122402J12710^N^^^^^^^^^^^^^^^^^^^^^^^A 1 1 1 1 1 1 1 1 1 1 4201: 0812300084D13542122402J11004^N^^^^D01907137633B13773086070BBJ13797^V07671077161V07652077241D01899094 1 1 1 1 1 111 1 1 1 4301: 71JJ07615^N^^^B13850019098)0375303644J03421^B0342101908BB0342101908CJ13832^N^^^^^^^^W1390901395-J035 1 1 1 1 1 1 1 1 1 1 1 4401: 01^)0375303644,03599V0534401785KJ05283^J11103SC0181913981J11103SJ11071^STATSN^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1: PRINT145581000011000J13259^J13259^ 1: G11040BG10036BS1212310036S11003D0000011019TG10067AD1212811018/D0000011009XG10105BG10543AB1053811003G 1 1 1 1 1 1 1 1 1 1 1 101: D0000010992+D1139411009XD1100211446LS11461D11013109613D11013110203D11013109733)11028B1062011013XR109 1 1 1 1 1 1 1 1 1 1 201: 932R105951B1049810995TNR103748R108134R10479^V10263102231J11035^W10355110024B10355109951B1030611461IJ 1 1 11 1 1 1 1 1 1 1 1 301: 10813^J11913^S1212311982D1198210341/D0000010732/J10703^D1145911435LJ10607^W1067710995&D1148511435LB1 1 1 1 1 1 1 1 1 1 1 401: 0448109951J10557^M%2011115WR104172R10441"J10993^B1060710806^D1080610732/J10703^D1147311435LJ10607^R1 1 1 1 1 1 1 1 1 1 1 1 501: 05198R11035-J10993^D1142311435LJ10607^D0000011002XJ10124^G10593BM%T011424WR105642R10588"J00000^D1139 1 1 1 1 1 1 1 1 1 1 1 1 601: 911435LJ10557^.10993X109932X105951NX106568X108134J10244^X10670-X108074J10691^R10691-R108074D12133107 1 1 1 1 11 1 1 1 1 1 1 1 1 701: 32/D1099310782+D1104010739JJ00000^J00000^S1213510739B1073410792NS1213610739J10734^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 801: ^^13259,11028B11066109951B1104211461IV10980109952B1093010993UW10930110024D11008108943DDDDD0000011490 1 1 1 1 1 1 1 1 11111 901: JS1100111490C1149012140J10993UD10996109593DDD1095910971TU%U0BR10956"U%U0ER10968"A1098011461N^^^^^^^^ 1 1 1 1 111 1 1 1 1 1 1 1 1001: ^^^^^^^^^^N^'R00000"R11027"NJ10691^J00000^W11066110024W1124810993-D1141111435LJ10557^S11461B11109109 1 1 1 11 1 1 1 1 1 1 1 1101: 951.10813.10993^^^^***^TRANSFER^ERROR^PREVIOUS^LINE^***^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"S1212311490D1149011376LD1099611386TM%T011372WR112832 11 1 1 1 1 1301: R11307"D11001113431DDDDD10993113357M%T000000WR113352R11359"S11461J10993^^^^^^^CHAR^^^^^"NOT^READY^^^ 1 1 11111 1 1 1 1 1 1 11 1401: ^DATA^CHECK^CANCEL.^^^^^^^^^^^^^^^^^^^^^^^^^^^^"WRONG^LENGTH0ANO^TRANSFER^TRANSF.ERROR^^^^^G12585BJ1 1 1 1 1 11 1 1 1 1 1 1 1501: 1913^J12597^D1198200099T)1022310635,12319B1190000?A10A1213612585D00?B212585TJ12550^J12381^D00??21164 1 1 1 1 1 1 1 1 1 1 1601: 4TM%T011638WR116022R11626",10223.12237TAPE^^^^IS^FINISHED"G12585BG11847BG11719B)1022310635A121411171 1 1 1 1 1 1 11 1 1 1 1 1701: 9)11800J12597^D00000000993DDDDB1182600??03B1182600??05B1179900?A11D00?B712504/J12443^J11874^J11874^N 1 1 1 11111 1 1 1 1 1 1 1 1801: J11583^J12381^D1214200??03A1214311847B1185600000NJ12550^A1214311719J11714^G12441BD12144124283J12400^ 1 1 1 1 1 1 1 1 1 1 1 1901: ,11800J11785^G11974BD10996119773D10994T11977121222G11962BD0000011982/J00000^^^^^^^^^^^^^)0^^^^^)1^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: ^^)2^^^^^)3^^^^^)4^^^^^)5^^^^^)6^^^^^)7^^^^^)8^^^^^)9^^^^^%0^^^^^%1^^^^^%2^^^^^%3^^^^^%4^^^^^%5^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: %6^^^^^%7^^^^^%8^^^^^%9A10184114911GG0014E2FMG12585BG12347BG12195BA1265612195)12319J12597^D000000009 1 1 1 11 1 1 11 11111 1 1 1 1 1 1 2201: 93DDDDB1223700??02D1259600?A0TJ12326^D1265700??03T00??2121222G12278BD0009900000JD1259100?A6TD00?C212 11111 1 1 1 1 1 1 1 1 2301: 309/J00000^J12381^NJ12550^A1265812347B1235600000NJ12550^A1265812195J12190^J12318^G12441BD12659124283 1 1 11 1 1 1 1 1 1 1 1 2401: D00?A012427TD00??7124293U%U1RR10000"J00000^G12530BD0009912536LD1254100099TD1254900008PDD1249412549XJ 1 1 1 1 1 1 1 1 1 11 1 2501: 00000^J12597^D1253600099TJ00000^^^^^^^^^^^^^^^^^^^D1266412504/,1022310635J12450^J00000^^^^^^^^^^^G12 1 1 1 1 1 1 1 1 1 1 1 1 2601: 646BD0000812549PD1265500008XDD0009912541LJ00000^J12311^NE1FR12580G12705BA1267212717M%2016133WR10000" 1 1 11 1 1 111111 1 1 1 1 2701: J00000^5^^^^^^^^^^G12911BS12872L%B214787RG12917BR10000+R12762"D1292200029TS12997S1292712917C12917147 1 11 1 1 1 1 1 1 1 1 1 1 2801: 90J12884SB12851128729A1282112872U%U2BR10000"J12731^J13234^J12873^J12725^0?1479012917A1303412917A1289 1 1 1 1 1 1 1 1 1 11 1 1 2901: 513013J00000^1578G1479A14788D00??612734TD00??6128353DDD00??7128373D00??7127483D00??7127553J12311^2%2 1 1 1 1 1 1 111 1 1 1 11 3001: L%B2R%U21^^^^^'13259125061292814787G13075BM%1114706RR10000"A1305913087J00000^3^^^^^^^^^^J17501^N1299 1 1 11 11 1 1 1 1 1 1 1 1 11 1 1 3101: 7N12707HM%T014527WR10000"M%B214787RG11490BR100007R13156"D0139913216TD1319416175$J18077^J13304^AUTOCO 1 1 1 1 1 1 1 1 1 1 1 1 3201: DER^VERSION^^^^^^^LIBRARY^LISTING"M%T013570WR10000".J13234^M%T013590WR10000"J17789^N12997N12707H.J13 11 1 11 1 1 1 1 1 11 3301: 259^J13035^C1727114725J17896SB13363129971A000'200029C0002912917J12718SD000'316266.C1627113729J13419S 1 1 1 1 1 1 1 1 1 1 3401: D13008129973J13329^,16274C1627814725J13329UJ13489TJ18601^J13035^C1727114725J13259SJ13370^B1350816273 1 1 1 1 1 1 1 1 1 1 1 1 3501: ZJ13329^D1472513553LM%T013543WR10000".13489MACRO^^^^^^^NOT^IN^LIBRARY"WLR^ON^SYSTEMS^TAPE"END^OF^LIB 1 1 1 1 1 11 1 1 11 11 3601: RARY^PRINT^RUN"/16131/J18433^?1727600044B13674129971A000'200029C0002912917J12718SD000'316266,C162711 11 11 1 1 1 1 1 1 1 3701: 3729J13457S)14354J13797^HEADERF1R10000"D16278158103DDDDD1728115819TD16273158203?1728314700J14370^D00 1 1 1 1 1 1 1 11111 1 1 1 1 3801: 0'615804TD000'7158063,000/2D000'815822#B14069000/7,B14116000/6,C1582617288J14087SC1582617293J14087SD 1 1 1 1 1 1 1 1 1 1 3901: 000/615807#G00034BG00039AD17294999R93B14145000?0,,000?0D000?0146533T000?0146982G00054B)000?0C0005417 1 1 1 1 1 1 1 1 1 1 4001: 299J14316/D000?000'003A1730000039A1730000044C0004414705J14475SJ13937^C1582617305J13863/?1730700039A0 1 1 1 1 1 1 1 1 1 1 1 4101: 002900039J13937^J15950^N039A0002900039J13937^C1582617314J14285SB14213000?1^B14194000?1'J13949^V14353 1 1 1 1 1 1 1 1 1 1 1 4201: 000?11J13949^A1731600044A1731700039D000?000'00#G00049BD1729499ZZ9TD17318159327J14353^B13949000?1,B14 1 1 1 1 1 1 1 1 1 1 4301: 213000?1^J13949^,14354D00'!000'003D99ZR900S003J14022^NJ14449^J14370^N"D1580016133_J12665^S1730014700 1 1 1 1 1 1 1 1 1 1 1 4401: J18519^NJ14499^J13615^F1R10000"?1728314700J14407^D1600016133"J12665^J18501^,14408?1582700044J14353^) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 14408J13937^END^OF^LIBRARY"1410^AUTOCODER^LIBRARY^LISTING"D01403129993D01401D01401130053D01404DDDD01 1 1 11 11 1 1 1 1111 4601: 403130073D0140313128TD01404131427D01404131497J13088^^^LP[LTTM(QM?,.!2H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 1593A^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^ 1 1 1 5701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^ 1 5901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^C1582517304J14087S?1730900039J14127^N^^^^^^^^^^^^^^ 1 1 1 1 1 1 6101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"END^^15827INSER57NOTE^MATH^^14652A 11 1 1 1 1 1 11 1 7301: BOOL^1F1GCOMP^1?B"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11 7501: J12145^N12997HW1310801411AJ12145^N12707HJ13108^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D0141217804T 1 1 1 1 1 1 1 1 7601: D12832D01413178063B1766701411UB1766701411BD17534178063D17534178013D01413126933D0141212686TN14353^D13 1 1 1 1 1 1 1 1 1 1 7701: 180176913J12665^J18301^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D17806178303 1 1 1 1 7801: U%U7MR10000"D1780417828TU%U7UR10000"J11658^N12997HU%B2RR17863"J13296^N^^^^^^^^^^^^^^^^^^J18024^D1789 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 514421CD1345513398CD1789513418CD1328613733XD17895184323J13329^N^^^^^^J12665^W1440701411AJ14389^W1437 1 1 1 1 1 1 1 1 1 1 8001: 001411AFKR10000"J14370^B18043162749J13329^B1325916273ZJ13329^N^^^^^^^^^^^^^^B17589014112D18101014113 1 1 1 1 1 1 1 1 1 1 8101: B17589014112J17589UD0141218147TD01413181493U%B5RR10000"D0141218195TD01413182023D18144181943L%U506600 1 1 1 1 1 1 1 1 1 1 8201: WR10000"D18101014113J17589^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 8301: D0140713045TD01408130523D17829178033J13304^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 8401: B14422014112D18602158003J14431^1/15931/C1470018478J13629/D18602158003J13629^0A^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 11 1 1 1 1 8501: S1730014700J14370^J18401VV1840114700KJ14407^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 8601: B13730014112D18432158003J13739^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1: COBOL050000145014000^^^^^^^^^^^^^^ 1: ^^^^^^AJ000^^^^^?????010100^^^^20000^^^^^J04268^0Y^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11 11 1 1 11 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^ 11 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^G00029BC0008403739J02824SD000 11 1 1 1 1 1301: '402768/D01G1402769LC01G1403754J04747SC0008403744J03033SA0374900084J000/0^M%U301714RG01465BR00100"J0 1 1 1 1 1 1 1 1 1 1 1 1401: 2746^N^^^^^^^^^^U%U3RR00100"A0480803441B02961034415M%U301633RG01465BR00100"U%U3RR00100"M%U301633WR00 11 1 1 1 1 1 1 1 1 1 1 1 1 1501: 100"J03014^M%U301633RG01465BR00100"U%U3RR00100"M%U301633WR00100"A0480804738J03213^0?0373900084J02817 1 1 1 1 1 1 1 1 1 1 11 1 1601: ^G00029BD000'403075/D0308102BJ5TC02BJ503754J03142SC0009403744J03443SA0374900094)03171J000'5^?0373900 1 1 1 1 1 1 1 1 1 1 1 1701: 094M%U502215WR00100"NJ03129^U%U5MR00100"U%U5RR00100"J02866^^^^^B03256047385M%U501633RG01465BR00100"J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 03280^M%U501633RG01465BR00100",0282503154D0282703181TD0282703193TD02841031833D02841031953D0315602869 1 1 1 1 1 1 1 1 1 1901: TD03163028413D03163028713D0315602827TD0318103156LD03183031633D04809031803)0282503154J03129^5',03171J 1 1 1 1 1 1 1 1 1 1 1 2001: 03142^G00029BD0353201370TDD000'403496/M%1103497RG01465BR00100"J000/0^J03557^J03533^D03491035481U%U5R 1 1 11 1 1 1 1 1 1 1 1 2101: R00100"D000'903574/J03575^G00029BD000'403600/D0360601633$D0145501712TM%4401633WR00100"J000'5^G00029B 1 1 1 1 1 1 1 1 1 1 1 2201: D000'403667/D0367301501$J03674RJ03719@M%2001500WR00100"/01631/J000'5^F1R03719"J03674^0000D0049I0000E 1 1 1 1 1 1 1 11 1 1 1 1 1 1 2301: ^EOP1G00029BD000'401174TJ01175^D0500900089TD0501404006TD0481304742TJ05025^G00029BJ03831RF1R03838"J00 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 0'0^G00029BD000'403881AM%T003882WR038732R03897"J000'5^G03945BD0116203934P^^^^^^^^^^^^.03935^^^^^G000 1 1 1 1 1 1 1 1 1 1 1 1 2501: 99BD00??900029LD000'004291LD00??404012LB0420601499NJ04007^^^^^^04307C0430704818J04199SD0430700029L?0 1 1 1 1 1 1 1 1 1 1 1 2601: 00'504296D0117404301TM%U404287WR00100"D000'6043083D04819000'67A0482004296S0429604307D0430704154/M%U4 1 1 1 1 1 1 1 1 1 2701: 04146WR00100"D04308000'67U%U4MR00100"U%U4BR00100"J00?A0^D04821014993D0149701370TM%U401633RG01465BR00 1 1 1 1 1 1 1 1 1 1 1 1 2801: 100(R04261"J04230^U%U4BR00100"J04001^^^^^^^^^^^^^^^^"^^^^^^G00099BD0454901370TC0474204813J04550/D048 1 1 1 1 1 1 1 1 11 1 1 1 1 1 2901: 22014993U%U4RR00100"M%U401633RG01465BR001003R04401"M%U404287RG01465BR00100"A0482304742C0117404291J04 1 1 1 1 1 1 1 1 1 1 1 1 3001: 707/D0008904508/A0429600089A0482500089D0481900?'07M%U404500RG01465BR00100"D0344200?'07J00??5^J04664^ 1 1 1 1 1 1 1 1 1 1 3101: B0440101499NU%U4RR00100"D0482201499TD0474204746TA04746A0482304746M%U401633RR046153R04639"S0482304746 1 1 1 1 1 1 1 1 1 1 1 3201: J04401VJ04615^U%U4BR00100"D04821014993D00??404705/J04706^M%U401633RR047073R04401"J04401^5000?^^^^?03 1 1 1 1 1 1 1 1 1 1 1 11 1 1 3301: 73900084D000'904775/J04776^G03945BD0002903950XJ03755^MRPRT5U000?00000"DYNA1?^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 111 1 111111 3501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D01400014801S0676601480A01480J03854^06647D01449067 1 1 1 1 1 1 3601: 22PD0672700079TA0667700079B0511300!?01C0007906732J05065UJ06425^D0676700!?03A0673706667T06667065892G0 1 1 1 1 1 1 1 1 1 1 3701: 0084BD00?0005172TJ05173^D99RI802827TD99RI9028413D99RI802869TD99RI9028713D0676899RI73D99RI802904TD99R 1 1 1 1 1 1 1 1 1 3801: I802928TD99RI802940TD99RI9029183D99RI9029303D99RI9029473D99RI803259TD99RI9032733J05065^D99RI803156TD 1 1 1 1 1 1 1 1 1 3901: 99RI9031633D99RI803181TD06768031803D99RI9031833D99RI803193TD99RI9031953D0676899RI73D99RI803228TD99RI 1 1 1 1 1 1 1 1 4001: 9032423D99RI802964TD99RI802988TD99RI803000TD99RI9029783D99RI9029903D99RI9030073J05065^D0676900!?03D9 1 1 1 1 1 1 1 1 1 4101: 9RI804074TD99RI9040813D99RI804149TD99RI9041563D99RI804178TD06768041773D99RI9041803D99RI804190TD99RI9 1 1 1 1 1 1 1 1 4201: 041923D99RI804233TD99RI9042473D99RI9042543D99RI804271TD99RI9042733D99RI804361TD99RI9043633D99RI80437 1 1 1 1 1 1 1 1 4301: 3TD99RI9043873D99RI9043943D99RI804404TD99RI9044183D99RI804503TD99RI9045173D99RI804565TD99RI9045673D9 1 1 1 1 1 1 1 1 1 4401: 9RI804618TD06768046173D99RI9046253D99RI9046323D99RI804667TD99RI9046693D99RI804710TD99RI9047173D99RI9 1 1 1 1 1 1 1 1 4501: 047243J05065^C0141201417J06161/B0601206679UB0601206679BJ06437^D0668006690TD06681066913J03854^06055J0 1 1 1 1 1 1 1 1 1 1 1 4601: 6197^INPUT^TAPE^WILL^BE^USED^AS^WORK^TAPE"D99RI806690TD99RI9066913?0677406672S0677906672S0667200079D 1 11 1 1 1 1 1 4701: 0676700!?03B06401066894D0669001407TD06691014083D0668003491TD06681035053D0668003548TD06681035503D0669 1 1 1 1 1 1 1 1 4801: 003622TD06691036293B0630006684UB0630006684BJ06360^D0668503691TD06686036983D06780036743D06780036813D0 1 1 1 1 1 1 1 1 1 4901: 673803824_D0678501174T?0373900084?0373900094J01175^D0642401409TJ06197^%11R0B05963066673J03854^06456J 1 1 1 1 1 1 1 1 1 1 1 5001: 03904^NUMBER^OF^AVAILABLE^TAPES^DOES^NOT^FULFILL^MINIMUM^COBOL^REQUIREMENTS--RUN^DISCONTINUED"06590" 1 11 5101: 0609200004055360000305337000020517400001D0660906456_J06437^RUN^DISCONTINUED--CONFIGURATION^ERROR"BEG 1 1 1 1 1 1 1 11 5201: IN^COBOL^RUN"000000000000005^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^066920672200001G00029BD0385 11 1 1 1 1 1 1 1 1 5301: 0015003J000'0^1"10US067220144INPH^05^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1111111 1 11 1: PH^05037810485004850^^^^^^^^^^^^^^ 1: D1223404996LJ08775^07183B0638812232^B0490512439PJ06280^C1223404988J06280/C0499613106J06388SJ03051^12 1 1 1 1 1 1 1 1 1 1 1 1 101: 299J03051^04993D1229912234TJ06388^^#362^^^^0^^^^^^PH^0517900167201790018000D1263312511LD12540124283J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 10312^D1757900049TJ03051^11538B06771124351B07773124331NJ10312^,05105J03456^1246807742J09863^D1254012 1 1 1 1 1 1 1 1 1 1 1 1 301: 4283B0517812439ID11534125403D17580124343D1758500054TC0004917579J08638/B08638124431B07459124411B07730 1 1 1 1 1 1 1 1 1 401: 124421B08427124401B05311124382B0533000'!0^B0537312439PJ05403^D1759000054TJ07042^B05068124291B0543912 1 1 1 1 1 1 1 1 1 501: 4380D1759000054TJ06965^D17580124373D17580124363S12438B05439124290D1168601501$J03643^01501S12429B0777 1 1 1 1 1 1 1 1 1 1 1 601: 3124331B05482124340S12434J09543^NJ05658^,05483C1248412380J05533SJ03854^11815J03904^D1253012625LD1254 1 1 1 11 1 1 1 1 1 1 1 1 701: 412641TD1254401455TJ03854^12582J17193^1264112234D1233999IZ4TD1233912234TJ03946^1223412344J16993^1223 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 4J05068^C1248912395J05744/B05707124390J03854^11999J03904^D17591124393)05483D1153801479LJ05068^C12477 1 1 1 1 1 1 1 1 1 1 1 1 901: 17594J05676SC1248612407J05854/B0581112439ID1196001501$J07864^D17595124393D17580090523D1223912234TJ06 1 1 1 1 1 1 1 1 1 1 1001: 055^C1247912412J05958/B0590312439ED1186301501$J07864^D17596124393D17597090523D1760012689TD1224412234 1 1 1 1 1 1 1 1 1 1101: TJ06055^C1248412422J06110/B0600712439DD1190401501$J07864^D17601124393D17602090523D1760514162TD122491 1 1 1 1 1 1 1 1 1 1 1201: 2234TJ03051^12234J03051^12264J03051^12289D17580124313J05056^B05688124390B0506812439IB06532124371D175 1 1 1 1 1 1 1 1 1 1 1 1 1301: 7900049TB06183124340S12434J09543^J07967^B10557124271B06316124272B11404124273V0727500''01C1237000049J 1 1 1 1 1 1 1 1 1 1 1401: 07183UJ08775^07183B0638812232^C1223417600J06430SC1223412259J06351/B11386124360A1758012427B0643012427 1 1 1 1 1 1 1 1 1 1 1501: 3C1223412254J06388/B06947124361J07001^J03051^12234C1223412269J06430/D17580124323S12436S12437A1758000 1 1 1 1 1 1 1 1 1 1 1 1 1601: 054B06134124430S12443C1243917601J05457/B0545712475^D17580124373D17580124363J05457^S12437J07967^J0305 1 1 1 1 1 1 1 1 1 1 1 1701: 1^12304D0004906580TJ17193^0658012355J16192^1235512279V0669300''01C1237000049J06693UJ08775^06693D1175 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 601505TD1204001515$J03643^01501D17580014983J09249^B0688800'!0.A1758012435J07967^C1412600''0J06771/A1 1 1 1 1 1 1 1 1 1 1 1 1901: 758000054J11460^06795J03643^12157D17580014983J16192^1235512279J16141^123551244912284J03051^12274J030 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 51^12289J03946^1235507918S12435J05056^J03051^12289J03051^11538J03946^1235507918A1759700054J06146^D17 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 580124383S12436A1758000054C1761000054J05056UJ06965^D17597124383A1758000054C1761000054J07110UB0709100 1 1 1 1 1 1 1 1 1 1 2201: '!0.B0712200'!0^B07013124440S12444J07013^D17580124443J07013^B05056124440B07013124440S12444S12438C176 1 1 1 1 1 1 1 1 1 1 1 2301: 1000054J05056UJ11460^05056J06146^W07244090526C1567900''0J07244/D1761509192TJ09115^D17580124303J09249 1 1 1 1 1 1 1 1 1 1 1 2401: ^S1758000054S12432J06430^B0730600''0,B0730600''0;J07183^J03051^11538J06430^D17580124413D1760012425TA 1 1 1 1 1 1 1 1 1 1 1 1 2501: 1758012425C1242517618J07408UJ03051^12299S12441J10435^11706J09375^B0743400'!0@J07349^S12441J03051^122 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 99J08385^B0750112474-J03051^12299S12441J10435^11600B0753112439PA1759700054J07542^A1760200054B0759000 1 1 1 1 1 1 1 1 1 1 1 1 2701: '!0@A1758000054C1761000054J07471UJ07542^A1758000054J07415^D1762112425TJ07639^D1760012425TD1758012442 1 1 1 1 1 1 1 1 1 1 2801: 3A1758012425C1242517618J07698US12442J10435^11706J09375^W0765100'!0"S12442J08385^J09727^07651D1758012 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 4333D1159912539TJ05190^B07797124410J03051^12299J03051^12294B07840124300J03854^12064J03904^B078831243 1 1 1 1 1 1 1 1 1 1 1 1 3001: 9PD1194301501$J03643^01501J07821^B07931124261W07919014771J03755^PH^10J03755^PHT10W07955014771J03755^ 1 1 1 1 1 1 1 1 1 1 1 1 3101: PH^07J03755^PHT07G00039BB0838500'!0^B0838500'!0;B08058124321B0838500'!0,B0732500'!0@B0762700'!0&B076 1 1 1 1 1 1 1 1 1 1 1 3201: 2700'!0-D00'!000''03A1758000054J09641^08439A1758000049C1236500049J08058TS1759700049S1758000054D00054 1 1 1 1 1 1 1 1 1 1 3301: 12349TD1757900054TJ09425^V0821100'!02B0821100'!0.D17580124403C0005400049J08247SA1758000054J08168^D17 1 1 1 1 1 1 1 1 1 1 3401: 57900049TD1234900054TB07608124400A1758000054C1761000054J05068UJ09641^08331J08283^D1175601505TD117060 1 1 1 1 1 1 1 1 1 1 3501: 1515$J03643^01501S12440D17580124303J03051^11538J11460^05068A1758000054J07974^J09727^08283S1758000054 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: V0861900''01B08588124321B0856300''0*B0849800'!0?J08563UB0856300'!0)B0856300'!0&B0856300'!0-S17580000 1 1 1 1 1 1 1 1 1 3701: 54S1758000049J11460^05068S12443J000?0^B0854100'!0,B0861900''0.J08563^D17580124433J08563^B0866812474- 1 1 1 1 1 1 1 1 1 1 1 3801: S1758000054J000?0^B0869812439PA1758000054J08709^A1762200054A1758000054B0874500'!0^S12443J08093^C0005 1 1 1 1 1 1 1 1 1 1 1 3901: 417610J08709/J10435^11600G00044BD00'0409192TD0004912349TS1236012349D1234900029TA00029A00029A12349000 1 1 1 1 1 1 1 1 1 1 1 4001: 29D159Z700039TD159'2D00''0000?0TT000?0000!02G00029BG09051BS1234900039S0002900039D11534000392J09187VD 1 1 1 1 1 1 1 1 1 1 1 4101: 1153812234TD999Z9122343DDC1223417627J09194SV09017000'02J03051^12314B0904112232^D12279122313W00'05090 1 111 1 1 1 1 1 1 1 4201: 520B0911512439EB0909612439DD1242211805TJ09127^D1241211805TJ09127^D1240711805TD00''011779TJ03643^1175 1 1 1 1 1 1 1 1 1 1 4301: 2D1154711804TD1155611779TD17580014983J09193^D1179001539TD1164901540$D00''001528TJ03643^01501J09187^G 1 1 1 1 1 1 1 1 1 1 1 4401: 09373BD1153812234TD1236000059TA1758000059D00'?0122343J03051^12234C0005900049J09280/D1757900049TA1758 1 1 1 1 1 1 1 1 1 1 4501: 000054J03051^11538J09374^G09423BJ09425^A1758000054C1761000054J05105UJ09424^G09522BD00'!0160983T16098 1 1 1 1 1 1 1 1 1 1 1 1 4601: 161402G00064BD1153812234TC1763200064J09524TD00!0012234TJ03051^12234J09523^D00'!0122343J09505^G09639B 1 1 1 1 1 1 1 1 1 1 1 4701: D0005412349LD1763700054TJ03051^12309J09425^A1758000054C0005412217J09586/D1234900054LJ09640^G00029BD0 1 1 1 1 1 1 1 1 1 1 1 1 4801: 00'400034TB000!000'!0^B000!000'!0;B000'5124321B000!000'!0,B000!000'!0%J000'5^G00029BD000'400034TB097 1 1 1 1 1 1 1 1 1 4901: 8912474-S12442S12440J03051^11538J05280^B0980800'!0^J000!0^A1758000054C1761000054J09844UJ09789^S12442 1 1 1 1 1 1 1 1 1 1 1 1 5001: S12440J07489^G10285BC1243917601J10197/B09918124270C1248711538J10287SJ03051^12254D1764200054TD1764710 1 1 1 1 1 1 1 1 1 1 1 1 5101: 098T,00'!0C1159912539)00'!0J10143SC0005417652J10100SD00'!412349LD1234512344HG00029BC0002917657J10070 1 1 1 1 1 1 1 1 1 1 1 5201: SD11534000'03J10014^J03051^12349A1765800054J10099^D1153812349LD00'!112346LD1766310098TJ10014^,12468J 1 1 1 1 1 1 1 1 1 1 1 1 5301: 03051^12254B10197124270D12473124283D11538124733C1247311539J10238/A1758012229D1222912473TC1247312211J 1 1 1 1 1 1 1 1 1 1 5401: 10268TD1222312464TD1247312211LJ10286^J03051^12254)12473J10143^G10433BD12428125403B10356124310S12431J 1 1 1 1 1 1 1 1 1 1 1 1 5501: 03824^B10392124270D1254712549TD1221212474LJ03643^12455D1153912464TD12550125483J10434^G00029BD000'410 1 1 1 1 1 1 1 1 1 1 5601: 495TD17580124293D17580014983D1175601505TD1050101515$J03643^01501D1166401501$J03643^01501D17580124303 1 1 1 1 1 1 1 1 1 1 5701: J05056^C1457200''0J11386/S12427)1247412540B10616124410J03051^12299J10312^A1766412427J10648^J10312^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 3051^12329J03456^1246811362D1758500054TA1766400054B1073700'!0.C0005417669J10689/J10860^A1766400054B1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 073700'!0^A1766400054W1076000'!0"C99ZR917674J10860/,1247412540)12473D1757900049TA1766412427J03051^12 1 1 1 1 1 1 1 1 1 1 6001: 259J05135^J09863^,12473J09543^D12428124733D1767900054TB1128900'!0^B1144700'!0*B1097600'!0^J09425^A17 1 1 1 1 1 1 1 1 1 1 1 6101: 66400054C1768400054J10928TNJ11337^S1766400054D0005411018TJ17193^1101812355J16192^1235512334J03946^12 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 35507918)1097712474D1768900054TJ03051^12319D1153812234TD1769400059TS1769500059A1766400059A1766400054 1 1 1 1 1 1 1 1 1 1 6301: D00'!000'?03C0005917694J11128/J03051^12234J03051^12324,00'!1C1159912539)00'!1J11270SA1766400054J0942 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 5^C0005417610J11204/D12540124283J10641^J03051^11538A1766400054B1105800'!0^,12474J10940^C1768400054J1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 0940/J11058^D17580124333J10435^12121S12427J10435^12097C1322300''0J11386/S12427D17580124263J05056^,10 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 977J10940^G00029BD000'400034TC0005417610J000!0S,00'!1C1159912539)00'!1J000!0SJ000'5^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 6701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CONTINUATION^INDICATOR^MISSING^OR^INVALID^FORMAT"^ 1 11 6801: THIS^VERSION."COMPILATION^SUSPENDED"COMPILATION^RESUMED"NAME,^LITERAL^OR^PICTURE^EXCEEDS^MAXIMUM^SIZ 11 11 11 6901: E"ERROR^^^^^^^^^^^^^^^^^^^^^^^^INVALID^IN^^^^^^^^^^^^^^^DIVISION"INSERT^PROGRAM-ID^PARAGRAPH.^RESTAR 11 11 7001: T^COBOL^RUN."DATA^DIV^NOT^PRECEDED^BY^ENVIRONMENT^DIV"PROCEDURE^DIV^NOT^PRECEDED^BY^DATA^DIV"NO^PROC 1 1 1 7101: EDURE^DIV"ENVIRONMENT^DIV^NOT^PRECEDED^BY^ID^DIV"IMPROPER^ID^DIVISION.^RESTART^COBOL^RUN."^KEY^WORD^ 1 1 11 7201: USED^AS^NAME."RUN^DISCONTINUED--SEE^DIAGNOSTIC"INVALID^ENTER^STATEMENT"VALID^ENTER^COBOL^STATEMENT^M 1 1 1 7301: ISSING"ERROR^^^^^INVALID^SECTION/PARAGRAPH^NAME^FORMAT."ZZZZZZ^12212SEQ^CKG0000000000^#306^#307^#308 1 11 1 1 1 1 1 1 1 7401: ^#373^#383^#403^#426^#443^^^^#^^^^;^^^^.^EOP1^^^^@^COLN^SEQ.^^^^%^LOC1^OPND^MACS^^^^+JOBSTPH^2400000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: "STIST125501258212570PROGRAM-IDIDENTIFICATION^ENVIRONMENT^DATA^PROCEDURE^000000001000000000000000002 11 1 1 1 1 1 1 1 1 1 11111111111111111111 7601: 00001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^ 1 1 1 1 1 1 7701: "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CB0518-T^^^^^^^^"^^^^#M% 11 1 11 1 7801: #^**4**3932AN3052ID0004AT4624BY4835NO5307ON4247OF4246IN3342FD0007IS3854OR3704GO3524IF0007TO^^^###XBI 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: T###XUSE000P%IS5481OFF0002ARE0003FOR4594ALL4954RUN4705END3864NOT3004ADD3847AND^^^^###XSAME###XPLUS## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8001: #XBITS###XTYPE###DSIGN5671REEL###DCOPY386M%NOT0002WHEN4172LEFT0001AREA5041TAPE4092FILE3072DATA0002MO 1 1 1 1 1 1 1 1 1 1 1 1 8101: DE3734NOTE0005WITH4824LOCK5014UPON3264OPEN3814EXIT4974STOP4754FROM4794INTO3284READ4537THRU6011DISK^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: *6TIME0004THAN3584LESS0004THEN5134NEXT3544ELSE4487SIZE3784MOVE3626ZERO^^^^^###XABOUT###XMINUS###XRAN 1 1 1 1 1 1 1 1 1 1 1 1 8301: GE###DREELS###DTALLY###DWORDS3211APPLY5661RERUN###DFIRST0001EVERY0004COBOL358M%LESS3972CHECK5382DIGI 1 1 1 1 1 1 1 1 1 1 1 8401: T4112FLOAT5041TAPES0002PLACE4272POINT4422RIGHT0002USAGE0002CLASS3952BLANK3962BLOCK4152LABEL0001AREAS 1 1 1 1 1 1 1 1 1 1 1 8501: 0004ERROR5004UNTIL^^*6TIMES5166SPACE5146QUOTE3834ENTER0004LINES4584AFTER3714ALTER3274CLOSE4784INPUT3 1 1 1 1 1 1 1 1 1 1 1 1 8601: 294WRITE4552VALUE^^#4EQUAL3626ZEROS^^^^^^###XHASHED###XFORMAT###XENDING###XDEFINE^^#M%EQUAL000^AUTHO 1 1 1 1 1 1 1 1 1 1 8701: R0002DOLLAR0002SIGNED0002PLACES5371ASSIGN3962BLOCKS5382DIGITS4552VALUES5146QUOTES4944REWIND19811402- 1 1 1 1 1 1 1 1 1 1 8801: P19911402-R5441MEMORY4844OUTPUT0001STATUS3034DIVIDE4604BEFORE3324ACCEPT4232OCCURS5631SELECT4764GIVIN 1 1 1 1 1 1 1 1 1 1 8901: G4102FILLER4366RECORD5166SPACES^^#4EQUALS3626ZEROES^^^^^^^###XCONTROL###XDIVIDED###XRENAMES###XMODUL 1 1 1 1 1 1 1 1 1 1 9001: ES###XINCLUDE###DLEADING###DEXAMINE###DLIBRARY^^#M%EQUALS000^AUTHORS000^REMARKS0003CONTAIN0002PROTEC 1 1 1 1 1 1 1 1 1 9101: T4162LEAVING5351ADDRESS5024VARYING17611403-CT20011403-P120111403-P219611415-CP4252OMITTED4362RECORDS 1 1 1 1 1 1 1 1 1 9201: 5611RESERVE3946NUMERIC3564UNEQUAL4854PROCEED4964ROUNDED4537THROUGH4437SECTION5651PADDING3574EXCEEDS3 1 1 1 1 1 1 1 1 1 1 9301: 574GREATER0006DISPLAY3724PERFORM3044COMPUTE4262PICTURE^^^^^^^^###XSENTINEL###XREVERSED###XPOSITION## 1 1 1 1 1 1 1 1 1 9401: #XPREPARED###DOPTIONAL###DMULTIPLE###DRENAMING###DTALLYING357M%EXCEEDS357M%GREATER356M%UNEQUAL000^SE 1 1 1 1 1 1 1 1 9501: CURITY4037DIVISION0002LOCATION5511PRIORITY0002SUPPRESS3992CONSTANT1781IBM-14100003CONTAINS3604NEGATI 1 1 1 1 1 1 1 1 9601: VE3594POSITIVE3024MULTIPLY5322STANDARD3014SUBTRACT0004SENTENCE^^^^^^^^^###XSEQUENCED###XBEGINNING### 1 1 1 1 1 1 1 1 1 9701: DREPLACING0004AUTOCODER3084PROCEDURE5383CHARACTER5351ADDRESSES4142JUSTIFIED18911402-R-EF19011402-R-E 1 1 1 1 1 1 1 9801: R18511402-P-ER17411403-P-C918711403-P-CB17511403-P-CV17711403-P-ER4026DEPENDING5214ADVANCING0001ALTE 1 1 1 1 1 1 1 1 9901: RNATE5166LOW-VALUE4392REDEFINES6051IOCSDSKAD6061IOCSSEKAD4382RECORDING3544OTHERWISE^^^^^^^^^^###XSUP 1 1 1 1 1 1 1 1 10001: ERVISOR###XPROTECTION###XPURGE-DATE###XMULTIPLIED3631NO-OVERLAP000^PROGRAM-ID5056HIGH-VALUE2111IBM-1 1 1 1 1 1 1 1 10101: 301-12121IBM-1301-25166LOW-VALUES3926ALPHABETIC5383CHARACTERS^^^^^^^^^^^###XUPPER-BOUND###XREEL-NUMB 1 1 1 1 1 1 1 10201: ER###XMEMORY-DUMP###XLOWER-BOUND###XBLOCK-COUNT###XCLOCK-UNITS###XEND-OF-FILE###XEND-OF-TAPE5361I-O- 1 1 1 1 1 1 1 10301: CONTROL17011415-CP-INQ3061ENVIRONMENT5056HIGH-VALUES^^^^^^^^^^^^###XUPPER-BOUNDS###XDECLARATIVES###X 1 1 1 1 1 1 1 10401: TEST-PATTERN###XLOWER-BOUNDS###XRECORD-COUNT000^DATE-WRITTEN000^INSTALLATION0002SYNCHRONIZED3161FILE 1 1 1 1 1 1 10501: -CONTROL3201INPUT-OUTPUT3932ALPHANUMERIC^^^^^^^^^^^^^###XEXPONENTIATED###DCORRESPONDING###DSEGMENT-L 1 1 1 1 1 1 10601: IMIT000^DATE-COMPILED5401CONFIGURATION0002COMPUTATIONAL3191SPECIAL-NAMES^^^^^^^^^^^^^^###XNO-MEMORY- 1 1 1 1 1 1 10701: DUMP6026DISK-STACKAREA3052IDENTIFICATION5471OBJECT-PROGRAM^^^^^^^^^^^^^^^###XMEMORY-DUMP-KEY4652RETE 1 1 1 1 1 1 10801: NTION-CYCLE3181OBJECT-COMPUTER5641SOURCE-COMPUTER4562WORKING-STORAGE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 10901: ^###XENDING-FILE-LABEL###XENDING-TAPE-LABEL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11001: ###XBEGINNING-FILE-LABEL###XBEGINNING-TAPE-LABEL1274012740127401282713119134841380014203145111483215 1 1 1 1 1 1 1 1 1 1 1 1 1 11101: 0101520115389155211560715717157331579215810158291589712644127431283113124134901380714211145201484215 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11201: 021152131540215535156221573315750158101582915849^LP[LTTM(CT^RM',^\G00029BD00 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11301: 04416714LD000/400044TDD)1637816567J16255^G00029BJ16219^G00029B)16351D0004416714LD000'900044TD17705D0 1 111 1 1 1 1 1 1 1 1 1 11401: 00'4D00'0016673TD000?016694JD000!016678TJ16720^1667816689C1668916719J16592SV1654816694KD1668900029TN 1 1 1 1 1 1 1 1 1 1 1 11501: J16377^D000'516694LJ16438^NJ16438^D1669400039TA00039A00039A0003916694C000'516694J16548U,000'1A176580 1 1 1 11 1 1 1 1 1 1 1 1 11601: 00'5)000'1S000'500029A1669400029,000'1D00?'000?'5TG00039BD16673000?0T)000'1A1765800089A1765816992D16 1 1 1 1 1 1 1 1 1 1 1 11701: 71400044T,16351NJ000/0^,1637816567J000/5^A1758001470D0147016678T,00?'0D1668400?/5L)00?'0D16678000!0L 1 11 1 1 1 1 1 1 1 1 11801: A1770700089J16548^166731667800005'1668916694^^^^^^^^^^^^^^^^^^^^00000G00029BD0003916982LD1671900039T 1 1 1 1 1 1 1 1 1 1 1 11901: D000'900034TDW16807999Z6&D00039000!0TD1698200039TJ000/0^C16987000'0J16843/A1699200039J16776^A0008900 1 11 1 1 1 1 1 1 1 1 12001: 039S1770800039C0003905019J16930UC000?0000'0J16943SS000?500039S1758000038J16865^S00039J16776^D0003916 1 1 1 1 1 1 1 1 1 1 1 12101: 992LD000'0J16776^^^^^^^^^^^^^^^^1698716992G00029BD0003417192LD000'400034TD000!017177TD16719000!0TJ16 1 1 1 1 1 1 1 1 1 1 1 12201: 720^1717717182C1718216719J17154SD1671916987TD1718200034TD17182S000!500034D000'6999R6,G00089BS1758000 1 1 1 1 1 1 1 1 1 1 1 12301: 089D1719200034TJ000'5^1717717182^^^^^^^^^^G00029BD0003917509LD000'900039TDD1671917493TD0003917260LJ1 1 1 1 1 1 1 1 1 11 1 1 12401: 6993^17260A1758001470D01470000?0TD000!0000!0^G00029BA1758000029D000'0175163T17516175742G00039BJ17470 1 1 1 1 1 1 1 1 1 1 12501: UD999G317514TD1751400?'4TA1765800089A1765817493C0002900034J17303/A1758000088D0147099IZ4TD1749400?'0T 1 1 1 1 1 1 1 1 1 12601: D1750900039TJ000/0^D1751617514TJ17364^17493'^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^< 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 12701: ^"^]^;^_^^+^:^>^(^^^'^\1255111247512479IID^ED2000P433112539072321220303^^###160981220612468099541253 1 1 1 1 11 1 1 1 1 1 1 1 11 1 11 1111 111 1 1 1 1 11 1 1 1 1 1 12801: 812350510143A12505ENTER12473124831248212234E1254316719156^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 11 1 1 1 1 1 11 1 1 1 13001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^07037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^0712634103111263412700J02721^0977508049C0977510 1 1 1 1 1 1 1 1 1 201: 300J05079SJ03051^09775J05025^J03051^09775J02721^0977508049C0977510305J05192/J03051^09775J02721^09775 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 08049C0977510300J05126/J05060^J03051^09775J02721^0977508049C0977509785J05234SJ05192^J10584^09820J105 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 84^09868D0988109815TD1031009825TJ03051^09775J02721^0977508049C0977510305J05407/J03051^09775J02721^09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 77508049C0977510305J05329/J03051^09775J03051^09677J05294^C0977510300J05060SC0977509780J05294/J03051^ 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 09775?1235409896J02721^0977508049A1235509896B0554209896GJ10849^0986809775J03051^09775J05466^B0556109 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 775*J05627^D1031009825TJ03051^09775J02721^0977508049C0977509785J05573/J05234^C0977512360J05681SJ0305 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 1^09775J02721^0977508049J05627^J03051^09775J02721^0977508049T09775081992J06391/A1236109810C097751236 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 6J05787SC0977512371J05787SA1236109813D0977509860TD0977509802TJ03051^09775J02721^0977508049J03051^097 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 75J02721^0977508049W0596709775"B05906098080S09808J05561^J03051^09775J02721^0977508049B0595409775^J07 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 664^S09808J05561^C0977509785J05234SC1237609775J06191UC1238109775J06360TB0619109775!B0619109775'J0668 1 1 1 1 1 1 1 1 1 1 1 1201: 4^J03051^09775J02721^0977508049B0611809775@C0977509785J07702SJ06052^J03051^09775J02721^0977508049C09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 77509785J05234ST09775096772J06052/J06288^B07740098091J03051^09775J02721^0977508049T09775096772J06276 1 1 1 1 1 1 1 1 1 1 1 1 1401: SC0977509785J05234SJ06191^B0590609775^B05234098141C1238609775J05840/A1236109825B05840098110B05561098 1 1 1 1 1 1 1 1 1 1 1501: 252J05840^B0605209775@B07740098091J06232^T09775096462J06470/A1236109811C0977512391J05787/D0977509860 1 1 1 1 1 1 1 1 1 1 1601: TD0977509802TJ05561^T09775097142J05787ST09775097702J07778SB0658109771^C0977512396J07968SD0980709860T 1 1 1 1 1 1 1 1 1 1 1701: D0977509802TD1239709861TJ05811^T09860081892J06629UA1236109813A1236109810J05811^C0986009807J06654SJ07 1 1 1 1 1 1 1 1 1 1 1 1801: 816^B07816098615A1236109861J05811^D1239909863TB06737098151A1236109815C1240409802J06203SJ10849^098200 1 1 1 1 1 1 1 1 1 1 1 1901: 9775A1236109863J02721^0977508049T09775096772J06842SC0977509785J06737/B07854098081A1236109814J11900^0 1 1 1 1 1 1 1 1 1 1 1 1 2001: 982009855B0690309775^B06890098081J06926^S09808J07892^B07500098081A1236109808C1240609863J07087UJ07339 1 1 1 1 1 1 1 1 1 1 1 2101: SC1240809863J07087TT09855081482J07087/B07930098091J07014^J06288^G07085BJ11403^098200987309797C097971 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 0310J07080SJ03051^09797J07021^J07086^C0980212413J07130/C0985512415J07166/J07000^B07365098101B0721409 1 1 1 1 1 1 1 1 1 1 1 1 2301: 8081B07309098091J10849^0982009886J10835^0982009886J07014^J06288^B07000098091J10835^0982009886J02721^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 0977508049C0977509677J07295/J10849^0982009886J07014^J05869^J10849^0982009886S09809J07000^T0985508169 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 2J06988SJ07087^B07444098131C1236609860J07142/B0747509855CC0985512417J07000SB0747509855XJ07142^B07475 1 1 1 1 1 1 1 1 1 1 1 2601: 09855GB0747509855RJ07142^C0987309863J07142/J07000^S09808C0985512419J07566/J03051^09891J10584^09820A1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 236109809J06288^C0985512421J07524SC0985512415J07638/C0980212413J07638/A1236109809J07000^J07664^J1058 1 1 1 1 1 1 1 1 1 1 1 2801: 4^09820J05561^J08006^D0968309911TJ03643^09897J05561^J08006^D0968309952TJ03643^09938J05234^J08006^D09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 68309991TJ03643^09977J05561^J08006^D0968310030TJ03643^10016J06439^J08006^D0968310062TJ03643^10048J05 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 561^J08006^D0968310100TJ03643^10086J05234^J08006^D0968310137TJ03643^10123J05561^J08006^D0968310184TJ 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 03643^10170J05561^J08006^D0968310230TJ03854^10216J08109^G08047BJ11900^0986809683D1236109647TJ08048^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: 03051^09775B08109096471W08097014772J03755^PH^10J03755^PHT10J03854^10263J03904^0X0X1X2X3X4X5X6X7X8X9X 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 3301: 00X10X11X12X13X14X15DA^^^DCW^^DV^^^DC^^^DS^^^EQU^^00WCY^^WCYO^WCYW^WCYWOWCYE^WCYEWRCY^^RCYO^RCYW^RCY 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: WORCYG^RCYGWWFT^^WFTO^WFTW^WFTWOWFTE^WFTEWRFT^^RFTO^RFTW^RFTWORFTG^RFTGWWHA^^WHAO^WHAW^WHAWOWHAE^WHA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: EWRHA^^RHAO^RHAW^RHAWORHAG^RHAGWWDC^^WDCO^WDCW^WDCWOWDCE^WDCEWWDT^^WDTO^WDTW^WDTWOWDTE^WDTEWRDT^^RDT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: O^RDTW^RDTWORDTG^RDTGWWD^^^WDO^^WDW^^WDWO^WDE^^WDEW^RD^^^RDO^^RDW^^RDWO^RDG^^RDGW^SD^^^SDO^^PSC^^PSC 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: O^REL^^RELO^SAI^^SAIO^WFO^^WFOE^WFOO^SSF^^SD^^^WTBE^WTE^^RTBG^RTG^^LU^^^MU^^^RD^^^RTD^^WD^^^WDC^^WDT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: ^^RTGW^RTBGWWTEW^WTBEWSDO^^RDW^^RDO^^RDWO^RDTW^RDTO^RDTWOWDW^^WDO^^WDWO^WDCW^WDCO^WDCWOWDTW^WDTO^WDT 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: WOBNR1^BNR2^BCB1^BCB2^BEF1^BEF2^BNT1^BNT2^BWL1^BWL2^BER1^BER2^BOL1^BOL2^BRC1^BRC2^BXPA^BEPA^BSPR1BSP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: R2BOPR1BRPR2BIPR^BUPR^CS^^^BPCB^MCE^^MCS^^BC9^^CU^^^RWV^^RWD^^BQN^^BEX1^BEX2^BA1^^BA2^^BSP^^SKP^^WTM 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: ^^CC^^^WM^^^WMO^^WCP^^WCPW^WCPO^WCPWORCP^^RCPW^RCPO^RCPWOW^^^^WW^^^WO^^^WOW^^P^^^^PW^^^PO^^^PWO^^R^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: ^^RW^^^RO^^^RWO^^RT^^^RTW^^RTO^^RTWO^WT^^^WTW^^WTWO^WTO^^RTB^^RTBW^RTBO^RTBWOWTB^^WTBW^WTBO^WTBWONOP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: WMBDV^^SW^^^CW^^^BAV^^BZ^^^BCV^^BBE^^BWZ^^MLCWSMLZWSMLNWSMLWS^MLCS^MLZS^MLNS^MRWG^MRNWGMRZWGMRCWGMRN 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: M^MRZM^MRCM^MRWM^MRNWMMRZWMMRCWMMRN^^MRZ^^MRC^^MRW^^MRNW^MRZW^MRCW^MLN^^MLZ^^MLC^^MLW^^MLNW^MLZW^MLC 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: W^MRNR^MRZR^MLNA^MLZA^MLCA^MLWA^MLNWAMLZWAMLCWAMLNB^MLZB^MLCB^MLWB^MLNWBMLZWBMLCWBMRCR^MRWR^MRNWRMRZ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: WRMRCWRMRNG^MRZG^MRCG^SCNRRSCNRGSCNRMSCNR^SCNLASCNLBSCNL^SCNLSC^^^^LL^^^LE^^^LLE^^LH^^^LLH^^LEH^^BW^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: ^^BZN^^BCE^^B^^^^BU^^^BE^^^BL^^^BH^^^SAR^^SBR^^SFR^^SER^^H^^^^NOP^^A^^^^S^^^^ZA^^^ZS^^^M^^^^D^^^^0^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 4801: ^^*^^^^&^^^^-^^^^,^^^^#^^^^^^^^^^^^EJECTRESEQORG^^LTORGEX^^^XFR^^^JOB^^DIOCSDTF^^LOAD^PST^^CTL^^RUN^ 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 4901: ^END^^INSERDELETSFX^^^^^^^^SEQ.^MACS000000"^^^^^^^^^^MACOP00000000^^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 11 1 1 111111111 1 1 5001: ^^^^^^^^^^^000^^^^^0000100000000^#NME^#42400000CARD^NO.^^^^^^^^INVALID^BLANK^IN^OPERAND"CARD^NO.^^^^ 1 11 1 1 1 1 1 1 1 11 5101: ^^^^INVALID^LITERAL^FORMAT"CARD^NO.^^^^^^^^NO^NAME^AFTER^IN^OR^OF"CARD^NO.^^^^^^^^INVALID^OP^CODE"CA 11 11 11 5201: RD^NO.^^^^^^^^INVALID^BLANK^OP^CODE"CARD^NO.^^^^^^^^INCOMPLETE^STATEMENT"CARD^NO.^^^^^^^^IN^OR^OF^NO 11 11 5301: T^FOLLOWED^BY^BLANK"CARD^NO.^^^^^^^^IN^OR^OF^FOLLOWED^BY^INDEXING"CARD^NO.^^^^^^^^OP^CODE^UPDAT^INVA 11 11 5401: LID^IN^ENTER"RUN^DISCONTINUED--SEE^DIAGNOSTIC"^#383^#37300000G00029BD0003910573LD1031000039TD000'900 11 11 1 1 1 1 1 1 5501: 034TDW10398999Z6&D00039000!0TD1057300039TJ000/0^C10578000'0J10434/A1058300039J10367^A0008900039S1242 11 1 1 1 1 1 1 1 1 1 5601: 200039C0003905019J10521UC000?0000'0J10534SS000?500039S1236100038J10456^S00039J10367^D0003910583LD000 1 1 1 1 1 1 1 1 1 1 1 5701: '0J10367^^^^^^^^^^^^^^^^1057810583G00029BD0003410783LD000'400034TD000!010768TD10310000!0TJ10311^1076 1 1 1 1 1 1 1 1 1 1 1 5801: 810773C1077310310J10745SD1031010578TD1077300034TD10773S000!500034D000'6999R6,G00089BS1236100089D1078 1 1 1 1 1 1 1 1 1 1 1 5901: 300034TJ000'5^1076810773^^^^^^^^^^G00029BD0004411357LD000/400044TDD)1102111210J10898^G00029BJ10862^G 1 1 1 1 1 1 1 111 1 1 1 1 6001: 00029B)10994D0004411357LD000'900044TD12427D000'4D00'0011316TD000?011337JD000!011321TJ10311^113211133 1 1 1 1 1 1 1 1 1 1 1 6101: 2C1133210310J11235SV1119111337KD1133200029TNJ11020^D000'511337LJ11081^NJ11081^D1133700039TA00039A000 1 1 1 1 11 1 1 11 1 1 1 6201: 39A0003911337C000'511337J11191U,000'1A12428000'5)000'1S000'500029A1133700029,000'1D00?'000?'5TG00039 1 1 1 1 1 1 1 1 1 1 1 6301: BD11316000?0T)000'1A1242800089A1242810583D1135700044T,10994NJ000/0^,1102111210J000/5^A1236101470D014 1 1 1 1 1 1 11 1 1 1 1 6401: 7011321T,00?'0D1132700?/5L)00?'0D11321000!0LA1243000089J11191^113161132100005'1133211337^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 6501: ^^^^^^^^G00029B,1144911626J11410^G00029B,11646J11410^G00029BD0004411879LD000/400044TDDD000!011854TNJ 1 1 1 1 1 1 1 1 1 111 1 6601: 11468^D1031000'00TJ10311^1185411859C1185910310J11788SV11717000?0KD1185900034LD000?011859JA11859A1185 1 1 1 1 1 1 1 1 1 1 1 6701: 9A000?011859C000!511859J11717UD0003400039TS000?500039A1185900039S1242800039NJ11831^D000?000'00LNJ117 1 1 1 1 1 1 1 1 1 1 6801: 17^D000?1999I6,,999R6S12428000!0)999R6J11753VS1242810583S1242800089D1187900044T)1144911626)11646J000 1 1 1 1 1 1 1 1 1 1 1 6901: /5^D000!1999R1,S1243000089D1031010578TD1187900044TD000'411822/D1031011823TJ11729^D00'00000?0TJ11717^ 1 1 1 1 1 1 1 1 1 7001: 1185411859^^^^^^^^^^^^^^^^^^^^G00029B)12173J11907^G00029BD0004412293LD000'900039TDD000!012268TJ10311 1 1 1 1 1 1 1 1 1 11 1 7101: ^1226812273C1227310310J12239SD0008900044TD1227300034TS000!500034A1236100044C0003412273J12172SC999R81 1 1 1 1 1 1 1 1 1 1 1 7201: 2433J04777/B12130999R9^D000!012295LT12295123242G00029BJ04777UD000T1122953J12142^D000!0122953D1229500 1 1 1 1 1 1 1 1 1 1 7301: '003A1242800034J12014^NJ12210^W1221000?'1(D00?'199Z992,00?'2,00?'1D99Z99000?0X)00?'100?'2D1229300044 1 1 11 1 1 1 1 1 1 1 7401: T,12173J000/0^1226812273^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^;^_^^+^:^>^(^^^ 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 7501: '^\?A^LOC11EQU^^DS^^^^^^^Z^^^^A^^^^,CC^^^UPDAT000CALL^0302PUT^^TOCUINOF610310515^^^^^^^^^^^^^^^^^^^^ 1 111 11 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 11 11 1 7701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^ 1: PH^10037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^1015987137371598716000A0148013168A0148013178A01 1 1 1 1 1 1 1 1 201: 48013173D1317213197TJ03824^S12923D1319700079TD0007900074TD1319713187TB05486129441C0007913202J05218TD 1 1 1 1 1 1 1 1 1 1 301: 1589112923TJ05486^J05339^D1589112944TJ14010^13252J14010^13292J05486^J04309^05168D99IZ413222LD0007905 1 1 1 1 1 1 1 1 1 1 1 1 401: 270TJ14784^13222^^^^^D00!?000!?0^G00079BC00!?315892J05455/J14010^13252D1322213252TJ05131^?1373604742 1 1 1 1 1 1 1 1 1 1 1 1 501: D1589701174TJ04309^05175D99IZ413292LD0419805433PD1589801499T^^^^^^^^^^^^^^^^^^^^^^^^NJ05175^,05435J0 1 1 1 1 1 1 1 1 1 1 601: 5410^J14010^13222J05131^J03051^13130J12172^B05535129340C1313013075J05474/D1589112945TB05777129440B05 1 1 1 1 1 1 1 1 1 1 1 1 701: 777129221D1590000!?0XG00079BG13167BND1317702860TS0007902860)0558605598B05777129340D1317213167TA15901 1 1 1 11 1 1 1 1 1 801: 00079J05777^D1590609823TD1591012928TJ05784^W05717129212D1589112930TJ03051^13130B0591013127#C13130130 1 1 1 1 1 1 1 1 1 1 901: 85J05910SC1313012771J05910SJ12172^B0577713130^B0586513129^W0571713126"T13130128112G00034BJ09193UD000 1 1 1 1 1 1 1 1 1 1 1 1001: !000039LJ000?0^T13130128922G00034BJ07416UD000!000039LJ000?0^D1313013120TJ05777^J12172^C1313012581J06 1 1 1 1 1 1 1 1 1 1 1 1101: 499SC1313013085J05717SC1312512862J05929/J12172^C1312513020J05929/J14010^13227J09108^J03051^13130J100 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 64^D1589112921TJ05717^D1295512970LJ05717^W09193129211W0571713121",08075D15891129193J05717^W057171312 1 1 1 1 1 1 1 1 1 1 1301: 4"D1591509823TJ09193^B0664713121^J05717^D1296012970LJ06585^J12172^B0620913125^C1312512902J06308/J121 1 1 1 1 1 1 1 1 1 1 1 1401: 72^C1312512897J06246SW0577713122"C1312512862J05777SJ06246^D1591612921TJ05717^D1302013130TJ03051^1314 1 1 1 1 1 1 1 1 1 1 1 1501: 7J14010^13227J05777^J03051^13130D15891131423J12172^B0639413130^B0719113130@D15891129243D15891129293J 1 1 1 1 1 1 1 1 1 1 1 1 1601: 07416^B05717131420S13142S12929D15891129243J05717^D1591712921TB06554129220D1589112932TS12930S12925J09 1 1 1 1 1 1 1 1 1 1 1 1701: 193^D1321702865TJ06535^D1589112925TD1589112930TB06535129213J05717^D1589112924TJ05717^D1589112920TD15 1 1 1 1 1 1 1 1 1 1 1801: 89112929TJ05717^J03051^13130J12172^C1313012771J06666/J05717^J03051^13130J12172^B0672213130^C13130128 1 1 1 1 1 1 1 1 1 1 1 1 1901: 01J05717SC1313012862J06815SB0685213130^J03051^13130J12172^J06741^C1312513020J06789/J03051^12801J0910 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 8^D1280113130TJ05717^J12172^B0687113125^B0577713122#D1266113130TJ05717^D1591913162TD0007900074TJ0571 1 1 1 1 1 1 1 1 1 1 2101: 7^C1313012611J06983/S13141J05717^D15891131413J03051^13130J12172^S12920D1589112929TC1313012631J05777S 1 1 1 1 1 1 1 1 1 1 1 1 2201: C1313013140J06952/J12172^B0717213130^C1313012842J06983SC1313012621J06983SC1313012611J06970SD15891129 1 1 1 1 1 1 1 1 1 1 1 2301: 20TD1589112929TJ05784^J03051^13130J07068^B0725813135^W0725813132"B0725813135#J03051^13060D1589101498 1 1 1 1 1 1 1 1 1 1 1 2401: TJ05929^J14275^1322713130J12172^C1313012852J07258/J14275^1322712852J12172^C1292115917J08337/D1589112 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 928TD1295012970TB07397129321D0007400039TJ07799^J03051^13020J08398^C1313012990J05717TC1313012975J0571 1 1 1 1 1 1 1 1 1 1 1 2601: 7UC1298013130J07500TC1292115917J08114/B08114129290D1590609823TJ14275^1322713130J12172^C1313012975J07 1 1 1 1 1 1 1 1 1 1 1 1 2701: 579UC1313012990J07579TJ07512^B0751213130-W0764313130"J12172^J07591^J12172^B0761713130^J07512^B077091 1 1 1 1 1 1 1 1 1 1 1 2801: 29251C1292415920S12924J07709/V07709080751C1292115917J09359/C1313012907J13552/J14261^1323213227D13736 1 1 1 1 1 1 1 1 1 1 1 1 2901: 13227TJ07617^D1317200039TB07799129291D1316700039TD0007900044TJ14261^1323713227J11507^B07999131530V07 1 1 1 1 1 1 1 1 1 1 1 3001: 873132322J12119^J07828^J03051^13217C0982315915J09694ST13120124912J07928/S12929B08990129251J14010^132 1 1 1 1 1 1 1 1 1 1 1 1 3101: 27C1323713736J05662SJ15234^132371327713227J07940^T13120124912J08024/S12929V08050132322J12119^J08024^ 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: B09359129281B09359129261NJ08094^B09996129230)08075J11122^J05784^J14275^1322713130J12172^B0828413130^ 1 1 1 1 1 1 1 1 1 1 1 1 3301: W0818113129"W1353213130&J08114^C1313012862J08242/W0811413125"D1308513125TD1302013130TJ08284^B0828413 1 1 1 1 1 1 1 1 1 1 3401: 130^B0750013130-C1313013080J07536TB08466129300J14261^1322712771J14275^1322712771J08398^J15189^132271 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 327712771J15711^1322713292J15189^132271329212771J14261^1323713227J11122^J05662^B08415129213B08398129 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 250S12930J08415^C1292115916J08653SC0982315915J08533SD1295012970TD1589112926TJ07366^J14784^1322713292 1 1 1 1 1 1 1 1 1 1 1 1 3701: C1591713292J08622UD1373613292XA1592113152D1315213217TJ03051^13217J09725^J03051^13060D1589101498TJ085 1 1 1 1 1 1 1 1 1 1 1 1 3801: 68^D1302012970TJ15711^1322713292C1329215926J08717TJ14261^1322712980B08821129451J03051^12771J15214^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 2271327713292J03051^13292J15214^132271328213292J03051^13292J03051^12771S12945D1589112930TJ14275^1322 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 713015J12172^B0885613130^C1313013025J08960SC1313015931J06327SC1312715932J07500/J03051^13055D15891014 1 1 1 1 1 1 1 1 1 1 1 1 4101: 98TJ05777^D0146013130TA1592101460J09836^B09026000?0%J03051^13050D1589101498TD1302012970TJ14261^13227 1 1 1 1 1 1 1 1 1 1 1 4201: 13015J14261^1322712980J14261^1322712980B08429129221J09359^B0916313125^C1312512990J09163TC1312512980J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 09163UJ08114^D1308513130TS12930B05784129212S12929S12920J05693^C1302013124J05717/C1302013125J09328/J0 1 1 1 1 1 1 1 1 1 1 1 1 4401: 5717^C1302013124J05717/C1312513020J05717SB0811413125.C1298013125J09328TJ08114^B05717129341J03051^130 1 1 1 1 1 1 1 1 1 1 1 4501: 40J05717^B0938812970^J14261^1322712970J15711^1322713292D0007913192TS1329213192C1319213202J09465TD158 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 9112922TJ09873^D0007909493TJ14784^13227^^^^^C00?'213162J09524/D0007900074TD1319200079TD0007900034TB0 1 1 1 1 1 1 1 1 1 1 1 4701: 9614000!1^C000!315892J09614/C000!213733J09836SA1593300034J09625^A1592100034D1317713217TS0003413217J0 1 1 1 1 1 1 1 1 1 1 4801: 3051^13217J15234^132271327713292B09707129260S12926J09725^B09836129280S12928J13737^1322713292D1329209 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 764TD1321709765TD1321713227TJ14010^13237J14261^1322712995J03946^1322713207D1590609823TJ14010^13227J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 4010^13237S12925J05784^B09909129231D1589112923TJ03051^13075B08415129213J14261^1323713227J11122^J0997 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 7^J12172^C1313012581J06499SJ03051^13130J09952^J03051^13065J11122^J03051^13070J03051^13267D1589101498 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: TS12925J05784^D1319700034TJ03643^13361,000!0D999R9999R9^G00039BC0003900079J10511UB10210000?1^C000?31 1 1 1 1 1 1 1 1 1 1 1 1 5301: 5936J10186/)000!0D0003900034TJ10088^B10233000?3;B10161000?2#D1589112933TS1590100039A1593300039D13177 1 1 1 1 1 1 1 1 1 1 5401: 13217TS0003913217D1321713421TD000?113429#B10407129330D000?013310LT13310133602G13262BG10346BD10352134 1 1 1 1 1 1 1 1 1 5501: 13TC1594113262J10383UD15891014983S1592100039S12933J10461^B10438999I9#D999I913406TJ10450^D1330413M/1T 1 1 1 1 1 1 1 1 1 1 5601: S1593300039)000!0D0003900034TJ03643^13400D1353013529LDJ10088^B10897129191B10621129231J03824^D1317200 1 1 1 1 1 1 11 1 1 1 1 5701: 029//000'0G00029BC0002901485J10554TW10609014774J03755^PH^15J03755^PHT15D1294312930TD1589112934TD1317 1 1 1 1 1 1 1 1 1 1 1 1 5801: 213197TB10733129441D1319710697TJ14784^13252^^^^^J15711^1325213292S1329213197J10871^A1318213177B10871 1 1 1 1 1 1 1 1 1 1 1 1 5901: 129320S1592112921S12932C0007413736J10871SD1317200029TD00!!0000'0XG00074AG00029BC0007400079J10803TD00 1 1 1 1 1 1 1 1 1 1 1 6001: 02900079TD0007913197TJ14010^13252J12172^J05070^D1594607968TD1594608112TD1594610062TD15947122383J1217 1 1 1 1 1 1 1 1 1 1 6101: 2^J12172^C1313012581J10989/D15947110073C1313012591J11019/B0571713121^J03051^13130C1313012501J10952/D 1 1 1 1 1 1 1 1 1 1 1 1 6201: 15948110073D1595310062TD1595308112TD1595807968TD15959122383S12919J10511^G11505BC1297013020J11188SJ15 1 1 1 1 1 1 1 1 1 1 6301: 214^132271327713292T13292129602J11253SC1293015920J11275/C1292115916J11275/J15189^132271328713020J112 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 75^J15234^132271327713292J15234^132371327713227C1313012631J11327/J03051^13130J15234^132271327713292J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 03051^13292C1322713736J11327/C1313012631J11409/J03051^13130C1323713736J11446SJ03051^12907J11275^C132 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 9212771J11500SJ03051^13020B11500129250D15891129303J11506^G11852BB12051129201D0007911554TJ14784^13227 1 1 1 1 1 1 1 1 1 1 1 6701: ^^^^^D0007911572TT00079000?02G00039BJ11567UC0007900039J11854TC0004400039J11854TB11659000?0;C000?0159 1 1 1 1 1 1 1 1 1 1 1 6801: 32J11677/C1292615920J11567/B11794000?0;B11983000?0%B12008000?0+V11751000?01D000?0000?0^G00039BJ11567 1 1 1 1 1 1 1 1 1 1 6901: ^B11794129290B11794131411B11794000?0#J11854^D1317713217TS0003913217C1323215964J11867/D1589113153TJ11 1 1 1 1 1 1 1 1 1 1 7001: 853^S13153J11847^S1593300039D000?213155TD0003900044TD00'0000'00^G00044BC00'0213155J11835SJ11835UC000 1 1 1 1 1 1 1 1 1 1 1 7101: 7900044J11902UD0007900044TJ11835^C1323213736J11751SJ11567^B11794131411J03051^13045D1589101498TJ11854 1 1 1 1 1 1 1 1 1 1 1 7201: ^D1318700039TD000?0000?0^G13242BC1324213167J11854UD1324213187TJ11526^G12170BJ15234^132321327713227J1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 4261^1323713227J12171^G12261BD1313013135LJ02721^1312512263B1225613122^C1312513000J12301SC1312513005J 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 12371SJ12262^D1596912196TJ12256^D1597412196TJ12256^?1592000034J03051^13125B1219100034FJ02721^1312598 1 1 1 1 1 1 1 1 1 1 1 1 7501: 765A1592100034J12312^B12395131410J03051^13140J03051^13125J02721^1312598766C1312513005J12395/J03051^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: 3125J12191^^^^^^^^^^^^06171^#45306171^#37206034^EOP106327^#60206370^#32106456^#53006921^#45606921^#3 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 9906053^#30606216^#30706499^#30806091^#40206616^#43906983^#38306983^LOC107007^#NME07068^MACS06140^#5 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7801: 2106878^#45906072^#31906585^#42306585^#42706585^#43606585^#45506573^#33406190^#56306647^#48506647^#3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 7106635^COLN06666^NLIT06585^#44806647^#37006710^#42606535^PRD.^09212^^^**09212^^^^/09212^^^^*07191^^ 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 8001: ^^@09108^^^^.09255^^^^&09255^^^^-05777^^^^,^#384^#436^#424^^^^^^^^^^^000000000000000000000000000^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 111111111111111111 111 8101: ^^^^^,^^^^%^^^^@^^^^^^^^^A^^^^0^^^^1^^^^9^LITL^SEQ.^#373^^^^%^^^^;^^^^^^#410^#514^#443MWI^UM3NUVM2-F 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: NMNM^^MI@^^M?A^^^MEND^RECR^^^^/^PRD.^#462^#513^#386^#385^^^**00000^^^^^^^^^^^^^^^^^^^^^MACS00A0STKJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 1 8301: 000^^^^^^^^000000099998?99978400000000^^^^^1999816987PH^25PH^50^^^^^????A000000000000000000000000000 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 00000000^^^^^FINIS^^^^K000010000200003^^^^^^^^^^SECTIONERROR^FILE^NAME%ACDR^NAME+PARAGRAPH#SPEC^NAME 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 8501: ,LITERAL^^^^^^^^^^^^^*CROSS^REFERENCE^DICTIONARY*"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 8601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"B0828413130,J13603 1 11 1 8701: ^^J07727SV13578080751J07763^J14261^1323213227J08024^^C1312013632J08114SJ08181^^#601^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 1 11 1 1 1 8801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00000G00029BD00039 1 1 1 8901: 13999LD1373600039TD000'900034TDW13824999Z6&D00039000!0TD1399900039TJ000/0^C14004000'0J13860/A1400900 1 1 11 1 1 1 1 1 1 9001: 039J13793^A0008900039S1597500039C0003905019J13947UC000?0000'0J13960SS000?500039S1589100038J13882^S00 1 1 1 1 1 1 1 1 1 1 1 9101: 039J13793^D0003914009LD000'0J13793^^^^^^^^^^^^^^^^1400414009G00029BD0003414209LD000'400034TD000!0141 1 1 1 1 1 1 1 1 1 1 1 9201: 94TD13736000!0TJ13737^1419414199C1419913736J14171SD1373614004TD1419900034TD14199S000!500034D000'6999 1 1 1 1 1 1 1 1 1 1 1 9301: R6,G00089BS1589100089D1420900034TJ000'5^1419414199^^^^^^^^^^G00029BD0004414783LD000/400044TDD)144471 1 1 1 1 1 1 1 1 1 1 111 9401: 4636J14324^G00029BJ14288^G00029B)14420D0004414783LD000'900044TD15980D000'4D00'0014742TD000?014763JD0 1 1 1 1 1 1 1 1 1 1 1 1 9501: 00!014747TJ13737^1474714758C1475813736J14661SV1461714763KD1475800029TNJ14446^D000'514763LJ14507^NJ14 1 1 1 1 1 1 1 11 1 1 11 9601: 507^D1476300039TA00039A00039A0003914763C000'514763J14617U,000'1A15981000'5)000'1S000'500029A14763000 1 1 1 1 1 1 1 1 1 1 1 9701: 29,000'1D00?'000?'5TG00039BD14742000?0T)000'1A1598100089A1598114009D1478300044T,14420NJ000/0^,144471 1 1 1 1 1 1 1 1 1 11 1 9801: 4636J000/5^A1589101470D0147014747T,00?'0D1475300?/5L)00?'0D14747000!0LA1598300089J14617^147421474700 1 1 1 1 1 1 1 1 1 1 1 9901: 005'1475814763^^^^^^^^^^^^^^^^^^^^G00029BD0004415128LD000'900039TDD000!015103TJ13737^1510315108C1510 1 1 1 1 1 1 11 1 1 1 1 10001: 813736J15080SD0008900044TD1510800034TS000!500034A1589100044C0003415108J15056SC999R815986J04777/B1501 1 1 1 1 1 1 1 1 1 1 10101: 4999R9^D000!015130LT15130151592G00029BJ04777UD000T1151303J15026^D000!0151303D1513000'003A1598100034J 1 1 1 1 1 1 1 1 1 1 10201: 14898^,00?'1D99Z99000?0X)00?'1D1512800044TJ000/0^1510315108^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT.. 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 10301: GTTMCTRM,^^^[^<^"^]^;^_^^+^:^>^(^^^'^\G00029B,1528015457J15241^G00029B,15477J15241^G00029BD000441571 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10401: 0LD000/400044TDDD000!015685TNJ15299^D1373600'00TJ13737^1568515690C1569013736J15619SV15548000?0KD1569 1 111 1 1 1 1 1 1 1 1 1 10501: 000034LD000?015690JA15690A15690A000?015690C000!515690J15548UD0003400039TS000?500039A1569000039S15981 1 1 1 1 1 1 1 1 1 1 10601: 00039NJ15662^D000?000'00LNJ15548^D000?1999I6,,999R6S15981000!0)999R6J15584VS1598114009S1598100089D15 1 1 1 1 1 1 1 1 1 1 1 10701: 71000044T)1528015457)15477J000/5^D000!1999R1,S1598300089D1373614004TD1571000044TD000'415653/D1373615 1 1 1 1 1 1 1 1 1 10801: 654TJ15560^D00'00000?0TJ15548^1568515690^^^^^^^^^^^^^^^^^^^^G00029BD0003415879LD000'900034TDD000'015 1 1 1 1 1 1 1 1 1 11 10901: 885TJ13737^1588515890C1589013736J15809/D1373615884TJ15839^D1589000029TD000'515885LA15885D15884000!0L 1 1 1 1 1 1 1 1 1 1 1 11001: D1587900034TJ000/0^^^^^^^^^^^015885158901;PH^24Y##B1320700001321223010A00001^#602#C00;1331010959NB05 1 1 1 1 1 111 11 11 1 1 111 111 1 111 1 1 111 11101: 78405662C000001228202721613736515^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1 1 11 11 1 1: PH^15037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^15^^^^^^^^^^^^^^^19000D1664800074TD1665300079TD 1 1 1 1 1 1 1 1 201: 1665800069TJ13640^D1455815092LT15092166302G00034BJ05061/D000!000034TJ000!0^B05149152060J14022^25$N^D 1 1 1 1 1 1 1 1 1 1 1 301: 15243152063J13640^J13640^B0506114558.J13614^J05068^B05225152061J14022^5$NM^B05249152070J14022^26!^^D 1 1 1 1 1 1 1 1 1 1 1 1 401: 15243152073B0528714563.J13614^J05061^J13640^J13640^C1455815108J05061SJ05068^J14022^V6N^^B05362152061 1 1 1 1 1 1 1 1 1 1 1 501: J14022^5$NM^B0538114553.J13614^B05405152080J14022^27!^^D15243152083B0544314563.J13614^J05061^J13640^ 1 1 1 1 1 1 1 1 1 1 1 1 601: J13640^C1455815108J05513ST14558151032J05738SJ14022^V7N^^J05068^J13640^C1455815113J05068/J13640^J1364 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 0^C1455814806J05061SC1455815118J05061SJ05494^J13640^C1524314558J05494TA1524315120C1456314806J05675SJ 1 1 1 1 1 1 1 1 1 1 1 1 801: 13640^B05620145580J05694^J13640^B05707151205S15120J05494^S15120C1456314866J05494/J05061^D15243151213 1 1 1 1 1 1 1 1 1 1 1 901: J13640^C1455814806J05494/J13640^C1455814806J05836SC1590114558A1524315120J05775UJ05694^J13640^C150121 1 1 1 1 1 1 1 1 1 1 1 1 1001: 5120J05694UJ05068^B05892152061J14022^5$NM^B05916152081J14022^7!M^^B05940151220J14022^2KN^^D152431512 1 1 1 1 1 1 1 1 1 1 1 1 1101: 23J13640^B05175151210J14022^V7!^^J05175^B06014152061J14022^5$NM^B06038151230J14022^2-!^^D15243151233 1 1 1 1 1 1 1 1 1 1 1 1 1201: J13640^B0608314558.J13614^J06090^J13640^T14558157632G00034BJ06135/D000!000039TJ000?0^T14558158752J06 1 1 1 1 1 1 1 1 1 1 1 1 1301: 227SC1455814766J06983SC1455814771J08964SC1455814776J06083SJ14022^-V^^^J06083^B06281152091D1524315209 1 1 1 1 1 1 1 1 1 1 1 1401: 3C1455314776J06281SJ13982^W.M^^J13640^C1455814806J06338/J13640^C1455814806J06306/J13640^C1455814796J 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 06450SC1455814801J06450SV0639314554BJ06083^C1456314801J06443SC1456314796J06443SJ06514^J06083^J13640^ 1 1 1 1 1 1 1 1 1 1 1 1601: J13640^J06514^J13640^C1455814796J06450SC1455814801J06450SJ06090^G06558BNJ06553^C1666300074J06560T,06 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 522J06559^D1455800!!5XA1666400074J06553^D1700016987TB06626152090J13982^WI-:^J13640^C1455814806J06670 1 1 1 1 1 1 1 1 1 1 1 1801: SV1697714554BJ06759^J13640^C1455814806J06670/J06626^D1700516987TJ06602^D1701016987TJ06602^D170151698 1 1 1 1 1 1 1 1 1 1 1 1901: 7TJ06602^J14022^-V^^^J06090^B06802151240J14022^2-^^^D15243151243D1702016987TJ06602^B06857151250J1402 1 1 1 1 1 1 1 1 1 1 1 1 2001: 2^2-^^^D15243151253D1702516987TJ06602^J13640^C1455814806J06945/J13640^C1455814806J06913/J13640^V0675 1 1 1 1 1 1 1 1 1 1 1 1 2101: 9145542D1455818993XG06967BJ06083^D15243152103C1455314776J07025SJ13982^W.M^^J13640^J13640^C1455814776 1 1 1 1 1 1 1 1 1 1 1 2201: J07076SJ14022^.M^^^J07083^J13640^C1455814811J07156SC1455814816J08161SC1455814771J08964SB07260152111J 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 16847^B07180152101J14022^8$M^^B07204152110J14022^2%!^^D15243152113J13640^C1455814776J07260SJ14022^.M 1 1 1 1 1 1 1 1 1 1 1 1 2401: ^^^J07267^J13640^C1455814821J07101/C1455314776J07315SJ14022^.M^^^J13640^NJ07390^C1666900079J07361T,0 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 7323J07390^D1455800!A0T,00!A1A1524500079J13640^C1455814826J07434SJ14022^9!V^^J07441^J13640^C14558148 1 1 1 1 1 1 1 1 1 1 1 1 2601: 31J07620ST14558157632G00034BJ07827/D1667099RI43B07521000!2#J13982^W2QR9D16670000!23J13640^C145581483 1 1 1 1 1 1 1 1 1 1 1 2701: 6J07267/J13640^C1455814841J07260SC1455814806J07260SJ13982^9!V^^J07260^D15243152463J13640^C1455814806 1 1 1 1 1 1 1 1 1 1 1 1 2801: J07845/D1667199RI43J13640^T14558151532J07845/J13640^C1667614558J07782TJ13640^C1455814806J07845/J1364 1 1 1 1 1 1 1 1 1 1 1 1 2901: 0^C1455814806J07814/B07795151260S15126J07845^D15243151263J07695^S15126J07540^C1455815142J07864SJ1402 1 1 1 1 1 1 1 1 1 1 1 1 3001: 2^9!<^^J07267^J13640^C1455814806J07944SD1667799RI43B07260151241B07260151251J14022^-M^^^J07260^D16678 1 1 1 1 1 1 1 1 1 1 1 1 3101: 99RI43J13640^T14558151532J07845/D14558151543J13640^C1455814806J08073SC1590114558J08055UC1667915265J0 1 1 1 1 1 1 1 1 1 1 1 3201: 8085UA1524315265J07994^B08098152657S15265J07845^S15265B07260151540J13640^J13640^C1455815154S15154J07 1 1 1 1 1 1 1 1 1 1 1 1 3301: 845/J07994^B08185152101J14022^8$M^^B08209152120J14022^2$N^^D15243152123J13640^C1455814776J08265SJ140 1 1 1 1 1 1 1 1 1 1 1 1 3401: 22^.M^^^J08272^J13640^C1455814846J08333SC1455814851J08658SC1455814771J08964SJ05068^B08357151270J1398 1 1 1 1 1 1 1 1 1 1 1 1 3501: 2^WI0:^B0837614553.J13614^J13640^C1455814806J08432SV0863314554BJ14022^0:V^^J08265^J13640^T1455815190 1 1 1 1 1 1 1 1 1 1 1 1 3601: 2J08482/J13982^WI0:^D1501214558TJ13640^C1455814806J08413/J13640^C1455815205J08413/J13640^C1455814796 1 1 1 1 1 1 1 1 1 1 1 1 3701: J08413/J13640^T1455800!?02G00029BJ08413/B08413999Z9RB08413999Z8AD16680999Z83J08265^C0286014558J08413 1 1 1 1 1 1 1 1 1 1 1 3801: UJ08532^B08682151270J14022^2*?^^B08706152461J14022^*^(^^^'^\G00029BD000391 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 9901: 5002LD000'900039TDD000!014982TJ11854^14982D000?014982TJ11581^1498214987C1498711580J14959SD0003414957 1 11 1 1 1 1 1 1 1 1 1 10001: TD1498700034TD14987S000!500034,000'5D999R600?'0#G00089B)000'5D1504500?'03A1500401470D0147099IZ4TD014 1 1 1 1 1 1 1 1 1 1 1 10101: 7014958TD1500200039TJ000/0^1498214987^^^^^^^^^^^^^^^01778800012000^#4535^#^#394A61158015^Z.^^^'S1502 1 1 1 1 1 111 1 1 1 11 1 11 1 111 1 1111 11 10201: 200044C00'0010324J15046/C99Z9510290J11446/C99Z9010319J11446/C99Z7515041J11424/C99Z7010319J11446/S151 1 1 1 1 1 1 1 1 1 1 1 10301: 6500043J15046^30606022TJ05387^^B09739073800J09722^D15004073803D1500606022TJ05387^^^^^^^^^^^^^^^^^^^1 1 1 1 11 1 1 1 1 1 10401: O1STR0000500000OCCST00005^^^^V^^^^%^^^^1^^^^)VSTRG00020XXXXX00000^WDMK99997^#44899996^#426PH50S00035 10501: 00000CNDST00005'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^21037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^2113211096191307613300J02721^0931804777T0931805 1 1 1 1 1 1 1 1 1 201: 6412G00044BD00'0005078/J05079^J03051^09318J05025^J03051^09318J02721^0947804777J03051^09478J02721^093 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 1804777J03051^09318C0931809603J05140/D12855094043J05642^D0961809373TJ03051^09318C0931809603J05366SC0 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 931809593J05494SJ02721^0931805360C0931809598J05218/J02721^0931804777J10724^0937309318C0931809598J053 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 01/J05266^,05480C0937309618J05479SJ03051^09593J03051^09598J11278^093730933809493J03051^09493C0949309 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 598J05408/J03051^09593J05366^NJ05548^J05266^J02721^0931804777J03051^09318C0931809593J05494/J05266^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 3051^09318W05584014781J03755^PH^22J03755^PHT2205080^05206^#30805099^#39905099^#45605099^#334J02721^0 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 801: 932304777C0932309338J05696SD0932309318TJ05042^J08474^D0932809333TC0932309338J05042/J11233^0934309348 1 1 1 1 1 1 1 1 1 1 1 1 901: 09353J08125^09343J10710^0935809338J10710^0936309353C0933309338J05837SC0933309618J05868/D0936809373TD 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 0933809378TJ05892^D0961809373TD0961809378TJ10710^0944009373J10710^0939309378D0933809398TD0961809403T 1 1 1 1 1 1 1 1 1 1 1 1101: D0933309323TB05993094041J08474^D0932809333TJ11258^093580933809373C0937309618J05715SC0937309323J06769 1 1 1 1 1 1 1 1 1 1 1 1 1201: UJ11278^093580933809373J11278^093630933809435J11278^094400933809430J11278^093930933809425J07619^C093 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 7309338J06195/J07911^0943009383J07513^J05715^J11258^093030933809378C0937809373J06677/J11278^09303093 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 3809373C0930309618J06287/D12855094563J11278^094610933809578J11278^094090933809373J12359^0957809308J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 1233^095780934809435J11233^095780944509403J08125^09578J09892^09578J11233^093130933809435J11233^09313 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 0934809425J11233^093130944509373J11233^093130947209430J03946^0931309558S0933809373D0937309414T@09430 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 09420D0942009378LJ08269^0944009378A0937809403D0940309398TA0933809398D0937309414T@0942509420D09420093 1 1 1 1 1 1 1 1 1 1 1801: 78LJ08269^0939309378J05993^J12359^0957809308J11233^095780934809435J11233^095780944509403J08125^09578 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: J09892^09578J05993^C0932309333J07337UD0936809430TD0933809425TD0935309435TJ08763^J07619^J11233^094670 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 934809353J11233^094670944509398A0936809403J11233^094670947209403J08125^09467B07008094730J07911^09403 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 09383D0947899IZ4TJ03946^0947809563J09892^09478D12855094733D0940309398TA0933809398J08269^0944009368J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 8269^0939309338D0933309323TB05962094620J11233^093130933809353J11233^093130934809338J11233^0931309445 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 09588J11233^093130947209368J03946^0931309558S0933809588J08269^0939309588D0936809414T@0958809420D0942 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 009378LJ08269^0944009378A0937809403D0940309398TA0933809398J11278^094610933809578J05962^B07395094620J 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 10710^0930309323J10710^0940909588D12856094563D0961809373TD0932309373TJ08763^J10710^0935809323J10710^ 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 0939309618J10710^0936309353J10710^0944009618D0933309323TJ05962^G07617BJ12359^0938809483J11755^093880 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 945009383D0943509378TD0937899IZ4TJ03946^0937809488J09892^09378J07618^G07909BJ07911^0943009493J11755^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 094350949809493J12625^095030943509378C0937809618J07800SJ11278^095080937809383J11755^093830949809493J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 03946^0938309455J09892^09383J11278^095030937809383V1287609432KJ07911^0942509493J11755^09435095130949 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 3J09892^09493J03946^0943509613D0943509388TJ09892^09388J07910^G00029BD0004408114LD000'900039TDD000!00 1 1 1 1 1 1 1 1 1 1 1 1 11 3101: 00!1^G00044BB0799900'000J08017^C00'00000!0J08076SA0933800044J07962^,00'00D000!008119XJ10092^08119081 1 1 1 1 1 1 1 1 1 1 1 1 3201: 24D08124000?0T)00'00,999R6D0811400044TJ000/0^^^^^^^^^^^^^^^^^^^^^0000000000G00029BD0003409523LD000'4 1 1 1 1 1 1 1 1 1 1 1 3301: 00034TD000!009528TD0933809533TJ11258^095280953309538C0953809618J08250SJ03051^09538A0933809533J08180^ 1 1 1 1 1 1 1 1 1 1 1 1 3401: D0952300034TJ000'5^G00029BD0003908473LD000'900039TDD000!008453TJ09619^0845308458C0845809618J08430SD0 1 1 1 1 1 11 1 1 1 1 1 1 3501: 845800034TS000!500034C0845800034J08430S,999R6A000?0000!0)999R6A1285700034J08371^D0847300039TJ000/0^0 1 1 1 1 1 1 1 1 1 1 1 3601: 845308458^^^^^^^^^^^^^^^G09070BJ02721^0935304777J02721^0936804777D12855094623J02721^0931804777T09318 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 092982G00044BD00'0008580/J08581^D12856094733J08527^J03051^09318J02721^0931804777J03051^09318J08527^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 02721^0931804777C0931812862J08708SJ10724^0954809318J08649^D0935399IZ4TJ08527^J02721^0958804777D12856 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 094623J08527^G08992BB08801094621B08987094560J08818^J10710^0946109353J12625^093530955309373S093380937 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 3D0933809533TJ10659^093530937309568J11258^094610953309538C0953809618J08965SJ10659^093530937309538A09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 33809533J08885^J10659^093530937309568J08993^J02721^0932804777C0932512863J09065/D0932809318TD09618093 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 28TD12856094043J09071^J10724^0957309318J02721^0931804777J10724^0957309318C0931809298J09089/J10724^09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 57309450J11755^095730945009353J10724^0950309353J10724^0950809573D0961809573TJ08527^08527^08582DPNDO0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 4401: 8601REDEF08649BGNDS08727OCCUR08994^MACS09072^VALU09303ELOCCOCCUR0931809323093280933300001O1ST1000020 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 9353093580936309368093730937809383093880939309398094030094090000000000009425094300943509440000039999 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 4601: 9PH^250094610ABST100004009478O1STRPH^24094939999609503095089999700000000000952809533095380954309548^ 1 11 11 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: WDMKPH^26PH^23^SBSC09573095780000509588^#383^#373^PRD.^COLNPH^5000000G00029BD0003909881LD0961800039T 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: D000'900034TDW09706999Z6&D00039000!0TD0988100039TJ000/0^C09886000'0J09742/A0989100039J09675^A0008900 1 11 1 1 1 1 1 1 1 1 4901: 039S1286400039C0003905019J09829UC000?0000'0J09842SS000?500039S1285600038J09764^S00039J09675^D0003909 1 1 1 1 1 1 1 1 1 1 1 5001: 891LD000'0J09675^^^^^^^^^^^^^^^^0988609891G00029BD0003410091LD000'400034TD000!010076TD09618000!0TJ09 1 1 1 1 1 1 1 1 1 1 1 5101: 619^1007610081C1008109618J10053SD0961809886TD1008100034TD10081S000!500034D000'6999R6,G00089BS1285600 1 1 1 1 1 1 1 1 1 1 1 5201: 089D1009100034TJ000'5^1007610081^^^^^^^^^^G00029B,1023210251J10128^^&^-G00029BD0003910593LD000'90003 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 9TDD0961810577TD0003910188LJ09892^10188A1285601470D01470000?0TD000!0000!0^G00029BNJ10444^A1285600029 11 1 1 1 1 1 1 1 1 1 5401: NJ10518^D000'0106003T10600106582G00039BJ10425UD999G310598TD1059800?'4TA1285700089A1285710577C0002900 1 1 1 1 1 1 1 1 1 1 5501: 034J10239/A1285600088D0147099IZ4TD1057800?'0TD1059300039T)1023210251J000/0^D1060010598TJ10308^V10239 1 1 1 1 1 1 1 1 1 1 5601: 000!02V10487000!0KD1011810598TJ10499^D1012010598TD12865000!02J10308^D000'0106003C1060012866J10425TC1 1 1 1 1 1 1 1 1 1 1 5701: 060012867J10425SJ04777^10577'^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^;^_^^+^:^> 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 5801: ^(^^^'^\G00029BD0004411232LD000/400044TDD)1089611085J10773^G00029BJ10737^G00029B)10869D0004411232LD0 1 1 1 1 1 1 1 111 1 1 1 1 1 1 1 5901: 00'900044TD12872D000'4D00'0011191TD000?011212JD000!011196TJ09619^1119611207C1120709618J11110SV110661 1 1 1 1 1 1 1 1 1 1 1 6001: 1212KD1120700029TNJ10895^D000'511212LJ10956^NJ10956^D1121200039TA00039A00039A0003911212C000'511212J1 1 11 1 1 11 1 1 1 1 1 1 6101: 1066U,000'1A12857000'5)000'1S000'500029A1121200029,000'1D00?'000?'5TG00039BD11191000?0T)000'1A128570 1 1 1 1 1 1 1 1 1 1 1 6201: 0089A1285709891D1123200044T,10869NJ000/0^,1089611085J000/5^A1285601470D0147011196T,00?'0D1120200?/5L 1 1 1 11 1 1 1 1 1 1 6301: )00?'0D11196000!0LA1287400089J11066^111911119600005'1120711212^^^^^^^^^^^^^^^^^^^^G00029B,1132411501 1 1 1 1 1 1 1 1 1 1 1 6401: J11285^G00029B,11521J11285^G00029BD0004411754LD000/400044TDDD000!011729TNJ11343^D0961800'00TJ09619^1 1 1 1 1 1 1 1 111 1 1 1 1 6501: 172911734C1173409618J11663SV11592000?0KD1173400034LD000?011734JA11734A11734A000?011734C000!511734J11 1 1 1 1 1 1 1 1 1 1 1 6601: 592UD0003400039TS000?500039A1173400039S1285700039NJ11706^D000?000'00LNJ11592^D000?1999I6,,999R6S1285 1 1 1 1 1 1 1 1 1 1 6701: 7000!0)999R6J11628VS1285709891S1285700089D1175400044T)1132411501)11521J000/5^D000!1999R1,S1287400089 1 1 1 1 1 1 1 1 1 1 6801: D0961809886TD1175400044TD000'411697/D0961811698TJ11604^D00'00000?0TJ11592^1172911734^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 6901: ^^^^G00029BD0005412358LD000/400044TDDD000!012323TD00'00J09619^1232312328C1232809618J12266SJ09619^123 1 1 1 111 1 1 1 1 1 1 1 1 7001: 1812313C1231309618J12285SD1232800034TD12328S000'500029D1231300049TD12313S00'0500044D00''512308LS1285 1 1 1 1 1 1 1 1 1 1 1 7101: 712308D1230812146/C1231312328J11993U)12101C0002900034J12211SC000'0000?0J12047SA1285700029J11993^,000 1 1 1 1 1 1 1 1 1 1 1 7201: '1D0008900054TA1230800054D00?'000'!0TD0005400089TNJ12130^A1230800049A1230800044,99Z96D99ZZ5000'0T)00 1 1 1 1 11 1 1 1 1 1 7301: 0'199Z96A1230800034A00''500029,000!1A12308000!5)000!1J11993^D0003409891LD000!0D1235800054T,12101D096 1 1 1 1 1 1 1 1 1 1 1 7401: 1809886TJ000/5^D09618000!0TJ12229^D0961800'00TJ12229^1230812313123181232312328^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 7501: ^^^^^^^^G00029BD0003912624LD000'900039TDD000!012604TJ09892^12604D000?012604TJ09619^1260412609C126090 1 1 1 11 1 1 1 1 1 1 1 7601: 9618J12581SD0003412579TD1260900034TD12609S000!500034,000'5D999R600?'0#G00089B)000'5D1287500?'03A1285 1 1 1 1 1 1 1 1 1 1 1 7701: 601470D0147099IZ4TD0147012580TD1262400039TJ000/0^1260412609^^^^^^^^^^^^^^^G00029BD0003912854LD000/40 1 1 1 1 1 1 1 1 1 1 7801: 0039TDDD09618000?0TD000'012834LJ09619^1283412839C1283909618J12811SD1283900029TS000'500029C1283900029 111 1 1 1 1 1 1 1 1 1 7901: J12805SA12856000?0C000'0000!0J12811SA1285700029J12740^S000?0D1285400039TJ000/5^1283412839^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 8001: ^^^^015DESCR#6^Z.0961815'B07880094561J07812^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1111 111111 1 11 1 1 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^RECDXXXXX^MACSO1ST10001599999O1STR00005^ELEMXXXXXYYYYYZZZZZ^MACSABST100025 8301: ELOCCXXXXXYYYYY^MACSELOCC00020XXXXXYYYYYZZZZZAAAAAOCCUR00020'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^22037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^2217765140301680017800J02721^1336604777C1336613 1 1 1 1 1 1 1 1 1 201: 431J05097SC1336613456J07254SJ03051^13366J05025^J02721^1336604777J15599^137911336613211A1643713211J15 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 102^137861321113216D1321600034TJ000!0^J02721^1336604777C1336613601J05188SC1336613406J05260/D13366133 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 46TJ05188^C1336613536J05355/J02721^1336604777C1336613546J05278/J02721^1336604777C1336613546J05313/J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 5097^C1336613666J05278SC1336613546J05295SJ05114^J02721^1336604777C1336613601J05398SC1336613406J05114 1 1 1 1 1 1 1 1 1 1 1 1 601: /D1336613251TJ05097^J02721^1336604777C1336613566J05470SC1336613676J05114/J05097^J02721^1336604777C13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 36613666J05530SC1336613546J05607/J02721^1324604777J05313^C1336613411J05746/J02721^1336604777C1336613 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 546J05746/J02721^1336604777J14568^1373113366J02721^1336604777C1336613546J05677/J02721^1336604777C133 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 6613681J05729SC1336613546J05583SJ05114^D1326113236TJ05097^D1644213216TJ05839^D1644713216TJ02721^1336 1 1 1 1 1 1 1 1 1 1 1 1001: 604777C1336613546J05839SJ14568^1321613366J02721^1336604777J02721^1336604777C1336613546J05839SJ15122^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 132161326113211J03946^1321613124J05114^J02721^1336604777C1336613601J05989SJ15599^138561336613211A164 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 3713211J15102^138611321113216D1321600034TJ000!0^C1336613456J07254SC1336613501J07254SJ05989^J14568^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 77113486J14568^1377113366D1336613146TJ02721^1336604777C1336613546J06295SC1314613451J06259/D133861371 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 6TJ06271^D1338113716TJ14568^1377113716J06590^J02721^1336604777J14568^1378113366J02721^1336604777C133 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 6613546J06312/J15829^1378113241C1324113261J06418TD1326113716TJ06430^D1337613716TJ15122^1378113716137 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 21C1324113261J06477TJ06544^C1372113386J06514/D1352113721TJ06544^C1372113391J06544/D1342613721TJ14303 1 1 1 1 1 1 1 1 1 1 1 1701: ^13781J14568^1377113721J02721^1336604777J14030^1377113211D1321100034TD13366000!0TD1402913771TJ03946^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 1336613286J14303^13366J05989^C1336613706J06709/D16448014763J14568^1377113491J14568^1377113366J02721^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 1335104777C1335113581J06796SC1335113571J07018/J14568^1377113351J02721^1336104777J14568^1373613361J14 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 030^1377113211D1321100034TD13361000!0TJ03946^1336113286D1402913771TJ02721^1336604777C1336613581J0697 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 0SC1336613571J07011/D1336113771TJ15077^137711337113366J06813^J06024^J14568^1377113581D1335113361TJ06 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 830^D1645313921TD1645813876TJ07109^D1646313921TD1646813876TJ02721^1336604777J15077^139211326113366J0 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 3946^1392113886J14303^13921J14030^1387600044D1336600'00TJ03946^1336613286D1402913876TJ14303^13366J05 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 989^?1324613171%1646913171A1644813169D13169132461C1327113386J07329SD1338113271TC1373114029J07359/D13 1 1 1 1 1 1 1 1 1 1 2501: 80613731TJ14030^1373113211D1321100034TD16474000!0TD1647413731TJ07439^13341132461327113231D1647900034 1 1 1 1 1 1 1 1 1 1 1 1 2601: TS1648000034A1648000034D000!007501TJ14568^1379607501C0003416485J07462/J03946^1379613124J14303^13796J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 03946^1373113124J14303^13731J14568^1380113236J03946^1380113124J14303^13801J04309^07643J07624^C133661 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 3501J07891/J03051^13366J02721^1336604777C1336613901J07873/J03051^13366J02721^1316104777J03051^13161J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 02721^1336604777J03051^13366C1336613911J07749SC1336613891J07673/J02721^1336604777C1336613546J07661SJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 14568^1390613161J07661^C1336613456J07661/J03051^13366J02721^1336604777C1336613471J08046SC1336613516J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 08046SC1336613626J08046SC1336613941J08663SC1336613616J08046SC1336613691J08046SC1336613446J07891/J030 1 1 1 1 1 1 1 1 1 1 1 3201: 51^13366C1336613471J08134/J02721^1336604777J14554^1376113366J14554^1376113476J07891^C1336613516J0825 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 5/J02721^1336604777J03051^13366C1336613576J08236SC1336613671J08152/D1326113356TJ07903^D1326113256TJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: 7903^C1336613626J08608/C1318614029J08332SJ02721^1336604777J14554^1376113366J07891^J02721^1336604777C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 1336616490J07891/J03051^13366J02721^1336604777J03051^13366J02721^1321104777J03051^13211J02721^132160 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 4777N^^^^^^^^^^^C1321613446J08551SC1321613616J08551SC1321616495J08551SD1321113366TD1321613211TJ16538 1 1 1 1 1 1 1 1 1 1 3701: ^N1650013366J15077^139161388113366J03946^1391613124J16557^C1336613691J08644SC1336613446J08874/D14029 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 13186TJ07903^J02721^1393604777C1393613546J08663SJ02721^1393104777C1393113546J08752SD13936139303J0876 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 4^D1393613931TJ03051^13941J03051^13546J03051^13931J03051^13546B08843139315B08843139316J07903^D164480 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 32093J07903^J03051^13366J02721^1336612867C1336613421J08933/J02721^1336604777J08891^J03051^13366C1336 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 613496J09078SC1336613686J09078SC1336613631J10920SC1336613696J11759SC1336613586J12020SC1336613436J123 1 1 1 1 1 1 1 1 1 1 1 4201: 17SC1336613606J12536SJ08874^D1402913296TD1402913156TJ02721^1336604777J15599^137261336613211C13211140 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 29J09199/J15599^137361336613211C1321114029J09216SJ14568^1374113491J14568^1374113366J02721^1336604777 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: J15599^138111336613211C1321114029J09119/C1336613421J09400SC1336613591J09400SC1336613601J09369SC13362 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 16501J09119/J09431^D1326113156TD1402913296TJ09455^D1402913296TD1402913156TJ09455^D1326113296TD140291 1 1 1 1 1 1 1 1 1 1 4601: 3156TJ15599^137411370113211C1321114029J09586SS1643713211J15102^137411321113216C1321613651J09564SC132 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 1216501J09586SJ14503^137411321113466J16009^137411326113306J16192^133061371110010C1371113556J09880/D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 330113331TJ15102^137411333113336J15599^138461333613326C1332614029J09822SJ15102^138511332613211J15077 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: ^137411333113211D1333113211TS1643713211J15122^137411321113721S1643713301C1333613701J09608/S164371333 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 1J15077^137411333113561J09608^C1371113531J09945/D1330113211TS1643713211J14568^1374613211J09608^C1371 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 113651J09608/D1330113211TS1643713211J14568^1376613211J09608^C1374614029J10748SC1376614029J10748SJ160 1 1 1 1 1 1 1 1 1 1 1 1 5201: 09^137461326113306J16192^133061371110360D1371113211TS1643713211J10068VJ15102^137411321113221C1321716 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 501J10068SJ15077^137411371113656D1330113211TS1643713211J15122^137461321113721D1321113301TJ16009^1376 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 61326113316J16192^133161371610068C1371613711J10308TJ10261^D1331113211TS1643713211J15122^137661321113 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 721J10068^J15122^137461326113171J15122^137661326113181C1374614029J10748SC1376614029J10748SC131811317 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 1J10382UD1317113211TA1650213211C1321113181J10360/J15122^137411317113721D1318113211TS1643713211J15122 1 1 1 1 1 1 1 1 1 1 1 1 5701: ^137411321113721J10583^1374613766D1650700034TS1648000034A1648000034D000!010640TJ16009^10640132611330 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 6J16192^133061371110730S1643713711D1330113211TS1643713211D1064010730TJ15077^107301321113711J10651^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 4303^13746J14303^13766J16009^137411326113306J16192^133061371110853C1371113416J10794SJ03051^13711J107 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 94^J14303^13741C1315614029J08862/C1329614029J08891/J03051^13366J09078^J02721^1316104777J13942^13196J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: 15599^137561316113176C1317614029J11168/J13942^13201J13942^13206D1402913151TJ11052^131611320113206140 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 29D1651200034TS1648000034A1648000034D000!011114TJ14568^1375611114C0003416517J11075/J15829^1375613176 1 1 1 1 1 1 1 1 1 1 1 1 6301: S1651813176J11299^J11190^132011320613151D1652300034TD1317613211TS1648000034A1648000034A1643713211D00 1 1 1 1 1 1 1 1 1 1 1 1 6401: 0!011280TJ15102^137561321111280C0003416528J11225/J03051^13161J03051^13196J02721^1336604777C133661364 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 1J11323SC1336613511J11491/J15599^137611316113291S1650213291J15102^137611329113321J02721^1314104777J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 3051^13541J03051^13321J03051^13141J11323^J15599^139061316113211C1321114029J11550SJ03051^13896J08891^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: C1336613461J11662/C1315114029J11638/D1317613211TA1651813211J15077^137561321113386J11662^J13942^13201 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: J13942^13206J03051^13646J03051^13196J03051^13201J03051^13206C1336613461J08891/J03051^13201J03051^132 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 06J08862^J02721^1332104777J02721^1336604777C1336613481J11852/J02721^1314104777J02721^1336604777J1186 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: 4^D1332113141TJ15599^137611332113211J16009^137611321113306J16192^133061371111977C1371113476J11908/J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: 5102^137611330113161J11977^J03051^13161J03051^13481J03051^13141J08891^A1643713266J02721^1319104777C1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: 319113596J12132SC1319113506J12132SJ03051^13366J02721^1336604777W1208413362"J12262^J02721^1336604777C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 1319113506J12186/D1381613776TJ12198^D1384113776TJ03051^13366J14568^1377613366J02721^1336604777C13362 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 16501J12198/C1336613506J12298SC1336613596J08891/D1336613191TJ12132^J02721^1316104777J02721^133660477 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 7J03051^13161C1336613526J12400/D1382613776TJ12430^C1336613551J12499/D1383113776TJ14568^1377613161C13 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: 36613551J12482/J02721^1336604777J02721^1336604777C1336216501J08891SD1336613161TJ12334^J02721^1316604 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 777J03051^13166D1402913226TJ02721^1336604777C1336613661J12631/J03051^13366J12577^C1336613681J12695/J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7801: 03051^13366J02721^1322604777J02721^1336604777C1322614029J12737/D1316613226TJ03051^13681J13942^13276J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 03051^13276J14568^1375113276J14030^1375113211D1321100034TD13226000!0TD1402913751TJ03946^1322613124J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8001: 4303^13226J08891^J14568^1383613266J14568^1382113256J14568^1382113356J03946^1383613124J03946^13821131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 24J15829^1381613196C1319613261J12998SA1644803032J03946^1381613281J03946^1381613124J03946^1382613281J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: 03946^1383113281J03051^13366B13101132361A1326101498W13125014782J03755^PH^23J03755^PHT230000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8301: 00000000000000000000000000000000000010000000000000000000000000000000000000000^MACS0000000000^^^^2000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 000000000001000000000000000PH^24PH^5000000000000000000000000000000000000000000000000000^^^^300000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: 000000000000000000000300002^^^^0^^^^1^^^^2^^^^3^^^^4^#178^#535^#459^#384^^^^@^#540^#327^#196^#399^#1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 76^#307^#470^^^^#^#334^#409^#475^HDR1^HDR2^#352^#320^#478^#479^#415^^^^#^#482^^^^%^#544^#378^NLIT^#4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 83^#386^#356^#547^#548^#425^#530^#326^#385^#484^PRD.^#372^#197^#308^#198^RECD^#328^#199^#436^RLNK^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: ^)^SBSC^#443^#448^#532^#504^#453^#500^#456^#329^#362^#170000000000000000CNDST00000000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8901: 00000000000000000000000000000000CFASTCFCSTCTLSTENVSTFVHSTIFKSTINPSTLBLSTLCKSTNORSTOPNSTOUPSTRELSTREV 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9001: STSPCSTSPASTDKST1DKST2ADDST00004PH^61^#601^DLNK^#563RANST^#537SGMSTIOCSTIOSST^^^^^^^^^^^#438G00029BD 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 0003414024LD000'400034TA1643701460D01460000!0TD1402400034TJ000'5^^^^^^^^^^^00000G00029BD0003914292LD 1 1 1 1 1 1 1 1 1 1 9201: 1402900039TD000'900034TDW14117999Z6&D00039000!0TD1429200039TJ000/0^C14297000'0J14153/A1430200039J140 1 11 1 1 1 1 1 1 1 9301: 86^A0008900039S1652900039C0003905019J14240UC000?0000'0J14253SS000?500039S1644800038J14175^S00039J140 1 1 1 1 1 1 1 1 1 1 1 9401: 86^D0003914302LD000'0J14086^^^^^^^^^^^^^^^^1429714302G00029BD0003414502LD000'400034TD000!014487TD140 1 1 1 1 1 1 1 1 1 1 1 9501: 29000!0TJ14030^1448714492C1449214029J14464SD1402914297TD1449200034TD14492S000!500034D000'6999R6,G000 1 1 1 1 1 1 1 1 1 1 1 9601: 89BS1644800089D1450200034TJ000'5^1448714492^^^^^^^^^^G00029BD0004415076LD000/400044TDD)1474014929J14 1 1 1 1 1 1 1 1 1 111 1 9701: 617^G00029BJ14581^G00029B)14713D0004415076LD000'900044TD16534D000'4D00'0015035TD000?015056JD000!0150 1 1 1 1 1 1 1 1 1 1 1 9801: 40TJ14030^1504015051C1505114029J14954SV1491015056KD1505100029TNJ14739^D000'515056LJ14800^NJ14800^D15 1 1 1 1 1 1 1 11 1 1 11 1 9901: 05600039TA00039A00039A0003915056C000'515056J14910U,000'1A16535000'5)000'1S000'500029A1505600029,000' 1 1 1 1 1 1 1 1 1 1 1 10001: 1D00?'000?'5TG00039BD15035000?0T)000'1A1653500089A1653514302D1507600044T,14713NJ000/0^,1474014929J00 1 1 1 1 1 1 1 1 11 1 1 10101: 0/5^A1644801470D0147015040T,00?'0D1504600?/5L)00?'0D15040000!0LA1653700089J14910^150351504000005'150 1 1 1 1 1 1 1 1 1 1 1 10201: 5115056^^^^^^^^^^^^^^^^^^^^G00029B,1516815345J15129^G00029B,15365J15129^G00029BD0004415598LD000/4000 1 1 1 1 1 1 1 1 1 1 1 10301: 44TDDD000!015573TNJ15187^D1402900'00TJ14030^1557315578C1557814029J15507SV15436000?0KD1557800034LD000 111 1 1 1 1 1 1 1 1 1 1 10401: ?015578JA15578A15578A000?015578C000!515578J15436UD0003400039TS000?500039A1557800039S1653500039NJ1555 1 1 1 1 1 1 1 1 1 1 10501: 0^D000?000'00LNJ15436^D000?1999I6,,999R6S16535000!0)999R6J15472VS1653514302S1653500089D1559800044T)1 1 1 1 1 1 1 1 1 1 1 1 10601: 516815345)15365J000/5^D000!1999R1,S1653700089D1402914297TD1559800044TD000'415541/D1402915542TJ15448^ 1 1 1 1 1 1 1 1 1 10701: D00'00000?0TJ15436^1557315578^^^^^^^^^^^^^^^^^^^^G00029BD0003915828LD000/400039TDDD14029000?0TD000'0 1 1 1 1 1 1 1 1 111 1 10801: 15808LJ14030^1580815813C1581314029J15785SD1581300029TS000'500029C1581300029J15779SA16448000?0C000'00 1 1 1 1 1 1 1 1 1 1 1 10901: 00!0J15785SA1653500029J15714^S000?0D1582800039TJ000/5^1580815813^^^^^^^^^^^^^^^G00029BD0003415997LD0 1 1 1 1 1 1 1 1 1 1 1 1 11001: 00'900034TDD000'016003TJ14030^1600316008C1600814029J15927/D1402916002TJ15957^D1600800029TD000'516003 11 1 1 1 1 1 1 1 1 1 11101: LA16003D16002000!0LD1599700034TJ000/0^^^^^^^^^^^01600316008G00029BD0004416191LD000/400044TDDD000!016 1 1 1 1 1 1 1 1 1 1 111 11201: 166TJ14030^1616616171C1617114029J16120/D1402900'00TD14029000!0TJ16143^D000!000'00X?000?099Z95D161910 1 1 1 1 1 1 1 1 1 1 1 11301: 0044TJ000/5^1616616171^^^^^^^^^^^^^^^^^^^^G00029BD0004416436LD000/400044TDDD000!016401LJ15829^164011 1 1 1 1 1 1 1 111 1 1 1 11401: 6406C1640614029J16366SD999R516411JC1640616411J16366UJ15102^164011641116416D16416000?0TA16437999R5D16 1 1 1 1 1 1 1 1 1 1 1 1 11501: 43600044TJ000/5^D0004416395/D1643600044TJ16396^16401164061641116416^^^^^^^^^^^^^^^^^^^^ADKST2DKST11I 1 1 1 1 1 1 1 1 1 11 1 11 11601: OSSTSEKSTIOCSTADDST2DRGST07423E07438A0STK^RECD00001^B105771103611051C1117911189614029515J03051^13216 1 1 1 11 1 11 1 1 1 111 1 1 11 1 11 11 1 1 11701: J08437^D1321613366TJ07920^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 11901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^0^^^^0FVHST00015^LOC1CTL^^CTLST00010ENVST 12001: ENVST00005LABELLBLST00005OPNSTOPNST00005^#211^#212^#307^#320^#564^#318^#537^#544^#363^#319CFCST00050 12101: 0509705827058080725407254051880539805470055300578905989CFAST00055^#478INPST00005^#484OUPST00005^#482 12201: LCKST00005^#483NORST00005^#355^#356^#358^#357^^^^#RELST00025^#605^#606^#199^#198^#200^#201^#196^#176 12301: ^#190^#189^#185^#177^#170^#187^#174^#175SPCST0008006098070850705406141061410614106141061410614106679 12401: 06679066790667906679066790667906679SPAST00085SGMTLENGTH^OPND^^^^^^MACSSGMST00025^^^^X0000000000^WDMK 12501: ^^^^1^#448^^^^8^#426^^^^X^^^^%^^^^8^^^^)ADDST00060^^^^90000000000^WDMK^^^^1^#448^^^^4^#426^^^^9^^^^% 12601: ^^^^4^^^^)SEKST00060^#356^#355^GREQ^LSEQ^#356REVST00025^^^^#^#361^#356^^^^%^^^^)^^^^&^^^^-^^^^*^^^^/ 12701: ^^^**^#358^#357^#505^#516^#362^#393^#394^#392^#359^#360^#514^#459^#386^HDR2^#509^#519IFKST0013000000 12801: DKST10000500000DKST20000500000^LOC1EQU^^^OPNDIOCSDSKAD^^MACSIOCST0003500000^LOC1EQU^^^OPNDIOCSSEKAD^ 12901: ^MACSIOSST00035'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^23037810485004850^^^^^^^^^^^^^^ 1: D1319613116TJ06388^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^2318080143071730018100J04309^05044J05025^J02721 1 1 1 1 1 1 1 1 1 201: ^1325111956J16261^136261325113151A1709913151J15764^136311315113156D1315600034TJ000!0^D17100138303J02 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 721^1313611956J02721^1312611956C1312613496J05484SC1312613426J05503SC1312613421J05521SC1312613401J055 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 39SC1312613406J05539SC1312613436J05164/J15230^1370613136J02721^1325111956C1325113361J05448/D13196137 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 573J15230^1370613251C1325113361J05411/A1319613707B05435137074J02721^1325111956J05353^S13707J05550^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 5230^1371213136J05550^D1319613722TD17100132563J05574^A1710113827J05574^A1710213827J05574^A1710013827 1 1 1 1 1 1 1 1 1 1 1 701: B05574137571B05591131246J02721^1325111956J16261^136711325113151A1709913151J15764^136761315113156D131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 5600034TJ000!0^J02721^1325111956J15230^1357613251J02721^1325111956C1325113361J05682/J05574^J02721^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 11111956C1311113366J05795/D1430613111TJ05574^J02721^1311111956J02721^1325111956J05574^?1710313151J02 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 721^1321111956A1709913151C1315117108J05847/J02721^1325111956C1325113361J05893/J05574^J15216^13576131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 26J16491^1357613151D1314613186TS1315113186D1313613151TJ14307^1315113156C1315614306J06102SJ15230^1361 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 613136J14780^1361613136J15230^1361613176J14580^13151C1318614306J06155SJ15230^1357614306S1709913186J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 6102^J15230^1357613111C1321114306J06202/D1328113211TJ15230^1357613211D1430613211TD1430613111TJ14307^ 1 1 1 1 1 1 1 1 1 1 1 1 1401: 1357613151D1315100034TD13136000!0TJ15764^131361319613151C1315113496J06388/J15764^131361327113151C131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 5113276J06376/J04850^N116TD1319613722TJ14259^13136J14580^13136J05061^J02721^1325111956C1325113396J06 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 419SC1325113461J06604SC1325113471J06515SC1325113456J06837SJ06419^J02721^1325111956W0651513248"D13251 1 1 1 1 1 1 1 1 1 1 1 1 1701: 125223J02721^1325111956D13251125233D17100137883J06419^J02721^1370111956B0667413697^J02721^1325111956 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: J02721^1325111956J06743^J02721^1370111956J02721^1325111956J02721^1325111956C1325113466J06691SJ15230^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 1376713701J14307^1376713156D1315606811TD1710913247TD1325106812TJ03946^1325113431J06419^J14307^136161 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 3151D1315100034TC0003414306J06920SD1711413616TD17114000!0TJ14259^13616J15784^137061319613151J03946^1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 370613431J03051^13316J14002^13541B07014138300J13964^12451J07026^J13964^12291J14002^13546J13964^12321 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: B07081138301D17115014763J07894^J15764^135511327113181C1318114306J07139SC1311614306J07253SJ13964^1247 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 6C1311614306J07211SJ13964^12501C1318114306J07241/J13964^12306C1318114306J07241/J13964^12876J13964^12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 321C1318114306J07330/J15764^135961327113151C1315113196J07318TJ07330^J13964^12916B07894138300J14307^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 373713151C1315114306J07388SA1711713827J14307^1374213151C1315114306J07434SA1711713829B07457137220A171 1 1 1 1 1 1 1 1 1 1 1 1 2601: 1813827B07480131160A1711813829C1382717120J07656SJ13964^12631D1712500034TA1712600034B07644000!00)0761 1 1 1 1 1 1 1 1 1 1 2701: 8J17156^^0!0J07522UJ07582T,07618D000!507616TS000!013827J13964^07616NJ07522^J13964^12306J07522^J13964 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: ^12321C1382917120J07711SD1382913827TS13829J13964^12651J07510^C1325614306J07894SJ13964^13006J15764^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 6811327113191J15764^136811369613691C1319114306J07821SC1369114306J07894SJ13964^13031C1319114306J07870 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: SJ13964^13046J07882^J13964^13076J13964^13101J14307^1370613151C1315114306J08288SJ16491^1373713747J164 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 91^1374213752A1374713752D13752137683J15739^137621314613772J14002^13762J14307^1371213151C1315114306J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: 8074/J13964^12721J08288^C1375714306J08111SJ13964^12771J08123^J13964^12846J16671^137121319613231J1685 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 4^132311351108288J16261^135861351113151C1315114306J08145SN1375217201J15739^137771314613772J14002^137 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: 77J14002^13782J13964^12806J14002^13787J14580^13626J14580^13631J14580^13671J14580^13676J14580^13541J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 4580^13546J14580^13551J14580^13596B0843703209^J13964^12571J13964^12611J03946^1344113451B08461137880J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 13964^12536C1318114306J08510/B08522014760J14002^13621J08522^D17115014763J03051^13311J03051^13181J030 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 51^13251J02721^1325111956C1325113416J08546/J03051^13251D1325113161TJ02721^1325111455C1325111811J1172 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 3SC1325113411J08749SC1325113341J09483SC1325113301J08805SC1325113321J08786SC1325113501J09483SJ08593^C 1 1 1 1 1 1 1 1 1 1 1 1 3901: 1315717127J08593SD1348613251TJ08593^D1329613251TJ08593^J02721^1320111956J02721^1325111956C1325113491 1 1 1 1 1 1 1 1 1 1 1 1 4001: J08911/D1319613241TJ02721^1325111956C1325111811J11723SJ08979^D1430613241TC1321614306J08960/D13641136 1 1 1 1 1 1 1 1 1 1 1 1 4101: 06TJ09102^D1364613606TJ09102^C1324614306J09053/C1321614306J09034/D1365113606TJ09102^D1365613606TJ091 1 1 1 1 1 1 1 1 1 1 1 4201: 02^C1321614306J09090/D1366113606TJ09102^D1366613606TJ16671^136061319613231J16854^132311351608593D135 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 1600034TJ000!0^J09124^J15784^132161319613521D1319609217TJ09416^00000J15784^132461319613521D143060921 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 7TJ09416^J03051^13301J03051^13201J09124^D1320113151TJ15784^131511319613521C1352114306J09124SJ15230^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 351113521J09290^D1351113216TJ09397^D1351113246TD1430613511TJ09124^C1352114306J09124SJ03051^13481J030 1 1 1 1 1 1 1 1 1 1 1 1 4601: 51^13521C0921714306J09218SJ09172^J14580^13601J14580^13591D1430613236TJ03051^13251J02721^1325111956C1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 325113371J09519SD1430613131TJ15230^1358113251J02721^1325111956C1324717127J09578/J16261^1363613251131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 51C1315114306J09578/C1325113291J09736SC1325113386J09736SC1325113371J09736SD1319613131TJ15764^1358113 1 1 1 1 1 1 1 1 1 1 1 1 4901: 19613141C1314113336J17202/J15784^135811319613521J10688^J14580^13536J14580^13526J09871^13321133761334 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 613351133261333113411D1713200034TS1713300034A1713300034D000!009933TJ16261^135810993313221C1322114306 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: J09975/C0003417138J09894/C1322113196J10000TJ10057^J15784^135811319613521J15230^1353613521S1709913221 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: J09975^C1322113196J10109/J15784^135811319613121D1430613221TD1358113526TD1430613581TC1353614306J10489 1 1 1 1 1 1 1 1 1 1 1 1 5301: SJ13831^13536C1314113371J10222/J15784^135361319613521J03051^13521J10133^C1314113336J10271/D135361358 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 1TD1430613536TJ10688^C1314113411J10397/C1318613196J10338/J03051^13141J14580^13536J10489^C1316613476J 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 10489SJ03051^13141J15784^135361319613521J10133^C1316613476J10489/J16261^135361348613151C1315114306J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 0489/J15784^135361318613521D1319613266TJ13831^13526C1314113411J10578/C1316613476J10578SJ15784^135261 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 319613521D1319613171TJ10489^C1316613476J10688/C1314113411J10688SJ16261^135261348613151C1315114306J10 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 688/J15784^135261318613521D1319613261TC1358114306J10735SJ16671^135811319613231J11353^C1353614306J108 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 43SC1352614306J10843SD1353613601TD1430613536TD1312113236TD1430613121TD1352613591TD1430613526TC135361 1 1 1 1 1 1 1 1 1 6001: 4306J10979/J15764^135261327113151C1315113391J11255SC1315113356J11255SC1315113286J11255SC1315113381J1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: 1255SJ14780^1361113601J11008^J14780^1361113536J14580^13536C1326614306J11055SJ15230^1361113476D143061 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 3266TC1312114306J11097/J15230^1361113236J11166^J15230^1361113121C1312113411J11154/J15784^13526131961 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 3121D1430613121TC1317114306J11213SJ15230^1361113411D1430613171TC1352614306J11255/J14780^1361113591J1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 1284^J14780^1361113526J14580^13526C1326114306J11331SJ15230^1361113476D1430613261TJ16671^136111319613 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 231J16854^132311320111394J03051^13201J11353^J14580^13611J14580^13581C1313114306J09519SD1430613131TJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 8652^C1324614306J11529SC1321614306J11510SD1355613606TJ09102^D1356113606TJ09102^C1321614306J11566SD13 1 1 1 1 1 1 1 1 1 1 1 6701: 56613606TJ09102^D1357113606TJ09102^J15784^132461319613521C1352114306J11668SJ03051^13481J03051^13521J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 03051^13396J11585^J03051^13251J11687^W11711014784J03755^PH^24J03755^PHT24G11805BS1714011805J03051^11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 811J02721^1325111812J03051^13251C1325111811J11753/J11806^^#383D1180511847LJ03854^11843J03904^^^^^^-- 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: STATEMENT^INCOMPLETE^AFTER^ENTER"STATEMENT^INCOMPLETE^AFTER^^^^^^^^^^^^^"RUN^DISCONTINUED--SEE^DIAGN 1 1 7101: OSTIC"T00029122762G11987BJ11994UD1199311921TJ03854^11923J03643^11883J03904^MACHINE^ERROR^--^RESTART^ 11 1 1 1 1 1 1 1 1 1 7201: ENTIRE^RUN^^^^"IF09602IF09538PROC.^NAME08876PROC.^NAME08829PROC.^DIV.08812DATA^DIV.08565PRIORITY0590 1 1 1 1 1 1 1 7301: 0PRIORITY05854ALTERNATE05819RESERVE05802RESERVE05748SELECT05706SELECT05672DEVICE05581SELECT^^^05171S 1 1 1 1 1 1 1 1 1 7401: ELECT05154FILE-CONTROL05051^LOC1ORG^^ORGST00010^^^^,CMAST00005^MACSMACST00005^^^^T^^^^A^^^^P^^^^ETAP 1 7501: ST00020READE^^^^RRDRST00010PUNCHPNCST00005PRINT^^^^E^^^^RPRTST00015^LOC1DIOCS^MACSDIOCSORG^^^OPNDDOC 7601: ST00030FEATURES^^^OPNDFETST00015CHANN^^^^E^^^^LCHNST00015CHECKPOINT^OPND^^^^^^MACSCHKST00025NORCDEXI 7701: T^^OPNDNORE$^MACSNORST00025DISKOPTION^OPNDSINGLERCD^^MACSDOPST00030CHAN1^OPNDCH1ST00010CHAN2^OPNDCH2 7801: ST00010^^^^1^^^^3^^^^0^^^^1DISKT00020PROCESTYPE^OPNDSEQUENTIAL^MACSSEQST00030PROCESTYPE^OPNDRANDOM,S 7901: EQUENTIAL^^^^MACSRSQST00040STKINDEX^^^OPNDX11^^^MACSSINST00025PROCESTYPE^OPNDRANDOM^^^^^MACSRANST000 8001: 30OVERLAP,PRIORITY^^^^OVPST00020PRIORITY^^^OPNDNONOVERLAY^MACSPRNST00030IODEVICES^^OPNDIODST00015ALT 8101: DRIVE^^^OPNDYES^^^MACSRWDOPTION^^OPNDUNLOAD^^^^^MACSLIEST00055LABELDEF^^^OPNDLBDST00015MIXEDMXDST000 8201: 05STAND^^^^A^^^^R^^^^DSTDST00020,IDENT^^^^^MACSCIDST000150000000000000000000000000000000000000004000 1 1 1 1 1 1 1 1 1 8301: 0000000000000000000000^MACS0000000000000000000100000000000000000000000000000000000000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 0000000000000000000002^^^^2^^^^9^#392^#384^ASGN^COLN^#399^EODS^EOST^^^^#^#357^GREQ^HDR2^#352^#358^LS 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: EQ^#360^NLIT^#483^#386^#356^#394^#385^#359^PRD.^#200^#201^^^^%^#308^#198^#199PH^24^#601INCST^#561PH^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 61^#307^#321^#565^#566^^^^)^PRET^SBSC^#443^#504^#500^#456000000000000000000000000000000CTLSTDRGSTENV 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: STEJST1EJST2EJST3EJST40000000000INPST00000OPNST00000000000000000000INQSTCTCSTCTASTIFKSTPFST1PFST2PFS 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: T3PFST4PFST5PFST6SLCSTSLASTLBLST00001000000000300000DSKST0RNDSTSCRST000000000000000DKST1DKST20000000 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 8901: 00000000ARMSTXXXXX^^^^^RDPSTSTKSTSGMST0137931612681812351412371212386112411000000G00029BD0002913963T 1 1 1 1 1 1 1 11 1 1 11 11 11 11 11 1 11 1 9001: D000'413867TD1387313958TJ15764^139581319613141J16491^1395813186J15764^139581318613166D1396300029TJ00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 0'5^1395800000G00029BD0004414248LD000'414258TJ14062^G00029BD0004414248LD000'400034TD000!014253TJ1430 1 1 1 1 1 1 1 1 1 1 1 9201: 7^1425314258C1425814306J14198SD1425800044TD14258S00'0500044C1430114306J14138SA1714200039C0003900044J 1 1 1 1 1 1 1 1 1 1 1 1 9301: 14198SD00'0014258LJ03051^14258A1713300044J14138^D1430614301TD1424800044TJ000'5^^^^^^^^^^^^^^^^^^^^^0 1 1 1 1 1 1 1 1 1 1 9401: 000000000G00029BD0004414248LD1319614301TJ14021^0000000000G00029BD0003914569LD1430600039TD000'900034T 1 1 1 1 1 1 1 1 1 1 1 9501: DW14394999Z6&D00039000!0TD1456900039TJ000/0^C14574000'0J14430/A1457900039J14363^A0008900039S17126000 11 1 1 1 1 1 1 1 1 1 9601: 39C0003905019J14517UC000?0000'0J14530SS000?500039S1710000038J14452^S00039J14363^D0003914579LD000'0J1 1 1 1 1 1 1 1 1 1 1 1 1 9701: 4363^^^^^^^^^^^^^^^^1457414579G00029BD0003414779LD000'400034TD000!014764TD14306000!0TJ14307^14764147 1 1 1 1 1 1 1 1 1 1 1 9801: 69C1476914306J14741SD1430614574TD1476900034TD14769S000!500034D000'6999R6,G00089BS1710000089D14779000 1 1 1 1 1 1 1 1 1 1 9901: 34TJ000'5^1476414769^^^^^^^^^^G00029BD0004415164LD000'900039TDD000?015139TJ14307^1513915144C15144143 1 1 1 1 1 1 1 11 1 1 1 1 10001: 06J15037SD1514400044TD15144S000?500039D000!015139TJ14307^1513915144C1514414306J14959SC0004415144J149 1 1 1 1 1 1 1 1 1 1 1 1 10101: 59U,15092NJ15056^C000?017147J15056/A1714800039C0003900044J14959/)1509214960D15139000!0TD1516400044TJ 1 1 1 1 1 1 1 1 1 1 1 10201: 000/0^,14960D000?015144LJ15230^1513915144NJ15106^J14985^A1714800044A1714800039J14985^0000000000^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: ^^^^^^^^^^^^^^^G00029BD0004415738LD000/400044TDD)1540215591J15279^G00029BJ15243^G00029B)15375D000441 1 1 1 111 1 1 1 1 1 1 10401: 5738LD000'900044TD17153D000'4D00'0015697TD000?015718JD000!015702TJ14307^1570215713C1571314306J15616S 1 1 1 1 1 1 1 1 1 1 1 10501: V1557215718KD1571300029TNJ15401^D000'515718LJ15462^NJ15462^D1571800039TA00039A00039A0003915718C000'5 1 1 11 1 1 11 1 1 1 1 1 10601: 15718J15572U,000'1A17148000'5)000'1S000'500029A1571800029,000'1D00?'000?'5TG00039BD15697000?0T)000'1 1 1 1 1 1 1 1 1 1 1 1 10701: A1714800089A1714814579D1573800044T,15375NJ000/0^,1540215591J000/5^A1710001470D0147015702T,00?'0D1570 1 1 1 1 11 1 1 1 1 1 1 10801: 800?/5L)00?'0D15702000!0LA1715500089J15572^156971570200005'1571315718^^^^^^^^^^^^^^^^^^^^G00029B,158 1 1 1 1 1 1 1 1 1 1 1 10901: 3016007J15791^G00029B,16027J15791^G00029BD0004416260LD000/400044TDDD000!016235TNJ15849^D1430600'00TJ 1 1 1 1 1 1 1 111 1 1 1 11001: 14307^1623516240C1624014306J16169SV16098000?0KD1624000034LD000?016240JA16240A16240A000?016240C000!51 1 1 1 1 1 1 1 1 1 1 1 11101: 6240J16098UD0003400039TS000?500039A1624000039S1714800039NJ16212^D000?000'00LNJ16098^D000?1999I6,,999 1 1 1 1 1 1 1 1 1 1 11201: R6S17148000!0)999R6J16134VS1714814579S1714800089D1626000044T)1583016007)16027J000/5^D000!1999R1,S171 1 1 1 1 1 1 1 1 1 1 1 11301: 5500089D1430614574TD1626000044TD000'416203/D1430616204TJ16110^D00'00000?0TJ16098^1623516240^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 11401: ^^^^^^^^^^^G00029BD0003916490LD000/400039TDDD14306000?0TD000'016470LJ14307^1647016475C1647514306J164 1 1 1 111 1 1 1 1 1 1 11501: 47SD1647500029TS000'500029C1647500029J16441SA17100000?0C000'0000!0J16447SA1714800029J16376^S000?0D16 1 1 1 1 1 1 1 1 1 1 1 11601: 49000039TJ000/5^1647016475^^^^^^^^^^^^^^^G00029BD0003416659LD000'900034TDD000'016665TJ14307^16665166 1 1 1 1 1 1 1 11 1 1 1 11701: 70C1667014306J16589/D1430616664TJ16619^D1667000029TD000'516665LA16665D16664000!0LD1665900034TJ000/0^ 1 1 1 1 1 1 1 1 1 1 11801: ^^^^^^^^^^01666516670G00029BD0004416853LD000/400044TDDD000!016828TJ14307^1682816833C1683314306J16782 1 1 1 1 1 1 111 1 1 1 1 1 11901: /D1430600'00TD14306000!0TJ16805^D000!000'00X?000?099Z95D1685300044TJ000/5^1682816833^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 12001: ^^^^G00029BD0004417098LD000/400044TDDD000!017063LJ16491^1706317068C1706814306J17028SD999R517073JC170 1 1 1 111 1 1 1 1 1 1 1 12101: 6817073J17028UJ15764^170631707317078D17078000?0TA17099999R5D1709800044TJ000/5^D0004417057/D170980004 1 1 1 1 1 1 1 1 1 1 1 12201: 4TJ17058^17063170681707317078^^^^^^^^^^^^^^^^^^^^A142?0000BDVARST016800137896^09840E098703E1?^^^^051 1 1 1 1 1 1 111111 11 11 11 1 111 11 1 1 1 11 12301: 430615D1712017199TD000!017199TC1382717199J07562^0002J15764^135811327113141C1314113336J09805/J15784^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12401: 35811327113521J10688^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^#536^#563^#307CTCST0001505044064190513506837CTAST 1 1 1 1 12501: 00020^#536^NLIT^#561^#551^#563^#307SLCST0003005574059350566505741058360593505935SLAST000350925909290 12601: 09366PFST1000150916509172092590929009366PFST200025092590929009385PFST3000150916509172092590929009385 12701: PFST4000250916509218092900938509259PFST50002509165091720916509218092900938509259PFST600035^^^^#^#355 12801: ^#356^^^^%^^^^)^^^^&^^^^-^^^^*^^^^/^^^**^#358^#357^LSEQ^GREQ^SBSC^#505^#516^#362^#393^#394^#392^#359 12901: ^#360^#514^#459^#361^HDR2IFKST0013509165091720916511585EJST1000200916511585EJST200010091650917211649 13001: EJST30001511668EJST400005INQUIRY^^^^LOC1^^^^^^OPNDINQEXIT^^^^MACSINQST00040^LOC1INCLD^OPNDNORE$^MACS 13101: INCST00025DISKARMS^^^OPND^^^^^^MACSARMST00025RNDMDEPTH^^OPND^^^^^^MACSRDPST0002500000DSKST00005STKAR 13201: EA^^^^OPNDA0STK^MACSSTKST00025'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^24037810482604826^^^^^^^^^^^^^^ 1: V09683091711J18778^CHKPTB04903129081J16148^1251912809J16148^1251912858J07125^J03051^12809J06665^B073 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 8112908^J16702^125191307912958J07350^J13654^13084J13654^04849J08972^^^^^^^PH^2419035156041900019100J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 15561^12079J04309^05102J17800^1306313335J03576^13256J15561^12494J15883^13063J13337^05114J04309^05133 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: J05114^J13654^13063J02721^1306304777C1306313069J05133/J02721^1298804777J02721^1306304777T13063111762 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: G00034BD000!005250TJ05251^D18529128213J02721^1290304777J02721^1306304777T13063112322G00034BD000!0053 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 34TJ05335^J02721^1297804777J02721^1297804777J05281^J02721^1306304777J02721^1306304777J16148^12524130 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 63J02721^1306304777C1306313058J05411/J02721^1293304777J05281^J02721^1297304777J02721^1297304777J0528 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 1^J02721^1306304777C1306313175J05528SD1560312958T,05812C1306313155J05630/D1853405783TD1853905805TJ05 1 1 1 1 1 1 1 1 1 1 1 1 801: 672^C1306313200J05298/D1854405783TD1854905805TJ02721^1306304777J02721^1306304777C1306313058J05900SC1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 306313125J05900SC1306318554J05772/D18555130633J16148^0578313063A1855612958C0581012958NJ05833^J05772/ 1 1 1 1 1 1 1 1 1 11 1 1001: J05528^J05689TJ02721^1306304777C1306313058J05528SC1306313125J05528SJ05840^D1112513063T)05812J05772^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 27291288812893128981287312983D1856100034TJ05985^A1856200034D000!006030TD1290312958TJ16702^1295813079 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 06030C0003418567J05974/B06092127276W0616312978"D1311012978TJ06163^W0611612978"D1283812978TC128731283 1 1 1 1 1 1 1 1 1 1 1301: 3J06140/A12819A1287312819D1283312873TJ17179^127341290312958B0621612958^D1316012928TJ06228^D131851292 1 1 1 1 1 1 1 1 1 1 1 1 1401: 8TJ17179^132201290312958B0628112958^D1317013008TJ06346^J17179^132251290312958B0633412958^D1273913008 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: TJ06346^D1560313008TJ17179^127441290312529B0650012529^D1560312908TA1855612529J16682^127441252913023A 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 1855612529J16148^1250413023J16682^127441252913023C1302313053J06425/J06512^D1307912908TJ17179^1323012 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 90312958B0656512958^D18529128223J06577^D18568128223J02721^1291304777J02721^1291304777J03051^13145C12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 72912784J06677/J15271^12858J04850^12809J03051^12858B0712512908^J16148^1251913130B0674212930#J16148^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 251913110J06929^C1293313135J06929/J17800^1252412968J15883^12524D1560312878TD1296812878TJ17800^129131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 2968D1560312918TD1296812918T?1287813095%1291813091D1560312958TD1308912958/J18147^1295812524D13190129 1 1 1 1 1 1 1 1 1 1 2101: 33TJ17415^1251912524J16148^1251913130B07041127276B07059129284C1287312833J07017/B0705912933^B07059128 1 1 1 1 1 1 1 1 1 1 1 1 2201: 221B07059128231C1272918571J11317TJ15271^12938C1287312833J07328SJ16148^1251913120J15271^12948J07328^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 16148^1251913215B07211127276J17800^1252412968S1857212968J15883^12524J18147^1296812524J17415^12519125 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 24J16148^1251913215J15271^12938J15271^12948C1287312833J07328SJ15271^12943J15271^12953J16148^12519131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 20B04922127276J04934^.58B0738112958^J03051^12958J07328^J03051^13150J07440^12938129431294812953130531 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 31951291313205D1857700034TJ07470^A1856200034D000!007504TD000!007517TB0751807505^J03051^07517C0003418 1 1 1 1 1 1 1 1 1 1 1 2701: 582J07459/D1858707582TD1283312963TA1307912963J16682^129131296312958B0762412958^J03051^12958J07560^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 3051^13205J02721^1306304777J03051^13063B07689128201B08188128211D18588128203J02721^1306304777J10847^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 07828^D18588128213J02721^1306304777C1306313048J07744SC1306312749J07744SJ07718^J02721^1299804777J0774 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 4^C1306313255J07804SC1306313195J08122/B07960128211J03051^13145J03051^13043B0794812998^J03051^13255J0 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 3051^12998D1560312998TJ03051^13053J02721^1299304777J08055^^EOFADDR^^^^LOC1^OPND99999^MACSEOFST00030J 1 1 1 1 1 1 1 1 1 1 3201: 15561^12454J04826^^3051^12794J03051^13063J03051^12993J03051^13205D1859807582TD18529128203J07548^J030 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 51^13063J02721^1306304777C1306313053J08122/J03051^13063J07689^J15561^11409J13654^12903J15561^12109A1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: 859912766J13654^12769)09171J15561^11439B08360127275J08379UB08341127298J08322UJ15561^12614J08984^J155 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 61^12579J08984^J15561^12594J08984^J13654^12774J08391^J13654^12779J17179^127341290312958W0845612958"J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 15561^11474B08984127275J08480^J15561^11454B04963127275J13654^13084J17179^127241290312958A1307912958J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 16682^127241295812963C1296313058J08590SJ15561^12639,09171J08751^J15561^12664)0870809171J15561^12689A 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 1307912958J16682^127241295812963C1296313058J08695SJ13654^12963J08625^J13654^13053NJ18705^A1307912958 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: J15561^12714,08708J08625^B08835129787B08854129788B08835129781B08854129782J18797^N^^^^^^^^^D129681292 1 1 1 1 1 1 1 1 1 1 1 4001: 3TJ08866^D1860412923LJ08866^D1860912923LD1292312444TA1861412923D1285812424TJ15561^12434J16148^128481 1 1 1 1 1 1 1 1 1 1 1 1 4101: 2923J16148^1284812819D1307912819TS12923J09170^J13481^13255J15561^11504J13654^12938C1287312833J09050S 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: J13654^13084J13654^12948J13654^13053C1298812833J09116/J15561^11529J13654^12983J13654^13053B091701290 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 8^C1861912729J09158UD1560312933TB0924512933^NJ09269^J15561^11554B0922112908^J15561^11574J09233^J1556 1 1 1 1 1 1 1 1 1 1 1 1 4401: 1^11604J13654^13053B09269127276B0965312933^J15561^11629B0931212908^J13481^12913J09324^J13481^12504J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 5561^11659B08025127276C1293313190J09512/J17800^1252412968J15883^12524D1296812958TJ17800^1291312968D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 560313003TD1296813003TD1295813089T@1300313095D1309512958LD18568129582J18147^1295812524B09569129081J1 1 1 1 1 1 1 1 1 1 1 4701: 7800^1252412968J18864^^968J18147^1296812524W0960012933"J13481^12913J09641^J17415^1301312524J13481^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 013J15883^13013J13654^13053W0968312933"C1287312833J09829SB0973812908^B18977129284B09726128230J09738^ 1 1 1 1 1 1 1 1 1 1 1 4901: B0978112822^J15561^11684J13654^12913J09817^J15561^12454B0982912883^J15561^11709J13481^12883J13654^13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 053B09859127299C1272912764J09939/J15561^11734C1288812833J09908/J13654^13105J09920^J13654^12888J13654 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: ^13053J10426^B09965127275J09984UJ10426^J15561^11759J09996^J15561^12209D1297812955LT12955113162G00039 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: BD000?010050TJ15561^10050J13654^13053B10426127276J15561^11784J13654^12888J13654^12893C1289812833J101 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 53SJ15561^11814J13654^12898J13654^13053C1297313210J10353/J15561^11894C1250915603J10232/J15561^12559J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 10256^J13481^12509J15883^12509C1292813185J10329/J13654^13084B1031712514^J13481^12514J10329^J15561^12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 539J13654^13053J15883^12514B1042613008^J15561^11919C1300813170J10414/J15561^11944J10426^J15561^11964 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: D1290312853TD18620128493J16702^128531307912958B1074512958^B1053912954AJ15561^12159D12958128593J13654 1 1 1 1 1 1 1 1 1 1 1 1 5701: ^12863J10733^J15561^12184J13654^12958J13654^13053J18797^N^^^^^^^^^?1296812958NA1284312958B1064512978 1 1 1 1 1 1 1 1 1 1 1 11 1 5801: 5?1862512868J10656^?1863012868S12825J10680^A1852912825S1295812868V1066912868BN^^^^^J15561^12134J1365 1 1 1 1 1 1 1 1 1 1 1 1 5901: 4^12828J13654^13053J15883^12504J15883^12913J18927^12519J15883^12524J15883^12883D1560312983TD12983129 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 78TDDDDDDDDDDDJ07689^G11012BT13063110542G00039BJ11007UD000?011012TC1272912784J11007/NJ11007^C1306313 111111111111 1 1 1 1 1 1 1 1 1 6101: 145J10942S,10911J18895^12814J16702^128481307912958J03051^12958V11007128482J10954^J11013^"05252^#3340 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 6201: 7732^#39907732^#45611055^#308J03051^13063J02721^1306311109C1306313048J11067SJ11055^J03755^PH^25^^^^B 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 0000305197"05252^#33407732^#45607732^#39911055^#30805281"05336^#43805377^#39605487^#41505528^#455059 1 1 11 1 1 1 1 11 1 1 1 1 6401: 55^PRD.11984^112024^212004^312044^412234^512259^612279^712299^812324^9123491012374111239912G11392BJ1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 6148^1251913165J15354^12883J17415^1251912883J16148^1251913165J11393^^^LOC1DTF^^DTFST00010^MACSFILETY 1 1 1 1 1 1 1 1 1 1 1 1 6601: PE^^^OPNDFTPST00020INPUTINPST00005OUTPU^^^^TOUPST00010^MACSIOAREAS^^^^OPNDIOAST00020PRIORITY^^^OPNDP 6701: RIST00015RECFORM^^^^OPNDRCFST00015BLOCKED^^^BKDST00010BLOCKED,VARIABLE^^^^BLVST00020SIZEREC^^^^OPNDS 6801: ZRST00015^MACSBLOCKSIZE^^OPNDBKZST00020WORKAREA^^^OPNDWKAST00015INDEXREG^^^OPNDREGST00015CARDPOC^^^^ 6901: OPNDCDPST00015MODEPAR^^^^OPNDMDPST00015CHANDRIVE^^OPNDCHDST00015^MACSALTTAPE^^^^OPNDALTST00020TYPELA 7001: BEL^^OPNDSTANDARD^^^MACSCHECKLABEL^OPNDIDENT^MACSHEADER^^^^^OPNDTYPST00070REWIND^^^^^OPNDRWDST00015U 7101: NLOAD^^^^^MACSUNLST00015NORWD^MACSNORWT00010MOVE,EVEN^MVEST00010MOVE,ODD^^MVOST00010LOAD,EVEN^LDEST0 7201: 0010LOAD,ODD^^LDOST00010AUTOCODER^^LOC1RUN^^^MACSAUTST00025^MACSPREFIX^^^^^OPNDPREST00020NRECORDS^^^ 7301: OPNDNRCST00015PADDING^^^^OPNDPADST00015SCRAMBLE^^^OPNDSCMST00015FILEFORM^^^OPNDFFMST00015MOVE,SINGLE 7401: ^^^^MRCST00015LOAD,SINGLE^^^^LRCST00015MOVE,TRACKMTKST00010LOAD,TRACKLTKST00010MOVE,CYLINDER^^MCLST0 7501: 0015LOAD,CYLINDER^^LCLST00015MOVE,NOADDRESS^MTNST00015LOAD,NOADDRESS^LTNST00015HOLDAREA^^^OPND00000^ 7601: MACSHARST00025^^^^^^MACSHSZST00010^LOC1PST^^^MACS^LOC1LOAD^^MACSLDPST000300000^0000^0000^0000^0000^0 1 1 1 1 1 1 7701: 000^000^^ZROST00005BBBBBBBBBBBLANK00010READE^^^^RRDRST00010PUNCHPNCST00005PRINTER^^^PRTST00010RANDOM 1 1 7801: ^^^^^MACSRNDST00015SEQUENTIAL^MACSSEQST00015FILESTART^^OPNDFILST00015FILEND^^^^^OPNDFENST00015DSKST0 1 1 7901: 0000INPST^#483VARST^PRD.^#504^#199^#198?I^^^TAPE,DISK,^#601^#602^IROP^^^^X^#561^#HLD^#ORG0000100^000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11111 8001: ^^^00000^^^^500038HLDST^^^^^^^^^^^^^^^000000000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 00^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^0000^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: ^^20000000002^#456^#443^MACS^NLITJOBST'^EODS^EOST00001^^^^,0000000000000010^^^^0^^^^1^^^^3^ALT1^^^^@ 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 8301: ^BFOP^#538^ELEM^#334^GNOP^#305^#478^IROP^#482^#424^#425^#484^#436^RECD^#465^#448^#532^VRBLLCKSTNORST 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: OCCSTDTCSTDTASTFDCSTFDASTREDEF^^^^^^^^^^^^^^^JOB^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 8501: ^^^^^^^^^^"G00029BD0002913480LD000'413474TJ02721^1306304777C1306313074J13440SD1305900?'0,G00089BS185 11 1 1 1 1 1 1 1 1 1 1 8601: 5600089J13368^J02721^1306304777D1348000029TJ13475^00000G00029BD0003915038LD000'400034LD000!015043TJ1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 5604^1504C1504HC1504815603J13635SD1504800039TS000?500039D000?015053LJ13654^1505CA1856200039C00039150 1 1 1 1 1 1 1 1 1 1 1 8801: 48J13582UD1503800039TJ000'5^G00029BD0003915088LD1509300039TD000'400034LJ14993^B1485715132TB142651513 1 1 1 1 1 1 1 1 1 1 8901: 3TC000!015058J14814SC000!018635J13977SC000!015063J13801/D1864000039TJ13977^C000!015068J13838/D186450 1 1 1 1 1 1 1 1 1 1 1 9001: 0039TJ13977^C000!015073J14515SC999R918649J13918/C1865400039J14653SJ14603UD000!0151C83J13966^C1865900 1 1 1 1 1 1 1 1 1 1 1 9101: 039J14783SJ14733UA1857200039D000!0151C8TA1855600039D0003915093TD1508800039TJ000'5^G14178BC1515415128 1 1 1 1 1 1 1 1 1 1 9201: J14968/)14516B1411815158@B1408215158&B1408215158-J14968^D15158151372D18660151583D1866115134TB1416115 1 1 1 1 1 1 1 1 1 1 9301: 143^D1515215121LD1510715152TJ14173^D1510715121LJ14179^G14263BD18662152187J03576^15138D18664152187D15 1 1 1 1 1 1 1 1 1 1 1 9401: 21715216LA1866601475D0147515142TJ14264^D1866715133TB1441715136TB1446615135TD18660151C8TJ14577SC18672 1 1 1 1 1 1 1 1 1 9501: 000!0J13977SJ14180^D18660151583D1512115152TD1512815154TC000!015073A1855600039J14523SJ13856^D18667151 1 1 1 1 1 1 1 1 1 1 9601: 36TJ14180^D15126151593A1855600039J14345^D1866715135TJ14180^D1512615163TA1856200039J14345^NJ14577^,14 1 1 1 1 1 1 1 1 1 11 1 9701: 516D1866015138XB1457715134ND1866715134TD15137151C72J14180^D1867700039TJ13977^D000!0151263D1867815136 1 1 1 1 1 1 1 1 1 9801: TJ14008^D18660151C8TJ14702^C000!018672D000!0151C83J14702SD18660151C93J14008^D1864500039TD1866115133T 1 1 1 1 1 1 1 1 1 1 9901: J13977^D000!015126TD1866115135TJ14008^D18660151C8TJ14702^D000!0151D2TD18660151D33J14695^D1866115132T 1 1 1 1 1 1 1 1 1 1 10001: D1864500039TD1867915143TJ13977^C000!015058J14919SC1868400039J13899TD000!0151C83J14180^J14814^C186450 1 1 1 1 1 1 1 1 1 1 1 10101: 0039D1866715132TJ14577UD1856815143TJ14584^D1513115136T,14516J14577^D0147515142TD1866713697TJ13697^^^ 1 1 1 1 1 1 1 1 1 1 1 10201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^#383^LOC1^OPND^MACS^^^^^^^^^^^^^^^00005^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 10301: ^DCNNNNNNNN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 111111 1 10401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"G00029BD0003415353LD000'400034TA1855601460D01460000!0TD 11 1 1 1 1 1 10501: 1535300034TJ000'5^^^^^^^^^^^G00029BD0003915560LD000'400034TA1855615545C1554518687J15524SJ18147^15545 1 1 1 1 1 1 1 1 1 1 10601: 13033J16682^130331303813018C1301818692J15493/J16702^130331303813018D13033000!0TD1556000039TJ000'5^D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10701: 8529128233J15414^X00^^^^^^^^^^^^^^^G00029BD0003915038LD000'415048TJ13559^0000^G00029BD0003915872LD15 1 1 1 1 1 1 1 1 1 1 1 10801: 60300039TD000'900034TDW15691999Z6&D00039000!0TD1587200039TJ000/0^C15877000'0J15727/A1588200039J15660 1 11 1 1 1 1 1 1 1 10901: ^A0008900039S1869300039C0003905019J15814UC000?0000'0J15833SS000?500039S1852900038J15749^D1560300039T 1 1 1 1 1 1 1 1 1 1 11001: J15660^D0003915882LD000'0J15660^^^^^^^^^^^^^^^^1587715882G00029BD0003416082LD000'400034TD000!016067T 1 1 1 1 1 1 1 1 1 1 1 11101: D15603000!0TJ15604^1606716072C1607215603J16044SD1560315877TD1607200034TD16072S000!500034D000'6999R6, 1 1 1 1 1 1 1 1 1 1 1 11201: G00089BS1852900089D1608200034TJ000'5^1606716072^^^^^^^^^^G00029BD0004416656LD000/400044TDD)163201650 1 1 1 1 1 1 1 1 1 1 111 11301: 9J16197^G00029BJ16161^G00029B)16293D0004416656LD000'900044TD18698D000'4D00'0016615TD000?016636JD000! 1 1 1 1 1 1 1 1 1 1 1 1 11401: 016620TJ15604^1662016631C1663115603J16534SV1649016636KD1663100029TNJ16319^D000'516636LJ16380^NJ16380 1 1 1 1 1 1 1 11 1 1 11 11501: ^D1663600039TA00039A00039A0003916636C000'516636J16490U,000'1A18699000'5)000'1S000'500029A1663600029, 1 1 1 1 1 1 1 1 1 1 1 1 11601: 000'1D00?'000?'5TG00039BD16615000?0T)000'1A1869900089A1869915882D1665600044T,16293NJ000/0^,163201650 1 1 1 1 1 1 1 1 11 1 11701: 9J000/5^A1852901470D0147016620T,00?'0D1662600?/5L)00?'0D16620000!0LA1870100089J16490^166151662000005 1 1 1 1 1 1 1 1 1 1 1 11801: '1663116636^^^^^^^^^^^^^^^^^^^^G00029B,1674816925J16709^G00029B,16945J16709^G00029BD0004417178LD000/ 1 1 1 1 1 1 1 1 1 1 1 1 11901: 400044TDDD000!017153TNJ16767^D1560300'00TJ15604^1715317158C1715815603J17087SV17016000?0KD1715800034L 111 1 1 1 1 1 1 1 1 1 12001: D000?017158JA17158A17158A000?017158C000!517158J17016UD0003400039TS000?500039A1715800039S1869900039NJ 1 1 1 1 1 1 1 1 1 1 1 12101: 17130^D000?000'00LNJ17016^D000?1999I6,,999R6S18699000!0)999R6J17052VS1869915882S1869900089D171780004 1 1 1 1 1 1 1 1 1 1 12201: 4T)1674816925)16945J000/5^D000!1999R1,S1870100089D1560315877TD1717800044TD000'417121/D1560317122TJ17 1 1 1 1 1 1 1 1 1 1 12301: 028^D00'00000?0TJ17016^1715317158^^^^^^^^^^^^^^^^^^^^G00029BD0003917414LD000/400039TDDD15603000?0TD0 1 1 1 1 1 1 1 1 111 1 12401: 00'017394LJ15604^1739417399C1739915603J17371SD1739900029TS000'500029C1739900029J17359SA18529000?0C00 1 1 1 1 1 1 1 1 1 1 1 12501: 0'0000!0J17371SA1869900029J17294^D15603000?0TD1741400039TJ000/5^1739417399^^^^^^^^^^^^^^^G00029BD000 1 1 1 1 1 1 1 1 1 1 1 12601: 4417799LD000'900039TDD000?017774TJ15604^1777417779C1777915603J17672SD1777900044TD17779S000?500039D00 1 11 1 1 1 1 1 1 1 1 1 12701: 0!017774TJ15604^1777417779C1777915603J17594SC0004417779J17594U,17727NJ17691^C000?018692J17691/A18699 1 1 1 1 1 1 1 1 1 1 1 1 12801: 00039C0003900044J17594/)1772717595D17774000!0TD1779900044TJ000/0^,17595D000?017779LJ16148^1777417779 1 1 1 1 1 1 1 1 1 1 1 12901: NJ17741^J17620^A1869900044A1869900039J17620^0000000000^^^^^^^^^^^^^^^^^^^^G00029BD0004418144LD000'90 1 1 1 1 1 1 1 1 1 1 1 13001: 0039TDD000!018119TJ15604^1811918124C1812415603J18096SD0008900044TD1812400034TS000!500034A1852900044C 11 1 1 1 1 1 1 1 1 1 1 13101: 0003418124J18072SC999R818704J04777/B18030999R9^D000!018146LT18146184992G00029BJ04777UD000T1181463J18 1 1 1 1 1 1 1 1 1 1 13201: 042^D000!0181463D1814600'003A1869900034J17914^,00?'1D99Z99000?0X)00?'1D1814400044TJ000/0^1811918124^ 1 1 1 1 1 1 1 1 1 1 1 1 13301: ^^^^^^^^^^^^^^^^^^^^^G00029BD0003918463LD000'900039TDD1560318447TD0003918214LJ15883^18214A1852901470 1 1 1 1 11 1 1 1 1 13401: D01470000?0TD000!0000!0^G00029BA1852900029D000'0184703T18470185282G00039BJ18424UD999G318468TD1846800 1 1 1 1 1 1 1 1 1 1 13501: ?'4TA1869900089A1869918447C0002900034J18257/A1852900088D0147099IZ4TD1844800?'0TD1846300039TJ000/0^D1 1 1 1 1 1 1 1 1 1 1 13601: 847018468TJ18318^18447'^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^;^_^^+^:^>^(^^^' 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 13701: ^\112509131001251411130^^^^^BA05929E05954^202D0740407439129130A0STK129932028000216500031^#201D022030 1 11 1 1 1 1 111 11 11 11 1 1 11 1 11 1 1 1 11 1 13801: 2838^#4100001500020^^^^0007000066@T"^^1?N^^^^@00005Y*00071X06^^^^0615603515^^^J15561^08019J08751^^J1 1 1 1 1 1 1 1111 1 11 1 111 1 1 11 11 1 1 1 1 11 13901: 6702^125191307912958B1890712958^J03051^12958J18725^B09781129081J09683^G18838BB1884012933^J17800^1252 1 1 1 1 1 1 1 1 1 1 1 1 1 14001: 412968J00000^J17800^1291312968J18833^B09552127276A1857212968J09552^^B1872512908^J03051^12814J10954^^ 1 1 1 1 1 1 1 1 1 11 1 1 1 1 14101: B18957129081C1272912784J10781SJ15883^12519J10781^^V09781091711J09738^^^^^^MACSWLRADDR^^^^OPNDWLRCDRE 1 1 1 1 1 1 11 1 1 14201: DEF00025'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^25037810485004850^^^^^^^^^^^^^^ 1: D14950054102D14950108683J05957^&J11385^08584J15089^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1 1 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^2516183111121520316200J03051^05232J11385^05197J 1 1 1 1 1 1 1 1 1 1 201: 04309^05140D99IZ405197LJ12204^051970520205192T05192108982G00044BD00'0005131TJ05132^J05037^J03051^052 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 07W05176014788J03755^PH^26J03755^PHT26051920519700001^EOP1052120521799999AUTOCENDPR05237052420^VALU0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 401: 52530525805263^#448^#426^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^054100000005420^#459^#505^^^^905440^#3620000 1 1 1 1 1 1 1 1 1 601: 000054570000205467VALST0547700003^^^^X^^^^%^^^^)^^^^0^#514^^^^+^^^^^055220552705532^#414^#442^^^^V05 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 552^^^^.0556200^#4140G08413BD1111108439TD08439DDJ12204^051970520205237J11385^05242J13285^05197052480 1 1 111 11 1 1 111 1 1 1 1 1 1 1 1 1 801: 5217D14944052433A0520205217J12204^051970521705253J12204^051970521705258J12204^051970521705263J13285^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 051970526805217A0520205217J12204^051970521705212C0521205273J05840SJ11650^0524205212J05776^J13981^052 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 4205405J11385^05242D1111105410TD0540505410TJ12204^051970521705212C0521211111J05945/D0541005263TJ0488 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 2^^8584J11636^0858405237J12184^051970520205212C0521214949J06143/J12204^051970520205212J13695^0521208 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 554J12159^052120520205237J10899^0541005217J12681^052120522205217J11385^05217J09733^0521205227J13285^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 051970994405212C0521211111J06800SA0520205212J12204^051970521205217C0521705425J06315/A0520205212J1138 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 5^05527J12204^051970521205217B0638205214NJ11650^0552705217J06257^T05217086252G00029BJ08396/D000'0052 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 12TJ13695^0552705212D1111105212TD99IZ908509LA08509?0850808509D14950085092D0541008504TS0520208504J116 1 1 1 1 1 1 1 1 1 1 1 1601: 36^0552708655J11650^0552708655J13695^0853908549A0520201460J12159^085390520201460J12681^0853905222055 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 27J11636^0853905517J09733^0853905227J13695^0853908494J12159^085390851401460J12159^085390851901460J12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 159^085390847408504J12159^085390847908509A0520201460J12159^085390520201460J12159^085390852401460J126 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 81^085390522208584J09733^0853905227NJ07754^J08396^J11385^08579J11385^05522D1495205564TJ13285^0519705 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 56905217C0521711111J06952SA0520205217J12204^051970521705212B06940052122D14953055633J06952^D149530556 1 1 1 1 1 1 1 1 1 1 1 1 2101: 43J13285^051970524805217S0520205217J12204^051970521705212C0521211111J06985/J12204^051970520205217J13 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 695^0552205197J11385^05197J13515^0552208630C0525305435J07220SC0541008630D0541008424TJ07153UD08630084 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 24TD0863008429TD0541008434TB07772055640D0842408429TD0842408434TJ07772^J13961^0552205405J14464^054050 1 1 1 1 1 1 1 1 1 1 1 1 2401: 5522D0540505405^G08464BD1495808630TS0846408630D14950086302J13285^055220555708564C0856411111J07367/D0 1 1 1 1 1 1 1 1 1 1 1 1 2501: 863008564TJ07411^J12204^055220856405217S0520208564S0520208630?0863008449J15003^^449S0526308449J07543 1 1 1 1 1 1 1 1 1 1 1 1 2601: VV0748108449K?0844908439J07572^!0844908439A0844905410?0541008454?0863008459!0843908434J07616^?054100 1 1 1 1 1 1 1 1 1 1 2701: 8454?0863008459J07616^?0541008454S0844908630?0863008459!0843908429C0845408459J07652T?0845408424J0766 1 1 1 1 1 1 1 1 1 1 2801: 3^?0845908424S0520208424S0842408429S0842408434,06786D1496305217TA0520208424A0520208429A0520208434J06 1 1 1 1 1 1 1 1 1 1 2901: 315^)06786B07111055641C0842411111J08396SS0520208424S0520208429S0520208434J13695^0853908559A052020146 1 1 1 1 1 1 1 1 1 1 1 3001: 0J12159^085390520201460J09733^0853905227J11636^0552208655J11650^0552208655J13695^0853908549A05202014 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 60J12159^085390520201460J12681^085390522205522J09733^0853905227C0525305435J08055/J13695^0853908640J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: 8072^J13695^0853908499J12159^085390853408424J12159^085390864501460S0520201460J12159^085390865001460A 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 0520201460J12681^085390863508584D14964084292J10899^0842905217J11636^0857901460J11650^0857905222J1268 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: 1^085790522205217J12681^085390522208579D14964084342J10899^0843405217J11650^0858405222J12681^08584052 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 2205217J12681^085390866508584J09733^0853905227J11385^05522J08414^00005084240842908434000000001900000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 0000000000000000003800009000150003400029FIGBRMOVEB0850408509000200004000036FIGEN000080853908544FIGST 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: DCW77EQUST08564085699999608579085840858908594^NINES^#505ZEROS^#362QUOTE^#5140863099997NUMBR000300003 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 3801: 5^^^^@DEC779999800004J12204^051970520209918J12204^051970520209923D1111105212TJ12204^051970520205217C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 0521711111J08820SC0521705202J08820SA0520205212J11650^0992805217J08727^J11636^0519705217J12204^099280 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 521208569J11636^0519708569J13695^0996405197J13695^0519705472A0520209938J12159^051970520209938J12204^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 099280520205217C0521709954J08943SC0521709949J09020/D14953099393J08943^C0521714969J09112SJ11636^05522 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 09944J11650^0552205217C0521705425J09186/J12204^099280520205217J11650^0552205217J12204^09928052020521 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 7J11650^0552205217C0521714969J09129/J12681^051970522205522J12681^051970866509964J11385^05522J05571^B 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 09297099390J11650^0547709949D14944099393J09314^J11650^0547709954J11650^0547709938J12184^099280520205 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 217C0521714969J08893SC0521714974J09461SC0521709954J08893SC0521709949J08893SC0521714979J09461UC052171 1 1 1 1 1 1 1 1 1 1 1 4601: 4984J08893UJ13695^0973209959J12681^097320522205477J12159^097320546208569J12159^097320867009918J12204 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: ^099640546205217J12159^097320548205217J10899^0541005242J12681^097320866505242J11385^05242J11636^0973 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 209923J09733^0973209969J11385^05477J11385^09964J11385^09732J11385^09928J05037^09732G00029BD000390991 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 3LD000'900039TDD000!009888TD000?009893TJ03051^09893J12204^098880520209898J03051^09898C0988811111J098 1 11 1 1 1 1 1 1 1 1 1 1 1 5001: 01/J03051^09893D0991300039TJ000/0^098880989309898000000000000000099180992309928VALSTGNAMD0^FGCN^#453 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 5101: ^#455VAL8809964PUTSTJ12184^051970520205217J11385^10862D0548708569TJ13515^0519705263S1498505263D05263 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 05410TC0521708655J10436SD0543508569TJ13961^0519705405D1495805410TD0540505405^G05415BS0541505410D0541 1 1 1 1 1 1 1 1 1 1 1 5301: 005263TJ13285^051971083205217C0521711111J10276SJ12204^051970521705263S1495305410D0521705263TS1498605 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 263W1027605405&A1495305263D0541010837TC0526305410J10466SD0541005217TS0526305217J10899^0521710862J116 1 1 1 1 1 1 1 1 1 1 1 5501: 36^1086205492J11650^1086205497J11636^1086208569J11636^1086205222J12681^108620522210842D0526310837TC1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 083711111J10585SJ10899^1083705217J11636^0521705492J11650^0521705497J11636^1086205222J12681^108620522 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 205217J11636^1086208569J11385^05217J13695^0544010857J10899^0541005217J12681^054400857405217J11385^05 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 217J12681^054401084710862J12159^054400520208569J11636^0544005197J09733^0544009969J13695^0521210852J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 2159^052120520205197J12681^052120522205197J09733^0521205227J11385^05197J05037^^^^^.10837VPDST99995LI 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: TRLPH50S1086204777^15063^888805571^VALU09970^LITLG00029BD0004411096LD000'900039TDD000!0000!1^G00044B 1 1 1 11 1 1 1 1 1 1 1 1 11 1 6101: B1096900'000J10987^A1498700044J10950^,00'00D000!011101XJ14435^1110111106D11106000?0TD1111111106T)00' 1 1 1 1 1 1 1 1 1 1 1 1 6201: 00,999R6D1109600044TJ000/0^00000000000000000000000000000000000G00029BD0003911374LD1111100039TD000'90 1 1 1 1 1 1 1 1 1 1 1 6301: 0034TDW11199999Z6&D00039000!0TD1137400039TJ000/0^C11379000'0J11235/A1138400039J11168^A0008900039S149 11 1 1 1 1 1 1 1 1 1 6401: 8800039C0003905019J11322UC000?0000'0J11335SS000?500039S1495300038J11257^S00039J11168^D0003911384LD00 1 1 1 1 1 1 1 1 1 1 1 6501: 0'0J11168^^^^^^^^^^^^^^^^1137911384G00029BD0003411584LD000'400034TD000!011569TD11111000!0TJ11112^115 1 1 1 1 1 1 1 1 1 1 1 6601: 6911574C1157411111J11546SD1111111379TD1157400034TD11574S000!500034D000'6999R6,G00089BS1495300089D115 1 1 1 1 1 1 1 1 1 1 1 6701: 8400034TJ000'5^1156911574^^^^^^^^^^G00029BD0004412158LD000/400044TDD)1182212011J11699^G00029BJ11663^ 1 1 1 1 1 1 1 111 1 1 1 6801: G00029B)11795D0004412158LD000'900044TD14993D000'4D00'0012117TD000?012138JD000!012122TJ11112^12122121 1 1 1 1 1 1 1 1 1 1 1 1 6901: 33C1213311111J12036SV1199212138KD1213300029TNJ11821^D000'512138LJ11882^NJ11882^D1213800039TA00039A00 1 1 1 1 11 1 1 11 1 1 1 7001: 039A0003912138C000'512138J11992U,000'1A14994000'5)000'1S000'500029A1213800029,000'1D00?'000?'5TG0003 1 1 1 1 1 1 1 1 1 1 1 7101: 9BD12117000?0T)000'1A1499400089A1499411384D1215800044T,11795NJ000/0^,1182212011J000/5^A1495301470D01 1 1 1 1 1 1 11 1 1 1 1 7201: 47012122T,00?'0D1212800?/5L)00?'0D12122000!0LA1499600089J11992^121171212200005'1213312138^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 7301: ^^^^^^^^^G00029B,1225012427J12211^G00029B,12447J12211^G00029BD0004412680LD000/400044TDDD000!012655TN 1 1 1 1 1 1 1 1 1 111 1 7401: J12269^D1111100'00TJ11112^1265512660C1266011111J12589SV12518000?0KD1266000034LD000?012660JA12660A126 1 1 1 1 1 1 1 1 1 1 1 7501: 60A000?012660C000!512660J12518UD0003400039TS000?500039A1266000039S1499400039NJ12632^D000?000'00LNJ12 1 1 1 1 1 1 1 1 1 1 7601: 518^D000?1999I6,,999R6S14994000!0)999R6J12554VS1499411384S1499400089D1268000044T)1225012427)12447J00 1 1 1 1 1 1 1 1 1 1 1 7701: 0/5^D000!1999R1,S1499600089D1111111379TD1268000044TD000'412623/D1111112624TJ12530^D00'00000?0TJ12518 1 1 1 1 1 1 1 1 1 7801: ^1265512660^^^^^^^^^^^^^^^^^^^^G00029BD0005413284LD000/400044TDDD000!013249TD00'00J11112^1324913254C 1 1 1 1 1 1 111 1 1 1 1 1 7901: 1325411111J13192SJ11112^1324413239C1323911111J13211SD1325400034TD13254S000'500029D1323900049TD13239S 1 1 1 1 1 1 1 1 1 1 1 1 8001: 00'0500044D00''513234LS1499413234D1323413072/C1323913254J12919U)13027C0002900034J13137SC000'0000?0J1 1 1 1 1 1 1 1 1 1 1 8101: 2973SA1499400029J12919^,000'1D0008900054TA1323400054D00?'000'!0TD0005400089TNJ13056^A1323400049A1323 1 1 1 1 1 1 1 11 1 1 8201: 400044,99Z96D99ZZ5000'0T)000'199Z96A1323400034A00''500029,000!1A13234000!5)000!1J12919^D0003411384LD 1 1 1 1 1 1 1 1 1 1 1 8301: 000!0D1328400054T,13027D1111111379TJ000/5^D11111000!0TJ13155^D1111100'00TJ13155^13234132391324413249 1 1 1 1 1 1 1 1 1 1 1 1 8401: 13254^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003913514LD000/400039TDDD11111000?0TD000'013494LJ11112^1 1 1 1 1 1 111 1 1 1 8501: 349413499C1349911111J13471SD1349900029TS000'500029C1349900029J13465SA14953000?0C000'0000!0J13471SA14 1 1 1 1 1 1 1 1 1 1 1 8601: 99400029J13400^S000?0D1351400039TJ000/5^1349413499^^^^^^^^^^^^^^^G00029BD0003413683LD000'900034TDD00 1 1 1 1 1 1 1 1 1 1 11 8701: 0'013689TJ11112^1368913694C1369411111J13613/D1111113688TJ13643^D1369400029TD000'513689LA13689D136880 1 1 1 1 1 1 1 1 1 1 1 8801: 00!0LD1368300034TJ000/0^^^^^^^^^^^01368913694G00029BD0003913960LD000'900039TDD000!013940TJ11385^1394 1 1 1 1 1 1 1 1 11 1 1 8901: 0D000?013940TJ11112^1394013945C1394511111J13917SD0003413915TD1394500034TD13945S000!500034,000'5D999R 1 1 1 1 1 1 1 1 1 1 1 1 9001: 600?'0#G00089B)000'5D1499700?'03A1495301470D0147099IZ4TD0147013916TD1396000039TJ000/0^1394013945^^^^ 1 1 1 1 1 1 1 1 1 1 1 9101: ^^^^^^^^^^^G00029B)14254J13988^G00029BD0004414374LD000'900039TDD000!014349TJ11112^1434914354C1435411 1 1 1 1 1 1 11 1 1 1 1 9201: 111J14320SD0008900044TD1435400034TS000!500034A1495300044C0003414354J14253SC999R815000J04777/B1421199 1 1 1 1 1 1 1 1 1 1 9301: 9R9^D000!014376LT14376144052G00029BJ04777UD000T1143763J14223^D000!0143763D1437600'003A1499400034J140 1 1 1 1 1 1 1 1 1 1 9401: 95^NJ14291^W1429100?'1(D00?'199Z992,00?'2,00?'1D99Z99000?0X)00?'100?'2D1437400044T,14254J000/0^14349 11 1 1 1 1 1 1 1 1 1 1 9501: 14354^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^;^_^^+^:^>^(^^^'^\G00029B,14575145 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 9601: 94J14471^^&^-G00029BD0003914936LD000'900039TDD1111114920TD0003914531LJ11385^14531A1495301470D0147000 1 1 1 1 1 1 11 1 1 1 1 1 9701: 0?0TD000!0000!0^G00029BNJ14787^A1495300029NJ14861^D000'0149433T14943144342G00039BJ14768UD999G314941T 1 1 1 1 1 1 1 1 1 1 9801: D1494100?'4TA1499400089A1499414920C0002900034J14582/A1495300088D0147099IZ4TD1492100?'0TD1493600039T) 1 1 1 1 1 1 1 1 1 1 9901: 1457514594J000/0^D1494314941TJ14651^V14582000!02V14830000!0KD1446114941TJ14842^D1446314941TD14950000 1 1 1 1 1 1 1 1 1 10001: !02J14651^D000'0149433C1494315001J14768TC1494315002J14768SJ04777^14920'^^^^^^^^^^^^^^^^^^^^^^0^7777^ 1 1 1 1 1 1 1 1 1 1 1 11 1 10101: 00105405^#362-^NLIT^PRD.^#504^#517B2A611111515'^^^Z.C0525805202S0856408449J07433/D0863005410TD084490 1 11 1 11 1 1 1 11111 11 11 111 1 1 1 1 10201: 5263TJ07433^D14953108683J08671^^^^^^^^C1495310868J04862SC0525805202J05957/S0520205410D04881054102J10 1 1 1 1 1 1 1 1 1 1 1 10301: 899^0541008584A0520205410J04850^^^^^^^^^^^^^^^^^^^^^XXXXX^LOC1EQU^^^OPND^^^^*^MACSEQUST00030XXXXX^77 1 1 1 1 1 10401: 7799999^VALU99998VALST00025^CNDNCLASSLEVELCONDN^#44899998^^^^@99999^#455VAL8800045^^^^V^^^^%^^^^1^^^ 10501: ^)VPDST00020XXXXX^LOC1DCW^^^OPND99999^MACSLITRL00030XXXXX0000000000^WDMK^^^^1^#44899996^#42699995PH5 10601: 0S00045XXXXX^LOC1DCW^^^OPND^^^^#99999^MACSDCW7700035XXXXX^LOC1DCW^^^OPND99999^MACSFIGST00030^^^^9NIN 10701: ES00005^^^^0ZEROS00005^^^^@QUOTE00005LLLLL^LOC1B^^^^FIG11^MACS^LOC1DCW^^^^^^@XXXXX^^^^@^MACS^LOC1DCW 10801: ^^^^^^@XXXXX^^^^@^MACS^LOC1DCW^^YYYYY^MACS^LOC1DCW^^99999^MACS^LOC1B^^^^00281^MACS^LOC1DCW^^@^@^^^MA 10901: CS^LOC1XFR^^LLLLL^MACS^LOC1ORG^^XXXXX^MACSFIGBR00205^LOC1B^^^^MOV11^MACS^LOC1DCW^^^^^^@XXXXX^^^^@^MA 11001: CS^LOC1DCW^^99999^MACS^LOC1DCW^^99998^MACS^LOC1B^^^^00281^MACS^LOC1DCW^^^OPND@^@^^^MACS^LOC1XFR^^XXX 11101: XX&1^^^^MACS^LOC1ORG^^XXXXX^MACSMOVEB00180^LOC1B^^^^NMV11^MACS^LOC1DCW^^^^^^@XXXXX^^^^@^MACS^OPND999 11201: 99^MACS^OPND99998^MACS^OPND99997^MACS^LOC1B^^^^00281^MACS^LOC1DCW^^@^@^^^MACS^LOC1XFR^^XXXXX&1^^^^MA 11301: CS^LOC1ORG^^XXXXX^MACSNUMBR00180'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^26037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^2618050114471559018100J09150^08386J09150^08381J 1 1 1 1 1 1 1 1 1 1 201: 11720^08386J11720^08381J02721^0839104777T08391077792G00044BD00'0005126TJ05127^B05186085840J11920^085 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 940858308589J09150^08594D15279085843D1528608826TB05377088270A0851101460J11920^086040851101460J11920^ 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 086040875401460J11920^086040875901460J11920^086040876401460J11920^086040852608536J11920^086040855108 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 516J09150^08604D15279088273J02721^0839104777T08391077032G00044BD00'0005430TJ05431^J08189^0839607633J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 14030^0840608411D15287088213J05377^J08189^0841607643D15287088223J05377^J08189^0842607663J12493^08426 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 08401J12493^0842608421J12493^0842608401D15287088233J05377^D15287088243J05377^J08189^0843108446D15287 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 088253J05377^J02721^0843604777J02721^0839104777J08189^0844108451J02721^0839104777B05777085840J11920^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 085940858308578J09150^08594B0580108436KB06356088261J14030^0846108466B05859088230J13426^0846108471084 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 26J05881^J11965^084610847608481B05912088220D0841608481TJ05924^D0848608481TJ13426^084610849108481B059 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 77088210D0839608481TJ05989^D0844108481TJ13426^084610849608481J12507^0840608491J13426^084060849108461 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: B06106088210J11965^084310850108481J11920^084060850608481B0617408436KJ11965^084310851108481J11920^084 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 060851108481B06255088250J09150^08406B06255088240NJ06255^D15287088273D0848108516TD1527908824T,06199J0 1 1 1 1 1 1 1 1 1 1 1 1 1401: 6050^)06199D0848108536TJ11720^08406B06344088211B06344088271J14316^0841608183C0851108183J06497SB06497 1 1 1 1 1 1 1 1 1 1 1 1 1501: 088231J14030^0846108521B06429085840J11965^084610847608481J11965^084610847608481J11920^08461085260853 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 1J13426^084610849108441J09150^08461D15279088273J11720^08461J14030^0846108541J11920^084610851108436J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 9150^08461J11720^08461J05073^J02721^0857804777D15287085843J05377^B06673085840J11920^085940858308589J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 09150^08594D15279085843J03051^08391J02721^0839106720C0839115292J06673/J09150^08729J09150^08739J09150 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: ^08456J11720^08456J11720^08729J11720^08739J02721^0839108828C0839115297J06894SJ06984^J03051^08391J091 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 50^08599W06882014791J03755^PH^40J03755^PHT40J11720^08406J02721^0839104777C0839115297J06965SJ12507^08 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 40608391J06906^J09150^08406J06792^J11720^08406J02721^0839104777J02721^0848104777C0848115302J07072SJ1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 2507^0840608481J07013^D0839199IZ4TJ03946^0839108546J11720^08391J06792^J02721^0843604777J02721^083910 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 4777C0839108446J07137/J06497^J03051^08391J05073^D15287088263J05377^J14030^0855608561J02721^083910477 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 7J11920^085560851108391D15279088203D0849108573TJ02721^0839104777J07981^0839108481J13426^085560857308 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 481J11720^08481D0849608573TA1530308820B07297088201J02721^0839104777J09150^08556J11720^08556J05073^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 4030^0855608734J02721^0839104777J11920^085560851108391J02721^0839104777J07981^0839108481J13426^08556 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 0849108481J11720^08481J09150^08556J15390^083910405377^07872^#ORG07780^#HLD05432^VRBL05485^BFOP06579R 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 2801: EDEF05521^IROP05608^ALT105627^GNOP05663^RECD07198^#45607179^07780^#HLD07872^#ORG07448ELOCC05128^#334 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 2901: 07120^RECD07217^ELEM06615^#308J02721^0839104777D15287087853J11920^088050851108391J11920^088000858308 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 391J09150^08805J05377^J02721^0879004777D15279087853J02721^0879504777J11920^088000850608795J11920^088 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 000881008790J09150^08800J05073^G00029BD0004408178LD000'900039TDD000!0000!1^G00044BB0805100'000J08069 1 1 1 1 1 1 1 1 11 1 1 1 3201: ^A1530300044J08032^,00'00D000!008183XJ14770^0818308188D08188000?0T)00'00,999R6D1144608188TD081780004 1 1 1 1 1 1 1 1 1 1 1 1 3301: 4TJ000/0^000000000000000000000000000000G00029BD0003908371LD000'900039TDD000!008351TJ11720^08351D000? 1 1 1 1 1 1 1 11 1 1 1 3401: 008356TJ02721^0839104777C0839108356J08316SJ12507^0835108391J08257^D08351000!0TD0837100039TJ000/0^083 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 510835600000000000000000042TW111TNULL0839108396^^^^,08406T000108416^^^^008426084310843608441^MACS^#4 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 48NMOVE08461T0002999970000808481T0003999999999800002000090000108516T000400005^^^^108536T0005PH^50000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 0708556T000700000000857308578000040^^^^^ORGSTCOBOLMVEFD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 11 1 1 1 1 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^FIGMVDAGRPMOVESTCCUROCCBR 1 1 1 1 1 3901: 0002200027000370001300019000250003800000000000HOLSTHLDST000110DA^1XR,G00000000J04309^06834J09150^087 1 1 1 1 1 1 1 11 1 1 1 1 11 1 1 111111111 1 1 1 4001: 44J11720^08744J08883^J04309^06834D99IZ408461LD99IX408481LJ11920^087490847608481D99IX908481LJ11920^08 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 7490876908481D99IY408481LS0851108481J11920^087490877408481D99IY908481LJ11920^087490877908481A0851101 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 460J11920^087490851101460J11920^087490878401460J11920^087490837601460J09150^08749J11720^08461J08871^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: G00029BD0003909337LD000'400034LD000!009342TJ11447^0934B0934GC0934711446J09304SD0934700039TS000?50003 1 1 1 1 1 1 1 1 1 1 1 4401: 9D000?009359LJ09360^0935IA1530400039C0003909347J09251UD0933700039TJ000'5^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 4501: ^^^^^^^^^^G00029BD0004911164LD1117400044TD000'400034LJ11089^B1065011197TB1049411198TC000!011124J1060 1 1 1 1 1 1 1 1 1 1 4601: 7SC000!015309J09774SC000!011129J09507/D1531400039TJ09774^C000!011134J09544/D1531900039TJ09774^C000!0 1 1 1 1 1 1 1 1 1 1 1 4701: 11139J10531SC999R911178J09647/C1532400039J09817UC000!015329J09628/D0003900044TD000!0113?93J09763^C99 1 1 1 1 1 1 1 1 1 1 1 4801: 9R811177J09722/,999R9T000!0113082G00049B)999R9J09722UD00''0000!0TJ09580^C1533400039J09805UA153350003 1 1 1 1 1 1 1 1 1 1 1 4901: 9D000!0113?9TA1530300039D0004411174LD1116400049TJ000'5^D1533611199TC1132511196J10761/C000!015341J110 1 1 1 1 1 1 1 1 1 1 5001: 27SB0993811329@B0990811329&B0990811329-D1533611200TJ09938^D11329112012D15342113293)10532B0998111314^ 1 1 1 1 1 1 1 1 1 5101: D1132311194LD1118411323TJ09993^D1118411194LD1534311199TB1002911200TD15342113?9TJ10122^D1119411323TD1 1 1 1 1 1 1 1 1 1 1 5201: 119611325TB1010311200TD15342113293D1534800039TJ09562^D1534311200TJ11008^G10492BD15349113897B10267087 1 1 1 1 1 1 1 1 1 5301: 850D15279088113D1144600054TB1021911TL2,A1528700054B10416000534J10177^A1528708811C0881115350J10189UD1 1 1 1 1 1 1 1 1 1 1 5401: 535211TL3TJ10416^B10416088231B1041611314^C1132608814J10416/C1133008816J10416SB10416088211D1144600054 1 1 1 1 1 1 1 1 1 5501: TB1038111TL2,A1528700054J10351^,11331S1528711TL1D0881911TL5T)11331J03576^1130ID11184113897D153531138 1 1 1 1 1 1 1 1 1 1 1 5601: 03D1138011379LA1535501475D0147511313TJ10493^C000!011139D1534311198TJ10576SJ09452^NJ10569^,10532D1534 1 1 1 1 1 1 1 1 11 1 1 5701: 2113?9TD11201113?82J10122^D1536000039TD1144600044TJ09774^D1533611197TD1531900039TD1536111314TJ09774^ 1 1 1 1 1 1 1 1 1 5801: C000!011124J10712SC1536600039J09628TD000!0113?93J10122^J10607^C1531900039D1534311197TJ10569UD1535311 1 1 1 1 1 1 1 1 1 1 1 5901: 314TJ10576^B1081611199TC0003915366J10864/C000!015329J11027SJ09628^C0003915371D1534311199TJ09740SC113 1 1 1 1 1 1 1 1 1 1 1 6001: ?815372J11001SC0004411446J11001S,11T10D113?811251XD15353113?8TD113?8113?7L)11T10J10122^A1537400039S0 1 1 1 1 1 1 1 1 1 1 1 6101: 004400039D1144600044TD11251113?9TA1530300039J09562^J10122^D1531900039TJ09562^D000!0113?93J10122^D153 1 1 1 1 1 1 1 1 1 1 6201: 3611198TD1531900039TD1144600044TJ09774^D0147511313TD1534309403TJ09403^^#383^LOC1^OPND^MACS^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 6301: ^^^^^^^^^^^^^^^0000500000^^^^^^^^^^^^^^^^^^^^DCNNNN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 111111 6401: ^^^^[LP^GT^(TM^^CT^\,^^'RM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 6501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"00000G000 11 1 6601: 29BD0003911709LD1144600039TD000'900034TDW11534999Z6&D00039000!0TD1170900039TJ000/0^C11714000'0J11570 1 1 1 11 1 1 1 1 1 6701: /A1171900039J11503^A0008900039S1537500039C0003905019J11657UC000?0000'0J11670SS000?500039S1528700038J 1 1 1 1 1 1 1 1 1 1 1 6801: 11592^S00039J11503^D0003911719LD000'0J11503^^^^^^^^^^^^^^^^1171411719G00029BD0003411919LD000'400034T 1 1 1 1 1 1 1 1 1 1 1 6901: D000!011904TD11446000!0TJ11447^1190411909C1190911446J11881SD1144611714TD1190900034TD11909S000!500034 1 1 1 1 1 1 1 1 1 1 1 7001: D000'6999R6,G00089BS1528700089D1191900034TJ000'5^1190411909^^^^^^^^^^G00029B,1201112188J11972^G00029 1 1 1 1 1 1 1 1 1 1 1 1 7101: B,12208J11972^G00029BD0004412441LD000/400044TDDD000!012416TNJ12030^D1144600'00TJ11447^1241612421C124 1 1 1 1 1 111 1 1 1 1 1 1 7201: 2111446J12350SV12279000?0KD1242100034LD000?012421JA12421A12421A000?012421C000!512421J12279UD00034000 1 1 1 1 1 1 1 1 1 1 7301: 39TS000?500039A1242100039S1537600039NJ12393^D000?000'00LNJ12279^D000?1999I6,,999R6S15376000!0)999R6J 1 1 1 1 1 1 1 1 1 1 1 7401: 12315VS1537611719S1537600089D1244100044T)1201112188)12208J000/5^D000!1999R1,S1537800089D1144611714TD 1 1 1 1 1 1 1 1 1 1 7501: 1244100044TD000'412384/D1144612385TJ12291^D00'00000?0TJ12279^1241612421^^^^^^^^^^^^^^^^^^^^G00029BD0 1 1 1 1 1 1 1 1 1 1 7601: 004413015LD000/400044TDD)1267912868J12556^G00029BJ12520^G00029B)12652D0004413015LD000'900044TD15383D 1 111 1 1 1 1 1 1 1 1 1 7701: 000'4D00'0012974TD000?012995JD000!012979TJ11447^1297912990C1299011446J12893SV1284912995KD1299000029T 1 1 1 1 1 1 1 1 1 1 7801: NJ12678^D000'512995LJ12739^NJ12739^D1299500039TA00039A00039A0003912995C000'512995J12849U,000'1A15376 11 1 1 11 1 1 1 1 1 1 1 1 7901: 000'5)000'1S000'500029A1299500029,000'1D00?'000?'5TG00039BD12974000?0T)000'1A1537600089A1537611719D1 1 1 1 1 1 1 1 1 1 1 1 8001: 301500044T,12652NJ000/0^,1267912868J000/5^A1528701470D0147012979T,00?'0D1298500?/5L)00?'0D12979000!0 1 11 1 1 1 1 1 1 1 1 8101: LA1537800089J12849^129741297900005'1299012995^^^^^^^^^^^^^^^^^^^^G00029BD0003413184LD000'900034TDD00 1 1 1 1 1 1 1 1 1 1 11 8201: 0'013190TJ11447^1319013195C1319511446J13114/D1144613189TJ13144^D1319500029TD000'513190LA13190D131890 1 1 1 1 1 1 1 1 1 1 1 8301: 00!0LD1318400034TJ000/0^^^^^^^^^^^01319013195G00029BD0003913425LD000/400039TDDD11446000?0TD000'01340 1 1 1 1 1 1 1 1 111 1 8401: 5LJ11447^1340513410C1341011446J13382SD1341000029TS000'500029C1341000029J13376SA15287000?0C000'0000!0 1 1 1 1 1 1 1 1 1 1 1 8501: J13382SA1537600029J13311^S000?0D1342500039TJ000/5^1340513410^^^^^^^^^^^^^^^G00029BD0005414029LD000/4 1 1 1 1 1 1 1 1 1 1 1 1 8601: 00044TDDD000!013994TD00'00J11447^1399413999C1399911446J13937SJ11447^1398913984C1398411446J13956SD139 111 1 1 1 1 1 1 1 1 1 1 1 1 8701: 9900034TD13999S000'500029D1398400049TD13984S00'0500044D00''513979LS1537613979D1397913817/C1398413999 1 1 1 1 1 1 1 1 1 8801: J13664U)13772C0002900034J13882SC000'0000?0J13718SA1537600029J13664^,000'1D0008900054TA1397900054D00? 1 1 1 1 1 1 1 1 1 1 1 1 8901: '000'!0TD0005400089TNJ13801^A1397900049A1397900044,99Z96D99ZZ5000'0T)000'199Z96A1397900034A00''50002 1 11 1 1 1 1 1 1 1 9001: 9,000!1A13979000!5)000!1J13664^D0003411719LD000!0D1402900054T,13772D1144611714TJ000/5^D11446000!0TJ1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 3900^D1144600'00TJ13900^1397913984139891399413999^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003914295LD0 1 1 1 1 1 1 1 1 1 1 1 9201: 00'900039TDD000!014275TJ11720^14275D000?014275TJ11447^1427514280C1428011446J14252SD0003414250TD14280 11 1 1 1 1 1 1 1 1 1 1 9301: 00034TD14280S000!500034,000'5D999R600?'0#G00089B)000'5D1538400?'03A1528701470D0147099IZ4TD0147014251 1 1 1 1 1 1 1 1 1 1 9401: TD1429500039TJ000/0^1427514280^^^^^^^^^^^^^^^G00029B)14589J14323^G00029BD0004414709LD000'900039TDD00 1 1 1 1 1 1 1 1 1 1 1 11 9501: 0!014684TJ11447^1468414689C1468911446J14655SD0008900044TD1468900034TS000!500034A1528700044C000341468 1 1 1 1 1 1 1 1 1 1 9601: 9J14588SC999R815387J04777/B14546999R9^D000!014711LT14711147402G00029BJ04777UD000T1147113J14558^D000! 1 1 1 1 1 1 1 1 1 1 1 9701: 0147113D1471100'003A1537600034J14430^NJ14626^W1462600?'1(D00?'199Z992,00?'2,00?'1D99Z99000?0X)00?'10 1 1 1 11 1 1 1 1 1 1 9801: 0?'2D1470900044T,14589J000/0^1468414689^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^ 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 9901: ;^_^^+^:^>^(^^^'^\G00029B,1491014929J14806^^&^-G00029BD0003915271LD000'900039TDD1144615255TD00039148 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 10001: 66LJ11720^14866A1528701470D01470000?0TD000!0000!0^G00029BNJ15122^A1528700029NJ15196^D000'0152783T152 1 1 1 1 1 1 1 1 1 1 1 10101: 78147692G00039BJ15103UD999G315276TD1527600?'4TA1537600089A1537615255C0002900034J14917/A1528700088D01 1 1 1 1 1 1 1 1 1 1 10201: 47099IZ4TD1525600?'0TD1527100039T)1491014929J000/0^D1527815276TJ14986^V14917000!02V15165000!0KD14796 1 1 1 1 1 1 1 1 1 10301: 15276TJ15177^D1479815276TD15353000!02J14986^D000'0152783C1527815388J15103TC1527815389J15103SJ04777^1 1 1 1 1 1 1 1 1 1 1 1 10401: 5255'^^^^^^^^^^^^^^^^^^^^^^000000001ENDPRAUTOCPUTSTAE^#410000150002000070^^^^,00066DT^^^^@@N00021"3^ 1 1 1 11 11 1 1 111 1 1 1 1 1 111 111 111 10501: ^^1?00005*0007100067,1H651511446'^^^Z.J02721^0839104777J05073^.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 11 1 11 111 1 11 111 1 1 1 1 10701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^#410^LOC1DA^^^1X4^^^MACS^OPND1,1^^^MACST000100040^#410^LOC1DA 10801: ^^^^OPND99999^^^^X9999899997^^^^,G^^^^^MACST000200055^^^^1T000300005^#410^LOC1DA^^^^OPND^^^^1^^^^X99 10901: 999^^^^,^^^^G^MACST000400050XXXXX^OPND^^^^1^^^^,^^^^1^MACST000500030XXXXX^LOC1^^^^^^OPND99999^^^^,99 11001: 998^MACST000700040XXXXX^LOC1EQU^^^OPND99999^MACSEQUST00030^LOC1ORG^^^OPNDZZZZZ^MACSORGST00025XXXXX^L 11101: OC1MRCWG^OPNDYYYYY^^^^,ZZZZZ^MACS^LOC1B^^^^^OPND00281^MACS^LOC1DCW^^^OPND@^@^^^MACS^LOC1XFR^^^OPNDXX 11201: XXX^MACS^LOC1ORG^^^OPNDXXXXX^MACS^LOC1DC^^^^OPND#20^^^MACS^LOC1ORG^^^OPNDXXXXX^MACSMVEFD00190FIG11^L 11301: OC1SBR^^X3^^^^MACS^LOC1MLNA^14&X3^^^^,FIG12&5^^^^MACS^LOC1MLNA^19&X3^^^^,FIG12&10^^^MACS^LOC1ZS^^^4& 11401: X3,X1^^^^MACS^LOC1MLCA^TNU00,X2^^^MACSFIG12^LOC1MLCS^0&X2,0&X1^^MACS^LOC1A^^^^TTT11,X2^^^MACS^LOC1A^ 11501: ^^^TTT11,X1^^^MACS^LOC1BZN^^20&X3,X1,&^MACS^LOC1C^^^^X2,9&X3^^^^MACS^LOC1BE^^^FIG12-12^^^MACS^LOC1B^ 11601: ^^^FIG12^MACS^LOC1DCW^^@^@^^^MACSFIGMV00340MOV11^LOC1SBR^^X3^^^^MACS^LOC1MLNA^9&X3,MOV12&5^^^^MACS^L 11701: OC1MLNA^14&X3,MOV12&10^^MACS^LOC1ZA^^^4&X3,X1^^^^MACSMOV12^LOC1MLCS^0&X1,0&X1^^MACS^LOC1S^^^^TTT11,X 11801: 1^^^MACS^LOC1BZN^^15&X3,X1,-^MACS^LOC1B^^^^MOV12^MACS^LOC1DCW^^@^@^^^MACSMOVES00230OCC11^LOC1SBR^^X4 11901: ^^^^MACS^LOC1MLCA^4&X4,X3^^^^MACS^LOC1MLCA^X3,NME11^^^MACSOCC12^LOC1MLCA^9&X4,WDM11^MACS^LOC1MLCA^NM 12001: E11,X2^^^MACS^LOC1MLCA^X2^^^^MACS^LOC1A^^^^19&X4,X2^^^MACS^LOC1MLCA^X2,NME11^^^MACSOCC13^LOC1SCNLA0& 12101: X1,0&X2^^MACS^LOC1SAR^^X1^^^^MACS^LOC1SBR^^X2^^^^MACS^LOC1SW^^^1&X2^^MACS^LOC1S^^^^TTT11,WDM11^^^^^M 12201: ACS^LOC1BZ^^^*&8^^^MACS^LOC1B^^^^OCC13^MACS^LOC1S^^^^TTT11^^^^,14&X4^MACS^LOC1BZ^^^20&X4^MACS^LOC1B^ 12301: ^^^OCC12^MACSNME11^LOC1DCW^^*^^^^^MACSWDM11^LOC1DCW^^*^^^^^MACSTCCUR00480LLLLL^LOC1B^^^^OCC11^MACS^L 12401: OC1DCW^^XXXXX^MACS^LOC1DCW^^^^^^@YYYYY^^^^@^MACS^LOC1DCW^^^^^^@YYYYY^^^^@^MACS^LOC1DCW^^^^^^@YYYYY^^ 12501: ^^@^MACS^LOC1B^^^^00281^MACS^LOC1DCW^^@^@^^^MACS^LOC1XFR^^XXXXX^MACS^LOC1ORG^^LLLLL^MACSOCCBR00215XX 12601: XXX^OPND99999^MACSDAGRP00020COBOLSTART^LOC1EQU^^*^^^^^MACSCOBOL00030TTT11^LOC1DCW^^@1@^^^MACSTW11100 12701: 025TNU00^LOC1DCW^^@00000@^^^^MACSTNULL00030NMV11^LOC1SBR^^X3^^^^MACS^LOC1MLNA^14&X3^^^^,NMV13&10^^^M 12801: ACS^LOC1MLNA^^MACS^LOC1MLNA^19&X3^^^^,NMV12&10^^^MACS^LOC1MLNA^9&X3^^MACS^LOC1ZA^^^4&X3,X1^^^^MACSNM 12901: V12^LOC1MLZS^0&X1,*^^^^^MACSNMV13^LOC1MLNS^0&X1,0&X1^^MACS^LOC1S^^^^TTT11,X1^^^MACS^LOC1BZN^^20&X3,X 13001: 1,-^MACS^LOC1B^^^^NMV13^MACS^LOC1DCW^^@^@^^^MACSNMOVE00305^^^^^^LOC1DA^^^^OPND1X29,G^^^^^MACSHLDST00 13101: 035^LOC1ORG^^^OPND^^^^^^MACS^LOC1DA^^^^OPND^^^^^^^^^X^^^^^,G^^^^MACS^LOC1^OPND31,31^MACSHOLST00085'^ 1: PH^40037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^4005009000000000019200D1518400034TD0961500069TD 1 1 1 1 1 1 1 1 201: 05019D09620D09635J02721^0959509445C0959509919J05067/J02721^0959509318C0959505019J05102SD0959500'?0TA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 1518500059D0964000'?03A1518509610C0959510189J05357SC0959509919J05248SA1518609637C0963715185J05102US0 1 1 1 1 1 1 1 1 1 1 401: 9637C0005405019J05339SD17/R909565LC0956510189J05376SB0549409561^C0005409610J000!0TJ000!0SA1518500054 1 1 1 1 1 1 1 1 1 1 501: J05272^D1518609636TJ05254^D17/R909575LD17S!017/R5,S1518500059S1518509610J03051^09575J02721^095950944 1 1 1 1 1 1 1 1 1 1 1 1 601: 5J03051^09595C0959510189J05434/S09636J05102^D0005400064TA1518500064B05577096361D0006409600TA15188096 1 1 1 1 1 1 1 1 1 1 1 701: 00C0960009610J000!0TJ05595^C0006409610J000!0TD17J9909570LW0550609566"T09570097172J05506ST09570102042 1 1 1 1 1 1 1 1 1 1 801: G00049BJ09445UT09565102042G00044BJ09445UD00U'509639LS00U0309639V0588609639KD00Y0505014LD0501400079LD 1 1 1 1 1 1 1 1 1 1 1 901: 00!?000074LA1518500079J00!!0^D0501409585TD00!?000074LT0963900!!02G00074BJ05848UD00!!000079LJ05749^D0 1 1 1 1 1 1 1 1 1 1 1001: 0!!005014LJ05737^T09570097332J07916UD0006400054TD0004900044TD0957009565TJ05506^D17/R909575LA15185000 1 1 1 1 1 1 1 1 1 1101: 54C0957509959J06583SC0957509889J06583SD17/R909600LD0960000!'0TA1518500069D0964000!'03J05749^A1518500 1 1 1 1 1 1 1 1 1 1 1201: 054J05749^S1518500054J05749^D17/R909575LD17S!017/R5,S1518500059S1518509610J05749^D17/R909575LD17S!01 1 1 1 1 1 1 1 1 1 1 1301: 7/R5,S1518500059S1518509610D0957500!'0TA1518500069D0964000!'03J05749^D17/R909575LD17S!017/R5,S151850 1 1 1 1 1 1 1 1 1 1401: 0059S1518509610D00!'000!'5TA1518500069D0957515204TJ05749^,17S!0D00'?000'?5T)17S!0A1518500059D0957517 1 1 1 1 1 1 1 1 1 1 1501: S!4TA1518509610J05749^,17S!0D00'?000'?5T)17S!0A1518500059D01S0517S!4TA1518509610J05749^A1518601460D0 1 1 1 1 1 1 1 1 1 1 1 1601: 146009575TJ05749^D0964509575TC0965509645J06516SJ06516TD0964509655TA1518609645J05749^A1518609660J1923 1 1 1 1 1 1 1 1 1 1 1701: 7^D0965009645TD0966509660TJ05749^D17/R909575LD00!'000!'5TA1518500069D0957515204TJ05749^S99RI700054J0 1 1 1 1 1 1 1 1 1 1 1801: 5254^S1518500054J05254^D1520909575LD0957515219TD09640152243A1518500069J03051^09675D1520409575LD15205 1 1 1 1 1 1 1 1 1 1 1901: 15200,S1518500069J03051^09575J03051^09743B0689315204'D1520409575LD1520515200,S1518500069B0688115204' 1 1 1 1 1 1 1 1 1 1 2001: J03051^09575J03051^09753J06803^J03051^09575J03051^09763J05749^C0957010199J06942SD01S0509575LD00!'000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: !'5TA1518500069D0957515204TJ05749^D0501409585TC17S!109662J07916SD17S!1098041C17S!109804J07916SA15185 1 1 1 1 1 1 1 1 1 1 2201: 00079J05749^C0957010199J07134/D0969509575LD00!'000!'5TA1518500069D0957515204TJ05749^D0969009575TJ070 1 1 1 1 1 1 1 1 1 1 2301: 92^C0957010199J07313/S1518600053D17S!409778LD17S!909575LD17SJ017S!0,S1518600058J09452^09768S15186096 1 1 1 1 1 1 1 1 1 1 2401: 09J05254^C0957010194J07295/A1518600053J05898^C0957010199J07171/S1518600053D17S!409748LD17S!909575LD1 1 1 1 1 1 1 1 1 1 1 1 2501: 7SJ409758LD17SJ017S!0,S1518600058S1518609609J09452^09738J05254^C0957010199J07277SC0957010194J07277SD 1 1 1 1 1 1 1 1 1 1 1 2601: 17/R909575L,17S!0D17S!417/R9T)17S!0D01S0517S!4TA1518500054J05254^D01S'517J99TJ05749^D01S0517J99TJ057 1 1 1 1 1 1 1 1 1 1 2701: 49^C17/R109662J05749SD17/R1098041C17/R109804J05749SC17/R910199J05749/C17/Q910204J07701/D17/Q909575LD 1 1 1 1 1 1 1 1 1 1 1 2801: 17/R017/Q5,S1518500059S1518509610S1518500054J05749^,17/R0D00'?000'?5T)17/R0A1518500059D1020417/R4TA1 1 1 1 1 1 1 1 1 1 1 2901: 518509610A1518500054J05749^D0501909590TJ05749^D0959000!'0TA1518500069D0964000!'03J05749^C0959005019J 1 1 1 1 1 1 1 1 1 1 3001: 05749/A1518601460D0146009590TJ05749^D0958505014TJ05737^A1518900079D00!?005014LJ05737^C0957010019J072 1 1 1 1 1 1 1 1 1 1 3101: 77/D00!?005014LJ05737^C0957010199J08009/D0969009575TJ08021^D0969509575TD00!'000!'5TA1518500069D09575 1 1 1 1 1 1 1 1 1 1 3201: 15204TJ05749^C0959005019J05749SD0959009575TD0957509798TJ09452^09788J05749^C0959005019J05749SD0959009 1 1 1 1 1 1 1 1 1 1 1 3301: 778TJ09452^09768D0501909590TJ05749^D0957509748TD0959009758TJ09452^09738J05749^D0501409585TD000640960 1 1 1 1 1 1 1 1 1 1 1 3401: 0TS0005409600J19202^^RI7J07905TA1519000079J05749^S1518500064J05749^D0005400039TS99RI700039D171I90957 1 1 1 1 1 1 1 1 1 1 1 3501: 5LA1518900079J05749^D0005400039TS99RI700039D171I909575LD172?0171I5,S1518500059S1518509610A1518900079 1 1 1 1 1 1 1 1 1 3601: J05749^D0005400039TS99RI700039,172?0D00'?000'?5T)172?0A1518500059D09575172?4TA1518509610A1518900079J 1 1 1 1 1 1 1 1 1 1 1 3701: 05749^,17S!0D00'?000'?5T)17S!0A1518500059D00!?017S!4TA1518509610A1518500079J05749^D00!'000!'5TA15185 1 1 1 1 1 1 1 1 1 1 3801: 00069D00!?015204TA1518500079J05749^D0005400039TS99RI700039D171I909575LA1518900079D0957509778TJ09452^ 1 1 1 1 1 1 1 1 1 3901: 09768J05749^D99RI709697TS99RI700054D17/R909575LD17S!017/R5,S1518500059S1518509610D0957500!'0TA151850 1 1 1 1 1 1 1 1 1 1 4001: 0069D0964000!'03S1518509697C0501909697J08785UA1518900079J05749^D0005400039TS1518600053J08966^D000640 1 1 1 1 1 1 1 1 1 1 4101: 0039TS1518500064J03051^09675D171I909575LD172?0171I5,S1518500059S1518509610J03051^09575J03051^09743D1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 71I409575LD171I5171I0,S1518500059S1518509610C0957510019J09143SJ03051^09575J03051^09753J09048^J03051^ 1 1 1 1 1 1 1 1 1 1 1 4301: 09660C0967009660J09192TJ09192SD0966009670TJ03051^09763,171I0D00'?000'?5T)171I0A1518500059D09660171I4 1 1 1 1 1 1 1 1 1 1 1 1 4401: TA1518509610J05749^B0929917/R0^A1518500079J05749^D00!?005014LJ05737^B0936117204'D1519500034TD1518609 1 1 1 1 1 1 1 1 1 1 4501: 6363J05254^J03051^09680J03051^09655J03051^09670J03051^09685W09433014792J03755^PH^50J03755^PHT50J0477 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 7^G00029BG09559BD000'409495TJ03051^09675D0950109600LJ03051^09600A1518509495C0960009763J09490/A151850 1 1 1 1 1 1 1 1 1 1 1 1 4701: 9559J09560^0956509570095750958009585000000959509600096050000015204172040000100004000050000'TMP01TMP0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 11 1 4801: 1TMP00II006II006II005^LOC1FEOP2^EOP1^XFCD^XCND^^^#514^#516^#362^#505^^^^**^^^^*^^^^/^EQU1^OPND09748^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 4901: ^^^,09758^MACS^COLN^OPND09778^MACS^#370^OPND09798^MACS^^#300^ZNEG^#301^#302^#303^#352^^^^#^#356^#357 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 5001: ^#358^LSEQ^GREQ^#359^#360^#394^#392^#496^#475^#500^#448^#328^#329^PRD.^SBSC^COLN^#378^ZPOS^XNUM^XAPH 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: ^#370^#476^#326^#327^#331^#332^#354^^^**^^^^&^^^^/^^^^*^^^^-^^^^%^^^^)^ASGN^ASNR^#402^#459^#470^#479 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: ^#485^IMPN^#497^#501^#513^#304^#372^PERA^PERC^PERD^PERE^PRET^#381^#502^#458^#462^#453^#460^#521^CIRU 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: ^CIRE^#495^WRFR^RLNK^DLNK^END1^#371^#383^#384^#385^#386000560202000056002560025602156020200202002020 1 1 1 1 1 1 1 1 1 1 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 5401: 0202002020020200202002020020200202002242002430212400012002560325600266000010025600056020200202002020 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 5501: 0025602241002560025600056002560526000706012120101001010005120520200253022420224200222000220582300026 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 5601: 0025605856002560022200056002560025600256002560025600256002560025600222002230022600212026020022702356 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 5701: 058020000103256002560025505856000560^^56052520525201918113731125912029115701157011324111991119911199 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 11 1 1 1 1 1 1 1 1 1 1 5801: 1119911199111991125911259112591125911383115701172211403117491182712251120441199911600112591125911259 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 1205911393118371183711869120191158011354113541135411354122241115911580123501235012069116001196411580 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 1187911344119091158011590115801161011672122961168211692119991158011702117121158011580123231158011737 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: CD018121991226612099117491217411580^^^^^111691118411314^^^^&^#359^#300^^^^*^^^^/^IMPN^#356^^^^#^LSEQ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: ^GREQ^#357^#358^ZNEG^ZPOS^XAPH^XNUM^ASNR^^^^-^CIRU^CIRE^RDIN^WRFR^^^^^^^^^^^^^^^^^^^^^#360^#392^#394 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: ^^^^^05791123930698412442071530698412442072590655206060061310607806912061310606006437063070617706720 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 0525406552060600613106078069120606006437063070617706720052540579112500078380698412442074130579112640 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 082400512705066370N057791280405791131040579113137078380655206060060600606005988060420592906042062190 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 606008556^IMPN0643706177063070672006060060600613105929060600621906720060780643706307061310598808632^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: IMPN06720066370N057911321906078066550579113444057911348906219060420607806437063070598806042059880855 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 6^PERA06720066370N0579113705057911383805791140110579114102057911432906984124420741306078066371005791 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 1176711797^11772540621906131061310672006655062190613106078060780672006655057911455708228101459906219 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: 0613106720066550577914639060600613106219061310672006655086320000008632^#3310604206131067200606006219 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: 0672006655062190606006131067200606005791147930621906131067200665505791148730637206078052540891306534 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: 0525405779149560604206219060600621906720066550783806219061310604206437063070613106437063070598806042 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 0598806720057911499806060060780873106078066550606006078062190672006655082400515114060420607806655081 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 2406078052540606006131062190613106720066550621906131087621506720066550621906078061310672006637150621 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 906060061310613106720065520665512425^12398010607806042060780755306637100698412442066371!070620656406 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: 0420613106060064370630706177067200788612520^12505010751506078066550699612575060780643706307061310598 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 7701: 808632^IMPN06720066550797206564060780613106060064370630706177067200525409445^12645021268008062190607 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 7801: 8060600613107796067200665506060060780873106078066550926911580079161272506219060600613106131060600646 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 70630706177067200525413014^1280901128364112858421293243082401512954089430653405254082401012954060780 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8001: 52540824015129540637206078062190613106131063070606006467063070617706720066371!0824010129540607805254 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 0637206042062190613106467063070613105988067200606008299078860822815129540637206078062190613105988060 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: 6008556^#47606467063070604205988067200525413162^13109200607806372060780525413162^1314220060780607806 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 8301: 307052540621906131060600613106720065520665513364^132242413249391330440060780604206307060780525406372 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 8401: 0607806219061310606006467063070613105988067200525406372060780621906131063070606006467063070613105988 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: 0672005254063720607806219059880606008556^#47606467063070613105988067200525413459^1344960134496606078 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 8601: 0665508063060780665513553^13494221350401060780525408240101353108943065340525408228151363308943052540 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 82281513633062190604206131060600613106720057911361313623^1361855060780656406655065830604206042061310 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 8801: 6060059880672008299060600788613808^13710081375722137862008632^PERB0607806131060780876215067200656406 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 8901: 655086850508556^PERC06078066370N08556^PERD06078066370N062190876215067200665513900^138432108556^PERE0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 9001: 607808632^PER106437061770845720060420791613927062190613108762300672006655060420613106060064370617708 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 457050831710061770604206437063070617706720066371!14053^140162108632^PER20837015061770606007916139270 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 9201: 6219061310876240067200665509445^141074114137241424322060780604208556^#502060780525408632^#3780606005 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 9301: 9880604206042061310607806720060600643706177084571508632^IMPN0643706177084571506720066371!08632^^^^&0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9401: 6060061310607806131066730643708731084572006564066370N12323^143344114364241449222060780604208556^#458 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 9501: 060780525408632^#378060600598806042060420613106078067200606008632^PER3083702506177064370845730061770 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9601: 8370100617706437061770845725067200525408632^^^^&0606006131060780613106673083701008731065640665514579 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9701: ^14562110753406078066370N06219061310672006655060420613106060082990788614736^146442214696010824005147 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 9801: 1106042060780621906060062190656406720066550894306534052540604206131060600829907886082280514711086320 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9901: 00000621906564067200665509445^14798021483508083700508731060780606008556^END1052540606006078087310607 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 10001: 8087310665514918^1487841060420613106078062190606006219067200665508632000000621906131067200665514579^ 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10101: 1496120082400514711060780525415069^15003211502558083701006078087310525408370100809308556^END10607808 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: 370100873106655060600606006078080930607808731060780873106655092691513405867127250607808632^UNMN06131 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: 0606006467063070617706720052540510251252709361^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 111 111 1 12301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 14301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D99RI719236TC0960019236J08274^00000C0966019290J0 1 1 1 1 1 1 14401: 5749/D0966509660TJ03643^19291J05749^II013SUBSCRIPT^LIMIT^EXCEEDED"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1: PH^50037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^16000126061600016100A0148012173J03051^12177D0 1 1 1 1 1 1 1 1 201: 501900089TD1536700?'0TJ04309^05154D99IZ405254LJ05767^052540525912297J07987^0525412297J05300^05254J05 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 072^J03051^05264J02721^0526905202J03051^05269J05166^J03051^05269W05238014794J03755^PH^51J03755^PHT51 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 00000^#426^EOST0000000001^^^^V^^^^X^^^^A^^^^P^^^^9G00029BD0003405465LD0501900034T,000!0D000!405455TJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 03051^05455)000!0A1536800034C0003400089J05331UJ03051^05470D0501900089TD1536700?'0TD0546500034TJ000'5 1 1 1 1 1 1 1 1 1 1 1 601: ^000000000000000'^^^^G00029BD0003905766LD000'900039TDD000!005746TJ12606^0574605751C0575112605J05711S 1 1 1 1 1 1 11 1 1 1 1 1 701: D0575100029TD999Z5000?0L,000'1S15369000'5)000'1J05657VD999Z6999Z1,S1536912878S1536900089D0576600039T 1 1 1 1 1 1 1 1 1 1 801: J000/0^D12605000!0TD000'6999Z1,S1537000088D1260512873TJ05627^D12605000?0TD12605000!0TJ05638^05746057 1 1 1 1 1 1 1 1 1 1 1 901: 51^^^^^^^^^^^^^^^G00029BD0005405984LD000/400044TDDD000!012302TJ12606^1230205954D0595400049TS15368000 1 1 1 1 111 1 1 1 1 1 1001: 49C0004905019J05919UC00''0000?0J05841/D0004900'00TD0598400054TJ000/5^D1260500'00TD0598400054TJ000/5^ 1 1 1 1 1 1 1 1 1 1 1101: 00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003906216LD000'900039TDD000!006221TD12605000?0TJ13906^12 1 1 1 1 1 11 1 1 1 1201: 3120622106231C0623112605J06183SA1537106231J14353^123420527406241J14548^062410622606172C0623606231J06 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 172SA06226000?0J06114^A05274000?0D0621600039TJ000/0^^^^^^^^^^^^^^^^0000000000000000000000000G00029BD 1 1 1 1 1 1 1 1 1 1 1 1 1401: 0003406375LD000'400034TJ14353^123420527412392D12605000!0TJ14548^123920638006347A06380000!0J06307^D06 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 37500034TJ000'5^^^^^^^^^^^00000G00029BD0003906582LD000'900039TDD12605000?0TJ14353^123120527406592J14 1 1 1 1 1 1 11 1 1 1 1 1 1601: 353^123420527406602J14548^065920660706549J14548^066020661206549C000!006607J06469/A06612000?0J06469^D 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 0658200039TJ000/0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0005907028LD0008900039TS15372 1 1 1 1 1 1 1 1 1 1 1801: 00039D0003900034TS000?500039C000?012407J06732SA1536800039C0003900034J06975SJ06678^D0003900049TD15377 1 1 1 1 1 1 1 1 1 1 1901: A1536900049A1536900044C00''012412J06797SJ06750^D0004900059TD15382D1260507033TS1536900059C0005900039J 1 1 1 1 1 1 1 1 1 1 1 2001: 06882SD00'?000'!03G00054BJ06827^,000!1S00044000!5)000!1D00''1999I6,S0004400089S0004400034D1260512873 1 1 1 1 1 1 1 1 1 1 2101: TJ14858^1234207033J06707^D0702800059TJ000'5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00000G00029BD00039074 1 1 1 1 1 1 1 1 1 1 2201: 19LD000'400039TD000'400034TJ12518^07424J14858^0742907424J14858^0742912147J14858^0742912152J14858^074 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 2912477C0003415387J07194SD1537707434TJ07206^D0527407434TS0743400034A1537100034C0743412605J07316SD153 1 1 1 1 1 1 1 1 1 1 1 2401: 9207439TD000!0074393S1537107434A1537100034J14858^0742907439J07228^J14858^0742912477J14858^0742912402 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: J07440^07429J12879^07429D07424000?0TD0741900039TJ000'5^^^^^^^^^^^^^^^^^^^^^0000000000^^^^^G00029BD00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 02907570LD000'400034TD000!007575TJ13130^075750527407580J03051^07580C0757512605J07483/J03051^05470D07 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 57000029TJ000'5^^^^^^^^^^^^^^^^G00029BD0002907679LJ13079^052540527407684J14844^0525407689J14844^0525 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 405254D0767900029TJ000'5^^^^^^^#176^HDR3G00029BD0003407976LD000'400034TD000!007981TJ12518^07986C0798 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 112212J07782/D0798612257TJ07794^D0798612262TJ07821^12477121521214707986D1539700034TS1536800034A15368 1 1 1 1 1 1 1 1 1 1 1 1 3001: 00034D000!007883TJ14844^0798107883C0003415402J07844/J14858^0798112477J14858^0798112402J07440^07981D0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 797600034TJ000'5^^^^^^^^^^^0000000000G00029BD0004412502LD000'900039TDD000?012297TD000!005254TC122971 1 1 1 1 1 1 1 11 1 1 3201: 2605J08144/J13110^052540527412512C1251212517J08120/J07581^05254J08901^J14844^0525405254J08901^D12297 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 00034TD0595400039TA1536812297C1229705954J08216/D1247799IY9TJ08684^D15367999I63D000!100?'0+G00044BD05 1 1 1 1 1 1 1 1 1 1 3401: 254000?0TD0004412307TS0008912307S1537012307D1260500'08TD1230700'08/A1537001470D0147012312TD0147000'0 1 1 1 1 1 1 1 1 3501: 3TD1536700'093,000?1S12307000?5S15369000?5)000?1D999I6999R6,G00089BS1537100089D1260512873TJ13110^052 1 1 1 1 1 1 1 1 1 1 1 3601: 540527412317J06613^12312J05985^0527912322J06242^12327C1231705284J09357SC1231705289J09266SJ05985^0529 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 412332J05985^0529912337C1232212605J09082SC1233212605J08947/D1232712347TS1232212347D1232712357TS15371 1 1 1 1 1 1 1 1 1 1 1 1 3801: 12357D1235712352TJ14858^0525412477D1229212252TD12347122323D12346122273D12357122423D12356122373D12352 1 1 1 1 1 1 1 1 1 1 3901: 122523D12351122473J14858^0525412227J14858^0525412232J14858^0525412237J14858^0525412242J14858^0525412 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 247J14858^0525412252J12879^12312J12879^12342J08120^D1250200044TD0894612357TJ000/0^000000000000000C12 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 32205274J09029/D1232712347TS1537112347D1232712357TS1233712357A1537112357J08655^D1233212357TS15371123 1 1 1 1 1 1 1 1 1 4201: 57D1233212347TS1232712347J08655^C1233205274J09153/D1232712347TD1232712357TS1233712357A1537112357J086 1 1 1 1 1 1 1 1 1 1 4301: 55^C1233212605J09235SD1233212357TS1537112357D1233212347TS1232712347S1537112347J08655^D1260512347TD12 1 1 1 1 1 1 1 1 1 1 4401: 32712357TJ08655^D1260512357TD1260512347TJ08655^12417124221242712432124370527912442124471245212457124 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 6712482D1540700034TS1536800034A1536800034D000!009457TJ14353^123120527412372J14548^123721220209472C12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 20209447J09425/J09497^C0003415412J09380/J09516^J09654^05254J08120^D1232712352TD1260512347TD126051235 1 1 1 1 1 1 1 1 1 1 1 4701: 7TJ13906^123120529912362C1236212605J08667SJ13130^123421236212382A1238212357J13130^123121236212507J09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 552^G00029BD0003912172LD000'400034TD000!012192TD1260512347TD1260512357TD1260512352TD1229212252TJ0598 1 1 1 1 1 1 1 1 1 4901: 5^1243712102D1260512117TD1260512122TC1210212605J09821/J05985^0527912102C1210212605J09862SD1232712347 1 1 1 1 1 1 1 1 1 1 1 1 5001: TS1210212347J13906^123121248212197C1219712605J10093SJ13079^123121219712467A1537112197J13110^12342121 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 9712362C1236215417J10052UJ14793^123121219712452S1537112362J14793^123421219712362J13079^1234212197052 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 74J13079^123121219712472D1248212122TJ10390^J06381^1244212107J06381^1244712112C1210705274J10170TC1211 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 205274J10170TJ10248^C1210712605J10207SD1244212117TJ10219^D1244712117TJ14136^123121211712417J10390^C1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 210705274J10366/J05985^1244212122C1232212605J10337SC1232212122J10326UJ10337^S1537112122J14136^123121 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 244212447J10390^D1260512117TD1260512122TJ13906^123121245712362C1236212605J10635SJ14353^1231205274123 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 72J14353^123420527412132J14548^123721213710589J14548^121321214210589C1213705279J10474SS1537112142J14 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 858^1222212137C1214212605J10536/J10474^J07690^12222J12879^12222J14136^123121245705299J14136^12312124 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 5212442J06381^0529912357J14136^123120529912462D1260512217TJ13906^123121243712187C1218712605J10760/D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 232212187TJ05471^1231212202J05471^1234212207C1220212605J11685SC1220205279J10849/D0527412217TJ10760^C 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 1220212462J10931/A1220712352S1537112207J14844^1221212202C1220712605J10878/J10760^C1220212422J11047/J 1 1 1 1 1 1 1 1 1 1 1 1 6101: 15540^^352J14844^1221212457S1537112207J14136^123121242212462C1220712605J10760SD1246212202TJ10867^C12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 20212427J11228/J13906^123121242712362C1236212605J11130/C1220705274J11130TJ10867^J14844^1221212457J14 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 136^123121242705289A1537112352S1537112207C1220712605J10760SD0528912202TJ11539^C1220212417J11539/C121 1 1 1 1 1 1 1 1 1 1 1 1 6401: 8712605J11301SC1221712605J11301/J10867^D1246212202TJ13906^123121241712362C1236212605J11366/C12207052 1 1 1 1 1 1 1 1 1 1 1 1 6501: 74J11366TJ10878^J14844^1221212457S1537112207A1537112352C1220712605J11510SJ14844^1221212417S153711220 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 7J14136^123121241712462C1220712605J10760SD1246212202TJ10867^J14136^123121241712157J10760^C1220212157 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: J11423SC1220205289J11594/D1242712202TJ10867^C1220212437J11631/D0527412217TJ10878^C1234712605J10878SC 1 1 1 1 1 1 1 1 1 1 1 1 6801: 1221712605J10878/S1220712347J10878^J07690^12212J12879^12212D1260512217TD12347122323D12346122273D1235 1 1 1 1 1 1 1 1 1 1 1 6901: 7122423D12356122373D12352122523D12351122473J11845^124771222712232122371224212247122521239712257D1542 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: 200034TS1536800034A1536800034D000!011907TJ14858^0525411907C0003415427J11868/C1226212605J11980/C12122 1 1 1 1 1 1 1 1 1 1 1 7101: 12605J11980/C1211712605J12067SJ07034^12262J07034^12122J07034^12117J14858^0525412262J14858^0525412122 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: J14858^0525412117D1260512262TD1217200039TJ000'5^0000000000000000000000000^^^^^^^^^^0000000000^LOC1DC 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: W^^^$SUB^^^^^^^^^^^^^^^99998003000000000000000000000000000000000000000000000000000000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 0000000000000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000000000000000000000000000000000000000000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 0000000000000000000000000000000000000000000^^^^E^MACS^^^^%^^^^)^^^^$^^^^Z^^^^*^^^^,^^^^.^^^^&^^^^-^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: ^^B^^^^0^^^^^^^^^C^^^^R^^^^@^^^^D^^^^^^^^^^^^^^^^^^^^0000000000^LITLG00029BD0003412600LD000'400034TA 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 1537101460D01460000!0TD1260000034TJ000'5^^^^^^^^^^^00000G00029BD0003912868LD1260500039TD000'900034TD 1 1 1 1 1 1 1 1 1 1 7801: W12693999Z6&D00039000!0TD1286800039TJ000/0^C12873000'0J12729/A1287800039J12662^A0008900039S153720003 1 1 1 1 1 1 1 1 1 1 7901: 9C0003905019J12816UC000?0000'0J12829SS000?500039S1537000038J12751^S00039J12662^D0003912878LD000'0J12 1 1 1 1 1 1 1 1 1 1 1 1 8001: 662^^^^^^^^^^^^^^^^1287312878G00029BD0003413078LD000'400034TD000!013063TD12605000!0TJ12606^130631306 1 1 1 1 1 1 1 1 1 1 1 8101: 8C1306812605J13040SD1260512873TD1306800034TD13068S000!500034D000'6999R6,G00089BS1537000089D130780003 1 1 1 1 1 1 1 1 1 1 8201: 4TJ000'5^1306313068^^^^^^^^^^G00029B,1317613353)13584J13137^G00029B,13373J13137^G00029BD0004413725LD 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8301: 000/400044TDDD000!013700TNJ13195^D1260500'00TJ12606^1370013705C1370512605J13521SV13444000?0KD1370500 111 1 1 1 1 1 1 1 1 1 8401: 034LD000?013705JA13705A13705A000?013705C000!513705J13583UD0003400039TS000?500039A1370500039S15369000 1 1 1 1 1 1 1 1 1 1 8501: 39NJ13564^D000?000'00LNJ13444^D000?1999I6,,999R6S15369000!0)999R6J13486VS1536912878S1536900089D13725 1 1 1 1 1 1 1 1 1 1 1 8601: 00044T)1317613353)13373,13584J000/5^D000!1999R1,S1542900089D1260512873TD1372500044TD000'413555/D1260 1 1 1 1 1 1 1 1 1 1 8701: 513556TJ13456^D00'00000?0TJ13444^NJ13444^S1536913705C000!513705J13444/,999R6D00?'000?'5TD00'00000!0T 1 1 1 11 1 1 1 1 1 1 8801: ,000!6A15369000J0)999R6000!6A1536900089J13444^1370013705^^^^^^^^^^^^^^^^^^^^G00029BD0003413894LD000' 1 1 1 1 1 1 1 1 1 1 1 8901: 900034TDD000'013900TJ12606^1390013905C1390512605J13824/D1260513899TJ13854^D1390500029TD000'513900LA1 11 1 1 1 1 1 1 1 1 1 1 9001: 3900D13899000!0LD1389400034TJ000/0^^^^^^^^^^^01390013905G00029BD0003914135LD000/400039TDDD12605000?0 1 1 1 1 1 1 1 1 1 111 9101: TD000'014115LJ12606^1411514120C1412012605J14092SD1412000029TS000'500029C1412000029J14086SA15370000?0 1 1 1 1 1 1 1 1 1 1 1 9201: C000'0000!0J14092SA1536900029J14021^S000?0D1413500039TJ000/5^1411514120^^^^^^^^^^^^^^^G00029BD000441 1 1 1 1 1 1 1 1 1 1 1 1 9301: 4352LD000/400044TDDD000!014327TJ12606^1432714332C1433212605J14304SD1433200034TD14332S000'500029C000' 1 111 1 1 1 1 1 1 1 1 1 9401: 0000?0J14275/D00'00000'0TA1536900029C0002900034J14245/D1435200044TJ000/5^1432714332^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 9501: ^^^G00029BD0004414547LD000/400044TDDD000!014522TJ12606^1452214527C1452712605J14464/D1260500'00TD1260 1 1 1 111 1 1 1 1 1 1 1 9601: 5000!0TJ14499^D000!000'00X?000?099Z95D1543099Z952D1454700044TJ000/5^1452214527^^^^^^^^^^^^^^^^^^^^G0 1 1 1 1 1 1 1 1 1 1 9701: 0029BD0004414792LD000/400044TDDD000!014757LJ13726^1475714762C1476212605J14722SD999R514767JC147621476 1 1 111 1 1 1 1 1 1 1 9801: 7J14722UJ13110^147571476714772D14772000?0TA15371999R5D1479200044TJ000/5^D0004414751/D1479200044TJ147 1 1 1 1 1 1 1 1 1 1 1 1 9901: 52^14757147621476714772^^^^^^^^^^^^^^^^^^^^G00029BD0004415366LD000/400044TDD)1503015219J14907^G00029 1 1 1 1 1 1 1 1 111 1 1 10001: BJ14871^G00029B)15003D0004415366LD000'900044TD15435D000'4D00'0015325TD000?015346JD000!015330TJ12606^ 1 1 1 1 1 1 1 1 1 1 1 10101: 1533015341C1534112605J15244SV1520015346KD1534100029TNJ15029^D000'515346LJ15090^NJ15090^D1534600039TA 1 1 1 1 1 1 11 1 1 11 1 1 10201: 00039A00039A0003915346C000'515346J15200U,000'1A15369000'5)000'1S000'500029A1534600029,000'1D00?'000? 1 1 1 1 1 1 1 1 1 1 1 10301: '5TG00039BD15325000?0T)000'1A1536900089A1536912878D1536600044T,15003NJ000/0^,1503015219J000/5^A15370 1 1 1 1 1 1 1 11 1 1 1 10401: 01470D0147015330T,00?'0D1533600?/5L)00?'0D15330000!0LA1542900089J15200^153251533000005'1534115346^^^ 1 1 1 1 1 1 1 1 1 1 1 1 10501: ^^^^^^^^^^^^^^^^^'E51A6000050703312117^^^^^0780507820093010935600002118041184415^12605^^^^^^^^^^^^^^ 1111111 1 1 1 1 1 1 1 1 1 1 1 11 10601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^J13906^123 1 1 10701: 120527905269C0526912605J15702SJ13110^123120527412382C1238205279J15638SC1238212422J15702/J14844^12212 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10801: 12462S1537112207A1537112352C1220712605J10760SJ15638^A1537112352J10960^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 11101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^51037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^5112100097941210012200J02721^0834904777D0834907 1 1 1 1 1 1 1 1 1 201: 855TJ04309^05139D0501900034TD08349B05151000J0',999Z6D000!4000'0LG00029BA1189800034J05084^D0785500029 1 1 1 1 1 1 1 1 1 1 1 301: TD11899000'07G08349BG00069BD0501900089TD1189900?'03D0979308454TC0831909793J05255SD0979308319TD097930 1 1 1 1 1 1 1 1 1 1 401: 8324TD0834908344TJ02721^0835404777C0835408369J05321/D0839408454TJ05584^C0835408364J05363SJ11389^0835 1 1 1 1 1 1 1 1 1 1 1 1 501: 908354J05267^D0501900034TC000!908419J05453/J03946^0835909466D0501900089TD1189900?'0TD0979308359TJ052 1 1 1 1 1 1 1 1 1 1 1 1 601: 67^J08466^D0834408334TS0008908334C0833408374J05267TJ09021^08344D0839408319TJ03051^08354J02721^083540 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 4777C0835408369J05525/J03051^08354J02721^0835407075C0835407850J05685/J03051^08354J02721^0835407871C0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 835407850J05619/J03051^08354J05584^C0835407979J07075SJ03051^08354C0835408449J05787/J02721^0835404777 1 1 1 1 1 1 1 1 1 1 1 1 1 901: J03051^08354C0835408449J05733/J05584^C0835408419J05584/J02721^0837904777J03051^08379T08379083042J059 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 07UJ02721^0835404777J03051^08354C0835408414J05853/J05584^C0837908399J06433/J02721^0835404777D0796907 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 949TJ03051^08354J02721^0793404777C0832409793J06055/C0793408429J06038SD0793408354TJ06827^J02721^07934 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 04777D0834900029TT07934000'02G00029BJ06141UC000/007860J06141/D0793407865T)06789D000S507934LJ08705^07 1 1 1 1 1 1 1 1 1 1 1 1 1301: 934C0838909793J06202SJ03051^08429J03051^07934J06635^J09477^07934J09290^09471D0501900089TD1189900?'0T 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: D0979309471TJ06284^079390794407949D1190400034TS1190500034A1190500034D000!006341TJ08705^06341C0838909 1 1 1 1 1 1 1 1 1 1 1 1 1501: 793J06408/J09290^09471D0501900089TD1189900?'0TD0979309471TC0003411910J06307/J06635^C0837908309J06635 1 1 1 1 1 1 1 1 1 1 1 1601: /J02721^0835404777J03051^08354J02721^0793404777C0832409793J06550/C0793408429J06019/J02721^0793404777 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: J08705^07934C0838909793J06171/J09290^09471D0501900089TD1189900?'0TD0979309471TJ05853^NJ06741^,067890 1 1 1 1 1 1 1 1 1 1 11 1 1801: 6636J02721^0835404777J03051^08354J02721^0835404777J08705^07865J10677^094710787008354J07020^J02721^08 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 35404777C0835408414J06809/J03051^08354NJ05584^)06636J05584^C0835409476J06846/J03051^08354J06635^C083 1 1 1 1 1 11 1 1 1 1 1 1 1 1 2001: 2409793J06899/C0835408429J06827/J02721^0835404777C0835211913J06827SC0835409793J06827SC0835111914J068 1 1 1 1 1 1 1 1 1 1 1 1 2101: 27UC0835011915J06827TJ08705^08354C0838909793J07020SJ03051^08429J06827^J09290^09471D0501900089TD11899 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 00?'0TD0979309471TJ06635^C0835407974J07511SJ02721^0799104777J02721^0798604777C0799111920J07246SD0501 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: 900034TD0979310061TD07997000!0,G00089BS1192100089D07991000!4TS1192107991J03946^0799609466J07127^C079 1 1 1 1 1 1 1 1 1 1 1 2401: 8611926J07494SD0501900034TD0979310061TD08033000!0,G00089BS1192100089D07986000!4TD0798607981LC0798011 1 1 1 1 1 1 1 1 1 2501: 914J07401SD0807808334TD07980083343J11389^0799608334D0807808334TD07981083343J11389^0799608334J11389^0 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 799608414J03946^0799609466S1192107986J07246^J02721^0835407511J03051^08354C0831909793J07572/D07855000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 34TD1193107777TJ07741^D0834900039TD08349D07855D000!0999R5^G00034BC0003408344J07729U,000!1T000!5000'0 1 1 1 1 1 1 1 1 1 1 1 2801: 2J07677SD0003400039TJ07596^D0834907699TD000?007700XDG08349BG00039B)000?1J07658^D0834900034T/000!0G00 1 1 1 1 1 11 1 1 1 1 1 1 2901: 034BC0003411936J07741TJ07779^D11899000!1TD0501900089TJ05213^W07834014798J03755^PH^54J03755^PHT54^#37 1 1 1 1 1 1 1 1 1 1 1 1 3001: 300000^CNDN0000000005J03854^07890J04777^05430--STATEMENT^INCOMPLETE^AFTER^ENTER"00000000000000000000 1 1 1 1 1 1 1 1 11 1 1 1 3101: 00000000000000000000^EOP1FEOP2^^^^^^^^^^^^WRKST99999^LOC1DCW^^#20^^^MACSWRKST00025'99999^LOC1EQU^^^^ 1 1 1 1 1 1 1 3201: ^^0^^^^&^^^^XWRKST00030'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 3301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^#329^PERC^PERD^PERE^PER1^PER2^PER3^PERT^AUG1^PERA^PERB^#372^EQU1^IMPN 11 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: ^COLN^#370^#479^#485^#326^#327^#328^WRFR^WRIT^RLNK^#470^#402^PCSP00000000010000000000^^^^11999800000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 0000000000'^^^^^EOST0030000000000000000000001^SBSC0000000000^MACS^LOC1^OPND^NTFD^^^^000009UNDEF^#383 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 00000'00000^#426G00029BD0003908704LD0834400034TD11899000!0X)000!0D0501900039T,000?0000?5D99IX9999R9X 1 1 1 1 1 1 1 1 1 1 1 3701: G00034BD000?4000!0XG00034B)000!1D11899000!0X)000!0D11899999R9XD0003408344T)000?0000?5D0979308359TD05 1 1 1 1 1 1 1 1 1 1 1 3801: 01900089TD1189900?'0TD0870400039TJ000'0^^^^^^^^^^^^^^^^G00029BD0004909020LD000'400034TD0834900039TD0 1 1 1 1 1 1 1 1 1 3901: 006900039TT000!0000?02G00044BJ08940UD00'0100?'0,G00089BD0008900049TA1193700049D0831499ZZ9TS050190004 1 1 1 1 1 1 1 1 1 4001: 9A1193900089D0004999IZ9TA1192101470D0147099IZ4TD0147009471TD0979308389TD0902000049TJ000'5^C000440834 1 1 1 1 1 1 1 1 1 4101: 4J08977TD0839408389TJ08921^D0004400039TJ08760^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003909289LD083440003 1 1 1 1 1 1 1 1 1 4201: 4TD000!1000!1+G00039BA1190500034C0003400039J09256TC000!008399J09071/D0834400034TA1190500034C00034000 1 1 1 1 1 1 1 1 1 1 4301: 39J09202T,999R6D0003409188TJ03051^09188)999R6J09130^J03051^08364D0003908344TS1192108344D11899999I97J 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 09040^D0928900039TJ000'5^^^^^^^^^^^^^^^^G00029BD0003409456LD0501900034T,000!0D000!409461TC0946108429 1 1 1 1 1 1 1 1 1 4501: J09369SJ03051^09461)000!0A1190500034C000!409471J09321/D0501900089TD1189900?'03D0945600034TJ000'5^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 4601: ^^^^^^^00000PH^6100000^^^^,G00029BD0003409778LD000'400034TJ10447^094710839909788C0978809793J09588/J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 3854^09567J04777^INVALID^SUBSCRIPTING"A1192109788J10708^094710978809783C0978308399J09750SC0978307934 1 1 1 11 1 1 1 1 1 1 1 4801: J09588SC0793909793J09694/D0978307939TJ09588^C0794409793J09731/D0978307944TJ09588^D0978307949TJ09588^ 1 1 1 1 1 1 1 1 1 1 1 4901: D0977800034TJ000'5^^^^^^^^^^^^^^^^^^^^^00000G00029BD0003910056LD0979300039TD000'900034TDW09881999Z6& 1 1 1 1 1 1 1 1 1 1 11 5001: D00039000!0TD1005600039TJ000/0^C10061000'0J09917/A1006600039J09850^A0008900039S1194000039C0003905019 1 1 1 1 1 1 1 1 1 1 5101: J10004UC000?0000'0J10017SS000?500039S1194100038J09939^S00039J09850^D0003910066LD000'0J09850^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 5201: ^^^^^^^1006110066G00029BD0003410266LD000'400034TD000!010251TD09793000!0TJ09794^1025110256C1025609793 1 1 1 1 1 1 1 1 1 1 1 5301: J10228SD0979310061TD1025600034TD10256S000!500034D000'6999R6,G00089BS1194100089D1026600034TJ000'5^102 1 1 1 1 1 1 1 1 1 1 1 5401: 5110256^^^^^^^^^^G00029BD0003410435LD000'900034TDD000'010441TJ09794^1044110446C1044609793J10365/D097 1 1 1 1 1 11 1 1 1 1 1 1 5501: 9310440TJ10395^D1044600029TD000'510441LA10441D10440000!0LD1043500034TJ000/0^^^^^^^^^^^01044110446G00 1 1 1 1 1 1 1 1 1 1 1 5601: 029BD0003910676LD000/400039TDDD09793000?0TD000'010656LJ09794^1065610661C1066109793J10633SD1066100029 1 1 111 1 1 1 1 1 1 1 5701: TS000'500029C1066100029J10627SA11941000?0C000'0000!0J10633SA1189800029J10562^S000?0D1067600039TJ000/ 1 1 1 1 1 1 1 1 1 1 1 5801: 5^1065610661^^^^^^^^^^^^^^^G00029B,1077410951)11182J10735^G00029B,10971J10735^G00029BD0004411323LD00 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 0/400044TDDD000!011298TNJ10793^D0979300'00TJ09794^1129811303C1130309793J11119SV11042000?0KD113030003 111 1 1 1 1 1 1 1 1 1 6001: 4LD000?011303JA11303A11303A000?011303C000!511303J11181UD0003400039TS000?500039A1130300039S1189800039 1 1 1 1 1 1 1 1 1 1 6101: NJ11162^D000?000'00LNJ11042^D000?1999I6,,999R6S11898000!0)999R6J11084VS1189810066S1189800089D1132300 1 1 1 1 1 1 1 1 1 1 1 6201: 044T)1077410951)10971,11182J000/5^D000!1999R1,S1194300089D0979310061TD1132300044TD000'411153/D097931 1 1 1 1 1 1 1 1 1 1 6301: 1154TJ11054^D00'00000?0TJ11042^NJ11042^S1189811303C000!511303J11042/,999R6D00?'000?'5TD00'00000!0T,0 1 1 1 11 1 1 1 1 1 1 1 6401: 00!6A11898000J0)999R6000!6A1189800089J11042^1129811303^^^^^^^^^^^^^^^^^^^^G00029BD0004411897LD000/40 1 1 1 1 1 1 1 1 1 1 6501: 0044TDD)1156111750J11438^G00029BJ11402^G00029B)11534D0004411897LD000'900044TD11948D000'4D00'0011856T 111 1 1 1 1 1 1 1 1 1 1 6601: D000?011877JD000!011861TJ09794^1186111872C1187209793J11775SV1173111877KD1187200029TNJ11560^D000'5118 1 1 1 1 1 1 1 1 1 11 1 6701: 77LJ11621^NJ11621^D1187700039TA00039A00039A0003911877C000'511877J11731U,000'1A11898000'5)000'1S000'5 1 11 1 1 1 1 1 1 1 1 1 1 6801: 00029A1187700029,000'1D00?'000?'5TG00039BD11856000?0T)000'1A1189800089A1189810066D1189700044T,11534N 1 1 1 1 1 1 1 1 1 1 1 6901: J000/0^,1156111750J000/5^A1194101470D0147011861T,00?'0D1186700?/5L)00?'0D11861000!0LA1194300089J1173 1 1 1 1 1 1 1 1 1 1 1 7001: 1^118561186100005'1187211877^^^^^^^^^^^^^^^^^^^^5'06273E06283TMP0ZTMP00AII0050781012100D1D611509793^ 1 1 1 1 1 111 11 1 111 11 1 1 11 111 1 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^54037810485004850^^^^^^^^^^^^^^ 1: B0663406472NB0488106472@J06485^D0491105367TJ05301^J06540^AA8JJ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^5418850160931840018900D18044148123J16366^05372J 1 1 1 1 1 1 1 1 1 201: 05200^C0536718049J05088SJ05301^J05025^J03051^05367J05200^T05367154492G00039BJ05074UD000?000034TJ000! 1 1 1 1 1 1 1 1 1 1 1 1 301: 0^G05198BJ17013^0537215023J17013^0537205362J05199^G05259BB0526114812TJ02721^0536706842C0536706978J06 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 890SJ05260^J17547^150781482205367A1805014822J05254^G05259BJ03051^05367J05254^G05356BJ17013^053720536 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 7J05357^^^^^,0000000000G05397BJ03051^05362J05398^G05435BJ03051^15023J03051^05362J05436^G05508BB05510 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 14812TJ02721^0536706842C0536706978J06890SJ03051^05367J05509^J17547^150781482205367A1805014822J05491^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: G00069BC1485118055J05666SC1485118060J05685SC1485118065J05704SC1485118070J05723SC1485118075J05723SD18 1 1 1 1 1 1 1 1 1 1 1 1 801: 04400!'03J00!'1^D1807600!'03J00!'1^D1807700!'03J00!'1^D1807800!'03J00!'1^D1807900!'03J00!'1^G06139BB 1 1 1 1 1 1 1 1 1 1 1 901: 0645314848#C0536418081J06689SD18044148123V05810148482J06270^D18044149833J05301^J05373^J05437^J05373^ 1 1 1 1 1 1 1 1 1 1 1001: J05200^C0536718086J06141SD1809105367TJ05301^J05373^J05200^J05200^C0536718096J06155SC0536718101J06181 1 1 1 1 1 1 1 1 1 1 1 1 1101: SJ05399^C0536718106J05990SJ05200^J05958^J05200^C0536718111J06029SJ05301^J05990^J05373^J05200^C053671 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 8116J06075SJ05301^J06036^J05373^J05200^J05301^D05367148383J05200^J05301^D05367148393J06140^J05399^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 5901^D18117148873J05200^J05933^J05200^C0536718122J06251SD1812705367TJ03051^05367J05373^J05200^J05958 1 1 1 1 1 1 1 1 1 1 1 1 1401: ^D1813205367TJ06218^D18133149833J05301^J05373^J17522^148511481714856J15667^053721485114791J16366^053 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 72D1479105372TJ16366^14851J16093^0537200074C0007416092J05025SS1813500074D00!!0148383D00!!5148393J068 1 1 1 1 1 1 1 1 1 1 1 1 1601: 11^D18136149833J05550^^J04850^0^^^^D1502305367CD06472053673J03051^14993J05301^J03051^14993J05373^J17 1 1 11 1 1 1 1 1 1 1 1 1 1 1701: 522^148711481715008J15667^053721487114791J16366^05372D1479105372TJ06777^D18137149833J05301^J05373^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 7522^148711481715063D1813914839TJ06569^D18140149833J06727^D1485115078CJ05822^G06775BD18141148123D148 1 1 1 1 1 1 1 1 1 1 1 1 1901: 1714822CD0537215078CJ06776^J17013^0537214832J17013^0537214832J15456^05372J16366^05372J06134^J03051^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 5367W0687801479-J03755^PH^60J03755^PHT60G06972BS1814306972J03051^06978J02721^0536706979J03051^05367C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 0536706978J06920/J06973^^#373D0697207014LJ03854^07010J04777^^^^^^--STATEMENT^INCOMPLETE^AFTER^ENTER" 1 1 1 1 1 1 1 1 1 2201: D18144148813J05301^D0536714866CJ05437^J05200^D0536714851CD18145148273J05742^D18044148123B0715714983N 1 1 1 1 1 1 1 1 1 1 2301: J07189^C0536718150J07189SJ05200^J07138^J05437^B1441115053ZB07270148275D1483914841TD18151148273J05200 1 1 1 1 1 1 1 1 1 1 1 2401: ^D0536714851CJ07119^B0730114881AB0825914881CJ08017^J05437^D1486614851CC1485118156J07516SC1485118161J 1 1 1 1 1 1 1 1 1 1 1 2501: 07534S?1484114861S1483914861V0755214861KJ16566^1484114861J15667^148711486114876J16366^14861J16093^14 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 87600074D0536700!!0TC0536718166J07502SJ05200^J07470^J05301^J05025^A1483914841J07390^A1816714841J0739 1 1 1 1 1 1 1 1 1 1 1 1 2701: 0^D1483914841CJ07390^D18168148813J07621^D18169148813J07621^D18170148813D1817505367CJ05301^J05437^J05 1 1 1 1 1 1 1 1 1 1 1 2801: 200^D0536714851CD18145148273J05742^J05200^J05200^J05373^J05437^J05437^J05373^D1488105367CJ05301^J053 1 1 1 1 1 1 1 1 1 1 1 1 2901: 73^J05200^C0536718180J07920/J05301^J05373^J08043^J05437^J05373^J05200^C0536718150J07887SJ05301^J0537 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 3^J05437^J05373^J05437^J05200^J07967^J05399^J05399^J03051^15023J07967^J05399^J08043^J05399^J05399^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 5399^J03051^15023D18151148273D18044148123J05437^J05200^D0536714851CJ05742^D18044148123J07470^G08074B 1 1 1 1 1 1 1 1 1 1 1 3201: B0807614887BJ05399^J08075^D18181148873J03051^15058J05373^J08069^D1507315053CJ08228^D1503315053CJ0822 1 1 1 1 1 1 1 1 1 1 1 1 3301: 8^D1503815053CJ08228^D1504315053CJ08228^D1505815053CJ08228^D1504815053CJ08228^D18182148813D181870536 1 1 1 1 1 1 1 1 1 1 3401: 7TJ07062^J05437^J05373^D1505305367CJ05301^J05437^D1502215053TJ05025^J03051^14719J05437^J03051^14724J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 05373^J05437^D0536714744CJ05373^J09085^B09491147493B09528147492C1474414729J09565SD1804414764TA180500 1 1 1 1 1 1 1 1 1 1 3601: 1460J15667^160921479614801D14749148113J17013^1480114811J12282^J03051^01460J05373^B0858614764NB087481 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 47641B08769147642B08811147643J05025^B08874147491B08629147492B08678147493J05025^J09584^J05373^J09584^ 1 1 1 1 1 1 1 1 1 1 3801: J05373^J09797^J09797^J08895^J09584^J05373^J09584^J05373^J09584^J05373^J09797^J09797^J09797^J08895^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 9731^J05373^J08888^J09584^J05373^J09731^J05373^J09797^J08888^J09584^J05373^J09584^J05373^J09731^J053 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 73^J09797^J09797^J08888^J09584^J05373^J09797^C0536718150J08927SJ05200^J08895^J05200^J05200^D05367148 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 37CJ16366^14837J16093^0537200074D0536700!!0TD1609205372TJ03051^15013B09054053660D05366150183J03051^1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 5018D05367150183J03051^15018J05025^J16366^14769J05200^C0536718192J09136SJ05327^J09085^J05200^D181391 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 4749TD0536714729CA1805014749J05200^C0536718192J09281SA1805014749D0536714734CJ05200^C0536718192J09281 1 1 1 1 1 1 1 1 1 1 4401: SA1805014749D0536714739CJ05200^J05200^C0536718111J09320SJ05327^J09281^J05327^J05200^C0536718116J0937 1 1 1 1 1 1 1 1 1 1 1 1 4501: 6SJ17013^1476905367J09320^J05327^C0536718150J09415SJ05200^J09376^J17013^0537214982J08389^J05152^J051 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 52^J05152^J05152^J17013^0537215023J08389^C1474414739J08431/D18145147643J08443^C1474414734J08431/D181 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 93147643J08443^D18050147643J08443^G09729BC0536718111J09623SJ05200^J09591^A1805001460J03051^01460J156 1 1 1 1 1 1 1 1 1 1 1 1 4801: 67^160921479614801J05200^C0536714993J09717SJ17013^1480105367J09668^J12282^J09730^G09795BJ15667^14796 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 1476914801A1805001460J03051^01460J12282^J09796^G09862BC0536718150J09836SJ05200^J09804^J05200^J05437^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: J05373^J09863^D18136150183J09895^D18141150183J05200^D1609214846CJ05200^J05200^C0536718198J10733/J053 1 1 1 1 1 1 1 1 1 1 1 1 5101: 27^C0536714982J09985SJ05200^J09946^J06727^J03051^14779D1481714822CJ05200^J05437^J05373^J05200^D15022 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 05366CJ05301^J05373^J05200^D0536714851CJ05200^J05200^C0536718116J10135SJ05301^J10096^J05373^J03051^1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 4851J05373^J03051^15018J05373^J10346^J10346^D0536714851CJ05200^C0536718203J10382SD18204150533J03051^ 1 1 1 1 1 1 1 1 1 1 1 1 5401: 15053J05373^J03051^14851J05373^B1040115053SS1805014822J10346^J10346^J05301^J05373^J05200^J10401^G103 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 80BJ17567^150781482205367J10381^D18169150533J10243^B1054715018FJ05200^J03051^15018J05373^J16093^1507 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 800079D99RI014866LJ03051^14866J03051^14982C0536718150J10004/D18044148123C1484616092J05025SJ10670^J05 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 200^C0536718150J10420SC1484616092J10640SJ03051^14988J05373^J03051^14846J03051^14982J10004^A180500146 1 1 1 1 1 1 1 1 1 1 1 1 1 5801: 0D0146014846CJ10590^J15667^160921477405372J16999^0537214846J03946^0537214786J05025^D18205111223J0520 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 0^C0536718210J10801/B1107415018FD18204111223J11074^T05367147042G00049BD00''014851CJ05200^C0536718215 1 1 1 1 1 1 1 1 1 1 6001: J10953SB1096515018FJ17522^149571481714851J05200^J05200^J05200^J17522^149571496705367J15456^14957J110 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: 42^B1086915018FJ17522^149621481714851J05200^J05200^J05200^J17522^149621497205367J15456^14962C0536714 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 982J05025SJ05200^J11042^D18076188343D0536715083LJ05200^C0536715098J11135/D18050188343D18205111223C05 1 1 1 1 1 1 1 1 1 1 1 6301: 36714982J11086/J17522^150881509315083J15456^15088J11042^D1805015018CJ11237^D1807615018CD1492714801CJ 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 11399^D1805015018CJ11287^D1807615018CD1492214801CJ11399^D1805015018CJ11337^D1807615018CD1493214801CJ 1 1 1 1 1 1 1 1 1 1 6501: 11399^D1805015018CJ11387^D1807615018CD1493714801CJ11916^J05437^J03051^14942J15456^14801D1609214801CJ 1 1 1 1 1 1 1 1 1 1 1 1 6601: 05373^J05437^C0536418081J11876SJ05200^C0536715013J11902/J05200^B11680053671J05373^J09584^J05373^J156 1 1 1 1 1 1 1 1 1 1 1 1 6701: 67^160921479614801J17013^1480115018A1805001460J12282^J03051^01460J05373^D18044148123C0536705362J1166 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 6SJ05200^J11634^J05437^J05025^J05200^C0536718150J11719SJ05327^J11680^J06727^J03051^14912C0536718111J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 11782SJ05200^J11738^J03051^05367J05200^C0536718116J11770/J03051^14917J03051^14947J05373^D1481714822C 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: J09584^D1804414812CJ11539^J06727^D0536715078CJ11481^G11914BJ11915^G11940BJ03051^14719J11941^D1609214 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: 749CJ11916^J05437^J03051^14952J05373^J05437^C0536718150J12026SJ05200^J11994^J05437^A1805014749J05200 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: ^J05327^J05200^J05327^C0536714982J12033/A1805001460J03051^01460J05373^J15667^160921479614801D1501305 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 367CB12195147480D14748053673J17013^1480105367D14749053673J17013^1480105367J12282^J06727^J05437^C0536 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 714982J12238/J16366^15078J05025^G12374BJ17013^1480114993J17013^1480114982J16999^1480101460J03946^148 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 0114786J16366^14801J12375^J11916^J05437^J05200^C0536716092J13636/D18216053673D18076150183D1502205366 1 1 1 1 1 1 1 1 1 1 1 1 7601: CC0536718216J12488/J03051^14754J12500^J03051^14759B12536014980D01498148923J03051^14892J05373^C053671 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 8216J12575/J05200^J12727^J15667^160921479614801J17013^1480105367A1805001460J03051^01460J05437^J12282 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7801: ^J15667^160921479614801J17013^1480115018A1805001460J03051^01460J12282^J05373^D1609214781CJ05200^J053 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 27^D0536714851CJ05550^^B1279212772NJ12835^C0536418081J12835SC0536718150J12835SJ12739^A1805014781J052 1 1 11 1 1 1 1 1 1 1 1 8001: 00^C0536714982J12746/J05327^J15667^160921479614801J06727^B12948147800D14780150183J17013^1480115018D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 4781150183J17013^1480115018A1805001460J03051^01460J12282^J05200^D0536714851CJ05550^^B1321713033NJ053 1 1 1 1 1 1 1 1 1 1 11 1 8201: 73^A1805001460D1303315053CJ15667^160921479614801J17013^1480115053J12282^J03051^01460J05373^J15667^16 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8301: 0921479614801J17013^1480114947A1805001460J12282^J03051^01460J13350^C0536418081J13401SJ05200^C0536615 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 022J13382/J05373^J03051^14851J05200^C0536714817J13491SJ05373^J09584^C0536718150J13350SJ05200^J13318^ 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: J05200^C0536714982J13382SJ13007^J03051^14982J05025^J05373^J05301^J05373^D1482214749CJ06727^D05367150 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 78CJ09584^D0537215078CD1474914822CJ13350^G13634BD1482214749CJ05200^C0536718111J13542SJ13510^J03051^1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 4912J05200^C0536718116J13593SJ05301^J13554^J03051^14917J03051^14947D1474914822CJ13635^G00034BJ05200^ 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: J05200^D05367150533J05200^D05367150183C0536718150J13720SJ05200^J13688^D1505305367CJ000L6^J11916^J054 1 1 1 1 1 1 1 1 1 1 1 1 8901: 37^J03051^14709B13801014980D01498148923J03051^14892J05373^J05200^C0536716092J13636/D18078053673D1807 1 1 1 1 1 1 1 1 1 1 1 1 9001: 6150183D1502205366CJ15667^160921479614801J17013^1480105367A1805001460J03051^01460J05437^J12282^J1566 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 7^160921479614801J17013^1480115018A1805001460J03051^01460J12282^J05373^J05200^J05327^C0536714982J140 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9201: 21/J06727^J05437^J05200^J05200^C0536714817J13491SJ05373^J09584^C0536718150J14145SJ05200^J14113^J0543 1 1 1 1 1 1 1 1 1 1 1 1 1 9301: 7^J05025^J03051^14714J05437^J05437^B1434005363TJ05200^J15667^160921487105372J17522^053721481705367C0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9401: 536714993J14280SJ05200^J14248^J05200^J05327^J05200^J05327^C0536718150J14340SJ05200^J14308^J05437^J05 1 1 1 1 1 1 1 1 1 1 1 1 1 9501: 437^D0536799IZ4TD1609216360TJ05437^J05025^D18217150533J08228^J05437^J05373^J15456^05367J05437^J08259 1 1 1 1 1 1 1 1 1 1 1 1 9601: ^D18204150532D18144150182J14506^D18170150532D18050150182J03051^15028J05437^J05200^J05200^B1460505367 1 1 1 1 1 1 1 1 1 1 1 9701: 1J05200^J05200^D15053053672J05301^J05200^J05437^J05025^D15018150532J14551^^BEF1^^#189BER1^^#190BER1^ 1 1 1 1 1 1 1 1 1 11 1 1 1 1 9801: ^#185BER1^^#197BNQ^^^#170BPCB^^#187BC9^^^#174BCV^^^#175ACCPTZS^^^CALL^SBSCR^^^^^^^^^^^^^^^^^^^^^^^^X 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9901: DSP$1DSP$2^^^^X11111EQUSTCOND#00PH^61^^^^^CTRAX0000000004^^^^^N000010000000000^^^^000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 10001: 00^^^^900000^^^^^GTSTG00000^^^^^^^^^^^^^^^^00002DSPLYBRAST^^^^&^^^^-NEGSTPOSSTALFSTNUMSTCLSGN^^^^1GT 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 10101: DPGHRASTHRBST000090000300007^MACS^^^^^T^^^^@^^^^^00000^^^^F^^^^X^^^^^^^^^KSKIP^^^^^N^^^^G^^^^S^^^^E^ 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: ^^^^^^^^B^^^^U^^^^R^^^^L00000^^^^^BNEST00016^#548^14482^#45814451^#46012376^#33111942^#40214392^#448 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 10301: 14159^UNMN13739^#33211206^#35911225^ZNEG11256^#36011275^ZPOS11306^#39211325^XNUM11356^#39411375^XAPH 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10401: 09864^XFCD09883^XCND08318^SBSC08133^#35608152^#35708114^#35808171^LSEQ08190^GREQ08209^^^^#07571^#459 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10501: 07609^#37807590^ASNR07609^ASGN07590^#49607609^#47607050^^^**07050^^^^/07050^^^^*07050^^^^-07050^^^^& 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10601: ^HDR20G00029BD0003915666LD000'400039TD000?015646TJ16093^1564615651C1565116092J15623SD1565100039TD156 1 11 1 1 1 1 1 1 1 1 1 1 10701: 51S000?500039C0003900034J15623SD000?015646LJ03051^15646A1815100039J15563^D1566600039TJ000'5^15646156 1 1 1 1 1 1 1 1 1 1 1 1 10801: 51^^^^^^^^^^^^^^^G00029BD0004916087LD0008900049TD000/4DDD1609216061TD000!016046TJ16093^1604616051C16 1 1 1 1 1 111 1 1 1 1 1 10901: 05116092NJ16008^,15759J15995SD1605100034TD16051A000'516061,999R5S000'500029D999Z600''0#G00049B)999R5 1 1 1 1 1 1 1 1 1 1 1 11001: NJ15883^,15851D000?016046TJ15730^)16057A1805001470D0147016056TD1605200''0,G00089BS1805000089D0147000 1 1 1 1 1 1 1 1 1 1 1 11101: '00TD1608700049T)1575915851,1601616057J000/5^)16016J15858^J15779/NJ15883^D1609200'00TJ15954^16046160 1 1 1 1 1 1 1 11 1 1 1 1 11201: 511605616061'^^^^^^^^^^^^^^^^^^^^^^^^^00000G00029BD0003916355LD1609200039TD000'900034TDW16180999Z6&D 1 1 1 1 1 1 1 11 1 11301: 00039000!0TD1635500039TJ000/0^C16360000'0J16216/A1636500039J16149^A0008900039S1821600039C0003905019J 1 1 1 1 1 1 1 1 1 1 11401: 16303UC000?0000'0J16316SS000?500039S1805000038J16238^S00039J16149^D0003916365LD000'0J16149^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 11501: ^^^^^^1636016365G00029BD0003416565LD000'400034TD000!016550TD16092000!0TJ16093^1655016555C1655516092J 1 1 1 1 1 1 1 1 1 1 1 1 11601: 16527SD1609216360TD1655500034TD16555S000!500034D000'6999R6,G00089BS1805000089D1656500034TJ000'5^1655 1 1 1 1 1 1 1 1 1 1 11701: 016555^^^^^^^^^^G00029BD0003916882LD000'900039TDD1609216866TD0003916633LJ16366^16633A1805001470D0147 1 1 1 1 1 11 1 1 1 1 1 11801: 0000?0TD000!0000!0^G00029BA1805000029D000'0168893T16889169472G00039BJ16843UD999G316887TD1688700?'4TA 1 1 1 1 1 1 1 1 1 1 11901: 1815100089A1815116866C0002900034J16676/A1805000088D0147099IZ4TD1686700?'0TD1688200039TJ000/0^D168891 1 1 1 1 1 1 1 1 1 12001: 6887TJ16737^16866'^^^^^^^^^^^^^^^^^^^^^^^LPLTGMRP.,DLWSQT..GTTMCTRM,^^^[^<^"^]^;^_^^+^:^>^(^^^'^\G00 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 12101: 029BD0004417521LD000/400044TDD)1718517374J17062^G00029BJ17026^G00029B)17158D0004417521LD000'900044TD 1 1 111 1 1 1 1 1 1 1 1 12201: 18222D000'4D00'0017480TD000?017501JD000!017485TJ16093^1748517496C1749616092J17399SV1735517501KD17496 1 1 1 1 1 1 1 1 1 1 1 12301: 00029TNJ17184^D000'517501LJ17245^NJ17245^D1750100039TA00039A00039A0003917501C000'517501J17355U,000'1 11 1 1 11 1 1 1 1 1 1 1 12401: A18151000'5)000'1S000'500029A1750100029,000'1D00?'000?'5TG00039BD17480000?0T)000'1A1815100089A181511 1 1 1 1 1 1 1 1 1 1 1 12501: 6365D1752100044T,17158NJ000/0^,1718517374J000/5^A1805001470D0147017485T,00?'0D1749100?/5L)00?'0D1748 1 1 11 1 1 1 1 1 1 1 1 12601: 5000!0LA1822400089J17355^174801748500005'1749617501^^^^^^^^^^^^^^^^^^^^G00029B,1761317790J17574^G000 1 1 1 1 1 1 1 1 1 1 1 12701: 29B,17810J17574^G00029BD0004418043LD000/400044TDDD000!018018TNJ17632^D1609200'00TJ16093^1801818023C1 1 1 1 1 1 111 1 1 1 1 1 1 12801: 802316092J17952SV17881000?0KD1802300034LD000?018023JA18023A18023A000?018023C000!518023J17881UD000340 1 1 1 1 1 1 1 1 1 1 12901: 0039TS000?500039A1802300039S1815100039NJ17995^D000?000'00LNJ17881^D000?1999I6,,999R6S18151000!0)999R 1 1 1 1 1 1 1 1 1 1 13001: 6J17917VS1815116365S1815100089D1804300044T)1761317790)17810J000/5^D000!1999R1,S1822400089D1609216360 1 1 1 1 1 1 1 1 1 1 13101: TD1804300044TD000'417986/D1609217987TJ17893^D00'00000?0TJ17881^1801818023^^^^^^^^^^^^^^^^^^^^N^LOC11 1 1 1 1 1 1 1 1 1 11 1 13201: ^#362^#514^#505^#507^#5160@9^II00000^^^^1^#395^#414^WDMK^#448^^^^@B^#442^^^^L^^^^RG1?FU00IT3EA3^PCSP 1 1 1 1 1 11111 1 1 1 1 1 1 1 11 1 1 11 111 111 111 13301: 5^^^^*^^^^/^MACSALRMMOVE#^^^^EKCTEST#^SBSC2^CNDN^#453S/^#170^#5306Z1609215^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 11111 1 111 1 11 1 111 1 111 1 13501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^9^^^^,^^^^K^^^^,^^^^K^^^^,^^^^1^^^^,^^^^2^^^^0^ 13601: ^^^,GTSTG00055^LOC1DCW^^^^^^@CTRAX00015^LOC1EQU^^^^^^*EQUST00015BEF1^^OPNDGL331^MACSHRBST00020BEF1^^ 13701: OPND^^^^*^^^^&^^^^8^MACS^LOC1B^^^^GL001^MACSHRAST00050^^^^N^^^^U^^^^MNUMST00015^^^^A^^^^L^^^^FALFST0 13801: 0015^^^^N^^^^E^^^^GNEGST00015^^^^P^^^^O^^^^SPOSST00015^LOC1BA1^^^OPND*-8^^^MACSBRAST00025BNQ^^*&8^^^ 13901: MACS^LOC1B^^^^*&13^^MACS^LOC1MLCS^@1@,ACCPTSWT^^^^MACS^LOC1BCE^^00000^^^^,ACCPTSWT,0^MACSBNEST00100' 1: PH^60037810485004850^^^^^^^^^^^^^^ 1: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B0709707419#C0741904941J07097SJ06891^CALL^^^^^^^^^ 1 1 1 1 1 101: J07085SC0577804998J06926/D05824074?13J07016^^^^GM^PH^6011867075071186711900D0147507404TJ02721^057780 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 5703C0577805808NJ05248^J05332SC0577805813J05964SC0577809684J05206SC0577809689J05421SC0577809694J0539 1 11 1 1 1 1 1 1 1 1 1 301: 2/J02721^0577804777C0577809689J05421SD0577807410TJ05404^J02721^0577804777C0577806261J05206/J05037^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 5356/)05066,07053J02721^0577804777C0577805813J05964S)06130J02721^0577804777J05964^,0506606130)07053J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 05037^C0577805813J05964SC0577809689J05421SD0577807409TJ02721^0577804777J02721^0579804777W0678905794" 1 1 1 1 1 1 1 1 1 1 1 1 601: J02721^0577804777T05798100872G00044BJ05531ST05798098462G00044BD00'0005798TJ06789^D00'0000039TD000?00 1 1 1 1 1 1 1 1 1 1 1 1 701: 0?'0+G00089BS0969500089A0969501470D0147099IZ4TD0147005834TD0970005839TJ05856^J08554^058340583905849S 1 1 1 1 1 1 1 1 1 1 1 1 801: 0970105839B05620058500D09702058503J07780^05849J06262^B05762030320A0969507403D0740401475TD0970707419T 1 1 1 1 1 1 1 1 1 901: J03576^07400J03755^PH^61057780578305788^LOC1^OPND05803^#383^#3730001100001"058290583405839^^^^,05849 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1001: 0ERRORJ07780^05849J02721^0577804777C0577809708J05627SC0577809713J05945SJ08045^0584905778J05868^D0969 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 5058503J05627^A0970107403D09714074053D0581800039TJ02721^0577804777C0577805813J06179SD05778074?0TA097 1 1 1 1 1 1 1 1 1 1 1 1201: 1500039C0003909717J05999/J03576^07400D09718074793D0747907478LB05964074910S07491NJ05037^J02721^057780 1 1 1 1 1 1 1 1 11 1 1 1 1301: 4777C0577805808J05332SJ05037^D09695074913C0003905818J06075/S0970107403J06099^06231062360624100000000 1 1 1 1 1 1 1 1 1 1 1 1 1401: 0000000^MACSD0003907501LJ07507^0583407296C0729607506J05037SD0729600034TS000!500034D000!007313LA09715 1 1 1 1 1 1 1 1 1 1 1 1501: 00034B0638607309^D0731307409TJ06332^D000!007313LD0731307419TA0971500034D000!007313LD0972300039TC0731 1 1 1 1 1 1 1 1 1 1601: 309728J06498/D0972300039TA0971500034D000!007313LC0731309713J06646SC0731209732J06564SD07313074?5TA097 1 1 1 1 1 1 1 1 1 1 1701: 1500039J06587^D07313074?13A0970100039C0973700039J06475TA0971500034D000!007313LC0731306261J06605/D096 1 1 1 1 1 1 1 1 1 1 1801: 95073143A0973907404J03576^07400D09718074793D0747907478LB06463073140D09702073143A0971500034C072960003 1 1 1 1 1 1 1 1 1 1901: 4J06332/D0750100039TJ07780^05834J05037^D0003907291LD0579807419TJ02721^0577804777C0577809728J06813SC0 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 577807308J06872/,07109D0972300039TJ06908^J02721^0577804777C0577809713J04950^C0577709732J07004SD05778 1 1 1 1 1 1 1 1 1 1 1 1 2101: 074?5TA0971500039C0748005824J06891SJ04777^^4807J06891^D05778074?13A0970100039C0577809708J07060SJ0689 1 1 1 1 1 1 1 1 1 1 1 2201: 1UNJ06891^C0003909741J04900TJ06891^D09695072813A0973907404NJ07195^J03576^07400D09718074793D074790747 1 1 1 1 1 1 1 1 1 1 1 2301: 8LB06813072810D09702072813D0729100039TJ05037^C0974600039J07262UD0975107424TD0743707431$D09718074753) 1 1 1 1 1 1 1 1 1 1 2401: 07109J07116^D0975607424TJ07249^00000000000072960000000SBSCR073130^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1 1 1 1 2501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 2601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^0^^^^^^^^^^00000G00029BD0003907769LD0750600039TD000'900034T 11 11 1 1 1 1 1 2701: DW07594999Z6&D00039000!0TD0776900039TJ000/0^C07774000'0J07630/A0777900039J07563^A0008900039S09757000 11 1 1 1 1 1 1 1 1 1 2801: 39C0003905019J07717UC000?0000'0J07730SS000?500039S0969500038J07652^S00039J07563^D0003907779LD000'0J0 1 1 1 1 1 1 1 1 1 1 1 1 2901: 7563^^^^^^^^^^^^^^^^0777407779G00029BD0003407979LD000'400034TD000!007964TD07506000!0TJ07507^07964079 1 1 1 1 1 1 1 1 1 1 1 3001: 69C0796907506J07941SD0750607774TD0796900034TD07969S000!500034D000'6999R6,G00089BS0969500089D07979000 1 1 1 1 1 1 1 1 1 1 3101: 34TJ000'5^0796407969^^^^^^^^^^G00029BD0004408553LD000/400044TDD)0821708406J08094^G00029BJ08058^G0002 1 1 1 1 1 1 1 111 1 1 1 1 3201: 9B)08190D0004408553LD000'900044TD09762D000'4D00'0008512TD000?008533JD000!008517TJ07507^0851708528C08 1 1 1 1 1 1 1 1 1 1 1 1 3301: 52807506J08431SV0838708533KD0852800029TNJ08216^D000'508533LJ08277^NJ08277^D0853300039TA00039A00039A0 1 1 1 11 1 1 11 1 1 1 1 3401: 003908533C000'508533J08387U,000'1A09763000'5)000'1S000'500029A0853300029,000'1D00?'000?'5TG00039BD08 1 1 1 1 1 1 1 1 1 1 1 3501: 512000?0T)000'1A0976300089A0976307779D0855300044T,08190NJ000/0^,0821708406J000/5^A0969501470D0147008 1 1 1 1 1 11 1 1 1 1 3601: 517T,00?'0D0852300?/5L)00?'0D08517000!0LA0976500089J08387^085120851700005'0852808533^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 3701: ^^^^G00029BD0005409157LD000/400044TDDD000!009122TD00'00J07507^0912209127C0912707506J09065SJ07507^091 1 1 1 111 1 1 1 1 1 1 1 1 3801: 1709112C0911207506J09084SD0912700034TD09127S000'500029D0911200049TD09112S00'0500044D00''509107LS0976 1 1 1 1 1 1 1 1 1 1 1 3901: 309107D0910708945/C0911209127J08792U)08900C0002900034J09010SC000'0000?0J08846SA0976300029J08792^,000 1 1 1 1 1 1 1 1 1 1 1 4001: '1D0008900054TA0910700054D00?'000'!0TD0005400089TNJ08929^A0910700049A0910700044,99Z96D99ZZ5000'0T)00 1 1 1 1 11 1 1 1 1 1 4101: 0'199Z96A0910700034A00''500029,000!1A09107000!5)000!1J08792^D0003407779LD000!0D0915700054T,08900D075 1 1 1 1 1 1 1 1 1 1 1 4201: 0607774TJ000/5^D07506000!0TJ09028^D0750600'00TJ09028^0910709112091170912209127^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 4301: ^^^^^^^^G00029B,0924909426J09210^G00029B,09446J09210^G00029BD0004409679LD000/400044TDDD000!009654TNJ 1 1 1 1 1 1 1 1 1 111 1 4401: 09268^D0750600'00TJ07507^0965409659C0965907506J09588SV09517000?0KD0965900034LD000?009659JA09659A0965 1 1 1 1 1 1 1 1 1 1 1 4501: 9A000?009659C000!509659J09517UD0003400039TS000?500039A0965900039S0976300039NJ09631^D000?000'00LNJ095 1 1 1 1 1 1 1 1 1 1 4601: 17^D000?1999I6,,999R6S09763000!0)999R6J09553VS0976307779S0976300089D0967900044T)0924909426)09446J000 1 1 1 1 1 1 1 1 1 1 1 4701: /5^D000!1999R1,S0976500089D0750607774TD0967900044TD000'409622/D0750609623TJ09529^D00'00000?0TJ09517^ 1 1 1 1 1 1 1 1 1 4801: 0965409659^^^^^^^^^^^^^^^^^^^^^^^^*^LOC1^^^^^199999A0WLREC,^MACS*E76^00019^OPND^^^^000661?6600054SBC 1 1 1 1 1 1 11 111 11 111 11 1 1 1 1 1 1 1 4901: $1SBC$2607506515^^^^^^^^^^^OPEN^^#326CLOSE^#327CEXP#^^^**CADD#^^^^&CSUB#^^^^-CMPY#^^^^*CDIV#^^^^/^10 1 11 11 11 1 1 1 1 1 1 1 11 5001: 278^#37210349^PERA10405^PERB10626^PERC10682^PERD10788^PERE10924^PER111005^PER211091^PER311207^AUG111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 248^PRET11299^IMPN11355^#37011386^COLN11422^EQU111458^#48511509^#49711535^#32811576^#32911607^RLNK11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 683^WRFR11800^#47011836^#49511739^END1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 5401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LOC1SW^^^99999^MACS^LOC1MLCA^^^^^&99998^^^^,99999&5^^^^MACS^#37200060'^ 5501: LOC1B^^^^99999^MACS99997^LOC1CW^^^99998^MACS^PERA00045'^LOC1ZA^^^99999^^^^,*&59^^MACS^LOC1BZ^^^*&53^ 5601: ^MACS^LOC1B^^^^99998^MACS99996^LOC1S^^^^&0001^^^^,*&34^^MACS^LOC1BZ^^^*&28^^MACS^LOC1B^^^^99998^MACS 5701: ^LOC1DCW^^#20^^^MACS^LOC1CW^^^99997^MACS^PERB00185'W^^^99997^MACS^PERB00210'^LOC1CW^^^99997^MACS9999 5801: 9^LOC1EQU^^99998^MACS^PERC00045'^LOC1CW^^^99997^MACS99999^LOC1EQU^^99998^MACS99996^LOC1EQU^^99993^MA 5901: CS99994^LOC1EQU^^99995^MACS^PERD00095'^LOC1B^^^^99993&6^^^^MACS99995^LOC1CW^^^99997^MACS99999^LOC1EQ 6001: U^^99998^MACS99992^LOC1EQU^^99994^MACS99996^LOC1EQU^^99991^MACS^PERE00125'^LOC1B^^^^99999^MACS99996^ 6101: LOC1CW^^^99995^MACS99998^LOC1EQU^^99997^MACS^PER100070'^LOC1B^^^^99999&6^^^^MACS99996^LOC1CW^^^99995 6201: ^MACS99998^LOC1EQU^^99997^MACS^PER200075'^LOC1NOP^^^MACS99997^LOC1B^^^^99999^MACS^LOC1SW^^^99997^MAC 6301: S^LOC1B^^^^99998^MACS99996^LOC1EQU^^*^^^^^MACS^PER300105'^LOC1A^^^^99998^^^^,99999^MACS^AUG100030'^L 6401: OC1NOPWM^MACS99999^LOC1B^^^^*^^^^^MACS^PRET00040'^LOC1B^^^^99998^MACS99999^LOC1EQU^^*^^^^^MACS^IMPN0 6501: 0045'^LOC1B^^^^99999^MACS^S37000020'99999^LOC1EQU^^*^^^^^MACS^COLN00025'99999^LOC1EQU^^99998^MACS^EQ 6601: U100025'^LOC1MLCA^^^^^&99998^^^^,99999&5^^^^MACS^#48500040'^LOC1H^^^^^MACS^#49700015'^LOC1GET^^99999 6701: ^^^^,99998^MACS^#32800030'^LOC1PUT^^99999^MACS^#32900020'^LOC1B^^^^99997^MACS99999^LOC1MLCA^^^^^&999 6801: 96^^^^,99998&5^^^^MACS^RLNK00065'^LOC1PUT^^99998^^^^^^^^^T^^^^O^^^^^99999^MACS^WRFR00045'99999^LOC1B 6901: ^^^^*^^^^^MACS99998^LOC1EQU^^*^^^^^MACS^END100050'99999^LOC1B^^^^*^^^^^MACS^#47000025'^LOC1H^^^^*-5^ 7001: ^^MACS^#49500020''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PH^61037810485004850^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^6110425083910990010500A0148005456D0546005475TA0 1 1 1 1 1 1 1 1 201: 979701475J04309^05389D99IZ405480LD0008905500TA0979805500C0550005475J05136UJ05506^05475J09299^0548005 1 1 1 1 1 1 1 1 1 1 1 1 301: 46505500C0549809801J05194SC0549709803J05213/J06515^05480J05370^J09044^054800602505495J05671^05480054 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 85C0548508390J05294SJ06026^0548005485J05370^J06198^05480D99IZ905505LS0980505505A0008905505C055050547 1 1 1 1 1 1 1 1 1 1 1 1 501: 5J05370TJ06329^05480J08664^05480J05059^B05413014760J06515^06197J06515^05490J03576^08305J05444^J03755 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: ^PH^629999800001^^^^1000000000000000STDST000000000000000G00029BD0003405670LD0008900034TD000!0000!0^G 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 00034BC0003405019J05587U)000!1J05537^D00?'000?'08G00034B)999R9D000!0000!08G05475BS0980605475D0567000 1 1 1 1 1 1 1 1 1 1 1 801: 034TJ000'5^^^^^^^^^^^G00029BD0004906010LD0547500044TD0980700'00XD0546000049TJ08391^0548006015S098090 1 1 1 1 1 1 1 1 1 1 1 901: 6015D0601500039TD06015D0549506020TA06020A06020A0549506020S000J500039A0602000039,000?1T000!000''02G00 1 1 1 1 1 1 1 1 1 1 1 1001: 049BJ05899UV0592499ZZ61D00''000''0^G00049BJ05835^C0004900044J05967UJ05835^D00''005485T)00'00)000?1D0 1 1 1 1 1 1 1 1 1 1 1 1 1101: 601000049TJ000/0^D0839005485TJ05936^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LOC1G06182BD0549506172TS0981 1 1 1 1 1 1 1 1 1 1 1201: 006172J09299^054800617206177J06688^06177J06688^06025J06688^06187J06688^05485J06688^06192A0980906182D 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 0618206166TJ06167^^^^^^^^^^^^^^^^EQU^^^MACSIQXSTG06313BJ09299^054800546506318C0631806323J06278/J0931 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 9^054800546506328S0981005495J06515^05480D0631300029TJ000'5^^^^^^^^^^^^AUTO^^^^^G00029BD0004406504LJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 8391^0548006509D0650900034TD0547500044TD000!506514LA0979806514D0003400039TS0651400039,000?1D999R000' 1 1 1 1 1 1 1 1 1 1 1601: 00XG05475B)000?1D0650400044TJ000'5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003908072LD000'400034LD000 1 1 1 1 1 1 1 1 1 1 1 1701: !008077TJ08391^0807708082C0808208390J06669SD0808200039TS000?500039D000?008087LJ06688^0808GA097980003 1 1 1 1 1 1 1 1 1 1 1 1801: 9C0003908082J06616UD0807200039TJ000'5^G00029BD0003908122LD0812700039TD000'400034LJ08027^B0789108166T 1 1 1 1 1 1 1 1 1 1 1901: B0729908167TC000!008092J07848SC000!009815J07011SC000!008097J06835/D0982000039TJ07011^C000!008102J068 1 1 1 1 1 1 1 1 1 1 1 2001: 72/D0982500039TJ07011^C000!008107J07549SC999R909829J06952/C0983400039J07687SJ07637UD000!0081G23J0700 1 1 1 1 1 1 1 1 1 1 1 2101: 0^C0983900039J07817SJ07767UA0984000039D000!0081G2TA0981000039D0003908127TD0812200039TJ000'5^G07212BC 1 1 1 1 1 1 1 1 1 1 1 2201: 0818808162J08002/)07550B0715208192@B0711608192&B0711608192-J08002^D08192081712D09841081923D098420816 1 1 1 1 1 1 1 1 1 2301: 8TB0719508177^D0818608155LD0814108186TJ07207^D0814108155LJ07213^G07297BD09807082527J03576^08172D0984 1 1 1 1 1 1 1 1 1 1 1 2401: 4082527D0825108250LA0980901475D0147508176TJ07298^D0984508167TB0745108170TB0750008169TD09841081G2TJ07 1 1 1 1 1 1 1 1 1 2501: 611SC09850000!0J07011SJ07214^D09841081923D0815508186TD0816208188TC000!008107A0981000039J07557SJ06890 1 1 1 1 1 1 1 1 1 1 2601: ^D0984508170TJ07214^D08160081933A0981000039J07379^D0984508169TJ07214^D0816008197TA0979800039J07379^N 1 1 1 1 1 1 1 1 1 1 1 2701: J07611^,07550D0984108172XB0761108168ND0984508168TD08171081G12J07214^D0985500039TJ07011^D000!0081603D 1 1 1 1 1 1 1 1 1 1 1 2801: 0985608170TJ07042^D09841081G2TJ07736^C000!009850D000!0081G23J07736SD09841081G33J07042^D0982500039TD0 1 1 1 1 1 1 1 1 1 1 2901: 984208167TJ07011^D000!008160TD0984208169TJ07042^D09841081G2TJ07736^D000!0081G6TD09841081G73J07729^D0 1 1 1 1 1 1 1 1 1 1 3001: 984208166TD0982500039TD0985708177TJ07011^C000!008092J07953SC0986200039J06933TD000!0081G23J07214^J078 1 1 1 1 1 1 1 1 1 1 3101: 48^C0982500039D0984508166TJ07611UD0986308177TJ07618^D0816508170T,07550J07611^D0147508176TD0984506731 1 1 1 1 1 1 1 1 1 1 3201: TJ06731^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^#383^LOC1^OPND^MACS^^^^^^^^^^^^^^^00005^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: ^^^^^^^^^^^DCNNNNNNNN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 111111 1 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 3501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"00000G00029BD0003908653LD0839000039TD000'900034TDW08478999Z6&D00 11 1 1 1 1 11 1 3601: 039000!0TD0865300039TJ000/0^C08658000'0J08514/A0866300039J08447^A0008900039S0986400039C0003905019J08 1 1 1 1 1 1 1 1 1 1 3701: 601UC000?0000'0J08614SS000?500039S0986500038J08536^S00039J08447^D0003908663LD000'0J08447^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 3801: ^^^^0865808663G00029BD0003408863LD000'400034TD000!008848TD08390000!0TJ08391^0884808853C0885308390J08 1 1 1 1 1 1 1 1 1 1 1 1 3901: 825SD0839008658TD0885300034TD08853S000!500034D000'6999R6,G00089BS0986500089D0886300034TJ000'5^088480 1 1 1 1 1 1 1 1 1 1 1 4001: 8853^^^^^^^^^^G00029BD0003409032LD000'900034TDD000'009038TJ08391^0903809043C0904308390J08962/D083900 1 1 1 1 11 1 1 1 1 1 1 4101: 9037TJ08992^D0904300029TD000'509038LA09038D09037000!0LD0903200034TJ000/0^^^^^^^^^^^00903809043G00029 1 1 1 1 1 1 1 1 1 1 1 4201: BD0003909273LD000/400039TDDD08390000?0TD000'009253LJ08391^0925309258C0925808390J09230SD0925800029TS0 1 1 111 1 1 1 1 1 1 1 1 4301: 00'500029C0925800029J09224SA09865000?0C000'0000!0J09230SA0986600029J09159^S000?0D0927300039TJ000/5^0 1 1 1 1 1 1 1 1 1 1 1 4401: 925309258^^^^^^^^^^^^^^^G00029B,0936509542J09326^G00029B,09562J09326^G00029BD0004409795LD000/400044T 1 1 1 1 1 1 1 1 1 1 1 4501: DDD000!009770TNJ09384^D0839000'00TJ08391^0977009775C0977508390J09704SV09633000?0KD0977500034LD000?00 111 1 1 1 1 1 1 1 1 1 1 4601: 9775JA09775A09775A000?009775C000!509775J09633UD0003400039TS000?500039A0977500039S0986600039NJ09747^D 1 1 1 1 1 1 1 1 1 1 1 4701: 000?000'00LNJ09633^D000?1999I6,,999R6S09866000!0)999R6J09669VS0986608663S0986600089D0979500044T)0936 1 1 1 1 1 1 1 1 1 1 4801: 509542)09562J000/5^D000!1999R1,S0986800089D0839008658TD0979500044TD000'409738/D0839009739TJ09645^D00 1 1 1 1 1 1 1 1 1 1 4901: '00000?0TJ09633^0977009775^^^^^^^^^^^^^^^^^^^^10ETMPII2EB"1?A^#4100001500020^^^^0007000066D@T^^N^^^^ 1 1 1 1 1 11 1 1 111 11 1 1 1 1 1 1111 11 5001: @00005Y*00071^61515^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CON$5^LOC1DCW^^@5@^^^MACSSPACE^LOC1DCW^^^^^^#^^^^2 1 111 11111 5101: ^^^^0^MACSSHIFT^LOC1DCW^^^^^^#^^^^2^^^^0^MACSACCUM^LOC1DC^^^^^^^#^^^^2^^^^0^MACSEXACC^LOC1DCW^^^^^^# 5201: ^^^^2^^^^0^MACSACCPTSWT^^^LOC1DCW^^@0@^^^MACSAA8JJ^LOC1DCW^^@@@^^^MACS^LOC1END^^COBOLSTART^MACSSTDST 5301: 00245INQEXIT^^^^LOC1SBR^^^OPNDINQEX2&5^^^MACS^LOC1MLCS^^OPND@1@,ACCPTSWT^^^^MACSINQEX1^^^^^LOC1WCP^^ 5401: ^OPNDINQMSG^^^^^MACS^LOC1BA1^^^OPNDINQEX1^^^^^MACS^LOC1BNQ^^^OPND*-6^^^MACSINQEX2^^^^^LOC1B^^^^^OPND 5501: *^^^^^MACS^INQMSG^^^^LOC1DCW^^^OPND@PRESS^INQUIRY^RELEASE@,G^MACSIQXST00260'^^^^^^^^^^^^^^^^^^^^^^^^ 1: MRPRT039510395118999^^^^^^^^^^^^^^ 1: D0500404704TJ03824^J03643^04700D0395000029TD01480042861D0009904823PG04011AG04016BS0487804639J04068VS 1 1 1 1 1 1 1 1 1 1 1 1 101: 0487804016J04006^/04732J04419^D0461900034TD0462900044TS0487800044D000!0048323G00034AT04832048772G000 1 1 1 1 1 1 1 1 1 1 201: 29BC0002904883J04202UD999Z900'013D000'0000!13)04233C0003404614J04105TD0464904707TNJ04252^J03643^0150 1 1 1 1 1 1 1 1 11 1 1 301: 1J03643^04700A0487800037B04557000350A0487804647/04830/,0471204233V04346999?11C000?004811J04264SD0463 1 1 1 1 1 1 11 1 1 1 1 401: 400029T,999Y9D000?0999Z8PG00039AG00029BC0003904649J04358TA0487800037,01514D0482901630MD0462900034TD0 1 1 1 1 1 1 1 1 1 1 1 501: 00!0000!1^G00034AG04548BC0454804624J04538TJ03643^01501NJ04081^D0464400039X,04506J04252^D04650045497J 1 1 1 1 1 1 1 1 1 1 1 1 601: 04449^J03854^04576J03904^RUN^DISCONTINUED--SEE^MEMORY^DUMP"04712048290151301630048310001500099000001 1 1 1 1 11 1 1 1 1 1 1 1 701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^MEMORY^DUMP^INDEX^REGISTERS^^^^^^1^^^^^2^^^^^ 1 1 1 801: 3^^^^^4^^^^^5^^^^^6^^^^^7^^^^^8^^^^^9^^^^10^^^^11^^^^12^^^^13^^^^14^^^^15^^^^^^^"^LP[LTTM(CT^QM?,^\,.!104832^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 11 1: PH^62037810485019000^^^^^^^^^^^^^^ 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PH^62054440000005444^^^^^D0140905330LB05169053271D 1 1 1 1 1 1 1 1 201: 0532805136TD0532805148TD05331051473D0532805160TD05329051383D05329051503D05329051623U%U1BR00100"U%U1M 1 1 1 1 1 1 1 1 1 301: R00100"U%U1RR00100"J05176^B0520701449ID0533601174TJ01175^B05262053271D05328053233D05326053223J03854^ 1 1 1 1 1 1 1 1 1 1 1 401: 05281J03904^D0534305324TJ05243^END^OF^COBOL^RUN--AUTOCODER^INPUT^ON^TAPE^1^"^^^^^UCLINKCARDS^^^^^^^^ 1 1 1 1 1 11 11 1 501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^ 1: CLINK050000500018399J00000^J00000^ 1: D0613900099XD00099DDDDDDDDDDDDD?0614400099?0614500094S0614600094J05247VD00??305148TD00??305155TD00?? 1 1 11111111111111 1 1 1 1 1 1 101: 205146TD00??205165TD00??3051793D06147051643U%U1RR001013R05162"M%U006037RG06152BR00101"B0521705171WD0 1 1 1 1 1 1 1 1 1 1 1 201: 6153051713J05143^D06154051713A0615500099J05053^B0530101406BB0530101406UM%T005964WR05271")05844J05574 1 1 1 1 1 1 1 1 1 1 301: ^D0140705406TD0140705523TD01408054203D01408054273D01408054343D01408055253D01408055323D06147054053,05 1 1 1 1 1 1 1 1 1 401: 844M%U106037RG06152BR001013R054784R05441"C0604106160J05574S)05540,05548J05485^,05540N?0616200089)054 1 1 1 1 1 1 1 1 1 1 1 11 1 501: 85S0614600089J05547VU%U1RR055202R05539"NJ05403^NJ05574^,05548)05540J05520^D0142205827TD0142205886TD0 1 1 1 1 1 11 1 1 1 1 1 1 1 601: 1423058293D01423058363D01423058933D0140305745TD0140305764TD0140305917TD01404057473D01404057543D01404 1 1 1 1 1 1 1 1 701: 057783D01404057853D01404059313D01404059383U%U2RR057422R05761"L%B206601$G06152BR001017R05792"J05907^J 1 1 1 1 1 1 1 1 1 1 1 1 801: 05876^C0622006134J05792/U%U5RR058242R05843"NJ05857^.05857D0616701174TJ01175^G05905BL%B506200WR00101" 1 1 1 1 1 1 1 1 1 1 1 1 901: J00000^G05962BL%B206200$G05955BR00101+R05945"D0616900000XJ00000^PLACE^INPUT^CARDS^IN^READER.^DEPRESS 1 1 1 1 1 1 1 1 1 1001: ^START^TO^CONTINUE^AFTER^HALT^OCCURS"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1101: ^^^^^^^^^^^^^^^^^"018END^OF^LIBRARY0000001420DAU77777WRE1HDR^1?LIBRA"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1111 1111 1 1 1 1601: N 1 1: FTSUP040000150117357J00000^J00000^ 1: G00029BJ01562^G00029BJ01791^G00029BJ01971^G00029BJ02090^03226C000'401174J01586/)01771D000'401174TJ01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 529^02220D0207601633TDM%U102221WR00101"U*^^RR00101"U*^^RR00101"!0221501970!0221402211D0142903731TDDD 1 1 11 1 1 1 1 1 1 1 1 111 201: 0142401429TDDD03731DDD0142201919TD0142301933TD0142702069TD0142802076TNJ01175^,01771J04005^D000340196 111 111 1 1 1 11 1 1 1 301: 7LD000'401854/A0221501970J01916V?0197000034D027K501855LC027K502220D0196700034TJ000/0/S0221501970D000 1 1 1 1 1 1 1 1 1 1 401: '901914/J01915^M%U202221RG03736BR00101"!0221401970J01833^000000000?00MD0003401967LD000'402018/?02211 1 1 1 1 1 1 1 1 1 1 1 501: 00034J02055VD02024032K6TA0221502211D0196700034TJ000'5^!0221402211M%U302722WR00101"J01995^D0003401967 1 1 1 1 1 1 1 1 1 1 601: LD000'402137/?0322500034J02174VD02143037L0TA0221503225D0196700034TJ000'5^!0221403225M%U303226WR00101 1 1 1 1 1 1 1 1 1 1 701: "J02114^50!50?E^EOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1201: ^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1701: ^^^^^^^^^^^^^^^^^^^^^"50!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 2201: ^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 111 2401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D 1 2501: 0143202188TD01433021953D0142701643TD01428016453D0142201655TD01423016573D0143204099TD01433041013U*^^R 1 1 1 1 1 1 1 1 2601: R00101"D0414201174T!0221403225J01640^PHF30N 1 1 1 1 1 1 1: PHF30040050400005839J05821^J05821^ 1: PHF35J04012^,0882607240,0657508820D0724007239MD18060100112D0140704165TD0140704998TD0140804179TD01408 1 1 1 1 1 1 1 1 1 1 101: 05012TS00099SSSSSSSSSSSSSS?00029A1806104131B04162041291J04126^M%1108820RG08986BR00101"NJ04533^C08837 1 111111111111111 1 1 1 1 1 1 1 1 201: 18064J04453/J01529^06433D08840064443J01529^06444D0884506444LD0884606428LB0433808840^D0642706428XB042 1 1 1 1 1 1 1 1 1 1 1 301: 8406428^J04338^?08YU906444D18065064442J01529^06444A1806100049C0004818066J04416SC08YU906464J04315/D06 1 1 1 1 1 1 1 1 1 1 1 401: UU408YU9TJ04315^,04187J01529^06433V04514089871J04162^D0882008901.,08987D18065088993D0889908898LD1806 1 1 1 1 1 1 1 1 1 1 1 501: 408837TJ04194^)08987D0897208891LD)06439J04878^J05591^B0593109003(D09003065753D09003090387A1806700039 1 1 1 11 1 1 1 1 1 1 601: J05591^B0593109003(J11023^D18068000392)090D0D09003090C97D18069000392T09038097552G04699BJ04713/D04705 1 1 1 1 1 1 1 1 1 1 1 701: 09044LJ04600^B0578309044^C0903818072J11279ST09061101422J04784SJ10833^101420908817028J10833^101600908 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 804825T09061101482J17028SJ01529^09049J15873^0485410063J01529^08992V06274088191,1619305671)1593617318 1 1 1 1 1 1 1 1 1 1 1 1 1 901: )1684416440,0731816321)1439805621)1627016852)1237112213)1637806485,13273S00049SSSSD0889106646TDM%110 1 1 1 1 1 1 1 1 11111 11 1001: 8820RG08986BR00101"B0511508820FB0511508820CB0511508825^B05115088250C0004918075J05565SA1807700049D088 1 1 1 1 1 1 1 1 1 1 1101: 9106WU6TJ04995^NT1806506WU65G09054B?0905400029D07245000'6TS0900209054C0905909054J05198U?1807809054A1 1 11 1 1 1 1 1 1 1 1 1201: 808000049D0004907323LJ05988^NJ05578^?09044J05591^B0486609003(C0905900034J04553UJ04546SB0551106575CB1 1 1 1 1 1 1 1 1 1 1 1 1301: 746506575FS00049D0900309''41A1806700049J05591^B1702809003(C0905900034J05316TC1808509''3J05261SC18090 1 1 1 1 1 1 1 1 1 1 1401: 09''3J05261SJ05426^J05261^G05509B?09''309018D18065090182C0901818085J16996S)07318J01529^09013J01529^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: 9018J05510^D18091066477M%T006575WR05523")06647D1809605291/J04866^,05229J04995^)05229J17028^G00029BA1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 806700034C0003407323NC0003409054J05658UD18097090037J000'0^D065P4090033NB0559809003^D09003090613T0906 1 1 1 1 1 1 11 1 1 1701: 1100532G05719BD00000092793J05740SJ000'0^B05900092791D09279090033D09279090613J000'0^D0904305800/J0580 1 1 1 1 1 1 1 1 1 1 1801: 1^,08819)06385J05115^V05840064391J05802^J01529^06438J01529^08783J01529^08783J01529^06438J01501^PHF90 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: J01529^08743J01529^07265J17059^T09038093862G05962BJ05981/D0596809044LB0578309044^J17028^J01529^09066 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: J01529^09258?1807800049D06VX306192LC0619209066J06150SC0619209258J06169SJ01529^06192C0004909054J06132 1 1 1 1 1 1 1 1 1 1 1 1 2101: UJ01529^09258J01529^09066J05228^A1806100049J06023^D1810206192TJ06071^D1810706192TJ06071^^^^^^G00029B 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: D09003090613T09061100012G06243BJ06268/?0624809018D18065090182J000'0^.06268V06353064851J01529^09066J0 1 1 1 1 1 1 1 1 1 1 1 1 2301: 1529^09258J01529^06459J01529^09258J01529^09066J12500^C0005918112J06384S,17266J17180^NJ06404^J01543^0 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 2401: 6438J01501^PHF35^^^^^^^^^^^^^0009000052^^^^^^000050000800000^^^^^3999900000^^^^^^^^^^^READER^NOT^REA 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 2501: DY^IF^END^OF^BATCH^PRESS^START"00106^^^^^^^^^^^^^^^^^^0140?08723^^^^^^^^^^W^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 11 1 1 1 1 3201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^300013000230003300053000700P^^^GH00000^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: ^^^^^;^_^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 11 1 4701: ^^^^^^^^^^^^^^^^^^^^^^^^0017700101001030009200105001040037800373002240039900398001960039600397003910 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 0207002800019504001S^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 4901: "^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^002030033506 1 11 1 1 1 5001: 572^^^^^^^^^LA^^^^^^^^^^^^^^^^^^^^^^^^^111111001020007C0000F^^00130003290020600316^^)^#/S00333003180 11 1 1 1 1 1 1 1 1 1 1 1 11 1 111 1 1 5101: 0321003230032500327003200033400300003690031000326003700033200324003220033600372003170033000319003080 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 0328003370030600371003380030400240003120033100314003020037600140001410014200143^^1448D^IFENIFED1468E 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 1 5301: ^%DROCER1475A^%HCTEF1482?^%DNIF1279I^NRUTER1210E^ESUAP1422I^ELIFDNE^1244?^DNE1226C^POTS1033H^%OTOG11 1 1 1 1 1 1 1 1 1 5401: 06?^OTOG1158A^NGISSA1168B^ILESNES1177D^ILESNES%FI1194A^WSESNES%FI^1127I^%FI1198H^MUCCAFI1202G^ITOUQF 1 1 1 1 1 1 1 5501: I1206F^DIVIDFI^^1058I^OD1240I^UNITNOC1527B^LLAC1389I^TUORBUS1254B^OITCNUF1359G^PNIDAER1381?^HCNUP138 1 1 1 1 1 1 1 1 1 5601: 4G^TNIRP1408B^UOETIRW1019C^%TAMROF1412A^PATDAER1419?^ATETIRW1387C^EPYT1426F^DNIWER1430C^APSKCAB1524D 1 1 1 1 1 1 1 1 5701: ^ISNEMID1505I^LAVIUQE1511?^NEUQERF1283G^DAER1513H^NOMMOC^228^A230^B232^C234^D236^E238^F240^G242^H244 1 1 1 1 11 1 1 1 1 1 1 1 1 5801: ^I246^J248^K250^L252^M254^N256^O258^P260^Q262^R264^S266^T268^U270^V272^W274^X276^Y278^Z280^0282^1284 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: ^2286^3288^4290^5292^6294^7296^8298^9224^^00339^#00349^-00344^&194^.195^)144^$00354^*00359^/206^,207 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: ^%^)^]%^[#^:-^@1^<1^"1^;1^_1^\1^+1^^1^:1^>1^(1^?1^!1^'^^&^-^*^,^^I^J^K^L^M^N^B^C^D^E^F^G^H^O^P^Q^R^S 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: ^T^U^V^W^X^Y^Z^A^9^1^2^3^4^5^6^7^8^9^0^,^^#^,^$^)^-^&^*^.^/^%^_^;^^,^)^^0^1^2^3^4^5^6^7^8^9^.J01529^ 1 1 1 1 1 1 1 1 111 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 11 1 11 1 1 1 1 1 1 1 1 1 1 1 6201: 08763V17028073181D0901807317TD,05621)05671J17716^J01543^08803J17820^J05591^B1029409003(J10261^C09061 1 1 1 11 1 1 1 1 1 1 1 1 1 6301: 18113J10324SJ01543^08813J17960^J04854^T09061101372J04743/J10833^1013I0908G17028B1039809003)J04743^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 0946^01B1042609003,J04743^J01529^0924HJ01529^08803?1806100044,1684417318J16884^T09061101372J16996/J1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 7280^1702810169)16844J16836^B1054709003)J10461^J01529^09076J16884^,16844J15873^0485410063T0906110137 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 2J04743/J10833^1016?0908H17027S10832B1065509003#J04743^J10946^01,14398J14349^B04825108320J10757^B107 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: 2709003,B04806108320J17028^A1806710832B17028108323J10655^J01529^09253A1811400044,16844J17280^1702810 1 1 1 1 1 1 1 1 1 1 1 1 6801: 115,15936)16844J15873^0485410063^G00054B,05621D00'!410930/D00'!910875/D10881109383D00'J410906/J05591 1 1 1 1 1 11 1 1 1 1 1 1 6901: ^B1091209003(J11023^T09061109312J00'J5SJ10894^G00054BS11022J05591^B1702809003(J11023^A1806711022C110 1 1 1 1 1 1 1 1 1 1 1 1 7001: 2200'!1J10959/J00'!2^^^G11058BA1806700039D09003065G43J11059^T09061101372J11148/J10833^1013G0908G1110 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: HJ04743^J01529^0923HA1811500044J17280^0485410063T09061100752J04743/J10833^1016?0908H11208B1120809003 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: ,J04743^J01529^09243J01529^08818J01529^09076A1811500044J15873^0485410167J04854^B1133709003)B04784090 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 03#J10833^090860908817028B1702809003#J10946^01T09061101372J11279/J01529^09081A1811400044J16884^,1593 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7401: 6J15873^1702809084J16836^J16884^T09061101372J11401/J01529^09076)11538,17318,16844J17280^1702810167)1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: 6844J16836^J18022^T09061101372J17028/NJ11558^,11538J11475^,16844J17280^0485410063T09061101372J04743/ 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: J01529^09071?1807800044,16844J17280^1702810115J18022^J01529^09076J15873^0485410063J10946^03T09061101 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 802J17028/J01529^09093J05591^B1174809003(J17028^D09061090033J16836^J04854^J10946^03T09061101252J1702 1 1 1 1 1 1 1 1 1 1 1 1 1 7801: 8/J01529^09098?0003900044J16836^J16884^J01529^08813,1684417318J18022^T09061101372J17028/J17280^17028 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 10167J01529^09076J18022^J17280^0485410063J10946^04T09061101292J17028/J01529^09103J11814^J10946^13?00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8001: 03900044J01529^09108J11851^J10946^10J01529^09113?0003900044J11851^J10946^05J01529^09118?0003900044J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: 1851^B1216509003(T09061101372J04743/J10833^101370908712171J04743^,12213A1806100044C0003918118J17028T 1 1 1 1 1 1 1 1 1 1 1 1 8201: J01529^09123NJ12232^D065G4064F9JD064F906484JJ01529^06484J04854^B1232309003(T09061101372J04743/J10833 1 1 1 1 1 1 1 1 1 1 1 1 8301: ^101370908712329J04743^,12371A1811500044C0003918121J17028TJ01529^09128NJ12390^D065G4064G0JD064G00648 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 4JJ12244^J01529^09133J01529^08818J04854^B1250009003(T09061101422J04784SJ10833^101420908812500J04784^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: J01529^08818J01529^09138,0881906485J04854^A1812200044J01529^09143J10946^01T09061101152J17028/J10833^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 101600908817028D065G306421LC0642106428J14016/B1266409003%J17028^J10946^01T09061101152J17028/J10833^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 01600908817028B1266409003,B1274509003)J17028^J05591^B1277109003(J17028^)1632116193J15873^0485410063B 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: 1281809003(J04743^J01529^09148J12421^J12874^J01529^09153A1811500044J12968^G12934BG12953BT09061101372 1 1 1 1 1 1 1 1 1 1 1 1 8901: J04743/J10833^101370908712948B1294009003,J04743^J12954^)13273J12985^J17280^1295510167J01529^08992,16 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9001: 270D1812413587TJ13237^J18022^T09061101152J17028/,1684415936J15873^1353813596)1684415936B1339709003%B 1 1 1 1 1 1 1 1 1 1 1 1 9101: 1313709003)B1330609003#J16836^J13212^S1812513587J16836^J16884^B1353809003(B1313709003)B1320509003,J1 1 1 1 1 1 1 1 1 1 1 9201: 7028^J16836^J18022^C0900318126J13029/J01529^08818J01529^08748A1812513587NJ13299^J01529^08818J13538^J 1 1 1 1 1 1 1 1 1 11 1 1 1 1 9301: 13212^J01529^08753,16852J15873^1702810160)1685216378B1338309003,B1313709003)J17028^J16836^J13318^A18 1 1 1 1 1 1 1 1 1 1 1 1 1 9401: 12513587J16836^J18022^T09061101602J17028S,1593616852J15873^1702810160)1685216378)15936T09061100622J1 1 1 1 1 1 1 1 1 1 1 1 1 9501: 3519/J16836^J13415^B1313709003)J17028^J01529^08813S1812513587C1358718124J04854SJ17028^^^^^#^%^)^,J10 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 9601: 946^06J01529^09158A1812800044)13696T09061101152J13750/J10833^101600908817028B1369509003,J17028^NJ141 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9701: 66^J15873^1702810167J16836^J10946^01J12874^J12968^T09061101372J17028/J10833^101370908717028B13695090 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9801: 03,J17028^J12874^J01529^09163A1806100044J12968^J12874^J01529^09168J13829^J12874^J01529^09173J12856^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9901: 10946^03J01529^09178A1813000044T09061101152J17028/J10833^101600908813979J12615^D065G406421LC06421064 1 1 1 1 1 1 1 1 1 1 1 1 1 10001: 28J14016/J12771^G14045BM%T014046WR14023".14045SUBPROGRAM^NAME^DIFFERS^FROM^BOP^CD"J10946^08J01529^09 1 1 1 1 1 1 1 11 1 1 1 10101: 183A1813200044J13629^J10946^01J01529^09188A1812200044,13696J13635^J15873^1702810167J12985^J10946^02J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: 01529^09193A1813300044J14153^J14349^J01529^09198A1813400044J14467^J14349^J01529^09203A1807800044J144 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: 67^J10946^02J14349^J01529^09208A1813300044J14467^G14465BT09061101152J14412/J10833^101600908814460NJ1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10401: 0696^J04743^T09061101372J14397/J10833^101370908714460J14397^J14466^J15873^0485410063J01529^08763J015 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10501: 43^09278J14553^J01543^14684J14553^J01543^14684J04854^G14672BS14684S00064J10833^101370908817028D09003 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10601: 14O741A1806700064B1702800064FJ05591^T09061101372J14594SD14O7314684/J14673^^^^^^^00000J14886^B1702809 1 1 1 1 1 1 1 1 1 1 1 10701: 003(J01529^09273?1807800044J15873^1702814819J12985^J14886^B1702809003(J01529^09268?1806100044J15873^ 1 1 1 1 1 1 1 1 1 1 1 1 1 10801: 1702814819J12985^^^$J14886^B1484609003(J17028^J01529^09263?1811500044J15873^0486610063G15052B?180671 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 10901: 8137J10833^150580908817028B1495609003)A1806718137J14904^S1806718137J14981VJ14904^D0003418142LJ05591^ 1 1 1 1 1 1 1 1 1 1 1 1 11001: D1814200034TB0478409003#A1806700039D18143065G43J15053^^^%^)J10946^03J01529^09213?0003900044)16193,16 1 1 1 1 1 11 1 1 1 1 1 1 1 1 11101: 270J12782^J10946^01J01529^09218J04854^T09061101152J04743/J10833^101600908815214B1519809003,J17028^J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11201: 0946^01J15138^J01529^09223A1807800044J15091^J10946^01J01529^09228J15080^D0728307293TT09061101152J047 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11301: 43/J10833^101600908815542B1577409003%J04743^J10833^101440908815542B0474309003#D0003907298/J10946^01T 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11401: 09061101372J15511/B15390090030S00049D0900307SZ91A1806700049B1534400049DJ10946^01T09061101372J15436SB 1 1 1 1 1 1 1 1 1 1 1 11501: 1563609003HB0478409003#B1537809003,J15344^J01529^08997A1811500044J15873^0485407307B1583009003;A18067 1 1 1 1 1 1 1 1 1 1 1 11601: 07293J01529^07288J01529^07293J15565^A1806707283S06538D0728307317TJ17716^)05671J10946^01J17820^A18125 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11701: 06538C0653807SZ8J15678/J17960^D0729800039/D18144090033J11023^,05671J15378^C1814900039J15378TB1581106 1 1 1 1 1 1 1 1 1 1 1 11801: 5G3FJ15378^D18150065G33J15378^J01529^08743J01529^07270J01529^08992J15565^G00054BD0655306552TDD180650 1 1 1 1 1 1 1 1 1 1 1 1 11 11901: 65403S00049D00'!416803/D00'!916820/NJ15950^J16884^J16791^T09061101152J16002SJ16836^D09003065403J1594 1 1 1 1 1 1 1 1 1 1 1 12001: 3^T06540101922J15976SD09003065423B1655300049FD0900306VU73A1806700049J16884^B1610609003(T09061101642J 1 1 1 1 1 1 1 1 1 1 12101: 16033/B1659806542XB1621309003%T06542100752J16168/D18151065463J16180^D18152065463B1637709003%NJ17102^ 1 1 1 1 1 1 1 1 11 12201: )06546J16377^B1623206VU6FJ16130^C0004918153J16257TJ16130^D1806506VU63NJ17028^B1630806547XD1815406546 1 1 1 1 1 1 1 1 1 1 1 12301: 3J16320^D18151065463NJ16371^J01529^08743J01529^07270J01529^08992J16377^)16448NJ17028^,06548J01529^06 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 12401: 547J01529^06552)06548D09003065403S00049NJ17678^NJ16527^J01529^08728J01529^08738J01529^06547,06548J01 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 12501: 529^06552)06548J01529^08738,16448D0655306552TDJ15950^B1657209003FJ16965^J16884^B1626909003%J16965^B1 1 1 1 1 1 1 11 1 1 1 1 1 1 12601: 667900049BB1667900049CB1664100049DJ16118^B1666006550FJ16118^B1667909003%J16118^,06548T06549167902)06 1 1 1 1 1 1 1 1 1 1 12701: 548J16118/B1674100049DD1815506VU73J16118^D1815506VU63J16269^^1514131211109^8^7^6^5^4^3^2^1^G16834BB1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12801: 680909003(T09061168212J00'J0SJ16835^G16882BNJ17028^N,16378J06193^J01529^09018J16883^G16963BC00039000 1 1 1 1 1 1 1 1 1 1 1 1 12901: 44J16951SD06V75090033A1806700044D09003090613J16958^J05591^J16964^J01529^08743J01529^07250J17059^J015 1 1 1 1 1 1 1 1 1 1 1 1 1 13001: 29^08743J01529^07255J17059^NJ01529^08743J01529^07260J17059^J01529^08992J01529^06535J01529^08818J0485 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 13101: 4^,06546T0655207TB32J16200SA1813400059D0655207TB3XC0005906558J16200/D0656317118TJ01529^08758D07TB306 1 1 1 1 1 1 1 1 1 1 1 13201: 573TJ01529^06568J01529^06573S1813400059J17253VJ17192^J01529^08758NJ06384^J16200^G00054BS00049D00'!41 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13301: 6803/D00'!916820/NJ17332^J16884^J16791^T09061101372J17372SJ16836^J17325^B1699600049ED0900309''41A180 1 11 1 1 1 1 1 1 1 1 1 13401: 6700049J16884^B1744509003(T09061101372J17372SJ05426^S00049J17332^D1815807273TS07276J10946^01T0906110 1 1 1 1 1 1 1 1 1 1 1 1 13501: 1152J17028/N11023^J10833^101600908817619B1755909003,J17028^S0003907276C0727607273J16965TD0003907276T 1 1 1 1 1 1 1 1 1 1 1 1 13601: B1763709003(J17483^A1806707273J17559^J01529^08733)16193,16440J15873^1006310063B1769709003(J17661^J01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13701: 529^08733J04866^G17818BS07320J01543^08768J01543^07312J01543^07317J01543^08773J01543^08788J01543^0877 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13801: 8J01543^08783J17819^G17958BC0732018160J17923/J01543^08783J01543^08793J01543^08773J01543^08798J01543^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13901: 08778J01543^08783S07320J06193^J01543^09018A1812507320J17959^G18020BJ01543^08783J01543^09076J01543^09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14001: 233J01543^08793J18021^G18053BJ16884^B1702809003(J18054^^EOP^WEBOP^3ARA%FI59D6FF7C00000^^^^^"04866(^^ 1 1 1 1 1 1 1 1 111 111111 1 1 11 1 1 11 11 14101: ^^_^^^^;0000?)BD01?00IH001%1C1?1EIG^^^^^^^^$_0000I;IFCP/00P45 1 1 1111 1 11 111 1 1 111 1 111 1111111 1 1: PHF35040050400004000J00000^J00000^ 1: PHF35J04012^D16543175927D16543185927D1653918626TD1653918628TD1654218624TD1654218615TJ01515^103340448 1 1 1 1 1 1 1 1 1 1 1 101: 3C1033416501J04084/J01529^10334J01515^1865304483J01515^1865804483D0007918664L?18664J04215VD186741865 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 8TD0007918658TDJ01529^18653J01529^18658J09332^14562J09332^14567?1867516532S1867616532J04311VJ09332^1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 301: 0334J04274^A1456718621%1862116582D1658118621JA1456218618%1861816589D1658818618JJ01515^1033404483C103 1 1 1 1 1 1 1 1 1 1 1 401: 3416537J04438/J01515^1033904677J04379^T10334099992G00029BJ04628/D000'004481/J00000^!0653800049J04616 1 1 1 1 1 1 1 1 1 1 1 1 501: VJ01529^16516D08/Y306570TD07/Y8D18677065563J01529^06560J01529^06565J01529^06570A1867900049J04604VJ04 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 513^J01529^16516J01501^PHF38J13065^10249J12688^10349C1034916396J04379SJ04640^J13065^10254J04483^J130 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 65^10259J04483^J13065^10264J04379^J13065^10264J04640^C1033416421J04802SD1026910349TJ13065^10349J0464 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 0^D1027410349TJ04783^J13065^10279C1432616396J04379SJ04640^J13065^10319J04640^J13065^10324J04640^J130 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 65^10329J04640^J12306^J01529^10334J12688^10349J01529^10349C1034916471J05007/J12688^10349J01529^10349 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: J04379^J12688^10344T10344095382G00029BJ05083ST10344101372J05102SB0515010340^J04877^D000'005100TJ0000 1 1 1 1 1 1 1 1 1 1 1 1 1101: 0^D1643105823TJ13269^1034405823D0582310344TJ05019^J01515^1034904677J12688^05823C0582316406J05233/J11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 731^1034410349D0582310344TJ05019^)10345,10343T10349071782G00099BJ05289/D18680103423)05326,10345)1034 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 3J01529^10344J01529^10349NJ05214^,05326J01529^16506D01??210344TJ01529^10344J01529^16506J05214^D18681 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1401: 05824TJ01529^10344J12688^10344C1641610344J05619TT10344101372J05679SC1034416401J05503/A1868205824J054 1 1 1 1 1 1 1 1 1 1 1 1 1501: 06^C1034416391J04877/D18677058242B05564058241B05600058242J04877^J01529^16401J01529^08574J01529^08579 1 1 1 1 1 1 1 1 1 1 1 1 1601: J01529^10344J05007^J01515^1034904677J01529^10344J01529^10349J12688^10344J05467^D1643105818TJ13269^10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 34405818D0581810344TJ05467^J01529^10344J04379^J01529^10344J05007^J01529^10344J12688^10344C1034416446 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: J04896SJ05019^^^^^^^^^^^^D0003906605LD0659000039LD00039)06558D0654406291/D1868706585TD0658106580LDDJ 1 1 1 1 11 1 1 1 1 1 1 111 1901: 12688^06560B0594806556^C0656016396J06517SJ05899^J01515^0656504677)06561,06559T06565071782G00034BJ048 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 58SB04696065365)06559D06565000!5XA1867606537,06561J01529^16511J01529^06560J01529^06565J01529^16511S0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 0039J12688^06560J12688^06560T06560066662J04858/J06166^J12688^06560T06560066782G06190BD00000065393J04 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 858/W0625806539&A1867600039B04858000396D06539065I01J06154^A18676999R6B04858999R64D065I006580JS00039S 1 1 1 1 1 1 1 1 1 1 2301: 1867506291B0611606539,C0657516416J06359/D0658006570/J06486^?0657506549@0658006555D0655506575JA065800 1 1 1 1 1 1 1 1 1 2401: 6585C0657016416J06441/D0657506570/J06486^?0657506549@0657006555D0655506570JA0657506585D06585005!5JD0 1 1 1 1 1 1 1 1 1 1 2501: 6575010!5JJ05861^D0660500039TJ04379^^^0^06580^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00000^^^^^^^^^ 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 2601: ^^^^^^'000280100282200284300286400288500290600292700294800296900298)00195,00206^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 3901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 4001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 4101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^J12306^J10375^J04379^ 1 1 1 1 1 1 1 1 1 1 4201: J12306^J01529^10334J12415^16396J04379^J12306^J01529^10334J12415^16426D1641608584TA1035908584J12688^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 0349B0851010345^D1643110344TJ13269^1034910344C1034416396J08400SC1034416401J04734/J01529^10344J08281^ 1 1 1 1 1 1 1 1 1 1 1 1 4401: D18677085842C0858410369J08491SJ04715TC0858410364J04715/J01529^16401J01529^08574J01529^08579J01529^10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 344J04379^J01529^10349J01515^1034904677J01529^10349J12688^10344J08345^^^SIT99999^^^^^J12306^J12134^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 01529^16521J10375^J04379^J12306^J01529^10334J10375^J04379^J12306^J01529^10334J12688^10349B0876710345 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: ^D1643108850TJ13269^1034908850C1639608850J08827SJ01529^08850J08677^J01529^10349J01515^1034904677J015 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 29^10349J12415^16396J04379^J01529^08850J04379^^^^^^J12306^J12134^J01529^10334J12688^10349C1034916396 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: J09111SC1034916406J04753/J01529^10349J12688^10349W0475310345^J01529^10349J01515^1034904677J01529^103 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 49J12688^10349C1034916401J08925SC1034916391J04753/J01529^10349J12688^10349C1034916396J04753/J01529^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 0349J04379^C1033416421J04753SJ01529^16411J09092^J01529^10334J12415^10334J04379^D1641610339TJ12688^10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: 334J04379^D1641610339TJ01529^16436J01529^10334J12415^16396J01529^16436J04379^J12306^J01529^10334J015 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 29^09331J12415^16396J04379^^^^I&G00029BD0003409432LD000'400034TJ01515^0943704677J01529^09437D0943700 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 0!0TD0943200034TJ000'5^^^^^^^^^^^^^^^^'0539400104057270020305746002060574600195057460020705746001050 1 1 1 1 11 1 1 1 1 1 1 5501: 574604001057460034405746003490576500354'091480010109148001031261700130091480037808625001400862500141 1 1 1 11 1 1 1 1 1 5601: 0862500142049150400109179003710917900373082000030008238003020582500304092100030608658003080885100310 1 1 1 1 1 1 1 1 1 1 5701: 0820000312082000031408625003160865800317082000031808658003190927700320082000032208200003240820000326 1 1 1 1 1 1 1 1 1 1 5801: 0865800328086580033008658003320820000333088510037209277003340858500335086580033608658003370921000338 1 1 1 1 1 1 1 1 1 1 5901: 0820000370082000010608200000920817900102082000032108200003230820000325082000032708200003290820000331 1 1 1 1 1 1 1 1 1 1 6001: '0029800194002960029400292002900028800286002840028200280'00207002060019500203'9002988002967002946002 11 1 1 1 1 1 1 1 1 1 1 11 1 1 1 11 1 1 1 6101: 92500290400288300286200284100282000280.00194'1080200207109590034411033003491115700359112000035411280 1 1 1 1 1 1 1 11 1 1 1 1 1 6201: 0020611311001951147600339115940020311157001773500135002350033500435005350063500735008350093501035011 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 350123501335014350153501635017^^^^^00000^^^^^^^^^^^^^^^00001000020000300000G00029BD0003411696LD11703 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 11710TJ12688^11715C1171516396J10479/J01529^16411J01529^16396D1169600034TJ000'0^B1054711711^T11715101 1 1 1 1 1 1 1 1 1 1 1 1 6501: 432J10742SC1640611715J10802SJ12952^10284J10666^D1869011710/J01515^1172004677J12688^11725C1172516406J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 10630/J11731^1171511720J10654^J01529^11715J01529^11720D1172511715TD18681117091T11715102442G00034BJ10 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: 723SJ13065^10289J04640^D000!010740TJ00000^J13269^1171511730D1173011715TD1643111730TD1867911710TJ1067 1 1 1 1 1 1 1 1 1 1 1 1 6801: 8^D1867611710/A1867611706?11709J10874VD18681117091J12952^10294J01529^16446J01529^11715J12688^11715C1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 171516406J10802SC1171516431J10959SC1171516441J11033SJ10479^D18681117091B11014117100D18681117101J1268 1 1 1 1 1 1 1 1 1 1 7001: 8^11715J10479^J01529^11715J10995^D18681117091D1643111730TJ12688^11715B11100117101J01529^16441J10479^ 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: T11715101432J11138/D1644111730TJ10479^J01529^16386J10479^D1869211710/J01529^11715J12688^11715J10479^ 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: D1869211710/J12688^11715C1644611715J11261/J01529^16451J11181^J01529^16446J10479^D1869411710/J01529^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 1715J10886^D1869211710/S1867611706V1145711706KJ01529^11715J12688^11715C1171516406J11426ST11715101432 1 1 1 1 1 1 1 1 1 1 1 7401: J11426SB1142611711^J10666^J12952^10294J01529^16446J10479^J13065^10299J04640^D1869411710/J01529^11715 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7501: ?11708J11520VJ11544^J12952^10304D18681117081?11706J11576VJ13065^10309J04640^A1867611707J10886^D18677 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7601: 117072C1869511707J11636TJ12952^10314?11706J11668VJ13065^10309J04379^J01529^11715J10460^^^^^^^^^^^000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 00000000000^^^^^^^^^^^^^^^00344G00029BD0004412103LD000'900039TDD000?012113TD000!0J01529^12108J01529^ 1 11111 1 1 1 1 1 1 11 1 1 1 1 7801: 12113)12109,12107T12113071782G00044B,12109)12107J11934SJ01529^16376J01529^16351J01529^12108J01529^12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 113J01529^16351D1210300044TJ000/0^J01529^12133J01529^12133J01529^12133D1213312128TA99Z9812128D00V071 1 1 1 1 1 1 1 1 1 1 1 1 1 8001: 2113TD01'0712123TJ01529^12113J01529^12108J01529^12123J01529^12118J01529^12128J11915^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 8101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00095G00029BD0002912295TJ12688^12300J01515^1230504677J01529^12300J01529 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8201: ^12305C1033416526J12272/J01529^16351J01529^12300J01529^12305J01529^16351D1229500029TJ000'0^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8301: ^^^^^^G00029BD0002912414TC1033916416J12391SJ01529^16537J01529^10339J01529^16491D1641610339TD12414000 1 1 1 1 1 1 1 1 1 1 1 1 1 8401: 29TJ000'0^^^^^^G00029BD0003412606LD000'400034TD000!012611TJ01515^1261604677J01529^12616B1254212612^C 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: 1261612611J12578SC1261616396J04379SJ12458^J01515^1261604677J01529^12616J12458^D1260600034TJ000'5^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: ^^^^^^^^^^^^^^^^^J01529^10334J01515^1268704677J01529^12687C1268716531J12629/J04379^^^^^^G00029BD0003 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 412946LD000'400034TJ01515^1295104677C1295116366J12804ST12951095792J12906SD12951000!0TD1294600034TJ00 1 1 1 1 1 1 1 1 1 1 1 8801: 0'5^J01529^12951J12415^16396D1641610339TJ01515^1295104483C1295116361J12736/J01529^12951J12415^16396J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8901: 04379^J01529^12951J12415^12951J12719^^^^^^^^^^^^^^^^G00029BD0003413059LD000'400034TD000!013064TJ0152 1 1 1 1 1 1 1 1 1 1 1 1 9001: 9^16366J01529^13064J01529^16396D1305900034TJ000'5^^^^^^^^^^^^^^^^G00029BD0003413184LD000'400034TD000 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: !013189TJ12952^13189J01529^16361J01529^16411J01529^16396D1318400034TJ000'5^^^^^^^^^^^^^^^^G00029BD00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9201: 02913268TJ01543^16461J01543^16466J01543^16476D1326800029TJ000'0^^^^^^G00029BD0004914321LD000'900039T 1 1 1 1 1 1 1 1 1 1 1 1 9301: DD000!014326TD000?010354TD1452714526LDD1455714537TD1641600049TD16416,13412J13393^J12688^14326C143261 11 1 1 11 1 1 1 1 1 1 1 9401: 6496J13533SNC1432616486J13492ST14326101372G00049BJ13564/)13412D00''014T271A1868200044J13381^A1868214 1 1 1 1 1 1 1 1 1 1 1 9501: 535D1868114T271A1868200044J13381^D0004414537LD1868214529TJ13381^C1452918692J14061S?14T26J14167V?1453 1 1 1 1 1 1 1 1 1 1 1 9601: 714531S1453514531C1432616481J13838/J12688^14326C1432616431J13695SC1432616441J13707/D18696145332J1268 1 1 1 1 1 1 1 1 1 1 1 9701: 8^14326T14326101372G00049BJ04821/D00''0145331J12688^14326T14326101372G00049BJ13838/D14533145321D00'' 1 1 1 1 1 1 1 1 1 1 1 1 9801: 0145331J12688^14326T14326101372J04821SA1453314531D0004400049TS1453500044D14TS614U26JD1456700049TC103 1 1 1 1 1 1 1 1 1 1 9901: 5416431J13926SD1869614US62D1453114US8TD1456714542TA1868214542D1035914547TD1454214019TA1870114019D186 1 1 1 1 1 1 1 1 1 10001: 77140192J14867^^^^^^1454214547D14326000?0TD1432100049TJ000/0^D1456200049T?14T2614US6C1035416431J1411 1 1 1 1 1 1 1 1 1 1 1 10101: 4SD1869614US62D1456214542TS1868214542?1454214019D1641614547TJ13985^D1456700049TD1429614US8TC14326164 1 1 1 1 1 1 1 1 1 10201: 81J13938/J12688^14326C1432616431J14257SC1432616441J14269/J12688^14326T14326101372J14257SJ13938^9R^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 10401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 10501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^0^^^^^^^^^^^^^^^^^^^^00000000000000500008G00029BD0004914859LD000'900039TD 11 1 1 1 1 1 1 1 1 1 1 1 1 1 10601: C000!016416J14751/!000?000044D1641600049TD1641614864TD14US7148641A14864A1648614864D1870314864SJ01543 1 1 1 1 1 1 1 1 1 1 10701: ^14864A1486600049AJ14732VJ14641^D1485900049TJ000/0^D000?000044TV1479414U28KJ01543^16431J14806^J01543 1 1 11 1 1 1 1 1 1 1 1 1 10801: ^16441?0004400049!1036400044J14641^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^AAG00029BD0005416578LD000'400034TD0 1 1 1 1 1 1 111 1 1 1 10901: 00'900039TD000/400044TC1035416431J14971SD1870818607TD1871318612TJ14995^D1871818607TD1872318612TC00'0 1 1 1 1 1 1 1 1 1 11001: 016416J15475/T000!0175922G00049BJ15161/D00''018597TJ15130^J01543^18607J01543^18597J13190^J01543^1035 1 1 1 1 1 1 1 1 1 1 1 1 1 11101: 4J14568^1641614562J01543^16456J01529^18607J01529^18597J15973^A1868218615A1868218628D18677186152C1861 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11201: 818615J15296UD1861518597T)00''1D000!000''1TS000?000049D1861500''0XS1872400049D1654300''07J15058^D186 1 1 1 1 1 1 1 1 1 1 11301: 77186282C1861818628J15333UJ15344^?1868218628?1872900054?1862818633S1868218633J15410VD00'!000'!0^G000 1 1 1 1 1 1 1 1 1 1 11401: 54AJ15366^D1861518597TD000!000'!0TS1035900054S000?000054D1861500'!0TJ15058^T000!0185922G00049BJ15659 1 1 1 1 1 1 1 1 1 1 11501: /D00''018597TJ15628^J13190^J01543^10354J14568^1641614567J01543^16456J01543^18612J01543^18597J13190^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11601: 14568^1035914567J01543^16456J01529^18612J01529^18597J15973^A1868218624A1868218626D18677186242C186211 1 1 1 1 1 1 1 1 1 1 1 1 1 11701: 8624J15794UD1862418597T)00''1D000!000''1TS000?000049D1862400''0XS1872400049D1654300''07J15520^D18677 1 1 1 1 1 1 1 1 1 1 11801: 186262C1862118626J15831UJ15842^?1868218626?1873400054?1862618633S1868218633J15908VD00'!000'!0^G00054 1 1 1 1 1 1 1 1 1 1 11901: AJ15864^D1862418597TD000!000'!0TS000?000054S1035900054D1862400'!0TJ15520^D1657800054TJ000/5^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 12001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0004416321LD000'400034TD1641616326TD1641600044TD16416J1268 1 1 1 1 1 1 1 1 1 12101: 8^16336C1633616486J16095ST16336101372G00044BJ16193/A1868200039D00'00163B11J12688^16336J16125^?00039J 1 1 1 1 1 1 1 1 1 1 1 1 1 12201: 04858VD18677000392C1864300039J04858U?163B116331D18677163312J01529^16331D16336000!0TD1632100044TJ000' 1 1 1 1 1 1 1 1 1 1 12301: 5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^EOP^0010500103001040010600092000960009900101001840019500203002 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12401: 0600207040010000000310003390034400374003490035400364003970039900396003690039800236002800021400194000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12501: 90003770030400380001000033500130^^^^LA00000"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000100?000100?^^^^^^^ 1 1 1 1 1 1 11 1 1 11 1 1 1 13501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 14501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00000^^ 1 1 14601: ^^^^^^^^^^^^^0000030050000000^^^^^000040000500006^^^^^^^^^^^^^^^^^^^^^^^^^^51^10A0A0000110000012-144 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1111 1111 1 1 1 111 14701: 27^^^^NIT^^NFL^^^IT^^^FLC1759218592^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11 1 1: PHF38040050400004000J00000^J00000^ 1: PHF38J04012^D1656600089TJ01515^0890404736J01529^08904C0890408564J04024/J04742^J04742^D0925109261TD09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 25609266TJ04742^J04742^D0850408968TJ09535^08914J10378^0891408809J10378^0891408724A0849908968J01515^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 905804882T09058165562J04259/J01529^09058J07909^09058J04192^W0431009054"J01515^0890904730J05217^09058 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 0890909058J10378^0891409058C0850908968J04181TJ11630^0891408904C0896808904J04192TJ12263^0891408968092 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 71D0927100029TD000'009296LDDDC0928607060J04181TC0928608437J04820SJ05805^0928609082C0908016568J04535S 1 1 1111 1 1 1 1 1 1 1 1 501: J05805^0929609091C0909109080J04181UNJ04685^J01529^04708J01529^09286J01529^09296J01529^09078D16573047 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 601: 13TA1657404713J12168^089140471304718C0471808894J04673SJ01529^04718J04603^J01529^04723J05648^09078J04 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 327^WRKST^^^^^^^^^^WRKND.04724.04730.04736G04812BJ01515^0925104814J01529^09251J01515^0925604814J0152 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 9^09256J04813^.04814?0896808904S0850408904J11812^089140890408904S0849908968J04327^D0900300099TD08894 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 05206TA0849905206D16575052062J12168^090960520605211C0521108894J05190SJ12168^091010520605216J01543^08 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 949J01543^05206J01543^08804J01543^08789J01543^08799J01543^08719?0851908904J01543^08734S0849908904J05 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 111VJ05074^J01543^08719J01543^08734J01543^08734J01543^05211J01543^05216J01543^08794J04906^J01501^PHF 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 40^^^^^^^^^^^^^^^G00029BD0004405607LD000/400044TDDD000?005617TD000!0D0889405627TJ10102^0887408499056 1 1 1 1 1 1 111 1 1 1 1 1 1 1301: 37A0849905627J09824^056370564205512C0564205612J05302/J05302/J12168^088790562705642C0564205617J05302/ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: C0900808499J05546/D0562705647TS0849905627D16575056272J12168^088890562705627C0562708894J05557/D056470 1 1 1 1 1 1 1 1 1 1 1 1 1501: 5627TJ05546^J10378^0887405612J10378^0887905617A0885905627D0562700'00TD0560700044TJ000/5^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BG05804BD000'400029/D000'000029/D000'005738/D0 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 00'505744/D0002905799/A0849905798J00000^^^^^^D0579900029TB05776999Z6'J05686^D0580400029TJ000'5^^^^^^ 1 1 1 1 1 1 1 1 1 1 1801: ^^^^^G00029BD000'905865/D000'405841/T00000151532G05860BD0000000000TJ000/0^G00029BD0002906043JD000'40 1 1 1 1 1 1 1 1 1 1 1 1901: 0029/D000'006048/S0885906048J12168^088740604806053J12168^088790604806058D0604300029TD000'906006/D060 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 5300000TD000/406030/D0605800000TJ000/5^^^^^^^^^^^^^^^^^^^^^G00029BD000'406089/J000'5^^^^^^G00029BD00 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 03906553LD000'400039TD06089B06312000!0'B06312000?0'D000!406533LD000?406538LA0655500039AT06533066416G 1 1 1 1 1 1 1 11 1 2201: 00029BD000'006223/J00000^A0896806538S0883406538J10231^089140653806533C0896806538J06127UJ06127SA08499 1 1 1 1 1 1 1 1 1 1 1 1 2301: 08968J06127^D0655300039TJ000'5^D0927606533TJ06225^A0896806533S0883406533J12168^089140653306533J06225 1 1 1 1 1 1 1 1 1 1 1 1 2401: ^D0900306533TA0849909003J06225^D0896306533TJ06225^D0906306533TJ06225^D0608906526TM%T006516WR06481"D0 1 1 1 1 1 1 1 1 1 1 1 2501: 889406533T.06225FLDX^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^5506469006350051000646904900063310200406431020 1 1 11 1 1 111 11 1 1 1 2601: 030640102002064500200106469020000622500399G00029BD0003406970LD000'400034TB06942000!0'D000!406941LA06 1 1 1 1 1 1 1 1 1 1 2701: 55500034C0706006941J06745UJ01529^06941J06673^A0896806941S0883406941J12168^089140694106941T0694107045 1 1 1 1 1 1 1 1 1 1 1 1 2801: 6G00029BD000'006825/J00000^J05874^069410705007055J01529^07050J01529^07055J06673^J01529^06975J06726^J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 01529^06980J06726^J01529^06985J06726^^^^^^D0697000034TJ000'5^^^^^^^^^^^^^^IR^^^FN^^^GL06918999990672 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 6050000689904000068800200006827007000672600399^^^^^^^^^^00399G00029BD0003407252LD000'400034TB0721400 1 1 1 1 1 1 1 1 1 1 1 3101: 0!0'D000!407242LA0655500034A0896807242S0883407242J11812^089140724207237C0896807242J07092UJ07092SS084 1 1 1 1 1 1 1 1 1 1 1 1 3201: 9908968J07092^D0725200034TJ000'5^^^^^^^^^^^^^^^^^^^^^G00029BD0003407319LD000'400034TJ000!0^D07319000 1 1 1 1 1 1 1 1 1 1 1 3301: 34TJ000'5^^^^^^^^^^^G00029BD000'407344/A0000008968D08894089682J000'5^G00029BC0906808894J000'5SD000'4 1 1 1 1 1 1 1 1 1 1 1 3401: 00029TJ05757^G00029BD000'400029TJ05757^G00029BD0003407613LD000'400034TD000!407572JA0655500034B075850 1 1 1 1 1 1 1 1 1 1 3501: 00!0'D000!407618JA0896807618S0883407618J12168^089140761807623J10305^^^^^^07623J07482^D0761300034TJ00 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 0'5^^^^^^^^^^^^^^^^^^^^^G00029BD0002907722/D000'407698/?0896807693S0850407693J12188^08914^^^^^^^^^^D 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 0772200029TJ000'5^^^^^^G00029BD0889409068TD000'407764/T09296000002J07785/D0849909068TJ000'5^^^^^^G00 1 1 1 1 1 1 1 1 1 1 1 3801: 029BD0002907908/D000'400029TD000'007845/T00000999Z52G00029BJ07885/D000'000029LJ05757^D0790800029TJ00 1 1 1 1 1 1 1 1 1 1 3901: 0'5^^^^^^G00029BD0002908109LD000'407979/J01515^0811408066J01529^08114C0811400000J08035SW0794008110"J 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 01515^0811408066J01529^08114J07940^D0889409068TD0810900029TJ000'5^M%T008096WR08066".08089J04882^PUTP 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: ASER^^^^^^^^^^^^"G08232BJ01515^0823808239W0819208234"J01515^0890908245J05217^082380890908238J10378^0 1 1 111 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 891408238C0823808724J08124/J08233^^^^^^.08245.08245D0872408238TJ08192^G00029BD0003408432LD0927100034 1 1 1 1 1 1 1 1 1 1 1 1 4301: TC999Q508437J08337SC999Q508559J08368/J06642^16210J07061^16210J08404^J06642^16414D08437999R0TJ07061^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 6425D0843200034TJ000'5^^^^^^^^^^^00085G00029BD0889409068TT09286158762J08488/D0849909068TJ000'5^00001 1 1 1 1 1 1 1 1 1 1 1 4501: 00002000030000400005000060000700008000090000K0000L00089000860009000091000920010100104000950010500107 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 0010800109001100011100112001130011400115001160011700118001190012000121001230012400128001290013000134 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: 0013900177001950019600203002060022400230003030031000315003720033900364003750038000395003960039700398 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 003990400100369000230003500000050000040000401040010400000500050010050100000000000000000000000000000J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: ^^^^^^^^^^00000020000700000700007010200102002^^^GA0200302004^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^005000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 500100000007010200100701020010000000701020010700109001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: ^^C0001C0002C0003C0004S0001S0002S0003S0004S0005S0006S0007S0008^^^IR^^^FN^^^GL0000000000^EOP^00000^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^I&000000000000000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 029BG09493BD000'409443/C0950808894J09433/J09348ZA1657409503D0950309508TJ09476ZNJ09433^J11283^0950309 1 1 1 1 1 1 1 1 11 1 1 1 5401: 498C0949808894J09341SD0949300029/D0950800000TD0950909504,D08894095293J000'5^)09379J09386^1234512345A 1 1 1 1 1 1 1 1 1 1 1 1 5501: 0006A0001A0002A0003A0004A000500000'G00029BD0003909823LD000'400034LD000!009803TD08894000!0TW096210979 1 1 1 1 1 1 11 1 1 1 1 1 5601: 9&D0982300039TJ000'5^D0952309528TDDDD0980309508TJ11283^0980309808C0980808894J09602SS11624D0980800039 1 1 1 1111 1 1 1 1 1 1 1 5701: T?000?511619A11619A11619A000?511619S1161900089S1657400088D0003900034/S1161900039D000!6999I6,J09602^1 1 1 1 1 1 1 1 1 1 1 1 5801: 234512345123456789012345G00029BD0004410101LD000'400034LD000'900039LD000/400044LD000!010066LS16576000 1 1 1 1 1 1 1 1 1 5901: 34J11630^1006F1007AD000!010076JC1007110076J10031UJ12168^1006F1007F1008AD10081000?0TA16577000!0C10081 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 08894J09902SD1010100044TJ000/5^D0004410060/D1010100044TJ10061^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 6101: ^^G00029BD0004410230LD000'400034LD000'900039LD000/400044LS1657600044D000!000'05XD000?000'00TD1023000 1 1 1 1 1 1 1 1 1 6201: 044TJ000/5^^^^^^^^^^^^^^^^^^^^^G00029BD0006411263LD000'900064TD000/400054TD00!0011268TD000'400034TJ1 1 1 1 1 1 1 1 1 1 6301: 0687^G00029BD0006411263LD1657311268TD000'900054TD000'400034TS1657611228J10687^G00029BD0003410686LD00 1 1 1 1 1 1 1 1 1 1 6401: 0'410432/D000'910613/J11283^STRNG10671C1067108894J10567/J09297^10676D00?'000?/03D0889400?'9TD10676S1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 657811629A1657400088D0008910671TS1657910671D1043210565/D1067600000TD1067100034T,999R6A16574000!5D00? 1 1 1 1 1 1 1 1 1 6601: '000?'5TD00000000!0TA1657800089)999R6A1657811629D1068600034TJ000/0^12345123451234567890D000!011208XJ 1 1 1 1 1 1 1 1 1 1 1 6701: 11283^1120H1121CD1121300039TC0003916573J11114SD000?511218LC1126816584J10810S?1126811223S1121811223V1 1 1 1 1 1 1 1 1 1 1 1 6801: 082211223KD1121811268X,000?0@1657611270D1121811275X@1658511277?1127700044A0003900044?0004400049A1127 1 1 1 1 1 1 1 1 1 6901: 000049S1657600049,00''0S1658600044D00'0000?'0#?0008900059A1127000059D00'!000'?4TD00''100'?5#S1127000 1 1 1 1 1 1 1 1 1 7001: 059S1127700059A1658800059A1657711218D1121800'?0T)00''0D1658900'?1#D000?600'00"A1657600089D1126300064 1 1 1 1 1 1 1 1 1 7101: TS11624J000/5^D00'!000?'4TJ09297^1120HD11208000!0TD000!000?'9TD1659400?/4TA1659600089D1658900?'0#J11 1 1 1 1 1 1 1 1 1 1 1 7201: 089^1120H1121C1121H1122C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1128BG00029BD000441161 1 1 1 1 1 1 1 1 1 1 7301: 4LD0889400044TD000'9DW11376999R6&D0889400044SD00044000?0TD1161400044TJ000/0^C11624000!0J11413/D11629 1 1 11 1 1 1 1 1 1 1 7401: 00044TJ11333^D000!011624TA0008900044S1657900044C00'0011624J11496/D0004411629/D0889411629SJ11333^?00' 1 1 1 1 1 1 1 1 1 1 7501: 0511619A11619A11619A00'0511619S1161900044S1657400043C1656100044J11447US11624D0889400044TJ11465^12345 1 1 1 1 1 1 1 1 1 1 1 7601: 67890123456789012345^^^^^^^^^^G00029BD0004411801LD000'400034LD000'900039LD000!011806TJ11283^1180F118 1 1 1 1 1 1 1 1 1 1 1 7701: 1AC1181108894J11751SD1181100044TD00'05000?0LJ11763^D08894000?0TD1180100044TJ000/0^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 7801: ^^^^^^^^^^^^G00029B)11938D0003412162LD000/412039/D000'911889/D000'411884/J12263^123451234512167D1216 1 1 1 1 1 1 1 1 1 1 1 1 1 7901: 700029TC0889412167J12021SD000'012167LNJ12021^D1162900034/,000!1S16574000!5)000!1J12066VS1657800089S1 1 1 1 11 1 1 1 1 1 1 1 8001: 657811629D000'1999Z6,NJ12226^D1216700000T)12022D1216200034TJ000/5^D000!6999R1,S1659800089S11624D1188 1 1 1 1 1 1 1 1 1 1 8101: 400034/D0952309528TDDDD000!009508TD08894000!0TJ12029^123456789012345G00029B,11938J11825^G00029BD000/ 1 1111 1 1 1 1 1 1 1 1 1 8201: 412249/,11938,12022J11825^C0889400029J12041SD00000000'0TJ12041^G00029BG12540BD000'412354/D000/412486 1 1 1 1 1 1 1 1 1 1 1 8301: /D000'900029/?000'012530J12507VD08894125302J11283^1234512535?1253500029J12464VD000'511619LC116191253 1 1 1 1 1 1 1 1 1 1 1 8401: 0J12507US1253011619A1657411619S1161900029A11619A11619S1161900029D0889400029SD0002900000TD1254000029T 1 1 1 1 1 1 1 1 1 1 8501: J000/5^D0889400029TJ12476^123451234512345G12876BJ09535^08829J06642^16479J01515^1288212883C0889412882 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: J12632TC1288208714J12690SJ12572^J10378^0882912882J01515^1288212883J10378^0882912882J12572^J01515^128 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 8212883J01515^1288212883J01529^12882J01515^1288212883J01529^12882J01529^08729J01529^09176J01529^0900 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8801: 3A1657409003J01529^08729J01529^09176J01529^09003A1657409003J01529^08794J12877^^^^^^.12883G00029B?165 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8901: 7416599J000'5^G13225BJ09535^08874J09535^08879?16599J12971VS16599J13220^C1337116574J13220/D1660013371 1 1 1 1 1 1 1 1 1 1 1 1 1 9001: TJ12168^091860849913231J12168^091860849913236C1323613231J13220/J06642^13252J11812^091860849908904J11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 812^091860849908904J01529^09176J01529^08904J01529^08729J11812^091860849908904J01529^09176J01529^0890 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9201: 4J01529^08794J13023^J13226^^^^^^^^^^^^^^^^^^^^^^^^^^003990039500398'G13354BJ05874^092811336013365J12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9301: 168^091860849913370C1337013365J13349/D1657413371TJ13355^^^^^^^^^^^^^^^^0G00029BD0002913491TJ12168^09 1 1 1 1 1 1 1 1 1 1 11 1 1 1 9401: 1860849913496S0885913496J12168^088791349613496J12188^091860849913496D1349100029TJ000'0^^^^^^^^^^^G00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9501: 029BD0002913740TD0929613725TC1372508894J13702SJ05874^137251373013735J01529^08804J01529^08739J01529^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9601: 8799J01529^13730J01529^13735J01529^08794J11812^088290849913730J11812^088290849913735C1373508894J1356 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9701: 8/D1374000029TJ000'0^^^^^^^^^^^^^^^^^^^^^G00029BD0002914028TD0896814063/S1657414063J12168^0891414063 1 1 1 1 1 1 1 1 1 1 1 1 1 9801: 14063J05874^140631403814043J10102^090960849914053D0889414033TA0849914033D16575140332J09824^140531405 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9901: 813971C1403814058J13861/J12168^091011403314058C1405814043J13861/J14005^J10378^0909614038J10378^09101 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10001: 14043D1402800029TJ000'0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0002914161TJ13741^J06642^164 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10101: 31J01529^08949J01529^14033J01529^08794D1416100029TJ000'5^^^^^^G00029BD0002914259TJ13741^J06642^16457 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: J01529^08949J01529^14033J01529^08794D1425900029TJ000'5^^^^^^G14332BJ01529^09286J01529^09291J01529^09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: 296D0927100029TD08437999Z0TJ14333^G14358BD0889409068TJ14359^151580000'153220000001841532200000032615 1 1 1 1 1 1 1 11 1 1 10401: 2910000002141551900000031215519000000334155190000003201551900000030015519000000337155190000003081551 1 1 1 1 1 1 1 10501: 9000000328153220000003161532200000020615169000000314155400000003231554000000032515540000000327155810 1 1 1 1 1 1 1 10601: 0000033315210000000302156020000003221560200000032415602000000370156020000003361560200000033015602000 1 1 1 1 1 1 1 10701: 0003191571500000009515322000000177153220000000991576600000032915807000000331153220000001001532200000 1 1 1 1 1 1 1 10801: 0310153220000003721532200200036915848000000092153220000001061567400000031815674000000321153220000001 1 1 1 1 1 1 1 10901: 0515322000000104156230000003321562300000031715344202000086151581520003761536500000014215365000000141 1 1 1 1 1 1 1 11001: 1536500000014015322000000195153220000003441532200000034915322000000354153220000003591532200000033915 1 1 1 1 1 1 1 1 11101: 3220000003641538600150020315322000000207153331010000850725304181'07253125410725313497070611598207320 1 1 1 1 1 11 1 1 1 1 1 1 11201: 08499'07253081170605915877060901600406642160150732008549074391609107061161120725313372'0664216184070 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 11301: 61161730725313268'0827008894'0706116210'07797165200706116210'08270088941288908894'082700889407253129 1 1 1 11 1 11 1 11 1 1 1 11 1 1 1 11 1 1 1 11401: 14060591647306090162100779716520'0664216216070611621607909086940732008899'06642162160706116216095350 1 1 1 1 1 1 11 1 1 1 1 1 1 1 11 1 1 1 1 1 11501: 88740953508879'06642162270706116210'0725308117066421625307320085040706116289'06642163050706116210'06 1 1 11 1 1 1 11 1 1 1 1 1 1 1 11 1 1 1 11 11601: 642162270706116331'07253081170664216253070611598207320085040706116331'072530811706642163470732008514 1 1 1 11 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11701: 0706115945'06642163930725304742072530474207253047420706116393'07253081170732008504140640889407061162 1 1 11 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 11801: 89'0725308117073200850414162088940706116289'07253142600706116216''00195'003140200202002'0500005000'0 11 1 1 1 1 1 1 1 11 1 1 1 111 11 1 1 1 11901: 03990499800398050030020605002002060500100397'0499804998049980499804998'0918104999'0499904999'0499905 1 1 1 1 1 1 12001: 001'0500605007'003990499800398050000020605002002060500400206050060020605007002060500800397'091860501 1 1 1 1 1 12101: 10501005002'050010500105001050010500105001050010500105001050010500105001'0499804998'0039904998003980 1 1 1 1 12201: 499700397'04998'0499905000'0039904998003980499900397'00399049980039804999002060500100397'04998049980 1 1 1 1 1 1 12301: 4998'0039904999003980499900397'049980499905000'003990499800398049990020605001002060500300397'0499704 1 1 1 1 1 12401: 9980499905000'0499704998'04997'0039904996003980499700206'003990499600398'00086'003990031400398''1547 1 1 1 1 1 1 11 12501: 800369154370037609296^00103001010037800380003740037700304166011660100000001^EA560000JND1D'000011E15^ 1 1 11 1 1 1 1 1 1 1 1 1 1 1111111 111 11 1 1 1 12601: 0'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1: PHF40040050400004000J00000^J00000^ 1: PHF40D0009908480/D1845600089TJ01515^0838104712J01529^08381C0838108046J04029/J04718^J04718^D155830510 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 7TD1558805137TJ04718^J04718^J06575^18374D0800108445TJ08908^08391J09344^0839108291J09344^0839108041J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 1515^0838104706J01515^0838104706A0799608445J01515^0855504796C0855508286J04309/J01529^08555J07631^082 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: 76J04243^C0855508470J04385/J01515^0855504706J09344^0846508555J01515^0855504706J04243^T08555115922J04 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 435/J01529^08555J07631^08555J04243^W0448608551"J01515^0838604700J05183^085550838608555J09344^0839108 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 555J10596^0839108381C0844508381J04243TJ11229^083910844508628D0862800029TD000'008668LDDDC0865806993J0 1 1 1 1 1 1 1 1 1 1 1 1111 1 601: 4232TJ05738^0865808579C0857718458J04675SJ05738^0866808588C0858808577J04232UJ05581^08575J04503^.04694 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: .04700.04706.04712G04788BJ01515^1558304790J01529^15583J01515^1558804790J01529^15588J04789^.04790D050 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 0504995TC0854007996J04838/D0500004995TD0841105082TC0851505082J04911SD1846300039TD18468J05006^A184690 1 1 1 1 1 1 1 1 1 1 901: 5082J04850^D0841605152TC0852005152J04984SD1847400039TD18479J05006^A1846905152J04923^J01501^PHF90PHF4 1 1 1 1 1 1 1 1 1 1 1 1 1001: 2PHF45G05064BD0003905036TJ01543^^^^^^A1848000039S1846900034J05065VJ05013^^^^IR^^^^^003990039600398^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: ^^#^^^^^00397003990039600398^^^^#^^^^^00397^^^FN^^^^^003990039600398^^^^#2^^^^00397G00029BD000440555 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 0LD000/400044TDDD000?005560TD000!0D0837105570TA1846905570J11134^083510557005575C0557508371J05455SC05 1 111 1 1 1 1 1 1 1 1 1 1 1301: 57505555J05246/J11134^083560557005575C0557505560J05246/C0848507996J05489/D0557005580TS0799605570J111 1 1 1 1 1 1 1 1 1 1 1 1 1401: 34^083660557005570C0557008371J05500/D0558005570TJ05489^J09344^0835105555J09344^0835605560A0833605570 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1501: D0557000'00TD0555000044TJ000/5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BG05737BD000' 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 400029/D000'000029/D000'005671/D000'505677/D0002905732/A0799605731J00000^^^^^^D0573200029TB05709999Z 1 1 1 1 1 1 1 1 1 1701: 6'J05619^D0573700029TJ000'5^^^^^^^^^^^G00029BD000'905798/D000'405774/T00000165962G05793BD0000000000T 1 1 1 1 1 1 1 1 1 1 1 1801: J000/0^G00029BD0002905976JD000'400029/D000'005981/S0833605981J11134^083510598105986J11134^0835605981 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 05991D0597600029TD000'905939/D0598600000TD000/405963/D0599100000TJ000/5^^^^^^^^^^^^^^^^^^^^^G00029BD 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 000'406022/J000'5^^^^^^G00029BD0003906486LD000'400039TD06022B06245000!0'B06245000?0'D000!406466LD000 1 1 1 1 1 1 1 1 1 1 2101: ?406471LA0648800039AT06466065746G00029BD000'006156/J00000^A0844506471S0831106471J09197^0839106471064 1 11 1 1 1 1 1 1 1 1 1 2201: 66C0844506471J06060UJ06060SA0799608445J06060^D0648600039TJ000'5^D0863306466TJ06158^A0844506466S08311 1 1 1 1 1 1 1 1 1 1 1 2301: 06466J11134^083910646606466J06158^D0848006466TA0799608480J06158^D0844006466TJ06158^D0856006466TJ0615 1 1 1 1 1 1 1 1 1 1 1 1 2401: 8^D0602206459TM%T006449WR06414"D0837106466T.06158FLDX^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^5506402006283 1 1 1 1 1 1 11 1 1 111 11 2501: 051000640204900062640200406364020030633402002063830200106402020000615800399G00029BD0003406903LD000'4 1 1 1 1 1 1 1 1 1 1 2601: 00034TB06875000!0'D000!406874LA0648800034C0699306874J06678UJ01529^06874J06606^A0844506874S0831106874 1 1 1 1 1 1 1 1 1 1 2701: J11134^083910687406874T06874069786G00029BD000'006758/J00000^J05807^068740698306988J01529^06983J01529 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: ^06988J06606^J01529^06908J06659^J01529^06913J06659^J01529^06918J06659^^^^^^D0690300034TJ000'5^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: ^^^^^^^IR^^^FN^^^GL068519999906659050000683204000068130200006760007000665900399^^^^^^^^^^00399G00029 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: BD0003407185LD000'400034TB07147000!0'D000!407175LA0648800034A0844507175S0831107175J10778^08391071750 1 1 1 1 1 1 1 1 1 1 1 3101: 7170C0844507175J07025UJ07025SS0799608445J07025^D0718500034TJ000'5^^^^^^^^^^^^^^^^^^^^^G00029BD000340 1 1 1 1 1 1 1 1 1 1 1 1 3201: 7252LD000'400034TJ000!0^D0725200034TJ000'5^^^^^^^^^^^G00029BD000'407277/A0000008445D08371084452J000' 1 1 1 1 1 1 1 1 1 1 3301: 5^G00029BC0856508371J000'5SD000'400029TJ05690^G00029BD000'400029TJ05690^G00029BD0003407546LD000'4000 1 1 1 1 1 1 1 1 1 1 1 3401: 34TD000!407505JA0648800034B07518000!0'D000!407551JA0844507551S0831107551J11134^083910755107556J09271 1 1 1 1 1 1 1 1 1 1 1 3501: ^^^^^^07556J07415^D0754600034TJ000'5^^^^^^^^^^^^^^^^^^^^^G00029BD0837108565TD000'407598/T08668000002 1 1 1 1 1 1 1 1 1 1 1 1 3601: J07619/D0799608565TJ000'5^^^^^^G00029BD0002907831LD000'407701/J01515^0783607788J01529^07836C07836000 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 00J07757SW0766207832"J01515^0783607788J01529^07836J07662^D0837108565TD0783100029TJ000'5^M%T007818WR0 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 7788".07811J04796^PUTPASER^^^^^^^^^^^^"G07954BJ01515^0796007961W0791407956"J01515^0838607967J05183^0 1 1 1 1 1 111 1 1 1 1 1 1 1 1 1 3901: 79600838607960J09344^0839107960C0796008206J07846/J07955^^^^^^.07967.07967D0820607960TJ07914^00001000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 0200003000040000500006000070000800009000890009000091000920010100104000950010500107001080010900110001 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 1100112001130011400115001160011700118001190012000121001230012400128001290013000134001390017700195001 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 9600203002060022400230003030031000315003720033900364003750038000395003960039700398003990400100369000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 2300035050000040000401040010400000500050010050100000000000000000000000000000J^^^^^^^^^^0000002000070 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 0000700007010200102002^^^GA0200302004^^^^^^^^^^^^^^^^^^^^^^^^000000037700500050010000000701020010070 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 1020010000000701020010700109001^^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^IR^^^FN^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: ^^GL0000000000^EOP^^^^I&^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'G00029BG08866BD000'408816/C088 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 4701: 8108371J08806/J08721ZA1846908876D0887608881TJ08849ZNJ08806^J10249^0887608871C0887108371J08714SD08866 1 1 1 1 1 11 1 1 1 1 1 1 4801: 00029/D0888100000TD0888208877,D08371089023J000'5^)08752J08759^1234512345A0006A0001A0002A0003A0004A00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 0500000'G00029BD0003909196LD000'400034LD000!009176TD08371000!0TW0899409172&D0919600039TJ000'5^D08896 1 11 1 1 1 1 1 1 1 1 5001: 08901TDDDD0917608881TJ10249^0917609181C0918108371J08975SS10590D0918100039T?000?510585A10585A10585A00 1111 1 1 1 1 1 1 1 1 1 1 1 5101: 0?510585S1058500089S1846900088D0003900034/S1058500039D000!6999I6,J08975^1234512345123456789012345G00 1 1 1 1 1 1 1 1 1 1 5201: 029BD0006410229LD000'900064TD000/400054TD00!0010234TD000'400034TJ09653^G00029BD0006410229LD184851023 1 1 1 1 1 1 1 1 1 5301: 4TD000'900054TD000'400034TS1848610194J09653^G00029BD0003409652LD000'409398/D000'909579/J10249^STRNG0 1 1 1 1 1 1 1 1 1 1 1 5401: 9637C0963708371J09533/J08670^09642D00?'000?/03D0837100?'9TD09642S1848010595A1846900088D0008909637TS1 1 1 1 1 1 1 1 1 1 1 1 5501: 848709637D0939809531/D0964200000TD0963700034T,999R6A18469000!5D00?'000?'5TD00000000!0TA1848000089)99 1 1 1 1 1 1 1 1 1 5601: 9R6A1848010595D0965200034TJ000/0^12345123451234567890D000!010174XJ10249^1017D1017ID1017900039TC00039 1 1 1 1 1 1 1 1 1 1 1 1 5701: 18485J10080SD000?510184LC1023418492J09776S?1023410189S1018410189V0978810189KD1018410234X,000?0@18486 1 1 1 1 1 1 1 1 1 1 5801: 10236D1018410241X@1849310243?1024300044A0003900044?0004400049A1023600049S1848600049,00''0S1849400044 1 1 1 1 1 1 1 1 1 5901: D00'0000?'0#?0008900059A1023600059D00'!000'?4TD00''100'?5#S1023600059S1024300059A1849600059A18497101 1 1 1 1 1 1 1 1 1 6001: 84D1018400'?0T)00''0D1849800'?1#D000?600'00"A1848600089D1022900064TS10590J000/5^D00'!000?'4TJ08670^1 1 1 1 1 1 1 1 1 1 1 1 6101: 017DD10174000!0TD000!000?'9TD1850300?/4TA1850500089D1849800?'0#J10055^1017D1017I1018D1018I^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1024HG00029BD0004410580LD0837100044TD000'9DW10342999R6&D 1 1 1 1 1 1 1 11 1 6301: 0837100044SD00044000?0TD1058000044TJ000/0^C10590000!0J10379/D1059500044TJ10299^D000!010590TA00089000 1 1 1 1 1 1 1 1 1 6401: 44S1848700044C00'0010590J10462/D0004410595/D0837110595SJ10299^?00'0510585A10585A10585A00'0510585S105 1 1 1 1 1 1 1 1 1 1 1 6501: 8500044S1846900043C1845100044J10413US10590D0837100044TJ10431^1234567890123456789012345^^^^^^^^^^G000 1 1 1 1 1 1 1 1 1 1 1 6601: 29BD0004410767LD000'400034LD000'900039LD000!010772TJ10249^1077B1077GC1077708371J10717SD1077700044TD0 1 1 1 1 1 1 1 1 1 1 1 6701: 0'05000?0LJ10729^D08371000?0TD1076700044TJ000/0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029B)10904D00034111 1 1 1 1 1 1 1 1 1 1 6801: 28LD000/411005/D000'910855/D000'410850/J11229^123451234511133D1113300029TC0837111133J10987SD000'0111 1 1 1 1 1 1 1 1 1 1 1 6901: 33LNJ10987^D1059500034/,000!1S18469000!5)000!1J11032VS1848000089S1848010595D000'1999Z6,NJ11192^D1113 11 1 1 1 1 1 1 1 1 1 1 7001: 300000T)10988D1112800034TJ000/5^D000!6999R1,S1850700089S10590D1085000034/D0889608901TDDDD000!008881T 1 1 1 1 1 1 1 1 1111 7101: D08371000!0TJ10995^123456789012345G00029B,10904J10791^G00029BD000/411215/,10904,10988J10791^C0837100 1 1 1 1 1 1 1 1 1 1 1 1 1 7201: 029J11007SD00000000'0TJ11007^G00029BG11506BD000'411320/D000/411452/D000'900029/?000'011496J11473VD08 1 1 1 1 1 1 1 1 1 1 1 7301: 371114962J10249^1234511501?1150100029J11430VD000'510585LC1058511496J11473US1149610585A1846910585S105 1 1 1 1 1 1 1 1 1 1 1 7401: 8500029A10585A10585S1058500029D0837100029SD0002900000TD1150600029TJ000/5^D0837100029TJ11442^12345123 1 1 1 1 1 1 1 1 1 1 1 7501: 4512345^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^00380003040010100103003780037400130G11812B 1 11 1 1 1 1 1 1 1 7601: C0850008515J11643TC0850508520J11662TJ11674^D0850008515/J11618^D0850508520/C0848508371J11723SD0850008 1 1 1 1 1 1 1 1 1 1 1 7701: 490TD0850508495TJ11747^D0849008500TD0849508505TD0837108485TJ08908^08366J08908^08351J08908^08356D0837 1 1 1 1 1 1 1 1 1 1 1 1 7801: 108510TJ11813^G00029BD0003411976LD000'400034TT08570120366G00029BD000'011881/J11882^J05807^0857011981 1 1 1 1 1 1 1 1 1 1 1 7901: 11986B1193611980ID08001000!0/J11948^D07996000!0/D1197600034TJ000'5^^^^^^^^^^^^^^^^^^^^^1191799999119 1 1 1 1 1 1 1 1 1 1 1 1 8001: 3609000119170400011936020001188300700G12352BD0865308570/J11814^08450C0845007996J12324SJ12294^G12352B 1 1 1 1 1 1 1 1 1 1 1 8101: D1850812354TC0865808181J12142/D1846912354TD0865308570TJ11814^08450D0866308570TJ11814^08455A084500845 1 1 1 1 1 1 1 1 1 1 1 8201: 5A0845008455S1850908455D0862800029TA0845508658D08658999Z0TC1235418469J12347SC1851408455J12324TD08505 1 1 1 1 1 1 1 1 1 1 8301: 08560/A1846908505J12347^D0850008560/A1846908500J12353^0G12378BC0866808066J12379/J09271^0860808653J06 1 1 1 1 1 11 1 1 1 1 1 1 8401: 994^17974J07346^16611G12504BJ01529^08176J01529^08658J01529^08663J01529^08176A1846908445J06994^17996J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8501: 12505^G12609BJ10778^083910844512615S1846908445J11134^083910844512615C1261512620J12604SC1261508206J12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 513/J12610^^^^^^00089G12704BJ01529^08256J01529^08545A1846908545J01529^08211J01529^08256J01529^08545J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8701: 12705^G12837BD0866308570TJ11814^12843C1284307996J12809SD0862800029TD08236999Z0TD0850508560/A18469085 1 1 1 1 1 1 1 1 1 1 8801: 05J12832^D0850008560/A1846908500J12838^^^^^^G12992BJ10778^086080799613137C1313708371J12975SJ01529^08 1 1 1 1 1 1 1 1 1 1 1 1 1 1 8901: 211C0841113137J12994TC0841613137J13047TC0832613137J13066TC0831113137J13085UJ08908^08608J12993^J05807 1 1 1 1 1 1 1 1 1 1 1 1 9001: ^131371314213147J01529^13142J01529^13147J12851^D0859313142TJ13097^D0859813142TJ13097^D0860313142TJ01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 529^13142J01529^13137J12851^^^^^^^^^^^^^^^^^^^^^G13479BJ08908^08608J08908^08366D0799613485TD08011085 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9201: 45TA0799613485J11134^083511348513490C1349008371J13474SB1332013489ID0817113500TD0859813516TD085050856 1 1 1 1 1 1 1 1 1 1 1 9301: 0/A0799608505J13367^D0816613500TD0859313516TD0850008560/A0799608500J09344^0836608560J06575^13491J015 1 1 1 1 1 1 1 1 1 1 1 1 9401: 29^08545J01529^08211J01529^13516J01529^08560J01529^08276A0801608545J13203^J13480^^^^^^^^^^^00399^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9501: ^0039800375'^^^^^G13571BD0837108565TC0866808246J13566/D0799608565TJ13572^G13633BD0862800029TD0818699 1 1 11 1 1 1 1 1 1 1 1 1 9601: 9Z0TD08181000'0TD0799608485TJ13634^G13778BD0866308570TJ11814^13784D0862800029TC1378407996J13738SD085 1 1 1 1 1 1 1 1 1 1 1 9701: 0508560/A1846908505D13789999Z0TJ13773^D0850008560/A1846908500D13794999Z0TJ13779^^^^^^0018500184G1405 1 1 1 1 1 1 1 1 1 1 1 9801: 7BJ10778^086080799614063C1406308371J13956SJ01529^08211C0840614063J13925UJ05807^140631406814073J01529 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9901: ^14068J01529^14073J13802^J01529^08593J01529^14063J13802^C0864808371J14016SJ14074^08643C0864808653J14 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10001: 016SJ14074^08648J14074^08638J14074^08535J01529^08276J14058^^^^^^^^^^^^^^^^G00029BD0003414181LD000'40 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10101: 0034TD000!014186TJ01529^08211J01529^08623J01529^14186D1418100034TJ000'5^^^^^^^^^^^^^^^^G14225BD08628 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: 00029TD999Y008648LDDJ14226^G14406BD0844514412TS1851614412J11134^083911441214422J05807^14422144121441 1 111 1 1 1 1 1 1 1 1 1 1 1 10301: 7B1436614411ID0853008633/A1846908530D0513708535TA0800108535J14401^D0852508633/A1846908525D0510708535 1 1 1 1 1 1 1 1 1 10401: TJ14407^^^^^^^^^^^^^^^^G00029BD0002914930TC0866808066J14551SJ09271^0860808663J14946^C0866808076J1452 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10501: 0/A1846908445J14901^J06575^18106J01529^08276J14664^J14946^J06575^18163?0803114935J14635VJ01515^08381 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10601: 14920J01529^08381S0799614935J14581^J01529^08276J01515^0838114920J06994^18137J01515^1493514920C149350 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10701: 8470J14769/J01515^1493514920J09344^0846514935J01515^1493514920J14676^C1493508206J14851/J06575^18209J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10801: 09344^0839108291J09344^0839114935A0799608445J14901^C1493508211J14876/J14833^C1493508196J14799SJ14920 1 1 1 1 1 1 1 1 1 1 1 1 1 10901: ^D1493000029TJ000'0^.14920^^^^^^^^^^^^^^^^^^^^G15542BD0837115548TD0837115553TJ10778^086080799615558C 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11001: 1555808371J15054/C1555308371J15537SJ06575^18230J15537^C1555808291J14977SC0841115558J15097TJ15342^J05 1 1 1 1 1 1 1 1 1 1 1 1 11101: 807^155581558315588B1513815581AJ15342^C1555308371J15175/J06575^18251J15217^C1555307996J15217/J06575^ 1 1 1 1 1 1 1 1 1 1 1 1 1 11201: 18230J06575^18251J06575^18293J01529^15583J01529^15588J01529^08211J01529^08623J10778^084650799615578J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11301: 01529^15578J01529^08276D0800115553TJ14977^C1555308371J15379/J06575^18272J15421^C1555308001J15421/J06 1 1 1 1 1 1 1 1 1 1 1 1 1 11401: 575^18230J06575^18272J06575^18309C0841115558J15506TJ01529^08603J01529^15558J01529^08276D0799615553TJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11501: 14977^J01529^15583J01529^15588J15475^J15543^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G15725BD086 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11601: 2800029TC0865808241J15708SD08131999Z0TJ05807^086531573115736B1569015730IA1846908495J15720^A184690849 1 1 1 1 1 1 1 1 1 1 1 11701: 0J15720^D08136999Z0TJ15726^^^^^^^^^^^G15782BA1851708445?1851715871S1846915871J15783VJ01515^158761582 1 1 1 1 1 1 1 1 1 1 1 1 1 11801: 5J09344^0839115876J15766^M%T015855WR15825".15848J04796^MOVEINCOEF^SUBR"^^^^^^G15913BD0862800029TD080 1 1 1 1 1 1 1 1 1 111 1 1 1 11901: 81999Z0TJ15914^G15981BC0866808296J04243SD1846908540TD0862800029TD08206999Z0TJ15982^G16067BD083710856 1 1 1 1 1 1 1 1 1 1 12001: 5TC0854007996J16062SC0866308291J16062/J06575^18395D0799608565TJ16068^166010000'166010099003691741400 1 1 1 1 1 1 1 1 1 11 1 12101: 0000326173939999000891738200000009217371000000106173100400001001724960990031017249609900372172289999 1 1 1 1 1 1 1 12201: 0011817228999900117171770049001051716649000010717154004900104170834800003161706260600020317051490100 1 1 1 1 1 1 1 12301: 2071704001500019516979605900134168270400001771682704000009916776100000184174356000001421743560000014 1 1 1 1 1 1 1 12401: 0174356000001411670504000009816705040000097167050400000961669400000009516663494800206166120504003641 1 1 1 1 1 1 1 1 12501: 6612605900339166120505003591661205050035416612101000349166121010003441745600000039916601000000398071 1 1 1 1 1 1 1 12601: 8604232'07186120930599217483060231748906575179280699417769'071861235507372176020699417613'0718615737 1 11 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 12701: '0718614187071861422705992176240602317489065751763007186137950699417671'0718613635059921748306023174 11 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 12801: 8906575180700699417974'07186135170730216918071861203705992174830602317489065751772207186128440657517 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12901: 7530699417769'071861357305992177850602317791065751779707186131480699417613'0718612093065751783307186 1 1 11 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 13001: 12621065751785906994177690718611593'0718604232'0699417985'06994179740718611593'071861270607186078390 1 1 1 1 1 1 1 11 1 11 1 11 1 1 1 11 1 1 1 1 13101: 5992174830602317489065751749507253080210699417561'.1715008371'0718614423'071861587705992180480602318 1 1 1 1 1 1 1 1 1 11 1 11 1 11 1 1 1 1 1 13201: 05906575180120699418368'06575183250424308371'0657517885071861284406575179160718615589069941792207186 1 1 1 1 11 1 1 1 11 1 1 1 1 1 1 1 1 1 1 13301: 11593'071861598307302173600657517885071861284406575179160699417613'0718612506'0718612421'07186159150 1 11 1 1 1 1 1 1 1 1 1 1 1 11 1 11 1 11 1 1 13401: 725307996'06575183250699418346'06575184210699418346'065750865407631082760699418352'02001'04999'00399 1 11 1 1 1 11 1 1 1 11 1 1 1 1 1 1 13501: 049970039804998002060500100206050030020605005002060499900397'049980499804998049980499804998049980499 13601: 8'0860804999'0499904999'02004'0039904997003980498900206049990020604998'04998049980499804998049980499 13701: 804998049980499804998'003990499700398049960020604998'002060499900397'049980499804998'02002'04996'003 13801: 99049980039804997002060499600397'0039904998003980499700206'0020604999002060499600397'003990499800398 13901: 049970020604999'00397'04997'003990499700398049960020604998002060499900397'0499804998'0499805000'0499 14001: 90499904999'00399003950039804996002060499700397'0200202002'0499704997'003990499700398049980020604999 14101: 00397'003990010700398049960020604997'0499604997049980499905000'0039900104003980499600206049970020604 14201: 99900206'00399001110039800397'00399001080039800397'00399001100039800397'00399001090039800397'0039900 14301: 11300398'003990011200398'00399049980039800397'04998'049980499905000'04995'00399000910039800397'00399 14401: 04998003980499700397'0039904998003980499900397'185181851800050770000810511700014500000E60000JND1DA'0 1 1 1 1 1 11 1 11 111 111 111 14501: 00011E150200003107'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 111 1 1 1: PHF42040050400004000J00000^J00000^ 1: PHF42J04012^D1700400089TD1063410954TD1062910979TJ01515^1096404742B0470510975^C1096410689J04138/J0151 1 1 1 1 1 1 1 1 1 1 1 1 101: 5^1097404736J04766^D1062910979TJ04048^C1096410824J04253/J01515^1093404736C1093410964J04210/D10629109 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 79TJ04048^J01515^1093904736D1064410929TJ09697^J04156^C1096410814J04404/J01529^10964J01515^1093404736 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: J01529^10934C1093410964J04349/D1062910979TJ04048^J01515^1093904736J01529^10939D1063910929TJ09697^J04 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 283^C1096410829J04705/J01529^10964J01515^1093404736C1093410964J04500/J01529^10934D1062910979TJ04048^ 1 1 1 1 1 1 1 1 1 1 1 1 1 501: J01515^1093904736J01515^1097404736D1062911034TA1700511034J13916^109191103410959C1095910629J04662SC10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 93410959J04546/J13916^109241103410959C1093910959J04546/J04434^J01529^10934J01529^10939J01529^10974J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 4434^J01529^10964D1096410979TJ04048^.04736J01529^10894J01501^PHF45G05135BT10974054932G04797B?0000000 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 034J04992VJ12126^1090410964J12126^1090410974J01515^0514705137C0514710849J04949SJ12126^1090405147W048 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 4405143"J01515^0514704736J12126^1090405147J04844^J12126^1090410719D17006049832J000!0^J05123^J01529^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 0964J01529^10974J01515^0514705137C0514710849J05111SJ01529^05147W0501605143"J01515^0514704736J01529^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 5147J05016^J01529^10719J09328^J05136^.05137^^^^^00000'0570800345057080034805708003500570800353057080 1 1 1 1 1 1 1 1 11 1 1 1 1 1201: 0355057080035805708003600570800363057080036505708003670570800368077520011807752001170685200372068520 1 1 1 1 1 1 1 1 1 1 1301: 0310076780032606491001390727100177072710009907271001000661200113064650011106439003700643900330064390 1 1 1 1 1 1 1 1 1 1 1401: 0332064050011206051001100655500096065550009706555000980549400341054940034205494003400549400343G05706 1 1 1 1 1 1 1 1 1 1 1501: BJ09140^10649D1063410929TJ09697^C1094410629J05694SC1094910634J05694/D1086911014TD1085411019TB0562810 1 1 1 1 1 1 1 1 1 1 1 1601: 933ID1087411014TD1085911019TJ13936^108991063411019J13936^109041064911014J13936^109041065411019J09328 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: ^J00000^G06049BC1103910819J06044/J09140^10649C1099910934J05885/C1100410939J05885/D1086911014TD108541 1 1 1 1 1 1 1 1 1 1 1 1 1801: 1019TB0584110998ID1087411014TD1085911019TJ13936^109041064911014J13936^109041065411019J09140^10664C10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 99910934J06037/C1100410939J06037/D1086911014TD1085411019TB0599310998ID1087411014TD1085911019TJ13936^ 1 1 1 1 1 1 1 1 1 2001: 109041066411014J13936^109041066911019J09328^J00000^G06397BJ01515^1096904736J12126^1090410969J01515^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2101: 096904736C1096910684J06399/J12126^1090410969?1065911009J06214VJ01515^1096904736J12126^1090410969S170 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 0511009J06155^J09140^10669D1064410929TJ09697^C1094410629J06385SJ09406^10774J09290^J01529^10729J01529 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: ^10879J01529^10954J01529^10719J13936^109041066910879J13936^109041067410954A1700510954J09328^J00000^. 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 06399G06436BB06431064380J05494^J06437^0G06463BD17005064381J06464^G06489BD17007064381J06490^G06553BJ0 1 1 1 1 11 1 1 1 1 1 1 1 2501: 9140^10649J01529^10809J09290^J01529^10809J09328^J00000^G06610BJ09140^10649D1064410929TJ10158^10774J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 9328^J00000^G06850BJ09140^10649D1064410929TJ09697^C1094410629J06838SJ09406^10694J01529^10719J09406^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 0774J09290^J01529^10729J01529^10879J01529^10954J01529^10719J09406^10699J01529^10719J13936^1090410649 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 10879J13936^109041065410954A1700510954J09328^J00000^G07269BD1064911009TJ09140^11009J13916^1090410639 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 11039C1093410629J07010SC1093410864J07010SJ12126^1090910934J12126^1091410939J12126^1089910839A1700811 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 009J06871^J13916^109041063911009J09406^11009J09140^10649J09290^J01529^10719D1095410984TA1700510954D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 095410989TA1700510954D1095410994TA1700510954D1093410999TD1093911004TJ09406^10734J01529^10879J01529^1 1 1 1 1 1 1 1 1 1 1 1 3201: 0984J01529^10729J01529^10879J01529^10989J01529^10719J11283^10904J00000^G07676BJ09140^10649D106391092 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 9TJ09697^C1094410629J07521SJ09406^10774J09290^J01529^10729J01529^10879J01529^10954J01529^10709J01529 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: ^10714J01529^10719J13936^109041064910879J13936^109041065410954A1700510954J01529^10809J01529^10934J01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 529^10939J01529^10809J13916^109041066411009C1100910864J07645/J13916^109041063911009J09406^11009J0914 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 0^10649J09290^J01529^10719J11283^10904J07671^D1066410624TJ10382^J09328^J00000^G07750BJ09406^10744J01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 529^10879J01529^10994J01529^10719J11283^10904J00000^G09138BJ09406^10724J01529^10879J01529^10984J0152 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 9^10719D1064911019TD1063410949TA1700510949J13916^108991094911009C1100910629J08081SC1100910839J07937S 1 1 1 1 1 1 1 1 1 1 1 1 3901: C1100910634J07937SD1074911014TJ08002^J13916^109091094910934B0799010933ID1075911014TJ08002^D107541101 1 1 1 1 1 1 1 1 1 1 1 1 4001: 4TJ13916^109141094910939J13916^109091094910934J09519^1101411019A1700911019J07831^J09406^10734J01529^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 10879J01529^10989J01529^10729J01529^10879J01529^10994J01529^10719J13916^109041063911009J09406^11009D 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 1099910934TD1100410939TJ09290^J01529^10719J13560^108991063411009J12126^1089911009J13560^109091063411 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 009J12126^1090911009J13560^109141063411009J12126^1091411009D1062910949TD1064911019TA1700510949J13916 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: ^108991094910959C1095910629J08909SC1095910634J08561/J13916^109091094910934B0850510933ID1076911014TJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 8517^D1076411014TJ13916^109091094910934J13916^109141094910939C1095910854J08615/D1076411014TD10869109 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: 34TD1095910939TC1095910859J08669/D1076911014TD1087410934TD1095910939TC1095910634J08730SC1095910854J0 1 1 1 1 1 1 1 1 1 1 4701: 8730SC1095910859J08730SJ08747^J09519^1101411019C1095910644J08891/J13916^109091094911024J13916^109141 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 094911029J12126^1091911024J12126^1092411029J01529^10809J01529^11024J01529^11029J01529^10809A17009110 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 19J08383^J09406^10794J13916^109041063911009C1100910799J09031/S1700911019J13560^109091063911009C11009 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 10629J09031/D1062911019TJ09042^S1701011019J01529^10804J01529^11019J01529^10719J01529^10809D109991093 1 1 1 1 1 1 1 1 1 1 1 1 1 5101: 4TD1100410939TJ09290^J01529^10809J00000^G00029BD0003409284JD000'400034/D000!009289TJ13916^1090409289 1 1 1 1 1 1 1 1 1 1 1 1 5201: 10934C1093410629J09256SA1700509289J13916^109040928910939D0928400034/J000'5^^^^^^^^^^^^^^^^G09326BJ01 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 529^10934J01529^10939J00000^G09399BJ13560^109041063409405C0940510629J09394SJ01529^09405J09335^J00000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: ^^^^^^G00029BD0003409513JD000'400034/D000!009518TJ01529^10689J01529^09518J01529^10704D0951300034/J00 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 0'5^^^^^^^^^^^^^^^^G00029BD0003909686JD000'400034/D000'900039/D000!009691TD000?009696TJ09406^09691J0 1 1 1 1 1 1 1 1 1 1 1 5601: 1529^10804J01529^09696J01529^10729J09290^J01529^10719D0968600039/J000/0^^^^^^^^^^^^^^^^^^^^^^^^^^G09 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 888BD1062910949TD1062910944TA1700510949J13916^109091094909894C0989410629J09883S,10934C0989410934)109 1 1 1 1 1 1 1 1 1 1 1 1 5801: 34J09728/J13916^109141094909894C0989410939J09728/J13936^108991094910929D1063410944TJ00000^^^^^^G1015 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5901: 1BD1062910949TD1062910944TA1700510949J13916^109091094910157C1015710629J10146S,10934C1015710934)10934 1 1 1 1 1 1 1 1 1 1 1 1 6001: J09926/J13916^109141094910157C1015710939J09926/J13916^108991094910157C1015710639J10134SC1015710644J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: 0134SJ13936^108991094910634J10146^D1063410944TJ00000^^^^^^G00029BD0003410376JD000'400034/D000!010381 1 1 1 1 1 1 1 1 1 1 1 1 6201: TJ09697^C1094410629J10348SJ09406^10381J09290^J01529^10729J01529^10879J01529^10954J01529^10719J13936^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 109041064910879J13936^109041065410954A1700510954D1037600034/J000'5^^^^^^^^^^^^^^^^G10618BJ09140^1062 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 4C1093410629J10613SJ09895^C1094410629J10595SJ09406^10774J09290^J01529^10729J01529^10879J01529^10954J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: 01529^10719J13936^109041062410879A1700510624J13936^109041062410954A1700510954A1701110624J10389^A1700 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 810624J10389^J00000^^^^^^000000000100002000030000400005000060000700008000090001000113003990010800110 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: 0039800344002900039700214002060039500107003260011600128001290011900120001230012400177001000012100118 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 00375001140010100310003040038000244002800011500397007010200104001^^^IR^^^FN^^^GL^^^^*&6^^^^EOP^00000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 0000000000000000000000000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^18000G00029BG11241BD000'411191/C1125610629J11181/J11096ZA170 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 7101: 0511251D1125111256TJ11224ZNJ11181^J13031^1125111246C1124610629J11089SD1124100029/D1125600000TD112571 1 1 11 1 1 1 1 1 1 1 1 7201: 1252,D10629112773J000'5^)11127J11134^1234512345A0006A0001A0002A0003A0004A000500000'G00029BD000391157 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 7301: 1LD000'400034LD000!011551TD10629000!0TW1136911547&D1157100039TJ000'5^D1127111276TDDDD1155111256TJ130 1 1 1 1 1 1 1 1111 1 7401: 31^1155111556C1155610629J11350SS13372D1155600039T?000?513367A13367A13367A000?513367S1336700089S17005 1 1 1 1 1 1 1 1 1 1 1 1 7501: 00088D0003900034/S1336700039D000!6999I6,J11350^1234512345123456789012345G00029BD0004411849LD000'4000 1 1 1 1 1 1 1 1 1 1 7601: 34LD000'900039LD000/400044LD000!011814LS1701200034J13378^1181D1181ID000!011824JC1181911824J11779UJ13 1 1 1 1 1 1 1 1 1 1 1 7701: 916^1181D1182D1182ID11829000?0TA17013000!0C1182910629J11650SD1184900044TJ000/5^D0004411808/D11849000 1 1 1 1 1 1 1 1 1 1 1 7801: 44TJ11809^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0004411978LD000'400034LD000'900039LD000/40 1 1 1 1 1 1 1 1 1 1 1 7901: 0044LS1701200044D000!000'05XD000?000'00TD1197800044TJ000/5^^^^^^^^^^^^^^^^^^^^^G00029BD0006413011LD0 1 1 1 1 1 1 1 1 1 8001: 00'900064TD000/400054TD00!0013016TD000'400034TJ12435^G00029BD0006413011LD1701813016TD000'900054TD000 1 1 1 1 1 1 1 1 1 8101: '400034TS1701212976J12435^G00029BD0003412434LD000'412180/D000'912361/J13031^STRNG12419C1241910629J12 1 1 1 1 1 1 1 1 1 1 1 8201: 315/J11045^12424D00?'000?/03D1062900?'9TD12424S1700913377A1700500088D0008912419TS1701912419D12180123 1 1 1 1 1 1 1 1 1 1 8301: 13/D1242400000TD1241900034T,999R6A17005000!5D00?'000?'5TD00000000!0TA1700900089)999R6A1700913377D124 1 1 1 1 1 1 1 1 1 1 8401: 3400034TJ000/0^12345123451234567890D000!012956XJ13031^1295F1296AD1296100039TC0003917018J12862SD000?5 1 1 1 1 1 1 1 1 1 1 1 1 8501: 12966LC1301617024J12558S?1301612971S1296612971V1257012971KD1296613016X,000?0@1701213018D1296613023X@ 1 1 1 1 1 1 1 1 1 1 8601: 1702513025?1302500044A0003900044?0004400049A1301800049S1701200049,00''0S1702600044D00'0000?'0#?00089 1 1 1 1 1 1 1 1 1 8701: 00059A1301800059D00'!000'?4TD00''100'?5#S1301800059S1302500059A1702800059A1701312966D1296600'?0T)00' 1 1 1 1 1 1 1 1 1 8801: '0D1702900'?1#D000?600'00"A1701200089D1301100064TS13372J000/5^D00'!000?'4TJ11045^1295FD12956000!0TD0 1 1 1 1 1 1 1 1 1 1 1 8901: 00!000?'9TD1703400?/4TA1703600089D1702900?'0#J12837^1295F1296A1296F1297A^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 9001: ^^^^^^^^^^^^^^^^^^^^^^^^^^1303?G00029BD0004413362LD1062900044TD000'9DW13124999R6&D1062900044SD000440 1 1 1 1 1 1 1 11 1 1 9101: 00?0TD1336200044TJ000/0^C13372000!0J13161/D1337700044TJ13081^D000!013372TA0008900044S1701900044C00'0 1 1 1 1 1 1 1 1 1 1 9201: 013372J13244/D0004413377/D1062913377SJ13081^?00'0513367A13367A13367A00'0513367S1336700044S1700500043 1 1 1 1 1 1 1 1 1 1 9301: C1104400044J13195US13372D1062900044TJ13213^1234567890123456789012345^^^^^^^^^^G00029BD0004413549LD00 1 1 1 1 1 1 1 1 1 1 1 1 9401: 0'400034LD000'900039LD000!013554TJ13031^1355D1355IC1355910629J13499SD1355900044TD00'05000?0LJ13511^D 1 1 1 1 1 1 1 1 1 1 1 9501: 10629000?0TD1354900044TJ000/0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029B)13686D0003413910LD000/413787/D00 1 1 1 1 1 1 1 1 1 1 9601: 0'913637/D000'413632/J14011^123451234513915D1391500029TC1062913915J13769SD000'013915LNJ13769^D133770 1 1 1 1 1 1 1 1 1 11 1 9701: 0034/,000!1S17005000!5)000!1J13814VS1700900089S1700913377D000'1999Z6,NJ13974^D1391500000T)13770D1391 1 1 1 1 1 1 1 1 1 1 1 9801: 000034TJ000/5^D000!6999R1,S1703800089S13372D1363200034/D1127111276TDDDD000!011256TD10629000!0TJ13777 1 1 1 1 1 1 1111 1 1 9901: ^123456789012345G00029B,13686J13573^G00029BD000/413997/,13686,13770J13573^C1062900029J13789SD0000000 1 1 1 1 1 1 1 1 1 1 1 1 1 10001: 0'0TJ13789^G00029BG14288BD000'414102/D000/414234/D000'900029/?000'014278J14255VD10629142782J13031^12 1 1 1 1 1 1 1 1 1 1 1 10101: 34514283?1428300029J14212VD000'513367LC1336714278J14255US1427813367A1700513367S1336700029A13367A1336 1 1 1 1 1 1 1 1 1 1 1 10201: 7S1336700029D1062900029SD0002900000TD1428800029TJ000/5^D1062900029TJ14224^123451234512345^0010300101 1 1 1 1 1 1 1 1 1 1 11 1 10301: 0037800380003740037700304^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 13001: 180001^03542EA0000060000JND1D'000011E15^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1111111111 11 111 11 1 1 14001: '^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PHF45040050400004000J00000^J00000^ 1: PHF45J04012^D0695200079TD0695700034TJ01515^0636604758C0636206958J04107/J01529^06366J01515^0636604758 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: J04165^C0636606371J04210ST06366068102G00074BJ04165UJ04800^J04036^J01529^06366NJ04036^J01529^06361,04 1 1 1 1 1 1 1 1 1 1 11 1 1 1 201: 178J04036^J01515^0636104758T06361067242J04259S)04178J04165^D06366000!0TDG00034BJ01515^0636604758D063 1 1 1 1 1 1 1 1 1 11 1 1 1 1 301: 66000!0TG00034BC0636206958J04376/J01515^0636604758D06366000!0TG00034BJ04279^C0636606381J04279/T06361 1 1 1 1 1 1 1 1 1 1 1 1 401: 067642G00039BD000?000044LJ00'00^J01515^0636604758C0636206958J04510/D06366000!0TG00034BJ01515^0636604 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 758J04708^C0636606371J04734SC0636606448J04668/D06366000!0TG00034BJ01515^0636604758C0636206958J04643/ 1 1 1 1 1 1 1 1 1 1 1 1 601: D06366000!0TG00034BJ01515^0636604758J04546^C0636606448J04708SJ04546^T06366068052G00074BJ04708UJ04800 1 1 1 1 1 1 1 1 1 1 1 1 1 701: ^J04432^D06366000!0TG00034BJ04432^J01515^0636104758J04259^C0695700034D0695906397TJ05331/J01501^PHF50 1 1 1 1 1 1 1 1 1 1 1 1 1 801: G04925BJ01529^06366J01515^0636604758C0636206958J04890/J01529^06366J01515^0636604758J04807^C00!!50636 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 6J04807/J01529^06366J04926^A0696100034D06381000!5T,000!6000K1D0007900064TS0696200064D00!0000069TD00! 1 1 1 1 1 1 1 1 1 1 1 1001: 0000059LJ07000^^418J05320SC00'C0000L0J05074/D0005906403LA0696306403J05133^C00'A5000L0J05176SS0696500 1 1 1 1 1 1 1 1 1 1 1 1101: 064C0695200064J04996UD0697006403TD000L000!'0TD06947000M5TD06947D06947J05320^D0005906403TC00'B006376J 1 1 1 1 1 1 1 1 1 1 1 1201: 05291SD00'D006396LT06396068612J05291UD00'C006458LD000L000'C0TD0645800'A5TA0696306403J05133^S06963064 1 1 1 1 1 1 1 1 1 1301: 03C0640300069J05133T)000!6000K1D06971000!0TS0696200079J05383^S0696500079)99ZR199R91C0695200079J05979 1 1 1 1 1 1 1 1 1 1 1401: TD00!?000064LC00!2006376?0697300054J05453/S0696100054A0006400054,99ZR199R91C00!0000'!0D00'J006396LJ0 1 1 1 1 1 1 1 1 1 1 1501: 5755ST06396068612J05596UC00!1506413J05560SC00!1506408J05596/D00'!006458LD00!1500'!0LD0645800!15TC00' 1 1 1 1 1 1 1 1 1 1 1601: !006408J05632SC00'!006413J05361/T99ZR599RI52G00059BJ05361UD00'?000059LC00!0006408J05724SC00!0006413J 1 1 1 1 1 1 1 1 1 1 1 1701: 05724SC0640300059J05361UD00!0000'?0TD00!0000'!0TJ05817^T06396068722J05817UD00'!006458LD00!1500'!0LD0 1 1 1 1 1 1 1 1 1 1 1801: 645800!15TJ05361^C00'J006428J05854/D0697800'J0TJ05884^C00'J006438J05361/D0698300'J0TD0693200'!0TJ053 1 1 1 1 1 1 1 1 1 1 1901: 61^?0696100064A0003400064D0006400!?4XD99R9506386LD0638600!?9TA0696500079J04432^D0695700034TC000!0069 1 1 1 1 1 1 1 1 1 2001: 71J06087SC000!006988J06069SC000!006993J06142SD000!006366LJ01529^06366S0696300034J05991^D0695700034TD 1 1 1 1 1 1 1 1 1 1 1 1 2101: 06971000!0TD0695200079TB0478806397TJ04036^C999R506418J06069/D999R506917LS0696300034D000!006366LJ0152 1 1 1 1 1 1 1 1 1 2201: 9^06366C0636206958J06267/S0696300034D000!006366LJ01529^06366J06172^C0636606381J06172/D0699800039TD00 1 1 1 1 1 1 1 1 1 1 1 1 2301: 0?006366LJ01529^06366C0636606381S0696300039J06297/J06069^^^^^^^^^^^003990039800397^^^^^^^^^^^^^^^NN^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 111 2401: ^^^^^^^IR^^^FN^^^GL0018400345^EOP^003500035500130^^^^^^^^^^05331^05903003470590300346059030035205903 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 2501: 0035105903003570590300356059030036205903003610590300366059030036805903003670590300364059030036305903 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 0035905903003580590300354059030035305903003440590300349059030034805903003450590300350059030018405903 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2701: 00355059030036005903003650443200098044320009704432000960492700340^0030400114001010010300374003760037 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 2801: 80038000130^00344003450034800347003460035400358003570035600355^0035800348003970029200349001300039800 1 1 11 1 1 1 1 1 1 1 1 1 11 1 2901: 38700399^^^^^^^^^^^^^&&^^^**^^^**^^^**^^^**^^^**1800818000^T1EFE1?20000'3?0022800264^^^**^^^&&06917^ 1 1 1 1 1 111 111 1 11 1 1 1 1 1 3001: C000L006418J05320SC000J506418J05320SJ05026^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 14001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1: PHF50040050400004000J00000^J00000^ 1: PHF50J04012^D1004000089TJ07275^0653804401J09738^065380658106591C0659106513J04100SD1004106574TJ06971^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: J09738^065380658606478T06478103062G00034BJ04167UD1004106575TJ06676^T06478103172G00034BJ04212UD100410 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 6576TJ06676^T06478103882G00034BJ06676ST06478104192G00034BJ05486SD1004206575TJ07207^T06478115622G0003 1 1 1 1 1 1 1 1 1 1 1 301: 4BJ04316UJ04425^C0657410041J04370/J07997^06543J08437^06543D1004206574TJ07997^06538J08437^06538J04024 1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: ^J01529^06612J01501^PHF80C0657410042J06909/J09382^065380658106478C0647806518J04443/D1004706498TD0660 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: 706483TD1005200049TA1005306483J09738^065380648306478NJ04597^C0647806617,04553J04633/,04797J04682^C06 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 47410054J04633/A1005306483J04519^C0647806523J04754SC0647806528J04682/)04828J04754^NJ04519^,04683J097 1 1 1 1 1 1 1 1 1 1 1 1 701: 58^065380648306503C0647410054J04519/A1005306483J04519^D0649800''0TD0650399ZZ5XG00049B)0468304553NJ04 1 1 1 1 1 1 1 1 1 1 1 1 801: 860^S1005306498D0660706503TNJ04519^,04828D1005500''0XJ04908^)04797D0649806508TS1006006508D0650800''0 1 1 11 1 1 1 1 1 1 1 901: TJ04766^D000!000034LC000!010055J05435SD000!400039LA1006100034C000?010055J04920SC000?406528J05010/)05 1 1 1 1 1 1 1 1 1 1 1 1001: 069J05028^C000?410066J05121TD000?406478LA1006100039J09073^0665906478NJ04961^,05069NJ06134^J07997^066 1 1 1 1 1 1 1 1 11 1 1 1 1 1101: 59J08437^06659J04961^D000?406483LA1006100039T06483102952G00044BJ05321UC00'0006607J05321SD00'0000044L 1 1 1 1 1 1 1 1 1 1 1 1201: C00'0006528J04961SC00'0006523J04961S)05283D00'0006478LJ09073^0665906478A1006100044NJ05200^C064741005 1 1 1 1 1 1 1 1 1 1 1 1 1301: 4J05200/,05283J05242^J08437^06659C000?010055J05387SC000?406528A1006100039J04961SJ05333^C000!010055J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 5435SD000!400039LA1006100034J05333^D1006800''07J08437^06538NJ04024^,05460)05083J04024^D000!006004/B0 1 1 1 1 1 1 11 1 1 1 1 1 1501: 6909065741J09382^065380658106478C0647806518J05510/J09738^065380658106478J09738^065380658606483D06483 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: 06597LC0647806617J05643/D1007306004/J05759^T06597105282G00034BJ05688UD1004106575TJ06665^T06597105402 1 1 1 1 1 1 1 1 1 1 1701: G00034BJ05733UD1004106576TJ06665^T06597106412G00034BJ06665SJ07207^S06575T06597105632G00034BJ04483ST0 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 6597105162J05829/D1007806004/)06042J09382^065380658106478T06478061332J05993SJ09073^0665906478W058350 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 6474"J09382^065380658106483J09073^0665906483C0647806617J05835/J01543^06478J01543^06483J05835^J07997^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 06004J07997^06659J01543^06528J08437^06659NJ06067^,06042D1008306004/C0647806523J05835ST06597104682J04 1 1 1 1 1 1 1 11 1 1 1 1 1 1 2101: 024/J07997^06573J04024^^0020600397J08726^0665906478D0647800054LC00'!510088J06273/C99ZQ506664J06273/C 1 1 1 11 1 1 1 1 1 1 1 1 1 1 2201: 99ZP506622J06236/D1004106644TJ06287^C99ZP506627J06273/D1008906644TJ06287^J07207^J05090^C0662810042D9 1 1 1 1 1 1 1 1 1 1 1 2301: 9ZR006654LJ06350/D0665906643TDDD0660706659TJ04961^C0663806654J06460/C0662806644J06405/J08437^06643J0 1 1 111 1 1 1 1 1 1 1 1 2401: 6317^B06460066281J08437^06643J08437^06659D1004206628TJ04961^J07207^J06317^^^^^^^^^^^^^^^^^^^^^^^^^^0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 00008888900399003980020600397001770000000000J0001J0002J0003J0005J0006J00070000000100002^^^^^^^^^^^18 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1111 1 1 1 1 2601: 72400000^EOP^^^^GL0038500386^^^^^^^^^^^00000^^^^^^^^^^^00000^^^FN)0670706809J06829^,05083)05460C0664 1 1 1 1 1 11 1 11 1 1 1 1 1 1 1 2701: 306607NJ04425S,06707J06816SD0660706483TJ09382^066430658106478J09073^0648306478C0664306607J06739/D064 11 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 8306643TNJ04425^,06809J04483^G06907BC0657510042J06878/J07997^06568D1004106575TB06902065760S06576S065 11 1 1 1 1 1 1 1 1 1 1 1 2901: 75J06908^G06969BJ07997^06543J08437^06543J07997^06563D1004206574TJ06970^G07205BD0658106478TJ09738^065 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3001: 380647806483C0647910054J07048/A1005306478J07103^C0648306513J07121SC0648306528J07103/D1004206574TJ043 1 1 1 1 1 1 1 1 1 1 1 1 3101: 70^A1005306478J06990^S1005306478S1005306478J09382^065380658106483J09073^0654306483C0647806607J07132T 1 1 1 1 1 1 1 1 1 1 1 1 1 3201: J07206^G07273BC0664306607J07256SJ07997^06643J08437^06643D1004206628TJ07274^G00029BD0003407947LD000'4 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: 00034LD000'907845/D000!007962LJ07601^J01515^0795B0782HC0795207986J07438/J01543^0795BJ01515^0795B0784 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: GC0795207986J07372/J01543^0797FJ07337^T07952079372J07723UD0795207957TJ01529^07952J01515^0795B07847J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 7620^NJ07544^C0794810054J07557/,07506J07469^)07506J07469^C0795207957J07469/J07669^J01529^07952J07337 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: ^D10090073303J07481^C0795207996J07469/D10090074983D0799607957TJ07469^J01529^07991D10090075753J07337^ 1 1 1 1 1 1 1 1 1 1 1 3701: )07741J01515^0795207847J09073^0796207952NJ07700^C0794810054J07779/,07741J07706^C0795207976J07706/D07 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 962000!0TD0794700034TJ000/0^D0794700034TJ07846^M%T007970WR07847"J07828^^^^^^^^^^^^^^^^^^^^^^^^^^^^00 1 1 1 1 1 1 1 11 11 3901: 30400374003760010300114001010037800380^^^^^^^^^^^^^^^^^^^^^^^^^E^MACEXP"00397^^^^^001300020300090G00 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 4001: 029BD0003908191LD000'408039/J08726^^^^^^08196?0819600039J08158V!000?500034A00034A00034S000?500034A00 1 1 1 1 1 1 1 1 1 1 1 1 4101: 03400039D000?008196LJ01543^08196A0819800039AJ08158VJ08108^D0819100039TJ000'5^12345678901234512345EEG 1 1 1 1 11 1 1 1 1 1 111 4201: 00029BG08395BD000'408345/C0841006607J08335/J08250ZA1004108405D0840508410TJ08378ZNJ08335^J08726^08405 1 1 1 1 1 1 1 1 11 1 1 4301: 08400C0840006607J08243SD0839500029/D0841000000TD0841108406,D06607084313J000'5^)08281J08288^123451234 1 1 1 1 1 1 1 1 1 1 1 1 4401: 5A0006A0001A0002A0003A0004A000500000'G00029BD0003908725LD000'400034LD000!008705TD06607000!0TW0852308 1 1 1 1 1 1 1 11 1 1 1 1 1 4501: 701&D0872500039TJ000'5^D0842508430TDDDD0870508410TJ08726^0870508710C0871006607J08504SS09067D08710000 1 1 1 1111 1 1 1 1 1 1 1 4601: 39T?000?509062A09062A09062A000?509062S0906200089S1004100088D0003900034/S0906200039D000!6999I6,J08504 1 1 1 1 1 1 1 1 1 1 4701: ^1234512345123456789012345G00029BD0004409057LD0660700044TD000'9DW08819999R6&D0660700044SD00044000?0T 1 1 1 1 1 1 1 11 1 1 4801: D0905700044TJ000/0^C09067000!0J08856/D0907200044TJ08776^D000!009067TA0008900044S1009100044C00'000906 1 1 1 1 1 1 1 1 1 1 4901: 7J08939/D0004409072/D0660709072SJ08776^?00'0509062A09062A09062A00'0509062S0906200044S1004100043C0660 1 1 1 1 1 1 1 1 1 1 1 5001: 200044J08890US09067D0660700044TJ08908^1234567890123456789012345^^^^^^^^^^G00029BD0003409381LD000'409 1 1 1 1 1 1 1 1 1 1 1 5101: 127/D000'909308/J08726^STRNG09366C0936606607J09262/J08199^09371D00?'000?/03D0660700?'9TD09371S100920 1 1 1 1 1 1 1 1 1 1 1 1 5201: 9072A1004100088D0008909366TS1009109366D0912709260/D0937100000TD0936600034T,999R6A10041000!5D00?'000? 1 1 1 1 1 1 1 1 1 5301: '5TD00000000!0TA1009200089)999R6A1009209072D0938100034TJ000/0^12345123451234567890G00029B)09508D0003 1 1 1 1 1 1 1 1 1 1 1 1 5401: 409732LD000/409609/D000'909459/D000'409454/J09758^123451234509737D0973700029TC0660709737J09591SD000' 1 1 1 1 1 1 1 1 1 1 1 5501: 009737LNJ09591^D0907200034/,000!1S10041000!5)000!1J09636VS1009200089S1009209072D000'1999Z6,NJ09599^D 11 1 1 1 1 1 1 1 1 1 1 5601: 0973700000T)09592D0973200034TJ000/5^D000!6999R1,S1009400089S09067D0945400034/D0842508430TDDDD000!008 1 1 1 1 1 1 1 1 1111 5701: 410TD06607000!0TJ09599^123456789012345G00029B,09508J09395^G00029BG10035BD000'409849/D000/409981/D000 1 1 1 1 1 1 1 1 1 1 1 1 5801: '900029/?000'010025J10002VD06607100252J08726^1234510030?1003000029J09959VD000'509062LC0906210025J100 1 1 1 1 1 1 1 1 1 1 1 5901: 02US1002509062A1004109062S0906200029A09062A09062S0906200029D0660700029SD0002900000TD1003500029TJ000/ 1 1 1 1 1 1 1 1 1 1 6001: 5^D0660700029TJ09971^12345123451234518934109999910295A^'11110E88800^^065580655306548000062N6515^^^^^ 1 1 1 1 1 1 111 1 1111 11 1 1 1 1 1 11111 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^126 11 6301: 2200342^1259600341^1300400367130450036812669003431278000353128530035812926003631271700348^0655800177 11 11 1 1 1 1 1 1 11 6401: 06553001000655300099^MIN1^^MIN0^^XMIN1^XMIN0^XMAX1^XMAX0^MAX1^^MAX0^^XINT^^INT^^^MOD^^^XMOD^^DIM^^^X 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 6501: DIM^^SIGN^^XSIGN^^13097FLOAT^^13186XFIX^^^13165ABS^^^13149XABS^^^13123SIN^^^13123COS^^^13123LOG^^^13 1 1 11 11 11 1 11 1 1 1 6601: 123EXP^^^13123SQRT^^13123ATAN^^13123^^^^^^^121500037212569003701295700366129680036512957003641288400 1 1 1 11 1 1 1 1 1 6701: 3621288400361128950036012884003591281100357128110035612822003551281100354127480035212748003511275900 1 1 1 1 1 1 1 1 1 1 6801: 3501274800349126900034712690003461269600345126900034412653003401258500339125530033712537003361251600 1 1 1 1 1 1 1 1 1 1 6901: 3341249500332124840033112468003301246200329124460032812430003271242400326124080032512392003241237600 1 1 1 1 1 1 1 1 1 1 7001: 3231236000322123440032112323003201230700319122910031812270003171223900316122030031512172003141216100 1 1 1 1 1 1 1 1 1 1 7101: 3121215000310121340030812103003021209700300120860028812075002861206400284120530028212042002801203600 1 1 1 1 1 1 1 1 1 1 7201: 2141203000203120090018511993001841193000140119720014211951001411191400139118780013811801001371175500 1 1 1 1 1 1 1 1 1 1 7301: 1361184700135117390012911728001281172200124117220012311716001221171000121116990012011693001191168700 1 1 1 1 1 1 1 1 1 1 7401: 1181168700117116760011611670001151165400113116430011211637001111163100110116250010911619001081161300 1 1 1 1 1 1 1 1 1 1 7501: 10711587001041158100098115750009711569000961156300091130860039517536'17623'17824'18100'1682116852149 1 1 1 1 1 1 7601: 931689314993'16994'17055'17091'17117'17158'1334213368'133421336813285'17230'1727117312'17383'17419'1 7701: 741915767'17500'17536'17582'1568515731'156851573115767'157881582413254158701331115573157881589616014 7801: '157881582413399158701331115573157881589616014'157881593215978134971589616014'1578815932159781349715 7901: 7671589616014'149931557315609'16537184511334213368'16537184821334213368'16537185131334213368'1425813 8001: 49713311'14294134971331114330'14382'14351'1501914987'1501915095'1501915111'1501915127'1501915143'145 8101: 07'145541459014621146521468814724'155571554113342'1557315609'1439313590'1515915210152461527715323153 8201: 64'14750134971576714786148121484314875'147501349714786148121485914875'16537167901334213285'149011328 8301: 514155'165371672813342'16445164961441915395'160611328514155'165371657313342'162501334213285'16537166 8401: 0413342'162861334213285'14393'163221334213285'155571552513342'16147'165371669713342'1618816224'16537 8501: 167591334213285'16358164041441914445'165371666613342'155571550913342'165371663513342'1321213233'1545 8601: 713647132541334213368'133991869813311171941548313590'145541343013368'15457136471548313590'16045'1346 8701: 1134971352813430'135641359013621136471367813704'1373513233'13461134971375113430'13564135901452813647 8801: 1367813704'1378713233'137981349713834134301387013704'135641359013906136471367813704'1393213233'13943 8901: 1349713979134301401514051'135641359014082136471367813704'1410813233'14119133421336813285133111415514 9001: 051'1356413590141811328513311171941367813704'1356413590142221328513311171941367813704'1439315426'185 9101: 4413285133111719413678'1545713647185441719413678'185701343018606'18570134301576718647'15457136471854 9201: 41415514051'0013000224^^^^EQUAL^'00224^^^^^ERROR00397'003990004600398^^^^XFIX^^00397'003990039600398 9301: 9999800397'888880039900387003980004700397'0039900396003989999900397'888890039900387003980004700397'0 9401: 03990004600398^^^^FLOAT^00397'888880039900387003980004400397'00399000450039899999002069999700397'888 9501: 890039900387003980004400397'00399002280039899998002069999700397'0039900385003989999900397'8888900399 9601: 00387003980004300397'0039900381003989999800397'888880039900387003980004300397'0039900386003989999700 9701: 397'888870039900387003980004300397'00130^^^^^MINUS'00399002640039899998002069999700397'^^^^*^MPY^'00 9801: 399000450039899999002060004200397'00399002520039899998002060004100397'003990004000398000410020699997 9901: 00397'0039900384003989999800397'^^^^*^DIV^'00399000450039899999002060004100397'003990023400398999980 10001: 02060003900397'00399000450039800042002069999700397'888870039900387003980004700397'003990038300398999 10101: 9800397'^^^^*^EXP^'003990004600398^^^^EXPONI0024400397'0039900396003989999700397'00399^^^^DCWS^^0039 10201: 8^^^^EXPONF0024400397'003990004600398^^^^EXPONF0023800397'00399000380039899999002069999800397'003990 10301: 00450039899999002069999800397'00399000380039800397'999990039900387003980013000397'0013000397'0039900 10401: 230003989999900397'0039900020003980003700397'0039900242003980003600397'00399003960039800196999990019 10501: 600397'00399000350039800397'0039900382003989999800397'00399000450039899998002069999900397'0039900230 10601: 00398^^^^*&30^^00397'999950039900387003980013000397'00399002280039899996002069999900397'003990023200 10701: 39899997002069999900397'0039900034003989999400397'00399000450039899999002069999500397'00399000330039 10801: 89999700397'003990003200398999980020699995'^^^^-2,B^^00397'002060023000397'0039900230003989999600397 10901: '003990004600398^^^^SENSLT^^^^TEST^^00397003990039600398^^^^DIGITC^^^^TR&^^^9999900397'00397'0039900 11001: 230003989999800397'003990004600398^^^^SENSEL^^^^IGHT^^00397003990039600398^^^^DIGITC^^^^TR^^^^'00344 11101: 0028200397'003440028400397'003440028600397'003440028800397'00399000290039800344999970020699998003440 11201: 029000397'00399000450039899999002060002800397'999980039900033003980028000397'003990022800398^^^^@7@, 11301: ^^99998003440029000397'003990026400398^^^^@1@,AD^^^^DRESS^00397'999970039900230003989999800397'00399 11401: 0024200398^^^^*&1^^^00397'999980039900387003980013000397'0039900385003989999800397'00399003860039899 11501: 99900397'003980002600397'003980002500397'003980002400397'003990004600398'00399003960039800196^^^^000 11601: 00@00397'99999003990002300398^^^^*-7^^^00397003990003000398^^^^*-19,X002820029000397'003990003000398 11701: 99999^^^^&X15,*003440029200397'00399000450039800280002069999800397'00399000450039800397'003990003000 11801: 39899999^^^^-1,X1500397'00399000300039899998^^^^&X15,*^^^^&17^^^00397'0039900396003989999600397'0039 11901: 9002300039899997^^^^&X15^^00397'00399000300039899998^^^^&X15,*^^^^&11^^^00397'0039900045003989999600 12001: 2060028000397'999950039900387003980013000397'000925000300397'003990004600398^^^^SENSWT^^^^EST^^^0039 12101: 7003990039600398^^^^DIGITC^^^^TR&^^^9999900397'0039900029003980034499999002069999800397'003990002900 12201: 39899999^^^^,*&6^^00397'0039900230003980028000397'003990004600398^^^^FACOVF0025000397'00399000460039 12301: 8^^^^FQTOVF0025000397'003990004600398^^^^FDVDCH0024800397'00399000290039899999^^^^,STOPM^^^^SSG&1000 12401: 397'003990002200398^^^^STOPMS002640024000397'0039900029003989999900206^^^^PAUSEM^^^^SSG&1100397'0039 12501: 90002200398^^^^PAUSEM^^^^SSG^^^00397'003990004600398^^^^OPENIN0024000397'003990039600398003440029600 12601: 397'003990039600398003440029000397'003990039600398003440028000397'003990039600398003440029800397'003 12701: 990039600398003440028400397'003990039600398003440029400397'003990039600398003440028200397'0039900396 12801: 00398003440029200397'003990023000398^^^^*&19^^00397'9999900399000450039899996002069999700397'0039900 12901: 228003989999400206999970039700399002320039899995002069999700397003990003400398^^^^*&8^^^00397'003990 13001: 023000398^^^^*&8^^^00397999990039900230003989999800397'00399003960039800196001080019600397'003990004 13101: 6003980002100397'003990004600398^^^^ENTRYT002720025600397'003990004600398^^^^CLOSEI0025600397'003990 13201: 004600398^^^^INTRPR0026600397'00399^^^^END^^^00398^^^^STARTX0027400397'00399000290039899999^^^^&X15, 13301: ^9999800397'003990023000398^^^^*&6^^^0039799998003990039600398^^^^@000000019600397'00399000290039899 13401: 999^^^^-1,X1500397'00399000290039899999^^^^&X15,*^^^^&11^^^0039700399000450039899998002060028000397' 13501: 00399002300039899999^^^^&X15^^00397'^^^^STARTX00274003990023000398^^^^*&1^^^00397'00399^^^^MLNA^^003 13601: 9899999002069999800397'003990004600398^^^^XXXAOP0028200397003990039600398999990039788889003990038700 13701: 398^^^^*-1^^^003970039900396003989999800397003989999500397003989999600397003989999700397888870039900 13801: 38700398^^^^*-1^^^00397'003990004600398^^^^XXXAOP002840039700399003960039899996003978888600399003870 13901: 0398^^^^*-1^^^00397003990039600398999950039700398999990039788889003990038700398^^^^*-1^^^00397003990 14001: 039600398999980039700398999930039700398999940039700398999970039788887003990038700398^^^^*-1^^^00397' 14101: 003990004600398^^^^XXXAOP0028600397003990039600398999950039788885003990038700398^^^^*-1^^^0039700399 14201: 0039600398999930039700398999960039788886003990038700398^^^^*-1^^^00397003990039600398999940039700398 14301: 999990039788889003990038700398^^^^*-1^^^003970039900396003989999800397003989999100397003989999200397 14401: 00398999970039788887003990038700398^^^^*-1^^^00397'003990039600398003490029400397'003990039600398003 14501: 490029600397'003990039600398003490029800397'0039900046003989999900397'003990004500398999980020699997 14601: 00397'00399^^^^MLZS^^00398^^^^*-21,^9999700397'00399^^^^MLZS^^00398^^^^*-12,^99997003490028400397'00 14701: 39900050003989999800397'003990023000398J00030000300399^^^^DCWS^^00398J000200004003990005000398J00010 14801: 00030039900387003980013000397J00050000500399^^^^DCWS^^00398^^^^INTRPR0026600397J00060000800399003960 14901: 039800196001080019600397J000700007'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: PHF80040050400004000J00000^J00000^ 1: PHF80J04012^NJ04536^N,04013NJ04632^,0402104028J01515^1048807798C1048810733J04319/J08071^J09388^J0807 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 1^D1060810697LD1061310707LJ09388^J08071^J09388^J01515^1060807798C1409910608J14180UD1069210687CD10692 1 1 1 1 1 1 1 1 1 1 1 1 201: 10682CD1067710673CJ01529^10608?1068700089D1071300?'0CD1063810623CJ01515^1060807798J01529^10608C10608 1 1 1 1 1 1 1 1 1 1 1 1 301: 10778J04338SJ04265^J01529^10488J04046^D1063810573TD1063800049TD1063810483TJ13530^10843J13530^10823J1 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 3530^10828J13530^10833J13530^10838J01515^1048804806B0448810484^C1048810758J04879SJ04517^J01529^10488 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: J01515^104880795EJ01529^10488J04434^D1063810573TD1063800049TD1063810483TJ13530^10843J13530^10823J135 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 30^10828J13530^10833J13530^10838J01515^1048806578B0475810484^C1048810753J05766SC1048810783J06164SC10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 48810728J06300SC1048810723J06300SC1048810738J06300SJ04787^J01529^10488J01515^104880779HJ01529^10488J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 801: 04632^J01501^PHF80C1062310648J04632/J01529^10488D1063810623TD1064810483TJ04632^J01515^1060H0795EC106 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 0810758J04434SC1060810743J05016SJ04939^J01515^1060H0795EC1060810763J04939SC1060810778J04879SJ12735^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1001: 084C1060HJ04939^J01515^1060H0795EJ08071^J09560^1052D0781GJ08347^1052IC1061810648J05145/J12735^1082C1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: 063HJ12735^1083H1063HJ12735^1083C1062HJ05237^J11560^1083C1052D1054DC1054410628J05237SJ11560^10823105 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 2410578A1057810529D1054410524LJ05237^C1060810763J05297SJ01515^1060H0779HC1060810763J05016SJ04879^J08 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: 071^J09560^1050I0781GJ08347^1051IC1061810648J05666SJ11560^1083C1050I1053DC1053410524J05461/D10529106 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 53LS1051910653J11560^1082C1050I1057HC1065310578J07848/J05237^D1052410603TC1053410628J05522/D10638105 1 1 1 1 1 1 1 1 1 1 1 1 1501: 39TD1050910524LJ05556^J11560^1082C1050I1053ID1053410524LD1052910653LS1051910653S1065310539A105391052 1 1 1 1 1 1 1 1 1 1 1 1601: 9J11534^1083C1060C1052DJ11534^1082C1060C1053IJ08119^J08659^J05237^D1052910653LS1051910653D1065310539 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: TJ12735^1082C1053IJ12735^1083C1052DJ12735^1083H1063HJ08119^J05237^J09848^J01515^1060H07798C106081075 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1801: 3J04818SJ01515^106130779HJ01515^1056D0779HJ09560^1050I0946HC1061810648J06122SJ12406^1083310544C10544 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 10509J06081UJ11560^1083C1050I1054DC1063310544J05959TJ06004^J11560^1082C1050I1057HA1057810564D1054410 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: 509TJ11560^1083H1050I1054DC1054410638J06081SC1054410564J06081UD1054410578LJ05773^D1056410578LJ11534^ 1 1 1 1 1 1 1 1 1 1 1 1 2101: 1083H1050I1057HJ05773^C1062310648J06157SJ12735^1083H1056DJ05773^J09848^J01515^1060H0779HC1060810488J 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2201: 04818SJ01515^1061C07798J09560^1050I0938HC1061810648J06171/C1062310648J06171SJ12735^1083H10638J06171^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2301: J09848^J01529^10488J01515^1060807798C1060810488J06373/J01529^10488J04632^J01515^1061307798B065471060 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2401: 61J09560^1050906547C1061810648J06513/J12735^1083810493C1048810738J06535/J12735^1083310638J12735^1082 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2501: 310638J06535^J11534^108381050910493D14100106063J01529^10608J01529^10613J06319^J09848^D1063810509TD10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2601: 50410608CD1050410613C?1071210702A1070710702D1063810263/NJ06681^J01529^10748,06656A1055910509D1063810 1 1 1 1 1 1 1 1 1 1 2701: 544/D1063810569/D1063810499/J12406^1083H1057HC1057810509J07730UJ11560^1083H1050I1054DC1054410493J066 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: 81SJ12406^1083C1057HC1057810509J06845UJ06859^J09025^J06681^J11560^1083C1050I1052DJ12406^1082C1057HC1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2901: 057810509J06923UJ07207^J08814^J01529^1060HJ01529^1061C?1069710472B0704810608IB0704810608JB0704810608 1 1 1 1 1 1 1 1 1 1 1 3001: KB0704810608LB0704810608MB0704810608N?1070210472C1063810544J07078/D1055910544/@1054410478A1047810263 1 1 1 1 1 1 1 1 1 3101: D14101102632J11046^1018310268D1046810278TJ09025^D1046310278TJ11046^1039810423A1055910188D1018810418/ 1 1 1 1 1 1 1 1 1 1 1 1 3201: J06681^J11560^1082C1050I1056ID1056910499/J08875^1049IC1052410633J07687SC1052410628J07687SJ13530^1082 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3301: HJ08814^J12735^1082H1060HJ12735^1082H1061CJ12735^1082H1079HJ12735^1082H10363J12735^1082H1079CD105091 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3401: 0514TD1052410509TJ11560^108331052410578C1057810633J07481/J01529^1060HJ01529^1061CJ08814^J12735^1082H 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 1060HJ12735^1082H1061CD14101104992C1063810569J07615SV07663105692J12735^1082H1081CJ12735^1082810288J1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3601: 2735^1082H1049IJ12735^1082H1078HJ10844^1082HD1051410509TJ06681^J12735^1082810818J07581^S1056910544C1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3701: 052410633J06923SJ09025^J06681^NJ07756^J01529^10778,07731C1048310648J07786SJ01501^PHF90J01501^PHF80J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 7979^80001J06578^J07979^80002D0784804921PJ04879^J07979^80003D0787904921PJ04879^J07979^80004J10160^J0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3901: 7979^80005J09912^J07979^80006J09912^J07979^80007J08525^J07979^80008J01501^PHF80G00029BD0002908050LD0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 00'408065CJ11046^0805508070D0805000029TJ000'5^1234500130000921234500397G00079BJ01515^1060807798J0151 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: 5^1061307798J00!?0^G00084BC1053910638J08335SD10539104942B0825510494-J11560^1083H1052D0834FC083461063 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 8J08226SC0834610539J08335TJ11534^1083H1052D1053IJ08335^J11560^1082C1052D0834FC0834610638J08313SC0834 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 610539J08335TJ11534^1082C1052D1053IJ00?00^0000?G00029BD0003908611LD000'400039TS00034?10648086J2A1064 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 800034J01515^1060807798C1060810768J08555/S1064800034J01515^1060807798C1060810773J08406S,10606T106080 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 86582G08530B)10606J07936/D08536086J23A1064800034J08452^?086J1000?0D14101000?02D0861100039TJ000'5^123 1 1 1 1 1 1 1 1 1 1 1 4601: 451234512345123450*9298829672946292529042883286228412820280G00079BD1053908813TJ12070^1083C1060C1050I 1 111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4701: C1050910638J00!?0SJ11534^1083C1050I1052DJ11560^1082C1050I10539A0881310539J11534^1082C1050I10539J0811 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4801: 9^J08678^0000?G00029B?1063800039D1050900038JD142E410613LD142D9106083J000'0^G00079BD00!?400034LJ08814 1 1 1 1 1 1 1 1 1 1 1 4901: ^?1069710472B0899510608IB0899510608JB0899510608KB0899510608LB0899510608MB0899510608N?1070210472@000! 1 1 1 1 1 1 1 1 1 5001: 010478D10478000!0LJ00!?5^G00079BD14101105442D1054410293/C1063810544J09086/D1055910293TJ08814^D106081 1 1 1 1 1 1 1 1 1 1 5101: 0348TD1061310353TA1055910499D1049910388/D1069710308/B0935210608IB0935210608JB0935210608KB0935210608L 1 1 1 1 1 1 1 1 5201: B0935210608MB0935210608ND1070210308/D1070710338/?1064810438A1070710438D14101104382D1070210453/J11046 1 1 1 1 1 1 1 1 1 5301: ^1027310343J11046^1042810458J11046^1034810393J00!?0^D1030810338/J11046^1027310393J00!?0^G00079BC1062 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 310648J09437SD1064810623TJ01529^10488J01529^1060HJ01529^1061CJ00!?0^G00079BC1062310648J09517SD106481 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 0623TJ01529^1075CJ01529^1060HJ01529^1061CJ01529^1056DJ00!?0^G00029BD0004409847LD000'400034TD000'9000 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 39CD1061310659TD10608106543D1063810618TT1065914SV42G00044BJ09797SC1067310573J09697TJ000?0^J09754^A10 1 1 1 1 1 1 1 1 1 1 1 5701: 66900049A1064810573D1057314SV4XA1066400049D1065914SV4TD1064810618TD10573000!0/D0984700044TJ000/0^D00 1 1 1 1 1 1 1 1 1 5801: '00000!0/D0984700044TJ000/0^12345123451234512345G00079BJ12406^1084C1057HC1057810638J00!?0SJ11405^108 1 1 1 1 1 1 1 1 1 1 1 5901: 4C1055I1055DJ11127^1055D1060H10160J11127^1055D1061C0787IJ09560^1050I0789HC1061810648J10119SJ11560^10 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6001: 83C1050I1054DC1063310544J10038TJ10072^D1054410509TJ11560^1083C1050I1054DC1054410633J07917SJ11534^108 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6101: 3C1050I1063CJ09912^J12735^1083C1063CJ12735^1083H1063HJ09912^J13530^10843J00!?0^^^^^G0000100399003870 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6201: 0398001300039700399003890039800375COMMO^^^^NCTR^^0034900375000000039700399003900039800375^^^^^002740 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6301: 0375^^^^^0039700398002820020600375123450039712345123450039900387003980013000349003751234500397003990 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 038900398^^^^G0000100397003980037512345002060037512345003970039000051000000000?1234512345^NOUT^00000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 6501: ^^^^^00000000000000000000000000000000000000000000000000000010000000000000?0000?000000000000000000000 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6601: 0000000000000000000000009999I9999H000000000?0000A0000?0000000000F0000D085E019?2275E2275E1615E0000E00 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6701: 0000000800002'00000001140010300090001010030600338003800037400206002070019500203003780039700398003990 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 0389003880034400349^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0003911038LD000'410886TJ13864^^^^^^11043?1104300 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6901: 039J11005V!000?500034A00034A00034S000?500034A0003400039D000?011043LJ01543^11043A1104500039AJ11005VJ1 1 1 1 1 1 1 1 1 1 1 11 1 7001: 0955^D1103800039TJ000'5^12345678901234512345EEG00029BD0003911038L!000'900034?000'400039A0003900034S1 1 1 1 1 111 1 1 1 1 1 7101: 104500034A1104511028J10955^G00029BD0004411404LD000'400034LD000'900039LD000/400044LD000!011369LS14102 1 1 1 1 1 1 1 1 1 7201: 00034J12406^1136I1137DD000!011379JC1137411379J11334UJ11560^1136I1137I1138DD11384000?0TA14103000!0C11 1 1 1 1 1 1 1 1 1 1 1 1 1 7301: 38410718J11205SD1140400044TJ000/5^D0004411363/D1140400044TJ11364^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 7401: ^^^^^G00029BD0004411533LD000'400034LD000'900039LD000/400044LS1410200044D000!000'05XD000?000'00TD1153 1 1 1 1 1 1 1 1 1 7501: 300044TJ000/5^^^^^^^^^^^^^^^^^^^^^G00029BD14104120323J11605^G00029BD14100120323J11605^G00029BD141051 1 1 1 1 1 1 1 1 1 1 7601: 20323D0004412069LD000/400044TDDD000!012037TB11667120322D1071800'00TJ13864^1203G1204BC1204214110J1195 1 1 111 1 1 1 1 1 1 1 7701: 8SV12013000?0KD1204200034TC000!5000?0J12013U?1411112049D000!512047LD000!512037LS000?012047A141031204 1 1 1 1 1 1 1 1 1 7801: 7@1410212049S1204900034B12001120322D000!000'00LB12013120321D000!1999R6+S1410200089D1204200034TS14103 1 1 1 1 1 1 1 1 1 7901: 12037D12037000!0TC1203710718J12013/D000!1999R1+S1411300089D1205400029LD000'411992/D1071811993TJ12013 1 1 1 1 1 1 1 1 1 8001: ^D00'00000!0TD1206900044TJ000/5^^1203G1204B0000000^^^^^^^^^^^^^^^^^^^^G00029BD0006412398LD000'400034 1 1 1 11 1 1 1 1 1 1 8101: TD000'900039TD000/400044TD1411000'00TD000!012353LJ13864^1235C1235HD1235800049TC0004914110J12300SD000 1 1 1 1 1 1 1 1 1 1 1 8201: 4900059TD00''512403L@1410212405S1240500049C00''0000?0J12319SA1410300'00A1410200049C0004900059J12242/ 1 1 1 1 1 1 1 1 1 8301: D1411000'00TJ12330^A1410300'00D1239800064TJ000/5^1235C1235H^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 8401: ^^^^^^G00029BD0004412577LD000'400034LD000'900039LD000!012582TJ13864^1258B1258GC1258710718J12527SD125 1 1 1 1 1 1 1 1 1 1 1 8501: 8700044TD00'05000?0LJ12539^D10718000?0TD1257700044TJ000/0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0006 1 1 1 1 1 1 1 1 1 1 8601: 413370LD000'900064TD000/400054TD00!0013375TD000'400034TJ12800^G00029BD0006413370LD1411013375TD000'90 1 1 1 1 1 1 1 1 1 8701: 0054TD000'400034TS1410213335J12800^G00029BD0006413370LD000'900054T!1410313375D000'400034TS1410213335 1 1 1 1 1 1 1 1 1 8801: D000!013315XJ13864^1331E1332?D1332000039TC0003914110J13221SD000?513325LC1337514118J12923S?1337513330 1 1 1 1 1 1 1 1 1 1 1 8901: S1332513330V1293513330KD1332513375X,000?0@1410213377D1332513382X@1411913384?1338400044A0003900044?00 1 1 1 1 1 1 1 1 1 1 9001: 04400049A1337700049S1410200049,00''0S1412000044D00'0000?'0#?0008900059A1337700059D00'!000'?4TD00''10 1 1 1 1 1 1 1 1 1 9101: 0'?5#S1337700059S1338400059A1412200059A1410313325D1332500'?0T)00''0D1412300'?1#D000?600'00"A14102000 1 1 1 1 1 1 1 1 1 9201: 89D1337000064TJ000/5^D00'!000?'4TJ13385^1331ED13315000!0TD000!000?'9TD1412800?/4TA1413000089D1412300 1 1 1 1 1 1 1 1 1 1 9301: ?'0#J13202^1331E1332?1332E1333?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G13524BA1412013 1 1 1 1 1 1 1 1 1 1 9401: 524D1352413420/D1342613483/A1410313519J13864^1351I1352IC1352910718J13427/D1351913484TA1410313524D135 1 1 1 1 1 1 1 1 1 1 1 9501: 2413513/J13514^A0000^^^^^^^^^^G00029BD0004913840LD000'400034JD000!013845LJ13864^1384E1385?D138501385 1 1 1 1 1 1 1 1 1 1 1 1 9601: 5/C1385510718J13780SA1410213850D1385000049/?1411113862D1410213856LD00''013815J@1381513862S1386200089 1 1 1 1 1 1 1 1 1 9701: S1411300089D1385500039/A1413100039D1385500044/S1412000044S1386200044D000?000'00,D10718000!0TD1384000 1 1 1 1 1 1 1 1 1 9801: 049TJ000'5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G00029BD0004414087LD000'900039TDD000 1 1 1 1 1 1 1 11 1 1 11 9901: 8900044TS1413100044D14101000442C0004410682J14018UC00'00000!0J14037S?00'0514092@1410214094S1409400044 1 1 1 1 1 1 1 1 1 10001: S1411300044J13931^D14110000?0TJ14049^D00044000?0TD1408700044TJ000/0^^^^^^^^^^^^^^^^^^^^^^^^^^^^20000 1 1 1 1 1 1 1 1 1 1 10101: 1^EA2000000?1?0000JND1D'000011EF^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^,19000/29999G14191BV 1111111 11 1 111 11 1 1 1 1 1 1 10201: 14186190001J04218^H^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0000?^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1: PHF90040050400004000J00000^J00000^ 1: PHF90J04012^D1368100054TD00054J01515^1301407209T13014140092G04071BD0000004083/J00000^J01515^12869072 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 09J01515^1287407209J01515^1366607209J01515^1367107209J01515^1306107209J01515^1306107209B08649130600W 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 201: 08593130602W08631130604W08649130601,04327NU%U0BR00101"J01515^1469207209N04326146881N08888146883N0891 1 1 1 1 1 1 1 1 1 1 1 301: 9146885N08950146887N08888^NJ04359^D1471712957T)09018J08981^D1287313007LD1366612982/D13671D1287412953 1 1 1 1 1 1 1 1 1 1 401: TDD14722J08981^D1458212933$J08981^D1287412953TDDW0459212948&D1472812953TJ08981^D14729130013D13001130 11 1 1 1 1 111 1 1 1 1 501: 00LD1473212945TJ08981^D0887312943$J08981^A1366614072A1407214092A1366614292A1367114272J04030^D1287414 1 1 1 1 1 1 1 1 1 1 601: 574TDD14729145753J04472^J01515^1304606911C0698813046J04030SJ01515^1305106911D1305106902LT0690205'Z62 11 1 1 1 1 1 1 1 1 1 1 1 701: J04624ST0690205'R62G00059BJ04756/D05'R600'?6XS1473300054NJ04831^A0690900054AD05'Z605'R6XD0690205'Z6X 1 1 1 1 1 1 1 1 11 1 801: C0005406907J04624U,04757J04624^J01529^06988J01529^13046J01529^13051J01529^06988,06910J04624^J01515^1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: 304606911T13046069832J04030SJ01515^1305106911D1305106902LT0690205'R62J04892SV05042047571A1473300054D 1 1 1 1 1 1 1 1 1 1 1 1 1001: 0690205'R6XC0005406907J04892U,04757J04892^J01529^06983J01529^13046J01529^13051J01529^06983J04892^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 2901: ^^^01800666D0694312933$)14581J08981^J07209^$**ERROR^IN^FUNCTION^DECL.***"^001010010300114J01515^1304 1 11 1 1 1 1 1 111 1 1 1 1 3001: 607037C1304613036J04030S)07394J06989^,09566D1474512944T)14581J08981^J07209^J01515^1304607177C1304613 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: 056J04030SJ01515^1305107177D1305112953TD13046129483D1474812945TJ08981^J07075^D1476612950T)14581J0898 1 1 1 1 1 1 1 1 1 1 1 1 3201: 1^J07209^D0005400059T,05'Z6C0004900054J07300SD05'R612953TD14771D14772129333J08981^S1473300054J07227^ 1 1 1 1 1 1 1 1 1 1 1 3301: V07319069101J07393^)0475706910S00054SD1477704010/D1480712933,)14581J08981^J07393^J01501^PHF90NJ07408 1 1 1 1 11 1 1 1 1 1 1 11 3401: ^J09585^J01543^12863D0156107464/D0143207459TD01433074663M%U107465WR00101"D0143207500TD01433075023U*^ 1 1 1 1 1 1 1 1 1 1 1 3501: ^RR00101"D0143410558TDDD0142901434TDDD10558DDD1481204010/J01501^PHF90J07576^D1368100049TD00049DDDD08 1 1 111 111 111 1 1 1 1 1 1111 3601: 87112952TJ08981^J01515^1301409324B0787913010^T13014138832G00044BD00'0007681/J00000S,13012T1301413661 1 1 1 1 1 1 1 1 1 1 1 3701: 2G00044B)13012J07781/D00'0007732^G00039AA0004400034S0003900034D00'00129K7TJ07816^D14813129K83D130141 1 1 1 1 1 1 1 1 1 1 1 3801: 29L3TA1473300034C1481800034J07616TJ08981^A1481900034D14772129K73NJ07616^J08377^D1301413019TJ01515^13 1 1 1 1 1 1 11 1 1 1 1 3901: 01D09187T13019137572J08305SD13019129K83D13014129L3TB0801813010^B0802913011^B0804013012^B0805113013^B 1 1 1 1 1 1 1 1 1 1 4001: 0806213014^J07805^S1481900034S1481900034S1481900034S1481900034S1481900034J07805^,08535D1482212945TA1 1 1 1 1 1 1 1 1 1 1 4101: 482300034J07816^,12948)08535T1295305'I62)12948J08534/D1482412946TJ08534^J01515^1301409324C1381313014 1 1 1 1 1 1 1 1 1 1 1 1 4201: J07616SJ01515^1301409324J08172^C0003413888J07683TD1388800034TJ07616^C0003413893J07683TD1389300034TJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 7616^D13019129K93DA1481900034J07793^J01515^1301409168S1481900034J07793^)07865C1482900034J07834UJ0151 1 11 1 1 1 1 1 1 1 1 1 1 4401: 5^1301D0916HC1301413031J08567SC1301414834J08496SC1301414839J08515SD13014129L2TA1484000034J08377^D148 1 1 1 1 1 1 1 1 1 1 1 1 4501: 4513014TJ08466^D1485013014TJ08466^NJ08116^C0003414855J07616SJ08981^,07865J07616^,09566J07616^,090260 1 1 1 1 1 1 1 1 1 1 1 1 4601: 8615,0911109119F1R00101"J04211^,0904409674J04223^B0869101436UB0869101436B,0904409674J04254^,09000095 1 1 1 1 1 1 1 1 1 1 1 4701: 53,0424209628D0143809010TD0143709003TD0143709556TD0143809558TD0143704245TD0143708836TD0143804247TD01 1 1 1 1 1 1 1 1 1 4801: 43808838TD0955309555TB0423503999TU%U0RR00101"J04254^COMMONCTR^EQU^^39999"CTL^^33"3344557D08882088671 1 1 1 1 1 1 11 11 1 1 11 4901: D0888208879/J04326^D08886088671D0888408879/J04326^D08887088671D0888608879/J04326^G12852BA1481912931N 1 1 1 1 1 1 1 1 1 1 1 5001: M%U012928WR00101"NJ09061^NM%2012876WR00101"NM%4412928WR00101"D1485500034TD1472913002TD1300213001LDD1 1 11 1 1 1 1 1 1 1 11 5101: 285200029/NJ09111RNJ09133@J000'0^F1R00101"J000'0^D1485609274TJ09199^D1485709274TJ09199^D1485809274TD 1 1 1 1 1 1 1 1 1 1 1 1 5201: 0003409285TA1481909285D1301409296TM%T009265WR09234"J08981^J09324^^ERROR^^^^^^X2^^^^^^^^^^SX^^^^^^"^) 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5301: 09298D1486300039TJ09336^D1486800039TD000?012933,G00039AG00044BD1472999Z993J08981^B09400000?0'J09336^ 1 1 1 1 1 1 1 1 1 1 5401: V09299092981D1457512954TJ08981^D0143410558TDDD0142401434TDDD1055801424TDDD0750709496TDU*^^RR00101"D0 1 1 1 1 111 111 111 11 1 1 5501: 156100029T!10553999Z9V09540090001J09552^D14869039993NU%U0MR00101"NJ09585^J01501^PHF30B0960403999TJ09 1 1 1 1 1 1 1 1 1 1 1 5601: 660^D0143709631TD0143809633TU%U0RR00101"D0143801408TDJ09673^D1487301408LDNM%4412928WR00101"V09720145 1 1 1 1 1 11 1 11 1 1 5701: 811M%T014641WR09703"D1487800099XD00099DDDDDDDDDDDDD?1488300099?1488400094S1488500094J09864VD00??3098 1 1 1 1 11111111111111 1 1 1 1 5801: 32TD00??309839TD00??209830TU%U1RR001013R09846"A1488600099J09773^?1488300099?1488400094S1488500094J09 1 1 1 1 1 1 1 1 1 1 1 5901: 982VD00??209943TD00??3099573D14887099423M%U010470WG14892BR00101"A1488600099J09886^B1003601406BB10036 1 1 1 1 1 1 1 1 1 1 6001: 01406UM%T010397WR10006")10365J10309^D0140710141TD0140710258TD01408101553D01408101623D01408101693D014 1 1 1 1 1 1 1 1 1 1 6101: 08102603D01408102673D14887101403,10365M%U110470RG14892BR001013R102134R10176"C1047414897J10309S)10275 1 1 1 1 1 1 1 1 1 1 1 6201: ,10283J10220^,10275N?1489900089)10220S1488500089J10282VU%U1RR102552R10274"NJ10138^NJ10309^,10283)102 1 1 1 11 1 1 1 1 1 1 11 1 1 1 6301: 75J10255^D0140310348TD01404103503D01404103573U%U2RR103452R10364"NJ10378^.10378D1490401174TJ01175^PLA 1 1 1 1 1 1 1 1 1 1 1 1 6401: CE^INPUT^CARDS^IN^READER.^DEPRESS^START^TO^CONTINUE^AFTER^HALT^OCCURS"1HDR^^^^^^^^^^^^^^^^SCRATCHTAP 1 11 6501: E^^^^^-000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"50?^^^^^J01515^1301410718T13014112482G00044BJ1071 1 1 11 1 111 1 1 1 1 1 6601: 8/D00'0000044LD00'00129K8#G00034BG00044AS1075700034D14905129333)14581B0781600'00'J08981^A1481900034D 1 1 1 1 1 1 1 1 1 1 1 6701: 14905129K73J10614^D10752129L3TA1484000034J07781^UNERR12928J01515^1491010829D1491014359/J01515^149101 1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 0829D1491014382/,09298J07616^D1491513014/J10576^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'1 1 1 1 1 1 11 6901: 1301800011135580002114338000311509800041155180005116068000611636800071167980008117173000111758300021 1 1 1 1 1 1 1 1 1 1 7001: 1800300031181630005118433000711874350011191135002119503500311977350041200135005120273500612066350071 1 1 1 1 1 1 1 1 1 1 7101: 2086350081210435009121303501012155350111217635012122013501312221350141224335015122753501612306350171 1 1 1 1 1 1 1 1 1 1 7201: 2341350201239635021112495000111279500021128750003*TEST^CASE^FOR^ERROR^MESSAGE^'ACCUMXX'*^PLUS^ERROR^ 1 1 1 1 11 11 1 7301: 'GET^TAPE^PREMATURELY^OUT^OF^SYMBOLS.^TABLE^OUTPUTTED^'TOO^MANY^EQUIVALENCE^NAMES,SKIP^ALL^FURTHERCO 1 11 7401: MMON^OR^EQUIVALENCE^INFORMATION^'INCONSISTENT^EQUIVALENCE,SKIP^ALL^FURTHERCOMMON^OR^EQUIVALENCE^INFO 11 7501: RMATION^'COMMON^STRING^PREMATURELY^OUT^OF^SYMBOLS^'TOO^MANY^COMMON^NAMES,SKIP^THOSE^NOT^ALREADY^IN^T 11 11 7601: ABLE^'NAME^COMMONED^MORE^THAN^ONCE^'SUBSCRIPT^DIGIT^NOT^NUMERIC,ZERO^ASSUMED.^'GET^TAPE^PREMATURELY^ 11 11 11 7701: OUT^OF^SYMBOLS.^'***BAD^NAME^IN^FORTRAN^SOURCE^STATEMENT^'***BAD^LABEL^IN^FORTRAN^SOURCE^STATEMENT^' 11 11 11 7801: *BAD^STATEMENT^'INVALID^FORTRAN^CHARACTER^'TERMINAL^F^IN^SUBPROGRAM^NAME^'*WE^ARE^NOT^HANDLING^THIS^ 11 11 11 7901: STATEMENT^'INCOMPLETE^STATEMENT^AT^END^OF^PH.^35^'EXCEEDED^ARRAY^TABLE^SIZE^'INCORRECT^DO^STATEMENT^ 11 11 11 1 8001: 'INCORRECT^SUBR^STATEMENT^'*INCORRECT^FORTRAN^FUNCTION^STATEMENT^'*INCORRECT^LITERAL^'*MISSING^OPERA 1 11 11 11 8101: ND^'*INVALID^OP^IN^ARITH^EXP^'*IMPLIED^MULTIPLICATION^'*EXTRA^RIGHT^PARENS^'*ASSIGNMENT^TO^LITERALS^ 11 11 11 11 1 8201: '*EXTRA^LEFT^PARENS^'*CHAINED^ASSIGNMENTS^'*****DIMENSION^STAT.^ERROR****^'****INCORRECT^LIST^IN^I/O 1 11 11 11 8301: ****^'****EXPONENTIATION^IN^I/O^LIST***^'MORE^THAN^6^CHARACTERS^IN^SUBROUTINE^OR^FUNCTION^NAME^'GET^ 11 11 11 8401: TAPE^OUT^OF^SYMBOLS^IN^PHASE^90^DISKRTNE^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 8801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^12345^^^^^34AJ23^EOP^TITLE^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1111111 1 11 1 8901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 9001: ^^^^^^^^"^^^^^^^^^^^000001J003760005200240^^^^^^^^^^00203^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 111 1 1 111 1 1 1 1 1 1 9101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"$144ENTRYONE021DAV051ENDFILETP024REWINDTP 11 1 1 1 1 9201: 025BACKSPACE026ACCUMAP027ADDRESS028*-5036*-16037ACCUMXZ039MLCB040ACCUMXX041ACCUMXY042*-2043*-6044*-1 1 1 1 1 1 1 1 1 1 1 1 1 9301: 047BA1020WCP022SBR023MLNA029MLCA030BCE031BZN032BZ033BH034NOP035ZS038ZA045DCWS046"108*130.194)195@196 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9401: ]203,206%207:214^224A228B230C232D234E236F238G240H242I244J246K248L250M252N254O256P258Q260R262S264T266 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9501: U268V270W272X274Y276Z2780280128222843286428852906292729482969298CALL335END369#339&344-349*354/359FA3 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9601: 81FS382FD383FM384FRA385FST386EQU387DS388ORG389DA390DCW396DC39112345123450009000000^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 9701: ^^'^^NFL^^^GH^^NIT^^^FL^^^IT^^^IR^^^GL^^^FN^^SIT^^^GA^^^LA^^^^^^^^^^^^^^^^^^^^07683^1075800143085800 11 1 1 1 1 1 1 1 1 1 1 1 11 1 9801: 0052081720030408534003971055900092083360037508371003760823100399080800005008268003980001500020^^^^^^ 1 1 1 1 1 1 1 1 1 1 9901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^04030'04624001140489200101048920010304085000900707500338 1 11 1 1 1 1 10001: 0698900052^DIGITCTR^DCW^^@0123456@^^'IT99999^^^DCW^^&1'ACCUMXY^^^DCW^^#00'ACCUMXX^^^DC^^^#001'ACCUMX 1 1 1 1 1 11 1 11 10101: Z^^^EQU^^ACCUMXY&2'ADDRESS^^^DCW^^@12345@'ACCUMAP^^^DCW^^@12345678901@'^PAUSEMSSGDCW^^@PAUSE^^^^^^^^ 1 10201: @,G'^STOPMSSG^DCW^^@STOP^^^^^^^^@,G'ORGRESET^^ORG^^501'^^^^^^^^^^DCW^^@00@'^^^^^^^^^^DCW^^@00@'^^^^^ 1 1 10301: ^^^^^ORG^^ORGRESET''DISKORG^^^ORG^^605'^^^^^^^^^^DCW^^@^^^^^@'^^^^^^^^^^DCW^^@^^^^^@'^^^^^^^^^^DCWF^ 1 10401: DISKBUFFER'^^^^^^^^^^ORG^^DISKORG''^^^^^^^^^^H'^^^^^^^^^^LTORG''^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 11 10501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^END^^STARTXX^EOP^^*^COMPILED^BY^FORT 1 1 1 10601: RAN^II,^#1410-FO-913,^VERSION^05^LEVEL00"DIAGNOSTIC^ERRORS^PRESENT^IN^SOURCE^STATEMENTS"^^^^^AUTOCOD 11 11 1 10701: ER^RUN^^RELOCATIONJOB^^^^^^^^^PST6$BATCH^ERRORRSV$COMMON^CARD^ERRORBEL^^*04030$EXCEEDED^FUNCTION^TAB 1 1 11 11 1 1 1 11 1 10801: LE^SIZE'07569)000721DCW3F00068^^^^;^^^^_5003760013000005CBA1432014010T%11R0000001420DAEU777771HDR^1? 1 11 11 111 1 1 11 1 1 1111 1 11 1 1 11111 1 1 10901: LIBRA$^^^^^35021^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1 1: FLINK050000500019137J00000^J00000^ 1: D0583500099XD00099DDDDDDDDDDDDD?0584000099?0584100094S0584200094J05144VD00??305112TD00??305119TD00?? 1 1 11111111111111 1 1 1 1 1 1 101: 205110TU%U1RR001013R05126"A0584300099J05053^?0584000099?0584100094S0584200094J05262VD00??205223TD00? 1 1 1 1 1 1 1 1 1 1 1 201: ?3052373D05844052223M%U005750WG05849BR00101"A0584300099J05166^B0531601406BB0531601406UM%T005677WR052 1 1 1 1 1 1 1 1 1 1 301: 86")05645J05589^D0140705421TD0140705538TD01408054353D01408054423D01408054493D01408055403D01408055473 1 1 1 1 1 1 1 1 1 401: D05844054203,05645M%U105750RG05849BR001013R054934R05456"C0575405854J05589S)05555,05563J05500^,05555N 1 1 1 1 1 1 1 1 1 1 1 1 1 1 501: ?0585600089)05500S0584200089J05562VU%U1RR055352R05554"NJ05418^NJ05589^,05563)05555J05535^D0140305628 1 1 1 1 1 1 1 11 1 1 1 1 1 601: TD01404056303D01404056373U%U2RR056252R05644"NJ05658^.05658D0586101174TJ01175^PLACE^INPUT^CARDS^IN^RE 1 1 1 1 1 1 1 1 1 1 701: ADER.^DEPRESS^START^TO^CONTINUE^AFTER^HALT^OCCURS"1HDR^^^^^^^^^^^^^^^^SCRATCHTAPE^^^^^-000^^^^^^^^^^ 1 11 1 801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"0000001420DAEU777771HDR^1?LIBRAN 1 11 1 11111 1 1 1 1 1: RPG1^100000280102804J00000^J00000^ 1: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^ 1 1 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^ 1 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^ 1 1 1 1 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^BEBLBH^^^^ 1 1 1 1 1 401: ^^^^^^^^^^^^CXP1-1&00^^^^MLC^^^^MC^^^^^^CBCE^^^^BBZN^^^^VMLNS^^^DSW^^^^^,CW^^^^^)CS^^^^^/H^^^^^^.NOP 1 11 1 1 1 11 1 1 1 1 1 1 1 1 1 501: ^^^^NA^^^^^^AS^^^^^^SZA^^^^^?ZS^^^^^!ZA^^^^^&MLZS^^^YD^^^^^^%MLCWA^^LM^^^^^^@MCE^^^^EMCS^^^^ZSKIP^^^ 1 1 1 1 1 1 1 1 1 1 1 1 601: FB^^^^^^1B^^^^^^2B^^^^^^4CONSL^^.DCW^^^^K^^^^^^^^^^^^^^^^^^^^^^^^03938^^^03951^^V04266^^104285^^2043 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 16^^403627^^K03964^^F04347^^.04042^^B^04664DCW04645DC^04614DSA04583DS^^1PRINT1PUNCH1^^G05010BJ03670S 1 1 1 1 11 1 1 1 111 1 111 1 801: J03689UD05960035713J03701^D0596203122TD02939031233D05963031243J04764^D05964035713J03701^D05965035713 1 1 1 1 1 1 1 1 1 1 901: /03175,0310103106,0311603121D0291303111LD0291603224LT03224034652G03874BJ04538/B03798029280J03824^D02 1 1 1 1 1 1 1 1 1 1 1 1001: 931029373DDD0321902934TB03843029170J03869^D02920029263DDD0321902923TD0000003120LD0322403473TT0322403 111 1 1 1 111 1 1 1 1101: 5372G03917BD0000003936TJ05005/J00000^,05227J05012^)05227J05012^D02939031213J04764^NJ04764^N^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 11 11 1201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W0395102928"B0424702939^B0422802939@B0420902939/D0320103119 1 1 1 1 1 1301: TJ04109^B0415202939SB0417102939TB0419002939UJ04994^D0319203117LJ03938^D0319403117LJ03938^D0319603117 1 1 1 1 1 1 1 1 1 1 1401: LJ03938^D0597003120LJ03938^D0597503120LJ03938^D0598003120LJ03938^D0598402920TJ03938^D0357802922TD059 1 1 1 1 1 1 1 1 1 1 1 1501: 64035853J03938^D0358402922TD05964035863J03938^B0436602908EJ04513^D0446403130TD0501003212LJ04397^,031 1 1 1 1 1 1 1 1 1 1 1601: 01D0598803124TJ04750^/03175D0451203126TD0321205010TJ04757^ME5G1^SEQUENCE^ERROR^INPUT^FILEBA1^^*-16^^ 1 1 1 1 1 1 1 1 1 1701: ^H^^^^READ1^D0453703130TJ04378^ME5G2^T03224035702G04569BN^^^^^^D0000004581TJ00000^D0599303120TD02922 1 1 1 1 1 1 1 1 1 1 1 1801: 03126LJ04764^D0599803120TD0293303126LJ04764^D0600303120TJ04676^D0599803120TD0600800094LD02907000943D 1 1 1 1 1 1 1 1 1 1 1901: D05963031213,03122D02IK303AK1LD0596303AK23J04764^G05010BJ04764^ND0320603180TB04831049612B04861049614 1 1 1 1 1 1 1 11 1 1 2001: A0600905423D0542403105/J04884^A0600905413D0541403105/J04884^A0600905418D0541903105/B04927049612M%440 1 1 1 1 1 1 1 1 1 1 2101: 3101WG05598BR00101"J04982^M%4203101WG05598BR00101"J04982^M%4203101WG05598BR00101"D05960049613C035710 1 1 1 1 1 1 1 1 1 1 1 1 2201: 3572J00000^D0600800084TB0476402917^D0600800074TA0600900074A0600900084C0008406011J05119SB0505902I16^D 1 1 1 1 1 1 1 1 1 1 2301: 02I1603JK03J05048^D0600800084TB0476402928^D0601203JK03A0600900074A0600900084C0008406011J05226SB05166 1 1 1 1 1 1 1 1 1 2401: 02I27^D02I2703JK03J05155^NJ04764^D0601203JK03D0293903JK13C0312003254J04764/D02939053432B0534405343&B 1 1 11 1 1 1 1 1 1 1 2501: 0536305343-B0538205343^D0601303JK13J04764^^D0601503JK2CJ04764^D0601603JK13J04764^D0601703JK13J04764^ 1 1 1 11 1 1 1 1 1 2601: CONTROL36000004000080000)05482J05532^G05537BM%1102801RG05598BR00101"B0542502801*NN/03180,03107D02874 1 1 1 1 1 1 1 1 1 1 1 1 111 1 1 2701: 03180L)03107D06018031063J04750^J00000^)05482J05532^CON1P^^^^^DCW^^@1@JOB^^1410-RG-910-43^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 11 2801: A^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 3101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2@N@10BU^^^BCV^^B^^^^RDCDWCP,EQU^^DCW^^DC 11 1111 1 1 1 1 1 1 1 3201: ^^^00000A11,AABB^*0403RG4DIOCSORG^^^^^^^62000001IODEVICESD^DISK,ET^TAPE,P^PUNCH,FR^READER,GW^PRINTER 1 11 111 1111 1 11 1 1 1 1 11 1 1 1 11 1 11 1 3301: ,M,IDENTOPEN0UTB^^^^SW00^^OPEN^OUTFILEHOUTPUTEOFADDRE0F0UTEVENODD^CHANDRIVERECFORMFIXED,BLOCKEDPADDI 11 1 1 1 1 11 1 1 1 1 1 1 1 1 1 3401: NGBLOCKSIZESIZERECIOAREASW0RKOUTDA^^^1X^^^^,GPRT0RECL9THCNEQU^^PRT0&^^^^TYPELABELSTANDARDHEADER13210 1 1 1 1 1 1 1 1 1 1 1 1 1 3501: 00VARIABLE,BLOCKEDW0RK1DA^^^1X0000,GINFILEINPUTE0FRECS1Z^^^^DCW^^^00000REC1NWORKAREAORG^^*&X00DA^^^1 1 1 1 1 1 1 1 1 1 1 1 3601: X0000,GINPUT1CXP1-1&^^^^EQUTEMP1NCHECKLABELIDENTDCW^^@"@NDCW^^@00@@10@@20@@00000@@30@TA3LE^^^^^EQU^^ 1 1 1 1 1 1 1 11 1 1 1 1 1 3701: *-1CRPG2^FEATURES^^^^^^^OVERLAP,PRIORIT,CHANN^^^^^RNDMDEPTH^^^^^^3DISKSTKAREA^^^^^^^^STACK1NGSTKINDE 11 1 1 1 1 1 1 3801: X^^^^^^^X1SGMTLENGTH^^^^^9STACK1NG^^DA^^^3X^^,X1,0,GDISKARMS^^^^^^^TA3LEPROCESTYPE^^^^^RANDOM,SEQUEN 1 1 1 1 3901: TIAL^^^^^^^^^^^13775T**XX000^^^^^B^^^^0DTF^^D1SKFILEFILETYPE^^^^^^^DISK,INPUTRAM512E^^^DCW^^NRECORDS 1 1 11 1 1 1 1 1 4001: HOLDAREA^^^^^^^H0LDAREAH0LDAREA^^DA^^^2X0227,X2,0,G10TRACKFORM^^^^^^TRACK,MOVEINDEXREG^^^^^^^X2C0NTR 1 1 1 1 1 1 4101: 0LDTADCW^^D15TANCE^^DCW^^L0CCTLDTA^DCW^^P0SIT0NCTLEQU^^REC1N-1&N0PERBLCK^DCW^^@00@ENDCTLM0D4EQU^^REC 1 1 1 1 1 4201: 1N-1&M0D4ENDCTLDCW^^#L3N7HCTLDTDCW^^LEGDATA0^^DCW^^@00000@L3N78^^^^^DCW^^#00C0MPRBLCTLDCW^^#R3CCTLDT 1 1 1 1 1 1 4301: A^DCW^^@00000@TR4LCTLDTADCW^^@00000@N0T441L^^^DCW^^LL0CFWDSEQ^EQU^^CDRD1-1&0000LEN6FWSEQ^DCW^^#TRDTF 1 1 11 1 1 1 4401: ^^TRA1LERFILFILETYPE^^^^^^^DISK,INPUTTRL512E^^^DCW^^HOLDAREA^^^^^^^TRA1LAREATRA1LAREA^DA^^^2X0227,X3 1 1 1 1 4501: ,0,GTRACKFORM^^^^^^TRACK,MOVEINDEXREG^^^^^^^X3TAPEPRINTERPUNCHREADER0040201201612VLFLCHCKNCRPG8^8?RP 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4601: G3^RPG4^RPG5^RPG6^RPG7^RPG9^RPG10RPG11RPGIN5BRPGDA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^J 1 1 1 1 1 1 1 1 111 1 1 4701: 07507^J07514^D0654503141TB0755002860CD0745603141TJ04750^/03180D0656603121TJ04750^/03180B0794602863XM 1 1 1 1 1 1 1 1 1 1 1 4801: %1114600RR00101",14600C0657014603J07664SM%T018595WR07641".07600ND0659303128TJ04750^/03180D0661003122 1 1 1 1 1 1 1 11 1 1 1 4901: TJ04750^/03180D0662603121T,03121D1463003122CA0600903122J04750^/03180D0665203131T,03123D1463003124CA0 1 1 1 1 1 1 1 1 1 1 1 1 5001: 600903124D06025049613J09711^D0667203125TJ04750^/03180D0670403137TB0789002861SD0671503137TJ04750^/031 1 1 1 1 1 1 1 1 1 1 5101: 80D0672013608TB0793902808^D06721028073J11431^G08106B,14600D0288014679P/02880,05482J05438^,02801C0672 1 1 1 1 1 1 1 1 1 1 1 1 5201: 302802J08052SD0288003180TD06025049613J09711^J07971^,02801D1467902880PD0673903121TD06025049613J09711^ 1 1 1 1 1 1 1 1 1 1 5301: J00000^/03180D0675203128TJ09711^D0677703130TJ09711^D0621803112TD14608031243DDDJ09711^D0679203120TD09 1 1 1 1 1 1 1 1 1111 1 1 5401: 74403127TD14608031263DDDD06025049613J09711^D0680003113TD14610031213J09711^D0682303128TJ09711^D068510 1 1111 1 1 1 1 1 1 1 5501: 3133TD06025049613B0834214609SD0685303124TJ09711^D0687803130TB0971114609T/03180D0689503122TJ09711^D06 1 1 1 1 1 1 1 1 1 1 5601: 91003120TD0974403127TD14619031263DD06025049613J09711^B0852314622^D0692503120TD0974403127TD1462203126 1 1 11 1 1 1 1 1 5701: 3DDD06025049613J09711^D0694003120TD0974403127TD14625031263DDD06025049613J09711^D0696303128TD14625031 111 1 1 1 1 111 1 1 1 5801: 313DDD06025049613J09711^B08644028653J08807^D0698203124TD14610031233D06025049613J09711^D0700503128TD1 111 1 1 1 1 1 1 1 1 1 5901: 4628031323DDD06025049613J09711^D0702103121TD14630031233DD06025049613J09711^D0645603123TD06025049613J 111 1 1 1 11 1 1 1 1 6001: 09711^ND0703603120TD0974403127TD14630031263DD06025049613J09711^D0705803127TD14630031263DD06025049613 11 1 1 11 1 1 1 11 6101: J09711^D0707603123TD14630031233DD06025049613J09711^D0645603123TD06025049613J09711^D0709203121TD14630 1 1 1 11 1 1 1 1 1 1 6201: 031233DD06025049613J09711^D0711403127TD14633031263DDD06025049613J09711^B0918414611^D0713603127TD1463 11 1 1 1 111 1 1 1 1 6301: 6031263DDD06025049613J09711^D0715103120TD0974403127TD14637031263D06025049613J09711^D14638056143D0715 111 1 1 1 1 1 1 1 1 6401: 2056133B09352028651B09352028652D0717903132TD14641031323DDD06025049613J09711^D0719503121TD14643031233 1 1 1 1 111 1 1 1 6501: DD06025049613J09711^D0645603123TD06025049613J09711^NND02865056073D02864056063D02863056053B1449414611 11 1 1 1 1 111 1 1 1 6601: ^/03180D0719705610TD0721203130TJ09711^D0723703130TJ09711^D0621803112TD14615031243DDDJ09711^D07252031 1 1 1 1 1 1 1 1 1111 1 6701: 20TD0974403127TD14615031263DDDD06025049613J09711^D0680003113TD14617031213J09711^D0727603129TJ09711^D 1 1 1111 1 1 1 1 1 1 1 6801: 0730403133TD06025049613B0964814616SD0685303124TJ09711^D0732903130TB0971114616T/03180D0734603122TJ097 1 1 1 1 1 1 1 1 1 6901: 11^J14494^G09736BJ04750^/03180J00000^@00000@^B1497102862^J11129^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 11 1 1 7101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^/ 1 7201: 03180D0602201399T/02975/02880/03180,05482D0140710165TD01408101793D0140707603TD0140807610TD0140705448 1 1 1 1 1 1 1 1 1 1 7301: TD01408054623D0142204930TD01423049443D0142704899TD01428049133M%1102801RG05598BR00101",0280102901,031 1 1 1 1 1 1 1 1 1 1 7401: 01C0602402802J10297SM%T010251WG05598BR00101".1024510802^^EOJ-NO^RG^CONTROL^CARD"AUTOCODER^RUNPST/031 1 1 1 1 1 1 1 11 1 1 7501: 80B1039102803HB1033401435^J10518^B10353014112J10518^B10372014164J10518^B10446014061J10518^D059640559 1 1 1 1 1 1 1 1 1 1 7601: 93B10446014164D0141704930TD01418049443J10518^D0141604929TD05960049303D01418049443D0141604898TD060250 1 1 1 1 1 1 1 1 1 7701: 48993D01418049133D1029303118TD0288003206LJ04750^/03180D0320605593TD0559303139TJ04750^/03180D10296031 1 1 1 1 1 1 1 1 1 1 7801: 18TJ04750^D02805139423D02804139433/03180,03101D1394303123TJ04750^D02806097453,02861D0287505630TD0280 1 1 1 1 1 1 1 1 1 1 1 7901: 7056313/03180D1116903120TJ04750^/03180D0604303123TJ04750^/03180D0604800099XB1468105631FD0605703114T, 1 1 1 1 1 1 1 1 1 1 1 8001: 05620T06059056302J10848/D0606403125TA0606500099T06067056302J10890/D0607203AB4TA0606500099A0600900099 1 1 1 1 1 1 1 1 1 8101: T06074056302J10943/D0608003AB4TA0608100099A0600900099T06083056302J10996/D0609003AB4TA0609100099A0600 1 1 1 1 1 1 1 1 1 1 8201: 900099T06093056302J11038/D0610103AB4TD0601703AB43)05620J04750^/03180B1446305631CB1139505631TB0750005 1 1 1 1 1 1 1 1 1 1 8301: 631DB0750005631RB1468105631FM%T018659WR11129".M%T018688WR11147".DIOCSDIOCSORG^^^^^^^500FEATURES^^^^^ 1 1 1 1 11 1 11 1 1 8401: ^^CHANNELIODEVICES^^^^^^TAPE^^^LABELDEF^^^^^^^NONSTANDARD,STANDARDRWDOPTION^^^^^^NOREWDDTFINFILEOUTF 1 1 11 1 1 1 1 8501: ILEPR1NT^^^^^EQU^^PRT0-1&132FILETYPE^^^^^^^TAPE,MODEPAR^^^^^^^^MOVE,0000D02813031313DDDJ13707^D06102 1 1 1 1 1 1111 1 8601: 056313B11530028082B11530028332/03180B1151102817^D1124603120TD1126603128TB1149702818^D0610803134TJ047 1 1 1 1 1 1 1 1 1 8701: 50^J11612^B1144902843SJ11612^D1120903127TJ04750^J11431^D0611503112TD0612403124TD06025049613J04750^/0 1 1 1 1 1 1 1 1 1 1 1 8801: 3180J14482^/03180,02829C0612602830J11661SD1128703126TJ04750^B1277302807T/03180B1155602832^D112900311 1 1 1 1 1 1 1 1 1 1 1 8901: 8TD1130303127TJ04750^,02839/03180D0611503112TD0613803127TD06025049613J04750^/03180D0612403124TD06025 1 1 1 1 1 1 1 1 1 1 1 9001: 049613J04750^/03180D0613903116TD06025049613J04750^/03180D1134803125TD0614503131TJ04750^/03180D061520 1 1 1 1 1 1 1 1 1 1 1 9101: 3112TD0615803126TJ04750^/03180D1136803125TD0616203129TB1198602859OB11986028590J11998^D0616603129TJ04 1 1 1 1 1 1 1 1 1 1 9201: 750^/03180D0617503114TD02834031223DJ04750^/03180B1234602838^D0618203112TD0618703125TD0619503133TJ047 1 1 1 11 1 1 1 1 1 1 9301: 50^/03180D0620203112TD02842031213J04750^/03180D0621103114T,02835D0283803124TJ04750^/03180D0621803112 1 1 1 1 1 1 1 1 1 1 1 9401: TD05965031217D02841031243DDJ04750^/03180D0622503112TD0623203127TJ04750^/03180D0623203112TD0624503128 1 1 111 1 1 1 1 1 1 1 9501: TD0283803126TD06025049613J04750^/03175J12444^D0622503112TD0624903124TJ04750^/03175D0625803114TD06272 1 1 1 1 1 1 1 1 1 1 1 9601: 03129TD0284103128TD06025049613J04750^/03175B1256602843^D0628103114TD0628903128TJ04750^/03175D0629503 1 1 1 1 1 1 1 1 1 1 9701: 111T,02844D0285303130TD0601203131T,02854D0285603134TJ04750^/03180,02839C0629802841J12626TD0284111328 1 1 1 1 1 1 1 1 1 1 1 9801: TD0284110390TD0284110366TJ14482^D0630203126TJ13086^D0631803136TJ13208^D02813031263DDDJ13086^D0632303 1 1 1 1 1 1 1 1 1111 1 9901: 125TJ04750^/03180D0632303110TD0633603128TD0281303126TD06025049613J13368^/03180D1129003118TD063420312 1 1 1 1 1 1 1 1 1 1 10001: 6TJ04750^D1134803125TD0634703130TJ04750^,02814/03180D0615203112TD0635003123TJ04750^/03180D1136803125 1 1 1 1 1 1 1 1 1 1 1 10101: TD0616203129TB1294502831OB12945028310J12957^D0616603129TJ04750^/03180D0617503114TD02809031223DJ04750 1 1 1 1 1 1 1 1 1 11 10201: ^/03180D0637103126TD0596303121TD0596303127T,02814B1263302815KB1267102814VD0281603126TD06025049613J09 1 1 1 1 1 1 1 1 1 1 10301: 711^B1342502813^B13136028100J13154^C0281302816J13215S/03180D0618203112TB1265202814VD0618703125TD0619 1 1 1 1 1 1 1 1 1 1 10401: 503133TJ04750^/03180D0621103114T,02810D0281303124TJ04750^/03180D0621803112TB1330702815KD0281603123TJ 1 1 1 1 1 1 1 1 1 1 1 10501: 13319^D0630203124TJ04750^/03180D0622503112TB1269302814VD0637603125TJ04750^/03180D0638403113TD0637603 1 1 1 1 1 1 1 1 1 1 10601: 125TJ04750^/03175J13510^D0622503112TD0637603125TJ04750^/03175D0281602813XD0596502810TV13510028152D06 1 1 1 1 1 1 1 1 1 1 1 10701: 30202813TND0639403125TD06025049613J04750^D0637603110TD0640703128TD0281303126TD06025049613J04750^/031 11 1 1 1 1 1 1 1 1 10801: 80J13610^D0641303111TD0642403131TD0642703118TB1369502815KB1137302814VD0281603131TD05965J13707^D06302 1 1 1 1 1 1 1 1 1 1 10901: 03131TD06025049613J04750^D0643303111TD0624903124TD06025049613J04750^/03180/03175B1392202817^D0628103 1 1 1 1 1 1 1 1 1 1 11001: 114TD0628903128TJ04750^/03175B1392202817ND0644303115TD0644803125TJ04750^/03175D0629503111T,02819D028 1 1 1 1 1 1 1 1 1 1 1 11101: 2803130TJ04750^/03180J13929^J11673^CTL^^^^^G14216BD0645603123TD06025049613J09711^D06457139753D064660 1 1 1 1 1 1 1 1 1 1 1 11201: 3124TD06025049613J09711^D0647003124TD06025049613J09711^D0647403124TD06025049613J09711^D0648103127TD0 1 1 1 1 1 1 1 1 1 1 11301: 6025049613J09711^D0648103127TD06025049613J09711^D0648503124TD06025049613J09711^D1444303125TD06025049 1 1 1 1 1 1 1 1 1 11401: 613J09711^J00000^J00000^G14223BB1426314649@B1434614655*J14401^B1434614650^D14650144423,14269A0600914 1 1 1 1 1 1 1 1 1 1 1 11501: 273D1427314280T)14269J13944^J14263^1440114656D06018144413D1434514273TD1434514280TD1434014268TJ14263^ 1 1 1 1 1 1 1 1 1 1 1 11601: D0650303123TD06025049613J09711^J14218^@3@0@D06504028013J10174^B1140702832TJ11673^B0810805631DB142250 1 1 1 1 1 1 1 1 1 1 1 11701: 5631DB1593905631FD0650901174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"D1806203141TB1471702 11 1 11901: 860CD0745603141TJ09711^B14803028651B14810028652B14823028653B14878028654B14939028655B14952028656J1112 1 1 1 1 1 1 1 1 1 12001: 9^J14971^,15368J14971^,15679)15971,16105)17068B1497102862XB1497102862YJ09746^,15368,15679)15971,1610 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12101: 5)17068B1497102862XB1497102862YJ09746^)17119J14971^,15368)17119J14971^B0794602863XB1500702863XB07946 1 1 1 1 1 1 1 1 1 1 1 1 12201: 02862XM%1114600RR00101"C1806614603J15065SM%T018627WR15042".15007D05613056143D05618056143D1806603124T 1 1 1 1 1 1 1 1 1 1 12301: B1515114642*B1513214641@J11147^D1807103110TJ15175^D1807603110TD0596018417TJ09711^T06067056302J15368/ 1 1 1 1 1 1 1 1 1 1 12401: D0735003124TB15293028332B15293028082B15274028331)15369B15274028081J11129^D1807103110TJ15361^D1807603 1 1 1 1 1 1 1 1 1 1 12501: 110TB15323028332)15369J09711^B15237028331B15237028081J15368^J09711^NJ11129^T06093056302J15426/D07357 1 1 1 1 1 1 1 1 1 1 1 12601: 03127TD1807103110TJ09711^T06074056302J15476/D0736203125TD1807103110TJ09711^T06083056302J15526/D18071 1 1 1 1 1 1 1 1 1 1 12701: 03110TD0736803126TJ09711^D1808403113T,03121A0596403121B1564714644^A0596403121B1564714645^A0596403121 1 1 1 1 1 1 1 1 1 12801: B1564714646^A0596403121B1564714647^A0596403121D03121181003D03121181393J09711^NJ15913^D1810003121TJ09 1 1 1 1 1 1 1 1 1 1 12901: 711^D1812303128TJ09711^D1814903131T,03123D1463003124CA0600903124D0602504961TJ09711^D1816603122TJ0971 1 1 1 1 1 1 1 1 1 1 13001: 1^D1817603115T,03121D1463003122CA0600903122J09711^D1819703126TJ09711^D0672013608TB1590602808^D067210 1 1 1 1 1 1 1 1 1 1 13101: 28073J11431^D1822203130TJ09711^J15870^D1823503128TJ09711^D1826003130TNJ15990^D1827103141TJ09711^D182 1 1 1 1 1 1 1 11 1 1 1 13201: 7803112TB1114714608^BBB,1460514609D1460803124/J09711^D1830103128TJ09711^D1845303126TD06025049613J097 1 1111 1 1 1 1 1 1 1 13301: 11^NJ16341^D1846603128TD1460803126TD06025049613J09711^D1847903128TD06025049613J09711^D18100184853D18 1 1 1 1 1 1 1 1 1 1 13401: 49703133T,03123A1460803126D06025049613J09711^B1626514604FJ11147^D1833703124TJ09711^D1835303114TD1460 1 1 1 1 1 1 1 1 1 1 13501: 803124TJ09711^D1831803122TJ09711^J16761^B1114714612^BBBD0737114622TD0737314619TD0737614625TD07379146 1 1 1 1 1 1111 1 1 1 13601: 28TD0738114630TD06017146443D1849703133TD1461203126TD06025049613J09711^D1786403123CD06025049613J09711 1 1 1 1 1 1 1 1 1 13701: ^D1835303114TD1461203124TJ09711^D1833703124TD1834403131TJ09711^D1842403128TJ09711^D1837603128TJ09711 1 1 1 1 1 1 1 1 1 1 13801: ^D1840103130TJ09711^B1114714616^BD1843203113TD14616031223DJ09711^D1831803122TJ09711^D1852003128TJ097 1 1 1 11 1 11 1 1 1 1 13901: 11^B1674214604VD1854203127TJ09711^J16761^D1857303136TJ09711^,1461314617,1461814620,1462314626,146291 1 1 1 1 1 1 1 1 1 1 14001: 4631,1463514639B1684714604FD0738305606TJ16859^D0738505606TD1859403126TD1460803125/D06025049613J09711 1 1 1 1 1 1 1 1 1 14101: ^B1114714619^D1776503124TD1461903123/D06025049613J09711^B1114714622^D1778503125TD1462203124/D0602504 1 1 1 1 1 1 1 1 1 14201: 9613J09711^B1114714625^D1781103131TD1462503131/D06025049613J09711^NJ17118^D1783703131TD1462803131/D0 1 1 1 1 1 1 11 1 1 1 14301: 6025049613J09711^NJ17344^D1795203131TB1114714638^BBD1463803132/D06025049613J09711^D1797003123TD14640 1 11 1 1 111 1 1 1 1 14401: 03123/B1114714640^BD06025049613J09711^D1786403123TD0602504961TJ09711^D1802603123TD1464003123/D060250 1 11 1 1 1 1 1 1 1 14501: 49613J09711^B1741814633^D0738705610TJ17356^B1743014633^D0738905612TD1792603131TD1463403132/D06025049 1 1 1 1 1 1 1 1 1 14601: 613J09711^J17430^D0739105610TD1785603124TD1463003123/B1114714630^BD06025049613J09711^D1790003123TD14 1 1 1 1 1 1 11 1 1 1 14701: 63003123/D06025049613J09711^D1788203123TD1463003123/D06025049613J09711^D1786403123TD0602504961TJ0971 1 1 1 1 1 1 1 1 1 14801: 1^B1766514604VD1799103126TD1460803126/D06025049613J09711^J17696^D1799103126TD06025049613J09711^D1800 1 1 1 1 1 1 1 1 1 1 14901: 803122TD06025049613J09711^D0739601174TJ01175^NN0PERPORCDDCW^^@^^@D1STANCE^^DCW^^@000@L0C1CTLDTAEQU^^ 1 1 1 1 11 1 1 15001: REC1N-1&^^^L0CLASTFLDEQU^^REC1N-1&^^^LENGTHCTL1DCW^^@00@DCW^^@"@C0NTROLFLDDCW^^#00BLANKF1ELDDCW^^#^^ 1 1 1 1 1 15101: L0CCTLDATAEQU^^CDRD1-1&^^^L0CNXTRCDFEQU^^CDRD1-1&^^^LGTHNXTRF1DCW^^#00CDRD1^^^^^DA^^^1X1000CLEARCDRD 1 1 1 1 1 15201: 1DCW^^#1BLNKNXTRF1DCW^^#^^FEATURES^^^^^^^OVERLAP,PRIORIT,CHANN1301CHAN1CHAN2DISKARMSRNDMDEPTH^^^^^^3 1 1 1 1 1 1 1 15301: STKAREA^^^^^^^^STACK1NGSTACK1NG^^DA^^^1X^^,X1,0,GSTKINDEX^^^^^^^X1SGMTLENGTHPROCESTYPE^^^^^RANDOMPRO 1 1 1 1 1 1 15401: CESTYPE^^^^^SEQUENTIALDTF^^D1SKFILEFILETYPE^^^^^^^DISK,INPUT,SEQUENTIALSIZERECHOLDAREA^^^^^^^H0LDARE 1 1 1 1 1 15501: AINDEXREG^^^^^^^X2FILEFORM^^^^^^^MOVE,SINGLEBLOCKSIZEFILEEND^^^^^^^^00000000EOFADDR^^^^^^^^E0FDSKL1M 1 1 1 1 1 1 15601: TFILESTART^^^^^^10000000NRECORDSH0LDAREA^^DA^^^1X29,GDA^^^1X^^^^,GORG^^H0LDAREADA^^^1X0031,X2,0,GSCR 1 1 1 1 1 1 1 15701: AMBLE^^^^^^^SCRAMB1ERECFORM^^^^^^^^BLOCKEDRECFORM^^^^^^^^VARIABLE,BLOCKEDRECS1ZE^^^DCW^^@^^^^@10803^ 1 1 1 1 15801: ^EOJ-NO^1405^CONTROL^CARD"10804^^EOJ-NO^1301^CONTROL^CARD"10805^^EOJ-ERRONEOUS^RG^CARD"10806^^EOJ-ER 11 11 11 15901: RONEOUS^1301^CARD"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1: RPG2^100001000010999J00000^J00000^ 1: S00074,13!P0T13!P1056322J10077//03180,03101D13!P903180LD0612603172TJ04750^N^^A0739800074B10110000716 1 1 1 1 1 1 1 1 1 1 1 1 101: J10006^N^^D0740301174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 3001: 080^^^^^^^^^^^^DTF^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^FILETYPE^^^^^^^ 3101: READER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^CARDPOC^^^^^^^^1^^^^^^^^^^^^^^^^^^^ 3201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^IOAREA^^^^^^^^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3301: ^^^^^^^^^^R^^^^^^^^'080^^EOFADD^^^^^^^^^E0F^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^' 3401: 080^^^^^^^^^^^^DTF^^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^FILETYPE^^^^^^^ 3501: PUNCH^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^CARDPOC^^^^^^^^4^^^^^^^^^^^^^^^^^^^ 3601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^IOAREAS^^^^^^^^PCH1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3701: ^^^^^^^^^^P^^^^^^^^'080^^^^^^^^^^^^DTF^^PR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^' 3801: 080^^FILETYPE^^^^^^^PRINTER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^IOAREAS^^^^^^^^ 3901: PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^RDCD1^^^^^SBR^^BCCK1&5^^^^^^^^^^^^^ 4001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^GET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4101: ^^^^^^^^^^M^^^^^^^^'080^^RDCD7^^^^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^' 4201: 080^^RAMACRC1D^B^^^^IN1TRAM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^EXTDR 4301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^BEG1N^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^ 4401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^GE7ADR^^^^S^^^^C1C,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4501: ^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^BCE^^NX7RAM,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^' 4601: 080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^C^^^^ 4701: L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^ 4801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^NX7RAM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4901: ^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^' 5001: 080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^CW^^^ 5101: PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^RA1^^^^^^^^^^^^^^^^^ 5201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^NX7RAM^^^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5301: ^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^' 5401: 080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^ 5501: GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^GE7ADR^^^^S^^^^C1C,BL0CTR,J^^^^^^^^ 5601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^BCE^^NX7RAM,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^ 5701: ^^^^^^^^^^^2^^^^^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^' 5801: 080^^^^^^^^^^^^C^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^BU^^^ 5901: *&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B^^^^NX7RAM^^^^^^^^^^^^^^ 6001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6101: ^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^' 6201: 080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B^^^^ 6301: RA1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^NX7RAM^^^^GET^^INFILE^^^^^^^^^^^^^^ 6401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^' 6601: 080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^GE7ADR^^^^A^^^^ 6701: C1C,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^C0NVNEEDEDNOP^^^^^^^^^^^^^^^^^^^^^^ 6801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^DC^^^CKPR0GRESS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6901: ^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^' 7001: 080^^^^^^^^^^^^C^^^^L3N78,N0PERBLCK^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BU^^^ 7101: CKPR0GRESS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^MLCA^C0C,L3N78^^^^^^^^^^^ 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^A^^^^C5C,L3N78-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7301: ^^^^^^^^^^^3^^^^^^^'080^^CKPR0GRESSC^^^^M0D4ENDCTL,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^' 7401: 080^^^^^^^^^^^^BH^^^M0D3RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^B^^^^ 7501: DISKRT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^L3N78^^^^^DCW^^#8^^^^^^^^^^^^^^^^^^ 7601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^RA1^^^^^^^MVRSAL3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7701: ^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^B^^^^DISKRT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 7801: 080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^B^^^^ 7901: BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^ 8001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8101: ^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^' 8201: 080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^ 8301: GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^^^^^ 8401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^^^^^^^^^^^B^^^^GE7ADR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8501: ^^^^^^^^^^^3^^^^^^^'080^^DISKRT^^^^ENTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^' 8601: 080^^^^^^^^^^^^ZA^^^LEGDATA0,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^ZA^^^ 8701: LEGDATA0,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^^^^^^^^^^^A^^^^X1,X6^^^^^^^^^^^^^^^ 8801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^A^^^^X1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8901: ^^^^^^^^^^Y^^^^^^^^'080^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^' 1: RPG3^100001011010999J00000^J00000^ 1: D0740801174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^080^^CONTD 2901: ^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^^^^^^^^^^^B^^^^CVTR00^^^^ 3001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'^^^^^^^^^^^^^^^LOAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: A^^^^^^^^^080^^^^^^^^^^^^MLCB^7&X1,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^RETU1 3301: ^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^MLCA^CONV1,IOCS 3401: DSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^X^^^^^^^^'080^^^^^^^^^^^^GET^^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: D^^^^^^^^'080^^^^^^^^^^^^PRSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 3701: ^^^^^SW^^^0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^C0MPARE^^C^^^^0&X2,0&X1^ 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^C^^^^0&X1,0&X1^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^L^^^^^^^^'080^^^^^^^^^^^^B^^^^SEQR0UT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: SF^^^^^^^'080^^^^^^^^^^^^BU^^^CHA1NE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^ 4101: ^^^^^BU^^^HALT2B^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^MLCA^N0T441L,MA 4201: XNUMTRL1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^SEQR0UT^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^^^^^^^^^^^S^^^^X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: D^^^^^^^^'080^^^^^^^^^^^^A^^^^RAM512E,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 4501: ^^^^^S^^^^C1C,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^SW^^^CDRD1^^^^^ 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^MLCWARAM512E,X8^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^M0VEMASTERMLCB^0&X2,CDRD1-1&X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4801: D^^^^^^^^'080^^CHECKFT000S^^^^C1C,MAXNUMTRL1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^ 4901: ^^^^^BCE^^FDSEQR0UTE,MAXNUMTRL1,J^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^FDSEQR0UTE 5001: ,CDRD1&6&X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^ 5301: ^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^ 5401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^RAMTRL1I^^MLNB^CDRD1&6&X7,RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5601: TR^^^^^^^'080^^^^^^^^^^^^BZN^^CHAN2RT,CDRD1&4&X7,&^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^ 5701: ^^^^^MLCA^C1C,RAMA0D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^GETTRLA1R^MLCWAX8,X7^^^^^ 5801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^MLNB^RAMA0D&7,IOCSDSKAD^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^GET^^TRA1LERFIL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6001: TR^^^^^^^'080^^C0MPARETL^C^^^^0&X3,0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^ 6101: ^^^^^C^^^^0&X1,0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^L^^^^^^^^'080^^^^^^^^^^^^BU^^^HALT2B^^^^ 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^A^^^^TRL512E,X3^^^^^^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^SW^^^CDRD1&X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6401: TR^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,X3^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^ 6501: ^^^^^A^^^^TRL512E,X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^MLCB^0&X3,CDRD1 6601: -1&X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B^^^^CHECKFT0002^^^^^^^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6801: D^^^^^^^^'080^^CHA1NE^^^^S^^^^C1C,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^ 6901: ^^^^^A^^^^RAM512E,X2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^HALT1B,0&X 7001: 2,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^ 7301: ^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^BCE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^MLCB^0&X2,RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: LC^^^^^^^'080^^^^^^^^^^^^BZN^^CHAN2M,RAMA0D&4,&^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^ 7701: ^^^^^MLCA^C1C,RAMA0D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^MLCA^RAMA0D&7,I 7801: OCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: ^3^^^^^^^'080^^FDSEQR0UTEMLCB^L0CFWDSEQ,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^ 8101: ^^^^^C^^^^L3N78,LEN6FWSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8401: ^4^^^^^^^'080^^^^^^^^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^FDSEQ 8501: R0UTEMLCB^L0CFWDSEQ,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,LEN6 8601: FWSEQ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: ^5^^^^^^^'080^^^^^^^^^^^^MLCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'^^^^^^^^^^ 1: RPG4^100001011010999J00000^J00000^ 1: D0741301174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^080^^^^^^^ 2901: ^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^FDSEQR0UTEMLCB^L0CFWDSEQ, 3001: L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,LEN6FWSEQ^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^BU^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: ^6^^^^^^^'080^^^^^^^^^^^^MLCA^RESTART1&6,RAMACRC1D&6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^ 3301: ^^^^^MLCA^RE1T,BEG1N1T&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^BCCK1^^^^^ 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: ^1^^^^^^^'080^^FDSEQR0UTEB^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^BL0CT 3701: R^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'080^^C5C^^^^^^^DCW^^@1@^^^^^^^ 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^V^^^^^^^^^EQU^^00000^^^^^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^DSA1AD^^^^DCW^^P0SIT0NCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: D^^^^^^^^'080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^ 4101: ^^^^^DC^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^ 4201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^RE1T^^^^^^DCW^^RAMACRC1D^^^^^^^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: ^5^^^^^^^'080^^^^^^^^^^^^DC^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^ 4501: ^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^RE1T^^^^^^DCW^^RAMACRC1D^ 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^RESTART1^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DC^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4801: ^6^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^RE1T^ 4901: ^^^^^DCW^^RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DCW^^@J@^^^^^^^ 5001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: ^4^^^^^^^'080^^^^^^^^^^^^DCW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^SAVE0 5301: 001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^DCW^^@J@^^^^^^^ 5401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5601: ^5^^^^^^^'080^^^^^^^^^^^^DCW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^SAVE0 5701: 001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^DCW^^@J@^^^^^^^ 5801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^SETUP1^^^^DC^^^M0D45601^^^^^^^^^^^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^DC^^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6001: ^6^^^^^^^'080^^^^^^^^^^^^DCW^^@.@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^SAVE0 6101: 001^^DCW^^@^^^^^^^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^MAXNUMTRL1DCW^^@00000@^^^ 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6401: ^5^^^^^^^'080^^BL0CTR^^^^DCW^^@00000@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^RAMA 6501: 0D^^^DCW^^@^^^^^^^^@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^CHAN2M^^^^MLCB^@2@,RAMA0D 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^MLCA^RAMA0D&7,IOCSDSKAD^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^^^^^^^^^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6801: LC^^^^^^^'080^^M0D45601^^MLCWBSAVE0001,8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^ 6901: ^^^^^MLCWB^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^ 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^M0D45601^^MLCWBSAVE0001,8^^^^^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWB^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: ^5^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^M0D45 7301: 601^^MLCWBSAVE0001,8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWB^^^^^^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^HALT1B^^^^CONSLWCP,ERR0R^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: LC^^^^^^^'080^^^^^^^^^^^^SW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^ 7701: ^^^^^MLCA^SETUP1,*&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^CW^^^SETUP1-4^^ 7801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^SW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^SETUP1,*&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: ^5^^^^^^^'080^^^^^^^^^^^^CW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^ 8101: ^^^^^SW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^SETUP1,*&1 8201: 2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^CW^^^SETUP1-4^^^^^^^^^^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8401: LC^^^^^^^'080^^CJ1^^^^^^^DCW^^@J@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^ERR0 8501: R^^^^DCW^^@CHAIN^ADD^ERR@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^LC^^^^^^^'080^^CHAN2RT^^^MLCA^@2@,RAMA0D 8601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^B^^^^GETTRLA1R^^^^^^^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^HALT2B^^^^CONSLWCP,STATM1T^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: D^^^^^^^^'080^^^^^^^^^^^^SW^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'^^^^^^^^^^ 1: RPG5^100001011010999J00000^J00000^ 1: D0741801174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^080^^^^^^^ 2901: ^^^^^MLCWB8,SAVE0001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8 3001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^MLCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: ^4^^^^^^^'080^^^^^^^^^^^^SW^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^ 3301: ^^^^^MLCWB8,SAVE0001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: ^5^^^^^^^'080^^^^^^^^^^^^SW^^^SAVE0001-7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^ 3701: ^^^^^MLCWB8,SAVE0001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWASETUP1&2,8 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCWA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^H^^^^FDSEQR0UTE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: ^6^^^^^^^'080^^^^^^^^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^'080^^^^^^^ 4101: ^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^'08^^^^^^^^^^^^^H^^^^READ1^^^^^ 4201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^STATM1T^^DCW^^@CTL^DATA^CK@,G^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^IN1TRAM^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: D^^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,LEGDATA0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 4501: ^^^^^SW^^^X7-4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S^^^^LEGDATA0,R 4601: A1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,TR4LCTLDTA^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,R3CCTLDTA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4801: D^^^^^^^^'080^^^^^^^^^^^^A^^^^R3CCTLDTA,C0MPARE&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 4901: ^^^^^A^^^^LEGDATA0,C0MPARE&10^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^A^^^^TR4LCTLDTA 5001: ,C0MPARETL&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^A^^^^LEGDATA0,C0MPARETL&10^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^TR^^^^^^^'080^^^^^^^^^^^^SW^^^N0PERBLCK^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: ^3^^^^^^^'080^^M0D3RD^^^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^ 5301: ^^^^^MLCB^P0SIT0NCTL,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,* 5401: &6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'08^^^RESTART1^^MLCB^P0SIT0NCTL,M0D4ENDCTL^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,RESTART1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5601: ^3^^^^^^^'080^^^^^^^^^^^^S^^^^C1C,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^ 5701: ^^^^^BCE^^C0NVS0NRT,RETU1&1,D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^BCE^^TRACKCASE1 5801: ,H0LDAREA&1026,"^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^M0D456^^^^B^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^M0D456RD^^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6001: ^4^^^^^^^'080^^^^^^^^^^^^MLCB^P0SIT0NCTL,L3N78^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^M0D45 6101: 6^^^^S^^^^C1C,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^BCE^^M0D456RD,B 6201: L0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^^^^^^^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6401: ^5^^^^^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^ 6501: ^^^^^B^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^SW^^^PLACE1&1^^ 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,PLACE1&5^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6801: ^5^^^^^^^'080^^M0D456^^^^S^^^^C1C,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^ 6901: ^^^^^BCE^^M0D456RD,BL0CTR,J^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^PLACE1^^^^MLCB^0,L3N78^^^ 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^C^^^^L3N78,C0MPRBLCTL^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: ^6^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^ 7301: ^^^^^SW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^A^^^^D15TANCE,P 7401: LACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^CW^^^PLACE1&1^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: ^6^^^^^^^'080^^^^^^^^^^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^ 7701: ^^^^^MLCA^N0P,RAMACRC1D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^'080^^BEG1N1T^^^B^^^^BEG1N^^^^^ 7801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^C0NVS0NRT^MLCA^CJ1,C0NVNEEDED^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: ^3^^^^^^^'080^^TRACKCASE1MLCS^@5@,C5C^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^^^^^^ 8101: ^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^'080^^M0D456RD^^GET^^READER0^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA,BL0CTR^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8401: ^5^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^'080^^M0D45 8501: 6RD^^GET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^C0NTR0LDTA 8601: ,BL0CTR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^MLCA^DSA1AD,PLACE1&5^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^^6^^^^^^^'080^^^^^^^^^^^^B^^^^M0D456^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: ^6^^^^^^^'080^^BCCK1^^^^^B^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'^^^^^^^^^^ 1: RPG6^100001011010999J00000^J00000^ 1: D0742301174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^080^^TEMP1 2901: N^^^^EQU^^PRT0-1&200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^INPUT1^^^^EQU^^CDRD1-1&20 3001: 0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^CDRD1^^^^^EQU^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^CONV1^^^^^EQU^^RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: X^^^^^^^^'080^^CONV1^^^^^EQU^^RAMA0D&7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^'080^^CDRD1 3301: ^^^^^EQU^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^CXP1^^^^^^EQU^^CDRD1^^^^^ 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^TEMP1N^^^^EQU^^PRT0&79^^^^^^^^^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^INPUT1^^^^EQU^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: C^^^^^^^^'080^^OUT1^^^^^^EQU^^PRT0-200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^ME5G 3701: 2^^^^DCW^^@RECORD^TYPE^NOT^FOUND@,G^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CL0SEDSK^^NOP^^^^^^^^^^^^ 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^B^^^^DSKCL0SED^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: A^^^^^^^^'080^^NEXT00^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CL0SE 4101: ^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CLOSEREADER0^^^ 4201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^^^^^^^^^^^CLOSEPUNCHF1LE^^^^^^^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^^^^^^^^^^^CLOSEPR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: W^^^^^^^^'080^^^^^^^^^^^^CLOSEINFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^ 4501: ^^^^^CONSLWCP,E0JX^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^NEXT00^^^^ 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^EXIT1^^^^^B^^^^START1^^^^^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^RAMACRC1D^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4801: SF^^^^^^^'080^^LEGDATA0^^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^R3CCT 4901: LDTA^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^SF^^^^^^^'080^^START1^^^^CS^^^CDRD1&999^ 5001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 5301: ^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^ 5401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5601: D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 5701: ^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^PCH1&79^^^ 5801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^START1^^^^MLCA^RECS1Z,X5^^^^^^^^^^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^^^^^^CS^^^CDRD1-1&X5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6001: M^^^^^^^^'080^^START1^^^^CS^^^PCH1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^^^^^^ 6101: ^^^^^CS^^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^^^^^^^^^^^OPEN^INFILE^^^^ 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^M^^^^^^^^'080^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6401: 6^^^^^^^^'080^^^^^^^^^^^^OPEN^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^^^^^^ 6501: ^^^^^OPEN^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^^^^^^^^^^^OPEN^PR1NTER0^^ 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^'080^^^^^^^^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^OPEN^TRA1LERFIL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6801: TR^^^^^^^'080^^^^^^^^^^^^B^^^^OPEN0UT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^OPEN0 6901: UT^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^N^^^^^^^^'080^^SW00^^^^^^SW^^^CDRD1&0,PC 7001: H1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^HA0000^^^^^^^^^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^READ1^^^^^CS^^^CDRD1-1&X5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: M^^^^^^^^'080^^READ1^^^^^CS^^^CDRD1&999^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 7301: ^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 7701: ^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^ 7801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: D^^^^^^^^'080^^^^^^^^^^^^CS^^^PCH1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^READ1 8101: ^^^^^CS^^^CDRD1&79^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^^^^^^^^^^^B^^^^RDCD1^^^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^ZA^^^LEGDATA0,X4^^^^^^^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^^^^^^A^^^^X1,X4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8401: D^^^^^^^^'080^^CTLDTA^^^^EQU^^0&X4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^^^ 8501: ^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^ENTRY1^^^^CW^^^CONF1^^^^^ 8601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^CONBK1,CONBK1-1^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^CONF1,PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: A^^^^^^^^'080^^^^^^^^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'^^^^^^^^^^ 1: RPG8^100001000010999J00000^J00000^ 1: S00074,13!O9T13!P0056322J10077//03180,03101D13!P903180LD0612603171TJ04750^N^^A0739800074B10110000716 1 1 1 1 1 1 1 1 1 1 1 1 101: J10006^N^^D0742801174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 3001: ^^^^^^^^^^^^^^^DTF^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^^^^^^^^FILETYPE^^^^^^^ 3101: READER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^^^^^^^^CARDPOC^^^^^^^^1^^^^^^^^^^^^^^^^^^^ 3201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^^^^^^^^IOAREA^^^^^^^^^REC1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3301: ^^^^^^^^^R^^^^^^^^^^^^^^^EOFADD^^^^^^^^^E0F^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^^^ 3401: ^^^^^^^^^^^^^^^DTF^^PR1NTER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^^^^^^^^FILETYPE^^^^^^^ 3501: PRINTER^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^^^^^^^^IOAREA^^^^^^^^^PRT0^^^^^^^^^^^^^^^^ 3601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^W^^^^^^^^^^^^^^^^^^^^^^^^^DTF^^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3701: ^^^^^^^^^P^^^^^^^^^^^^^^^FILETYPE^^^^^^^PUNCH^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^^^ 3801: ^^^^^CARDPOC^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^^^^^^^^IOAREAS^^^^^^^^ 3901: PCH1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^^^^^^^^RDCD1^^^^^SBR^^BCCK1&5^^^^^^^^^^^^^ 4001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^ROUTIN1301NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4101: ^^^^^^^^^F^^^^^^^^^^^^^^^^^^^^^^^^^B^^^^IN1TIAL1Z^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^ 4201: ^^^^^^^^^^^^^^^LEVDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^LEVDR 4301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^LEVDR^^^^^^^^^^^^^^^^^^^^ 4401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^LEVDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4501: ^^^^^^^^^^6^^^^^^^^^^^^^^BEG1N^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^ 4601: ^^^^^NXTRCDC0NVNOPWM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^B^^^^ 4701: CVTN00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^*^DEBLOCKING^ROUTINE^FOR^PROCESSING 4801: ^ORDER^RECORDS^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^*^DEBLOCKING^ROUTINE^FOR^PROCESSING^ORDER^RECORDS^^^^^^ 4901: ^^^^^^^^^^2^^^^^^^^^^^^^^GETADDRES5S^^^^C1C,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^ 5001: ^^^^^^^^^^^^^^^BCE^^NEXTREC0RD,BL0CKCOUNT,J^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^DEBL0CKRECMLC^^ 5101: 0&X7,C0NTROLFLD^^^^^^^J^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^C^^^^C0NTROLFLD,BLANKF1EL 5201: D^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5301: ^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^B^^^^NEXTREC0RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^ 5401: ^^^^^^^^^^^^^^^A^^^^D1STANCE,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^B^^^^ 5501: RA1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^NEXTREC0RDGET^^READER0^^^^^^^^^^^^^ 5601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^MLCA^&L0C1CTLDTA,X7^^^^^^^^^^^^^^^^^^^^^^^^^^ 5701: ^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^MLCA^N0PERPORCD,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^ 5801: ^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^GETADDRES5S^^^^ 5901: C1C,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^BCE^^NEXTREC0RD,BL0CKCOUN 6001: T,J^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^DEBL0CKRECMLC^^0&X7,C0NTROLFLD^^^^^^^^^^^^^^^^^^^^^^^^^ 6101: ^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^C^^^^C0NTROLFLD,BLANKF1ELD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^ 6201: ^^^^^^^^^^^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^B^^^^ 6301: NEXTREC0RD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^A^^^^D1STANCE,X7^^^^^^^^^ 6401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^B^^^^RA1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^^^^^^2^^^^^^^^^^^^^^NEXTRECORDGET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^ 6601: ^^^^^^^^^^^^^^^MLCA^&L0C1CTLDTA,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^MLCA^ 6701: N0PERPORCD,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^ 6801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^*^GET^1301^RECORD^ROUTINE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6901: ^^^^^^^^^F^^^^^^^^^^^^^^^RA1^^^^^^^MVRSAC0NTROLFLD&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^ 7001: ^^^^^RA1^^^^^^^MVRSAC0NTROLFLD&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^RA1^^^^^^^MVRSA 7101: C0NTROLFLD&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^RA1^^^^^^^MVRSAC0NTROLFLD&1^^^^^^^^ 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^DISKROUTIN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7301: ^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^B^^^^DISKROUTIN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^ 7401: ^^^^^^^^^^^^^^^B^^^^DISKROUTIN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^B^^^^ 7501: DISKROUTIN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^FSEQP^^^^^^^^^^^^^^^^^^^^ 7601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^FSEQP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7701: ^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^ 7801: ^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^B^^^^ 7901: BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^ 8001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^DISKROUTINENTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8101: ^^^^^^^^^^1^^^^^^^^^^^^^^DISKROUTINENTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^ 8201: ^^^^^DISKROUTINENTDR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^DISKROUTINENTDR 8301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETD1SKREC^^^^^^^^^^ 8401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETD1SKREC^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8501: ^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^ZA^^^LENGTHCTL1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^^^ 8601: ^^^^^^^^^^^^^^^ZA^^^LENGTHCTL1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^ 8701: X1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^ 8801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^X1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8901: ^^^^^^^^^X^^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^^^ 1: RPG9^100001011010999J00000^J00000^ 1: D0743301174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2901: ^^^^^MLCA^11&X1,CONV1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^MLCA^11&X1,CONV 3001: 1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^MLCA^11&X1,CONV1^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^MLCA^11&X1,CONV1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: 6^^^^^^^^^^^^^^RETU1^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^^^^^^^^^^^ 3301: ^^^^^CW^^^REC0RD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^CW^^^REC0RD1^^^ 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,H0LDAREA&28^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^RETURNRA2^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: 4^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,H0LDAREA&28^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^RETUR 3701: NRA2^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,IOCS 3801: DSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: 5^^^^^^^^^^^^^^^^^^^^^^^^MLCA^CONV1,IOCSDSKAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^GETD1 4101: SKRECGET^^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^FL^^^^^^^^^^^^^^GETD1SKRECGET^^D1SKFILE^T 4201: O^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^FSEQP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: 1^^^^^^^^^^^^^^^^^^^^^^^^FSEQP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^ 4501: ^^^^^MLCWARECS1ZE,X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^FL^^^^^^^^^^^^^^^^^^^^^^^^A^^^^RECS1ZE,X2 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^FL^^^^^^^^^^^^^^^^^^^^^^^^S^^^^C1C,X2^^^^^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^FL^^^^^^^^^^^^^^MOVEMASTERMLCB^0&X2,CDRD1-1&X8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F 4801: L^^^^^^^^^^^^^^^^^^^^^^^^SW^^^0&X1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^^^^^^ 4901: ^^^^^SW^^^ROUTIN1301&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^^SW^^^ROUTIN1301 5001: &1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^CKCTLDATA1C^^^^L0CCTLDATA,CONTD^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^^^^^^^^^^^BU^^^CHA1NROUT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 5201: H^^^^^^^^^^^^^^^^^^^^^^^^BU^^^HALT2B^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^NXTRF 5301: LDRT1MLC^^L0CNXTRCDF,LGTHNXTRF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^C^^^^LGTHNXTRF1 5401: ,BLNKNXTRF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^BE^^^NXTRCDB1NK^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^MLCA^&LGTHNXTRF1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^N 5601: C^^^^^^^^^^^^^^^^^^^^^^^^SW^^^NXTRCDC0NV&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^ 5701: ^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^NXTRCDB1NKSW^^^ROUTIN1301 5801: &1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^MLCA^&ROUTIN1301&1,BEG1N1T&5^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BCCK1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F 6001: ^^^^^^^^^^^^^^^HALT1B^^^^CONSLWCP,ERR0R^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^^^^^^ 6101: ^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^^ERR0R^^^^DCW^^@CHAIN^ADD 6201: ^ERR@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^CHA1NROUT^MLCA^L0CNXTRCDF,LGTHNXTRF1^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^^^^^^^^^^^C^^^^LGTHNXTRF1,BLNKNXTRF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 6401: H^^^^^^^^^^^^^^^^^^^^^^^^BU^^^HALT1B^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^MLCA^&LGTHNXTRF1,X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTN00^^^^ 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTN00^^^^^^^^^^^^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^Y^^^^^^^^^^^^^^^^^^^^^^^^MLCA^0&X6,CONV1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 6801: H^^^^^^^^^^^^^^^^^^^^^^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CH^^^^^^^^^^^^^^BCCK1 6901: ^^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^^^^^^CONTD^^^^^DCW^^#4^^^^^^^^ 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^CONTD^^^^^DCW^^#4^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^CONV1^^^^^DCW^^#6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: 3^^^^^^^^^^^^^^CONV1^^^^^DCW^^#6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^CONV1 7301: ^^^^^DCW^^#12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^CONV1^^^^^DCW^^#12^^^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^CONV1^^^^^DCW^^#12^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^CONV1^^^^^DCW^^#12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: 6^^^^^^^^^^^^^^CVTNOO^^^^EQU^^CVTN00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^^^^^^^CVTR0 7701: 0^^^^EQU^^CVTROO^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^X^^^^^^^^^^^^^^^CONTD^^^^^EQU^^0&X6^^^^^^ 7801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: 5^^^^^^^^^^^^^^CONTD^^^^^EQU^^0&X6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^HALT2 8101: B^^^^CONSLWCP,STATM1T^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^^^^^^^^^^^H^^^^READ1^^^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^^STATM1T^^DCW^^@CTL^DATA^CK@,G^^^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^CK^^^^^^^^^^^^^^BL0CKCOUNTDCW^^@00@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F 8401: ^^^^^^^^^^^^^^^E0FDSKL1MTCLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^GETL1 8501: MITS^GET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLC^^L0C1CTLDTA 8601: ,CONV1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLC^^L0C1CTLDTA-8,CONTD^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLCS^L0C1CTLDTA-8,IOCS51STRT-2^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: 4^^^^^^^^^^^^^^^^^^^^^^^^MLCS^L0C1CTLDTA-6,IOCS51STRT-6^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^ 1: RPG10100001011010999J00000^J00000^ 1: D0743801174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 2901: ^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLCS^^^^^^^^^^^ 3001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLC^^L0CLASTFLD,IOCS51END-2^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: 4^^^^^^^^^^^^^^^^^^^^^^^^MLC^^IOCS51STRT-6,IOCS51END-6^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^ 3301: ^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^ 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^E0FDSKL1MTCLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^GETL1MITS^GET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3601: 3^^^^^^^^^^^^^^^^^^^^^^^^MLC^^L0C1CTLDTA,CONV1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^ 3701: ^^^^^MLC^^L0C1CTLDTA-8,CONTD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLCS^L0C1CTLDTA 3801: -6,IOCS51STRT-6^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLCS^L0C1CTLDTA-8,IOCS51STRT-2^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: 3^^^^^^^^^^^^^^^^^^^^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^ 4101: ^^^^^MLCS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLC^^L0CLASTFLD 4201: ,IOCS51END-2^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLC^^IOCS51STRT-6,IOCS51END-6^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4401: 3^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^IN1TI 4501: AL1Z^CW^^^ROUTIN1301&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^^^^^^^^^^^^^^^^CW^^^NXTRCDCONV 4601: &1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^NC^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETL1MITS^^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETL1MITS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4801: 4^^^^^^^^^^^^^^^^^^^^^^^^S^^^^LENGTHCTL1,RA1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^ 4901: ^^^^^S^^^^LENGTHCTL1,RA1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^OPEN^D1SKFILE^^ 5001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^NOPWM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: 5^^^^^^^^^^^^^^ONCEONLY^^B^^^^GETADDRES5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^ 5301: ^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^S^^^^LENGTHCTL1 5401: ,RA1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^SW^^^ONCEONLY^^^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^NOPWM^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5601: 6^^^^^^^^^^^^^^ONCEONLY^^B^^^^GETADDRES5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^ 5701: ^^^^^OPEN^D1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^S^^^^LENGTHCTL1 5801: ,RA1&12^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^SW^^^ONCEONLY^^^^^^^^^^^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^S^^^^C1C,LENGTHCTL1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C 6001: K^^^^^^^^^^^^^^*^DEBLOCKING^ROUTINE^FOR^PROCESSING^ORDER^RECORDS^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^GETAD 6101: DRES5S^^^^C1C,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^BCE^^NEXTREC0RD 6201: ,BL0CKCOUNT,J^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^DEBLOCKRECMLC^^0&X7,C0NTROLFLD^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^C^^^^C0NTROLFLD,BLANKF1ELD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6401: 5^^^^^^^^^^^^^^^^^^^^^^^^A^^^^D1STANCE,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^BU^^^*&8^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^B^^^^NEXTREC0RD 6601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N1T^^^^^^^^^^^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^NEXTREC0RDGET^^READER0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6801: 5^^^^^^^^^^^^^^^^^^^^^^^^MLCA^N0PERPORCD,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^ 6901: ^^^^^MLCA^&L0C1CTLDTA,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETADDRES5 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^GETADDRES5S^^^^C1C,BL0CKCOUNT^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^BCE^^NEXTREC0RD,BL0CKCOUNT,J^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: 6^^^^^^^^^^^^^^DEBLOCKRECMLC^^0&X7,C0NTROLFLD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^ 7301: ^^^^^C^^^^C0NTROLFLD,BLANKF1ELD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^BU^^^*&8^^^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^NEXTREC0RD^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^BEG1N1T^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7601: 6^^^^^^^^^^^^^^^^^^^^^^^^A^^^^D1STANCE,X7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^NEXTR 7701: EC0RDGET^^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^MLCA^N0PERPORCD 7801: ,BL0CKCOUNT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^MLCA^&L0C1CTLDTA,X7^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^GETADDRES5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8001: 6^^^^^^^^^^1^^^BEG1N1T^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^BEG1N 8101: 1T^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^BEG1N1T^^^B^^^^BEG1N^^^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^BEG1N1T^^^B^^^^BEG1N^^^^^^^^^^^^^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^SCRAMB1E^^SBR^^RETURNRA2&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8401: 3^^^^^^^^^^^^^^^^^^^^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^REC0R 8501: D1^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^MLCA^H0LDAREA&1 8601: 0,CONTD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^SCRAMB1E^^SBR^^RETURNRA2&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8801: 4^^^^^^^^^^^^^^^^^^^^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^ 1: RPG11100001011010999J00000^J00000^ 1: D0742301174TJ01175^NN^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 11 2801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^REC0R 2901: D1^^^B^^^^RETU1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^MLCA^H0LDAREA&1 3001: 0,CONTD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^B^^^^CVTR00^^^^^^^^^^^^^^^^^^^^^^^^ 3101: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^B^^^^RDCD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F 3201: ^^^^^^^^^^^^^^^TEMP1N^^^^EQU^^PRT0-1&200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^^^^^^INPUT 3301: 1^^^^EQU^^CDRD1-1&200^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F^^^^^^^^^^^^^^^CXP1^^^^^^EQU^^CDRD1^^^^^ 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^OUT1^^^^^^EQU^^PRT0-200^^^^^^^^^^^^^^^^^^^^^^ 3501: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^ME5G2^^^^DCW^^@RECORD^TYPE^NOT^FOUND@,G^^^^^^^^^^^^^^^^^^^^^^^^A 3601: ^^^^^^^^^^^^^^^CL0SEDSK^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^ 3701: ^^^^^CLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^CLOSED1SKFILE^^ 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^CLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^CLOSED1SKFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: 6^^^^^^^^^^^^^^^^^^^^^^^^CLOSEINFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^ 4101: ^^^^^CLOSEINFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^CLOSEINFILE^^^^ 4201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^DSKCL0SED^^^^^^^^^^^^^^^^^^^^^ 4301: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^NEXT00^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A 4401: ^^^^^^^^^^^^^^^CL0SE^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^ 4501: ^^^^^CONSLWCP,E0JX^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^B^^^^NEXT00^^^^ 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^EXIT1^^^^^B^^^^START1^^^^^^^^^^^^^^^^^^^^^^^^ 4701: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^START1^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^F 4801: ^^^^^^^^^^^^^^^^^^^^^^^^^B^^^^OPEN0UT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^^^^^^^^SW00^ 4901: ^^^^^SW^^^PCH1,CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^OPEN^INFILE^^^^ 5001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^^^^^^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^ 5101: ^^^^^^^^^^^^^^^^^^^^4^^^^^^^^^^^^^^^^^^^^^^^^OPEN^INFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5201: 6^^^^^^^^^^^^^^^^^^^^^^^^B^^^^HA0000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^READ1 5301: ^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^CS^^^CDRD1&999^ 5401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5501: ^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^V 5601: L^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^ 5701: ^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^ 5801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5901: ^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^V 6001: L^^^^^^^^^^^^^^^^^^^^^^^^CS^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^VL^^^^^^^^^^^^^^^^^^^ 6101: ^^^^^B^^^^RDCD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^ENTRY1^^^^CW^^^CONF1^^^^^ 6201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^MLC^^CONBK1,CONBK1-1^^^^^^^^^^^^^^^ 6301: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^SW^^^CONF1,PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A 6401: ^^^^^^^^^^^^^^^^^^^^^^^^^SW^^^CDRD1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^B^^^^RA0100^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^ME5G1^^^^DCW^^@INPUT^REC 6601: ^OUT^OF^SEQ@,G^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^SWICH4^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^ 6701: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A 6801: ^^^^^^^^^^^^^^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^ 6901: ^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^3^^^^^^^^^^^^^^^^^^^^^^^^ORG^^*&X00^^^^^ 7001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^REC1N^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^ 7101: ^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^REC1N^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7201: 3^^^^^^^^^^^^^^REC1N^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^ 7301: ^^^^^LOAD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^ORG^^*&X00^^^^^ 7401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^PCH1^^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^ 7501: ^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A 7601: ^^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^^^^^^^^*^^^^ 7701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^ 7801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7901: ^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 8001: B^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^ 8101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^ 8201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8301: ^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 8401: B^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^ 8501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^ 8601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 8701: ^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^B 8801: B^^^^^^^^^^^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^BB^^^^^^^^^^^^^^^^^^^ 1: RPG7^100001008810999J00000^J00000^ 1: B1011905631FB1011913!!4*J10006^B10277097450B10239097452/03180,03101D1036803127TD02841031253DDD103700 1 1 1 1 1 1 1 1 1 111 101: 31273J04750^/03180D1041903130TD02841031303DDJ10477^/03180,03101D1037003129TJ04750^J10459^/03180,0310 1 1 1 1 111 1 1 1 1 1 1 1 201: 1D1039403129TJ04750^/03180D1041903130TD10390031303DDJ10477^PRT0^^^^^^DA^^^1X132,',GPRT0^^^^^^DA^^^1X 1 1 1 1 1 111 1 1 301: 100,',GPR1NT^^^^^EQU^^PRT0-1&132I0000A^^^^ORG^^500T0000A^^^^ORG^^I0000A/03180D1041903130TJ04750^/031 1 1 1 1 1 1 1 401: 80D1043703123TJ04750^/03180D0556903123TJ04750^/03180D1045803126TJ04750^/03180/02880,0280102806,02842 1 1 1 1 1 1 1 1 1 1 1 1 501: 02844,0286902836/02975D0744301174TJ01175^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 2901: ^^^^^^^^^^^^080^^^^^^^^^^^^B^^^^RA0100^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^ME 3001: 5G1^^^^DCW^^@INPUT^REC^OUT^OF^SEQ@,G^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^SWICH4^^^^B^^^^00000^^^ 3101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^DCW^^@^@^^^^^^^^^^^^^^^^^^^^^^^^^ 3201: ^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3301: ^^D^^^^^^^^'080^^CDRD1^^^^^DA^^^1X1000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D^^^^^^^^'080^^^^^ 3401: ^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C^^^^^^^^'080^^REC1N^^^^^DA^^^1X80,G^^ 3501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^R^^^^^^^^'080^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^ 3601: ^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^PCH1^^^^^^DA^^^1X80,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3701: ^^A^^^^^^^^'080^^^^^^^^^^^^ORG^^*&X00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^*^^^ 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^ 3901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: RPGIN100001000014000J00000^J00000^ 1: J05438^B1017402801CB1017402801TB1017402801DB1006202801SJ13378^D1495702939CD02804029321J03587^/02975D 1 1 1 1 1 1 1 1 1 1 1 101: 1469502922CJ03587^/02975D1478102916C,02908D1491802913CJ03587^/02975J10000^)03069D0307403073C,03069V1 1 1 1 1 1 1 1 1 1 1 1 1 201: 0270028022A1455014554D1455614568CD14570D1469514971CD1485802805CJ10336^A1457314562B10306145741D145781 1 1 1 1 1 1 1 1 1 301: 4562CAD1456214568CD14572D1496414971CD1457414575C,14583A1455014584)14583D0280503005C/02976D1456802913 11 1 1 1 1 1 1 1 1 1 401: CD1459514601CB1070002840^B1056602840CB1046802840DD1460202916CJ10578^D1455014603CD1460802932CD0283814 1 1 1 1 1 1 1 1 1 501: 639CD1463902920CD14730J03587^/02975D1460802932CD1460902916CJ10602^D1460902916CD0283814639CD146390293 1 1 1 1 1 1 1 1 1 1 601: 1CD0284114579CD1457902939CB1067502839ND1498102926CJ03587^/02975D1460902916CD1458502922CJ03587^/02975 1 1 1 1 1 1 1 1 1 1 701: B10786146011D0283502841CDD1460014601CJ10413^I0000B^^^^ORG^^T0000AT0000B^^^^ORG^^I0000BB1105702843^B1 1 1 11 1 1 1 1 1 801: 081602908D/02975D0284302932CD14665D1467002919CD14652D1455014671CJ03587^/03180D1076403126T,10759A0600 1 1 1 1 1 1 1 1 1 1 1 901: 910764)10759A0600910749J04750^/02975D1467202924CD1491102917CD0284302912CD14665D14550J03587^/03180D10 1 1 1 1 1 1 1 1 1 1 1 1 1001: 78503126T,10780A0600910785)10780A0600910770J04750^J11071^J05438^J10401^D1459514601CD1468611282C,1461 1 1 1 1 1 1 1 1 1 1 1 1101: 4A1455014615)14614/02975D1456802913CD1470902908CB1128402873^D1455014687CD14601146511D0287114639CD146 1 1 1 1 1 1 1 1 1 1 1201: 5102932CDJ03587^/02975D1468802939CD14601146131D1461502922CDJ03587^/02975D0287303073CB11351146011,112 11 1 1 1 1 11 1 1 1 1 1301: 78S0744411282)11278D0286802873CDD1460014601CJ11148^D1497102922CJ03587^B11389146871J11620^D1467214687 1 1 1 11 1 1 1 1 1 1 1401: CD1459514601CD1471411551CB1155303073^D14601146341D14601146131D1463402932CJ03587^/02975D14601146511D0 1 1 1 1 1 1 1 1 1 1 1501: 307114639CD1465102932CD14652J03587^/02975D0307314726CB11351146011,11547S0744511551)11547D0306803073C 1 1 1 1 1 1 1 1 1 1 1601: DD1460014601CJ11425^J05438^B1163902801*D1467214574CC0280303003J11890/D1455014574CD0300314741C/02975D 11 1 1 1 1 1 1 1 1 1 1 1701: 1458502913CV11975030022D1455614736CA1455014734D1473602922CD14552D14609J03587^/02975D1455602913CDB118 1 1 1 1 1 1 1 1 1 11 1801: 52145751D1477002937CD1474302922CDD14652J03587^/02975D1455602922CD14570D14609J03587^J10007^D146721457 1 1 11 1 1 1 1 1 1 1 1 1901: 9CB1192603005^D1455014579CD1457909872CDD03003,11932A1483511936)11932J11681^B1247703005^B1201803004NB 1 1 1 11 1 1 1 1 1 1 1 2001: 12296145740J12671^B12421145741D1467202939CD1498402933CD03003D14988D1499002917CJ03587^/02975D14984029 1 1 1 1 1 1 1 1 1 1 2101: 33CD03003D1499402919CJ03587^/02975D1456214736CD1457814736CAD1473602922CDD14609J03587^D1476002937CD14 1 1 1 1 1 1 11 11 1 1 1 2201: 75002918CD14652J03587^/02975D1473602933CDD1477902922CD1473602913CD14750D06025049613J03587^/02975D148 1 1 1 1 11 1 1 1 1 1 1 2301: 1202933CD1479502922CJ03587^/02975D1480602922TJ03587^D1483002933CJ03587^/02975D1474402922CD14609D1455 1 1 1 1 1 1 1 1 1 1 1 2401: 014747CJ03587^J12720^D1456214736CA1457314736D1473602922CDD14609J03587^J12720^B12671145741D1491802922 1 1 1 1 1 11 1 1 1 1 2501: CB1252703004NJ03587^J12720^D1467202939CD1498402933CD03003J03587^/02975D1498402933CD03003D1499402919C 1 1 1 1 1 1 1 1 1 1 1 2601: J03587^/02975D1456214736CD1457814736CAD1473602922CDD14609J03587^J12720^D1456214736CA1457314736D14736 1 1 1 1 11 11 1 1 1 1 1 2701: 02922CDD14609J03587^/02975D1456202913CDD1484102933CD1484502919CB1281215001^C0300314851J12800/J12812^ 11 1 1 1 11 1 1 1 1 1 2801: D1484902919CJ03587^B12855150011B1285503005XD1455015001C/02975D1477002937CD1474302922CDD14652J03587^/ 1 1 1 1 1 1 1 1 11 1 1 2901: 02975B13089145751D1476002937CD1456214736CB12971030041A1455014736J12984^D1457814736CAD1473602922CD147 1 1 1 1 1 1 1 11 1 3001: 50D14652J03587^/02975D1473602933CDD1477902922CD1473602913CD14750D06025049613J03587^/02975D1456202922 1 1 1 1 11 1 1 1 1 1 1 3101: CD14572D14609J03587^B10007030041B10007145751/02975D1456214736CA1455014736D1473602913CDD1498402933CD0 1 1 1 1 1 1 1 1 1 11 1 3201: 3003D1499802919CJ03587^/02975D1477002937CD1474302922CDD14652J03587^/02975D1456202922CD14572D14609J03 1 1 1 1 1 11 1 1 1 1 1 1 3301: 587^/02975D1467202924CD1467602917CD14984D03003D14550D06025049613J03587^J10007^/02975B1339702801*.A14 1 1 1 1 1 1 1 1 1 1 1 11 3401: 55014554D1455602913CDC1456214898J13465/D1478102916CJ03587^J13628^D1475602922CD14609J03587^/02975D148 1 11 1 1 1 1 1 1 1 1 1 3501: 9402922CD14756J03587^/02975D1457814562CAD1489402922CD14562DJ03587^/02975D1456202933CDD1477402917CD14 1 1 1 1 11 1 11 1 1 11 1 3601: 562D14750D06025049613J03587^A1193614901D1490109860V/02975D1478002924CD1468102922CD1478402910CD14550D 1 1 1 1 1 1 1 1 1 1 1 3701: 06025049613J03587^D1460902924CD1478702910CD06025049613J03587^D1455002924CD1467002910CD06025049613J03 1 1 1 1 1 1 1 1 1 3801: 587^D1467202924CD1467202909CD06025049613J03587^B13902146030D1455002924CD1460802912CD06025049613J0358 1 1 1 1 1 1 1 1 1 3901: 7^B13957147470D1467202924CD1485702913CD06025049613J03587^/03180D1076403126TJ04750^/02975D1467202924C 1 1 1 1 1 1 1 1 1 1 4001: D1491102917CD1487102912XD14665D14550J03587^B14115029126A1455002912B1408514718^J03587^,14072A14573140 1 1 1 1 1 1 1 1 1 1 1 4101: 76)14072J14043^D1487702913CJ03587^/03180D1078503126TJ04750^/02975,02908D1468102922CD1465002911C,0291 1 1 1 1 1 1 1 1 1 1 1 1 4201: 2B14308029126A1455002912D1471602907CB1427802907^A1455014879D06025049613J03587^,14225A1457314229)1422 1 1 1 1 1 1 1 1 1 1 4301: 5J14201^A1455014879D1488502929CD1486902912CDD14879D06025049613J03587^/02975D1474402933XD1477902922CD 1 1 1 1 11 1 1 1 1 1 1 4401: 14743DD14831,14436A1483514440)14436D0986302930CD0293002911CD06017149012D06025049613J03587^C144401490 11 1 1 1 1 1 1 1 1 1 4501: 1J14412//02880D0745001174TJ01175^NEND^INPUT^SPECS"1RA0000RN0000D00000DADN200100^OUT^^^&0031234561234 1 1 1 1 11 111 1 1 1 1 1 1 11111 11 1 1 4601: 56V0DTESTBSTF000^^MONES1^^^^^^CONF0C0000^^^^^^^FLD00MSAM000&004CON00C1C00DCW*^^^^^030730/BENTRY2MM00 111 11 11 11 1 1 1 111 1 111 1 1 4701: 00&004I95T14726^^^^^^^^^^^^I98DRN0000AAC^^00^0000ANSWICH1&5^^SWICH4&5^^DSA*^^^^^N.N0PCB1^MINPUT1&1^^ 1 11 1 1 1 1 1 1 1 11 1 111 11111 1 1 1 111 1 1 4801: /INPUT1TEMP1NMC1C^^^^^^^^OPTSW13CH16SEQER1MN0PMCB101OPTSW1^108080ONES1F1BLKBK100111111^^BRN010000000 1 1 1 11 11 1 1 1 1 11 1 1 1 1 1 1 1 1 1 4901: 0RINPUT1DC^*BERRSEQAD5QER^SEQER1^^BERRSEQ^^^^^CONF0^^^^^^1BSEQER1^^^^^^^*^^^^^&008SWC&20^B*MC0CMC1CS 1 1 1 1 11 1 1 1 1 1 1 1 1 1 5001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 5101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1: RPGDA100001000015000J00000^J00000^ 1: D1431409992XD14318D1432109866XD1432409863X/02999/D14325028817,0280202809,0282002837,02854,0998409924 1 1 1 1 1 11 1 1 1 1 101: DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,DD,J05438^B1231302801*B1019502801DJ12313^D1411 1111111111111111111111111111111111111111111111111111111111 1 1 1 1 201: 714134CB1049202802^/02975D1411714133CD0281914205CDD0281002907CD1410702917X?0281014269S1427114269V103 1 1 1 1 11 1 1 1 1 301: 6414269KD1427102907CD14326049613J03587^D1427402916CD14269029071DD0280702913CD14326049613J03587^/0297 1 1 1 1 1 11 1 1 1 401: 5B1051202820^C0282214097J10619/C0283614103J10663/B1113002820CB1113002820TB1113002820DJ13094^D1420502 1 1 1 1 1 1 1 1 1 1 501: 819CDJ10395^A1411914134B10566141343D0285302836CD0287002853CJ10395^D0281014276CS1409414276V1015714276 11 1 1 1 1 1 1 1 1 601: KA1427614094J10157^D0282214097CD1414802922CDN03587^D1432710644CD0283614103CD1416614159CD1416614148CB 1 1 1 1 11 1 1 1 1 1 701: 1109202820PB1287902820SB1287902820RD1411610757CC0282200000J11044/,10849D1075710853CA1412010853D10853 1 1 1 1 1 1 1 1 1 801: 10835CD1085310859C)10849/02975D0000002912XDA1411900000D0000014147CDB1113002832^D1414802922CDD1411102 1 1 1 1 11 1 11 1 11 901: 931XDD0283302932CD1411902939CB1095302831ND1411702939CJ03587^B1103302835^D0283602932CD1411902939C/029 11 1 1 1 1 1 1 1 1 1001: 13B1102602834ND1411702939CJ03587^/1113002975C1075709860J11062/,10753A1420610757)10753J10747^B1111102 1 1 1 1 1 1 1 1 1 1 1 1101: 832^J12879^D1411010644CJ10512^B1354502823M,0282402828B1118302829^C0281002829J11308/D0281002829CB1130 1 1 1 1 1 1 1 1 1 1 1201: 802823N,02916D0282602920CD1411702917CD14328D0280702933CB1127902830^D02830029163J03587^)0282402828/11 1 1 1 1 1 1 1 1 1 1 1301: 47602975D1411914139CDA0282614139S0282914139D14138141392D1413902920CD14249J03587^/02975B1140502823NJ1 1 11 1 1 1 1 1 1 1 1 1401: 1207^D0282602920CG11434BD1411700000XG11453BD1416700000CJ11243^J03587^J11207^B11513141342C0282202839J 1 1 1 1 1 1 1 1 1 1 1 1501: 11513/J10512^D1420502819CD1411814135CB1227102817^B11684141331D1410702917CD1411102911XDG11603BD141190 1 1 1 1 1 1 1 11 1 1601: 0000CD0281902912CD1411902924CB1165302817BD1411702924CD14326049613J03587^B1320002817B/02975B118550281 1 1 1 1 1 1 1 1 1 1701: 7ZB1203102817BD1411102931XDD0281902932CD1424202922CD14328B1179302817PB1178102817ND1412602921CJ03587^ 1 1 11 1 1 1 1 1 1 1801: /02975D1413202917CD0280702933CD14211D1412902939CJ12178^D1411914127CD0281014278CS1428014278V119131427 1 1 1 1 1 1 1 1 1 1 1901: 8KA1427814280D0280702922CD14130D1417302933CJ03587^D0280702933CD1417902922CJ03587^D1418502922CD14186J 1 1 1 1 1 1 1 1 1 1 1 2001: 03587^D1417302922CD14130J12061^D0280702933CD1417902922CD14186J03587^/02975D1411102931XDD0281902932CD 1 1 1 1 1 1 1 1 1 11 1 2101: 1424202922CD14328J03587^/02975D1410702917CD1414202916CD1421102927CD1418702939CJ03587^/02975D14111029 1 1 1 1 1 1 1 1 1 1 2201: 31XDD0281902932CD1424202922CD14328B1225802817ND1412602921CJ03587^/02975A1411914135B13181141353D02816 11 1 1 1 1 1 1 1 1 1 2301: 02819CJ11537^A1412009860/02975B1236214143^D1414802922CDJ03587^D1421702922CD14142D09866DJ03587^/02975 1 1 1 1 1 11 1 1 1 11 1 2401: D0987102912CDD1422302922CD14142B12467098720D1411914224CD1423002922CJ03587^D14329098602C1240509860J12 1 11 1 1 1 1 1 1 1 1 2501: 828/B12709142240/02975D1422302922CD14142D14230D1423602933CD1411702939CJ03587^/02975D1424202922CD1432 1 1 1 1 1 1 1 1 1 1 1 2601: 8D1423602933CJ03587^/02975D1424802922CD14187J03587^D1425502922CDJ03587^D1407003133TJ04750^D140910313 1 1 1 1 1 1 1 11 1 1 1 2701: 6TJ04750^D1409409998XD1428009995XD1412709993X/02975D1430102922CJ03587^/02880D0298009986X,02801D14334 1 1 1 1 1 1 1 1 1 1 1 2801: 01174TJ01175^END^DATA^SPECS",1240112437A1420612405A1420612441)1240112437J12400^/02975D0986602913XDA1 1 1 11 1 1 1 1 1 1 11 2901: 411909865D0986614148CDB1309402832^D1414802922CDD1411102931XDD0283302932CD1411902939CB1300802831ND141 1 11 1 11 11 1 1 1 3001: 1702939CJ03587^B1308802835^/02913D0283602932CD1411902939CB1308102834ND1411702939CJ03587^/02975B13156 1 1 1 1 1 1 1 1 1 1 3101: 02820PD1412602921CD14128D0280702933CJ03587^/02975J10512^D1417902922CD14328J13124^D1411914133CJ10512^ 1 1 1 1 1 1 1 1 1 1 1 3201: /02975D0999202913CDA1411909992D0280702933CD1417902922CD14186D14326049613J03587^/02975D1411102931XDD0 1 1 11 1 1 1 1 1 1 1 11 3301: 281902932CD1424202922CD14328D14326049613J03587^/02975D1410702917CD1414202916CD1421102927CD1418702939 1 1 1 1 1 1 1 1 1 3401: CD14326049613J03587^/02975D1411102931XDD0281902932CD1412602921CD14328D14326049613J03587^/02975D09992 1 1 1 1 11 1 1 1 1 1 1 3501: 02922CDD14142D14326049613J03587^/02975J12031^,0282302827,0282802829D1411702823CD0280702933CD14311029 11 1 1 1 1 1 1 1 1 1 3601: 22CD14328J03587^/02975D0282902939CD0282602931CD1414802922CDJ03587^/02975D0280702933CD1412602921CD142 1 1 1 1 1 1 11 1 1 1 1 3701: 72J03587^/02975D0282802939CD0282602931CD1414802922CDJ03587^/02975D0280702933CD1424202922CD14272J0358 1 1 1 1 1 11 1 1 1 1 1 3801: 7^/02975D0282702939CD0282602931CD1414802922CDJ03587^/02975D0280702933CD0282602920CD14272J03587^/0297 1 1 1 1 11 1 1 1 1 1 1 3901: 5D1424202922CD14328J03587^)0282302827)0282802829D1417314103CB11297143121/02975D1410702917CD14311D141 1 1 1 1 1 1 1 1 1 1 1 4001: 20D1412002925CDD14326049613J03587^D1411914312CJ11297^MLCB^TEMP1N,INPUT1B^^^^SWICH1^^^^^^^^^^00000000 1 11 1 1 1 1 1 1 1 1 4101: 0000DCW*CON^0986900124C1C^^0AKYV*0000000^^B^^^^^^^^^^^^^^^^^^^^^^^^&STORZ1BLANK1ZERO1^C/^^^^^^^^^^^^ 1 1 11 1 1111 11111 1111 1 1 1 1 1 11 1 1 111 1 4201: ^^^^^^6&013^SWICH4ENTRY30OPROU1OPTSW1C0C^^^INPUT1,0001^^TEMP1NSWICH10051DS^^^^^^^DC^00&ENTRY2^^BTCAL 11 1 1 11 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 4301: 00BLNKC12C^^^00BLNK000SER"4JM^RPGCL^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 11 1 1 1 111111 1: RPGCL100011000013000J00000^J00000^ 1: "D10000028817,0999309994,0280102802,0280902811,0282002826,0282902830,0283602839,0284002849,028500285 11 1 1 1 1 1 1 1 1 101: 2J05438^B1021202801AB1013902801LJ14007^M%T010162WR00101".10156TERMINATE^RUN.^*^CARD^MISSING^BEFORE^F 1 1 1 1 1 1 1 1 201: ORMAT^SPECS"N/02975D1614502917CB1037502829CD1617316246CB1040602802^D0281016141CDD0280702913CD02810D1 111 1 1 1 1 1 11 1 1 301: 6444049613J03587^D0281016330CS0999816330V1036316330KA1633009998B1038702829^V10426028202V10543028302J 1 1 1 1 1 1 1 1 1 401: 10665^D1614102810CDJ10363^,02924D1621910465CA0282810465D0282500000CD1618402825CDD1618402913CDA161731 1 11 1 1 1 1 1 11 11 501: 6184D02828029071DD16444049613J03587^J10387^,02924D0293602929CD1621910594CA0283810594D0283500000CD161 1 11 1 1 1 1 1 1 1 1 601: 8402835CDD1618402913CDA1617316184D02838029071DD16444049613J03587^/02975C0284916233J10858/C0284816242 11 11 1 11 1 1 1 1 1 701: J10803/J11297^D1620802913CDJ10747^D1620202913CDD1621416167CD0284916233CD1616702922CDN03587^D16445107 1 1 1 11 1 11 1 1 11 1 801: 847D0284816242CB1093302849TB1097702849CB1088902849NJ11021^B1073416233CB1071416233NJ10759^D1620802913 1 1 1 1 1 1 1 1 1 901: CDA1617316208D1620816167CDJ11058^D1619002913CDA1617316190D1619016167CDJ11058^D1620202913CDA161731620 11 1 11 1 11 1 11 1 11 1001: 2D1620216167CDJ11058^D1619602913CDA1617316196D1619616167CDB1129702841^D1616702922CDD1617102931XDD028 1 11 1 11 1 11 1 11 11 1101: 4202932CD1617302939CB1114402840ND1617202939CJ03587^B1129102844^/02913D0284502932CD1617302939CB112170 1 1 1 1 1 1 1 1 1 1201: 2843ND1617202939CJ03587^B1129102847^D0284802932CD1617302939CB1128402846ND1617202939CJ03587^/02975B12 1 1 1 1 1 1 1 1 1 1 1301: 62102829XB1322402829/B1585302829CD1625102916CD1626702937CB1260202829^D0282502922CJ03587^/02913D02835 1 1 1 1 1 1 1 1 1 1401: 02922CD16250B1258302829-J03587^/02975D0281016332CA0285302810S1624502810V1149402810KA0281016245/02975 1 1 1 1 1 1 1 1 1 1 1501: B1162502851^D1617316247CD1628502933CD1626702926CDJ03587^D1626702937CD02851029371DJ03587^/02926D16285 1 1 1 1 11 1 1 11 1 1 1601: 02922CD16250J03587^/02975D1626702926CB1173302853^D1626702937CA1617302853D0285302937CD1625702916CJ035 1 1 1 1 1 1 1 1 1 1 1701: 87^/02975D1626702926CD0285302926CD0283902916CD0280702933CJ03587^/02975D1617216215CB1246702817^D16145 1 1 1 1 1 1 1 1 1 1 1801: 02917CD1617102911XDG11836BD1617300000CD16172D0281902912CD1617302924CB1189202817BD1617202924CD1644404 1 11 1 1 1 1 1 1 1 1901: 9613J03587^B1550802817B/02975B1206302817ZB1222702817BD1617102931XDD0281902932CD1630902922CD16446B125 1 1 1 1 1 1 11 1 1 1 2001: 2102817PB1250902817NB1591902817UB1591902817LB1593102817EJ15919^D1617309993CS0999516332V1210916332KA1 1 1 1 1 1 1 1 1 1 2101: 633209995D0280702922CD16257D1629102933CJ03587^D1627302922CD0280702933CJ03587^D1627902922CD16248J0358 1 1 1 1 1 1 1 1 1 1 2201: 7^D1629102922CD16257J12257^D0280702933CD1627302922CD16248J03587^/02975D1617102931XDD0281902932CD1630 1 1 1 1 1 1 1 1 1 11 1 2301: 902922CD16446J03587^/02975D1614502917CD1616102916CD1623202927CD1625402939CJ03587^/02975D1617102931XD 1 1 1 1 1 1 1 1 1 1 1 2401: D0281902932CD1630902922CD16446B1245402817ND1631502922CJ03587^/02975A1617316215B10101162153D028160281 1 1 1 1 1 1 1 1 1 1 2501: 9CJ11782^D1631502922CJ03587^/02975D1625602917CD0280702933CD16232D1624902939CJ12374^D1628602916CJ1142 1 1 1 1 1 1 1 1 1 1 1 2601: 4^D0283502922CJ11424^J13107^D1626702937CD0283502922CD16251J03587^/02975D1638602933CD0282502922CD1641 1 1 1 1 1 1 1 1 1 1 1 2701: 3J03587^/02975S1617302838D02838029251DD1614502917CD16348G12775AG12780BD0000000000XD16178029071D16444 1 1 1 1 11 1 1 1 1 1 1 2801: 049613J03587^/02975D1640002933CD1634802922CDD16251J03587^/02975A1617316348D1622402937CD16372D1635402 1 1 1 1 11 1 1 1 1 1 1 2901: 922CDD16446J03587^/02975D1636002922CD16161D16354G12967AG12972BD0000000000XD1631602911CJ03587^D162280 11 1 1 1 1 1 1 1 1 1 1 1 3001: 2937CD02913/02922D1614902917CD16354DD16444049613J03587^A1617316354S1638002828V1143702828KA0282816380 1 1 1 1 11 1 1 1 1 1 3101: J11437^A1617402828D1626702937CD02828029371DD0283502922CD1625102916CJ03587^/02975D1626702937CD0282502 1 1 1 1 11 1 1 1 1 1 3201: 922CD16252J03587^J11437^D0282816342CJ13834^S1624516342V1327716342KA1634216245J13852^D1617316336CD162 1 1 1 1 1 1 1 1 1 1 1 3301: 6702937CD0282502922CD16251J03587^/02975D1638602933CD0283502922CG13380BD16447000007J03587^/02975D0282 1 1 1 1 1 1 1 1 1 1 1 3401: 816342CS1638816342V1344116342KA1634216388S0283802828D02828029251DD1614502917CD16348G13502AG13507BD00 1 1 1 1 1 11 1 1 1 1 3501: 00000000XD16178029071D16444049613J03587^/02975D1640002933CD1634802922CDD16446J03587^/02975A161731634 1 1 1 1 1 1 11 1 1 1 3601: 8D1622402937CD16378D1635402922CDD16446J03587^/02975D1636602922CD16161D16354G13694AG13699BD0000000000 1 1 1 11 1 1 1 1 1 1 1 1 3701: XD1631602911CJ03587^D1622802937CD02913/02922D1614902917CD16354DD16444049613J03587^A1617316354S163800 1 1 1 1 1 1 1 11 1 1 1 3801: 2838V1149402838KA0283816380J11494^A0283816342J13243^D1626702937CD0282502922CD16251J03587^/02913D0282 1 1 1 1 1 1 1 1 1 1 1 3901: 8029371DD0283502922CD16253J03587^D1626702937CD1626702926CA1617402838D02838029261DD1625102916CJ03587^ 11 1 1 1 1 1 1 11 1 4001: J11494^D1616102916CD16167B1458802908CB1458802908NB1453702908TB1408602908DD1619602913CDD1630302922CJ0 1 1 1 1 1 1 1 1 11 1 4101: 3587^D1619002913CDD1629702922CJ03587^/02975A1617309998D1614502917CS1644909998V1420709998KC1633509998 1 11 1 1 1 1 1 1 1 4201: J14487/D1627302913CA1644909998D09998029071DD16444049613J03587^B14406099930,0292414303A0999514307)143 1 1 1 1 11 1 1 1 1 1 4301: 03A02923D1614502917CD16279D09995D16444049613J03587^/02975D1614502917CD16291D16173D16172D16444049613J 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 03587^B14614162470/02975D1614502917CD16285D16173DD1617602924CD16444049613J03587^J14614^D1617802907CD 1 1 1 1 1 11 1 1 1 1 1 4501: 16444049613J03587^D1615202916CJ14166^D1629702922CJ03587^D1619602913CDD1630302922CJ14130^D1621402922C 1 1 1 1 1 1 11 1 1 4601: J03587^J14073^/02975A1617316245D1614502917CD16245029071DD16444049613J03587^D1626302913CD1617302907CD 1 1 1 1 1 1 11 1 1 1 1 4701: J14707^D16444049613J03587^/02975D1614502917CB15277163360A1617316388D1639402913CD16388D16444049613J03 1 1 1 1 1 1 1 1 1 1 1 4801: 587^/02913D1617202924CD1617302907CDD16444049613J03587^D02925029241D1638602913CD16380D16444049613J035 1 1 1 11 1 1 1 1 1 1 4901: 87^D1632102913CD16173DD02909029241D16444049613J03587^D1632702913CD02909029241D16444049613J03587^D029 1 1 11 1 1 1 1 1 1 1 5001: 25029241D1640602913CD16444049613J03587^D1640002913CD16377029071D16444049613J03587^D1641202913CD16317 1 1 1 1 1 1 1 1 1 5101: 029071D16444049613J03587^NB15176162020B15157162080J15176^D1647003126TJ04750^/02975/02880,02801D16475 1 1 11 1 1 1 1 1 1 1 1 5201: 01174TJ15395^END^CALC^SPECS"D0287502975CJ03587^S1617316340V1530816340KJ15206^D1617015228CD1617015240 1 1 11 1 1 1 1 1 1 5301: CJ15125^J15339^D1617015346CD1617015358CJ05438^D0287502975CJ03587^S1617316338V1539516338KJ15339^/0297 1 1 1 1 1 1 1 1 1 1 1 5401: 5D1642802922CJ03587^/02975D1643502922CD16161D09992DJ03587^D1644102922CD1643502913CJ03587^/02880,0280 1 1 1 1 1 1 11 1 1 1 1 1 5501: 1J01175^/02975D0999202913CDA1617309992D0280702933CD1627302922CD16248D16444049613J03587^/02975D161710 1 1 1 11 1 1 1 1 1 1 1 5601: 2931XDD0281902932CD1630902922CD16446D16444049613J03587^/02975D1614502917CD1616102916CD1623202927CD16 11 1 1 1 1 1 1 1 1 1 5701: 25402939CD16444049613J03587^/02975D1617102931XDD0281902932CD1631502922CD16446D16444049613J03587^/029 1 1 1 1 11 1 1 1 1 1 5801: 75D0999202922CDD16161D16444049613J03587^/02975J12227^D0283502933CD0282502922CD0282902916CJ03587^D161 1 11 1 1 1 1 1 1 1 1 1 5901: 7216215C/1178202975D1631502922CJ03587^/02975D1623202927CD1622002917CD16161D1625402939CB1604602817EB1 1 1 1 1 1 1 1 1 1 1 6001: 604602817UD1644202939CB1604602817LD1644302939CJ03587^/02975D1617102931XDD0281902932CD1631502922CD164 1 1 1 1 1 1 11 1 1 6101: 46B1245402817ED1630902922CJ12454^^^^^^^^^^DCW*DSA*DC^^^^^^^^^B^^^^^^CON^0124551KCAL00TCAL00DCAL00CVT 1 1 1 1 1 1 1 1 1 1 1 1 1111111 1 1 1 1 1 1 1 6201: R00CVTN00RETU1^02923*&003&004&130000000000000000CKA&@%/V*YWORKAR-001BLANK1ZERO1^FIVE5^STORZ1NUMT0THA 1 1 1 1 11 11 1 1 11 1 1111111111 11 1 1 1 1 1 1 6301: 0000C0C^^^C1C^^^C3C^^^C9C^^^^^^^^00&0233600MLPR00LINK00MULT1^DIVIDEBPR01^BPR02^^^FACT1^^^FACT2^INDEX 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 6401: 1SIGN1^ADDL0CLENTRY3^^BDCAL000BNKEX10000^^TU4JML5ACVTN00^^^^EQU^^CVTR00RPGFM^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 11 11 1 1111111 1 1 1: RPGFM090000898914000J00000^J00000^ 1: ^^A^R^X^X^XD1489702899TD1489803032XD14899D14900D1490703219XD14908028817,0284902845,0283802801J05438^ 11 1 1 1 1 1 1 1 1 1 1 1 1 1 101: D0282803028C,0283503027,0302003002,0300102851J05438^B0915302801*J09160^N/02975C0300414457J09192/J138 1 1 1 1 1 1 1 11 1 1 1 201: 25^)03027C0302214461J09223/J13825^C0302514461J09248/J13825^C0302814461J09273/J13825^C0302814294D0303 1 1 1 1 1 1 1 1 1 1 1 1 301: 014458CB0932703002HB1015303002TJ11271^V09469030032C0302814294,03027J09382/D1438914428CJ09419^D142380 1 1 1 1 1 1 1 1 1 1 401: 2913CDA1438914236D1423814382CDD1423814388CDB0978703010^D1428814388CD03010J09787^C0302814294,03027J09 11 1 11 11 1 1 1 1 1 1 501: 512/D1438914428CJ09549^D1424402913CDA1438914242D1424414382CDB09568030031J09610^C0300414723D143891472 1 1 1 11 1 11 1 1 1 601: 4CJ09610/D0303014724CD1428814388CD03010B0964703010^J09787^B09775030031D03003096881D1438914385CD02880 1 1 1 1 1 1 1 1 1 1 701: 143841G09712BD1439100000CC0300414723D1438914724CJ09756/D0303014724CD1438514723CJ09787^D1446914388CD1 1 1 1 1 1 1 1 1 1 1 801: 418513432CD1419013674CB11495144280D0303014428CB0985402801LJ11734^C0280414288J11734/D0282803028CDJ054 1 1 1 1 1 1 1 1 11 901: 38^B0916102801*J09160^/02975A1438914311D1438802933CD1431502917CDDD14909049613J03587^/02975D143420293 1 1 1 1 1 1 111 1 1 1 1001: 7CD1431102922CDD14316J03587^/03180D1491703123TJ04750^/02975D0303202939CD1434902922CJ03587^J13555^/02 1 11 1 1 1 1 1 1 1 1 1 1 1101: 975D1438802922CD14251J03587^J14150^D0282803028CDDDJ05438^J09892^V10319030032C0302814294,03027J10208/ 1 1 1 1 1 1111 1 1 1 1 1 1201: D1438914428CJ10245^D1425702913CDA1438914255D1425714382CDD1425714388CDB1028803010^D1428814388CD03010D 1 1 1 11 1 11 11 1 1 1 1301: 1420513432CD1421513674CJ09811^B10379147201D1438914720CD03003105481D03003106151D03003143311C030281429 1 1 1 1 1 1 1 1 1401: 4,03027J10410/J10697^D1426002913CD03004A1438914260D1438914429CB1047002801LJ10525^C0280414288J10525/D 1 1 1 1 1 1 1 1 1 1 1 1 1501: 1426014382CD03004D1438914430CJ11495^D1443814382CB11495030031D03003105661D02880143001D1430214380CJ114 1 1 1 1 1 1 1 1 1 1601: 95^D0303014429CB10660030031/02975D03003029291G10651BD1432800000CJ03587^/02975D1433202919CJ03587^B107 1 1 1 1 1 1 1 1 1 1 1 1701: 71144301D1420513432CD1421013674CD1430414260CB10752030041J11734^D03003143921J11734^D0282803028CDD0303 1 1 1 1 1 1 1 1 11 1801: 014430CJ05438^B1041002801*J10410^B1087203010^,02917D0301002919CD14251J03587^J14150^D1433202919CD1438 1 1 1 1 1 1 1 1 1 1 1 1901: 902939CD03003109131D02890029291G10937BD1439300000CD02929029181J03587^/02975D1443802922CD14251J03587^ 1 1 1 1 1 1 1 1 1 1 2001: J14150^/02975A1438914311D1435202933CD03004D1431502917CDDD14909049613J03587^/02975D1436202937CD143110 1 1 1 1 1 1 111 1 1 1 1 2101: 2922CDD14316J03587^/03180D1491703123TJ04750^/02975D0303202939CD1436902922CJ03587^/02975D1435202913CD 11 1 1 1 1 1 1 1 1 1 1 1 2201: 03004J13561^D1425702922CDDB1125703010^,02917D1428802922CD03010D14251J03587^J14150^C0302814294,03027J 1 1 111 1 1 1 1 1 1 1 1 1 2301: 11314/D1438914428CJ11351^D1426702913CDA1438914265D1426714382CDD1426714388CDB1139403010^D1428814388CD 1 1 1 11 1 11 11 1 1 2401: 03010D1418513432CD1422013674CJ09811^D1426702922CDDB1148103010^,02917D1428802922CD03010D14251J03587^J 1 1 1 1 111 1 1 1 1 1 1 2501: 14150^D0303014394CB1164103028^)03027C0302814461,03027J11556/J11641^D1438202922CD14251D0302802932CD14 1 1 1 1 1 1 1 1 1 1 1 2601: 285D0303002939CB1162803026^D1438902939CJ03587^/02975B11684143942A1438914394D0302503028CDJ11507^B1059 1 1 1 1 1 1 1 1 11 1 2701: 2144291D0300402919CD14251J03587^J09835^CLR001/02975D0300402910CD1173302922CD14918J03587^/02975B12012 1 1 1 1 1 1 1 1 1 1 1 1 2801: 02801FB1201202801BB1185002801KB1264902801LB1188702801WJ12649^C0283214788J12073/D0283414273CJ12215^,0 1 1 1 1 1 1 1 1 1 1 2901: 2908D1429802917CD02834D02850,1196211967A0285011966A0285011971)1196211967D0285002923CD1420011971CDD14 1 1 1 1 1 1 1 1 1 11 3001: 909049613J03587^J12617^B1268002850^D1440214432CC0285414788J12073/D0285614273CJ12215^D1429802917CD142 1 1 1 1 1 1 1 1 1 1 3101: 26DD02850,1214312148A0285012152A0285012147)1214312148D0285002923CD1420012152CDD14909049613J03587^D02 11 1 1 1 1 1 1 11 1 1 3201: 91314273CA1438914226/02975D0303014394CD1423202913CDA1438914232B1234902846^D0284602932CD14285D1423202 1 1 1 1 11 1 1 1 1 3301: 922CDD14251D0303002939CB1233602844^D1438902939CJ03587^/02975B12392143942A1438914394D0284302846CDJ122 11 1 1 1 1 1 1 1 1 11 3401: 51^C0283414772J12435/D1469102933CJ03587^/02975D0283714442CD14303A1439014440D1444202931CD1427302922CB 1 1 1 1 1 1 1 1 1 1 1 3501: 12556144310D1440302916CJ03587^D0283414273C/02975D0303014431CJ12435^B12717144320D1440402916CJ03587^/0 1 1 1 1 1 1 1 1 1 1 3601: 2975D0303014432CB1277902801BJ05438^/02975B1264902801*J11777^D1423202913CDA1438914232J12843^C02860142 1 1 1 1 1 1 1 11 1 1 3701: 91J12024/D0283414273CJ12215^B1275302801KD1440802916CB1276502847ZD1431602916CJ03587^J12605^/02975D142 1 1 1 1 1 1 1 1 1 1 1 3801: 7302933CD1441402922CD14316J03587^J12617^B^^^^WR1TETAPEB1293303007^D14919089933/03180,0310603116,0312 1 1 1 1 1 1 1 1 1 1 3901: 1D1284203129TD0291403112CD1492602913CJ04750^B1314003005^A1439014417B1305603016^D1441502916CB13018030 1 1 1 1 1 1 1 1 1 4001: 151D03016029391J03587^J13134^D03016130351D0303002939CJ03587^J13134^B1314003012^,03012A1492703012)030 1 1 1 1 1 1 1 1 1 1 1 4101: 12D1441502916CD03012029391D14403029392J03587^/02975B1367603006^D1438914789CA1441614417D1442102931CD1 1 1 1 1 1 1 1 1 1 1 4201: 442502920CD14316J03587^/02975D14417029161B13256029166J03587^J13294^D14928029163J03587^D14909029163J0 1 1 1 1 1 1 1 1 1 1 1 4301: 3587^/02975B13324144174D1438914462CB1337303019^/02975D03019029391D1442602916CJ03587^D0303014417CB136 1 1 1 1 1 1 1 1 1 1 4401: 6903005^,03015C0301814289)03015J13451/B00000144580D0303014458CB1355503018^D1441502916CB13517030171D0 1 1 1 1 1 1 1 1 1 1 4501: 3018029391J03587^/1366902975D03018135341D0303002939CJ03587^J13669^/02975B1366903014^B13669030141,030 1 1 1 1 1 1 1 1 1 1 4601: 14A1492703014)03014D1441502916CD03014136371D02880029391D14403029392J03587^/02975J00000^B1369503005^J 1 1 1 1 1 1 1 1 1 1 1 4701: 13218^B1371403007^J13669^M%T013750WR00101"D14929030053J12933^OUTPUT^TYPE^NOT^SPECIFIED^ON^LINE^FORMA 1 1 1 1 1 1 1 4801: T^SPEC"NO^OUTPUT^SPECIFIED^^CD^^^^^")03027C0302814294D1438914463CB1387803002HB1406203002TC0302814294 11 11 1 1 1 1 1 4901: ,03027J13909/J13946^D1444802913CDA1438914446D1444814382CDD1444814388CDB1400103010^D0301014457CD14288 1 1 1 1 11 1 11 11 1 1 5001: 14388CD03010D1438914458CD1419013674C)03027C0302814294,03027J11495/J11734^C0302814294,03027J14093/J14 1 1 1 1 1 1 1 1 1 1 1 1 5101: 130^D1445402913CDA1438914452D1445414382CDD1445414388CDJ13959^B1012402801LD1493401174TJ01175^09911100 1 11 1 11 11 1 1 1 1 1 5201: 86028500292310996108221120111425FLD000FF0000HA0000HN0000HA0000BTT0000T00BDD0000^^^^^^^^^EXTEXTCON^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 11 1 1 1 1 1 1 5301: ^^^^^^DCW*T01T003DSA000DSA*MONE5^^^^^^^TBT11OF0WEX&005BOVRFL0RTNOFR7RN&005BOFR0UTBNUMEXT^^^^^^^^^^^^ 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 5401: 12H0T0PR1NT/11LE201ZBLANK1F4001800280K)00000TT00000000OH0000OT00000000^OF00DD0000READ1^MT0^^^^^^^^^T 1111111 11 111 11 1111 1 111111 1 1 1 1 1 1 1 11 111 1 1 5501: 0^^^^-001BTBLNK1^^^^^OF5WCH^^^^^0MADTBK1^^^^^OF0WEX&005MC0C^^^^^^^^OF5WCHBOVRFL03ADTBK1DSA*^^^^^^^^^ 1 1 1 1 1 5601: ^TBLNK1^OFR0UT^^MC1C^^^^^^^^OF5WCHOFR7RN^^B00001T1^^^^DCW*^^^^^^0111111111ONE5^OVRFL0AC1C^^^^^^^^PAG 1 1 1 1 1 1 1 1 5701: ENOOF0WEX^^B0000OT0000OH1OF5WCH0^^^0NUMT0TMC1CCON0FMC0CZERO0F^^09TSTL5TDS^0000PAGENOHN0000BLNK00WORD 1 1 1 1 11 11 1 1 1 1 1 1 1 1 1 1 1 1 5801: 0TBLNK1^^MADD5ER^^^^^BNKEX1&005BBLNK00ADD5ERDSA*^^^^^^^^^^SER000ADTL5TDSA*^^^^^^^^^^TSTL5T^12345678^ 11 1 1 1 11 5901: 234567890@#0OUT1-1&"4BPCB^*-6BT^^^^^^^A2XRPGED^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1111 111 111 1111 1: RPGED090000900017999J00000^J00000^ 1: /02880/02975D10482028817,0280102901D1446902922CD14251D1424402913CDJ03587^D1477802922CD1423802913CDJ0 1 1 1 1 1 1 1 11 1 1 11 101: 3587^D1481902937CJ03587^/02975D1482602922CJ03587^D1485202933CD10483049613J03587^D1481902937CD1485802 1 1 1 1 1 1 1 1 1 1 201: 922CD1426702913CDJ03587^/02975D1482602922CJ03587^D1487802933CD10483049613J03587^/02975D1443802922CD1 1 11 1 1 1 1 1 1 1 1 1 301: 4251D1473002913CB09915143920D1430402922CDD14392029181J03587^/02975A1438914392D1476602920CD1433202910 1 1 1 11 1 1 1 1 1 401: CD14392029091D1438902907CD10483049613J03587^/02975D1465302924XG09481AG09486BD0000000000CD14392095421 1 1 1 1 1 1 1 1 1 1 501: D10483049613J03587^D1428602916CB0956102909^A1438902909J09500^D1466202932CD1466702912XD14392029071D10 1 1 1 1 1 1 1 1 1 1 601: 483049613J03587^/02975D1425702913CDD1449702937CD14392029293D14392029183J03587^/02975B09953144620D145 1 1 1 11 1 1 1 1 1 1 701: 2102939CJ03587^/02975D1454302937CJ03587^/02975D1456102933CJ03587^/02975D1456802922CJ03587^D145950293 1 1 1 1 1 1 1 1 1 1 1 801: 3CD10483049613J03587^D1462202933CJ03587^/02975D1463502920CJ03587^D1465302924CD1471902913CD1048304961 1 1 1 1 1 1 1 1 1 1 901: 3J03587^J09984^J03587^C1443814257D1425702913CDJ09684/D1450402922CJ03587^B10313144620/02975D146730291 1 1 1 1 1 11 1 1 1 1 1 1001: 3CB10052144631D1438902939CD1441502916CJ03587^J10288^D1473902932CD1473402919CJ03587^/02975D1465302924 1 1 1 1 1 1 1 1 1 1 1101: CD1473902912CD14389D10483049613J03587^/02975D1471002922CD14251J03587^D1471202918CD1445402913CDJ03587 1 1 1 1 1 1 1 1 1 1 11 1201: ^D1474902922CD14251D1444802913CDJ03587^/02975D1473902932CD1474302919CD1474902913CJ03587^/02975D14704 1 1 1 11 1 1 1 1 1 1 1 1301: 02920CJ03587^B10368147240/02975D1446902922CD14251D1472302910CJ03587^NNB10413035851B10432035861B10451 1 1 1 1 1 1 1 111 1 1 1401: 148791J10463^D10484089993J10382^D10483089973J10394^D10485089953D1049001174TJ01175^"42TRPG13^^^^^^^^^ 1 1 1 1 1 1 1 1 11111 1: RPG13104631046311000J00000^J11434^ 1: S00074,13!O9T13!P0089992/03180J10537/,03101D13!P903180LD1164303172TJ04750^A1164500074B1059812RK4YB10 1 1 1 1 1 1 1 1 1 1 1 1 101: 57912RK4ZJ10469^D11646049613J10469^B1065405599^D0140310637TD01404106393U%U2RR00101"NJ10703^B10756014 1 1 1 1 1 1 1 1 1 1 201: 061D0140710637TD01408106393,10647J10634^D0140710742TD01408107493D11647107413M%U011561WR00101"B109380 1 1 1 1 1 1 1 1 1 1 301: 55991B10895049294B10850014061D0142311560TDD0140801423TDD11648014213D1156001408TDJ11063^D0142301408TD 1 1 1 11 11 1 11 1 1 401: B1098001435^D0143801423TDJ11063^D0492801405LD1165001407TD04944014083J11465^B11465049294J11063^M%T011 1 1 11 1 1 1 1 1 1 1 501: 519WR00101".10974B11018014112D0141301423TDD0140801413TDB11063014164D0141801423TDD0140801418TDJ11063^ 1 1 1 1 11 11 1 11 11 601: ,04897D0489911300TD04913113023D11647112993D0489911312TD04913113143D0489911341TD04913113553D048991132 1 1 1 1 1 1 1 1 1 701: 4TD11647113233D04913113313,04928D0493011365TD04944113723D0493011437TD04944114393D11647114363D0493011 1 1 1 1 1 1 1 1 1 801: 449TD04944114513)04897)04928/03180U%U4MR00101"U%U4RR00101"M%B403101RR00101"M%U403101RG11655BR00101"M 1 1 1 1 1 1 1 1 1 1 1 1 1 1 901: %U303101WR00101"J11338^B10957055991M%T011530WR00101"D1166001174TJ01175^U%U3MR00101"U%U3RR00101"J1138 1 1 1 1 1 1 1 1 1 1 1 1 1001: 6^D0493011498TD04944115053/03180M%4203101WR00101"J11386^END^OF^RPG"END^OF^RPG.BEGIN^AUTOCODER"^^^^1H 1 1 1 1 1 1 1 11 11 11 1101: DR^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^8?4UB11^^^^^GLINK^^ 1 1 1 11 1 1111 1 1 2501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^080^^H0LD20^^^^DCW^^@^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 2601: ^^^^^^^T^^^^^^^^'080^^WR1TETAPE^SBR^^EX1T0X&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080 2701: ^^^^^^^^^^^^MLCWSPR1NT&1,H0LD20^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLCS^PR1 2801: NT,H0LD20-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLCWS@"@,PR1NT&1^^^^^^^^^^^^ 2901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLZS^@S@,PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3001: ^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLNS^@0@,PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080 3101: ^^PUT00^^^^^PUT^^PRT0^TO^OUTFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLCWSH0L 3201: D20,PR1NT&1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^MLCS^H0LD20-1,PR1NT^^^^^^^^^ 3301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^EX1T0X^^^^B^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3401: ^^^^^^^T^^^^^^^^'080^^E0F0UT^^^^H^^^^PUT00^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080 3501: ^^PR1TX^^^^^DCW^^PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CLR001^^^^SBR^^CLR 3601: T5&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLCA^PR1TX,CS1&5^^^^^^^^^^^^ 3701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 3801: ^^^^^^^A^^^^^^^^'080^^CS1^^^^^^^CS^^^PR1NT^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 3901: ^^^^^^^^^^^^SBR^^CS1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^BW^^^CS1 4001: ,PRT0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CLRT5^^^^^B^^^^0^^^^^^^^^^^^^^^^^^^^^^ 4101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^H0LD^^^^^^DCW^^@^^@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4201: ^^^^^^^2^^^^^^^^'080^^PRINT1^^^^SBR^^P0&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080 4301: ^^^^^^^^^^^^MLCWSPRT0&132,H0LD^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^MLCWS@"@ 4401: ,PRT0&132^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^PUT^^PR1NTER0^^^^^^^^^^^^^^^ 4501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080^^^^^^^^^^^^MLCWSH0LD,PRT0&132^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 4601: ^^^^^^^2^^^^^^^^'080^^P0^^^^^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^2^^^^^^^^'080 4701: ^^PUNCH1^^^^SBR^^P1&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^SBR^^X9^ 4801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^MLCS^1&X9,PCH001&3^^^^^^^^^^ 4901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^^^^^^^^^^^PUT^^PUNCHF1LE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5001: ^^^^^^^4^^^^^^^^'080^^PCH001^^^^EQU^^IOCS1PIOA^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080 5101: ^^P1^^^^^^^^B^^^^00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^4^^^^^^^^'080^^TSTL5T^^^^BCE^^L5T 5201: CRD,CONLC,1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^READ1^^^^^^^^^^^^^^^^^^ 5301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^L5TCRD^^^^MLC^^C1C,CONLC^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5401: ^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CW^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 5501: ^^^^^^^^^^^^MLC^^CONBK1,CONBK1-1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^CON 5601: F1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^ONES1,CONBK1-1^^^^^^^^^ 5701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^END1AD,SWICH4&5^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 5801: ^^^^^^^A^^^^^^^^'080^^END1^^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 5901: ^^^^^^^^^^^^CLOSEOUTFILE^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^T^^^^^^^^'080^^^^^^^^^^^^B^^^^CL0 6001: SE^^^^^^^^^^^^^^^^^^^-^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^H^^^^READ1^^^^^^^^^^^^^^^^^^ 6101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^CONOF^^^^^DCW^^@0@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6201: ^^^^^^^A^^^^^^^^'080^^^E0JX^^^^^DCW^^@EOJ@,G^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 6301: ^^E0F^^^^^^^NOP^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^CL0 6401: SEDSK^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^DSKCL0SED^NOP^^^^^^^^^^^^^^^^^^^^^^^^^ 6501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^C1C,CONLC^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 6601: ^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^CW^^^CONF1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 6701: ^^^^^^^^^^^^MLC^^CONBK1,CONBK1-001^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^SW^^^CON 6801: F1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^ONES1,CONBK1-001^^^^^^^ 6901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^MLC^^END1AD,SWICH4&005^^^^^^^^^^^^^^^^^^^^^^^^^^ 7001: ^^^^^^^A^^^^^^^^'080^^^^^^^^^^^^B^^^^ENTRY2^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 7101: ^^C0NLC^^^^^DCW^^@0@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^P^^^^^^^^'080^^CONLC^^^^^DCW^^@0@ 7201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^^END1AD^^^^DCW^^END1^^^^^^^^^^^^^^^^^^^ 7301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080^Z^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 7401: ^^^^^^^^^^^^^^^^'080^^^^^^^^^^^^END^^START1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^A^^^^^^^^'080 7501: ^Y^^^^^LAST^CARD^^1410^^RPG^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'^^^^^^^^^^^^^^^^^^^^^^^ 1: GLINK050000500018399J05574^^^^^^^^ 1: D0613900099XD00099DDDDDDDDDDDDD?0614400099?0614500094S0614600094J05247VD00??305148TD00??305155TD00?? 1 1 11111111111111 1 1 1 1 1 1 101: 205146TD00??205165TD00??3051793D06147051643U%U1RR001013R05162"M%U006037RG06152BR00101"B0521705171WD0 1 1 1 1 1 1 1 1 1 1 1 201: 6153051713J05143^D06154051713A0615500099J05053^B0530101406BB0530101406UM%T005964WR05271")05844J06200 1 1 1 1 1 1 1 1 1 1 301: ^D0140705406TD0140705523TD01408054203D01408054273D01408054343D01408055253D01408055323D06147054053,05 1 1 1 1 1 1 1 1 1 401: 844M%U106037RG06152BR001013R054784R05441"C0604106160J05574S)05540,05548J05485^,05540N?0616200089)054 1 1 1 1 1 1 1 1 1 1 1 11 1 501: 85S0614600089J05547VU%U1RR055202R05539"NJ05403^NJ05574^,05548)05540J05520^D0142205827TD0142205886TD0 1 1 1 1 1 11 1 1 1 1 1 1 1 601: 1423058293D01423058363D01423058933D0140305745TD0140305764TD0140305917TD01404057473D01404057543D01404 1 1 1 1 1 1 1 1 701: 057783D01404057853D01404059313D01404059383U%U2RR057422R05761"L%B206601$G06152BR001017R05792"J05907^J 1 1 1 1 1 1 1 1 1 1 1 1 801: 05876^C0622006134J05792/U%U5RR058242R05843"NJ05857^.05857D0616701174TJ01175^G05905BL%B506200WR00101" 1 1 1 1 1 1 1 1 1 1 1 1 901: J00000^G05962BL%B206200$G05955BR00101+R05945"D0616900000XJ00000^PLACE^INPUT^CARDS^IN^READER.^DEPRESS 1 1 1 1 1 1 1 1 1 1001: ^START^TO^CONTINUE^AFTER^HALT^OCCURS"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1101: ^^^^^^^^^^^^^^^^^"018END^OF^LIBRARY0000001420DAU77777WRE1HDR^1?LIBRA"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1111 1111 1 1 1 1201: D0140706227TD01408062343M%1106037$R00101"J05574^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1601: N 1 1: FCORD100000150107500^^^^^^^^^^^^^^ 1: G00074BJ02894^J03030^G00074BJ03850^G00074BJ04054^G00074BJ11534^G00074BJ05559^G00074BJ11405^G00074BJ0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 101: 5487^J05609^G00074BJ05225^J06321^G00074BJ06714^J06282^G00074BJ08162^J09443^J06270^G00074BJ09612^1^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^G02338BD0005902091LD00!!400054CD0642600059CD00'!002 1 1 1 1 1 401: 'I23B0228500'!0'A0642700054A0642700059C0005906432J01893/J02225^J01881^G02015BS0643402015R020102R0201 1 1 1 1 1 1 1 1 1 1 1 501: 71J02040^J00000^M%T002071WR02017".02010M%T002080WR02040".02040.PRINT^NR"PRINT^ER"^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 11 701: ^^^^^^^^^^^^^^^^^^^^^^^"G02271BNNNNNNNNFKR01971"M%2002092WR01971"J00000^D0643502'I23A0642700059C0005 11 111111111 1 1 1 1 1 1 1 801: 906432J02273/J02225^D0209100059TJ00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"00^^^^^^^^^^"^^^^39999^^^ 1 1 1 1 1111 11 1 1 1 901: ^^^^^^^00004^^001^^0^^000000^^^^^^^^^^^^^^^^^^^^003999900^^^^^^^^^^^^^^^^^000^^^^^^^^^^^^^^^^^RUN1A^ 1 111 1 1 1 11 1 1 1 1 11 111 1 1 1 1 1 1111 11 11 11 1 1 1001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^D000340 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1401: 2474CD0307700034CB02968000!0"D000!001700,G03077AD0247400034CJ00!!5^D0644000034CM%U0000!0$G03021BR001 1 1 1 1 1 1 1 1 1 1 1501: 01(R03011"D0644200000TJ02930^D00!!403071CD06443000!0CD0247400034CJ00000^03078"3083"^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 2301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^D0003402474CD0417000034CD00!!403891CD00000000!0YG02 111 1 1 1 1 2401: 494BC0249404175J03973TD00!!403940CD00000000!0,G04170BD0247400034CJ00!!5^G04052BD06443000!0GD06448000 1 1 1 1 1 1 1 1 1 1 2501: 34CB04047000!0"M%U0000!0WR00101GR049478R04047"J00000^D0003402474CD0417000034CJ03973^D0003404170CD040 1 1 1 1 1 1 1 1 1 1 1 2601: 19041383DDD04026041403D06449041373U%U1MR00101"D0247400034CJ00!!0^0417604946U%U1MR00101"U%U1RR00101"D 111 1 1 1 1 1 1 1 1 1 1 1 1 2701: 0307700034CJ00!!0^04234^^^^^05004^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 3401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"G00074BD99RP906420CM%T006409WR04983".04983G05044BD0603 11 1 1 1 1 1 1 3501: 5000!0_/000'0G00029BC0002700032J05008/J00000^G05111BU%U0BR00101"A0642702469C0246906451J05053/D064260 1 1 1 1 1 1 1 1 1 1 1 1 3601: 2469CJ00000^G05223BU%U1RR00101"M%U101700RG02474BR001013R05163"B0519401709"D06443017097J05132^D064260 1 1 1 1 1 1 1 1 1 1 1 1 3701: 17097U%U1BR00101"J00000^U%U1RR00101"M%U101700RG02474BR001013R05268"B0529901709"D06443017097J05237^D0 1 1 1 1 1 1 1 1 1 1 1 1 1 3801: 6426017097U%U1BR00101"J00!!0^G05440BU%U1RR00101"M%U101700RG02474BR001013R05380"B0541101709"D06443017 1 1 1 1 1 1 1 1 1 1 1 1 3901: 097J05349^D06426017097U%U1BR00101"J00000^G05485BD0642600099CD00099DDDDDDDDDDDDDJ00000^D00!!405529CND 1 1 1 1 1 1 1 1 11111111111111 1 11 4001: 00!!5055133FSR00101"M%U100000WR00101GR049478R05552"J00!!6^D00!!405579CM%4400000WR00101GR049478R05602 1 1 1 1 1 1 1 1 1 1 1 1 4101: "J00!!5^D0642702420CJ06289^D0642606143CD0645605669CD0601605674CD00000000007DDDDDDDDDG05669AS06458056 1 1 1 1 1 1 1 1111111111 1 4201: 74C0566806425J05964SC0566906460J05664/A0646305669C0626606134J05904SD06427055243D0601600029XD000'0059 1 1 1 1 1 1 1 1 1 1 4301: 833D000'0G00029AT05983060112G00034BD000!0000'13C0002906468J05792TJ01592^06137/D0646905524CJ01592^061 1 1 1 1 1 1 1 1 1 11 1 1 4401: 37/A0647206143D0613406138CD0613406266XC0614306477J05652/J06345^A0648005669J05768^00$[*<)"-]Y;#_V,\/+ 11 1 1 1 1 1 1 1 111 1 1 1 1 1 11 1 4501: '^.:X>&?@!06264^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 4601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"D0633102409CJ01613^J05111^D06318 11 11 1 1 1 4701: 01174CJ06221^^^^^^"D0117406219CW05528024411B0117502413^M%T006215WR0"D0642702409CJ01613^J05046^D02499 1 1 11 1 1 1 1 11 1 1 1 4801: 01174CJ06321^^^^^^"D0117406319CW05628024411B0117502413^M%T006315WR06357^R06381"J01175^BEGIN^COMPILAT 1 1 11 1 1 1 1 1 1 1 4901: ION^^^"02794^EOR^^^"0000010013217^03078"""04176U1800099129920006137010039900190^^^^^^^^^^^^^^^^^^^^^ 1 1 11 11 1 11 1 11 11 1 1 1 1 1 11 1 1 8401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^J0 1 8501: 5442^V10109014!22D014S202480CD014!2024793C014!302480J10097SC0002912810J10109SA1281100029J10019^D1163 1 1 1 1 1 1 1 1 1 1 8601: 1014S2CD1163100029CC0003412816J10361SC0003412821J10175SA1281100034J10007^D1163100034CV10234014S12A12 1 1 1 1 1 1 1 1 1 1 8701: 82211632D014S3024Q1CDA1282300034C0002912810J10282SB10300116323A1281100029J10187^C1163212824J10331/D1 1 11 1 1 1 1 1 1 1 1 8801: 163100029CD1163100034CJ10379^M%T011527WR103313R10355".10331A1282300034J10007^D0140305056CD0140405058 1 1 1 1 1 1 1 1 1 1 8901: 3D0141205524CD01413055313D01413055383D01413055453D0141705574CD01418055813D01418055883D01418055953V10 1 1 1 1 1 1 1 1 1 9001: 565014112V10565014162D0141702474CD01411024733C0247401412J11326SD12825017307D0248005123CD02481051253D 1 1 1 1 1 1 1 1 1 9101: 0248005209CD02481052113D0248010688CD02481106953D0248005135CD02481051563D02481051493M%U101700WR00101" 1 1 1 1 1 1 1 1 9201: D0248405228CD02485052303D0248405240CD0248405314CD02485053163D0248410813CD02485108203D02485052613D024 1 1 1 1 1 1 1 1 1 9301: 85052543M%U101700WR00101"D0248805340CD02489053423D0248805352CD0248805426CD02489054283D0248810938CD02 1 1 1 1 1 1 1 1 1 9401: 489109453D02489053733D02489053663M%U101700WR00101"/01730J05113^J01613^J05330^W1103401416&D1282505587 1 1 1 1 1 1 1 1 1 1 9501: 3D12826055883D12826055953J11070^J12865^N^^^^D01418110633U%U1RR00101"V11271014112J12938^N^^^^D0141311 1 1 1 1 1 1 1 1 1 1 1 1 9601: 1113U%U1RR00101")0550005512)05514D01400024191DB11184024192J11345^N4194B11252024195M%T011457WR111843R 1 1 1 1 1 11 1 1 1 1 1 1 9701: 11208".11184D02419024513J11345^D1281102451CJ11345^D1282702451CJ11345^D01413055143D12825055373D128260 1 1 1 1 1 1 1 1 1 1 9801: 55383D12826055453J11135^D1282202475CJ10565^B11388024193B11407024194D1241502500.J11426^D1163302500.J1 1 1 1 1 1 1 1 1 1 1 9901: 1426^D1202402500.J11426^D0264402467CD0279402462CJ06296^ERROR^02792^SPECIFIED^MACHINE^SIZE^IS^ILLEGAL 1 1 1 1 1 1 10001: ^FOR^FORTRAN^COMPILATION"ERROR^02791^INSUFFICIENT^NUMBER^OF^WORK^TAPES"ERROR^02793^INPUT^NOT^FOUND^O 1 1 10101: N^UNIT^SPECIFIEDAS^INPUT"^^^^^^380903999038090206452075020645207502255020750225502420022550309003603 11 11 1 1 1 1 1 1 1 1 1 1 1 1 1 10201: 5309003603536360360353721038090372103636036510363603701037210370103651037010365102420025500242002550 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10301: 0276002550027600306502760030700309003070028250287152825028715322702871532270331703227033170371703317 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10401: 0236403864023640386403964038640396403999039640243002450024300245002490024500249002690024900269002930 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10501: 026900293002969029300"561905999056190206452075020645207502615020750261502906526150384405274038440527 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10601: 4053390527405509056190550905339053690533905469055090546905369054690536902906531665290653166535375316 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10701: 6535375384253537530700311003070028250291802825029180362902918036290380903629038090440903809023640536 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10801: 4023640536405564053640556405634055640243002470024300247002550024700255002950025500295003430029500343 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 10901: 003508034300"723907999072390206452075020645207502795020750279503086527950434406749043440674906846567 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11001: 4907101572390710156846568915684657041571015704156891570415689153086536065308653606539775360653977542 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11101: 8253977530700313003070028250296452825029645403102964540310430104031043010530104301023640686402364068 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11201: 6407164068640716407269071640243002490024300249002610024900261003210026100321003930032100393004047039 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11301: 300"0002550000000014143"N7^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^V12919014062D0141712864CD01406128633C 11 11 1 111111 1 1 1 1 1 11401: 0140712864J11070SD0141711061CJ11046^V12992014062D0141212864CD01406128633C0140712864J11118SD014121110 1 1 1 1 1 1 1 1 1 11501: 9CJ11094^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1: RUN1A065070650013000J07936^J07936^ 1: J17288^D1253501174CJ01175^B09522024091D1253602408CB08632024201C0245712538/01799J06901SB06605024771J1 1 1 1 1 1 1 1 1 1 1 1 101: 1221^B07016024491D1253602477CB08267024501D0179902387L,02378D0861402377LD08614023763D1254102417LD1254 1 1 1 1 1 1 1 1 1 201: 402412LD0861402428LDD0246702644CD0246202794CD0861400029CD025'4025/4CA1254600029B06798025'0"J06756^D1 1 11 1 1 1 1 1 1 1 301: 255101369CD1255101362CD12552017807J05442^D0140711444CD01408114583J01578^0170007016D12553039463J06962 1 1 1 1 1 1 1 1 1 1 401: ^D1255801369CD1255801362CJ06822^M%T012632WR069323R06956".06932A1255902457D0245706407CM%T006388WR0698 1 1 1 1 1 1 1 1 1 1 1 501: 53R07009"J07253^D0140307090CD01404070923D1253602420CJ11221^J11221^J11221^J11221^J11221^U%U0RR00101"? 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 0723900099?1256000094S1255900094J07205VV0718700??12D00??3071803D00??207178TU%U1RR00101"A1256100099J0 1 1 1 1 1 1 1 1 1 1 701: 7121^M%T007240WR072053R07229".0720501405END^OF^BATCH"C0171712564J07726/D0172902387LM%T002378WR072833 1 1 1 1 1 11 1 1 1 1 801: R07307"D0173908618JD0173408616JC0861612566J07688SA1253608616C0861612568J07793TD1256802390CC086181256 1 1 1 1 1 1 1 1 1 1 901: 6J07707SA1253608618C0861812568J07849TD1257002392CD0176602448LD0176702476LD0176902413LJ07509^N2455023 1 1 1 1 1 1 1 1 1 1 1001: 97J08224/D0264408631CS0263908631?0863108626%0239008623,08625S0862602644)08625D0279408631CS0278908631 1 1 1 1 1 1 1 1 1 1 1101: ?0863108626%0239208623,08625S0862602794)08625J07681^N448LD0176702476LD0176902413LJ07916^D1257002390C 1 1 1 1 1 1 1 1 1 1 1 1201: J07390^D1257702392CJ07449^J01550^08374D1257002390CD1257702392CJ12687^N397CD1255908508CJ07509^C086161 1 1 1 1 1 1 1 1 1 1 1 1 1301: 2579J07830UD1257902390CJ07390^D0861602390CJ07390^C0861812581J07886UD1258302392CJ07449^A1258408618D08 1 1 1 1 1 1 1 1 1 1 1 1401: 61802392CJ07449^B07969085081D1255101369CD1255101362CJ01578^0170007016D1253608508CD0248404019CD024850 1 1 1 1 1 1 1 1 1 1 1501: 40263D02485040333D02485040403D1258901369CD1258901362CD0248011715CD02481117223D02481117293D0248111736 1 1 1 1 1 1 1 1 1601: 3D0250900029CS1255900029D0256400034CJ04989^D0244202441CJ06500^D0003402474CD1252500034CJ11669^D125941 1 1 1 1 1 1 1 1 1 1 1701: 2525CD0247400034CJ00!!0^M%T008395WR082243R08248"D0245502397CJ07509^M%T008297WR082673R08291".08267ERR 1 1 1 1 1 1 1 1 1 1 1 1801: OR^02795^BATCH^COMPILATION^ERROR^-^AS^INPUT^TAPE^SPECIFIED^AS^OUTPUT^TAPE"***^BOP^CARD^MISSING'ERROR 1 1901: ^12797^MACHINE^SIZE^SPECIFICATIONS^ON^BOP^AND^CONFIGURATION^CARDS^DO^NOT^AGREE"ERROR^327^^^FATAL^DIA 1 2001: GNOSTIC"^ERROR^02796^COMPILER^ERROR^-^RESTART^COMPILATION"1^FATAL^DIAGNOSTIC^FOR^COMPILATION^^^00000 11 11 1 2101: 000000000000000^^^^^^^^^^^^^^^^^C0242212596J08680/M%T008509WR086503R08674".08650D0242208489CM%T00847 1 1 1 1 1 1 1 1 1 1 1 1 2201: 9WR086923R08716"B01683024210./31032/,30901D12552310327J01592^30900AD0245708594TD0859430936TJ01592^30 1 1 1 11 11 1 1 1 11 1 1 1 2301: 900SD12597029803D12598039463D1260301369CD1260301362CB09057024210B09057024211J09255^B08969024214J0153 11 1 1 1 1 1 1 1 1 2401: 6^B05113024213B05330024212D0401902983CD04026029973D04026030043J09255^J05113^J01613^J05330^D126040401 1 1 1 1 1 1 1 1 1 1 2501: 63D12553039463D12604029803D12553029413B07016024491J06562^D0248009096CD12605090953D0248109098CU%U1MR0 1 1 1 1 1 1 1 1 1 1 2601: 0101"J01536^J05113^D1261000034CD12552000!03D0248002983CD02481029973D02481030043J09255^B08969024210J0 1 1 1 1 1 1 1 1 1 1 2701: 5330^D0248802983CD02489029973D02489030043J09255^J08969^G09273BJ01501^00000J09288^J09262^G09398BD1261 1 1 1 1 1 1 1 1 1 1 1 1 2801: 500029CD0170001700YG02474BS1261802474C1262302474J09400U/31031/,30901D017'030901,J01592^30900SJ00000^ 1 1 1 1 1 1 11 1 1 1 11 2901: A1261800029D016Z931031LJ01592^30900SJ09326^D1262804170CD1259412525CD1261003077CD12552030783D12559024 1 1 1 1 11 1 1 1 1 1 3001: 77CD1253602420CJ08969^D1253602409CC0117402499J09443/B09443024081D1258901369CD1258901362CJ01578^01700 1 1 1 1 1 1 1 1 1 1 3101: 09443J09588^C0245712630J09774/V09750014062V09696014112D0141209957CD01406099563C0140709957J09900SV097 1 1 1 1 1 1 1 1 1 1 1 3201: 62014162D0141709957CD01406099563C0140709957J09900SB09886024751W0978101411&J00!!0^G09884BD0141209851C 1 1 1 1 1 1 1 1 1 3301: D01413098583D01413098653D01413098723D12605098503L%U110000WR00101GR049478R09879"J00000^J09781^J09774^ 1 1 1 1 1 1 1 1 1 1 1 3401: D1255902450CD0140709939CD01408099413U%U1RR00101"J09750^^^^0101"J09765^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 3501: B354.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 3601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^Y/68347D/69347B784.^ 1 1 1 1 3801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"LP^^X72B37600^^JOB^^,333,001005M344004.388/0801M004337/332/M/70331M 1 11 1 1 111 1 1 1 1 1 11 1 11 1 3901: %B1201RB/36KB'43LS346B490331_B562DB562336PB388BB388334^B486201^B4772010F4791FJM/692012388B503EB52733 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4001: 7^,281M333281M%B4201WB/00LB388CB388335^/180,101M2801804K4B388/180B851202+B832205^B824210G,101106M205 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 4101: 104B814216*,116121M286172M232120M225115BS01N^^)663Y/69664B791072^,663M664694M664701M664790M072347M17 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4201: 2348B873347LB899347GB925347RB936347.B962347DB973347WB991347,B'17347QB181347CM/71347M347172,663S/7266 1 1 1 1 1 1 1 1 1 1 1 1 1 4301: 4B8216631B647M2821724K8/080B443/072,021M286072B443M353120,121M286172B821M/73347B784348PM/74347B784M3 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4401: 33347B784348MM/75347B784M/76347B784M/77347B784348,M/78347B784M/70347B784D/73347Y/79347B784M/79347B78 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 4501: 4348^M/80347B784M/81347B784348TM/82347B784B'673451U%U1BA/72346B388/180,101M2801804S346M338201FL2388U 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 4601: %U4BM%B4201WB/22LB527U%U4BU%U4EB514B/49EB/83337^U%U4BU%U4MU%U4BB/83S^_(1[<>];:\!+?B/96DB354336^4354. 1 1 1 1 1 1 1 1 1 1 1 1 1111111111111111 1 1 1 4701: B8212010M340664B647."G00074BD0141211389CD01413113913D12605113883D0141711358CD01418113603D12605113573 1 1 1 111 1 1 1 1 1 1 4801: B11355024751V11331014112J11386^V11367014162B11367024201U%U1MR00101"D1253602420CJ00!!0^U%1UMR00101"J1 1 1 1 1 1 1 1 1 1 1 1 1 4901: 1331^B1150301700>D00!!411439CD0170000000.M%U001700RG02474BR00101"J00!J0^D1263101700CD1255902449CJ00! 1 1 1 1 1 1 1 1 1 1 5001: J0^D00!!911532CD1255902408CJ00000^D0003402474CD1252500034CD00!!411575CD00000000!0YG02494BC0249412530 1 1 1 1 1 1 1 1 1 5101: J11669TD00!!411624CD00000000!0,G12525BN0185002441&D0247400034CJ00!!5^G11748BD12552000!0GD1259400034C 1 1 1 1 1 1 1 1 1 1 5201: B11743000!0"M%U0000!0WR00101GR049478R11743"J00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 6001: ^^^^^^^^^^^^^^^^^^^^"1175012520RUN1B0000010041507016",06932185BOP^^0305^^^^^109945472114721175096L+0 11 1 1 11 1 1 1 1 111 1111 1 1 1 1 1 1 1 1 11 1 1 111 6101: 3030MU0307800000131017000417601>ERROR^02793^INPUT^NOT^FOUND^ON^UNIT^SPECIFIED^AS^INPUT"D0179902387LD 111 1 1 1 1 1 11 11 1 6201: 0179902448LD0179902476LD0179902413LJ07774^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1: RUN1B065261500007000J07936^J07936^ 1: 0000*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 301: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 801: ^^^^^'0000*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1401: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^'00000000^^^^^^^^^^^^^^ 1 111 2101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0000?00^^^^^^^ 1111 1 1 1 2201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0000000000000^^^^^D1727400029G 1 1111 111 1 2301: D1727400034GD1727400039GD1727400044GD1727400049GD1727400054GD1727400059GD24416023773D2442202434CJ015 1 1 1 1 1 1 1 1 1 2401: 78^150'523826C17269150X6J17396SB17551150'5CC17269150'9J17631/B17692150/0^B17692150/00C0002917274J177 1 1 1 1 1 1 1 1 1 1 1 2501: 28SC2442700029J17920SD24428150/03A2443000029J17396^C0002917274J17612/D24431150X7CD2443415003CJ01550^ 1 1 1 1 1 1 1 1 1 1 2601: 15000J17396^D24435172753J18028^B17692150/0^B17692150/00C0002917274J17728SD24436172753J18028^C0002917 1 1 1 1 1 1 1 1 1 1 1 2701: 274J18028/A2443000029J17396^A2443000029J01578^150'523845B17829150'5CB17841150/0^B17841150/00C0002924 1 1 1 1 1 1 1 1 1 1 1 2801: 427J17728UD24416172753J17920^D2443517275CD2443815003CD150'5172823J24116^N^^^^J01550^15000D17282150'5 1 1 1 1 1 1 1 1 1 1 1 2901: 3B23864172753J20178^D2444015003CD24431156533J01550^15000D1727400029CJ01578^150'523864B17569150'5CB17 1 1 1 1 1 1 1 1 1 1 1 1 3001: 533150/0^B17533150/00J17968^D1727400034CD1727400039CD17269158A5CC17269150!9J18125/D150J0158A63D24445 1 1 1 1 1 1 1 1 1 3101: 00034CD2444500039CJ18347^B18246150!5^V18223150!52B18180150!5FD2444715003CJ17853^B18211000340D2444715 1 1 1 1 1 1 1 1 1 3201: 003CJ17853^D24436164843D150!5158A13A2443600039A2443600034B18276000345J18125^D2445200039CD150!5158A13 1 1 1 1 1 1 1 1 1 3301: A2443600039J18318^A2443600034C0002900034J18425SB18318150!5^B18395150!50W18463150!58B18444150!5^D150! 1 1 1 1 1 1 1 1 1 1 3401: 5158A13A2443600039J18318^D24431158A1CJ19304^D2445415003CJ17853^W18494150!54W18537150!52J18395^B18395 1 1 1 1 1 1 1 1 1 1 3501: 150!5*B18611150!5%B18629150!5)J18444^B18647150!5#B18984150!5,B18395150!5.B18592150!5$J18444^D2443617 1 1 1 1 1 1 1 1 1 3601: 2813J18395^A2443617190J18395^S2443617190J18395^C1719024456J18684SD24436171873J18395^B18395171871C158 1 1 1 1 1 1 1 1 1 1 1 3701: 2324463J18764/D2446800044CJ19033^B18934171880D2443617187CJ18395^C1582024472J18934/B1893415821%C00039 1 1 1 1 1 1 1 1 1 1 3801: 24477J18934UD2448200044CB1889115Y11%C0003900044J18934SA2443600044J18824^D2448415003CJ17853^C24489000 1 1 1 1 1 1 1 1 1 1 3901: 44J18872UA2443500044J19033^J18733^B18965171860D2449115003CJ17853^D24436171863J18395^C1719024456J1839 1 1 1 1 1 1 1 1 1 1 1 4001: 5/B18395171860D2443616485CJ18395^G19117BD2441617188CB1911915Y11HA2443600044C0004400039J19112SB191121 1 1 1 1 1 1 1 1 1 1 4101: 5Y11'J19052^J00000^D0004400049CS2443600049S2449200044V1918315Y/12A2449300044J19075^S2443600049V19260 1 1 1 1 1 1 1 1 1 1 4201: 15Y/12B1928515Y/1%B1928515Y/1,B1928515Y/1/A2449300044J19075^C0004400049J19242TJ19183^D24436171883J19 1 1 1 1 1 1 1 1 1 1 4301: 112^D1727400039CB19679171861B19437171871B20348164840D2449415807CD24416164843B20067172811C1719024456J 1 1 1 1 1 1 1 1 1 4401: 20104/J01522^15806D24436023773J20154^D24416171873C158B324463J19710SC158B024472J22453SC158B924507J219 1 1 1 1 1 1 1 1 1 1 1 4501: 26SC158B024511J19570/V21907158B12C158B424519J22064SD2452115003CJ17853^C158B124526J21945SC158C124541J 1 1 1 1 1 1 1 1 1 1 1 4601: 22120SC158B124546J22045SC158B524555J22323SC158B024559J22237SD2452115003CJ17853^B19994164851D24560158 1 1 1 1 1 1 1 1 1 1 4701: 073J20043^C17269158A5J19975SD2456115807CD2447700044CB1978215'05%A2443600044J19752^D15'0615824#G00064 1 1 1 1 1 1 1 1 1 1 4801: BC0002924566J19932SD2457100034CD150!599R99#D0002900044CS2457300044C0004400034J19913SA2443000034A2457 1 1 1 1 1 1 1 1 1 1 4901: 300064J19831^D2443100!653J19944^D2443199R993J01522^15806D2443602377CJ20154^D2457515003CJ17853^C158A8 1 1 1 1 1 1 1 1 1 1 1 5001: 24577J20031SD2457915003CJ17853^D2458015807CD2457517192CB20086172810D2458215003CJ17853^C1719024456J20 1 1 1 1 1 1 1 1 1 1 5101: 154SV2013517190BD2458415003CJ17853^D2458615003CJ17853^J01550^15806B23864172753D24436172773D244161718 1 1 1 1 1 1 1 1 1 1 5201: 63D24416172813D2441616485CD1727415003CD1727415809CD2445617190CD150X615076CD1727400029CB20329172752B1 1 1 1 1 1 1 1 1 1 5301: 7533172750D24416172753J17728^D24416172753J17569^V20403158A7BV21714158A7KV22102158A7SD2457915003CJ178 1 1 1 1 1 1 1 1 1 5401: 53^B20568158A7CB20660158A7IB20954158A7FB21163158A7DB21237158A7GB21378158A7EC158B224592J20512/D245931 1 1 1 1 1 1 1 1 1 5501: 5807CJ20043^C158B524602J20549/D2460315807CJ20043^D2457915003CJ17853^C158B024472J22453SC158B224609J20 1 1 1 1 1 1 1 1 1 1 1 5601: 641SC158B524618J20549/D2461915807CJ20055^D2449215807CJ19376^C158B924632J20892SC158C024646J20923SC158 1 1 1 1 1 1 1 1 1 1 1 5701: A924649J20861SC158C724670J20830SC158B924683J20799SC158C424701J20549/D24702158073D2470417192CJ20055^D 1 1 1 1 1 1 1 1 1 1 1 5801: 24705158073D2470417192CJ20055^D24706158073D2470417192CJ20055^D24707158073D2470417192CJ20055^D2470815 1 1 1 1 1 1 1 1 1 5901: 8073D2470417192CJ20055^D24709158073D2470417192CJ20055^C158B324463J19710SC158B424717J21063SC158B12472 1 1 1 1 1 1 1 1 1 1 6001: 2J21125SC158B224728J21144SC158B524737J20549/D2474015809CJ20154^B21106172771D24741158073D24435023763J 1 1 1 1 1 1 1 1 1 1 1 6101: 19376^D2474315003CJ17853^D2474615809CJ20154^D2474615809CJ20154^C158B524755J21218SC158B724766J20549/D 1 1 1 1 1 1 1 1 1 1 1 6201: 2474615809CJ20154^D24436158073J19376^C158B124771J21347SC158B024775J20549/V21316158B12D24776158073D24 1 1 1 1 1 1 1 1 1 1 6301: 704171923J20055^D24777158073D24704171923J20055^D24778158073D24704171923J20055^C158B024782J21488SC158 1 1 1 1 1 1 1 1 1 1 6401: B024786J21488SC158B324793J21469SC158B824805J20549/D24435158073J19376^D24806158073J20043^D24807158073 1 1 1 1 1 1 1 1 1 1 6501: B21548172753D2480915809CJ01578^1500521676J21524^C0237624416J21640/C1719224704J21676SC1719224575J2162 1 1 1 1 1 1 1 1 1 1 1 1 6601: 1/D2481421675CJ21664^D2481921675CJ21664^B21676172761D2482421675CJ01550^00000J01550^15806B21707023770 1 1 1 1 1 1 1 1 1 1 1 6701: J01536^J23907^V21889158B12C158B924837J21926SC158B124526J21945SC158B224843J21964SC158B224849J22026SC1 1 1 1 1 1 1 1 1 1 1 1 1 6801: 58B124546J22045SC158B424519J22064SC158B124854J22083SC158B224860J22416/D2474615809CJ20154^C158B024511 1 1 1 1 1 1 1 1 1 1 6901: J20549/D24861158073J20043^D24862158073J20043^D24863158073J20043^B22007023760D24436172763D24864158073 1 1 1 1 1 1 1 1 1 1 7001: J20055^D2486715809CJ20154^D24868158073J20043^D24869158073J20043^D24870158073J20043^D24871158073J2004 1 1 1 1 1 1 1 1 1 1 1 7101: 3^C158C124886J22139/D24887158073J20043^C158B624897J22219/B22200172771D24436023763D24493158073J19376^ 1 1 1 1 1 1 1 1 1 1 7201: D2474315003CJ17853^C158B024559J22256/D24898158073J20043^C158B024902J22305/D2470417192CD24903158073J2 1 1 1 1 1 1 1 1 1 1 1 7301: 0055^C158B524555J22342/D24904158073J20043^C158B624914J22379/D24915158073J20043^C158B524924J20549/D24 1 1 1 1 1 1 1 1 1 1 1 7401: 92715809CJ20154^C158B424935J20549/D2492715809CJ20154^D2448200039CB22525158A1%B22567158A1'C0003924489 1 1 1 1 1 1 1 1 1 7501: J18872SA2443600039J22465^D0003900044CA2443500044J19033^B22586171881D24936158073J20043^D15005164863D1 1 1 1 1 1 1 1 1 1 1 1 7601: 500616487#G00064BD150'5172823C0002924566J22760SD2457100034CD150!599R99#D0002900044CS2457300044C00044 1 1 1 1 1 1 1 1 1 7701: 00034J22741SA2443000034A2457300064J22659^D2443100!653J22772^D2443199R993D1648615005.D2494100049CA244 1 1 1 1 1 1 1 1 1 1 7801: 3600039D2445617190CD24416172813B2287315''5%B2337415''5$A2443600049J22831^A2443600049D1727417280CB232 1 1 1 1 1 1 1 1 1 7901: 8815''5'B2287315''5^V2293915''52J23137^D0003917197CD15''5172803D15''5158A13A2443600039A2443600049B23 1 1 1 1 1 1 1 1 1 8001: 28815''5'B2298615''5^V2305215''52B2339315''5HJ23137^B23071172780J23137^D17279172783D17280172793J2295 1 1 1 1 1 1 1 1 1 8101: 1^A2443600049B2328815''5'B2310215''5^B2337415''5$D15''5158A13A2443600039B2322715''5%B2326315''5,B232 1 1 1 1 1 1 1 1 1 8201: 4515''5)B2334315''5'J23102^A2443617190J23102^S2443617190J23102^C1719024456J22873SJ23102^D24431158A13 1 1 1 1 1 1 1 1 1 1 8301: D2445617190CD24936158073D17282150'53J20043^D2448415003CD17282150'53J17853^D17282150'53J20067^D026340 1 1 1 1 1 1 1 1 1 1 8401: 0059CD0005917287CA1728017287C1728702629J23754TD1719700039CA2443616483D24560158A13D16483158A7CA244940 1 1 1 1 1 1 1 1 1 8501: 0039D0005900044CA2443600049D15''500'?03A2443600059S2443617280J23575VJ23516^A2443600049,99ZI9B2367015 1 1 1 1 1 1 1 1 1 1 8601: ''5,B2371215''5)D2494315003CS2443616483D0004400059CD17282150'53J17853^D24944158A13A2443600039D000590 1 1 1 1 1 1 1 1 1 8701: 2634CJ22873^D24945158A13A2443600039D0005902634CJ23288^D2443802422CD24431150'53D2494715003CJ01550^150 1 1 1 1 1 1 1 1 1 1 8801: 00J01578^1500501606J23802^D2449217275CJ18028^D2449217275CJ17841^D2496115820TJ01550^15806B23907023770 1 1 1 1 1 1 1 1 1 1 1 1 8901: J01536^J01655^D2496601174CJ01683^J01627^0000***^THE^LAST^EXECUTABLE^STATEMENT^IS^NOT^A^CHANGE^OF^CON 1 1 1 1 1 1 9001: TROL^'0000***^THIS^SUBPROGRAM^HAS^NO^RETURN^STATEMENT^'0000***^THIS^PROGRAM^CONTAINS^NO^VALID^EXECUT 1 1 9101: ABLE^STATEMENT^'D24431150'53D24431156533J17877^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 9401: ^^^^^^^^^^^^^^^^0^^^^^^00720^72'000210102000060300005060?FORMAT%00014CALL0001200011190001607347READI 11 1 11 11 111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1111 9501: NPUTTAPEREADREADTAPE15PRINTWRITEOUTPUTTAPEPUNCHWRITETAPETYPE$600072000786610DO05W240908ASSIGNNBACKSP 1 1 1 1 1 1 1 1 111 1 1 1 1 1 11 1 1 1 11 9601: ACEJCOMMONCONTINUE'YIF%SENSELIGHTIF%SENSESWITCHIF%IFACCUMULATOROVERFLOWIFDIVIDECHECKIFQUOTIENTOVERFL 11 1 11 1 1 1 1 1 9701: OWS11TR%PQFUNCTIONFIND%FETCH%FREQUENCY014516026DIMENSIONDEFINEFILE%GOTO%GOTOMKLEND'END%ENDFILEEQUIVA 11 111111 1 1 1 1 11 1 1 1 1 1 1111 1 1 1 9801: LENCE%HZ23239402405524006READINPUTTAPERETURNREWINDPAUSERECORD#ACG020IXBUWRITEOUTPUTTAPEDSUBROUTINEES 111 1 1 1 1 1 1 1 1 11111 11111 11 11 9901: TOPVFSENSELIGHTOWRITEDRUM018READDRUM&0001027,)00Z13*^^^^^^END'RUN2A^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 111 11 1 1 11 1 111 1 1 1: RUN2A065070650005000J01515^J01515^ 1: J07000^D0248402983CD02485030043D02485029973J01613^D0248804019CD02489040263D02489040333D02489040403D0 1 1 1 1 1 1 1 1 1 1 101: 6862040163D06863039463J05442^B06848024401/02375//////D0268900029CD0253400034CS0686400029J04989^D0244 1 1 1 1 1111111 1 1 1 1 201: 3024413J06500^D0003402474CD0417000034CJ03973^D0686904170CD0247400034CD0248004019CD02481040263D024810 1 1 1 1 1 1 1 1 1 301: 40333D02481040403D06870040163D06871039463J00!!0^/01849/J06653^L+104176M,D00'/000049CB0687200'/1XJ194 1 1 1 1 1 11 1111 111 1 1 401: 42^D00'/000049CB0690300'/1XJ10567^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 501: ,01700D2034601717TD02387D20353J14100^J07068^N744TD02397D20392J14100^D2040001707TJ14100^D2041101710TJ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 601: 14100^D2034601711TD02397D20417J14100^D2034601709TD02392D20424J14100^D2034601709TD02390D20431J14100^D 1 1 1 1 1 1 1 1 1 1 1 1 1 701: 2043701705TJ14100^D2044200069CD0260400054CC18KV418436J07417SC0005402599J07398SD2044300'J0XD20445B073 1 1 1 1 1 1 1 1 1 1 801: 7918KU8XD2044600'!7X,18KV4D18KV400'!6XD18KV300'!5XA2044700069A2044900054J07242^D2045000'!7XJ07320^D1 1 1 1 1 1 1 1 1 1 1 901: 745902422CJ01606^D0005402604GB18680023770D0268418646CS1746518646D18645186462D0258900054GD0257400064G 1 1 1 1 1 1 1 1 1001: D0266900084GD02654/02374//////,01702,,,0171101705J01501^07639A2045118534D01701075953B08155204580B091 1 1 1 1111111 111 1 1 1 1 1 1 1101: 70B09054B08998B13699B08973B08350J07518^D2045900!?0GD2045900?00GC0253902544J14938SD0254400059CD185620 1 1 1 1 1 1 1 1 1 1 1 1 1201: 0'A7XD0005902402CA2046102544C0253400059J07759/,18667J07759^D0265400099CB0788400??09D0009908039CD0009 1 1 1 1 1 1 1 1 1 1 1301: 900069CA2046200069A2046400099J15285^C00!'020445J07968/V08047186651A2044600099J07771^V08073186631C025 1 1 1 1 1 1 1 1 1 1 1401: 0902514J15383SD0251400049CD1858200'T7XD0004902407CA2046602514J09286^D0803907996CD08039D0000000000YG0 1 1 1 1 1 1 1 1 1 1 1501: 0099BS2045100099D00098000992J01522^^^^^^J07854^D2047100099CJ14126^J07783^J01613^S2045118539J08117VJ0 1 1 1 1 1 1 1 1 1 1 1 1 1601: 1501^08136J08080^,18665)18663J07854^D2047302422CJ01606^D2047800099GD2048300069C,01705J17466^J08313^D 1 1 1 1 1 1 1 1 1 1 1 1 1 1701: 1737418445CD2048800069CD1851200094CA2048900094D1843801G!5TB0833201P'5^D01P'518445TD1845201716TJ01522 1 1 1 1 1 1 1 1 1801: ^01703J07518^J01522^01700J07518^S2045100069J08258^D1863600099G,18662D2049414880CC0258400054J08936SA2 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 044600099J14655^C1735620496J08683TV08740186621D2050100'J2XD17364D20450D20507D17356084981D00??000'!0L 1 1 1 1 1 1 1 1 1 1 2001: C0006402569J09700SD0005400!12XD17364D20508D00'!5A2051000064A2044600099V08800186621A2051000054B089550 1 1 1 1 1 1 1 1 1 1 1 2101: 0??0)B0838000??0,D1744701703CD0005402589CD0006402574C)0884218662D20450023763J08313^D1744901703CJ0862 1 1 1 1 1 1 1 1 1 2201: 9^D1745101703CJ08629^D1745701703CJ08629^A1735608761D00??002429LC2051217356J08446TB0870200??0FJ08446^ 1 1 1 1 1 1 1 1 1 1 2301: )18662D2051300'!63A2051000054B0890400??0%NJ08917^D0005402589CD0006402574CB0751800??0'D1745501703CJ08 1 1 1 1 1 1 1 1 1 1 2401: 629^)08842J08380^D1745301703CJ08629^D1746102422CJ01606^A2044600099J08849^,08842D1864100099GJ08362^D2 1 1 1 1 1 1 1 1 1 1 1 1 2501: 051800099GD2048300069CJ14889^C0170320445J07518SJ08313^V07518186631D0007909088CD0170000000YG18517BC18 1 1 1 1 1 1 1 1 1 1 2601: 51702659J09146TD0170000!?0+D1851700079CJ07518^,18663?1853418539J07518^V07518186641D0008409204CD01700 1 1 1 1 1 1 1 1 1 1 2701: 00000YG18517BC1851702674J09262TD0170000?00+D1851700084CJ07518^,18664?1853418544J07518^D0250400049CV0 1 1 1 1 1 1 1 1 1 1 1 2801: 9466186671B0946600''0*D0253400059CC00''500'?5J09399SA2046100059C0005902544J09334/A2046600049J09310^D 1 1 1 1 1 1 1 1 1 1 2901: 2051900'/1CD2051900'A1CD00'/700'A7CD0005900'/0CD0004900'A0CJ09381^V09719186671D0253400059CB0971900'? 1 1 1 1 1 1 1 1 3001: 0*D0256400064CC0006402574J09568SC00'?500!05J09657SA2051000064J09514^C0256900064J09700SD0005900!12XD0 1 1 1 1 1 1 1 1 1 1 1 3101: 0'A2D00'A1D00'?5A2051000064D0006402574CA2046100059J09490^B0963900'A1SD00'A100!06CD00'A000!12CJ09639^ 1 1 1 1 1 1 1 1 1 1 3201: D1739302422CJ01606^D0266900099CB1044900??09D0009918457CA2052100099D0255918467CD1864600079CD184570006 1 1 1 1 1 1 1 1 1 3301: 9CA2046200069J16515^D0009918462CC00!'020445J09971SD1845709933CD1845709890CD18457D0000000000YG18462BS 1 1 1 1 1 1 1 1 1 1 1 3401: 2045118462D18461184622J01522^^^^^^C1846702559J09971/D0255900054CJ13530^D1846700054CA1746500079C00079 1 1 1 1 1 1 1 1 1 1 3501: 02689J10332SD00'J000!A0XD00'!5)00!D900!D7)00!D8D0256400064CC0006402574J10120SJ10120TC00'!500!05J1035 1 1 1 1 1 1 1 1 1 1 1 3601: 1SA2051000064J10059^C0006402569J10145UJ09700^D1846700!12XC2052200'!0J10295UD2044600!07XD2052300!06XD 1 1 1 1 1 1 1 1 1 1 1 3701: 00'!5D0006400!C6XA2051002574D2050100!B1XD2050100!C1XD00!A0D00!?500!A6XD2050100!D6XD20501J11318^C2052 1 1 1 1 1 1 1 1 1 1 3801: 400'!0J10175UD2045000!07XJ10187^D1746302422CJ01606^D0006400!C6XB1061000!06P,00!D9B1041200!06VB104120 1 1 1 1 1 1 1 1 1 1 3901: 0!06EJ10641^,00!D8D00!1200049CB1055500'/1EJ10567^V10468186641J18680^J01613^S2045118544J10536VJ01501^ 1 1 1 1 1 1 1 1 1 1 1 4001: 0170010517J10475^D2047302422CJ01606^,18666)18664J13613^J06903^^049CD0004918631CD0004900!D6XD2050100! 1 1 1 1 1 1 1 1 1 1 1 1 1 4101: D1XJ10822^D1744300!'0CD1846702559CJ09850^B1068400!06DB1140000!06SD00!1200!B1XJ10240^,00!D700!D8D00!1 1 1 1 1 1 1 1 1 1 1 4201: 200!D6XD00!1200049CD00'/000!D1XD00'/000059CC0005902402J11449TC00'A120525J11499/D00'A000059CD0005900! 1 1 1 1 1 1 1 1 1 4301: D1XJ11449^D0005918631CD1863100099CD00?A700!B6XD00?A0DC00!B120501J11306SC00!?500!A6J11306SD0251900089 1 1 1 1 1 11 1 1 1 1 4401: CD0005418472CD00!B100054CD00!B118477CB1104000'!0$V10979186711C00'!500!?5J11009SA2044900054B1105300'! 1 1 1 1 1 1 1 1 1 4501: 0*J10937^D00'J000!C1XD1847200054CJ11318^,18670J10979^)18671V11156186701S2052600089C0251900089J11137T 1 1 1 1 1 1 1 1 1 1 1 4601: D00?'400054CD0005418477C,18671J10937^D2047302422CJ01606^)18670D1847700054CB1120400'!0$A2044900054J11 1 1 1 1 1 1 1 1 1 1 1 4701: 174^C0008902524J11287SD0005400?'4XA2044900?'4A2052700089D00'J018477CD00'J000054CJ10937^D1739902422CJ 1 1 1 1 1 1 1 1 1 1 4801: 01606^D2050100!C1XD00!A000!E4XA00!C100!E4D00!B600!E9XS00!E400!E9A2044900054C0005402559J09983/J11615^ 1 1 1 1 1 1 1 1 1 4901: D00!1200!D1XD00!1200059CD2050100!D6X,00!D7J10743^B1146800'A1XJ10810^D00'A000!D1XD00'A000059CJ11449^D 1 1 1 1 1 1 1 1 1 1 1 5001: 0005900089CC0253902544J14938SD0254400059CD00?/700'A7XDDD20501D00?'5D2052500?/1CD00059D0005900!D1XA20 1 1 1 1 111 1 1 1 1 1 5101: 46102544J10810^D1864600089C)1866918668A1746500089C0007900089J11724UV1169800?U71V1171100?U81J11638^,1 1 1 1 1 1 1 1 1 1 1 5201: 8669J11638^,18668J11638^V12027186691V11850186681D1864600089CD2050118517XA1746500089C0007900089J11984 1 1 1 1 1 1 1 1 1 1 5301: UC00?/020532J11844/C00?T120501J11844/J11772^,18672D1865614402CD1865614437CD1865614474CD1865614506CD0 1 1 1 1 1 1 1 1 1 1 1 5401: 240718507CJ14270^J12126^D0251400049CC0004902509J15383SD0004918492CA2046602514J12126^D2053718497CD205 1 1 1 1 1 1 1 1 1 1 5501: 0118492CD2053218482CJ12233^D1865114402CD1865114437CD1865114474CD1865114506CD0240218507C,18675J14270^ 1 1 1 1 1 1 1 1 1 5601: J12126^D2047302422CJ01606^D1849700089CD1849200069CD00?/600!'5XV1242518487KA1848218487D1848700!/7XD00 1 1 1 1 1 1 1 1 1 1 5701: ?T600089CD00?'700!/2XD2044300!/1XD0007902694CD0268400079CD1846700054CD1848218502CS00!A018502D1850200 1 1 1 1 1 1 1 1 5801: 'J0CD00'!600'J02S00!C118502V1254900!D81V12444186691V12382186681V12382186721J12871^D00!C600064CD20538 1 1 1 1 1 1 1 1 1 5901: 00!063D1849200!12CJ12871^D1848200!/7XJ12197^D00!C600064CD1849200!12CD2053900!06CV1249900!D71J12871^D 1 1 1 1 1 1 1 1 1 1 6001: 00!D100059CB1253000'A1XJ12871TD1849200'A0CJ12871^D00!D600049CD1849200'/0CV12751186691D00!D600049CB12 1 1 1 1 1 1 1 1 1 6101: 64600'/1XC00!D618492J12871SD2053800'/13J12871^D00!C600064CB1270100!06EB1272000!06VD2047302422CJ01606 1 1 1 1 1 1 1 1 1 6201: ^D1849200!12CJ12871^D00!1200049CD1849200'/0CJ12871^C0240700!D6J13068UD2051900'/13V1249900!D71D00!C60 1 1 1 1 1 1 1 1 1 1 6301: 0064CD2051900!063C0240700!D6J12871TD00!1200049CD1849200'/0CD2051900'/13C00!B120501J13247SD2054000'!0 1 1 1 1 1 1 1 1 1 6401: 3D00!B100'J0CD0251900089CD00!B100069CV1296700!D81V1296700!D71,18674B1329400!'0$A1850200!/0D00!'600!/ 1 1 1 1 1 1 1 1 1 6501: 02V13365186741V1303800!D71V13171186691A2044900069B1312300!'0*J12967^D00!D600049CD2052500'/13D00!C600 1 1 1 1 1 1 1 1 1 6601: 064CB1244400!06EJ12781^S2052600089C0251900089J13247TD00?'400069CJ13049^J14171^B1320900!06VB1322800!0 1 1 1 1 1 1 1 1 1 1 6701: 6EJ13038^D2051900!063J13038^D2053900!063J13038^A1746500079A2044900054C0005402559J13471SJ12269^C00089 1 1 1 1 1 1 1 1 1 1 1 6801: 02524J11287SD0006900?'4XA2054200?'4A2052600089D00!/000069CJ12967^J14171^C1849220501J13452SD1849200!1 1 1 1 1 1 1 1 1 1 1 6901: 2CV13433186751D2053800!063J13038^D2053900!063J13038^D1846700!12CJ13038^)1867418675)18672C1849220501J 1 1 1 1 1 1 1 1 1 1 1 7001: 13530SD1849200069CD1846700!/0XC0255402559J16628SD1855500'J0XA2044902559D1846200099CB1360200??0'J0976 1 1 1 1 1 1 1 1 1 7101: 6^A2044600099V13632186661J09731^D2047100099CJ01501^0170018680B09731017012J13644^D1739502422CJ01606^D 1 1 1 1 1 1 1 1 1 1 1 1 7201: 2054700099CD0257400064CD2055214880CC0006402569J09700SA2055300099J14655^C1735620496J14012TC2051217356 1 1 1 1 1 1 1 1 1 7301: J13819TB1403100??0FD2050100!12XD17364D20554D20507D17356138711D00??000!00LD0259400074CC00!!500!05J140 1 1 1 1 1 1 1 1 1 1 1 7401: 62SA2044900074C0260400074J13939SJ13885^A2051000064B1408100??1'B1373500??1,D1745501703CJ14043^D174570 1 1 1 1 1 1 1 1 1 1 7501: 1703CJ14043^D1744901703CJ14043^D1745101703CD0006402574CJ08313^D1744501703CJ14043^D0006402574CJ07518^ 1 1 1 1 1 1 1 1 1 1 7601: G14124BJ01522^01700J00000^G14169BJ01501^07896B14164017011J14133^J00000^G14268BD0256400064CC00!0500!' 1 1 1 1 1 1 1 1 1 1 1 1 1 7701: 5J14263SA2051000064C0257400064J14244UJ14190^D2047302422CJ01606^J00000^G14549BD2055918487CD20559D2055 1 1 1 1 1 1 1 1 1 1 1 1 7801: 918492CD1864600089C,18673A1746500089C0007900089J14532UC1848200?V4J14575SJ14593UC1848700?V9J14636UC00 1 1 1 1 1 1 1 1 1 1 1 7901: 00018507J14325UV14488186731C1849200000J14501UD1849200069CD2052500!/13D0000018492CJ14325^)18673J14469 1 1 1 1 1 1 1 1 1 1 8001: ^D0000000069CD2052500!/13J14325^V14551186731J00000^A2044714549)18673J14544^C1851200?S6J14379TD00?S61 1 1 1 1 1 1 1 1 1 1 1 8101: 8512CD00?V418482CD0008918497CJ14379^D00?V918487CJ14397^G14887BD1737417356CB1477200??0AJ14875TB147720 1 1 1 1 1 1 1 1 1 1 8201: 0??0ZJ14875UB1487500??0!B1487500??0'J14772UD00??0147663B14856205650BBBBBD1736917364CB1482700??1AJ148 1 1 1 1 1 1 111111 1 1 8301: 82TB1488200??1!B1488200??1'A2044617356A2044600099J14784^D1737417364CJ14784^J00000^J00000^G15242BD205 1 1 1 1 1 1 1 1 1 1 1 8401: 7014880TD0254400029XC0002902539J14957UD1738902422CJ01606^J14655^C2057217356J15020TD1740500!'0CJ15225 1 1 1 1 1 1 1 1 1 1 8501: ^D1740300!'0CJ15225^D17369000/7XDDD17374D17362D17356150681D00??0000'0LB1516000??0FD0259400034CC000!5 1 1 1 111 1 1 1 1 1 1 8601: 000'5J15131/D1740100!'0CJ15225^A2044900034C0003402604J15094UA2044600099B1524400??0,B1521400??0'D1740 1 1 1 1 1 1 1 1 1 1 8701: 700!'0CJ15225^A2046100029D0002902544AJ00000^A2046100029A2044600099B1522500??0'J14920^G16452BD2057714 1 1 1 1 1 1 1 1 1 1 8801: 880TD0251400029GD0257400034GC0002902509J15402UC0003402569J15383UD1739702422CJ01606^D1739102422CJ0160 1 1 1 1 1 1 1 1 1 1 8901: 6^C0003402569J15427UJ09700^D2058200044XJ14655^B1547700??1%D1743100!'0CJ16423^B1556400??0FC2057217356 1 1 1 1 1 1 1 1 1 1 9001: J15582TD1742900!'0CJ16423^D1742500!'0CJ16423^D1742700!'0CJ16423^C2058417356J15526UD17374000T7XD000T7 1 1 1 1 1 1 1 1 1 1 1 9101: DDDD17370D20585D17374D17362D17356156491D00??0000'0LA2055300099D1737417376C,00??0D0009900039XB1573600 1111 1 1 1 1 1 1 1 1 1 1 9201: ??00J15765U)000?0D1743300!'0CJ16423^A2044617376A2044600099J15692^A2044617376C00??117370J15812UA20446 1 1 1 1 1 1 1 1 1 1 1 9301: 00099J15765^C2057217376J15855T)000?0D1743500!'0CJ16423^D0004415877CD00??000000CA20446000/2)000?0A204 1 1 1 1 1 1 1 1 1 1 1 9401: 4600099B1595000??0,B1599100??0)D1743700!'0CJ16423^B15931000/23A2052700044A2044600099J15662^B16063000 1 1 1 1 1 1 1 1 1 9501: /21D000S217381C@000S717387C1738220591J16094SD1744100!'0CJ16423^D20446000T2CD000S2000/7CJ16240^B16161 1 1 1 1 1 1 1 1 1 1 9601: 000/23D17387000/7AJ16125ZA000S2000T2A20446000T2J16044ZJ16240^D17387000T7AD000T217381C@000T717387C173 1 1 1 1 1 1 1 1 1 1 9701: 8220591J16221SJ16044^D000T7000T2CJ16106^C0257902589J16317SD0257900054CC000'500'!5J16484SA2051000054C 1 1 1 1 1 1 1 1 1 1 1 9801: 0005402589J16270/D00029000J2XD17364D20585D000'5A2051000034A2046600029A2044600099B1645400??0,B1642300 1 1 1 1 1 1 1 1 1 1 9901: ??0'D1743900!'0CN^^^^^^D0002902514AD0003402574AJ00000^A2044600099B1642300??0'J15328^D0002900'J2XD204 1 1 1 1 1 1 1 1 1 1 10001: 6200'!63J16358^G17305BD2059614880CD0255900029X)1668616694)1672016728B1659900??0%D1742100!'0CJ17288^A 1 1 1 1 1 1 1 1 1 1 10101: 2044600099C0002902554J16666UD1739502422CJ01606^D1740900!'0CJ17288^J14655^B16719173641NJ16746^NJ16903 1 1 1 1 1 1 1 1 1 1 10201: ^,1668616728J16746^NJ16746^NJ16903^,1672016694C2057217356J16783TD1741100!'0CJ17288^D17374000/0XD1736 1 1 1 1 1 1 1 1 1 1 1 10301: 2D17356168231D00??0000'0CA2044600099B1694000??0%D20446000/0CB1692200??0,B1733700??0)D1741300!'0CJ172 1 1 1 1 1 1 1 1 1 10401: 88^D1742300!'0CJ17288^A2044900029J16599^D1737417376C,00??1D0009900039XA2044600099B1702500??00J17043U 1 1 1 1 1 1 1 1 1 1 10501: )000?1D1741500!'0CJ17288^A2044617376J16970^A2044617376C00??117370J17090UA2044600099J17043^C205721737 1 1 1 1 1 1 1 1 1 1 1 10601: 6J17133T)000?1D1741700!'0CJ17288^D00??0000/0C)000?1A2044600099B1719300??0)D1741900!'0CJ17288^A204490 1 1 1 1 1 1 1 1 1 1 1 10701: 0029A2044600099B1659900??0,B1724600??0)J16580^A2044600099B1730700??0,B1728800??0'J16580^D0002902559C 1 1 1 1 1 1 1 1 1 10801: J00000^A2044600099B1728800??0%J17269^A2044900029J17246^00^^^^^^S^000010000000^^^^^^^^^^^111213141519 1 1 1 1 1 1 1 1 111 1 1 1 1 1 1 1 1 1 10901: 404142435152535455565758606162636465666769392273727073777116171860G00069BD2060100094CS00049B1751001G 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11001: !5%J18016^D1824718241C)18129,18130J17950^V1787601G!52S18237B17582000490J20296^NG!5D01G!5181273D01G!5 1 1 1 1 1 1 1 1 1 1 1 1 11101: 181373T18127182272G17630BD0000017642CJ00000^V18016181291J17917^,1812918130J17534^J17709^J17656^J1770 1 1 1 1 1 1 1 1 1 1 1 11201: 9^J17663^G17759BV18016181291J17917^J17950^V1773501G!52B0000001G!5.J18016^C1824618237J18016TA20446000 1 1 1 1 1 1 1 1 1 1 1 11301: 94B1801601G!5'S2044618237J17839VJ17791^D18236182372V18016181291)18130J17534^B18016000495D01G!518SS83 1 1 1 1 1 1 1 1 1 1 11401: J20321^N32J17534^G17936BJ17950^V0000001G!52J18016^G17985BA1824600094B1795701G!5^J00000^A1824618240C1 1 1 1 1 1 1 1 1 1 1 1 1 1 11501: 824618240J17522/D1867901703TJ00!'0^S1824718241C1824618237J18083TV18083181301J18016^D0009418512CJ1752 1 1 1 1 1 1 1 1 1 1 11601: 2^C1824618240J00!'7TJ18016^^^^^^18016^18035)17656&17644A17681E17695F17773H17644I17656-17644O17522P17 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11701: 522/17522,17987%18102'17851X^^^^^^^^^^^^^^000010SIN^^^0COS^^^0LOG^^^0EXP^^^0SQRT^^0ATAN^^0ABS^^^2XAB 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11801: S^^2INT^^^1XINT^^1MOD^^^1XMOD^^1MAX0^^1MAX1^^1XMAX0^1XMAX1^1MIN0^^1MIN1^^1XMIN0^1XMIN1^1FLOAT^2XFIX^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11901: ^2SIGN^^1XSIGN^1DIM^^^1XDIM^^1^^^^^^^@'LA00000,DCWG,@^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12001: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0000?^^^^^^^^^^**************************************ARGUMENT^IN^COMMO 1 1 1 1 1 1 1 1 1 1 12101: N'STARTXX,B,$&1',DFAC,,DIA,^^^^^0172001718^^^^^00?U100?U601699^^^^^^^^^^^^^^^^38C0237620450J18722/D1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12201: 861501713TJ01522^01700J01634^D0257402439CB19149023770)18677D0240200059CA2046100059D0005900099CC00059 1 1 1 1 1 1 1 1 1 1 12301: 02544J19046TJ19046SB1900800'A1XJ20154^A0005900094B1902700'A21D2060218618CD00'A718517XJ20233^D2034601 1 1 1 1 1 1 1 1 1 1 12401: 717TD18517D18621D00?!0G18951BA2044618951J01522^^^^^^V18990186771D00'A000054CJ19676^J18771^A204610005 1 1 1 1 1 1 1 1 1 1 1 1 12501: 9J19064^V18990186771J18771^D2060318618CJ18873^,18677D0253400059CB1909500'?0*D0005900099CJ18819^D0256 1 1 1 1 1 1 1 1 1 1 1 12601: 400064CC0257400064J19175TD2061801714TJ01522^01700J01536^D2062301174CJ01627^)18676D00!1200049CB192470 1 1 1 1 1 1 1 1 1 1 1 12701: 0!06VB1950500!06MB0688400!06EA2051000064J19107^B1943000'/1ED0004900099CJ20154^A0004900094B1941100!07 1 1 1 1 1 1 1 1 1 12801: 1D2060218624CD00'/718517XJ20233^D2034601717TD18517D18626D00?!0G19391BA2044619391J01522^^^^^^V1946718 1 1 1 1 1 1 1 1 1 1 1 1 12901: 6761J19229^D2060318624CJ19313^J06872^^049CB1922900''0^,18676J19259^D00'/000054CJ19676^D2044300''0CJ1 1 1 1 1 1 1 1 1 1 1 1 1 13001: 9229^D00!1200054CB1922900'!0^D0006400099CJ20154^A0006400094B1965700!071D2060218624CD2034601717TD2044 1 1 1 1 1 1 1 1 1 13101: 6D18626D00?!0G19642BA2044619642J01522^^^^^^J19676^J19229^D2060318624CJ19583^G20152BB2014700'!0^D0009 1 1 1 1 1 1 1 1 1 1 1 1 1 13201: 400034CD0251900089CB1997200'!0$D0005400099CJ20154^A0005400094D2050718529XD20507D000!018529TD00?!0185 1 1 1 1 1 1 1 1 1 13301: 23TC1852318529J19930SC00'J020501J20055SD00'J018517XJ20233^D2034601724TD18517D20624D000!0D20629D00?!0 1 1 1 1 1 1 1 1 1 1 1 1 13401: G19929BA2044619929J01522^^^^^^D2044300'!0CA2044900054B2009900'!0*J19719^C0008902524J11287SD2044300'! 1 1 1 1 1 1 1 1 1 1 1 13501: 0CD0005400?'4XA2044900?'4A2052700089D00'J000054CJ19719^D2034601724TD000!0D20629D00?!0G19929BJ19907^S 1 1 1 1 1 1 1 1 1 1 1 1 13601: 2052600089C0251900089J20147TD00?'400054CJ19953^J00000^G20231BD2050100094CB2022600??1^A2044600094A204 1 1 1 1 1 1 1 1 1 1 13701: 4600099B20226000945J20173^J00000^G20275BD2050100029CB20277185/30,185/3J00000^A2044600029J20252^.D18S 1 1 1 1 1 1 1 1 1 1 11 13801: S718237/S00049J17582^A1824600049J17534^N^^^^^^',TITLE,*^^LAST^LOCATION^IN^PROCESSING^MACHINE^,NLIST, 1 1 1 1 1 11 1 1 13901: '$15,EQU,99',ORGC,$F,EQU,$I,EQU,,LIST'0000?^0017110A4573126918320380170096017170170300004B0872105000 1 1 1 1 1 1 11 111 111 11 11 1 1 1 1 1 1 11 1 1 14001: 00^^^^^^P1303401717D22HMNXE50000102684ES$1A01709139932Z^^^^^IJKLMN150010615545000S202V00000016647000 1 11 1 11 11 1111111 1 1111 1 1 111 1 1 1 1 1 1 11 1 1 14101: 12IF,LIST,^^^^^^^^'RUN2B-,EQV,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 111 1 11 1: RUN2B065070650005000J01515^J01515^ 1: J07257^J01613^D0248002983CD02481030043D02481029973J05113^J05442^D0248804019CD02489040263D02489040333 1 1 1 1 1 1 1 1 1 1 101: D02489040403D06735040163D06736039463B06721024401/02375//////D0288400029CS0673700029D0281900034CJ0498 1 1 1 1 1 1111111 1 1 1 201: 9^D02444024413J06500^/01849/J06660^L+1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 111 501: 90^^^^^^^^^^^^^^^07001070020000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 111 1 1 111 1 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000 1 1 11 1 1 1 1 1 1 1 1 11 701: 000^**00*'IR07000FN02000"071460714507144IT00000^^^^^^^^^^D0286400034/D0713900029CD0286415802/D028190 1 11 1 1 1 1 1 1 1 1 1 1 1 801: 0084/D0283400089/D0284900094/A2061600084A2061600089A2061800094S2061602854D0702100064C,07206B07410023 1 1 1 1 1 1 1 1 1 901: 762J07475^C2061902429J07464TC2062002429J07464UA2061602412J07475^A2061602417D0259416304/D0259416313/, 1 1 1 1 1 1 1 1 1 1 1 1001: 1630016309A2062316304A2062616313)1630016309D0713900029CD0286400034CD0713900099CD0713907027CD07139070 1 1 1 1 1 1 1 1 1101: 30CD07139070283/02374//////)0700907016))))))),01700/011R9///////////J01501^08531B0824201701$B0784701 1 1 1111111 11111111 1 111111111111 1 1 1 1201: 701%B0774701701&J01522^01700B0861701701ZJ07668^D20627070273D2063200029CJ12583^D20633070273B078330714 1 1 1 1 1 1 1 1 1 1 1301: 8'B1260707148%D2063501703CJ12237^J11974^J12133^D20636070273D20637000!07A2061600034D2064200029CJ12583 1 1 1 1 1 1 1 1 1 1 1401: ^B07932070272D2064401703CJ12237^A2061600029D0702600049CD20616070283D0713900059CD0713900044CV08010017 1 1 1 1 1 1 1 1 1 1501: /12J08120^A2061600044C0004420649J08120TD017/100''07A2061600029A2061600049A2061600059B08139017/1,V080 1 1 1 1 1 1 1 1 1 1 1601: 10017/12B08192017/1'D2065101703CJ12237^A2061607028C2062707028J08120U,07'?1A2061600029J07979^B0821107 1 1 1 1 1 1 1 1 1 1 1701: 0283J08120^C0004420656J08120T,07'?1J12133^V08299017/12D017/1082773B08299206640BBBBBBBJ08648^J08318^D 1 1 1 1 1 1 1 1 11111111 1 1 1801: 2066601703CJ12237^J08880^B08456071491J09711^B08413071681C0717120668J08413SC0717120670J15295SJ09998^J 1 1 1 1 1 1 1 1 1 1 1 1901: 10315^J12488^B08299071700D2067201703CD20616070013J12237^B14625071501B08399071500C0715020636J08512/J1 1 1 1 1 1 1 1 1 1 1 2001: 0379^J12488^D2067401703CJ12237^J01536^C1628016286J08568SD1628002417CC1628316286J08598SD1628302412CD2 1 1 1 1 1 1 1 1 1 1 1 2101: 067901174CJ20212^J01501^08531J01522^01700J08617^G08878BD0713900039CD0713907171CD2068707148TD017/1071 1 1 1 1 1 1 1 1 1 1 1 2201: D13A2061600039D017/2087373B08861206960BBBBBBBBB08861017/2'C0003920656A2061600029J08691/B08818017/1FD 1 1 1 111111111 1 1 1 1 1 2301: 2069801703CJ12237^D20616071703B08861017/2%D2069801703CJ12237^D017/2071483J00000^G09076BD0713907152CD 1 1 1 1 1 1 1 1 1 1 2401: 0256400044CC0714600'05J08965SC0257400044J09071SA2070000044J08911^D00'06090003D20616071493B0902320708 1 1 1 1 1 1 1 1 1 2501: 0BBBB09078BB09140B09159D20709071503D0004407157CD20616071493D00'07071523J00000^D00'1207167CB091210714 1111 11 1 1 1 1 1 1 1 1 2601: 8%D20627071503J09035^D20636071503J09035^D20633071503J09035^D00'1207162CD20616071503D00'1200049CD00'' 1 1 1 1 1 1 1 1 1 1 2701: 607151CB09238071513B09288071510J09035^D00'/207167CB0926907148%J09035^D20710071513J09035^B0931907148% 1 1 1 1 1 1 1 1 1 2801: B09319070273J09035^D20636071513D2063600''63D0260400049CD2071100'/0CJ09381^J09035^G09690BC0260402599J 1 1 1 1 1 1 1 1 1 1 1 2901: 09692SD0260400049CD0714600''5XA2067002604B09489071701J20120^N0271B09508070010D20616071703B0954407141 1 1 1 1 1 1 1 1 1 3001: XJ09563^C2061907141J09563TC2062007141J09563UD2070900''77J09575^D2061600''77B09637070273B09618071701D 1 1 1 1 1 1 1 1 1 1 1 3101: 2071000''67J09649^D2063300''67J09649^D2071200''67D00''7071523D00''6071693D0004907176CJ00000^D2071402 1 1 1 1 1 1 1 1 1 3201: 422CJ01606^G09996BD20616071713B09858071701B0977807148%B09778070273D20709071713C0003920719J09858UB098 1 1 1 1 1 1 1 1 1 1 3301: 15071D0FJ09858^D20616071703B0984607148%J09858^D20720071D03D0259400044CC0714600'05J09924SC0004402604J 1 1 1 1 1 1 1 1 1 1 3401: 09991SA2067000044J09870^D20616071683D00'06071693D0004407176CB09991071711D2063501703CJ12237^J00000^G1 1 1 1 1 1 1 1 1 1 1 3501: 0159BC0257402569J10180SD0257400044CD0714600'05XA2070002574D0004407157CD20709071503D2062000'067C20619 1 1 1 1 1 1 1 1 1 3601: 07141J10161TC2062007141J10161UD2070900'077D00'07071523J00000^D2061600'077J10142^D2072202422CJ01606^G 1 1 1 1 1 1 1 1 1 1 1 3701: 10313BB10237071520D20723000!0GJ10249^D20724000!07A0003900034C0003402869J10285UJ10360^D071D0000!0TA20 1 1 1 1 1 1 1 1 1 1 3801: 61600034J00000^G10358BJ10199^,999R9D0286410352C)00000J00000^D2072601703CJ12237^G11292BB10488070273A2 1 1 1 1 1 1 1 1 1 1 1 1 3901: 061600029D2072807202CD0716700044CD00'1207197CD0713900044CB10507071520D20729000!07J10519^D2063501703C 1 1 1 1 1 1 1 1 4001: J12237^D20730000!07A2073100034C0286900034J10360UD07167999R7CD07203999R83D20720072033D2070907/98CD000 1 1 1 1 1 1 1 1 1 1 4101: 3400054CA2061600029V10979017/12D017/1106543B11174206640BBBBBBBJ08648^C2062007141J11174UC2061907141J1 1 1 1 1 11111111 1 1 1 1 4201: 1174TA0003900034C0286900034J10360UD071D0999R9T,999R9D07148107863A2061600029B10812207350B10961B11104B 1 1 1 1 1 1 1 1 1 1 1 4301: 11193J11174^A2062707/98A2061600029V10853017/12J11174^J11294^C999R620740J11174/,999R9)999R2D999R3999R 1 1 1 1 1 1 1 1 1 1 1 4401: 2()999R9S2061600034A2061600029B11104017/1,B11193017/1)J11174^A2063307/98J10823^J11294^C999R620740J11 1 1 1 1 1 1 1 1 1 1 1 4501: 174/,999R9)999R2D999R3999R2()999R9S2061600034C017/220741J10919/A2063600029A2063607/98V11174017/12J10 1 1 1 1 1 1 1 1 1 1 1 4601: 643^D07/9899ZR93A2061600044A2061600034C0286900034J10360UC0004407197J10584UD2074301703CJ12237^D07/989 1 1 1 1 1 1 1 1 1 1 4701: 9ZR93A2061600044C0004407197J11174/D20746000!2CD20747000!37A2063300034C0286900034J10360UJ00000^G11737 1 1 1 1 1 1 1 1 1 1 4801: BD0713900059CD017/107'C13A2061600029A2061600059V11739017/12B13820017/1.C0005907202J11757TD20724000!0 1 1 1 1 1 1 1 1 1 4901: 7D0008407256LD2075207246CD0263900079CA0239000079A2061607246C0264900079J11558UC99RI907'C0G00084AJ1143 1 1 1 1 1 1 1 1 1 1 5001: 7/V1162900?011A2070900?00J11629VJ11437^D2075402422CJ01606^C0264400079J11539UD0264900084C,00?00?07'C0 1 1 1 1 1 1 1 1 1 1 1 5101: 99RI9D2061699RI92D0007902649CD0725600084TA2073100034C0286900034J10360UD07246999R9CD017/1117053B11721 1 1 1 1 1 1 1 1 1 5201: 207630BBBBBBBBJ11776^S2061600029J00000^C0005920768J11313UD2077001703CJ12237^D2069801703CJ12237^G1188 111111111 1 1 1 1 1 1 1 1 1 5301: 3BB11885000990B1191507AH70S2061607AH7D20771000!07A2061600034C0286900034J10360UJ00000^V07901017/22S20 1 1 1 1 1 1 1 1 1 1 5401: 61607030J11837^S2061600099D20772000!07A2061600034C0286900034J10360UJ11878^G11883BJ11915^G12076BB1207 1 1 1 1 1 1 1 1 1 1 1 5501: 8000990B1211407AH79A2061607AH7D20773000!07A2061600034C0286900034J10360UJ00000^C0703020775J12114SA206 1 1 1 1 1 1 1 1 1 1 5601: 1607030J12030^D2072601703CJ12237^B12164000990D2077701703CJ12237^C0703020779J12213SB0812001701%D20781 1 1 1 1 1 1 1 1 1 1 5701: 01703CJ12237^B1238901701%B1242001701&B12268070011D20636070013J12451^D20709070013D0287900049CD00''407 1 1 1 1 1 1 1 1 1 5801: 176CD0717600049CD2062700''63C0170320779J16357SB12451070270D0170307207CJ01522^07204J07543^B1223707028 1 1 1 1 1 1 1 1 1 1 5901: 3D2065101703CJ12237^B12237070274D2063501703CJ12237^J01522^01700C0170320779J16357SJ07543^A2061600029B 1 1 1 1 1 1 1 1 1 1 1 1 6001: 12530017/1#D2066601703CJ12237^D20782000!0GD20616070273A2061600034C0286900034J10360UD0713907030CD0713 1 1 1 1 1 1 1 1 1 6101: 900099CA2061600029B12697017/1&B12649017/1-J12708^A2062700034C0286900034J10360UD20785999R9GJ12697^A20 1 1 1 1 1 1 1 1 1 1 6201: 61600029V12833017/12D017/1127433B12805207940B12819B12786B12786BBBBB16183J13233^J12607^D2067001703CJ1 1 1 1 1 1 1 11111 1 1 1 1 6301: 2237^J13801^J12852^J11988^J12607^D0239007202CJ11294^A2061600029D017/1128863B12942208010B13066B12990B 1 1 1 1 1 1 1 1 1 1 1 1 6401: 13185B13038B13052B12133D2064401703CJ12237^A2062700034C0286900034J10360UD20804999R9GJ12697^A206270003 1 1 1 1 1 1 1 1 1 1 1 6501: 4C0286900034J10360UD20785999R9GJ12697^J14913^J12607^J11795^J12852^B13126017/2*A2062700034C0286900034 1 1 1 1 1 1 1 1 1 1 1 6601: J10360UD20807999R9GJ12697^A2061600029A2062700034C0286900034J10360UD20810999R9GJ12697^A2062700034C028 1 1 1 1 1 1 1 1 1 1 1 6701: 6900034J10360UD20813999R9GJ12697^G13340BJ08648^B13456070011J08880^B13532071491J09711^B14587071681B13 1 1 1 1 1 1 1 1 1 1 1 6801: 342071710B13437071701J09381^J15030^J00000^B13361070274J13368^J09998^C2081407141J13405UD20616071523J1 1 1 1 1 1 1 1 1 1 1 1 6901: 3423^C2062007141J13386UJ10199^J12852^D2063501703CJ12237^J16001^B13368071401J08880^B13278071490B13513 1 1 1 1 1 1 1 1 1 1 1 7001: 071502J13532^D2081601703CJ12237^B14273071501B14485071502B13368071500B13635071504B13616000990B1366607 1 1 1 1 1 1 1 1 1 7101: AG75B1366607AG76D2067401703CJ12237^B13278070273B1327807148%J13580^B13697017/2,B13697017/2)J13616^B13 1 1 1 1 1 1 1 1 1 1 7201: 716999R9,J13616^B13759071504B13368071503D2081802422CJ01606^D0714607147CD2081907141CA2061600039J13368 1 1 1 1 1 1 1 1 1 7301: ^G11737BD0713900059CD0713900044CC2082400059J14023UD017/107'C13A2061600029V14005017/12B14042017/1ED20 1 1 1 1 1 1 1 1 1 1 7401: 723000!07C0003402869J13934UJ10360^D20747000!13A0005900034A2062700034C0286900034J10360UD07'C1999R9CJ1 1 1 1 1 1 1 1 1 1 1 7501: 1682^A2061600059J13832^D2082601703CJ12237^A2061600059D017/107'C13A2061600029B14131017/1&B14131017/1- 1 1 1 1 1 1 1 1 1 7601: V14190017/12D2082601703CJ12237^A2061600059C2083100059J14023UD017/107'C13A2061600029J14100^A206160004 1 1 1 1 1 1 1 1 1 1 7701: 4A2061600059D017/107'C13A2061600029V14254017/12J13897^B14023000442J14190^C0715120636J14513UJ14499SB1 1 1 1 1 1 1 1 1 1 1 1 7801: 4473071515B14353071513J20145^N^^^^D2067401703CJ12237^D0714607147CD20711071413A2061600039B14334000990 1 1 1 1 1 1 1 1 1 7901: B2016507AG75B2016507AG76J14334^N^^^^^^^^^^B13368017/2,B13368017/2)J14334^D20711072033J10379^J12852^J 1 1 1 1 1 1 1 1 1 1 1 8001: 09711^J13328^B13368000990B1455607AG75B1455607AG76J13368^D0716200049CD2061600''63J13368^B14606071694J 1 1 1 1 1 1 1 1 1 1 8101: 13328^D2081601703CJ12237^C0715120636J14686UB14717071515B14736071514D2067401703CJ12237^D0716200049CD2 1 1 1 1 1 1 1 1 1 1 8201: 061600''63J08399^D20711072033J08498^B14875071520D2083807147CC0258902583J14894SD2084300039CD025890004 1 1 1 1 1 1 1 1 1 8301: 9C,00''0D0714700''4CD2071000''63D0257900044CD00'0700''7CB08399070270J13368^D2085007147CJ14760^D20852 1 1 1 1 1 1 1 1 1 1 8401: 02422CJ01606^G15028BB14963000990B1498207AH70D2063501703CJ12237^D2085401703CJ12237^D20855000!07A20616 1 1 1 1 1 1 1 1 1 1 8501: 00034C0286900034J10360UJ00000^G15255BA2061600029D0717600049CB1525700''70D20856000!07A2085700034C0286 1 1 1 1 1 1 1 1 1 1 8601: 900034J10360UD00''6999R23D07176999R7CD00'/0999R83D07176000!6CD00'/0000!73C0009920862J15276SA20616000 1 1 1 1 1 1 1 1 1 8701: 99D2070907AH7CD00''607AG7CD20855999R97B0777801701&J00000^D20863000!07J15084^D2072601703CJ12237^B1589 1 1 1 1 1 1 1 1 1 1 8801: 7070012D20616070013J09381^D0287900049CD0717600''4XA2071000049D0004900059CJ15030^D0005900049CD0722499 1 1 1 1 1 1 1 1 1 8901: 9R97D0717600044CD2077900'09CA2061600029V15513017/12D017/1154743B15513208710BBBBBBBJ08648^B1553207148 1 1 1 1 1 1 11111111 1 9001: )B1553207148,D2081601703CJ12237^A2070000049C0288400049J15916UD0714699ZZ2XC2081407141J15633UA20616024 1 1 1 1 1 1 1 1 1 1 9101: 17D0241707223TD0722399ZZ9XJ15686^C2062007141J15591UA2061602412D0241207216TD0721699ZZ9XA2061600'09A20 1 1 1 1 1 1 1 1 1 1 9201: 61600029B15935017/1,A2085700034C0286900034J20185^D99ZZ9999R7C,999R7D20873999R9CJ01522^01700J01522^00 1 1 1 1 1 1 1 1 1 1 1 9301: 000D0286400034/D20616070273/011R9///////////D20874000!07A2061600034A2061600029D0004902889CJ12583^D20 1 1 1 111111111111 1 1 1 1 1 9401: 87601703CJ12237^D2087802422CJ01606^A2073100034C0286900034J10360UD99ZZ9999R8C,999R8D20772999R93J15428 1 1 1 1 1 1 1 1 1 1 9501: ^G16162BD20709071403D0287900049CA2071000049C00''507146J16097SA2070000049C0288900049J16157UJ16043^D00 1 1 1 1 1 1 1 1 1 1 1 9601: '/207147CD20616071403B1616407141ID20616071523D2084300039CJ00000^D20709071523J16145^,000!0D20880017/2 1 1 1 1 1 1 1 1 1 9701: CA2073100034C0286900034J10360UD017/7999R9CD20723999R27A2071200029J12852^.02374000000000^#'^]+""^^<;2 1 1 1 1 1 1 1 11 1 1 1 11 111 1111 9801: 00000^">200000^"^^^^^^^^^^70009000IR07000FN02000^^^^^^^^-D0241716352XD0241216355XA2061616352A2061616 1 1 1 111 1 11 1 1 1 9901: 355D0285416438/D0284900069/,00!'0)00000G16438AV1643300!'01D0286400069/D0285400079/D0282400039/D02839 1 1 1 1 1 1 1 1 1 1 10001: 00054/D0003400059/S2061600059D2088500099/D00!'0162902B1659600!'0_B1659600!'0@D1628900!?03J17375^D028 1 1 1 1 1 1 1 1 1 10101: 6400059/D00'?100'?18G00059AS2061600059B1665700'?0)J16608^S2061600059J19392^D0286400069/D1629100!'01D 1 1 1 1 1 1 1 1 1 1 10201: 00!?100!'1(J16470^,00!?0D00'?000!?0TG00059AG00079BC0007900094J20059UA2061600079B1694200!?0]B1694200! 1 1 1 1 1 1 1 1 1 1 10301: ?0:B1699000!?0^B1707300!?0B1726500!?0[J20097^S2061600054D00!?000'!06C0005400089J20059UJ16718^,000?0C00! 1 1 1 1 1 1 1 1 1 1 10501: ?1000?0J18573TC0003900084J20059SA2061600079S2061600039D00!?0000?07J16718^J17552^J19913^B17120000?09J 1 1 1 1 1 1 1 1 1 1 1 10601: 17835^J19845^J16718^D00!?107032+G00049BG00044AD00'00162967D0703200!?2+D1629600'007)99ZZ999ZZ8)00!?0A 1 1 1 1 1 1 1 1 1 1 1 10701: 2061600079D00'!000'!13A2061600054A2063600039J16718^J19392^J16965^J17835^J19845^D16292017007D16316017 1 1 1 1 1 1 1 1 1 1 10801: 01(D16289017087J19845^D1635202417PD1635502412PS2061602417S2061602412J19913^S2063600039C0003900084J20 1 1 1 1 1 1 1 1 1 1 10901: 059UD16289000?17D20857000?07C0005400089J20059SS2061600054D1628900'!07S2061600079J16718^D1628900!?07S 1 1 1 1 1 1 1 1 1 1 11001: 2061600079S2061600054D1628900'!07D1629400!?07J17375^G17833BJ17835^D0286400069/D16290176012V177621629 1 1 1 1 1 1 1 1 1 11101: 52J19845^V17653162952D1630700??0_G00099B)99II9J17678^D1629800??0_G00099B)99II9D1631600??0(D1629300?? 1 1 1 1 1 1 1 1 1 1 1 11201: 77A2073100099D00!'100??0(G00099BD1629300??07A2061600099J17798^S2073100099)00??6D00!'100??0(G00099BD1 1 1 1 1 1 1 1 1 1 1 1 11301: 628900??07A2061600099J19845^J00000^G17875BJ17877^J18161^J18217^J18128^J00000^G18126BD00'!0162957B179 1 1 1 1 1 1 1 1 1 1 1 1 11401: 15000?03J18043^B20002000?13V17958162952V2002100'!12J18032^V1798900'!12D20712162873J18001^D2088616287 1 1 1 1 1 1 1 1 1 11501: 3D00!?100!?18G00069AD1628700!'07A2061600054B1809800'!1'B1809800'!1"D16295180902V1803200'!12J20040^A2 1 1 1 1 1 1 1 1 1 1 11601: 061600054D1629500'!07J00000^G18159BD000?0000?0YG00039AJ00000^G18215BD16295162912D1629100??07A2061600 1 1 1 1 1 1 1 1 1 1 11701: 099J18418^J00000^G18313BD1629700??07A2061600099J18315^D16289163237D1631600??0+G00099BS2088600079D163 1 1 1 1 1 1 1 1 1 1 1 11801: 1600!?1(J00000^G18416BV18376162952D1635516340TD1633416316#A2061616355J18411^D1635216347TD1634116316# 1 1 1 1 1 1 1 1 1 11901: A2061616352J00000^G18571BD16289184742J18463^G18571BD16356184742D00!?100??0+G00069AG00099BS2061600099 1 1 1 1 1 1 1 1 1 1 1 12001: S2061600069,00!?0D0006918534/)00000G18534AV1852900!?01D0006900079/J00000^A2063600079D0003900049/D000 1 1 1 1 1 1 1 1 1 1 1 12101: 5400044/S2061600039S2061600054D0007900069/A2061600069)99RZ9D00!'099RZ9(G00069A)99RZ9D00'0099Z997A206 1 1 1 1 1 1 1 1 1 1 12201: 1600044D00!'099RZ9()00!'0D00!'100!'0(G00069A)99RZ9D00'0099Z997A2061600044D00''099ZZ97A2061600049,00' 1 1 1 1 1 1 1 1 1 1 12301: '0C00'?200''0J18707TD1628999RZ97D1628999ZZ97D1628999Z997S2061600079J17835^S2061600079,00!?1D00'?300! 1 1 1 1 1 1 1 1 1 1 12401: ?1TJ19845^J17043^G19002BD00!?100??0(G00079AG00099BS2061600079)00!?0S2061616348B18997163480J18924^J00 1 1 1 1 1 1 1 1 1 1 1 1 12501: 000^B19121000?09J17877^A2061600054D16295162912D1629100??07A2061600099J18444^S2061600079)00!?1J18217^ 1 1 1 1 1 1 1 1 1 1 12601: J18128^J19845^J17533^A2063600039A2063600054D00!?100!?1QG00069A)99RZ9J17533^A2063600039A2061600054,00 1 1 1 1 1 1 1 1 1 1 1 1 12701: !?0)00!?800!?7D00!?000'!02D00!?1163493D00'!0162957S2061600079J18418^B19367163496J18315^D16293163237D 1 1 1 1 1 1 1 1 1 1 12801: 16289163247D1631600??0+G00099BS2088600079D1631600!?1(J19845^J16718^A2061600099J19845^J19913^G19580BD 1 1 1 1 1 1 1 1 1 1 1 12901: 1628900'?17D0005900069/D00'?000'?0^G00059AB1947300'?1@B1947300'?1_J19423^S2061600054D00'?100'!02J195 1 1 1 1 1 1 1 1 1 13001: 82^S2063300069D1632000!'2(D00'?100??0+G00099BS2063300079D1631900!?1(J19845^J00000^G19683BV1964300'!0 1 1 1 1 1 1 1 1 1 1 13101: 2A2061602425D0242516329TD1632616319#J19678^A2061602428D0242816333TD1633016319#J00000^B19711000?09J17 1 1 1 1 1 1 1 1 1 1 13201: 835^J19845^D00'!0162957D16295162882D1628800??07A2061600099D20616163487J18917^D0006400079/D2062716348 1 1 1 1 1 1 1 1 1 13301: 7J18917^D1628900??07A2061600099J19845^J19913^G19911BC0009916277J20059TJ01522^01700D2088500099//02374 1 1 1 1 1 1 1 1 1 1 1 1 13401: //////J00000^S2061616352C1628016352J19954TD1635216280XS2061616355C1628316355J19995TD1635516283XJ0754 1111111 1 1 1 1 1 1 1 1 1 13501: 3^D2088820094TJ20071^D2089020094TJ20071^D2089220094TJ20071^D2072620094TJ01522^20091J07543^.**00*'D20 1 1 1 1 1 1 1 1 1 1 11 1 13601: 81802422TJ01606^.^^^C2070907027J09508UJ09465^B14736071514J20097^NB14442999R9,J14334^NJ10360UB1574901 1 1 1 1 1 1 1 11 1 11 1 13701: 7/2#J12511^NB20231023762J01627^A2070002589J01627^N^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11 1 1 1 1 14101: ^^^^^^^^^^^^^^^^160IN2312203000034872$0000212000050400006.,&-/*%)3501113133RUN2C^^^^^^^^#.,%)-&*/841 11 111 1 11 11 111 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 14201: 3PZDVMESN05?62200004^23:]2905@_8),-&]IT00*89000)0000021.,%)/*-&'0009995'"%99940034<^52$)/*-&,%.'),/- 1 11111 1 11 111 1 1111 1 11 1 11 1 1 1 1 1111 1 1 1 11 1 1 14301: *&^51^43^35^44H3096!000459300047FN0200200007IR070052482,>900009;.*%)&/-,"'[3225GH017007363728^^^^^^^ 1 1 1 1 11 1 11 1 1 1 1 1 1 1 1111 11 1 11 1 1 1 11 1 1 1: RUN2C065070650003200J01515^J01515^ 1: J07132^J05113^D0248802983CD02489030043D02489029973J05330^D0248004019CD02481040263D02481040333D024810 1 1 1 1 1 1 1 1 1 1 101: 40403J05442^B06721024401/02375//////D0270400029CS0673500029D0269900034CJ04989^D06736029803D067370294 1 1 1 1111111 1 1 1 1 1 201: 13D02445024413J06500^/01849/J06636^1L+^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 111 301: D22468017103J07463SJ07408^^V08306017012J08246^B0830601701GJ08331^W^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 11 1 1 1 1 601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^D0269900099T)2204222043D2225222039TD0239021799TS2225321799D217991967 1 1 1 1 1 1 701: 3/D2179919715/D0239012974T/07099J01501^19230B0727501704*J01522^01700J07226^C2203922252J07793/C017032 1 1 1 1 1 1 1 1 1 1 1 1 801: 2252J07323SB07762017033V07967220431C0170322252J07743/C0170122254J07743UJ07390SV07719017012C017092153 1 1 1 1 1 1 1 1 1 1 901: 0J06800^J20127^01705D0002900049TD0741900029TJ20725^D2181307006TV0750601701BV0757901701KV0765201701SJ 1 1 1 1 1 1 1 1 1 1 1 1001: 13677^D01701075293B13715222620B13753B13696B13734B13677B13772B13646B08494J08356^D01701076023B08425222 1 1 1 1 1 1 1 1 1 1 1 1 1101: 700B11688B10931B10662B10451B09783B09902B10026J09561^D01701076753B09709222770B09635B09085B09116B11851 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: B13696B08990J17199^B13150017014B13131017015J01522^01700J07226^B17199017022B17199017021J07323^S222780 1 1 1 1 1 1 1 1 1 1 1 1 1301: 0099V07907220401D00??721790/D2227907010TD21790D21777D22282J21238^A2225321790D2228907013TD21790D21784 1 1 1 1 1 1 1 1 1 1 1 1401: J21238^S2225322039C2203922252J07793/C0009902699J07293/)22043J07293^C0170921530J07335S,01705D00099000 1 1 1 1 1 1 1 1 1 1 1 1 1501: 34TD2225222039TJ20127^01705S2225300029D2229421732XD000'021732T)01705C0003402699J08133SS2227800034C00 1 1 1 1 1 1 1 1 1 1 1 1601: 0!421732J08133/A2225322039J08068^C2203922252J06827/C0003402699J07335SS2227800034C000!421732J08151/D2 1 1 1 1 1 1 1 1 1 1 1 1701: 229601703T,22040D0003400099TA2227800099J08115^C0170122297J06846UC0170106865J08343TB0834301701NB08343 1 1 1 1 1 1 1 1 1 1 1801: 01701OD2230001703T,22040J07335^B0830601701%)22040J07335^D2198400034TJ08563^B0840607000^D2189107021TJ 1 1 1 1 1 1 1 1 1 1 1 1901: 08775^D2189107014TJ08775^D2199900034TJ08563^B0847507000^D2152507022TJ08775^D2152507015TJ08775^D21989 1 1 1 1 1 1 1 1 1 1 2001: 00034TJ08563^B0854407000^D2176607022TJ08775^D2176607015TJ08775^G21295BD22279219033)22046J08602^J2127 1 1 1 1 1 1 1 1 1 1 1 2101: 8^G08723BV08647000!02D21903203563J20278^J08718^D0003400029TC000!121903J08718SW08725000!1&C000!221903 1 1 1 1 1 1 1 1 1 1 2201: J08725/A2225300029J00000^V08756220461D2230201703TJ07743^D2230207003XJ14714^J21238^V08825000!02D22307 1 1 1 1 1 1 1 1 1 1 1 2301: 07004TD000!007005,J08939^,000!0B08953000!1'?000!121463)000!0D2231200034/D0239021797/J19411^B08971017 1 1 1 1 1 1 1 1 1 1 2401: 03^D2158021806/D2227907012TD21806D22307J21238^J07226^?000!021463J08854^D2231402422TJ01606^B090210171 1 1 1 1 1 1 1 1 1 1 1 2501: 9'D2231601703TJ07743^J21271^B0906607000^D2231707007,J21238^J07226^D2231707000,J09052^B0947901716'D09 1 1 1 1 1 1 1 1 1 1 1 2601: 09500069LJ09140^B0947901715'D0912600069LD0006909165TJ19975^0500000B0919001703^B09209000!0'D223230170 1 1 1 1 1 1 1 1 1 1 2701: 3TJ07743^S2225300034,00!'0D2229421961TD2232421962TD000!0)00!'0B0946001701VD2185821963,J21271^D223312 1 1 1 1 1 1 1 1 1 1 1 2801: 1956TB0950407000^D2195007007,J21238^B0952301701VD2187607011TD22279070123D2233507003TJ21238^D22345070 1 1 1 1 1 1 1 1 1 2901: 09TJ21238^D2234907003TB0954201701VD2235207006TJ21238^J07226^D2193121963,J09286^D2232421962TD22294J09 1 1 1 1 1 1 1 1 1 1 1 3001: 262^D2195007000,J09329^D2194907011TJ09360^D2235507006TJ09446^J10325^01732B0961607000^D2158107007,D09 1 1 1 1 1 1 1 1 1 1 1 3101: 57200029TJ10214^D2158107000,J09597^J10325^01724B0969007000^D2159507007,D0964600029TJ10214^D215950700 1 1 1 1 1 1 1 1 1 1 3201: 0,J09671^J10325^01729B0976407000^D2160907007,D0972000029TJ10214^D2160907000,J09745^W0980701721&B0982 1 1 1 1 1 1 1 1 1 1 1 3301: 601722'D2232301703TJ07743^J21271^B0988307000^D2162307007,D2200410181TJ10150^J07226^D2162307000,J0985 1 1 1 1 1 1 1 1 1 1 3401: 7^W0980701724&B0993301725)J09807^J10325^01726B1000707000^D2164007007,D0964610181TJ10150^D0994400029T 1 1 1 1 1 1 1 1 1 1 3501: J10221^D2164007000,J09969^W0980701725&B1005701726)J09807^J10325^01727B1013107000^D2165707007,D220091 1 1 1 1 1 1 1 1 1 1 1 3601: 0181TJ10150^D1006800029TJ10221^D2165707000,J10093^G10212BJ21238^D22279070143D00000D2172707012TD22307 1 1 1 1 1 1 1 1 1 1 1 3701: J21238^J00000^J21238^)22046J20725^D2227907012TD21813D22307J21238^V07226220461D0004900029/A2235600029 1 1 1 1 1 1 1 1 1 1 1 1 3801: D0003400049/,22046J10227^G00044BD00'0420547T)22046J20527^B10376000!0,J20579^D0003400049/D0003420547/ 1 1 1 1 1 1 1 1 1 1 1 3901: A2225320547J20527^B10437000!0'J20579^J21271^J00'05^D2198420547/)22046J20527^C000!122358J20579/D00034 1 1 1 1 1 1 1 1 1 1 1 1 4001: 00049TA2235600034J20278^J10807^J21271^D2198400029TJ20725^B1061907000^D2227907029TD21773D22324D21813D 1 1 1 1 1 1 1 1 1 1 1 1 4101: 22331J21238^J07226^D2227907022TD21773D22324D21813D22331J10605^D0912600034LD22324203563J20278^J10807^ 1 1 1 1 1 1 1 1 1 1 1 1 4201: B1077607000^D2236307024TD21773D22369J21271^J21238^D2237407004TJ21238^J07226^D2236307017TD21773D22369 1 1 1 1 1 1 1 1 1 1 1 1 4301: J10736^G10910B,000'0D2154321463TD000!021458#)000'0D2237900034TD2238121797TJ19411^B1091201703^D215802 1 1 1 1 1 1 1 1 1 1 1 4401: 1773/J00000^D2238302422TJ01606^B1095001715%J11022^D0912600034/)22046D0003420547/A2225320547J20527^B1 1 1 1 1 1 1 1 1 1 1 1 4501: 0968000!0,B11029000!0)J14101^B11048000!1,J14101^D0003400054TA2235600034J20278^D0002900059TJ21271^J19 1 1 1 1 1 1 1 1 1 1 4601: 730^B1164507000^D2238607031TD21780D22324D21787D22331J21238^D2239007003T,00'?0D00'!207004#G11212B)00' 1 1 1 1 1 1 1 1 1 1 1 1 4701: ?0D2239100000,J21238^D2240507012TD21780J21238^V11360220421D0239021797TD2231200034T?2240621463J19411^ 1 1 1 1 1 1 1 1 1 1 4801: D2158021902/D2231200034T?2225321463J19411^D2158021829/,22042D2190221806/D2238607020TD21780D22324D218 1 1 1 1 1 1 1 1 1 1 1 4901: 06D22409J21238^D2182921806/D2239907018TD21806D22412J21238^D2227907017TD21780D22282D21787J21238^A2235 1 1 1 1 1 1 1 1 1 1 1 1 1 5001: 621780A2235621787D0909511540JJ20127^00000D0002900049TD1154000029TJ20725^D2227907010TD21813D22282J212 1 1 1 1 1 1 1 1 1 1 1 5101: 38^B0722600''1)D0004911540TA2235611540J11529^D2238607024TD21780D22324D21787D22331J11152^D0912620547L 1 1 1 1 1 1 1 1 1 1 1 5201: )22046J20527^B11732000!0'J20579^J21271^D0912600029TD0003400049TJ20725^B1182007000^D2227907017TD21813 1 1 1 1 1 1 1 1 1 1 1 5301: D22282J21238^J07226^D2227907010TD21813D22282J11806^D2197920547T)2204622050J20527^D0003400089TD222542 1 1 1 1 1 1 1 1 1 1 1 1 5401: 03563J20278^D0002900049TJ19730^D2154321750X)21733,22036D2225322036TD0004900069TA2235600069W1216900!' 1 1 1 1 1 1 1 1 1 1 5501: 0&J20786^B12100220362B12131220363D2158021738XD0006900064T)00!'0B1208200!'1,J14101^A2225322036J11979^ 1 1 1 1 1 1 1 1 1 1 5601: D2158021744XB1215000!'1'J12045^D2158021750XJ12304^D2241721750XJ12304^D0006900034TD22324203563J20278^ 1 1 1 1 1 1 1 1 1 1 5701: D0002900069T,00!'0B12267220362B12292220363D00''221733(,22050J12045^D00!0221739()22050J12112^D00!0221 1 1 1 1 1 1 1 1 1 1 1 5801: 745()00!'0J21271^D2239021960TB1279021733^D2173321961#D22324G12382B,00''0D00?'000000#D22279B128400700 1 1 1 1 1 1 1 1 1 1 1 5901: 0^D2195707007,J21238^D2242507007TJ21238^D2240907009TD21780B1285921745^D2174507010#D22324G12505BD00?' 1 1 1 1 1 1 1 1 1 1 1 6001: 000000#D22279J21238^D2242807002TB1290921739^D2173907003#D22324G12579BD00?'000000#D22279J21238^D22279 1 1 1 1 1 1 1 1 1 1 1 6101: 07011TD21787D22432J21238^)00''0C0009902704J12668/D2243402422TJ01606^S2225300089,0171300??5D2229400?? 1 1 1 1 1 1 1 1 1 1 1 6201: 4XD00?'000??4T)01713D2229400??7LD2178000??7JA2227800099A2235621780A2235621787,22043J07226^D217382180 1 1 1 1 1 1 1 1 1 1 6301: 6/D2180621967TD2232421968#G12382BJ12366^D2195707000,J12414^D2175021806/D2180607016TD2232407017#G1250 1 1 1 1 1 1 1 1 1 1 6401: 5BJ12495^D2174421806/D2180607009TD2232407010#G12579BJ12569^G13009BJ19975^0000000B1301101703^B1301100 1 1 1 1 1 1 1 1 1 1 1 1 6501: 0!0.J00000^)22050V13048220461D2243601703TJ07743^D2243607003XJ14714^J21271^B1311207000^D2155407017TJ2 1 1 1 1 1 1 1 1 1 1 1 6601: 1238^J07226^D2155407010TJ13098^D2199413192TJ13162^D2200413192TB07226023760J21271^J20127^00000D224370 1 1 1 1 1 1 1 1 1 1 1 6701: 7000,J21238^D1319200034TS2225300029,000'0D000!007000#D21567)000'0J21238^B07226000'1'D2245007000,J212 1 1 1 1 1 1 1 1 1 1 1 6801: 38^D0257900029T!2225321795A2246600029C0258900029J07226SB13326000'65A2246721795D22468217952)000'0,000 1 1 1 1 1 1 1 1 1 1 6901: '5B13555000'62B13555000'63D2247607018TD21795D22482J21238^D2248807005TD000'007006#J20641^0700713508D2 1 1 1 1 1 1 1 1 1 1 1 1 7001: 2279000003J21238^B13627000'70D2249207003TJ21238^J13627^D2249607014TD21795D22369D000'007015#J20641^07 1 1 1 1 1 1 1 1 1 1 1 7101: 01613618D22279000003J21238^,000'0)000'5J13326^B1306701717'D2231601703TJ07743^D0912600069LJ14240^D090 1 1 1 1 1 1 1 1 1 1 1 1 7201: 9500069LJ14240^D0964600069TJ13791^D0994400069TJ13791^D2199400069TJ13791^D2199900069TJ13791^J21271^D0 1 1 1 1 1 1 1 1 1 1 1 7301: 006900034TD22324219033,22046J08602^W1397900!'0&,00!'0?000'021463)00!'0D0239021797TD0002900069TD22312 1 1 1 1 1 1 1 1 1 1 7401: 00034TJ19411^B1402201703^D2158007016VA2225300069B1404101701AB1404101701DJ14254^,000'0D00!'007011()00 1 1 1 1 1 1 1 1 1 1 7501: 0'0D0002900069TJ13937^D2231402422TJ01606^A2225300069D0006920547T,22046J20527^B14151000!0,B14227000!0 1 1 1 1 1 1 1 1 1 1 7601: 'V14132220461D2249801703TJ07743^D2249807003XJ14714^S2225300034,00!'0?000!021580D2158007010V)00!'0A22 1 1 1 1 1 1 1 1 1 1 1 7701: 25300034D0003400069TJ14254^,22044J14151^J21271^J14052^B1498807000^,21809D2181307005XD22499)21809D222 1 1 1 1 1 1 1 1 1 1 1 1 7801: 79070173J21238^V15007220441D2225222033TD22252N22252)22041)2204722045A2225300069B1462900!'0'B1476600! 1 1 1 1 1 1 1 1 1 1 7901: '0%B1482000!'0,B1489500!'0)D00!'0144503B14101225060B14101B14101B14101B14101B14101B14101V1495000!'02V 1 1 1 1 1 1 1 1 1 1 1 1 8001: 14101220471J22757^^041D0006914545TJ20127^00000N2225300029D0006900079TD0002900069TS0007900029C0002922 1 1 1 1 1 1 1 1 1 1 8101: 159J14969TJ22160^^!'1#J14368^C2203322252J14101/V14752220471J22788^^0411B1470201701BB1470201701FJ0722 1 1 1 1 1 1 1 1 1 1 1 1 8201: 6^D2250807003XD2251007001TD2251207005TJ21238^J07226^J15020^J07226^V16057220471J22820^^252J14802/,220 1 1 1 1 1 1 1 1 1 1 1 1 8301: 45A2225322033J14368^V14839220471J22858^J15020^B1486500!'1%J14368^J22051^^031D2225222033TJ14368^V1491 1 1 1 1 1 1 1 1 1 1 1 1 8401: 4220451J14101^J22193^^225322031J22088^^033TJ14368^D2232307003XJ14714^D2251407003XJ14714^D2249907000T 1 1 1 1 1 1 1 1 1 1 1 8501: J14296^)22044J07226^G15262B)22047J22125^^0003D2227907017TD0006900029TS2225300029,000'0D00!?007001(D2 1 1 1 1 1 1 1 1 1 1 1 1 1 8601: 203307010XDD0007900034TD01701151463B15171225180B15171B15171D22468220447J19730^B15226220440B15264000' 11 1 1 1 1 1 1 1 1 8701: 6PB15319000'6VB15319000'6DD22253070113D21543220447J21238^J00000^D000/200029TB15350000'63V15226220441 1 1 1 1 1 1 1 1 1 8801: D22253000'63J15226^D22356070113D000/207016XJ15238^D22519070113J15331^V15388220451J14914^)22047C00!?0 1 1 1 1 1 1 1 1 1 1 1 8901: 22520J15884UC00!?022521J15884T,22036D0007900034TD00069J19730^D2203307004XD22031D22522D22279070293,00 1 1 1 1 1 1 1 1 1 1 1 1 9001: !'0D00!?007005()00!'022050D22253220363D2201415630TD2202915980TA2235600069A2252315630A2252315980W1590 1 1 1 1 1 1 1 1 1 9101: 900!'0&J20786^)22050D2158000000VB1566300!'1,B1569900!'1)J14914^A2225322036C2251922036J14101UJ15562^C 1 1 1 1 1 1 1 1 1 1 1 9201: 2235622036J15884TB15865220362S2225322033C2203322252J15787/)22045N2225222033TA2225322031A2225300069J2 1 1 1 1 1 1 1 1 1 1 9301: 1238^J14368^N0006915846TN2251915846N20127^N0000NN225322033J15787^D2241707028XJ15729^)22050D225250700 1 1 1 1 1 11 1 1 1 1 1 9401: 3XJ14714^D0006900034TD22324203563D22526203683J20278^D22279203683,000'0D000!000000()000'0D0002900069T 1 1 1 1 1 1 1 1 1 1 9501: B16031220361B16044220362J15632^,22050J15632^)22050J15632^)2204722036D22468220447S2225300069D00079000 1 1 1 1 1 1 1 1 1 1 1 9601: 34TD00069J19730^D21543220447C000J000029J16182SB16201000'6DB16201000'6VB16201000'6PD2252807003XJ14714 1 1 1 1 1 1 1 1 1 1 9701: ^B17133000'71)22048A2225302425D0242507006TD22406070037D2225307011XD22033DD2251507000XD2227907017XJ21 1 1 1 1 1 1 1 11 1 1 9801: 238^B17059000'6PD000/207010XV17114220481D22529070053D2203307004XDD22530D22531220373D22253D0701000079 1 1 1 1 1 11 1 1 1 9901: TD2202400064TDA2235600069W1675800!'0&J20786^D2158021806/D2180600'?6T,00'?6A2240600059B1700600!'1*D22 1 11 1 1 1 1 1 1 1 1 10001: 03700!001B1654000!'1,B1663000!'1)J16611^A2225322036D22531220373C2203600!A2J16611TD0005900064TA222530 1 1 1 1 1 1 1 1 1 10101: 0059J16414^D2253307003XJ14714^C2203600!A2J16611/V16739220481D0242500'?2T,00'?2D2227900'?37A222530006 1 1 1 1 1 1 1 1 1 1 10201: 9J21238^B1486500!'2%B1718100!'1)J14368^D0242800'?2TJ16672^D0006900034TD22534203453,20352D22468J20278 1 1 1 1 1 1 1 1 1 1 1 10301: ^D22535203453)20352D22531,000'0D0002900069TD000!000'?0(G00059B)00!'0B1689900!'1&B1698800!'1-J16497^A 1 1 1 1 1 1 1 1 1 1 1 1 10401: 2251922037W1704000!'2&A2235600069J20786^D2158021806/D2180600'?6T,00'?6A2240600059J16497^A2253622037J 1 1 1 1 1 1 1 1 1 1 10501: 16910^A2235622037A2235600069W1675800!'0&D2253807003XJ14714^D000/200039TC000?622519J16182/D2253907011 1 1 1 1 1 1 1 1 1 10601: XD000A2J16328^D22540070053J16352^,22048A2225302428D0242807006TD22541070037J16254^A2225300069J22211^C 1 1 1 1 1 1 1 1 1 1 1 1 10701: 0009902699J19275/J21271^D22468000942B17723023760D2254207000,J21238^D0257900029TD000'507011TD22369J20 1 1 1 1 1 1 1 1 1 1 10801: 641^0700717324D2255600000,J21238^!2225321795A2246600029C0258900029J17669SA2246721795D22468217952B174 1 1 1 1 1 1 1 1 1 1 1 10901: 27023762B17446000'61J17344^B17446000'65J17344^D2257107019TD21795D22369J21238^D2239007003TB1758702376 1 1 1 1 1 1 1 1 1 1 11001: 2D000'507009TJ20641^0700517540D2257200000,J21238^B17344000'70D2249207003TJ21238^J17344^D2257407013TD 1 1 1 1 1 1 1 1 1 1 1 1 11101: 000'4B17643000'71D2257607005TJ21238^J17344^D2257807005TJ21238^J17561^A2225321795D22468217952D2258207 1 1 1 1 1 1 1 1 1 1 11201: 011TD21795D22282J21238^D0260900029TD2229421795TC0002902619J17825SA2225321795D2259007014TD21795D22592 1 1 1 1 1 1 1 1 1 1 1 11301: J21238^A2252300029J17747^D0262400029TD2229421795TC0002902634J17960SA2225321795D2259907013TD21795D226 1 1 1 1 1 1 1 1 1 1 1 11401: 01D000'007014#G00029AG17938BD2254000000#D22279J21238^J17849^D0263900029TD2229421795TD2179918060/C000 1 1 1 1 1 1 1 1 1 1 1 11501: 2902649J18117SA2225321795D2260707012TD21795D22609)000'0,000'0D000'007013#G18090BD22279000003J21238^A 1 1 1 1 1 1 1 1 1 1 1 1 11601: 0239000029J17996^D2262407014TJ21238^J01501^18162J21271^J18136^D0243900029TC0002902574J18325SB1822200 1 1 1 1 1 1 1 1 1 1 1 11701: 0'6NA2246600029J18174^D000'507005TJ20641^0700100039D2227921974TD22253D22629B18299000'70D22630219703D 1 1 1 1 1 1 1 1 1 1 1 1 11801: 21968000?0#J21238^J18204^B18512023760D0257900029TA2246600029C0002902589J18512SB18349000'65D000'50700 1 1 1 1 1 1 1 1 1 11901: 5TJ20641^0700100039B18493000'62B18493000'63D21560000?0,B18479000'70D22630000?23J21238^J18349^D225830 1 1 1 1 1 1 1 1 1 1 1 12001: 00?0,J18479^)2204422041D0259400029TC0002902604J18669SC000'622467J18651UV18608220441D2146407000,J2123 1 1 1 1 1 1 1 1 1 1 12101: 8^,22044D2227907008TD000'5D22632J21238^V18717220411A2263400029J18535^,22041D0256400029TC0256400029J1 1 1 1 1 1 1 1 1 1 1 1 1 12201: 8735SB18571000'6ZA2246600029J18687^D2263900029TD2264321971XJ19301^D2264800029TD2265221971XJ19301^D22 1 1 1 1 1 1 1 1 1 1 12301: 65407022TD21819D22656D22662D21726J21238^D2129707000,J21238^D2131707000,J21238^D2134207000,J21238^D22 1 1 1 1 1 1 1 1 1 1 1 1 12401: 65407019TD21818D22675J21238^D2265407025TD21824D22688J21238^D2183007000,J21238^D2190407000,J21238^D22 1 1 1 1 1 1 1 1 1 1 1 1 12501: 69207015TD22697D22704J21238^D0239221974XS2235621974D2265407009TD21974D22540D22307J21238^D2265407009T 1 1 1 1 1 1 1 1 1 1 1 12601: D02390D22540D22307J21238^D2227907012TD22704D22697J21238^D2270707002TJ21238^D2271207004TB19256023760D 1 1 1 1 1 1 1 1 1 1 1 1 1 12701: 2271507014TD0243407010TJ21238^J01536^D2272001174CJ01627^D2273007014TJ19223^D2167307000,J21238^J17217 1 1 1 1 1 1 1 1 1 1 12801: ^G19336BD2273321974TC21974000'0J00000SA2225321974D2197407006TD2156007007#B1939707000ID22630070093J21 1 1 1 1 1 1 1 1 1 1 12901: 238^J19320^G19636BD000!000029T?2225321580C0003422312J19638S)22049C00029000J0J19572SV19663220491C2146 1 1 1 1 1 1 1 1 1 1 1 13001: 3000'5J19631SA2179700029A2225321580C00029000!5J19465/D22468017033J19631^V19631220441A21797000J0V1968 1 1 1 1 1 1 1 1 1 1 13101: 8220491,21458D21463000'5X)21458J00000^,22049D22468214632J19465^C21463000'0J19513/J19631^!2179900094, 1 1 1 1 1 1 1 1 1 1 1 1 13201: 21DO3D21463000'0X)21DO3J19631^G19935B,000'0D2154321463TD000!021458#)000'0D2273800034TD2246621797TD00 1 1 1 1 1 1 1 1 1 1 1 13301: 0J000094TJ19411^B1995601703^C0002900094J19930/D22531220443V19930220441D22521000'63C000'022520J19937U 1 1 1 1 1 1 1 1 1 13401: C000'022521J19937TD22531000'73J00000^D22253000'73J19930^D2274002422TJ01606^G00039BD000?600034TD22252 1 1 1 1 1 1 1 1 1 1 1 13501: 21559TW20077000!0&C21559000?1J20077SA2225321559A2225300034V20018000!02J000?7^V20108220461D2246801703 1 1 1 1 1 1 1 1 1 13601: TJ000?7^D2253122046TJ000?7^G20276BD2027600029TD000'400029TA2246720276D000'0201923B20271227520B20271B 1 1 1 1 1 1 1 1 1 1 1 13701: 20271B20271B20271B20271B20271B20271B20271B20271B20271A2225300029J20169^J00000^G20470BC000!022520J203 1 1 1 1 1 1 1 1 1 1 1 1 1 1 13801: 76UC000!022521J20376TD0003420344/J20127^00000B20413000'00B20413000'0'J14101^)22050V20472220461D22754 1 1 1 1 1 1 1 1 1 1 1 13901: 01703TJ07743^D0002900094TS0003400094C0009422159J20376TS2225300029J00000^D22279203683D22535203453)203 1 1 1 1 1 1 1 1 1 1 14001: 52D22531D2275407003XJ14714^G20577BJ19975^0500000V20598220461B2057901703^J00000^D2275601703TJ07743^B2 1 1 1 1 1 1 1 1 1 1 1 1 1 14101: 057222046^D21543220463D2275607003XJ14714^G00094BD00?!420682/D00?!920712TB2070200000^A2225320682J2067 1 1 1 1 1 1 1 1 1 14201: 2^D20682000003DDDDJ00?J0^G20784BS2225300049,000'0D2229421813TD00''021813T)000'0J00000^G21079B,00!'0V 1 11111 1 1 1 1 1 1 1 1 1 1 14301: 20856220361D0006920836TJ19975^0500000B1661101703^J20875^D0006912979TJ12959^S2225300034D0006900044TB2 1 1 1 1 1 1 1 1 1 1 1 14401: 091700'000J20990^C0004400034J20953SA2225300044J20898^)22050V21219220461D2243601703TJ07743^V210812203 1 1 1 1 1 1 1 1 1 1 14501: 61?000!021463)00!'0D0003400069/D0239021797TD2231200034TJ19411^B2120001703^J00000^B21100220362J21002^ 1 1 1 1 1 1 1 1 1 1 14601: V21137220501C21463000!0J21150TJ21002^)22050J21002^V21181220461D2252501703TJ07743^D2252507003XJ14714^ 1 1 1 1 1 1 1 1 1 1 1 14701: D2231402422TJ01606^D2243607003XJ14714^G21269BJ01522^07000/07131/J00000^G21295BJ01522^01700J00000^ACC 1 1 1 1 1 1 1 1 11 1 1 1 1 1 14801: UMXX,DCW,#2*$I&1'ACCUMXY,EQU,ACCUMXX-$I-1'ACCUMXZ,EQU,ACCUMXY&2'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 14901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^*^LIST^OF^SUB-PROGRAMS^NEEDED^IN^THI 15001: S^PROGRAM',DCWS,BACKSPACE'^^^^^^^^^^^^^^^^^^,B,ENDPROG'00000,DIA,1',SBR,$-7'00000,DCWS,FACOVFL',DCWS 1 1 1 1 11 15101: ,FDVDCHK',DCWS,FQTOVFL',DCWS,SENSELIGHT',DCWS,SENSLTTEST',DCWS,SENSWTEST'0000***^PROGRAM^CONTAINS^AN 15201: ^INCOMPLETE^DO^NEST'DIGITCT&00000^^^^^^^^^^^^^^^^^^,DCWS,ENDFILETP'GA00000GL05001GL0500200000000^^00 1 1 1 1 1 1 1 1 1 1 15301: IT00000LA000001234567890100000PAUSEMS,DCWG,@PAUSE^^^^^^^@'PAUSEMS&11',PAUSEMS,DCWS,REWINDTP'^^^^^^00 1 1 1 1 1 1 1 1 15401: 000^STOPMSS,DCWG,@STOP^^^^^^^@'STOPMSS&10',STOPMSS^^^^^^^^^^^^^^^^^^^^^^^^^0171301717017180171901720 1 1 1 1 1 1 1 1 1 15501: 0172101725070100701307012070050000000000^^^^^^^^^^^C2203322252J14368/A2225322031J14368^^S2225322033C 1 1 1 1 1 1 1 1 1 111 1 1 1 1 11 1 15601: 2203322252J14101/J14368^^D22468220443D22515070003J15045^^006S2225300069B1536900!'1#J14368^N01C222522 1 1 11 1 1 11 1 1 1 11 1 15701: 2192J14101/)22045A2225322031S2225322033J14368^^^^^^001#HGFEDCBAQPONMLKJYXWVUTS8',B,,EQU,$'0000091KT9 1 1 1 1 1 1 1 111 1 1 111 1 1 1 111 15801: 298,DCW,026393199,NOP'83,,MLNA,/,WCP,BA1,$-16',H,$&1'-5'2TO,$&6',MLNA,,B,0'026090633&5',ZA,,ADDRESS' 1 1 1 1 1 1 1 11 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 15901: ,BZ,0'7,A,,S,99999,B,$&30',C,,BH,3295,DCW,@00000@',MLCA,$-19,$15'135^%15,$&6',MLCA,,ZA,0,,ZA'%15,82M 1 11 1 1 1 1 1 1 1 1 1 1 111 1 1 1 1 1 1 16001: -*$.#&/81***'84E#AB3IND685)80_S089JB490P@9ENDPROG,EQU,$'-1,$15'%15,$&11',0'IRFN%15',DCW,#5'GA,DCWG,@ 1 1 1 1 1 11 111111 11 1111 1111 1111 1 1 1 1 1 1 1 1 1 16101: GH,DCW,&ITIT99999,DCW,&1',DIA,F*^1102412IR0702417FN02@'@0,DCWG,ADDRESS,DCW,@ACCUMAP,DCW,@501',ORG,OR 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 16201: GREST,H',END,&0'RUN2DSTARTXX&0'0000256434.,&$*-/%)#'^9697B1410199RZ9),2204722041J14522^^B1410199RZ9, 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 16301: V07226220411J14671^^B1410199RZ9)C2203322252J14802/J14796^^B1410199RZ9%B1410199RZ9,J14368^^^^^^^^^^^^ 1 1 11 1 1 1 11 1 1 1 1: RUN2D065070650003200J01515^J01515^ 1: J07000^J05330^D0675801174CJ01175^D0248002983CD02481030043D02481029973J05113^D0248404019CD02485040263 1 1 1 1 1 1 1 1 1 1 101: D02485040333D02485040403D06759040163D06760039463J05442^B06740024401/02375//////D0276400029CS06761000 1 1 1 1 1 1 1 1111111 1 201: 29D0271400034CJ04989^D02446024413J06500^/01849/J06679^RUN2EM+15^RUN2E^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 11 1 111 1 501: D1226707079CA2574807079D1226712215CJ12145^B07068017000J12197^J07035^J01522^00000C0170325750J07211/B0 1 1 1 1 1 1 1 1 1 1 1 1 601: 729901701ZB0737901701&J07160TB0737901701FJ07379TB0737901701XJ12145^B07068017000)22760B0734601700*J12 1 1 1 1 1 1 1 1 1 1 701: 197^J07160^J08240^B0729901701ZC2575225779J07353TC2575425779J07353UJ12145^B07068017000J12197^J07266^J 1 1 1 1 1 1 1 1 1 1 1 1 801: 12145^J12197^J07299^J01536^D2575901174CJ01627^J08240^J12145^B07068017000J07353^D0170925764LD22750229 1 1 1 1 1 1 1 1 1 1 1 901: 20CD2275022934CD2275022948CC0170125765J07798TD0275900034CJ12145^B07563017000B0756301700,B0734601700* 1 1 1 1 1 1 1 1 1 1001: D01700000!0+G00034BC0276400034J07544UJ07457^D2576701703TJ07346^C2576413340J07646SD1334000094XB077802 1 1 1 1 1 1 1 1 1 1 1 1101: 5GO4^D1334012230CA25GO412230J01522^12224)22760D25768000!0CD0275900034CD000!0076933B1228612247^B13442 1 1 1 1 1 1 1 1 1 1 1201: B07766BB18280BB21676B22001BB07068017000)22760J07185^J12145^J07727^J16454^J07670^S2576900094J07593^D0 1 11 11 1 11 1 1 1 1 1 1 1 1 1 1301: 274400059CD0271400064CD0272900069CD01701081513)22760J12145^D01700078823B0791512254^B07934B07978B0802 1 1 1 1 1 1 1 1 1 1 1401: 2B08104BJ07346^D0170012268+J07852^D0170000!'0+G00069BC0273400069J08066UJ07852^D0170000!00+G00064BC02 1 11 1 1 1 1 1 1 1 1 1 1 1501: 71900064J08085UJ07852^D0170000'?0+G00059BC0274900059J08066UJ07852^D2577101703TJ07346^D2577301703TJ07 1 1 1 1 1 1 1 1 1 1 1 1601: 346^D0005925012CD0006425007CD0006925017CB2303212262^B23108B23146B23070B23127B23165B23051J23089^B0706 1 1 1 1 1 1 1 1 1 1 1 1 1701: 8078820J12197^J12145^B07068017000J08207^G08395B)22760D01702082761B0839725777^B08423B08461B08530D0170 1 1 1 1 1 1 1 1 1 1 1 1 1801: 3257791D?2577900094A00094A00094A2577900094C2577925781J08371US2578400094D11GQ912189CJ12171^J00000^D25 11 1 1 1 1 1 1 1 1 1 1 1901: 78912189XJ12171^J08295^D2579412189XJ12171^D25748017021J08295^D2579912189XJ12171^B08499017030J08442^D 1 1 1 1 1 1 1 1 1 1 1 2001: 1213912189XD2580125779CJ08383^D2580612189XJ12171^B08568017030J08442^D1214412189XD2580825779CJ08383^N 1 1 1 1 1 1 1 1 1 1 2101: ***^FIRST^CARD^OF^STATEMENT^IS^A^CONTINUATION^CARD'***^MORE^THAN^NINE^CONTINUATION^CARDS'***^NON-PER 2201: MISSABLE^CHARACTER^IN^COLUMNS^1-5'***^INCORRECT^OR^MISSING^STATEMENT^NUMBERS^IN^IF^STATEMENT'***^STA 2301: TEMENT^IS^NOT^IN^DICTIONARY'***^STATEMENT^CONTAINS^ILLEGAL^FORTRAN^CHARACTER'***^MORE^THAN^ONE^EQUAL 2401: ^SIGN'***^TOO^MANY^LEFT^PARENTHESES'***^TOO^MANY^RIGHT^PARENTHESES'***^FORMAT^STATEMENT^DOES^NOT^HAV 2501: E^A^STATEMENT^NUMBER'***^OPERATOR,^COMMA,^OR^LEFT^PARENTHESIS^IS^NOT^FOLLOWED^BY^OPERAND^OR^LEFT^PAR 2601: ENTHESIS'***^INCORRECT^USE^OF^SPECIAL^CHARACTER^OR^AN^OPERATOR^IS^MISSING'***^LAST^CARD^OF^PROGRAM^I 2701: S^NOT^AN^END^CARD'***^FREQUENCY^STATEMENTS^ARE^IGNORED'***^UNEQUAL^NUMBER^OF^PARENTHESES^OR^EQUAL^SI 2801: GN^USED^INCORRECTLY'***^THE^FUNCTION^OR^SUBROUTINE^STATEMENT^IS^NOT^THE^FIRST^STATEMENT^OF^THE^PROGR 2901: AM'***^DRUM^STATEMENTS^ARE^IGNORED'***^ERROR^IN^CALL^STATEMENT'***^RETURN^STATEMENT^IN^A^MAIN^PROGRA 3001: M'***^LIBRARY^FUNCTIONS^MAY^NOT^BE^USED^WITH^F^CARDS'***^THE^END^STATEMENT^IS^NOT^THE^LAST^STATEMENT 3101: ^OF^THE^PROGRAM'***^ILLEGAL^USE^OF^A^CHARACTER^IN^THIS^STATEMENT'***^I/O^STATEMENT^CONTAINS^TOO^MANY 3201: ^IMPLIED^DOS'***^DISC^STATEMENTS^ARE^IGNORED'***^HOLLERITH^FIELD^COUNT^IS^INCORRECT'***^INCONSISTENT 3301: ^MODE'***^EXPRESSION^IS^TOO^LONG^AND/OR^COMPLEX'***^ILLEGAL^DEFINED^FUNCTION^DEFINITIONS'***^DEFINED 3401: ^FUNCTION^IS^DOUBLY^DEFINED^OR^IS^A^LIBRARY^FUNCTION'***^DEFINED^FUNCTION^DEFINITION^OCCURS^AFTER^FI 3501: RST^EXECUTABLE^STATEMENT'***^ILLEGAL^USE^OF^NON-SUBSCRIPTED^ARRAY^NAME^OR^F-CARD^FUNCTION'***^UNEQUA 3601: L^NUMBER^OF^RIGHT^AND^LEFT^PARENTHESES'***^ILLEGAL^LEFT^SIDE^OF^AN^ARITHMETIC^STATEMENT'***^DOUBLE^E 3701: XPONENTIATION'***^ILLEGAL^MODE^OF^EXPONENT'***^ILLEGAL^FORMAT^STATEMENT'***^ARGUMENT^IN^COMMON^OR^EQ 3801: UIVALENCE'***^VARIABLE^NAME^IS^SAME^AS^NAME^OF^LIBRARY^FUNCTION^WITHOUT^ITS^TERMINAL^F'***^FIRST^CHA 3901: RACTER^OF^SYMBOL^IS^NOT^ALPHABETIC'***^SYMBOL^IS^GREATER^THAN^6^CHARACTERS'***^SYMBOL^IS^NOT^FOLLOWE 4001: D^BY^A^VALID^CHARACTER'***^SUBSCRIPT^CONTAINS^OTHER^THAN^NUMERIC^CHARACTERS^OR^IS^EQUAL^TO^ZERO'***^ 4101: SUBSCRIPT^IS^GREATER^THAN^5^CHARACTERS'***^SUBSCRIPT^IS^NOT^FOLLOWED^BY^A^VALID^CHARACTER'***^A^NECE 4201: SSARY^SPECIAL^CHARACTER^HAS^BEEN^OMITTED'***^THERE^ARE^UNLIKE^MODES^WITHIN^ONE^SET'***^SYMBOL^WHICH^ 4301: ENDS^IN^F^IS^GREATER^THAN^3^CHARACTERS'***^ARITHMETIC^OVERFLOW-^ARRAY^SIZES'***^SUBROUTINE^OR^FUNCTI 4401: ON^NAME^IS^THREE^OR^MORE^CHARACTERS^LONG^AND^LAST^CHARACTER^IS^F'***^SUBSCRIPTED^VARIABLE^IS^NOT^DIM 4501: ENSIONED'***^INPUT^OUTPUT^STATEMENT^DOES^NOT^CONTAIN^A^LIST'***^SPECIAL^CHARACTERS^USED^INCORRECTLY' 4601: ***^INVALID^OR^MISSING^NUMERIC^CHARACTER'***^INVALID^VARIABLE'***^IMPROPER^DO'***^ILLEGAL^FUNCTION^O 4701: R^SUBROUTINE^REFERENCE'***^I/O^STATEMENT^CONTAINS^TOO^MANY^VARIABLES'***^INVALID^SUBSCRIPTING'***^IN 4801: VALID^SUBSCRIPT^ARITHMETIC'***^INVALID^DO^NEST'***^ILLEGAL^DO^END^STATEMENT'***^ILLEGAL^FLOATING^POI 4901: NT^CONSTANT'***^INCOMPLETE^OR^INCORRECT^ARGUMENT^LIST'***^ILLEGAL^INTEGER^CONSTANT'***^ILLEGAL^OR^MI 5001: SSING^INTEGER^VARIABLE'***^INVALID^STATEMENT^NUMBER'***^ILLEGAL^INPUT^OUTPUT^DESIGNATOR'***^UNDEFINE 5101: D^STATEMENT^TYPE'**&**^COMMON^STATEMENT^DIAGNOSTIC'**&**^EQUIVALENCE^STATEMENT^DIAGNOSTIC'**&**^DIME 5201: NSION^STATEMENT^DIAGNOSTIC'**&**^FUNCTION^OR^SUBROUTINE^OR^F^CARD^STATEMENT^DIAGNOSTIC'*^'0860008651 1 1 5301: 0868908734087930882808877089060893608967090210910909174092180925509320117870940309435094631178709502 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5401: 0955309616096650971309745097840980609848098890995310025100901013910188102141024310272103101038710435 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5501: 1047510523105961063910690107411083910965110091106011100111411116211787111781122311269112941132711347 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5601: 113761141211454114831152311552115881078310876G12169BJ01501^07320J00000^G12195BJ01522^00000J00000^G12 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 5701: 221BJ01522^00000J00000^NLAXXXXX,EQU,$'"$#+;>@_]:*,0EDSMEXFDCBA#01700^^^^^^^^^^^^^^^^^'A1228600034B12 1 1 1 1 1 1 1 1 1 1 1 5801: 469000!02)13438V12881227611V12493134381J16384^D1325622549#G00054BJ15939^B12658000!0B1279300!'0;J16384^J15939^A1276300034J07670^B1281200!'10B128120 1 1 1 1 1 1 1 1 1 1 6301: 0!'12J12749^D000!022812#D13340D000!000'!0#G00034AG12866BD2580900000C,22761J12763^)22761D1334022804#D 1 1 1 1 1 1 1 1 1 1 1 1 6401: 000!022803#G00069AC2280922818J13037/D0006900034CC000!025748J12558TV13004134381B12658000!0B19914000!2;J22521^ 1 1 1 1 1 1 1 1 1 1 13301: J16428^,22760J21100^D2279022549#D000!1G00034AD2279322556#J16428^D2278022549#D22792D22684J16428^J1961 1 1 1 1 1 1 1 1 1 1 1 1 1 13401: 5^B19933000!30B19933000!32J19793^,22761D2273522818TD000?122812#J21094^)22761D2273522809TD000!122803# 1 1 1 1 1 1 1 1 1 1 13501: C2280922818J20051SV20037227601J22521^J16428^J19552^D000!1000!18G00034AJ19615^J21167^V20303227611B202 1 1 1 1 1 1 1 1 1 1 1 1 13601: 77000'1FJ20359TD2276622549#D2268422560TD000'4J16428^V20227000!12D2270022550#D000!1G00034AG00044BD226 1 1 1 1 1 1 1 1 1 1 1 13701: 8400'00#V20868000!12J19694^D2279022549#D000!1G00034AD2269922556#D22704J20208^V20359227601J22521^J203 1 1 1 1 1 1 1 1 1 1 1 13801: 59^)22761B21020000'1FV20340227601J22521^J16428^B20115000'1LV20598000!12B20817000'1FD2265422549#D000! 1 1 1 1 1 1 1 1 1 1 13901: 1G00034AG00044BD2265700'00#D000!1D22684J16428^B20528000'1BD2282022550#D000!1G00034AG00044BD2268400'0 1 1 1 1 1 1 1 1 1 1 1 1 14001: 0#D2581022557#J16428^J21094^D2268422552#J16428^D2282022550#D000!1G00034AG00044BD2283000'00#J20514^D2 1 1 1 1 1 1 1 1 1 1 1 1 14101: 279022549#D000!1G00034AD2279322556#J16428^B20686000'1FD2265422549#D22650G00044BJ20415^D2278022549#D2 1 1 1 1 1 1 1 1 1 1 1 14201: 2650D22684J16428^D2276622549#D2268422559TD000'3J16428^V20970000!12D2270322553#D000!1G00034AG00044BD2 1 1 1 1 1 1 1 1 1 1 1 1 14301: 268400'00#J20514^D2278022549#D000!1G00034AG00044BD2268400'00#J20710^J16428^J22521^D2279022549#D000!1 1 1 1 1 1 1 1 1 1 1 1 14401: G00034AD2279322556#J16428^D2278522549#D22792D22684J16428^,22760J21100^D2279022549#D000!1G00034AD2269 1 1 1 1 1 1 1 1 1 1 1 1 1 14501: 922556#D22704J20514^D2273522809TD000!122803#C2280922818J20321/D000!1000!18G00034AJ20717^)18750)22760 1 1 1 1 1 1 1 1 1 1 1 14601: B21149000!1'D2585212189C)2276122760J12171^J07068^A2581000034J07670^G21334BB21285000!1IJ21224TB212850 1 1 1 1 1 1 1 1 1 1 1 14701: 00!1NJ21285TB21285000!17D2576922547#B21304000'1LB21304000'1FC000'722547J21329SJ21112^D2583522547#J21 1 1 1 1 1 1 1 1 1 1 14801: 236^C000'722547J21329/J21112^J00000^D2585722837CD2268422559CD22844D22722J16428^D2270022550#D22704J16 1 1 1 1 1 1 1 1 1 1 1 1 14901: 428^D000'522850CD2285122555CG00044BB2146500'04^A2576900044J21435^D2285200'04#J16428^D2286122549#DD22 1 1 1 1 1 1 1 1 1 11 15001: 684J16428^D2286222550#D2283722559CD2288022560#D22875J16428^D2265522550#D22650D22657D000!1G00034AD226 1 1 1 1 1 1 1 1 1 1 1 1 15101: 8422562#J16428^B2164622555ID2268422552#J16428^A2584722837B21094000!1'J21510^D2286122549#G00044BD2285 1 1 1 1 1 1 1 1 1 1 15201: 122561CB2173700'03^A2576900044J21707^D2288300'03#D22871D22684J16428^D2283722559CD2288022560#D22885J1 1 1 1 1 1 1 1 1 1 1 1 15301: 6428^D2265522550#D000!1G00034AD2265722560#D22650D22684J16428^B2189222553ID2268422552#J16428^A2576922 1 1 1 1 1 1 1 1 1 1 1 15401: 837D2283722556CD22722D2288022557#D22684J16428^D2268422562CD22798D2284422555CJ16428^A2576922844J22465 1 1 1 1 1 1 1 1 1 1 1 15501: ^D000!0220863D2574822644#V22259000!12D000!122553#G00034AG00044BD2265422549#B22221258580D2263700'00.J 1 1 1 1 1 1 1 1 1 1 15601: 16428^D2290622636XD22906D22906S00029D000!0000!08G00039A)999I9,000!0D999I9226S2CD0003900034CB22329000 1 1 1 1 1 1 1 1 1 1 1 15701: !0'A2583900029J22136^D2289100'00.J16428^D2268422552#J22099^D2279022549#D000!1G00034AD2279322556#J164 1 1 1 1 1 1 1 1 1 1 1 15801: 28^D2265022553#G00044BJ22063^D2268422560CD22629D22910J16428^B2248922086#D2263722561#G00044BD2268400' 1 1 1 1 1 1 1 1 1 1 1 15901: 02CD22721D2262222560CD22914J16428^D2268422559CD22636D22722J16428^A2576900034)22760J07670^D2289122561 1 1 1 1 1 1 1 1 1 1 1 1 16001: #D22915G00044BJ22391^G22545BJ01522^22766J00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 11 16101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^,IR07001',GL00001,ZA,M,MLCB,ACCUMXXA,S,,ACCUMXY',DCWS,XXXAOP^', 1 1 11 1 1 1 1 1 1 16201: DCW,#5'&000^^GL09^^^,B,,MLNA,^^^^^^^^^^^^^^^^^^^^^^^^^,DCWF,^^@"@',DCWS,INTRPRT',FRA,,FST,GL0,EQU,$& 1 11 11 11 1 1 1 1 1 1 1 1 16301: 5'^^^^^^^^^^^^^^^^^^MLZS,$-12,-2'00004GL06001^^^^^^^,SBR,$-7',MLCA,$-19,$15,$&6'%15-1,$&11',FN02001' 11 11 1 1 11 1 1 1 1 1 1 1 1 1 1 16401: LA00000,BZ,BZN,-2000^1^^^^^^^^^^^^^2^^^^^^^^^^^^^3^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 111 1 1 1 1 1 1 11 1 11 1 16501: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1: RUN2E065332303217000J01515^J01515^ 1: D25075250673J23184^D25076250673J23184^D25077250673J23184^D25078250673J23184^D25079250673J23184^D2508 1 1 1 1 1 1 1 1 1 1 1 101: 0250673J23184^D25081250673J23184^D25082250673J23184^B2338112269^D2503125057TD12273D25084J24977^D2508 1 1 1 1 1 1 1 1 1 1 1 201: 525044TD25067D25091J24977^C1228425097J23325SD2510225041TB2340012279^D1227925042#D25085J24977^B234311 1 1 1 1 1 1 1 1 1 1 1 301: 2278^D2508525049TD12278D25084D25102J24977^J23431^D2503125050TJ23220^D2508525049TD12284D25104J23318^D 1 1 1 1 1 1 1 1 1 1 1 1 1 401: 2510625074TD25106)25033D0272900064TD02744D02714D0005400069TD0005400049TC0006925007J23765SC00!'225072 1 1 1 1 1 1 1 1 1 1 501: J23765/A2510800069C0006925007J23586SC00!'225072J23539SD0006900049TA2507925074S2510800069C0005400069J 1 1 1 1 1 1 1 1 1 1 1 601: 24165TV24938250331D2511225040TB2411600!/1^D00!/125041#D25113D00!'5D25085J24977^A2507925036D251202505 1 1 1 1 1 1 1 1 1 1 701: 0TD25036D25124J24977^D2503625070LC0006425017J23880SC00!0225072J23880/C00!0425074J23880/V24938250331A 1 1 1 1 1 1 1 1 1 1 1 1 801: 2507600064D0006400034TJ16454^D0003400064TJ23765^C0005925012J23948SC00'?825072J23961/C2507400'A0J2418 1 1 1 1 1 1 1 1 1 1 901: 4SJ24079TJ23598^,25032J23967^)25032V24938250331C0006900049J24011SJ24614^J23979^V24053250321A25079250 1 1 1 1 1 1 1 1 1 1 1 1 1001: 72D2510625074TJ23503^D2513825050TJ24977^J08195^V24938250331J24614^S2507925074J23765^D2511325048TD00! 1 1 1 1 1 1 1 1 1 1 1 1101: /6D25104D00!'525049#D25085J23704^D0005400069TJ23765^B2436800'A11V24938250331B2449100'A13D2515325051T 1 1 1 1 1 1 1 1 1 1 1201: J24977^B2456600'A13D2510225041TD00'?125042#D25085J24977^D00'A600079TD2508525048TD00!A7D25091J24977^D 1 1 1 1 1 1 1 1 1 1 1 1 1301: 2516225045TJ24977^A2516400059J23880^V24405250331,25033D2517925051TJ24977^B2445400'?1^J25248^^041TD00 1 1 1 1 1 1 1 1 1 1 1 1401: '?125042#D25085J24343^D2508525051TD25186D00'?6D25123J24343^D2519225042TD00'?125043#G00084BD2508500?0 1 1 1 1 1 1 1 1 1 1 1 1501: 8TD22653D25196D25113J24977^J24220^D2508525051TD25186D22653D25196A2507922653J24281^G24838BD2519925039 1 1 1 1 1 1 1 1 1 1 1 1 1 1601: TB2484000!S3^D00!S325040#D25113D00!'5D25085J24977^D2520225039TB2488900!/7^D00!/725040#D25113D00!'5D2 1 1 1 1 1 1 1 1 1 1 1 1 1701: 5085J24977^D2521025044TJ24977^D2508525047TD25070D25124D25213J24977^S2507925070A2510800069D0006900054 1 1 1 1 1 1 1 1 1 1 1 1801: TJ00000^D2511325047TD00!S8D25104D00!'525048#D25085J24675^D2511325047TD00!S2D25104D00!'525048#D25085J 1 1 1 1 1 1 1 1 1 1 1 1 1 1901: 24736^G24975BD2516225045TJ24977^)25033J00000^G25001BJ01522^25037J00000^000000000000000,DCWS,OPENING' 1 1 1 1 1 1 1 1 1 1 1 1 1 2001: ^^000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^000000005891627LA',DCW,&^^^^^^,DCW,IT0030,ZA,,,EQU,$'GL04,DCWS,C 1 11 1 1 111111111 11 1 1 1 1 1 1 11 1 1 2101: LOSEIO',DCWS,ENTRYTWO',DCW,@"@'18,DCWS,ENTRYONE',DCW,#5,MLNA,GL00,A,,C,,BH,$&8',B,^^^^^^^^^000^^^^^^ 1 1 1 1 1 1 1 1 1 1 1 11 2201: ^^^^^^^^^^^^0000D2510225041TB25279023762J24429^D00'?100'?18G00084B)99I99,00'?1C0243400'?6J25347S)00' 1 1 1 1 1 1 1 1 1 1 1 1 2301: ?1,99I99J24429^C0242925433J25414UC0242925434J25414TD2544225048CD25435250493J24343^D2544925048CJ25395 1 1 1 1 1 1 1 1 1 1 1 2401: ^IN'IR07005FN02002^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1111 1 2701: ^^^^^^^^^^^^^^^^4003879RUN3A^^^^^%29"188257654^^80150116171165111690601172770'2<^-158231583015844158 11 1 1 1 1 11 111 1 1 1 1 1 1 1 1 1 1 1 111111 1 1 1 2801: 37,025672314_9851141200004#6LA,DCW,&^^^^^^,DCW,IT30GL04,EQU,$',DCWS,ENTRYTWO',DCW,@"@'18,DCWS,ENTRYO 111 11 1 11111 1 111 1 1 1 1 1 1 1 1 1 1 1 2901: NE',DCW,#5,DCWS,CLOSEIO',MLNA,GL00,A,,C,,BH,$&8',B,,ZA,^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1: RUN3A065070650011000J01515^J01515^ 1: J07000^J05113^D0248402983CD02485030043D02485029973J01613^D06661029803D06662029413D0280900029CS066630 1 1 1 1 1 1 1 1 1 1 101: 0029D0277400034CJ04989^J05442^/02375//////D02447024413J06500^M,1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1111111 1 111 501: J01501^13398D0239213873CS1427513873A1387302789A1387302799A1342902789A1342902799,01700A1428002804A142 1 1 1 1 1 1 1 1 1 1 1 601: 8002774A1428002814D0277400059CA1428002784D1344713G40CD0239727287XD1428123676XD1428327277XD1428000094 1 1 1 1 1 1 1 1 701: CA0280400094D1428823687XA1387300029A1342900029S0002913869D13782138692D1386900099C,00??2A0278900029B0 1 1 1 1 1 1 1 1 1 1 801: 735301700*V07353017002B0738301700,D1342913430GJ07516^J01501^13398A1342913435J07298^D1429300049GD1429 1 1 1 1 1 1 1 1 1 1 901: 800089GB0744901X'0,B0749701X'0'A1342900049J07407^D1344713462CS1342900049D13782000492,01X'0J08100^D13 1 1 1 1 1 1 1 1 1 1 1001: 42913462CJ07461^D1344000049XD1377713454XD1344000034XD1344000044XD1344000069XD0277400059CB0761801X'0, 1 1 1 1 1 1 1 1 1101: A1342900049J07588^)01700,01WZ9)13448D0170013448#,13448)01WZ9,01700A1342900049J07940^C00'?013454J0790 1 1 1 1 1 1 1 1 1 1 1 1 1 1201: 9SC0005902779J07855SJ07855TC00'?013777J07805SA1430300059A1430302784J07684^D0004900089CD1378213460CJ0 1 1 1 1 1 1 1 1 1 1 1 1301: 7407^D1345400'?0XJ07774^D1430502422CD1344713455CJ13875^B07824134551D1342913455CD1344700059CA14310000 1 1 1 1 1 1 1 1 1 1401: 59J07684^D1372000'?3SD1344713430CJ07774^G08098B,13452D1345400034/)13452,13449D1345100069/)13449D1344 1 1 1 1 1 1 1 1 1 1 1 1 1501: 800044/A0004400034A0006900034D1344700031CA00034A00034D0003400044GA00034A0004400034A0003400059J00000^ 1 1 1 1 1 1 1 1 1 1 1601: D1378213467C)13463D01G'013463#,13463)01X'0C1346714315J08244SC1346714320J08244SC1346714325J08244SD143 1 1 1 1 1 1 1 1 1 1 1 1 1701: 3000039GC134G513466J08275SA1433500039J08208^D1344713430LD1344713455LJ07353^D134G6134613B0850313461AB 1 1 1 1 1 1 1 1 1 1 1801: 0878513461BB0902113461CB0909913461DB0911813461EB0917413461FB0937413461QB0924713461GB0995413461HB0911 1 1 1 1 1 1 1 1 1901: 813461IB0940413461JB0950213461KB0965713461LB0967613461MB0973713461NB0975613461PB0986513461RB10435134 1 1 1 1 1 1 1 1 2001: 61ZB08754134621D1342913462LA1346800049D0004900089GB0861601X'0/B0863001X'0)B0864401X'0,B0867301X'0'A1 1 1 1 1 1 1 1 1 1 2101: 342900049J08574^J12042^J08574^J12362^J08574^A1342913462A1342900049J08574^B08716134621B08735134622D14 1 1 1 1 1 1 1 1 1 1 1 2201: 30313473CJ10717^D1428013473CJ10717^D1434013473CJ10717^D1429813473CD1344713462LJ10717^B08754134621A13 1 1 1 1 1 1 1 1 1 1 2301: 46800049D1342913462LD0004900089GB0889801X'0/B0891201X'0)B0895401X'0,B0898301X'0'A1342900049J08856^J1 1 1 1 1 1 1 1 1 1 2401: 2042^J08856^J12362^J08856^J12042^J08697^J12362^J08697^A1342913462A1342900049J08856^B09002134621J0869 1 1 1 1 1 1 1 1 1 1 1 1 2501: 7^D1434513473CJ10717^B08754134621A1346800049D1342913462LD0004900089GB0892601X'0/B0894001X'0)J08697^D 1 1 1 1 1 1 1 1 1 1 2601: 1435013473CJ10717^A1346800049B0916001X'0)D1434513473CJ10717^J12362^J09141^A1346800049D0004900089GJ10 1 1 1 1 1 1 1 1 1 1 2701: 993^B09319134301D1346023687CD1387013871CJ07353^A1346800049D0004900089GJ10993^D1346027287CS1435127287 1 1 1 1 1 1 1 1 1 2801: D1378213460LJ07353^D1378213430LD2368700'?5XB09367138710D1372000'?1SJ09216^A1435623687D1429813473CJ10 1 1 1 1 1 1 1 1 1 1 2901: 717^B09471134301C134G514360J09441SJ07353^A1346800049D01X'023600.J07353^D1377700'?0CD1344713430CJ0735 1 1 1 1 1 1 1 1 1 1 3001: 3^A1346800049D0004900089GJ10993^D1344713731CD0239213725/@1346013731)01G'0B09638137321D13782137312A13 1 1 1 1 1 1 1 1 1 1 3101: 73123687S1342923687D1429813473CJ10717^D1373113473JJ10717^D1342913732CJ09502^A1346800049D0004900089GJ 1 1 1 1 1 1 1 1 1 1 3201: 10993^D1344713731CD0239013725/J09556^D1342913732CJ09676^A1346800049D0004900089GJ10993^B07353134300D1 1 1 1 1 1 1 1 1 1 1 3301: 346000'?5XD1387400'?22B09846138700D1372000'?1SD1344713430CJ07353^A1433000049D1429800089CC01X'114362J 1 1 1 1 1 1 1 1 1 3401: 09935SA1342900049A1342900089J09888^D0008913473CJ10717^A1346800049D1344700089CB1007901X'0@B1018401X'0 1 1 1 1 1 1 1 1 1 3501: &B1018401X'0-B1026601X'0#B1034901X'0/B1039801X'0)A1435623687D1429813473CJ10717^A1342900049B1013101X' 1 1 1 1 1 1 1 1 1 3601: 0@A1342900049A1342900089J10090^S1342900089D13782000892A0008923687D1429813473CJ10717^A1342900049B1023 1 1 1 1 1 1 1 1 1 1 3701: 601X'0'A1342900049A1342900089J10195^S1342900089D13782000892J10154^A1342900049D0004900089CJ10993^S134 1 1 1 1 1 1 1 1 1 1 3801: 2913460D13782134602A1346023687D1429813473CJ10717^A1435623687D0004900089GD1429813473CJ12042^J10717^A1 1 1 1 1 1 1 1 1 1 1 3901: 435623687D1429813473CJ12362^J10717^D1436710705CD1436710716CD0004910700LA1435100049B1067201X'0'B10525 1 1 1 1 1 1 1 1 1 4001: 01X'0&B1052501X'0-J10471^,01X'1D01X'101X'1YG00044B?99Z9810705?0239210716C0170014368J10619TC017001436 1 1 1 1 1 1 1 1 1 1 4101: 9J10619U?0239010716@1071610711D14370107112D1071101X'5CD1437101X'6C)01X'1D1070000049TJ09756^^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 4201: ^^^^^^^^^^^^^^^^^B10825134301B10771137321A1347323687D1344713473CJ07353^S1347323687D13782272872D13447 1 1 1 1 1 1 1 1 1 1 4301: 13473CD1344713732CJ07353^B10915137321D2368700'?5XA1347323687D1344713473CB10896138710D1372000'?1SD134 1 1 1 1 1 1 1 1 1 4401: 4713430LJ07353^D2728700'?5XD1372000'?2SJ14000^N287D1344713473CD13782272872D1344713732CJ10872^G11828B 1 1 1 1 1 1 1 1 1 1 4501: D13447138743D0005900099CD1344700084CV1111401X'02B1113301X'0&B1113301X'0-B1113301X'0*B1163601X'0'A134 1 1 1 1 1 1 1 1 1 4601: 2900049J11048^D1342913733CJ11096^B11558137331,01WZ9D1378213454C)13448D01G'013448#,13448D01X'013G423) 1 1 1 1 1 1 1 1 1 1 1 4701: 01WZ9A1342900049D0004900089GD1344700034CD1344700044CD1344700069CD0277400059CJ07940^C00'?013454J11409 1 1 1 1 1 1 1 1 1 4801: SC0005902779J11355SJ11355TA1430300059A1430302784J11283^B11999137341D1342913734CD1344700059CA14310000 1 1 1 1 1 1 1 1 1 1 4901: 59J11283^D00'?513G40/S1433500059D13782000592C00'?014373A1433500059J11539SD00'?113783SD00'?2138742V11 1 1 1 1 1 1 1 1 1 1 5001: 53913783KD1344713G41LA1434500084J11655^D1342913G41LJ11521^D1344713733L,01G'0D01WZ913G40CD01X'013G423 1 1 1 1 1 1 1 1 1 5101: )01G'0A1342900049D0004900089GJ11509^D1342913735CJ11133^B11036137350D1344713735LD1344713870LD13447134 1 1 1 1 1 1 1 1 1 1 5201: 60LD1344700084CD13G4013460CD13G4113870CB1183013G42&B1187013G42-B1193413G42*D1344713770TD1344713758TD 1 1 1 1 1 1 1 1 1 5301: 1344613746TD0009900059CJ00000^A1434500084A13G4013460A13G4113870J11739^A1434500084S13G4013460D1378213 1 1 1 1 1 1 1 1 1 5401: 4602S13G4113870D13782138702J11739^A1434500084D13G4013725C@1346013731D1373113460JD1344713870LJ11739^D 1 1 1 1 1 1 1 1 1 1 5501: 1344013G40CD1344713734LD1344713G41LJ11521^G12342BD1378213864CD1428000064LA0280400064A1342900049A1342 1 1 1 1 1 1 1 1 1 5601: 900089B1214801X'0,B1214801X'0'A1342900049J12106^S1342900049D13782000492,01X'0)13858D01G'013858#,1385 1 1 1 1 1 1 1 1 1 1 5701: 8)01X'0C00!0013864J12337SC0006402809J12344UC0009402809J12280UD1437502422CJ13875^D1386400?!0XA1434500 1 1 1 1 1 1 1 1 1 1 1 5801: 094A1434502814A1342900049D0004900089GJ00000^A1434500064J12207^G13359BD1344700079CD1344700054CA143800 1 1 1 1 1 1 1 1 1 1 5901: 0049A1342900049D0004900054C?1438113805?1438113810B1270900'!0,B1270900'!0'B1250300'!0EA1342900054J124 1 1 1 1 1 1 1 1 1 6001: 49^A1342900054B1255700'!0&B1254500'!0-J12568^D14382138103A1342900054D1380000079TB1266300'!0,B1266300 1 1 1 1 1 1 1 1 1 6101: '!0'C0007913795J12890SD00'!000!?01A1438300054A1438300079J12580^S1342900079D13782000792D1381000!?02?0 1 1 1 1 1 1 1 1 1 1 6201: 0!?013805D0004900054/B1275100'!0.A1342900054J12721^D0004900079/B1289000!?0EB1289000!?0,B1289000!?0'B 1 1 1 1 1 1 1 1 1 6301: 1292000!?0.C00!?013436J12847TA1342900079J12763^S0007900054J12865ZA0005413805J12890ZJ12938^?143851385 1 1 1 1 1 1 1 1 1 1 6401: 7D14383138552J13144^A1342900054J12829^C1436713803J12890/?1380513857C1385714387J12997/D14383138572D14 1 1 1 1 1 1 1 1 1 1 1 6501: 388138552B1303300''0-D14383138552D1379000054CS1387300054D13429000542B1311500!?0.W1314400!?0&D00!?000 1 1 1 1 1 1 1 1 6601: '!01A1342900054A1342900079C0005413790J13068/D1344700079CS1438000049D13782000492D1387300079CA13429000 1 1 1 1 1 1 1 1 1 6701: 79D0007900054CA1342900054A0278900079C00!?013857J13354SC0007902794J13361UC0002902794J13379SJ13379TD13 1 1 1 1 1 1 1 1 1 1 1 6801: 857000'0XA0005400029A0005402799A1342900049D0004900089GJ00000^A0005400079J13236^D1439002422CJ13875^D1 1 1 1 1 1 1 1 1 1 1 6901: 439501174CJ01627^9999999999991^00001000000000000^^^^^^^^^^^^^^^^^^^^2^^^^^0A^^^AD^^^AM^^^AS^^^AZA^^A 1 1 111 1 1 11 111 11 11 7001: ZS^^ABCE^AC^^^ANOP^AH^^^AB^^^BBL^^BBH^^BBE^^BBZ^^BBZN^BBA1^BSAR^BSBR^BMLCACMLNACMLCWCMLCBCMLZSCWCP^D 7101: FRA^EFS^^EFA^^EFD^^EFM^^EFST^EORG^FDCW^HDCWGRDCWSIDCWFQDFA^KDFACLDIA^MDIACNEQU^PLISTJJOB^JEND^JCTL^J 7201: PST^JEQV^ZORGCG99999J^^^^^^^^^^^^^^0^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^13856138111380 11 11111 111 111 111 111 111 11 1 1 1 7301: 6^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1385E^^080S0239202789A1435102789S14 1 1 1 1 1 111 11 1 1 7401: 28002804S1428002774J01606^.^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 7501: S1347327287V10950272872A1405627287A1435127287J10950^99999^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 7701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^200006$$C0070000002000010 11 11 1 1 1 1 7801: 00124123640TITLENLISTLISTC0000300005000110000700010100004END^@'00000NI0'$^4301700?!A9R0!J42RUN3B^^^^ 1 1 1 1 1 1 1 1 1 1 11 1 1 1 11111 1 1 1111 1 11 1 1: RUN3B065070650006000J07936^J07936^ 1: J07000^J01613^J05442^/02375//////D02448024413J06500^1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1111111 1 1 501: D1976800049CD0239216539CS1976916539,1648710857D2368716409CD0279916404CS0278916404A2368716404D0277416 1 1 1 1 1 1 1 1 1 601: 131CD0278916141CD0280416136CA1977016136D1612100054CS1653900054,00'!0J07175^D1977500029CD1976800054CC 1 1 1 1 1 1 1 1 1 1 701: 0004919768J07372SA1977616519S1977800049D1624117018#C00'!119780J07281/D1624100'!1CD00'!6170593DDDDDDD 1 1 1 1 1 1 1 1 1111111 801: 1834617018#D00'J100059CD00'?017098CA1977800054D1978517135CJ15449^J07199^D1976800049CJ01501^12703D000 1 1 1 1 1 1 1 1 1 1 901: 2916486CD1624417135CB07444000'0*W07619000'0&D1624117018#D1979000054CC000'219793J07509/D1978517135CA1 1 1 1 1 1 1 1 1 1 1001: 977616519D000'000'!03A1977600029A1977600054B07587000'0'C1979800054J07509/J15449^J07444^C1615100054J0 1 1 1 1 1 1 1 1 1 1 1101: 7175SJ15449^J07175^B07723000'0,J14983^J07645^W0766400'?3&J07723^D1621500''6TD1980300'/1TB0771216215^ 1 1 1 1 1 1 1 1 1 1 1201: D1980800'/1TA1977800049A1977600029D2368717671/D1638917678CD1638916202CD1610600054CD000'000'!03A19776 1 1 1 1 1 1 1 1 1 1301: 00029A1977600054B07847000'0,B07847000'0'J07782^T16202191462G00074BD00!!016225CG00074AD00!!507902/J00 1 1 1 1 1 1 1 1 1 1 1401: 000^A1981023687A1977600029D00!!7176923J13131^D1623017686CD1623217676CA1977600029J13131^B08010000'0'A 1 1 1 1 1 1 1 1 1 1 1501: 1976900029D1623017691CD1623217678CD1981500044CD1982017674CD00!!6176813D1767116514CD16487176803D19776 1 1 1 1 1 1 1 1 1601: 17672CW0813023683&D1982117672CA1977623687T17678193632G00054BD00'!0176793C1851717672J08272/B082721851 1 1 1 1 1 1 1 1 1 1701: 6^D1845116202CA1845716202C1767116202J08272/A0004400034C0003900034J08416TJ15387^D1982608403CA19776185 1 1 1 1 1 1 1 1 1 1 1801: 20D1638918516CD1648118457CD1767118451CD1983100034CD1617600039CD17672185173D16487184463D16487184523J0 1 1 1 1 1 1 1 1 1 1901: 0000^A0004400034D17W79000!0CA1767418457D17679000?33D16488000!2CS1977600039D19776000392D16389176803B0 1 1 1 1 1 1 1 1 1 2001: 8857121190B0885702476^D1983208773CD1983208864CD1648600054CD1979000059CD1638917133LD1983708599CB08659 1 1 1 1 1 1 1 1 2101: 00'!0,B0877300'!0'D00'!000'?03A1977600059A1977600054J08594^D1984208599CD1984700059CJ08641^D198520005 1 1 1 1 1 1 1 1 1 2201: 9CA1977600054B0877300'!0'C0005916156J08864SD00'!000'?03A1977600059J08702^J08850^D1651417113CZ1852017 1 1 1 1 1 1 1 1 1 1 2301: 133D17679171023B0885017679^Z1767417106D17W7917/15CJ15449^J07175^J08930^D1651417113CZ1852017133D17679 1 1 1 1 1 1 1 1 1 1 2401: 171023D1985308773CD1985308864CJ15449^D1638917133CD1985200059CJ08743^B09225000'0'A1977600029D00029000 1 1 1 1 1 1 1 1 1 2501: 54CD1982116188CB0905700'!0,B0907500'!0'A1977600054J09015^A1977616188J09039^A1985423687B09109161880A1 1 1 1 1 1 1 1 1 1 1 2601: 985423687J13131^D1623017686CD1623217676CB09256000'0'A1977600029J13131^D1623017691CD1623217678CD19810 1 1 1 1 1 1 1 1 1 2701: 17674CD1982000044CJ08058^D1985617674CD1986100044CJ08058^D1986317674CD1986800044CJ08058^A1986923687A1 1 1 1 1 1 1 1 1 1 1 2801: 977600029D1987400044CD1987917674CD0939217690TJ13131^D1623017689TD1623217676TJ08058^M%T000000WA197702 1 1 1 1 1 1 1 1 1 2901: 3687A1977600029D00!!7176873J13131^D1623017686TD1623217676TD1988400044CD1986817674CJ08058^D0002900054 1 1 1 1 1 1 1 1 1 3001: CB0953100'!1'A1977600054J09501^D00'!000!!73J07904^A1977600029J13131^D19885163942D1623216393CD1623023 1 1 1 1 1 1 1 1 1 1 3101: 687CD19886236832B09714163931D19821236832J09714^A1977600029J13131^D1977500029CJ14983^J09691^?00'?5162 1 1 1 1 1 1 1 1 1 1 3201: 30D1623017671/D1638917681CD1989100044CD1638917672CD1638917679CD1767116514CJ08498^A1977600029J13131^D 1 1 1 1 1 1 1 1 1 1 3301: 1623027287/S1977627287J09714^D1647616509CA1977600029B10015000'0&B09996000'0-B10027000'0@B10667000'0# 1 1 1 1 1 1 1 1 3401: A1989223687J13131^D1623017685TD1623217676TD1989700044CD1990217674CD1767116514CA1989216514J08082^D199 1 1 1 1 1 1 1 1 1 1 3501: 03161882J10027^D19886161882D16487176803D1989100044CB10122000'1'C000'219905J10134SA1977600029A1977600 1 1 1 1 1 1 1 1 1 3601: 044D000'017W793J10051^D1618817W792D1990617W803D1989100044CD19776176723W1019423683&D19821176723D19891 1 1 1 1 1 1 1 1 1 3701: 00044CA1990700034C0003400039J10612TS1990700034D1845116202CA1845716202C1767116202J10612/B1030618516^J 1 1 1 1 1 1 1 1 1 1 3801: 10612^C1851717672J10612/B1049217W79'C0003400039J10557TC17W7916487J10406/D16487000!03A1977600034A1977 1 1 1 1 1 1 1 1 1 1 3901: 600044D17W79000!03D16488000!2CA1977600034A1977600044A1977617671A1977618457A1977623687J10324^S1977617 1 1 1 1 1 1 1 1 1 4001: 671S1650917671D16389176803D16389176793D1767116514CJ08498^J15387^D1991208403CJ08291^S1985400039A19776 1 1 1 1 1 1 1 1 1 1 4101: 00034J10354^J15387^D1991708403CJ08291^S1985400039A1977600034J10324^A1977600029J13131^D1623000044CA19 1 1 1 1 1 1 1 1 1 1 1 4201: 77600044J19468^NW79CD16487176803D1990617W803J10134^D0002900054CA1976900054B1080400'!1'A1977600054J10 1 1 1 1 1 1 1 1 1 1 4301: 774^D1086000'!3CS0002900054S1976900054D0005416509CJ09841^"@'D0239018586CJ11332^A1623017671S197761767 1 1 1 1 1 1 1 1 1 1 4401: 1D2368718539AA1623023687D1989218597CJ11045^D0239018586CJ11332^D2728717671/S1623027287V1936427287KD27 1 1 1 1 1 1 1 1 1 1 4501: 28716554AA1977616554D1655418539AD1991818597CD1859818517TD18597176793J09714^D0239218586CJ11332^A16230 1 1 1 1 1 1 1 1 1 4601: 17671S1977617671D2368718539AA1623023687D1989218597CD1859818517TJ15387^A1977618520D1853916202CA165391 1 1 1 1 1 1 1 1 1 4701: 6202D1620218539/J11045^D0239218586CJ11332^D2728717671/S1623027287V1936427287KD2728716554AA1977616554 1 1 1 1 1 1 1 1 1 4801: D1655418539AD1991818597CJ11152^G11439BA1977600029J15387^A1977618520J13131^D1623018592CD1858616181C@1 1 1 1 1 1 1 1 1 1 1 1 4901: 623016187D1618716230JD1991818598CJ00000^J15387^D1992308403CJ08291^D1977018517CD1986818457CA198682368 1 1 1 1 1 1 1 1 1 5001: 7D1992517674CD1648718458CD1985318459CA1977600034D1992618516CA1977600029D19926176793D16488000J3CB0971 1 1 1 1 1 1 1 1 1 5101: 4000'0'D000'0000!23A1977600029A1977600034J11596^J15387^D1993108403CJ08291^D19902184573D1993317674CA1 1 1 1 1 1 1 1 1 1 1 5201: 985423687D1993418517CJ11514^D0243417167CD0239716524CS1977616524D0238717324CD1653917334CD0239017332CD 1 1 1 1 1 1 1 1 1 5301: 0002916225CD1993900029CJ13131^D1622500029CD1623017181CS2728716524V11890165242A1941616524ND1652417186 1 1 1 1 1 1 1 11 5401: /D1721318517TD1994417666CD1994923687CD1647316493CD1995216491CZ1649117363D1995218520CJ15658^N16258J15 1 1 1 1 1 1 1 1 1 1 5501: 632^N17264B1203602476^J15632^N17397J15632^N16258D1638917671CD1624017018#D1690017018#J15449^J09714^D0 1 1 1 1 1 1 1 1 1 1 1 1 5601: 0!!712119CJ07175^11D1995708862CD1996207389CD1640423687/D0002916498CD1613600054CC00'!016246J12348SD00 1 1 1 1 1 1 1 1 1 1 5701: '!0184013DDDDDDG00059AD19906184023W1228700'?1&D16504183953D00'?5184003DDDDD16504184013D0005416503CD1 1111111 1 1 1 1 11111 1 1 5801: 996700029CJ07187^D1650300054CA1993400054J12180^D1997208862CJ19437^N687/D16389183953D1614100054CB1254 1 1 1 1 1 1 1 1 1 1 5901: 600'!0^D1997700059CD1624618402TD00'!000'?01W1248500'!0&A1977600054A1977600059J12432^D00'!0183952D199 1 1 1 1 1 1 1 1 1 6001: 0600'?1CJ12287^D1650300054CA1977600054J12396^D1649800029CD0002916486CS1989216486A1977600029J13131^D1 1 1 1 1 1 1 1 1 1 1 6101: 623018386CJ15387^D1631118517TD19907185173D1838918456TA1977618520J15387^D1998208862TD1638917671CJ0971 1 1 1 1 1 1 1 1 1 6201: 4^D1638917133CN2368716544?2728716549C1654916544J12833^A1977616519D1628917133CD1676317056CD1978517135 1 1 1 1 1 1 1 1 1 6301: CJ15449^D1624417135CD1627417053CD1700717065CS1977616544D1654417052AA1977627287D1625217065CJ15449^D16 1 1 1 1 1 1 1 1 1 1 6401: 27517053CD1688817098CC1651919987J12981SZ1651917086C1651919891J12981/D16389170983D1999215579CJ15449^D 1 1 1 1 1 1 1 1 1 1 6501: 19993170997M%T017084WR130123R13036"D1631918525TJ15387^J15658^N16258D1999801174CS1653902789S197760278 1 1 1 1 1 1 1 1 1 1 6601: 9S1977002804S1977002774J01648^G13602BD0005913613LD1647816232TB14043000'0)B13849000'0/D2000313619CD16 1 1 1 1 1 1 1 1 1 1 6701: 47816239TW13299000'0&D1610600054CD000'000'!03D00'!016237CA1977600029A1977600054W13614000'0&J13234^J1 1 1 1 1 1 1 1 1 1 6801: 4983^J13320^J13445^D1621500''6CD2000800'/1CB1338016215^B1339116209GD2001300'/1CA1977800049D164781623 1 1 1 1 1 1 1 1 1 6901: 2TB13585000'0,B13585000'0'A1977600029J13403^D00'?516237/W1350000'?2&W1351900'?1&D1647316239CJ13614^D 1 1 1 1 1 1 1 1 1 1 7001: 2001516239CJ13614^D1985616239CJ13614^B13585000'0,B13585000'0'D1639916230SA1990700029D1361300059TJ000 1 1 1 1 1 1 1 1 1 7101: 00^^^^^^^^^^^J00000^S1623716230S1623916232J13726^A1623716230A1623916232J13726^D1647316232CD162371618 1 1 1 1 1 1 1 1 1 1 7201: 1J@1623016187D1618716230JD19776162302B13819000'0-B13781000'0*B13800000'0&J13538^D2002013619TJ13831^D 1 1 1 1 1 1 1 1 1 1 7301: 2000313619TJ13831^D2002513619TA1977600029J13198^A1977600029D1985616232CD1638916215LD1612600054CD000' 1 1 1 1 1 1 1 1 1 7401: 000'!0CA1977600029A1977600054B13961000'0,B13961000'0'J13896^D1640416230CA1989216230D1613600054CC00'! 1 1 1 1 1 1 1 1 1 7501: 016215J13585SA1985416230A1993400054J13996^A1977600029D0002900054C?2002616471?2002616414B1439000'!0,B 1 1 1 1 1 1 1 1 1 1 7601: 1439000'!0'B1414200'!0EA1977600054J14088^A1977600054B1419600'!0&B1418400'!0-J14207^D20027164143A1977 1 1 1 1 1 1 1 1 1 7701: 600054D1611100059TB1434400'!0,B1434400'!0'C0005916116J14302SD00'!000'?01A1988600054A1988600059J14219 1 1 1 1 1 1 1 1 1 7801: ^D1624600''6CD2003200'/1CA1977800049J14571^S1977600059D1977600059SD1641400'?02?00'?016471D0002900054 1 1 1 1 1 1 1 1 1 7901: /B1443200'!0.A1977600054J14402^D0002900059/B1457100'?0EB1457100'?0,B1457100'?0'B1460100'?0.C00'?0198 1 1 1 1 1 1 1 1 1 8001: 21J14528TA1977600059J14444^S0005900054J14546ZA0005416471J14302ZJ14619^?2003416466D19886164642J14825^ 1 1 1 1 1 1 1 1 1 1 1 8101: A1977600054J14510^C1998716469J14302/?1647116466C1646620036J14678/D19886164662D19903164642B14714000'0 1 1 1 1 1 1 1 1 1 1 8201: -D19886164642D1612100054CS1653900054D19776000542B1479600'?0.W1482500'?0&D00'?000'!01A1977600054A1977 1 1 1 1 1 1 1 1 1 8301: 600059C0005416121J14749/D0278900054CS1977600054A0239200054C0005402794J14941SC00'!016466J14848/D16409 1 1 1 1 1 1 1 1 1 1 8401: 16230CS0278900054A0005416230D1985616232CB13585000'0,B13585000'0'A1977600029J14941^G15385BD1638916215 1 1 1 1 1 1 1 1 1 8501: LD1612600054TD000'000'!03A1977600029A1977600054D000'0150713B15109200420B15109B15109B15109B15109B1510 1 1 1 1 1 1 1 1 1 1 1 8601: 9J15014^D1998716181CD16209161881D19776161882A1618816181D1621216193JD19776161932A1619316181D162151619 1 1 1 1 1 1 1 1 1 8701: 3JA1619316181D19821161783@2004716187D1618700059JA1613100059D19832153433C00'?016215J15369SB1538099ZI4 1 1 1 1 1 1 1 1 1 8801: ^A1977800059C0277900059J15272TD1613100059CJ15380^D19853153433J15272^A1993415385J00000^G15447BB194171 1 1 1 1 1 1 1 1 1 1 1 8901: 8446^D0238218525CD19993185267J01564^18446J00000^G15525BA1977616493A1977617666Z1766617015C1649320049J 1 1 1 1 1 1 1 1 1 1 1 9001: 15527SJ15632^N17009J00000^J15658^N17009D1647316493CA1977616491Z1649117363J15632^N17264B1561202476^J1 1 1 1 1 1 1 1 1 1 1 1 1 9101: 5632^N17397J15632^N16258J15520^G15827BD1992615785CJ15677^G15827BD1988515785CD0002915833LD1582700029C 1 1 1 1 1 1 1 1 1 1 1 9201: D000'500029CD19993001T27D0002915784CV15773014112B15773000'01D19821000'0CJ01592^000000B15810000'01D16 1 1 1 1 1 1 1 1 11 1 9301: 389000'03D1583300029CJ00000^^^^^^G15887BD1653715868CD19993001T27M%20000'0WR15889"J00000^G15947BS2005 1 1 1 1 1 1 1 1 1 1 1 9401: 115947R159422R159491R159728R159724R15972-J00000^M%T016807WR15949".15942M%T016829WR15972".15972.G1605 1 1 1 1 1 1 1 1 1 1 1 1 11 9501: 3BS2005116053R160482R160551R160784R16078-.16078J00000^M%T016775WR16055".16048M%T016793WR16078".16078 1 1 1 1 1 1 1 1 1 1 1 1 1 9601: .161981641016415164651620923646161361614116216170191710018514162581845618513^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 9701: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 1 1 1 1 1 9801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^01A00&&00 111 11 1 9901: 800008050^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^0000000000^^^^^00000^^^^^^^^^ 1 1 1 1 1 1 1 1 1 1 10001: ^@^^^^^^^^^^0000039998M%4418446W%20^^^^^^^^^^^^00000IS^AN^UNDEFINED^STATEMENT^NUMBER^^IS^AN^UNDEFINE 11 1 1 1 1 1 1 1 1 1 1 1 10101: D^VARIABLE^^^^^^^^^^IMPROPERLY^EQUIVALENCED^OR^DEFINEDIS^A^MULTIDEFINED^STATEMENT^NUMBEREXPONENT^IS^ 1 1 1 10201: TOO^LARGE^^^^^^^^^^^^^***^OBJECT^PROGRAM^EXCEEDS^MACHINE^SIZEEND^OF^JOB"PRINTER^NOT^READY"PRINTER^ER 1 1 1 10301: ROR"OUTPUT^UNIT^NOT^READY"OUTPUT^ERROR"END^FORTRAN^COMPILATION^^^^^^^^^NO^^DIAGNOSTICSDIAGNOSTICS^^C 1 1 11 1 10401: OMPILED^BY^FORTRAN40K^,^1410-FO-950^^VERSION^01^LEVEL^09^LAST^OBJECT^LOCATIONS^PROGRAM^00000^COMMON^ 11 10501: 00000^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 10601: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"0101^^^^^^^^^^^TITLE^^^^^^^^^^00700^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 10701: ^^^^^^^^^^5^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^1^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 10801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^PAGE^^001^^^^^FORTRAN^COMPILATION^^^^^^^^"^^SEQN 1 10901: O^^LABEL^^^^^^OPCOD^^OPERAND^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^REL^^CT^^ADDRS^ 11001: ^INSTRUCTION^^^CARD^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 11101: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^"^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 1 11 11 11801: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^***^^^^^^^^DIAGNOSTIC^^^^^^^^^^^^EJ00000^^,LIT,^^^^^^^^^^ 1 111 1 11901: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 11 11 12001: ^^^^^^^^^^^^^^^^^^^^^"ED00201000004A0025300211S0021300258J00281VJ00201^0000000000^^^^^^09647EQV^^107 1 111 1 1 1 1 1 1 1 1 12101: 51DCWG^09829LIT^^1209900NLIST1209910LISTC1209911LIST^11729TITLE11649DCWF^11441DCWS^09781ORGC^09287MW 1 1 1 1 1 1 1 1 1 12201: CP^^08968.H^^^^08968NNOP^^09393GASAR^^09393GBSBR^^07904D2MLZS^07904DLMLCB^07904D/MLNA^07904DGMLCW^07 1 1 1 1 1 1 1 1 1 12301: 904DTMLCA^09393R"BA1^^08968CC^^^^09489BXBCE^^07904VKBZN^^09393JVBZ^^^09393JSBE^^^09393JUBH^^^09393JT 1 1 1 1 1 1 1 1 12401: BL^^^09393J^B^^^^08968!ZS^^^08968?ZA^^^08968%D^^^^08968@M^^^^08968SS^^^^08968AA^^^^09550ORG^^09647EQ 1 1 1 1 1 1 1 1 1 12501: U^^12120END^^09393#RFRA^^09393#AFA^^^09393#SFS^^^09393#MFM^^^09393#DFD^^^09393#LFST^^10861DIA^^10944 1 1 1 1 1 1 1 1 1 12601: DIAC^11076DFA^^11224DFAC^09829DCW^^?120000A120001B120010C120100D120101E120110F121000G121001H12101001 1 1 1 1 1 1 1 1 1 1 1 1 1 12701: 1000011100012110010311010041101015110110611100071110018111010!1000^^J1001^^J1010^^<0700^^)0701^^[071 1 1 1 1 1 1 1 1 1 1 1 1 1 1 12801: 0^^>0600^^@0601^^:0610^^^0500^^N0501^^P0510^^901^^^^G19410BA1941627287A1977627287D19776272872J00000^ 1 1 1 1 1 1 1 1 1 1 1 1 12901: 99999V15418014162J15442^N?2368716544D1640923687/J12372^ND1638917W79CG00054BD1638900'!1CJ10720^N^^^^^ 1 1 1 11 1 1 11 1 1 1 1 13201: ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^172142601700112LA*****17018***171021665616690110 1 111 11 1 1 1 1 1 1 1 1 1 13301: 00130001200840518457N08659086901702917036J5010000206000079000110001000008AA0000140000600005J@''31058 1 11 1 11 1 1 1 111 1 1 1 11 1 1 111 11 1 11 111 13401: 31063881146707S116750572360000100'07000011231807396183901251618396127030000015520"RUN1A1365016622165 1 11 1 11 1 11 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 13501: 88101367913621?!167249R0!,&-*'%0001B2617^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1 1 1 111 1 1 1 1 1 1 1: 99999^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 1: ( Unequal starting and ending record sizes: 1 != 0