Z@@@C(Z@@@C!Z@@@C1Z@@@OH
)@@G@@C5Z@@@[-Y@@@[>Y@@@[(Y@@@[!Y@@@[1Y@@@[5Y@@@C^0^QKCCK^QK%8K@@ G80@@[P;0^W"OI
)@@G@@N@K@@JC@K^WOC@)^WLM#!)@@G@0^WL[@0^WLC^K[@L/K@@+9R#@^WV @@^WV/KF@@]/K@@@@OJ
)@@G@@'^@@@@ C@^R+/K@L[D/K@@@@'^@@@@/K@L[H/K@@@@C^)[[K/K@@@@/K@@@@/K@@@@@@@@@@OK
)@@G@@C^)[[P/K@@@@A@K^XV^[@^XWN I@@[8L@[[WR^Y@@@&CY@@[CCI@@@;*@@@W;@@@@EG@@^X)OL
)@@G@@[@@[[=C/[)@@@@@@@@8L@@@@R@K^XVN[@^XWC^@[[P/KG@@]C/[)@@[^@^WQ/K@L]ARB@[[KOM
)@@G@@*4G@@@/KG@@@R;?@@[ @@@@JC8GK@@AB)[[K/K@L[M[@@^W/\@@2Z/S@@@@C9K[[N[ K[[O^^)^RQN8K@@MC@K^Q>C@@^Q&M#H)@@C!Z^T':9K@@[OT
)@@G@@/K@[# '^@@<#/K@@:1C9K[#F[ K[[EC9K@] [ K^R-'^@[[D/K@@:1/K@@@@C[K^X=[[K^WWOU
)@@G@@[[K^W&/K@L#F@@@@@@@@@@@@A#@^X$R\@[#KP;@@@^%8@@@A/K@[#>C@@^X$'^@@.VR7@[#KOV
)@@G@@'^@@.2AF@^X?R3@[#K'^@@.2AF@^X,RB@[#K'^@@.2A#@^X1R#@^X2'=@@@I/K@@"R')G^X$OW
)@@G@@RB@[#KO;@@@['=@@[@AB@[#:R#@^X$/K@@@@R#@^X3'=@@[[/KF@@[@@@@@@@@@@@@______OX
)@@G@@______C5I^X4C1I^X4C!I^X4C(I^X4C>I^X4C-I^X4C5I^X5C1I^X5C!I^X5C(I^X5C>I^X5OY
)@@G@@C-I^X5 4@[#\ 0@[#\ ?@[#\ *@[#\ =@[#\ )@[#\ 4@[#0 0@[#0 ?@[#0 *@[#0 =@[#0OZ
)@@G@@ )@[#0@@@@@@@@@@@@@@@@@@@@@@@@A@K[^HA@)[^IR@VK@@P8K@@[ ^[^%O(@@^!W/K@[^2PA
)@@G@@R#K@@[;*K@@[A#K@@];GK@[C9!@[#19(@[#\N80@@F @@@@G')G[#3:9@@@$')G[#_G8@@@[PB
)@@G@@8K0[^Y9!I^X4+[K[#0+[@[#\9(K[^F9!]^=^+[K[#0+[@[#\9.K[^F/K@[^,CDH^%O[ [^%OPC
)@@G@@G8K@@[G8)@@]?@K^!W/K@[^UR@K[^HR@)[^I/KF@@]/,0[#?@@@@@@/,0[]0@]@G-'@@@GY;PD
)@@G@@@[Q@@@@@][ B@@)^9&@@)^9Z@@)^9)@@)^9>@@)^9-@@)^9+@@)^9<@@)^9=@@)^9*@@)^9$PE
)@@G@@'^@[[NC/@@@[[@@GYH/,0[]0@]@G-'@@@GY.@[=@@@@@][ RR@KGYHC/[^!W'^K[[K@@L^!'PF
)@@G@@'^@[[NC/@@@[G@@GYH[@@GYH/K@[ DC/@@@[H@@GYH]@@GYH(@@GYH/K@[ 0/,0@_:@[@GY_PG
)@@G@@@[,@@@'^@[[NC/@__"G@@GYHR@KG-;[@@@[J/,0@_:@[@GZA@[4@@@N_)@@[C/[=?"'^K[[KPH
)@@G@@8N)[ *'^@[[NC/@@@;'O@@@[]@@@@[8N0[ =C/@@@[G@@^!W[@@^!W/,0[]0@]@G-'@@@GZCPI
)@@G@@@[.@@@@@][A>C[)^!W;[)@@<[[)@@[C/[^X2'^K[[K@@L^X3@@L^,R@@L^,S'^@[[NC/@@@[PJ
)@@G@@H@@^!W(@@@@G/K@[AXC/@__"G@@^!WC@)^!W;@)@@@@)^9-@@)^9+@@)^9<@@)^9=@@)^9*QC
)@@G@@@@)^9$'^@[[N @@GYQ @@GYR @@GYS @@GYT @@GYU @@GYV @@GYW @@GYX @@GYY @@GYZQD
)@@G@@ @@GY) @@GY- @@GY+ @@GY< @@GY= @@GY> @@GY& @@GY$ @@GY* @@GY( @@GY% @@GY:QE
)@@G@@ @@GY? @@GY! @@GY, @@GY\ @@GY0 @@GY1 @@GY2 @@GY3C_)@@[R@)G+]N#)G+[[#)GYIQF
)@@G@@C@@GYIT/@@#CG@@GYH[@@G+^(C]^6?/K@[G9C/@@]VCCM^6?"O@@@H;^@@@="C@^9&[@@GYXQG
)@@G@@C/)@]VC^2^6?"O)@@J;^)@@="C)^9$[@)GYYC.@@]VCDMAR="P@@@L; @@@="D@^9Z[[@GYQQH
)@@G@@C.)@]VC 2AR="P)@@N; )@@="D)^9)[[)GYRC"@@]VCEMB8W"Q@@@P;A@@@="E@^9>[]@GYZQI
)@@G@@C")@]VCA2B8W"Q)@@R;A)@@="E)^9-[])GYSC_@@]VCFMDTO"R@@@T;B@@@="F@^9+[#@GYTQJ
)@@G@@C/@@]VC^MDTO"O@@@H;^@@@="C@^9<[@@GYUC/)@]VCC2E'G"O)@@J;^)@@="C)^9=[@)GYVQK
)@@G@@C.@@]VC ME'G"P@@@L; @@@="D@^9*[[@GYW"[)GYZ"])@@M"#@@@Q"@@@@S"@)@@G"@)GYQQL
)@@G@@"@)GYY"@)GYX"[@@@I[[@GY4C@@GY)"@@GYQ[@@GY)C@)GY-"@)GYR[@)GY-C[)GY+"[)GYSQM
)@@G@@[[)GY+C])GY<"])GYT[])GY"]@GYV[]@GY>C[@GY("[@GYYQN
)@@G@@[[@GY(C@@GY*"@@GYX[@@GY*C@)GY$"@)GYZ[@)GY$C[)GY&"[)GYW[[)GY&R/0@@[N_K@@DQO
)@@G@@A@0GY5C/@@@[H@@GY5;K@@@[G/@__"]@@GY6T/@[)8H@@G+^C@)GY5;O)@@=W/)@@]G/0__"QP
)@@G@@T/0@@ME@0@@J]@@@@^C[^#P4;-J@@@;D@@@M[[#^4*O/0@@[8NK[F6/,0@_:@[@G-@@^;@@@QQ
)@@G@@@@KGYM@@KGYI@@KGYN@@K^4(R[@G-.N_K@@BC/^=4*'^K[[K8NK[GOC/@^4%'^K[[K@@)GY4QR
)@@G@@'^@[[NCC]^6?G@@GY0[@@GY0C^+^6?G@)GY2[@)GY2CD]AR=G[@GY%[[@GY%C +AR=G[)GY:QS
)@@G@@[[)GY:CE]B8WG]@GY1[]@GY1CA+B8WG])GY?[])GY?CF]DTOG#@GY![#@GY!C^]DTOG@@GY,QT
)@@G@@[@@GY,CC+E'GG@)GY\[@)GY\C ]E'GG[@GY3[[@GY3O/)@#CG_)@@[8N)[EDC@@GY7"@@GY(QU
)@@G@@[@@GY7C@)GY8"@)GY)[@)GY8C[@GY*"[@GY)"[@GY-"[@GY$"[@GY+"[@GY<"[@GY="[@GY>QV
)@@G@@"[@GY&"[@GY([[@GY9"[@GY'[[@GY'/,0@"T@[@G-"@@@G-C@ S@@@@@KGY0@@KGY%@@KGY:QW
)@@G@@@@KGY1@@KGY?@@KGY!@@KGY,@@KGY\@@KGY3@@KGY2@@)GY9'^@[[N(@@^!W/K@[H&R@0G+#QX
)@@G@@C^#^%N[@@GYI*@@GYI/K@[H2/,0@"'@[@G-K@ :@@@@@L^=]@@L^=#@@L^=]@@L^=#@@KGYMQY
)@@G@@@@KGYN@@)GY9'^@[[N/K@[I]C@@GYI;@@@@<[@@G+^/,0@"'@[@G-K@ 5@@@R[@G+^C/^^,RQZ
)@@G@@'^K[[K@@O^,S@@L^=]@@L^=#@@KGYM@@KGYN@@)GY9'^@[[NO/K@@]G_0@@[8N0[C//,0@_:RA
)@@G@@@[@G-V@A[@@@@@)GY7@@)GY8@@)GY''^@[[N/,0@"F@@@G-_/,0@"F@@@G+@@]D^@[A REWIRB
)@@G@@ND WAS ATTEMPTED ON A SYMBIONT DEVICE - IGNORED _@@S@@@@[^@G@EOF @]G^@IRC
)@@G@@AN ATTEMPT TO WRITE AN EOF-MARK ON CARDREADER OR PRINTER - IGNORED RD
)@@G@@J.3G3G3G3G3GK[)@@@@@@@@@@@@@@@NL[HPM@@[@@@)@)@@@K^*@@@@@@@@@@_F^@"READ ARE
)@@G@@FTER WRITE ATTEMPTED WITHOUT INTERVENING BACKSPACE OR REWIND@[^^[EINPUT RF
)@@G@@EXPONENT TOO LARGE@@@@@@^@@@@@@@@@@@C@@@@@@@@@@@@@@@C@K^*@@@@@@@@@KB2@@@RG
)@@G@@@@@@@@KE")@@@@@@@@KI$^@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@KV\:0)RH
)@@G@@@@@@@@KY;&?*@@@@@@K+>KF9@@@@@@L#:R<:1U1+@@L=2ZFD3KL$N,M '1>J<-:>D)M$+H-6RI
)@@G@@E_G=3LNC$4/$D-YUC=N(,RRQ!,899#OE5"X'<8ZU"@O:"5-8MO:II&PH==5(FESV96UT(3\2B=K@I?7N@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#C^]BRK
)@@G@@ERROR DETECTED WHILE CLOSING FILE OF UNIT @BRKPT RL
)@@G@@@@@@@@@)@@@@_____"@@@@@@@FREE @SYM ,,PR @@#^]J@@]^]R@@#^]TRM
)@@G@@*[F@@@@@ ^W"/K@@S4@@I^W"@@@@@@_@@@@@@[Q@@@@_A^PH@_F^O,@_G^O9@_F^O,@_C^P RN
)@@G@@@_#^PNEXECUTION TERMINATED BY AN ATTEMPT TO READ PAST AN END-OF-FILE. RO
)@@G@@EXECUTION TERMINATED BY AN ATTEMPT TO PASS END OF TAPE/DRUM OR FASTRAND RP
)@@G@@A NON INTEGRAL BLOCK WAS READ FROM MAGNETIC TAPEABNORMAL I/O CONDITION DRQ
)@@G@@ETECTED INAPPROPRIATE UNITTHE FOLLOWING RECORD IS ERRONEOUS OR DOES RR
)@@G@@NOT CORRESPOND TO FORMAT SPECIFICATIONS: I/O UNIT IS IN ERROR@_B^P(RS
)@@G@@UNRECOGNIZABLE CONTROL WORD ENCOUNTERED @_C^P1FORMATTED READ ATTEMPTEDRT
)@@G@@ ON NON-FORMATTED DATA @_C^P'NON-FORMATTED READ ATTEMPTED ON FORMATTED RU
)@@G@@DATA @[I^PQ@[^^P=@@@@@@@@@@@@TRACE$ @@Q^W"(1P6G13.5) @@[@VO@@[@J=RV
)@@G@@@@@@@@@@@@@@@@@@@@@@@@@@T F @@@@@@@@@@@@@@@@@@@@]^W"M@@@@@I@@@@@RW
)@@G@@)^@@@@)@)@@@@@[@@O@@[@@P@@ ^W"@@I^W"_@@@@@*@@@@@)@@@@@@UC^W$@@@@@@@@@@@@RX
)@@G@@@@[@=/@@[@J=@@@@@@@]E^Q(ERROR - TYPE IN FORMAT IS NOT THE SAME AS THE INRY
)@@G@@TERNAL TYPE.@@@@@@@UC^W$@@]^W$@@ ^W$@]D^Q'@]C^R#@]D^RFILLEGAL FORMAT CHARZ
)@@G@@RACTERS WERE ACCEPTED AS BLANKS. RECORDS EXCEEDING MAXIMUM LENGTH ARESA
)@@G@@ FAULTY. THE INTERPRETATION OF MEANINGLESS INPUT WAS ATTEMPTED.@@@@@@SB
)@@G@@ @@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NBMSG$SC
)@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@[B^R?@_A^R3@_D^R9@_B^S]@_A^SD@[F^SJ__E^SUINPUT SD
)@@G@@FILE $-$ HAS NOT BEEN ASSIGNED. NO PACKET SPACE AVAILABLE INITIALLY SE
)@@G@@THE NTRAN UNIT $-$ IS NOT AVAILABLE FOR STANDARD I/O. DRUM FILE ASSIGNEDSF
)@@G@@ TO SYMBIONT UNIT FAILURE TO ASSIGN FASTRAND FILE $-$BACKSPACE WASG
)@@G@@S ENCOUNTERED FOR THE UNASSIGNED FILE: $-$ - IGNORED. SEQUENTIAL I/O ATTSH
)@@G@@EMPTED ON UNIT DEFINED AS DIRECT ACCESS @ASG,T ,F///5@ASG,CP SI
)@@G@@@@@@@@@@@@@K@@@@@K@@@@@C@@@@@C@@@@@D@@@@@)@@@@@( SJ
)@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_C^T[SK
)@@G@@ABNORMAL CONDITION DETECTED IN BUFFER HANDLING @@[@@@@@@@@@_@_@@@@@E^S1SL
)@@G@@@@#^S=@@]^S$'^@@N<@@@@@@@@@@@@@@@@@@C8K@@@/@K^TUC8)@@@[C)^TLG@)@@HP;)@@[SM
)@@G@@[^)^TLC8K^]Z[CK^TKG8K@M]P;K@^[[^K^TKG8K@@[C@0^TD[^Z=TMCC)^TKC^K^TKG8)@@HSN
)@@G@@[@0^TDC@@^TJ[@@@"L!@)@@H/K@@59/K@@26@@[@@@@-@@@@@@@@@@@@@@@@@@@@@@@)@@@@SO
)@@G@@@=@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP
)@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ
)@@G@@@@[@@@@@@@@@@@@@@@ SEQUENCE N LINE N@@@@@@ ERROR TERMINATION IN SR
)@@G@@ ROUTINE CALLED AT SEQUENCE NUMBER OF SS
)@@G@@ROGRAMA COMPUTED GO TO THAT WAS OUT OF RANGE WAS DETECTED AT SEQUENCE NUST
)@@G@@MBER OF MAIN PROGRAM. ILLEGAL OP AT SPECIFIED RETURN FROM SU
)@@G@@ RETURN VARIABLE SPECIFIED IN OUT OF RANGE NEGATIVESV
)@@G@@FORTRAN V ERROR TERMINATION: ARGUMENT UNNORMALIZED OR OUTSIDE ALLOWABLESW
)@@G@@ RANGE CAUSING ARGUMENT OUTSIDE ALLOWABLE RANGE CAUSING OVERFLOW CAUSX
)@@G@@SED @]E^V<@]B^V!@]#^V4@]B^U%@]D^U1@]B^U1MAIN P@[E^U1@@[__"@]H^U;@]B^VFSY
)@@G@@@]C^VM@[D^U1 I/O RETN 0RETN K@] ^VY @@@@@@@@@@@[STOP @@@@@@SZ
)@@G@@@@G^WF@@@@@@ @@[@@@@@@@@@@@ ^W"@@[^W"______@@@@@@@@@@@@@@@@@@@@@@@@TA
)@@G@@ @@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB
)@@G@@@@ ^W"@@@@@@@@@@@@@@@@@@@@@@@@^XU^XU@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@[@@[TC
)@@G@@'^@[[K/K@L[N @@ ^W$@@@@@@#C@^X>@@@@@@#^@^X>ERROR MODE: TYPE=TD
)@@G@@ , CODE= , ERR.ADDRESS= @]D^X(CO@[#KJJE0CGJ>B:-MJR:-L;J/3G3HTE
)@@G@@J43G3HJR:-L;J>B:-MJZ:-L;@@@@@@JR:-L;(10F5.4) (2A6,67X) (1H1,//,T40,TF
)@@G@@019HACCOUNTS NOT BILLED,/) (T44,2A6,/) (2A6,1X,2A6)(3I2,6X,2A6,I4,5X,TG
)@@G@@9I5) (017H ACCOUNT NUMBER ,2A6,016H DUPLICATED FOR ,3J2,/)(1H1,T54,023TH
)@@G@@HSUBSTITUTE ACCOUNT LIST,/,T53,4(006H------),001H-) (1H0,T53,2A6,2X,2ATI
)@@G@@6) (1H1,/,T56,019HNEW YORK UNIVERSITY,//,T56,020HUHMC COMPUTER CENTERTJ
)@@G@@,//,T55,023HCATALOGUED FILE CHARGES,//,T96,014HUHMC ACCOUNT: ,2A6)(1H0,TTK
)@@G@@96,014HNYU ACCOUNT: ,2A6) (1H ,T94,030H-----------------------------TL
)@@G@@-,//T3,004HDATE,T13,009HNUMBER OF,T26,011HSECURE TAPE,T40,005HV-OPT,T49,TM
)@@G@@005HG-OPT,T59,002HF2,T68,002HF4,T77,003HF17,T86,003HF14,T95,003HF40,T103TN
)@@G@@,005HREMOV,T120,005HTOTAL,/,T15,005HFILES,T28,006HBLOCKS,2X,8(3X,006HTRATO
)@@G@@CKS),T119,007HCHARGES,/,T11,002HAT,T15,F4.3,T29,F4.3,2X,8(5X,F4.3),2X,00TP
)@@G@@7HPER DAY,/,006H -----,21(006H------),//) (1X,3J2,I11,4X,I10,I11,7I9,T11TQ
)@@G@@8,001H$,F8.2) (006H0TOTAL,I12,4X,I10,I11,7I9,T118,001H$,F8.2) (4A6,0TR
)@@G@@27HCATALOGUED FILE CHARGES FOR,T58,J2,001H/,I2,T70,F10.2) (1H1,////,T4TS
)@@G@@0,026HTOTAL FOR MONTH FROM REMOV,//,T50,001H$,F10.2,////,T40,027HTOTAL FTT
)@@G@@OR MONTH FROM SECURE,//T50,001H$,F10.2,////,T40,026HTOTAL FOR MONTH FROMTU
)@@G@@ ALL ,//T50,001H$,F10.2) @@@@@ @@Y@@Z@@]@@]@@[@@#@@@@@A TV
)@@G@@@@@@@@@@@@@@@@@@@@@@@@@@MAIN @#W@@@@@@@@[@I@[@@022173202316R#0@@NTW
)@@G@@-020 14 73 G.0@@=3 73 0 50 /]0^L> 0 23 0GB R]@^MFTX
)@@G@@022173202316U93-00R_S@@@ 2 0 0 /K@^LZNSWTC$ K@]@@A[ %[Z^TY
)@@G@@@@@@@@@@M@C@NRBLK$ K@]@@GN#;BEC@@@@@@@@N@CMNRWND$ K@#@@NN#"BECTZ
)@@G@@@@@@@@@@2@C>@@E^@@NWEF$ K@#@@UN^FBEC@@@@@@@]^@DR@@K^@ENBDCV$ UA
)@@G@@K@#@@-E!]EDB@@@@@@@[Q@FV@@<^@UNFTCH$ K@#@@*N#ZBEC@@@@@@@]2@G1@@G^@.UB
)@@G@@NFTV$ K@]@@,H *AO#@@@@@@@@N@JNOUT$ UG
)@@G@@ K@#@[%N#'BEC@@@@@@@CG@U7@@V^Q^NININ$ K@#@[1N#BLANK$UO
)@@G@@COMMONC@[@#C]K;#[D@@@^X4A C@[@#H]K;#[D@J(^X4SUB @@#@#OUP
)@@G@@]K'#[D@@@@@@@[A[#\)#B@@@NEWBIL @@^@@@]K5#[DB4*^!X@DV[^5)##@@@)#B@@@UQ
)@@G@@-005T 1 15 0 1*[@@@@*SDFF*@[@@@@$(1) @B@@@@ACMASK RES UR
)@@G@@ 2 . @B@@@@MASK0 + 0777777777777 . US
)@@G@@@B@@@@ + 0777777777777 . @B@@@@ACLD LA,S1 UT
)@@G@@ A4,CKACT,A2 . @B@@@@ LA,S2 A4,CKACT,A2 . UU
)@@G@@@B@@@@ LA,S3 A4,CKACT,A2 . @B@@@@ LA,S4 UV
)@@G@@ A4,CKACT,A2 . @B@@@@ LA,S5 A4,CKACT,A2 . UW
)@@G@@@B@@@@ LA,S6 A4,CKACT,A2 . @B@@@@ LA,S1 UX
)@@G@@ A4,CKACT+1,A2 . @A@@@@ LA,S2 A4,CKACT+1,A2 @A@@@@UY
)@@G@@ LA,S3 A4,CKACT+1,A2 @A@@@@ LA,S4 A4,CKACT+1UZ
)@@G@@,A2 @A@@@@ LA,S5 A4,CKACT+1,A2 @A@@@@ LA,S6 VA
)@@G@@ A4,CKACT+1,A2 @B@@@@ACST SZ,S1 ACMASK . @B@@@@VB
)@@G@@ SZ,S2 ACMASK . @ @@@@ SZ,S3 ACMAVC
)@@G@@SK @ @@@@ SZ,S4 ACMASK @ @@@@ SZ,S5 ACMAVD
)@@G@@SK @ @@@@ SZ,S6 ACMASK @ @@@@ SZ,S1 ACMAVE
)@@G@@SK+1 @ @@@@ SZ,S2 ACMASK+1 @ @@@@ SZ,S3 ACMAVF
)@@G@@SK+1 @ @@@@ SZ,S4 ACMASK+1 @ @@@@ SZ,S5 ACMAVG
)@@G@@SK+1 @ @@@@ SZ,S6 ACMASK+1 @B@@@@HOLDAC RES 2 VH
)@@G@@ . @^@@@@STORE RES 2 @B@@@@ AXR$ VI
)@@G@@ . @]@@@@NYUSUB* @ @@@@ S X1,SVJ
)@@G@@TORE @ @@@@ S X2,STORE+1@F@@@@ L X1,*VK
)@@G@@0,X11 . GET ACCT INDEX (I) @D@@@@ ANX,U X1,1VL
)@@G@@ . ADJUST IT @F@@@@ SZ NYUNO VM
)@@G@@ . ZERO OUT NYUNO(I) @G@@@@ TNZ MM VN
)@@G@@ . WERE ANY SUBSTITUTES GIVEN? @D@@@@ J RETN VO
)@@G@@ . NO, RETURN@C@@@@ L A1,X1 VP
)@@G@@. @E@@@@ LSSL A1,1 . DOUBLE THE INDEXVQ
)@@G@@@E@@@@ S A1,X2 . AND STORE IN X2 @E@@@@VR
)@@G@@ DSL A1,72 . ZERO OUT A1, A2 @]@@@@EACH VS
)@@G@@. @E@@@@ DL A4,MASK0 . GET ALL 7'S VT
)@@G@@@E@@@@ DS A4,ACMASK . STORE IN ACMASK @F@@@@VU
)@@G@@ LR,U R3,11 . SET UP FOR 12 CHARS @G@@@@VV
)@@G@@ SZ A0 . OK BOYS, FROM THE TOP! VW
)@@G@@@F@@@@PARACT EX ACLD,A0 . GET A CHAR OF CKACT,A2VX
)@@G@@@D@@@@ TNE,U A4,047 . IS IT A $ @H@@@@ VY
)@@G@@ EX ACST,A0 . YES, SZ IN THAT PART OF ACMASK VZ
)@@G@@@F@@@@ AA,U A0,1 . GET SET FOR NEXT CHAR WA
)@@G@@@D@@@@ JGD R3,PARACT . DO 12 @F@@@@ WB
)@@G@@ DL A4,CKACT,A2 . GET FULL CHECK-ACCT @G@@@@ WC
)@@G@@ AND A5,ACMASK+1 . MASK OUT TRANS ($) CHARS @C@@@@WD
)@@G@@ AND A4,ACMASK . @F@@@@ DS WE
)@@G@@ A5,HOLDAC . STORE RESULT IN HOLDAC@F@@@@ DL WF
)@@G@@ A4,ACCT,X2 . GET REAL FULL ACCT @G@@@@ AND WG
)@@G@@ A5,ACMASK+1 . AND DO THE SAME THING TO IT @C@@@@ ANWH
)@@G@@D A4,ACMASK . @G@@@@ DTE A5,HOLDAC WI
)@@G@@ . IS RESULT SAME AS HOLDAC? @F@@@@ J NEXTWJ
)@@G@@ . NO, TRY NEXT CKACT @F@@@@ L A4,CWK
)@@G@@KNO . YES, GET MATCHING CKNO@F@@@@ S A4,NWL
)@@G@@YUNO . AND STORE IN NYUNO(I) @F@@@@NEXT AA,U A1,1WM
)@@G@@ . GET SET FOR NEXT CKACT@C@@@@ AA,U A2,2WN
)@@G@@ . @E@@@@ TLE A1,MM WO
)@@G@@. FINISHED YET? @F@@@@ J EACH . NO, WP
)@@G@@CHECK NEXT CKACT @ @@@@RETN L X1,STORE @ @@@@ L WQ
)@@G@@ X2,STORE+1@ @@@@ J 2,X11 @[@@@@$(2) @A@@@@WR
)@@G@@A INFO 2 2 @E@@@@AX EQU 200 WS
)@@G@@ . MAX ACCOUNTS @F@@@@CKACT RES AX*2 WT
)@@G@@ . PARTIAL ACCOUNT ARRARY@F@@@@ACCT RES AX*2 WU
)@@G@@ . UHMC ACCOUNT ARRAY @G@@@@NO RES AX WV
)@@G@@ . LINK TO NYUACT FOR EACH ACCT@H@@@@MM RES 1 WW
)@@G@@ . NO. OF PARTIAL ACCOUNTS TO CHECK @ @@@@CKNO EQUF WX
)@@G@@ NO,A1,H1 @ @@@@NYUNO EQUF NO,X1,H2 @#@@@@ END WY
)@@G@@___ MM . WERE ANY SUBSTITUTES GIVEN? @D@@@@ WZ
)@@G@@MI1 MI0 DIRSEC REVT REVO REVG XA
)@@G@@POLTRAN GOTONE DIRECERR DOSORT QF900 REVV XB
)@@G@@DIRLNK ACMASK MFD$ PCT RPRL REVR XC
)@@G@@DATREF REVD SZOPT SZLOD SZBAK UNCHEK XD
)@@G@@MFD500 RTOT VTOT GTOT TOT INS1 XE
)@@G@@INS2 TMASK SPC INS3 POLINK POLISH XF
)@@G@@CHK000 @@[@@@@@@@@@GALI @@[@@@@@@@@4LNKRTN @@[@@@@@@@[>XG
)@@G@@CHK220 @@[@@@@@@@[%AAOPT @@[@@@@@@@[!FFOPT @@[@@@@@@@]#XH
)@@G@@XXOPT @@[@@@@@@@]FKKOPT @@[@@@@@@@]KGBU @@[@@@@@@@]XXI
)@@G@@SZCHK @@[@@@@@@@# UNOPT @@[@@@@@@@#MNSZOPT @@[@@@@@@@#OXJ
)@@G@@ J PR950 . AND GO BACK FOR MORE @[@@@@XK
)@@G@@. @E@@@@. ALL SNAPS DONE - SKIP A LINE BEFOR)@@[##@L#@L#@L#@[]@ #@L#XL
)@@G@@@K@@@@/KF@@[ @@@X,[@K@@#'=@@@@C@@@@@A#@@@#C@K@@#R#@@@@AA@@@@)@C[F#@K[@K^XM
)@@G@@G[[@@@@@@@@@/K@@@N>8@@@C @@@@J/K@@#K/K@@@I=8@@@^>8@@@]R#FK@]A]0@WTAB@@@@XN
)@@G@@)@L[N#@K@^G[^G[^@@;CK@@ /@K@@YC@K@X"A#@@@H;?@@@M;*@@@L;G@@@] @@@@HP;@@@CXO
)@@G@@[@@@@JAC@@@@)@V[M^G[^G[@@K@@@@/^@@@ZC@K@@G;GK@@AG8K@@0W8@@@E @@@@GC@)@@[XP
)@@G@@G@K@X"C8K@@]?8K@@#AD@@@@)@>[F#@K()C-@]) G[^C@=@@;CK@@YR#K@@G/C@@@5'=@@@@XQ
)@@G@@R;@@X;/^@@#X'=@@@@R;@@@#[@)@@CAE@@@@)@,[EK[#@K()C-@^)]@@@@@@/@@@@8R#FK@#XR
)@@G@@/G@@]/'=@@@@R;@@X;A#@@X;R;@@@C/K@@]/!8K@@R#@@@#AB@@@GO;@@@[/K@@]>AQ@@@@)]R[#@K)AK#1)G[#1)G[#1)G[@@@@@R;@@@[YF
)@@G@@@@@@@@@@@@WU@@@@W6@@@@WQ/K@@]>/,0@@@/K@@])AR@@@@)]Z[##@L#@[#@L@^[#@L#@K@YG
)@@G@@@@@@@@ @@@@I @@@@G/K@@]-$;@@@I/K@@]%*@G@W7R#@@@#A3@@@GAS@@@@)]$[F@ES]C[NYH
)@@G@@@K^G[^G[@@@@R#V@@]R]0@WTA#K@WS @G@@@R#W@@@O;@@W7/K@@]:O;@@W>/K@@[IAT@@@@YI
)@@G@@)]0[##@KK^C[=@/S#@KJA@0^@@@@@@@@@@WS@@@@@@@@@@WQ/K@@]>/,0@@@A#K@]6O;K@@WYJ
)@@G@@*@@@@JAU@@@@)]8[MK0^@@K@@@@@@@R;@@@[/K@@##:8@@@V;C@@@Y;*@@@GR#K@@G/KF@@^YK
)@@G@@R;@@@[R]0@WT@@@@@@AV@@@@)#][F@K0^^G[[@K[#@K@@@@@R]0@WT@@@@@@/,0@@@/K@@#[YL
)@@G@@!8@@@#A#@@@]O;@@@[R#@@@]/K@@#7AW@@@@)#F[N@[#@L@[@K0^@@;*@@@AR#@@X\/K@@#7YM
)@@G@@R;@@@DR#K@@G/K@@#7R#K@@NR;@@@]/K@@@@/K@@@SAX@@@@)#P[##@L#@L#@K()C-)C]@@@YN
)@@G@@@@@@@@/K@@#7 @@@@HR;@@@#A#@@X1R;@@X% @@@@G @@@@IA#@@X,AY@@@@)#X[F#@[@[@KYO
)@@G@@0^K^G[^G[@@@ @@@@G @@@@I/K@@@5(@@@X,/K@@#7R;@@@^R#K@@G/@K@#+-@@@@^AZ@@@@YP
)@@G@@)#&[F#@KK0^ES]CS]]A@)-)CA#)@X,O;)@@[R#)@X,/KF@@ A#@@X1R;@@X%[@@@X,;*@@@AYQ
)@@G@@C@@@X\BA@@@@)#\[F@K0^[#@L@[#@K@@@@@@R]0@WT @@@@HR;@@@ /K@@[GA#)@X,-8K@@_YR
)@@G@@O;K@[@R#K@X,/K@@[GBB@@@@)#8@M@)@@[A@)@@@@@,F/ ET--$$$$--DG @ASG,TYS
)@@G@@@@@@@@/ @FREE /KFK@@9*FK@[BC@@@@)@C[Y@)@@@@@@@@@@@ET--$$$$--DG@@@@@@YT
)@@G@@@@@@@@@@@@@@@@@@@@C@@@@@. /2000 BD@@@@)@N@Y@<1?C@])@@@@@)WQ@&@YU
)@@G@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@XM@@@@@@BE@@@@)X,[A@)@/S@JYV
)@@G@@A@#1)@/S@@@@@@@@@@@@@@@K@@@@XM@@@@X0@@@@X,@@@@@@@@@@@@@@@@@@@@@@@@BF@@@@YW
)@@G@@)X6[I@<1)@@/S@@@@@@@@@@@@@@@@@ET--$$$$--DG@@@@@H@@@@@Q5?65?6@@@@@@@@@@@@YX
)@@G@@@@@@X\BG@@@@)X_@I@<[EK#))@@@*()CO0^ES]@@@@@@@@@@@@@@@@C@@@@@@@[@@@@@[@@QYY
)@@G@@@W@@@Q@@^@@#@@Q@@@BH@@@@@@^@@ @@D@@C@@T@@D@@.@@@@@@@@ @@@@#'@@@@@@@@@@@@YZ
)@@G@@@@@@Y@R$ CSF$ MSCON$ FORK$ IOW$ DIR$ETZA
)@@G@@ DIRLNK DGET$BUF2 DIRSIZ @C@@@@@@@@@@DIREND @@[@@@ZB
)@@G@@@@@@@@DIRINT @@[@@@@@@@@CDIRSEC @@[@@@@@@@[FDIREC$FLAG @@^@@@ZC
)@@G@@@@@@@GGOTONE @@^@@@@@@@@IDIREC$ @@^@@@@@@@X2DGETP$FN$WD$@@^@@@ZD
)@@G@@@@@@X;PAKID$ @@^@@@@@@@X"SL A1,3 . SHIFT DIGIT ZE
)@@G@@INTO A1 @E@@@@ JGD A3,IN1758 . DO FOR ALL CZF
)@@G@@HARS @[@@@@. @H@@@@)@@[M@^C [@K) K)V@/K@@@@*0@@@@/K@@@F%8@@@#C@@@@@ZG
)@@G@@&]0@@FODE & PE & CROR TYMFD ERAA@@@@)@E[#][0(@Y-@M)CKCCKECKDCKE@@@(@@@@[ZH
)@@G@@/,0@@@C@@@@@/,0@@@C8@@@@/,0@@@C/@@@@/K@@@@AB@@@@)@M[F@K)RK)O^CA^CBOCB)@@ZI
)@@G@@;C@@@MR#@@@F'=@@@@R#@@@@/,0@@@C8K@@GC@@@@[/,0@@@/K@@@RAC@@@@)@V@%EKJ*K[CZJ
)@@G@@KKCKK)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@@/@@@@@^<0@@@P;@@@@&'0@@@AD@@@@ZK
)@@G@@@@^@@]@@A@@+@[E@@[@[I@@@@@@@@@@@@@@)CNT1 CNT2 FLAGS ZL
)@@G@@MRFLGS LINE2 FLAG3 FLAG4 FLAG5 OPTIONS ZM
)@@G@@EDIT$ EDITR$ ECHAR$ ECOL$ ESKIP$ ECLEAR$ ZN
)@@G@@EDPACK EMSG$ EOCTV$ EDECV$ EFD1$ ECODE ZO
)@@G@@EDITX$ ECOLN$ EMSGR$ EOCTF$ EDECF$ EDCFZ$ ZP
)@@G@@DOSORT MFD600 POUT PRINT$ LNKRTN CHK220 ZQ
)@@G@@MFD700 DIRECERR @@[@@@@@@@@^U A0,015 . GET S1ZR
)@@G@@)@@[E()@-@]-)@C]A@]@CS@@A7@@W R;@@@#/@@@@ERV@@OB/^K@]MR;@@@CR7K@@@'=@@@@ZS
)@@G@@R;@@@@AA@@@@)@D[F#@[]@D]@C^[]@D]@C@@A#J@@ R#@K@@R#0@@#/K@@]K!8@@O[;C@@@AZT
)@@G@@P#@K@@R#@K@[A7@@WAAB@@@@)@M[F]@C^G@@K)#^@@@@@@@@'^@@]T*4J@@#'=@@@@R;J@@@ZU
)@@G@@&;)@@#R#K@WBA#J@@^&;@@@VR#@@@]AC@@@@)@V[N]@CK^[]@D@K@@O;@@[@R#J@@ A#H)@@ZV
)@@G@@/K@@@$/K@@@W%@@@@B/C@@@+/@@@@WR#I)@@Q#)@@]AD@@@@)@>[EK[]@D@]&@]A@@@@@@@@ZW
)@@G@@R;@@@WA#@@@[P;@@@]R;H@@@/K@@@R?@@K@[R#J@@ /K@@@WA#J@@ AE@@@@)@,[E^G@^G@^ZX
)@@G@@C@=[#@[#@@@@R#FK@#A[@@W^^@)@W#/K@@]Z(@@K@@*@@@@[^@K@W]/KF@@ AFJ@@^AF@@@@ZY
)@@G@@)@7[N@@^@()@CS@@@@RV.@@A*S@@OBRV.@@CR;K@O]/K@@[>=8)@]@+8K@#_;CK@@SR#K@@GZZ
)@@G@@/@@@]OAG@@@@)[[[M@()@]@O0@@@@@R#O)@@&9@@@[Q9@@@]/K@@[>!80@@SR7"@@@O;)@O]AA
)@@G@@RR!@@@O#K@@IO#K@@JAH@@@@)[F[F#@@^G@[@K0@ES@@@@@@O;0@@[O;0@@]R#0@@[/K@@[RAB
)@@G@@\@)@@H+@@@W K8)@W@P;)@@[+@K@W AI@@@@)[O[MK^@@^[#@@@@@@+@@@WC/K@@[)1@J@@@AC
)@@G@@P#K@@IO;)@@[P;0@@[R;4@@@/K@@[E/K@@]O:84@@@AJ@@@@)[Y[MK@K[@ES@]A@@@R#)@@[AD
)@@G@@&9@@@[Q9@@@]/K@@[3A#@@@H/^K@]OW8@@@W @@@@G/GK@[LPBZ@@@AK@@@@)[*[EK0@^[#@AE
)@@G@@[#@[#@@@@@@@P;0@@[R;4@@@+@@@WCN@)@W#N@K@W]/K@@]O9@^)@@N@)@WAA#)@[[AL@@@@AF
)@@G@@)[1[E]&@]A@]^@KCK[@@@@@@A#J@@ R#0@@#O#@@@J;*0@@AO#0K@^R[@@W^P;0@@]A#K@@GAG
)@@G@@PBZ@@@AM@@@@)['[N]@C@K@@@@@@@@R;J@@@A#J@@^&;@@@WR#F@@]/K@@]C:@@@@I;C@@@AAH
)@@G@@;C)@@AP;)@@[R#)K@@AN@@@@)]^[N]@GK@K)]@@@@@N8K@@W&;@@@[R#F@@]&;K@@[O#K@@CAI
)@@G@@T8K@@W/KF@@ '^@@]T*4J@@#'=@@@@AO@@@@)]I[M@(@@@CS@@@@@@9*FK@[R[@@W^R#VK@#AJ
)@@G@@R;@@@B/KFK@@9*FK@[R;K@@@R;@@@A/KF@@ M#H)@@AP@@@@)]S[U[]@C@@@/KFK@@9*FK@[AK
)@@G@@ @@@@HR;@@@ /KFK@@9*FK@[R#X@@#R#K@@#R;@@@]/K@@@@/KFK@@AQ@@@@)@@@K/S@@@@@AL
)@@G@@)W]@8@])@@@@@@@___@@[@@][____@[_____@@@@@@@@@@@@@@@@@@@@@@@@@@@@O]AR@@@@AM
)@@G@@@@^@@]@@A@@^@@I@@#@@U@@@@@@@WD@@@@]8@@@)C4@@@B/K@@[F/,)@^^C8@@@@/K@@[]C8@@@@BI
)@@G@@/]@@[FAK@@@@)[B[##@@K^[]] ]]D]@L@@@@@@@@@@/]@@[:CU@@@@'=@@@@R#@@@@/K@@[[BJ
)@@G@@/,)@#:&')@@UR[@@@/AL@@@@)[J[](@Y-@MCKACS@CKCCS@CKC@@@@/,0@@@C8@@@+/,0@@@BK
)@@G@@C8@@@X/,0@@@C/@@@ /,0@@@C/@@@@AM@@@@)[R[EK)GK)PK)N^@(@%) G@@C8@@@@/K@@[)BL
)@@C@@C8@@@@/]@@[(H'@@@[/,0@@@C@@@@G/,0@@@C/@@@NAN@@@@ BM
@EOF
@COPY,IO TEMP.1015-006-023,1015-006-023.
@FREE TEMP.