@CAT,P 1042-001-001.,///10000 @ASG,T TEMP.,///10000 @ELT,OI TEMP.1042-001-001,,,130462053241,000 )@@G@@**PF**@@@]#\@@@@@@@@@@@[@F=@@@]FE@@@@@@@J@@]8@@@]F^@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G@@@]F^ "D@@B@@@@@@@@;@@@@W@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@,@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@U@@@@@@@@@@@@@@@@@@AG )@@G@@@@A@@@@@@@@@@@@@@@@@/@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@Q@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@&@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@J@@@@@@@@@@@>@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@C@@@@@@@@@@@*@@@@@@@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@2@@@@@@@@@@@@@@E@@/AN )@@G@@CPDCODE03B @@@@@@@@[@@@CPD @ @@@[[@@@[0@@@@W@G?LBVDCPDTEST AO )@@G@@@@@@@@@@[@@@CPD @ @@@[[@@@@-@@@@X0EG"C[DCPDAFCTEST @@@@@@@@[@@@AP )@@G@@CPD @ @@@[[@@@@A@@@@YLG4#C[DCPDCODE03C @@@@@@@@[@@@CPD AQ )@@G@@@ @[@][@@@[4@@@@YRF61E]DCOPYING @@@@@@@@[@@@CPD @ @@@[[@@@@-AR )@@G@@@@@@)FE'YAIDCPDWRITE @@@@@@@@[@@@CPD @ @[@][@@@@O@@@@)?F64E]DAS )@@G@@AFCROUTINE @@@@@@@@[@@@CPD @ @[@][@@@@K@@@@-@F65E]DCPD AT )@@G@@@@V@@+@@[@@PCPD @ @[@]]@@@CV@@@@-KB) ^QHCPDASCIITEST@@@@@@@@[@@@AU )@@G@@CPD @ @[@][@@@@^@@@@(:B51^QHCONVERSION @@@@@@@@[@@LCPD AV )@@G@@@ @[@]]@@@@3@@@@(\F6'E]DDRUM @@6@@@@@[@@MCPD @ @ @ ]@@@[KAW )@@G@@@@@@%+ID)^PHTPRD$ @@W@@@@@[@@NCPD @ @[@]]@@@@9@@@@:2F7;E]DAX )@@G@@SIGN @@-@@@@@[@@SCPD @ @A@ ]@@@[?@@@@?:BW^ AHPRT AY )@@G@@@@Y@@@@@[@@TCPD @ @Y@ ]@@@[@@@@@,RI]O^PHSCAN @@@@@8@@[@@OAZ )@@G@@CPD @ @@@[]@@@@<@@@@\RE\$ELCCPDPROCS @@@@@@@@]@@@CPD BA )@@G@@@[@@@[@@@@@T@@@@\'M#M^^HCONVERSION @@@@@@@@ @@@CPD @@@@0U@@[@@BBB )@@G@@@@@@0NB:T AHDRUM @@7@@@@@ @@@CPD @@@@0(@@#@@I@@@@0VB:Z AHBC )@@G@@TPRD$ @@X@@@@@ @@@CPD @@@@06@@[@@E@@@@0?B:& AHSCAN BD )@@G@@@@@@@@@@ @@@CPD @@@@0;@@[@@^@@@@07B?@ AHCPD @@!@@@@@A@@RBE )@@G@@CPD )@@]@@@@@@]Z@@@@0/B?C AHCPDMAP @@@@@@@@[@@@CPD BF )@@G@@@ @]@#A@@@@^@@@@3VCC*BHICPD @@?@@@@@ @@@CPD @@@@4+@@A@[#BG )@@G@@@@@@3ZDH,BIISIGN @@Z@@@@@ @@@CPD @@@@5^@@[@@W@@@@4*DI]BIIBH )@@G@@PRT @@)@@@@@ @@@CPD @@@@5P@@#@@K@@@@5 DH'BIICPDCODE03D BI )@@G@@@@@@@@@@[@@@CPD @ @^@ [@@@]K@@@@5SH8BBSICPD @@<@@@@@[@@@BJ )@@G@@3D @ @@@[]@@@C @@@@7*H;!BSITPRD$ @@(@@@@@[@@@03E BK )@@G@@@ @[@]]@@@@7@@@@_!H?<[LJTPRD$ @@%@@@@@ @@@03E @@@[@!@@[@@DBL )@@G@@@@@[@=H?6[LJPRT @@@@@@@@[@@@03E @ @[@]]@@@[@@@@[@,H2-[LJBM )@@G@@SIGN @@$@@@@@ @@@03E @@@[]E@@[@@W@@@[[,H6#[LJPRT BN )@@G@@@@@@@@@@ @@@03E @@@[]V@@#@@K@@@[]FH6K[LJSIGN @@=@@@@@[@@@BO )@@G@@03F @ @[@]]@@@[%@@@[]YCL5[MJCPDCODE03E @@@@@@@@[@@@ BP )@@G@@@ @A@ [@@@[P@@@[^CI^W[MJCPD @@:@@@@@[@@@03E @ @[@]]@@@CEBQ )@@G@@@@@[ XI )[MJSIGN @@\@@@@@[@@@03E @ @]@#]@@@[9@@@[H$CIU[NJBR )@@G@@SIGN03F @@@@@@@@[@@@ @ @@@[]@@@[8@@@[J)CJ0[NJDATA BS )@@G@@@@@@@@@@[@@@ @ @[@][@@@@D@@@[LSH4.[NJSIGN @@0@@@@@ @@@BT )@@G@@03F @@@[M @@[@@=@@@[L-IP0[NJCODE03F @@@@@@@@[@@@ BU )@@G@@@ @I@ [@@@@(@@@[MAB?N[OJTPRD$ @@@@@@@@[@@@03F @ @@@[]@@@@4BV )@@G@@@@@[M\B,6[OJTPRD$ @@@@@@@@ @@@03F @@@[N?@@[@@D@@@[N&@@@@%IN8K@@Q@@@]NM@@B@[M@@@]M@H* NKCPD @[]@@@)@A@@@CN )@@G@@ )@@]@@@@@@A-@@@]NTH*G NKCPD @@@@@@@@[@@@3H CO )@@G@@@ @E@ ]@@@E(@@@]T'H:# NKCPD @@@@@@@@ @@@3H @@@]>5@@B@[MCP )@@G@@@@@]=/H?N NKCQ )@@G@@CPD @@@@@@@@[@@@3H @ @A@ ]@@@E:@@@]*5G=* NKCPD CR )@@G@@@@@@@@@@ @@@3H @@@]42@@B@[M@@@]3)G>_ NKCPD @@@@@@@@A@@@CS )@@G@@ )@@]@@@@@@A-@@@]49G&) NKCPD @[I@@@)@[@@@3H CT )@@G@@@ @@@[]@@@E>@@@]X'DM%^MKCPD @[J@@@)@ @@@3H @@@](1@@B@[MCU )@@G@@@@@]*ZDM"^MKSIGN @[K@@@)@[@@@3H @ @@@[]@@@[%@@@](8DNC^MKCV )@@G@@SIGN @[L@@@)@ @@@3H @@@]:"@@[@@W@@@]:+DNQ^MKDRUM CW )@@G@@@[M@@@)@[@@@3H @ @@@[]@@@[Q@@@]:_DNU^MKDRUM @[N@@@)@ @@@CX )@@G@@3H @@@]!<@@#@@I@@@]!PDN+^MKCPD @[O@@@)@A@@@ CY )@@G@@)@@]@@@@@@]3@@@]!&DN?^MKCPDCODE3H @[P@@@)@[@@@ @ @0@ [@@@]#CZ )@@G@@@@@]0TDP+^MKCPD @[Q@@@)@[@@@3H @ @@@[]@@@E>@@@]2WDQD^MKDA )@@G@@CPD @[R@@@)@ @@@3H @@@]"N@@B@[M@@@].[DRI^MKSIGN DB )@@G@@@[S@@@)@[@@@3H @ @@@[]@@@[%@@@]"UDR=^MKSIGN @[T@@@)@ @@@DC )@@G@@3H @@@#@)@@[@@W@@@#@^DR4^MKDRUM @[U@@@)@[@@@3H DD )@@G@@@ @@@[]@@@[Q@@@#@-DR7^MKDRUM @[V@@@)@ @@@3H @@@#] @@#@@IDE )@@G@@@@@#[7DS ^MKCPD @[W@@@)@A@@@ )@@]@@@@@@A-@@@#]CDSV^MKDF )@@G@@CPDCODE3H @[X@@@)@[@@@ @ @1@ [@@@]#@@@#C(D+I^MKCPD DG )@@G@@@[Y@@@)@[@@@3H @ @@@[]@@@E&@@@#E?D+%^MKCPD @[Z@@@)@ @@@DH )@@G@@3H @@@#Q=@@B@[M@@@#PMD+1^MKSIGN @[)@@@)@[@@@3H DI )@@G@@@ @@@[]@@@[%@@@#Q:D+/^MKSIGN @[-@@@)@ @@@3H @@@#S1@@[@@WDJ )@@G@@@@@#SPD+"^MKDRUM @[+@@@)@[@@@3H @ @@@[]@@@[Q@@@#S2D<]^MKDK )@@G@@DRUM @[<@@@)@ @@@3H @@@#UQ@@#@@I@@@#UCD<#^MKCPD DL )@@G@@@[=@@@)@A@@@ )@@]@@@@@@A-@@@#UTD@@@#+.D*W^MKCPD @@@@@@@@ @@@3H @@@#,4@@B@[MDO )@@G@@@@@#!+D*2^MKSIGN @@@@@@@@[@@@3H @ @@@[]@@@[%@@@#,;D*8^MKDP )@@G@@SIGN @@@@@@@@ @@@3H @@@#1[@@[@@W@@@#0>D(#^MKDRUM DQ )@@G@@@@@@@@@@[@@@3H @ @@@[]@@@[Q@@@#1]D(A^MKDRUM @@@@@@@@ @@@DR )@@G@@3H @@@#2&@@#@@I@@@#2SD(G^MKCPD @@@@@@@@A@@@ DS )@@G@@)@@]@@@@@@]3@@@#2(D(O^MKLYN F 06DT )@@G@@ 05 77@@@@@@@@H@@H06REX KAREN D DU )@@G@@ 06 05 77@@@@@@@@H@@H06DOTSON EVELYN M DV )@@G@@ 06 05 77@@@@@@@@H@@H06GRISHABER KINTA M DW )@@G@@ 06 05 77@@@@@@@@H@@H06DYE SANDRA K DX )@@G@@ 06 05 77@@@@@@@@H@@H06MYERS MARSHA A DY )@@G@@ 07 31 77@@@@@@@@H@@H06MITCHELL PATRICIA L DZ )@@G@@ 07 31 77@@@@@@@@H@@H06LEWIS YOULONDA SEA )@@G@@ 07 31 77@@@@@@@@H@@H06LAYFIELD PEB )@@G@@ATSY MAE 07 31 77@@@@@@@@H@@H06LANGEC )@@G@@ DEANNA E 07 31 77@@@@@@@@H@@HED )@@G@@06KRAGNESS LINDA S 07 31 77@@@@@@EE )@@G@@@@H@@H06WILLIS REBECCA JEAN 07 31 77EF )@@G@@@@@@@@@@H@@H06ROBERTS PATRICIA L 07EG )@@G@@ 31 77@@@@@@@@H@@H06WENTZ JANET LEE EH )@@G@@ 07 31 77@@@@@@@@H@@H06ELDER DEBRA K EI )@@G@@ 08 28 77@@@@@@@@H@@H06DUCKWORTH KIMBERLY R EJ )@@G@@ 08 28 77@@@@@@@@H@@H06COPELAND LINDA F EK )@@G@@ 08 28 77@@@@@@@@H@@H06KNIGHT KIMBERLY SUE EL )@@G@@ 08 28 77@@@@@@@@H@@H06KING JOANN O EM )@@G@@ 08 28 77@@@@@@@@H@@H06HOUSEHOLDER KATHEN )@@G@@RYN E 08 28 77@@@@@@@@H@@H06GANDEE PATEO )@@G@@RICIA S 08 28 77@@@@@@@@H@@H06HARPEP )@@G@@ER CAROLYN SUE 08 28 77@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A;@@H@@H06EMIGH PATRICIA M ER )@@G@@ 08 28 77@@@@@@@@H@@H06GOFF SALLY J ES )@@G@@ 08 23 76@@@@@@@@H@@H06CURREY SHARON L ET )@@G@@ 08 23 76@@@@@@@@H@@H06MCCLEAD SHERRIE EU )@@G@@A 07 18 76@@@@@@@@H@@H06GARBER SANEV )@@G@@DRA J 08 23 76@@@@@@@@H@@H06DENTEW )@@G@@ LEAH R 09 20 76@@@@@@@@H@@HEX )@@G@@06KINNEY SHERLYN J 09 20 76@@@@@@EY )@@G@@@@H@@H06BELL PATSY ANNE 09 20 76EZ )@@G@@@@@@@@@@H@@H06ANTHONY ROBIN K 09FA )@@G@@ 20 76@@@@@@@@H@@H06WOLFE CAROL A FB )@@G@@ 08 23 76@@@@@@@@H@@H06OLLOM MARSHA K FC )@@G@@ 08 23 76@@@@@@@@H@@H06NULL JANICE S FD )@@G@@ 08 23 76@@@@@@@@H@@H06EVANS CHERYL ANN FE )@@G@@ 07 18 76@@@@@@@@H@@H06MCCLOUD SHEILA O FF )@@G@@ 07 18 76@@@@@@@@H@@H06FARLEY LYNDA J FG )@@G@@ 07 18 76@@@@@@@@H@@H06BURCHARD DEBRA NFH )@@G@@ 07 18 76@@@@@@@@H@@H06CAPLINGER FI )@@G@@KAREN R 07 18 76@@@@@@@@H@@H06SMITFJ )@@G@@H BARBARA C 06 28 76@@@@@@@@H@@HFK )@@G@@06PATTERSON SANDRA K 06 28 76@@@@@@FL )@@G@@@@H@@H06BARTH KIMBERLY J 06 28 76FM )@@G@@@@@@@@@@H@@H06PARSONS SANDRA L 06FN )@@G@@ 28 76@@@@@@@@H@@H06MOORE BONNIE KAY FO )@@G@@ 06 28 76@@@@@@@@H@@H06MERRILL LINDA L FP )@@G@@ 06 28 76@@@@@@@@H@@H06HOYT RITA A FQ )@@G@@ 06 28 76@@@@@@@@H@@H06HUNT TINA R FR )@@G@@ 06 28 76@@@@@@@@H@@H06CONAWAY MARY L FS )@@G@@ @@@@@@@@@=6@@^A@UYAS1AC3^@)^@)E(MDDIC*)CTPD-OE(MFT )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)E- E-MCD#FD#D-DD1 ^@)^@)^@)^@)^@)^@)^@)^@)^@)FU )@@G@@^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)FV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0FW )@@G@@&@0B@8&)7A@2&-]CDMD1 E-O^@)^@)^[EE(GDD[^@)^@)^@9A80AK1A80A)8$C4A*0&K0B@0FX )@@G@@&C9^@)^@)^@)^@)^@)D1[CTKDDG^@)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#FY )@@G@@E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)FZ )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)GA )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E-MDDHC(OD@!ETPD-ACC)^@)^@)GB )@@G@@^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GC )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GD )@@G@@@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&(]CDMD1 E-O^@)^@)^[EE(GDD[^@)^@)^@9A80AK1GE )@@G@@A80A)8$C4A*0&K0B@0&K0^@)^@)^@)^@)^@)D1[CTKDDG^@)^@)E9DD-GD9R^[#EL C(F^[CGF )@@G@@C([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1GG )@@G@@A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)GH )@@G@@^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E1[D1#D9HGI )@@G@@FD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GK )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@0&D]D9 D-O^@)^@)^@)^[HCDMGL )@@G@@E-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&@1A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DGM )@@G@@D-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,GN )@@G@@D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^GO )@@G@@D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)GP )@@G@@^@)^@)^@)C1DD1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@0&T]D9 GS )@@G@@D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&@2A)1A))^@)^@)^@)GT )@@G@@D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^GU )@@G@@FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)GV )@@G@@^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MGW )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)C(NCTCC(MDD#D[DCC)CTJD-D^@)^@)^@)^@)^@)^@)^@)GX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^@)^@)^@)^@)GY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0GZ )@@G@@&@0B@8&)7A@0&(]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0HA )@@G@@&@3A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#HB )@@G@@E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)HC )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)HD )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^@)^@1A@0 )0A@0^[#D9GD9IHE )@@G@@DD ES\D(G^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HF )@@G@@^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HG )@@G@@@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@0&1]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0HH )@@G@@AS0A02$C4A*0&C9AC0&@5A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CHI )@@G@@C([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1HJ )@@G@@A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)HK )@@G@@^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)C9MCDH^[IHL )@@G@@C(BCDODDQC*)ELJC),^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HN )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@0$[]D9 D-O^@)^@)^@)^[HCDMHO )@@G@@E-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&@6A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DHP )@@G@@D-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,HQ )@@G@@D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^HR )@@G@@D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)HS )@@G@@^@)^@)^@)^@)^@)^@1 )0A@0^[#D9GD9IDD ES\D(G^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@1&T]D9 HV )@@G@@D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&C0A)1A))^@)^@)^@)HW )@@G@@D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^HX )@@G@@FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)HY )@@G@@^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MHZ )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@) K% K% K)ES)B*)ETPET#C(KE-DCLGC*;^[D^@.^[DD1OIA )@@G@@C(MD( C-DCDOC*;^[M^@.^[MC(NDDNE-[D1O^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0IC )@@G@@&@0B@8&)7A@1&-]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0ID )@@G@@&C1A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#IE )@@G@@E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)IF )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)IG )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^[[CK)ETPET#C(KE-DCLDD-DIH )@@G@@E-T^@)^@)^@)^@)^@)ELND-O^S1^@)^@)ELND-O^S2^@)^@)ELND-O^S3^@)^@)ELND-O^S4II )@@G@@^@)^@)^@)D-[CK)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IJ )@@G@@@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@1&1]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0IK )@@G@@AS0A02$C4A*0&C9AC0&C2A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CIL )@@G@@C([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1IM )@@G@@A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)IN )@@G@@^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CDHD9SDD#IO )@@G@@DDGD-DD0\CT[^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IQ )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@1&9]D9 D-O^@)^@)^@)^[HCDMIR )@@G@@E-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&C3A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DIS )@@G@@D-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,IT )@@G@@D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^IU )@@G@@D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)IV )@@G@@^@)^@)^@)CDHE[DCTDD-GDDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)IW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)IX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@1$[]D9 IY )@@G@@D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&C4A)1A))^@)^@)^@)IZ )@@G@@D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^JA )@@G@@FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)JB )@@G@@^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MJC )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)CT[EL]C(IDD#DDGD-DD0)^@)^@)^@)^@)^@)^@)^@)^@)JD )@@G@@^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)JE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0JF )@@G@@&@0B@8&)7A@1$D]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0JG )@@G@@&C5A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#JH )@@G@@E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)JI )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)JJ )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CT C1OELDCDSD9IC*)^@)^@)^@)JK )@@G@@^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JL )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JM )@@G@@@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&[]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0JN )@@G@@AS0A02$C4A*0&C9AC0&C6A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CJO )@@G@@C([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1JP )@@G@@A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)JQ )@@G@@^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CT E[CCDGJR )@@G@@D9OD[DD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)JT )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&D]D9 D-O^@)^@)^@)^[HCDMJU )@@G@@E-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&C7A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DJV )@@G@@D-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,JW )@@G@@D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^JX )@@G@@D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)JY )@@G@@^@)^@)^@)CTDE[MD9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)JZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)KA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&L]D9 KB )@@G@@D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&C8A)1A))^@)^@)^@)KC )@@G@@D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^KD )@@G@@FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)KE )@@G@@^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MKF )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)C9 D1OCDHDD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KG )@@G@@^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)KH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0KI )@@G@@&@0B@8&)7A@2&T]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0KJ )@@G@@&C9A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#KK )@@G@@E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)KL )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)KM )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)D1DE-MD9AE(MCDIE-JDDI^@)^@)KN )@@G@@^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KO )@@G@@^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KP )@@G@@@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&-]D9 D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0KQ )@@G@@AS0A02$C4A*0&C9AC0&K0A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CKR )@@G@@C([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1KS )@@G@@A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)KT )@@G@@^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)D1JELAD-JKU )@@G@@F[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)KW )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&(]D9 D-O^@)^@)^@)^[HCDMKX )@@G@@E-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&K1A)1A))^@)^@)^@)D[[D-GD([D0)^@)E9DKY )@@G@@D-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^FC)CTGCDMFC)C),D8,KZ )@@G@@D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)^@)^@)^@)^@)^[HDD^LA )@@G@@D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)LB )@@G@@^@)^@)^@)D9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)LC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)^@)^@)^@)^@)^@)^@)LD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5B@1&C7BC0&@0B@8&)7A@2&1]D9 LE )@@G@@D-O^@)^@)^@)^[HCDME-CCC)^@)^@9A80AS0AS0A02$C4A*0&C9AC0&K2A)1A))^@)^@)^@)LF )@@G@@D[[D-GD([D0)^@)E9DD-GD9R^[#EL C(F^[CC([D-OD@)CT[EL ^[#E-M 0)CDOE-I^[EE(^LG )@@G@@FC)CTGCDMFC)C),D8,D0,^@)^@)^@)^@)AC1A01AC)ELJCLDD9PES)ELJCD^^@)^@)^@)^@)LH )@@G@@^@)^@)^@)^@)^[HDD^D-JE-CDD[D0)^@)^@)^[QCC2AS1AC3^@)^@)E(MDDIC*)CTPD-OE(MLI )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)E- E-MCD#FD#D-DD1 ^@)^@)^@)^@)^@)^@)^@)^@)^@)LJ )@@G@@^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[ME0)^@)LK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LL )@@G@@^@)^@)^@)^@)^@)^@)^[HDDGE-JD0)^@)^@)^@)^@)^[RE02@@@@@@@@@=7@@^A@UYAS7A@5LM )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)CT C1OELDCDSD9IC*)^@)LN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LO )@@G@@^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LP )@@G@@^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2&TCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9LQ )@@G@@A80AS2A@0A89&@2BC0&K0AC0&C9AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJLR )@@G@@D1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LS )@@G@@^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)LT )@@G@@^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)CT LU )@@G@@C1PELJF[DD( ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)LV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2&-CCDMELDES)^@)^@)LX )@@G@@^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K0AK2A*5A@2BC6BC)C9PCDIFLJD0)LY )@@G@@^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)LZ )@@G@@^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MA )@@G@@^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPMB )@@G@@D-OE(MC*)^@)^@)CT E[CCDGD9OD[DD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MC )@@G@@^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)MD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2ME )@@G@@&(CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K1AK2A*5A@2MF )@@G@@BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)MG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)MH )@@G@@^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))MI )@@G@@CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)CTDE[MD9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)MJ )@@G@@^@)^@)^[M^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HMK )@@G@@E0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0ML )@@G@@$@3A05&@0B@6&)9A@2&1CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0MM )@@G@@&K0AC0&K2AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CMN )@@G@@D9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0MO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5MP )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)CTGDDIC-[D(TCTDD0)^@)MQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MR )@@G@@^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MS )@@G@@^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2&9CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9MT )@@G@@A80AS2A@0A89&@2BC0&K0AC0&K3AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJMU )@@G@@D1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MV )@@G@@^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)MW )@@G@@^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)C(MMX )@@G@@FDOD[MD9HFD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)MY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)MZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2$[CCDMELDES)^@)^@)NA )@@G@@^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K4AK2A*5A@2BC6BC)C9PCDIFLJD0)NB )@@G@@^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NC )@@G@@^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ND )@@G@@^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPNE )@@G@@D-OE(MC*)^@)^@)C9 D1OCDHDD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)NF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)NG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@2NH )@@G@@$DCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K5AK2A*5A@2NI )@@G@@BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)NJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)NK )@@G@@^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))NL )@@G@@CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)D9SCD#DDGD-DD0)^@)^@)^@)^@)^@)^@)^@)^@)NM )@@G@@^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HNN )@@G@@E0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0NO )@@G@@$@3A05&@0B@6&)9A@3&[CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0NP )@@G@@&K0AC0&K6AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CNQ )@@G@@D9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0NR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5NS )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)E[ D1DCTDD-GDDI^@)^@)NT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NU )@@G@@^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NV )@@G@@^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@3&DCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9NW )@@G@@A80AS2A@0A89&@2BC0&K0AC0&K7AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJNX )@@G@@D1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)NY )@@G@@^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)NZ )@@G@@^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)E- OA )@@G@@E-MCD#FD#D-DD1 ^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)OB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@3&LCCDMELDES)^@)^@)OD )@@G@@^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K8AK2A*5A@2BC6BC)C9PCDIFLJD0)OE )@@G@@^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OF )@@G@@^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OG )@@G@@^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPOH )@@G@@D-OE(MC*)^@)^@)E-DCT[EL#DDGD-DD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)OI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)OJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@3OK )@@G@@&TCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AC0&K9AK2A*5A@2OL )@@G@@BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)OM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)ON )@@G@@^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))OO )@@G@@CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)E-JCLMCDHFD#DDI^@)^@)^@)^@)^@)^@)^@)^@)OP )@@G@@^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HOQ )@@G@@E0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0OR )@@G@@$@3A05&@0B@6&)9A@3&-CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0OS )@@G@@&K0AC0&S0AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[COT )@@G@@D9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0OU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5OV )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)E1[D1#D9HFD#DDI^@)^@)OW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OX )@@G@@^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)OY )@@G@@^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&DCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9OZ )@@G@@A80AS2A@0A89&@2BC0&K0AK0&@1AK2A*5A@2BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJPA )@@G@@D1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PB )@@G@@^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)PC )@@G@@^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)C1DPD )@@G@@D1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&TCCDMELDES)^@)^@)PG )@@G@@^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AK0&@2AK2A*5A@2BC6BC)C9PCDIFLJD0)PH )@@G@@^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PI )@@G@@^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PJ )@@G@@^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPPK )@@G@@D-OE(MC*)^@)^@)D(DF[ C))ETFDDI^[AD-JEL[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^@)^@)^@)^@)^@)^@)^@)^@)^@)PM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0PN )@@G@@&(CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AK0&@3AK2A*5A@2PO )@@G@@BC6BC)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)PP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)PQ )@@G@@^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))PR )@@G@@CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)^@)^@)^[NCT[D1O^[BELJE9OD@)^@)^@)^@)^@)PS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)PT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0PU )@@G@@$@3A05&@0B@6&)9A@0&DCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0PV )@@G@@&K0AS0&@1^@)^@)^@)^@)^@)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CPW )@@G@@D9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0PX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5PY )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)C1DD1[D))EL E[JELO^@)PZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QB )@@G@@^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&TCCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9QC )@@G@@A80AS2A@0A89&@2BC0&K0AS0&@2^@)^@)^@)^@)^@)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJQD )@@G@@D1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QE )@@G@@^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)QF )@@G@@^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)CD#QG )@@G@@DDIC(OD9]CD#E- EK)CDIDDOEL[E-PES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&(CCDMELDES)^@)^@)QJ )@@G@@^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AS0&@3^@)^@)^@)^@)^@)C9PCDIFLJD0)QK )@@G@@^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QL )@@G@@^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QM )@@G@@^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPQN )@@G@@D-OE(MC*)^@)^@)^@)^@)^[GDDBD[O^[BELJE9OD@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0QQ )@@G@@&1CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0&K0AS0&@4^@)^@)^@)QR )@@G@@^@)^@)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)QS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)QT )@@G@@^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))QU )@@G@@CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)QW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0QX )@@G@@$@3A05&@0B@6&)9A@0&9CCDMELDES)^@)^@)^[ECDHC(N^@)^@)^@9A80AS2A@0A89&@2BC0QY )@@G@@&K0AS0&@6^@)^@)^@)^@)^@)C9PCDIFLJD0)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CQZ )@@G@@D9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0RA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5RB )@@G@@^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)C(IE- ELJCTJCT#E(N^[NRC )@@G@@E[ CTDC(N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RD )@@G@@^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HDDGE-JD0)^@)^@)^@)^@)^[RE02RF )@@G@@@@@@@@@@@=8@@^A@UYAS4A02^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)RG )@@G@@^@)DDHDDKC(IC(H^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)RH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)RI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0&@0B@8&)7A@2&DNCTCD1 DD^RJ )@@G@@C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&C6AC0AC8AS)^@)^@)D-DD*)RK )@@G@@^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)RL )@@G@@DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)RM )@@G@@^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2AS4A02^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MRN )@@G@@D9PE-DD1 ^@)^@)^@)^@)D( FLGD9#DDGD-DD0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)RO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)RP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0&@0B@8RQ )@@G@@&)7A@2&LNCTCD1 DD^C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&C7AC0RR )@@G@@AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)RS )@@G@@CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)RT )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2AS4A02^@)^@)E(MDDIRU )@@G@@C*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E[DE[ EL[CTDD-GDDI^@)^@)^@)^@)^@)RV )@@G@@^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)RW )@@G@@^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=RX )@@G@@&)5A)3&C9A@0&@0B@8&)7A@2&TNCTCD1 DD^C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3RY )@@G@@&@2BC0&C3AC0&C8AC0AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)RZ )@@G@@^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^SA )@@G@@CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2SB )@@G@@AS4A02^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)E-DCT[EL#DDGD-DSC )@@G@@D0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SD )@@G@@^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SE )@@G@@^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0&@0B@8&)7A@2&-NCTCD1 DD^C(M^@)^[CCDMD- FC)SF )@@G@@^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&C9AC0AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[SG )@@G@@C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)SH )@@G@@^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#SI )@@G@@D@)^@)^@)^@)^[QCC2AS4A02^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)SJ )@@G@@^@)E-JCLMCDHFD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)SK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)SL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0$C9A81&S1A@0&DNCTCD1 DD^SM )@@G@@C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&@1AC0AC8AS)^@)^@)D-DD*)SN )@@G@@^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)SO )@@G@@DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)SP )@@G@@^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2AS4A02^@)^@)EL ETPD-O^@1^@)^@)^@)^@)SQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0$C9A81ST )@@G@@&S2A@0&(NCTCD1 DD^C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&@4AC0SU )@@G@@AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)SV )@@G@@CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)SW )@@G@@ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2AS4A02^@)^@)EL ETPSX )@@G@@D-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)SZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=TA )@@G@@&)5A)3&C9A@0$C9A81&S3A@0&(NCTCD1 DD^C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3TB )@@G@@&@2BC0&C3AC0&@5AC0AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)TC )@@G@@^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^TD )@@G@@CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2TE )@@G@@AS4A02^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TH )@@G@@^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0$C9A81&S4A@0&(NCTCD1 DD^C(M^@)^[CCDMD- FC)TI )@@G@@^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&@6AC0AC8AS)^@)^@)D-DD*)^@)^@)^@)D[ ELDE-[TJ )@@G@@C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)DLJD1 ES)^@)^@)^@)TK )@@G@@^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)^@)^@)^[QCC)CL CD#TL )@@G@@D@)^@)^@)^@)^[QCC2AS4A02^@)^@)EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9A@0$C9A81&S5A@0&(NCTCD1 DD^TP )@@G@@C(M^@)^[CCDMD- FC)^@)^@9A80AS2AK0B@3&@2BC0&C3AC0&@7AC0AC8AS)^@)^@)D-DD*)TQ )@@G@@^@)^@)^@)D[ ELDE-[C9 ^[CCDGD))^@)^@)^@)^@)^@)^@)^@)^@)CDOE)'^[BD-JELDCC)TR )@@G@@DLJD1 ES)^@)^@)^@)^@)^@)^@)A*5B@0^[^CDIDD D))ETHDDOD@)ELJCD^^@)^@)^@)^@)TS )@@G@@^@)^@)^[QCC)CL CD#D@)^@)^@)^@)^[QCC2AS4A02^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)TT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)TV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&C9AC5&@0B@6TW )@@G@@&@7A@0&DICDND@)^@)^@)^@)^[^D9MD9OD[T^@)^@9A80AS2A*0B@4&@2BC0&00A)0&@1AC0TX )@@G@@AS7A*)^@)^@)E[GCDICDN^@)^@)CL[FDNDD^C*)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)TY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC0A@4^[DD1^C(KC(IC- D1#C*)TZ )@@G@@CLGE1^^@)^@)^@)^@)^@)^@)^[QDDMC9DD1DCC)CL CD#D@)^[QCC2AS4A*5^@)^@)D9#CTPUA )@@G@@D-O^[]D-JD9^ ))ETOD9JD))^@)^@)^@)^@)^@)D1 C9[E-DE1 ^@)^@)^@)^@)^@)^@)^@)UB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=UD )@@G@@&)5A)3&C9AC5&@0B@6&@7A@0&DICDND@)^@)^@)^@)^[^D9MD9OD[T^@)^@9A80AS2A00B@5UE )@@G@@&@2BC0&*2AS0&@1AC0AS7A*)^@)^@)E[GCDICDN^@)^@)CL[FDNDD^C*)D[ CDGE-C^[#CDMUF )@@G@@C*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC0A@4^[DUG )@@G@@D1^C(KC(IC- D1#C*)CLGE1^^@)^@)^@)^@)^@)^@)^[QDDMC9DD1DCC)CL CD#D@)^[QCC2UH )@@G@@AS4A*5^@)^@)D9#CTPD-O^[]D-JD9^ ))ETOD9JD))^@)^@)^@)^@)^@)D1 C9[E-DE1 ^@)UI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UK )@@G@@^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8&)7A@0&DJC(#DT D))^@)^@)^[ME(OD@)^@)UL )@@G@@^@)^@9A80AS1A)0A83&85A80&@0AS0&@1AK2AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#UM )@@G@@FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UN )@@G@@^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9IUO )@@G@@^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)UP )@@G@@^@)C1DD1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8&)7A@0&TJC(#DT D))US )@@G@@^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83&85A80&@0AS0&@2AK2AK0AS5B@1B@)^@)^@)UT )@@G@@^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)UU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)UV )@@G@@^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MUW )@@G@@D9PE-DD1 ^@)^@)^@)^@)E[NC(PC-JD(JD1[ES)CD ELPC9DD1JET[^@)^@)^@)^@)^@)^@)UX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)UY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8UZ )@@G@@&)7A@0&(JC(#DT D))^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83&85A80&@0AS0&@3AK2VA )@@G@@AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)VB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PVC )@@G@@E-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIVD )@@G@@C*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^@)^@1A@0 )0A@0^[#D9GD9IDD ES\VE )@@G@@D(G^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VF )@@G@@^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=VG )@@G@@&)5A)3&*0B@0&@0B@8&)7A@1&LJC(#DT D))^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83VH )@@G@@&85A80&@0AS0&@8AK2AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMVI )@@G@@C*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JVJ )@@G@@ELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2VK )@@G@@AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@) K% K% K)ES)B*)VL )@@G@@ETPET#C(KE-DCLGC*;^[D^@.^[DD1OC(MD( C-DCDOC*;^[M^@.^[MC(NDDNE-[D1O^@)^@)VM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VN )@@G@@^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8&)7A@1&TJC(#DT D))^@)^@)^[ME(OD@)^@)VO )@@G@@^@)^@9A80AS1A)0A83&85A80&@0AS0&@9AK2AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#VP )@@G@@FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)VQ )@@G@@^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9IVR )@@G@@^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)VS )@@G@@^@)^@)^[[CK)ETPET#C(KE-DCLDD-DE-T^@)^@)^@)^@)^@)ELND-O^S1^@)^@)ELND-O^S2VT )@@G@@^@)^@)ELND-O^S3^@)^@)ELND-O^S4^@)^@)^@)D-[CK)^@)^@)^@)^@)^@)^@)^@)^@)^@)VU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8&)7A@1&(JC(#DT D))VV )@@G@@^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83&85A80&@0AS0&C0AK2AK0AS5B@1B@)^@)^@)VW )@@G@@^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)VX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)VY )@@G@@^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MVZ )@@G@@D9PE-DD1 ^@)^@)^@)^@)CDHDDFCD#DDI^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)WA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)WB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8WC )@@G@@&)7A@1&1JC(#DT D))^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83&85A80&@0AS0&C1AK2WD )@@G@@AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)WE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PWF )@@G@@E-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIWG )@@G@@C*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CDUE-MC(JD1[D*)^@)^@)^@)^@)^@)^@)WH )@@G@@^@)^@)^@)^@)^[M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WI )@@G@@^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=WJ )@@G@@&)5A)3&*0B@0&@0B@8&)7A@1&9JC(#DT D))^@)^@)^[ME(OD@)^@)^@)^@9A80AS1A)0A83WK )@@G@@&85A80&@0AS0&C2AK2AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#FC)D[ CDGE-C^[#CDMWL )@@G@@C*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC1AK)D1JWM )@@G@@ELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9I^@)^@)^@)^@)^[QCC2WN )@@G@@AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)CT C1OCDUDD^DDHWO )@@G@@C*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WP )@@G@@^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WQ )@@G@@^@)^@)^@)^@)@[Q@@=&)5A)3&*0B@0&@0B@8&)7A@1$[JC(#DT D))^@)^@)^[ME(OD@)^@)WR )@@G@@^@)^@9A80AS1A)0A83&85A80&@0AS0&C3AK2AK0AS5B@1B@)^@)^@)^@)^@)^@)EL C9 D1#WS )@@G@@FC)D[ CDGE-C^[#CDMC*)CT D1OC(M^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)WT )@@G@@^@)^@)^@)AC1AK)D1JELOD@)CTJD1NE-DE-PE-DD9I^[^ELDE1 ^@)^@)^@)^[BEL[C1OD9IWU )@@G@@^@)^@)^@)^@)^[QCC2AS6BC2^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)WV )@@G@@^@)CTDE[MD9AD-JF[[CTDD0)^@)^@)^@)^@)^@)^@)^@)^@)^[N^@)^@)^@)^@)^@)^@)^@)WW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HE0)^@)^@)^@)^@)^@)^@)^@)^@)^@)WX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[HDDGWY )@@G@@E-JD0)^@)^@)^@)^@)^[RE02@@@@@@@@@=9@@^A@UYAS8A@5^@)^@)E(MDDIC*)CTPD-OE(MWZ )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)C1DD1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)XA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0XC )@@G@@&@0B@8&)7A@0&TRELDC9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0XD )@@G@@&@2AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)XE )@@G@@^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^XF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)XG )@@G@@E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)FD CDNE))^[DETJD-[E- C),^@)XH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XI )@@G@@^@)^@,^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XJ )@@G@@@[Q@@=&)5A)0&88BC0&@0B@8&)7A@0&(RELDC9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1XK )@@G@@AK0A88$C4A*0&@0AC0&@3AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJXL )@@G@@D1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8XM )@@G@@A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)XN )@@G@@^[QCC2AS8A@5^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)^@)^@)^@)^@)^@)^@1XO )@@G@@A@0 )0A@0^[#D9GD9IDD ES\D(G^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XQ )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0&@0B@8&)7A@0&1RELDC9CE))^@)^@)^[#D[[XR )@@G@@ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0&@5AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[XS )@@G@@D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)XT )@@G@@^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OXU )@@G@@C(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)E(MDDIC*)CTPD-OE(MC*?^[MD9PE-DD1 ^@)XV )@@G@@^@)^@)^@)CT\H(!G(,I)'^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)XX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0&@0B@8&)7A@0$[RELDXY )@@G@@C9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0&@6AC0AK1A*)^@)^@)XZ )@@G@@CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),YA )@@G@@D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)YB )@@G@@^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)E(MDDIC*)CTPD-OE(MYC )@@G@@C*?^[MD9PE-DD1 ^@)^@)^@)^@)E- ETO^[KC(MC1JELHC(^^[[E))ETJE(OD[NDD^C*)EL YD )@@G@@C9DD9ICDG^[HC(^DD#CDG^[#C(IE- EK?^[KC(OC(MET]E(MC8?^[QCC,^@)^@)^@)^@)^@)YE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0YF )@@G@@&@8A@1&K0A@0&D[D-NCD]ELJD9F^@)^[[D-DCT ^@)^@)^@9A80AS1A*0A86&S3A@3$C9A*0YG )@@G@@&@1^@)^@)^@)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)YH )@@G@@^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^YI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)YJ )@@G@@EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YM )@@G@@@[Q@@=&)5A)0&88BC0&@8A@1&K1A@0&D[D-NCD]ELJD9F^@)^[[D-DCT ^@)^@)^@9A80AS1YN )@@G@@A*0A86&S3A@3$C9A*0&@2^@)^@)^@)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJYO )@@G@@D1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8YP )@@G@@A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)YQ )@@G@@^[QCC2AS8A@5^@)^@)EL ETPD-O^@2^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YT )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0&@8A@1&K2A@0&D[D-NCD]ELJD9F^@)^[[D-DYU )@@G@@CT ^@)^@)^@9A80AS1A*0A86&S3A@3$C9A*0&@3^@)^@)^@)^@)^@)CDPD-O^@)^@)^@)E9[YV )@@G@@D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)YW )@@G@@^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OYX )@@G@@C(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)YY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)YZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0&@8A@1&K3A@0&D[D-NZB )@@G@@CD]ELJD9F^@)^[[D-DCT ^@)^@)^@9A80AS1A*0A86&S3A@3$C9A*0&@4^@)^@)^@)^@)^@)ZC )@@G@@CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),ZD )@@G@@D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)ZE )@@G@@^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)EL ETPD-O^@4^@)^@)ZF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0ZI )@@G@@&@8A@1&K4A@0&D[D-NCD]ELJD9F^@)^[[D-DCT ^@)^@)^@9A80AS1A*0A86&S3A@3$C9A*0ZJ )@@G@@&@5^@)^@)^@)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)ZK )@@G@@^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^ZL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)ZM )@@G@@ 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZP )@@G@@@[Q@@=&)5A)0&88BC0&@8A01$@1A@0&D[D-NCD]ELJD9F^@)^[[D-DCT ^@)^@)^@9A80AS1ZQ )@@G@@A*0A86&S3A@3$C9A*0&@1^@)^@)^@)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJZR )@@G@@D1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8ZS )@@G@@A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)ZT )@@G@@^[QCC2AS8A@5^@)^@)CS,C-DC1A 1OD9SDDI^[[ ))C(DCC)^@)^@)^@)^@)^@)D0)C*)C8)ZU )@@G@@CC)E))DC)E0)C*) *)D1J^[#D-JETOELDC-DE(H^[^DDAC1DCTDD- ^[OD9SDDI^[[^[^C(OZV )@@G@@C(#E- C),^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ZW )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0$C9A81&S1A@0&DRELDC9CE))^@)^@)^[#D[[ZX )@@G@@ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0&@1AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[ZY )@@G@@D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)ZZ )@@G@@^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OAA )@@G@@C(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)EL ETPD-O^@1^@)^@)^@)^@)^@)^@)^@)^@)AB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0$C9A81&S2A@0&(RELDAE )@@G@@C9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0&@4AC0AK1A*)^@)^@)AF )@@G@@CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),AG )@@G@@D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)AH )@@G@@^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)EL ETPD-O^@2^@)^@)AI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0AL )@@G@@$C9A81&S3A@0$[RELDC9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0AM )@@G@@&@7AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)AN )@@G@@^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^AO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@)AP )@@G@@EL ETPD-O^@3^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AS )@@G@@@[Q@@=&)5A)0&88BC0$C9A81&S4A@0$[RELDC9CE))^@)^@)^[#D[[ELGDD ^@)^@9A80AS1AT )@@G@@AK0A88$C4A*0&@0AC0&@8AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[D-IE(O^[CDDGD))CTJAU )@@G@@D1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)^@)^@)^@)^@)^@)AK8AV )@@G@@A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OC(MET]E(MC8)^@)^@)AW )@@G@@^[QCC2AS8A@5^@)^@)EL ETPD-O^@4^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AZ )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0&88BC0$C9A81&S5A@0$[RELDC9CE))^@)^@)^[#D[[BA )@@G@@ELGDD ^@)^@9A80AS1AK0A88$C4A*0&@0AC0&@9AC0AK1A*)^@)^@)CDPD-O^@)^@)^@)E9[BB )@@G@@D-IE(O^[CDDGD))CTJD1QCDG^[#E-M^@)^@)^@)^@)CDOE-I^@)C),D8,D0,^@)^@)^@)^@)BC )@@G@@^@)^@)^@)^@)^@)AK8A8)ETJE(OD@)CLGE1^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KC(OBD )@@G@@C(MET]E(MC8)^@)^@)^[QCC2AS8A@5^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&DRC(NBH )@@G@@E))^@)^@)^@)^[#D-[EL D1#C*)^@9A80AS2A80B@6&@2BC2&@3AK0&@1^@)^@)^@)^@)^@)BI )@@G@@D([F[ FC)^@)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)BJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)BK )@@G@@^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOBL )@@G@@C(MDD[D))CTPD-OE(MC*)^@)^@)C1DD1[D))EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)BM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05BO )@@G@@&@0B@6&)9A@0&TRC(NE))^@)^@)^@)^[#D-[EL D1#C*)^@9A80AS2A80B@6&@2BC2&@3AK0BP )@@G@@&@2^@)^@)^@)^@)^@)D([F[ FC)^@)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)BQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)BR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)BS )@@G@@C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)D1J^[BELJE9OD@)CDAE- EK)A)8BT )@@G@@^[CD9PELN^[JC0)DDICTPCL[E-DD9I 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BV )@@G@@@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&DRC(NE))^@)^@)^@)^[#D-[EL D1#C*)^@9A80AS2BW )@@G@@A80B@6&@2BC2&@3AS0&@1^@)^@)^@)^@)^@)D([F[ FC)^@)^@)D([D1IDDIC8)CTJD1QCDGBX )@@G@@C(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[JBY )@@G@@^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)BZ )@@G@@^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MC*)^@)^@)C1DD1[D))CA )@@G@@EL E[JELO^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CC )@@G@@^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&TRC(NE))^@)^@)^@)^[#D-[CD )@@G@@EL D1#C*)^@9A80AS2A80B@6&@2BC2&@3AS0&@2^@)^@)^@)^@)^@)D([F[ FC)^@)^@)D([CE )@@G@@D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CF )@@G@@^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^[KD9MCG )@@G@@E-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOC(MDD[D))CTPD-OE(MCH )@@G@@C*)^@)^@)E[NC(PC-JD(JD1[ES)CD ELPC9DD1JET[^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[Q@@=&)5A)0$@3A05&@0B@6&)9A@0&(RC(NCK )@@G@@E))^@)^@)^@)^[#D-[EL D1#C*)^@9A80AS2A80B@6&@2BC2&@3AS0&@3^@)^@)^@)^@)^@)CL )@@G@@D([F[ FC)^@)^@)D([D1IDDIC8)CTJD1QCDGC(NCT D1O^[CD9HC*)^@)^@)^@)^@)^@)^@)CM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)E[J^[]D9S^@4AS0^@)^@)^@)^@)^@)^@)^@)^@)CN )@@G@@^@)^@)^@)^@)^[KD9ME-ND(JE(OD@)^@)^@)^[QCC2AS7A@5^@)^@)C9 D1 EL[D))CL[CTOCO )@@G@@C(MDD[D))CTPD-OE(MC*)^@)^@)^@)^@)^[HD9^C(MCDOC*)C9MD9RE-C^@)^@)^@)^@)^@)CP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A@)^@)^@)^@)^@)^@)CR )@@G@@^@)^@)^@)^@)^@)^@)^[]CDFC(M^@)^@)^@)^@)^@)^[RE02@@@@@@@@@ZI@@#Y@V-A80ALNCS )@@G@@BC9B@9AC4ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CT )@@G@@^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9A)9A81AS7A*0CLIES1A@5ET#*K1AK9CU )@@G@@A80A)0BDIA@0A83B@5ES0A@5AC9BDNA@0A*7A@2ES9BC8BC1A-N^@)^@)^@)^@)^@)^@)^@)CV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9CW )@@G@@A)9A81AS7A)0CLIES1A@5ET#*K1AK9A80A)0BDIA@0A*1BC9ES0A@5A80ALNBC9B@9AC4ES)CX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)CY )@@G@@A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9A)9A81AS8A*0CLIES1A@5ET#*K1AK9A80A)0BDIA@0CZ )@@G@@A*1BC9ES0A@5A80ALNBC9B@9AC4ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4B@3^@)^@)^@)^@)@@W@@@&K0BC9A)9A81AS8AS0DB )@@G@@CLIES1A@5ET#*K1AK9A80A)0BDIA@0AC8AC8ES0A@5A80ALNBC9B@9AC4ES)^@)^@)^@)^@)DC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)DD )@@G@@^@)^@)@@W@@@&K0BC9A)9A81AS8AC0CLIES1A@5ET#*K1AK9A80A)0BDIA@0A83B@5ES0A@5DE )@@G@@A80ALNBC9B@9AC4ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DF )@@G@@^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9CS7A02BC0B@0CTIES1A@3ET#DG )@@G@@*K1AK9A80A)0B[IA@0BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)@@W@@@DI )@@G@@&K0BC8CS6AK0AC8AK0CTMES1FL[ET#*K1AS9A80A)0A9IA@0BC1BC1ES)^@)^@)^@)^@)^@)DJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DK )@@G@@^@)^@)B@0^@)^@)^@)^@)^@)@@W@@@&K0BC9A@2AK0A@5B@0CLIES1F[DET#*K1AS9A80A)0DL )@@G@@BDIA@0A*0A@9ES2A*5A*0A(NA@5B@5A00ES0A)6BC3B[NAK3A*0A@2ES0A@5AK1A(N^@)^@)DM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC6^@)^@)^@)^@)^@)@@W@@@&K0BC9A@2AK0DN )@@G@@AK1BC0CLIES1A@5ET#*K1AS9A80A)0BDIA@0A*7A@2ES0AC0AS2ALNF@7AS9A02ES)^@)^@)DO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)DP )@@G@@^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0AC6BC0CTMES1A@5ET#*K1AS9A80A)0BDIA@5B@8A07DQ )@@G@@ES0A@5A@0BDNF@7AS9A*3ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DR )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A@9A00CTMES1DS )@@G@@A@5ET#*K1AS9A80A)0B[IA@5B@8A07ES0A@5A@0BDN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)DU )@@G@@@@W@@@&K0BC9AC0AK0AC9B@0CTMES1A@5ET#*K1AS9A80A)0BDIA@0A*1BC9ETSA83BC5A-NDV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DW )@@G@@^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0AS0B@0CTMES1A@5ET#*K1AS9DX )@@G@@A80A)0BDIA@1A@3AK2ETSA83BC5ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)DY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9DZ )@@G@@AC0AK0AK6A)0CTMES1A@5ET#*K1AS9A80A)0BDIAK9AK2A86ETSA83BC5A(N^@)^@)^@)^@)EA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EB )@@G@@A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A*8A)0CTMES1A@5ET#*K1AS9A80A)0BDIA@0EC )@@G@@AC8AC8ES0A@5A@1A9NA@2A86AK3ES0A@5A80ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ED )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4B@3^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A*8AK0EE )@@G@@CTMES1A@5ET#*K1AS9A80A)0BDIA@0A*0A@9ES0AK7A02ATN^@)^@)^@)^@)^@)^@)^@)^@)EF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A87BC2^@)^@)EG )@@G@@^@)^@)@@W@@@&K0BC9AC0AK0A*8A80CTMES1A@5ET#*K1AS9A80A)0BDIA@0A@5A@5ES0AK0EH )@@G@@AS2ADN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EI )@@G@@^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A*9A80CTMES1F[DET#EJ )@@G@@*K1AS9A80A)0BDIA@0A00AC5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@0^@)^@)^@)^@)^@)@@W@@@EL )@@G@@&K0BC9AC0AK0A00BC0CTMES1F[DET#*K1AS9A80A)0BDIAK2AS1A@7ES)^@)^@)^@)^@)^@)EM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EN )@@G@@^@)^@)BC6^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A01AK0CTMES1F[DET#*K1AS9A80A)0EO )@@G@@BDIA@0A)3AC7ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@0^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0EQ )@@G@@A01A)0CTMES1F[DET#*K1AS9A80A)0BDIA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)ER )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC3^@)ES )@@G@@^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A@2BC0CTMES1ET#ET#*K1AS9A80A)0B[IA@9A04A89ET )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A@5AK0CTMES1EV )@@G@@F[DET#*K1AS9A80A)0BDIA@0A*1BC9ES0A@5A80ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EW )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC3^@)^@)^@)^@)^@)EX )@@G@@@@W@@@&K0BC9AC0AK0A@1B@0CTMES1A@5ET#*K1AS9A80A)0B[IAS5B@7A@5ES)^@)^@)^@)EY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)EZ )@@G@@^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A@2AS0CTMES1A@5ET#*K1AS9FA )@@G@@A80A)0B[IAS5B@7A@5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9FC )@@G@@AC0AK0A@2A00CTMES1ET#ET#*K1AS9A80A)0BDIA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)FD )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FE )@@G@@BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A*1A80CTMES1A@5ET#*K1AS9A80A)0BDIA@0FF )@@G@@A*0A@9ETSA83BC5ATN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A*1B@0FH )@@G@@CTMES1A@5ET#*K1AS9A80A)0BDIA@0A*0A@9ETSA83BC5ATN^@)^@)^@)^@)^@)^@)^@)^@)FI )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)FJ )@@G@@^@)^@)@@W@@@&K0BC9AC0AK1A00A*0CTMES1ET#ET#*K1AS9A80A)0B[IA@2A86AK3ES0B@3FK )@@G@@B@2A-NAK5A*5A@5ES0A@5A@0BDNA@0A00A82ES0A@7A)1BDNA@0A*7A@2ES)^@)^@)^@)^@)FL )@@G@@^@)^@)^@)^@)^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A*2A@0CTMES1A@5ET#FM )@@G@@*K1AS9A80A)0BDIA@0A*0A@9ETSA83BC5ATN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@FO )@@G@@&K0BC9AC0AK0A01A00CTMES1ET#ET#*K1AS9A80A)0B[IAK2AS1A@7ES0BC6A)7BDN^@)^@)FP )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FQ )@@G@@^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A01A*0CTMES1F[DET#*K1AS9A80A)0FR )@@G@@BDIA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FS )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC3^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0FT )@@G@@A02A00CTMES1A@5ET#*K1AS9A80A)0BDIA@0AK1AS9ES0AK7A02ATN^@)^@)^@)^@)^@)^@)FU )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)FV )@@G@@^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A03AC0CTMES1A@5ET#*K1AS9A80A)0BDIA@1A@3AK2FW )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A03A@0CTMES1FY )@@G@@A@5ET#*K1AS9A80A)0BDIA@0A@6AK0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)FZ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)GA )@@G@@@@W@@@&K0BC9AC0AK0A04A@0CTMES1A@5ET#*K1AS9A80A)0BDIA@0A00A82ES)^@)^@)^@)GB )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GC )@@G@@^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK0A88A*0CTMES1F[DET#*K1AS9GD )@@G@@A80A)0B[IA@0AC4B@7ES0A@3AS6B[NA@0A*7A@2ETSA83BC5A9N^@)^@)^@)^@)^@)^@)^@)GE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@8^@)^@)^@)^@)^@)@@W@@@&K0BC9GF )@@G@@AC0AK1A05A80CTMES1D-]ET#*K1AS9A80A)0B[IA@9A04A89ES)^@)^@)^@)^@)^@)^@)^@)GG )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GH )@@G@@B@6BC1^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A07A80CTMES1A@5ET#*K1AS9A80A)0BDIA@0GI )@@G@@A*1BC9ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A07A)0GK )@@G@@CTMES1F[DET#*K1AS9A80A)0BDIA@5B@8A07ES0A@5A@0BDN^@)^@)^@)^@)^@)^@)^@)^@)GL )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@7^@)^@)^@)GM )@@G@@^@)^@)@@W@@@&K0BC9AC0AK1A08A*0CTMES1ET#ET#*K1AS9A80A)0BDIA@0A87A@8ES)^@)GN )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GO )@@G@@^@)^@)^@)^@)^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9AC0AK1A08A)0CTMES1ET#ET#GP )@@G@@*K1AS9A80A)0BDIA@0A82A00ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@GR )@@G@@&K0BC9BC0AK3AC0A00CTMES1ET#ET#*K1AS9A80A)0BDIA@0B@8A)7ETFA@8B@4A9NES0A@0GS )@@G@@A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GT )@@G@@^@)^@)BC1^@)^@)^@)^@)^@)@@W@@@&K0BC9BC0AK3A@7BC0CTMES1A@5ET#*K1AS9A80A)0GU )@@G@@BDIA@0B@8A)7ETFA@8B@4A9NES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)GV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9BC0AK3GW )@@G@@A@6A80CTMES1F[DET#*K1AS9A80A)0BDIAC8A@7A)5ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)GX )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC6^@)GY )@@G@@^@)^@)^@)^@)@@W@@@&K0BC9BC0AK3A@2AK0CTMES1F[DET#*K1AS9A80A)0B[IA@0B@3A)2GZ )@@G@@ETFA@8AS4ALNES0A@0A@1ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HA )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)B@0^@)^@)^@)^@)^@)@@W@@@&K0BC9CS7A02BC1A*0CTIES1HB )@@G@@F[DET#*K1AS9A80A)0A9IA@0BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HC )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)HD )@@G@@@@W@@@&K0BC8CS9BC0A*7A)0C9AES1C(]E-I*K1A@9A80A)0A9IA@0BC1BC1ES)^@)^@)^@)HE )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HF )@@G@@^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)@@W@@@&K0BC8CS9BC0A*9A80C9AES1A@3E-I*K1A@9HG )@@G@@A80A)0A-IA@0BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)@@W@@@&K0BC8HI )@@G@@CS9BC1AK3A*0C9AES1A@3E-I*K1A@9A80A)0A9IA@0BC1BC1ES)^@)^@)^@)^@)^@)^@)^@)HJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HK )@@G@@BC8^@)^@)^@)^@)^@)@@W@@@&K0BC8CS9BC1AK6A)0C9AES1A@3E-I*K1A@9A80A)0A9IA@0HL )@@G@@BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HM )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)@@W@@@&K0BC8CS9BC1AS9A00HN )@@G@@C9AES1A@3E-I*K1A@9A80A)0A9IA@0BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HO )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)HP )@@G@@^@)^@)@@W@@@&K0BC8CS9BC1AS5A)0C9AES1A@3E-I*K1A@9A80A)0A9IA@0BC1A@0ES)^@)HQ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HR )@@G@@^@)^@)^@)^@)^@)^@)BC8^@)^@)^@)^@)^@)@@W@@@&K0BC8CS9BC1AS7BC0C9AES1F[DE-IHS )@@G@@*K1A@9A80A)0A9IA@0BC1A@0ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HT )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@7^@)^@)^@)^@)^@)@@W@@@HU )@@G@@&K0BC9A@4A*0A@2AC0CLIES1A@3E-I*K1A@9A80A)0B[IAS5A)9AK8ES)^@)^@)^@)^@)^@)HV )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HW )@@G@@^@)^@)B@8^@)^@)^@)^@)^@)@@W@@@&K0BC9A@4A*0A@2AS0CLIES1A@5E-I*K1A@9A80A)0HX )@@G@@B[IA@0AC0AS2ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HY )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9A@4A*0HZ )@@G@@AC6BC0CLIES1F[DE-I*K1A@9A80A)0BDIA@5B@8A07ES0A@5A@0BDNA@0A@6AK0ES0A@4AK5IA )@@G@@BD^^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)B@0^@)IB )@@G@@^@)^@)^@)^@)@@W@@@&K0BC9A@4A*0A@5AS0CLIES1F[DE-I*K1A@9A80A)0BDIA@8AS8AK4IC )@@G@@ES)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)ID )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)B@0^@)^@)^@)^@)^@)@@W@@@&K0BC9A@4A*0A@3BC0CLIES1IE )@@G@@A@5E-I*K1A@9A80A)0B[IA@0A83B@5ES0A@0A00A-N^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IF )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)IG )@@G@@@@W@@@&K0BC9A@4A*0AC7A@0CLIES1A@5E-I*K1A@9A80A)0BDIA@0AC4A*3ES0A@0B@1A[NIH )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)II )@@G@@^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)@@W@@@&K0BC9A@4A*0AK1A@0CLIES1A@5E-I*K1A@9IJ )@@G@@A80A)0BDIA@0A*0A@9ETSAC4AC0ALN^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)IK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)A*4^@)^@)^@)^@)^@)^@)^@)^@)^@)IL )@@G@@(C@@[[AS9B@1A06B@0^@)^@)DDIC))^@)^[NCT]AC3^@)^[NCTC^@)@C@[[[AK9A@8A04A)3IM )@@G@@^@)^@)D9]C8)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A)6AC3AC5^@)^@)DDIC))^@)^[KIN )@@G@@CD]AC4^@)^[KCDM^@)@C@[[[AK9A@8A04A83^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)IO )@@G@@@C@[[[AS4AC0A83AS5^@)^@)DDIC))^@)^[JD[]AC8^@)^[JD[H^@)@C@[[[AS7A@9AC8AK3IP )@@G@@^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@8A05A03^@)^@)DDH^@)^@)^[IIQ )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[AK9A@8A05BC3^@)^@)C1K^@)^@)^[IDL]AC5^@)^[IDLM^@)IR )@@G@@@C@[[[AS7AK0AK1BC5^@)^@)C1K^@)^@)^[KCD]AC6^@)^[KCDR^@)@C@[[[AC9A)3A89A)0IS )@@G@@^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[AS7A@9AC8A*3^@)^@)C- C0)^@)^[IIT )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AK9A@8A06AK3^@)^@)E[PC))^@)^[IDL]AC4^@)^[IDLK^@)IU )@@G@@@C@[[[AS7AK0AK2AK5^@)^@)D9]C8)^@)^[KCD]AC6^@)^[KCDR^@)@C@[[[AK9A@8A06A*3IV )@@G@@^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AS7A@9AC8BC3^@)^@)C1K^@)^@)^[IIW )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AK9A@8A07A@3^@)^@)D1C^@)^@)^[IDL]AC4^@)^[IDLK^@)IX )@@G@@@C@[[[AS7A@9AC9AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@9A)1A07A00IY )@@G@@^@)^@)DDIC))^@)^[AD-]AC0^@)^[AD-E^@)@A@[[[AC4A@0A@4AK6^@)^@)D[GCC)^@)^@)IZ )@@G@@^@)A@0@C@[[[AS7A@9AC9AS3^@)^@)DDH^@)^@)^[IDL]AC1^@)^[IDL#^@)@A@[[[AC4A@0JA )@@G@@A@4A)6^@)^@)D[GCC)^@)^@)^@)A@0@C@[[[AS7A@9AC9BC3^@)^@)D[ ^@)^@)^[IDL]AC1JB )@@G@@^@)^[IDL#^@)@C@[[[AS7A@9AK0AS3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[JC )@@G@@AS7A@9AK0B@3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK1AK3^@)^@)JD )@@G@@C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@]@[[[AS7A@9AK2A)3(A@@[[^@)^@)C1K^@)^@)^[IJE )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK3A@3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)JF )@@G@@@C@[[[AS7A@9AK3AS3^@)^@)E(M^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS4AC8BC3B@5JG )@@G@@^@)^@)D(NCS)^@)^[JD[]AC3^@)^[JD[^^@)@C@[[[AS7A@9AK3A)3^@)^@)E(M^@)^@)^[IJH )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS4AC8BC3BC5^@)^@)D(NCS)^@)^[JD[]AC3^@)^[JD[^^@)JI )@@G@@@C@[[[AS7A@9AK3A*3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK4A@3JJ )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK5A)3^@)^@)DDH^@)^@)^[IJK )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK5A*3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)JL )@@G@@@C@[[[AS7A@9AK5B@3^@)^@)DDH^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK6AK3JM )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS4AC8BC6A85^@)^@)DDIC))^@)^[JJN )@@G@@D[]AC3^@)^[JD[^^@)@C@[[[AK3A00A@4A)0^@)^@)E1 E))^@)^[HET]AC0^@)^[HET#^@)JO )@@G@@@C@[[[AS7A@9AK6A83^@)^@)C1K^@)^@)^[KCD]AC4^@)^[KCDM^@)@C@[[[AS7A@9AK7AC3JP )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK7A03^@)^@)C1K^@)^@)^[IJQ )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[A@4A03A88AK0^@)^@)DDIC))^@)^[#CD]A89^@)^[#CDI^@)JR )@@G@@@C@[[[AS7A@9AK8A@3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AK8A83JS )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC7AC2AK0BC5^@)^@)D(NCS)^@)^[GJT )@@G@@CD]AC5^@)^[GCDI^@)@C@[[[AS7A@9AK8B@3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)JU )@@G@@@C@[[[AS7A@9AK9AK3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9AC0A82A@5JV )@@G@@^@)^@)D(NCS)^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[AS7A@9AS0A03^@)^@)C- C0)^@)^[IJW )@@G@@DL]AC1^@)^[IDL#^@)@@@[[[(C@@[[AK9AC0AS4BC0^@)^@)DDH^@)^@)^[IDL]AC3^@)^[IJX )@@G@@DLI^@)@C@[[[AS7A@9AS1AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9AC0JY )@@G@@AS5A)0^@)^@)DDH^@)^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[AS7A@9AS1A83^@)^@)E(M^@)JZ )@@G@@^@)^[KCD]AC4^@)^[KCDM^@)@C@[[[AS7A@9AS3AK3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IKA )@@G@@DL#^@)@C@[[[A@9A)1B@1A80^@)^@)DDIC))^@)^[AD-]AC0^@)^[AD-E^@)@C@[[[AK9AC0KB )@@G@@AS7A*0^@)^@)CT^^@)^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[A@3A01A@2B@0^@)^@)C1K^@)KC )@@G@@^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[A@8AC7AS9A85^@)^@)DDIC))^@)^[QCD]AC1^@)^[QKD )@@G@@CD[^@)@C@[[[AS4AC0B@7AK5^@)^@)CTCDC)^@)^[JD[]AC3^@)^[JD[^^@)@C@[[[AS4AC0KE )@@G@@B@7A*5^@)^@)C1K^@)^@)^[JD[]AC3^@)^[JD[^^@)@C@[[[AK9A@8A89A83^@)^@)D0)^@)KF )@@G@@^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[A)5B@8BC5A80^@)^@)DDIC))^@)^[QCD]AC7^@)^[QKG )@@G@@CDM^@)@C@[[[AS7A@9AS5A03^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A)7A01KH )@@G@@A@0AS0^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[AS7A@9AS6A@3^@)^@)C- C0)KI )@@G@@^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@9A)1B@4A*0^@)^@)DDIC))^@)^[AD-]AC0^@)^[AKJ )@@G@@D-E^@)@C@[[[AS7A@9AS6AK3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@8KK )@@G@@B@2AC3^@)^@)D1C^@)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AK9A@8B@3AS3^@)^@)D1C^@)KL )@@G@@^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AK9A@8B@5AK3^@)^@)DDH^@)^@)^[IDL]AC4^@)^[IKM )@@G@@DLK^@)@C@[[[AS4AS4AK7A@5^@)^@)DDIC))^@)^[JD[]AC2^@)^[JD[#^@)@C@[[[AK9A@8KN )@@G@@B@6A*3^@)^@)D9]C8)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[A)5A00A*0A*5^@)^@)D9H^@)KO )@@G@@^@)^[QCD]AC6^@)^[QCDJ^@)@B@[[[AK9A@8B@7AS3^@)^@)DDH^@)^@)^[IDL]AC4^@)^[IKP )@@G@@([@@[[DLK^@)@C@[[[AK3AS0AC0AK5^@)^@)D[HE))^@)^[HET]AC4^@)^[HETN^@)@C@[[[KQ )@@G@@AK9A@8B@8A)3^@)^@)C- C0)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AC4A03AC5AK5^@)^@)KR )@@G@@DDIC))^@)^[DCD]AC1^@)^[DCDH^@)@C@[[[A)5A00A*3AS5^@)^@)D[G^@)^@)^[QCD]AC6KS )@@G@@^@)^[QCDJ^@)@C@[[[AS7A@9AS7AS3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[KT )@@G@@AC6B@5A)2AC5^@)^@)DDIC))^@)^[DD1]AC1^@)^[DD1 ^@)@C@[[[AS7A@9AS7A03^@)^@)KU )@@G@@D9]C8)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC6B@5A)2A)5^@)^@)DDIC))^@)^[DD1]AC1KV )@@G@@^@)^[DD1 ^@)@C@[[[AK9AC0B@0A)5^@)^@)D[GCC)^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[KW )@@G@@AS7A@9AS7BC3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9AS8A)3^@)^@)KX )@@G@@C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC7AC2AS0A05^@)^@)C))^@)^@)^[GCD]AC1KY )@@G@@^@)^[GCD#^@)@C@[[[AC5AK0A@8A00^@)^@)D[CCS)^@)^[HD9]AC2^@)^[HD9F^@)@C@[[[KZ )@@G@@AS7A@9AS8A83^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC7AC2AS0BC5^@)^@)LA )@@G@@D(NCS)^@)^[GCD]AC1^@)^[GCD#^@)@C@[[[AC7AC2AS1A85^@)^@)D(NCS)^@)^[GCD]AC1LB )@@G@@^@)^[GCD#^@)@C@[[[AS7A@9A)1AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[LC )@@G@@A@7A@8A*5AS0^@)^@)E[^^@)^@)^[^C(]AC1^@)^[^C(R^@)@C@[[[A)6A00A@0A*5^@)^@)LD )@@G@@D[GCC)^@)^[#CD]A89^@)^[#CDI^@)@C@[[[A)5AK3AC7BC0^@)^@)DDIC))^@)^[QCD]AC1LE )@@G@@^@)^[QCD[^@)@C@[[[AK9A@8BC4AK3^@)^@)CT^^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[LF )@@G@@AS7A@9A)3AK3^@)^@)D9]C8)^@)^[KCD]AC8^@)^[KCDN^@)@C@[[[AS7A@9A)3A)3^@)^@)LG )@@G@@C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS9AK1A@0AC0^@)^@)D[GCC)^@)^[NCT]AC0LH )@@G@@^@)^[NCT#^@)@ @[[[A@9A)1BC2A*0^@)^@)DDIC))^@)^[A(#@@[[D-]AC0^@)^[AD-E^@)LI )@@G@@@C@[[[AS7A@9A)4AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@8BC6B@3LJ )@@G@@^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AS7A@9A)5AK3^@)^@)C- C0)^@)^[ILK )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A)5BC3^@)^@)DDIC))^@)^[IDL]AC1^@)^[IDL#^@)LL )@@G@@@C@[[[AS1A*2A85AK5^@)^@)DDIC))^@)^[IFD]AC3^@)^[IFDC^@)@C@[[[AK9A@8BC7B@3LM )@@G@@^@)^@)DDH^@)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AK9A@8BC8AK3^@)^@)DDH^@)^@)^[ILN )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[AS7A@9A)7A@3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)LO )@@G@@@C@[[[A)5A)2B@0A05^@)^@)DDIC))^@)^[QCD]AC9^@)^[QCDT^@)@C@[[[AS7A@9A)7A)3LP )@@G@@^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@8BC9A03^@)^@)C- C0)^@)^[ILQ )@@G@@DL]AC4^@)^[IDLK^@)@C@[[[AS7A@9A)8A)3^@)^@)DDH^@)^@)^[IDL]AC1^@)^[IDL#^@)LR )@@G@@@C@[[[AS9A06AC6AC5^@)^@)DDIC))^@)^[NCT]AC1^@)^[NCTA^@)@C@[[[AS7A@9A)9A*3LS )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*0AK3^@)^@)DDH^@)^@)^[ILT )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS9B@2A@7B@0^@)^@)DDIC))^@)^[NCT]AC3^@)^[NCTC^@)LU )@@G@@@C@[[[AK9A@9A@4AS3^@)^@)C- C0)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AS9B@2A87A@0LV )@@G@@^@)^@)DDIC))^@)^[NCT]AC3^@)^[NCTC^@)@C@[[[AK9A@9A@6AC3^@)^@)C1K^@)^@)^[ILW )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AS9B@2A@9BC0^@)^@)DDH^@)^@)^[NCT]AC3^@)^[NCTC^@)LX )@@G@@@C@[[[AS4AC1AC4AS5^@)^@)D(NCS)^@)^[JD[]AC0^@)^[JD[[^@)@C@[[[AK9A@9A@7A)3LY )@@G@@^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@9A@8AC3^@)^@)DDH^@)^@)^[ILZ )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[A@1A85A@0AS5^@)^@)D(NCS)^@)^[[D-]AC9^@)^[[D-O^@)MA )@@G@@@#@[[[AC2AK8A)5A)5^@)^@)( @@[[DDIC))^@)^[DD-]AC0^@)^[DD-#^@)@C@[[[AK9A@9MB )@@G@@A@9AC3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AC2AK8A)5A*5^@)^@)DDIC))MC )@@G@@^@)^[DD-]AC0^@)^[DD-#^@)@C@[[[AK9A@9A@9AK3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IMD )@@G@@DLO^@)@C@[[[AS4A*8B@7A85^@)^@)D1C^@)^@)^[JD[]AK1^@)^[JD[I^@)@C@[[[A@9B@1ME )@@G@@A05A80^@)^@)D(NCS)^@)^[AD-]AC4^@)^[AD-[^@)@C@[[[A@9AC2A@1A)5^@)^@)DDIC))MF )@@G@@^@)^[AD-]AC3^@)^[AD-K^@)@C@[[[AS7A@9A*4AK3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IMG )@@G@@DL#^@)@C@[[[AS4AC1AC7A85^@)^@)C(H^@)^@)^[JD[]AC3^@)^[JD[^^@)@C@[[[AS7A@9MH )@@G@@A*5AK3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*5AS3^@)^@)C1K^@)MI )@@G@@^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*5BC3^@)^@)D9H^@)^@)^[IDL]AC1^@)^[IMJ )@@G@@DL#^@)@C@[[[AS7A@9A*6A)3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9MK )@@G@@A*7A@3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A)7AC5A*5B@0^@)^@)DDIC))ML )@@G@@^@)^[RE1]AC5^@)^[RE1K^@)@C@[[[AS7A@9A*7AS3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IMM )@@G@@DL#^@)@C@[[[AS7A@9A*7A83^@)^@)D1C^@)^@)^[KCD]AC4^@)^[KCDM^@)@C@[[[AC9A88MN )@@G@@A*1AS0^@)^@)DDIC))^@)^[RE1]AC3^@)^[RE1A^@)@C@[[[AS7A@9A*8AC3^@)^@)D9H^@)MO )@@G@@^@)^[KCD]AC6^@)^[KCDR^@)@C@[[[AK9A@9AC6AC3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IMP )@@G@@DLO^@)@C@[[[AS4AC1AK4AS5^@)^@)DDIC))^@)^[JD[]AC8^@)^[JD[H^@)@C@[[[AS7A@9MQ )@@G@@A*8AS3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*8A)3^@)^@)C- C0)MR )@@G@@^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*8A03^@)^@)C- C0)^@)^[IDL]AC1^@)^[IMS )@@G@@DL#^@)@C@[[[AK9A@9AC7A@3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@[@[[[AK9A@9MT )@@G@@(B@@[[AC7AC3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AK9A@9AC7B@3^@)^@)MU )@@G@@C- C0)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AS7A@9A*9AC3^@)^@)C- C0)^@)^[KCD]AC6MV )@@G@@^@)^[KCDR^@)@C@[[[AK5A*0A@0A@5^@)^@)D[GCC)^@)^[#CD]A89^@)^[#CDI^@)@C@[[[MW )@@G@@AS7A@9A*9AK3^@)^@)C- C0)^@)^[KCD]AC6^@)^[KCDR^@)@C@[[[AC7AC2A*1A)5^@)^@)MX )@@G@@DDH^@)^@)^[GCD]AC5^@)^[GCDI^@)@C@[[[AK9A@9AC8AC3^@)^@)C1K^@)^@)^[IDL]AC1MY )@@G@@^@)^[IDL#^@)@C@[[[AC2AK8A*4A*5^@)^@)DDIC))^@)^[DD-]AC0^@)^[DD-#^@)@C@[[[MZ )@@G@@AK9A@9AC8AK3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[A@9B@1A84A80^@)^@)NA )@@G@@D(NCS)^@)^[AD-]AC4^@)^[AD-[^@)@C@[[[AK9A@9AC8A*3^@)^@)DDH^@)^@)^[IDL]AC1NB )@@G@@^@)^[IDL#^@)@C@[[[AC6B@0AK0AS0^@)^@)E1 E))^@)^[FFD]AC1^@)^[FFD ^@)@C@[[[NC )@@G@@AS9B@0A@1B@5^@)^@)D[GCK)^@)^[ICT]AC3^@)^[ICT]^@)@C@[[[AK9A@9AC9AK3^@)^@)ND )@@G@@C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS9B@0A@2AK5^@)^@)CTOEK)^@)^[ICT]AC3NE )@@G@@^@)^[ICT]^@)@C@[[[AK9A@9AC9A)3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[NF )@@G@@AK9A@9AC9B@3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A*9BC3^@)^@)NG )@@G@@C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@9A)6A02A@0^@)^@)DDIC))^@)^[AD-]AC0NH )@@G@@^@)^[AD-E^@)@C@[[[AS7A@9A00A)3^@)^@)DDIC))^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[NI )@@G@@AS7A@9A01AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@9B@4A01AS5^@)^@)NJ )@@G@@D(NCS)^@)^[AD-]AK1^@)^[AD-[^@)@C@[[[AS7A@9A02A@3^@)^@)C- C0)^@)^[IDL]AC1NK )@@G@@^@)^[IDL#^@)@C@[[[AK9A@9AK2B@3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[NL )@@G@@AC0AC5A@0A@5^@)^@)DDIC))^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[AS7A@9A04A@3^@)^@)NM )@@G@@C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@5B@1AC0A00^@)^@)D[GCC)^@)^[#CD]A89NN )@@G@@^@)^[#CDI^@)@C@[[[AK9AC0A08AS0^@)^@)C))^@)^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[NO )@@G@@AS7A@9A04AK3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC7AC2AC7BC0^@)^@)NP )@@G@@C-^ES)^@)^[GCD]AC1^@)^[GCD#^@)@C@[[[A@5B@1AC0B@0^@)^@)D[GCC)^@)^[#CD]A89NQ )@@G@@^@)^[#CDI^@)@C@[[[AK9A@9AK6AK3^@)^@)DDH^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[NR )@@G@@A@9B@1B@2A80^@)^@)D(NCS)^@)^[AD-]AC4^@)^[AD-[^@)@C@[[[AS7A@9A04A03^@)^@)NS )@@G@@C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AC7AC2AC8B@0^@)^@)D9]C8)^@)^[GCD]AC5NT )@@G@@^@)^[GCDI^@)@C@[[[AS7A@9A05A)3^@)^@)C9K^@)^@)^[KCD]AC8^@)^[KCDN^@)@C@[[[NU )@@G@@AS9A)0A)0A)5^@)^@)D[GCC)^@)^[NCT]AC0^@)^[NCT#^@)@C@[[[AS7A@9A06A)3^@)^@)NV )@@G@@C9K^@)^@)^[KCD]AC8^@)^[KCDN^@)@C@[[[AS7A@9A07AC3^@)^@)C- C0)^@)^[IDL]AC1NW )@@G@@^@)^[IDL#^@)@C@[[[AK9B@2A@0AK0^@)^@)D[GCK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[NX )@@G@@AS7A@9A07A)3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A@1AS0A@3A*0^@)^@)NY )@@G@@D(NCS)^@)^[[D-]AK1^@)^[[D-T^@)@C@[[[AS7A@9A07B@3^@)^@)C9K^@)^@)^[KCD]AC8NZ )@@G@@^@)^[KCDN^@)@C@[[[AK9A@9AK8A03^@)^@)C- C0)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[OA )@@G@@AK9A@9AK8BC3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS7A@9A08AK3^@)^@)OB )@@G@@C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@9AS0AC3^@)^@)DDH^@)^@)^[IDL]AC6OC )@@G@@^@)^[IDLO^@)@C@[[[AS4AS0B@7A@5^@)^@)E*)^@)^@)^[JD[]AC2^@)^[JD[#^@)@C@[[[OD )@@G@@AK9A@9AS0B@3^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@B@[[[AS4AS0B@7AC5^@)^@)OE )@@G@@D[CCS)^@)^[JD[]AC4^@)^[J([@@[[D[ ^@)@C@[[[AK9A@9AS1AC3^@)^@)DD^^@)^@)^[IOF )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AK9A@9AS1AS3^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)OG )@@G@@@C@[[[AS7A@9A80AK3^@)^@)C9K^@)^@)^[KCD]AC8^@)^[KCDN^@)@C@[[[AK9A@9AS2AC3OH )@@G@@^@)^@)DDH^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AK9A@9AS2A)3^@)^@)C9K^@)^@)^[IOI )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[AK9A@9AS2A83^@)^@)C- C0)^@)^[IDL]AC6^@)^[IDLO^@)OJ )@@G@@@C@[[[AS7A@9A81A@3^@)^@)DDH^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@9AS3AC3OK )@@G@@^@)^@)C- C0)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AK9A@9AS4AS3^@)^@)DDH^@)^@)^[IOL )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[AK9A@9AS4A03^@)^@)C9K^@)^@)^[IDL]AC6^@)^[IDLO^@)OM )@@G@@@C@[[[A*5AK8A84AK0^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[AK9A@9AS5AK3ON )@@G@@^@)^@)C9K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS4AC1A)3A)5^@)^@)DDIC))^@)^[JOO )@@G@@D[]AC3^@)^[JD[^^@)@C@[[[AC5AC9A@1AC5^@)^@)C(IC))^@)^[HD9]AC2^@)^[HD9F^@)OP )@@G@@@C@[[[AK0AK1AC0AS5^@)^@)D[GCC)^@)^[HCD]AC0^@)^[HCD]^@)@C@[[[A)5A01A@0AK5OQ )@@G@@^@)^@)D[GCC)^@)^[OD1]AC0^@)^[OD1]^@)@C@[[[AK9A@9AS7AS3^@)^@)C- C0)^@)^[IOR )@@G@@DL]AC1^@)^[IDL#^@)@C@[[[AC3AK0A@6B@5^@)^@)D[GCC)^@)^[DD1]AC2^@)^[DD1A^@)OS )@@G@@@C@[[[AK9A@9AS8AK3^@)^@)C- C0)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AC4AK1AC3A@0OT )@@G@@^@)^@)D[GCC)^@)^[DCD]AC0^@)^[DCD^^@)@C@[[[AS7A@9A84AK3^@)^@)C- C0)^@)^[KOU )@@G@@CD]AC6^@)^[KCDR^@)@C@[[[A@9AC2AS1AK5^@)^@)DDIC))^@)^[AD-]AC2^@)^[AD-#^@)OV )@@G@@@C@[[[AK9A@9AS9AS3^@)^@)C9K^@)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AK9A*0BC0AC5OW )@@G@@^@)^@)DDCC*)^@)^[IDL]AC4^@)^[IDLK^@)@ @[[[AS7A@9A84A83^@)^@)D9]C8)^@)^[IOX )@@G@@(#@@[[DL]AC1^@)^[IDL#^@)@C@[[[A@1A*6A@3A*0^@)^@)DDIC))^@)^[[D-]AC7^@)^[[OY )@@G@@D-H^@)@C@[[[AS7A@9A84B@3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AS5AC7OZ )@@G@@BC1AS5^@)^@)DDIC))^@)^[JDT]AC1^@)^[JDTO^@)@C@[[[AK9A@9A)1AC3^@)^@)DDH^@)PA )@@G@@^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AK9A@9A)1AS3^@)^@)D9]C8)^@)^[IDL]AC1^@)^[IPB )@@G@@DL#^@)@C@[[[AK9A@9A)1A03^@)^@)C- C0)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AK9A@9PC )@@G@@A)2A)3^@)^@)C- C0)^@)^[IDL]AC4^@)^[IDLK^@)@C@[[[AC3AK0AC1BC5^@)^@)D[GCC)PD )@@G@@^@)^[DD1]AC2^@)^[DD1A^@)@C@[[[AK9A@9A)2A03^@)^@)C- C0)^@)^[IDL]AC1^@)^[IPE )@@G@@DL#^@)@C@[[[AS7A@9A86A@3^@)^@)C9K^@)^@)^[KCD]AC4^@)^[KCDM^@)@C@[[[AK9A@9PF )@@G@@A)4AC3^@)^@)C1K^@)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@9A)4AK3^@)^@)C- C0)PG )@@G@@^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AS7A@9A87A*3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IPH )@@G@@DL#^@)@C@[[[AS9A)0A*2A*5^@)^@)E1 E))^@)^[NCT]AC0^@)^[NCT#^@)@C@[[[AS7A@9PI )@@G@@A88AC3^@)^@)C- C0)^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[AK9A@9A)5AC3^@)^@)C1K^@)PJ )@@G@@^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A)5A*1AK7AC0^@)^@)DDIC))^@)^[QCD]AC3^@)^[QPK )@@G@@CD^^@)@C@[[[AK9A*3A)2AC0^@)^@)DDIC))^@)^[IDL]AC1^@)^[IDL#^@)@C@[[[A)1AC9PL )@@G@@A@0A@5^@)^@)DDH^@)^@)^[HET]AC4^@)^[HETN^@)@C@[[[AK9AC2A*3AC0^@)^@)DDIC))PM )@@G@@^@)^[IDL]AC3^@)^[IDLI^@)@C@[[[AK9A88A*5A@0^@)^@)DDIC))^@)^[IDL]AC5^@)^[IPN )@@G@@DLM^@)@C@[[[AS2AS1AC2AS5^@)^@)D[GCC)^@)^[ICT]AK3^@)^[ICT ^@)@C@[[[AK9A)3PO )@@G@@AK0AC0^@)^@)DDIES)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[AC0B@0AC6AS5^@)^@)D[GCC)PP )@@G@@^@)^[BCD]AC4^@)^[BCDH^@)@#@[[[AC9A08A*4AK5^@)^@)( @@[[DDIC))^@)^[QCD]AC1PQ )@@G@@^@)^[QCD[^@)@C@[[[AC9A08A*4AS5^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[PR )@@G@@AC9A08A*4A*5^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[AC9A08A*4A00^@)^@)PS )@@G@@DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[AC9A08A*4A05^@)^@)DDIC))^@)^[QCD]AC1PT )@@G@@^@)^[QCD[^@)@C@[[[AK4A80A02B@5^@)^@)C9K^@)^@)^[HD9]AC4^@)^[HD9K^@)@C@[[[PU )@@G@@A)7AC3A)7A80^@)^@)D(NCS)^@)^[^C(]AC1^@)^[^C(R^@)@C@[[[AC3A*0A@5A85^@)^@)PV )@@G@@D9]ES)^@)^[DD1]AC3^@)^[DD1D^@)@C@[[[AC3B@2A@5B@0^@)^@)C1K^@)^@)^[DD1]AC3PW )@@G@@^@)^[DD1D^@)@C@[[[AK4A)1A*3A@0^@)^@)D[GCC)^@)^[HD9]AC3^@)^[HD9G^@)@C@[[[PX )@@G@@A)5A80B@9B@5^@)^@)D(NCS)^@)^[QCD]AC8^@)^[QCDN^@)@C@[[[AC3B@1AS6A00^@)^@)PY )@@G@@D[A^@)^@)^[DD1]AC3^@)^[DD1D^@)@C@[[[A@3A*1A@1B@5^@)^@)DDIC))^@)^[[EL]AC6PZ )@@G@@^@)^[[ELN^@)@C@[[[A)5A)0A@0B@0^@)^@)DDH^@)^@)^[QCD]AC7^@)^[QCDM^@)@C@[[[QA )@@G@@A@9AC2A@6A*0^@)^@)DDIC))^@)^[AD-]AC2^@)^[AD-#^@)@C@[[[AC4A)0A@7A)0^@)^@)QB )@@G@@D(NCS)^@)^[DCD]AC1^@)^[DCDH^@)@C@[[[A@9AC2A@6A*5^@)^@)DDIC))^@)^[AD-]AC2QC )@@G@@^@)^[AD-#^@)@C@[[[AC4A)0A@7A)5^@)^@)C9TD0)^@)^[DCD]AC1^@)^[DCDH^@)@C@[[[QD )@@G@@AK3AS0AK8A*5^@)^@)DDH^@)^@)^[HET]AC4^@)^[HETN^@)@C@[[[AC7A80A@4AK5^@)^@)QE )@@G@@C9KD*)^@)^[GCD]AC4^@)^[GCDH^@)@C@[[[A@1AS0AS1A*5^@)^@)E[MDC)^@)^[[D-]AC8QF )@@G@@^@)^[[D-I^@)@C@[[[AK3A*0A@0A85^@)^@)D[GCK)^@)^[HET]AC4^@)^[HETN^@)@C@[[[QG )@@G@@AC2AK8BC6BC0^@)^@)DDIC))^@)^[DD-]AC0^@)^[DD-#^@)@C@[[[A@3AK0B@0A@5^@)^@)QH )@@G@@E[C^@)^@)^[HET]AC1^@)^[HETB^@)@C@[[[AK9AC3A*0A@5^@)^@)DDIC))^@)^[IDL]AC3QI )@@G@@^@)^[IDLI^@)@[@[[[AC0A)0(B@@[[A@0A*0^@)^@)D9]C8)^@)^[BCD]AC2^@)^[BCD#^@)QJ )@@G@@@C@[[[A)2A01A*0AK0^@)^@)DDIC))^@)^[OF[]AC5^@)^[OF[^^@)@C@[[[AS2A@9B@5A*3QK )@@G@@^@)^@)C(IE))^@)^[ICT]AK7^@)^[ICTF^@)@C@[[[A@9AC0A)9A)5^@)^@)D9I^@)^@)^[AQL )@@G@@D-]AC3^@)^[AD-K^@)@C@[[[AS4A)6A@0A@5^@)^@)C1K^@)^@)^[JD[]AC7^@)^[JD[D^@)QM )@@G@@@C@[[[AS1A86AK4A@0^@)^@)DDIC))^@)^[IFD]A@1^@)^[IFDB^@)@C@[[[A@9B@6A@0B@0QN )@@G@@^@)^@)CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[AS4AS6AK1BC5^@)^@)DDIC))^@)^[JQO )@@G@@D[]AC2^@)^[JD[#^@)@C@[[[AC2AK7B@7AK5^@)^@)DDIC))^@)^[DD-]AC0^@)^[DD-#^@)QP )@@G@@@C@[[[A@7AC1AK9A*0^@)^@)C9K^@)^@)^[^C(]AC1^@)^[^C(R^@)@C@[[[AK9A80A*0AS5QQ )@@G@@^@)^@)E[^^@)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[A)2AS8A*0BC5^@)^@)DDIC))^@)^[OQR )@@G@@F[]AC2^@)^[OF[C^@)@C@[[[A)2AS8A*1A@0^@)^@)DDIC))^@)^[OF[]AC2^@)^[OF[C^@)QS )@@G@@@C@[[[AC7AC3A@3B@0^@)^@)C(IC))^@)^[GCD]AC5^@)^[GCDI^@)@C@[[[AC6B@6AC6A)0QT )@@G@@^@)^@)DDIC))^@)^[FFD]AC1^@)^[FFD ^@)@C@[[[A)2AS8A*1AS0^@)^@)DDIC))^@)^[OQU )@@G@@F[]AC2^@)^[OF[C^@)@C@[[[AC5AK1AK0A00^@)^@)D[GCC)^@)^[HD9]AC2^@)^[HD9F^@)QV )@@G@@@C@[[[AS4B@0A00AC0^@)^@)E[C^@)^@)^[JD[]AC8^@)^[JD[H^@)@C@[[[A@3BC0A@6AK0QW )@@G@@^@)^@)D(NCS)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[A@3BC0A@6AS0^@)^@)D(NCS)^@)^[[QX )@@G@@EL]AC4^@)^[[ELG^@)@C@[[[A@3BC0A@6A)0^@)^@)D(NCS)^@)^[[EL]AC4^@)^[[ELG^@)QY )@@G@@@C@[[[AC9A80A@3AK5^@)^@)D[HE))^@)^[RE1]AC3^@)^[RE1A^@)@C@[[[AK9A)0AS1A@0QZ )@@G@@^@)^@)D9HES)^@)^[IDL]AC6^@)^[IDLO^@)@C@[[[A@9A80A@6A*0^@)^@)CTOEK)^@)^[IRA )@@G@@DL]AC5^@)^[IDLM^@)@C@[[[AK0AS1A@1A85^@)^@)DDIC))^@)^[HCD]AC1^@)^[HCDI^@)RB )@@G@@@C@[[[AS4A)6A05A@0^@)^@)D(NCS)^@)^[JD[]AC7^@)^[JD[D^@)@C@[[[A)2A)0AC1A@5RC )@@G@@^@)^@)DDIC))^@)^[OF[]AK5^@)^[OF[#^@)@C@[[[A@9A80AS1AS5^@)^@)DDIC))^@)^[ARD )@@G@@D-]AC1^@)^[AD-H^@)@C@[[[A)5A85AK8A@5^@)^@)DDIC))^@)^[QCD]AC6^@)^[QCDJ^@)RE )@@G@@@C@[[[A@1B@4A@8AC0^@)^@)D(NCS)^@)^[[D-]AC9^@)^[[D-O^@)@C@[[[A)5AK0AS3A@5RF )@@G@@^@)^@)DDIC))^@)^[QCD]AC1^@)^[QCD[^@)@C@[[[A@3BC0A@6A80^@)^@)D(NCS)^@)^[[RG )@@G@@EL]AC4^@)^[[ELG^@)@C@[[[A@3BC0A@6B@0^@)^@)DDH^@)^@)^[[EL]AC4^@)^[[ELG^@)RH )@@G@@@C@[[[AC0A@9A00A@5^@)^@)D(NCS)^@)^[BCD]AC2^@)^[BCD#^@)@C@[[[AC4AS2A01A85RI )@@G@@^@)^@)DDIC))^@)^[DCD]AC2^@)^[DCDN^@)@C@[[[A@1B@1A@1A80^@)^@)C9K^@)^@)^[[RJ )@@G@@D-]AC0^@)^[[D-]^@)@C@[[[AS1A82A88A@5^@)^@)DDIC))^@)^[IFD]AC4^@)^[IFDI^@)RK )@@G@@@C@[[[A@6A@8A87B@3^@)^@)C9K^@)^@)^[#E-]AC0^@)^[#E-]^@)@C@[[[AS9B@6AC6A)5RL )@@G@@^@)^@)DDIC))^@)^[NCT]AC3^@)^[NCTC^@)@C@[[[AS5A@0A@1A*5^@)^@)D-H^@)^@)^[JRM )@@G@@DT]AC1^@)^[JDTO^@)@C@[[[AS7B@5AK1AK5^@)^@)C9N^@)^@)^[KCD]AK1^@)^[KCDK^@)RN )@@G@@@C@[[[A)1AS3AC8AC0^@)^@)DDIC))^@)^[OD1]AC4^@)^[OD1I^@)@C@[[[A)5B@2BC1A*5RO )@@G@@^@)^@)DDCC*)^@)^[QCD]AC7^@)^[QCDM^@)@C@[[[A)1AS3AC8A*0^@)^@)DDIC))^@)^[ORP )@@G@@D1]AC4^@)^[OD1I^@)@C@[[[AC0AC2A)7A00^@)^@)DDIC))^@)^[BCD]AC5^@)^[BCDI^@)RQ )@@G@@@C@[[[A@9A80A@6B@0^@)^@)CTOEK)^@)^[ICT]AC3^@)^[ICT]^@)@C@[[[A@4A)1A*5A*0RR )@@G@@^@)^@)CTOEK)^@)^[ICT]AC3^@)^[ICT]^@)@C@[[[A@9A80A@6B@5^@)^@)CTOEK)^@)^[IRS )@@G@@CT]AC3^@)^[ICT]^@)@C@[[[A@9AS0A@2A@0^@)^@)CTOEK)^@)^[ICT]AC3^@)^[ICT]^@)RT )@@G@@@B@[[[AS2AS1A@1A*5^@)^@)C1DC))^@)^[ICT]AC3^@)^[M([@@[[E-K^@)@A@[[[AS8A@9RU )@@G@@A89A03^@)^@)^@)^@)^@)^[ICT]AC0@C@[[[A@9A)5A86A)5^@)^@)DDIC))^@)^[AD-]AC0RV )@@G@@^@)^[AD-E^@)@C@[[[AS2A)1A@1AK0^@)^@)C1DC))^@)^[ICT]AC3^@)^[ME-K^@)@C@[[[RW )@@G@@AC0A82A@1A)5^@)^@)C1DC))^@)^[ICT]AC3^@)^[ME-K^@)@C@[[[A@9AC0AC9AC5^@)^@)RX )@@G@@D[CCS)^@)^[AD-]AC3^@)^[AD-K^@)@C@[[[AS7B@1AC2A@0^@)^@)D[G^@)^@)^[KCD]AC3RY )@@G@@^@)^[KCDK^@)@C@[[[AC3BC9A@3A*0^@)^@)D(NCS)^@)^[#CD]A89^@)^[#CDI^@)@C@[[[RZ )@@G@@AK0AS0A@7AC5^@)^@)CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[AK8AS0A@7A@5^@)^@)SA )@@G@@CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[A)5AK0B@1A00^@)^@)DDIC))^@)^[QCD]AC1SB )@@G@@^@)^[QCD[^@)@C@[[[A@9A02A)8AK0^@)^@)DDIC))^@)^[AD-]AK2^@)^[AD-Q^@)@C@[[[SC )@@G@@A@9B@1A06A*5^@)^@)D(NCS)^@)^[AD-]AC4^@)^[AD-[^@)@C@[[[A@9A87A00A@0^@)^@)SD )@@G@@DDIC))^@)^[AD-]AC1^@)^[AD-H^@)@C@[[[A@9A*5A*8BC5^@)^@)DDIC))^@)^[AD-]AC8SE )@@G@@^@)^[AD-J^@)@C@[[[AC0AC0A)1A@5^@)^@)DDIC))^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[SF )@@G@@AC0A)0A)1A*5^@)^@)DDIC))^@)^[AD-]AS1^@)^[AD-O^@)@C@[[[AS1AK0A07AK5^@)^@)SG )@@G@@D[GCC)^@)^[IFD]AC5^@)^[IFDN^@)@C@[[[AC0A00AS1AK5^@)^@)DDIC))^@)^[BCD]AC0SH )@@G@@^@)^[BCD[^@)@C@[[[AC0AS0AS1A)5^@)^@)DDIC))^@)^[BCD]AC6^@)^[BCDN^@)@C@[[[SI )@@G@@AC0A*0A)2AS5^@)^@)DDIC))^@)^[BCD]AC2^@)^[BCD#^@)@C@[[[AC0A00AS1AS5^@)^@)SJ )@@G@@DDIC))^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[A@1A*0B@4AK0^@)^@)E1 E))^@)^[[D-]AC7SK )@@G@@^@)^[[D-H^@)@C@[[[A@1AK0A)1AK0^@)^@)DDIC))^@)^[[D-]AC4^@)^[[D-B^@)@C@[[[SL )@@G@@A@4A*8A)1A@0^@)^@)D(NCS)^@)^[ICT]AC3^@)^[ICT]^@)@B@[[[AC0A)0AC7AS0^@)^@)SM )@@G@@D(NCS)^@)^[BCD]AC2^@)^[B([@@[[CD#^@)@C@[[[A)1A00B@9AK0^@)^@)E[NFC)^@)^[OSN )@@G@@D1]AC0^@)^[OD1]^@)@C@[[[AS1A*2A@1B@5^@)^@)D[GCK)^@)^[IFD]AC0^@)^[IFD[^@)SO )@@G@@@C@[[[A@3BC0A@7AK0^@)^@)C1K^@)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[A@3BC0A@7A)0SP )@@G@@^@)^@)C1K^@)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[A)7AC0BC6A@5^@)^@)C9K^@)^@)^[RSQ )@@G@@E1]AC0^@)^[RE1]^@)@C@[[[A@3BC0A@7A*0^@)^@)D(NCS)^@)^[[EL]AC4^@)^[[ELG^@)SR )@@G@@@C@[[[A@3BC0A@7A00^@)^@)D(NCS)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[A@3BC0A@7B@0SS )@@G@@^@)^@)D9]C8)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[AS1A84A09A@5^@)^@)DDIC))^@)^[IST )@@G@@FD]AC4^@)^[IFDI^@)@C@[[[A)6AK0A@1AS0^@)^@)CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)SU )@@G@@@C@[[[A@9B@0A@8AC0^@)^@)CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[AS1A84A@0AC0SV )@@G@@^@)^@)C1DC))^@)^[ICT]AC3^@)^[ME-K^@)@C@[[[AC0A)0A*0B@5^@)^@)E[MDC)^@)^[[SW )@@G@@D-]AC8^@)^[[D-I^@)@C@[[[AS1B@4BC0A80^@)^@)DDIC))^@)^[AD-]AC1^@)^[AD-H^@)SX )@@G@@@C@[[[AS1B@4BC0B@0^@)^@)DDIC))^@)^[IFD]A@1^@)^[IFDB^@)@C@[[[AS1B@4BC1A@5SY )@@G@@^@)^@)DDIC))^@)^[IFD]A@1^@)^[IFDB^@)@C@[[[AK9A)0A@6A85^@)^@)E[^^@)^@)^[ISZ )@@G@@DL]AC6^@)^[IDLO^@)@C@[[[A@4B@1AC2B@5^@)^@)CTOEK)^@)^[ICT]AC3^@)^[ICT]^@)TA )@@G@@@C@[[[A@3A08A@2AC5^@)^@)CTCDC)^@)^[[EL]AC4^@)^[[ELG^@)@C@[[[AC2AK2AK3A@0TB )@@G@@^@)^@)CTOEK)^@)^[IDL]AC5^@)^[IDLM^@)@C@[[[AC2A)1A)1AS5^@)^@)D[GCC)^@)^[DTC )@@G@@D-]AC0^@)^[DD-#^@)@C@[[[AS1B@4BC1B@0^@)^@)DDIC))^@)^[IFD]A@1^@)^[IFDB^@)TD )@@G@@@C@[[[AK3AK0A@2AC5^@)^@)DDIC))^@)^[HET]AC2^@)^[HETE^@)@C@[[[AS1B@4BC2AS5TE )@@G@@^@)^@)DDIC))^@)^[IFD]A@1^@)^[IFDB^@)@ @[[[A@9A82A@0AK5^@)^@)CTOEK)^@)^[ITF )@@G@@(#@@[[DL]AC5^@)^[IDLM^@)@C@[[[A)1AC3A85A)5^@)^@)DDIC))^@)^[HET]AC4^@)^[HTG )@@G@@ETN^@)@C@[[[A@9A)3A87B@0^@)^@)DDIC))^@)^[AD-]AC0^@)^[AD-E^@)@C@[[[A@9A83TH )@@G@@BC5A*0^@)^@)DDIC))^@)^[AD-]AC1^@)^[AD-H^@)@C@[[[A)2A81B@1A00^@)^@)C1K^@)TI )@@G@@^@)^[OF[]AC5^@)^[OF[^^@)@C@[[[A)5AS8BC5A*5^@)^@)DDIC))^@)^[QCD]AC7^@)^[QTJ )@@G@@CDM^@)@C@[[[AC2A87B@1A*5^@)^@)DDIC))^@)^[DD-]AC1^@)^[DD-^^@)@C@[[[AS2AK0TK )@@G@@A)4A05^@)^@)DDIC))^@)^[ICT]AK1^@)^[ICTC^@)@C@[[[AC0A88A*2A*0^@)^@)DDIC))TL )@@G@@^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[AC2AK5A@1A80^@)^@)CTOEK)^@)^[IDL]AC5^@)^[ITM )@@G@@DLM^@)@C@[[[A@4A)7B@1A05^@)^@)DDIC))^@)^[#CD]A89^@)^[#CDI^@)@C@[[[A)5B@0TN )@@G@@B@4B@0^@)^@)C9 ^@)^@)^[QCD]AC7^@)^[QCDM^@)@C@[[[AS9AC1AK1AK0^@)^@)D9]C8)TO )@@G@@^@)^[NCT]AC2^@)^[NCTB^@)@C@[[[A)7AC5A*6AC0^@)^@)DDIC))^@)^[RE1]AC5^@)^[RTP )@@G@@E1K^@)@C@[[[AS1AC1A@3A@0^@)^@)DDIC))^@)^[IFD]AC1^@)^[IFD]^@)@C@[[[AS2A*0TQ )@@G@@A@6A)0^@)^@)D[HE))^@)^[ICT]AS0^@)^[ICTM^@)@C@[[[AK0AK0AC0A)5^@)^@)E[MDC)TR )@@G@@^@)^[MDD]AC3^@)^[MDD#^@)@C@[[[AS4AS8BC6A*0^@)^@)DDIC))^@)^[JD[]AC1^@)^[JTS )@@G@@D[]^@)@C@[[[AS1B@4AK4A@5^@)^@)D[GCC)^@)^[IFD]AC2^@)^[IFD ^@)@C@[[[AS2AK1TT )@@G@@A09A@5^@)^@)DDIC))^@)^[ICT]AK1^@)^[ICTC^@)@C@[[[AS4AC8BC4A85^@)^@)DDIC))TU )@@G@@^@)^[JD[]AC3^@)^[JD[^^@)@C@[[[AC5A)0A*7AC0^@)^@)E1 E))^@)^[FET]AC1^@)^[FTV )@@G@@ETR^@)@C@[[[AC0A84B@5A)5^@)^@)DDIC))^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[AC0A84TW )@@G@@B@5A*5^@)^@)DDIC))^@)^[BCD]AC0^@)^[BCD[^@)@C@[[[AS8A@8A89AC3^@)^@)C9K^@)TX )@@G@@^@)^[MDD]AC3^@)^[MDD#^@)@#@[[[A@3A01AC1B@5^@)^@)@@Y@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@L@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@G@@@@@@@@@@@W@@@@@VUA )@@G@@@@@@@@@@F@@@@@K@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@*@@@@@@@@@@@@@@@@@UUB )@@G@@@@@@@>@@@@@+@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@P@@@@@@@@@@@@@@@@@#@@@@@@@@@@@@@@@@@@@@@@@@@@<@@B@@@@@@@@@@@XUD )@@G@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@J@@@@@@@@@@@@UE )@@G@@@@@@@@@@(@@@@@E@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@A@@@@@)@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@@N@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@T@@@@@S@@@@@:@@[@@@UI )@@G@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@$@@@@@@@@I@@@@@Q@@R@@@@@=@@@@@-UJ )@@G@@@@@@@@@@@@@@@@@@@@@@^@@:E$PRINT @@C@@@@@@XQ-A$EDEF @@C@@@@@@XT=UK )@@G@@A$EDIT @@C@@@@@@XZ,A$EDITR @@C@@@@@@XZ,A$ECHAR @@C@@@@@@XZ,UL )@@G@@A$ECOL @@C@@@@@@XZ,A$ESKIP @@C@@@@@@XZ,A$ECLEAR @@C@@@@@@XZ,UM )@@G@@A$EOCTV @@C@@@@@@X-WA$EDECV @@C@@@@@@X-WA$EFD1 @@C@@@@@@X-WUN )@@G@@A$EDITX @@C@@H@@@X+WA$ECOLN @@C@@@@@@X+WA$EMSGR @@C@@@@@@X+WUO )@@G@@A$EPRINT @@C@@@@@@XMUP )@@G@@A$ECOPY @@C@@@@@@X&FA$EPACK @@C@@@@@@X&FA$EOCTF @@C@@@@@@X$SUQ )@@G@@A$EDECF @@C@@@@@@X$SA$EDCFZ @@C@@@@@@X$SA$EFLS1 @@C@@@@@@X*&UR )@@G@@A$EFLG1 @@C@@@@@@X*&A$EFLF1 @@C@@@@@@X*&A$EFLS2 @@C@@@@@@X*&US )@@G@@A$EFLG2 @@C@@@@@@X*&A$EFLF2 @@C@@@@@@X*&A$ETIME @@C@@@@@@X%1UT )@@G@@A$EDAY1 @@C@@@@@@X%1A$EDAY2 @@C@@@@@@X%1A$EDAY3 @@C@@@@@@X%1UU )@@G@@A$EDAY4 @@C@@@@@@X%1A$EDAY5 @@C@@@@@@X%1A$ETD @@C@@@@@@X?QUV )@@G@@A$EDAT1 @@C@@@@@@X?QA$EDAT2 @@C@@@@@@X?QA$EDAT3 @@C@@@@@@X?QUW )@@G@@A$EDAT4 @@C@@%@@@X?QA$EDAT5 @@C@@@@@@X?QA$EAD @@C@@@@@@X!/UX )@@G@@A$EPKT @@C@@@@@@X,*A$EPKTF @@C@@@@@@X,*NOPKT $NAME +@@@@[UY )@@G@@@^@@@ED1JE[FE))^@)^@)^-ICDHC*)+@@@@@@ @E@D ER CLIST$ UZ )@@G@@+@@@@[@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)CTGDDNE)=^@)+@@@@@@#@E@D VA )@@G@@ $END +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)+@@@@@@[@E@D . +@@@@[VB )@@G@@@[@@@E^@,^@)+@@@@@@^@E@DP $PROC *1 +@@@@[@A@@@EE@)^@)^@)^@)VC )@@G@@^@)^-KELJCS)^@)^@) K1^@)+@@@@@@^@E@DCLIST$P* $NAME 0 +@@@@[@A@@@EVD )@@G@@CTGDDNE)=E@%^@)^-ICDHC*)^@)^@)A@)^@)+@@@@@@D@E@D $DO P(1)VE )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) +@@@@[@H@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)VF )@@G@@E@*AC(B00^@?^[GCC)AC2 ): [ EDPC0=^[K @1 C?AC?AK(+@@@@@@ @E@D ERVG )@@G@@ CLIST$ +@@@@[@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)CTGDDNE)=^@)VH )@@G@@+@@@@@@#@E@D $END +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)+@@@@@VI )@@G@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@^@E@DP $PROC *1 +@@@@[VJ )@@G@@@A@@@EE@)^@)^@)^@)^@)^-KELJCS)^@)^@) K1^@)+@@@@@@^@E@DRSI$* $NAME VK )@@G@@ 0 +@@@@[@A@@@EELNDC= K)^@)^@)^-ICDHC*)^@)^@)A@)^@)+@@@@@@^@E@DRSI$P*VL )@@G@@ $NAME 0 +@@@@[@A@@@EELNDC=E@%^@)^@)^-ICDHC*)^@)^@)A@)^@)+@@@@@VM )@@G@@@D@E@D $DO P(1)>0 , LA 12,+(EQUF$ P(1),1,2) +@@@@[@H@@@EVN )@@G@@^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)E@*AC(B00^@?^[GCC)AC2 ): [ EDPC0=^[K @1 C?VO )@@G@@AC?AK(+@@@@@@^@E@D ER RSI$+@@@@[@A@@@E^@)^@)^@)^@)^@)C(MVP )@@G@@^@)^@)^@)^@)ELNDC=+@@@@@@#@E@D $END +@@@@[@^@@@E^@)^@)^@)^@)VQ )@@G@@^@)^- D1^^@)+@@@@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@^@E@DP $PVR )@@G@@ROC 1,2 +@@@@[@A@@@EE@)^@)^@)^@)^@)^-KELJCS)^@)^@)AC?AK)+@@@@@@^@E@DVS )@@G@@PLINE$* $NAME 0 +@@@@[@A@@@EE[GDDIC*= K)^@)^-ICDHC*)^@)^@)A@)^@)VT )@@G@@+@@@@@@E@E@D LA 12,(1,($CFS('L,'):$CFS($CD(P(1,1)))L)) VU )@@G@@+@@@@[@J@@@E^@)^@)^@)^@)^@)D-[^@)^@)^@)^@)AC2 )*AC? @=CTAES*^9G )$ C'^-#VV )@@G@@C1N @=CT^ [K @1 )1 C( DG C(^@)+@@@@@@ @E@D ER PRTCN$ VW )@@G@@+@@@@[@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)E[ME-#D0=^@)+@@@@@@#@E@D VX )@@G@@ $END +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)+@@@@@@[@E@D . +@@@@[VY )@@G@@@[@@@E^@,^@)+@@@@@@^@E@DPMARG$* $PROC 1,2 +@@@@[@A@@@EE[HCDMC8= K)VZ )@@G@@^@)^-KELJCS)^@)^@)AC?AK)+@@@@@@C@E@DA(4) FDCVT$ 66*(PMARG$(1)<1)WA )@@G@@+PMARG$(1,1)+@@@@[@G@@@ECC*A)(^@)^@)^@)C1^CTQE)=^@)^@)A06 K*E[HCDMC8= @1WB )@@G@@ C/AC( TKD([ELB^)*AC?AC(+@@@@@@C@E@DA(5) FDCVT$ 6*(PMARG$(1)<2)WC )@@G@@+PMARG$(1,2)+@@@@[@G@@@ECC*A*(^@)^@)^@)C1^CTQE)=^@)^@)^@6 K*E[HCDMC8= @1WD )@@G@@ C/AK( TKD([ELB^)*AC?AK(+@@@@@@C@E@DA(6) FDCVT$ 3*(PMARG$(1)<3)WE )@@G@@+PMARG$(1,3)+@@@@[@G@@@ECC*A0(^@)^@)^@)C1^CTQE)=^@)^@)^@3 K*E[HCDMC8= @1WF )@@G@@ C/AS( TKD([ELB^)*AC?AS(+@@@@@@G@E@D LA 12,(2,($GFORM 12WG )@@G@@,$CFS('M,'),12,A(4),6,$CFS(','),; +@@@@[@M@@@E^@)^@)^@)^@)^@)D-[^@)^@)WH )@@G@@^@)^@)AC2 )*AK? @=C9AD9MD*)AC2 )=CTAES*^9H )$ C?AC2 -[ @4 C?A0?^-#C1N @$WI )@@G@@ )$ C?BS)^@)+@@@@@@F@E@D 12,A(5),6,$CFS(','),12,A(6),WJ )@@G@@12,$CFS(' '))) +@@@@[@K@@@E^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AC2 -[ @5 C?WK )@@G@@A0?^-#C1N @$ )$ C?AC2 -[ @6 C?AC2 )=CTAES*^8)^@$ C( C)+@@@@@@ @E@D WL )@@G@@ ER PRTCN$ +@@@@[@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)E[ME-#WM )@@G@@D0=^@)+@@@@@@#@E@D $END +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)WN )@@G@@+@@@@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@^@E@DP $PROC *1 WO )@@G@@+@@@@[@A@@@EE@)^@)^@)^@)^@)^-KELJCS)^@)^@) K1^@)+@@@@@@ @E@DIO$* $NWP )@@G@@AME 'IO$' +@@@@[@B@@@EDDJ^)%^@)^@)^@)^-ICDHC*)^@)^@)^9DD8=^8)^@)WQ )@@G@@+@@@@@@ @E@DIOI$* $NAME 'IOI$' +@@@@[@B@@@EDDJDC= K)^@)^@)^-IWR )@@G@@CDHC*)^@)^@)^9DD9D^)$^@)+@@@@@@ @E@DIOW$* $NAME 'IOW$' +@@@@[WS )@@G@@@B@@@EDDJE8= K)^@)^@)^-ICDHC*)^@)^@)^9DD9R^)$^@)+@@@@@@ @E@DIOWI$* $NWT )@@G@@AME 'IOWI$' +@@@@[@B@@@EDDJE9D^)%^@)^@)^-ICDHC*)^@)^@)^9DD9RDC=^8)WU )@@G@@+@@@@@@ @E@DIOXI$* $NAME 'IOXI$' +@@@@[@B@@@EDDJF[D^)%^@)^@)^-IWV )@@G@@CDHC*)^@)^@)^9DD9SDC=^8)+@@@@@@ @E@DIOARB$* $NAME 'IOARB$' +@@@@[WW )@@G@@@B@@@EDDJCDMCK= K)^@)^-ICDHC*)^@)^@)^9DD9[EL]^)$+@@@@@@ @E@DIOAXI$* $NWX )@@G@@AME 'IOAXI$' +@@@@[@B@@@EDDJCDSDC= K)^@)^-ICDHC*)^@)^@)^9DD9[F[D^)$WY )@@G@@+@@@@@@ @E@DIO$P* $NAME *'IO$' +@@@@[@B@@@EDDJ^-K K)^@)^@)^-IWZ )@@G@@CDHC*)^@)^@) K$DDJ^)$^@)+@@@@@@ @E@DIOI$P* $NAME *'IOI$' +@@@@[XA )@@G@@@B@@@EDDJDC=E@%^@)^@)^-ICDHC*)^@)^@) K$DDJDC=^8)+@@@@@@ @E@DIOW$P* $NXB )@@G@@AME *'IOW$' +@@@@[@B@@@EDDJE8=E@%^@)^@)^-ICDHC*)^@)^@) K$DDJE8=^8)XC )@@G@@+@@@@@@ @E@DIOWI$P* $NAME *'IOWI$' +@@@@[@B@@@EDDJE9D^-K K)^@)^-IXD )@@G@@CDHC*)^@)^@) K$DDJE9D^)$+@@@@@@ @E@DIOXI$P* $NAME *'IOXI$' +@@@@[XE )@@G@@@B@@@EDDJF[D^-K K)^@)^-ICDHC*)^@)^@) K$DDJF[D^)$+@@@@@@ @E@DIOARB$P* $NXF )@@G@@AME *'IOARB$' +@@@@[@C@@@EDDJCDMCK=E@%^@)^-ICDHC*)^@)^@) K$DDJCDMCK=XG )@@G@@^8)^@)+@@@@@@ @E@DIOAXI$P* $NAME *'IOAXI$' +@@@@[@C@@@EDDJCDSDC=E@%XH )@@G@@^@)^-ICDHC*)^@)^@) K$DDJCDSDC=^8)^@)+@@@@@@D@E@D $DO P(1)XI )@@G@@>0 , LA 12,+(EQUF$ P(1),1,2) +@@@@[@H@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)XJ )@@G@@E@*AC(B00^@?^[GCC)AC2 ): [ EDPC0=^[K @1 C?AC?AK(+@@@@@@ @E@DWAIT$* $NXK )@@G@@AME 'WAIT$' +@@@@[@B@@@EE9[DDO^)%^@)^@)^-ICDHC*)^@)^@)^9RCDDE)=^8)XL )@@G@@+@@@@@@D@E@D $DO (P(0,0)='WAIT$')**(P(1)>0) , ; +@@@@[XM )@@G@@@H@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@) [K @0 )0 C.^9RCDDE)=^8( K% [K @1 C"XN )@@G@@A@(^@?^@;^@)+@@@@@@A@E@D TP 3+(EQUF$ P(1),1)+@@@@[@D@@@EXO )@@G@@^@)^@)^@)^@)^@)E-K^@)^@)^@)^@)AS: [ EDPC0=^[K @1 C?AC(+@@@@@@ @E@D XP )@@G@@ ER [P(0,0)] +@@@@[@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)FTK @0XQ )@@G@@ )0 DX+@@@@@@#@E@D $END +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)XR )@@G@@+@@@@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@^@E@DP $PROC 0,1 XS )@@G@@+@@@@[@A@@@EE@)^@)^@)^@)^@)^-KELJCS)^@)^@)A@?AC)+@@@@@@ @E@DWANY$* $NXT )@@G@@AME 'WANY$' +@@@@[@B@@@EE9[D1T^)%^@)^@)^-ICDHC*)^@)^@)^9RCDIFC=^8)XU )@@G@@+@@@@@@ @E@DUNLCK$* $NAME 'UNLCK$' +@@@@[@B@@@EE(ID-#DS= K)^@)^-IXV )@@G@@CDHC*)^@)^@)^9PD1GCTF^)$+@@@@@@ @E@D ER [P(0,0)] +@@@@[XW )@@G@@@B@@@E^@)^@)^@)^@)^@)C(M^@)^@)^@)^@)FTK @0 )0 DX+@@@@@@#@E@D $EXX )@@G@@ND +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^^@)+@@@@@@[@E@D . +@@@@[@[@@@EXY )@@G@@^@,^@)+@@@@@@^@E@DP $PROC *4 +@@@@[@A@@@EE@)^@)^@)^@)^@)^-KXZ )@@G@@ELJCS)^@)^@) K4^@)+@@@@@@^@E@DIO$PKT* $NAME 0 +@@@@[@A@@@EDDJ^-KYA )@@G@@DTO K)^@)^-ICDHC*)^@)^@)A@)^@)+@@@@@@ @E@D LJSF$2 P(1,1) YB )@@G@@+@@@@[@B@@@E^@)^@)^@)^@)^@)D-EETA^)2^@)^@)E@*AC?AC(^@)+@@@@@@F@E@D YC )@@G@@ $GFORM 12,0,6,P(1,3),18,P(1,2),6,0,6,P(0,1),6,0,18,0 +@@@@[@L@@@EYD )@@G@@^@)^@)^@)^@)^@)^-BC1JELH^@)^@)AC2 )0 )6 -K @1 )3 C?AC8 -K @1 )2 C?A0?A@?YE )@@G@@A0?E@*A@?AC( )6 )0 )1B@?A@)^@)+@@@@@@ @E@DG $EQU P(2,3) YF )@@G@@+@@@@[@B@@@EC8)^@)^@)^@)^@)^- EDP^@)^@)^@)E@*AK?AS(^@)+@@@@@@A@E@D YG )@@G@@ $DO G='D' ,G $EQU 2 +@@@@[@D@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)YH )@@G@@C8.^9^^8) -B^@=C(LE*)AK)+@@@@@@A@E@D $DO G='N' ,G $EQU 1 YI )@@G@@+@@@@[@D@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)C8.^9I^8) -B^@=C(LE*)AC)+@@@@@YJ )@@G@@@C@E@D $DO (G='DN')++(G='ND') ,G $EQU 3+@@@@[@G@@@E^@)^@)YK )@@G@@^@)^@)^@)^-^D8)^@)^@)^@) [BB*$C-I^8( S: [BB*$D1^^8(^@?C8)^- EDP^@3+@@@@@YL )@@G@@@E@E@D $DO P(2)>0 , $GFORM 2,G,16,P(2,1),18,P(2,2) +@@@@[YM )@@G@@@J@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)E@*AK(B00^@?^@=C9AD9MD*)AK?C8?AC6 -KYN )@@G@@ @2 )1 C?AC8 -K @2 )2 C)+@@@@@@ @E@D $IF P+P(3)>5 +@@@@[YO )@@G@@@B@@@E^@)^@)^@)^@)^@)^-DC0)^@)^@)^@)E@:E@*AS(B05+@@@@@@G@E@D $DYP )@@G@@O P(3)>0 , $GFORM 12,P(3,2),24,P(3,1),36,P(4,1) +@@@@[@L@@@EYQ )@@G@@^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)^[K @3 C"A@) ))^-BC1JELH^@)AC2 -K @3 )2 C?YR )@@G@@AK4 -K @3 )1 C?AS6 -K @4 )1 C)+@@@@@@#@E@D $ELSE +@@@@[@^@@@EYS )@@G@@^@)^@)^@)^@)^@)^- D-NC*)+@@@@@@E@E@D $DO P(3)>0 , $GFORM YT )@@G@@ 12,P(3,2),24,P(3,1) +@@@@[@I@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)E@*AS(YU )@@G@@B00^@?^@=C9AD9MD*)^@1AK?E@*AS?AK( )2A)?E@*AS?AC(+@@@@@@#@E@D $EYV )@@G@@NDF +@@@@[@^@@@E^@)^@)^@)^@)^@)^- D1^C0)+@@@@@@D@E@D $DO YW )@@G@@ (P(3)>1)**(P(4)>0) ,X $EQU 08 +@@@@[@H@@@E^@)^@)^@)^@)^@)^-^D8)^@)YX )@@G@@^@)^@) [K @3 C"AC( K% [K @4 C"A@(^@?F@)^- EDP^@0B@)^@)+@@@@@@A@E@D YY )@@G@@ $DO P(4)>0 , + 0 +@@@@[@C@@@E^@)^@)^@)^@)^@)^-^D8)^@)^@)^@)YZ )@@G@@E@*A)(B00^@?^@:^@0+@@@@@@#@E@D $END +@@@@[@^@@@E^@)^@)^@)^@)ZA )@@G@@^@)^- D1^^@)+@@@@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@^@E@DP $PZB )@@G@@ROC 8,1 +@@@@[@A@@@EE@)^@)^@)^@)^@)^-KELJCS)^@)^@)B@?AC)+@@@@@@^@E@DZC )@@G@@SM$PKT* $NAME 0 +@@@@[@A@@@EETH^-KDTO K)^@)^-ICDHC*)^@)^@)A@)^@)ZD )@@G@@+@@@@@@[@E@D . +@@@@[@[@@@E^@,^@)+@@@@@@B@E@DSM('DENSITY','HIGH') ZE )@@G@@ $EQU 3*/34 +@@@@[@E@@@EETH @$C- D1NDDOFC$ )$D[DC9C^8(^@)^@)^@)^- ZF )@@G@@EDP^@)^@)AS% 83A))+@@@@@@B@E@DSM('DENSITY','MEDIUM') $EQU 2*/34 ZG )@@G@@+@@@@[@E@@@EETH @$C- D1NDDOFC$ )$D( C-DE(H^8(^@)^@)^- EDP^@)^@)AK% 83A))ZH )@@G@@+@@@@@@B@E@DSM('DENSITY','LOW') $EQU 1*/34 +@@@@[@E@@@EETH @$ZI )@@G@@C- D1NDDOFC$ )$D-JE8$ C)^@)^@)^@)^- EDP^@)^@)AC% 83A))+@@@@@@B@E@DSM('PAZJ )@@G@@RITY','EVEN') $EQU 2*/32 +@@@@[@E@@@EETH @$E[[ELDE-T^8?^9 E1 ZK )@@G@@D0$ C)^@)^@)^@)^- EDP^@)^@)AK% 83AK)+@@@@@@B@E@DSM('PARITY','ODD') ZL )@@G@@ $EQU 1*/32 +@@@@[@E@@@EETH @$E[[ELDE-T^8?^9JC-^^8(^@)^@)^@)^@)^- ZM )@@G@@EDP^@)^@)AC% 83AK)+@@@@@@B@E@DSM('BCD','ON') $EQU 1*/30 ZN )@@G@@+@@@@[@E@@@EETH @$CL#C)$ )$D9I^8(^@)^@)^@)^@)^@)^@)^- EDP^@)^@)AC% 83A@)ZO )@@G@@+@@@@@@B@E@DSM('BCD','OFF') $EQU 2*/30 +@@@@[@E@@@EETH @$ZP )@@G@@CL#C)$ )$D9AC0$ C)^@)^@)^@)^@)^@)^- EDP^@)^@)AK% 83A@)+@@@@@@B@E@DSM('NOZQ )@@G@@ISE',1) $EQU 1*/28 +@@@@[@E@@@EETH @$D1JDDNC*$ )1 C)^@)ZR )@@G@@(A@@[[C(IETDE-DFL[E-DD9I ))GT\H13HD=G(2BK)@C@[[[^@)^@)^@)I-2G(-I))G1\IK)ZS )@@G@@GD?H->IL$HD<^[=HD3G(-IT>@G@[[[^@)^@)^@)I(3G(=^[7H[>H0)H(\IL>^[IL6ZT )@@G@@GD4HD6G*)H(>GD3I(2G*)G1-HD?^@)@D@[[[^@)^@)^@)HD$G8)GL?H9I9>IK)HD$G*)GL(H1=HD,G8)IT(I->IS)GD6ZV )@@G@@GD(H--GL?G*)@H@[[[^@)^@)^@)I[-I-(G(,I))G(6G(,I-5GD?H-9^[*GD3^[?G(3IS)GD?ZW )@@G@@H->IL$HD<^[3JD!I[4H9!^@)@@@[[[@G@[[[^@)^@)^@)DD,^[HC(OD[JC))C1JEK)C- ET ZX )@@G@@D1NDDODDUCDODDJD0?^[IK'^@)@J@[[[^@)^@)^@)I[-I-(G(,I))HD,HL>GT4ZY )@@G@@G(=^[7HD4H@)IT!GD?H))GD!H95H14^[0I(2HD&HD>G))GD?H->IL$G(,^@)@G@[[[^@)^@)ZZ )@@G@@^@)G92GD=I(-H-?JC)HD,GT2G(-IT>^[=H93G*)I(,I-(H))H(-HD,I->H1-H1HT?JC!H92 (7G(>HT?JC)AB )@@G@@@I@[[[^@)^@)^@)G92GD=I(-H))HD,GT2G(-IT>^[(H0)GD?H->IL$G(,^[=H93G*)I-\^[!AC )@@G@@GD(H14G(,GD,GT>^@)@I@[[[^@)^@)^@)H(-HD,I->H1-H1^[>I1>IL9^@2 *8AD )@@G@@^[7G(>HT3^[&H92^[3G(6G(2GD?^[9G(-IL3@H@[[[^@)^@)^@)H-(G1>I-(H(>^[!GD(H14AE )@@G@@G(,GD,GT>^[=H93G*)G1\IK)IT>I1>IL>^[-H-?G(2G99^@)@@@[[[@J@[[[^@)^@)^@)DD,AF )@@G@@^[IE(METDD1B^[DD1OC(ME1 D1ODDJD0)C1JEK)C- ET D1NDDODDUCDODDJD0?^[IK'@C@[[[^@)^@)^@)IL(IT:^[\G0)GD,GD0H[9H--GT4HD<^[3H[\GT:@C@[[[^@)^@)AH )@@G@@^@)H[-I1>^[-G-2G(,GD?HD,^[-I1-HD?GD+H->^@)@D@[[[^@)^@)^@)IL>H(-HD,^[(H0)AI )@@G@@G-2^[\G1&HDH-?HD,G8\HD4(A@@[[GT*HD,G8!H92 (2G(=AK )@@G@@H1>IT3^[,H92H(-H))@G@[[[^@)^@)^@)IL>G-5GT>^[=H93GD$G*)GD&I->IK)IT(G9,HD&AL )@@G@@HDGDH1-H1GT4HD\H0)AM )@@G@@H(-JC)GL>^[$HD6G(,^[-I))H[\H(>@H@[[[^@)^@)^@)GT-I(4HD\I(3^[3G(?G(^[4H[>IL-I[9^[^@)@G@[[[^@)^@)^@)GT?H93G*)H9+IT>AO )@@G@@IL6GD4HD\H0)G(-GT*^[4HD!G*)G-\IT>^[(H1GD3G(=@I@[[[^@)^@)^@)G9(I1>^[(AP )@@G@@H1GD3G(=^[=H93G*)H9,H-9^[5H1=G(2^[!G(=HDG12HD$G(2GD4G*)GD?H->IL$G(,^@)@ @[[[^@)^@)^@)I(3G*)I-+^[3JD2AR )@@G@@HD,G9>@G@[[[^@)^@)^@)IL>GDH-9^[7H[>H0)I(3HD,G8)H1>AS )@@G@@I8)I1(GD?^@)@G@[[[^@)^@)^@)IL>GDH-9^[-G14G(2^[-^[!AT )@@G@@HD3IT>G))G-\IT>^@)@H@[[[^@)^@)^@)IL>GDH-9^[-G14G(2AU )@@G@@^[0IL>I1(H95IS)IL>GDIK'@A@[[[^@)^@)^@)G(8AW )@@G@@I[?GD(H0)I[2H9GT4G(=^[+G(,G(&AX )@@G@@HD4^@)@H@[[[^@)^@)^@)GD?H->IL$G(,^[!I(3I))GL>^[(H1%G(G))G1\IK)G(8I->AY )@@G@@H1=G(=^[4HD!G*)^@)@H@[[[^@)^@)^@)HD,G(&G1>GT4HD6G*)HD&^[7G(>HT?JC)HD,HL>AZ )@@G@@GT4HD\H0)H1\I))IL>GT>HD6G(=^@)@B@[[[^@)^@)^@)IL>G12HD$G(2GD4G*)GD?H->IL$BA )@@G@@G(,^@)@ @[[[^@)^@)^@)IT(G->^[>G1&G(I[\IL4^[2G(=BB )@@G@@^[-IL>GC)G92G(-I->IK)I-*GD,^[,HDH))HD,^[BC )@@G@@I[\IL4^[2G(=^[-IL>GC)G92(B@@[[G(-I->IK)I-*GD,^[1I(-IL4G(2^[(H0)GD=I(?I))BD )@@G@@@F@[[[^@)^@)^@)IT(G->^[>G1&G(H-?HD,G8\HD4GT*HD,G8!H92 (2G(=H1>IT3^[,H92BF )@@G@@H(-H))@ @[[[^@)^@)^@)IL>I[\IL4^[*HD6G*)^@)@A@[[[^@)^@)^@)IL>I[\IL4^[&GD(BG )@@G@@H14H1>IT3^@)@A@[[[^@)^@)^@)IL>I[\IL4^[7H[>G('HD,G8)^@)@C@[[[^@)^@)^@)IT>BH )@@G@@IL(H95IS)IL>GD^[?H97G(2G(=BI )@@G@@^[-G14G(2^[3G(6G(2G*)IL>GDGDG-(GD4G*)I-2G(-I-!G(,I))BK )@@G@@H9&^[-H1-I[*JD?GD8HD3^@)@E@[[[^@)^@)^@)HT>G(0^[-G-2G(,GD?HD,^[-I1-HD?GD+BL )@@G@@H->^[-I))H[\H(>^@)@F@[[[^@)^@)^@)G9(I1>^[-G-2G(,GD?HD,^[3I--I))G1\IK)GD,BM )@@G@@GD0H[9H--J[(IS)^@)@D@[[[^@)^@)^@)GT-H-?^[0GD2GD!G(=HD<^[&H92^[-H1-I[*JD?BN )@@G@@GD8HD3@E@[[[^@)^@)^@)I->GDGT\G9,HD4HD\H0)H9&^[-H1-I[*JD?GD8HD3^@)BO )@@G@@@D@[[[^@)^@)^@)IL>I[\IL4^[3HD$H1(G1(GT-H14^[2G(-GT4HD\H0)^@)@F@[[[^@)^@)BP )@@G@@^@)IL>I[\IL4^[0IL\H-\H1$G(= (\IK!I9\IL3G(,HD,G8)IL>GDI1>IK)G9(I1>^[(H1%G(^[-H-\H1>^@)@G@[[[^@)^@)^@)H(-BR )@@G@@HD,I->H1-H1GT4HD\H0)H(-JC)GL>^[$HD6G(,^[(H0)H[\H(>@C@[[[^@)^@)BS )@@G@@^@)G-\I(+H-> (GT:^[6HD-H))^0)G-\IT-G9>@G@[[[^@)^@)^@)I[2H90G(2^[3I(+BT )@@G@@GT5I--H1>H95IS)HD,HL>GT4HD\H0)I->GT*H1(ID5G*)^@)@@@[[[@F@[[[^@)A8,^[#CDMBU )@@G@@C*)C1JEK)E-CC*)E[[E-DC(IE))E9DE-C^[PELODD#CDMDD[ 0)^@)@@@[[[@[@[[[^@)^@)BV )@@G@@(B@@[[^@)DD,^[PELODD#CDMDD[ ))GT\H13HD=G(2BK)^@)@E@[[[^@)^@)^@)I-9I[>^[(BW )@@G@@^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GDGT4HD,G8)BX )@@G@@IT:HD,@#@[[[^@)^@)^@)G1?GD2G*)@C@[[[^@)^@)^@)I9*G(-H))^0)G1?GD2G*)G1\IL!BY )@@G@@GD4HD\H0)^@)@A@[[[^@)^@)^@)GD?IT\^[G))H[(I1>^@)@C@[[[^@)^@)^@)HD$BZ )@@G@@G*)^0)H(-IT4^[GDH0)GDG))GL9^[3G(6G(2G*)HD4GT*HD,G8)^@)@B@[[[^@)^@)^@)IL>G)!H92 (7H[(I->^[7CB )@@G@@H[>GD?IS)^@)@@@[[[@C@[[[^@)^@)^@)DD,^[[D1BDDJC(^C(HCC?^[IK'^@)CC )@@G@@@B@[[[^@)^@)^@)IT(H((H--IK)I-\^[5IL4HDJ[4G(,G))I-\^[3I(+GT5I--H1>H95IS)I-(IT3I(>@B@[[[^@)^@)^@)IT7G(?H-(CE )@@G@@H1$^[?GD3I-3^[?H9,G9>IK)@ @[[[^@)^@)^@)H->IT3^[(I-^[+I(2H1(H1$^[0GD(H0)@@@[[[@F@[[[^@)^@)^@)DD,^[ E-DD9GD9BFC)D9ACG )@@G@@^[PELODD#CDMDD[ ))GT\H13HD=G(2BK)^@)@A@[[[^@)^@)^@)GD?H->IL$G(,^[>J[0H93CH )@@G@@I(2G*)@E@[[[^@)^@)^@)I-9I[>^[(^[*JD0G(2IT>H13HD4HD6HD4JC)IL>IT0H9,IT>^@)CI )@@G@@@C@[[[^@)^@)^@)IT\H(>^[,H9, (4JD0G*)HC)IL>IT0H9,IT>^@)@A@[[[^@)^@)^@)G(!CJ )@@G@@H94HD\H1-H))IT4IL>IT3^@)@#@[[[^@)^@)^@)H[>GD4^@)@#@[[[^@)^@)^@)GT\H-=^@)CK )@@G@@@#@[[[^@)^@)^@)I-2GD5H(-@^@[[[^@)^@)^@)I[2G(3IT5IL>^@)@A@[[[^@)^@)^@)G->CL )@@G@@IL!GD4H9$IL-I[*HD3H*)^@)@^@[[[^@)^@)^@)HD,G1>GT4HD\H0)@^@[[[^@)^@)^@)H1>CM )@@G@@H90H--IT!^@)@^@[[[^@)^@)^@)H(>G-(GT-I-(H9,@#@[[[^@)^@)^@)G1\H9=^@)@^@[[[CN )@@G@@^@)^@)^@)IT5H1?HD$H[4^@)@#@[[[^@)^@)^@)GL?H9\G))(#@@[[I-2GD,IT&I(3HD\H0)CO )@@G@@@@@[[[@F@[[[^@)^@)^@)DD,^[[ETNC(NETHC(IE))D9A^[PELODD#CDMDD[ ))GT\H13HD=CP )@@G@@G(2BK)@#@[[[^@)^@)^@)I9*G(-H))@^@[[[^@)^@)^@)HD4GT*HD,G8)^@)@H@[[[^@)^@)CQ )@@G@@^@)IL-HD3G(=^[7H[>GD?^[3I(2IL\I(,G->G))GL9^[>IL9I-*G(!GD4H95IS)G1?GD2G*)CR )@@G@@@^@[[[^@)^@)^@)I[2I(2HD4I(3^@)@D@[[[^@)^@)^@)H[(IT4H92JC)H9&^[-H-?G(2G9>CS )@@G@@H0)G(8I[\IT5IL>^@)@E@[[[^@)^@)^@)H[(IT4H92JC)H9&^[(H1&G(CT )@@G@@H90H--IT!^@)@B@[[[^@)^@)^@)H(-JC)GL>^[3G(?G0!H-(H((I-(H1$^@)@D@[[[^@)^@)CU )@@G@@^@)H(-JC)I[2H9$IL>IT3^[4H8)GD,GD0H[9H--J[(IS)^@)@E@[[[^@)^@)^@)H(-JC)I[2CV )@@G@@H9$IL>IT3^[4H8)H--IL9H1$G(-H))G(=G(!GC)^@)@@@[[[@H@[[[^@)^@)^@)DD,^[IE(MCW )@@G@@ETDD1B^[^DD[C9ID9NDDN^[AD9M^[PELODD#CDMDD[ ))GT\H13HD=G(2BK)@B@[[[^@)^@)CX )@@G@@^@)GD?I->IL-I-(H9,^[(H0)GT\H(&H92I))@E@[[[^@)^@)^@)I[\I->H14HD-H))HD!I[-CY )@@G@@HD2G(=^[3HT(H0)HD,I->G92HD4JC)@@@[[[@J@[[[^@)^@)^@)DD,^[MC(GCDOC(^^[IE(MCZ )@@G@@ETDD1B^[^DD[C9ID9NDDN^[AD9M^[PELODD#CDMDD[ ))GT\H13HD=G(2BK)@I@[[[^@)^@)DA )@@G@@^@)I[\I->H14HD-H))HD,G(&G1>GT4HD6G*)GD(IL7GD9^[GD2GD,GT> 9-H1-I[*JD?DB )@@G@@GD8HD3@I@[[[^@)^@)^@)I[\I->H14HD-H))G->GT2G(-IT>G))I-(IT3I(>^[0G(2G15IT(DC )@@G@@H9, 9-H1-I[*JD?GD8HD3^@)@@@[[[@K@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)CDGE- EL[DD )@@G@@E-DD9I^[DD0)CTJD(AD9ME))C1JEK)E(ME-DCT[ELDCC?^[IK'@^@[[[^@)^@)DE )@@G@@^@)H1\^[0GD(H0)^@)@^@[[[^@)^@)^@)H1\^[(I-H1G('HD,G8)^@)DH )@@G@@@A@[[[^@)^@)^@)GD+IT>H1H14^[-HD2DI )@@G@@I9-JC)@#@[[[^@)^@)^@)G(5I[,G(-@@@[[[@L@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)DDHDJ )@@G@@E[[DDMC(^^[NDTDD0)DDIE- C9MDDOFC)C1JEK)E(ME-DCT[ELDCC?^[IK'^@)DK )@@G@@@ @[[[^@)^@)^@)H1\^[\I[>H0)GD2G(-^@)@B@[[[^@)^@)^@)GD+IT>H14^[G->H(-@@@[[[@M@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)E[JE- D1ODD[D))C- CTMDM )@@G@@C([ET C))E-DETNE( ^[KC(MC1PETDD9I^[AD9M^[PELODD#CDMDD[ ))^@)@^@[[[^@)^@)DN )@@G@@^@)GT\H13HD=G(2BK)@A@[[[^@)^@)^@)H1\IL!GD?^[6HD4GD?^[3HD$H13@A@[[[^@)^@)DO )@@G@@^@)H1\^[IK'@B@[[[^@)^@)^@)I-2G(-I))I(,G->IL?JD(H1$^[@D@[[[^@)^@)^@)IL>DR )@@G@@H(\I1>^[-H-?G(2G9>H0)HD&^[0H93IT(GL?G*)^@)@ @[[[^@)^@)^@)GT\H9?^[H16HD2H9,H(>DT )@@G@@H14^@)@@@[[[@M@[[[^@)^@)^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)DDIC(AC1 CTODDQDU )@@G@@C*)CDDELRCDT^[#D- CDMCDICT ^[AD9M^[PELODD#CDMDD[ ))^@)@^@[[[^@)^@)^@)GT\DV )@@G@@H13HD=G(2BK)@G@[[[^@)^@)^@)GD3IT>IT3^[&H92^[3HD$H0)H9&^[?GD2JD,G9>GD?^[(DW )@@G@@H16H9?I1>H(>H14^@)@B@[[[^@)^@)^@)GD3IT>IT3^[-HD2I9-JC)I[-I->H1I[\IL4^[2G(3I[(IL-I-\IL9^[=HD3I-2G(3IS)^@)@G@[[[^@)^@)^@)HT>DY )@@G@@G(0^[>H(>IL$G(,GT9^[-HD2I9-JC)G(1I((I[!G(,I))H9,^[*GD,G))^@)@[@[[[^@)^@)DZ )@@G@@(D@@[[^@)IL>I[\IL4^[3I-2HD=H92 9*H9-IL3G(,G(3IS\I9*G(>JL(H1$@G@[[[^@)^@)EA )@@G@@^@)IL>I[\IL4^[3I9>H-?HD,G8)H9&^[!H95I-* 94H9,G95G*!H92 (5I15H--^@)@C@[[[EB )@@G@@^@)^@)^@)I->GDGC)@B@[[[^@)^@)^@)H((I-4^[H0$IS)H[-H1=IS)@H@[[[^@)^@)^@)GT\I1>IK)GD2G(-^[4H8)I[2G(6G(,I))ED )@@G@@GT*HD?G-2G(,^[&IL\H*)IT^[\I[>H0)IT\IL>IS)^@)@@@[[[@O@[[[^@)^@)^@)DD,^[DD1OC(ME1 D1ODDJEF )@@G@@D0)C1JEK)C- CTMC([ET C))E-DETNE( ^[KC(MC1PETDD9I^[AD9M^[PELODD#CDMDD[ ))EG )@@G@@GT\H13HD=G(2BK)^@)@B@[[[^@)^@)^@)GD3IT>IT3^[&H92^[-H1-I[*JD?GD8HD3@B@[[[EH )@@G@@^@)^@)^@)I-2G(-I))GD,GD0H[9H--J[(IS)IT4GD4@E@[[[^@)^@)^@)GD3IT>IT3^[&H92EI )@@G@@^[3JD!I[4H9!IS)H9&^[-H1-I[*JD?GD8HD3@@@[[[@H@[[[^@)^@)^@)DD,^[^ELPC8)D([EJ )@@G@@D1[C9 D( D1O^[AD9M^[PELODD#CDMDD[ ))GT\H13HD=G(2BK)^@)@ @[[[^@)^@)^@)GD,EK )@@G@@I-(H[(IT4GD!HD,G*)@D@[[[^@)^@)^@)H[(IT4GD!HD,G*)IL>GT>I[4H92^[-H14GD$H9,EL )@@G@@HD3I))@ @[[[^@)^@)^@)I-2GD,ID5HD?HD'G(2^@)@E@[[[^@)^@)^@)G(0HD,G(0H[2HD,EM )@@G@@G*)G1\IK)IT>I1>IL>^[2G(-GT4HD\H0)^@)@ @[[[^@)^@)^@)GT\IL4HDIL\HD=EN )@@G@@@I@[[[^@)^@)^@)GD,I-(H[(IT4GD!HD,G*)^0)I-2GD,ID5HD?HD'G(2^[!GD9^[EO )@@G@@^[=IL\I93HD,G(3IS)@J@[[[^@)^@)^@)I->GDG--I-(I1>^[>G1&G( 94IL-H11ES )@@G@@I((H-(JL>IK)@I@[[[^@)^@)^@)GD6H9(G))H[9I[,H94HD 94IL-H11I((H-(JL>IK)^@)@J@[[[^@)^@)^@)GD6H9(G))GD,I-(GD,J[(G(4JC)EU )@@G@@G-2I($^[7HD4H@)GD,I-(H[(IT4GD!HD,G*\I-2GD,ID5HD?HD'G(2@@@[[[@H@[[[^@)^@)EV )@@G@@^@)DD,^[KCDODD D1O^[OC([CTCDDIC8)C1JEK)E(ME-DCT[ELDCC?^[IK'^@)EW )@@G@@@C@[[[^@)^@)^@)G(8I[?GD(H0)GT-I(3G*)^0)I-2G(-I-!G(,I))@B@[[[^@)^@)^@)H(>EX )@@G@@G-(GT-I-(H9,^[4G(-GT*HD,G8)^@)@I@[[[^@)^@)^@)GD6H9(G))G-2HD6HD,G8)GD&I->EY )@@G@@IK)GD,I-(H[(IT4GD!HD,G*!H92 (4IL-H11I((H-(JL>IK)@C@[[[^@)^@)^@)GD6H9(G))EZ )@@G@@I-2HD$G9>IL(H1$^[&GDIL$G(,@ @[[[FA )@@G@@^@)^@)^@)GT\H9?^[GC)^@)@F@[[[^@)^@)^@)IL5GK)GD2G(-^[$G(,I-?FC )@@G@@JC)I9(I-*^[!H9(IT4^[7GD3H[GD4^[!GD9^[(H1FD )@@G@@GD3G*)HD4GT*HD,G8)@G@[[[^@)^@)^@)IL>I[\IL4^[=HD&G1(GT5H-4JC)GL2G(-I-*HD,FE )@@G@@G8)HD!H(>G-(GD4G(?JC)^@)@D@[[[^@)^@)^@)IL>I[\IL4^[*H9-IL3G(,G(3IS)HD!H(>FF )@@G@@G-(GD4G(?JC)@E@[[[^@)^@)^@)IL>I[\IL4^[\IL-H))IT7G(?H-(H1$^[(H(!G(=HD-I->FG )@@G@@H-9^@)@G@[[[^@)^@)^@)IL>I[\IL4^[&GD(H14H1>IT3 (\IK!G-(JL'HD,G(3IS)HD!H(>FH )@@G@@G-(GD4G(?JC)@@@[[[@F@[[[^@)^@)^@)DD,^[CC(MC(^DDOCDMFC)CDIC9DD9 C- D([ ))FI )@@G@@GT\H13HD=G(2BK)^@)@C@[[[^@)^@)^@)H1\H0!GD?H->IL$HD<^[-H1$HD\G(=G(!GC)^@)FJ )@@G@@@A@[[[^@)^@)^@)GD5I-\IT\H(-H))G-\H((H1-H14@C@[[[^@)^@)^@)GD?I[*GC)G9?H9+FK )@@G@@I(?HD,^[=G(&HDH1GT2G(-IT>G))GT\H(0H->H(>H14^[?FL )@@G@@G(6G(?@^@[[[^@)^@)^@)G9(^[3JD!I[4H9!@C@[[[^@)^@)^@)IL(IT:^[\G0)H--IL9H1$FM )@@G@@G(-H))G(=G(!GC)^@)@A@[[[^@)^@)^@)I-2G(-I))I9(I-*^[=GD,GD'H9?@A@[[[^@)^@)FN )@@G@@^@)GD!HD,H9@@@[[[@F@[[[^@)B@,^[AD9JC))DDIE-JD- EL[D1#C*)CDIC))DDOFP )@@G@@ES)C(ODDJD-JC9DC(N 0)^@)@@@[[[@G@[[[^@)^@)^@)DD,^[#CDPET ^[JC0)C1JD9^^[DFQ )@@G@@D1OD9GC(MCDICT ))GT\H13HD=G(2BK)^@)@C@[[[^@)^@)^@)I-9I[>^[(^[*JD0G(2IT>FR )@@G@@H13HD4HD6HD4JC)^@)@ @[[[^@)^@)^@)G1\H9=^[-H-?G(2G99^@)@A@[[[^@)^@)^@)G(,FS )@@G@@JL9H(>^[=G(&HDH1H-(GD<^[=HD3G(-IT>@B@[[[^@)^@)FT )@@G@@^@)G9-H-?^[+H--G-=G(2^[=HD3G(-IT>^@)@^@[[[^@)^@)^@)G-(GD+G(4G(3^@)@A@[[[FU )@@G@@^@)^@)^@)GT9IT4HD<^[&HD+IL\IT(IS)^@)@^@[[[^@)^@)^@)GL-GT4G(2HD-^@)@#@[[[FV )@@G@@^@)^@)^@)I1(IL5IS)@#@[[[^@)^@)^@)G15H1$I(3@ @[[[^@)^@)^@)G1\H9=^[0H9(IT\FW )@@G@@H1(H1$@C@[[[^@)^@)^@)I-9I[>^@2^[*JD0G(2IT>H13HD4HD6HD4JC)^@)@C@[[[^@)^@)FX )@@G@@^@)I-9I[>^@3^[*JD0G(2IT>H13HD4HD6HD4JC)^@)@C@[[[^@)^@)^@)I-9I[>^@4^[*JD0FY )@@G@@G(2IT>H13HD4HD6HD4JC)^@)@A@[[[^@)^@)^@)I-\J[(H0)HD,G9>IT4HD\H0)^@)@@@[[[FZ )@@G@@@N@[[[^@)BC,^[AD9JC))DDIE-JD- EL[D1#C*)C1MD9H^[AD9JC))CDGD- ELBFC)CDIC))GA )@@G@@D-DETO^[AD9JC-N^[#D9HD(JD1GFC)CDNETJCTDCDOC(^^@)@K@[[[^[RDDOD@)CDGD- ELBGB )@@G@@FC)CDIC))C- ET#ELDCL ^[KCDODD D1O^[OC([CTCDDIC8)C1JEK)C1JD9^^[[D-GC(MC9DGC )@@G@@C(N 0)@@@[[[@C@[[[^@)^@)^@)DD,^[AD9JC))CDGD- ELBFC?^[IK'@@@[[[GD )@@G@@(G@@[[^@)^@)^@)I-9I[>^[(^[*JD0G(2IT>H13HD4HD6HD4JC)IL>IT0H9,IT>^[4H8)G1\GE )@@G@@H9=^@)@F@[[[^@)^@)^@)G-(G1&G(2G(,I-(GD4G*)G12H9!^[&H9\G))HD,I-\H->IL-H1IK'@#@[[[^@)^@)^@)I[>GD,I(4@^@[[[^@)^@)^@)G($G8)I9*HD4G*)@^@[[[^@)^@)GH )@@G@@^@)GT*H9GD&H9\G))^@)@#@[[[^@)^@)^@)H15I))^@)@#@[[[^@)^@)GJ )@@G@@^@)H->G95H(>@#@[[[^@)^@)^@)I9*G(-I))@^@[[[^@)^@)^@)IT\JD+G(-H0)^@)@#@[[[GK )@@G@@^@)^@)^@)GT\IL,^@)@#@[[[^@)^@)^@)I[\IL:^@)@^@[[[^@)^@)^@)GT*HDH0)^@)GL )@@G@@@#@[[[^@)^@)^@)I-\H(-I-\@ @[[[^@)^@)^@)GT(I-2I(3^[&IL5HD4^@)@@@[[[@I@[[[GM )@@G@@^@)^@)^@)DD,^[^DD[C9ID9NE-DCS)D( CDNE(MC*)C1JEK)C1JD9^^[[D-GC(MC9T ))GT\GN )@@G@@H13HD=G(2BK)@#@[[[^@)^@)^@)IL-IT4^@)@F@[[[^@)^@)^@)IL-IT4^[,H94^[6G(2JC)GO )@@G@@GD^[(H0)G1\H9=^[-H-?G(2G99@^@[[[^@)^@)^@)IT:HD,^[4G(3I))@H@[[[GP )@@G@@^@)^@)^@)IT:HD,^[4G(3I-(H1$^[?G(3IS)GD^[&H92^[&H9\G))GD?H->IL$GQ )@@G@@G(,^@)@I@[[[^@)^@)^@)I[-I-(G(,I))H(-JC)GL>^[2G(-GT4HD,G8)I-\^[&H9\G))GL2GR )@@G@@G(-HT=H97H0)I[2H9=I(H1(GS)G-(G(4^@)@G@[[[GT )@@G@@^@)^@)^@)G92GD=I(-H-?JC)GD=G))G1\H9=^[5H14HD?^[2G(-GT4HD\H0)H9+IT>IL6G(=GU )@@G@@@D@[[[^@)^@)^@)G1\H9=^[2G*!GT*GD?H->H1$G*)I-\^[6G(2HD&JC)^@)@@@[[[@C@[[[GV )@@G@@^@)^@)^@)DD,^[[ETNC(NETHC(IE))D9A^[AD9JC))CDGD- (^@@[[ELBFC?^[GW )@@G@@IK'^@)@G@[[[^@)^@)^@)G-(G1&G(2G(,I-(GD4G*)G12H9!^[3HD!I[?G*)G1\H9=^[(H14GX )@@G@@H9?G(2GD,GT>@E@[[[^@)^@)^@)I-9I[>^[(^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GDI))H92G9-H0)GD&GZ )@@G@@G1>GT4G(=^@)@#@[[[^@)^@)^@)GD3I-*H(-@A@[[[^@)^@)^@)GD?H->IL$HD<^[2H[(H1(HA )@@G@@I-(IS)@A@[[[^@)^@)^@)GD4H90HD<^[=G(2H(-I-(I-(IS)@^@[[[^@)^@)^@)I(2I-(GT-HB )@@G@@IL(GC)@^@[[[^@)^@)^@)GD,G9(H9>G->H(-@ @[[[^@)^@)^@)GD,GD0H[9H--J[(IS)^@)HC )@@G@@@A@[[[^@)^@)^@)H--IL9H1$G(-H))G(=G(!GC)^@)@B@[[[^@)^@)^@)IL>IT0HD2GD4H92HD )@@G@@JC)G-(IT4IL>IT3^@)@#@[[[^@)^@)^@)H1-I(3G(-@^@[[[^@)^@)^@)I1\H((I-(H1$^@)HE )@@G@@@^@[[[^@)^@)^@)G-(GD2IL*G(-^@)@A@[[[^@)^@)^@)GD+G-\H((H1-H))GT2GD!I@)^@)HF )@@G@@@@@[[[@I@[[[^@)^@)^@)DD,^[IE(METDD1B^[^DD[C9ID9NDDN^[AD9M^[AD9JC))CDGD- HG )@@G@@ELBFC?^[IK'^@)@C@[[[^@)^@)^@)GD?I->IL-I-(H9,^[(H0)H15I-2HD4HD\HH )@@G@@H0)^@)@F@[[[^@)^@)^@)H15I-2HD4HD\H0)H->IT3^[4H[-H0)GL\G-9^[2G(1I((IL>H(>HI )@@G@@H14^@)@B@[[[^@)^@)^@)GD?I->IL-I-(H9,^[(H0)GT\H(&H92I))@@@[[[@K@[[[^@)^@)HJ )@@G@@^@)DD,^[MC(GCDOC(^^[IE(METDD1B^[^DD[C9ID9NDDN^[AD9M^[AD9JC))CDGD- ELBFC?HK )@@G@@^[IK'^@)@G@[[[^@)^@)^@)I[\I->H14HD-H))GD?I->IL-I-(H9,^[(H0)GL\HL )@@G@@I9>H))G(?HD!HD,GD4HD\H0)@I@[[[^@)^@)^@)I[\I->H14HD-H))HD,G(&G1>GT4HD6G*)HM )@@G@@GD(IL7GD9^[GD2GD,GT> (-H1-I[*JD?GD8HD3@I@[[[^@)^@)^@)I[\I->H14HD-H))HN )@@G@@G->GT2G(-IT>G))I-(IT3I(>^[0G(2G15IT(H9, (-H1-I[*JD?GD8HD3^@)@@@[[[@^@[[[HO )@@G@@^@)^@)^@)DD,^[^C(NDDMC(^(D@@[[^[JE(OCTJD( ^[AD9M^[AD9JC))CDGD- ELBFC?^[IK'@A@[[[^@)^@)^@)IT9H(0I-\H*)IL>IT\H-5I-(H9,@A@[[[^@)^@)^@)H1\HQ )@@G@@^[GT5IL2G(,HR )@@G@@GT>^@)@@@[[[@M@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)CDGE- EL[E-DD9I^[DD0)D1PE-MHS )@@G@@DDODDJD0)C1JEK)C1JD9^^[[D-GC(MC9T ))GT\H13HD=G(2BK)^@)@G@[[[^@)^@)^@)H15HT )@@G@@I-2HD4HD\H0)GD=G(1I(-I->^[&H92^[+H9=JC)IL>ID5HD2G(!G(,I))^@)@ @[[[^@)^@)HU )@@G@@^@)IT4GD+H->^[7G((G9*I))@D@[[[^@)^@)^@)IT>IL5H*)I[2H94G((H0)HD,^[,H92H(-HV )@@G@@H))IL-H1$G*)@D@[[[^@)^@)^@)G(?G(^[&IL\H*)G->H[9G-2GD4HD\H0)@@@[[[@L@[[[^@)^@)^@)DD,HX )@@G@@^[BD9[D))C1JEK)CDGE- EL[E-DD9I^[DD0)CTJD(AD9ME))C1JEK)C1JD9^^[[D-GC(MC9THY )@@G@@ ))GT\H13HD=G(2BK)@^@[[[^@)^@)^@)H1\^[,GD5IT>GC)@C@[[[^@)^@)^@)H1\^[-GL=HZ )@@G@@H9!HD,GD?^[GC)^@)@A@[[[^@)^@)^@)H1\IL!GD?^[6HD4GD?^[3HD$H13@@@[[[@N@[[[ID )@@G@@^@)^@)^@)DD,^[BD9[D))C1JEK)C- CTMC([ET C))CDDELRCDT^[#D- CDMCDICT ([D1[IE )@@G@@E[CFDGCDSDDN^[AD9M^[AD9JC))CDGD- ELBFC?^@)@^@[[[^@)^@)^@)GT\H13HD=G(2BK)IF )@@G@@@A@[[[^@)^@)^@)GD+IT>H1H1G('HD,G8)^@)@ @[[[^@)^@)^@)I[-I->H14^[-HD2I9-JC)@]@[[[^@)^@)^@)G(5IH )@@G@@([@@[[I[*G(-@@@[[[@H@[[[^@)^@)^@)DD,^[^ELPC8)D([D1[C9 D( D1O^[AD9M^[AD9JII )@@G@@C))CDGD- ELBFC?^[IK'@E@[[[^@)^@)^@)H(>G-(GT-I-(H9,^[4H8)G->GT2IJ )@@G@@G(-IT>^[3JD!I[4H9!IS)^@)@ @[[[^@)^@)^@)GD,I-(H[(IT4GD!HD,G*)@^@[[[^@)^@)IK )@@G@@^@)GD,I-(G(!G(4HD<@ @[[[^@)^@)^@)GD,I-(G-(GD2IL*G(-H))@D@[[[^@)^@)^@)G(0IL )@@G@@HD,G(0H[2HD,G*)G1\IK)GD,GD0H[9H--J[(IS)^@)@@@[[[@O@[[[^@)^@)^@)DD,^[DD1OIM )@@G@@C(ME1 D1ODDJD0)C1JEK)CDGE- EL[E-DD9I^[DD0)D1PE-MDDODDJD0)C1JEK)C1JD9^^[[IN )@@G@@D-GC(MC9T ))GT\H13HD=G(2BK)^@)@F@[[[^@)^@)^@)H15I-2HD4HD\H0)H->IT3^[4H[-IO )@@G@@H0)GL\G-9^[2G(1I((IL>H(>H14^@)@D@[[[^@)^@)^@)GD6H9(G))H9&G1>H1=HD,G8)G1\IP )@@G@@H9= (-H-?G(2G9>H0)@F@[[[^@)^@)^@)GD3IT>IT3^[&H92^[*HD=G->H0)IT\I(2GT>^[\IQ )@@G@@G0)GD?H->IL$G(,^@)@D@[[[^@)^@)^@)IL>GD=^[0GD^[?GD+G(?^[HD,G8)H1>GD2^[-H-?G(2G9>H0)HD&^[6G(2JC)IS )@@G@@GD?H->IL$HD<@A@[[[^@)^@)^@)GD?H->IL$JC)G->I->GT4HD\H0)@A@[[[^@)^@)^@)G(?IT )@@G@@HD!HD,GD4HD\H0)G-(G(4^@)@D@[[[^@)^@)^@)IT4GD2I))I9(I-*^[*JD0H9-H-?G(2G9>IU )@@G@@H1(GS)G1\H9=@G@[[[^@)^@)^@)G92GD=I(-H-?JC)GD=G))G1\H9=^[5H14HD?^[2G(-GT4IV )@@G@@HD\H0)H9+IT>IL6G(=@ @[[[^@)^@)^@)GD,I-(H[(IT4GD!HD,G*)@@@[[[@N@[[[^@)^@)IW )@@G@@^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)CDGE- EL[E-DD9I^[DD0)CTJD(AD9ME))C1JEK)IX )@@G@@C1JD9^^[[D-GC(MC9T ))GT\H13HD=G(2BK)@B@[[[^@)^@)^@)I-2G(-I))IT9H(0I-\H(-IY )@@G@@I-(GT-H-?JC)@^@[[[^@)^@)^@)GD,I-(G(!G(4HD<@@@[[[@F@[[[^@)^@)^@)DD,^[DD1OIZ )@@G@@C(ME1 D1ODDJD0)C1JEK)CDGE- EL[E-DD9I^[DD0)CLJE9 (C@@[[D))C(GDDHDDICDODDJJA )@@G@@D0)C1JEK)C1JD9^^[[D-GC(MC9T ))@^@[[[^@)^@)^@)GT\H13HD=G(2BK)@B@[[[^@)^@)JB )@@G@@^@)G(?HD!HD,GD4G*)HT,H97H0)GT-I(3G*)@C@[[[^@)^@)^@)GD,I-(G-(GD2IL*G(-H))JC )@@G@@H(>G-(GT-I-(H9,^@)@@@[[[@M@[[[^@)^@)^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)DDIJD )@@G@@C(AC1 CTODDQC*)CDDELRCDT^[#D- CDMCDICT ^[AD9M^[AD9JC))CDGD- ELBFC?@^@[[[JE )@@G@@^@)^@)^@)GT\H13HD=G(2BK)@G@[[[^@)^@)^@)GD3IT>IT3^[&H92^[3HD$H0)H9&^[?GD2JF )@@G@@JD,G9>GD?^[(H16H9?I1>H(>H14^@)@B@[[[^@)^@)^@)GD3IT>IT3^[-HD2I9-JC)I[-I->JG )@@G@@H1I[\IL4^[2G(3I[(IL-I-\IL9^[=HD3I-2G(3IS)^@)@D@[[[JH )@@G@@^@)^@)^@)IL>I[\IL4^[3I-2HD=H92 (\IK!H[\GD2IT>H1>IT3^@)@A@[[[^@)^@)^@)IL>JI )@@G@@I[\IL4^[7H[>G('HD,G8)^@)@E@[[[^@)^@)^@)IL>I[\IL4^[3I9>H-?HD,G8)H9&^[!H95JJ )@@G@@I-* 94H9,G95G*)^@)@@@[[[@M@[[[^@)^@)^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)C- JK )@@G@@CTMC([ET C))E-DETNE( ^[KC(MC1PETDD9I^[AD9M^[AD9JC))CDGD- ELBFC?^@)@^@[[[JL )@@G@@^@)^@)^@)GT\H13HD=G(2BK)@E@[[[^@)^@)^@)GD3IT>IT3^[&H92^[3JD!I[4H9!^[\G0)JM )@@G@@GD,GD0H[9H--J[(IS)@B@[[[^@)^@)^@)I-2G(-I))GD,GD0H[9H--J[(IS)IT4GD4@@@[[[JN )@@G@@@I@[[[^@)^@)^@)DD,^[KCDODD D1O^[OC([CTCDDIC8)C1JEK)C1JD9^^[[D-GC(MC9T ))JO )@@G@@GT\H13HD=G(2BK)^@)@E@[[[^@)^@)^@)G(?HD!HD,GD4G*)H9&G1>H1=HD,G8)G1\H9=^[&JP )@@G@@IL\H*)G-(G(4@F@[[[^@)^@)^@)GT*G(H0)^@)@D@[[[^@)^@)^@)IL>GD=^[0GD^[?GD+G(?^[GDGDJ[4IL(H13HD<^[-IT4H[!GC)@F@[[[JT )@@G@@^@)^@)^@)I[-I-(G(,I))I->GDGDGD^[(^[*JD0G(2IT>H13HD4HD6HD4JC)^@)@ @[[[^@)^@)^@)H((H-:^[-JZ )@@G@@H-?G(2G99^@)@B@[[[^@)^@)^@)H--GT4H93G*)HD,I-\H->IL-H1@A@[[[^@)^@)^@)G9-IT4IL\G(,I->IL\I[-KB )@@G@@I-*JC)@A@[[[^@)^@)^@)HD!H(-I-5IL>^[$HC)IT9IT4G(!@@@[[[@O@[[[^@1AC,^[HDDGKC )@@G@@DS)DDIE-JD- EL[D1#C*)C1MD9H^[HDDGDS)CDGD- ELBFC)CDIC))C- ET#ELDCL ^[#CDMKD )@@G@@C*)CDIC))E[[EL D1O^[OC([CTCDDIC8)^@)@D@[[[^[AD9M^[OD[ ^[#D[DD-^^[RDDOD@)KE )@@G@@CC)D(DD-F^[[D-GC(MC9T 0)@@@[[[@G@[[[^@)^@)^@)DD,^[[ETNC(NETHC(IE))D9A^[HKF )@@G@@DDGDS)CDGD- ELBFC?^[IK'^@)@^@[[[^@)^@)^@)I1\H((I-(H1$^@)@#@[[[KG )@@G@@^@)^@)^@)H1-I(3G(-@^@[[[^@)^@)^@)G-(GD2IL*G(-^@)@#@[[[^@)^@)^@)GT\H-(GS)KH )@@G@@@F@[[[^@)^@)^@)G-(G1&G(2G(,I-(GD4G*)G12H9!^[!HD?HS)HD,I-\H->IL-H1^[(^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GDG))^@)KK )@@G@@@#@[[[^@)^@)^@)GD3I-*H(-@A@[[[^@)^@)^@)GD?H->IL$HD<^[2H[(H1(I-(IS)@@@[[[KL )@@G@@(A@@[[^@)^@)^@)GD4H90HD<^[=G(2H(-I-(I-(IS)@^@[[[^@)^@)^@)I(2I-(GT-IL(GC)KM )@@G@@@^@[[[^@)^@)^@)GD,G9(H9>G->H(-@ @[[[^@)^@)^@)GD,GD0H[9H--J[(IS)^@)@B@[[[KN )@@G@@^@)^@)^@)IL>IT0HD2GD4H92JC)G-(IT4IL>IT3^@)@A@[[[^@)^@)^@)GD+G-\H((H1-H))KO )@@G@@GT2GD!I@)^@)@E@[[[^@)^@)^@)IT9H(0I-\H(-I-(GS)I9(I-*^[!HD?HS)HD,G9>IT4HD\KP )@@G@@H0)^@)@@@[[[@I@[[[^@)^@)^@)DD,^[^DD[C9ID9NE-DCS)D( CDNE(MC*)C1JEK)D(DD-FKQ )@@G@@^[[D-GC(MC9T ))GT\H13HD=G(2BK)@^@[[[^@)^@)^@)IT:HD,^[4G(3I))@#@[[[^@)^@)KR )@@G@@^@)IL-IT4^@)@H@[[[^@)^@)^@)G-(IT-I[0G(-IL-H1H0)KS )@@G@@H((H-:^[>H-(H((H1-I->G))@@@[[[@I@[[[^@)^@)^@)DD,^[IE(METDD1B^[^DD[C9ID9NKT )@@G@@DDN^[AD9M^[HDDGDS)CDGD- ELBFC?^[IK'^@)@C@[[[^@)^@)^@)GD?I->IL-KU )@@G@@I-(H9,^[(H0)H15I-2HD4HD\H0)^@)@F@[[[^@)^@)^@)H15I-2HD4HD\H0)H->IT3^[4H[-KV )@@G@@H0)GL\G-9^[2G(1I((IL>H(>H14^@)@B@[[[^@)^@)^@)GD?I->IL-I-(H9,^[(H0)GT\H(&KW )@@G@@H92I))@E@[[[^@)^@)^@)GD?I->IL-I-(H9,^[(H0)GL\I9>H))G(?HD!HD,GD4HD\H0)^@)KX )@@G@@@@@[[[@M@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)CDGE- EL[E-DD9I^[DD0)D1PE-MDDODDJKY )@@G@@D0)C1JEK)D(DD-F^[[D-GC(MC9T ))GT\H13HD=G(2BK)^@)@G@[[[^@)^@)^@)H15I-2HD4KZ )@@G@@HD\H0)GD=G(1I(-I->^[&H92^[+H9=JC)IL>ID5HD2G(!G(,I))^@)@ @[[[^@)^@)^@)IT4LA )@@G@@GD+H->^[7G((G9*I))@B@[[[^@)^@)^@)G(?G(HD,^@)@C@[[[^@)^@)^@)H1\^[3JD!I[4H9!LC )@@G@@^[\G0)G->H[9G-2GD4HD\H0)@@@[[[@I@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)CDGE- EL[LD )@@G@@E-DD9I^[DD0)CLJE9 D))C(GDDHDDICDODDJD0)C1JEK)D(D(A@@[[D-F^[[D-GC(MC9T ))LE )@@G@@GT\H13HD=G(2BK)^@)@A@[[[^@)^@)^@)G12G(>^[&IL\H*)G-(GD2IL*G(-@J@[[[^@)^@)LF )@@G@@^@)H1\IL!GD?^[,I(!GL>IK)H9&^[3I-\H9?IS)I[>IK)G--JC)G1\IK)G->I1>H-\I[!G(,LG )@@G@@I--H))GD$G*)@@@[[[@L@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)CDGE- EL[E-DD9I^[DD0)LH )@@G@@CTJD(AD9ME))C1JEK)D(DD-F^[[D-GC(MC9T ))GT\H13HD=G(2BK)@A@[[[^@)^@)^@)GT*LI )@@G@@HD?G))H1\I))G15IT3JC)^@)@C@[[[^@)^@)^@)GD=I(?I))G->H1(G(3^[=HD3GT\H(&H92LJ )@@G@@I))^@)@A@[[[^@)^@)^@)G12G(>^[&IL\H*)H1-I(3G(-^@)@@@[[[@O@[[[^@)^@)^@)DD,LK )@@G@@^[DD1OC(ME1 D1ODDJD0)C1JEK)CDGE- EL[E-DD9I^[DD0)D1PE-MDDODDJD0)C1JEK)D(DLL )@@G@@D-F^[[D-GC(MC9T ))GT\H13HD=G(2BK)^@)@F@[[[^@)^@)^@)H15I-2HD4HD\H0)H->IT3LM )@@G@@^[4H[-H0)GL\G-9^[2G(1I((IL>H(>H14^@)@#@[[[^@)^@)^@)HC&H8)^@)@ @[[[^@)^@)LN )@@G@@^@)GT-H-\IL(GS)GT\I(,I))@ @[[[^@)^@)^@)IL\I(4HD,G*)I9>HD$H[4@A@[[[^@)^@)LO )@@G@@^@)GD6H9(G))GT\I8$IS)H((H-:^@)@E@[[[^@)^@)^@)GD3IT>IT3^[&H92^[*HD=G->H0)LP )@@G@@IT\I(2GT>^[\G0)H((H-:^@)@D@[[[^@)^@)^@)IL>GD=^[0GD^[?GD+G(?^[^[GD!G(2^[!GD9^[3LR )@@G@@I(+IT4HD4I(4G*)^@)@G@[[[^@)^@)^@)IT\JD+G(-H0!H92 (-H-4G(2H1-I->^[&H92H(5LS )@@G@@H--^[&H92^[(H1&GD,I))^@)@E@[[[^@)^@)^@)HD6^[4H[>IL-I[9^[&H92^[3G(6G(2G*)LT )@@G@@G1?I((G))H-\IT3^@)@E@[[[^@)^@)^@)G1(H1=^[-H-4G(2H1-I->^[3H95ILGD=^[0GD^[?GD+G(?^[^[GD!G(2^[!GD9^[3I(+IT4HD4I(4G*)^@)MC )@@G@@@G@[[[^@)^@)^@)IT\JD+G(-H0!H92 (-H-4G(2H1-I->^[&H92H(5H--^[&H92^[(H1&GD,MD )@@G@@I))^@)@G@[[[^@)^@)^@)GD?H->IL$JC)H(-JC)GL>^[4H8)IT>I1>IL-H))H((H-:^[H14IS)@F@[[[^@)^@)^@)H--GT4H93G*)H9,H-9^[\H1>^[^[\G0)H((H-:MF )@@G@@^[-H-?G(2G99@I@[[[^@)^@)^@)HD,HD4HD-H-?JC)GL5JC)H9,H-9^[-^[&G(7^[^[&H92H(5H--@F@[[[^@)^@)^@)GD3IT>IT3^[4H9?G(2GD,GT>^[4MH )@@G@@H8)GD?I->IL,GD4G*)G1\IL!I(?GC)@I@[[[^@)^@)^@)GT*HD?G-2G(,^[!GD9^[-H-3H8)MI )@@G@@GL>^[-H-?G(2G9(GS)I-\^[-H-4G(2H1-I->^[&H92H(5H--@J@[[[^@)^@)^@)G-(G1&HDH14HD&JC)H((H-:^[H14^[^[4H[-I))H--GT4H93G*)I(3G(=^[-IS)GC)G1(H-?G(2^[(ML )@@G@@H0)IT\H(>^[!G(=HDIK)H[9I[>IL-H-?G(2G9>H1(GS)G1\H9=^[&H92^[&HD2IT4^@9 *1AK)H(\H14H[3MO )@@G@@^[\G0)H-(G1>@D@[[[^@)^@)^@)I->GDH0)H9&I->H0)H95I-$MP )@@G@@(^@@[[IL\I8)H((H-:^[-H-?G(2G99@H@[[[^@)^@)^@)HD,GT2G(-IT>^[(H14GD:G*)H9&MQ )@@G@@^[,H9, (=GD(IL9^[G(:H-9^[7G((MR )@@G@@G9*I))@D@[[[^@)^@)^@)IL>I[\IL4^[3HD$H1(G1(GT-H14^[7G((G9*I))H-\IT3@D@[[[MS )@@G@@^@)^@)^@)IL>I[\IL4^[=G(*JD=IL-I-(H9,^[(H0)HD,G1-H14^@)@F@[[[^@)^@)^@)I[-MT )@@G@@I-(G(,I))I->GDJ[4IL(H13HD<^[-IT4H[!GC)@F@[[[^@)^@)^@)I[-MU )@@G@@I-(G(,I))I->GDGDMW )@@G@@GDIK'^@)@G@[[[^@)^@)^@)H(\IT4^[\G14G(,^[=I(>NC )@@G@@^[4H8)HD6^[>J[0H93I(2G*)I-\^[-H-?G(2G9>H0)@F@[[[^@)^@)^@)GD?H->IL$G(,^[!ND )@@G@@GD9^[+G*)HD,G9>IT4G(= (\IK!HD,H[-H->G))^@)@G@[[[^@)^@)^@)IT9IT4G(!HD<^[4NE )@@G@@JD0G*)HC)H[9I[>IL3G(,IT(I-(I1(I-9^[2G(-GT4HD\H0)@D@[[[^@)^@)^@)H(-IT3HD6NF )@@G@@G*)IT9IT4G(!HD<^[6GD3H9=HD?GD4HD\H0)@G@[[[^@)^@)^@)H(-IT3HD6G*)G1?I((G))NG )@@G@@IT*HD&I))I-\^[(H14G(2IT4HD4HD-H))IT0GDH--I-(I1>^@&NH )@@G@@^[-GT4I(-H))H[9I[\I1\H->H((GC)@]@[[[^@)^@)^@)I1-(^@@[[ITH1?JC)^@)@A@[[[^@)^@)^@)I[2H9$IL>IT3G(3^[2GD0HD=H-9@A@[[[NK )@@G@@^@)^@)^@)G1-I--H))HD&^[5H14IL>GD4G(=@@@[[[@F@[[[^@)^@)^@)DD,^[ E-DD9GD9BNL )@@G@@FC)D9A^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2BK)@C@[[[^@)^@)^@)GL?H9\G))I-2GD,NM )@@G@@IT&I(3HD\H0\I[2H9=I(G))G-9G*\GT\H14IL-IT4NN )@@G@@^[!G(=HD-^@)@^@[[[^@)^@)^@)GD?H->IL$G(,^@)@#@[[[^@)^@)^@)G-2I($^@)@#@[[[NO )@@G@@^@)^@)^@)IT>IL5H*)@D@[[[^@)^@)^@)I[>H1(GT(H-?HD,^[!H93I))GT\H(!H9,^[=IL5NP )@@G@@G8)^@)@^@[[[^@)^@)^@)GD,I-(GL(H94HD<@ @[[[^@)^@)^@)GT\H14IL-IT4^[!G(=HD-NQ )@@G@@@ @[[[^@)^@)^@)IL-G-(H90GD1I(>^[=JD>@E@[[[^@)^@)^@)I1-GTGT(NR )@@G@@GD?H-9^[>G9$^[G))^@)@F@[[[^@)^@)^@)G->IT>H13HD4HD'GD4HD\H0)IT*NS )@@G@@H94 9-H-?G(2G9>H0)G(8I-2GDGT4^[6G(,H9! 93I-(H1$NT )@@G@@@#@[[[^@)^@)^@)G1\H9=^@)@ @[[[^@)^@)^@)IT:HD,^[4G(3I-(H1$^@)@E@[[[^@)^@)NU )@@G@@^@)GD,JC)GD?H->IL$G(,^[!GD9^[^[-H1-I[*JD?GD8HD3@@@[[[@G@[[[^@)^@)NV )@@G@@^@)DD,^[[ETNC(NETHC(IE))D9A^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2BK)^@)@D@[[[NW )@@G@@^@)^@)^@)I1>IL9^[2G(IL$G(,^[>J[0H93I(2G*)@B@[[[^@)^@)^@)I(3NX )@@G@@I(-H-?JC)H9H0)G(8I[\IT5IL>^@)@E@[[[^@)^@)^@)IT9H(0I-\H*)H(-JC)I1-IL9^[7OA )@@G@@HD4H@)I--IL$G(4^[\IL$GD,(^@@[[^[!H93I))GD&G1>GT4G(=^@)@^@[[[^@)^@)^@)I9*OB )@@G@@G(>JL(H1$^@)@ @[[[^@)^@)^@)I--GT*JDIT0HD2GD4H92JC)G-(IT4IL>IT3^@)@^@[[[OD )@@G@@^@)^@)^@)IT4IL(G-\IK)^@)@^@[[[^@)^@)^@)GD2IL*JD4H[!HD-@A@[[[^@)^@)^@)H--OE )@@G@@IL9H1$G(-H))G(=G(!GC)^@)@ @[[[^@)^@)^@)H[9I[\I->H13HD\H0)^@)@B@[[[^@)^@)OF )@@G@@^@)GT(IL^@)@^@[[[^@)^@)^@)G-9IT0H1>GC)^@)@#@[[[OG )@@G@@^@)^@)^@)IL-H->^@)@ @[[[^@)^@)^@)GT-IL=HD-GS)GD2IL>IT4@A@[[[^@)^@)^@)IL>OH )@@G@@IT0HD2GD4H92JC)GD2IL>IT4@C@[[[^@)^@)^@)G1>G(?HD,G8)H9&^[(H(0G(,G-(H1$^[=OI )@@G@@H9\H*)@ @[[[^@)^@)^@)G-(GD0H[\IL>IT(IS)^@)@^@[[[^@)^@)^@)I9>GD:H1>IT3^@)OJ )@@G@@@D@[[[^@)^@)^@)IT>I1>IL>^[$G(,G(2GD?HD'G(=^[0IL5IL(I-5IS)^@)@^@[[[^@)^@)OK )@@G@@^@)G1?I(3H[(H1$^@)@A@[[[^@)^@)^@)G9>H1>IL-H-(JL>G))G(=G(!GC)@^@[[[^@)^@)OL )@@G@@^@)I(2I-(GT-IL(GC)@^@[[[^@)^@)^@)GD,G9(H9>G->H(-@^@[[[^@)^@)^@)H[\GD2IT>OM )@@G@@H1>IT3@#@[[[^@)^@)^@)GT\I($H@)@^@[[[^@)^@)^@)H92I-*H90H1>GC)@A@[[[^@)^@)ON )@@G@@^@)H(>H14GD?^[IL$HD<^[2H[(H1(I-(IS)@ @[[[^@)^@)^@)IT4H9!GDGT4HD6G*)GL2G(-I-*HD,G8)OS )@@G@@I[-I-4G(2H0)@D@[[[^@)^@)^@)HD,G(&G1>GT4HD6G*)GD(IL7GD9^[GD2GD,GT>^@)OT )@@G@@@C@[[[^@)^@)^@)G->GT2G(-IT>G))I-(IT3I(>^[0G(2G15IT(H9,@B@[[[^@)^@)^@)HD!OU )@@G@@I[-HD2G(=^[$GD3^[>J[IK'^@)@B@[[[^@)^@)^@)IL>IT0HD2GD4H92JC)IL-I->^@1AK!AK0@#@[[[^@)^@)OX )@@G@@^@)G(5I[,G(-@@@[[[@N@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)DDIC(AC1 CTODDQC*)CDDOY )@@G@@ELRCDT^[#D- CDMCDICT ^[AD9M^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2BK)^@)@A@[[[OZ )@@G@@^@)^@)^@)G12G(>^[&IL\H*)I9*G(>JL>IS)@A@[[[^@)^@)^@)G12G(>^[&IL\H*)IT4IL(PA )@@G@@G-\IK)@ @[[[^@)^@)^@)I[-I->H14^[-HD2I9-JC)@@@[[[@L@[[[^@)^@)^@)DD,^[BD9[PB )@@G@@D))C1JEK)DDHE[[DDMC(^^[BCDN^[ F[#D[[D1BC*)C1JEK)CDICDKD[TD-[F[DES?^[IK'^@)@A@[[[^@)^@)^@)H1\IL!GD?^[+H-\H9=^[$GD3G(3@A@[[[^@)^@)^@)GT?PD )@@G@@G(-IK)H-5H1$^[3H95H1=IS)@@@[[[@M@[[[^@)^@)^@)DD,^[BD9[D))C1JEK)C- CTMC([PE )@@G@@ET C))E-DETNE( ^[KC(MC1PETDD9I^[AD9M^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2BK)PF )@@G@@@A@[[[^@)^@)^@)H1\IL!GD?^[6HD4GD?^[3HD$H13@B@[[[^@)^@)^@)G12G(>^[&IL\H*)PG )@@G@@GD2IL*JD4H[!HD-^@)@@@[[[@L@[[[^@)^@)^@)DD,^[DD(HC(^DD[E- ^[IE(METDD1B^[DPH )@@G@@D1OC(ME1 D1ODDJD0)C1JEK)CDICDKD[TD-[F[DES?^[IK'^@)@A@[[[^@)^@)PI )@@G@@^@)H(>G-(GT-H))G(!G(2G9>H1GT\G9,HD4HD\H0)PJ )@@G@@^0)I-2G(-I-!G(,I))GT2I(PM )@@G@@^[,G(>G))G1\IK)I1>H14HD?GD4H92@D@[[[^@)^@)^@)IT5GT4HD\H0)HD&^[,I(!G(2H95PN )@@G@@IS)IT>GT2G(4HD\H13@C@[[[^@)^@)^@)I[2G(0GD2G*)G(4 (\IK!I-2GDI-5I@)PO )@@G@@@@@[[[@M@[[[^@)^@)^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)C- CTMC([ET C))E-DETNPP )@@G@@E( ^[KC(MC1PETDD9I^[AD9M^[[D1[E[CFDGCDSDDN ))^@)@^@[[[^@)^@)^@)GT\H13HD=PQ )@@G@@G(2BK)@#@[[[^@)^@)^@)HC&H8)^@)@ @[[[^@)^@)^@)GT0IK)GD3^[,G(>G->G))@D@[[[PR )@@G@@^@)^@)^@)GD=H((H1(IT4G(2^[(I0)G1?I((G))I9(G->^[\I[>H0)@ @[[[^@)^@)^@)H(\PS )@@G@@H1(I-\IK)G(:G8)^@)@C@[[[^@)^@)^@)IT4GD2I))H-2G9>^[$GD5G9>^[(I0)H-(H1>^@)PT )@@G@@@D@[[[^@)^@)^@)I1(I--H))IT(G9,IS)G(6G(2JC)AS!A*)H((H15I->IS)@^@[[[^@)^@)PU )@@G@@^@)IL-HD3G*)H->G93@ @[[[^@)^@)^@)H(-IT4^[4IL\I(3G(2IS)@@@[[[@N@[[[^@)^@)PV )@@G@@^@)DD,^[DD1OC(ME1 D1ODDJD0)C1JEK)DDHE[[DDMC(^^[BCDN^[ F[#D[[D1BC*)C1JEK)PW )@@G@@CDICDKD[TD-[F[DES?^[IK'^@)@ @[[[^@)^@)^@)H(\H1(I-\IK)GD+G8)^@)PX )@@G@@@B@[[[^@)^@)^@)I-2G(-I))I[5H-!H9,GD2JC)G(=G(!GC)@I@[[[^@)^@)^@)I[2H96HD=PY )@@G@@G*)IT5I[0H->H(>H14GD?^[\J[9G9>H0)GD4^@6 *1A@)H)\H((H0)GL9^[!GD3HS)@@@[[[PZ )@@G@@@G@[[[^@)^@)^@)DD,^[KEL E1 D1ODDJD0)D9A^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2QA )@@G@@BK)^@)@B@[[[^@)^@)^@)GD6H9(G))HT,H97H0)GD?H->IL$G(,^@)@E@[[[^@)^@)^@)I--QB )@@G@@HT>^[4H[\IL\I($H@)G-2I($^[-H-?G(2G99^[*HD3I-\IL9@I@[[[^@)^@)^@)GT*G(^[-I9-IL>^[4H[-I))GD?H->IL$JC)IL5H13^[(H0)G1-H((H-(G(3@^@[[[QE )@@G@@^@)^@)^@)GL>^[-H->IL4^[4( @@[[H8)GT2H93IS!IL>GDG-(GS!GD?G(2I))GL2GDIL5QG )@@G@@H*)HD,IT4G(-G))H9&^[-H1(H(-H))@I@[[[^@)^@)^@)I[2G(4IL>GD4H(>H14^[0IL\I-\QH )@@G@@GT\H))GL>G1\IL>^[-G-!HD,HD3I->IK)GD?H->IL$G(,^@)@D@[[[^@)^@)^@)IT:HD,^[4QI )@@G@@G(3I))A))I9:^[-G14G(2^[>I[(IT\G->^@)@A@[[[^@)^@)^@)HD=G(,I-(G19^[-H-?G(2QJ )@@G@@G9>H0)@A@[[[^@)^@)^@)G->IT>H13HD4HD'GD4HD\H0)^@)@@@[[[@H@[[[^@)^@)^@)DD,QK )@@G@@^[^ELPC8)D([D1[C9 D( D1O^[AD9M^[[D1[E[CFDGCDSDDN ))GT\H13HD=G(2BK)@^@[[[QL )@@G@@^@)^@)^@)IT4G(2H9(G))^@)@B@[[[^@)^@)^@)GL>H1-G-2JD?^@5A@!AC0A@)H($ 9(H*)QM )@@G@@@B@[[[^@)^@)^@)GL>H1-G-2JD?^@2A*!A*0^[!G8\HD6^@)@B@[[[^@)^@)^@)HD6^[-H((QN )@@G@@H1\I[*JD?H-(H0)GT*HD0^@)@B@[[[^@)^@)^@)HD,H[-H->G))GL2H9,GT*H9=HD?GD4H92QO )@@G@@@I@[[[^@)^@)^@)IT5GLI[(H1>I[*IL(H1>^[(G0)I[-I-(G(,I))H1\QP )@@G@@IL!H94G(,IT(I1>^@)@L@[[[^@)^@)^@)G(0HD,G(0H[2HD,G*)AS\AC0^[4H8)AC\ALH14IL-I-(H9,QS )@@G@@^[&H92^[H0)^@)@F@[[[^@)^@)^@)G(0HD,G(0H[2HD,G*)H(-JC)GL>^[$HD6QT )@@G@@G(,^[3I(+H-(H1$I(-H))^@)@H@[[[^@)^@)^@)G(0HD,G(0H[2HD,G*)H(-JC)GL>^[$HD6QU )@@G@@G(,^[6HD-^[>H1=H94IL-GT*G(-H))I-5GL>@I@[[[^@)^@)^@)HD6^[>I[(H1>I[*IL(H1>QV )@@G@@^[(G0)H[9I[\I->H13HD6G*!H92 (3G(6G(2G*)IT9H(0I-\H*)^@)@G@[[[^@)^@)^@)G(0QW )@@G@@HD,G(0H[2HD,G*)AC\AK)I-\^@1GT<^@1^[4H8)AC0^[4H[\I(3GD,G))HD6@[@[[[^@)^@)QX )@@G@@(G@@[[^@)H(-JC)IL>I[>GD4^[(I0)G(0HD,G(0H[2HD,G*)G(6G(2JC)A*!AK0^[!HD,I(4QY )@@G@@G(3^@)@G@[[[^@)^@)^@)HD6^[6GD3H90IL>IT3H92^[4H8)IT5I[0H92I))GL?H9\G))I[2QZ )@@G@@G(3IT5IL>^@)@D@[[[^@)^@)^@)IL-I[(G))HD6^[&H-5HD=^[2G(3I(3GT(I--I-(H9,^@)RA )@@G@@@A@[[[^@)^@)^@)HD6^[0H--IT!GC)G(8I[-H1=G(2@^@[[[^@)^@)^@)IT4G(2H9(G))^@)RB )@@G@@@@@[[[@I@[[[^@)^@)^@)DD,^[HC(^DD#CDG^[HCDICDBC(HC(IE))C1JEK)CDICDKD[TD-[RC )@@G@@F[DES?^[IK'^@)@^@[[[^@)^@)^@)HD,I-5GL-I-(H9,@^@[[[^@)^@)^@)I1>RD )@@G@@H14HD?GD4H92@H@[[[^@)^@)^@)G(!G(2G9>H1H93I-\H(9^[(G0)IT>I1>RE )@@G@@IL>^[-HD2I9-JC)G(=G(!GC)@I@[[[^@)^@)^@)G(!G(2G9>H1I1>IL>^[-HD2I9-JC)G(=G(!GC)^@)@B@[[[^@)^@)^@)I-2G(-I))I[5H-!RG )@@G@@H9,GD2JC)G(=G(!GC)@G@[[[^@)^@)^@)G9-IT4IL(GS)H--I1-G9>^[(G0)G-5G*)I-\^[(RH )@@G@@H1$G(3I->G))GD?H->IL$G(,@D@[[[^@)^@)^@)IL-I[(G))HD6^[&H-5HD=^[2G(3I(3GT(RI )@@G@@I--I-(H9,^@)@A@[[[^@)^@)^@)I-2G(-I))H[9I[\I->H13HD\H0)@ @[[[^@)^@)^@)I-2RJ )@@G@@G(-I))GDIK'@F@[[[^@)^@)^@)IL>GD3IT5IL>^[0GD4HD>RL )@@G@@H14^[=I(2HD,G8)GD,GD0H[9H--J[(IS)^@)@G@[[[^@)^@)^@)G15H-?JC)G(8I[?GD(H0)RM )@@G@@GD,GD0H[9H--J[(IS)^0)GT-I(3G*)H--I->IK)^@)@D@[[[^@)^@)^@)HD=G(,I-(G19^[^[-H-?G(2G9>H0)^@)@F@[[[^@)^@)^@)I->GD^[-H-?G(2G9>H0)@F@[[[^@)^@)^@)I--HT>^[\H1?JC)H(>G-(GT-I-(RP )@@G@@H9,^[-I[0IL\I1>G))GL9^[!G))^@)@]@[[[^@)^@)^@)GT-(A@@[[IL2JC)H-(IT4^[\G0)RQ )@@G@@GD?H->IL$G(,IS)^@)@D@[[[^@)^@)^@)I->GDG-(GS)GD?G(2I))GL2GDH14HD&HDIL$JC)H-(IT4@D@[[[^@)^@)^@)I->GDH(>IL$G(,RU )@@G@@GT9^[4IL>GD4H(>H14^[\G0)GD,GD0H[9H--J[(IS)@F@[[[^@)^@)^@)I[-I-(G(,I))I->RV )@@G@@GD^[*JD0H93G(,IT(I-(JL-I-(H9,@@@[[[@G@[[[^@)^@)^@)DD,^[KEL E1 D1ORX )@@G@@DDJD0)D9A^[DD1NC(#E))ETODDIC8?^[IK'^@)@C@[[[^@)^@)^@)GD6H9(G))RY )@@G@@GL>G*\I9-IT0^@&^[*H92H1>I))^@)@C@[[[^@)^@)^@)GD6H9(G))GD4I-2GDG(0^[&H9\G))GT\I1>IL>G))I9*G(,^[>GD4HD,G8)SA )@@G@@H95I-=H9\IL3@C@[[[^@)^@)^@)HT>G(0^[$GD2GL-G9>^[-IL>GC)GT?G(-H0)^@)@A@[[[SB )@@G@@^@)^@)^@)IT0IL-JC)HD,IT>GT4HDGT4^[2G(0G(?H--SC )@@G@@H14^@)@C@[[[^@)^@)^@)GD6H9(G))I[>IL&I(!G*)^0)H[-HD2^[3I[2GD9@B@[[[^@)^@)SD )@@G@@^@)GD6H9(G))IT5H14GD,^[?H94HD\H0)^@)@A@[[[^@)^@)^@)H1\^[\I[>H0)I-\G*)IT*SE )@@G@@H9>^@)@D@[[[^@)^@)^@)G-\^[,H94^[7GD?HS)H95I-3HD=G*)GL-IL>G1\H94^@)@B@[[[SF )@@G@@^@)^@)^@)GD6H9(G))GL2HD$H[4^[IS)^@)@C@[[[SH )@@G@@^@)^@)^@)I9>GD2^[$IL>G(, 94GD, 97H[(I-> 9:H[-HT(@B@[[[^@)^@)^@)HD,IT>GT4SI )@@G@@^[6G(,H9!^[=G(3G(,IT(I-((#@@[[JL-I-(H9,^[3H[\I))@@@[[[@I@[[[^@)^@)^@)DD,SJ )@@G@@^[KCDODD D1O^[OC([CTCDDIC8)C1JEK)CDICDKD[TD-[F[DES)DTDE)?^[IK'SK )@@G@@@I@[[[^@)^@)^@)HT(I))GT\H14GD(H13^[(I->H*)H1>GT>IT3GD2JC)I-\^[4IL>GD4^[-SL )@@G@@H1-I[*JD?GD8HD3^@)@C@[[[^@)^@)^@)H(=^[0IL>ITID5HD2G(=^@)SM )@@G@@@G@[[[^@)^@)^@)I(3G(=^[&H92^[0GD4HD>H14^[3G(,IT(I-(I1>^[4H8)HD,IT>GT4^[3SN )@@G@@I-(H1$@G@[[[^@)^@)^@)I(3G(=^[&H92^[0GD4HD>H14^[\H0)H[\H(>^[=G(3G(,IT(I-(SO )@@G@@JL-I-(H9,^@)@ @[[[^@)^@)^@)I->GDGDIK)^@)@E@[[[^@)^@)^@)G(-IL?JC)IL>GT\G9,HD4HD\H0)SQ )@@G@@H9&^[-H1-I[*JD?GD8HD3^@)@A@[[[^@)^@)^@)I[2H9!I[4^[4IL>GD4H(>H14^@)@F@[[[SR )@@G@@^@)^@)^@)GT-H-?^[0GD2GD!G(=HD<^[(G0)GD,JC)IT9H(0I-\H(3^[0IL>IT>H14@D@[[[SS )@@G@@^@)^@)^@)HD,HL>GT4^[0IL>G1(H-?G(=^[>I[(H1>I[*IL(H1>^@)@G@[[[^@)^@)^@)I->ST )@@G@@GD^@&^[0IL-GT4HDIL,HD,G8)G-\IT>@F@[[[^@)^@)^@)GD?GT\H[\H))HD,SV )@@G@@HL>GT4HD\H0)IT(I->^[(G0)I-(H(>^[-H-?H97IS)@B@[[[^@)^@)^@)IL>H(\I1>^[(H13SW )@@G@@G(IK)@I@[[[^@)^@)^@)I-(G*)I-\I(2H1(ID5G(4^[+G(4I9>G(,^[3I-(SX )@@G@@H1$^@&^[+H9=JC)HD&^[0H93IT(GL?G*)^@)@G@[[[^@)^@)^@)G-\^[,H94^[\GL?HD4G(2SY )@@G@@GD4G*)I[5H-3G*)I9(I-*^[4H95IL,HD1I(>I))^@)@A@[[[^@)^@)^@)HDGC)@F@[[[^@)^@)^@)GD0I[?JC)I[-IT4G*)H9&^[!G(-I))I->H1=G(2HD'G(2TA )@@G@@^[4H8)GD2G(-@D@[[[^@)^@)^@)GT*G(7^@&^[3I9-H-?H97^[-H14HD*HD3I--H((H1>^[4TB )@@G@@(]@@[[GD+H->I))^@)@I@[[[^@)^@)^@)I[>IL(H9=HDGT:^[>I[(H1>I[*TC )@@G@@IL(H1>^[&H92^[>J[0HD2GD4HD\H0)G--I->@E@[[[^@)^@)^@)HT>G(0^[:HD4^[-I1-HD?TD )@@G@@GD+H->^[-I))GD?H))I-(H(>IS)^@)@I@[[[^@)^@)^@)I[>IL(H9=HDGT:TE )@@G@@^[>I[(H1>I[*IL(H1>^[&H92^[=HD3GT\H-\IL-I-(H9,^@)@^@[[[^@)^@)^@)HT>G(0^[7TF )@@G@@GD2H*)@ @[[[^@)^@)^@)GD6H9(G))G(8G(2I-(H9,@H@[[[^@)^@)^@)AL,G))G-\IT>^[\TG )@@G@@G0)G(0HD,G(0H[2HD,G*)HD&^[,H8)IL>H-(G(&^[(H0)AC0^[!HD,@@@[[[@G@[[[^@1AS,TH )@@G@@^[KEL E1 D1ODDJD0)CDIC))E-MC([E-HC(IE))D9A^[^ELPC8)EL CD#E-DD9IES,@@@[[[TI )@@G@@@D@[[[^@)^@)^@)DD,^[^ELPC8)EL CD#E-DD9I ))GT\H13HD=G(2BK)^@)@C@[[[^@)^@)TJ )@@G@@^@)GD,JC)GD=I1>IL3G*)G-2I($^[2G(3I[\H13G*)@A@[[[^@)^@)^@)H(5H-4HD0H->^[IS)^@)@@@[[[@C@[[[^@)^@)^@)DD,^[^ELPC8)CDGD- ELBFC?^[IK'TL )@@G@@@ @[[[^@)^@)^@)G-2I($^[-H-?G(2G99^@)@I@[[[^@)^@)^@)G-2I($^[-H-?G(2G99^[(TM )@@G@@IS)I-9I[>^[(^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GD^@)@B@[[[^@)^@)TP )@@G@@^@)I[3JDH1(GS)IL>GD^[>G1&G(IL3G*)G-2I($ (=IL5G8)HD,I->IL-GT4HD\H0)@D@[[[^@)^@)TR )@@G@@^@)H1\H1(H(!I(,H9?H9$HD<^[-H1-I[*JD?GDTS )@@G@@IL-H1IK)G(&G1>GT4^[\H0)H1\IL!GD?^[=H93G*)@E@[[[^@)^@)^@)HD=TT )@@G@@HD\IT9H1GD^@2^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GD^@3^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GD^@4^[*JD0G(2IT>H13HD4HD6HD4JC)IL>GDIK'^@)@B@[[[^@)^@)^@)I[>H1(GT(H-?HD,^[!H93I))GT\H(!H9,UA )@@G@@@B@[[[^@)^@)^@)I[>H1(GT(H-?HD,^[=G(2HD6GD4HD6G*)@ @[[[^@)^@)^@)IT5H-&H9,UB )@@G@@GD!HD=G*)^@)@^@[[[^@)^@)^@)IT\H-9GT(H--I->@C@[[[^@)^@)^@)IT5H-&H9,JD?I(2UC )@@G@@G(-^[*JD0H9$H-9GT>H((GS)@A@[[[^@)^@)^@)I-*HD-JL(G->^[=HD5IL>I-(GS)@D@[[[UD )@@G@@^@)^@)^@)GT-IL+H9,HD<^[-H1*JD=IL-IT>^[(H1*HD+HD4H92^@)@^@[[[^@)^@)^@)HD,UE )@@G@@IT5H-(H0)^@)@^@[[[^@)^@)^@)H[\IL!H9,G*)^@)@A@[[[^@)^@)^@)G($G8!GL-IT>G))UF )@@G@@I1-GT@A@[[[^@)^@)^@)GD?H->IL$G(,^[>J[4IL-UG )@@G@@GT4^@)@@@[[[@G@[[[^@)^@)^@)DD,^[[ETNC(NETHC(IE))D9A^[^ELPC8)CDGD- ELBFC?UH )@@G@@^[IK'^@)@A@[[[^@)^@)^@)H[(IT4H92JC)H9&^[-H-?G(2G99@B@[[[^@)^@)UI )@@G@@^@)I[2HD\IK)G(8I[\IT5IL>^[4H8)G-2I($@I@[[[^@)^@)^@)I[2HD\IK)G(8I[\IT5IL>UJ )@@G@@^[4H8)IT(H((H--IK)G-2I($^@&^[H-(GT(I))IL>IT0H9,IT>@H@[[[^@)^@)UL )@@G@@^@)I1-IL(G(4JC)H9&^[4JD0G*)HC)H[9I[>IL3G(,IT(I-(I1(I-9^[2G(-GT4HD\H0)^@)UM )@@G@@@@@[[[@]@[[[^@)^@)^@)DD,(I@@[[^[#D-DD1DCT[D))CDNET ETND( D1O^[ADDIC-DD1BUN )@@G@@^[AD9M^[^ELPC8)CDGD- ELBFC?^[IK'@^@[[[^@)^@)^@)I(2I-(GT-IL(GC)UO )@@G@@@ @[[[^@)^@)^@)GD,GD0H[9H--J[(IS)^@)@^@[[[^@)^@)^@)GD,G9(H9>G->H(-@ @[[[UP )@@G@@^@)^@)^@)H[9I[\I->H13HD\H0)^@)@^@[[[^@)^@)^@)I9*G(>JL(H1$^@)@^@[[[^@)^@)UQ )@@G@@^@)H[>GD=GD^@)@#@[[[^@)^@)^@)H1-I(3G(-@^@[[[^@)^@)^@)I1\H((I-(H1$^@)UR )@@G@@@ @[[[^@)^@)^@)GL2H9,GT*H93I[-IT!^@)@A@[[[^@)^@)^@)GL?H9\G))G-(I[\IL>IT(US )@@G@@GC)^@)@B@[[[^@)^@)^@)G(=G(!GC)H9&^[-HD2^[0GD3IT-G9>^@)@^@[[[^@)^@)^@)GD2UT )@@G@@IL*JD4H[!HD-@A@[[[^@)^@)^@)GD?H->IL$HD<^[2H[(H1(I-(IS)@@@[[[@I@[[[^@)^@)UU )@@G@@^@)DD,^[IE(METDD1B^[^DD[C9ID9NDDN^[AD9M^[^ELPC8)CDGD- ELBFC?^[UV )@@G@@IK'^@)@J@[[[^@)^@)^@)HD,G(&G1>GT4HD6G*)GL2G(-I-*HD,G8)I[-I-4G(2H0)IL>H--UW )@@G@@I->G))I-\^[-H1-I[*JD?GD8HD3^@)@B@[[[^@)^@)^@)HD!I[-HD2G(=^[$GD3^[>J[GT4HD6G*)GD(IL7GD9^[GD2GD,GT>^[2G(?GD4UY )@@G@@G(=^[4H8)GD,GD0H[9H--J[(IS)^@)@I@[[[^@)^@)^@)G->GT2G(-IT>G))I-(IT3I(>^[0UZ )@@G@@G(2G15IT(H9,^[2G(?GD4G(=^[4H8)GD,GD0H[9H--J[(IS)@B@[[[^@)^@)^@)GD?I->IL-VA )@@G@@I-(H9,^[(H0)GT\H(&H92I))@@@[[[@I@[[[^@)^@)^@)DD,^[^DD[C9ID9NE-DCS)D( CDNVB )@@G@@E(MC*)C1JEK)C-ME(B^[[D-GC(MC9T ))GT\H13HD=G(2BK)@C@[[[^@)^@)^@)IL-IT4^[$VC )@@G@@G(,G(2GD?H-9^[,H94^[5IT>G15H))@G@[[[^@)^@)^@)G1>I8)G-2I($^[>J[4IL-GT4IS)VD )@@G@@GD6GD(H--GL?G*)G1\IK)IT:HD,^[4G(3I))@D@[[[^@)^@)^@)I[-I-IT4^[&H92VE )@@G@@^[4H90HDIK'@B@[[[^@)^@)^@)IL>IT\H-5VG )@@G@@I-(H9,^[\G0)IT9H(0I-\H*)@ @[[[^@)^@)^@)H1\^[2G(H1VJ )@@G@@GD3IT5IL>^[0GD4HD>H14^@)@D@[[[^@)^@)^@)HD,I->IL6G(,I-(H9,^[&H92^[-H1-I[*VK )@@G@@JD?GD8HD3^@)@E@[[[^@)^@)^@)HD,I->IL6G(,I-(H9,^[&H92^[-H-?G(2G9(GS)IL*HD,VL )@@G@@HD4HD3@C@[[[^@)^@)^@)HD,I->IL6G(,I-(H9,^[&H92^[-IT4H[!GC)^@)@C@[[[^@)^@)VM )@@G@@^@)HD,I->IL6G(,I-(H9,^[&H92^[5IL4HDH1(VO )@@G@@GT(H-?HD,^[2G(-GT4HD\H0)@@@[[[@I@[[[^@)^@)^@)DD,^[KCDODD D1O^[OC([CTCDDIVP )@@G@@C8)C1JEK)C-ME(B^[[D-GC(MC9T ))GT\H13HD=G(2BK)^@)@D@[[[^@)^@)^@)G(8I[?GD(VQ )@@G@@H0)G-2I($^[2G(-GT4HD\H0)GT-I(3G*)^@)@B@[[[^@)^@)^@)H(>G-(GS!GD?G(2I))GL2VR )@@G@@GDIL$JC)HD,^[7GD?H->I))@H@[[[VS )@@G@@^@)^@)^@)GD?G(2I))I[-I-(G(,I))I-\^[=IL5G8)I9*HDGD^[0IL\I1(G->IK)H9&^[=IL5VU )@@G@@G8)IL>GD^[\G0)H94GS)G-2VV )@@G@@I($^@)@D@[[[^@)^@)^@)IT0G(G-(GD4G*)I-2G(-I-!G(,I))H9&^[=IL5G8)IL>GDH[>H13HD6G*)I->GD<(B@@[[H[(H1$^[\H0)GD,JC)VY )@@G@@H1>I8)H(>G-(GT-I-(H9,^@)@@@[[[@G@[[[^@)^@)^@)DD,^[KEL E1 D1ODDJD0)D9A^[^VZ )@@G@@ELPC8)EL CD#E-DD9I ))GT\H13HD=G(2BK)@D@[[[^@)^@)^@)I-*H92H95G9*^[=IL5G8)WA )@@G@@IL>GD^[0GD4HD>H14^[=G(3GT2HD+G*)WB )@@G@@IL>GDIK)IL>GDWD )@@G@@GDG-(GT4^[-H1-I[*JD?GD8HD3^@)@I@[[[^@)^@)^@)I-9I[>^[(WE )@@G@@^[2G(-GT4HD\H0)IT4IL\H1$G(2^[7HD4H@)IL>I[>GD4G(=^[>J[0H93I(2G*)^@)@F@[[[WF )@@G@@^@)^@)^@)H-(IT4^[=IL5G8)GD?H->IL$JC)HD,^[G(4@H@[[[WG )@@G@@^@)^@)^@)GT*G(G1\IL>^[$HD6HD,G8)GD,JC)WH )@@G@@G-2I($@C@[[[^@)^@)^@)GL>^[-H->IL4^[4H8)GT2H93IS!IL>GD^[-H->IL4^[4H8)G-2I($^[-H-?G(2G99^[(H0)GD?H->IL$HD<^[0GD4HD>H14^@)WJ )@@G@@@H@[[[^@)^@)^@)H(\H1(I-\IK)GT?H93G(?JC)GD&I->IK)H1>I8)G-2I($^[-G-!HD,HD3WK )@@G@@I-2GD4HD\H0)@E@[[[^@)^@)^@)H[-I1>^[>H(>IL$G(,GT9^[>ID5HD0H(>H14^[-I1-HD?WL )@@G@@GD+H->@B@[[[^@)^@)^@)H(>G-(GS!GD?G(2I))GL2GDH1(GT(H-?HD,^[(IS)H[(G9*H-9^[-H14HD$G(,HD<@E@[[[WO )@@G@@^@)^@)^@)H[-I1>^[>H(>IL$G(,GT9^[>ID5HD0H(>H14^[-I1-HD?GD+H->@C@[[[^@)^@)WP )@@G@@^@)G->I--HD?G(=^[-H-?G(2G99^[*HD3I-\IL9^@)@C@[[[^@)^@)^@)GL>^[-H->IL4^[4WQ )@@G@@H8)GT2H93IS!IL>GDH1(GT(H-?HD,^[=G(2HD6WR )@@G@@GD4HD6G*)HD&^[0G(,HDIL$JC)@I@[[[^@)^@)^@)GT-I(4HD\H0)I9(WS )@@G@@I-*^[IL$JC)@E@[[[^@)^@)WT )@@G@@^@)I->H-?^[0GD4HD>H14^[2G(IL6G*)G1\IK)IL>GDIK)HD,HL>GT4HD\H0)^@)@I@[[[WV )@@G@@^@)^@)^@)HT>G(0^[0GD4HD>H14^[(H0)G-2^[\G1&HDIK'^@)@B@[[[^@)^@)^@)GD+H8)HD,XA )@@G@@GT\H(0GD4HD+HD?HD4JC)^@)@E@[[[^@)^@)^@)I-9I[>^[(HC)H[9I[>IL3G(,IT(I-(I1(XB )@@G@@I-9^[2G(-GT4HD\H0)@D@[[[^@)^@)^@)H((H1\IK)GD,I-(GL\G-9^[(H1G))I-\^[*JD0G(2I-\H1(GS)IT\XD )@@G@@H-5I-(H9,^@)@B@[[[^@)^@)^@)HD!I[2H90G(2^[+H-\H9=^[3I-\IL-G9>@H@[[[^@)^@)XE )@@G@@^@)HD,G15IT(H9,^[5H1=G(2^[0IL>IT3I(2G*)I-*IL\I($H@)IT!GD?H))H1>G(=H->^@)XF )@@G@@@C@[[[^@)^@)^@)H96G(2H[>GD4G(=^[+H-\H9=^[7GD2H(>IK)^@)@@@[[[@I@[[[^@)^@)XG )@@G@@^@)DD,^[[CTPE- ^[CC(HD9GFDODD#^[OEL[D1NC1PETDD9I^[MC([CTODDJD0?^[IK'@C@[[[^@)^@)^@)HD,I-2GD6GD3GT5H--IK)H[>H(\H-9IT(IS)^@)@F@[[[^@)^@)XI )@@G@@^@)H9IK)I-2GD,IT&I(3HD\H0)IT4GD2I->G))@[@[[[^@)^@)XJ )@@G@@(G@@[[^@)I-9I[>^[(HC)H[9I[>IL3G(,IT(I-(I1(I-9^[4IL-H13G15IT(H9,^[2G(-GT4XK )@@G@@HD\H0)@@@[[[@J@[[[^@)^@)^@)DD,^[^C(GCDTC(^^[CC(HD9GFDODD#^[OEL[D1NC1PETDXL )@@G@@D9I^[MC([CTODDJD0?^[IK'^@)@C@[[[^@)^@)^@)G(8I-2GD6GD3GT5H--IK)XM )@@G@@H[>H(\H-9IT(IS)^@)@A@[[[^@)^@)^@)H[>H(\H-9IT(IS)HD,^[2G(3^@)@F@[[[^@)^@)XN )@@G@@^@)H9GDH0)@B@[[[^@)^@)^@)GD,GD!H1>IT4HDI1>IK)@#@[[[^@)^@)^@)GD,G(!HD-@^@[[[^@)^@)^@)HL-I(,G-(XR )@@G@@GT>^@)@^@[[[^@)^@)^@)H(-H--HD3G*)^@)@B@[[[^@)^@)^@)I[\IT(I-(I1>^[IT4^@)@A@[[[^@)^@)^@)IL>H1-H))G1-HD?I(2G*)IL-IL>@ @[[[^@)^@)^@)IT>XT )@@G@@H-& (?HD!HD4HD,G8)@B@[[[^@)^@)^@)GT\H13G(2I1-I-(I1>^[4H[>IL-I[9^@)@B@[[[XU )@@G@@^@)^@)^@)I-2G(-I))IT9H(0I-\H(-I-(GT-H-?JC)@@@[[[@L@[[[^@1A*,^[OD[ ^[]D-JXV )@@G@@D9^^[KELJC-PCTOES)CDQCDDD-[CLGC*)C1JEK)CD^D(DD1DETOEL[E-DD9I^[OD8)E[[E-DXW )@@G@@C(IE-N 0)^@)@@@[[[@C@[[[^@)^@)^@)DD,^[RD[JD- ^[]D-JD9^ ))GT\H13HD=G(2BK)XX )@@G@@@D@[[[^@)^@)^@)GD?H))GL?H9\G))GT\H(0H9,G(,I))HD,GT?I(=G(=^@)@B@[[[^@)^@)XY )@@G@@^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->@F@[[[^@)^@)^@)I(3G*)IT4GD,G--IL=^[+XZ )@@G@@H-\H9=^[3G(4^[7HD4H@)AC7A@)G1(H-4G(2@I@[[[^@)^@)^@)I(3G(=^[(H0)GDH(\IL2H[-G9> (4IL-I(!GC)^0)G(8I->H13HD6G*)GL5IL,^@)@B@[[[^@)^@)^@)IL>YB )@@G@@IT4H92G*)GL?H9\G))I1\H-5H(>^@)@@@[[[@[@[[[^@)^@)(D@@[[^@)DD,^[AEL ETC^[RYC )@@G@@D[JD- ^[]D-JD9^ ))GT\H13HD=G(2BK)^@)@D@[[[^@)^@)^@)GL?H9\G))IT4H92G(=^[?YD )@@G@@G(3IS)I-*GD,^@2A))H[2^@)@B@[[[^@)^@)^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->YE )@@G@@@E@[[[^@)^@)^@)IT4GD,G--IL=^[+H-\H9=^[3G(4^[7HD4H@)AC7A@)G1(H-4G(2@B@[[[YF )@@G@@^@)^@)^@)G(8GT*GD,G9>^[4IL-H13G15IT(H9,^@)@^@[[[^@)^@)^@)H1>H9,GD4G*)^@)YG )@@G@@@F@[[[^@)^@)^@)I[-I-(G(,I))I9(I-*^[4G(,G->H1IL:GD?G(!HD-YH )@@G@@@@@[[[@F@[[[^@)^@)^@)DD,^[KCD#DT C))EL C))CLGD9JC))CT D-G ))GT\H13HD=G(2YI )@@G@@BK)^@)@C@[[[^@)^@)^@)IL>G))GT>H-?^[7HD4H[\I(4^[0H--IT!GC)^@)@B@[[[^@)^@)YJ )@@G@@^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->@A@[[[^@)^@)^@)I(3G*)I9(I-*^[(H1&GD,YK )@@G@@I))^@)@F@[[[^@)^@)^@)I(3G*)I9(I-*^[,H92H(\I1\H->H((GS)GD,G(!HD<^[0GD4HD>YL )@@G@@H14^@)@E@[[[^@)^@)^@)I(3G*)I9(I-*^[0GD4HD>H14^[-I))IL(IT:^[&H92^[IT3^[2HD3HS)H9&^[IL?H9-G))@E@[[[YN )@@G@@^@)^@)^@)H->IT3^[2HD3HS)H9&^[>H->GT4IL\H-9I->^[(H(+GD?GD,GT>@E@[[[^@)^@)YO )@@G@@^@)IT4GD,G--IL=^[+H-\H9=^[3G(4^[7HD4H@)AC7A@)G1(H-4G(2@G@[[[^@)^@)^@)H--YP )@@G@@IL$G(2^[+H92G*)H1>G(=H->^@&^[3H-\I9>IK)IL-I->^[4H[-H0)I9+^@)@@@[[[@F@[[[YQ )@@G@@^@)^@)^@)DD,^[RCDND[ C))E[[CTFC(^^[MC(^^[#C(GD)?^[IK'^@)@D@[[[YR )@@G@@^@)^@)^@)I[2GL<^[7HD4H@)GD?H))I[?GD3H(-^[2G(!H96G(=^@)@I@[[[^@)^@)^@)BC3YS )@@G@@^*)G12G(>^[\G0)I9*HD4G*)GT>H-?^[0H94GD3IT(I(!^@&^[0H--IT!GC)I[2H94G((H0)YT )@@G@@@B@[[[^@)^@)^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->@ @[[[^@)^@)^@)HD$GC)G->YU )@@G@@G1(GT(G(,GT9@[@[[[^@)^@)(D@@[[^@)I(3G*)I9(I-*^[(H(!I(,H93I(0I[2G(3IT>G))YV )@@G@@I[-I-(G(,I))@I@[[[^@)^@)^@)I(3G*)I9(I-*^[0GD4HD>H14^[7HD4H@)I->H1=G(,GT9YW )@@G@@^[&H92^[*JD0G(2HT-H->H((GC)^@)@E@[[[^@)^@)^@)I(3G*)I9(I-*^[*HD$H[?JC)GD?YX )@@G@@H->IL$HD<^[0GD4HD>H14^@)@G@[[[^@)^@)^@)I(3G*)I9(I-*^[*HD3I-\IL9^[\G0)I-2YY )@@G@@GD,IT&I(3HD\H0)IL>GD^[4IL-H13G15IT(H9,IS)@F@[[[^@)^@)^@)IT-H(>^[-G-!HD,HD3I-2ZA )@@G@@GD4HD\H0)I->GT*H1(ID5G*)GD3^[0IL+GS)@@@[[[@H@[[[^@)^@)^@)DD,^[GC(PDTJCTTZB )@@G@@E- (KD9JEK)E[[CTFC(^^[MC(^^[#C(GD)?^[IK'^@)@E@[[[^@)^@)^@)IL>ZC )@@G@@G))GT>H-?^[7HD4H@)I9*HD4G*)GT>H-?^[2G(!H96G(=^@)@B@[[[^@)^@)^@)H(5IT4^[+ZD )@@G@@G*)GD+H8)GT\H(0GD4HD+H->@G@[[[^@)^@)^@)I(3G*)I9(I-*^[*HD3I-\IL9^[\G0)I-2ZE )@@G@@GD,IT&I(3HD\H0)IL>GD^[4IL-H13G15IT(H9,IS)@G@[[[^@)^@)^@)I(3G*)I9(I-*^[*HD3I-\ZG )@@G@@IL9^[\G0)H(5H-4HD0H->^[0IL>G9,GD,GT(G(3^@)@@@[[[@E@[[[^@)^@)^@)DD,^[AEL ZH )@@G@@ETC^[AELJFL D0)E[GCDND([ ))GT\H13HD=G(2BK)@C@[[[^@)^@)^@)GT\H14GD(H0)GT?ZI )@@G@@H94I-(H1$^[&GDIT0G(H(\I1>G))G12H9!^[5H1(I))H9&^[+H-\H9=@B@[[[^@)^@)ZK )@@G@@^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->@E@[[[^@)^@)^@)G12H9'G(,^[-I))H1>G9-ZL )@@G@@I-(I1>^@3A@)GT>H14HD$IL-G->^@)@B@[[[^@)^@)^@)I-*GD7G(=^[(H0)I9-I->IK)GL-ZM )@@G@@I-*^@)@A@[[[^@)^@)^@)I(3G*)HD!H(>G-(GD4G(?JC)^@)@#@[[[^@)^@)^@)HD,G15IT>ZN )@@G@@(#@@[[^[-I))AC0A[!H)\H[2@D@[[[^@)^@)^@)GT\H(0H->I->H-9^[(H1&I(3G*)I9(I-*ZO )@@G@@HD,^@2^[*IK)@E@[[[^@)^@)^@)IT4GD,G--IL=^[+H-\H9=^[3G(4^[7HD4H@)AC7A@)G1(ZP )@@G@@H-4G(2@A@[[[^@)^@)^@)GT?H94I-(H1$^[=G(&G(ZQ )@@G@@^[>J[0GD,IT(H9,^[(H0)IT*H9IK'@C@[[[^@)^@)^@)I(3G*)HD,^[4H[2H9!GL\GT9I-\I[>H1(ZS )@@G@@GC)^@)@C@[[[^@)^@)^@)G12H9'G(,^@&^[4H[-I9>G))G1\IK)I(3G*)^@)@A@[[[^@)^@)ZT )@@G@@^@)I(3G*)HD!H(>G-(GD4G(?JC)^@)@D@[[[^@)^@)^@)HD,G15IT>^[7HD4H[(H0)H9,G*!ZU )@@G@@H[-H-&^[*H95IK)^@)@F@[[[^@)^@)^@)GT2JD\I[2G(I))@E@[[[^@)^@)^@)G-\^[,H94^[5IT>^[!HDH(0^@&^[0I(?IT>^[4H[2H95G9*H95ZX )@@G@@I))^@)@E@[[[^@)^@)^@)I-2JC)IL-H1=H9!^[=H9,H92^[0H--I->H->I))G1(IL3I))^@)ZY )@@G@@@G@[[[^@)^@)^@)HD&^[5H12G(3I[\H13HD6G*)I(3G*)H[?GC)H(-I-G))I[?GD4G(?ZZ )@@G@@G(4^@)@@@[[[@D@[[[^@)^@)^@)DD,^[#ELTD9KEL CTDE[DE-[E- ))GT\H13HD=G(2BK)AA )@@G@@@B@[[[^@)^@)^@)G9>H--I-(H1\I(3^[0IL>GT(I[(I--I->@G@[[[^@)^@)^@)H9+I--HD,AB )@@G@@G(=^[2GD0HD=^[&IL>G('G*)^0)IT?H97^[4H[-I8)H9&^[&G10^@)@C@[[[^@)^@)^@)GT\AC )@@G@@H14GD(H0)G1-GT4H92^[(^@&^[6HD(HC)^@)@^@[[[^@)^@)^@)H[>H(\I[*HD?HD-@A@[[[AD )@@G@@^@)^@)^@)I(3G*)HD,^[*G(!H90H[(H-(GC)@C@[[[^@)^@)^@)I1\H0)I9(H-?G(+IL-H1=AE )@@G@@^93^[=HD3G(-IT>^@)@E@[[[^@)^@)^@)I(3G*)HD,^[6H9,^[7HD?H->GL2GD,G)$IS)G-(AF )@@G@@IT>GD3G*)^@)@ @[[[^@)^@)^@)I(3G*)HD,^[&HD+IL(H1\(^@@[[G9>H0)G->G1(GT(G(,AG )@@G@@GT9^@)@B@[[[^@)^@)^@)GD=H((H1(IT4G(2^[(H(!G(=HD-I->H-9@G@[[[^@)^@)^@)I(3AH )@@G@@G*)GT2JD\I[2G(I))@D@[[[^@)^@)AI )@@G@@^@)GT-H0)HD,G15IT>^[\H1>^[5H1(I))HD,^@5^[!HD,^@)@@@[[[@D@[[[^@)^@)^@)DD,AJ )@@G@@^[[D[A^[#D9ICT D1OEL[E- ))GT\H13HD=G(2BK)@D@[[[^@)^@)^@)IT5I[>ILAK )@@G@@H14IL-I->G))G1-GT4H92^[6HD(^@)@D@[[[^@)^@)^@)H-9H90H[(H-(JL>G))^0)IL>GT\AL )@@G@@H13I-(I-5I->G))^@)@E@[[[^@)^@)^@)I[2G(0GD2G(=^[&IL\H*)H--IL$G*)I[\H9?^[\AM )@@G@@G0)I[?GD3H(-@^@[[[^@)^@)^@)H[>H(\I[*HD?HD-@D@[[[^@)^@)^@)I(3G*)HD,^[GT(I[(I--I->@E@[[[^@)^@)^@)IL>GT\H13I-(I-5I->^@&AP )@@G@@^[(H1&I(3G*)HD!H(>G-(GD4G(?JC)@B@[[[^@)^@)^@)H(\H1(I-\IK)I13^[GDGC)^@)@^@[[[^@)^@)^@)GT*G(3I))AS )@@G@@I[-HD,@B@[[[^@)^@)^@)GD+G-\H((H1-H)!H92 (?G($^[0GD(H0)@@@[[[@E@[[[^@)^@)AT )@@G@@^@)DD,^[ACD#E-JEK)DDS^[#D9HE[GC(S ))GT\H13HD=G(2BK)^@)@E@[[[^@)^@)^@)I[2AU )@@G@@G(0GD2G(=^[&IL\H*)I[\H9?G(=^[*I(!GD,^[3G(2I(!^@)@^@[[[^@)^@)^@)H-9I[*H9?AV )@@G@@HD'G(=@D@[[[^@)^@)^@)GT\H14GD(H0)G1-GT4H92^[(HC\HD6 96HC)^0)J@)^@)@A@[[[AW )@@G@@^@)^@)^@)GT*IL(IT4H(-IS)G-(IT>GD3G*)@ @[[[^@)^@)^@)H[>H(\I[*HD?HD-^[+^@)AX )@@G@@@A@[[[^@)^@)^@)GT\I(!GD=HD,^[\I1>IL=H93G*)@C@[[[^@)^@)^@)IL>GT\H13I-(I-5AY )@@G@@I->^@&^[(H1&I(3G*)HD!H(>(]@@[[G-(GD4G(?JC)@ @[[[^@)^@)^@)G12G(1I(>H14^[6AZ )@@G@@IS)^@)@C@[[[^@)^@)^@)H(\H1(I-\IK)I[-I-(G(,I))GT?H93G(?JC)^@)@D@[[[^@)^@)BA )@@G@@^@)IT4H90^[(H1&I(3HD\H0)I9(I-*^[2G(-GT4HD\H0)^@)@E@[[[^@)^@)^@)GD3IT>IT3BB )@@G@@^[&H92^[(H14IL-I1-ITGC)^@)BC )@@G@@@^@[[[^@)^@)^@)GT*G(3I))I[-HD,@I@[[[^@)^@)^@)GT\H14IL-HD,G-(GT-I->G))HD,BD )@@G@@^[?HD6G(2^[=HD3G(-IT>^[7HD4H@)G1(GL2HD,H9?JD3HD3@@@[[[@F@[[[^@)^@)^@)DD,BE )@@G@@^[KD-[ETHCC)E[MD9OC(DD0)C1[CTOD9M ))GT\H13HD=G(2BK)^@)@G@[[[^@)^@)^@)IT>BF )@@G@@H->GT4G(=^[0H--IT!GC)I[2H94G((H0)HD,^[+I(&G1>IL>G))IT-H-(H1>@A@[[[^@)^@)BG )@@G@@^@)H[9I[\I1\H->H((GS)IT*H9I[?GDI))BI )@@G@@@@@[[[@C@[[[^@)^@)^@)DD,^[ADD]ELDD1JC9 D0?^[IK'^@)@D@[[[^@)^@)BJ )@@G@@^@)G(8I-2GDG))G12H9!^[0H9\H->G))I[?GD3H(-^@)@A@[[[^@)^@)^@)H[\I))H[>BK )@@G@@GD4 (4IL>GD4G(=^@)@B@[[[^@)^@)^@)H[(G9*^[2HD3HS)H9&^[*G(0GD4HD4HD3@C@[[[BL )@@G@@^@)^@)^@)I(3G*)HD,^[*JD0H9&HD+IL(H1\G9>H1>H((GC)@E@[[[^@)^@)^@)IT4GD,G--BM )@@G@@IL=^[+H-\H9=^[-G-!HD,HD3I-2GD4HD\H0)IT>I))@@@[[[@B@[[[^@)^@)^@)DD,^[[D-]BN )@@G@@E(HDDI ))GT\H13HD=G(2BK)@C@[[[^@)^@)^@)GD?GL5H((H0)G12GD^[(H0)I1-IL(G(4JC)H9&^[H14IL-I-(H9,^@)BP )@@G@@@A@[[[^@)^@)^@)A*0H(?^@2A*>^[-H-+I(!HD,^@)@A@[[[^@)^@)^@)IT-H-4 (0H9\IK)BQ )@@G@@GD?GL5H((H0)@#@[[[^@)^@)^@)IT0GC)^@)@ @[[[^@)^@)^@)H[5H(-H0)IT>IL5H*)GD?BR )@@G@@(]@@[[GL5H((H0)^@)@B@[[[^@)^@)^@)GL?H9\G))I1\H-5H(>^[>J[0GD,G->IK)@C@[[[BS )@@G@@^@)^@)^@)I(3G*)I9(I-*^[*JD0H9-H-+I(!HD,G(!HD-^@)@C@[[[^@)^@)^@)I(3G*)I9(BT )@@G@@G9*^[*JD0H96H9?G(!HD<^[3H[\GT:@D@[[[^@)^@)^@)I(3G*)I9(I-*^[4H[(IL= (3I[-BU )@@G@@GT>G))G1?I((G))^@)@B@[[[^@)^@)^@)G(8G(2I))H93H(\I-(GS)I[2G(3IT5IL>@H@[[[BV )@@G@@^@)^@)^@)I[5H-?^[(H14G(2IT4HD4HD-H))G1?I((G))HD,I-\^[6GD3GT5H--IK)IT0GDI))@A@[[[^@)^@)^@)I1>H14^[$H--IT3^[+H94I-?G*)@A@[[[^@)^@)^@)H(\H1(I-\BY )@@G@@IK)I13^[H-9@D@[[[^@)^@)^@)H(\H1(I-\IK)IT(G->^[>G1&G(G15BZ )@@G@@H-?JC)@E@[[[^@)^@)^@)GT-I(4HD\H0)HD,^[0GD4HD>H14^[0IL\H1>^[4H8)GT*G0)^@)CA )@@G@@@@@[[[@E@[[[^@)^@)^@)DD,^[BEL[D1PD-JCTTE- ^[DD1AE(NDDJD0?^[IK'CB )@@G@@@D@[[[^@)^@)^@)H9+I--HD,G(=^[4H[2H95G9*^[?G(5HT-I[*G(2G(3HD3@F@[[[^@)^@)CC )@@G@@^@)I(3G*)I9(I-*^[,G(5I-2H90G(,HD-^[7HD4H@)HD,G1>GT4HD\H0)^@)@G@[[[^@)^@)CD )@@G@@^@)I(3G*)I9(I-*^[-G92GD,I(?H9GT4HD\H0)^@)@B@[[[CE )@@G@@^@)^@)^@)H(5IT4^[+G*)GD+H8)GT\H(0GD4HD+H->@B@[[[^@)^@)^@)GD=H((H1(IT4G(2CF )@@G@@^[(H(!G(=HD-I->H-9@I@[[[^@)^@)^@)IT4GD,G--IL=^[+H-\H9=^[-G-!HD,HD3I-2GD4CG )@@G@@HD\H0)IT>I))I9(I-*^@1A80^[&HD?I->IK)@A@[[[^@)^@)^@)HD,G15IT>^[\I1>IK)AK!CH )@@G@@A))H[2@A@[[[^@)^@)^@)H(\H1(I-\IK)I13^[H-9@D@[[[^@)^@)^@)GT?H93G(?CI )@@G@@JC)H9+IT>IL6G*)G1\IK)IL>GDH1\H))G1\IK)G1>CJ )@@G@@I1>IK\GT*HD?H))^0)IT*GD:HD,G8)@]@[[[^@)^@)^@)IL>@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@P@@@@@@@@@@@@@@D@@@@@@@@O@@@@@@@@@@@@@@@@@@@@@@@@@@C@@@@@@@@N@@@@@@CL )@@G@@@@@@@@@@@@@M@@@@@@@@@@@@@@@@@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@L@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@K@@@@@@@@@@@@@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@J@@@@@I@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@H@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@#@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@G@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@F@@^@@PCLOSR$ @@G@@@@@@@@@RINF$ @@F@@@@@@@@@CW )@@G@@ELT$ @@F@@@@@@@@@SIROB$ @@G@@ @@@@@@OPNSR$ @@G@@@@@@@@@CX )@@G@@INFOR$ @@F@@@@@@@@@IDLINE$ @@D@@@@@@@@@GETAS$ @@G@@@@@@@@@CY )@@G@@INISR$ @@G@@E@@@@@@GETSR$ @@G@@@@@@@@@SINF$ @@F@@@@@@@@@CZ )@@G@@SIRP2$ @@G@@@@@@@@@SIRIB$ @@G@@@@@@@@@IDTIMELT$ @@D@@@@@@@@@DA )@@G@@FILE$ @@F@@@@@@@@@INFAD$ @@E@@@@@@@@@IDLIN$ @@D@@@@@@@@@DB )@@G@@IDTIME$ @@D@@@@@@@@@SELT$ @@F@@@@@@@@@DUSE$ @@F@@@@@@@@@DC )@@G@@IDELT$ @@D@@@@@@@@@@ @@@[@@@@[C@@@@X"O%5CXHPROCS @@@@@@)@]@@@DD )@@G@@UPDATED @ @@@[@@@@@7@@@@ZAO%7CXHTCF @@@@@@@@[@@@ DE )@@G@@@ @^@ [@@@C+@@@@Z.N=#DWHA$M @@@@@@@@A@@@ =@@]@@@@@@C+DF )@@G@@@@@@*ZN&>DWHASM @@@@@@@@A@@@ =@@]@@@@@@[Q@@@@1[N&,DWHDG )@@G@@ASMNR @@@@@@-)A@@@ )@@]@@@@@@D)@@@@2RN&'DWHCBA$M DH )@@G@@@@@@@@-)A@@@ =@@]@@@@@@C<@@@@;7N$ADWHCBASM @@@@@@--A@@@DI )@@G@@ =@@]@[@@@@[T@@@[^UN$JDWHTHISGEN @@@@@@)@[@@@ DJ )@@G@@@ @D@ [@@@@E@@@[ 3J%_E HDESCRIBE @@@@@@)@[@@@ @ @@@[[@@@@FDK )@@G@@@@@[ .H9$ENIEQUF @@@@@@@@ @@@ @@@@+(@@]@@E@@@@+ZO:0CXHDL )@@G@@ESRCH @@@@@T@@ @@@ @@@@+0@@]@@ @@@@+:O:3CXHFORMREF DM )@@G@@@@@@@@@@ @@@ @@@@<[@@#@@J@@@@+2O:6CXHFSI @@@@@2@@ @@@DN )@@G@@ @@@@< @@[@@[@@@@<^O:7CXHFUNCREF @@@@@@@@ @@@ DO )@@G@@@@@@X@@Y@@!@@@@=0O?!CXHMVSTITM DW )@@G@@@@@@@@@@ @@@ @@@@>.@@[@@]@@@@>;O?\CXHNEGSR @@@@@@@@ @@@DX )@@G@@ @@@@&@@@]@@]@@@@>"O?2CXHNSRT @@@@@@@@ @@@ DY )@@G@@@@@@&K@@]@@I@@@@&]O?9CXHNSRTE @@@@@@@@ @@@ @@@@&R@@]@@ DZ )@@G@@@@@@&MO?/CXHPLF @@@@@@@@ @@@ @@@@&-@@]@@C@@@@&TO!^CXHEA )@@G@@PROCESS @@@@@@@@ @@@ @@@@&'@@#@@R@@@@&DWHASM @@@@@@@@A@@@ =@@]@@@@@@[Q@@@@;8N&,DWHEP )@@G@@ASMNR @@@@@@[)A@@@ )@@]@@@@@@D)@@@@.IN&'DWHCBA$M EQ )@@G@@@@@@@@[)A@@@ =@@]@@@@@@C<@@@[A,N$ADWHCBASM @@@@@@[-A@@@ER )@@G@@ =@@]@[@@@@[T@@@[JLN$JDWHTHISGEN @@@@@@@@[@@@ ES )@@G@@@ @D@ [@@@@E@@@[K%J%_E HDESCRIBE @@@@@@@@[@@@ @ @@@[[@@@@FET )@@G@@@@@[K4H9$ENISCAN @@@@@@@@ @@@ @@@[U*@@E@[Q@@@[TMN&RDWHEU )@@G@@A$M @@@@@@@@A@@@ =@@]@@@@@@C+@@@[U2N&>DWHASM EV )@@G@@@@@@@@@@A@@@ =@@]@@@@@@[Q@@@[O?/CXHPLF @@@@@@@@ @@@ FR )@@G@@@@@[N4@@]@@C@@@[N?O!^CXHPROCESS @@@@@@@@ @@@ @@@[OH@@#@@RFS )@@G@@@@@[N6O!FCXHQUOTE @@@@@@@@ @@@ @@@[OS@@#@@C@@@[OKO!MCXHFT )@@G@@READ @@@@@@@@ @@@ @@@[O2@@ @@R@@@[OVO!TCXHRORBIT FU )@@G@@@@@@@@@@ @@@ @@@[O'@@[@@#@@@[O7O!UCXHRSMP @@@@@@@@ @@@FV )@@G@@ @@@[O_@@#@@^@@@[O;O!YCXHRSTITM @@@@@@@@ @@@ FW )@@G@@@@@[P @@[@@#@@@[P]O!)CXHSCAN @@@@@@@@ @@@ @@@[QW@@E@[QFX )@@G@@@@@[PAO!7CXHSCRP @@@@@@@@ @@@ @@@[Q,@@]@@C@@@[Q&O!'CXHFY )@@G@@SKIP @@@@@@@@ @@@ @@@[Q3@@]@@#@@@[Q0O!"CXHSRCH FZ )@@G@@@@@@@@@@ @@@ @@@[Q9@@]@@^@@@[Q5O,#CXHSTOR @@@@@@@@ @@@GA )@@G@@ @@@[R[@@]@@A@@@[Q;O,ACXHUNDEF @@@@@@@@ @@@ GB )@@G@@@@@[RG@@#@@D@@@[R#O,ECXHUNXT @@@@@@@@ @@@ @@@[RK@@[@@[GC )@@G@@@@@[RJO,GCXHWRD @@@@@@@@ @@@ @@@[RN@@]@@]@@@[RLO,JCXHGD )@@G@@A$M @@@@@@@[A@@@ =@@]@@@@@@C+@@@[RPO,>CXHASM GE )@@G@@@@@@@@@[A@@@ =@@]@@@@@@[Q@@@[Z7O,2CXHASMNR @@@@@@[-A@@@GF )@@G@@ )@@]@@@@@@D)@@@[-HO\ CXHSCAN @@@@@@@@ @@@ GG )@@G@@@@@]+ @@E@[O@@@])1IY1C[HUNDEF @@@@@@@@ @@@ @@@]+S@@#@@DGH )@@G@@@@@]+JIY7C[HA$M @@@@@@)@A@@@ =@@]@@@@@@CL@@@]+VI-EC[HGI )@@G@@ASM @@@@@@)@A@@@ =@@]@@@@@@[O@@@]%?I-WC[HNASM GJ )@@G@@@@@@@@)@A@@@ )@@]@@@@@@DJ@@@]?@I-7C[HASM$ @@4@@@@@]@@@GK )@@G@@ @ @@@[[@@@[#@@@]5JCAIGQGPROCS @@^@@@@@]@@@ GL )@@G@@@ @@@[[@@@@7@@@]6MCAMGQGC!V@@D/[K@S1!9K@@-/K@@SRRB;@@E/@0@S\OB0I_=R7_@@@GM )@@G@@!80@@*P;0@@*A\;@@F!9@@@K/K@@ST?9@@@K/K@@S7**F@@V*^F@@U/K@@S7/K@@STA\F@@DGN )@@G@@CDI@@9/>@@I0/K@@K,'+@:EQ/,0@KJ()F@@P/K@@T]C5F@@E%1F@@E/,0@KJC>I@@9>9@@@)GO )@@G@@/K@@TEC-F@@[>9@@@^/K@@TE+9@@@;[-V@@[C I@@9>9@C@@/K@@SXC-F@@[=9@@@^/K@@TUGP )@@G@@C I@@9;D@@@K/ @@TQ(CF@@H/K@@SX/K@@SXC[F@@[;[@@@]/>@@TU/H@@SXRBY@@9R;@7__GQ )@@G@@=8KK@@+@@@@H&;K)@[()I@@J&;K)@@A#Y@@9/K@@I0)9@@@]/K@@RR)9@@@[/K@@RX)@@@^@GR )@@G@@@@@@@@@@@@@@)@@C@@@@@@K@@@@@)@)@@]@@)@@^@@@@@C@@)@@K@@)@]@@@)@^@@@)@K@@@GS )@@G@@)@)@@@@]@@@@@[@@@@)^@@@@)C@@@@)@@@[@@@@@]@)@@@@)A]"@[MRBI@[[RRZ@@V/^K@U^GT )@@G@@C(J@@VR;K@"@>9@@@^R;K@_@AZWK@#C!Z@@F[5WK@[C9@@@[=!GK@#RBGK@@[5WK@[RBZ@@UGU )@@G@@CDH@@^[DGK@HC J@@D[DGK@BR]"@[M/KF@@@9*I@[]9*,@[^9(I@[A/KF@@@9?I@[]9?,@[^GV )@@G@@9!I@[A/KF@@@@@KC@@@FT@[E@@)@@))@@C@@@C@@@'@G0^@@@@AM )@@^]@)Z_"___@@[@C@GW )@@G@@$YV.,&$FUNC$N@,@[JR]"@[GN80@@TC8WK@ &;K@@[C[@@@FR]"@[N*4F@@P(@F@@K/K@@U;GX )@@G@@/,0@Y0RB"@[BRBZ@@[R]"@[ P'0@@[C[J@@@[[F@@@CDH@@^[DI@[BABY@[B/,0@Y4R]0@@KGY )@@G@@[[X0@@/K@@ULRA"@@N/KF@@@AE"@[Y/,0@Y0RBI@[XN@)@@I/,0FX1R#)@[]N@0@@JRBY@[@GZ )@@G@@G@K@@GH^Y@[XABY@[@RFY@[[G@K@@GH^Y@[X[CY@[[RBY@[[G@K@@GH^Y@[XABY@[[N@)@@GHA )@@G@@/,0@Y4G@@@[]H^I@[X^^,@[XC[@@[#/[@@Y8H[@@@G0@@@@KG9@@@[[ GK@@RE"@[Y/KF@@@HB )@@G@@AA"@@NR;K@@[A7Y@[UC@Y@[NC^"@[XC9@@@^/,0@NJC[H@@G[[GK@ACXH@@][PGK@^C!H@@]HC )@@G@@[(GK@^RY.@@HAY/K@#C9K@@[?-X@@HAU/K@EC1H@@EC[X@@[=9K@@]/K@@V;R];I/^RB;@@#HD )@@G@@O#0@@KRB_@@@AB/K@ [-GK@#C5H@@E[>GK@E=9K@@]/K@@WA@AA@@@@@@@@@@@UB@@)@@@@@HE )@@G@@)@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB@@)@@@@@)@@@@@)@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@ @@@@@@B6[@@@B5"_____/@@[@@[@@[@@[@@R@@R@@@@@@@[@@@@@@@@@[@@@B5;_____"HK )@@G@@@@@@@[@@@@@D]E@@@@]E@C0@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z_____"@@@@@[@@@@@@HL )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@_@@@@@Z000020@@ KB?@@@@@@@@UB@@)@@@@@HM )@@G@@)@@@@@)@@@@@@@@@@@@@@@@@K^X^G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@ KMA@@@__)@@@B@@)@@@@@)@@@@@)@@@@@K^X#0@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@ _5@@@@@@@@@@B@@)@@@@@)@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^KD0@@#;QTY@K@G/&M@@@@HU )@@G@@@@#@@@@@@)@[@@@@@@@^[.N/@@@@@@]WK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@^^@@@@@]__KW@@@G*@@@@[@@@]]@[@@K)@@@@@@@@0@@/6,@@@@@@@]@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@^S@@@@@@@@@@@ KB?@@@@@@@@UB@@)@@@@@)@@@@@)@@@@@@@@@@@@@@@@@HX )@@G@@K^X ^@K^ZH=@K^ZIW@K^ZI8@K^ZJ0@K^ZKG@K^ZK*@K^ZL^@K^ZL)@K^ZL/@K^ZMS@K^ZM4@HY )@@G@@K^ZNK@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@)@ KMA@@@__)@@@B@@)@@@@@)@@@@@)@@@@@K^X^*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ _6)@@@@@@@@UB@@)@@@@@IC )@@G@@)@@@@@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@F@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@E@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@@@@#@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@D@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@B@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@^@@FEDIT @@K@@@@@@O.XIP )@@G@@E$BD @@K@@@@@@P ^E$BO @@K@@@@@@P ^GETFLD @@K@@@@@@PADIQ )@@G@@DATA @@K@@@@@@PA8INCR @@K@@@@@@PBBINCF @@K@@@@@@PBBIR )@@G@@DCRR @@K@@@@@@PBBDCRF @@K@@@@@@PBBCLRR @@K@@@@@@PBBIS )@@G@@CLRF @@K@@@@@@PBB/K@@?F(=F@@#/K@@:4/K@@?S%9K@@,/K@@?I/K@@?SC[F@@]IT )@@G@@R#;@@[;^0@[]A#;@@[[[F@@]_V______________________________________________IU )@@G@@________________________________________________________________________IV )@@G@@________________________________________________________________________IW )@@G@@________________________________________________________________________IX )@@G@@________________________________________________________________________IY )@@G@@________________________________________________________________________IZ )@@G@@________________________________________________________________________JA )@@G@@________________________________________________________________________JB )@@G@@________________________________________________________________________JC )@@G@@________________________________________________________________________JD )@@G@@________________________________________________________________________JE )@@G@@________________________________________________________________________JF )@@G@@________________________________________________________________________JG )@@G@@________________________________________________________________________JH )@@G@@________________________________________________________________________JI )@@G@@________________________________________________________________________JJ )@@G@@________________________________________________________________________JK )@@G@@________________________________________________________________________JL )@@G@@________________________________________________________________________JM )@@G@@________________________________________________________________________JN )@@G@@________________________________________________________________________JO )@@G@@________________________@@B@[W/,0]'I @ 3GU^@A8U/,0]97@@B@[Q/,0]'I [@ 3EJP )@@G@@U^@A8U/,0#?$@W@A0T@X@ 3F/,0#?][8@A,Z[8@ 3J/,0#1SC9K001[ T@@IC[KA8G[[T@@DJQ )@@G@@/,0#1-CDKA6L[ T@@O/,0#,JC^9@@I[C0A6LCC0A6JLC0A6L/8@ ]HR8K ]GA@R@@5/K@^1_JR )@@G@@ @B@@5RCT@@^RC-@@M/,0#?]K)@ 2/K)]@@@/,0#$4]@@@@Q@@@@@@/S@@@@RC-@@IC40A0IJS )@@G@@[42@@@C@0A0IN@)A8W<@2@@@[[]@@@9?0A0I;?0@@A[42@@[;C0@@A[)2@@@C00A0J[02@@[JT )@@G@@C@0A0J[^2@@[;C0@@M[?2@@[9?0A0O;?0@@A[*2@@B;C0@@A[C2@@B;C0@@M[)2@@A/,0#1-JU )@@G@@C[KA0P[[T@@O^5D@@O/,0#0-:@]@@B@B^ /,0#\AC@9@@I[*2@@B;C0@@A[C2@@B;C0@@MJV )@@G@@[)2@@A/,0]8?@N]@@B9?0A0K;G0@@S[1]@@#;G0@@A[5]@@#;G0@@A[[]@@]9?0A0L;G0@@GJW )@@G@@[(]@@^;G0@@A[D]@@^;G0@@M[ ]@@#;G0@@M[!]@@#9?0A0U;G0@@M[[]@@ [)2@@^;G0@@AJX )@@G@@[=2@@^/,0#0-7A@A0L@A]C @/,0#1S9?2@@^9*9@@H^DD@@H^(D@@H/,0#,J9?9@@H[[]@@ JY )@@G@@[)2@@^;G0@@A[=2@@^/,0#0-:A@A0M@E^C @/,0#1S9?2@@^9*9@@H^DD@@H^(D@@H/,0#\AJZ )@@G@@9?9@@H[[]@@ [)2@@^;G0@@A[=2@@^9?0A,P;?0@@MC-M@@A[@2@@A[-M@@A/,0#0->A@A0QKA )@@G@@@@ @/,0#0-7@@A,Q@A]C @/,0#,J9?9@@H[1@A,Q;G0@@A[5@A,Q;G0@@A[[@A,P/,0#1-KB )@@G@@C-KA0Q[!T@@OCDKA0R[ T@@O/,0#0-7@@A,Q@A]C @/,0#,J9?9@@H[1@A,Q;G0@@A[5@A,QKC )@@G@@;G0@@A[[@A,PC[KA0S;DK@@A[[R@@8/,0#0-@AB@@8@@E^ @/,0#0-7@@A,Q@A]C @/,0#,JKD )@@G@@9?9@@H[1@A,Q;G0@@A[5@A,Q;G0@@A[[@A,P9?0A,P;G0@@S[1]@@G;G0@@A[5]@@G;G0@@AKE )@@G@@[ ]@@F9?0A0N;?0@@G[C2@@C;C0@@M[)2@@B;C0@@A[=2@@B9?0A0T;?0@@A[^2@@C/,0#5OKF )@@G@@[;@A0V[8]@@D/,0#L<[)@@@H@@@@@@/S@@@@/K@^-9/K@^-9/,0#1-C9K001[ T@@OC[KA8GKG )@@G@@[[T@@J/,0#0-.@@A\%@A[B @/,0#,J9?9@@H[5@A\%;G0@@A[[@A\(/,0#1SC9K001[ T@@IKH )@@G@@C[KA8G[[T@@D/,0#1-CDKA\:[ T@@O/,0#,JC^9@@I[C0A\:/,0#5O]K@A50]K@ 5KC@0A0IKI )@@G@@;C0@@A[*0 4.;C0@@A[C0 4.9?0A0I;?0@@A[00 4";C0@@A[40 4"C00A0J[)0 4"C@0A0JKJ )@@G@@[40 5@;C0@@A[^0 4_/,0#0-7@@A0L@A]C @/,0]'IE]@ 5@QC@A8Q/,0#0-:@@A0M@E^C @KK )@@G@@/,0]'IE[@ 5]QC@A8Q/,0#0-1@@A0N@C# @/,0]'IA@@ 5^T @A8S/,0#0-7@@A0O@D] @KL )@@G@@/,0]'IA @ 5BT @A8S/,0#0-.@@A0P@E[ @/,0]'IA]@ 5 T @A8S/,0#1SC[KA0P[[T@@IKM )@@G@@^5D@@I/,0]'IA^@ 5AT @A8S/,0#0->@@A0Q@@ @/,0]'IA@@ 5DT @A8S/,0#1SC-KA0QKN )@@G@@[!T@@ICDKA0R[ T@@I/,0]'I [@ 5EU^@A8U/,0#0-.@@A0S@D[^ @/,0]'I [@ 5FU^@A8UKO )@@G@@/,0#0-:@@A0T@B^ @/,0]'IA @ 5IT @A8S/,0#?$@W@A0T@X@ 5GC[KA0S;DK@@A[[R@@8KP )@@G@@/,0#0-@@B@@8@@E^ @/,0]'I @ 5HU^@A8U/,0#?]]K@A7G]K@ 5KRCT@@^RC-@@K/,0#?]KQ )@@G@@K)@ 4.K)]@@@/,0#$4[0@@@Q@@@@@@/S@@@@/K@^-9C80000[40A2!C80@@B[40A6D/K@^"XKR )@@G@@C40A6DL40A6E/[@ B)C40A2!L80@@0/[@ B)RCT@@^RC-@@^RC1@@I/,0#?]DK]@@@DK#@@@KS )@@G@@/,0#L<[)@@@H@@@@@@/S@@@@C40A2!L80@@1/[@ BUC40A2!L80@@2/ @ BZ/,0#[8-A8&]@+B@$]CBS%])&B):]*$B*?]0*B0!]8(LM )@@G@@B8E#@%CB6#C:CC,#K,CK\#S\[KE#)@[SF#*@[)G#0@[*H#8@[0I^@@[8J^K@]@K^S@]CL^)@LN )@@G@@]KM^*@]SN^0@D*'^8'D0; @;D8/ C/E@. K.EC" S"[K_ )_EK@ *@[S@ 0@[)@ 8@[*@@@@LO )@@G@@[0@@@@[8@@@@]@@@@@]C@@@@]K@@@@]S@@@@"8@@@@_@@@@@_C@@@@_K@BK@_S@BS@_)@B)@LP )@@G@@_*@B*@_0@B0@_8@C@@ES@ES@E)@E)@E*@E*@E0@E0@E8@E8@F@@F@@FC@FC@FK@FK@FS@FS@LQ )@@G@@F)@F)@F*@F*@F0@F0@F8@F8@G@@G@@GC@GC@GK@GK@GS@GS@G)@G)@G*@G*@G0@G0@G8@G8@LR )@@G@@H@@H@@HC@HC@HK@HK@HS@HS@H)@H)@H*@H*@H0@H0@H8@H8@I@@I@@IC@IC@IK@IK@IS@IS@LS )@@G@@I)@I)@I*@I*@I0@I0@I8@I8@J@@J@@JC@JC@JK@JK@[K@@@@J)@J)@"0@@@@@@[@@@@@#__/LT )@@G@@%[@@@L/K@@+Z/KF@@]______)@@@@@@@[@@@@@@@@@@@[@@@@@[@@@@@@@@@@@@@@@@@@@@@LU )@@G@@C[@ MY/S@@@@PB@@*E@@@@@#C[@@@G[ I)@@[DI@@@&BG)@@^CK MNPFG@@@@@[@@]@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@&%@@@@$V@@@@$1 D@@('@@@@(W@@@@@@@@@@@@@@@@@@@@@@@@$A @@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@&%@@@@$V@@@@$1 F@@('@@@@(WLX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@$B @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ LY )@@G@@ @@@@@@@K@@@@@@@@@@@@@@@@ @@@@@@@C@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@!G@@@@@@@#@@@@@@@@@@@@@@0K@@@@@@@@@@@@@@[@@@/C@@@@/G@@@@@@[@@@)@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@R;0@[C9!@ OH;G@@@=W8@@@EO;K@@:G K@@H; @@@AP;0@@AMB )@@G@@/^@ O^; J@@@/KF@@@ @@@@@@@@@@.N@@@@.Q@@@@@@@@@@/^@@@@/Z@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z__@@@@@@@@@@.+MD )@@G@@@@@@.!@@@@@@@@@@/Q@@@@/_@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[[I@@@[C @@@@@@@@@[C*@@@[C*@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@___@@@@@@@@@@@@@@@A#) PD@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@ @@@@@@@C@@@@@@@@@@ @@@@@@@K@@@@MI )@@G@@@@@@@@ @@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@[@@@@@@Y R*MJ )@@G@@@@@@@@@[@@@@@@% RY@@] R> / SORT READ ERROR A . (NO OR GO)@@@@@@MK )@@G@@@@@@@@ SORT ERROR CODE A @@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@CYC NO. . RECORD NOS. - LABEL: REEL MO )@@G@@ OF MOUNT REEL OF LABEL ERROR: REMP )@@G@@EL OF DISMOUNT REEL OF + MOUNT BLANK MQ )@@G@@ MOUNT BLANKEND REDO END PART FINAL MERGE(S) REQUIRED:START MR )@@G@@MRG NO. ::INPUT FILES :OUTPUT FILE UNIT LABEL MS )@@G@@ UNIT LABEL OUTPUT@USE $ ,MT )@@G@@ @@@@@@@@@@@@@[@@@@@@M VF@@@@@@@[@@@@@@= U5@@[ R>@[@@@@@@% U;MU )@@G@@@@@@@@@[@@@@@@= V]@@@@@@@[@@@@@@0 U$@@@@@@@[@@@@@@G VK@@@@@@@[@@@@@@M VNMV )@@G@@@@@@@@@[@@@@@@% VR@@@@@@@[@@@@@@% VY@@@@@@@[@@@@@@S V>@@@@@@@[@@@@@@0 V>MW )@@G@@@@@@@@@[@@@@@@% V>@@@@@@@[@@@@@@M VQ@@@@@@@[@@@@@@G VI@@@@@@@[@@@@@@= U\MX )@@G@@@@@@@@@[@@@@@@2 V]@@[ R>@@@@@0@B____@@B001@@^ V!'^@[H=@@[@@@@@[@@@@@@@@@MY )@@G@@@@@@@@SORT ERROR CODE @@@@@@@@M XE@@@@@@@@[@@[@@[ W?@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@A4N@@@A4N@@@A4N@@@@@@@@@@@@A#K X!A#) X,R;) XSR\Y@@@%8K@@#/KI@@MR;K@@[NA )@@G@@A$T@[)A#T@[-RBY@@@O;K@@[A#T@[+R#K X!R#) X,'=@@[@/KDK[+R;K@@[A@@= Z*@@E Z=R$CORE ]H/ )<@@[ )2@@@@@@PARAMENL )@@G@@TER CARD INCORRECTCARD TABLE OVERFLOWED EOF CARD MISSING @@@@@@@@S +PNM )@@G@@@@@@@@@@@@@@@@M +X@@@@@@@@@@@@@@S +T@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ -GNO )@@G@@@@@___@@@MRG@@@RTA@@@RTB@@@RTC@@@DOA@@@DOB@@@NTA@@@NTB@@@NTC@@@ORT@@@ECKNP )@@G@@@@@RSZ@@@SZW@@[ )< @@[@@[@@[@@@@@@ 22:30:52 MAR 11,81.TB )@@G@@ PREV: 22:15:02 MAR 11,81 @E@[@@THE $ AMOUNTS ARE APPROXIMATE AND BATC )@@G@@SED ON WEEKEND RATES 0^@@@@D,@@TTY RUN=CLS,BRF=ON _@@@@@_@@@@@_@@@@@TD )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TE )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TF )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TG )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TH )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TI )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TJ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TK )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TL )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TM )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TN )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TO )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TP )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TQ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TR )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TS )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TT )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TU )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TV )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TW )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TX )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TY )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@TZ )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UA )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UB )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UC )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UD )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UE )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UF )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UG )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UH )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@_@@@@@UI )@@G@@_@@@@@_@@@@@_@@@@@_@@@@@^)+^K@^C)#8@#)V#K@#8W#S@#*U#@@#8Y#0@^C)#8@#*V#C@UJ )@@G@@#ST#@@#@Q]*@#)U#C@#CS]8@#*W#)@#SU#C@#*U#@@#*V#K@#*X#S@#8Y#)@#*V#K@^@Y#*@UK )@@G@@^@Y#*@#8Y#*@#ST]8@#@R]*@#KS]8@#8W#S@#)V#K@^CY#0@#)U#C@#*W#S@#)U#C@#KT]8@UL )@@G@@#8Y#*@#8X#)@#8X#)@^K)#8@#SU#@@#8X#)@#8X#)@#0X#S@#KT#@@#0X#)@#KT]8@#*V#K@UM )@@G@@#CS]0@#)T#@@#8X#)@#0W#S@^S-^@@#)U#@@#ST#@@^S)#8@#*V#C@^@Y#)@#ST]8@#)U#@@UN )@@G@@#0W#C@#CR]*@#SU#C@#KS]0@#)V#C@#*W#K@#CR]0@#SU#C@#)V#C@#ST]8@#0X#)@^K)#8@UO )@@G@@#8Y#)@^0+^@@^*<^C@#KS]8@#)U#@@#0X#S@^C)#8@#*U#C@^S-^@@#KU#C@#8X#S@^@)#*@UP )@@G@@#KS]0@#*W#S@#8Y#)@#0X#S@^@X#)@#*U#C@#0X#S@^CZ#*@^@Y#)@^@Z#*@^C)#0@#0Y#)@UQ )@@G@@#0V#K@#8W#S@#0W#K@#*V#K@^CZ#*@#ST]8@#0Y#)@^C)#8@#8X#S@#0X#K@#0X#S@#*V#K@UR )@@G@@#0W#C@#8Y#)@#*V#C@#KS]8@#KT]0@#*W#K@#0W#S@]8R]*@#)V#K@#@Q]*@#*V#K@#CR]*@US )@@G@@#0W#S@#KS]8@#8X#)@#*V#K@#CR]0@#CR]*@#*X#)@#0Y#S@#)U#@@#0W#S@#*V#K@^@Y#)@UT )@@G@@^*<^C@#KS]0@#)V#@@#*W#K@^@X#)@#8Y#)@#)V#C@#)U#@@^CZ#0@#CS]8@#*W#K@#)V#K@UU )@@G@@#8W#S@^CZ#0@#SU#@@#ST#@@#8X#S@^@Z#*@#KS]0@#0V#K@#8Y#)@#SU#C@#)T#@@#CR]0@UV )@@G@@#)U#@@^C)#8@^K-#8@#ST#@@^@Z#*@#*V#K@#*W#K@^K-^@@^S-#8@#CT]8@^@X#)@^S-#8@UW )@@G@@#SV#C@#*V#K@#)V#C@#*W#K@#)V#C@#8Y#*@^@Y#)@^*<^K@^CZ#*@^S-#8@#0W#S@#8X#S@UX )@@G@@#KT]8@]0P]S@#8Y#)@^@Z#8@#8W#K@^@Z#)@#*U#@@^)+^@@#)T]8@#8Y#)@#CR]*@#KT]0@UY )@@G@@^KZ#0@#ST#@@#*V#K@#SU#@@^@Z#*@#)W#K@#0W#K@#)U#@@#8X#S@#8X#)@#*X#S@^@Y#*@UZ )@@G@@^K-#8@#0X#S@^*+^C@^@Z#*@^8=^S@#@P])@#ST]8@#*U#C@#ST#@@^K-^@@]8Q]*@#KS]0@VA )@@G@@^CY#*@#8X#S@#)U#@@#CS]8@]0O])@#*W#K@^@X#)@#KS]0@^K)#8@#CS]0@#8X#)@]0P])@VB )@@G@@#*V#K@#)V#K@^0>^)@#*X#S@#*W#S@#8Z#0@#KT]8@#@R]0@#0X#)@#0W#S@#@Q]*@^KY#*@VC )@@G@@#)V#K@#8X#S@#@R]*@#0W#S@#)U#@@#KT#@@#)T#@@#*W#S@#8X#)@#0W#S@#KT#@@#KT]8@VD )@@G@@#SV#C@#8X#)@#SU#@@#@P])@^CZ#*@^@)#*@#)V#K@^*+^K@#ST#@@#0X#)@]8Q])@^C)#0@VE )@@G@@#KU#@@#@R]0@#)U#@@#8X#)@#8X#)@#SU#C@^@Y#*@#0Y#)@#@Q]*@#0W#S@^K-^@@^CZ#*@VF )@@G@@#8Y#)@#CS]8@#SU#C@#SU#C@#SV#K@#*W#K@^0=^S@#CR]8@#KS]8@^*<^K@^@Z#8@#CR]8@VG )@@G@@#0W#S@#SU#K@#KT]8@^0<^K@#KT#@@#ST#@@#)U#C@#SU#C@#*W#S@#)U#C@^C-^@@#)V#S@VH )@@G@@#@R]0@#)W#S@#KT#C@^C)#8@#)V#K@#0W#S@]0O]S@#SU#C@^@Y#0@#CS#@@#KS]8@^@)#0@VI )@@G@@#0X#*@#@R]0@^S-^@@#0X#)@#*W#K@#*W#S@^S-^@@#)V#K@^@Y#)@#8X#)@#KT#C@#)V#S@VJ )@@G@@#0X#)@^CZ#0@]*N]K@]*N]S@#)U#C@#KU#C@#ST#C@#)U#K@^@X#*@#8Y#*@#KT#@@#8W#)@VK )@@G@@#)T#C@#KT#@@#0X#)@#SU#@@]0O]S@#@R]0@#KT]8@]0P])@#KS]8@#)V#K@#*W#S@#CR]8@VL )@@G@@#@R]8@#)U#C@#*W#)@^CY#0@#)U#K@#KS]8@#*W#S@#CS#@@#SU#C@#CR]8@^CY#0@#)U#S@VM )@@G@@#)V#K@#KS#@@#SU#K@#ST#C@#0Y#*@#*U#K@^C)#8@^@Y#0@#*W#S@#0V#S@#KT#@@#8X#)@VN )@@G@@^S)^C@#8X#)@#)V#K@#8X#*@#)V#S@#*V#K@^@Y#*@#SU#C@#*V#S@#SU#K@#*V#S@^S+^C@VO )@@G@@#*W#S@#SU#K@#*W#S@#0X#*@#*X#)@#ST#@@#*W#S@#*X#)@#CQ]*@#KU#@@#0V#K@^@Z#8@VP )@@G@@#CS#@@#KR]0@^KZ#8@#KS#C@#8X#)@#*W#S@^@Y#0@]8P])@#@R]8@#@R]0@#*V#K@#)V#K@VQ )@@G@@#KS]8@^K-^@@#@R]0@]0O]S@#CR]0@#@R]8@#KR]*@#KT#C@#@R]8@#8X#)@#8Z#8@#CS#@@VR )@@G@@#SV#K@#SU#C@])N]C@#*V#S@#@R]8@#*V#K@#*V#K@]0O])@#8X#*@#)U#K@#)T#@@#)U#K@VS )@@G@@#CQ]0@#*V#S@^@)#0@^K)#8@#*V#S@#)V#C@#*U#C@^S)#8@#*W#)@#KU#C@^@X#)@#SU#C@VT )@@G@@^@Z#0@#)U#K@]*P]*@#0V#C@#CR]8@^S+^C@#)U#C@#*V#K@#*V#C@^S-^C@#0V#S@#0X#S@VU )@@G@@#KT#@@#KU#K@#8Y#*@#*W#S@#*V#S@#)T#@@#CR]0@#0Y#*@#ST#C@#)T#@@#)V#K@#8W#S@VV )@@G@@#8Y#*@#*V#K@^CZ#8@#CR]0@#SS]8@#*V#K@#0W#S@#0W#S@#KS#@@#KS]0@#0X#)@#8W#S@VW )@@G@@^K)#0@#ST#C@^@Y#*@#)U#K@#*U#C@^@Y#*@#ST#@@#ST#@@^@Y#*@#SS#@@#@R]*@]8Q]*@VX )@@G@@#KS#@@#*V#K@#@Q]0@#*U#K@#CQ]0@^@X#)@^@Y#*@^@X#)@]8P]*@#SV#K@#*V#K@#*W#K@VY )@@G@@#)V#K@#0X#)@#0X#)@#8X#)@^SZ#0@#)V#K@#8W#)@^@Y#0@#)W#K@#0W#K@^K)^@@^KZ#0@VZ )@@G@@#KR]0@#CS]8@#SS]8@^@Y#0@#)U#@@^CY#0@#ST#@@#)V#K@#@Q]*@^CZ#*@#8Y#S@#*V#C@WA )@@G@@^S-^@@#CR]0@#8X#S@#*V#K@#KR]0@#KR]0@#0W#S@#KS]8@#*U#C@^@Z#0@#KS#@@#8W#S@WB )@@G@@#KS#@@#0X#S@#8X#)@#0V#K@#0W#K@#)V#K@#CQ]*@#ST]8@#KS]8@#8Y#*@^CZ#)@#)U#C@WC )@@G@@]8P])@#*V#C@#SS]8@^@Y#)@^S-#8@#8X#S@^@X#S@#KS]*@#0W#K@#0X#S@#*W#K@^*<^C@WD )@@G@@^CY#0@^K)#8@]0O]S@]8Q])@#*V#C@^@Y#)@#KS]0@#8Y#S@#CR]0@#)V#C@#ST]8@#8Y#*@WE )@@G@@]*O]K@#SU#@@#KS]8@#CQ])@#)U#C@#ST]8@#KT]8@#8X#S@#8X#)@#KR]0@#KT]8@#KU#C@WF )@@G@@^8>^S@#*W#K@#8Y#S@#SU#C@#0V#C@#*W#K@#)U#@@#0X#S@^CZ#)@^S)#8@#8Z#*@#8X#)@WG )@@G@@#SU#C@#0W#K@#8Y#)@#KQ]*@^@Y#)@#*X#)@^C)#0@#0W#K@#CS]0@#KS]0@^@Y#0@^@Y#*@WH )@@G@@#*V#K@#*W#K@^@Z#0@#*W#K@#@Q]*@#*U#C@#CS]*@#ST#@@#8Y#*@#0W#K@#@Q]*@#SS]0@WI )@@G@@#)S]8@^S+^@@#CQ]*@#SV#C@]0Q])@#@S]8@#KU#@@#0Y#*@#*W#K@#SU#C@#CS]0@])N]K@WJ )@@G@@#)V#C@^K)#8@#)V#K@#KT]8@#KS]0@#0Y#)@#0X#K@#)W#S@#8X#S@^K-^@@#8X#S@#*V#K@WK )@@G@@#0X#S@#)U#@@#*U#C@^K-^@@#KT]8@#*W#S@#SU#@@#0W#K@#*V#K@#SU#@@#KS]8@#ST#@@WL )@@G@@^@Y#*@^K)#*@#*V#K@#CR]*@#0V#@@#8Z#*@#0V#C@#8Y#S@#0W#S@#KT#@@#)V#K@#SS]8@WM )@@G@@#8Y#S@#0W#S@#*W#K@]8R]*@#@R]0@^@X#S@#KS]0@#KT]8@^CY#*@#)V#K@#)T#@@^C)#8@WN )@@G@@#)U#@@#ST#@@^S+^C@#*W#K@#8Y#)@#@R]8@#SU#C@#*W#S@#*W#S@#KT]8@#8Y#)@#0X#S@WO )@@G@@#SU#@@#ST#@@AK"A0@A@"A*@ @2 S@ 8/AS@^S?^*@ 8"A0@^02 K@AD[A8@#)Z#S@#8X#)@WP )@@G@@#)U#C@#8Y#)@#0W#S@#)V#C@#CS]0@#0X#S@#*W#S@#8X#S@^)+^@@#8X#)@#*V#S@#KT]8@WQ )@@G@@#KS]0@#8X#)@#8Z#S@^S)^@@#0W#S@#*X#K@#*V#K@#)U#C@#8Y#*@#KU#@@#0Y#)@#)V#K@WR )@@G@@#8X#S@^S+^@@#0X#S@#SU#C@]*P])@#*W#S@#*W#S@#SV#C@^@Y#*@#*W#S@#KT#@@#ST#@@WS )@@G@@#KU#C@^K)^@@#0X#S@#8Y#*@#CR]8@^C)#0@#0W#S@#8X#S@#KT#@@#CS]0@#KT#@@#8Z#*@WT )@@G@@^)<^C@#)U#C@^K+^@@#CS]8@#*Y#*@^S<^C@#KT#@@^@Z#0@]0O]S@#CT]8@#*V#K@^K<^C@WU )@@G@@#SU#C@^@Z#0@^S-#8@#*V#S@#SU#C@#ST#@@#CT#@@#SU#C@^S-^@@#)V#C@#*V#S@^@Z#0@WV )@@G@@#@Q]*@#)W#S@#*W#S@#ST#C@#)U#K@#)U#C@#0V#C@^K)#8@#SS]8@#ST#@@^S+^C@]8Q]*@WW )@@G@@#*X#)@#0X#)@^S-^C@#KT]8@#@S]8@#*W#S@#CR]0@^@Z#*@#)U#C@#0X#)@^@Y#*@^@Y#*@WX )@@G@@#*W#K@#8Y#)@#*X#)@#KS]8@#*W#S@#0X#)@^CZ#8@#)U#C@#KS#@@^S)#8@#SU#K@#8X#)@WY )@@G@@^@Z#0@^C)#0@#ST#C@^CZ#0@#KT#@@#)V#S@#0X#)@#*V#K@^C)#8@#8Y#*@#CS]0@#8X#*@WZ )@@G@@#)W#S@#*V#K@^C)#8@#KT]8@#8X#)@#CS]8@#*V#K@^@Y#0@#*V#S@#@P]*@^CY#0@#KT#@@XA )@@G@@^CZ#8@#)W#S@^CZ#0@#0W#)@^S-^C@#CS#@@^@Y#)@#0W#S@^@Z#8@#8X#*@^@Z#0@^@X#*@XB )@@G@@#)V#C@^S-^C@^S-^@@#*W#S@#0Y#*@^))#8@#KT]8@^C)#8@#KS#@@#8X#)@#0W#S@#KT#@@XC )@@G@@#SU#C@#SU#C@#*W#)@#)U#C@^S-^@@#8W#*@#0V#K@#8X#)@#CT#@@#0X#)@#CS#@@#)U#C@XD )@@G@@^@Z#0@^C)#8@#*W#)@#0W#S@#0X#*@#8X#*@#8X#)@#CS#@@^S+^K@^CZ#8@^@Y#0@^*<^K@XE )@@G@@^)+^C@#*V#S@#ST#@@#SU#C@#SU#C@#)U#C@#0V#S@#KR]0@#*V#S@]8P])@#SU#K@#0Y#*@XF )@@G@@]8Q]0@#SV#K@^KY#8@#8X#)@#CS]8@#)U#K@#*U#K@#)V#K@^KZ#8@#KS]8@#*W#S@#8Y#*@XG )@@G@@#*X#)@#0W#)@^@X#S@#*U#K@^@Y#*@#*V#K@^@Y#*@^C)#8@#8X#)@#CR]0@^KZ#8@^@Y#0@XH )@@G@@#0W#S@#)V#K@#KS#@@#8Y#*@^C)^@@#8W#)@^K-#8@^CY#0@#)T#C@^K)#8@#)U#C@^*<^K@XI )@@G@@#8X#0@#)U#K@#SU#@@#*W#S@^CZ#*@#8Y#*@^C-^@@^)<^K@#0W#)@#ST#C@^CY#*@^@Y#*@XJ )@@G@@^S-#8@#@Q]0@^0>^)@#8Z#0@#*U#C@#)W#S@^@X#*@#8X#)@#KT#@@#0W#K@#0W#S@#SU#C@XK )@@G@@#KT]8@^@Z#0@#0X#)@#8X#S@#@P]*@#0V#C@^S-^@@^@Z#0@#0W#)@#)V#S@#*V#C@#)U#K@XL )@@G@@^@Y#*@^K)#0@#KU#@@#*W#K@#KT#@@^C)#8@^@Z#*@^@)#8@^S+^K@^K+^C@#)V#C@#SS#@@XM )@@G@@#KS]0@#)W#S@#8Y#)@#0X#)@#8X#)@^CY#*@#8W#S@#SS]8@#0W#S@#8Y#*@#)V#K@^CZ#*@XN )@@G@@#ST#@@^@Y#*@#8X#)@#8Z#0@#KS]8@^@Z#*@#0X#S@#CQ]*@#ST]8@^@X#)@^@Z#*@#KS]8@XO )@@G@@^K)#8@^@X#)@#)U#C@^CY#0@#SS]8@#8X#)@#0V#K@^@X#)@^CZ#0@#8X#)@^@Z#0@#*V#C@XP )@@G@@^S+^@@#*X#S@#8W#K@^CZ#0@#*U#C@#*V#K@#*V#K@#KS]8@^@Y#*@#0X#S@^)<^K@#ST]8@XQ )@@G@@^K)#0@^CZ#*@^0=^S@^0=^S@#*V#K@^@Z#*@^CZ#0@^S+^@@#0V#K@^@Y#)@#*V#K@#8Y#*@XR )@@G@@#KS]8@^)+^C@#8X#S@^S-^@@^CZ#0@^@Z#0@^@X#S@^@)#8@#0W#S@^C)#0@#SU#@@#8Y#*@XS )@@G@@#8W#S@#8X#S@#8Y#*@#KS]8@^CZ#*@]8R]*@#*W#K@#CR]*@#8Y#)@^K)#0@^K-#8@]8Q]*@XT )@@G@@#8Y#)@^@Y#)@]8P])@#*V#K@#8W#S@^CZ#)@#ST#@@#@R]*@#)V#C@^@Y#)@#0W#S@#0X#S@XU )@@G@@^S-#8@#CR]*@#)U#@@#SU#C@^CZ#*@#8X#)@#)U#C@#8Y#)@#0V#K@^@Y#)@^S)#8@#*W#K@XV )@@G@@#@Q]*@^@X#S@#8X#)@^CZ#0@]8P]S@#*U#C@#)U#@@#CS]0@#SW#K@^C)#8@^K-#8@^C)#0@XW )@@G@@#KR]8@#0W#K@#0X#S@#8Y#)@^CZ#*@#8Y#)@#0X#S@^S+^@@#8Y#*@#0V#C@#CS]0@#0W#K@XX )@@G@@#8Y#)@#SU#C@^CZ#*@^K)#0@#KS]8@]0P]S@#8W#K@#)V#C@#0W#K@^)+^C@#SU#@@^S-#8@XY )@@G@@^S-^@@#@R]0@#SU#@@#8W#S@^@Y#)@#ST#@@#@Q])@^)=^C@#0W#K@#8X#)@^@Y#*@#)V#K@XZ )@@G@@^@Y#)@#8X#S@#0X#K@#*V#K@#ST]8@#8Y#)@#SV#C@^@X#S@^*<^C@#)U#C@#0W#S@#0Y#S@YA )@@G@@^)-^@@#*X#S@#KS]*@#)U#@@#*V#K@^CY#*@#)V#C@^@Z#*@#8Y#S@^)+^@@^CZ#*@^K)#0@YB )@@G@@#CS]8@#*V#K@#8Y#)@]8P]S@#0W#K@#SU#@@]8R]*@#0X#S@#)U#@@#*U#@@#8Y#*@#*V#C@YC )@@G@@#8X#)@#SU#C@#)U#@@#0X#)@#*W#K@^S)#8@#*V#C@#CT#@@#)V#K@#CR]0@#8Z#0@#@S]0@YD )@@G@@#KS]8@#*W#K@#CS]*@#)V#K@#*V#K@#)T#@@#SU#C@#)T#@@^K)#8@#*X#S@#*U#C@^C)^@@YE )@@G@@#SU#@@#CR]0@#SV#C@^@Y#)@^@Y#)@#8Y#)@^CZ#0@#ST#@@#8X#)@#8Y#0@#@R]0@#*W#S@YF )@@G@@#)U#K@#)U#C@^K-#8@#8Y#)@#8W#)@#@R]*@#*W#S@#)V#C@#0Y#)@^CZ#*@#KS]8@#@S]0@YG )@@G@@#0W#K@#8X#)@#)V#K@#ST]8@#SU#C@^CY#*@#KS]0@#)V#K@#KS]0@#)V#C@#)U#@@^C)#8@YH )@@G@@^)+^@@^C)#0@#KS]8@#)V#C@#SU#C@#KT]8@#0V#C@#KS]8@#0X#)@#ST]8@#SU#C@#*V#K@YI )@@G@@#0Y#)@#*V#K@#8Y#*@^@Z#0@#KT]8@#)U#C@#*W#S@#)V#C@#CQ]*@#8X#*@#0X#K@#0V#C@YJ )@@G@@#*U#@@#@R]*@#CS]8@#KS]8@#)U#@@#)V#K@#8Y#)@#*X#S@#KT]8@#@S]0@#8Y#)@#SU#C@YK )@@G@@#SU#@@^@Y#0@#)V#K@^8>^)@^K+^C@#ST#@@#SU#C@#0X#S@#*W#S@#8X#*@#0V#K@#KT#@@YL )@@G@@^@Y#)@^K)^@@#8W#S@#)V#C@#*W#K@]8R]*@#*V#S@#*V#K@#SU#C@#*W#S@^@X#)@#SV#K@YM )@@G@@#ST#C@#*W#K@#)V#K@#0W#S@^)+^K@]8P]*@^@Y#*@#)V#K@#CS#@@#0W#K@#KS#@@#*V#K@YN )@@G@@#8X#)@^@X#)@^)+^K@#0W#K@#@R]8@#SV#C@#)U#K@]0P]*@#KT#@@#0W#S@#KS]8@#KS#@@YO )@@G@@#8X#)@#*V#S@#)V#K@]SM]K@#CR]8@#CS]8@]0P]*@#ST#@@#KT#C@#0X#)@#*V#S@#CR]8@YP )@@G@@#)U#C@])N]S@#8X#)@#*V#S@#CS#@@^@Y#*@^@Z#0@#CR]0@#0W#)@#@P]*@#*V#S@#KT#C@YQ )@@G@@^C-#8@#)U#K@#)V#S@#0W#S@#*X#*@#ST#@@#*V#S@#SU#C@]0P])@#@Q]*@#)V#S@#ST#C@YR )@@G@@#ST#@@#SU#K@#8X#*@#)U#K@^@Z#8@#*W#S@#@S]8@#ST#C@#)V#K@#0W#S@#@R]8@#8X#*@YS )@@G@@^@Y#0@#@Q]8@#0X#S@^KZ#0@#0W#K@#*W#)@^C)^@@#KU#C@#ST#@@#ST#@@]8Q]*@#*W#)@YT )@@G@@#)T#@@^@Z#0@#*W#)@^CY#)@#@R]*@#SU#K@^@)#0@#KT#C@]*M]C@^@Y#*@#CT#@@#CR]8@YU )@@G@@#CS]8@#ST#C@^))^@@^K+^C@#*W#S@#ST#@@#SU#K@#0X#)@#KU#C@#*V#K@#*U#K@#8Y#*@YV )@@G@@]0P])@#)T#C@#0V#K@#0W#S@#*V#)@^@X#)@#CR]0@#*W#S@#ST#@@#*V#K@#ST#@@#@S]8@YW )@@G@@#8Y#*@#CR]8@#KS#@@]0Q]0@#CQ]0@^K)#8@#*V#S@^@Z#8@^0>^)@#8Y#0@#8W#)@#CS#@@YX )@@G@@#*V#S@#KS#C@^CY#*@#*W#S@#8X#*@#ST#C@^*<^K@#KU#C@#@Q]*@#KS#@@#ST#C@#0V#S@YY )@@G@@#CS]8@#8X#)@#*W#S@#SU#C@#*X#)@#*U#C@#)V#K@#0X#)@#)V#K@#0V#C@^@W#)@^S-^@@YZ )@@G@@^K)#8@#8X#)@^@Z#0@#8W#)@#KS]8@#KT#@@^@Y#*@#8X#*@#CS]0@#8Y#*@#)W#S@#ST#@@ZA )@@G@@^CZ#0@#)U#C@]0Q]0@#*U#C@#SV#K@#CR]8@#*Y#*@^)+^C@#0V#K@#8Y#*@#CS]8@#*W#S@ZB )@@G@@#)U#C@#)U#C@#)T#C@#0X#)@#KU#K@#)U#C@#CS]8@#KR]8@#KU#C@#)V#K@^@Z#*@#8Y#*@ZC )@@G@@#KT#@@#*W#K@#0Y#*@#*V#C@#SU#K@#*V#S@^@Y#*@#@Q]*@#*V#C@#KT]8@#8X#S@^C)#8@ZD )@@G@@#@Q]0@#@R]8@#CR]0@#0X#S@#CT#C@^@Z#0@#8Y#)@#KS]8@]0P])@#*W#S@^K)#8@#KS#@@ZE )@@G@@#8X#S@#KR]8@^@Y#*@#SS]8@]SL]C@#KS#@@#KU#@@#ST#@@#ST#@@^CZ#0@#0Y#)@#KT]8@ZF )@@G@@#)V#K@#0X#)@^CZ#0@]0O]S@#CR]0@#*W#S@#SS]8@#0W#S@#)V#C@#CR]*@#8X#)@#8Y#)@ZG )@@G@@#8Y#)@^@Y#*@^@X#S@#)V#K@#*W#S@#SS]8@#0W#)@#*X#S@#8X#)@#*W#K@#)V#S@#)T#@@ZH )@@G@@#KU#C@#)U#C@#@Q])@#0W#S@^C-#8@]0N]K@#8Y#)@#ST#@@#)U#C@#*U#C@^@Y#*@#CR]0@ZI )@@G@@#8W#)@#*W#K@]8P]*@#)V#C@#8-#0@#8%^S@^81 K@ C0 K@ *4 0@^*!^8@ K1 S@ 88AC@ZJ )@@G@@^K-^@@#0W#)@#0W#S@#@Q]*@#0W#S@^0&^*@#0V#K@#8X#*@^@)#8@#*V#K@#)V#K@#0X#)@ZK )@@G@@#ST#@@#CS#@@^CZ#0@#SU#K@#ST#C@#ST#C@#*V#K@#)V#S@#KT]8@#ST#@@#0X#S@#*X#)@ZL )@@G@@^KZ#0@]8O]S@ 8\ 8@B@7B@@A*6A*@#8Y#)@^K)^@@^@Z#8@B@5A)@^*=^S@^CZ#8@#8X#)@ZM )@@G@@#*V#K@#@Q]0@#KT#@@#@R]8@^*=^S@^C)#8@#0W#K@#8X#)@#@Q]0@#0X#)@#)T#@@]8P])@ZN )@@G@@#)V#K@#@S]8@#SU#C@#KS]8@^0=^S@#ST#@@#8Y#*@#KU#C@#CR]0@#8X#*@#*V#K@^S-^@@ZO )@@G@@#KS]0@#KT#@@^)+^C@ @* @@#0X#)@^0=^)@#)U#K@#8W#S@#CS]8@#*V#K@^@)#8@^S-^@@ZP )@@G@@#CR]0@#KS]8@^@Z#0@#SU#C@#*W#S@#8Y#0@#KS#@@#0X#*@^*=^S@#@R]0@#KT#@@#*W#S@ZQ )@@G@@#*V#K@#0X#)@#KT#@@#*X#)@#SU#C@#8Y#0@#*U#C@^@Y#*@^CZ#0@#8X#)@^*+^K@^@Z#8@ZR )@@G@@#0X#)@^K-^@@#8Z#0@^)+^C@#8X#*@#SU#C@#CS]8@^CZ#0@#KU#@@#KT#@@^CZ#0@^@Z#0@ZS )@@G@@#8Y#*@#*V#K@#KS]8@#@Q]*@#SU#C@#0X#)@#SU#C@#ST#@@]0P])@#8Y#*@#0X#*@#*V#K@ZT )@@G@@#0X#S@#)U#C@^K-#8@^@)#8@#0X#)@#)W#K@#)W#K@#8Y#*@^@Z#*@]8P]S@#SU#C@#)W#K@ZU )@@G@@#)V#K@#*W#S@^@Z#*@#)V#K@^@Y#*@^CY#*@#8Y#*@^@Y#)@#)W#S@^@X#)@#8X#S@#)U#C@ZV )@@G@@#0V#C@#)V#K@#SV#K@^S-^@@#0X#)@#*W#S@#8X#)@#SW#K@#0Y#*@#KT#@@]8Q]*@#)U#C@ZW )@@G@@#*W#S@#SV#K@#CS]8@#@Q])@#KT#@@#)V#C@#0X#)@^CY#0@#*X#S@#@Q])@#)U#C@#*W#S@ZX )@@G@@#*W#K@#CU#C@#CQ]*@#*W#K@#0W#S@#*W#S@#CR]*@^@Z#0@^CY#)@#*V#K@#)T#@@#)U#K@ZY )@@G@@#)U#C@#8Y#*@^C)#0@#@R]0@#0W#S@^@X#)@#*V#K@^K)#8@#ST]0@#)T#C@#CT]8@#*W#K@ZZ )@@G@@#CR]*@#)V#C@#SV#K@#@R]*@#SU#C@#8Y#*@#0V#K@#*W#S@#CS]8@^K+^@@#KT#@@^C)#0@AA )@@G@@#0W#K@#8Y#*@]8R]*@#8Y#)@^C)#8@#CS#@@#)V#S@^@Z#*@#*X#S@#CS]0@#8Y#*@#8Y#)@AB )@@G@@#CS]8@^@Z#0@#*W#S@#SU#C@]8Q])@#)U#C@^CZ#*@^@Z#0@#8X#S@#*X#S@#ST#@@#0X#)@AC )@@G@@]8Q])@#0X#)@#8Y#S@#*V#C@^K)#0@#0X#S@#)U#K@#SU#@@#SS]8@#*U#K@#0X#S@^@)#0@AD )@@G@@#*W#C@#8Y#)@^CZ#*@#KS#@@#SU]8@#8X#)@#)U#C@#*V#K@#*W#K@#SU#C@#*X#S@#0X#)@AE )@@G@@#)U#C@]*O]K@#0X#S@#CS]0@]0P])@#*W#K@#)U#C@#ST]8@#KT]8@^@Z#0@#8Z#*@#SU#C@AF )@@G@@]8Q]*@#8X#)@#0X#S@#SU#C@#0X#S@#KT]8@#)V#K@#8Z#*@#SV#K@#*W#S@#CS]8@#KT]8@AG )@@G@@#8Y#*@^0+^@@#*W#K@#)V#C@#8Y#)@]8Q]*@#KT]8@#*X#S@#SV#K@#SU#K@#*W#S@#*X#)@AH )@@G@@#)V#C@^C)#0@#@S]0@#ST]8@#8Y#*@]8R]*@#*U#C@#CT]8@#SV#@@#CS]8@#CT]8@#)U#@@AI )@@G@@#)U#@@#@R]0@#8W#S@#SU#@@#*X#)@#*V#K@#CS]8@#*W#S@^K-#0@#KS]8@#CS]8@#KS]8@AJ )@@G@@#CR]0@#*W#S@]8Q])@]8R]0@#ST#@@#*W#S@#KT]8@#*W#K@#8Y#S@#SU#@@#KU#@@^@Z#0@AK )@@G@@#)V#K@#KU#C@]8Q])@^@)#0@#CS#@@^KZ#0@#@Q]*@#SU#@@#CT]8@#)U#C@#8X#S@#@S]8@AL )@@G@@#SU#@@#ST#@@#)W#S@#@R]0@]0Q])@#)W#S@#CS]8@^@Z#*@#SU#C@^C)#0@#*X#)@#*W#S@AM )@@G@@#8X#)@^C)#8@#*V#K@#8Y#)@^*>^)@]8Q])@#SV#K@#@R]0@#0Y#)@]0P])@#0W#S@^@Y#)@AN )@@G@@^C-^@@#SV#C@^@Z#*@#0V#K@^@Z#0@#@S]8@#)U#@@#8Y#)@#0Y#)@]8R]0@#@R]*@#@R]*@AO )@@G@@#*W#K@]8Q]*@#*Y#*@#*X#S@^@Z#0@#ST]8@#CT]8@#@T]8@#0Y#)@#0Y#S@]0P]S@#CS]0@AP )@@G@@#*W#K@#KT#@@#*W#S@#SU#C@#*W#K@#SV#S@^8>^)@#SV#C@#)W#S@#SU#C@#ST]8@#SU#C@AQ )@@G@@#)V#K@]0P]S@#SU#C@#*V#S@#0W#K@^@Y#*@#CT#@@#8Y#*@#SU#C@#)W#K@#ST#@@#KU#@@AR )@@G@@#KT#@@#SU#C@]0O]S@#SV#C@#SV#C@#*X#)@#8X#S@#@R]0@^CZ#0@#SX#)@#ST#C@#0X#)@AS )@@G@@#SU#K@]8R]0@#KT]8@#CT#@@#KT#@@#CS]8@#KT]8@#)U#K@#@P])@#SU#C@#SU#C@#CT#C@AT )@@G@@#SU#C@#*X#)@#ST#C@#CT#@@#0X#S@#KT#@@#CS]0@#8Y#)@^@X#)@#KS#@@#KT#@@#SU#C@AU )@@G@@^@Z#0@#@S]0@^CZ#0@^@Z#8@#ST#C@#CT#@@^@Y#*@#0W#)@#0W#S@#SU#C@#)U#K@#KT#C@AV )@@G@@#8W#)@#CR]0@#0W#)@^KZ#8@#)U#C@#)U#K@#@R]0@^C)#8@#KT#C@#0X#*@^K)^@@#0V#S@AW )@@G@@#CS]8@#0W#)@#KT#@@#)U#C@#0W#S@#SU#C@#0W#)@#@R]0@#*X#S@#*W#)@#SU#K@#)V#K@AX )@@G@@#8X#*@#CS]8@^K)^@@#8X#*@#)V#K@#*W#K@ ), )@]8P]*@#0X#*@#*X#S@#ST#C@#KS]0@AY )@@G@@#8Y#*@^@X#*@^@Z#0@^@Z#0@#)U#C@#8Z#*@#*X#)@#*V#K@#0Y#*@#)U#K@#0W#S@#KU#@@AZ )@@G@@#*V#C@#*W#S@^@Z#0@#@R]0@#KR]8@^K-^@@#ST#C@#@R]0@^CZ#0@#0W#S@#KU#C@#8W#S@BA )@@G@@#8X#)@^*=^K@])O]S@^@Z#8@#)U#C@#ST#C@#0X#S@^K+^C@]8Q]0@#)V#S@#KT#@@#SU#C@BB )@@G@@#0W#)@#0W#S@#SV#K@#0X#)@^S-^C@#KT#C@#8Y#*@#KT#C@#ST#@@#0W#S@#KS]8@#@R]0@BC )@@G@@]*O]S@#*W#)@#@S]8@#8X#*@#*X#)@#8X#*@#KT#C@#)U#C@#)U#K@#@R#@@#*W#S@#KS]8@BD )@@G@@#CS#@@#ST#C@#*U#K@#8Y#*@#*V#S@#8Z#8@#*W#S@#*W#)@#KS#@@#0X#)@#)U#C@^@)#8@BE )@@G@@^S+^C@#8Y#0@#0X#*@#0X#)@#ST#C@#8Y#0@#)W#S@^0>^)@#KU#@@#0X#*@#KT#C@#SU#C@BF )@@G@@#0X#)@#SU#C@#CT#@@#0W#S@]0P])@^CZ#0@#@S]8@#0W#)@#CR]8@#KT#@@#8Y#0@#8Z#0@BG )@@G@@#SV#K@#)W#S@#8Y#*@#8Y#)@#KT#@@#)V#S@#KU#C@#)V#K@#SU#C@#)T#C@#KU#@@^@Y#0@BH )@@G@@#*W#K@]8R]0@#KS]8@]8Q]*@#)U#C@#*U#K@#)V#K@#)U#C@#KT#@@#@R]0@#0W#)@^S+^C@BI )@@G@@#)U#C@#)U#C@#@Q]*@#0X#)@#)W#S@#*V#K@#8Y#*@#8X#)@#)V#K@#8W#S@^C)#8@#CS]8@BJ )@@G@@#SV#S@^C)#8@#KV#K@^K)#8@^)+^C@#0X#*@#*V#S@^@Y#*@#0X#)@#KS#@@#*X#)@#)V#K@BK )@@G@@#0V#S@#*V#K@#KS]8@^@Y#*@#CS]0@#*U#C@#)W#S@^K)#8@#0W#)@#@R]0@]8R]0@#KT#C@BL )@@G@@#)T#@@^@Y#)@#SU#@@#SU#@@#KT#@@#CR]8@#*V#K@#KR]8@#KS]0@#*U#C@#*W#S@#8X#S@BM )@@G@@]8Q]*@#@S#@@#)U#C@^S-^@@#)T#@@^@Z#*@#@R]0@#*U#C@#0W#K@#@Q]0@#@Q])@#8Y#)@BN )@@G@@#CS]8@#SU#C@#*U#K@#)U#C@#@R]8@#)U#C@#*V#K@#0X#)@]8P])@#0W#S@#*V#C@#)T#@@BO )@@G@@#*W#S@#@Q]*@#0X#)@#0X#)@^@Y#*@#*V#K@#)U#C@#8Y#*@#)V#K@^C-#8@#8X#)@#KT#@@BP )@@G@@^K)#0@#)V#K@#*W#K@#*X#)@#KS]*@^S<^C@^S+^@@#*V#K@^@Z#*@#0X#S@#8W#K@#ST#@@BQ )@@G@@#*V#C@#CR]*@#SU#@@#CR]0@#CR]0@#)U#C@#KS]8@#)U#C@#KT#@@#*W#K@#KT]8@^S+^@@BR )@@G@@#0W#S@#KU]8@#*W#K@^S-#8@#)V#C@#CT]8@#CS]0@#*V#K@#0V#K@#KS]8@#CS]0@#KT]8@BS )@@G@@#)U#@@#8W#K@#0W#S@#ST#@@#CQ])@^C)#0@#*V#K@#ST]8@#@Q]*@#*V#C@^KZ#0@#*W#K@BT )@@G@@#ST]8@#*V#C@]0P]S@#8Y#*@#0Y#)@#*V#C@#KT]8@#ST#C@#ST]8@^@)#0@#SU#@@#0W#S@BU )@@G@@#SU#@@#CR]0@#*V#C@#)V#K@^@)#8@#SU#@@#)V#C@^S)#8@#0X#S@#CR]0@]0P])@#)V#C@BV )@@G@@^CY#)@]8R]0@#0Y#*@^K)#0@^S+^@@#0X#S@#SV#C@#0U#C@#*W#K@#ST]8@^@Y#)@^@Y#*@BW )@@G@@#8Y#*@#@R]*@#)U#@@#CS]8@#@R]0@#SU#@@#@R]*@#*U#K@#CS]8@#8Y#*@^S<^C@#SU#@@BX )@@G@@#*V#C@#SU#C@#SU#@@#*W#C@#*W#K@#SU#C@#KS]8@#@R]0@#)T#@@^CZ#*@#*W#K@#)V#C@BY )@@G@@#)W#K@^S-#8@^K-#8@#SU#C@#@R]0@#)V#K@^S+#8@^S<^C@#8Y#)@#8Y#)@#CS]8@#0W#K@BZ )@@G@@#@R]*@#8X#)@#)V#C@#SV#C@^C)#*@#0W#S@]8Q])@#*V#C@#KS]0@#*W#K@^K+^C@^@)#*@CA )@@G@@^CZ#0@#ST#@@#8Y#*@#KU#@@#8X#)@^@Y#)@#*V#K@]8R]0@^C-#0@#CS]8@#8X#S@^@Y#)@CB )@@G@@#8X#S@#8Y#*@^C)#8@#0W#K@#)U#@@#)V#K@#KT]8@]8Q])@#SU#C@#)V#@@^CZ#0@^)+^C@CC )@@G@@#SU#@@]8R]0@#KT]8@#KT]8@#ST#@@#)V#@@#*W#S@#CR]0@#)U#K@#KT#@@^C-#8@#)V#K@CD )@@G@@#ST]8@]8Q]*@#0Y#S@#SU#@@#8X#S@#CS]8@#CS]0@#*W#S@#*V#S@#8Y#)@#@R]0@#8Z#*@CE )@@G@@#*V#C@^@)#0@#8Z#*@#KU#@@#SV#K@#KU#@@#*W#S@#0Y#*@#8Y#*@^*<^K@]8Q]*@#0X#S@CF )@@G@@#8Y#)@#8Y#*@#KV#C@#*W#S@#8Y#*@^@Z#0@#*V#K@#8Y#)@^@Y#)@#8X#)@#SV#C@^K-^@@CG )@@G@@#SU#@@#KS]8@]8Q]*@#0W#S@#KT]8@#8X#)@#8Y#*@#KU#@@#)U#C@#*W#S@^*=^K@#KT#@@CH )@@G@@#0Y#*@#)U#C@^C-^@@^CZ#0@^)<^C@#)W#S@^C)#0@#0W#S@#SU#C@#0W#S@#0X#*@#CT#@@CI )@@G@@#)V#K@#0Z#*@#0V#S@#)V#K@#SV#C@#8Z#*@#CU#@@#*W#S@#8Y#*@#8Z#0@#8Z#0@#SU#C@CJ )@@G@@#*W#S@^CZ#8@#)W#K@#)X#)@#8Z#*@#CS]8@#)V#K@#SV#K@#)W#S@#SV#K@^@Y#0@#@S]8@CK )@@G@@^@Y#0@#*W#K@#8Y#*@#SU#@@#*W#S@#KU#C@#KT]8@#0X#)@#*V#K@#ST#@@#KU#@@#8X#*@CL )@@G@@#*W#S@#)W#S@#*W#)@]0R]0@#*W#S@]*O]S@#@R]0@#)V#K@#SU#C@#SU#@@#KU#C@#ST#@@CM )@@G@@#0X#*@#CR]8@#)X#*@#*W#S@#0W#)@]0Q])@#8Y#*@#0X#)@#*W#K@#KU#K@#CS]8@#0Y#)@CN )@@G@@#)V#S@#ST#C@#*X#)@#*V#K@#SW#S@#0X#)@#CU#C@#0W#S@^S+^C@#SW#K@#@R]0@#SU#C@CO )@@G@@#0X#*@#SU#@@#8Y#0@#)V#K@#SU#C@#8Y#)@#0W#)@]8R]0@#)U#K@#CS]8@#0Y#*@#)U#C@CP )@@G@@#*X#)@#)W#)@#0Y#*@#*W#)@#)V#K@#8Y#*@#0X#)@#8Y#*@#KT#@@#KU#C@#*W#S@#SU#C@CQ )@@G@@#8X#)@#0X#)@#*V#S@#0Y#*@^*=^S@]8Q]0@#@R]8@#)V#K@#)V#K@]0O])@#)V#S@#KT#C@CR )@@G@@#ST#C@#SU#K@#SV#K@#KT#@@#CU#C@#*X#)@]8S]8@#KU#C@#KT]8@#SU#K@#0W#)@#8X#)@CS )@@G@@^CY#0@]8P]S@^@)#8@#SV#S@#@Q]0@#KS#@@#@R]0@^@)#8@#CR]0@#*W#S@#8Y#0@#)U#C@CT )@@G@@#)V#K@#CS#@@#8Y#)@#)W#S@#KT#C@#ST#@@#SV#S@#)T#C@#*W#S@#CS#@@^@Z#0@#*W#)@CU )@@G@@#ST#@@#0Y#)@#CS#@@#)U#K@#*W#S@#CS#@@#)V#K@#0W#)@#SU#K@#*V#K@#CR]0@#SR]0@CV )@@G@@#ST#C@#0X#)@^K)#8@#SU#K@#KT#@@#KU#K@#8Y#*@#KS#@@#@R]0@#SU#C@#*W#S@^*<^K@CW )@@G@@#)U#K@#0X#)@#0X#*@#KR]8@#0W#S@#*W#S@#*W#)@#ST#@@#CS#@@^@Z#0@#0X#)@#)T#@@CX )@@G@@#*V#K@]0P])@#SV#K@#CR]8@#CR]8@#*W#K@#0X#S@#0V#K@#SU#C@#SU#C@#CS#@@#KT#@@CY )@@G@@#KV#K@#8Y#*@#ST#C@^KZ#0@^K)#0@#KS]8@#0Y#0@^K)#8@#@S]8@#*V#K@^@Y#)@#KS#@@CZ )@@G@@#0W#)@#)V#K@#*V#S@]0Q]*@#@R]8@#*V#S@#*W#)@#ST#@@#*V#S@#)U#C@#KS]8@#0V#S@DA )@@G@@^@Z#0@^@Y#*@#ST]8@#0W#S@#ST#@@#8X#)@#8X#)@^K-^@@^CY#0@^@X#)@^S-^@@#)T#C@DB )@@G@@#CR]0@#KS]8@#@S]8@#*W#S@^)-^@@^K)#8@#SU#C@#0X#)@#)U]8@#8X#*@#CS]8@#8W#S@DC )@@G@@#8W#K@#8X#)@#8Y#)@#SU#C@#*W#S@^@Z#*@#0W#K@#0W#)@#*U#@@^@Z#8@#)V#K@#KT#@@DD )@@G@@#)U#@@^@Z#0@#ST#@@^*<^K@#*W#)@#8Z#*@^@)#8@#CS]8@#0X#S@#@Q]*@#8X#)@^*<^C@DE )@@G@@#)U#@@^*<^C@#8W#K@^S+^C@#*W#K@#0W#K@#*W#S@#0W#S@#KT]8@#SU#@@#KT#@@#SU#C@DF )@@G@@#)U#K@#ST#@@#)U#@@^K)#8@^CY#*@#8X#S@#SV#K@#KT]8@#KS]8@#0X#)@#*W#K@#)W#S@DG )@@G@@#*V#C@#0W#S@#@T]8@#8X#)@#)W#K@#KT#@@]8R]*@#0Y#)@#ST]8@#SV#C@#@R]*@#)V#@@DH )@@G@@#8Y#*@^CZ#*@#@R]0@^@Z#*@#CR]*@#8Y#)@^KZ#0@#*X#)@#8Y#S@#8Z#*@#)U#@@]SM]C@DI )@@G@@#0X#)@#CR]*@#CS]8@#8W#S@#KS]0@^S+^@@#CS]8@^@X#)@#CT]8@#KT]8@#*X#)@#CQ]*@DJ )@@G@@^C)#0@^K)#0@#*V#C@#*W#K@#)U#@@#8Y#)@#CT]8@#0X#S@^)+^@@^8&^)@^@Z#*@#KT]8@DK )@@G@@#CR]0@#0W#K@#)U#@@#8W#K@#0X#)@#0W#K@#CR]*@#*V#C@#*W#S@#KS]0@#8Z#*@]0O]S@DL )@@G@@^@Z#*@#CR]*@#*W#S@^C)#*@^@X#)@#8Y#S@#)W#K@^@Z#*@#)T#@@#0W#K@#8X#)@#0X#)@DM )@@G@@#KU#@@#0X#)@#8Y#)@#*V#S@#8W#S@#0W#K@#)V#C@^)+^C@#*V#C@#0W#K@#@S]0@#SV#C@DN )@@G@@#0X#S@#8Z#*@^@Z#*@]0O]K@#SU#@@#CS]0@#@R]*@#SU#@@#)V#K@^S+^@@^K)#0@#KT]8@DO )@@G@@#)W#K@^@Z#*@#8Y#)@#KS]0@#KT]8@#0W#S@#ST]8@#0X#S@ @$^*@]8Q])@^CZ#*@#KR]0@DP )@@G@@#SU#@@#*X#S@#8Y#)@#)U#C@#)U#@@#KU#@@#0W#S@#)W#K@#0Y#)@#0X#S@^@-#0@^K-#8@DQ )@@G@@#*V#C@#*W#K@#*X#S@#)W#K@#CR]0@#)V#K@#*W#S@#8X#)@#KT]8@#8X#)@#8Y#)@#8X#*@DR )@@G@@#SV#C@#SU#C@^@Z#*@#0X#)@]*O]K@#@R]*@#CR]0@#)V#C@#KS]8@#*V#C@#CS]8@#*W#K@DS )@@G@@^@Y#*@#SU#@@#)V#C@#CS]8@#0Y#*@^C)#8@^C)#8@#KU#C@#*W#)@#0W#S@^0&^)@ S3 )@DT )@@G@@AK_A*@^)\^8@AD@A8@ C3 )@ )7A@@#0Y#S@#SU#C@#8Y#*@#*U#C@^C-^@@#*W#K@#@Q]*@DU )@@G@@#8Y#)@^C-#8@#*U#C@^C)#8@#*W#S@#@R]0@#CT]8@])O]S@#CT#@@^CZ#0@^CZ#0@#*W#K@DV )@@G@@#8Y#)@^K-^@@#KU#@@#*W#K@#*X#S@#8Y#*@#CS]8@#@S]0@#8X#)@#)W#S@#8Z#*@^@Y#*@DW )@@G@@^@Z#*@#)V#K@#CT#@@]8R]0@^S+^@@#)X#S@#CT#@@]*P])@#*V#K@#*W#S@#*W#S@#SU#C@DX )@@G@@#)V#C@#)W#S@#SU#C@#KT#@@#0W#S@#ST#C@^@Y#*@#8Y#*@#8X#)@]8S]0@#0W#S@#*V#K@DY )@@G@@#*W#K@#*X#S@#8Y#*@#SU#C@#0X#)@#0Y#*@#8Y#)@#8Y#0@#SU#C@#)V#C@#0Z#*@#*W#K@DZ )@@G@@^@Z#*@#0X#)@#)W#K@#)W#S@#KU#C@#8Y#*@#0Y#)@]8Q]*@]*O])@#0W#S@#CR]0@#*W#S@EA )@@G@@#8X#)@#)V#C@^@)#8@#KU#C@#KU#C@#KS]8@#8X#)@#0Z#0@^CZ#*@#SU#K@^C)#8@#*W#S@EB )@@G@@#*W#S@^@Z#*@#@S]0@#CR]0@#0Y#*@^KZ#0@#*X#)@#@R]0@]8Q]*@#SU#K@#ST#@@#0X#S@EC )@@G@@#*W#)@#@R]0@#CS]8@]0P])@#)V#S@#SU#C@#8W#S@^@Y#*@#CS]0@^@W#)@#)U#K@#*W#S@ED )@@G@@#*V#S@#ST#@@#SS#@@#8Y#0@#*W#)@#SU#K@#8Y#0@^@Z#*@#ST#C@#8Z#0@#)V#S@#*X#)@EE )@@G@@#8X#)@#*V#S@#)U#K@#@R]8@#8Y#*@#)V#S@#*W#)@#0X#*@#0Y#0@#KT#C@#SU#C@#SU#K@EF )@@G@@#@R]0@#)U#K@^S+^C@#*V#K@^@Y#*@#0X#)@#)V#S@^S<^K@^@Z#8@#SU#K@#*X#)@#SV#K@EG )@@G@@#KS#@@^*=^S@#*V#K@#ST#C@#)U#K@#0X#)@#CS#@@#)V#K@#*W#)@#)V#S@^@Z#0@#8Y#*@EH )@@G@@^@Y#*@^S-^@@^S+^C@#)V#K@#*V#S@#8Y#)@#CS]8@#*W#S@#8W#)@#KT#@@#)U#K@#8Z#0@EI )@@G@@^@Z#*@#8X#)@#0V#K@#)V#C@#8Y#0@^CY#*@#KT#@@]*P]*@#CR]8@#0X#*@^CZ#8@^)+^C@EJ )@@G@@#@R]0@^K-^@@#CR]8@#0X#)@#*X#*@#)V#K@#SV#K@#0X#)@#)U#K@#*W#)@#SU#C@#KU#K@EK )@@G@@^K-#8@#@Q]*@#SV#K@^K-^@@#*V#S@#8X#*@^)=^S@#SV#K@^8>^)@#0X#)@#ST#C@#ST#@@EL )@@G@@#8X#)@#CR]0@#*V#K@^S+^K@^@X#)@^CZ#8@^K+^C@#KT#C@#*W#S@#*W#S@^@Z#8@#*V#S@EM )@@G@@^S-^C@^@Z#*@#0W#S@#)W#)@#8X#*@^S)^@@^CY#*@#)V#K@#)V#S@#8Y#0@#*W#S@#ST#K@EN )@@G@@^@Y#*@#8X#)@^@X#*@#*W#S@#)U#C@#@R]0@#@R]*@#)U#K@^@Z#0@]0P]0@#)S#@@#SU#C@EO )@@G@@#8X#)@^C)^@@^CZ#*@#)U#K@^C)#8@^*<^K@#)U#K@#SU#C@#*W#S@]8P])@#0X#*@^@Z#0@EP )@@G@@#)W#S@^S+^K@^K-^@@#8Y#*@#*V#K@#*X#)@#@R]8@#0W#S@#CS]8@#KS]0@#0Y#*@^CZ^@@EQ )@@G@@#*W#)@])N]K@#)V#C@^S)#8@#*V#K@#8Z#0@#CS]8@#SU#C@#KR]8@#8Y#0@#0X#S@#8Y#*@ER )@@G@@#8X#*@#ST#@@]8R]0@#KT#C@#ST#C@#8Y#0@#*V#K@#)U#C@^C-#8@#CT#@@#KT#@@#CS]0@ES )@@G@@#)V#C@^CZ#8@#ST#C@#8X#*@#0W#S@#8X#S@^@Y#*@]0P])@^@Z#8@#0Y#)@#)V#K@#8Z#0@ET )@@G@@^CZ#0@#0W#C@#0X#S@#8Y#*@^S-^@@#SU#C@#0X#)@#*W#S@^)=^S@^S+^@@]8Q]*@#0X#)@EU )@@G@@#0X#)@#0X#)@#*W#C@#8X#S@#*W#K@#0W#K@#0W#K@#*V#C@^S+^C@#)V#@@^@Z#*@#)W#K@EV )@@G@@^K)#8@#8Y#S@#8X#)@#8X#S@#@R]*@#SU#@@^@Z#*@#*V#C@#*V#C@^@Z#*@#)U#@@]8Q]*@EW )@@G@@#)W#K@#0Y#*@#*W#K@^@)#0@^@Y#*@^@Z#*@#*V#C@#*W#K@#)U#@@^C)#8@#KR]0@#CS]0@EX )@@G@@#SU#C@#KT#@@^@Y#)@^@Y#)@#*W#S@#8X#K@#)U#@@#*V#C@^@Z#*@#*W#S@#CT#@@#)U#@@EY )@@G@@^C)#8@^@Y#)@#KT#@@^*=^K@^)+^@@^C+^@@^S-^@@#CT]8@#8Y#)@#)V#@@#*V#C@#SU#@@EZ )@@G@@^C)#8@#CS]0@#SU#C@#*V#K@#0W#K@#)U#@@#0W#S@^)<^K@^@Z#*@#*V#K@#0W#S@#*V#C@FA )@@G@@^*=^K@#*V#K@#KT]8@^@Z#*@#ST]8@#8X#S@#KT]8@#0X#S@^@Y#*@#)U#C@^K-#8@^C)#0@FB )@@G@@#)U#@@#@R]*@^CZ#0@#8Z#*@#0Y#)@#CR]*@^K)#0@#*W#K@#8Z#*@#0X#S@^@X#S@#*W#S@FC )@@G@@^C-#8@^@X#S@#8X#)@#8Y#*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@FZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@GZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ID )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@II )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@KZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@LZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ME )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ML )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ND )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@NZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ON )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ST )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@TZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@US )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@YZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@CZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DD )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DR )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DV )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DX )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ED )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EG )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EN )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EO )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ER )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ES )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ET )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@EU )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[@@@@*SDFF*@^@@@@@ASM,USW CONVERSION @B@@@@EV )@@G@@. THIS ROUTINE HAS THREE ENTRY POINTS @[@@@@. @F@@@@. EBO$X EW )@@G@@ - CONVERT THE BINARY NR IN A0 TO OCTAL FIELDDATA @[@@@@. @F@@@@EX )@@G@@. EBD$X - CONVERT THE BINARY NR IN A0 TO DECIMAL FIELDDATA @[@@@@EY )@@G@@. @E@@@@. CONVERT - CONVERT THE FIELDDATA NR IN X2 TO BINARY EZ )@@G@@@[@@@@. @F@@@@. FOR EBO$X AND EBD$X, 0,X11 CONTAINS (S1, S3, H2)FA )@@G@@ THE NR OF @F@@@@. CHARACTERS IN THE OUTPUT AREA, THE NR OF DIGITS FB )@@G@@TO GET, @D@@@@. AND THE ADDRESS OF WHERE TO PUT THE CONVERTED NRFC )@@G@@@[@@@@. @[@@@@-3,3- @C@@@@/./. CONVERT BINARY NR IN A0 TO OCTAL FIELFD )@@G@@DDATA @[@@@@-7,7- @]@@@@/14/U / @[@@@@-8,8 @G@@@@ EX FE )@@G@@ INSRTC,*A3 . INSERT CHARACTER IN OUTPUT WORD @]@@@@-10,10- FF )@@G@@@]@@@@/11/X11/ @]@@@@-11,11- @C@@@@/./. BINARY NUMBER IN A0 TO DEFG )@@G@@CIMAL FIELDDATA @]@@@@-12,12- @ @@@@/./. NUMBER TO BE CONVERTED FH )@@G@@@[@@@@-14,19@E@@@@EM L,U A0,0 . ZERO FOR DIVISIFI )@@G@@ON @E@@@@ DI,U A0,10 . LOP OFF BOTTOM DIGIT FJ )@@G@@@F@@@@ A,U A1,060 . MAKE REMAINDER FIELDDATA FK )@@G@@@I@@@@ DSC A0,36 . REVERSE REMAINDER + QUOTIENFL )@@G@@T FOR NXT DIV @F@@@@ EX INSRTC,*A3 . INSERT CHFM )@@G@@ARACTER IN OUTPUT @B@@@@ AN,U A4,1 . @]@@@@FN )@@G@@-21,21- @A@@@@/./. ALL OF BINARY NUMBER CONVERTED?@]@@@@-22,22- FO )@@G@@@]@@@@/14/U / @]@@@@-25,25- @A@@@@/./. PUT IN MINUS SIGN IF NEGAFP )@@G@@TIVE @[@@@@-27,27@I@@@@ J 1,X11 . ALL CHARAFQ )@@G@@CTERS REQUESTED HAVE BEEN FILLED @]@@@@-28,28- @#@@@@/./. LOAD BLFR )@@G@@ANKS @[@@@@-30,30@F@@@@EP EX INSRTC,*A3 . FRONT FILFS )@@G@@L WITH BLANKS @[@@@@-32,32@C@@@@ J 1,X11 FT )@@G@@ . RETURN @[@@@@-35,37@F@@@@ LXM A2,0,X11 . ADDFU )@@G@@RESS OF OUTPUT WORD @F@@@@ LXM,S3 A3,0,X11 . NR FV )@@G@@DIGITS IN A0 TO GET @G@@@@ L,S1 A4,0,X11 . NR FW )@@G@@CHARACTERS IN OUTPUT AREA @[@@@@-40,40@]@@@@INSRTC . @F@@@@ES FX )@@G@@ LMJ A3,EF . PUT A CHARACTER IN A WORD @]@@@@-41,46FY )@@G@@- @]@@@@/12/S2/ @]@@@@/11/S3/ @]@@@@/10/S4/ @]@@@@/9 /S5FZ )@@G@@/ @]@@@@/8 /S6/ @]@@@@/13/S1/ @[@@@@-48,48@G@@@@ LXGA )@@G@@M,U A3,5 . SET UP FOR POSSIBLE NEXT WORD @]@@@@-50,50GB )@@G@@- @B@@@@/./. CONVERT FIELDDATA NR IN X2 TO BINARY @]@@@@-55,55- GC )@@G@@@A@@@@/./. IS LAST CHARACTER A DIGIT ? @]@@@@-59,59- @^@@@@/./. AGD )@@G@@DD 10'S DIGIT/ @]@@@@-62,62- @^@@@@/./. ADD 100'S DIGIT/ @]@@@@GE )@@G@@-65,65- @^@@@@/./. ADD 1000'S DIGIT/ @]@@@@-72,72- @B@@@@/./. PGF )@@G@@UT SUM OF DIGITS IN X2 TO RETURN/ @^@@@@@PDP,UL .CPDPROCS @[@@@@GG )@@G@@-5,5- @D@@@@38/. PRINTS FILENAME, NR, BLOCK NR, AND BLOCK SIZE @[@@@@GH )@@G@@-6,8 @[@@@@-9,9- @^@@@@38/. LINE NR ON PRINTOUT@[@@@@-10,11@B@@@@ GI )@@G@@ L,U A0,2 . @ @@@@ S,H2 A0,P$ED3+1GJ )@@G@@@]@@@@-14,14- @^@@@@38/. NR WORDS IN RECORD @]@@@@-15,15- @B@@@@GK )@@G@@38/. NR WORDS IN RECORD LEFT TO PRINT @]@@@@-17,17- @D@@@@/ ./.GL )@@G@@ IF X OPT DECREASE TOT NR WDS TO PRNT 1 LINE @]@@@@-18,18- @D@@@@GM )@@G@@/./. NR WDS TO PRNT IN A0, DECR N$WSAV BY WDS PRNTD @]@@@@-19,19- GN )@@G@@@D@@@@38/. RETURN HERE FROM P$COMN IF N$WSAV = 0-NO PRT @]@@@@-20,20GO )@@G@@- @^@@@@/TION/TION PRM 2 14-11 @[@@@@-21,21@F@@@@ L,H2 GP )@@G@@ A0,P$ED3 . ADDR STARTED LAST PRINT AT @[@@@@-23,23@G@@@@ GQ )@@G@@ S,H2 A0,P$ED3 . STARTING ADDR OF WORDS TO PRINT @]@@@@GR )@@G@@-24,24- @^@@@@/INE/INE PRM 2 14-10/ @[@@@@-25,25@E@@@@ E$GS )@@G@@O 4,15,C$TR . PUT IN OCTAL LINE NR @]@@@@-26,26- @C@@@@GT )@@G@@38/. REPEAT EDIT FUNC NR WORDS TIMES PRM 2 1413 @]@@@@-28,28- @A@@@@GU )@@G@@49/. ALPHA OR HOLLERITH/PRT PSN 6 @]@@@@-29,29- @D@@@@49/. OCTAL PGV )@@G@@RT PSN 20,FULL WD,START BK-8 PRM2 14-11 @[@@@@-31,31@I@@@@ E$GW )@@G@@WT 22,0,1 . PRM 2 14-12 22 WDS ON PRNTR AFTER SP 1 LN GX )@@G@@@]@@@@-33,33- @ @@@@38/. UP LINE WORD COUNTER @[@@@@-35,36@E@@@@GY )@@G@@ L,U A0,1 . RESTORE M ADDRESS @B@@@@ GZ )@@G@@ S,H2 A0,P$ED3+1 . @[@@@@-47,64@]@@@@-67,70- @B@@@@HA )@@G@@38/. PROC-BINARY TO FIELDDATA DECIMAL @ @@@@38/. BINARY TO OCTAL FIEHB )@@G@@LDDATA@E@@@@38/. NR DIGITS IN,WHERE PUT CNVTED NR, NR PLACES WNATED HC )@@G@@@C@@@@38/. NR CH OUT, NR DIGITS IN, OUTPUT WD ADDR @]@@@@-76,77- HD )@@G@@@#@@@@38/. NR WORDS @ @@@@38/. 0 IF NEW, 1 IF SAME CARD @#@@@@@ASM,UHE )@@G@@SW PRT @[@@@@-24 @I@@@@ SA A0,SAVADR . ADHF )@@G@@DRESS OF FILE INFORMATIOM . 3B @[@@@@-27,27@I@@@@ LAHG )@@G@@ A0,SAVADR . ADDRESS OF FILE INFORMATION . 3B HH )@@G@@@[@@@@-30,30@I@@@@ LA A0,SAVADR . ADDRESS OF FILHI )@@G@@E INFORMATION . 3B @[@@@@-46,50@[@@@@-57,58@^@@@@ 'BHJ )@@G@@LOCK NO. '@[@@@@-63,64@^@@@@ ' WORDS OR '@[@@@@-68 @#@@@@HK )@@G@@SAVADR + 0 @[@@@@-71,72@#@@@@@ASM,USW CPD @]@@@@-23,23- HL )@@G@@@]@@@@/, 'T'/ / @[@@@@-26,27@[@@@@-37,37@E@@@@ JZ A2,CHM )@@G@@DIMGE . IGNORE A BLANK CARD @[@@@@-190 @E@@@@ CLRR HN )@@G@@ . ZERO RECORD COUNT @]@@@@-193,193 @[@@@@-232 HO )@@G@@@ @@@@ L A0,X2 @G@@@@ TNE A0,NMANYF HP )@@G@@ . DID USER GIVE A FILE COUNT @E@@@@ L,U X2,1HQ )@@G@@ . NO - ONLY DO 1 FILE @[@@@@-285 @E@@@@ LA HR )@@G@@ A0,TEMP . CHECK IS X OPTION ON@ @@@@ TOP,U A0,0HS )@@G@@4 @^@@@@ J $+5 @B@@@@ LA A0,(P 2, HT )@@G@@9,XMSG1) @B@@@@ ER PRINT$ . @B@@@@ HU )@@G@@ LA A0,(P 1, 9,XMSG2) @B@@@@ ER PRINT$ HV )@@G@@ . @[@@@@-287 @E@@@@ TNZ,S6 OPTION . F HW )@@G@@OPTION REQUESTED @B@@@@ J DONEIT . NO@B@@@@HX )@@G@@ L A0,X2 . @G@@@@ TNE A0,NHY )@@G@@MANYF . DID USER GIVE A FILE COUNT @H@@@@ L,U HZ )@@G@@ X2,1 . USER DIDNOT GIVE A NR - ONLY DO 1 @]@@@@-289,2IA )@@G@@89 @I@@@@NEXREC . IB )@@G@@ . 3A @[@@@@-320 @I@@@@ DL A0,FILEN IC )@@G@@ . . 3A @I@@@@ DSID )@@G@@ A0,FACPAC . PREPARE PACKET . 3A IE )@@G@@@I@@@@ L,U A0,FACPAC . IF )@@G@@ . 3A @I@@@@ ER FACIT$ . IG )@@G@@ . 3A @I@@@@ L,S1 A1,FACPAC+IH )@@G@@6 . EQUIPMENT TYPE FOR POSSIBLE AFC . 3A @I@@@@ S II )@@G@@ A1,EQUIP1 . . 3A IJ )@@G@@@[@@@@-326 @I@@@@ DS A0,FACPAC . SET UP PACKET IK )@@G@@FOR FACIT . 3A @I@@@@ L,U A0,FACPAC IL )@@G@@ . . 3A @I@@@@ ER IM )@@G@@ FACIT$ . GET EQUIPMENT TYPE . 3A @I@@@@IN )@@G@@ L,S1 A0,FACPAC+6 . IO )@@G@@ . 3A @I@@@@ S A0,EQUIP2 . IP )@@G@@ . 3A @]@@@@-346,346- @]@@@@/,H2/ / @]@@@@IQ )@@G@@-359,359- @]@@@@/,H2/ / @]@@@@-361,361 @I@@@@ L,H2 IR )@@G@@ A14,WDSTP1 . PICK UP WORD COUNT ONLY . 3A @I@@@@IS )@@G@@ L,H2 A15,WDSTP2 . PICK UP WORD COUNT ONLY IT )@@G@@ . 3A @[@@@@-418 @I@@@@ L,U A0,0050004 . TEIU )@@G@@ST FOR ODD NR WDS ON 9 TRACK . 3A @I@@@@ TNE,H1 A0,WIV )@@G@@DSTP1 . AFC ON TAPE 1 WITH 5 FRAMES . 3A @I@@@@ IW )@@G@@ J AFCTP1 . AFC IS ON TAPE 1 . 3IX )@@G@@A @I@@@@ TE,H1 A0,WDSTP2 . NOT ON 1 TRY TAPE 2 IY )@@G@@ . 3A @I@@@@ J TRUGOF . HAIZ )@@G@@VE TRUE NON COMPARE ERROR . 3A @I@@@@ L,H2 A0,WJA )@@G@@DSTP2 . NR WORDS READ + PAD . 3A @I@@@@ JB )@@G@@ ANA,U A0,1 . DECREADE FOR PAD . 3JC )@@G@@A @I@@@@ TE,H2 A0,WDSTP1 . SAME NR WORDS WITHOUJD )@@G@@T AFC . 3A @I@@@@ J TRUGOF . NOJE )@@G@@ . 3A @I@@@@ LA A0,EJF )@@G@@QUIP2 . TEST FOR 9 TRACK TAPE . 3A @I@@@@ JG )@@G@@ TE,U A0,05 . NINE TRACK TAPE DRIVE 8C9 . 3JH )@@G@@A @I@@@@ J TRUGOF . NOT NINE TRACK JI )@@G@@ . 3A @I@@@@ LA A0,EQUIP1 . MUJJ )@@G@@ST BE 7 AND 9 TRACK COMPARISON . 3A @I@@@@ TE,U A0,3JK )@@G@@ . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@@ JL )@@G@@ J TRUGOF . . 3JM )@@G@@A @I@@@@ ANA,U A15,1 . USE 1 LESS WD FOR COJN )@@G@@MPARE . 3A @I@@@@ J CMPAFC . PRJO )@@G@@INT WARNING FOR USER IF NOT DONE . 3A @I@@@@AFCTP1 L A0,EJP )@@G@@QUIP1 . TEST FOR 9 TRACK TAPE DRIVE . 3A @I@@@@ JQ )@@G@@ TE,U A0,05 . . 3JR )@@G@@A @I@@@@ J TRUGOF . NOT 9 TRACK DRIVE JS )@@G@@ . 3A @I@@@@ L A0,EQUIP2 . MUJT )@@G@@ST BE 7 AND 9 TRACK COMPARE . 3A @I@@@@ TE,U A0,3JU )@@G@@ . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@@ JV )@@G@@ J TRUGOF . . 3JW )@@G@@A @I@@@@ ANA,U A14,1 . DECREASE NR WORDS FOJX )@@G@@R PAD . 3A @I@@@@ TE,H2 A14,A15 . SAJY )@@G@@ME SIZE WITHOUT PADDING . 3A @I@@@@ J TRUGJZ )@@G@@OF . . 3A @I@@@@CMPAFCKA )@@G@@ . . 3KB )@@G@@A @I@@@@ J SAMWDS-1 . TEST WORD COMPARISONKC )@@G@@ . 3A @I@@@@TRUGOF . KD )@@G@@ . 3A @]@@@@-665,665- @]@@@@/X /X*KE )@@G@@/ @]@@@@-674,674 @]@@@@-775,775- @]@@@@/NT /NT*/ @[@@@@-809 KF )@@G@@@I@@@@EQUIP1 + 0 KG )@@G@@ . 3A @I@@@@EQUIP2 + 0 KH )@@G@@ . 3A @I@@@@FACPAC RES 10 KI )@@G@@ . 3A @[@@@@-851 @F@@@@KJ )@@G@@XMSG1 ' ** X OPTION SET. ONLY THE FIRST LINE **' @F@@@@KK )@@G@@XMSG2 ' ** OF EACH RECORD WILL BE PRINTED. **' @]@@@@KL )@@G@@-863,864 @^@@@@ 'AND FILE '@]@@@@-868,869 @^@@@@ KM )@@G@@ 'AND FILE '@]@@@@-871,876 @C@@@@ 'DID NOT COMPARE STAKN )@@G@@RTING AT WORD ** '@]@@@@-878,883 @C@@@@EOFM1 'END-OF-FILE WAS ENCKO )@@G@@OUNTERED IN BLOCK'@]@@@@-885,886 @^@@@@ ' *FILE *** ' @]@@@@KP )@@G@@-890,898 @F@@@@NOTEOF 'END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTEREKQ )@@G@@D ON FILE**'@]@@@@-901,910 @G@@@@BLOWIT 'AN END-OF-FILE WAS ENCOUNKR )@@G@@TERED BUT NOT EXPECTED IN BLOCK ***'@]@@@@-912,913 @^@@@@ '*KS )@@G@@** ON FILE '@[@@@@-923 @ @@@@NMANYF + 037777777777 @]@@@@-924,9KT )@@G@@24- @ @@@@/TAPES COMPARE/FILE COMPARES/ @#@@@@@ASM,USW TPRD$@I@@@@KU )@@G@@. GENERAL TAPE READ ROUTINE USED BY DUP, CMP, PRT FUNCTIONS KV )@@G@@ . 3A @I@@@@. CALLING SEQUENCE LMJ X11 KW )@@G@@ . 3A @I@@@@. + FILE KX )@@G@@ . 3A @I@@@@. + NAME KY )@@G@@ . 3A @I@@@@KZ )@@G@@. + 4096, BUFFER AREA LA )@@G@@ . 3A @I@@@@. + EOF OR EOT RETURN ADDRESS LB )@@G@@ . 3A @I@@@@. IF BAD IO (NOT 0, 1, 2, OR 4) LC )@@G@@TAKE EXIT$ . 3A @I@@@@. RETURNS NR WLD )@@G@@ORDS READ IN H2 OF NOWDS$ . 3A @I@@@@LE )@@G@@. 4 IN S3 OF NOWDS$ AND AFC IN S1 OF NOWDS$ IF AFC LF )@@G@@ . 3A @I@@@@. LG )@@G@@ . 3A @[@@@@. @[@@@@-4 @I@@@@ SZLH )@@G@@ NOWDS$ . CLEAR AFC FLAGS AND WORD COUNT . 3A LI )@@G@@@[@@@@-25 @I@@@@ S A0,SAVEAD . SAVE LOCATION LJ )@@G@@OF 4 WD FILE INFO . 3A @[@@@@-28,28@I@@@@ L A0,SLK )@@G@@AVEAD . . 3A @[@@@@-30 LL )@@G@@@I@@@@ L A0,SAVEAD . ADDRESS OF FILE INFO LM )@@G@@ . 3A @[@@@@-46 @I@@@@ S A0,SAVEAD LN )@@G@@ . . 3A @[@@@@-49,49@I@@@@ LO )@@G@@ L A0,SAVEAD . LOAD ADDRESS OF 4 WD FILE INFO AREA. 3LP )@@G@@A @[@@@@-68 @I@@@@ LA A0,PKTD . LQ )@@G@@ . 3A @I@@@@ ER PRINT$ LR )@@G@@ . . 3A @[@@@@-76 @I@@@@LS )@@G@@SAVEAD + 0 . LT )@@G@@ . 3A @[@@@@-92 @I@@@@PKTD P 1,12,MSGD LU )@@G@@ . 3A @]@@@@-100,100 @E@@@@MSGA LV )@@G@@ ' *** AFC-THE INPUT CHARACTER COUNT OF BLOCK NO.'@]@@@@-102,103 LW )@@G@@@I@@@@ + ', FILE ' LX )@@G@@ . 3A @]@@@@-109,109- @]@@@@/**/* / @]@@@@-113,113- LY )@@G@@@]@@@@/**/* / @[@@@@-113 @I@@@@MSGD ' *** AN ODD NR OF WORDS PERLZ )@@G@@ RECORD CAN CAUSE THIS ON A 9 TRACK DRIVE ' @#@@@@@ASM,USW SIGN MA )@@G@@@]@@@@-119,119- @]@@@@/003/03B/ @^@@@@@ELT,UL CPDPAPER @[@@@@MB )@@G@@-4,4- @]@@@@/003/03B/ @[@@@@-9,9- @]@@@@/003/03B/ @]@@@@-109,109- MC )@@G@@@[@@@@/T, //@]@@@@-131,131- @F@@@@/QUAL/QUALIFIERS AND F-CYCLES ARE NOMD )@@G@@T RECOGNIZED BY THE COPY- @]@@@@-132,132- @F@@@@/PRO/DUMP PROCESSOME )@@G@@R BUT FILES NEEDING QUALIFIERS AND F-CYCLES @]@@@@-133,133- @F@@@@MF )@@G@@/CARDS./IN THEIR NAMES MAY BE ACCESED THRU @USE CONTROL CARDS. @]@@@@MG )@@G@@-146,150 @F@@@@ COMPARE ONE FILE FROM TAPE FILENAME ONE TMH )@@G@@O TAPE FILE-@F@@@@ NAME TWO. THE BLOCK AND RECORD COUNTS AREMI )@@G@@ KEPT UP. IF@F@@@@ THE TWO TAPE FILES DO NOT COMPARE BOTH REMJ )@@G@@CORDS WILL @G@@@@ BE PRINTED AND BOTH TAPES POSITIONED IMMEMK )@@G@@DIATELY AFTER @A@@@@ THE NEXT END-OF-FILE. @]@@@@-198,1ML )@@G@@98- @[@@@@/,T// @]@@@@-202,202- @[@@@@/,T// @]@@@@-415,415- @B@@@@MM )@@G@@/D./D. BLANK COMMAND CARDS ARE IGNORED. @]@@@@-446,447 @[@@@@-478 MN )@@G@@@@@@@@@@@@@@@#@@@@@ASM,USW DRUM @[@@@@-12,13@B@@@@ J MO )@@G@@ UPBLCK . @]@@@@-31,31- @A@@@@/./. HIGHEST TRACK REFERMP )@@G@@ENCED IS @]@@@@-33,33- @^@@@@/./. BEGINS AT SECTOR @[@@@@-34,39MQ )@@G@@@H@@@@UPBLCK SLJ QGETAD . GET ADDR OF FILE INFO TABLMR )@@G@@E IN A0 @H@@@@ LA A1,DRPKT+5 . NEW CURRENT DRMS )@@G@@UM POSITION IN SECTORS @G@@@@ S A1,2,A0 . CUMT )@@G@@RRENT BLOCK (SECTOR) COUNT @F@@@@ J CDIMGE MU )@@G@@ . READ NEXT CPD COMMAND @[@@@@-46,50@B@@@@ SLJ QGETMV )@@G@@AD . @B@@@@ LA A1,DRPKT+5 . @G@@@@MW )@@G@@ S A1,2,A0 . PUT NEW SECTOR COUNT IN TABLE MX )@@G@@@B@@@@ J CDIMGE . @[@@@@-61 @B@@@@ MY )@@G@@ DL A0,FILEN . @B@@@@ DS A0,FITEM MZ )@@G@@ . @B@@@@ LA,U A0,FITEM . @G@@@@ NA )@@G@@ ER FACIT$ . GET HIGHEST TRACK REFERENCED @B@@@@NB )@@G@@ L,H1 A0,FITEM+9 . @B@@@@ A,U A0,1NC )@@G@@ . @E@@@@ LSSL A0,6 . CONVERT TND )@@G@@O SECTORS @H@@@@ S A0,MAXSEC . SECTORS TO READNE )@@G@@ MUST BE LESS THAN THIS @G@@@@ SZ FIVE . ADNF )@@G@@DRESS OF A NON ALLOCATED TRACK@F@@@@ SZ NRFIVE NG )@@G@@ . NR OF NONWRITTEN TRACKS @[@@@@-73 @D@@@@ L A0,DNH )@@G@@RPKT+5 . ADDRESS TO READ@E@@@@ TG A0,MAXSEC NI )@@G@@ . IS AREA IN FILE RANGE@F@@@@ J FINISH . ADDNJ )@@G@@RESS OUTSIDE FILE LIMITS@[@@@@-78,78@F@@@@ J NOWRIT NK )@@G@@ . HAVE NOT WRITTEN INTO TRACK@B@@@@ TNE,U A0,022 NL )@@G@@ . @B@@@@ J FINISH . @I@@@@ NM )@@G@@ L A0,NRFIVE . ARE THERE ANY NON WRIT TRKS SINCE LAST NN )@@G@@RD @ @@@@ JZ A0,DREADB @H@@@@ L A0,FNO )@@G@@IVE . ADDRESS OF LAST SECTOR STARTING 05S @ @@@@ E$NP )@@G@@BD 6,OLD05,6 @F@@@@ L A0,DRPKT+5 . SECTOR INNQ )@@G@@ NEW WRITTEN AREA @ @@@@ E$BD 6,NON05,6 @B@@@@ DLNR )@@G@@ A0,FILEN . @B@@@@ DS A0,NONEW5 NS )@@G@@ . @C@@@@ L A0,(P 2,19,NONEW5) . @B@@@@ NT )@@G@@ ER PRINT$ . @D@@@@ SZ FIVE NU )@@G@@ . CLEAR ADDRESS @B@@@@ SZ NRFIVE . NV )@@G@@@]@@@@DREADB . @[@@@@-80 @]@@@@BUMPAD . @[@@@@-84 @E@@@@NOWRITNW )@@G@@ . AREA HAS 05 RETURN @B@@@@ TZNX )@@G@@ NRFIVE . @G@@@@ J STORWD NY )@@G@@ . HAVE WRITTEN MESSAGE ALREADY @B@@@@ DL A0,FILEN NZ )@@G@@ . @B@@@@ DS A0,NEW05 . @B@@@@ OA )@@G@@ LA A0,DRPKT+5 . @G@@@@ S A0,FIVE OB )@@G@@ . ADDRESS OF SECTOR CAUSING 05 @B@@@@ E$BD 6,NWOC )@@G@@SC05,6 . @B@@@@ L A0,(P 2,13,NEW05) @F@@@@OD )@@G@@ ER PRINT$ . AREA NOT WRITTEN INTO @D@@@@OE )@@G@@STORWD SZ NOWDS$ . NR WORDS READ @ @@@@ L OF )@@G@@ A0,NRFIVE @^@@@@ A,U A0,1@ @@@@ S OG )@@G@@ A0,NRFIVE @B@@@@ J BUMPAD . @[@@@@-86,86OH )@@G@@@B@@@@ SZ FIVE . @B@@@@ SZ OI )@@G@@ NRFIVE . @[@@@@-89,89@E@@@@ INCR OJ )@@G@@ . UP THE BLOCK COUNT @E@@@@ SLJ PRTEFX OK )@@G@@ . EOF ENCOUNTERED AT @E@@@@ SZ DUPPNT . ZEROL )@@G@@O DRUM TAPE FLAG @B@@@@ J CDIMGE . @]@@@@OM )@@G@@-121,121- @[@@@@/6/5/ @[@@@@-122 @#@@@@FIVE + 0 @#@@@@NRFIVEON )@@G@@ + 0 @#@@@@MAXSEC + 0 @]@@@@-144,144- @ @@@@/IS LOCATED/OO )@@G@@BEGINS AT SECTOR' @[@@@@-145 @H@@@@NEW05 ' HAS AN AREAOP )@@G@@ WHICH HAS NOT BEEN WRITTEN INTO AT ' @^@@@@ 'SECTOR ' OQ )@@G@@@#@@@@NWSC05 + 0 @B@@@@NONEW5 ' SECTOR 'OR )@@G@@@#@@@@NON05 + 0 @G@@@@ ' IS IN THE NEXT TRACKOS )@@G@@ AREA WRITTEN INTO AFTER TH' @E@@@@ 'E TRACK CONTAINOT )@@G@@ING SECTOR ' . @#@@@@OLD05 + 0 ___ AF@#@@@@OLD05 + OU )@@G@@0 ___ AFC IN S1 OF NOWDS$ IF AFC . 3A @I@@@@OV )@@G@@. *[S@@@*SDFF*@F@@@@@NEWCPOW )@@G@@D.CPD,D . CPD ON FORTRAN DEFINE FILE TYPE FILE @#@@@@PRT OX )@@G@@ DRUM,1,3 @B@@@@PRT DRUM,2 . RESET BLOCK SIZE@H@@@@ OY )@@G@@ . BLANK INPUT COMMAND - SHOULD PRINT AND IGNORE IT OZ )@@G@@@@@@@@@]@@@@PSE DRUM@F@@@@PRT DRUM,2 . HIGHEST TRACK -WPA )@@G@@HAT IS IN LAST TRACK @C@@@@PSF DRUM . GO TO LAST SECTOPB )@@G@@R @D@@@@PRT DRUM . SHOULD HIT EOF RIGHT AWAY @F@@@@PC )@@G@@PSB DRUM,5 . EOF LEAVE POSITIONED AT END OF DRUM @B@@@@PD )@@G@@PRT DRUM,8 . CHECK FILE NR @]@@@@PSB DRUM@E@@@@PSF PE )@@G@@ DRUM,39 . CHECK POSITIONING WITH 0 SPACING @#@@@@PRT DRUMPF )@@G@@,1 @#@@@@PSF DRUM,0 @#@@@@PRT DRUM,1 @#@@@@PSB DRUMPG )@@G@@,3 @#@@@@PRT DRUM,1 @#@@@@PSF DRUM,0 @#@@@@PRT DRUMPH )@@G@@,1 @]@@@@PSB DRUM@D@@@@PRT DRUM,,32 . CHECK BLANK AREAPI )@@G@@ MESSAGES @#@@@@PSB DRUM,5 @#@@@@PRT DRUM,0 @#@@@@PRT PJ )@@G@@ DRUM,1 @F@@@@PRT DRUM . PRINT DRUM FILE - NO RECORD PK )@@G@@NR OR SIZE @E@@@@PRT DRUM,2 . CHECK POSITION - SHOULD HIT PL )@@G@@EOF @F@@@@@NEWCPD.CPD . TEST ALL COMMANDS USING DEFAULT OPTIPM )@@G@@ONS @C@@@@TRW TAPE1,TAPE2 . REWIND BOTH TAPES @E@@@@DUP PN )@@G@@ TAPE1,TAPE2 . DUPE THE FIRST FILE (1 BLOCK. @E@@@@TEF TAPEPO )@@G@@2 . EOF NOT AUTOMATIC UNLESS F OPT @D@@@@DUP TAPE1.,TAPPP )@@G@@E2. . DUPE SECOND FILE (20 BLOCKS)@C@@@@TEF TAPE2 . EOF PQ )@@G@@ON SECOND FILE @C@@@@TRW TAPE1. . REWIND MASTER TAPE PR )@@G@@@F@@@@PSF TAPE1. . POSITION MASTER FORWARD TO SECOND FILE PS )@@G@@@E@@@@DUP TAPE1.,TAPE2.,10 . TEST DUPE SPECIFYING NR RECORDS@C@@@@PT )@@G@@TEF TAPE2 . THIRD FILE ON TAPE 2 @C@@@@TRW TAPE1,TAPEPU )@@G@@2 . REWIND BOTH TAPES @C@@@@CMP TAPE1.,TAPE2 . COMPARE FIPV )@@G@@RST FILE @C@@@@CMP TAPE1,TAPE2. . COMPARE SECOND FILE @C@@@@PW )@@G@@PSB TAPE2 . GET BACK OVER EOF @G@@@@PSB TAPE2.,11 PX )@@G@@ . MOVE 2ND TAPE BACK 11 RECORDS - AT BLOCK 10 @F@@@@PRT TAPEPY )@@G@@2,1 . CHECK POSITION - SHOULD BE 12 WORDS @E@@@@PSE TAPEPZ )@@G@@2 . MOVE FORWARD SHORT OF END OF FILE @E@@@@PRT TAPE2 QA )@@G@@ . CHECK POSITION - EOF IN BLOCK 1 @C@@@@TRW TAPE1,TAPE2 QB )@@G@@. REWIND BOTH TAPES @F@@@@@NEWCPD.CPD,OAXHT . CHECK ALL PRINQC )@@G@@T OPTIONS (SAMPLE PRINT)@E@@@@PRT TAPE2. . PRINT FIRST FILEQD )@@G@@ - 1 BLOCK + EOF @F@@@@PRT TAPE2 . PRINT SECOND FILE - 20QE )@@G@@ BLOCKS + EOF @G@@@@PRT TAPE2.,3 . PRINT 3 RECORDS TO CHEQF )@@G@@CK RECORD PRINT ABILITY @D@@@@PSF TAPE2 . MOVE FORWARD PASQG )@@G@@T 3RD FILE @F@@@@PRT TAPE2 . PRINT SECOND EOF AT END OF 3QH )@@G@@RD FILE @D@@@@@NEWCPD.CPD,F . TEST MULTIFILE CAPABILITY QI )@@G@@@C@@@@TRW TAPE1 . REWIND FIRST TAPE @I@@@@DUP TAPEQJ )@@G@@1,TAPE2,2 . DUPE 2 FILES AFTER 4TH EOF ON TAPE 2 - EOF AUTOMATIC QK )@@G@@@C@@@@TRW TAPE1,TAPE2 . REWIND BOTH TAPES @E@@@@PSF TAPEQL )@@G@@2.,4 . MOVE PAST FIRST TEST AREA ON TAPE2@B@@@@CMP TAPE1,TAPEQM )@@G@@2,2 . COMPARE 2 FILES @C@@@@PSB TAPE1.,1 . MOVE BACK OVER EQN )@@G@@OF @E@@@@PRT TAPE1.,2 . CHECK POSITION - LAST TWO EOF'S QO )@@G@@@B@@@@TRW TAPE1 . REWIND TAPE 1 @B@@@@PRT TAPE1,3 QP )@@G@@ . PRINT THE TAPE @ @@@@TRW TAPE1,TAPE2 . @B@@@@PSE QQ )@@G@@ TAPE2 . CHECK ERROR LEGS@H@@@@CMP TAPE1,TAPE2,2 . EOF QR )@@G@@ON 1, NOT 2 - CONTINUE WITH 2ND FILE COMPARE @E@@@@CMP TAPE1,TAPEQS )@@G@@2,1 . EOF 2 NOT 1 - ERROR ON LAST FILE @ @@@@TRW TAPE1,TAPE2 QT )@@G@@. @G@@@@CMP TAPE1,TAPE2 . NO NUMBER GIVEN ON F OPT - SHOULD QU )@@G@@DO 1 FILE @G@@@@CMP TAPE1,TAPE2,0 . F OPT - SHOULD NOT ATTEMPT TQV )@@G@@O COMPARE ANYTHING@E@@@@PRT TAPE1 . F OPT - NO NR - SHOULDQW )@@G@@ GET 1 FILE @ @@@@TRW TAPE1,TAPE2 . @]@@@@@NEWCPD.CPD @D@@@@QX )@@G@@CMP TAPE1.,TAPE2.,2 . NUMBER NO EFFECT - NOT F OPT@D@@@@PSF TAPEQY )@@G@@2.,5 . MOVE TAPE FOR NONCOMPARE @C@@@@CMP TAPE1,TAPE2 QZ )@@G@@. DIFFERENT RECORD SIZES@@@@@@@^@@@@TRW TAPE1,TAPE2 @E@@@@DUP RA )@@G@@ TAPE2.,TAPE1. . DUPE TAPE 2 TO TAPE1 FOR A CHANGE @#@@@@TEF TAPERB )@@G@@1 @C@@@@DUP TAPE2.,TAPE1. . PUT ON A SECOND FILE @#@@@@TEF RC )@@G@@ TAPE1. @^@@@@TRW TAPE1,TAPE2 @D@@@@CMP TAPE2.,TAPE1 RD )@@G@@. COMPARE WITH REVERSE DUPE @C@@@@CMP TAPE2.,TAPE1 . COMPARE FIRE )@@G@@LE WITH AFC @C@@@@FRE TAPE2 . RELEASE TAPE UNIT @#@@@@RF )@@G@@@ERS DRUM @C@@@@@NEWCPD.CPD,DX . DRUM HANDLING TESTS RG )@@G@@@C@@@@TRW TAPE1 . REWIND THE 2 FILE TAPE@F@@@@DUP TAPERH )@@G@@1.,DRUM. . DUPE STARTS AT CURRENT POSITION OF DRUM @E@@@@DUP TAPERI )@@G@@1.,DRUM . PUT ON SECOND FILE FROM TAPE1 @E@@@@TRW TAPE1 RJ )@@G@@ . DRUM FILE WILL BE TWO TRACKS LONG @ @@@@DUP TAPE1,DRUM RK )@@G@@. @ @@@@DUP TAPE1,DRUM . @C@@@@TRW TAPE1 RL )@@G@@. ADD MORE DATA TO DRUM @ @@@@DUP TAPE1,DRUM. . @ @@@@DUP RM )@@G@@ TAPE1,DRUM. . @#@@@@PSB DRUM. @C@@@@PRT DRUM.,1,64RN )@@G@@ . AT FIRST TRACK OF FILE@D@@@@PRT DRUM.,,32 . PRINT SECORO )@@G@@ND TRACK OF FILE @ @@@@PSF DRUM. . @D@@@@PRT DRUMRP )@@G@@. . EOF ENCOUNTERED IN BLOCK 129@]@@@@@NEWCPD.CPD @ @@@@TRW RQ )@@G@@ TAPE1 . @#@@@@PSF TAPE1 @#@@@@PSF TAPE1 RR )@@G@@@F@@@@OVW TAPE1 . OVERWRITE THE TAPE - IT IS A SHORT REEL RS )@@G@@@C@@@@CHK TAPE1. . CHECK OVERWRITTEN TAPE@B@@@@SWP TAPERT )@@G@@1 . TRY SWAP REELS @D@@@@CMP TAPE1 . SHOULD REQRU )@@G@@UIRE SECOND NAME @#@@@@FRE TAPE1 ___FIL*[S@@@*SDFF*@F@@@@@NEWCPRV )@@G@@D.CPD . TEST ABNORMAL FRAME COUNTS @#@@@@TRW RW )@@G@@ T1,T2 @]@@@@PRT T1 @]@@@@TRW T1 @#@@@@DUP T1,T2 RX )@@G@@@]@@@@TEF T2 @#@@@@DUP T1,T2 @]@@@@TEF T2 @#@@@@TRW RY )@@G@@ T1,T2 @#@@@@CMP T1,T2 @#@@@@CMP T2,T1 @#@@@@@NEWCPRZ )@@G@@D.CPD,F @#@@@@TRW T1,T2 @]@@@@PSE T1 @C@@@@CMP T1,TSA )@@G@@2,2 . LEAVE AT END OF 2 FILES @C@@@@PSE T2 .TEST EOF PLACESB )@@G@@D BY FILE DUP @#@@@@TRW T1,T2 @]@@@@PSF T1,1@#@@@@CMP SC )@@G@@ T2,T1,1 @E@@@@CMP T1,T2 . SHPULD READ EOD-TEST DUMMY FILE CMSD )@@G@@T @#@@@@TRW T1,T2 @#@@@@CMP T1,T2,0 @]@@@@@NEWCPD.CPD SE )@@G@@@#@@@@TRW T1,T2 @#@@@@CMP T1,T2 @]@@@@PSF T1,1@#@@@@SF )@@G@@CMP T2,T1,3 @#@@@@TRW T1,T2 @]@@@@PSE T1 @#@@@@CMP SG )@@G@@ T1,T2 @]@@@@PSE T2 @#@@@@CMP T1,T2 @#@@@@TRW T1,TSH )@@G@@2 ___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@^@@@@@ASM,USJ )@@G@@SW CONVERSION @B@@@@. THIS ROUTINE HAS THREE ENTRY POINTS @[@@@@SK )@@G@@. @F@@@@. EBO$X - CONVERT THE BINARY NR IN A0 TO OCTAL FIELDDATSL )@@G@@A @[@@@@. @F@@@@. EBD$X - CONVERT THE BINARY NR IN A0 TO DECSM )@@G@@IMAL FIELDDATA @[@@@@. @E@@@@. CONVERT - CONVERT THE FIELDDATSN )@@G@@A NR IN X2 TO BINARY @[@@@@. @F@@@@. FOR EBO$X AND EBD$X, 0,XSO )@@G@@11 CONTAINS (S1, S3, H2) THE NR OF @F@@@@. CHARACTERS IN THE OUTPUTSP )@@G@@ AREA, THE NR OF DIGITS TO GET, @D@@@@. AND THE ADDRESS OF WHERESQ )@@G@@ TO PUT THE CONVERTED NR@[@@@@. @[@@@@-3,3- @C@@@@/./. CONVERT BINARSR )@@G@@Y NR IN A0 TO OCTAL FIELDDATA @[@@@@-7,7- @]@@@@/14/U / @[@@@@-8,8 SS )@@G@@@G@@@@ EX INSRTC,*A3 . INSERT CHARACTER IN OUTPUT ST )@@G@@WORD @]@@@@-10,10- @]@@@@/11/X11/ @]@@@@-11,11- @C@@@@/./. BSU )@@G@@INARY NUMBER IN A0 TO DECIMAL FIELDDATA @]@@@@-12,12- @ @@@@/./. NSV )@@G@@UMBER TO BE CONVERTED @[@@@@-14,19@E@@@@EM L,U A0,0 SW )@@G@@ . ZERO FOR DIVISION @E@@@@ DI,U A0,10 SX )@@G@@ . LOP OFF BOTTOM DIGIT @F@@@@ A,U A1,060 . MAKSY )@@G@@E REMAINDER FIELDDATA @I@@@@ DSC A0,36 . REVSZ )@@G@@ERSE REMAINDER + QUOTIENT FOR NXT DIV @F@@@@ EX INSRTA )@@G@@TC,*A3 . INSERT CHARACTER IN OUTPUT @B@@@@ AN,U A4,1TB )@@G@@ . @]@@@@-21,21- @A@@@@/./. ALL OF BINARY NUMBER CONVTC )@@G@@ERTED?@]@@@@-22,22- @]@@@@/14/U / @]@@@@-25,25- @A@@@@/./. PTD )@@G@@UT IN MINUS SIGN IF NEGATIVE @[@@@@-27,27@I@@@@ J 1,X1TE )@@G@@1 . ALL CHARACTERS REQUESTED HAVE BEEN FILLED @]@@@@-28,28TF )@@G@@- @#@@@@/./. LOAD BLANKS @[@@@@-30,30@F@@@@EP EX INSRTG )@@G@@TC,*A3 . FRONT FILL WITH BLANKS @[@@@@-32,32@C@@@@ J TH )@@G@@ 1,X11 . RETURN @[@@@@-35,37@F@@@@ LXM TI )@@G@@ A2,0,X11 . ADDRESS OF OUTPUT WORD @F@@@@ LXM,S3 TJ )@@G@@ A3,0,X11 . NR DIGITS IN A0 TO GET @G@@@@ L,S1 TK )@@G@@ A4,0,X11 . NR CHARACTERS IN OUTPUT AREA @[@@@@-40,40@]@@@@TL )@@G@@INSRTC . @F@@@@ES LMJ A3,EF . PUT A CHARACTERTM )@@G@@ IN A WORD @]@@@@-41,46- @]@@@@/12/S2/ @]@@@@/11/S3/ @]@@@@TN )@@G@@/10/S4/ @]@@@@/9 /S5/ @]@@@@/8 /S6/ @]@@@@/13/S1/ @[@@@@TO )@@G@@-48,48@G@@@@ LXM,U A3,5 . SET UP FOR POSSIBLE NTP )@@G@@EXT WORD @]@@@@-50,50- @B@@@@/./. CONVERT FIELDDATA NR IN X2 TO BTQ )@@G@@INARY @]@@@@-55,55- @A@@@@/./. IS LAST CHARACTER A DIGIT ? @]@@@@TR )@@G@@-59,59- @^@@@@/./. ADD 10'S DIGIT/ @]@@@@-62,62- @^@@@@/./. ATS )@@G@@DD 100'S DIGIT/ @]@@@@-65,65- @^@@@@/./. ADD 1000'S DIGIT/ @]@@@@TT )@@G@@-72,72- @B@@@@/./. PUT SUM OF DIGITS IN X2 TO RETURN/ @^@@@@@PDP,UTU )@@G@@L .CPDPROCS @[@@@@-5,5- @D@@@@38/. PRINTS FILENAME, NR, BLOCK NR, TV )@@G@@AND BLOCK SIZE @[@@@@-6,8 @[@@@@-9,9- @^@@@@38/. LINE NR ON PRINTOUTTW )@@G@@@[@@@@-10,11@B@@@@ L,U A0,2 . @ @@@@ TX )@@G@@ S,H2 A0,P$ED3+1@]@@@@-14,14- @^@@@@38/. NR WORDS IN RECORD TY )@@G@@@]@@@@-15,15- @B@@@@38/. NR WORDS IN RECORD LEFT TO PRINT @]@@@@TZ )@@G@@-17,17- @D@@@@/ ./. IF X OPT DECREASE TOT NR WDS TO PRNT 1 LINE UA )@@G@@@]@@@@-18,18- @D@@@@/./. NR WDS TO PRNT IN A0, DECR N$WSAV BY WDS PRUB )@@G@@NTD @]@@@@-19,19- @D@@@@38/. RETURN HERE FROM P$COMN IF N$WSAV = UC )@@G@@0-NO PRT @]@@@@-20,20- @^@@@@/TION/TION PRM 2 14-11 @[@@@@-21,21UD )@@G@@@F@@@@ L,H2 A0,P$ED3 . ADDR STARTED LAST PRINT AT UE )@@G@@@[@@@@-23,23@G@@@@ S,H2 A0,P$ED3 . STARTING ADDR OUF )@@G@@F WORDS TO PRINT @]@@@@-24,24- @^@@@@/INE/INE PRM 2 14-10/ @[@@@@UG )@@G@@-25,25@E@@@@ E$O 4,15,C$TR . PUT IN OCTAL LINE NR UH )@@G@@@]@@@@-26,26- @C@@@@38/. REPEAT EDIT FUNC NR WORDS TIMES PRM 2 1413 UI )@@G@@@]@@@@-28,28- @A@@@@49/. ALPHA OR HOLLERITH/PRT PSN 6 @]@@@@-29,29UJ )@@G@@- @D@@@@49/. OCTAL PRT PSN 20,FULL WD,START BK-8 PRM2 14-11 @[@@@@UK )@@G@@-31,31@I@@@@ E$WT 22,0,1 . PRM 2 14-12 22 WDS ONUL )@@G@@ PRNTR AFTER SP 1 LN @]@@@@-33,33- @ @@@@38/. UP LINE WORD COUNTEUM )@@G@@R @[@@@@-35,36@E@@@@ L,U A0,1 . RESTORE MUN )@@G@@ ADDRESS @B@@@@ S,H2 A0,P$ED3+1 . @[@@@@-47,64UO )@@G@@@]@@@@-67,70- @B@@@@38/. PROC-BINARY TO FIELDDATA DECIMAL @ @@@@UP )@@G@@38/. BINARY TO OCTAL FIELDDATA@E@@@@38/. NR DIGITS IN,WHERE PUT CNVTED NUQ )@@G@@R, NR PLACES WNATED @C@@@@38/. NR CH OUT, NR DIGITS IN, OUTPUT WD ADUR )@@G@@DR @]@@@@-76,77- @#@@@@38/. NR WORDS @ @@@@38/. 0 IF NEW, 1 IUS )@@G@@F SAME CARD @#@@@@@ASM,USW PRT @[@@@@-24 @I@@@@ SA UT )@@G@@ A0,SAVADR . ADDRESS OF FILE INFORMATIOM . 3B @[@@@@UU )@@G@@-27,27@I@@@@ LA A0,SAVADR . ADDRESS OF FILE INFOUV )@@G@@RMATION . 3B @[@@@@-30,30@I@@@@ LA A0,SAVADR UW )@@G@@ . ADDRESS OF FILE INFORMATION . 3B @[@@@@-46,50@[@@@@UX )@@G@@-57,58@^@@@@ 'BLOCK NO. '@[@@@@-63,64@^@@@@ ' WORDS UY )@@G@@ OR '@[@@@@-68 @#@@@@SAVADR + 0 @[@@@@-71,72@#@@@@@ASM,USW UZ )@@G@@ CPD @[@@[[-5 @F@@[[. THE SOURCE OF THE ORIGINAL COPY-DUMP CODE VA )@@G@@IS UNKNOWN TO US. @G@@[[. THE CODE ARRIVED AS CPDMPH AND HAS UNDERGOVB )@@G@@NE CONSIDERABLE CHANGE @^@@[[. SINCE THAT TIME. @F@@[[. QUESTIVC )@@G@@ONS, ERRORS, AND HOPEFULLY FIXES ON THIS VERSION OF @A@@[[. COPY-DVD )@@G@@UMP MAY BE REFERED TO: @^@@[[. PAULA HAGAN @^@@[[. MVE )@@G@@DCS STOP 28@E@@[[. DEFENSE MAPPING AGENCY AEROSPACE CENTER (DVF )@@G@@MAAC) @A@@[[. 2ND AND ARSENAL STREETS @A@@[[. ST. LOUVG )@@G@@IS, MO. 63118 @[@@[[. @]@@@@-23,23- @]@@@@/, 'T'/ / @[@@@@VH )@@G@@-26,27@[@@@@-37,37@E@@@@ JZ A2,CDIMGE . IGNORE AVI )@@G@@ BLANK CARD @[@@[[-86,86@I@@[[ J NAME . INVJ )@@G@@SERT NEW FILENAME AND FREE . 3C @[@@@@-190 @E@@@@ CLVK )@@G@@RR . ZERO RECORD COUNT @]@@@@-193,193 @[@@@@VL )@@G@@-232 @ @@@@ L A0,X2 @G@@@@ TNE A0,NVM )@@G@@MANYF . DID USER GIVE A FILE COUNT @E@@@@ L,U VN )@@G@@ X2,1 . NO - ONLY DO 1 FILE @[@@@@-285 @E@@@@ LAVO )@@G@@ A0,TEMP . CHECK IS X OPTION ON@ @@@@ TOP,U VP )@@G@@ A0,04 @^@@@@ J $+5 @B@@@@ LA A0,(VQ )@@G@@P 2, 9,XMSG1) @B@@@@ ER PRINT$ . @B@@@@VR )@@G@@ LA A0,(P 1, 9,XMSG2) @B@@@@ ER PRINVS )@@G@@T$ . @[@@@@-287 @E@@@@ TNZ,S6 OPTION VT )@@G@@ . F OPTION REQUESTED @B@@@@ J DONEIT . NOVU )@@G@@@B@@@@ L A0,X2 . @G@@@@ TNE VV )@@G@@ A0,NMANYF . DID USER GIVE A FILE COUNT @H@@@@ L,VW )@@G@@U X2,1 . USER DIDNOT GIVE A NR - ONLY DO 1 @]@@@@VX )@@G@@-289,289 @I@@@@NEXREC . VY )@@G@@ . 3A @[@@@@-320 @I@@@@ DL A0,FVZ )@@G@@ILEN . . 3A @I@@@@ WA )@@G@@ DS A0,FACPAC . PREPARE PACKET . 3WB )@@G@@A @I@@@@ L,U A0,FACPAC . WC )@@G@@ . 3A @I@@@@ ER FACIT$ . WD )@@G@@ . 3A @I@@@@ L,S1 A1,FWE )@@G@@ACPAC+6 . EQUIPMENT TYPE FOR POSSIBLE AFC . 3A @I@@@@ WF )@@G@@ S A1,EQUIP1 . . 3WG )@@G@@A @[@@@@-326 @I@@@@ DS A0,FACPAC . SET UP PWH )@@G@@ACKET FOR FACIT . 3A @I@@@@ L,U A0,FACPAC WI )@@G@@ . . 3A @I@@@@ ERWJ )@@G@@ FACIT$ . GET EQUIPMENT TYPE . 3A WK )@@G@@@I@@@@ L,S1 A0,FACPAC+6 . WL )@@G@@ . 3A @I@@@@ S A0,EQUIP2 . WM )@@G@@ . 3A @]@@@@-346,346- @]@@@@/,H2/ / WN )@@G@@@]@@@@-359,359- @]@@@@/,H2/ / @]@@@@-361,361 @I@@@@ L,WO )@@G@@H2 A14,WDSTP1 . PICK UP WORD COUNT ONLY . 3A WP )@@G@@@I@@@@ L,H2 A15,WDSTP2 . PICK UP WORD COUNT ONLY WQ )@@G@@ . 3A @[@@@@-418 @I@@@@ L,U A0,0050004 WR )@@G@@ . TEST FOR ODD NR WDS ON 9 TRACK . 3A @I@@@@ TNE,H1 WS )@@G@@ A0,WDSTP1 . AFC ON TAPE 1 WITH 5 FRAMES . 3A @I@@@@WT )@@G@@ J AFCTP1 . AFC IS ON TAPE 1 WU )@@G@@ . 3A @I@@@@ TE,H1 A0,WDSTP2 . NOT ON 1 TRY TWV )@@G@@APE 2 . 3A @I@@@@ J TRUGOF WW )@@G@@ . HAVE TRUE NON COMPARE ERROR . 3A @I@@@@ L,H2 WX )@@G@@ A0,WDSTP2 . NR WORDS READ + PAD . 3A @I@@@@WY )@@G@@ ANA,U A0,1 . DECREADE FOR PAD WZ )@@G@@ . 3A @I@@@@ TE,H2 A0,WDSTP1 . SAME NR WORDS XA )@@G@@WITHOUT AFC . 3A @I@@@@ J TRUGOF XB )@@G@@ . NO . 3A @I@@@@ LA XC )@@G@@ A0,EQUIP2 . TEST FOR 9 TRACK TAPE . 3A @I@@@@XD )@@G@@ TE,U A0,05 . NINE TRACK TAPE DRIVE 8C9 XE )@@G@@ . 3A @I@@@@ J TRUGOF . NOT NINE TRACKXF )@@G@@ . 3A @I@@@@ LA A0,EQUIP1 XG )@@G@@ . MUST BE 7 AND 9 TRACK COMPARISON . 3A @I@@@@ TE,U XH )@@G@@ A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@@XI )@@G@@ J TRUGOF . XJ )@@G@@ . 3A @I@@@@ ANA,U A15,1 . USE 1 LESS WD XK )@@G@@FOR COMPARE . 3A @I@@@@ J CMPAFC XL )@@G@@ . PRINT WARNING FOR USER IF NOT DONE . 3A @I@@@@AFCTP1 L XM )@@G@@ A0,EQUIP1 . TEST FOR 9 TRACK TAPE DRIVE . 3A @I@@@@XN )@@G@@ TE,U A0,05 . XO )@@G@@ . 3A @I@@@@ J TRUGOF . NOT 9 TRACK DRXP )@@G@@IVE . 3A @I@@@@ L A0,EQUIP2 XQ )@@G@@ . MUST BE 7 AND 9 TRACK COMPARE . 3A @I@@@@ TE,U XR )@@G@@ A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@@XS )@@G@@ J TRUGOF . XT )@@G@@ . 3A @I@@@@ ANA,U A14,1 . DECREASE NR WOXU )@@G@@RDS FOR PAD . 3A @I@@@@ TE,H2 A14,A15 XV )@@G@@ . SAME SIZE WITHOUT PADDING . 3A @I@@@@ J XW )@@G@@ TRUGOF . . 3A @I@@@@XX )@@G@@CMPAFC . XY )@@G@@ . 3A @I@@@@ J SAMWDS-1 . TEST WORD COMPXZ )@@G@@ARISON . 3A @I@@@@TRUGOF YA )@@G@@ . . 3A @]@@@@-665,665- @]@@@@YB )@@G@@/X /X*/ @]@@@@-674,674 @]@@@@-775,775- @]@@@@/NT /NT*/ @[@@@@YC )@@G@@-809 @I@@@@EQUIP1 + 0 YD )@@G@@ . 3A @I@@@@EQUIP2 + 0 YE )@@G@@ . 3A @I@@@@FACPAC RES 10 YF )@@G@@ . 3A @[@@@@-851 YG )@@G@@@F@@@@XMSG1 ' ** X OPTION SET. ONLY THE FIRST LINE **' YH )@@G@@@F@@@@XMSG2 ' ** OF EACH RECORD WILL BE PRINTED. **' YI )@@G@@@]@@@@-863,864 @^@@@@ 'AND FILE '@]@@@@-868,869 @^@@@@YJ )@@G@@ 'AND FILE '@]@@@@-871,876 @C@@@@ 'DID NOT COMPAYK )@@G@@RE STARTING AT WORD ** '@]@@@@-878,883 @C@@@@EOFM1 'END-OF-FILE WYL )@@G@@AS ENCOUNTERED IN BLOCK'@]@@@@-885,886 @^@@@@ ' *FILE *** ' YM )@@G@@@]@@@@-890,898 @F@@@@NOTEOF 'END-OF-FILE WAS EXPECTED BUT NOT ENCOYN )@@G@@UNTERED ON FILE**'@]@@@@-901,910 @G@@@@BLOWIT 'AN END-OF-FILE WAS YO )@@G@@ENCOUNTERED BUT NOT EXPECTED IN BLOCK ***'@]@@@@-912,913 @^@@@@ YP )@@G@@ '*** ON FILE '@[@@@@-923 @ @@@@NMANYF + 037777777777 @]@@@@YQ )@@G@@-924,924- @ @@@@/TAPES COMPARE/FILE COMPARES/ @#@@@@@ASM,USW TPRD$YR )@@G@@@I@@@@. GENERAL TAPE READ ROUTINE USED BY DUP, CMP, PRT FUNCTIONS YS )@@G@@ . 3A @I@@@@. CALLING SEQUENCE LMJ X11 YT )@@G@@ . 3A @I@@@@. + FILE YU )@@G@@ . 3A @I@@@@. + NYV )@@G@@AME . 3A YW )@@G@@@I@@@@. + 4096, BUFFER AREA YX )@@G@@ . 3A @I@@@@. + EOF OR EOT RETURN ADDRESS YY )@@G@@ . 3A @I@@@@. IF BAD IO (NOT 0, 1, 2, YZ )@@G@@OR 4) TAKE EXIT$ . 3A @I@@@@. RETURNZA )@@G@@S NR WORDS READ IN H2 OF NOWDS$ . 3A ZB )@@G@@@I@@@@. 4 IN S3 OF NOWDS$ AND AFC IN S1 OF NOWDS$ IF AFC ZC )@@G@@ . 3A @I@@@@. ZD )@@G@@ . 3A @[@@@@. @[@@@@-4 @I@@@@ ZE )@@G@@ SZ NOWDS$ . CLEAR AFC FLAGS AND WORD COUNT . 3ZF )@@G@@A @[@@@@-25 @I@@@@ S A0,SAVEAD . SAVE LOCZG )@@G@@ATION OF 4 WD FILE INFO . 3A @[@@@@-28,28@I@@@@ L ZH )@@G@@ A0,SAVEAD . . 3A @[@@@@ZI )@@G@@-30 @I@@@@ L A0,SAVEAD . ADDRESS OF FILE INFOZJ )@@G@@ . 3A @[@@@@-46 @I@@@@ S A0,SAVEAD ZK )@@G@@ . . 3A @[@@@@-49,49@I@@@@ZL )@@G@@ L A0,SAVEAD . LOAD ADDRESS OF 4 WD FILE INFO AZM )@@G@@REA. 3A @[@@@@-68 @I@@@@ LA A0,PKTD . ZN )@@G@@ . 3A @I@@@@ ER PRINZO )@@G@@T$ . . 3A @[@@@@-76 ZP )@@G@@@I@@@@SAVEAD + 0 . ZQ )@@G@@ . 3A @[@@@@-92 @I@@@@PKTD P 1,12,MSGD ZR )@@G@@ . 3A @]@@@@-100,100 @E@@@@ZS )@@G@@MSGA ' *** AFC-THE INPUT CHARACTER COUNT OF BLOCK NO.'@]@@@@-102,1ZT )@@G@@03 @I@@@@ + ', FILE ' ZU )@@G@@ . 3A @]@@@@-109,109- @]@@@@/**/* / @]@@@@-113,1ZV )@@G@@13- @]@@@@/**/* / @[@@@@-113 @I@@@@MSGD ' *** AN ODD NR OF WORZW )@@G@@DS PER RECORD CAN CAUSE THIS ON A 9 TRACK DRIVE ' @#@@@@@ASM,USW ZX )@@G@@ SIGN @]@@@@-119,119- @]@[@@/003/03B/ @]@@[[/003/03C/ @^[@@@@ELT,UZY )@@G@@L CPDPAPER @[@@@@-4,4- @]@@@@/003/03B/ @[@@@@-9,9- @]@@@@/003/0ZZ )@@G@@3B/ @]@@@@-109,109- @[@@@@/T, //@]@@@@-131,131- @F@@@@/QUAL/QUALIFAA )@@G@@IERS AND F-CYCLES ARE NOT RECOGNIZED BY THE COPY- @]@@@@-132,132- AB )@@G@@@F@@@@/PRO/DUMP PROCESSOR BUT FILES NEEDING QUALIFIERS AND F-CYCLES AC )@@G@@@]@@@@-133,133- @F@@@@/CARDS./IN THEIR NAMES MAY BE ACCESED THRU @USE AD )@@G@@CONTROL CARDS. @]@@@@-146,150 @F@@@@ COMPARE ONE FILE AE )@@G@@FROM TAPE FILENAME ONE TO TAPE FILE-@F@@@@ NAME TWO. THE BLOAF )@@G@@CK AND RECORD COUNTS ARE KEPT UP. IF@F@@@@ THE TWO TAPE FILEAG )@@G@@S DO NOT COMPARE BOTH RECORDS WILL @G@@@@ BE PRINTED AND BOAH )@@G@@TH TAPES POSITIONED IMMEDIATELY AFTER @A@@@@ THE NEXT ENAI )@@G@@D-OF-FILE. @]@@@@-198,198- @[@@@@/,T// @]@@@@-202,202- @[@@@@/,T// AJ )@@G@@@]@@@@-415,415- @B@@@@/D./D. BLANK COMMAND CARDS ARE IGNORED. @]@@@@AK )@@G@@-446,447 @[@@@@-478 @@@@@@@@@@@@@#@@@@@ASM,USW DRUM @[@@@@-12,13AL )@@G@@@B@@@@ J UPBLCK . @]@@@@-31,31- @A@@@@AM )@@G@@/./. HIGHEST TRACK REFERENCED IS @]@@@@-33,33- @^@@@@/./. BEGINS AN )@@G@@AT SECTOR @[@@@@-34,39@H@@@@UPBLCK SLJ QGETAD . GEAO )@@G@@T ADDR OF FILE INFO TABLE IN A0 @H@@@@ LA A1,DRPKT+5AP )@@G@@ . NEW CURRENT DRUM POSITION IN SECTORS @G@@@@ S AQ )@@G@@ A1,2,A0 . CURRENT BLOCK (SECTOR) COUNT @F@@@@ J AR )@@G@@ CDIMGE . READ NEXT CPD COMMAND @[@@@@-46,50@B@@@@AS )@@G@@ SLJ QGETAD . @B@@@@ LA A1,DAT )@@G@@RPKT+5 . @G@@@@ S A1,2,A0 . PUT NEW AU )@@G@@SECTOR COUNT IN TABLE @B@@@@ J CDIMGE . AV )@@G@@@[@@@@-61 @B@@@@ DL A0,FILEN . @B@@@@ AW )@@G@@ DS A0,FITEM . @B@@@@ LA,U A0,FITEM AX )@@G@@ . @G@@@@ ER FACIT$ . GET HIGHEST TRAAY )@@G@@CK REFERENCED @B@@@@ L,H1 A0,FITEM+9 . @B@@@@AZ )@@G@@ A,U A0,1 . @E@@@@ LSSL A0,6BA )@@G@@ . CONVERT TO SECTORS @H@@@@ S A0,MAXSEC BB )@@G@@ . SECTORS TO READ MUST BE LESS THAN THIS @G@@@@ SZ BC )@@G@@ FIVE . ADDRESS OF A NON ALLOCATED TRACK@F@@@@ SZBD )@@G@@ NRFIVE . NR OF NONWRITTEN TRACKS @[@@@@-73 @D@@@@BE )@@G@@ L A0,DRPKT+5 . ADDRESS TO READ@E@@@@ TGBF )@@G@@ A0,MAXSEC . IS AREA IN FILE RANGE@F@@@@ J BG )@@G@@ FINISH . ADDRESS OUTSIDE FILE LIMITS@[@@@@-78,78@F@@@@ BH )@@G@@ J NOWRIT . HAVE NOT WRITTEN INTO TRACK@B@@@@ BI )@@G@@ TNE,U A0,022 . @B@@@@ J FINISH BJ )@@G@@ . @I@@@@ L A0,NRFIVE . ARE THERE ANY NBK )@@G@@ON WRIT TRKS SINCE LAST RD @ @@@@ JZ A0,DREADB @H@@@@BL )@@G@@ L A0,FIVE . ADDRESS OF LAST SECTOR STARTING 0BM )@@G@@5S @ @@@@ E$BD 6,OLD05,6 @F@@@@ L A0,DBN )@@G@@RPKT+5 . SECTOR IN NEW WRITTEN AREA @ @@@@ E$BD 6,NOBO )@@G@@N05,6 @B@@@@ DL A0,FILEN . @B@@@@ DSBP )@@G@@ A0,NONEW5 . @C@@@@ L A0,(P 2,19,NONEBQ )@@G@@W5) . @B@@@@ ER PRINT$ . @D@@@@ BR )@@G@@ SZ FIVE . CLEAR ADDRESS @B@@@@ SZ BS )@@G@@ NRFIVE . @]@@@@DREADB . @[@@@@-80 @]@@@@BUMPAD . BT )@@G@@@[@@@@-84 @E@@@@NOWRIT . AREA HAS 05 RETBU )@@G@@URN @B@@@@ TZ NRFIVE . @G@@@@ J BV )@@G@@ STORWD . HAVE WRITTEN MESSAGE ALREADY @B@@@@ BW )@@G@@ DL A0,FILEN . @B@@@@ DS A0,NEW05 BX )@@G@@ . @B@@@@ LA A0,DRPKT+5 . @G@@@@ BY )@@G@@ S A0,FIVE . ADDRESS OF SECTOR CAUSING 05 @B@@@@BZ )@@G@@ E$BD 6,NWSC05,6 . @B@@@@ L A0,(CA )@@G@@P 2,13,NEW05) @F@@@@ ER PRINT$ . AREA NOTCB )@@G@@ WRITTEN INTO @D@@@@STORWD SZ NOWDS$ . NR WORDS CC )@@G@@READ @ @@@@ L A0,NRFIVE @^@@@@ A,U A0,1CD )@@G@@@ @@@@ S A0,NRFIVE @B@@@@ J BUMPAD CE )@@G@@ . @[@@@@-86,86@B@@@@ SZ FIVE . CF )@@G@@@B@@@@ SZ NRFIVE . @[@@@@-89,89@E@@@@ CG )@@G@@ INCR . UP THE BLOCK COUNT @E@@@@ SLCH )@@G@@J PRTEFX . EOF ENCOUNTERED AT @E@@@@ SZ CI )@@G@@ DUPPNT . ZERO DRUM TAPE FLAG @B@@@@ J CDIMCJ )@@G@@GE . @]@@@@-121,121- @[@@@@/6/5/ @[@@@@-122 @#@@@@FIVE CK )@@G@@ + 0 @#@@@@NRFIVE + 0 @#@@@@MAXSEC + 0 @]@@@@-144,1CL )@@G@@44- @ @@@@/IS LOCATED/BEGINS AT SECTOR' @[@@@@-145 @H@@@@NEW05 'CM )@@G@@ HAS AN AREA WHICH HAS NOT BEEN WRITTEN INTO AT ' @^@@@@CN )@@G@@ 'SECTOR ' @#@@@@NWSC05 + 0 @B@@@@NONEW5 CO )@@G@@ ' SECTOR '@#@@@@NON05 + 0 @G@@@@ CP )@@G@@ ' IS IN THE NEXT TRACK AREA WRITTEN INTO AFTER TH' @E@@@@ CQ )@@G@@ 'E TRACK CONTAINING SECTOR ' . @#@@@@OLD05 + 0 CR )@@G@@___@@@ J FINISH . ADDRESS OUTSIDE FILE LIMITSCS )@@G@@@[@@@@-78,78@F@@@@ J NOWRIT . HAVE NOT WRITTECT )@@G@@N INTO TRACK@B@@@@ *[S@@@*SDFF*@@@@@@@G@@@@ CU )@@G@@SOME FURPUR AND CPD COPYING COMMAND COMPARISONS @@@@@@@@@@@@@@@@@@@M@@@@CV )@@G@@COMMAND MEDIUM FILES SPECIAL REQUIREMENT WHERE BLOCK MULCW )@@G@@TI- EOF MSG OUT OTHER @H@@@@ ELMTS CX )@@G@@ START SIZE REEL @@@@@@@M@@@@@COPY,NO OPTCY )@@G@@ T-T F CPT/CPT /SAME AS IN/OUT USE NCZ )@@G@@R BLOCKS COPIED AFC-USE @M@@@@ DA )@@G@@ ORIG-MAX M OPT N OPT @G@@@@DB )@@G@@ 7167 WDS DC )@@G@@@@@@@@@L@@@@ T-D F CPT/S 0 UDD )@@G@@P TO IN NR BLOCKS COPIED @G@@@@ DE )@@G@@ 7167 WDS @@@@@@@L@@@@ DF )@@G@@ D-T F S 0/CPT /1792 OUT USE NDG )@@G@@R BLOCKS COPIED @I@@@@ DH )@@G@@ M OPT @@@@@@@L@@@@ D-D F DI )@@G@@ S 0/S 0 1792 WD NR BLOCKS COPDJ )@@G@@IED @G@@@@ TDK )@@G@@RANSFER @G@@@@ DL )@@G@@ OF ASG-D @F@@@@ DM )@@G@@ TRACKS @@@@@@@@@@@@@J@@@@@COPY,ARS D-D F & E FILES-ADN )@@G@@LL CYCLES OF /NEXT LOC NA/NA NONE @E@@@@ DO )@@G@@ TYPE REQSTD: ELMTS- IN PROG @D@@@@ DP )@@G@@ ONLY CYCLE REQSTD FILE @@@@@@@@@@@@@L@@@@@COPY,G D-TDQ )@@G@@ F CLOSED SYSTEM- S 0/CPT 1792/1794 OUT USE NR BLOCDR )@@G@@KS COPIED @I@@@@ A TAPE NOT CREATED DS )@@G@@ WITH 28 M OPT @G@@@@ WITH @CDT )@@G@@OPY,G CANNOT WORD LBL @F@@@@ BDU )@@G@@E PUT ON DRUM WITH BLOCK @A@@@@ @DV )@@G@@COPY,G@@@@@@@L@@@@ T-D F CPT/SDW )@@G@@ 0 1794/1792 IN NR BLOCKS COPIED @G@@@@ DX )@@G@@ REMOVING @F@@@@ DY )@@G@@ 28 WORD@G@@@@ DZ )@@G@@ LABEL BLK @@@@@@@@@@@@EA )@@G@@@L@@@@@COPIN,NO OPT T-D F MUST HAVE BEEN CRE- CPT/NEXT 28 WORDEB )@@G@@ IN NR SYM,REL,ABS @G@@@@ AEC )@@G@@TED WITH COPOUT LOC IN LABEL BKS @F@@@@ ED )@@G@@ PROGRAM 224 WD @G@@@@ EE )@@G@@ FILE ELMT TEXT @@@@@@@@@@@@@L@@@@@COPINEF )@@G@@,ARS T-D F & E TAKES ELEMENTS OF CPT/NEXT 28 & 224/ IN EG )@@G@@ NR SYM,REL,ABS @E@@@@ TYPE(S) SPECIEH )@@G@@FIED LOC IN @E@@@@ -IF ONLY ONE ELMT EI )@@G@@ PROGRAM @D@@@@ WANTED POSITION FILE EJ )@@G@@@C@@@@ TAPE WITH @FIND @@@@@@@@@@@@@@@@@@EK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@M@@@@COMMAND MEDIUM FILES SPECIAL REQUIEL )@@G@@REMENT WHERE BLOCK MULTI- EOF MSG OUT OTHER @H@@@@EM )@@G@@ ELMTS START SIZE REEEN )@@G@@L @@@@@@@L@@@@@COPOUT,NO OPT D-T F DRUM MUST BE PROG NA/CPEO )@@G@@T /28 WORD OUT AUTO- NR SYM,REL,ABS @I@@@@ EP )@@G@@ FILE LABEL BKS MATIC @F@@@@EQ )@@G@@ 224 WRD@G@@@@ER )@@G@@ ELMT TEXT ES )@@G@@@@@@@@@@@@@@@L@@@@@COPOUT,ARS D-T F & E TAKE ALL ELEMENTS /CPT ET )@@G@@ /28 WD OUT NONE NR SYM,REL,ABS @G@@@@ EU )@@G@@ OF TYPES SPECIFIED LABEL BKS @G@@@@ EV )@@G@@ IF NO ELEMENT NAME 224 WD TXT @@@@@@@@@@@@EW )@@G@@@N@@@@@CPD DUP T-T F CPT/CPT 4096 MAEX )@@G@@X OUT NONE EOF ENCOUNTERED AFC-AUTO- @M@@@@ EY )@@G@@ IN BLOCEZ )@@G@@K NR MATIC @@@@@@@@@@@@@@@@@@@N@@@@@CPD,F DUP T-T F FA )@@G@@ CPT/CPT /AS ORIG OUT AUTO- EOF ENCOUNTERED AFFB )@@G@@C-AUTO- @M@@@@ FC )@@G@@ MAX 4096 MATIC IN BLOCK NR MATIC @F@@@@ FD )@@G@@ WORDS @@@@@@@@@@@@@M@@@@FE )@@G@@@CPD,D DUP T-D F CPT/CPD 4096 MAX FF )@@G@@ EOF ENCOUNTERED AFC-AUTO@M@@@@ FG )@@G@@ IN BLOCK NR MAFH )@@G@@TIC @@@@@@@@@@@@@^@@@@ ABBREVIATIONS USED@@@@@@@#@@@@ T = TAFI )@@G@@PE @^@@@@ D = FASTRAND DRUM @C@@@@ S 0 = SECTOR 0, THE BEGIFJ )@@G@@NNING OF THE FILE @A@@@@ CPT = CURRENT POSITION OF TAPE@ @@@@ FK )@@G@@NA = NOT APPLICABLE @A@@@@ AFC = ABNORMAL FRAME COUNT @A@@@@FL )@@G@@ CPD = CURRENT POSITION OF DRUM@G@@@@ INPUT SPECIFICATION IF PFM )@@G@@RESENT/OUTPUT SPECIFICATION IF PRESENT @C@@@@ THE FURPUR C OPTIOFN )@@G@@N IS ALWAYS APPLICABLE. @@@@@@@@@@@@@@@@@@@H@@@@ FO )@@G@@ THE ABOVE INFORMATION IS CURRENT AS OF JUNE 1973 @@@@@@@@@@@@@@@@@@FP )@@G@@@@@@@@@@@@@@@G@@@@ PLEASE DIRECT QUESTIONS OFQ )@@G@@R COMMENTS ON THE @D@@@@ ABOVE INFORMATFR )@@G@@ION TO@D@@@@ MDCS / 4654 @@@@@@FS )@@G@@@@@@@@@@@@@@___ OTT AS O*[S@@@*SDFF*@#@@@@@USE 9,TAPE1 @#@@@@@USE FT )@@G@@ 10,9 @#@@@@@USE 11.,DRUM.@#@@@@@FOR,IS CPDT @[@@@@C FU )@@G@@@[@@[[C @C@@[[C TO USE CPDWRITE AND CPDTEST ELEMENTS @[@@[[FV )@@G@@C @ @@[[C @ASG,T TAPE1,8C9 @ @@[[C @ASG,T TAPEFW )@@G@@2,8C9 @ @@[[C @ASG,T DRUM.,F @ @@[[C @ADD,P .CPDFX )@@G@@WRITE @ @@[[C @ADD,P .CPDTEST @[@@[[C @F@@[[C THEFY )@@G@@SE TWO ELEMENTS TEST THE BASIC COPY-DUMP OPTIONS AND @F@@[[C COMFZ )@@G@@MANDS. THE ABSOLUTE CPD IS ASSUMED TO BE IN THE FILE @G@@[[C NEWGA )@@G@@CPD AND CPDWRITE AND CPDTEST ARE ASSUMED TO BE IN TPF$. @[@@[[C GB )@@G@@@[@@[[C @[@@[[C @E@@@@C WRITE 2 FILES ON UNIT 9 AND 10 - GC )@@G@@PHYSICALLY SAME @[@@@@C @H@@@@C FILE 1 = 22 RECORDS OF 3, 4GD )@@G@@,4, 5, 5, 6, 7, 8, 9, 10, 11, 12, 10*16 @E@@@@C CREATING 1 SDFFGE )@@G@@ BLOCK - FORTRAN FORMATTED WRITE @[@@@@C @G@@@@C F2 = NTRAGF )@@G@@N WRITTEN 20 BLOCKS OF RECORDS SIZED 3, 4, 5, 6, 7, @A@@@@C 8,GG )@@G@@ 9, 10, 11, 12, 10*16 @[@@@@C @ @@@@ DIMENSION IRRAY(16) GH )@@G@@@^@@@@ DO 100 I = 1, 16 @#@@@@ 100 IRRAY(I) = I@]@@@@ N = 3 GI )@@G@@@B@@@@ WRITE (9, 1) (IRRAY(I), I = 1, N) @#@@@@ N = N+1 GJ )@@G@@@B@@@@ WRITE (9, 1) (IRRAY(I), I = 1, N) @B@@@@ WRITE (9, 1)GK )@@G@@ (IRRAY(I), I = 1, N) @#@@@@ N = N+1 @B@@@@ WRITE (9, 1)GL )@@G@@ (IRRAY(I), I = 1, N) @B@@@@ WRITE (9, 1) (IRRAY(I), I = 1, N) GM )@@G@@@#@@@@ N = N+1 @B@@@@ WRITE (9, 1) (IRRAY(I), I = 1, N) GN )@@G@@@#@@@@ N = N+1 @B@@@@ WRITE (9, 1) (IRRAY(I), I = 1, N) GO )@@G@@@]@@@@ N = 3 @B@@@@ WRITE (9, 2) (IRRAY(I), I = 1, N) @#@@@@GP )@@G@@ N = N+1 @B@@@@ WRITE (9, 2) (IRRAY(I), I = 1, N) @#@@@@GQ )@@G@@ N = N+1 @B@@@@ WRITE (9, 2) (IRRAY(I), I = 1, N) @#@@@@GR )@@G@@ N = N+1 @B@@@@ WRITE (9, 2) (IRRAY(I), I = 1, N) @#@@@@GS )@@G@@ N = N+1 @B@@@@ WRITE (9, 2) (IRRAY(I), I = 1, N) @^@@@@GT )@@G@@ DO 150 I = 1, 10 @^@@@@ 150 WRITE (9, 1) IRRAY@^@@@@ CALL NGU )@@G@@TRAN(10,9) @[@@@@C @ @@@@C END OF FIRST FILE @[@@@@C GV )@@G@@@]@@@@ N =3 @^@@@@ DO 200 I = 1, 10 @A@@@@ CALL NTRAN(1GW )@@G@@0,1,N,IRRAY,L,22) @ @@@@ IF (L .LT. 0) GO TO 999 @#@@@@ 200 N = N GX )@@G@@+ 1 @^@@@@ DO 240 I = 1, 10 @B@@@@ CALL NTRAN (10, 1, 16, IGY )@@G@@RRAY, L, 22)@ @@@@ 240 IF (L .LT. 0) GO TO 999 @ @@@@ CALL NTRAN (GZ )@@G@@10, 9, 22) @ @@@@ CALL NTRAN (10, 9, 22) @[@@@@C @[@@@@C HA )@@G@@@B@@@@C A FORTRAN DEFINE FILE DRUM FILE @B@@@@C ON UNIT 1HB )@@G@@1 WITH A BLANK 2ND TRACK@[@@@@C @[@@@@C @[@@@@C @B@@@@ HC )@@G@@DEFINE FILE 11(300,22,U,NXTREC ) @#@@@@ NREC = 1 @#@@@@ HD )@@G@@NRTRK = 50 @#@@@@ 350 CONTINUE @F@@@@ WRITE (11' NREC, ERR = 3HE )@@G@@90) NREC, (IRRAY(I), I = 1, 16) @^@@@@ 390 NREC = NREC + 1 @A@@@@HF )@@G@@ IF (NREC .LT. NRTRK) GO TO 350@ @@@@ IF (NRTRK .GE. 300) STOPHG )@@G@@@#@@@@ NREC = 164 @#@@@@ NRTRK = 301 @#@@@@ GO TO 350 HH )@@G@@@^@@@@ 999 WRITE (6, 3) L @]@@@@ STOP @[@@@@C @[@@@@C HI )@@G@@@^@@@@ 1 FORMAT (16I6) @^@@@@ 2 FORMAT (7 A6) @D@@@@ 3 HJ )@@G@@FORMAT (1H0, '***** NTRAN ERROR. L = ', I6) @^@@@@ 5 FORMAT (17I6HK )@@G@@) @]@@@@ END @]@@@@@MAP ,.D@]@@@@IN TPF$.CPDT@]@@@@@XQT HL )@@G@@.D ___@[[C NEWCPD AND CPDWRITE AND CPDTEST ARE ASSUMED TO BE IHM )@@G@@N TPF$. @[@@[[C @[@@[[C @[@@[[C @E@@@@C WRITE 2 FHN )@@G@@*[S@@@*SDFF*@^@@@@@FOR,IS AFCTAPE @[@@@@C @[@@[[C @D@@[[HO )@@G@@C TO USE AFCROUTINE AND CPDAFCTEST ELEMENTS @[@@[[C @ @@[[HP )@@G@@C @ASG,T TAPE1,8C9 @ @@[[C @ASG,T TAPE2,8C9 @ @@[[HQ )@@G@@C @USE T1,TAPE1 @ @@[[C @USE T2,TAPE2 @ @@[[HR )@@G@@C @USE 9,TAPE1 @A@@[[C @ADD,P .AFCROUTINE HS )@@G@@@A@@[[C @ADD,P .CPDAFCTEST @#@@[[C @FIN @[@@[[HT )@@G@@C @G@@[[C THE ABSOLUTE CPD MUST BE IN THE FILE NEWCPD (VIA ASHU )@@G@@G OR USE). @G@@[[C THE ASSIGNS MAY BE CHANGED TO MIX 7 AND 9 TRAHV )@@G@@CK TAPES FOR MORE @ @@[[C EXTENSIVE TESTING. @[@@[[C @[@@[[HW )@@G@@C @H@@@@C CREATE A 9 TRACK TAPE WITH 2 FILES CONTAINING ABNORHX )@@G@@MAL FRAME COUNTS @[@@@@C @ @@@@ DIMENSION IOUT(13) @A@@@@HY )@@G@@ DATA NFILES/0/, NUMBER/O61/ @[@@@@C @[@@@@C @#@@@@ HZ )@@G@@WRITE (6, 1)@B@@@@ 1 FORMAT (1H0, 'CREATE AFC TAPE ' ) @[@@@@C IA )@@G@@@#@@@@ NRWDS = 13 @#@@@@ ISTART = 1 @#@@@@ IEND = 4 IB )@@G@@@#@@@@ NTIMES = 1 @[@@@@C @ @@@@ 110 DO 150 I = ISTART, IEND IC )@@G@@@^@@@@ DO 120 J = 1,NRWDS@^@@@@ 120 IOUT (J) = NUMBER @ @@@@ ID )@@G@@NUMBER = NUMBER + 1 @[@@@@C @[@@@@C @D@@@@C EACH WORDIE )@@G@@ IN D RECORD IS SAME = NR OF RECORD @C@@@@ CALL NTRAN (9, 1, NRWDS,IF )@@G@@ IOUT, L, 22 ) @A@@@@ IF (L .NE. NRWDS) GO TO 9900 @#@@@@ 150 IG )@@G@@CONTINUE @ @@@@ GO TO (200, 300), NTIMES@[@@@@C @#@@@@C IH )@@G@@ AFC BLOCK@[@@@@C @#@@@@ 200 NTIMES = 2 @^@@@@ DO 250 J = 1II )@@G@@, 13 @^@@@@ 250 IOUT (J) = NUMBER @ @@@@ NUMBER = NUMBER + 1 IJ )@@G@@@B@@@@ CALL NTRAN (9, 1, 13, IOUT, L, 22) @^@@@@ WRITE (6,3) IK )@@G@@L @ @@@@ IF (L .LE. 0) GO TO 9900@^@@@@ ISTART = IEND + 2 IL )@@G@@@#@@@@ IEND = 8 @#@@@@ GO TO 110 @[@@@@C @B@@@@C IM )@@G@@ HAVE COMPLETED FIRST FILE- EOF @[@@@@C @ @@@@ 300 CALL NTRAN (IN )@@G@@9, 9, 22) @ @@@@ NFILES = NFILES + 1 @A@@@@ IF ( NFILES IO )@@G@@.GE. 2) GO TO 400 @^@@@@ NUMBER = ' 1' @#@@@@ NTIMES = 1 IP )@@G@@@#@@@@ ISTART = 1 @#@@@@ IEND = 6 @#@@@@ GO TO 110 IQ )@@G@@@[@@@@C @A@@@@C PUT SECONF EOF ON TZPE @[@@@@C @ @@@@IR )@@G@@ 400 CALL NTRAN (9, 9, 22) @#@@@@ WRITE (6, 2)@D@@@@ 2 FORMATIS )@@G@@ (1H0, ' 2 AFC FILES CREATED ON UNIT 9 ' )@ @@@@ CALL NTRAN (9, 10,IT )@@G@@ 22) @]@@@@ STOP @[@@@@C @[@@@@C @^@@@@ 9900 WRITE (6, 3)IU )@@G@@ L @C@@@@ 3 FORMAT (1H0, ' NTRAN ERROR. L = ', I6) @ @@@@ IV )@@G@@CALL NTRAN (9, 9, 22) @]@@@@ STOP @]@@@@ END @^@@@@@MAP IW )@@G@@ ,TPF$.AFCABS @#@@@@IN AFCTAPE @^@@@@@XQT TPF$.AFCABS IX )@@G@@___@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@*[S@@@*SDFF*@I@@@@. THIS PROGRAM WILL DUMP OR COIZ )@@G@@PY ANY TAPE WITH BLOCKS OF 4096 WORDS OR LCD300100 @I@@@@. WITH THE PJA )@@G@@RINT OUT EITHER ALPHA OR OCTAL DEPENDENT ON THE OPTION IN THCD300200 JB )@@G@@@I@@@@. XQT CARD. THE USER MUST SPECIFY WHAT ACTION IS TO BE DONE THRU PJC )@@G@@ARAMETCD300300 @I@@@@. CARDS FOLLOWING THE XQT CARD. DOCUMENTATION FOJD )@@G@@R USAGE IS AVAILABLE .. CD300400 @I@@@@. JE )@@G@@ CD300500 @F@@[[. THE SOJF )@@G@@URCE OF THE ORIGINAL COPY-DUMP CODE IS UNKNOWN TO US. @G@@[[. THE COJG )@@G@@DE ARRIVED AS CPDMPH AND HAS UNDERGONE CONSIDERABLE CHANGE @^@@[[. JH )@@G@@SINCE THAT TIME. @F@@[[. QUESTIONS, ERRORS, AND HOPEFULLY FIXES ON JI )@@G@@THIS VERSION OF @A@@[[. COPY-DUMP MAY BE REFERED TO: @^@@[[. JJ )@@G@@ PAULA HAGAN @^@@[[. MDCS STOP 28@E@@[[. DEFENSEJK )@@G@@ MAPPING AGENCY AEROSPACE CENTER (DMAAC) @A@@[[. 2ND AND ARSENJL )@@G@@AL STREETS @A@@[[. ST. LOUIS, MO. 63118 @[@@[[. @I@@@@JM )@@G@@ AXR$ JN )@@G@@CD300600 @B@@@@$(1) . @I@@@@CPD* JO )@@G@@ LMJ X11,SIGTUR . GO TO SIGNATURE POUTINE CD3008JP )@@G@@00 @I@@@@ ER OPT$ . OPTION LETTER RECOVEJQ )@@G@@RY - BACK INCD300900 @I@@@@ JZ A0,REREAD . ANYJR )@@G@@ OPTIONS? CD301000 @I@@@@ SA A0,TJS )@@G@@EMP . SAVE OPTIONS CD301100 @I@@@@ JT )@@G@@ LA,U A1,01 . USE THIS TO INDICATE AN OPTION ISCD3012JU )@@G@@00 @I@@@@ LA,S2 A0,TEMP . LOAD FOR 'A' TEST JV )@@G@@ CD301300 @I@@@@ TEP,U A0,02 . TESJW )@@G@@T FOR 'A' OPTION CD301400 @I@@@@ SA,S1 A1,OJX )@@G@@PTION . STORE 'A' OPTION CD301500 @I@@@@ JY )@@G@@ LA,S3 A0,TEMP . LOAD FOR 'D', 'F', 'H' TEST CD3016JZ )@@G@@00 @I@@@@ TEP,U A0,020 . TEST FOR 'D' OPTION KA )@@G@@ CD301700 @I@@@@ SA,S5 A1,OPTION . STOKB )@@G@@RE 'D' OPTION CD301800 @I@@@@ TEP,U A0,0KC )@@G@@4 . TEST FOR 'F' OPTION CD301900 @I@@@@ KD )@@G@@ SA,S6 A1,OPTION . STORE 'F' OPTION CD3020KE )@@G@@00 @I@@@@ TEP,U A0,01 . TEST FOR 'H' OPTION KF )@@G@@ CD302100 @I@@@@ SA,S3 A1,OPTION . STOKG )@@G@@RE 'H' OPTION CD302200 @I@[@@ LA A0,TKH )@@G@@EMP . LOAD FOR 'O', 'T' TEST CD302300 @H@@[[ KI )@@G@@ LA A0,TEMP . LOAD FOR 'O' TEST CD302300 KJ )@@G@@@I[@@@ TEP,U A0,04000 . TEST FOR 'O' OPTION KK )@@G@@ CD302400 @I@@@@ SA,S2 A1,OPTION . STORE 'O'KL )@@G@@ OPTION CD302500 @I@[@@ TEP,U A0,0100 KM )@@G@@ . TEST FOR 'T' OPTION CD302600 @I@[@@ SAKN )@@G@@,S4 A1,OPTION . STORE 'T' OPTION CD302700 KO )@@G@@@I]@@@REREAD L A0,RDPKT . SKIP OVER CPD CARD-DUMMY RKP )@@G@@EAD CD302800 @I@@@@ ER READ$ . READ CARKQ )@@G@@D IMAGE CD302900 @I@@@@CDIMGE* L A0,RDPKT KR )@@G@@ . LOAD READ PACKET CD303000 @I@@@@ ERKS )@@G@@ READ$ . READ CARD IMAGE CD303100 KT )@@G@@@I@@@@ S,S3 A0,PPKT . NR WORDS TO PRINT KU )@@G@@ CD303200 @I@@@@ L A0,PPKT . PRINT OUKV )@@G@@T COMMAND CD303300 @I@@@@ ER PRINT$ KW )@@G@@ . CD303400 @I@@@@ GEKX )@@G@@TFLD NEWCRD . PICK UP PARAMETER COMMAND CD303500 KY )@@G@@@I@@@@. CONTROL RETURNS WITH A2= NUMBER CHARS IN FIELD AND FIELD IN A0,AKZ )@@G@@1 RIGHCD303600 @I@[@@ JZ A2,BADCOM . TEST A2 LA )@@G@@FOR ZERO CONDITION CD303700 @E@@[[ JZ A2,CDIMGE LB )@@G@@ . IGNORE A BLANK CARD @I[@@@ L,U R1,NOCOMM LC )@@G@@ . NUMBER OF COMMANDS POSSIBLE TO HCD303800 @I@@@@ AND LD )@@G@@ A1,(0777777) . LOGICAL PRODUCT IN A2 CD303900 @I@@@@LE )@@G@@ L A1,(1,0) . LF )@@G@@CD304000 @I@@@@ SE,H1 A2,TABL,*A1 . SEARCH TABLE FLG )@@G@@OR COMMAND CD304100 @I@@@@ J BADCOM LH )@@G@@ . BAD COMMAND,NO EQUAL FOUND CD304200 @I@@@@ L,H2 LI )@@G@@ A2,TABL-1,A1 . PICK UP THE COMMAND CD304300 @I@@@@LJ )@@G@@ S A2,COMMND . TEMP STORAGE FOR COMMAND LK )@@G@@CD304400 @I@@@@ GETFLD SAMECD LL )@@G@@ CD304500 @I@@@@ JZ A2,BADCOM LM )@@G@@ . USER HAS NO IN IN COMMAND CARD CD304600 @I@@@@NAME MSI,U LN )@@G@@ A2,6 . NR CHARACTERS*BITS PER CHARACTECD304700 @I@@@@LO )@@G@@ S,T3 A2,$+1 LP )@@G@@CD304800 @I@@@@ DSC A0,0 . DSC ---FN IN ALQ )@@G@@0 AND A1 CD304900 @I@@@@ DS A0,FILEN LR )@@G@@ . STORE FN IN LOCATION CD305000 @I@@@@ DS LS )@@G@@ A0,F1NAM . EOF ENCOUNTERED MESSAGE CD305100 @I@@@@LT )@@G@@ J *COMMND . GO TO COMMAND SUBROUTINE LU )@@G@@CD305200 @B@@@@/ . @I@@@@WREOF LV )@@G@@ DL A0,FILEN . PICK UP FILENAME FIRST 6 CHARS CD3054LW )@@G@@00 @I@@@@ DS A0,TAPPKT . PUT IT IN TAPE PACKELX )@@G@@T WORD 1 CD305500 @I@@@@ L,U A0,011 . FULY )@@G@@NC CODE FOR WRITE END-OF-FILE CD305600 @I@@@@ S,S2 A0,TLZ )@@G@@APPKT+3 . STORED FUNC CODE IN PROPER WORD.CD305700 @I@@@@ MA )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE--- CD3058MB )@@G@@00 @I@@@@ ER IOW$ . WRITE END-OF-FILE MC )@@G@@ CD305900 @I@@@@ ER IOW$ . WRIMD )@@G@@TE SECOND EOF CD306000 @I@@@@ L,U A0,05ME )@@G@@1 . FUNCTION CODE FOR BACKSPACE CD306100 @I@@@@ MF )@@G@@ S,S2 A0,TAPPKT+3 . STORE IN PROPER WORD CD3062MG )@@G@@00 @I@@@@ L,U A0,TAPPKT . I/O PACKET FOR MAG TAMH )@@G@@PE CD306300 @I@@@@ ER IOW$ . BACMI )@@G@@KSPACE OVER SECOND EOF CD306400 @I@@@@ INCF MJ )@@G@@ . INCREASE THE FILE COUNT CD306500 @I@@@@ MK )@@G@@ TZ,S6 OPTION . F OPTION SET? CD3066ML )@@G@@00 @I@@@@ J FCOPYC . YES MM )@@G@@ CD306700 @I@@@@ J CDIMGE . GOMN )@@G@@ BACK AND GET NEXT PARAMETER CCD306800 @I@@@@REWW LA,U A0,0MO )@@G@@40 . NO CD306900 @I@@@@ MP )@@G@@ S,S2 A0,TAPPKT+3 . STORE FUNCTION CODE IN PACKET CD3070MQ )@@G@@00 @I@@@@ DL A0,FILEN . REWIND NO INTERLOCK MR )@@G@@ROUTINE---GECD307100 @I@@@@ DS A0,TAPPKT . STMS )@@G@@ORE WORD ONE IN TAPE PACKET CD307200 @I@@@@ L,U A0,TMT )@@G@@APPKT . I/0 PACKET FOR MAG TAPE CD307300 @I@@@@ MU )@@G@@ ER IOW$ . REWIND WITHOUT INTERLOCK CD3074MV )@@G@@00 @I@@@@ CLRF MW )@@G@@ CD307500 @I@@@@ CLRR MX )@@G@@ CD307600 @I@@@@ GETFLD SAMEMY )@@G@@CD . SEE IF THERE ARE ANY MORE FILES CD307700 @I@@@@ MZ )@@G@@ JZ A2,CDIMGE . NO CD3078NA )@@G@@00 @I@@@@ J NAME . YES GO REWIND THEM NB )@@G@@ CD307900 @I@@@@REWI DL A0,FILEN . LOANC )@@G@@D FILENAME CD308000 @I@@@@ DS A0,FND )@@G@@REED+1 . STORE IN PACKET CD308100 @I@@@@ NE )@@G@@ L A0,(3,FREED) . LOAD @FREE PACKET CD3082NF )@@G@@00 @I@@@@ ER CSF$ . FREE THE TAPE ( OR FING )@@G@@LE) CD308300 @I@@@@ GETFLD SAMECD . ANYNH )@@G@@ MORE? CD308400 @I@@@@ JZ A2,CNI )@@G@@DIMGE . NO CD308500 @I@[@@ NJ )@@G@@ J REWI . YES CD3086NK )@@G@@00 @I@@[[ J NAME . INSERT NEW FILENAME NL )@@G@@AND FREE . 3C @I[@@@. SWAP TAPE REELS NM )@@G@@ CD308700 @I@@@@SWAPRL . NN )@@G@@ CD308800 @I@@@@ NO )@@G@@ L,U A0,FILEN CD3089NP )@@G@@00 @I@@@@ ER TSWAP$ NQ )@@G@@ CD309000 @I@@@@ J CDIMGE NR )@@G@@ CD309100 @B@@@@/ NS )@@G@@ . @I@@@@. ROUTINE FOR POSITIONING TAPE FORWARD ONE BLOCKNT )@@G@@ AT A TIME CD309300 @I@@@@POSFOR SZ PSERET NU )@@G@@ . ZERO PSE JUMP RETURN CD309400 @I@@@@ GENV )@@G@@TFLD SAMECD . PICK UP 'N' FIELD OF PARAMETER CCD309500 NW )@@G@@@I@@@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT NX )@@G@@ CD309600 @I@@@@ J REPEATB . COME HERENY )@@G@@ IF WE PROVIDED FILE COUCD309700 @I@@@@ SA A1,X2 NZ )@@G@@ . CD309800 @I@@@@ SLOA )@@G@@J CNVT . CONVERT TO BINY VALUE WILL BE INCD309900 OB )@@G@@@I@@@@REPEATB LA,S5 A0,OPTION . LOAD FOR 'D' OPTION TEST OC )@@G@@ CD310000 @I@@@@ TOP,U A0,01 . 'D' OPTIOOD )@@G@@N SET? CD310100 @I@@@@ J COUNTT OE )@@G@@ . TEST FOR O COUNT BEFORE POSITIOCD310200 @I@@@@ J OF )@@G@@ PSFD . GO TO DRUM ROUTINE CD310300 OG )@@G@@@I@@@@REPEAT DL A0,FILEN . FILENAME WD TWO OH )@@G@@ CD310400 @I@@@@ DS A0,TAPPKT OI )@@G@@ CD310500 @I@@@@ L,U A0,050 OJ )@@G@@ . FUNC CODE FOR POS FILE FORWARD OCD310600 @I@@@@ S,OK )@@G@@S2 A0,TAPPKT+3 . PLACE IN PROPER WORD OF PACKET CD310700 OL )@@G@@@I@@@@ LA,U A0,FOPT(3) . OM )@@G@@ CD310800 @I@@@@ SA A0,PNT . ON )@@G@@ CD310900 @I@@@@ J REPETA OO )@@G@@ . CD311000 @I@@@@FOPT(3) TNOP )@@G@@Z NO2EOF . COMING FROM EOF COMPARE CD311100 OQ )@@G@@@I@@@@ J COUNT OR )@@G@@ CD311200 @I@@@@ L X2,SAVJGD . CLEANUP OS )@@G@@FOR RETURN TO CMP CD311300 @I@@@@ SZ NO2EOF OT )@@G@@ CD311400 @I@@@@ J OU )@@G@@ NXTCMP CD311500 OV )@@G@@@I@@@@REPETA L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE OW )@@G@@ CD311600 @I@@@@ ER IOW$ . MOVE ONEOX )@@G@@ BLOCK FORWARD CD311700 @I@@@@ INCR OY )@@G@@ CD311800 @I@@@@ L,OZ )@@G@@U A0,1 . STATUS CODE FOR TESTING EOF CD311900 PA )@@G@@@I@@@@ TNE,S1 A0,TAPPKT+3 . IS IT EOF PB )@@G@@ CD312000 @I@@@@ J FOUND1 . PC )@@G@@ CD312100 @I@@@@ TNZ,S6 OPTION PD )@@G@@ . F OPTION SET? CD312200 @I@@@@ J PE )@@G@@ COUNT . NO CD312300 PF )@@G@@@I@@@@ J REPETA . PG )@@G@@ CD312400 @I@@@@FOUND1 TZ PSERET . COMMONG PH )@@G@@FROM PSE COMMAND TEST CD312500 @I@@@@ J POSF2 PI )@@G@@ CD312600 @I@@@@ SLPJ )@@G@@J PRTEFX . PRINT EOF ENCOUNTERED CD312700 PK )@@G@@@I@@@@ INCF PL )@@G@@ CD312800 @I@@@@ TZ NONO . PM )@@G@@ CD312900 @I@@@@ J NXTFLE PN )@@G@@ . CD313000 @I@@@@ TZPO )@@G@@,S6 OPTION . F OPTION SET? CD313100 PP )@@G@@@I@@@@ J *PNT . GO BACK WHERE CAME FROM PQ )@@G@@ CD313200 @I@@@@ J CDIMGE PR )@@G@@ CD313300 @I@@@@COUNTT JGD X2,REPEAT PS )@@G@@ . TO TAKE CARE OF FIRST PASS CD313400 @I@@@@ J PT )@@G@@ CDIMGE . CD313500 PU )@@G@@@I@@@@COUNT JGD X2,REPETA . GO BACK AND DO IT AGAIN PV )@@G@@ CD313600 @I@@@@ J CDIMGE . PROCESS PW )@@G@@NEXT CARD CD313700 @I@@@@ . PX )@@G@@ CD313800 @I@@@@. ROUTINE TOPY )@@G@@ POSITION FORWARD PAST EOF AND BACK UP 1 BLOCK..............CD313900 PZ )@@G@@@I@@@@ . QA )@@G@@ CD314000 @I@@@@POSF1 LA,S5 A0,OPTION . TEST FOR QB )@@G@@D OPTION CD314100 @I@@@@ TEP,U A0,1 QC )@@G@@ . CD314200 @I@@@@ J QD )@@G@@ PSED . YES CD314300 QE )@@G@@@I@@@@ SA A2,PSERET . NONZERE RET. SWCH:A2=NR CHQF )@@G@@AR FN CD314400 @I@@@@ J POSFOR+1 . QG )@@G@@ CD314500 @I@@@@POSF2 SZ PSERET QH )@@G@@ . CLEAN UP SWITCH CD314600 @I@@@@ L,QI )@@G@@U A0,051 . BACKSPACE OVER EOF CD314700 QJ )@@G@@@I@@@@ S,S2 A0,TAPPKT+3 QK )@@G@@ CD314800 @I@@@@ L,U A0,TAPPKT QL )@@G@@ CD314900 @I@@@@ ER IOW$ QM )@@G@@ CD315000 @I@@@@ DCQN )@@G@@RR CD315100 QO )@@G@@@I@@@@PRTAFB . QP )@@G@@ CD315200 @I@@@@ DL A1,FILEN . MSG- POSQQ )@@G@@ITIONED AFTER BLOCK XX. CD315300 @I@@@@ DS A1,BLKPOS QR )@@G@@ CD315400 @I@@@@ SLQS )@@G@@J QGETAD CD315500 QT )@@G@@@I@@@@ L A0,2,A0 QU )@@G@@ CD315600 @I@@@@ E$BD 6,AFTBLK,6 . QV )@@G@@ CD315700 @I@@@@ L A0,AFTERB QW )@@G@@ CD315800 @I@@@@ ERQX )@@G@@ PRINT$ CD315900 QY )@@G@@@I@@@@ J CDIMGE QZ )@@G@@ CD316000 @B@@@@/ . @I@@@@RA )@@G@@POSBWD GETFLD SAMECD . PICK UP VALUE 'N' FOR POSITIONINRB )@@G@@CD316200 @I@@@@ SZ OVWJMP . ZERO EXIT TO ORC )@@G@@VW COMMAND CD316300 @I@@@@ LMJ X11,NOVAL RD )@@G@@ . GO TEST FOR USER COUNT CD316400 @I@@@@ J RE )@@G@@ GETREC . COME HERE IF WE PROVIDED FILE COUCD316500 @I@@@@RF )@@G@@ SA A1,X2 . RG )@@G@@CD316600 @I@@@@ SLJ CNVT RH )@@G@@ CD316700 @I@@@@GETREC LA,S5 A0,OPTION RI )@@G@@ . TEST FOR D OPTION CD316800 @I@@@@ TEP,U RJ )@@G@@ A0,1 . CD316900 @I@@@@RK )@@G@@ J PSBD . YES RL )@@G@@CD317000 @I@@@@ DL A0,FILEN . NO RM )@@G@@ CD317100 @I@@@@ DS A0,TAPPKT RN )@@G@@ . CD317200 @I@@@@BWDSET L,U RO )@@G@@ A0,051 . POSITION BACKWARDS FUNCTION CD317300 @I@@@@RP )@@G@@ S,S2 A0,TAPPKT+3 . PROPER WD FOR THIS CODE RQ )@@G@@CD317400 @I@@@@ J COUNT1 . RR )@@G@@ CD317500 @I@@@@BACKUP L,U A0,TAPPKT RS )@@G@@ . LOAD THE PACKET CD317600 @I@@@@ ER RT )@@G@@ IOW$ . MOVE TAPE BACKWARD ONE BLOCK CD317700 @I@@@@RU )@@G@@ DCRR RV )@@G@@CD317800 @I@@@@ L,U A0,1 . STATUS CODE FORW )@@G@@R EOF CD317900 @I@@@@ TNE,S1 A0,TAPPKT+3 RX )@@G@@ . TEST FOR EOF CD318000 @I@@@@ J RY )@@G@@ EOFOUT . YES GET OUT CD318100 @I@@@@RZ )@@G@@ L,U A0,02 . LOAD POINT RETURN CODE SA )@@G@@CD318200 @I@@@@ TNE,S1 A0,TAPPKT+3 . TEST FOR LOAD PSB )@@G@@OINT CD318300 @I@@@@ J LPOUT SC )@@G@@ . YES GET OUT CD318400 @I@@@@ TZ,S6 SD )@@G@@ OPTION . F OPTION SET? CD318500 @I@@@@SE )@@G@@ J BACKUP . YES SF )@@G@@CD318600 @I@@@@ J COUNT1 . NO SG )@@G@@ CD318700 @I@@@@EOFOUT DCRF SH )@@G@@ . CD318800 @I@@@@ TNZ SI )@@G@@ OVWJMP . DON'T PRINT MESSAGE IF OVERWRITECD318900 @I@@@@SJ )@@G@@ SLJ PRTEFX SK )@@G@@CD319000 @E@@[[ CLRR . ZERO RECORD COUSL )@@G@@NT @I@@@@ TNZ,S6 OPTION . F OPTION SET? SM )@@G@@ CD319100 @I@@@@ J CDIMGE . NO SN )@@G@@ CD319200 @I@[@@ CLRR SO )@@G@@ . CD319300 @I[@@@ SP )@@G@@ JGD X2,BACKUP . CD3194SQ )@@G@@00 @I@@@@ L A0,OVWJMP . DID WE COME FROM OVESR )@@G@@RWRITE CMD CD319500 @I@@@@ JNZ A0,OVWRET SS )@@G@@ CD319600 @I@@@@ J CDIMST )@@G@@GE . GET ANOTHER COMMAND CD319700 @I@@@@LPOUT SU )@@G@@ L A0,(P 2,8,PRTLPF) . LOAD AND PRINT LOAD POINT MESGCD3198SV )@@G@@00 @I@@@@ ER PRINT$ . WRITE OUT MESSAGE SW )@@G@@ CD319900 @I@@@@ CLRR . CLESX )@@G@@AR RECORD COUNTER CD320000 @I@@@@ CLRF SY )@@G@@ . CLEAR FILE COUNTER CD320100 @I@@@@ SZ )@@G@@ J CDIMGE . GO GET ANOTHER CD3202TA )@@G@@00 @I@@@@COUNT1 JGD X2,BACKUP . CHECK BLOCK COUNT ANTB )@@G@@D DECREMENT CD320300 @I@@@@ J CDIMGE . GETC )@@G@@T ANOTHER COMMAND CD320400 @B@@@@/ TD )@@G@@ . @I@@@@COPY GETFLD SAMECD . GET OUTPTE )@@G@@UT FILE NAME CD320600 @I@@@@ JZ A2,BADCOM TF )@@G@@ . PARAMETER CARD CHECK CD320700 @I@@@@ MSTG )@@G@@I,U A2,6 . DETERMINE NUMBER OF SHIFT POSITICD320800 TH )@@G@@@I@@@@ S,T3 A2,$+1 TI )@@G@@ CD320900 @I@@@@ DSC A0,0 . POSITIONTJ )@@G@@ FILENAME CD321000 @I@@@@ DS A0,F2NAM TK )@@G@@ . DS OUTPUT FILENAME CD321100 @I@@@@ GETL )@@G@@TFLD SAMECD . GET VALUE 'N' IF ANY CD321200 TM )@@G@@@I@@@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT TN )@@G@@ CD321300 @I@@@@ J LEG1+1 . COME HERETO )@@G@@ IF WE PROVIDED FILE COUCD321400 @I@@@@ SA A1,X2 TP )@@G@@ . NR FILES OR RECORDS CD321500 @I@@@@LEG1 SLTQ )@@G@@J CNVT . FD TO BIN CD321600 TR )@@G@@@I@@@@ DL A0,FILEN TS )@@G@@ CD321700 @I@@@@ DS A0,FN1 TT )@@G@@ CD321800 @I@@@@ TZ,S6 OPTION TU )@@G@@ . F OPTION SET? CD321900 @I@@@@ J TV )@@G@@ FCOPYA . YES CD322000 TW )@@G@@@I@@@@ J WRITER+1 TX )@@G@@ CD322100 @I@@@@KEEPON LA,S5 A0,OPTION . TEST FOR TY )@@G@@'D' OPTION CD322200 @I@@@@ JZ A0,$+2 TZ )@@G@@ . NO 'D' OPTION CD322300 @I@@@@ SAUA )@@G@@ A0,DUPPNT . SET FLAG CD322400 UB )@@G@@@I@@@@ SLJ GENRD1 UC )@@G@@ CD322500 @I@@@@ INCR UD )@@G@@ CD322600 @I@@@@WRITER SLJ RITE UE )@@G@@ . COPY BAD RECORD CD322700 @I@@@@ SZUF )@@G@@ DUPPNT . ZERO OUT TAPE-DRUM DUPE FLAG CD322800 UG )@@G@@@I@@@@ JGD X2,KEEPON UH )@@G@@ CD322900 @I@@@@ J CDIMGE UI )@@G@@ CD323000 @I@@@@FCOPYA LA,U A0,FOPT(1)UJ )@@G@@ . CD323100 @I@@@@ SAUK )@@G@@ A0,PNT . CD323200 UL )@@G@@@ @@[[ L A0,X2 @G@@[[ TNE A0,NMANYF UM )@@G@@ . DID USER GIVE A FILE COUNT @E@@[[ L,U X2,1UN )@@G@@ . NO - ONLY DO 1 FILE @I@@@@ J FCOPYB UO )@@G@@ . CD323300 @I@@@@FCOPY SLUP )@@G@@J GENRD1 . GO READ A BLOCK CD323400 UQ )@@G@@@I@@@@ INCR . INCREMENT RECORD COUNT UR )@@G@@ CD323500 @I@@@@ SLJ RITE . WRITE IT US )@@G@@OUT CD323600 @I@@@@ J FCOPY UT )@@G@@ . GO GET ANOTHER CD323700 @I@@@@FOPT(1) LXUU )@@G@@ X2,BS . RELOAD X2 CD323800 UV )@@G@@@I@@@@ DL A0,F2NAM . LOAD OUTPUT FILE NAME UW )@@G@@ CD323900 @I@@@@ DS A0,FILEN . UX )@@G@@ CD324000 @I@@@@ J WREOF+1 UY )@@G@@ . GO MARK THE TAPE CD324100 @I@@@@FCOPYC DLUZ )@@G@@ A0,FN1 . RESET FILE NAME TO FIRST NAME CD324200 VA )@@G@@@I@@@@ DS A0,FILEN . VB )@@G@@ CD324300 @I@@@@FCOPYB JGD X2,FCOPY . GO START VC )@@G@@ANOTHER CD324400 @I@@@@ J CDIMGE VD )@@G@@ . GO GET ANOTHER CARD CD324500 @B@@@@/ VE )@@G@@ . @I@@@@RITE* NOP VF )@@G@@ . CD324700 @I@@@@ TZ VG )@@G@@ DUPPNT . TAPE TO DRUM DUPE? CD324800 @I@@@@VH )@@G@@ J DWRTE . YES VI )@@G@@CD324900 @I@@@@ DL A0,F2NAM . PICK UP OUTPUTVJ )@@G@@ FN CD325000 @I@@@@ DS A0,TAPWRI VK )@@G@@ . PUT IN TAPE WRITE PACKET CD325100 @I@@@@ L,H2 VL )@@G@@ A0,NOWDS$ . PICK UP NUMBER WORDS CD325200 @I@@@@VM )@@G@@ S,H1 A0,TAPWRI+4 . STORE IN WRITE PACKET VN )@@G@@CD325300 @I@@@@ L,U A0,TAPWRI . PICK UP WRITE VO )@@G@@PACKET CD325400 @I@@@@ ER IOW$ VP )@@G@@ . WRITE TAPE CD325500 @I@@@@ L,U VQ )@@G@@ A0,2 . STATUS CODE FOR TESTING EOT CD325600 @I@@@@VR )@@G@@ TNE,S1 A0,TAPWRI+3 VS )@@G@@CD325700 @I@@@@ J EOTRET VT )@@G@@ CD325800 @I@@@@ L,U A0,010 VU )@@G@@ . TEST ABORT ERRORS CD325900 @I@@@@ TG,S1 VV )@@G@@ A0,TAPWRI+3 . TEST IT CD326000 @I@@@@VW )@@G@@ J *RITE VX )@@G@@CD326100 @I@@@@ J PROBLM . HAD A WROTE ERVY )@@G@@ROR CONDITION CD326200 @I@@@@ . WHEN GET AN END OF TAPE RETURNVZ )@@G@@ FROM IOW - WILL WRITE AN EOF ON CD326300 @I@@@@. TAPE, THEN DO AWA )@@G@@N ER TO TSWAP$ TO GET ANOTHER TAPE CD326400 @I@@@@WB )@@G@@EOTRET . WC )@@G@@CD326500 @I@@@@ L,U A0,011 . LOAD WEOF FUNC WD )@@G@@ CD326600 @I@@@@ S,S2 A0,TAPWRI+3 .WE )@@G@@ STORE IN PKT CD326700 @I@@@@ L,U WF )@@G@@ A0,TAPWRI CD326800 @I@@@@WG )@@G@@ ER IOW$ . WRITE EOF WH )@@G@@CD326900 @I@@@@ L,U A0,TAPWRI . WI )@@G@@ CD327000 @I@@@@ ER TSWAP$ WJ )@@G@@ . SWAP REELS CD327100 @I@@@@ L,U WK )@@G@@ A0,010 . RESTORE WRT FUNC IN PKT CD327200 @I@@@@WL )@@G@@ S,S2 A0,TAPWRI+3 . WM )@@G@@CD327300 @I@@@@ J *RITE WN )@@G@@ CD327400 @I@@@@PROBLM L,U A0,WRERR WO )@@G@@ . BAD WRITE CONDITION CD327500 @I@@@@ ER WP )@@G@@ PRINT$ . PRINT ERROR CD327600 @I@@@@WQ )@@G@@ ER ERR$ . ERROR OUT WR )@@G@@CD327700 @B@@@@/ . @I@@@@DUMP WS )@@G@@ GETFLD SAMECD . GET PARAMETER VALUE 'N' IF ANY CD3279WT )@@G@@00 @I@@@@ LMJ X11,NOVAL . GO TEST FOR USER COUNWU )@@G@@T CD328000 @I@@@@ J NVALUE+1 . COMWV )@@G@@E HERE IF WE PROVIDED FILE COUCD328100 @I@@@@ SA A1,XWW )@@G@@2 . CD328200 @I@@@@NVALUEWX )@@G@@ SLJ CNVT . FD TO BIN VALUE COMES BACK IN XRCD3283WY )@@G@@00 @I@@@@ DL A0,FILEN WZ )@@G@@ CD328400 @I@@@@ DS A0,FN1 XA )@@G@@ CD328500 @E@@[[ LA A0,TXB )@@G@@EMP . CHECK IS X OPTION ON@ @@[[ TOP,U A0,04 XC )@@G@@@^@@[[ J $+5 @B@@[[ LA A0,(P 2, 9,XMSGXD )@@G@@1) @B@@[[ ER PRINT$ . @B@@[[ LAXE )@@G@@ A0,(P 1, 9,XMSG2) @B@@[[ ER PRINT$ XF )@@G@@ . @I@@@@ LA,U A0,FOPT(4) . LOAD F OPTION RETURN XG )@@G@@ADDRESS CD328600 @I@@@@ SA A0,PNT . STOXH )@@G@@RE IT CD328700 @E@@[[ TNZ,S6 OPTIXI )@@G@@ON . F OPTION REQUESTED @B@@[[ J DONEIT XJ )@@G@@ . NO@B@@[[ L A0,X2 . @G@@[[ XK )@@G@@ TNE A0,NMANYF . DID USER GIVE A FILE COUNT @H@@[[XL )@@G@@ L,U X2,1 . USER DIDNOT GIVE A NR - ONLY DO XM )@@G@@1 @I@@@@ J DONEIT XN )@@G@@ CD328800 @I@[@@NEXREC SZ,H1 NOWDS$ . ZERXO )@@G@@O OUT AFC INDICATORS CD328900 @I@@[[NEXREC XP )@@G@@ . . 3A @I[@@@ XQ )@@G@@ SLJ GENRD1 . GO READ A RECORD CD3290XR )@@G@@00 @I@@@@ INCR XS )@@G@@ CD329100 @I@@@@ LA,H1 A0,OPTION . TESXT )@@G@@T FOR CD329200 @I@@@@ JNZ A0,$XU )@@G@@+5 . PRINT OPTIONS CD329300 @I@@@@ XV )@@G@@ SLJ PRTO . PRINT OCTAL CD3294XW )@@G@@00 @I@@@@ TZ,S6 OPTION . F OPTION SET? XX )@@G@@ CD329500 @I@@@@ J NEXREC . YESXY )@@G@@ CD329600 @I@@@@ J DONEXZ )@@G@@IT . DECREMENT COUNTER CD329700 @I@@@@ YA )@@G@@ L,U A1,1 . YES CD3298YB )@@G@@00 @I@@@@ TE,S2 A1,OPTION . TEST 'O' OPTION YC )@@G@@ CD329900 @I@@@@ J $+2 . NOYD )@@G@@ CD330000 @I@@@@ SLJ PRTOYE )@@G@@ . YES, PRINT OCTAL CD330100 @I@@@@ YF )@@G@@ L,U A1,1 CD3302YG )@@G@@00 @I@@@@ TE,S1 A1,OPTION . TEST 'A' OPTION YH )@@G@@ CD330300 @I@@@@ J $+2 . NOYI )@@G@@ CD330400 @I@@@@ SLJ PRTAYJ )@@G@@ . YES, PRINT ALPHA DIVIDED INTO WORCD330500 @I@@@@ YK )@@G@@ L,U A1,1 CD3306YL )@@G@@00 @I@@@@ TNE,S3 A1,OPTION . TEST 'H' OPTION ON YM )@@G@@ CD330700 @I@@@@ SLJ PRTH . YEYN )@@G@@S PRINT ALPHA CONTINOUS NOT DCD330800 @I@@@@ TNZ,S6 OPTIYO )@@G@@ON . F OPTION SET? CD330900 @I@@@@ YP )@@G@@ J DONEIT . NO CD3310YQ )@@G@@00 @I@@@@ J NEXREC . YES YR )@@G@@ CD331100 @I@@@@FOPT(4) CLRR . CLEYS )@@G@@AR RECORD BEFORE STARTING 2ND CD331200 @I@@@@DONEIT JGD X2,NYT )@@G@@EXREC CD331300 @I@@@@ YU )@@G@@ LA,U A0,28 . RESET DRUM READ COUNTERS CD3314YV )@@G@@00 @I@@@@ SA,H1 A0,DRPKT+4 . JUST IN CASE YW )@@G@@ CD331500 @I@@@@ SZ SWITCH . YX )@@G@@ CD331600 @I@@@@ J CDIMYY )@@G@@GE CD331700 @I@@@@/ . C YZ )@@G@@O M P A R THIS ROUTINES COMPARES TAPE RECORD BLOCKS ONLY. CD3318ZA )@@G@@00 @I@@@@COMPAR . ZB )@@G@@ CD331900 @I@@@@ SZ EOFLAG . TOZC )@@G@@ DENOTE ALL OTHER EOFS CD332000 @I@@[[ DL A0,FZD )@@G@@ILEN . . 3A @I@@[[ ZE )@@G@@ DS A0,FACPAC . PREPARE PACKET . 3ZF )@@G@@A @I@@[[ L,U A0,FACPAC . ZG )@@G@@ . 3A @I@@[[ ER FACIT$ . ZH )@@G@@ . 3A @I@@[[ L,S1 A1,FZI )@@G@@ACPAC+6 . EQUIPMENT TYPE FOR POSSIBLE AFC . 3A @I@@[[ ZJ )@@G@@ S A1,EQUIP1 . . 3ZK )@@G@@A @I@@@@ GETFLD SAMECD . GET SECOND FILENAME ZL )@@G@@ CD332100 @I@@@@ JZ A2,NOT2ND . DOZM )@@G@@ES USER HAVE TWO FILE NAMES CD332200 @I@@@@ MSI,U A2,6ZN )@@G@@ . DETERMINE NUMBER OF SHIFT POSITICD332300 @I@@@@ ZO )@@G@@ S,T3 A2,$+1 CD3324ZP )@@G@@00 @I@@@@ DSC A0,0 . POSITION FILE NAME ZQ )@@G@@ CD332500 @I@@@@ DS A0,F2NAM . DSZR )@@G@@ SECOND FILE NAME CD332600 @I@@[[ DS A0,FZS )@@G@@ACPAC . SET UP PACKET FOR FACIT . 3A @I@@[[ ZT )@@G@@ L,U A0,FACPAC . . 3ZU )@@G@@A @I@@[[ ER FACIT$ . GET EQUIPMENT TYPE ZV )@@G@@ . 3A @I@@[[ L,S1 A0,FACPAC+6 . ZW )@@G@@ . 3A @I@@[[ S A0,EZX )@@G@@QUIP2 . . 3A @I@@@@ ZY )@@G@@ TNZ,S6 OPTION . F OPTION SET? CD3327ZZ )@@G@@00 @I@@@@ J CMPTP1 AA )@@G@@ CD332800 @I@@@@ GETFLD SAMECD . GETAB )@@G@@ COUNT OF NUMBER OF FILES CD332900 @I@@@@ LMJ X11,AC )@@G@@NOVAL . GO WORK THE COUNT CD333000 @I@@@@ AD )@@G@@ L A1,(' 1') . FILE COUNT = 1 IF NONE GIVEN CD3331AE )@@G@@00 @I@@@@ SA A1,X2 . AF )@@G@@ CD333200 @I@@@@ SLJ CNVT . COAG )@@G@@NVERT COUNT TO BINARY CD333300 @I@@@@ L,U A0,FAH )@@G@@OPT(2) . STORE F OPTION POINTER CD333400 @I@@@@ AI )@@G@@ S A0,PNT . USED BY TPRD$ EOF ROUTINE CD3335AJ )@@G@@00 @I@@@@ J FOPT(2) . DECREMENT FILE COUNTAK )@@G@@ER CD333600 @I@@@@CMPTP1 . AL )@@G@@ CD333700 @I@@@@ DL A0,FAM )@@G@@1NAM . INSERT CURRENT FILE NAME CD333800 @I@@@@ AN )@@G@@ DS A0,FILEN . CD3339AO )@@G@@00 @I@@@@ LMJ X11,TPRD$ . READ FIRST TAPE AP )@@G@@ CD334000 @I@@@@F1NAM + 0 . AQ )@@G@@ CD334100 @I@@@@ + 0 AR )@@G@@ . CD334200 @I@@@@ AS )@@G@@ + 4096,BLOCK . CD3343AT )@@G@@00 @I@@@@ + EOFCMP . EOF RETURN AU )@@G@@ CD334400 @I@@@@ INCR . INAV )@@G@@CREMENT RECORD COUNT CD334500 @I@[@@ L,H2 A14,AW )@@G@@NOWDS$ . NUMBER OF WORDS READ CD334600 @I@@[[ AX )@@G@@ L A14,NOWDS$ . NUMBER OF WORDS READ CD3346AY )@@G@@00 @I[@@@ S A14,WDSTP1 . AZ )@@G@@ CD334700 @I@@@@CMPTP2 . BA )@@G@@ CD334800 @I@@@@ DL A0,FBB )@@G@@2NAM . CHANGE FILE NAME CD334900 @I@@@@ BC )@@G@@ DS A0,FILEN . CD3350BD )@@G@@00 @I@@@@ LMJ X11,TPRD$ . READ SECOND TAPE BE )@@G@@ CD335100 @I@@@@F2NAM* + 0 . BF )@@G@@ CD335200 @I@@@@ + 0 BG )@@G@@ . CD335300 @I@@@@ BH )@@G@@ + 4096,BLOCK1 CD3354BI )@@G@@00 @I@@@@ + EOF2ND . EOF RETURN BJ )@@G@@ CD335500 @I@@@@ INCR . INBK )@@G@@CREMENT RECORD COUNT CD335600 @I@@@@ TZ EOFLBL )@@G@@AG . WAS EOF ON FIRST TZPE CD335700 @I@@@@ BM )@@G@@ J NOEFT2 . YES- ERROR CD3358BN )@@G@@00 @I@[@@ L,H2 A15,NOWDS$ . COMPARE NR WORDS REABO )@@G@@D CD335900 @I@@[[ L A15,NOWDS$ . COBP )@@G@@MPARE NR WORDS READ CD335900 @I[@@@ S A15,BQ )@@G@@WDSTP2 . WORDS READ ON TAPE 2 CD336000 @I@[@@ BR )@@G@@ L A14,WDSTP1 CD3361BS )@@G@@00 @I@@[[ L,H2 A14,WDSTP1 . PICK UP WORD COUNT OBT )@@G@@NLY . 3A @I@@[[ L,H2 A15,WDSTP2 . PIBU )@@G@@CK UP WORD COUNT ONLY . 3A @I[@@@ TE A15,BV )@@G@@A14 . SAME NR WORDS BOTH TAPES CD336200 @I@@@@ BW )@@G@@ J GOOFNR . CD3363BX )@@G@@00 @I@@@@ SZ A3 . INCREMENT FOR WORD CBY )@@G@@OMPARISON CD336400 @I@@@@SAMWDS . BZ )@@G@@ CD336500 @I@@@@ L A0,BCA )@@G@@LOCK,A3 . WORD FROM FIRST TAPE CD336600 @I@@@@ CB )@@G@@ TE A0,BLOCK1,A3 . WORDS FROM 2ND TAPE CD3367CC )@@G@@00 @I@@@@ J GOOFWD CD )@@G@@ CD336800 @I@@@@ A,U A3,1 CE )@@G@@ CD336900 @I@@@@ TE A15,CF )@@G@@A3 . ALL WORDS COMPARED] CD337000 @I@@@@ CG )@@G@@ J SAMWDS . CD3371CH )@@G@@00 @I@@@@ J CMPTP1 . READ AND COMPARE NEXCI )@@G@@T BLOCK CD337200 @I@@@@EOFCMP . CJ )@@G@@ CD337300 @I@@@@ INCR CK )@@G@@ . EOF READ ON TAPE 1 CD337400 @I@@@@ CL )@@G@@ L,U A0,1 CD3375CM )@@G@@00 @I@@@@ S A0,EOFLAG . SET FLAG CN )@@G@@ CD337600 @I@@@@ SLJ PRTEFX . PRCO )@@G@@INT EOF ENCOUNTERED MSG CD337700 @I@@@@ INCF CP )@@G@@ . INC FILE COUNT AND ZERO RECORDS CD337800 @I@@@@ CQ )@@G@@ J CMPTP2 . CD3379CR )@@G@@00 @I@@@@EOF2ND . CS )@@G@@ CD338000 @I@@@@ INCR . CT )@@G@@ CD338100 @I@@@@ TNZ EOFLCU )@@G@@AG . CD338200 @I@@@@ CV )@@G@@ J NOEFT1 . NO EOF ON TAPE 1 CD3383CW )@@G@@00 @I@@@@ SLJ PRTEFX . END OF FILE ENCOUNTECX )@@G@@RED CD338400 @I@@@@ L A0,ADPKT3 . YOCY )@@G@@UR TAPES COMPARE CD338500 @I@@@@ ER PRINCZ )@@G@@T$ . CD338600 @I@@@@ DA )@@G@@ INCF . UP FILE COUNT-ZERO RECORD CNT CD3387DB )@@G@@00 @I@@@@NXTCMP . DC )@@G@@ CD338800 @I@@@@ SZ EOFLAG . DD )@@G@@ CD338900 @I@@@@ TZ,S6 OPTIDE )@@G@@ON . CD339000 @I@@@@FOPT(2DF )@@G@@) JGD X2,CMPTP1 . READ NEXT FILE- F OPTION CD3391DG )@@G@@00 @I@@@@ J CDIMGE . GET NEXT COMMAND DH )@@G@@ CD339200 @I@@@@NOEFT2 DL A0,F2NAM . DI )@@G@@ CD339300 @I@@@@ DS A0,NDJ )@@G@@OTEOF+9 . CD339400 @I@@@@ DK )@@G@@ L A0,ADPKT4 . EOF EXPECTED, NOT ENCOUNTERED CD3395DL )@@G@@00 @I@@@@ ER PRINT$ . DM )@@G@@ CD339600 @I@@@@ S X2,SAVJGD . SADN )@@G@@VE FILE COUNT IS IS ONE CD339700 @I@@@@ LA,U A0,1DO )@@G@@ . CD339800 @I@@@@ DP )@@G@@ S A0,NO2EOF . RETURN FROM PSF SWITHC CD3399DQ )@@G@@00 @I@@@@ L X2,(037777777777) . DUMMY RECORD COUNT DR )@@G@@ CD340000 @I@@@@ J REPEAT . PODS )@@G@@SITION T2 PAST EOF CD340100 @I@@@@NOEFT1 DT )@@G@@ . NO EOF ON T1, IS ON T2 CD340200 @I@@@@ DU )@@G@@ DL A0,F2NAM . LOAD FILENAME IN ERROR MSG CD3403DV )@@G@@00 @I@@@@ DS A0,BLOWIT+13 . DW )@@G@@ CD340400 @I@@@@ SLJ QGETAD . GEDX )@@G@@T BLOCK COUNT CD340500 @I@@@@ L A0,2DY )@@G@@,A0 . CD340600 @I@@@@ DZ )@@G@@ E$BD 6,BLOWIT+10,6 . STORE BLOCK COUNT CD3407EA )@@G@@00 @I@@@@ L A0,ADPKT7 EB )@@G@@ CD340800 @I@@@@ ER PRINT$ . EC )@@G@@ CD340900 @I@@@@ INCF ED )@@G@@ . UP FILE, ZERO RECORD COUNTS CD341000 @I@@@@ EE )@@G@@ DL A0,F1NAM . SWAP FILE NAMES TO POSTION CD3411EF )@@G@@00 @I@@@@ DS A0,FILEN . EG )@@G@@ CD341200 @I@@@@ S X2,SAVJGD . SAEH )@@G@@VE FILE COUNT CD341300 @I@@@@ LA,U A0,1EI )@@G@@ . CD341400 @I@@@@ EJ )@@G@@ S A0,NO2EOF . RETURN FROM PSF SWITCH CD3415EK )@@G@@00 @I@@@@ L X2,(037777777777) . DUMMY RECORD COUNT EL )@@G@@ CD341600 @I@@@@ J REPEAT . POEM )@@G@@SITION F1 PAST EOF CD341700 @I@@@@GOOFNR EN )@@G@@ . NR WORDS 2 TAPES DIFFERENT CD341800 @I@@[[ EO )@@G@@ L,U A0,0050004 . TEST FOR ODD NR WDS ON 9 TRACK . 3EP )@@G@@A @I@@[[ TNE,H1 A0,WDSTP1 . AFC ON TAPE 1 WITH 5EQ )@@G@@ FRAMES . 3A @I@@[[ J AFCTP1 . AFER )@@G@@C IS ON TAPE 1 . 3A @I@@[[ TE,H1 A0,WES )@@G@@DSTP2 . NOT ON 1 TRY TAPE 2 . 3A @I@@[[ ET )@@G@@ J TRUGOF . HAVE TRUE NON COMPARE ERROR . 3EU )@@G@@A @I@@[[ L,H2 A0,WDSTP2 . NR WORDS READ + PAD EV )@@G@@ . 3A @I@@[[ ANA,U A0,1 . DEEW )@@G@@CREADE FOR PAD . 3A @I@@[[ TE,H2 A0,WEX )@@G@@DSTP1 . SAME NR WORDS WITHOUT AFC . 3A @I@@[[ EY )@@G@@ J TRUGOF . NO . 3EZ )@@G@@A @I@@[[ LA A0,EQUIP2 . TEST FOR 9 TRACK TAPFA )@@G@@E . 3A @I@@[[ TE,U A0,05 . NIFB )@@G@@NE TRACK TAPE DRIVE 8C9 . 3A @I@@[[ J TRUGFC )@@G@@OF . NOT NINE TRACK . 3A @I@@[[ FD )@@G@@ LA A0,EQUIP1 . MUST BE 7 AND 9 TRACK COMPARISON . 3FE )@@G@@A @I@@[[ TE,U A0,3 . SEVEN TRACK DRIVE WIFF )@@G@@TH TRANSLATE . 3A @I@@[[ J TRUGOF . FG )@@G@@ . 3A @I@@[[ ANA,U A15,FH )@@G@@1 . USE 1 LESS WD FOR COMPARE . 3A @I@@[[ FI )@@G@@ J CMPAFC . PRINT WARNING FOR USER IF NOT DONE . 3FJ )@@G@@A @I@@[[AFCTP1 L A0,EQUIP1 . TEST FOR 9 TRACK TAPFK )@@G@@E DRIVE . 3A @I@@[[ TE,U A0,05 . FL )@@G@@ . 3A @I@@[[ J TRUGFM )@@G@@OF . NOT 9 TRACK DRIVE . 3A @I@@[[ FN )@@G@@ L A0,EQUIP2 . MUST BE 7 AND 9 TRACK COMPARE . 3FO )@@G@@A @I@@[[ TE,U A0,3 . SEVEN TRACK DRIVE WIFP )@@G@@TH TRANSLATE . 3A @I@@[[ J TRUGOF . FQ )@@G@@ . 3A @I@@[[ ANA,U A14,FR )@@G@@1 . DECREASE NR WORDS FOR PAD . 3A @I@@[[ FS )@@G@@ TE,H2 A14,A15 . SAME SIZE WITHOUT PADDING . 3FT )@@G@@A @I@@[[ J TRUGOF . FU )@@G@@ . 3A @I@@[[CMPAFC . FV )@@G@@ . 3A @I@@[[ J SAMWFW )@@G@@DS-1 . TEST WORD COMPARISON . 3A @I@@[[TRUGOFFX )@@G@@ . . 3FY )@@G@@A @I@@@@ DL A0,F1NAM FZ )@@G@@ CD341900 @I@@@@ DS A0,FRSTFIL . GA )@@G@@ CD342000 @I@@@@ DL A0,FGB )@@G@@2NAM . CD342100 @I@@@@ GC )@@G@@ DS A0,SECDFIL . CD3422GD )@@G@@00 @I@@@@ LA A0,DIFFBL . B DIFFERENT BLOCK SIGE )@@G@@ZE CD342300 @I@@@@ ER PRINT$ . GF )@@G@@ CD342400 @I@@@@ J GOOFGG )@@G@@IT . CD342500 @I@@@@GOOFWDGH )@@G@@ . WORDS DID NOT COMPARE CD3426GI )@@G@@00 @I@@@@ DL A0,F1NAM . GJ )@@G@@ CD342700 @I@@@@ DS A0,FSTFL . GK )@@G@@ CD342800 @I@@@@ DL A0,FGL )@@G@@2NAM . CD342900 @I@@@@ GM )@@G@@ DS A0,SCDFL . CD3430GN )@@G@@00 @I@@@@ LA A0,A3 . NR WORD NOT COMPARINGO )@@G@@G CD343100 @I@@@@ E$BD 6,WRDCNT,6 . GP )@@G@@ CD343200 @B@@@@ LA A0,NGQ )@@G@@OCMP . @I@@@@ ER PRINT$ . GR )@@G@@ CD343300 @I@@@@GOOFIT GS )@@G@@ . POSITION 2 TAPES PAST EOF CD343400 @I@@@@ DLGT )@@G@@ A0,F1NAM . CD343500 GU )@@G@@@I@@@@ DS A0,FILEN . GV )@@G@@ CD343600 @I@@@@ L A0,WDSTP1 . GW )@@G@@ CD343700 @I@@@@ S,H2 A0,NOWDS$ GX )@@G@@ . CD343800 @I@@@@ SLGY )@@G@@J PRTO CD343900 GZ )@@G@@@I@@@@ L R1,WDSTP2 . HA )@@G@@ CD344000 @I@@@@ L,U A0,BLOCK1 . TRANSFERHB )@@G@@ 2ND BLOCK TO PRINT IT CD344100 @I@@@@ LXI,U A0,1 HC )@@G@@ . CD344200 @I@@@@ L,HD )@@G@@U A1,BLOCK . CD344300 HE )@@G@@@I@@@@ LXI,U A1,1 . HF )@@G@@ CD344400 @I@@@@ BT A1,0,*A0 . HG )@@G@@ CD344500 @I@@@@ L A0,WDSTP2 HH )@@G@@ . CD344600 @I@@@@ S,HI )@@G@@H2 A0,NOWDS$ . CD344700 HJ )@@G@@@I@@@@ DL A0,F2NAM . HK )@@G@@ CD344800 @I@@@@ DS A0,FILEN . HL )@@G@@ CD344900 @I@@@@ SLJ PRTO HM )@@G@@ . CD345000 @I@@@@ DLHN )@@G@@ A0,F1NAM . PREPARE TO MOVE PAST EOF CD345100 HO )@@G@@@I@@@@ DS A0,FILEN . HP )@@G@@ CD345200 @I@@@@ SZ NO2EOF . HQ )@@G@@ CD345300 @I@@@@ S X2,SAVJGD HR )@@G@@ . FILE NR IF IS ONE CD345400 @I@@@@ L HS )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD345500 HT )@@G@@@I@@@@ LA,U A1,1 . HU )@@G@@ CD345600 @I@@@@ SA A1,NONO . TO SWAP HV )@@G@@FN AND MOVE FN2 CD345700 @I@@@@ J REPEAT HW )@@G@@ . CD345800 @I@@@@NOT2ND HX )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 HY )@@G@@@I@@@@ L A0,ADPKT5 . HZ )@@G@@ CD346000 @I@@@@ ER PRINT$ . IA )@@G@@ CD346100 @I@@@@ J CDIMGE IB )@@G@@ . CD346200 @I@@@@NXTFLE DLIC )@@G@@ A0,F2NAM CD346300 ID )@@G@@@I@@@@ DS A0,FILEN IE )@@G@@ CD346400 @I@@@@ LA,U A0,1 IF )@@G@@ CD346500 @I@@@@ S A0,NO2EOF IG )@@G@@ CD346600 @I@@@@ L IH )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD346700 II )@@G@@@I@@@@ SZ NONO . IJ )@@G@@ CD346800 @I@@@@ J REPEAT . GO MOVE TIK )@@G@@HE TAPE TO NEXT EOF CD346900 @I@@@@/ . WRITE OVER TAPE TO END OFIL )@@G@@ TAPE MARKER CD347000 @I@@@@OVERWT CLIM )@@G@@RR . CLEAR RECORD COUNTER CD347100 IN )@@G@@@I@@@@ LA,S5 A0,OPTION IO )@@G@@ CD347200 @I@@@@ TEP,U A0,1 IP )@@G@@ CD347300 @I@@@@ J DRUMASK IQ )@@G@@ . DRUM CODE NOT IMPLEMENTED CD347400 @I@@@@ DLIR )@@G@@ A0,FILEN CD347500 IS )@@G@@@I@@@@ DS A0,TAPPKT IT )@@G@@ CD347600 @I@@@@ L,U A0,011 . WRITE EOIU )@@G@@F FIRST - FOR 2 EOFS TO CD347700 @I@@@@ S,S2 A0,TAPPKT+IV )@@G@@3 CD347800 @I@@@@ L,IW )@@G@@U A0,TAPPKT CD347900 IX )@@G@@@I@@@@ ER IOW$ IY )@@G@@ CD348000 @I@@@@ L,S1 A0,TAPPKT+3 IZ )@@G@@ CD348100 @I@@@@ JNZ A0,ERRWRT JA )@@G@@ CD348200 @I@@@@ L,JB )@@G@@U A0,010 CD348300 JC )@@G@@@I@@@@ S,S2 A0,TAPPKT+3 . WRITE FUNCTION JD )@@G@@ CD348400 @I@@@@ L A0,CLEAR JE )@@G@@ CD348500 @I@@@@ S A0,BLOCK JF )@@G@@ CD348600 @I@@@@ L,JG )@@G@@U A0,061 . TRANSFER ALL WORDS FROM SAME LOCCD348700 JH )@@G@@@I@@@@ S,S1 A0,TAPPKT+4 JI )@@G@@ CD348800 @I@@@@CLRWRT L,U A0,TAPPKT . WRITE LOJJ )@@G@@OP CD348900 @I@@@@ ER IOW$ JK )@@G@@ CD349000 @I@@@@ INJL )@@G@@CR . INCREMENT RECORD COUNT CD349100 JM )@@G@@@I@@@@ L,S1 A0,TAPPKT+3 JN )@@G@@ CD349200 @I@@@@ JZ A0,CLRWRT JO )@@G@@ CD349300 @I@@@@ TE,U A0,2 JP )@@G@@ CD349400 @I@@@@ J JQ )@@G@@ ERRWRT CD349500 JR )@@G@@@I@@@@ L,U A0,011 . END OF FILE FOR TAPE JS )@@G@@ CD349600 @I@@@@ S,T1 A0,TAPPKT+3 JT )@@G@@ CD349700 @I@@@@ L,U A0,TAPPKT JU )@@G@@ CD349800 @I@@@@ ERJV )@@G@@ IOW$ CD349900 JW )@@G@@@I@@@@ L,U A0,TAPPKT JX )@@G@@ CD350000 @I@@@@ ER IOW$ JY )@@G@@ CD350100 @I@@@@ L,U A0,051 JZ )@@G@@ . BACKSPACE OVER EOF CD350200 @I@@@@ S,KA )@@G@@T1 A0,TAPPKT+3 CD350300 KB )@@G@@@I@@@@ L,U A0,TAPPKT KC )@@G@@ CD350400 @I@@@@ ER IOW$ KD )@@G@@ CD350500 @I@@@@ ER IOW$ KE )@@G@@ CD350600 @I@@@@ DLKF )@@G@@ A0,FILEN CD350700 KG )@@G@@@I@@@@ DS A0,CLRMSG KH )@@G@@ CD350800 @I@@@@ SLJ QGETAD . NEED MESKI )@@G@@SAGE -HOW MUCH WROTE CD350900 @I@@@@ L A0,2,A0 KJ )@@G@@ . LOAD RECORD COUNT CD351000 @I@@@@ E$KK )@@G@@BD 6,BEFEOT,6 CD351100 KL )@@G@@@I@@@@ L A0,CLRPKT KM )@@G@@ CD351200 @I@@@@ ER PRINT$ KN )@@G@@ CD351300 @I@@@@ L,U A0,01 KO )@@G@@ . RESTORE TAPE PACKET FOR OTHER COCD351400 @I@@@@ S,KP )@@G@@S1 A0,TAPPKT+4 CD351500 KQ )@@G@@@I@@@@ TNZ,S6 OPTION . IS F OPTON SET KR )@@G@@ CD351600 @I@@@@ A,U A0,1 . SET DUMMKS )@@G@@Y F OPTION INDICATOR CD351700 @I@@@@ S,S6 A0,OPTION KT )@@G@@ . PSB TEST IS FOR NONZERO - WILL WCD351800 @I@@@@ S KU )@@G@@ A0,OVWJMP . SWITCH TO RETURN HERE FROM PSB CD351900 KV )@@G@@@I@@@@ L,U X2,1 . LOAD FILE COUNT FOR PSB COKW )@@G@@MMAND CD352000 @I@@@@ J BWDSET . POSITIONKX )@@G@@ BACK TO BEGINNING OF #CCD352100 @I@@@@OVWRET . KY )@@G@@ CD352200 @I@@@@ L,KZ )@@G@@U A0,020 . READ FORWARD OVER EOF CD352300 LA )@@G@@@I@@@@ S,S2 A0,TAPPKT+3 LB )@@G@@ CD352400 @I@@@@ L,U A0,TAPPKT LC )@@G@@ CD352500 @I@@@@ ER IOW$ LD )@@G@@ CD352600 @I@@@@ L,LE )@@G@@S1 A0,TAPPKT+3 CD352700 LF )@@G@@@I@@@@ TE,U A0,1 . WAS AN END OF FILE READ LG )@@G@@ CD352800 @I@@@@ J ERRWRT LH )@@G@@ CD352900 @I@@@@ INCF LI )@@G@@ . UP FILE - ZERO RECORD COUNT CD353000 @I@@@@ L LJ )@@G@@ A1,OVWJMP CD353100 LK )@@G@@@I@@@@ L,U A0,0 LL )@@G@@ CD353200 @I@@@@ S A0,OVWJMP . REMOVE SLM )@@G@@WITCH FOR PSB CD353300 @I@@@@ TE,U A1,2 LN )@@G@@ . WAS A FILE OPTION DUMMIED CD353400 @I@@@@ J LO )@@G@@ CDIMGE CD353500 LP )@@G@@@I@@@@ S,S6 A0,OPTION . REMOVE FILES OPTION LQ )@@G@@ CD353600 @I@@@@ J CDIMGE LR )@@G@@ CD353700 @I@@@@ERRWRT SLJ QGETAD LS )@@G@@ CD353800 @I@@@@ L LT )@@G@@ A0,2,A0 CD353900 LU )@@G@@@I@@@@ E$BD 6,ERRBLK,6 LV )@@G@@ CD354000 @I@@@@ DL A0,FILEN LW )@@G@@ CD354100 @I@@@@ DS A0,ERCLR LX )@@G@@ CD354200 @I@@@@ L LY )@@G@@ A0,CLERRM CD354300 LZ )@@G@@@I@@@@ ER PRINT$ MA )@@G@@ CD354400 @I@@@@ L,U A0,01 . RESTORE MB )@@G@@TAPE PACKET FOR OTHER COCD354600 @I@@@@ S,S1 A0,TAPPKT+MC )@@G@@4 CD354700 @I@@@@ ERMD )@@G@@ EXIT$ CD354800 ME )@@G@@@B@@@@DRMCHK . @I@@@@DRUMASK DL MF )@@G@@ A0,FILEN CD355000 @I@@@@MG )@@G@@ DS A0,DRMNO MH )@@G@@CD355100 @I@@@@ L A0,DRMNCL MI )@@G@@ CD355200 @I@@@@ ER PRINT$ MJ )@@G@@ CD355300 @I@@@@ ER MK )@@G@@ EXIT$ CD355400 @I@@@@ML )@@G@@/. CHECK FOR 4096 WORD BLOCKS OF #CLEAR MM )@@G@@CD355500 @I@@@@CHECKWT CLRR . CLEAR RECORD CMN )@@G@@OUNT CD355600 @I@@@@ LA,S5 A0,OPTION MO )@@G@@ CD355700 @I@@@@ TEP,U MP )@@G@@ A0,1 CD355800 @I@@@@MQ )@@G@@ J DRMCHK MR )@@G@@CD355900 @I@@@@ DL A0,FILEN MS )@@G@@ CD356000 @I@@@@ DS A0,TAPPKT MT )@@G@@ . PUT FILE NAME IN IO PACKET CD356100 @I@@@@ L,U MU )@@G@@ A0,020 CD356200 @I@@@@MV )@@G@@ S,S2 A0,TAPPKT+3 . READ FUNCTION MW )@@G@@CD356300 @I@@@@ SZ WRDRD MX )@@G@@ CD356400 @I@@@@CHKLOP INCR MY )@@G@@ . INCREMENT RECORD COUNT CD356500 @I@@@@ L,U MZ )@@G@@ A0,TAPPKT CD356600 @I@@@@NA )@@G@@ ER IOW$ . READ A BLOCK FROM TAPE NB )@@G@@CD356700 @I@@@@ L,S1 A0,TAPPKT+3 . GET STATUS OF NC )@@G@@READ CD356800 @I@@@@ JNZ A0,EOTCHK ND )@@G@@ . CHECK FOR END OF TAPE MARKER CD356900 @I@@@@ L,H2 NE )@@G@@ A1,TAPPKT+3 . NUMBER OF WORDS READ CD357000 @I@@@@NF )@@G@@ TNE,U A1,4096 NG )@@G@@CD357100 @I@@@@ J $+3 NH )@@G@@ CD357200 @I@@@@ S A1,WRDRD NI )@@G@@ . NOT 4096 WORD READ CD357300 @I@@@@ J NJ )@@G@@ CNTERR CD357400 @I@@@@NK )@@G@@ L A0,CLEAR NL )@@G@@CD357500 @I@@@@ L,U R1,4096 NM )@@G@@ CD357600 @I@@@@ SNE A0,BLOCK NN )@@G@@ . SEARCH FOR NONMATCHING WORD CD357700 @I@@@@ J NO )@@G@@ CHKLOP CD357800 @I@@@@NP )@@G@@ S R1,WRDRD . WORD NUMBER WHICH IS BAD NQ )@@G@@CD357900 @I@@@@CHKERR DL A1,FILEN NR )@@G@@ CD358000 @I@@@@ DS A1,BADCHK NS )@@G@@ . PUT FILE NAME IN ERROR MESSAGER CD358100 @I@@@@ SLJ NT )@@G@@ QGETAD CD358200 @I@@@@NU )@@G@@ L A0,2,A0 . LOAD RECORD COUNT NV )@@G@@CD358300 @I@@@@ E$BD 6,BDLNR,6 . PUT IN ERROR MNW )@@G@@ESSAGE CD358400 @I@@@@ L,U A0,4096 NX )@@G@@ . COMPUTE BAD WORD NUMBER CD358500 @I@@@@ L NY )@@G@@ A1,WRDRD CD358600 @I@@@@NZ )@@G@@ ANA A0,A1 OA )@@G@@CD358700 @I@@@@ E$BD 6,BDWRD,6 . PUT IN ERROR MOB )@@G@@ESSAGE CD358800 @I@@@@ L A0,BDCKMG OC )@@G@@ CD358900 @I@@@@ ER OD )@@G@@ PRINT$ CD359000 @I@@@@OE )@@G@@ ER EXIT$ OF )@@G@@CD359100 @I@@@@CNTERR . ERROR- NOT 409OG )@@G@@6 WORDS CD359200 @I@@@@ DL A1,FILEN OH )@@G@@ CD359300 @I@@@@ DS OI )@@G@@ A1,BADCNT CD359400 @I@@@@OJ )@@G@@ SLJ QGETAD OK )@@G@@CD359500 @I@@@@ L A0,2,A0 . RECORD COUNT OL )@@G@@ CD359600 @I@@@@ E$BD 6,CEBLOK,6 OM )@@G@@ CD359700 @I@@@@ L ON )@@G@@ A0,WRDRD . WORDS ACTUALLY READ CD359800 @I@@@@OO )@@G@@ E$BD 6,CEWORD,6 OP )@@G@@CD359900 @I@@@@ L A0,CEMSG OQ )@@G@@ CD360000 @I@@@@ ER PRINT$ OR )@@G@@ CD360100 @I@@@@ ER OS )@@G@@ EXIT$ CD360200 @I@@@@OT )@@G@@. OU )@@G@@CD360300 @B@@@@EOTCHK . @I@@@@ OV )@@G@@ L,U A1,1 . CHECK FOR END OF FILE CD3605OW )@@G@@00 @I@@@@ TE A0,A1 . END OF TAPE READ OX )@@G@@ CD360600 @I@@@@ J BADSTA . ENOY )@@G@@D OF TAPE MARKRR CD360700 @I@@@@ L,U A0,TOZ )@@G@@APPKT CD360800 @I@@@@ PA )@@G@@ ER IOW$ . SECOND END OF FILE CD3609PB )@@G@@00 @I@@@@ L,S1 A0,TAPPKT+3 PC )@@G@@ CD361000 @I@@@@ TE A0,A1 PD )@@G@@ CD361100 @I@@@@ J BADSPE )@@G@@TA . SHOULD HAVE READ EOF - DID NOT CD361200 @I@@@@ PF )@@G@@ L,U A0,051 . BACKSPACE OVER SECOND END OF FILCD3613PG )@@G@@00 @I@@@@ S,S2 A0,TAPPKT+3 PH )@@G@@ CD361400 @I@@@@ L,U A0,TAPPKT PI )@@G@@ CD361500 @I@@@@ ER IOW$PJ )@@G@@ CD361600 @I@@@@ PK )@@G@@ DCRR . DECREASE FOR END FILE BLOCK CD3617PL )@@G@@00 @I@@@@ DL A0,FILEN . ALL BLOCKS HABE BEENPM )@@G@@ READ CD361800 @I@@@@ DS A0,SUCCHK PN )@@G@@ CD361900 @I@@@@ SLJ QGETPO )@@G@@AD . GET ADDRESS OF FILE COUNTERS CD362000 @I@@@@ PP )@@G@@ L A0,2,A0 . GET RECORD COUNT CD3621PQ )@@G@@00 @I@@@@ E$BD 6,SUCBLK,6 PR )@@G@@ CD362200 @I@@@@ L A0,CHKMSG PS )@@G@@ CD362300 @I@@@@ ER PRINPT )@@G@@T$ CD362400 @I@@@@ PU )@@G@@ INCF . UP FILE - ZERO RECORD COUNT CD3625PV )@@G@@00 @I@@@@ J CDIMGE PW )@@G@@ CD362600 @I@@@@. PX )@@G@@ CD362700 @I@@@@BADSTA DL A1,FPY )@@G@@ILEN . UNEXPECTED STATUS RETURNED BY RECD362800 @I@@@@ PZ )@@G@@ DS A1,STAMSG CD3629QA )@@G@@00 @I@@@@ E$BD 6,STAT,6 . STATUS IS IN A0 - PUQB )@@G@@T IN MSG CD363000 @I@@@@ SLJ QGETAD QC )@@G@@ CD363100 @I@@@@ L A0,2QD )@@G@@,A0 CD363200 @I@@@@ QE )@@G@@ E$BD 6,RCDSTA,6 . PUT RECORD COUNT IN MESSAGE CD3633QF )@@G@@00 @I@@@@ L A0,STAPKT QG )@@G@@ CD363400 @I@@@@ ER PRINT$ QH )@@G@@ CD363500 @I@@@@ L$SNAP 'IO QI )@@G@@PKT',07,05,TAPPKT CD363600 @I@@@@ QJ )@@G@@ ER EXIT$ CD3637QK )@@G@@00 @I@@@@/. GENERAL UTILITY ROUTINES QL )@@G@@ CD363800 @I@@@@BADCOM L A0,PRTERR . BAQM )@@G@@D PARAMETER CARD CD363900 @I@@@@ ER PRINQN )@@G@@T$ . PRINT IT CD364000 @I@@@@ QO )@@G@@ L A0,LESX . FOLLOWING OPER. NOT PERFORMED CD3641QP )@@G@@00 @I@@@@ ER PRINT$ QQ )@@G@@ CD364200 @I@@@@BDCMI L A0,RDPKT QR )@@G@@ CD364300 @I@@@@ ER REAQS )@@G@@D$ CD364400 @I@@@@ QT )@@G@@ S,S3 A0,PPKT . NR WORDS TO PRINT CD3645QU )@@G@@00 @I@@@@ L A0,PPKT QV )@@G@@ CD364600 @I@@@@ ER PRINT$ QW )@@G@@ CD364700 @I@@@@ J BDCQX )@@G@@MI . LOOP TIL READ @CARD CD364800 @I@@@@NOVAL QY )@@G@@ NOP . CD3649QZ )@@G@@00 @I@@@@ JNZ A2,1,X11 . USER HAS COUNT. GO BRA )@@G@@ACK CD365000 @I@@@@ L X2,(037777777777) . LORB )@@G@@AD A RECORD COUNT WE CD365100 @I@@@@ J 0,X1RC )@@G@@1 . GO BACK WITH PHONEY COUNT CD365200 @B@@@@EOFILERD )@@G@@* NOP . @I@@@@ INCR RE )@@G@@ CD365400 @I@@@@ SLRF )@@G@@J PRTEFX CD365500 RG )@@G@@@I@@@@ INCF RH )@@G@@ CD365600 @I@@@@ TZ,S6 OPTION . F OPTION RI )@@G@@SET? CD365700 @I@@@@ J *PNT RJ )@@G@@ . YES CD365800 @I@@@@ SZRK )@@G@@ DUPPNT . RESET TAPE TO DRUM FLAG CD365900 RL )@@G@@@I@@@@ J CDIMGE RM )@@G@@ CD366000 @B@@@@CNVT NOP . @I@@@@RN )@@G@@ LMJ X11,CONVERT . CONVERT FIELDDATA NR IN X2 TO BINRO )@@G@@CD366200 @I@@@@ J *CNVT RP )@@G@@ CD366300 @I@@@@ RQ )@@G@@ . CD366400 @I@[@@PRTEFX NOP RR )@@G@@ . . PRINT EOF ENCOUNTERED MESSAGE CD366500 @I@@[[RS )@@G@@PRTEFX* NOP . . PRINT EOF ENCOUNTERED MESSAGE RT )@@G@@CD366500 @I[@@@ SLJ QGETAD . RETURNS ADDRESRU )@@G@@S OF FILENAME IN ACD366600 @I@@@@ L A0,2,A0 RV )@@G@@ . RECORD COUNT - BINARY CD366700 @I@@@@ E$BD RW )@@G@@ 6,BLKNUM,6 CD366800 @I@@@@RX )@@G@@ SLJ QGETAD . RY )@@G@@CD366900 @I@@@@ LA A0,3,A0 . BLOCK COUNT RZ )@@G@@ CD367000 @I@@@@ E$BD 6,FILENUM,3 SA )@@G@@ . CD367100 @I@@@@ DL SB )@@G@@ A0,FILEN . CD367200 @I@@@@SC )@@G@@ DS A0,FILNAM . SD )@@G@@CD367300 @I@[@@ CLRR . SE )@@G@@ CD367400 @I[@@@ LA A0,ADPKT1 SF )@@G@@ . EOF ENCOUNTERED IN BLOCK OF FILECD367500 @I@@@@ ER SG )@@G@@ PRINT$ CD367600 @I@@@@SH )@@G@@ J *PRTEFX SI )@@G@@CD367700 @I@@@@GETSCN* NOP . ENTER SCAN ROUSJ )@@G@@TINE CD367800 @I@@@@ LMJ X11,SCAN SK )@@G@@ CD367900 @I@@@@ + SL )@@G@@ 1,CDADDR CD368000 @I@@@@SM )@@G@@ DO 4 , + 0 SN )@@G@@CD368100 @I@@@@ J *GETSCN SO )@@G@@ CD368200 @I@@@@GENRD1 NOP SP )@@G@@ . USED IN COPY ROUTINE CD368300 @I@@@@ S SQ )@@G@@ X2,BS CD368400 @I@@@@SR )@@G@@ LA,S5 A0,OPTION . LOAD FOR D OPTION TEST SS )@@G@@CD368500 @I@@@@ TOP,U A0,01 . 'D' OPTION SET?ST )@@G@@ CD368600 @I@@@@ J RDTP SU )@@G@@ CD368700 @I@@@@ TZ SV )@@G@@ DUPPNT . CD368800 @I@@@@SW )@@G@@ J RDTP . SX )@@G@@CD368900 @I@@@@ SLJ DREAD SY )@@G@@ CD369000 @I@@@@ LX X2,BS SZ )@@G@@ . RESTORE X2 CD369100 @I@@@@ J *GENRDTA )@@G@@1 CD369200 @I@@@@TB )@@G@@RDTP LMJ X11,TPRD$ TC )@@G@@CD369300 @I@@@@FN1 + 0 . NORMAL RTN-NR TD )@@G@@WORDS READ IN NOWDCD369400 @I@@@@ + 0 TE )@@G@@ CD369500 @I@@@@ + TF )@@G@@ 4096,BLOCK CD369600 @I@@@@TG )@@G@@ + EOFILE . TH )@@G@@CD369700 @I@@@@ L X2,BS TI )@@G@@ CD369800 @I@@@@ J *GENRD1 TJ )@@G@@ CD369900 @I@@@@. ****************TK )@@G@@******************************************************CD370000 @I@@@@TL )@@G@@. THIS ROUTINE WILL ALLOW UPDATING THE FILE COUNT AND RECORD COUNT ON FTM )@@G@@CD370100 @I@@@@. FROM ONE TO TEN TAPES IN ONE RUN TN )@@G@@ CD370200 @I@@@@QGETAD* NOP TO )@@G@@ . GET ADDR OF 4 WORD FILE INFO IN CD370300 @I@@@@I DO 6 , S X11+I-1TP )@@G@@,QSAVE+I-1 . SAVE REGISTERS CD370400 @I@@@@TQ )@@G@@ L X11,QTAB TR )@@G@@CD370500 @I@@@@ LXI X11,(0777773) . A4=-4,4*NO ENTRIETS )@@G@@S CD370600 @I@@@@ DL A1,FILEN .TT )@@G@@ PICKUP CURRENT FILENAME CD370700 @I@@@@QLOOP JMGI TU )@@G@@ X11,$+2 . CHECK FOR END OF ENTRIES CD370800 @I@@@@TV )@@G@@ J QNOFIN . NO MORE ENTRIES TW )@@G@@CD370900 @I@@@@ DTE A1,QTAB+1,X11 . CK FOR MATCHING TX )@@G@@FILELNAME CD371000 @I@@@@ J QLOOP .TY )@@G@@ NO MATCH CD371100 @I@@@@ L,U TZ )@@G@@ A0,QTAB+1,X11 . PICK UP ADDRESS OF MATCH CD371200 @I@@@@UA )@@G@@ SZ X11 UB )@@G@@CD371300 @I@@@@ J *QGETAD . EXIT UC )@@G@@ CD371400 @I@@@@. NO MATCH FOUND, THIS IS NEW FILENAUD )@@G@@ME, ADD IT TO TABLE CD371500 @I@@@@QNOFIN L UE )@@G@@ A0,QTAB . GET ADDESS AVAILABLE FOR CD371600 @I@@@@UF )@@G@@ L,U A0,QTAB+1,A0 . NEXT ENTRY UG )@@G@@CD371700 @I@@@@ DS A1,0,A0 . STARE FILENAME UH )@@G@@ CD371800 @I@@@@ L,U A4,4 .UI )@@G@@ UPDATE COUNT OF ENTRIES CD371900 @I@@@@ A UJ )@@G@@ A4,QTAB CD372000 @I@@@@UK )@@G@@ S A4,QTAB UL )@@G@@CD372100 @I@@@@ TG,U A4,41 . TEST MAX FILE NAMUM )@@G@@ES CD372200 @I@@@@ J GETOUT .UN )@@G@@ MORE THAN 10 FILES - ERROR *** CD372300 @I@@@@ SZ UO )@@G@@ X11 CD372400 @I@@@@UP )@@G@@ J *QGETAD . UQ )@@G@@CD372500 @I@@@@GETOUT L A0,(P 2,12,EXCEED) UR )@@G@@ CD372600 @I@@@@ ER PRINT$ US )@@G@@ CD372700 @I@@@@ ER UT )@@G@@ ERR$ CD372800 @I@@@@UU )@@G@@INCRX* NOP . INCREMENT RECORD COUNTER UV )@@G@@CD372900 @I@@@@ SLJ QGETAD UW )@@G@@ CD373000 @I@@@@ L,U A1,1 UX )@@G@@ CD373100 @I@@@@ A UY )@@G@@ A1,2,A0 CD373200 @I@@@@UZ )@@G@@ S A1,2,A0 VA )@@G@@CD373300 @I@@@@ SLJ QREST VB )@@G@@ CD373400 @I@@@@ J *INCRX VC )@@G@@ CD373500 @I@@@@INCFX* NOP VD )@@G@@ . INCREMENT FILE COUNTER CD373600 @I@@@@VE )@@G@@ SLJ QGETAD VF )@@G@@CD373700 @I@@@@ L,U A1,1 VG )@@G@@ CD373800 @I@@@@ A A1,3,A0 VH )@@G@@ CD373900 @I@@@@ S VI )@@G@@ A1,3,A0 CD374000 @I@@@@VJ )@@G@@ SZ 2,A0 . CLEAR RECORD COUNT VK )@@G@@CD374100 @I@@@@ SLJ QREST VL )@@G@@ CD374200 @I@@@@ J *INCFX VM )@@G@@ CD374300 @I@@@@DCRRX* NOP VN )@@G@@ . DECREMENT RECORD DOUNTER CD374400 @I@@@@VO )@@G@@ SLJ QGETAD VP )@@G@@CD374500 @I@@@@ L A1,2,A0 VQ )@@G@@ CD374600 @I@@@@ AN,U A1,1 VR )@@G@@ CD374700 @I@@@@ S VS )@@G@@ A1,2,A0 CD374800 @I@@@@VT )@@G@@ SLJ QREST VU )@@G@@CD374900 @I@@@@ J *DCRRX VV )@@G@@ CD375000 @I@@@@DCRFX* NOP VW )@@G@@ . DECREMENT FILE COUNTER CD375100 @I@@@@ SLJ VX )@@G@@ QGETAD CD375200 @I@@@@VY )@@G@@ L A1,3,A0 VZ )@@G@@CD375300 @I@@@@ AN,U A1,1 WA )@@G@@ CD375400 @I@@@@ S A1,3,A0 WB )@@G@@ CD375500 @I@@@@ SLJ WC )@@G@@ QREST CD375600 @I@@@@WD )@@G@@ J *DCRFX WE )@@G@@CD375700 @I@@@@CLRRX* NOP . CLEAR RECORD CWF )@@G@@OUNTER CD375800 @I@@@@ SLJ QGETAD WG )@@G@@ CD375900 @I@@@@ SZ WH )@@G@@ 2,A0 CD376000 @I@@@@WI )@@G@@ SLJ QREST WJ )@@G@@CD376100 @I@@@@ J *CLRRX WK )@@G@@ CD376200 @B@@@@CLRFX* NOP WL )@@G@@ . @I@@@@ SLJ QGETAD . CLEAR FILE COUNTER WM )@@G@@ CD376400 @I@@@@ L,U A1,1 WN )@@G@@ CD376500 @I@@@@ S A1,3WO )@@G@@,A0 CD376600 @I@@@@ WP )@@G@@ SLJ QREST CD3767WQ )@@G@@00 @I@@@@ J *CLRFX WR )@@G@@ CD376800 @I@@@@QREST NOP . REWS )@@G@@STORE REGISTERS CD376900 @I@@@@I DO 6 , L X11+I-1,QSAVEWT )@@G@@+I-1 CD377000 @I@@@@ WU )@@G@@ J *QREST CD3771WV )@@G@@00 @I@@@@ENFILE ER EXIT$ . WW )@@G@@ CD377200 @I@@@@/ . WX )@@G@@ CD377300 @B@@@@$(0) WY )@@G@@ . @I@[@@DUPPNT + 0 . POINTER FWZ )@@G@@OR DUPING TAPE TO DRUM CD377500 @I@@[[DUPPNT* + 0 XA )@@G@@ . POINTER FOR DUPING TAPE TO DRUM CD377500 @I[@@@NOWDS$* + XB )@@G@@ 0 . CD377600 XC )@@G@@@I@@@@PSERET + 0 . PSE RETURN FROM PSF CODE XD )@@G@@ CD377700 @I@@@@NONO + 0 . USED FOR XE )@@G@@BAD COUNT OR WORD ON CMPCD377800 @I@@@@PERIOD* + 0 XF )@@G@@ . FLAG TO STIP SCAN CD377900 @I@@@@NO2EOF + XG )@@G@@0 . TWO CMP TAPES NOT EOF AT SAME PLCD378000 XH )@@G@@@I@@@@SAVJGD + 0 XI )@@G@@ CD378100 @I@@@@OPTION* + 0 . OPTION WXJ )@@G@@ORD CD378200 @I@@@@PNT + 0 XK )@@G@@ . LABEL POINTER WORD CD378300 @H@@@@NOCOMM EQXL )@@G@@U 13 . ALLOW TRI TEMPORARILY-TRANSITION CPD3 @I@@@@XM )@@G@@NEWCRD EQU 1 XN )@@G@@CD378500 @I@@@@SAMECD* EQU 0 XO )@@G@@ CD378600 @I@@@@BLOCK* RES 4096 XP )@@G@@ CD378700 @I@@@@BS RES XQ )@@G@@ 1 CD378800 @I@@@@XR )@@G@@CDADDR* RES 14 XS )@@G@@CD378900 @I@@@@BLOCK1 RES 4096 XT )@@G@@ CD379000 @I@@@@ DO 8 , +' ' XU )@@G@@ CD379100 @I@@@@COMMND RES XV )@@G@@ 1 CD379200 @I@@@@XW )@@G@@FILEN* RES 2 XX )@@G@@CD379300 @I@@@@TEMP* RES 1 XY )@@G@@ CD379400 @I@@@@FREED '@FREE ' XZ )@@G@@ . PACKET TO FREE A FILE CD379500 @I@@@@ + ' YA )@@G@@ ' . CD379600 @I@@@@YB )@@G@@TABL + 'DUP', COPY . TABLE OF PARAMETER COMMANDS YC )@@G@@CD379700 @I@@@@ + 'PRT', DUMP YD )@@G@@ CD379800 @I@@@@ + 'PSF', POSFOR YE )@@G@@ CD379900 @I@@@@ + YF )@@G@@ 'PSB', POSBWD CD380000 @I@@@@YG )@@G@@ + 'TEF', WREOF YH )@@G@@CD380100 @I@@@@ + 'TRW', REWW YI )@@G@@ CD380200 @I@@@@ + 'FRE', REWI YJ )@@G@@ CD380300 @I@@@@ + YK )@@G@@ 'PSE',POSF1 CD380400 @I@@@@YL )@@G@@ + 'CMP',COMPAR YM )@@G@@CD380500 @I@@@@ + 'OVW',OVERWT YN )@@G@@ CD380600 @I@@@@ + 'CHK',CHECKWT YO )@@G@@ CD380700 @I@@@@ + YP )@@G@@ 'SWP',SWAPRL CD380800 @H@@@@YQ )@@G@@ + 'TRI',REWI . ALLOW ILLEGAL CMDF OR TRANSITIONYR )@@G@@ CPD3 @I@@[[EQUIP1 + 0 YS )@@G@@ . 3A @I@@[[EQUIP2 + 0 YT )@@G@@ . 3A @I@@[[FACPAC RES 10 YU )@@G@@ . 3A @I@@@@P YV )@@G@@ FORM 12,6,18 CD3809YW )@@G@@00 @I@@@@AFTERB P 2,9,BLKPOS YX )@@G@@ CD381000 @I@@@@PPKT* P 2,0,CDADDR YY )@@G@@ CD381100 @I@@@@PRTERR P 3,4,YZ )@@G@@ERRADD CD381200 @I@@@@WRERR ZA )@@G@@ P 2,13,BADWRI CD3813ZB )@@G@@00 @I@@@@LESX P 2,6,LEXI . ZC )@@G@@ CD381400 @I@@@@NOCMP P 3,14,NOCOMP ZD )@@G@@ CD381500 @I@@@@DIFFBL P 3,13ZE )@@G@@,DIFBLK CD381600 @I@@@@CHKMSGZF )@@G@@ P 2,10,SUCCHK CD3817ZG )@@G@@00 @I@@@@BDCKMG P 2,14,BADCHK ZH )@@G@@ CD381800 @I@@@@STAPKT P 2,20,STAMSG ZI )@@G@@ CD381900 @I@@@@CLRPKT P 2,11ZJ )@@G@@,CLRMSG CD382000 @I@@@@CLERRMZK )@@G@@ P 2,13,ERCLR CD3821ZL )@@G@@00 @I@@@@DRMNCL P 2,8,DRMNO ZM )@@G@@ CD382200 @I@@@@CEMSG P 2,15,BADCNT ZN )@@G@@ CD382300 @I@@@@CLEAR + '#CLEAR' ZO )@@G@@ CD382400 @I@@@@OVWJMPZP )@@G@@ + 0 CD3825ZQ )@@G@@00 @I@@@@CLRMSG ' TAPE OVERWRITTEN WITH ' ZR )@@G@@ CD382600 @I@@@@BEFEOT + ' ' ZS )@@G@@ CD382700 @I@@@@ ' BLOCKSZT )@@G@@ OF 4096 WORDS ' CD382800 @I@@@@ERCLR ZU )@@G@@ ' ERROR ENCOUNTERED IN BLOCK ' CD3829ZV )@@G@@00 @I@@@@ERRBLK + ' ' ZW )@@G@@ CD383000 @I@@@@ ' WHILE WRITING TO END OF TAZX )@@G@@PE.' CD383100 @I@@@@DRMNO ' ZY )@@G@@ DRUM OVERWRITE CODE NOT IMPLEMENTED' CD383200 @I@@@@SUCCHKZZ )@@G@@ ' SUCCESSFUL #CLEAR CHECK OF ' CD3833AA )@@G@@00 @I@@@@SUCBLK ' ' AB )@@G@@ CD383400 @I@@@@ ' BLOCKS. ' AC )@@G@@ CD383500 @I@@@@BADCHK ' AD )@@G@@ERROR IN WORD ' CD383600 @I@@@@BDWRD AE )@@G@@ ' ' CD3837AF )@@G@@00 @I@@@@ ' OF BLOCK ' AG )@@G@@ CD383800 @I@@@@BDLNR ' ' AH )@@G@@ CD383900 @I@@@@ ' WHILE SEARCHAI )@@G@@ING FOR #CHECK.' CD384000 @I@@@@STAMSGAJ )@@G@@ ' ERROR STATUS ' CD3841AK )@@G@@00 @I@@@@STAT ' ' AL )@@G@@ CD384200 @I@@@@ ' RETURNED WHILE READING TAPE ATAM )@@G@@ RECORD NUMBER ' CD384300 @I@@@@RCDSTA ' ' AN )@@G@@ CD384400 @I@@@@ AO )@@G@@ '. ONLY 0 OR 1 STATUS ACCEPTABLE.' CD3845AP )@@G@@00 @I@@@@BADCNT ' ' AQ )@@G@@ CD384600 @I@@@@CEWORD ' WORDS READ IN BLOCK ' AR )@@G@@ CD384700 @I@@@@CEBLOK ' . 4096 AS )@@G@@WORDS EXPECTED - CHECK ERROR. ' CD384800 @I@@@@BLKPOSAT )@@G@@ ' FILE POSITIONED AFTER BLOCK ' CD3849AU )@@G@@00 @I@@@@AFTBLK ' . ' AV )@@G@@ CD385000 @F@@[[XMSG1 ' ** X OPTION SET. AW )@@G@@ONLY THE FIRST LINE **' @F@@[[XMSG2 ' ** OF EACH RECORD AX )@@G@@WILL BE PRINTED. **' @I@@@@WRDRD + 0 AY )@@G@@ CD385100 @I@@@@QSAVE RES 6 AZ )@@G@@ . REGISTER SAVE AREA CD385200 @I@@@@QTAB BA )@@G@@ RES 1 . 4 WORDS PER FILE-FN,RECORD CNT, CD3853BB )@@G@@00 @I@@@@ DO 10 , DATA 0,0,0,1 BC )@@G@@ CD385400 @I@@@@ERRADD 'ILLEGAL PARAMETER CARD' BD )@@G@@ CD385500 @I@@@@EXCEED 'EXCEEDED 10 FBE )@@G@@ILE NAMES ON THIS RUN ' . CD385600 @I@@@@BADWRIBF )@@G@@ ' ERROR WHILE WRITING, COULD NOT CONTINUE' CD3857BG )@@G@@00 @I@@@@PRTLPF 'LOAD POINT ENCOUNTERED WHILE MOVING BACKWARD' . BH )@@G@@ CD385800 @I@@@@LEXI 'FOLLOWING OPERATIONS NOT PERFORBI )@@G@@MED' . CD385900 @I@@@@DIFBLK 'DIFFERENT SIZBJ )@@G@@E BLOCKS WERE READ FROM FILE ' CD386000 @I@@@@FRSTFIBK )@@G@@L + ' ' . CD3861BL )@@G@@00 @I@[@@ + 'AND FI' BM )@@G@@ CD386200 @I@[@@ + 'LE ' BN )@@G@@ CD386300 @^@@[[ 'AND FILE 'BO )@@G@@@I]@@@SECDFIL + ' ' . BP )@@G@@ CD386400 @I@@@@NOCOMP 'FILE ' BQ )@@G@@ CD386500 @I@@@@FSTFL + ' ' BR )@@G@@. CD386600 @I@[@@ + BS )@@G@@ 'AND FI' . CD386700 BT )@@G@@@I@[@@ + 'LE ' . BU )@@G@@ CD386800 @^@@[[ 'AND FILE '@I]@@@SCDFL + ' BV )@@G@@ ' . CD386900 @I@[@@BW )@@G@@ + 'DID NO' BX )@@G@@CD387000 @I@[@@ + 'T COMP' BY )@@G@@ CD387100 @I@[@@ + 'ARE ST' . BZ )@@G@@ CD387200 @I@[@@ + 'ARTICA )@@G@@NG' . CD387300 @I@[@@CB )@@G@@ + ' AT WO' CC )@@G@@CD387400 @I@[@@ + 'RD ** ' . CD )@@G@@ CD387500 @C@@[[ 'DID NOT COMPARE STARTING CE )@@G@@AT WORD ** '@IA@@@WRDCNT + ' ' . CF )@@G@@ CD387600 @I@[@@EOFM1 + 'END-OF' CG )@@G@@ CD387700 @I@[@@ + CH )@@G@@ '-FILE ' CD387800 @I@[@@CI )@@G@@ + 'WAS EN' CJ )@@G@@CD387900 @I@[@@ + 'COUNTE' CK )@@G@@ CD388000 @I@[@@ + 'RED IN' CL )@@G@@ CD388100 @I@[@@ + CM )@@G@@ ' BLOCK' CD388200 @C@@[[CN )@@G@@EOFM1 'END-OF-FILE WAS ENCOUNTERED IN BLOCK'@IA@@@BLKNUM + CO )@@G@@ ' ' CD388300 @I@[@@CP )@@G@@ + ' * FIL' CQ )@@G@@CD388400 @I@[@@ + 'E *** ' CR )@@G@@ CD388500 @^@@[[ ' *FILE *** ' @I]@@@FILNAMCS )@@G@@ + ' ' CD3886CT )@@G@@00 @I@@@@ + ' ' CU )@@G@@ CD388700 @I@@@@FILENUM + 'NO. ' . CV )@@G@@ CD388800 @I@[@@NOTEOF + 'ENDCW )@@G@@-OF' CD388900 @I@[@@ CX )@@G@@ + '-FILE ' CD3890CY )@@G@@00 @I@[@@ + 'WAS EX' CZ )@@G@@ CD389100 @I@[@@ + 'PECTED' DA )@@G@@ CD389200 @I@[@@ + ' BUDB )@@G@@T N' CD389300 @I@[@@ DC )@@G@@ + 'OT ENC' CD3894DD )@@G@@00 @I@[@@ + 'OUNTER' DE )@@G@@ CD389500 @I@[@@ + 'ED ON ' DF )@@G@@ CD389600 @I@[@@ + 'FILDG )@@G@@E**' CD389700 @F@@[[NOTEOFDH )@@G@@ 'END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'@ID@@@ DI )@@G@@ + ' ' CD3898DJ )@@G@@00 @I@@@@ + ' ' DK )@@G@@ CD389900 @I@[@@BLOWIT + 'AN END' DL )@@G@@ CD390000 @I@[@@ + '-OFDM )@@G@@-FI' CD390100 @I@[@@ DN )@@G@@ + 'LE WAS' CD3902DO )@@G@@00 @I@[@@ + ' ENCOU' . DP )@@G@@ CD390300 @I@[@@ + 'NTERED' . DQ )@@G@@ CD390400 @I@[@@ + ' BUDR )@@G@@T N' . CD390500 @I@[@@ DS )@@G@@ + 'OT EXP' . CD3906DT )@@G@@00 @I@[@@ + 'ECTED ' . DU )@@G@@ CD390700 @I@[@@ + 'IN BLO' . DV )@@G@@ CD390800 @I@[@@ + 'CK DW )@@G@@***' . CD390900 @G@@[[BLOWITDX )@@G@@ 'AN END-OF-FILE WAS ENCOUNTERED BUT NOT EXPECTED IN BLOCK ***'@IE@@@DY )@@G@@ + ' ' . DZ )@@G@@CD391000 @I@[@@ + '*** ON' . EA )@@G@@ CD391100 @I@[@@ + ' FILE ' EB )@@G@@ . CD391200 @^@@[[ '*** ON EC )@@G@@FILE '@I]@@@ + ' ' ED )@@G@@ CD391300 @I@@@@ + ' ' EE )@@G@@ CD391400 @I@@@@ADPKT1 P 3,12EF )@@G@@,EOFM1 CD391500 @I@@@@ADPKT3EG )@@G@@ P 3,3,ITDID CD3916EH )@@G@@00 @I@@@@ADPKT4 P 3,11,NOTEOF EI )@@G@@ CD391700 @I@@@@ADPKT5 P 3,7,NOFNAM EJ )@@G@@ CD391800 @I@@@@ADPKT7 P 3,15EK )@@G@@,BLOWIT CD391900 @I@@@@EOFLAGEL )@@G@@ + 0 CD3920EM )@@G@@00 @I@@@@WDSTP1 + 0 . HOLDS THE NO. OF WOREN )@@G@@DS FROM FIRSCD392100 @I@@@@WDSTP2 + 0 . NOEO )@@G@@. OF WORDS FROM SECOND READ CD392200 @ @@[[NMANYF + 03777777777EP )@@G@@7 @I@[@@ITDID 'YOUR TAPES COMPARE' EQ )@@G@@ CD392300 @I@@[[ITDID 'YOUR FILE COMPARES' ER )@@G@@ CD392300 @I[@@@NOFNAM 'THEES )@@G@@ CMP DIRECTIVE REQUIRES TWO FILE NAMES' CD392400 @I@@@@RDPKT ET )@@G@@ + ENFILE,CDADDR . PACKET FOR READ$ TO OBTAIN IMAGECD3925EU )@@G@@00 @I@@@@TAPPKT + ' ' . I/O PACKET FOR MAG TEV )@@G@@APE TEF =011CD392600 @I@@@@ + ' ' . TREW )@@G@@W=040, TRI=041, PSF=050, PSB= CD392700 @I@@@@ + 0 EX )@@G@@ . CD392800 @I@@@@ EY )@@G@@ + 0 . S2 OF THIS WORD WILL CONTAIN FUNCD3929EZ )@@G@@00 @I@@@@ + 4096,BLOCK . HOLDS NUMBER OF WORDS AFA )@@G@@ND ADD IF MOCD393000 @I@@@@TAPWRI + ' ' . I/FB )@@G@@0 PACKET FOR WRITING MAG. TAPECD393100 @I@@@@ + ' FC )@@G@@ ' . CD393200 @I@@@@ FD )@@G@@ + 0 . CD3933FE )@@G@@00 @I@@@@ + 0,010,0,0,0,0 . FF )@@G@@ CD393400 @I@@@@ + 0,BLOCK . NOFG )@@G@@.WORDS AND ADDRESS CD393500 @I@@@@ END CPD FH )@@G@@ CD393600 ___ FI )@@G@@*[S@@@*SDFF*@#@@@@@ASG,CP ASCII. @#@[@@@ED,IQ ASCII. @#@@@[@ED,ILFJ )@@G@@Q ASCII. @[@@@@ONE @[@@@@TWO @[@@@@THREE @[@@@@FOUR @[@@@@ FK )@@G@@@[@@@@EXIT @]@@@@@FREE ASCII.@[@@@@@END @#@@@@@ASG,CP FIELDATA. @#@[@@FL )@@G@@@ED,I FIELDATA. @#@@@[@ED,IL FIELDATA. @]@@@@NINETY-NINE @]@@@@NINETYFM )@@G@@-EIGHT@]@@@@NINETY-SEVEN@[@@@@TWO @[@@@@ONE @[@@@@ @[@@@@EXIT FN )@@G@@@#@@@@@FREE FIELDATA. @[@@@@@END @#@@@@@ASG,A ASCII. @#@@@@@ASG,AFO )@@G@@ FIELDATA. @]@@@@@.CPD,QRAHDX@]@@@@PRT ASCII.,1@#@@@@PRT FIELDATA.,1 FP )@@G@@@]@@@@PSF ASCII.,4@#@@@@PRT FIELDATA.,1 @]@@@@PRT ASCII.,1@]@@@@PSB ASFQ )@@G@@CII.,4@]@@@@PRT ASCII.,1___E-[ 0?AC)@#@@@@E[NC0)CDNCTDDC, )4@^@@@@E[ME))FR )@@G@@C1DC(GC-[E-[ 0?AC)@#@@@@*[S@@@*SDFF*@B@@[[. THIS ROUTINE HAS THREE EFS )@@G@@NTRY POINTS @[@@[[. @F@@[[. EBO$X - CONVERT THE BINARY NR IN A0FT )@@G@@ TO OCTAL FIELDDATA @[@@[[. @F@@[[. EBD$X - CONVERT THE BINAFU )@@G@@RY NR IN A0 TO DECIMAL FIELDDATA @[@@[[. @E@@[[. CONVERT - COFV )@@G@@NVERT THE FIELDDATA NR IN X2 TO BINARY @[@@[[. @F@@[[. FOR EBFW )@@G@@O$X AND EBD$X, 0,X11 CONTAINS (S1, S3, H2) THE NR OF @F@@[[. CHARACFX )@@G@@TERS IN THE OUTPUT AREA, THE NR OF DIGITS TO GET, @D@@[[. AND THFY )@@G@@E ADDRESS OF WHERE TO PUT THE CONVERTED NR@[@@[[. @^@@@@ AXFZ )@@G@@R$ . @]@@@@$(1) . @B@[@@EBO$X* LMJ A1,ET GA )@@G@@. @I@@[[EBO$X* LMJ A1,ET . CONVERT BINARY NR IN AGB )@@G@@0 TO OCTAL FIELDDATA @B[@@@ DSL A0,36 . GC )@@G@@@B@@@@EL DSC A0,3 . @B@@@@ SSL GD )@@G@@ A0,33 . @B@[@@ A,14 A0,060 . GE )@@G@@@B@@[[ A,U A0,060 . @B@[@@ EX GF )@@G@@ ES,*A3 . @G@@[[ EX INSRTC,*A3 . INSGG )@@G@@ERT CHARACTER IN OUTPUT WORD @B]@@@ JGD A4,EL GH )@@G@@. @B@[@@ J 1,11 . @B@@[[ J GI )@@G@@ 1,X11 . @B@[@@EBD$X* LMJ A1,ET GJ )@@G@@. @H@@[[EBD$X* LMJ A1,ET . BINARY NUMBER IN A0 TOGK )@@G@@ DECIMAL FIELDDATA@B@[@@ S A0,R1 . @E@@[[GL )@@G@@ S A0,R1 . NUMBER TO BE CONVERTED@B#@@@ GM )@@G@@ LM A1,R1 . @B@[@@EM L,14 A0,0 GN )@@G@@ . @B@[@@ DI,14 A0,10 . @B@[@@ GO )@@G@@ A,14 A1,060 . @B@[@@ DSC A0,36 GP )@@G@@ . @B@[@@ EX ES,*A3 . @B@[@@ GQ )@@G@@ AN,14 A4,1 . @E@@[[EM L,U A0,0 GR )@@G@@ . ZERO FOR DIVISION @E@@[[ DI,U A0,10 GS )@@G@@ . LOP OFF BOTTOM DIGIT @F@@[[ A,U A1,060 . MAKGT )@@G@@E REMAINDER FIELDDATA @I@@[[ DSC A0,36 . REVGU )@@G@@ERSE REMAINDER + QUOTIENT FOR NXT DIV @F@@[[ EX INSRGV )@@G@@TC,*A3 . INSERT CHARACTER IN OUTPUT @B@@[[ AN,U A4,1GW )@@G@@ . @BA@@@ TN A4 . @B@[@@GX )@@G@@ JNZ A1,EM . @G@@[[ JNZ A1,EGY )@@G@@M . ALL OF BINARY NUMBER CONVERTED? @B@[@@ L,14 GZ )@@G@@ A0,'-' . @B@@[[ L,U A0,'-' . HA )@@G@@@B]@@@ L A1,SPACES . @B@@@@ TP HB )@@G@@ R1 . @B@[@@ J EP . HC )@@G@@@G@@[[ J EP . PUT IN MINUS SIGN IF NEGATIVHD )@@G@@E @B[@@@ JP A4,EN . @B@[@@ J HE )@@G@@ 1,11 . @I@@[[ J 1,X11 HF )@@G@@ . ALL CHARACTERS REQUESTED HAVE BEEN FILLED @B@[@@EN L HG )@@G@@ A0,A1 . @D@@[[EN L A0,A1 . LOADHH )@@G@@ BLANKS @B]@@@ SSC A1,6 . @B@[@@EP HI )@@G@@ EX ES,*A3 . @F@@[[EP EX INSRTC,*A3HJ )@@G@@ . FRONT FILL WITH BLANKS @B[@@@ JGD A4,EN HK )@@G@@ . @B@[@@ J 1,11 . @C@@[[ HL )@@G@@ J 1,X11 . RETURN @B[@@@ET LA A2,(HM )@@G@@-1,0) . @B@@@@ L A3,A2 . @B@[@@HN )@@G@@ LXM A2,0,11 . @B@[@@ LXM,11 A3,0HO )@@G@@,11 . @B@[@@ L,13 A4,0,11 . @F@@[[HP )@@G@@ LXM A2,0,X11 . ADDRESS OF OUTPUT WORD @F@@[[HQ )@@G@@ LXM,S3 A3,0,X11 . NR DIGITS IN A0 TO GET @G@@[[HR )@@G@@ L,S1 A4,0,X11 . NR CHARACTERS IN OUTPUT AREA HS )@@G@@@B#@@@ JGD A4,0,A1 . @B@@@@ J HT )@@G@@ 0,A1 . @B@[@@ES LMJ A3,EF . HU )@@G@@@]@@[[INSRTC . @F@@[[ES LMJ A3,EF . PUT A CHAHV )@@G@@RACTER IN A WORD @B@[@@ S,12 A0,0,A2 . @B@@[[HW )@@G@@ S,S2 A0,0,A2 . @B@[@@ S,11 A0,0HX )@@G@@,A2 . @B@@[[ S,S3 A0,0,A2 . @B@[@@HY )@@G@@ S,10 A0,0,A2 . @B@@[[ S,S4 A0,0HZ )@@G@@,A2 . @B@[@@ S,9 A0,0,A2 . @B@@[[IA )@@G@@ S,S5 A0,0,A2 . @B@[@@ S,8 A0,0IB )@@G@@,A2 . @B@@[[ S,S6 A0,0,A2 . @B@[@@IC )@@G@@EF S,13 A0,0,*A2 . @B@@[[EF S,S1 A0,0ID )@@G@@,*A2 . @BB@@@ L A0,A3 . @B@[@@IE )@@G@@ LXM,14 A3,5 . @G@@[[ LXM,U A3,5IF )@@G@@ . SET UP FOR POSSIBLE NEXT WORD @B[@@@ J IG )@@G@@ 0,A0 . @B@[@@CONVERT* SZ A4 . IH )@@G@@@H@@[[CONVERT* SZ A4 . CONVERT FIELDDATA NR IN X2 II )@@G@@TO BINARY @G[@@@ SX X2,VALUE . STORE THE VALUEIJ )@@G@@ TO BE CONVERTED @I@@@@ LA,U A2,060 . TO BINARYIK )@@G@@ AND LEAVES IT IN CPD002 @I@@@@ LA,U A3,071 IL )@@G@@ . X2 CPD002 @I@@@@ LAIM )@@G@@,S6 A1,VALUE . CPD002 IN )@@G@@@I@[@@ TNW A2,A1 . IO )@@G@@ CPD002 @F@@[[ TNW A2,A1 . IS LAST CIP )@@G@@HARACTER A DIGIT ?@I[@@@ LA A4,C1-060,A1 . IQ )@@G@@ CPD002 @I@@@@ LA,S5 A1,VALUE IR )@@G@@ . CPD002 @I@@@@ TNIS )@@G@@W A2,A1 . CPD002 IT )@@G@@@I@[@@ AA A4,C2-060,A1 . IU )@@G@@ CPD002 @D@@[[ AA A4,C2-060,A1 . ADD 10'S IV )@@G@@DIGIT @I[@@@ LA,S4 A1,VALUE . IW )@@G@@ CPD002 @I@@@@ TNW A2,A1 . IX )@@G@@ CPD002 @I@[@@ AA A4,CIY )@@G@@3-060,A1 . CPD002 @D@@[[ IZ )@@G@@ AA A4,C3-060,A1 . ADD 100'S DIGIT@I[@@@ LA,S3 JA )@@G@@ A1,VALUE . CPD002 @I@@@@JB )@@G@@ TNW A2,A1 . JC )@@G@@ CPD002 @I@[@@ AA A4,C4-060,A1 . JD )@@G@@ CPD002 @E@@[[ AA A4,C4-060,A1 JE )@@G@@ . ADD 1000'S DIGIT @I[@@@ LA,S2 A1,VALUE . JF )@@G@@ CPD002 @I@@@@ TNW A2,AJG )@@G@@1 . CPD002 @I@@@@ JH )@@G@@ AA A4,C5-060,A1 . CPD0JI )@@G@@02 @I@@@@ LA,S1 A1,VALUE . JJ )@@G@@ CPD002 @I@@@@ TNW A2,A1 . JK )@@G@@ CPD002 @I@@@@ AA A4,CJL )@@G@@6-060,A1 . CPD002 @I@[@@ JM )@@G@@ SA A4,X2 . CPD0JN )@@G@@02 @G@@[[ SA A4,X2 . PUT SUM OF DIGITS IN JO )@@G@@X2 TO RETURN@C[@@@ J 0,X11 . GO BACK @]@@@@JP )@@G@@$(0) . @^@@@@SPACES ' ' . @B@@@@VALUE + 0 JQ )@@G@@ . @I@@@@C1 + 0 . JR )@@G@@ CPD002 @I@@@@I DO 9 , + I*1 JS )@@G@@ . CPD002 @I@@@@C2 + JT )@@G@@ 0 . CPD002 JU )@@G@@@I@@@@I DO 9 , + I*10 . JV )@@G@@ CPD002 @I@@@@C3 + 0 . JW )@@G@@ CPD002 @I@@@@I DO 9 , + I*100 JX )@@G@@ . CPD002 @I@@@@C4 + JY )@@G@@ 0 . CPD002 JZ )@@G@@@I@@@@I DO 9 , + I*1000 . KA )@@G@@ CPD002 @I@@@@C5 + 0 . KB )@@G@@ CPD002 @I@@@@I DO 9 , + I*10000 KC )@@G@@ . CPD002 @I@@@@C6 + KD )@@G@@ 0 . CPD002 KE )@@G@@@I@@@@I DO 9 , + I*100000 . KF )@@G@@ CPD002 @^@@@@ END . ___ AA A4,CKG )@@G@@2-060,A1 . ADD 10'S *[S@@@*SDFF*@#@@@[$(1) AXR$ . @C@@@[ . THKH )@@G@@IS ROUTINE HANDLES DRUM FILE MANIPULATION @B@@@[ . THE FIRST IS TO MOVEKI )@@G@@ FORWARD IN A FILE@I@@@[PSED* SZ A5 . ZERO TO HKJ )@@G@@OLD ADDRESS AT START OF LAST TRA @H@@@[ J PSFDA+1 KK )@@G@@ . GO GET THE ADDRESS OF HIGHEST TRACK @G@@@[PSFD* SX KL )@@G@@ X2,A5 . X2 HAS COUNT OF HOW FAR TO MOVE @F@@@[ TNKM )@@G@@E A5,(037777777777) . IS IT A PHONEY COUNT? @F@@@[ J KN )@@G@@ PSFDA . YES, MOVE TO END OF FILE @H@@@[ LAKO )@@G@@ A0,DRPKT+5 . NO, MOVE FORWARD USER NO. OF SECTORS @I@@@[KP )@@G@@ AA A0,A5 . LOAD CURRENT ADDRESS AND ADD COUNKQ )@@G@@T TO IT @E@@@[ SA A0,DRPKT+5 . STORE BACK IN PKR )@@G@@ACKET @B@@@[ J UPBLCK . @G@@@[PSFDA LAKS )@@G@@,U A5,64 . COUNT TO GET TO END OF LAST TRACK@E@@@[ KT )@@G@@ DL A0,FILEN . LOAD CURRENT FILENAME@F@@@[ DSKU )@@G@@ A0,FITEM . STORE IT IN FACIT$ PACKET @F@@@[ DSKV )@@G@@ A0,FILNM . STORE IT IN MSG PACKET @E@@@[ LAKW )@@G@@,U A0,FITEM . LOAD FACIT$ PACKET @H@@@[ ER KX )@@G@@ FACIT$ . GET THE ADDRESS OF THE HIGHEST TRACK @G@@@[ KY )@@G@@ LA A6,DRPKT+5 . LOAD CURRENT ADDRESS WE ARE AT @H@@@[KZ )@@G@@ LA,H1 A0,FITEM+9 . LOAD THE HIGH TRACK (IN NO. OF TRLA )@@G@@ACKS) @F@@@[ LSSL A0,6 . SHIFT FOR SECTOR COUNLB )@@G@@T @H@@@[ AA A0,A5 . ADD INCREMENT (0 FOR LC )@@G@@PSE, 64 FOR PSF) @F@@@[ SA A0,DRPKT+5 . STORE NEWLD )@@G@@ ADDRESS IN PACKET@F@@@[ LA,H1 A0,FITEM+9 . RELOAD HILE )@@G@@GHEST TRACK NUMBER@H@@@[ E$BD 6,TRK$,6 . CONVERT OLF )@@G@@CTAL TRACKS TO FIELD-DATA @C@@@[ LA,H1 A0,FITEM+9 LG )@@G@@ . RELOAD @F@@@[ LSSL A0,6 . SHIFT FOR SECTOLH )@@G@@R VALUE @H@@@[ E$BD 6,SEC$,6 . CONVERT OCTAL SLI )@@G@@ECTORS TO FIELD-DATA @D@@@[ LA A0,MSG . LOALJ )@@G@@D FIRST MSG @F@@@[ ER PRINT$ . HIGHEST TRACK RLK )@@G@@EFERENCED IS@D@@@[ LA A0,MSGA . LOAD SECOND MSGLL )@@G@@@E@@@[ ER PRINT$ . BEGINS AT SECTOR @H@@@[LM )@@G@@UPBLCK SLJ QGETAD . GET ADDR OF FILE INFO TABLE IN ALN )@@G@@0 @H@@@[ LA A1,DRPKT+5 . NEW CURRENT DRUM POSLO )@@G@@ITION IN SECTORS @G@@@[ S A1,2,A0 . CURRENT LP )@@G@@BLOCK (SECTOR) COUNT @F@@@[ J CDIMGE . RELQ )@@G@@AD NEXT CPD COMMAND @D@@@[/ . THIS HANDLES MOVING BACKWARD OR REWINDLR )@@G@@ING THE FILE@H@@@[PSBD* SX X2,A1 . X2 HAS SECTOR CLS )@@G@@OUNT FOR MOVE BACK @F@@@[ LNA A0,A1 . MAKLT )@@G@@E IT A NEGATIVE NUMBER @G@@@[ AA A0,DRPKT+5 . ADDLU )@@G@@ THE CURRENT ADDRESS TO IT @I@@@[ JN A0,NEG LV )@@G@@ . NEG-WE ARE BACK BEFORE START ZERO IT OUT @G@@@[ SA LW )@@G@@ A0,DRPKT+5 . STILL IN FILE STORE NEW ADDRESS @B@@@[ SLLX )@@G@@J QGETAD . @B@@@[ LA A1,DRPKT+5 LY )@@G@@ . @G@@@[ S A1,2,A0 . PUT NEW SECTOR COUNTLZ )@@G@@ IN TABLE @B@@@[ J CDIMGE . @I@@@[NEG MA )@@G@@ SZ DRPKT+5 . RESET ADDRESS TO ZERO (BEGINNING OF FILMB )@@G@@E) @E@@@[ CLRF . CLEAR FILE COUNT MC )@@G@@@E@@@[ CLRR . CLEAR SECTOR COUNT @E@@@[MD )@@G@@ J CDIMGE . ALL DONE GET OUT @H@@@[/ . THME )@@G@@IS PORTION IS SET UP TO READ A MASS STORAGE FILE IN SECTOR SIZE BLOCKS. MF )@@G@@@I@@@[ . THE USER CAN CHANGE THE BLOCK SIZE AND/OR CONTROL THE NUMBER OMG )@@G@@F BLOCKS READ. @D@@@[DREAD* NOP . ENTRY POIMH )@@G@@NT @G@@@] SLJ QGETAD . GET LATEST FILE DATAMI )@@G@@ ADDRESS @E@@@] LA A1,2,A0 . PICK UP DRUM AMJ )@@G@@DDRESS@E@@@] SA A1,DRPKT+5 . SAVE IN DRUM PACKET MK )@@G@@@G@#@[ LA A8,SWITCH . TEST TO SEE IF WE HAVE ENTEML )@@G@@RED @G@@@# LA,H1 A8,3,A0 . TEST TO SEE IF WE HAMM )@@G@@VE ENTERED @G@ @# SA A8,MAXREC . SAVE IN MAXIMUMN )@@G@@M RECORD TO READ @G@@@ SA A8,MAXSEC . SAVE IN MO )@@G@@MAXIMUM RECORD TO READ @H@@@[ JNZ A8,DREADA+1 . BEFMP )@@G@@ORE (PARAMETERS ARE ALREADY SET) @D@#@[ LA,U A8,1 MQ )@@G@@ . NO, WE HAVEN'T @D@#@[ SA A8,SWITCH . SETMR )@@G@@ THE SWITCH @E@@@# LA A8,A0 . SAVE A0 FOR LAMS )@@G@@TER @B@@@[ DL A0,FILEN . @B@@@[ DSMT )@@G@@ A0,FITEM . @B@@@[ LA,U A0,FITEM MU )@@G@@ . @G@@@[ ER FACIT$ . GET HIGHEST TRACK REFMV )@@G@@ERENCED @B@@@[ L,H1 A0,FITEM+9 . @B@@@[ MW )@@G@@ A,U A0,1 . @E@@@[ LSSL A0,6 MX )@@G@@ . CONVERT TO SECTORS @B@@@^ SA A8,MAXSEC MY )@@G@@ . @B@@@^ LA A8,A0 . @B@@@^ LAMZ )@@G@@ A0,MAXSEC . @C@@@^ SA,H1 A8,3,A0 NA )@@G@@ . @H@^@[ S A0,MAXSEC . SECTORS TO READNB )@@G@@ MUST BE LESS THAN THIS @H@@@^ S A8,MAXSEC . SECNC )@@G@@TORS TO READ MUST BE LESS THAN THIS @E@^@# SA,H1 A0,3,A8 ND )@@G@@ . ALSO SAVE IT IN QTAB@G@@@[ SZ FIVE NE )@@G@@ . ADDRESS OF A NON ALLOCATED TRACK@F@@@[ SZ NRFIVE NF )@@G@@ . NR OF NONWRITTEN TRACKS @H@@@[ GETFLD SAMECD NG )@@G@@ . SEE IF THE BLOCK SIZE IS TO BE CHANGED @G@@@[ JZ NH )@@G@@ A2,DREADA . NO, GO READ IN SECTOR SIZE BLOCKS@F@@@[ SANI )@@G@@ A1,X2 . STORE THE MULTIPLE IN X2 @E@@@[ LMNJ )@@G@@J X11,CONVERT . CONVERT TO BINARY @H@@@[ SX NK )@@G@@ X2,A5 . GET READY TO MODIFY THE BLOCK SIZE @G@@@[ NL )@@G@@ SX X2,A9 . A9 USED TO INCREMENT ADDRESS @G@@@[NM )@@G@@ MSI,U A5,28 . CONVERT IT TO NUMBER OF WORDS NN )@@G@@@E@@@[ SA,H1 A5,DRPKT+4 . STORE IN DRUM PACKET @F@@@[NO )@@G@@ J $+2 . JUMP AROUND A9 MODIFICATION@H@@@[NP )@@G@@DREADA LA,U A9,1 . BLOCK SIZE NOT MODIFIED INCREMENTNQ )@@G@@ BY 1 @E@@@[ DL A0,FILEN . GET THE FILENAME NR )@@G@@@D@@@[ DS A0,DRPKT . STORE IN PACKET@D@@@[ NS )@@G@@ L A0,DRPKT+5 . ADDRESS TO READ@E@@@[ TG NT )@@G@@ A0,MAXSEC . IS AREA IN FILE RANGE@F@@@[ J FININU )@@G@@SH . ADDRESS OUTSIDE FILE LIMITS@E@@@[ LA,U A0,DNV )@@G@@RPKT . LOAD DRUM PACKET @D@@@[ ER IOW$ NW )@@G@@ . READ THE FILE @E@@@[ LA,S1 A0,DRPKT+3 . LOANX )@@G@@D STATUS CODE @I@@@[ TNE,U A0,5 . 05--ATTEMNY )@@G@@PT TO READ FROM AREA NOT WRITTEN @F@@@[ J NOWRIT NZ )@@G@@ . HAVE NOT WRITTEN INTO TRACK@B@@@[ TNE,U A0,022 OA )@@G@@ . @B@@@[ J FINISH . @I@@@[ OB )@@G@@ L A0,NRFIVE . ARE THERE ANY NON WRIT TRKS SINCE LAST OC )@@G@@RD @ @@@[ JZ A0,DREADB @H@@@[ L A0,FOD )@@G@@IVE . ADDRESS OF LAST SECTOR STARTING 05S @ @@@[ E$OE )@@G@@BD 6,OLD05,6 @F@@@[ L A0,DRPKT+5 . SECTOR INOF )@@G@@ NEW WRITTEN AREA @ @@@[ E$BD 6,NON05,6 @B@@@[ DLOG )@@G@@ A0,FILEN . @B@@@[ DS A0,NONEW5 OH )@@G@@ . @C@@@[ L A0,(P 2,19,NONEW5) . @B@@@[ OI )@@G@@ ER PRINT$ . @D@@@[ SZ FIVE OJ )@@G@@ . CLEAR ADDRESS @B@@@[ SZ NRFIVE . OK )@@G@@@]@@@[DREADB . @H@@@[ LA,H2 A0,DRPKT+3 . VALID REAOL )@@G@@D: LOAD NO. OF WORDS READ @C@@@[ SA,H2 A0,NOWDS$ OM )@@G@@ . SAVE IT @]@@@[BUMPAD . @D@@@] SLJ QGETAD ON )@@G@@ . GET FILE DATA @J@@@] LA A1,2,A0 . DRPKT+5 OO )@@G@@ . GET OLD VALUE @D@@@] SA A1,2OP )@@G@@,A0 . SAVE IT AWAY @E@@@[ LA A0,DRPKT+5 OQ )@@G@@ . LOAD ACCESS ADDRESS @C@@@[ AA A0,A9 . BUMOR )@@G@@P IT @E@@@[ SA A0,DRPKT+5 . STORE NEW ADDRESS OS )@@G@@@C@@@[ J *DREAD . JUMP BACK@E@@@[NOWRIT OT )@@G@@ . AREA HAS 05 RETURN @B@@@[ TZ OU )@@G@@ NRFIVE . @G@@@[ J STORWD . HAVOV )@@G@@E WRITTEN MESSAGE ALREADY @B@@@[ DL A0,FILEN OW )@@G@@ . @B@@@[ DS A0,NEW05 . @B@@@[ LAOX )@@G@@ A0,DRPKT+5 . @G@@@[ S A0,FIVE OY )@@G@@ . ADDRESS OF SECTOR CAUSING 05 @B@@@[ E$BD 6,NWSC05,6OZ )@@G@@ . @B@@@[ L A0,(P 2,13,NEW05) @F@@@[ PA )@@G@@ ER PRINT$ . AREA NOT WRITTEN INTO @D@@@[STORWDPB )@@G@@ SZ NOWDS$ . NR WORDS READ @ @@@[ L PC )@@G@@ A0,NRFIVE @^@@@[ A,U A0,1@ @@@[ S A0,NPD )@@G@@RFIVE @B@@@[ J BUMPAD . @G@@@[FINISH SZPE )@@G@@ SWITCH . EOF ENCOUNTERED ZERO OUT SWITCH @B@@@[ PF )@@G@@ SZ FIVE . @B@@@[ SZ NRFIVE PG )@@G@@ . @I@@@[ LA,U A0,28 . RESET BLOCK SIZPH )@@G@@E TO 1 SECTOR JUST IN CASE @D@@@[ SA,H1 A0,DRPKT+4 PI )@@G@@ . STORE IN PACKET@E@@@[ INCR . UP THE BLPJ )@@G@@OCK COUNT @E@@@[ SLJ PRTEFX . EOF ENCOUNTEREDPK )@@G@@ AT @E@@@[ SZ DUPPNT . ZERO DRUM TAPE FLAG PL )@@G@@@B@@@[ J CDIMGE . @F@@@[/ . ROUTINE TO WRIPM )@@G@@TE TO A MASS STORAGE FILE. DATA COMES FROM TAPE@E@@@[DWRTE* DL PN )@@G@@ A0,F2NAM . LOAD THE FILENAME @D@@@[ DS A0,DPO )@@G@@RPKT . STORE IN PACKET@G@@@[ LA,H2 A0,NOWDS$ PP )@@G@@ . NUMBER OF WORDS IN THE THE BLOCK @H@@@[ SA A0,A2 PQ )@@G@@ . USE A2 TO POINT TO LAST VALID WORD @H@@@[ LXI,U PR )@@G@@ A2,1 . INCREMENT VALUE FOR ZERO FILLING WORD @G@@@[ PS )@@G@@ SA,H1 A0,DRPKT+4 . STORE NUMBER OF WORDS IN PACKET @E@@@[PT )@@G@@ LA,U A6,010 . STORE WRITE FUNCTION @B@@@[ PU )@@G@@ SA,S2 A6,DRPKT+3 . @E@@@[ DSL A0,36 PV )@@G@@ . SHIFT FOR DIVISION @H@@@[ DI,U A0,28 PW )@@G@@ . DIVIDE TO OBTAIN NUMBER OF SECTORS @D@@@[ JZ A1,WPX )@@G@@RITE . EVEN MULTIPLE? @H@@@[ AA,U A0,1 PY )@@G@@ . NO ADD 1 TO THE NUMBER OF SECTORS @E@@@[ LA,U A3,2PZ )@@G@@7 . DETERMINE NUMBER @E@@@[ ANA A3,A1 QA )@@G@@ . OF WORDS TO ZERO FILL@C@@@[BLNKFL SZ BLOCK,*A2 QB )@@G@@ . ZERO FILL@D@@@[ JGD A3,BLNKFL . LAST SECTOR QC )@@G@@@F@@@[ SA,H1 A2,DRPKT+4 . STORE WORD COUNT IN PACKET QD )@@G@@@G@@@[WRITE SA A0,INCREMENT . STORE WORD COUNT FOR ADDRESQE )@@G@@SING @D@@@[ LA,U A0,DRPKT . WRITE IT OUT @B@@@[QF )@@G@@ ER IOW$ . @D@@@[ LA A0,IQG )@@G@@NCREMENT . BUMP ADDRESS @D@@@[ AA A0,DRPKT+5 QH )@@G@@ . AFTER WRITE @B@@@[ SA A0,DRPKT+5 . @E@@@[QI )@@G@@ LA,U A6,020 . RESET PACKET FOR READ@B@@@[ QJ )@@G@@ SA,S2 A6,DRPKT+3 . @C@@@[ J *RITE QK )@@G@@ . GET OUT@#@@@[/ . DATA AREA @]@@@[$(0) . @B@@@[P QL )@@G@@ FORM 12,6,18 . @B@@@[MSG P 2,11,MSGPKT QM )@@G@@ . @B@@@[MSGA P 2,5,MSGPKTA . @B@@@[INCREMQN )@@G@@ENT + 0 . @#@@@[FIVE + 0 @#@@@[NRFIVEQO )@@G@@ + 0 @#@@@[MAXSEC + 0 @B@@@[SWITCH* + 0 QP )@@G@@ . @D@@@[DRPKT* + 0 . DRUM PACKET QQ )@@G@@@B@@@[ + 0 . @B@@@[ + QR )@@G@@ 0 . @B@@@[ + 02000,0 . QS )@@G@@@B@@@[ + 28,BLOCK . @B@@@[ + QT )@@G@@ 0 . @F@@@[FITEM + 0 . PACQU )@@G@@KET FOR FACIT$ REQUEST @B@@@[ + 0 . QV )@@G@@@B@@@[ + 0 . @B@@@[ + QW )@@G@@ 0 . @B@@@[ + 0 . QX )@@G@@@B@@@[ + 0 . @B@@@[ + QY )@@G@@ 0 . @B@@@[ + 0 . QZ )@@G@@@B@@@[ + 0 . @B@@@[ + RA )@@G@@ 0 . @E@@@[MSGPKT 'THE HIGHEST TRACK REFERENCED OF FRB )@@G@@ILE ' . @^@@@[FILNM ' ' .@#@@@[ ' IS ' . RC )@@G@@@#@@@[TRK$ ' ' . @A@@@[MSGPKTA 'THIS BEGINS AT SECTOR' @#@@@[RD )@@G@@SEC$ ' ' . @H@@@[NEW05 ' HAS AN AREA WHICH HAS NRE )@@G@@OT BEEN WRITTEN INTO AT ' @^@@@[ 'SECTOR ' @#@@@[NWSC05RF )@@G@@ + 0 @B@@@[NONEW5 ' SECTOR '@#@@@[NON05 RG )@@G@@ + 0 @G@@@[ ' IS IN THE NEXT TRACK AREA WRITTERH )@@G@@N INTO AFTER TH' @E@@@[ 'E TRACK CONTAINING SECTOR 'RI )@@G@@ . @#@@@[OLD05 + 0 @B@@@[ END RJ )@@G@@ . ___ SLJ QGETAD . GET FILE DATA @J@@@]RK )@@G@@ LA A1,2,A0 . DRPKT+5 RL )@@G@@*[S@@@*SDFF*@I@@[[. GENERAL TAPE READ ROUTINE USED BY DUP, CMP, PRT RM )@@G@@FUNCTIONS . 3A @I@@[[. CALLING SEQUENCE LMJ X11 RN )@@G@@ . 3A @I@@[[. + FILE RO )@@G@@ . 3A @I@@[[RP )@@G@@. + NAME RQ )@@G@@ . 3A @I@@[[. + 4096, BUFFER AREA RR )@@G@@ . 3A @I@@[[. + EOF OR EOT RETURN ADDRESSRS )@@G@@ . 3A @I@@[[. IF BAD IO (NRT )@@G@@OT 0, 1, 2, OR 4) TAKE EXIT$ . 3A @I@@[[RU )@@G@@. RETURNS NR WORDS READ IN H2 OF NOWDS$ RV )@@G@@ . 3A @I@@[[. 4 IN S3 OF NOWDS$ AND AFC IN S1 OF NOWDS$ IF AFCRW )@@G@@ . 3A @I@@[[. RX )@@G@@ . 3A @[@@[[. @B@@@@ RY )@@G@@ AXR$ . @B@@@@$(1) RZ )@@G@@ . @F@@@@TPRD$* DL A0,0,X11 . GET THE CURRENTSA )@@G@@ FILENAME @F@@@@ DS A0,IOWPKT . STORE IT IN THESB )@@G@@ PACKET @I@@[[ SZ NOWDS$ . CLEAR AFC FLAGSC )@@G@@S AND WORD COUNT . 3A @E@@@@ LA A0,2,X11 SD )@@G@@ . LOAD THE TO ADDRESS @D@@@@ SA A0,IOACW . STOSE )@@G@@RE IN PACKET@E@@@@ LA,U A0,IOWPKT . LOAD THE IOW$ PSF )@@G@@ACKET @G@@@@ ER IOW$ . READ THE NEXT BLOCK OSG )@@G@@N THE TAPE @F@@@@ LA A0,IOSTAT . LOAD THE RETURNSH )@@G@@ STATUS @G@@@@ TNE,U A0,0 . TEST FOR NORMALSI )@@G@@ STATUS RETURN @D@@@@ J NORMRT . YES LEAVSJ )@@G@@E @E@@@@ TNE,U A0,04 . ABNORMAL FRAME COUNT?SK )@@G@@@G@@@@ J AFC . YES AFC RETURN GO HANDLE SL )@@G@@IT @C@@@@ TG,U A0,03 . EOF-EOT? @B@@@@ SM )@@G@@ J UNREC . NO @B@@@@ J EOFEOT SN )@@G@@ . YES@G@@@@NORMRT LA A0,IONOWD . LOAD THE NUMBERSO )@@G@@ OF WORDS READ @F@@@@ SA,H2 A0,NOWDS$ . STORE THESP )@@G@@M IN WORD COUNTER @D@@@@ J 4,X11 . RETURN TOSQ )@@G@@ USER @F@@@@EOFEOT LA A0,3,X11 . LOAD EOF RETURN ADDRESR )@@G@@SS @C@@@@ SA A0,RTNADR . STORE IT @E@@@@ SS )@@G@@ SZ JUMP . ZERO OUT AFC COUNTER @E@@@@ J ST )@@G@@ *RTNADR . JUMP TO EOF RETURN @H@@@@UNREC E$BO SU )@@G@@ 6,STATUS,3 . CONVERT STATUS TO OCTAL AND STORE IT @F@@@@ SV )@@G@@ SLJ QGETAD . GET THE CURRENT FILENAME @I@@[[ SW )@@G@@ S A0,SAVEAD . SAVE LOCATION OF 4 WD FILE INFO . 3SX )@@G@@A @C@@@@ DL A0,0,A0 . LOAD IT @C@@@@ SY )@@G@@ DS A0,FILNAM . STORE IT @I@[@@ SLJ QGETSZ )@@G@@AD . GET THE ADDRESS IN THE TABLE OF THIS FILE @I@@[[ TA )@@G@@ L A0,SAVEAD . . 3TB )@@G@@A @F[@@@ LA A0,3,A0 . GET CURRENT FILENUMBETC )@@G@@R @G@@@@ E$BD 6,FILNUM,3 . CONVERT TO FD AND STOTD )@@G@@RE IN PACKET@I@@[[ L A0,SAVEAD . ADDRESS OF FILTE )@@G@@E INFO . 3A @H@@@@ LA A0,2,A0 TF )@@G@@ . GET BLOCK COUNT (BEFORE THIS READ) @F@@@@ AA,U A0,0TG )@@G@@1 . INCREASE FOR CURRENT BLOCK @G@@@@ E$BD 6,BLTH )@@G@@KCNT,6 . CONVERT TO FD AND STORE IN PACKET@E@@@@ LA TI )@@G@@ A0,ERRPKT . LOAD ERROR PACKET @D@@@@ ER PRINTJ )@@G@@T$ . WRITE IT OUT @F@@@@ L$SNAP 'IOPKT ',07,05,ITK )@@G@@OWPKT . SNAP THE I/O PACKET @C@@@@ ER EXIT$ TL )@@G@@ . LEAVE @G@@@@AFC LA A8,JUMP . FIRST TEST TO STM )@@G@@EE WHETHER WE HAVE@H@@@@ TNE,U A8,05 . WRITTEN TTN )@@G@@HE MESSAGE OUT FIVE TIMES @H@@@@ J AFCA TO )@@G@@ . YES, LOAD INDICATORS FOR PRT ROUTINE @G@@@@ AA,U A8,0TP )@@G@@1 . NO, ADD ONE TO COUNTER AND STORE @B@@@@ SA TQ )@@G@@ A8,JUMP . @E@@@@ DL A8,0,X11 . LOATR )@@G@@D THE FILE NAME @C@@@@ DS A8,FILNAMA . STORE IT TS )@@G@@@I@@@@ SX X11,SAVE11 . SAVE X11 CAUSE ITS GOING TOTT )@@G@@ GET CLOBBERED @I@@@@ SLJ QGETAD . GET THE ATU )@@G@@DDRESS IN THE TABLE OF THIS FILE @I@@[[ S A0,SAVEAD TV )@@G@@ . . 3A @E@@@@ LATW )@@G@@ A0,3,A0 . LOAD THE FILE NUMBER @G@@@@ E$BD TX )@@G@@ 6,FILNUMA,3 . CONVERT IT TO FD AND STORE IT @I@[@@ SLTY )@@G@@J QGETAD . GET THE ADDRESS IN THE TABLE OF THIS FILE TZ )@@G@@@I@@[[ L A0,SAVEAD . LOAD ADDRESS OF 4 WD FILE UA )@@G@@INFO AREA. 3A @E[@@@ LA A0,2,A0 . LOAD THE UB )@@G@@BLOCK NUMBER@H@@@@ AA,U A0,01 . ADD ONE TO IT FUC )@@G@@OR THE CURRENT BLOCK @F@@@@ E$BD 6,BLKCNTA,6 . CONUD )@@G@@VERT TO FD AND STORE IT @G@@@@ LA A0,IONOWD . LOAUE )@@G@@D THE NUMBER OF WORDS READ @H@@@@ ANA,U A0,01 UF )@@G@@ . SUBTRACT ONE TO ELIMINATE THE LAST WORD@E@@@@ MSI,U A0,6UG )@@G@@ . CONVERT TO CHARACTERS@I@@@@ AA A0,IOAFC UH )@@G@@ . ADD THE COUNT OF THE CHARACTERS IN LST SR @F@@@@ E$UI )@@G@@BD 6,CHARA,6 . CONVERT TO FD AND STORE @E@@@@ LAUJ )@@G@@ A0,IONOWD . LOAD NUMBER OF WORDS @E@@@@ E$BD UK )@@G@@ 6,WORD,6 . CONVERT AND STORE @C@@@@ LA A0,IUL )@@G@@ONOWD . RELOAD @F@@@@ MSI,U A0,06 . DETUM )@@G@@ERMINE CHARACTER COUNT @E@@@@ E$BD 6,CHRA,6 . CONUN )@@G@@VERT AND STORE @D@@@@ LA A0,PKTA . LOAD INPUUO )@@G@@T MSG @D@@@@ ER PRINT$ . WRITE IT OUT @D@@@@UP )@@G@@ LA A0,PKTB . LOAD OUTPUT MSG@D@@@@ ERUQ )@@G@@ PRINT$ . WRITE IT OUT @F@@@@ LA A0,PUR )@@G@@KTC . LOAD RECCOMMEND DUP MSG @D@@@@ ER PRINUS )@@G@@T$ . WRITE IT OUT @I@@[[ LA A0,PKTD UT )@@G@@ . . 3A @I@@[[ ER UU )@@G@@ PRINT$ . . 3A @F@@@@UV )@@G@@ LX X11,SAVE11 . RESTORE X11 TO JUMP BACK ON@E@@@@UW )@@G@@AFCA LA,U A0,04 . LOAD AFC INDICATOR @F@@@@ UX )@@G@@ SA,S3 A0,NOWDS$ . STORE IT FOR PRT ROUTINE @I@@@@ UY )@@G@@ LA A0,IOAFC . LOAD THE COUNT OF CHARACTERS IN LAST WOUZ )@@G@@RD @F@@@@ SA,S1 A0,NOWDS$ . STORE IT FOR PRT ROUTVA )@@G@@INE @D@@@@ J NORMRT . RETURN TO USER @B@@@@VB )@@G@@$(0) . @E@@@@SAVE11 RES 1 VC )@@G@@ . SAVE AREA FOR X11 @I@@[[SAVEAD + 0 VD )@@G@@ . . 3A @F@@@@JUMP + VE )@@G@@ 0 . COUNTER FOR AFC ERRORS @E@@@@RTNADR + VF )@@G@@ 0 . WORD FOR EOF RETURN @D@@@@IOWPKT + VG )@@G@@ 0 . IOW$ PACKET @D@@@@ + 0 VH )@@G@@ . IOW$ PACKET @D@@@@ + 0 . IOWVI )@@G@@$ PACKET @D@@@@ + 020,0,0 . IOW$ PACKET VJ )@@G@@@D@@@@ + 0 . IOW$ PACKET @E@@@@IOSTATVK )@@G@@ EQUF IOWPKT+3,,S1 . RETURN STATUS CODE @G@@@@IOAFC EQVL )@@G@@UF IOWPKT+3,,S3 . ABNORMAL FRAME COUNT LOCATION @E@@@@IONOWDVM )@@G@@ EQUF IOWPKT+3,,H2 . NUMBER OF WORDS READ @E@@@@IOACW EQVN )@@G@@U IOWPKT+4 . LOCATION OF BUFFER @B@@@@P FORM VO )@@G@@ 12,6,18 . @B@@@@ERRPKT P 3,17,ERRMSG . VP )@@G@@@B@@@@PKTA P 2,17,MSGA . @B@@@@PKTB P VQ )@@G@@ 2,12,MSGB . @B@@@@PKTC P 2,12,MSGC . VR )@@G@@@I@@[[PKTD P 1,12,MSGD VS )@@G@@ . 3A @C@@@@ERRMSG 'ERROR WHILE READING TAPE FILE ' . VT )@@G@@@B@@@@FILNAM + ' ' . @B@@@@FILNUM + ' NVU )@@G@@O ' . @B@@@@ + ' BLOCK NO ' . VV )@@G@@@B@@@@BLKCNT + ' ' . @B@@@@ + 'STVW )@@G@@ATUS CODE ' . @B@@@@STATUS + ' ' . VX )@@G@@@F@[@@MSGA ' ** THE INPUT CHARACTER COUNT OF BLOCK NO. ' . VY )@@G@@@E@@[[MSGA ' *** AFC-THE INPUT CHARACTER COUNT OF BLOCK NO.'@B[@@@VZ )@@G@@BLKCNTA + ' ' . @B@[@@ + ', WA )@@G@@FIL' . @B@[@@ + 'E ' . @I@@[[WB )@@G@@ + ', FILE ' WC )@@G@@ . 3A @B]@@@FILNAMA + ' ' . @B@@@@ WD )@@G@@ + ', NO. ' . @B@@@@FILNUMA + ' ' WE )@@G@@ . @B@@@@ + ' WAS ' . @B@@@@CHARA WF )@@G@@ + ' ' . @F@[@@MSGB ' ** THE OUTPUT COWG )@@G@@UNTS (IF DUPING) ARE: WORDS ' .@F@@[[MSGB ' * THE OUTPUT COWH )@@G@@UNTS (IF DUPING) ARE: WORDS ' .@B[@@@WORD + ' ' WI )@@G@@ . @B@@@@ + ', CHARACTERS' . @B@@@@CHRA WJ )@@G@@ + ' ' . @I@[@@MSGC ' ** RECOMMEND THIS TAWK )@@G@@PE BE DUPED USING CPD BEFORE PROCEEDING FURTHER ' @I@@[[MSGC ' * WL )@@G@@ RECOMMEND THIS TAPE BE DUPED USING CPD BEFORE PROCEEDING FURTHER ' WM )@@G@@@I@@[[MSGD ' *** AN ODD NR OF WORDS PER RECORD CAN CAUSE THIS ON A 9 WN )@@G@@TRACK DRIVE ' @B[@@@ END . ___EADWO )@@G@@*[S@@@*SDFF*@[@@@]. @G@@@]. THIS ROUTINE OBTAINS THE CURRENT DATE ANWP )@@G@@D TIME FROM THE SYSTEM AND @G@@@]. COMPUTES THE CURRENT MONTH AND DAYWQ )@@G@@ OF THE WEEK. IT ALSO PRODUCES @G@@@]. SPECIAL MESSAGES ON APPROPRIWR )@@G@@ATE DAYS OF THE YEAR. NOW ISN'T THAT @^@@@]. REALLY GOOD AND NICE? WS )@@G@@@[@@@]. @B@@@] AXR$ . @[@@@]. WT )@@G@@@C@@@]. THIS PROC IS TO SET UP THE SPECIAL MESSAGES. @[@@@]. @]@@@]WU )@@G@@SP* PROC 1. @ @@@] + SP(1,1). @B@@@] + WV )@@G@@ SP(1,2)-1,SP(1,3). @#@@@] END. @B@@@]P FORM WW )@@G@@ 12,6,18 . @[@@@]$(1) @G@@@]SIGTUR* ER DATE$ WX )@@G@@ . GET DATE AND TIME FROM SYSTEM @F@@@] SA A0,DAWY )@@G@@TE . STORE DATE IN TEMP LOCATION@F@@@] SA A1,TIWZ )@@G@@ME . STORE TIME IN TEMP LOCATION@G@@@] ER TDATEXA )@@G@@$ . GET BIN DATE FOR MONTH SEARCH @G@@@] SA XB )@@G@@ A0,TDATE . STORE BIN DATE IN TEMP LOCATION @F@@@] SSLXC )@@G@@ A0,30 . SHIFT FOR MONTH SEARCH @D@@@] SSLXD )@@G@@ A1,24 . SHIFT FOR HOUR @H@@@] MSI,U A0,2 XE )@@G@@ . DOUBLE THE INDEX FOR DOUBLE WRD MONTHS @E@@@] DL XF )@@G@@ A2,MNTH,A0 . LOAD THE PROPER MONTH@E@@@] DS XG )@@G@@ A2,MONTH . STORE MONTH IN PACKET@E@@@] LA,T2 A0,DAXH )@@G@@TE . LOAD DAY OF MONTH @E@@@] SA,T1 A0,DAYYR XI )@@G@@ . STORE DAY IN PACKET @F@@@] LA,T3 A0,DATE XJ )@@G@@ . LOAD YEAR (LAST TWO DIGITS)@D@@@] SA,T1 A0,DAYYR+1 XK )@@G@@ . STORE IN PACKET@E@@@] SA,T2 A1,HRMIN . STORE HOUXL )@@G@@RS IN PACKET@E@@@] LA,S3 A1,TIME . LOAD 1ST DIGIT XM )@@G@@OF MIN@D@@@] SA,S6 A1,HRMIN . STORE IN PACKET@E@@@]XN )@@G@@ LA,S4 A1,TIME . LOAD 2ND DIGIT OF MIN@D@@@] XO )@@G@@ SA,S1 A1,MINSEC . STORE IN PACKET@D@@@] LA,T3 XP )@@G@@ A1,TIME . LOAD SECONDS @D@@@] SA,T2 A1,MINSEC XQ )@@G@@ . STORE IN PACKET@D@@@]/. THIS PART COMPUTES THE PROPER DAY OF THXR )@@G@@E WEEK. @E@@@]. THIS ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR XS )@@G@@2069. @G@@@]. IT ACCOUNTS FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILLXT )@@G@@ CHANGE THE @G@@@]. CENTURY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCXU )@@G@@URS. SOME OF THE @G@@@]. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BIXV )@@G@@T LIKE FUDGING ONLY @#@@@]. MUCH STICKIER. @[@@@]. @F@@@] XW )@@G@@ LA,S1 A0,TDATE . LOAD THE CURRENT MONTH @H@@@] XX )@@G@@ LA A6,OFFSET-1,A0 . LOAD THE OFFSET. THE OFFSET IS THE XY )@@G@@@H@@@] AA,S2 A6,TDATE . SUM OF THE DAYS IN THE MONTXZ )@@G@@HS PROCEDING@I@@@] . THE CURRENT ONEYA )@@G@@ AND ADD TODAYS DATE TO IT @H@@@] LA,U A8,72 YB )@@G@@ . LOAD THE 1ST LEAP YR AFTER THIS WRIT @G@@@] LA,S3 A9,TDYC )@@G@@ATE . LOAD THE CURRENT YEAR (MODULO 64)@E@@@] AA,U YD )@@G@@ A9,64 . BRING IT UP TO DATE @[@@@]. @E@@@]. THIS PART YE )@@G@@DETERMINES WHETHER WE HAVE A LEAP YEAR OR NOT. @[@@@]. @E@@@]TEST1 YF )@@G@@ TG A8,A9 . IS CURRENT YEAR < 72?@F@@@] J YG )@@G@@ TEST2 . NO, GO DO THE NEXT TEST @E@@@] AA,YH )@@G@@U A8,4 . YES, ADD 4 TO BASE 72@F@@@] J YI )@@G@@ TEST1 . GO BACK AND TEST AGAIN @D@@@]TEST2 TE YJ )@@G@@ A8,A9 . ARE THEY EQUAL?@G@@@] J TEST3 YK )@@G@@ . NO, NOT A LEAP YEAR, KEEP GOING @G@@@] ANA,U A0,3 YL )@@G@@ . YES, SEE WHAT MONTH WE ARE IN @G@@@] JP YM )@@G@@ A0,$+3 . AFTER MARCH, NEED AN EXTRA DAY @G@@@] JZ YN )@@G@@ A0,$+2 . IT IS MARCH, NEED AN EXTRA DAY @H@@@] YO )@@G@@ J TEST3 . NO, MUST BE JAN OR FEB, NO EXTRA DAY YP )@@G@@@E@@@] AA,U A6,1 . ADD THE EXTRA DAY @H@@@]YQ )@@G@@TEST3 DSA A6,36 . NOW TAKE OUT THE WEEKS PRIOR TO TYR )@@G@@HIS @G@@@] DI,U A6,7 . ONE AND SAVE THE REMAYS )@@G@@INDER IN A7 @B@@@]. NOW LET'S CHECK WHAT CENTURY WE'RE IN @F@@@] YT )@@G@@ LA,S3 A10,TDATE . LOAD THE YEAR (MODULO 64) @D@@@] YU )@@G@@ ANA,U A10,6 . BIAS IT BY 70 @C@@@] JP YV )@@G@@ A10,$+5 . < 70? @C@@@] JZ A10,$+4 YW )@@G@@ . = 70? @D@@@] AA,U A10,100 . MUST BE < 2000 YX )@@G@@@E@@@] LA,U A11,20 . LOAD THE NEW CENTURY @E@@@]YY )@@G@@ SA,T3 A11,DAYYR . CHANGE THE PACKET @[@@@]. YZ )@@G@@@H@@@]. THIS SECTION COMPUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRZA )@@G@@ENT YEAR @G@@@]. YEAR FELL ON. THIS THEN COMBINED WITH THE REMAINDERZB )@@G@@ OF THE OFFSET TO @B@@@]. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@]ZC )@@G@@. @C@@@] LA A9,A10 . SAVE A10 @H@@@] ZD )@@G@@ AA,U A10,1 . ADD ONE TO THE YEAR (FUDGING AGAIN) ZE )@@G@@@C@@@] DSA A10,36 . SHIFT IT @C@@@] DI,ZF )@@G@@U A10,4 . FUDGE IT @C@@@] AA,U A9,4 ZG )@@G@@ . PUT IT @D@@@] AA A9,A10 . ALL TOGETZH )@@G@@HER @D@@@] DSA A9,36 . SHIFT IT AGAIN @E@@@]ZI )@@G@@ DI,U A9,7 . ELIMINATE THE WEEKS @E@@@] ZJ )@@G@@ AA A7,A10 . ADD THE REMAINDERS @E@@@] LAZK )@@G@@,U A8,07 . SEE IF NUMBER IS @E@@@] TLE ZL )@@G@@ A8,A7 . GREATER THAN SEVEN @E@@@] ANA,U A7,7 ZM )@@G@@ . YES, TAKE 7 AWAY @F@@@] ANA,U A7,1 ZN )@@G@@ . MODIFY IT FOR TWO WORDS @D@@@] MSI,U A7,2 ZO )@@G@@ . AND DOUBLE IT @F@@@] LX X1,A7 . LOAZP )@@G@@D THE INDEX REGISTER @F@@@] DL A3,DAYOFWK,X1 . LOAZQ )@@G@@D THE DAY OF THE WEEK @F@@@] DS A3,DAYWEEK . STOZR )@@G@@RE DAY OF WEEK IN PACKET@C@@@]. THIS SECTION SEES IF WE HAVE A SPECIAL MZS )@@G@@ESSAGE@D@@@] L A0,DATE . LOAD THE DATE @G@@@]ZT )@@G@@ SSL A0,12 . SHIFT IT TO GET RID OF THE YEAR ZU )@@G@@@F@@@] LXI,U X1,2 . SET UP INDEX REGISTER FOR ZV )@@G@@@C@@@] LXM,U X1,0 . SEARCH @H@@@] L,UZW )@@G@@ R1,(ENDSPC-SPCLST)/2 . LOAD THE LENGTH OF THE TABLE @F@@@]ZX )@@G@@ SE A0,SPCLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@]ZY )@@G@@ J PRINT . NO, GO PRINT THE SIGNATURE @F@@@]ZZ )@@G@@ L,H1 R1,SPCLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@]AA )@@G@@ L X2,SPCLST-1,X1 . LOAD THE LOCATION @D@@@] AB )@@G@@ LXI,U X2,1 . SET UP THE @D@@@] LXI,U AC )@@G@@ X3,1 . INCREMENTS @F@@@] LXM,U X3,MSG AD )@@G@@ . LOAD WHERE TO STORE IT @D@@@]RPT LA A1,0,*X2 AE )@@G@@ . LOAD AND STORE @E@@@] SA A1,0,*X3 . THEAF )@@G@@ MESSAGE, ONE @D@@@] JGD R1,RPT . WORD AT AAG )@@G@@ TIME @F@@@]PRINT LA A0,(P 1,22,SIG) . LOAD THE SIGNATURE PAAH )@@G@@CKET @E@@@] ER PRINT$ . WRITE OUT SIGNATURE AI )@@G@@@C@@@] J 0,X11 . RETURN @[@@@]/. @]@@@]AJ )@@G@@$(0) . @E@^@]SIG 'OCS/CPD 03D' . SIGNATURE PACKAK )@@G@@ET @E@A@^SIG 'OCS/CPD 03E' . SIGNATURE PACKET AL )@@G@@@E@@@ASIG 'OCS/CPD 03D' . SIGNATURE PACKET @D@@@]AM )@@G@@DAYWEEK ' ' . DAY OF THE WEEK@D@@@]MONTH ' AN )@@G@@ ' . CURRENT MONTH @D@@@]DAYYR ' , 19 ' AO )@@G@@ . DATE AND YEAR @G@@@]HRMIN ' : ' AP )@@G@@ . HOUR AND 1ST DIGIT OF MINUTE @G@@@]MINSEC ' : ' AQ )@@G@@ . 2ND DIGIT OF MINUTE AND SECONDS @F@@@] ' ' AR )@@G@@ . BLANK FOR SIGNATURE LINE @C@@@]MSG ' AS )@@G@@ ' . SPECIAL @C@@@] ' ' . MESAT )@@G@@SAGE @C@@@] ' ' . PACKET @D@@@]DATE AU )@@G@@ + 0 . DATE SAVE AREA @D@@@]TIME + AV )@@G@@ 0 . TIME SAVE AREA @E@@@]TDATE + 0 AW )@@G@@ . BINARY DATE SAVE AREA@C@@@]OFFSET + 0 AX )@@G@@ . TABLE @B@@@] + 31 . OF @C@@@] AY )@@G@@ + 59 . OFFSETS @B@@@] + 90 AZ )@@G@@ . TO @C@@@] + 120 . COMPUTE BA )@@G@@@C@@@] + 151 . WHAT @B@@@] + BB )@@G@@ 181 . DAY@B@@@] + 212 BC )@@G@@ . OF @B@@@] + 243 . THE@C@@@] + BD )@@G@@ 273 . WEEK @B@@@] + 304 BE )@@G@@ . IT @B@@@] + 334 . IS @C@@@]DAYOFWBF )@@G@@K ' SUNDAY' . ACTUAL @B@@@] ' MONDAY' BG )@@G@@ . DAY@B@@@] ' TUESDAY' . OF @B@@@]BH )@@G@@ ' WEDNESDAY' . THE@C@@@] ' THURSDAY' BI )@@G@@ . WEEK @C@@@] ' FRIDAY' . LISBJ )@@G@@TING @C@@@] ' SATURDAY' . TABLE @C@@@]MNTH BK )@@G@@ ' ' . DUMMY @C@@@] ' JANUARY ' BL )@@G@@ . ACTUAL @C@@@] ' FEBRUARY ' . MONBM )@@G@@TH @B@@@] ' MARCH ' . OF @B@@@] ' BN )@@G@@ APRIL ' . THE@C@@@] ' MAY ' BO )@@G@@ . CURRENT @C@@@] ' JUNE ' . YEAR @B@@@]BP )@@G@@ ' JULY ' . TO @B@@@] ' AUGUST ' BQ )@@G@@ . BE @C@@@] ' SEPTEMBER ' . LOADED BR )@@G@@@C@@@] ' OCTOBER ' . INTO @B@@@] ' BS )@@G@@ NOVEMBER ' . THE@C@@@] ' DECEMBER ' BT )@@G@@ . PACKET @F@@@]/. SPECIAL DATE SECTION. CPD CAN PLAY GAMES BYBU )@@G@@ ADDING A @G@@@]. COMMENT TO SPECIAL DATES SUCH AS HALLOW5EN 6BV )@@G@@9+1PI93+6663(2 @D@@@]. DAY OR ST. SWITHEN'S DAY, OR WHAT HAVEBW )@@G@@ YOU. @E@@@]. TABLES ARE GENERATED BY PROC 'SP'. TYPICAL CALL. BX )@@G@@@[@@@]. @A@@@]. SP '1031',2,HALMSG. @[@@@]. @F@@@]BY )@@G@@. WHERE 1031 IS HALLOWEEN, OCT. 31, 2 IS THE COUNT OF THE @G@@@]BZ )@@G@@. WORDS IN THE HALLOWEEN MESSAGE, AND HALMSG IS THE LOCATION CA )@@G@@@C@@@]. OF THE FIRST WORD OF THE MESSAGE. @E@@@]. THCB )@@G@@E COMMENT IS PUT AT THE END OF THE DATE LINE. @[@@@]. @]@@@]SPCLSTCC )@@G@@. @C@@@] SP '0101',E0101-B0101,B0101 . @C@@@] CD )@@G@@ SP '0105',E0105-B0105,B0105 . @C@A@] SP '0131CE )@@G@@',E0131-B0131,B0131 . @C@@@A SP '0120',E0120-B0120,B012CF )@@G@@0 . @C@@@A SP '0131',E0131-B0131,B0131 . @C@@@] CG )@@G@@ SP '0202',E0202-B0202,B0202 . @C@@@] SP '0212CH )@@G@@',E0212-B0212,B0212 . @C@@@] SP '0214',E0214-B0214,B021CI )@@G@@4 . @C@@@] SP '0220',E0220-B0220,B0220 . @C@@@] CJ )@@G@@ SP '0222',E0222-B0222,B0222 . @C@@@] SP '0229CK )@@G@@',E0229-B0229,B0229 . @C@@@ SP '0305',E0305-B0305,B030CL )@@G@@5 . @C@@@] SP '0315',E0315-B0315,B0315 . @C@@@] CM )@@G@@ SP '0317',E0317-B0317,B0317 . @C@@@] SP '0320CN )@@G@@',E0320-B0320,B0320 . @C@@@] SP '0401',E0401-B0401,B040CO )@@G@@1 . @C@@@] SP '0403',E0403-B0403,B0403 @C@@@] CP )@@G@@ SP '0404',E0404-B0404,B0404 @C@@@] SP '0405CQ )@@G@@',E0405-B0405,B0405 @C@@@] SP '0406',E0406-B0406,B040CR )@@G@@6 . @C@@@] SP '0407',E0407-B0407,B0407 . @C@@@] CS )@@G@@ SP '0409',E0409-B0409,B0409 . @C@@@] SP '0412CT )@@G@@',E0412-B0412,B0412 . @C@@@] SP '0414',E0414-B0414,B041CU )@@G@@4 . @C@@@] SP '0415',E0415-B0415,B0415 . @C@@@] CV )@@G@@ SP '0418',E0418-B0418,B0418 . @C@@@] SP '0419CW )@@G@@',E0419-B0419,B0419 . @C@@@] SP '0501',E0501-B0501,B050CX )@@G@@1 . @C@@@] SP '0503',E0503-B0503,B0503 . @C@@@] CY )@@G@@ SP '0508',E0508-B0508,B0508 . @C@@@] SP '0517CZ )@@G@@',E0517-B0517,B0517 . @C@@@] SP '0526',E0526-B0526,B052DA )@@G@@6 . @C@@@] SP '0606',E0606-B0606,B0606 . @C@A@] DB )@@G@@ SP '0617',E0617-B0617,B0617 . @C@@@A SP '0610DC )@@G@@',E0610-B0610,B0610 . @C@@@A SP '0617',E0617-B0617,B061DD )@@G@@7 . @C@@@] SP '0618',E0618-B0618,B0618 . @C@@@] DE )@@G@@ SP '0625',E0625-B0625,B0625 . @C@A@] SP '0701DF )@@G@@',E0701-B0701,B0701 . @C@@@] SP '0704',E0704-B0704,B070DG )@@G@@4 . @C@@@] SP '0714',E0714-B0714,B0714 . @C@@@] DH )@@G@@ SP '0720',E0720-B0720,B0720 . @C@@@] SP '0806DI )@@G@@',E0806-B0806,B0806 . @C@@@] SP '0814',E0814-B0814,B081DJ )@@G@@4 . @C@@@] SP '0826',E0826-B0826,B0826 . @C@@@] DK )@@G@@ SP '0827',E0827-B0827,B0827 . @C@@@] SP '0830DL )@@G@@',E0830-B0830,B0830 . @C@@@] SP '0901',E0901-B0901,B090DM )@@G@@1 . @C@@@] SP '0902',E0902-B0902,B0902 . @C@@@] DN )@@G@@ SP '0914',E0914-B0914,B0914 . @C@@@] SP '0925DO )@@G@@',E0925-B0925,B0925 . @C@@@A SP '1001',E1001-B1001,B100DP )@@G@@1 . @C@@@ SP '1005',E1005-B1005,B1005 @C@@@] DQ )@@G@@ SP '1009',E1009-B1009,B1009 . @C@@@] SP '1012DR )@@G@@',E1012-B1012,B1012 . @C@@@] SP '1014',E1014-B1014,B101DS )@@G@@4 . @C@@@] SP '1024',E1024-B1024,B1024 . @C@@@] DT )@@G@@ SP '1029',E1029-B1029,B1029 . @C@@@] SP '1031DU )@@G@@',E1031-B1031,B1031 . @C@@@] SP '1111',E1111-B1111,B111DV )@@G@@1 . @C@@@] SP '1119',E1119-B1119,B1119 . @C@@@] DW )@@G@@ SP '1129',E1129-B1129,B1129 . @C@@@] SP '1207DX )@@G@@',E1207-B1207,B1207 . @C@@@] SP '1214',E1214-B1214,B121DY )@@G@@4 . @C@@@] SP '1217',E1217-B1217,B1217 . @C@@@] DZ )@@G@@ SP '1221',E1221-B1221,B1221 . @C@@@] SP '1224EA )@@G@@',E1224-B1224,B1224 . @C@@@] SP '1225',E1225-B1225,B122EB )@@G@@5 . @]@@@]ENDSPC. @^@@@]B0101 'HAPPY NEW YEAR'.@[@@@]E0101.@D@@@]EC )@@G@@B0105 'NELLIE ROSS FIRST WOMAN GOVERNOR 1925' @]@@@]E0105 . ED )@@G@@@B@@@]B0111 'ALEXANDER HAMILTON BORN 1757' @]@@@]E0111 . @B@@@AEE )@@G@@B0120 'PRESIDENTIAL INAUGURATION DAY' @]@@@AE0120 . @ @@@]B0131 EF )@@G@@ 'EXPLORER 1--1958'. @[@@@]E0131.@^@@@]B0202 'GROUND HOG DAY'.@[@@@]EG )@@G@@E0202.@ @@@]B0212 'A.LINCOLN--1809'. @[@@@]E0212.@ @@@]B0214 'ST. EH )@@G@@VALENTINE''S DAY'.@[@@@]E0214.@A@@@]B0220 'JOHN GLENN''S FLIGHT--1962'.EI )@@G@@@[@@@]E0220.@B@@@]B0222 'GEORGE WASHINGTON''S BIRTHDAY'. @[@@@]E0222.EJ )@@G@@@B@@@]B0229 'LEAP-YEAR DAY.' . @[@@@]E0229.@A@@@ B0305 EK )@@G@@ 'BPSTON MASSACRE - 1770' @]@@@ E0305 . @A@@@]B0315 'BEWARE: TEL )@@G@@HE IDES OF MARCH'.@[@@@]E0315.@ @@@]B0317 'SAINT PATRICK''S DAY'.@[@@@]EM )@@G@@E0317.@ @@@]B0320 'SPRING HAS SPRUNG'. @[@@@]E0320.@ @@@]B0401 'APRIEN )@@G@@L FOOLS DAY'. @[@@@]E0401.@A@@@]B0404 'JOHN NAPIER BORN 1550' EO )@@G@@@]@@@]E0404 . @B@@@]B0405 'POCAHONTAS MARRIED ROLFE 1614' @]@@@]EP )@@G@@E0405 . @A@@@]B0403 'NATO DAY (MAC GETS OFF)' .@[@@@]E0403.@C@@@]EQ )@@G@@B0406 'PEARY REACHES NORTH POLE IN 1909' . @[@@@]E0406.@D@@@]B0407 ER )@@G@@ 'OFFICIAL DATE OF CRUCIFIXION IN 30 A.D.' . @[@@@]E0407.@E@@@]B0409 ES )@@G@@ 'APPOMATTOX DAY (THE SOUTH WILL RISE AGAIN)'. @[@@@]E0409.@A@@@]ET )@@G@@B0412 'FIRING ON FORT SUMTER' . @[@@@]E0412.@B@@@]B0414 'LINCOLN ASEU )@@G@@SASINATED, 1865' . @[@@@]E0414.@^@@@]B0415 'HAPPY IRS DAY'. @[@@@]EV )@@G@@E0415.@B@@@]B0418 'SAN FRANCISCO EARTHQUAKE 1906' @]@@@]E0418 . EW )@@G@@@D@@@]B0419 'TAXATION WITHOUT REPRESENTATION MEANS WAR'. @[@@@]E0419.EX )@@G@@@#@@@]B0501 'MAY DAY'. @[@@@]E0501.@C@@@]B0503 'POLAND ADOPTED CONSEY )@@G@@TITUTION 1791' @]@@@]E0503 . @C@@@]B0526 'FIRST AMERICAN BANKEZ )@@G@@ CHARTERED 1781' @]@@@]E0526 . @#@@@]B0508 'V-E DAY'. @[@@@]E0508.FA )@@G@@@B@@@]B0517 'NORWEGIAN INDEPENDANCE DAY' . @[@@@]E0517.@#@@@]B0606 FB )@@G@@ 'D-DAY'. @[@@@]E0606.@F@@@AB0610 'WITHHOLDING TAX LAW SIGNED 1943FC )@@G@@ : EAT YOUR HEART OUT' @]@@@AE0610 . @F@@@]B0617 'DON''T FIRE UNTIFD )@@G@@L YOU SEE THE WHITE''S OF THEIR EYES'. @[@@@]E0617.@ @@@]B0618 'BATTFE )@@G@@LE OF WATERLOO' .@[@@@]E0618.@A@@@]B0625 'CUSTER''S LAST STAND' FF )@@G@@@]@@@]E0625 . @B@A@]B0701 'HAPPY NEW FISCAL YEAR (DMA DAY)'. @[@A@]FG )@@G@@E0701.@B@@@]B0704 'INDEPENDENCE DAY.' . @[@@@]E0704.@^@@@]FH )@@G@@B0714 'BASTILLE DAY'. @[@@@]E0714.@ @@@]B0720 '1ST MAN ON THE MOON'. FI )@@G@@@[@@@]E0720.@^@@@]B0806 'FRIENDSHIP DAY'.@[@@@]E0806.@#@@@]B0814 'V-J FJ )@@G@@DAY'. @[@@@]E0814.@A@@@]B0826 'WOMEN''S SUFFRAGE--1920'. @[@@@]E0826.FK )@@G@@@^@@@]B0827 'FIRST OILWELL'. @[@@@]E0827.@A@@@]B0830 'CLEOPATRA DIEFL )@@G@@D 30 B.C.' @[@@@]E0830 @ @@@]B0901 'INVASION OF POLAND'. @[@@@]E0901.FM )@@G@@@C@@@]B0902 'SURRENDER SIGNED, U.S.S. MISSOURI'. @[@@@]E0902.@C@@@]FN )@@G@@B0914 'STAR-SPANGLED BANNER WRITTEN--1814'. @[@@@]E0914.@B@@@]B0924 FO )@@G@@ 'BLACK FRIDAY IN N.Y. 1869' @]@@@]E0924 . @E@#@]BO925 'BFP )@@G@@ALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @E@@@#B0925 'BALBOA FQ )@@G@@DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @[@@@]E0925.@B@@@AB1001 'HAPPFR )@@G@@Y NEW FISCAL YEAR (OCS DAY)'. @[@@@AE1001.@A@@@ B1005 'HAPPY BIRTHDAFS )@@G@@Y DAVID' @]@@@ E1005 . @ @@@]B1009 'LIEF ERIKSON DAY'. @[@@@]FT )@@G@@E1009.@^@@@]B1012 'COLUMBUS DAY'. @[@@@]E1012.@A@@@]B1014 'BATTLE OF FU )@@G@@HASTINGS, 1066' .@[@@@]E1014.@ @@@]B1024 'UNITED NATIONS DAY'. @[@@@]FV )@@G@@E1024.@A@@@]B1029 'STOCK MARKET CRASH 1929' @]@@@]E1029 . @^@ @]FW )@@G@@B1031 'HALLOWEEN.'. @F@@@ B1031 'ALL HALLOWS EVE ''BET YOU THO''FX )@@G@@T IT WAS HALLOWEEN' @[@@@]E1031.@^@@@]B1111 'ARMISTICE DAY'. @[@@@]FY )@@G@@E1111.@E@@@]B1119 'FORE-SCORE AND SEVEN ... PERISH FROM THIS EARTH'. FZ )@@G@@@[@@@]E1119.@A@@@]B1129 'SAND CREEK MASSACRE 1864'@]@@@]E1129 . GA )@@G@@@^@@@]B1207 'DAY-OF-INFAMY'. @[@@@]E1207.@C@@@]B1214 'AMUNDSON REACHESGB )@@G@@ SOUTH POLE, 1911' . @[@@@]E1214.@A@@@]B1217 'FIRST POWERED FLIGHT--GC )@@G@@1903'.@[@@@]E1217.@A@@@]B1221 'PLYMOUTH ROCK STEPPED ON'. @[@@@]E1221.GD )@@G@@@A@@@]B1224 'HAPPY BIRTHDAY ANITA' @]@@@]E1224 . @ @@@]B1225 GE )@@G@@ 'MERRY CHRISTMAS'. @[@@@]E1225.@B@@@] END GF )@@G@@ . ___SP '0814',E0814-B0814,B0814 . @C@@@] SP GG )@@G@@*[S@@@*SDFF*@#@@@U AXR$ . @H@@@UB11 EQU 11 GH )@@G@@ . NEED THIS EXTRA ONE DUE TO OLD CODE @]@@@U$(1) . @^@@@UGI )@@G@@. OCTAL PRINT ROUTINE @B@@@UPRTO* EDIT 8,14,8,2 . GJ )@@G@@@[@@@U. @B@W@U. ALPHA PRINT ROUTINE WORDS SEPERATED @B@@@W. ALPHGK )@@G@@A PRINT ROUTINE WORDS SEPARATED @B@@@UPRTA* EDIT 16,8,16,1 GL )@@G@@ . @[@@@U. @C@W@U. ALPHA PRINT HARD TO READ JAMMED TO GETHEGM )@@G@@R @B@@@W. ALPHA PRINT HARD TO READ JAMMED TOGETHER@B@@@UPRTH* EDGN )@@G@@IT 16,6,16,1 . @[@@@U. @B@@@U. ALPHA PRINT ROUTINE GO )@@G@@ WORDS SEPERATED @]@@@UPRTAQ* . @B@@@U SX X11,PRTAQXGP )@@G@@11 . @F@@@U SLJ HDR . PRINT OUT GENEGQ )@@G@@RAL HEADER @F@@@U SZ C$TR . CLEAR OCTAL LIGR )@@G@@NE COUNTER @G@@@U LA A0,NOWDS$ . GET NUMBER OF GS )@@G@@WORDS IN BUFFER @F@@@U TNZ A0 . IF NONE GT )@@G@@QUIT YOU TURKEY @E@@@U J EXPRTAQ . RETURN GU )@@G@@TO SENDER @D@@@X LA,U A1,20 . LENGTH OF LINEGV )@@G@@@E@@@X LMJ X11,XOPT . TEST IF X OPTION ON @G@@@UGW )@@G@@ AN,U A0,1 . SUBTRACT ONE FOR THE GREAT JGD GX )@@G@@@D@@@U LR R2,A0 . OK HERE WE GO @E@@@U GY )@@G@@ LX X10,ONEBLOCK . SET FOR LOOP INDEXING@A@@@U SXGZ )@@G@@ X10,SAVEX10 @E@@@UQ$LOOP2 A$EDIT AEDITPKT . EHA )@@G@@NTER ASCII EDITOR @G@@@U A$EOCTF 4,C$TR . PRINT IHB )@@G@@N OCTAL THE LINE NUMBER @B@@@U LA A0,C$TR . HC )@@G@@@D@@@U A,U A0,20 . ADD INCREMENT @F@@@U HD )@@G@@ SA A0,C$TR . SAVE INCREMENTED COUNTER @D@@@UQ$LOOPHE )@@G@@3 LR,U R3,20-1 . WORDS PER LINE @E@@@U A$ESKIP HF )@@G@@ 1 . SKIP ONE COLUMN @]@@@UQ$LOOP4 . @B@@@U HG )@@G@@ LX X10,SAVEX10 . @C@@@U DL A1,RANGE HH )@@G@@ . 037,0176@D@@@U LA A0,0,X10 . GET FIRSTHI )@@G@@ WORD @B@@@U SA A0,W$ORD . @E@@@U LAHJ )@@G@@,U A0,0134 . SUBSTITUTE CHARACTER@F@@@U TW,Q1 HK )@@G@@ A1,0,X10 . CHECK FIRST CHARACTER @D@@@U SA,Q1 HL )@@G@@ A0,W$ORD . PUT IT BACK @F@@@U TW,Q2 A1,0,X10 HM )@@G@@ . CHECK SECOND CHARACTER @D@@@U SA,Q2 A0,W$ORD HN )@@G@@ . PUT IT BACK @E@V@U TW,Q3 A0,0,X10 . THHO )@@G@@IRD CHARACTER @E@@@V TW,Q3 A1,0,X10 . THIRD CHHP )@@G@@ARACTER @D@@@U SA,Q3 A0,W$ORD . PUT IT BACK HQ )@@G@@@E@V@U TW,Q4 A0,0,*X10 . FOURTH CHARACTER @E@@@VHR )@@G@@ TW,Q4 A1,0,*X10 . FOURTH CHARACTER @D@@@U HS )@@G@@ SA,Q4 A0,W$ORD . PUT IT BACK @B@@@U SX HT )@@G@@ X10,SAVEX10 . @F@@@U A$ECOPY 4,W$ORD . MOHU )@@G@@VE IT TO OUTPUT BUFFER @E@@@U A$ESKIP 1 . SKHV )@@G@@IP ONE COLUMN @B@@@U JGD R3,QE$LOOP2 . @F@@@UHW )@@G@@QE$LOOP1 A$EDITX . TERMINATE ASCII EDITOR @E@@@UHX )@@G@@ LA A0,AEPRINT . (PF 1,30,AEBUF) @B@@@U HY )@@G@@ ER APRINT$ . @B@@@U JGD R2,Q$LOOP2HZ )@@G@@ . @E@@@U J EXPRTAQ . RETURN TO SENIA )@@G@@DER @D@@@UQE$LOOP2 JGD R2,Q$LOOP4 . GET NEXT WORD@^@@@UIB )@@G@@ LR,U R2,0@ @@@U J QE$LOOP1 @B@@@UEXPRTAIC )@@G@@Q LX X11,PRTAQX11 . @B@@@U J 0,X11 ID )@@G@@ . @[@@@U. @C@@@U. ALPHA PRINT HARD TO READ JAMMED TO GETHEIE )@@G@@R @]@@@UPRTHQ* . @B@@@U SX X11,PRTHQX11 . IF )@@G@@@F@@@U SLJ HDR . PRINT OUT GENERAL HEADER IG )@@G@@@F@@@U SZ C$TR . CLEAR OCTAL LINE COUNTER IH )@@G@@@G@@@U LA A0,NOWDS$ . GET NUMBER OF WORDS IN BUFII )@@G@@FER @F@@@U TNZ A0 . IF NONE QUIT YOU TURIJ )@@G@@KEY @E@@@U J EXPRTHQ . RETURN TO SENDER IK )@@G@@@B@@@X LA,U A1,20 . @E@@@X LMJ IL )@@G@@ X11,XOPT . TEST IF X OPTION ON @G@@@U AN,U A0,1IM )@@G@@ . SUBTRACT ONE FOR THE GREAT JGD @D@@@U LR IN )@@G@@ R2,A0 . OK HERE WE GO @E@@@U LX X10,ONEBLOIO )@@G@@CK . SET FOR LOOP INDEXING@B@@@U SX X10,SAVEX10 IP )@@G@@ . @E@@@UH$LOOP2 A$EDIT AEDITPKT . ENTER ASCII EDITOR IQ )@@G@@@G@@@U A$EOCTF 4,C$TR . PRINT IN OCTAL THE LINE NIR )@@G@@UMBER @B@@@U LA A0,C$TR . @D@@@U A,IS )@@G@@U A0,20 . ADD INCREMENT @F@@@U SA A0,CIT )@@G@@$TR . SAVE INCREMENTED COUNTER @D@@@UH$LOOP3 LR,U R3,2IU )@@G@@0-1 . WORDS PER LINE @E@@@U A$ESKIP 1 IV )@@G@@ . SKIP ONE COLUMN @]@@@UH$LOOP4 . @B@@@U LX X10,IW )@@G@@SAVEX10 . @C@@@U DL A1,RANGE . 037,0176IX )@@G@@@D@@@U LA A0,0,X10 . GET FIRST WORD @B@@@U IY )@@G@@ SA A0,W$ORD . @E@@@U LA,U A0,0134 IZ )@@G@@ . SUBSTITUTE CHARACTER@F@@@U TW,Q1 A1,0,X10 JA )@@G@@ . CHECK FIRST CHARACTER @D@@@U SA,Q1 A0,W$ORD JB )@@G@@ . PUT IT BACK @F@@@U TW,Q2 A1,0,X10 . CHECK SEJC )@@G@@COND CHARACTER @D@@@U SA,Q2 A0,W$ORD . PUT IT BJD )@@G@@ACK @E@V@U TW,Q3 A0,0,X10 . THIRD CHARACTER JE )@@G@@@E@@@V TW,Q3 A1,0,X10 . THIRD CHARACTER @D@@@UJF )@@G@@ SA,Q3 A0,W$ORD . PUT IT BACK @E@V@U TWJG )@@G@@,Q4 A0,0,*X10 . FOURTH CHARACTER @E@@@V TW,Q4 JH )@@G@@ A1,0,*X10 . FOURTH CHARACTER @D@@@U SA,Q4 A0,WJI )@@G@@$ORD . PUT IT BACK @B@@@U SX X10,SAVEX10 JJ )@@G@@ . @B@@@U A$ECOPY 4,W$ORD . @B@@@U JGJK )@@G@@D R3,HE$LOOP2 . @F@@@UHE$LOOP1 A$EDITX JL )@@G@@ . TERMINATE ASCII EDITOR @E@@@U LA A0,AEPRINT JM )@@G@@ . (PF 1,30,AEBUF) @B@@@U ER APRINT$ . JN )@@G@@@E@@@U JGD R2,H$LOOP2 . GO FOR NEXT LINE @E@@@UJO )@@G@@ J EXPRTHQ . RETURN TO SENDER @D@@@UHE$LOOJP )@@G@@P2 JGD R2,H$LOOP4 . GET NEXT WORD@^@@@U LR,U JQ )@@G@@ R2,0@ @@@U J HE$LOOP1 @[@@@U. @B@@@UEXPRTHQ LXJR )@@G@@ X11,PRTHQX11 . @B@@@U J 0,X11 JS )@@G@@ . @^@@@UPRTAQX11 + 0 @^@@@UPRTHQX11 + 0 @F@@@UJT )@@G@@P$COMN . LMJ 10,P$COMN ENTER WITH A0 CONTAINING WORDS/LINE @H@@@UJU )@@G@@ LA A1,N$WSAV . LOAD THE NUMBER WORDS LEFT TO PRIJV )@@G@@NT @E@@@U JZ A1,0,10 . NO MORE WORDS EXIT JW )@@G@@@H@@@U ANU A1,A0 . SUBTRACT THE NUMBER ON NEXTJX )@@G@@ LINE-IN A2 @G@@@U JP A2,P$C1 . WILL BE MORE LEJY )@@G@@FT AFTER THIS LINE@F@@@U SZ N$WSAV . ALL DONE JZ )@@G@@AFTER NEXT LINE @H@@@U LA A0,A1 . LOAD NUMBKA )@@G@@ER OF WORDS THAT WERE LEFT @E@@@U J 1,10 KB )@@G@@ . GO BACK TO WRITE OUT @D@@@UP$C1 SA A2,N$WSAV . STOKC )@@G@@RE REMAINDER@E@@@U J 1,10 . GO BACK TO WRITKD )@@G@@E OUT @D@@@UHDR NOP . HEADER ROUTINE @I@@@UKE )@@G@@ SLJ QGETAD . GET THE ADDRESS IN THE TABLE OF TKF )@@G@@HIS FILE @I@@@U SA A0,SAVADR . ADDRESS OF FILKG )@@G@@E INFORMATIOM . 3B @D@@@U DL A0,0,A0 KH )@@G@@ . LOAD FILENAME @D@@@U DS A0,F$NAM . STORE IN KI )@@G@@PACKET@I@@@U LA A0,SAVADR . ADDRESS OF FILE INFOKJ )@@G@@RMATION . 3B @D@Y@U LA A0,3,A0 . LOAKK )@@G@@D FILENUMBER@D@@@Y LA,H2 A0,3,A0 . LOAD FILENUMBERKL )@@G@@@G@@@U E$BD 6,F$NO,3 . EDIT FILE NUMBER TO PRINT PKM )@@G@@ACKET @I@@@U LA A0,SAVADR . ADDRESS OF FILE INFOKN )@@G@@RMATION . 3B @E@@@U LA A0,2,A0 . LOAKO )@@G@@D BLOCK COUNT @G@@@U E$BD 6,B$LOCK,6 . EDIT BLOCKP )@@G@@K COUNT TO PRINT PACKET @F@@@U LA,H2 A0,NOWDS$ . LOAKQ )@@G@@D BLOCK SIZE IN WORDS @F@@@U E$BD 6,S$IZE,6 . CONKR )@@G@@VERT AND STORE IN PACKET@C@@@U LA,H2 A0,NOWDS$ . RELKS )@@G@@OAD @G@@@U MSI,U A0,6 . COMPUTE NUMBER OF CHAKT )@@G@@RACTERS @E@@@U LA,S3 A2,NOWDS$ . SEE IF THERE WAKU )@@G@@S AN @C@@@U TE,U A2,04 . AFC ERROR@D@@@U KV )@@G@@ J CHAR . NO, KEEP GOING @G@@@U LA,U KW )@@G@@ A1,6 . YES, REDUCE NUMBER OF CHARACTERS @G@@@U ANKX )@@G@@,S1 A1,NOWDS$ . WHERE TPRD$ STORED AFC COUNT @H@@@U KY )@@G@@ AN A0,A1 . SUBTRACT CHARS NOT READ FOR LAST WORD KZ )@@G@@@F@@@UCHAR E$BD 6,C$HARS,6 . CONVERT AND STORE IN PACKETLA )@@G@@@E@@@U LA A0,P$PKT . LOAD HEADER LINE @D@@@ULB )@@G@@ ER PRINT$ . WRITE IT OUT @C@@@U J LC )@@G@@ *HDR . GO BACK @]@@@XXOPT . @E@@@X LALD )@@G@@ A3,TEMP . LOAD OPTION WORD @E@@@X TOP,U LE )@@G@@ A3,04 . TEST FOR X OPTION ON@D@@@X J 0,X1LF )@@G@@1 . OK JUST DO IT @H@@@X TG A0,A1 LG )@@G@@ . IS LINE LENGTH > NO WORDS IN BUF? @C@@@X LA A0,ALH )@@G@@1 . NO , YES@C@@@X J 0,X11 . GOLI )@@G@@ BACK @]@@@U$(0) . @^@@@USAVEX10 + 0 @B@@@UH$DR1 'FLJ )@@G@@ILE ' . @ @@@UF$NAM ' ' .@B@@@ULK )@@G@@F$NO 'NO. ' . @ @@@U ' ' LL )@@G@@ .@^@@@U 'BLOCK NO. '@ @@@UB$LOCK ' ' .LM )@@G@@@ @@@U ' ' .@ @@@U 'SIZE =' .LN )@@G@@@ @@@US$IZE ' ' .@^@@@U ' WORDS OR '@ @@@ULO )@@G@@C$HARS ' ' .@ @@@U ' CHARS' .@B@@@ULP )@@G@@C$TR + 0 . @B@@@UN$WSAV + 0 LQ )@@G@@ . @#@@@USAVADR + 0 @F@@@UW$ORD + 0 LR )@@G@@ . SAVE AREA FOR EDITED WORD @B@@@URANGE + 037 LS )@@G@@ . @B@@@U + 0176 . @ @@@ULT )@@G@@PF FORM 12,6,18 @G@@@UAEPRINT PF 1,30,AEBUF LU )@@G@@ . PRINT CONTROL WORD FOR ASCII @B@@@UAEDITPKT* A$EPKT 31,AEBUF LV )@@G@@ . @B@@@UAEBUF* RES 31 . @B@@@UONEBLOLW )@@G@@CK* + 1,BLOCK . @B@@@UP$ FORM 12,6,18 LX )@@G@@ . @B@@@UP$PKT P$ 2,15,H$DR1 . @^@@@U LY )@@G@@ RES 10 @B@@@U END . ___@@ULZ )@@G@@ SA,Q2 A0,W*[S@@@*SDFF*@H@@@@. SCAN . REENTRANT ROUTINE MA )@@G@@TO SCAN A CARD PULLING ONE FIELD(1-12 CHARS) AT @E@@@@ . A TIMEMB )@@G@@. FIELDS MUST BE SPERATED FBY A ' ' OR ','@C@@@@ . THE CALLING MC )@@G@@SEQUENCE IS AS FOLLOWS @]@@@@ . @]@@@@ . @A@@@@ MD )@@G@@ . LMJ 11,SCAN @F@@@@ . + 1,CARD . IFME )@@G@@ A2 = NONZERO , NOT NEW CARD @E@@@@ . + 0 2F A2=0MF )@@G@@, NCW CARD IS ASSUMED @G@@@@ . + 0 THE PARAMETERMG )@@G@@ AREA IS FOR TEMP STORAGE FOR @H@@@@ . + 0 SCAN ANMH )@@G@@D MUST NOT BE DESTROYED BY USER PROGRAM @ @@@@ . + MI )@@G@@ 0 @G@@@@ . CONTROL RETURNS WITH A2=NO CHARS IN FIELD AND FIMJ )@@G@@ELD IN A0,A1@G@@@@ . RIGHT JUSTIFIED SPACE FILLED TO LEFT. IF NMK )@@G@@O CHARS=0, THERE @G@@@@ . ARE NO MORE FIELDS IN CARD AND USER ML )@@G@@MUST SUPPLY NEW CARD @C@@@@ . UPON NEXT ENTRY TO SCAMM )@@G@@N @I@@@@ . THIS ROUTINE IS REENTRANT AND DESTROYS X11-A5,RMN )@@G@@1-R3**************** @]@@@@ . @I@@@@ AXR$ MO )@@G@@ . CALL SYSTEM PROCS CPD01A @I@@@@$(1) MP )@@G@@. CHANGE TO CREATE I-BANK CPD0MQ )@@G@@02 @^@@@@U EQU 14 @^@@@@X11 EQU 11 @I@@@@MR )@@G@@. PARAMETER TABLE IN USER PROGRAM LOOKS LIKE THIS (PROVIDED HE DONT CLOBMS )@@G@@BER IT) @A@@@@. + 1,CARDADDRESS @A@@@@. + MT )@@G@@ CHAR SAVE FOR @A@@@@. + FIELD ASSEMBLY @D@@@@MU )@@G@@. + NOCHRS,CHRPTR,NOTUSED,CTR,NOTUSED @F@@@@. + MV )@@G@@ WORD POINTER IN CARD AREA . INITIALLY 1,CARD @[@@@@. @[@@@@MW )@@G@@. @H@@@@STCWD EQUF 1,11 CHAR SAVE AREA WHILE MX )@@G@@ASSEMBLING FIELD @D@@@@CHRPTR EQUF 3,11,S3 . 5 INITIMY )@@G@@ALLY @E@@@@WDPTR EQUF 4,11 . 1,CARD INITIALLLY MZ )@@G@@@E@@@@NOCHRS EQUF 3,11,T1 . INITIALLY SET TO 80@ @@@@NA )@@G@@CTR EQUF 3,11,S5 @ @@@@LC L,S6 A5,0,*A1 @A@@@@NB )@@G@@I DO 5 , L,S6+I A5,0,A1 @ @@@@SPACES + ' ' NC )@@G@@@I@@@@LEAD + ' ' . WORD TO HOLD PREVIOUS CHARAND )@@G@@CTER CPD002 @[@@@@. @ @@@@SCAN* L A5,SPACES @^@@@@NE )@@G@@ TZ A2 @ @@@@ J NOTNEW @E@@@@INIT NF )@@G@@ . ROUTINE TO INIT IALIZE SCAN, DESTROYS A5,A4 @ @@@@ S NG )@@G@@ A5,CHRPTR @I@@@@ SA A5,LEAD . NH )@@G@@ CPD002 @^@@@@ MSI,U A4,6 @ @@@@NI )@@G@@ S A4,NOCHRS @ @@@@ L A4,0,11 @ @@@@NJ )@@G@@ S A4,WDPTR @I@@@@ SZ PERIOD NK )@@G@@ . ZERO OUT SCAN-STOP FLAG CPD002 @E@@@@NOTNEW L NL )@@G@@ R3,NOCHRS . 80 IF NEW CARD @E@@@@ S A5,SNM )@@G@@TCWD . SET FIELD TO SPACES@ @@@@ S A5,STCWD+1NN )@@G@@@G@@@@ SZ CTR . SET NO CHAR THIS FIELD YENO )@@G@@T @I@@@@ LA A0,PERIOD . SET UP TEST FOR SCAN-NP )@@G@@STOP CPD002 @I@@@@ TE,U A0,0 . SHONQ )@@G@@ULD WE STOP? CPD002 @I@@@@ J DONENR )@@G@@ . YES CPD002 @[@@@@. NS )@@G@@@[@@@@. @F@@@@GNC . ROUTINE TO GET NEXT CHARACTER FROM CARD USNT )@@G@@ES A0,A1 @B@@@@ . R3 CONTAINS NO CHARS @I@@@@ NU )@@G@@ SA,S6 A5,LEAD . STORE THE PREVIOUS CHARACTER CPD0NV )@@G@@02 @ @@@@ JGD R3,$+2 @D@@@@ J DONENW )@@G@@ . CARD DONE @ @@@@ L A0,CHRPTR @ @@@@NX )@@G@@ L A1,WDPTR @ @@@@ EX LC,A0 @ @@@@NY )@@G@@ JGD A0,$+2 @^@@@@ L,U A0,5@ @@@@ NZ )@@G@@ S A0,CHRPTR @ @@@@ S A1,WDPTR @[@@@@. OA )@@G@@@I@@@@. CHARACTER NOW IN A5, CHECK FOR ' ', ',' OR '.' OB )@@G@@ CPD01A @[@@@@. @I@@@@ TE,U A5,'.' OC )@@G@@ . TEST FOR PERIOD CPD002 @I@@@@ J OD )@@G@@ BLK . NO CPD002 @I@@@@OE )@@G@@ LA A9,LEAD . YES OF )@@G@@ CPD002 @I@@@@ TE A9,SPACES . WAS PREVIOUS CHOG )@@G@@ARACTER A BLANK? CPD002 @I@@@@ J GNC OH )@@G@@ . NO, IGNORE THIS PERIOD CPD002 @I@@@@ LR,U OI )@@G@@ R3,0 . YES, STOP SCAN CPD002 @I@@@@OJ )@@G@@ SA A5,PERIOD . SET FLAG TO STOP FUTURE SCANS OK )@@G@@ CPD002 @I@@@@ J DONE . OL )@@G@@ CPD002 @I@@@@BLK TE,U A5,5 OM )@@G@@ . WAS IT A BLANK? CPD002 @ @@@@ J ON )@@G@@ NOSPCE @H@@@@ TNZ CTR . HAVE WE HAD AOO )@@G@@ CHAR YET THIS CARD @E@@@@ J GNC NO OP )@@G@@IGNORE THIS SPACE @^@@@@ J DONE @I@@@@NOSPCE TE,U OQ )@@G@@ A5,',' . TEST FOR COMMA CPD01A @I@@@@OR )@@G@@ J PNC . GO TO VALID CHARACTER ROUTINE OS )@@G@@ CPD01A @^@@@@ J DONE @[@@@@. @[@@@@. @D@@@@OT )@@G@@PNC . ROUTINE TO STORE A CHAR DEXTROYS A4,A5,A3 @A@@@@ . OU )@@G@@ENTER WITH CHAR IN A5 @ @@@@ L A4,STCWD+1@ @@@@ OV )@@G@@ L A3,STCWD @ @@@@ DSC A3,66 @ @@@@ OW )@@G@@ S A3,STCWD @ @@@@ S A4,STCWD+1@ @@@@ OX )@@G@@ S,S6 A5,STCWD+1@ @@@@ L A4,CTR @^@@@@ OY )@@G@@ A,U A4,1@ @@@@ S A4,CTR @^@@@@ J OZ )@@G@@ GNC @[@@@@. @[@@@@. @ @@@@DONE S R3,NOCHRS PA )@@G@@@F@@@@ L A2,CTR COUNT OF CHARS THIS FIELD PB )@@G@@@ @@@@ L A0,STCWD @ @@@@ L A1,STCWD+1PC )@@G@@@^@@@@ J 5,11 @#@@@@ END ___TR A3,STCWD PD )@@G@@*[S@@@*SDFF*@]@@@@ AXR$ @G@@@@X PROC . CALL IS EDIT MPE )@@G@@AX WORDS,CHARS/WORD,CNTINC,TYPE @#@@@@EDIT* NAME @#@@@@ENT* PF )@@G@@ NOP @I@@@@ SLJ HDR . PRINTS FILENAMEPG )@@G@@, NR, BLOCK NR, AND BLOCK SIZE@E@@@@ SZ C$TR PH )@@G@@ . LINE NR ON PRINTOUT @B@@@@ L,U A0,2 . PI )@@G@@@ @@@@ S,H2 A0,P$ED3+1@A@@@@ L,U A0,BLOCK-XPJ )@@G@@(1,1) @ @@@@ S,H2 A0,P$ED3 @E@@@@ L,H2 A0,NPK )@@G@@OWDS$ . NR WORDS IN RECORD @G@@@@ S A0,N$WSAV PL )@@G@@ . NR WORDS IN RECORD LEFT TO PRINT @E@@@@L$OOP L,U A0,XPM )@@G@@(1,1) .LOAD MAX NO WDS IN LINE @I@@@@ SLJ XOPT PN )@@G@@ . IF X OPT DECREASE TOT NR WDS TO PRNT 1 LINE @I@@@@ LMPO )@@G@@J 10,P$COMN . NR WDS TO PRNT IN A0, DECR N$WSAV BY WDS PRNTD PP )@@G@@@I@@@@ J *ENT . . RETURN HERE FROM P$COMN IFPQ )@@G@@ N$WSAV = 0-NO PRT@I@@@@ S,S3 A0,P$ED2 . STORE NO WOPR )@@G@@RDS INTO RPT FUNCTION PRM 2 14-11 @F@@@@ L,H2 A0,P$ED3 PS )@@G@@ . ADDR STARTED LAST PRINT AT @F@@@@ A,U A0,X(1,1) PT )@@G@@ . UPDATE M BY NO WORDS PER LINE@G@@@@ S,H2 A0,P$ED3 PU )@@G@@ . STARTING ADDR OF WORDS TO PRINT @H@@@@ E$OUT PV )@@G@@ . CALL INTERREPTIVE ROUTINE PRM 2 14-10 @E@@@@ E$PW )@@G@@O 4,15,C$TR . PUT IN OCTAL LINE NR @I@@@@P$ED2 E$RPT PX )@@G@@ X(1,2),X(1,1),1 . REPEAT EDIT FUNC NR WORDS TIMES PRM 2 1413 @A@@@@PY )@@G@@P$ED3 . EDITING FUNCTION@G@@@@ DO X(1,4)=1 , E$A 6PZ )@@G@@,1,BLOCK-16 . ALPHA OR HOLLERITH @I@@@@ DO X(1,4)=2 QA )@@G@@, E$O 20,36,BLOCK-8 . OCTAL PRT PSN 20,FULL WD,START BK-@B@@@@ QB )@@G@@ DO X(1,4)=3 , E$A 6,1,BLOCK-16@I@@@@ E$WT 22,0,1 QC )@@G@@ . PRM 2 14-12 22 WDS ON PRNTR AFTER SP 1 LN @ @@@@ L,QD )@@G@@U A0,X(1,3) @E@@@@ A A0,C$TR . UP LINE WQE )@@G@@ORD COUNTER @ @@@@ S A0,C$TR @E@@@@ L,U QF )@@G@@ A0,1 . RESTORE M ADDRESS @B@@@@ S,H2 A0,PQG )@@G@@$ED3+1 . @ @@@@ J L$OOP @I@@@@XOPT NOQH )@@G@@P . CPD002 QI )@@G@@@I@@@@ LA A3,TEMP . QJ )@@G@@ CPD002 @I@@@@ TOP,U A3,04 . 'X' OPTIOQK )@@G@@N SET? CPD002 @I@@@@ J *XOPT QL )@@G@@ . NO CPD002 @I@@@@ TGQM )@@G@@ A0,N$WSAV . YES, ARE THE # OF WORDS IN THE CPD002 QN )@@G@@@I@@@@ . RECORD > THE MAX # OF WORDSQO )@@G@@ PER LINCPD002 @E@@@@ J *XOPT . NO, PROCEQP )@@G@@SS NORMALLY @I@@@@ SA A0,N$WSAV . YES, REDUCE TO QQ )@@G@@NOE LINE OF PRINT CPD002 @I@@@@ J *XOPT QR )@@G@@ . NOW GO BACK CPD002 @#@@@@ END QS )@@G@@@]@@@@E PROC 1,2. @G@@@@E$BD* NAME EBD$X . PROC-BINAQT )@@G@@RY TO FIELDDATA DECIMAL @F@@@@E$BO* NAME EBO$X . BINQU )@@G@@ARY TO OCTAL FIELDDATA @I@@@@B EQU E(1,1)-1 . NR QV )@@G@@DIGITS IN,WHERE PUT CNVTED NR, NR PLACES W@H@@@@Y FORM 6,12,18 QW )@@G@@ . NR CH OUT, NR DIGITS IN, OUTPUT WD ADDR@#@@@@ LMJ 11,E(0QX )@@G@@,0) @ @@@@ Y E(1,3),B-B/6*6,E(1,2)+B/6 @[@@@@ END@F@@@@X PRQY )@@G@@OC . PROC FOR SCAN ROUTINE @#@@@@GETFLD* NAQZ )@@G@@ME @C@@@@ L,S3 A4,PPKT . NR WORDS @F@@@@ RA )@@G@@ L,U A2,1-X(1,1) . 0 IF NEW, 1 IF SAME CARD @ @@@@ RB )@@G@@ SLJ GETSCN @#@@@@ END @#@@@@DATA* PROC . RC )@@G@@@B@@@@I DO DATA(1) , + DATA(1,I) @]@@@@ END@^@@@@RD )@@G@@Q PROC 0,1 @]@@@@INCR* NAME 1@]@@@@INCF* NAME 2@]@@@@DCRR* RE )@@G@@NAME 3@]@@@@DCRF* NAME 4@]@@@@CLRR* NAME 5@]@@@@CLRF* NAME 6@ @@@@ RF )@@G@@ DO Q(0,0)=1 , SLJ INCRX@ @@@@ DO Q(0,0)=2 , SLJ INCFX@ @@@@ RG )@@G@@ DO Q(0,0)=3 , SLJ DCRRX@ @@@@ DO Q(0,0)=4 , SLJ DCRFX@ @@@@ RH )@@G@@ DO Q(0,0)=5 , SLJ CLRRX@ @@@@ DO Q(0,0)=6 , SLJ CLRFX@#@@@@ RI )@@G@@ END ___ E$RPT X(1,2),X(1,1),1 . REPEAT EDIT FUNC NR WORDS TRJ )@@G@@IMES PRM 2 1413 @A@@@@)@@[N@@^[@^@@@@@@@A#@@[[/\K@@Y/KF@@[8^@@@]')J)@>RK )@@G@@O;@@@0;C@@@-;^@@@#;G@@@=/\K@@YAA@@@@)@E[M@^@^@@@@@@@@@R;@@@-/^K@@F1@@@@KRL )@@G@@H9@@@[')J)@>;^@@@=O;K@@0W8@@@ER;@@@@E@K@[[AB@@@@)@O[N#@@K^@[@K@@@@/KF@@[RM )@@G@@8^@@@T')J)@>;@K@@AR#@@@H/KF@@[/D@@@T/K@@@V0@@@[[R#K@@@AC@@@@)@Y[N#@@@[@@RN )@@G@@@@@@@@A\I@@@A3I@@@/\0@@:/KH@@@8^H@@@C5F@@@Q\;@@@Q#:@@@R#0@@IC@)@@"AD@@@@RO )@@G@@)@*[U@@^G@@@C80@@9C8)@@0A@)@@[ @@@@K/KG@@@Q;0@@ R#@@@JA7I)@@A\@)@@HC*K@@[G[HJ_V\@)@@HC=K@@[RQ )@@G@@C[HJ_L\@)@@HC)K@@[AF@@@@)@/[F#@@Y0@K0@B?@^G@[#@@G[H@@^\@)@@HC4K@@[G[HJ_9RR )@@G@@\@)@@HC0K@@[G[HJ_\\@)@@HC?K@@[AG@@@@)[ @M@)@@[@@@@@@@@@@@@@ @@@@@^@@@@@#RS )@@G@@@@@@@]@@@@@[@@@@@@@@@@@@ /KF@@@[[@@@]AH@@@@)@C[S@@@@@@@@@@@@/@@@@@2RT )@@G@@@@@@@*@@@@@Y@@@@@O@@@@@E@@@@@@@@@@@D@@@@@C@@@@@B@@@@@AAI@@@@)@N[S@@@@@@@RU )@@G@@@@@@E/@@@@DS@@@@B4@@@@AK@@@@^?@@@@#C@@@@[=@@@@@@@@@@[U@@@@[K@@@@[AAJ@@@@RV )@@G@@)@Y[S@@@@@@@@@@[.@@@@[!S@@@[X0@@@[IC@@@@")@@@@,8@@@@ZK@@@@J*@@@@@@@@@@I^RW )@@G@@@@@@G)AK@@@@)@([S@@@@@@@@@@P"K@@@N+@@@@L 0@@@I()@@@GHK@@@D1@@@@BO0@@@^8)RX )@@G@@@@@]WK@@@@@@@@@]G*AL@@@@)@4[S@@@@@@@__"@@@@@#V,)@@##O@@@]%9)@@]MZ@@@['^)RY )@@G@@@@[-%@@@[DJ)@@@05@@@@SU)@@@@@@AM@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RZ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@@@@A@@#@@M@@@SA )@@G@@@@@@@_@@@@[BEBO$X @@[@@@@@@@@@EBD$X @@[@@@@@@@@CCONVERT SB )@@G@@@@[@@@@@@@@\@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SC )@@G@@)@@[EK[#@[@K0@^G@^@@@@@@/K@@@Z[@@@@GG@@@@LC@@@@G/K@@@D:[K@[BA@)@@L/K@@@ESD )@@G@@ @@@@LAA@@@@)@D[]K)#K0@K0@ES@CK]CS@CS@@@@@CC@@@QC[)@@G'=@@@@C8@@@H9*@@@YSE )@@G@@9*@@@H9?@@@@C9K@[@AB@@@@)@L[E^G@^G@^C@]&@]A@@-@@/,0@@@;*@@@ACC@@@QA@ @@-SF )@@G@@/,0@@@CC@@@Q[@@@@GG@@@@L;*@@@AAC@@@@)@U[]()@-)@-@E-)@-@E-@G-)@@@@@A#W@@]SG )@@G@@C@K@@G'^@@@@'=@@@@C@@@@['=@@@@C@@@@@A@ @@&AD@@@@)@+[F]@W^G@^[#@[]@T#@@@@SH )@@G@@A#W@@]C@K@@G'^@@@@[@@@@G/G@@@?G@@@@GD@@@@HA@)@@H/K@@@@AE@@@@)@:[#]@X#@[]SI )@@G@@@-]@>]@WK)A@@@@@@@C@W@@]'^@@@@/S@@@@/K@@@@'^@@@@'^@@@@ @@@@G/K@@@@AF@@@@SJ )@@G@@)@3[##@@K0@K[]@H#@@()@@@@@@@@@C8@@@H9*@@@H9?@@@@C]@@@G/A@@[M[]@@@ CEG@@#SK )@@G@@[@K@@GAG@@@@)@;[F]@L#@@^G@[#@@K0@@@@[]@@@ [EG@@#C@@@@ C]@@@G[]@@@ ;*@@@ASL )@@G@@O;@@@[RF@@@Q'=@@@@AH@@@@)[^[##@[#@[]@*:@^-@Q)]^[)@@@@@/,0@@@[@K@@]/@)@[LSM )@@G@@'^@@@@R;)@@[C!@@@@ @@@@^ @@@@#AI@@@@)[G[E[#@[@^C@4G@^G@@@@@@R#@@@G9*@@@BSN )@@G@@9?@@@@C'K@@[/K@@[M[DK@@FT9K@@WA@)@@PA@)@@LAJ@@@@)[P[F#@[@ES@CKA*S@]@C@@@SO )@@G@@/K@@]^:8@@@M/K@@[5:8@@@ C4@@@E'=@@@@C8@@@B/K@@]^!@@@@ AK@@@@)[Y[##@[@K0@SP )@@G@@K)@ES@CS@CK@ G@@@@A@ @@8/,0@@@R#@@@GA@ @[A/,0@@@R#@@@#/@@@[?R#@@@^AL@@@@SQ )@@G@@)[&[#]@H#@[#@[]@P#@[#@[#@[]@8@[^@@@@C^@@@E @@@@^ @@@@#'=@@@@R#@@[C9*@@@4SR )@@G@@9?@@@@AM@@@@)[,[F]@S^G@[#@[@K0@K@@@@/K@@[_*@@@@^/K@K@0[@@@@GG@@@@PC@@@@GSS )@@G@@[@W@@]C@W@@]'^@@@@AN@@@@)[7[#]@H#@[#@[#@[]@@()@-)@-@E@'=@@@@R#@@[DA@ @@3ST )@@G@@/,0@@@A#@@@#C@@@@G9*@@@$9?@@@@AO@@@@)[_[#]@9#@@K0@K^G@^G@^G@@@@@@@ @@@@^SU )@@G@@ @@@@# @@@@A/K@@[,A#@@@^O;@@@[R#@@@^ @@@@@AP@@@@)]B[]K0@K)JK)KK)LK)BK)MKSV )@@G@@0@@@@@9*@@@B9?@@@@/K@@@@ @@@@@'^@@@@'^@@@@[C@@@FC8@@@WAQ@@@@)]J[N]@8^G@[SW )@@G@@#@@^@@G8@@@[/@K@]YW8@@@W;G@@@=[1)@@EC9)@@C[C@@@F&;)@@[[@@@@IC^@@@@AR@@@@SX )@@G@@)]T[]^C^4[#@[#@@()@-@U@@@@@@@@'=@@@@C8@@@B[@@@@][C)@@F8#0@]V @I)@@H@0@@HSY )@@G@@C80@@VAS@@@@)]-@3#@[#@[#@@K0@K)O@@@@)@@@C*@@@@@@@]F@@R/K@K@@[1)@@EC9)@@KSZ )@@G@@[@@@@GG@@@@GC@@@@]AT@@@@)@[[K*@@@@@@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@TA )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@] @@+AU@@@@)@F[S(@&@@@@@@@@@@@@@@@@@@@@@@@@@@@@TB )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@W@@@AV@@@@)@Q[S@@@@@@@ IS TC )@@G@@ F FILENCED OREFERETRACK GHEST THE HI@@@@@@AW@@@@)@-[S@@@@@@@TD )@@G@@ WHICHN AREA HAS A TOR AT SECEGINS THIS B AX@@@@TE )@@G@@)@?[S@@@@@@@ SECTO @@@@@@ SECTORTO AT TEN INN WRITOT BEETF )@@G@@ HAS NAY@@@@)@7[S@@@@@@@E TRACTER THNTO AFTTEN IEA WRIACK AREXT TR THE NTG )@@G@@ IS IN@@@@@@R AZ@@@@)[][@@@* @@@@@@@@@@@@@@@@@@@@@@]H@@$@]N@@4#_____TH )@@G@@@@@@@@R SECTOAININGK CONTBA@@@@@@@@@@@@@@@@@@@P"K@@@N+@@@@L 0@@@I()TI )@@G@@@@@GHK@@@D1@@@@BO0@@@^8)@@@]WK@@@@@@@@@]G*AL@@@@@@^@@]@@A@@P@@0@@B@[G@@@TJ )@@G@@@@@@[E@@@@]$EBD$X EBO$X SAMECD FILEN FACIT$ TK )@@G@@PRINT$ QGETAD CDIMGE CLRFX CLRRX PPKT TL )@@G@@GETSCN CONVERT IOW$ NOWDS$ INCRX PRTEFX TM )@@G@@DUPPNT F2NAM BLOCK RITE PSED @@[@@@@@@@@@TN )@@G@@PSFD @@[@@@@@@@@]PSBD @@[@@@@@@@@X@@@C-X)@@AA@@@@)@F[MK@[]@@@@@@@@@[[V@@][[V@@[NW;@@#UR )@@G@@ @@@@@[[F@@^C[F@@@[XF@@#T9@@@A[[K@@B[!V@@#AB@@@@)@P[MK)@^[@K^@^@@@')G@@@US )@@G@@R#V@@^R\F@@#/K@@@.8K0@@W[-K@@B/K@@@.%8@@@@C@@@@@ =F@@#AC@@@@)@Z[N@@^[@K^UT )@@G@@@@@@@@N80@@@/K@@@T%]K@@AC]K@@B/K@@@:%9K@@.A#V@@^A\F@@#R;@@@ 8#@@@-AD@@@@UU )@@G@@)@([N]@[@^@K^@K^@@/K@@@./K@@@3%9K@@,/K@@@./K@@@T(=F@@#/K@@@0%9K@@ /K@@@.UV )@@G@@[[K@@@AE@@@@)@3[U@@[@@@@^W;@@#/K@@@T[>F@@#G9@@@[C>F@@#[-V@@][[F@@]A#;@@[UW )@@G@@;^0@[]R#;@@[C[F@@]AF@@@@)@"@+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UX )@@G@@@@@@@@/KF@@ R#V@@]R#F@@[R$:@@#AG@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@UY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@^@@]@@A@@[@@C@@[@@G@@@UZ )@@G@@@@@@@@@@@@[]PERIOD SCAN @@[@@@@@@@@CLC@@@@#@ M!N@@@@@@@@@@@[VA )@@G@@@@@@@@Y@@@@[^NHF D^NHE/F@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@VB )@@G@@======@@^@@ @@@@@@@@@@@@@@ @C$@@@@[Z@@ @@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VC )@@G@@@@@@@@B?@ AH72-8 @@@@]@@@@@]L@@@^@@@@@@@@@@@@@@@@@@@@@@Z^@O@@6@@A@@Y@@-VD )@@G@@@]T@@@@@A@@^@@@[ =@@@@@@@^@@[Z@^@ @[@ @@[ZK^@N@)M@ Z^@M@ Z @M@ ZA@M@ ZB@VE )@@G@@M@ ZC@M@ ZD@M@ ZE@M@ ZF@M@ ZG@M@ ZH@M@ ZI@M@ ZJ@M@ ZK@M@ ZL@M@ ZM@M@ ZN@VF )@@G@@M@ ZO@M@ ZP@M@ ZQ@M@ ZR@M@ ZS@M@ ZT@M@ ZU@M@ ZV@@[B@(W@@@___@@_AJ)@@@___VG )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___VH )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___VI )@@G@@/\K@(';G@@@=;^@@@#;C@@@-O;@@@0')J)%[8^@@(Y/KF@@[/\K@('A#@@[[E@K@[[R;@@@@VJ )@@G@@W8@@@EO;K@@0;^@@@=')J)%[H9@@@[1@@@@K/^K@($R;@@@-R#KAJ)0@@@[[/K@@(7/D@@(5VK )@@G@@/KF@@[R#@@@H;@K@@A')J)%[8^@@(5/KF@@[C@)AKYR#0@@IQ#:@@@Q\;@@@C5F@@@8^H@@@VL )@@G@@/KH@@@/\0@%BA3I@@@A\I@@@A:I@@@A$I@@@AX@@@C(X@@@C!X@@@C1X@@@C5X@@@ C[K@(+*@@@@I/K@@(,[!V@@#VX )@@G@@[[K@(F@@#G9@@@[[>F@@#WB )@@G@@/K@@(5^W;@@#R$:@@#R#F@@[R#V@@]/KF@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@WD )@@G@@@N?@P0@@@___@]QAC @@EAE1@]=AFB@[QAIE)@QAEV)@GAE;)@ZAH:@@@___@@@___@@@___WE )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___WF )@@G@@@@@___@@@___@@@___@@@___/!K@P6[1[AEV[![AEV[([AEV[>[AEV[-[AEV[5[AEVQ/)@@ WG )@@G@@8@P@@@/K@@Q#'^@@XW @@AD6 @@AEI @@AEJ C@AEMR#KAFBR_@AE1N/K@@QM#W)@@CD@AEJWH )@@G@@8^@@Q. 4@AEI 0@AEI ^@AEM ^@AEIR#F@@@;G@@@Z;GK@@X;G)@@Y!/@@@S/K@@RY:/@@@PWI )@@G@@/K@@RYR /ADYR@0@@HR[)@@IA#@@@ER_@@@@W/@@@AR@K@@GR@)AFDQ@)@@H;^)@[A;C0@@OWJ )@@G@@R.J@@@R#@@@E?8@@@C/K@@Q%!8@@@P/K@@Q%:8@@@L/K@@Q%:8@@@M/@0@Q3%8@@@I/K@@Q3WK )@@G@@*@@@@A/K@@Q3=/)@@]'K0AD6=/)@@[/,)@X4;@0@@K;C0@@O/S@@@@R.J@@@/,)@X4(4@AEIWL )@@G@@/K@@Q';@0@Q5(0@AEI;C9@@@*0@AEI;K9@@@0@@@@KO"0@@[/KB@@@[D@AEJ ^@AEIRD0AEOWM )@@G@@R )AEOOG0AELOH@AEKR#0@@^R#K@@#?/K@]@/CK@RD C@AEJ/K@@Q#R_@@@@W/@@@AR@K@@GWN )@@G@@R@)AFDQ@)@@H/K@@Q2CD@AEJ8^@@Q./K@@QC@@@@@@Q#K@@F&;K@@@R'0@@ @@@@G;=@@@MWO )@@G@@;=@@@#O;@@@0;)@@@#8]0@RS;@@@@#/K@KRM'^@@RMA#@AF0R#@AF*'=@@@I/K@@W^/C0@R&WP )@@G@@^*)AEID@0@@JR")@Y@R_)@@@RJ@AEM(@@@@AR"@@@@/@@@SC;^?@@=R#@@@A*)@AEIO#@@@CWQ )@@G@@?/@@@F/K@@R4R_@@@ER.)@@E0@@@@GR_0@@@;C0@@[U@/ADN0@@@@KO_0@@[/K@@R_;G0@@=WR )@@G@@W/0@@EG.@@@0/!'@@@8[)@R;C.@@@.')])P0()@AEI/K@@SCC.@@@0/K@@SB/!'@@@8]@@SAWS )@@G@@O#0@@I;G0@@=W/0@@EG.@@@0/!'@@@/^0@SD(?@AEI(*@AEI/K@@Q#C.@@@-')])P0/K@@Q#WT )@@G@@D@K@@A/@K@Q#?@KAE2/K@@Q#;@6@@@;C.@@=D/H@@[S@@AE3;G0@@#;D@@@-G.@@@0')])P0WU )@@G@@8#@@SW/K@@Q#R#@@@J/K@@S(C.@@@0;@@@@[0@@@@GC.@@@1')])P08[)@S=/K@@Q#D@K@@AWV )@@G@@/@K@Q#?@KAE2/K@@Q#;^6@@@;DH@@=D/H@@[S@@AE4')])P0;D@@@A8#@@S3/K@@Q#R#0@@^WW )@@G@@R_@@@AT/]@@@]@@@@BR#LAEV;CR@@=O@KAFC?/0@[#/K@@TNO#0AFC8[)@T^/K@@Q#R#Z)@@WX )@@G@@R#\@@@;GW@@@A#-AEV$/K@@P8[)@T#R#Z@@@R_0@@@Q#0@@[!/0@@Q/K@@Q#R#-AEV;@$@@=WY )@@G@@;GW@@@A#-AEV/K@@Q#C[@@@J8[)@TS/K@@Q#R#K@@JG.@@@[R#0@@K/,)@X4R#)@@J;GW@@@WZ )@@G@@A#-AEV$/K@@P8[)@TQR#K@@J/K@@TER")@@@/K@@T=R")@@[/C0@T$^*)AEID@0@@J"KK@@JXA )@@G@@/@)@U!"OK@@I"W)AEHRI@AENS@0AD9/C0@T1?@\AC:P_0@@[/K@@T5?@\AC?/K@@T5%/0@@&XB )@@G@@O_0@@[]@0@@D*@@@@EP]@@@D"C(AC??@)AC?/K@@T_A#)@@K"D@AC:[[@@@IP"K@@[(@@@@EXC )@@G@@O]K@@C"K@@@I]@@@@G0@@@@C^))AEI;@W@]V8])@UYE@0@@D/@0@UF1@@@@D^=)AEI;G0@@=XD )@@G@@W/0@@EG.@@@0/!0@YD(@@AEG/K@@UQ @@AEG;G0@@=W/0@@EG.@@@0')])P0K/0@@0')])P0XE )@@G@@C.@@@+*=@AEIC.@@@-*?@AEIC.@@@ ')])P0 @@AEGR#0@@HR")@Y@R_)@@@*)@AEI/K@@R!XF )@@G@@P"@@@F;^)@@>1@@@@C/K@@U%U@*ADY/K@@R!U@)ADYR_0@@@/K@@R!**@AEI/K@@Q#RI@AENXG )@@G@@R"K@@@R_K@@@/K@@UA=8)@@[/,)@X4=8)@@[R[@@@J/!0AFER#KAFBR_@AE1N/K@@QM#W)@@XH )@@G@@/K@@V==8)@@[/,)@X4=8)@@[R[@@@J/!0AFE/K@@P_=8)@@[/,)@X4=8)@@[R[@@@J/!0AFEXI )@@G@@/K@@RJR_^@@@;@@@@K;K@@@OAB@AEN/K@@RJR_^@@@;@@@@K;K@@@OAB@AEM/K@@RJR"@@@=XJ )@@G@@P]@@@#AA@@Q5R"N@@80@@^/K@K80@@^/K@K<3!@@AHY/K@K<3[@@AHY/K@K<3/S@@@@ZD )@@G@@'^@@&M @@AHXR;@@@]AB@@=KR;@^[?AB@@=JRB@^[3A#@AHYR;@@@K'^@@=R/,)@&D/K@K<;ZE )@@G@@A\@@=IRB@@=JO;@@@KAB@@=J/,0@P'^^JAHX&AK@@[EA[^[?KQ@@@[R;@@@KO#@AHXA#@AHXZF )@@G@@R;@@@[AB@@=K/K@@=^/S@@@@C@0A]Q>80@@^/K@K=R!@@AHY/K@K=R[@@AHY/K@K=RA]0@&BZG )@@G@@'^@@&M @@AHXC@@^[3(@@@@G/K@@>MC8K@@O/,0@&\P;@@@[N@)@@GR])AIEA])AHHC/@AH=ZH )@@G@@/,0@YJC@@AHXC8K@@^/,0@)$C@@AHXO;@@@O[@@AHXN80@@NC/@@@[/,0@ZQR])AHH9?KAH-ZI )@@G@@C@E@@@[@@AH)C8@@[W,WU@@@[W@AH),KU@@@[K@AH),SU@@@[S@AH),OU)@@[O@AH)A])AHHZJ )@@G@@C8@AH)C8K@@^/,0@Z5C/@@@[/,0@ZQ8K0@>J/,0@Y8C@@AH<'=@@@88K)@=:/K@@>M8K)@=6ZK )@@G@@N8)@@@/K@@>ER]0@&B/KF@@@A]0@&C'^@@&M @@AHXC@@^[3(@@@@G/K@@& C8K@@O/,0@&\ZL )@@G@@P;@@@[N@)@@GR])AIEA])AHHC/@AH=/,0@YJC@@AHXC8K@@^/,0@)$C@@AHXO;@@@O[@@AHXZM )@@G@@N80@@NC/@@@[/,0@ZQR])AHH9?KAH-C@E@@@[@@AH)C8@@[W,WU@@@[W@AH),KU@@@[K@AH)ZN )@@G@@,SU@@@[S@AH),OU)@@[O@AH)A])AHHC8@AH)C8K@@^/,0@Z58K0@&]/,0@Y8C@@AH<'=@@@8ZO )@@G@@8K)@>)/K@@& 8K)@>:N8)@@@/K@@>.R]0@&C/KF@@@@@@@@@@@@@@@C@KAHY/@U@@@L@K@@GZP )@@G@@/C)@&K @@AHYC@@@@H/KE@@[[@)AHY/KE@@[/S@@@@'^@@O-[@@AHZ9?G@@@9*@AHJC@@AHZZQ )@@G@@C^G@@#/,0^[B#@ AHLC@@AHZC@G@@]/,0^[BA@ AHPC^@^[3/,0^[BA@ AHSC^@^[3T8@@@AZR )@@G@@C?)^[3%8)@@^/K@@&%C8K@@AP7K^[3P#@@@H/,0^[BA@ AHVC@@AIF'=@@@I/K@K&MC@0A]QZS )@@G@@>80@@^/KF@@@!@@@@HC@@@@H/KF@@@ @@@@L/K@@&_A@)@@L:[KAJX/K@@&"C@@AI+G@@@@LZT )@@G@@[@@AI+/K@@$OC9K@[@9?@A]O9*@AI<9*@AI4C8@AI<'=@@[*@@AIU/K@@*49?@A]O9*@AI.C@@AI+A#@AIT/,0^[BA@ AJDR#@AJZ'=@@@IAD )@@G@@ @@^[3R#@AIUO;@@@[A#@AIU/K@@*< @@AIW @@AIT @@AIUC8@@@W[C@AI-'^@@O_'^@@N'AE )@@G@@ @@^[2/K@@DH9?@@I$9*@AIXC^@^[3[@@@@I&;)@@[[C@AI-C9)@@C[1)AI);G@@@=W8@@@WAF )@@G@@/@K@(NG8@@@[C80@@VH@0@@H @I=[/8#0@(K[C)AI-[@@AISC8@AIX'=@@@#C@@AISG@@AI+AG )@@G@@[@@AI+C9)@@K[1)AI)/K@KG!_____"@Q3<;$@4KIXL[HOM^>[&(Q>,]^D6B>]XGN(Y]6ZS<5AH )@@G@@#O#$QT#!^-G@^AP(Z@^Z;#60^//'UI QGD@1 \\FK.AG5Z]&A&]63KA_<=)^BW,I4#B592-#AI )@@G@@CJSJDOC?$DX4D 0;5MDZHE2&D/)I\*EP*MV+E\]R]UFGTYT)F>Z5_8F"73Z6GWM8F'G5R&I9AJ )@@G@@HI!Z2$H?GV7*I J+5+IY@@@@K"K@@@LR4@@@L48)@@AK )@@G@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@OO%[ZCO!4-6'PBL%O(P=<]W9P.:3^CQRA\5EQ4WH9IAL )@@G@@RH19V4]Z$GAM )@@G@@WH#B)_W&N9TIW_87\+XW;+5!X6EV@@@@@@@@@@@@@@@@@[AQ )@@G@@NL[HK*KV\:0)@@@@@@K[)@@@@@@@@@K^*@@@@@@@@@KB2@@@@@@@@@KE")@@@@@@@@KI$^@@AR )@@G@@@@@@@@KL05@@@@@@@@KO.]K@@@@@@@KS&DU@@@@@@@@@@@@@K^@@@@@@@@@@@@@@@@@@@@@@AS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ _____VAT )@@G@@PPPPPQE%%%%:EOUT$ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[AEV@@[@@@__"@@@R#@@@AAU )@@G@@(@@@@G/K@AFO:8@@@[/K@AFWAC0AF=R;@AF<'=@@@CN/)@@_/KB@@@A1@AF&R;@@@Q!@@@@#AV )@@G@@R#@@@#A\@AF&R#@AF&'=@@@I/K@AFMR;@@@I!@@@@#R#@@@#AF@AF$R#@AF$'=@@[S/K@AFMAW )@@G@@@@@@@@@]^AEV@@@@@@@[QAEV@@IAEV@[CAF( ILLEGAL EDITING FUNCTION AT LOCAX )@@G@@ATION @@@@@@ ILLEGAL JUMP AT @@@@@@ NEST LEVEL IS 0 @[BAF1@@@@@@@@@@@@AY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@K@@@@@@@@@@@#LAGB@]LAGS@]GAG(@]GAG5@[GAH[AZ )@@G@@ERROR WHILE READING TAPE FILE NO BLOCK NO BA )@@G@@ STATUS CODE *** AFC-THE INPUT CHARACTER COUNT OF BLOBB )@@G@@CK NO. , FILE , NO. WAS * THE OUBC )@@G@@TPUT COUNTS (IF DUPING) ARE: WORDS , CHARACTERS * RECOMMBD )@@G@@END THIS TAPE BE DUPED USING CPD BEFORE PROCEEDING FURTHER *** AN ODDBE )@@G@@ NR OF WORDS PER RECORD CAN CAUSE THIS ON A 9 TRACK DRIVE @@@@@@FILE BF )@@G@@ NO. BLOCK NO. SIZE = WORDS OR BG )@@G@@ CHARS@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@["@[YAH:@[ZAH:@@@@@@[[@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@^0@@@@@@[^[/@]JAHI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]FAI!@] AI8@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BJ )@@G@@@@@@@@@@@@@@@K@@@@@@W^[/@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BK )@@G@@@@@@@@@@@@@@@@@@@@THE HIGHEST TRACK REFERENCED OF FILE BL )@@G@@ IS THIS BEGINS AT SECTOR HAS AN AREA WHICHBM )@@G@@ HAS NOT BEEN WRITTEN INTO AT SECTOR @@@@@@ SECTOR BN )@@G@@@@@@@@ IS IN THE NEXT TRACK AREA WRITTEN INTO AFTER THE TRACK CONTAININGBO )@@G@@ SECTOR @@@@@@#_____@]NAJE@]HAI.@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@[M@P0@@@___@B9AC @@@___@@@___@@@___@@@___@@@___BQ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___'=@@@M[@@ACV[@KACW'=@@@?BS )@@G@@[@@ACX;C@@@Y;CK@@ST8@@@]9??AC89*)ACDCS@ACV[W@ACFCO@ACV[W@ACG[SKACHC?KACWBT )@@G@@[)KACHC*KACW[4KACICOKACW[SKACIC4@ACXC[?ACXG1)ACXC'@@[CC,KACXG'K@[@!]@@@PBU )@@G@@/K@@QJG'@@@^/K@@QF%]@@@P/K@@QQH8@@@#/C@@QP/@@@QP/K@@QQG9)@@[;P)@@=W9)@@BBV )@@G@@C,)ACXH')@@A/E)@QZ/])@QZG')@[=C'0@@O[Q0ACFC]K@@QG')@@[;Q)@@=W')@@^G'K@@^BW )@@G@@G]K@@Q;QK@@=W'K@@BG[0@@QC'@@@B?]@@@NH90@@BH90@@[T90@@]R@K@@N9?1AC%9*0ACBBX )@@G@@R#@ACV;C@@@G&8K@@]Q8K@@@N8K@[[2@[&DM/K@@Q_NCLADLR@-ADL&8)@@[&80@@[Q80ACLBY )@@G@@C@M)@@[@N)@@8KK@Q/C@@AJ.'=@@@I/KF@@@OCS/CPD 03D BZ )@@G@@ , 19 : : CA )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@;@@@@[U@@@@[8CB )@@G@@@@@@]R@@@@]5@@@@#O@@@@#3@@@@^L@@@@^0@@@@ I SUNDAY MONDAY TCC )@@G@@UESDAY WEDNESDAY THURSDAY FRIDAY SATURDAY JACD )@@G@@NUARY FEBRUARY MARCH APRIL MAY JUNE CE )@@G@@ JULY AUGUST SEPTEMBER OCTOBER NOVEMBER DECEMBER @@0101CF )@@G@@@@]AFO@@0105@@AAFR@@0120@@^AF<@@0131@@]AF*@@0202@@]AF:@@0212@@]AF,@@0214CG )@@G@@@@#AF1@@0220@@^AF5@@0222@@^AF'@@0229@@]AF_@@0305@@#AG]@@0315@@^AGA@@0317CH )@@G@@@@#AGF@@0320@@]AGJ@@0401@@]AGM@@0403@@#AGY@@0404@@#AGP@@0405@@^AGT@@0406CI )@@G@@@@ AG+@@0407@@AAG*@@0409@@BAG\@@0412@@#AG7@@0414@@^AG;@@0415@@]AH@@@0418CJ )@@G@@@@^AH#@@0419@@AAHC@@0501@@[AHJ@@0503@@ AHL@@0508@@[AHX@@0517@@^AHZ@@0526CK )@@G@@@@ AHR@@0606@@@AH=@@0610@@CAH>@@0617@@CAH,@@0618@@]AH7@@0625@@#AH'@@0704CL )@@G@@@@]AH"@@0714@@[AI[@@0720@@#AI#@@0806@@]AIB@@0814@@[AIE@@0826@@#AIG@@0827CM )@@G@@@@]AIK@@0830@@#AIN@@0901@@]AIR@@0902@@ AIU@@0914@@ AI)@@0925@@BAI:@@1001CN )@@G@@@@ AI3@@1005@@#AI9@@1009@@]AI.@@1012@@[AJ@@@1014@@#AJ]@@1024@@]AJA@@1029CO )@@G@@@@#AJD@@1031@@BAJH@@1111@@]AJP@@1119@@BAJS@@1129@@#AJ)@@1207@@]AJ=@@1214CP )@@G@@@@ AJ$@@1217@@^AJ!@@1221@@#AJ2@@1224@@#AJ6@@1225@@]AJ'HAPPY NEW YEAR CQ )@@G@@NELLIE ROSS FIRST WOMAN GOVERNOR 1925 ALEXANDER HAMILTON BORN 1757 CR )@@G@@PRESIDENTIAL INAUGURATION DAY EXPLORER 1--1958 GROUND HOG DAY A.LINCCS )@@G@@OLN--1809 ST. VALENTINE'S DAY JOHN GLENN'S FLIGHT--1962 GEORGECT )@@G@@ WASHINGTON'S BIRTHDAY LEAP-YEAR DAY. BPSTON MASSACRE - 1770 BEWARECU )@@G@@: THE IDES OF MARCH SAINT PATRICK'S DAY SPRING HAS SPRUNG APRIL CV )@@G@@FOOLS DAY JOHN NAPIER BORN 1550 POCAHONTAS MARRIED ROLFE 1614 NATO DCW )@@G@@AY (MAC GETS OFF)PEARY REACHES NORTH POLE IN 1909 OFFICIAL DATE OF CCX )@@G@@RUCIFIXION IN 30 A.D. APPOMATTOX DAY (THE SOUTH WILL RISE AGAIN) CY )@@G@@FIRING ON FORT SUMTER LINCOLN ASSASINATED, 1865 HAPPY IRS DAY CZ )@@G@@SAN FRANCISCO EARTHQUAKE 1906 TAXATION WITHOUT REPRESENTATION MEANS WAR DA )@@G@@MAY DAY POLAND ADOPTED CONSTITUTION 1791 FIRST AMERICAN BANK CHARDB )@@G@@TERED 1781 V-E DAY NORWEGIAN INDEPENDANCE DAY D-DAY WITHHOLDING DC )@@G@@TAX LAW SIGNED 1943 : EAT YOUR HEART OUT DON'T FIRE UNTIL YOU SEE THE WDD )@@G@@HITE'S OF THEIR EYES BATTLE OF WATERLOOCUSTER'S LAST STAND INDEPEDE )@@G@@NDENCE DAY. BASTILLE DAY1ST MAN ON THE MOON FRIENDSHIP DAY V-J DADF )@@G@@Y WOMEN'S SUFFRAGE--1920 FIRST OILWELL CLEOPATRA DIED 30 B.C. DG )@@G@@INVASION OF POLANDSURRENDER SIGNED, U.S.S. MISSOURI STAR-SPANGLED BANNDH )@@G@@ER WRITTEN--1814 BLACK FRIDAY IN N.Y. 1869 BALBOA DISCOVERS PACIFICDI )@@G@@ OCEAN 1513 !!!!!!! HAPPY NEW FISCAL YEAR (OCS DAY) HAPPY BIRTHDDJ )@@G@@AY DAVID LIEF ERIKSON DAY COLUMBUS DAYBATTLE OF HASTINGS, 1066UNITEDDK )@@G@@ NATIONS DAYSTOCK MARKET CRASH 1929 ALL HALLOWS EVE 'BET YOU THO'T IT WADL )@@G@@S HALLOWEEN ARMISTICE DAY FORE-SCORE AND SEVEN ... PERISH FROM THIS DM )@@G@@EARTH SAND CREEK MASSACRE 1864DAY-OF-INFAMY AMUNDSON REACHES SOUTH PDN )@@G@@OLE, 1911 FIRST POWERED FLIGHT--1903 PLYMOUTH ROCK STEPPED ONHAPPY DO )@@G@@BIRTHDAY ANITA MERRY CHRISTMAS @[QAC @@@@@@@H0@C@)UK@P0@@@___@[/^@@DP )@@G@@@@YA]F@ MA]3+@J^[/)@EA]()J;AC @@@___@@@___@@@___@@@___@@@___@@@___@@@___DQ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___DR )@@G@@@@@@@@9*@@CRB@KCI;*@@@]1@G^@@/K@@CSRB@KCIR;K@CS'=@@[DDT )@@G@@RB@@CIP;@@@]RBW@@@R#)@C&A#?@@@RFG@@]ABW@@@O;@@@[AB@@CHR#)@C>/K@@CG@@@@@@DU )@@G@@@@@@@@@@@@@@'^@@C@/,0^[:'=@@@3/@@@DB[@@A]QC8K@@[C0@A]Q=8@@@][4K^[9C?@A]QDV )@@G@@=8@@@K[=K^[9=8@@@^[)K^[9=8@@@[[?K^[9C=@A]QC8K@@[=8@@@C[4K^['=8@@@^[0K^['DW )@@G@@=8@@@)[0K^[9C@@AB,'=@@@HCC@^[9OF@^['/^@@DH[0K^[9R#@AB9'=@@@I/K@@DHR#@AB,DX )@@G@@'=@@@HC8K@@[[0K^[9R#@AB''=@@@IR#@AB,'=@@@HA\@A]4R#@A]4'=@@@IC!@A]4R;)@@@DY )@@G@@'^@@OC/@)@DHN8K@@H+@KAB;R#KAB/2C!&]U/K@@N-RB!A]TA#)A]NC!@A]4R;)@@['^@@OCDZ )@@G@@/@)@N-T8)@@AAR)@D<;^@@@@9*@A]O9*@@IX/K@Q]N9?@A]O9*@AB\R;@@@DA3@AB2R;@AB\EA )@@G@@'=@@@#'=@@@#R;@@@(A3@AB2R;@AB\'=@@@#'^@@PA*)@^[9/K@@G(/K@@DHC8@@@)A3@AB2EB )@@G@@9?@A]O9*@AB\R;@AB\'=@@@#'^@@P-'^@@PWC!@A]4R;)@@['^@@OC/@)@DH/K@@D-9?@A]OEC )@@G@@9*@A]SR#@AB.'=@@@JC!@A]4R;)@@['^@@OC/@)@DH/K@@D-R;@A]O'=@@[X/K@@DH @@^[4ED )@@G@@C!@A]4R;)@@['^@@OC/,0@N:/K@@ER[@K@@]'^@@N7C=@^[9>8@@@[/K@@E9/K@^[>9?@A]OEE )@@G@@9*@AB\R;@@@*A3@AB2C8@@E+[@@^[;/K@@E$(@@^[7/K@@E;R@)^[8 @@^[7/K@@JDR;@AB\EF )@@G@@'=@@@#'^@@O_R;@@@[:4@AB2/K@@E0()@^[9/K@@E;/K@@E$*@@^[4/K@@F]'^@@N''^@@PAEG )@@G@@*@@^[5/K@@K?*)@^[9/K@O[;/K@@DH8@)@EV/K@@DH8@)@E$/K@@DHC=@^[9=8@@@[/K@^[+EH )@@G@@[@)^[4/K@@EK @@^[4R;@@@(A3@AB2R;@AB\'=@@@#'^@@PI9?KA]O9*KA^)'^@@O-R#G@@]EI )@@G@@/,0^[BA@ A^$R#@A]3'=@@@I/K@@DHC!@A]4R;)@@['^@@OC @@A#]/,0@N:/K@@FT[@K@@]EJ )@@G@@'^@@N7C=@^[9=8@@@[/K@^[Z9?@A]O9*@AB\R;@@@(A3@AB2/K@@F/R;@AB\'=@@@#'^@@PIEK )@@G@@R;@@@[:4@AB2/K@@F!R;@@@]:4@AB2/K@@F7*)@^[9/K@@F-/K@@F/'^@@PP(@@A#]'^@@N'EL )@@G@@'^@@PW()@^[9/K@@DH8@)@F-R#@A#]/^@@L$/K@@DHR#@AB"'=@@@I'^@@PW'^@@P-/K@@DHEM )@@G@@8@)@F-/K@@DHC!@A]4R;)@@['^@@OC/@)@N-T8)@@AAR)@G^;^@@@@9*@@I$C!@A]4R;)@@[EN )@@G@@'^@@OC/,0@N:/K@@GH[@K@@]'^@@N79?@A]O9*@@OV*)@^[9/K@@GV/K@@GSC=@^[9/@@@GPEO )@@G@@[@@^[2'^@@OK'^@@O_'^@@G! @@^[28@)@GM/K@@DHC8@@G>[@@^[;R#@@@]:@@ABNR8)@@[EP )@@G@@/K@@G:'^@@OK'^@@O_'^@@G!/K@@G-R@) [/9?@@I$9*@A]O/K@@D*9?@@OV9*@A]O8@)@G-EQ )@@G@@/K@@DH/S@@@@*@@^[2/K@^[^9?@@I$9*@AB4RB@^[3AF@AB8R;@AB4'=@@@#R;@@@]:4@AB7ER )@@G@@/K@@G.R;@@@C!4@AB7/K@KG!/K@@HAR;@@@DA3@AB7R;@AB4'=@@@#R;@AB4'=@@[XR;@@@CES )@@G@@A3@AB7/K@KG!R;@A]6'=@@@I'=@@@)C!@A]4R;)@@['^@@OC/,0@N:/K@@HL[@K@@][@K^[1ET )@@G@@'^@@N79?@A]O9*@@OVC@@A]Q>8@@@^/K@@HUC@@AB_'=@@@IC@@AC@'=@@@IC8@@H3[@@^[;EU )@@G@@*)@^[9/K@@H4R#@@@]:@@ABNR8)@@[A@)^[1/K@@H4A@)^[1'^@@OK'^@@O_*4@^['/,0^[NEV )@@G@@*0@^['/,0^[T*0@^[9'^@^[W*4@^[9'^@^[K*?@^[9'^@^[Q()@^[9/K@@H4/K@@H<'^@@PWEW )@@G@@R@)^[18@)@H/S@@@@/^:@@[R@)AC]/KF@@@/S@@@@'^@@O_'^@@N''^@@PA*)@^[9GC )@@G@@/K@O[; @@^[2/K@@DH/S@@@@/,0^@"/K@KN7/S@@@@'^@@O-R#G@@]/,0^[BA@ AA:'^@@O-GD )@@G@@C@G@@#/,0^[B#@ AA09?@A]O9*@AA,C@@ABF'=@@@I/K@KN'/S@@@@/,0^[*@@[ [.@@@@@@GE )@@G@@@@@@@@@@@@@@@@@@@@/K@KOC/S@@@@A@) [/C=@^[9>8@@@[/K@@OU*@@^[2/K@@OU'^@^[[GF )@@G@@R@) [//K@KOK/,0^[,@@@@@@@@@@@@[@@^[/@@@@N\R@) [//K@KOK/S@@@@A]0A^/A#@A^.GG )@@G@@A#KA^"A#)A^_A#0A @[[@A [R]0A ]&]0AC#9?KA]O/%0@O!/K@@O29/VA #/K@@O:R;FA #GH )@@G@@ @@@@F/K@KO-R#@A ]R;GA #9*W@@@C9@@@^G[@A ][[@A ]!9@@@(/K@@O/ @@@@F/K@KO-GI )@@G@@R#@AC^'=@@@I'=@@@)/S@@@@'^@@O-R;K@@[O#W@@]A#W@@]'^@@P$/K@KO_/S@@@@'^@@O-GJ )@@G@@R;K@@[O#W@@#A#W@@# @G@@]'^@@P$/K@KPA/S@@@@'^@@O-R#W@@]P;K@@[A#W@@]'^@@P$GK )@@G@@/K@KPI/S@@@@'^@@O-R#W@@#P;K@@[A#W@@#'^@@P$/K@KPP/S@@@@'^@@O- @G@@]'^@@P$GL )@@G@@/K@KPW/S@@@@'^@@O-R;K@@[A#W@@#'^@@P$/K@KP-/S@@@@R]0A^/R#@A^.R#KA^"R#)A^_GM )@@G@@R#0A @C[@A [/K@KP$'=@@@D@@@@@@@P\@C@AC^^[1@@@@[Z)O@@@@@R[@P0AJ.AC @@@@[DGN )@@G@@)O@@@@@(V@P0AJZAC @@@@@G)O@@@@@%X@(WAJZAJ)@@@@@C)O@@@@@%+@(WAKYAJ)@@@@@]GO )@@G@@'^@@C@'^@@CI@ZH@@]'^@@C@'^@@CI@Z-@@]'^@@C@'^@@CI@ZW@@]'^@@C@'^@@CI@ZK@@]GP )@@G@@'^@@C@'^@@CI@Z5@@]'^@@C@'^@@CI@)?@@]'^@@C@'^@@CI@)\@@]'^@@C@'^@@CI@Y&@@]GQ )@@G@@'^@@C@'^@@CI@Y8@@]'^@@C@'^@@CI@YJ@@]'^@@C@'^@@CI@)]@@]'^@@C@'^@@CI@)$@@]GR )@@G@@'^@@C@'^@@CI@Z3@@]'^@@C@'^@@CI@ZQ@@]'^@@C@'^@@CI@%F@@^'^@@C@'^@@CI@$>@@]GS )@@G@@'^@@C@'^@@CI@(]@@]'^@@C@'^@@CI@(=@@^'^@@C@'^@@CI@(W@@^'^@@C@'^@@CI@P'@@]GT )@@G@@'^@@C@'^@@CI@O@@]GU )@@G@@'^@@C@'^@@CI@+3@@]'^@@C@'^@@CI@$S@@]'^@@C@'^@@CI@&5@@]'^@@C@'^@@CI@&7@@]GV )@@G@@'^@@C@'^@@CI@(=@@#'^@@C@'^@@CI@P0@@['^@@C@'^@@CI@-R@@]@@@@@@@@@@@@@@@@@@GW )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ GX )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@FREE DUP@F"GY )@@G@@PRT@HDPSF@EJPSB@FLTEF@D$TRW@D6FRE@E#PSE@E.CMP@H'OVW@K3CHK@MASWP@EGTRI@E#GZ )@@G@@@@@@@@@@@@@@@]DA^)@]@ [.@#^A :@]HA 5@]AAA^@#IAAR@#HAAE@]EA#<@]IA#!@]OA#;HA )@@G@@@]FA##@]HA#I@]CA#V@]JA^K#CLEAR@@@@@@ TAPE OVERWRITTEN WITH HB )@@G@@ BLOCKS OF 4096 WORDS ERROR ENCOUNTERED IN BLOCK HC )@@G@@ WHILE WRITING TO END OF TAPE. DRUM OVERWRITE CODE NOTHD )@@G@@ IMPLEMENTED SUCCESSFUL #CLEAR CHECK OF BLOCKS. HE )@@G@@ ERROR IN WORD OF BLOCK WHILE SEARCHING FHF )@@G@@OR #CHECK. ERROR STATUS RETURNED WHILE READING HG )@@G@@TAPE AT RECORD NUMBER . ONLY 0 OR 1 STATUS ACCEPTABLE. HH )@@G@@ WORDS READ IN BLOCK . 4096 WORDS EXPECTED - HI )@@G@@CHECK ERROR. FILE POSITIONED AFTER BLOCK . HJ )@@G@@ ** X OPTION SET. ONLY THE FIRST LINE ** ** OFHK )@@G@@ EACH RECORD WILL BE PRINTED. ** @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@HL )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@HM )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@HN )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@HO )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[ILLEGAL PARAMETER CARD EXCEEDED 10 HP )@@G@@FILE NAMES ON THIS RUN ERROR WHILE WRITING, COULD NOT CONTINUE LOAD PHQ )@@G@@OINT ENCOUNTERED WHILE MOVING BACKWARD FOLLOWING OPERATIONS NOT PERFOHR )@@G@@RMED DIFFERENT SIZE BLOCKS WERE READ FROM FILE AND FILE HS )@@G@@ FILE AND FILE DID NOT COMPARE STHT )@@G@@ARTING AT WORD ** END-OF-FILE WAS ENCOUNTERED IN BLOCK *FILEHU )@@G@@ *** NO. END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTERED ON HV )@@G@@FILE** AN END-OF-FILE WAS ENCOUNTERED BUT NOT EXPECTED IN BLOHW )@@G@@CK *** *** ON FILE @#GAA>@##ABO@#FAA1@#BABR@#JAA/@@@@@@HX )@@G@@@@@@@@@@@@@@#_____YOUR FILE COMPARESTHE CMP DIRECTIVE REQUIRES TWO FILE HY )@@G@@NAMES NO OPTIONS SPECIFIED, TAPE AND 'O' OPTION ASSUMED NO OPTIONS SHZ )@@G@@PECIFIED, 'O' OPTION ASSUMED @P\ [. @@@@@@@@@@@@[@@^[/ IA )@@G@@ @@@@@@@C@@@@@@@^[/@[BAB$@[DABY@@@___@@[@@@@@#A]R@]CA /@]DA^(@[DA^2IB )@@G@@ 1#_____@@@__;@]GA \CPDMAIN @@O@@^@@@@[ZFIRST @@Q@@^@@@@[DIC )@@G@@SECOND @@S@@^@@@@@GTHIRD @@U@@^@@@@@CFORTH @@W@@^@@@@@]ID )@@G@@@@@#@ @@@@[Z@@@]@ @@@@[D@@@]@ @@@@@G@@@]@ @@@@@C@@@]@ @@@@@]@@@@@@@@@@@@IE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IG )@@G@@AEDIT$ LL)CCFCONVERSION B:T AHCPD B:N AHDRUM B:Z AHIH )@@G@@EOUT$ N@2BECERU$ G^ FNFIDL$ E17EDBPRT B:; AHII )@@G@@SCAN B?@ AHSIGN B:1 AHTPRD$ B:& AH@@@@@@@@@@@@@@@@@@IJ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@$IBANK @@@@@E$DBANKIL )@@G@@ @@Y@@C@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IM )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#9@@#IN )@@G@@@@@@@MK@@[@^@@$@C@@@@@@A@@@[@^@HD@C$@@C@@GK@@[@^@CZ@P0@@C@@@K@@[@^@#C@YJIO )@@G@@@@C@@Y@@@[@^@[W@-R@@C@@P@@@[@^@^]@+3@@C@@D@@@[@^@]$@&5@@K@@#@@@[@^@[B@(WIP )@@G@@@@G@@S@@@[@^@[]@(W@@^@@V@@@[@^@[M@P0@@@@@A)@@@@ ]AO^[1@@C@@G0@@@@ @@[AC IQ )@@G@@@@C@@G0@@]@ @#3ACA@@C@@Y)@@@@ @[OAF9@@C@@P)@@@@ @[DAHH@@C@@D)@@@@ @[EAIQIR )@@G@@@@K@@#)@@@@ @@_AJ)@@^@@V)@@@@ @B9AC @@@@@@@@@@@@AECHAR$ @@D@@"AECLEAIS )@@G@@R$ @@D@[MAECOLN$ @@D@[HAECOL$ @@D@[[AECOPY$ @@D@[&AEDCFZIT )@@G@@$ @@D@]XAEDECF$ @@D@])AEDITR$ @@D@@RAEDITX$ @@D@@(AEDIT$IU )@@G@@ @@D@@@AEMSGR$ @@D@[3AEOCTF$ @@D@]SAEPACK$ @@D@[=AESKIPIV )@@G@@$ @@D@[BBLOCK @@Y@@FCDIMGE @@#@@&CLRFX @@#@G'CLRRX IW )@@G@@ @@#@G5CONVERT @@P@@\CPD @@#@@@DREAD @@M@@0DRPKT IX )@@G@@ @@!@@BDUPPNT @@Y@@[DWRTE @@M@]HEBD$X @@P@@CEBO$X IY )@@G@@ @@P@@@EOUT$ @@A@@EFILEN @@Y]@TPRD$ @@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@SAMECD @@@@@@SLT$ JG )@@G@@ @@@^@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@JH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@#9@@^JI )@@G@@*[S@@@*SDFF*@^@@@@NOT SYS$*RLIB$.REBD$ @ @@@@NOT SYS$*RLIB$.S$UTIL/AJJ )@@G@@LG @ @@@@NOT SYS$*RLIB$.OSTOR$/ALG @ @@@@NOT SYS$*RLIB$.O$UTIL/AJK )@@G@@LG64 @]@@@@SEG CPDMAIN@]@]@@IN CPD @]@@@]IN CPD/CPD @^@@@@SEG FJL )@@G@@IRST*,(CPDMAIN) @]@]@@IN SIGN @]@@@]IN SIGN/CPD@^@@@@SEG SECOND*JM )@@G@@,(CPDMAIN) @#@]@@IN TPRD$,PRT,DRUM@ @@@]IN TPRD$/CPD,PRT/CPD,DRUM/CPDJN )@@G@@@^@@@@SEG THIRD*,(SECOND) @]@]@@IN SCAN @#@@@]IN SCAN/CPD JO )@@G@@@^@@@@SEG FORTH*,(SECOND) @#@]@@IN CONVERSION @^@@@]IN CONVERSJP )@@G@@ION/CPD @]@@@@ENT CPD @[@@@[END ___CTKC)?C-ME(H 9#E[^^@)@ @@@@JQ )@@G@@ET C8)^[OD[DEL^ K? [NC(#D9IC)(@#[@@@DDI^@)^[NCT[D0)^@)@^@@[@DDI^@)^[NCT[JR )@@G@@D0\CTKC))^@)@ @@@@ET C8))@@[#]@P]@T]@X@K0@^G@@@@@@@@@@=8@@@]C0@]@>C8K@@[JS )@@G@@[@@]@>/@@@@S'=@@@@'^@@@@/,0@@@AA@^@K)@C[F#@[#@@K0@^G@[#@[#@@C=@]@>[?K@@CJT )@@G@@=8@@@[[)K@@C=8@@@^[=K@@C=8@@@KC?@]@>[4K@@CAB@^@K)@L[E^G@[#@@K0@K0@K)C@@@JU )@@G@@'=@@@@R#@] ![0K@@C=8@@@)[0K@@D=8@@@^[4K@@D=8@@@CC8K@@[AC@^@K)@U[##@[]@-#JV )@@G@@@[#@[]@>#@@K@@@@@@'^@@FYR;)@@@C!@][#'=@@@@R#@][#A\@][#'=@@@@R#@] !AD@^@KJW )@@G@@)@+[#@^G@^G@^G@^[#@[#@@@@@@@@@A#)]@+RB!]@*/K@@E62C!+@(R#K] 9+@K] 8N8K@@HJX )@@G@@/@)@@UAE@^@K)@%[F#@@K^@K[#@[@@@@@@@@9*@@ 29*@]@<;^@@@@AR)@@0T8)@@A/@)@E6JY )@@G@@'^@@FYR;)@@[C!@][#AF@^@K)@3[##@[#@[#@@K0@ES@CK CK @@@@'=@@@@'=@@@@R;@] ,JZ )@@G@@A3@] 1R;@@@D9*@] ,9?@]@8@@@[C=@@@C'^@@FH[@K@@]/K@@[=/,0@F[KF )@@G@@'^@@FYR;)@@[C!@][#AL@^@K)[&[#@K)HK0@K0@^G@])-)@@@@@@@@[@@@@EC8@@[\A3@] 1KG )@@G@@R;@@@*9*@] ,9?@]@@K^[@K^G@[@@@@@@'^@@FYR;)@@[C!@][#/K@@@U8@)@],/K@@@UKT )@@G@@'^@@G7'^@@G2'=@@@@AX@^@K)#I[N@^@K^G@[@K^@@/K@@#U/,0@F['^@@FYR;)@@[C!@][#KU )@@G@@9*@@ /;^@@@@AR)@#LT8)@@A/@)@E6AY@^@K)#S[EK^G@^[#@[@K^G@^@@@@/@@@#+C=@@@CKV )@@G@@/K@@#>/K@@#**)@@@C9*@@F19?@]@<'^@@FH[@K@@]AZ@^@K)#-[F#@[@K^[#@[@K])-)@@@KW )@@G@@[@@@@EC8@@#2/K@@@U8@)@#Z @@@@['^@@#''^@@GP'^@@F&[@@@@[BA@^@K)#%[EK0@^[@KKX )@@G@@^[@K0@@@@@@@R@)[@F/K@@#,'^@@#''^@@GP'^@@F&/K@@#8R8)@@[:@@] +R#@@@]BB@^@KKY )@@G@@)#3[F@K0@K^[#@[@K[#@@@@@*@@@@[/S@@@@/K@@@U8@)@#,9*@]@<9?@@F1/K@@@59*@]@#@@@@@@@@@C@@] .'=@@@@C@@] //K@@^$>8@@@^C@@]@>9*@@F19?@]@@K0@@@@@@@@@ @@] Z'^@@GW'=@@@@R#@] V'^@@FKLV )@@G@@/K@@A:(@@] Z'^@@GPBV@^@K)AZ[##@[@K^[#@[#@[]@>#@@@@@@@@A@)@@B'=@@@@R#@] WLW )@@G@@9*@] D9?@@ //K@@@U8@)@ \*)@@@CBW@^@K)A$[EK0@K0@K^[#@[@^C@K@@/,0@@@R#G@@]LX )@@G@@'^@@F79*@] S9?@@ //K@@[*R@)] _A#@@@AC8@@@[BX@^@K)A0[]()@-)@-@M)C]A@]A@@@LY )@@G@@@@@@@@C8@@@[A@)@@B9*@]@<9?@@ 2'^@@GW'=@@@@R#@] YA@ ] PBY@^@K)A8[##@[#@[@LZ )@@G@@^G@^[#@[@@@@@@@@@@/K@@BQ%C@] -/K@@BG:C@] )R;@ @^/K@@[*R@)] _A#@@@ABZ@^@KMA )@@G@@)B@[F#@@K0@K^G@[@K0@@@@@%8@@@#C@@]@6/K@@BQ%8@@@ C@@]@7/K@@BQ%^@] )H8@@@[MB )@@G@@RB@] -CA@^@K)BD[N@^[#@@K^G@[@@H;)@@[/K@@BQ%8@@@#R#@]@7/K@@BQ%8@@@ R#@]@6MC )@@G@@/K@@BPH;0@@[/K@@BQCB@^@K)BN[EK^[@K0@K^G@^G@^C]K@'=@@@@C@@][C9*@]^=9?@@ /MD )@@G@@9*@]^)9?@@ 2/K@@AD/K@@BQ%B)@@VCC@^@K)BW[#@K^G@^[#@@K)[ES@@@@@@@@@@A@ ]^3ME )@@G@@/,0@@@C@@@@J9*@]^:9?@@ /9*@]^$9?@@ 2/K@@B&CD@^@K)B=[##@[]@>@K0@K0@K0@K)MMF )@@G@@K0@@@@N@K] -'^@@@@AB@@@]R#@] )9*@]@<9?@@ 2'=@@@@C@@][BCE@^@K)B?[E()@ G@@MG )@@G@@K0@K0@K^G@@@9*@]@<9?@@ /AB@@@]R#@] -M#W)@@&;K@@[R;K@@F&;@@@[R;@[@UCF@^@KMH )@@G@@)B5[#][D@K0@K0@K0@K0@^G@@@@@@@[@K@@^C8K@@[R@)] _A@)@@B @@@@A9*@]@<9?@@ 2MI )@@G@@'^@@@@CG@^@K)B.[#@K0@K)DK^[#@@K0@@@@@@@@@@A#@@@AC8@@@[9*@]@<9?@@ //K@@@UMJ )@@G@@'=@@@@R#@] X/K@@[*CH@^@K)C [##@[#@[@K^G@[@K0@@@@@@@@@@9?@]@][!@K0@^[#@@@@@@@@@9?@]@][?^@()@-@O@@@@@@@@'=@@@@R;@] ,/K@@E=%@@@@HR;K@@['=@@@@'=@@@@ND )@@G@@R#@][JCY@^@K)EM[F#@@K[#@@()@-@O)CS@@9?@]@<'^@@G='=@@@@R;@] ,A3@] 1R;@@@(NE )@@G@@/K@@E=%@@@@HR7@] 1CZ@^@K)EV[##@[@^C@M&@]A@]^[E@@@@@@@@'^@@GW'=@@@@R#@][DNF )@@G@@A@ ][9/,0@@@R#G@@]'^@@F79*@][2DA@^@K)E<[#@K0@K0@K)[ES@C@-@]@@@@@@@/,0@@@NG )@@G@@R#G@@]'^@@F7A@ ]]J/,0@@@9*K]]E9?K]@@@@@@@@@@@/^:@@[/S@@@@/K@@E;'=@@@@R#@][#A\@][#'=@@@@NK )@@G@@R#@] !DE@^@K)F#[F#@@^[@K^G@^G@^G@@@@ @@@@[/K@K@E*)@@@C'^@@GW'^@@FK'^@@GPNL )@@G@@/S@@@@/KF@@@R@)] _DF@^@K)FG[F@^CBO@K[]@^()@@@@@@A@ ]^'/,0@@@R#G@@]'^@@F7NM )@@G@@/S@@@@/K@KFH/,0@@@/S@@@@/K@@@UDG@^@K)FP[#@^C@M&@]A@]A@]A@]^[C@@@@@'=@@@@NN )@@G@@C@@] U9*@]^.9?@]@<#@ ]^_/,0@@@C@G@@#'^@@F7DH@^@K)FX[N@^CB+&@@@)@@@/S@@@@NO )@@G@@/K@KFY@@@@@@@@@@@@@@@@@@@@@@@@@@[[@G/,0@@@/S@@@@/K@KFKDI@^@K)F$[##@[#@@KNP )@@G@@^G@^[][.#@@@@@@@@@R@)[@F'^@@@@/K@@F0*@@@@[/K@@F0>8@@@[C=@@@CA@)[@FDJ@^@KNQ )@@G@@)F\[F@K)U@()@YG@CS@C@@@@/S@@@@/K@KF&R@)[@F@@@@F [@@@@F@@@@@@@@@@@@/,0@@@NR )@@G@@/K@KF&DK@^@K)F8[##@[#@[#@[#@[#@[#@[#@[#@@@&]0]A@R]0]#L[[@]#KA#0]#JA#)]#INS )@@G@@A#K]#HA#@]#GA]0]#FDL@^@K)G@[F#@[@K^G@^[#@@K^G@@@R#@]#L/K@KF7 @@@@FR;F]#MNT )@@G@@/K@@G[9/V]#M/K@@GC/%0@G#9?K]@][^K@^@@@@@@@NV )@@G@@'^@@G.A#W@@]O#W@@]R;K@@['^@@F7/S@@@@'=@@@@'=@@@@R#@]A[DO@^@K)GV[N@^@@K^@NW )@@G@@@@@@@@/S@@@@/K@KGW'^@@G. @G@@]A#W@@#O#W@@#R;K@@['^@@F7/S@@@@/K@KGPDP@^@KNX )@@G@@)G>[N@@K^@K@@@@@@@P;K@@[R#W@@#'^@@F7/S@@@@/K@KG='^@@G.A#W@@]P;K@@[R#W@@]NY )@@G@@'^@@F7DQ@^@K)G\[MK^@K[@K[@@@@@'^@@F7/S@@@@/K@KG2'^@@G. @G@@]'^@@F7/S@@@@NZ )@@G@@/K@KG:'^@@G.A#W@@#DR@^@K)G9[E^[@^G@^G@^G@^G@@@@@R#)]#IR#K]#HR#@]#GR]0]#FOA )@@G@@/S@@@@/K@KG7'^@@G.A#W@@#R;K@@[DS@^@K)H]@<#@[#@[@K)V@@@)@@@)@@@@@@@@@@@@@OB )@@G@@@@@@@@@@@@@@@@@@@@'=@@@@/K@KG.C[@]#KR#0]#JDT@^@K)@^@8@@@@@@@+@U@S@ OC )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@DU@^@K+@X@*@@@@@@@OD )@@G@@+@&@)@()]@@@DUP@#F @FREE DV@^@KOE )@@G@@+@%@8()]O0[ES@>G@M&@DN@^()]@@@@@@@@@PSE@]EFRE@[KTRW@[#TEF@@4PSB@]YPSF@[WOF )@@G@@PRT@^QDW@^@K+@1@8()]O0[ES@>G@M&@C@@@@@@@8@@@@@@@@@@@@@@@@@@@TRI@[KSWP@[TOG )@@G@@CHK@DVOVW@CCCMP@ JDX@^@K+[][C* @* @* @* @*@@@@@@@]I][/@]E][2@#H]^T@#I]^&OH )@@G@@@]A]^N@]H]^^@#^]#'@]@[@G@]D]]\DY@^@K+[F[K* @* @*@@@@@@ TAPE OI )@@G@@@@@@@@#CLEAR@]J]]Z@]C][%@]H][X@]F][M@]O]]EDZ@^@K+[P[S@@@@@@@ ERROR OJ )@@G@@ RDS 096 WOS OF 4 BLOCK WITH ITTEN OVERWREA@^@K+[)[S@@@@@@@OK )@@G@@ TAPE.END OFNG TO WRITI WHILE OCK IN BLNTERED ENCOUEB@^@KOL )@@G@@+[:[S@@@@@@@SSFUL SUCCE MENTED IMPLEDE NOTITE COOVERWR DRUM OM )@@G@@ EC@^@K+[6[S@@@@@@@RD IN WO ERROR S. BLOCK ON )@@G@@ OF CHECK#CLEARED@^@K+][[S@@@@@@@ ECK. OR #CHHING F SEARCOO )@@G@@ WHILE OCK OF BL EE@^@K+]G[S@@@@@@@RD NUMT RECOTAPE AADING OP )@@G@@ILE RENED WH RETUR S STATU ERROREF@^@K+]R[S@@@@@@@ OQ )@@G@@ E. EPTABLUS ACC1 STAT 0 OR . ONLY BER EG@^@K+]+[S@@@@@@@OR )@@G@@CHECK TED - EXPEC WORDS. 4096 CK IN BLO READ WORDS EH@^@KOS )@@G@@+]![S@@@@@@@. BLOCK AFTER IONED POSIT FILE OT )@@G@@ERROR.EI@^@K+]8[S@@@@@@@ NE ** RST LITHE FI ONLY SET. OPTIONOU )@@G@@** X EJ@^@K+##[@@@@@@@@+#M@K@@@@@@@@@@@@@@@@@@@ ** NTED. OV )@@G@@BE PRI WILL RECORD EACH ** OFEK@^@K+#O[S@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@OW )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@EL@^@K+#Z[S@@@@@@@@@@@@[@@@@@@OX )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@EM@^@K+#%[S@@@@@@@OY )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@EN@^@KOZ )@@G@@+#5[S@@@@@@@ED 10 EXCEEDCARD METER L PARAILLEGA@@@@@[@@@@@@@@@@@@@@@@@@PA )@@G@@@@@@@[EO@^@K+^@[S@@@@@@@INUE T CONTULD NONG, CO WRITI WHILE ERROR RUN PB )@@G@@N THISAMES OFILE NEP@^@K+^F[S@@@@@@@ERATIOING OPFOLLOWRD BACKWAOVING PC )@@G@@HILE MERED WNCOUNTOINT ELOAD PEQ@^@K+^Q[S@@@@@@@ FILE D FROMRE REAPD )@@G@@CKS WEZE BLOENT SIDIFFERRMED PERFONS NOTER@^@K+^-[S@@@@@@@ LE PE )@@G@@AND FI FILE LE AND FI ES@^@K+^?[S@@@@@@@PF )@@G@@WAS EN-FILE END-OF RD ** AT WOARTINGARE STT COMPDID NO ET@^@KPG )@@G@@+^7[S@@@@@@@-FILE END-OFNO. *** *FILE BLOCKRED INPH )@@G@@COUNTEEU@^@K+ ][S@@@@@@@-OF-FIAN END FILE**ED ON OUNTEROT ENCPI )@@G@@ BUT NPECTEDWAS EXEV@^@K+ H[S@@@@@@@ FILE *** ON CK ***IN BLOECTED PJ )@@G@@OT EXP BUT NNTERED ENCOULE WASEW@^@K+ S[K])O])O])@@@@@@@@@@@@@@@@@@@@@@@PK )@@G@@@#J] F@#B] &@#F] @@##] <@#G]^4 EX@^@K+ +[S@@@@@@@NAMES FILE PL )@@G@@ES TWOREQUIRCTIVE P DIRETHE CMMPARESILE COYOUR F#_____EY@^@K+ ![K1)#E@@OPM )@@G@@@@@@@@@C@@@@@@@@@@ [@@@@F@@@@@@@@@@@@ @H [@GEZ@^@KPN )@@G@@+ 7[K*@O])O])@@@@@@@@__;#_____ 1@[D]#[@]D]]8@]C]^F@@#]@&@@[@@@@@@___PO )@@G@@@@@@@FFA@^@K+A[@C*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PP )@@G@@@@@@@@@@@@@@@]G]#"FB@^@K0@@@]@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@PQ )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@]G]#"FC@^@K@@@@@@)]O0[ES@>G@M&@C@@@@@@@8@@@@@@@PR )@@G@@@@@@@@@@@@@@TRI@[KSWP@[TCHK@DVOVW@CCCMP@ JDX@^@K@@^@@]@@A@@)@[A@@S@]&@@@PS )@@G@@@@@]A]@@@@HACD304500 EBD$X EBO$X CD363600 CD385400 PT )@@G@@SIGTUR TON$ OPT$ READ$ PRINT$ IOW$ PU )@@G@@CSF$ TSWAP$ PSFD PSED PSBD DWRTE PV )@@G@@ERR$ PRTO PRTAQ PRTHQ PRTA PRTH PW )@@G@@DRPKT SWITCH FACIT$ TPRD$ EXIT$ SNAP$ PX )@@G@@CONVERT SCAN DREAD CPD @@[@@@@@@@@@CDIMGE PY )@@G@@@@[@@@@@@@@USAMECD @C@@@@@@@@@@RITE @@[@@@@@@@#'F2NAM PZ )@@G@@@@[@@@@@@@ /EOFILE @@[@@@@@@@F PRTEFX @@[@@@@@@@FKGETSCN QA )@@G@@@@[@@@@@@@FYQGETAD @@[@@@@@@@F7INCRX @@[@@@@@@@GPINCFX QB )@@G@@@@[@@@@@@@GWDCRRX @@[@@@@@@@G=DCRFX @@[@@@@@@@G:CLRRX QC )@@G@@@@[@@@@@@@G2CLRFX @@[@@@@@@@G7DUPPNT @@@@@@@@@@@[NOWDS$ QD )@@G@@@@@@@@@@@@@]PERIOD @@@@@@@@@@@ OPTION @@@@@@@@@@@CBLOCK QE )@@G@@@@@@@@@@@@@FCDADDR @@@@@@@@@[@GFILEN @@@@@@@@@]@PPKT @@@@@@@@@][#@@@@@@@@@@@@)@@[F]@[#@[#@[]@ #@@[#@@QG )@@G@@9??@@3T8@@@];CK@@S;C@@@Y[@@@@S'=@@@@[@K@@R[@@@@Q'=@@@@AA@^@K)@D[##@[#@[#QH )@@G@@@[#@[#@[#@[#@[#@@@[)K@@CC?K@@R[SK@@C[W@@@BCO@@@Q[W@@@ACS@@@Q9*)@@^AB@^@KQI )@@G@@)@L[##@[#@[#@[#@[#@[#@[#@@@@@@C'@@[CG1)@@SC[?@@SC4@@@S[SK@@DCOK@@R[4K@@DQJ )@@G@@C*K@@RAC@^@K)@T[N#@@^@K[@^@@@@/C@@@>H8@@@#/K@@@&%]@@@P/K@@@VG'@@@^/K@@@ZQK )@@G@@!]@@@PG'K@[@C,K@@SAD@^@K)@<[N@K@^G@[@K@@@@G')@[=/])@@\/E)@@\H')@@AC,)@@SQL )@@G@@W9)@@B;P)@@=G9)@@[/K@@@&/@@@@>AE@^@K)@![UK0@@@@@G[0@@QW'K@@B;QK@@=G]K@@QQM )@@G@@G'K@@^W')@@^;Q)@@=G')@@[C]K@@Q[Q0@@AC'0@@OAF@^@K)@8[M@[#@[#@[#@@@@;C@@@GQN )@@G@@R#@@@Q9*0@@]9?1@@>R@K@@NT90@@]H90@@[H90@@B?]@@@NC'@@@BAG@^@K)[][E[#@[@K0QO )@@G@@@K0@@@@@@@@@&80@@[&8)@@[R@-@[GNCL@[G/K@@[J2@[)[HN8K@[[Q8K@@@&8K@@]AH@^@KQP )@@G@@)[F@'()@]@-)@-@^@@)@@@K@D 03FBPD/CP/KF@@@'=@@@@C@@@B88KK@[G[@N)@@C@M)@@QQ )@@G@@Q80@@GAI@^@K)@][S@@@@@@@ : : , 19 QR )@@G@@ AJ@^@K)@H[S@@@@@@@@@@@@@@@@@@@ QS )@@G@@ AK@^@K)@S[S@@@@@@@@@@@^L@@@@#3@@@@#O@@@@]5QT )@@G@@@@@@]R@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@AL@^@K)@<[S@@@@@@@ THNESDAYQU )@@G@@ WEDUESDAY TMONDAY SUNDAY @@@@ I@@@@^0AM@^@K)@,[S@@@@@@@QV )@@G@@RUARY FEBNUARY JA TURDAY SAFRIDAY URSDAYAN@^@KQW )@@G@@)@9[S@@@@@@@ A JULY JUNE MAY APRIL MARCH QX )@@G@@ AO@^@K)[^[S@@@E@@@@@]@#J@@0101EMBER DECEMBER NOVTOBER OCQY )@@G@@EMBER SEPTUGUST AP@^@K)[J[KE@O@*[K])@@@@@@]@#(@@0212@@]@#&@@0202@@]@#80@@^C@0@@@/S@@@@/K@@@DAD@^@KTA )@@G@@)@=[EK^G@[@FKCC]^]EA@@@@A#@@@LRB@@@@AB@@@8R;@__\AB@@@9R;@@@] @@@@K'^@@#ZTB )@@G@@/S@@@@AE@^@K)@![EK^[@K^@K^C^)@@@@@@@/,0@@@AB@@@8O;@@@KRB@@@8A\@@@7/K@K@=TC )@@G@@/,)@#Q'^@@[@R;@@@KAF@^@K)@6[F#@@Y)K[#@[#@@K@@@@@AB@@@9R;@@@[A#@@@KO#@@@KTD )@@G@@R;@@@KKQ@@@[EA[J_\&CK@@[^^J@@KAG@^@K)@_[F@^C^1@K0@K^G@^@@@@@/K@K[@[@@@@LTE )@@G@@/K@K[@!@@@@L/K@K[@>80@@^C@0@@@/S@@@@/K@@@!AH@^@K)[C[EK^G@[@FKCC]^]EA@@@@TF )@@G@@A#@@@LRB@@@@AB@@[WR;@__\AB@@[XR;@@@] @@@@K'^@@#Z/S@@@@AI@^@K)[L[EK^[@K^@TG )@@G@@K^C^)@@@@@@@/,0@@@AB@@[WO;@@@KRB@@[WA\@@[V/K@K[C/,)@#Q'^@@[=R;@@@KAJ@^@KTH )@@G@@)[U[F#@@Y)K[#@[#@@K@@@@@AB@@[XR;@@@[A#@@@KO#@@@KR;@@@KKQ@@@[EA[J_\&AK@@[TI )@@G@@^^J@@KAK@^@K)[<[F@^C^1@K0@K^G@^@@@@@/K@K[=[@@@@L/K@K[=!@@@@L/K@K[=>80@@^TJ )@@G@@C@0@@@/S@@@@/K@@[LAL@^@K)[?[N@K^G@^C^L@^@@N@)@@GP;@@@[/,0@#/C8K@@O/K@@]ZTK )@@G@@(@@@@GC^@@@@ @@@@K'^@@#ZA]0@#OAM@^@K)[6[##@[#@@()@-@@-)@CK#CS@@@@@C@@@@KTL )@@G@@/,0@@@C8K@@^C@@@@K/,0@@@C/@@@RA])@@@R])@@.AN@^@K)["[EK0@[]@L#@[#@@K0@@@@TM )@@G@@[@@@@NC@E@@@9?K@@OR])@@@/,0@@@C/@@@[N80@@N[@@@@KO;@@@OAO@^@K)]B[E^G@[#@@TN )@@G@@K0@^G@@@@@@@[O@@@N,OU)@@[S@@@N,SU@@@[K@@@N,KU@@@[W@@@N,WU@@@C8@@[WAP@^@KTO )@@G@@)]K[##@[#@@K)D^C[^[]@?@@@@@@@@/,0@@@8K0@]W/,0@@@C/@@@[/,0@@@C8K@@^C8@@@NTP )@@G@@A])@@@AQ@^@K)]S[F#@[][L@K^@K^@@@@@@@/KF@@@R]0@#O/K@@]RN8)@@@8K)@]#/K@@]ZTQ )@@G@@8K)@[8'=@@@@C@@@@QAR@^@K)]-[N@K^G@^C^L@^@@N@)@@GP;@@@[/,0@#/C8K@@O/K@@#MTR )@@G@@(@@@@GC^@@@@ @@@@K'^@@#ZA]0@#PAS@^@K)]:[##@[#@@()@-@@-)@CK#CS@@@@@C@@@@KTS )@@G@@/,0@@@C8K@@^C@@@@K/,0@@@C/@@@RA])@@@R])@@.AT@^@K)]3[EK0@[]@L#@[#@@K0@@@@TT )@@G@@[@@@@NC@E@@@9?K@@OR])@@@/,0@@@C/@@@[N80@@N[@@@@KO;@@@OAU@^@K)]/[E^G@[#@@TU )@@G@@K0@^G@@@@@@@[O@@@N,OU)@@[S@@@N,SU@@@[K@@@N,KU@@@[W@@@N,WU@@@C8@@[WAV@^@KTV )@@G@@)# [##@[#@@K)DK^C]4G@^C @@@@@@'=@@@@C@@@@Q/,0@@@8K0@#J/,0@@@C8K@@^C8@@@NTW )@@G@@A])@@@AW@^@K)#H[N@K^@K^@[#@@@@C@K@@L@@@@@@@@@@@@/KF@@@R]0@#P/K@@#EN8)@@@TX )@@G@@8K)@]8/K@@#M8K)@]!AX@^@K)#R[M^[#@@^G@@K)P@'^@@@@/S@@@@/KE@@[[@)@@L/KE@@[TY )@@G@@C@@@@H @@@@L/C)@#XL@K@@G/@U@@@AY@^@K)#-[F#@@K0@K0@^C#+&@]A@@C@G@@]C@@@@MTZ )@@G@@#@ @@^/,0@@@C^G@@#C@@@@M9*@@@]9?G@@@[@@@@MAZ@^@K)#%[#]@8()@-@+-@WO0@K)L^UA )@@G@@C^K@@@C?)@@@T8@@@AC^@@@@A@ @@F/,0@@@C^@@@@A@ @@C/,0@@@BA@^@K)#2[EK[][^K)UB )@@G@@IES@CS@CKF@@'=@@@@C@@@@"A@ @@I/,0@@@P#@@@HP7K@@@C8K@@A/K@@#7%8)@@^BB@^@KUC )@@G@@)#;@;@K)N@@@)@@@S@ FILE @@@@@@/KF@@@C@@@@H!@@@@H/KF@@@>80@@^C@0@@@UD )@@G@@/K@K#ZBC@^@K)@#[S@@@@@@@ OR WORDS SIZE = NO. BLOCK UE )@@G@@ NO. BD@^@K)@I[S@@])O@@@@@@@@@[Z@@Y@[Y@@Y@@@@["@@@@@Z@@@@@@UF )@@G@@@@@@@@@@@@@@@@@@@@ CHARS BE@^@K)@T@*@@@@@@@)@.@K(@)O@@@@@@@@@@@@@@@UG )@@G@@@]J@@[@@[@@@^0@@@@@@@@@@@@@@@@@@@@@@[[@@@@BF@^@K@@^@@]@@A@@R@@4@@C@[O@@@UH )@@G@@@@@@[D@@@@^]AEDIT$ AEDITR$ AECHAR$ AECOL$ AESKIP$ UI )@@G@@AECLEAR$ AEOCTF$ AEDECF$ AEDCFZ$ AECOPY$ AEPACK$ UJ )@@G@@AEDITX$ AECOLN$ AEMSGR$ EBD$X EBO$X BLOCK UK )@@G@@NOWDS$ EOUT$ TEMP APRINT$ QGETAD PRINT$ UL )@@G@@PRTO @@[@@@@@@@@@PRTA @@[@@@@@@@@=PRTH @@[@@@@@@@[CUM )@@G@@PRTAQ @@[@@@@@@@[?AEDITPKT @@@@@@@@@@@RPRTHQ @@[@@@@@@@]-UN )@@G@@AEBUF @@@@@@@@@@@YONEBLOCK @@@@@@@@@@@.*[S@@@*SDFF*@]@[@@@ELT,SUO )@@G@@W SIGN@#@@@[@ASM,USW SIGN @H@@@@-0/119,119 SIGN UP )@@G@@ . 03D @H@@@@SIG 'OCS/CPD 03D' UQ )@@G@@ . SIGNATURE PACKET . 03D @H@@@@-0/177 UR )@@G@@ SIGN . 03D @H@@@@US )@@G@@ SP '0105',E0105-B0105,B0105 . UT )@@G@@. 03D @H@@@@-0/189 SIGN UU )@@G@@ . 03D @H@@@@ SP '0404',E0404-B0404,B0404 UV )@@G@@ . 03D @H@@@@ SP '0405',E0405-B040UW )@@G@@5,B0405 . 03D @H@@@@-0/195 SIGNUX )@@G@@ . 03D @H@@@@ SP UY )@@G@@ '0418',E0418-B0418,B0418 . . 03D @H@@@@UZ )@@G@@-0/197 SIGN VA )@@G@@. 03D @H@@@@ SP '0503',E0503-B0503,B0503 . VB )@@G@@ . 03D @H@@@@-0/199 SIGN VC )@@G@@ . 03D @H@@@@ SP '0526',E0526-B052VD )@@G@@6,B0526 . . 03D @H@@@@-0/202 SIGNVE )@@G@@ . 03D @H@@@@ SP VF )@@G@@ '0625',E0625-B0625,B0625 . . 03D @H@@@@VG )@@G@@-0/210 SIGN VH )@@G@@. 03D @H@@@@ SP '0830',E0830-B0830,B0830 . VI )@@G@@ . 03D @H@@@@-0/213 SIGN VJ )@@G@@ . 03D @H@@@@ SP '0925',E0925-B092VK )@@G@@5,B0925 . . 03D @H@@@@-0/217 SIGNVL )@@G@@ . 03D @H@@@@ SP VM )@@G@@ '1029',E1029-B1029,B1029 . . 03D @H@@@@VN )@@G@@-0/220 SIGN VO )@@G@@. 03D @H@@@@ SP '1129',E1129-B1129,B1129 . VP )@@G@@ . 03D @H@@@@-0/224 SIGN VQ )@@G@@ . 03D @H@@@@ SP '1224',E1224-B122VR )@@G@@4,B1224 . . 03D @H@@@@-0/228 SIGNVS )@@G@@ . 03D @H@@@@B0105 'NVT )@@G@@ELLIE ROSS FIRST WOMAN GOVERNOR 1925' . 03D @H@@@@VU )@@G@@E0105 . VV )@@G@@. 03D @H@@@@B0111 'ALEXANDER HAMILTON BORN 1757' VW )@@G@@ . 03D @H@@@@E0111 . VX )@@G@@ . 03D @H@@@@-0/250 SIGN VY )@@G@@ . 03D @H@@@@B0404 'JOHN NAPIER BVZ )@@G@@ORN 1550' . 03D @H@@@@E0404 . WA )@@G@@ . 03D @H@@@@WB )@@G@@B0405 'POCAHONTAS MARRIED ROLFE 1614' WC )@@G@@. 03D @H@@@@E0405 . WD )@@G@@ . 03D @H@@@@-0/264 SIGN WE )@@G@@ . 03D @H@@@@B0418 'SAN FRANCISCO EARTHQUAKE WF )@@G@@1906' . 03D @H@@@@E0418 . WG )@@G@@ . 03D @H@@@@-0/268 WH )@@G@@ SIGN . 03D @H@@@@WI )@@G@@B0503 'POLAND ADOPTED CONSTITUTION 1791' WJ )@@G@@. 03D @H@@@@E0503 . WK )@@G@@ . 03D @H@@@@B0526 'FIRST AMERICAN BANK CHARTERED 1781' WL )@@G@@ . 03D @H@@@@E0526 . WM )@@G@@ . 03D @H@@@@-0/278 SIGNWN )@@G@@ . 03D @H@@@@B0625 'CWO )@@G@@USTER''S LAST STAND' . 03D @H@@@@WP )@@G@@E0625 . WQ )@@G@@. 03D @H@@@@-0/294 SIGN WR )@@G@@ . 03D @H@@@@B0830 'CLEOPATRA DIED 30 B.C.' WS )@@G@@ . 03D @H@@@@E0830 WT )@@G@@ . 03D @H@@@@-0/300 SIGNWU )@@G@@ . 03D @H@@@@B0924 'BWV )@@G@@LACK FRIDAY IN N.Y. 1869' . 03D @H@@@@WW )@@G@@E0924 . WX )@@G@@. 03D @H@@@@B0925 'BALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' WY )@@G@@ . 03D @H@@@@E0925. WZ )@@G@@ . 03D @H@@@@-0/308 SIGN XA )@@G@@ . 03D @H@@@@B1029 'STOCK MARKET XB )@@G@@CRASH 1929' . 03D @H@@@@E1029 . XC )@@G@@ . 03D @H@@@@XD )@@G@@-0/314 SIGN XE )@@G@@. 03D @H@@@@B1129 'SAND CREEK MASSACRE 1864' XF )@@G@@ . 03D @H@@@@E1129 . XG )@@G@@ . 03D @H@@@@-0/322 SIGN XH )@@G@@ . 03D @H@@@@B1224 'HAPPY BIRTHDAXI )@@G@@Y ANITA' . 03D @H@@@@E1224 . XJ )@@G@@ . 03D @H@@@@XK )@@G@@-0/54,57 DRUM XL )@@G@@. 03D @H@@@@ SLJ QGETAD . GET LATEST FILE DATAXM )@@G@@ ADDRESS . 03D @H@@@@ LA A1,2,A0 . PICK UP XN )@@G@@DRUM ADDRESS . 03D @H@@@@ SA A1,DRPKT+5 XO )@@G@@ . SAVE IN DRUM PACKET . 03D @H@@@@ LA,H1 A8,3XP )@@G@@,A0 . TEST TO SEE IF WE HAVE ENTERED . 03D @H@@@@ SAXQ )@@G@@ A8,MAXSEC . SAVE IN MAXIMUM RECORD TO READ . 03D @H@@@@XR )@@G@@ JNZ A8,DREADA+1 . BEFORE (PARAMETERS ARE ALREADY SEXS )@@G@@. 03D @H@@@@ LA A8,A0 . SAVE A0 FOR LATER XT )@@G@@ . 03D @H@@@@-0/65,65 DRUM XU )@@G@@ . 03D @H@@@@ SA A8,MAXSEC XV )@@G@@ . . 03D @H@@@@ LA A8,AXW )@@G@@0 . . 03D @H@@@@ LAXX )@@G@@ A0,MAXSEC . . 03D @H@@@@XY )@@G@@ SA,H1 A8,3,A0 . XZ )@@G@@. 03D @H@@@@ S A8,MAXSEC . SECTORS TO READ MUST YA )@@G@@BE LESS THAN. 03D @H@@@@-0/105 DRUM YB )@@G@@ . 03D @H@@@@ SLJ QGETAD YC )@@G@@ . GET FILE DATA . 03D @I@@@@ LA A1,2YD )@@G@@,A0 . DRPKT+5 . 03D D VA@H@@@@ YE )@@G@@ SA A1,2,A0 . SAVE IT AWAY . 03D YF )@@G@@@H@[@@@ELT,SW PRT YG )@@G@@ . 03D @H@@@[@ASM,USW PRT YH )@@G@@ . 03D@H@@@@-0/12 PRT YI )@@G@@ . 03D @H@@@@. ALPHA PRINT ROUTINE WORDSYJ )@@G@@ SEPERATED . 03D @H@@@@PRTAQ* . YK )@@G@@ . 03D @H@@@@ YL )@@G@@ SX X11,PRTAQX11 . . 03D YM )@@G@@@H@@@@ SLJ HDR . PRINT OUT GENERAL HEADER YN )@@G@@ . 03D @H@@@@ SZ C$TR . CLEAR OCTAL LIYO )@@G@@NE COUNTER . 03D @H@@@@ LA A0,NOWDS$ . GEYP )@@G@@T NUMBER OF WORDS IN BUFFER . 03D @H@@@@ TNZ A0 YQ )@@G@@ . IF NONE QUIT YOU TURKEY . 03D @H@@@@ J YR )@@G@@ EXPRTAQ . RETURN TO SENDER . 03D @H@@@@ YS )@@G@@ LA,U A1,20 . LENGTH OF LINE . 03D YT )@@G@@@H@@@@ LMJ X11,XOPT . TEST IF X OPTION ON YU )@@G@@ . 03D @H@@@@ AN,U A0,1 . SUBTRACT ONE FYV )@@G@@OR THE GREAT JGD . 03D @H@@@@ LR R2,A0 . OKYW )@@G@@ HERE WE GO . 03D @H@@@@ LX X10,ONEBLOYX )@@G@@CK . SET FOR LOOP INDEXING . 03D @H@@@@ SX YY )@@G@@ X10,SAVEX10 . 03D @H@@@@Q$LOOPYZ )@@G@@2 A$EDIT AEDITPKT . ENTER ASCII EDITOR . 03D ZA )@@G@@@H@@@@ A$EOCTF 4,C$TR . PRINT IN OCTAL THE LINE NZB )@@G@@UMBER . 03D @H@@@@ LA A0,C$TR . ZC )@@G@@ . 03D @H@@@@ A,U A0,20 . ADD INZD )@@G@@CREMENT . 03D @H@@@@ SA A0,C$TR ZE )@@G@@ . SAVE INCREMENTED COUNTER . 03D @H@@@@Q$LOOP3 LR,U ZF )@@G@@ R3,20-1 . WORDS PER LINE . 03D @H@@@@ ZG )@@G@@ A$ESKIP 1 . SKIP ONE COLUMN . 03D ZH )@@G@@@H@@@@Q$LOOP4 . ZI )@@G@@ . 03D @H@@@@ LX X10,SAVEX10 . ZJ )@@G@@ . 03D @H@@@@ DL A1,RANGE . 03ZK )@@G@@7,0176 . 03D @H@@@@ LA A0,0,X10 ZL )@@G@@ . GET FIRST WORD . 03D @H@@@@ SA ZM )@@G@@ A0,W$ORD . . 03D @H@@@@ ZN )@@G@@ LA,U A0,0134 . SUBSTITUTE CHARACTER . 03D ZO )@@G@@@H@@@@ TW,Q1 A1,0,X10 . CHECK FIRST CHARACTER ZP )@@G@@ . 03D @H@@@@ SA,Q1 A0,W$ORD . PUT IT BACK ZQ )@@G@@ . 03D @H@@@@ TW,Q2 A1,0,X10 . CHZR )@@G@@ECK SECOND CHARACTER . 03D @H@@@@ SA,Q2 A0,W$ORD ZS )@@G@@ . PUT IT BACK . 03D @H@@@@ TW,Q3 ZT )@@G@@ A1,0,X10 . THIRD CHARACTER . 03D @H@@@@ ZU )@@G@@ SA,Q3 A0,W$ORD . PUT IT BACK . 03D ZV )@@G@@@H@@@@ TW,Q4 A1,0,*X10 . FOURTH CHARACTER ZW )@@G@@ . 03D @H@@@@ SA,Q4 A0,W$ORD . PUT IT BACK ZX )@@G@@ . 03D @H@@@@ SX X10,SAVEX10 . ZY )@@G@@ . 03D @H@@@@ A$ECOPY 4,W$ORD ZZ )@@G@@ . MOVE IT TO OUTPUT BUFFER . 03D @H@@@@ A$ESKIP AA )@@G@@ 1 . SKIP ONE COLUMN . 03D @H@@@@ AB )@@G@@ JGD R3,QE$LOOP2 . . 03D AC )@@G@@@H@@@@QE$LOOP1 A$EDITX . TERMINATE ASCII EDITOR AD )@@G@@ . 03D @H@@@@ LA A0,AEPRINT . (PF 1,30,AEBUFAE )@@G@@) . 03D @H@@@@ ER APRINT$ . AF )@@G@@ . 03D @H@@@@ JGD R2,Q$LOOP2AG )@@G@@ . . 03D @H@@@@ J AH )@@G@@ EXPRTAQ . RETURN TO SENDER . 03D @H@@@@QE$LOOAI )@@G@@P2 JGD R2,Q$LOOP4 . GET NEXT WORD . 03D AJ )@@G@@@H@@@@ LR,U R2,0 AK )@@G@@ . 03D @H@@@@ J QE$LOOP1 AL )@@G@@ . 03D @H@@@@EXPRTAQ LX X11,PRTAQX11 . AM )@@G@@ . 03D @H@@@@ J 0,X11 AN )@@G@@ . . 03D @H@@@@. AO )@@G@@ . 03D @H@@@@. ALPHAP )@@G@@A PRINT HARD TO READ JAMMED TO GETHER . 03D AQ )@@G@@@H@@@@PRTHQ* . AR )@@G@@ . 03D @H@@@@ SX X11,PRTHQX11 . AS )@@G@@ . 03D @H@@@@ SLJ HDR . PRAT )@@G@@INT OUT GENERAL HEADER . 03D @H@@@@ SZ C$TR AU )@@G@@ . CLEAR OCTAL LINE COUNTER . 03D @H@@@@ LA AV )@@G@@ A0,NOWDS$ . GET NUMBER OF WORDS IN BUFFER . 03D @H@@@@ AW )@@G@@ TNZ A0 . IF NONE QUIT YOU TURKEY . 03D AX )@@G@@@H@@@@ J EXPRTHQ . RETURN TO SENDER AY )@@G@@ . 03D @H@@@@ LA,U A1,20 . AZ )@@G@@ . 03D @H@@@@ LMJ X11,XOPT . TEBA )@@G@@ST IF X OPTION ON . 03D @H@@@@ AN,U A0,1 BB )@@G@@ . SUBTRACT ONE FOR THE GREAT JGD . 03D @H@@@@ LR BC )@@G@@ R2,A0 . OK HERE WE GO . 03D @H@@@@ BD )@@G@@ LX X10,ONEBLOCK . SET FOR LOOP INDEXING . 03D BE )@@G@@@H@@@@ SX X10,SAVEX10 . BF )@@G@@ . 03D @H@@@@H$LOOP2 A$EDIT AEDITPKT . ENTER ASCII EBG )@@G@@DITOR . 03D @H@@@@ A$EOCTF 4,C$TR . PBH )@@G@@RINT IN OCTAL THE LINE NUMBER . 03D @H@@@@ LA A0,C$TR BI )@@G@@ . . 03D @H@@@@ A,U BJ )@@G@@ A0,20 . ADD INCREMENT . 03D @H@@@@ BK )@@G@@ SA A0,C$TR . SAVE INCREMENTED COUNTER . 03D BL )@@G@@@H@@@@H$LOOP3 LR,U R3,20-1 . WORDS PER LINE BM )@@G@@ . 03D @H@@@@ A$ESKIP 1 . SKIP ONE COLUBN )@@G@@MN . 03D @H@@@@H$LOOP4 . BO )@@G@@ . 03D @H@@@@ LX X10,SAVEX1BP )@@G@@0 . . 03D @H@@@@ DL BQ )@@G@@ A1,RANGE . 037,0176 . 03D @H@@@@ BR )@@G@@ LA A0,0,X10 . GET FIRST WORD . 03D BS )@@G@@@H@@@@ SA A0,W$ORD . BT )@@G@@ . 03D @H@@@@ LA,U A0,0134 . SUBSTITUTE CHABU )@@G@@RACTER . 03D @H@@@@ TW,Q1 A1,0,X10 . CHBV )@@G@@ECK FIRST CHARACTER . 03D @H@@@@ SA,Q1 A0,W$ORD BW )@@G@@ . PUT IT BACK . 03D @H@@@@ TW,Q2 BX )@@G@@ A1,0,X10 . CHECK SECOND CHARACTER . 03D @H@@@@ BY )@@G@@ SA,Q2 A0,W$ORD . PUT IT BACK . 03D BZ )@@G@@@H@@@@ TW,Q3 A1,0,X10 . THIRD CHARACTER CA )@@G@@ . 03D @H@@@@ SA,Q3 A0,W$ORD . PUT IT BACK CB )@@G@@ . 03D @H@@@@ TW,Q4 A1,0,*X10 . FCC )@@G@@OURTH CHARACTER . 03D @H@@@@ SA,Q4 A0,W$ORD CD )@@G@@ . PUT IT BACK . 03D @H@@@@ SX CE )@@G@@ X10,SAVEX10 . . 03D @H@@@@ CF )@@G@@ A$ECOPY 4,W$ORD . . 03D CG )@@G@@@H@@@@ JGD R3,HE$LOOP2 . CH )@@G@@ . 03D @H@@@@HE$LOOP1 A$EDITX . TERMINATE ASCCI )@@G@@II EDITOR . 03D @H@@@@ LA A0,AEPRINT . (PCJ )@@G@@F 1,30,AEBUF) . 03D @H@@@@ ER APRINT$ CK )@@G@@ . . 03D @H@@@@ JGD CL )@@G@@ R2,H$LOOP2 . GO FOR NEXT LINE . 03D @H@@@@ CM )@@G@@ J EXPRTHQ . RETURN TO SENDER . 03D CN )@@G@@@H@@@@HE$LOOP2 JGD R2,H$LOOP4 . GET NEXT WORD CO )@@G@@ . 03D @H@@@@ LR,U R2,0 CP )@@G@@ . 03D @H@@@@ J HE$LOOP1 CQ )@@G@@ . 03D @H@@@@. CR )@@G@@ . 03D @H@@@@EXPRTHQ LX CS )@@G@@ X11,PRTHQX11 . . 03D @H@@@@ CT )@@G@@ J 0,X11 . . 03D CU )@@G@@@H@@@@PRTAQX11 + 0 CV )@@G@@ . 03D @H@@@@PRTHQX11 + 0 CW )@@G@@ . 03D @H@@@@-0/29,29 PRT CX )@@G@@ . 03D @H@@@@ LA,H2 A0,3,A0 CY )@@G@@ . LOAD FILENUMBER . 03D @H@@@@-0/48,48 CZ )@@G@@ PRT . 03D @H@@@@XOPT DA )@@G@@ . . 03D DB )@@G@@@H@@@@ LA A3,TEMP . LOAD OPTION WORD DC )@@G@@ . 03D @H@@@@ TOP,U A3,04 . TEST FOR X OPTDD )@@G@@ION ON . 03D @H@@@@ J 0,X11 . OKDE )@@G@@ JUST DO IT . 03D @H@@@@ TG A0,A1 DF )@@G@@ . IS LINE LENGTH > NO WORDS IN BUF. 03D @H@@@@ LA DG )@@G@@ A0,A1 . NO , YES . 03D @H@@@@ DH )@@G@@ J 0,X11 . GO BACK . 03D DI )@@G@@@H@@@@$(0) . DJ )@@G@@ . 03D @H@@@@SAVEX10 + 0 DK )@@G@@ . 03D @H@@@@-0/63 PRT DL )@@G@@ . 03D @H@@@@W$ORD + 0 DM )@@G@@ . SAVE AREA FOR EDITED WORD . 03D @H@@@@RANGE + DN )@@G@@ 037 . . 03D @H@@@@ DO )@@G@@ + 0176 . . 03D DP )@@G@@@H@@@@PF FORM 12,6,18 DQ )@@G@@ . 03D @H@@@@AEPRINT PF 1,30,AEBUF . PRINT CONTROL DR )@@G@@WORD FOR ASCII . 03D @H@@@@AEDITPKT* A$EPKT 31,AEBUF . DS )@@G@@ . 03D @H@@@@AEBUF* RES 31 DT )@@G@@ . . 03D @H@@@@ONEBLOCK* + DU )@@G@@ 1,BLOCK . . 03D @H@@@@-0/65 DV )@@G@@ PRT . 03D DW )@@G@@@H@@@@ RES 10 DX )@@G@@ . 03D @H@[@@@ELT,SW CPD DY )@@G@@ . 03D @H@@@[@ASM,USW CPD DZ )@@G@@ . 03D@H@@@@-0/34,35 CPD EA )@@G@@ . 03D @H@@@@ LA,S5 EB )@@G@@ A0,TEMP . PICK UP POSSIBLE Q AND R OPTIONS. 03D @H@@@@ EC )@@G@@ LA,U A1,1 . FLAG FOR Q OPTION . 03D ED )@@G@@@H@@@@ TEP,U A0,010 . Q OPTION EE )@@G@@ . 03D @H@@@@ SA,S1 A1,OPTION2 . SET Q OPTION EF )@@G@@ . 03D @H@@@@ TEP,U A0,04 . TEST EG )@@G@@FOR R OPTION . 03D @H@@@@ SA,S2 A1,OPTION2EH )@@G@@ . SAVE RESULTS . 03D @H@@@@ TEP,U EI )@@G@@ A0,040 . TEST FOR 'O' OPTION . 03D @H@@@@-0/294EJ )@@G@@ CPD . 03D EK )@@G@@@H@@@@ SA A1,SAVEX2 . PUT X2 AWAY FOR FUTURE USEEL )@@G@@ . 03D @H@@@@-0/306 CPD EM )@@G@@ . 03D @H@@@@ TZ,S6 OPTION . F OEN )@@G@@PTION REQUESTED . 03D @H@@@@ J DONEIT EO )@@G@@ . NO . 03D @H@@@@ L EP )@@G@@ A0,X2 . . 03D @H@@@@ EQ )@@G@@ TNE A0,NMANYF . DID USER GIVE A FILE COUNT . 03D ER )@@G@@@H@@@@ L,U X2,1 . USER DIDNOT GIVE A NR - ONES )@@G@@LY DO . 03D @H@@@@ SX X2,SAVEX2 . ET )@@G@@ . 03D @H@@@@ J DONEIT EU )@@G@@ . 03D @H@@@@NEXREC . EV )@@G@@ . 03D @H@@@@ SX EW )@@G@@ X2,SAVEX2 . SAVE INDEX 2 . 03D @H@@@@ EX )@@G@@ SLJ GENRD1 . GO READ A RECORD . 03D EY )@@G@@@H@@@@ INCR EZ )@@G@@ . 03D @F@^@] TZ OPTION2 . 'Q' O'R' R OPTFA )@@G@@IONS SET @E@^@] J BPD1 . YES FB )@@G@@ BPD @F@^@] TNZ,H1 OPTION . 'A', 'O', OR 'H' SET FC )@@G@@ BPD @G@^@] J BPD1 . YES FD )@@G@@ BPD@G@^@] SLJ PRTO . DEFAULT 'O' OPTFE )@@G@@ION BPD @G@^@] TZ,S6 OPTION . 'F' OPTION FF )@@G@@SET ? BPD @C@^@] J NEXREC . YFG )@@G@@ES @G@^@] J DONEIT . DECREMENT FH )@@G@@ BPD@D@^@]BPD1 . BPD FI )@@G@@@H@@@@ TZ,S1 OPTION2 . GET POSSIBLE Q ASCII OPTIONS FJ )@@G@@ . 03D @H@@@@ LMJ X11,PRTAQ . GO PRINT ASCIIFK )@@G@@ DIVIDED . 03D @H@@@@ TZ,S2 OPTION2 . GET PFL )@@G@@OSSIBLE R ASCII OPTIONS . 03D @H@@@@ LMJ X11,PRTHQ FM )@@G@@ . GO PRINT ASCII JAMMED . 03D @H@@@@ TZ,S2 FN )@@G@@ OPTION . TEST 'O' OPTION CD3. 03D @H@@@@ FO )@@G@@ SLJ PRTO . YES, PRINT OCTAL . 03D FP )@@G@@@H@@@@ TZ,S1 OPTION . TEST 'A' OPTION FQ )@@G@@ CD3. 03D @H@@@@ SLJ PRTA . YES, PRINT ALPHFR )@@G@@A DIVIDED INTO WOR. 03D @H@@@@ TZ,S3 OPTION . TEST 'FS )@@G@@H' OPTION ON CD33. 03D @H@@@@ SLJ PRTH FT )@@G@@ . YES PRINT ALPHA CONTINOUS NOT D. 03D @H@@@@-0/309,334 FU )@@G@@ CPD . 03D @H@@@@-0/337FV )@@G@@,337 CPD . 03D FW )@@G@@@H@@@@DONEIT . FX )@@G@@ . 03D @H@@@@ LX X2,SAVEX2 . RESTORE INDEX FY )@@G@@2 . 03D @H@@@@ JGD X2,NEXREC FZ )@@G@@ . 03D @H@@@@-0/838 CPD GA )@@G@@ . 03D @H@@@@SAVEX2 + GB )@@G@@ 0 . . 03D @H@@@@-0/846GC )@@G@@ CPD . 03D GD )@@G@@@H@@@@OPTION2 + 0 . SAVE FOR Q AND R OPTIONS GE )@@G@@ . 03D @H@@@@-0/922 CPD GF )@@G@@ . 03D @H@@@@ . THE QTAB TABLE HOLDS INFORMATIONGG )@@G@@ RELATIVE . 03D @H@@@@ . TO OPEN FILES WITHINGH )@@G@@ CPD. THIS TABLE . 03D @H@@@@ . IS USED GI )@@G@@TO CONTAIN FILE NAMES, RECORD . 03D @H@@@@ . GJ )@@G@@ POSITION INFORMATION AND FILE POSITION . 03D GK )@@G@@@H@@@@ . INFORMATION. THE FORMAT IS ::: GL )@@G@@ . 03D @H@@@@ . GM )@@G@@ . 03D @H@@@@ . 0 - 1 FILENAME GN )@@G@@ . 03D @H@@@@ . 2 RECORD POSITIOGO )@@G@@N/DRUM SECTOR ADDRESS . 03D @H@@@@ . 3 FIGP )@@G@@LE POSITION COUNTER (ALWAYS 1 FOR DRUM) . 03D @H@[@@@ELT,SGQ )@@G@@W CPDPAPER . 03D GR )@@G@@@H@@@[@ASM,USW CPDPAPER GS )@@G@@ . 03D@H@@@@-0/3,4 CPDPAPER GT )@@G@@ . 03D @H@@@@ MODIFIED BY OFFICE OF GU )@@G@@COMPUTER SCIENCE . 03D @H@@@@ TECHNGV )@@G@@ICAL SERVICES BRANCH . 03D @H@@@@ GW )@@G@@ LEVEL 03D . 03D @H@@@@-0/9,9GX )@@G@@ CPDPAPER . 03D GY )@@G@@@H@@@@ A REVISED VERSION OF 'COPY-DUMP', CPD LEVEL 03D, IS NOGZ )@@G@@W . 03D @H@@@@-0/89 CPDPAPER HA )@@G@@ . 03D @H@@@@ Q - PRINT ALL RECORDS IN ALPHA (AHB )@@G@@SCII), DIVIDED INTO WORDS. . 03D @H@@@@ HC )@@G@@ . 03D @H@@@@ R - PRINTHD )@@G@@ ALL RECORDS IN ALPHA (ASCII), NOT DIVIDED INTO . 03D @H@@@@ HE )@@G@@ (CONTINUOUS CHARACTERS). . 03D HF )@@G@@@H@@@@ HG )@@G@@ . 03D @H@@@@-0/484,484 CPDPAPER HH )@@G@@ . 03D @H@@@@ OFFICE OF COMPUTER SCIHI )@@G@@ENCE . 03D @H@@@@ DEPARTMEHJ )@@G@@NT OF TREASURY . 03D @H@@@@ HK )@@G@@ (202) - 376-0363 . 03D ___RST WORD HL )@@G@@ . 03D @H@@@@ SA *[S@@@*SDFF*@I@@@@. THISHM )@@G@@ PROGRAM WILL DUMP OR COPY ANY TAPE WITH BLOCKS OF 4096 WORDS OR LCD3001HN )@@G@@00 @I@@@@. WITH THE PRINT OUT EITHER ALPHA OR OCTAL DEPENDENT ON THE HO )@@G@@OPTION IN THCD300200 @I@@@@. XQT CARD. THE USER MUST SPECIFY WHAT ACTHP )@@G@@ION IS TO BE DONE THRU PARAMETCD300300 @I@@@@. CARDS FOLLOWING THE XQHQ )@@G@@T CARD. DOCUMENTATION FOR USAGE IS AVAILABLE .. CD300400 @I@@@@. HR )@@G@@ CD3005HS )@@G@@00 @F@@@@. THE SOURCE OF THE ORIGINAL COPY-DUMP CODE IS UNKNOWN THT )@@G@@O US. @G@@@@. THE CODE ARRIVED AS CPDMPH AND HAS UNDERGONE CONSIDERAHU )@@G@@BLE CHANGE @^@@@@. SINCE THAT TIME. @F@@@@. QUESTIONS, ERRORS,HV )@@G@@ AND HOPEFULLY FIXES ON THIS VERSION OF @A@@@@. COPY-DUMP MAY BE RHW )@@G@@EFERED TO: @^@@@@. PAULA HAGAN @^@@@@. MDCS STOP 28HX )@@G@@@E@@@@. DEFENSE MAPPING AGENCY AEROSPACE CENTER (DMAAC) @A@@@@HY )@@G@@. 2ND AND ARSENAL STREETS @A@@@@. ST. LOUIS, MO. 631HZ )@@G@@18 @[@@@@. @I@@@@ AXR$ IA )@@G@@ CD300600 @B@@@@$(1) IB )@@G@@ . @I@@@@CPD* LMJ X11,SIGTUR . GO TO SIGNATUREIC )@@G@@ POUTINE CD300800 @I@@@@ ER OPT$ ID )@@G@@ . OPTION LETTER RECOVERY - BACK INCD300900 @I@@@@ JZ IE )@@G@@ A0,REREAD . ANY OPTIONS? CD301000 @I@@@@IF )@@G@@ SA A0,TEMP . SAVE OPTIONS IG )@@G@@CD301100 @I@@@@ LA,U A1,01 . USE THIS TO INDIH )@@G@@ICATE AN OPTION ISCD301200 @I@@@@ LA,S2 A0,TEMP II )@@G@@ . LOAD FOR 'A' TEST CD301300 @I@@@@ TEP,U IJ )@@G@@ A0,02 . TEST FOR 'A' OPTION CD301400 @I@@@@IK )@@G@@ SA,S1 A1,OPTION . STORE 'A' OPTION IL )@@G@@CD301500 @I@@@@ LA,S3 A0,TEMP . LOAD FOR 'D', 'IM )@@G@@F', 'H' TEST CD301600 @I@@@@ TEP,U A0,020 IN )@@G@@ . TEST FOR 'D' OPTION CD301700 @I@@@@ SA,S5 IO )@@G@@ A1,OPTION . STORE 'D' OPTION CD301800 @I@@@@IP )@@G@@ TEP,U A0,04 . TEST FOR 'F' OPTION IQ )@@G@@CD301900 @I@@@@ SA,S6 A1,OPTION . STORE 'F' OPTIOIR )@@G@@N CD302000 @I@@@@ TEP,U A0,01 IS )@@G@@ . TEST FOR 'H' OPTION CD302100 @I@@@@ SA,S3 IT )@@G@@ A1,OPTION . STORE 'H' OPTION CD302200 @H@@[@IU )@@G@@ LA,S5 A0,TEMP . PICK UP POSSIBLE Q AND R OPTIONSIV )@@G@@. 03D @H@@[@ LA,U A1,1 . FLAG FOR Q OPTION IW )@@G@@ . 03D @H@@[@ TEP,U A0,010 . Q OPTION IX )@@G@@ . 03D @H@@[@ SA,S1 A1,OPTION2 IY )@@G@@ . SET Q OPTION . 03D @H@@[@ TEP,U A0,0IZ )@@G@@4 . TEST FOR R OPTION . 03D @H@@[@ SAJA )@@G@@,S2 A1,OPTION2 . SAVE RESULTS . 03D @H@@[@JB )@@G@@ TEP,U A0,040 . TEST FOR 'O' OPTION JC )@@G@@. 03D @I]@@@ SA,S2 A1,OPTION . STORE 'O' OPTION JD )@@G@@ CD302500 @I@@@@REREAD L A0,RDPKT . SKJE )@@G@@IP OVER CPD CARD-DUMMY READ CD302800 @I@@@@ ER READJF )@@G@@$ . READ CARD IMAGE CD302900 @I@@@@CDIMGEJG )@@G@@* L A0,RDPKT . LOAD READ PACKET CD3030JH )@@G@@00 @I@@@@ ER READ$ . READ CARD IMAGE JI )@@G@@ CD303100 @I@@@@ S,S3 A0,PPKT . NRJJ )@@G@@ WORDS TO PRINT CD303200 @I@@@@ L A0,PJK )@@G@@PKT . PRINT OUT COMMAND CD303300 @I@@@@ JL )@@G@@ ER PRINT$ . CD3034JM )@@G@@00 @I@@@@ GETFLD NEWCRD . PICK UP PARAMETER COJN )@@G@@MMAND CD303500 @I@@@@. CONTROL RETURNS WITH A2= NUMBER CHARS INJO )@@G@@ FIELD AND FIELD IN A0,A1 RIGHCD303600 @E@@@@ JZ A2,CJP )@@G@@DIMGE . IGNORE A BLANK CARD @I@@@@ L,U R1,NOCOMM JQ )@@G@@ . NUMBER OF COMMANDS POSSIBLE TO HCD303800 @I@@@@ ANJR )@@G@@D A1,(0777777) . LOGICAL PRODUCT IN A2 CD303900 JS )@@G@@@I@@@@ L A1,(1,0) . JT )@@G@@ CD304000 @I@@@@ SE,H1 A2,TABL,*A1 . SEARCH TJU )@@G@@ABLE FOR COMMAND CD304100 @I@@@@ J BADCOM JV )@@G@@ . BAD COMMAND,NO EQUAL FOUND CD304200 @I@@@@ L,JW )@@G@@H2 A2,TABL-1,A1 . PICK UP THE COMMAND CD304300 JX )@@G@@@I@@@@ S A2,COMMND . TEMP STORAGE FOR COMMAND JY )@@G@@ CD304400 @I@@@@ GETFLD SAMECD JZ )@@G@@ CD304500 @I@@@@ JZ A2,BADCOM KA )@@G@@ . USER HAS NO IN IN COMMAND CARD CD304600 @I@@@@NAME MSKB )@@G@@I,U A2,6 . NR CHARACTERS*BITS PER CHARACTECD304700 KC )@@G@@@I@@@@ S,T3 A2,$+1 KD )@@G@@ CD304800 @I@@@@ DSC A0,0 . DSC ---FKE )@@G@@N IN A0 AND A1 CD304900 @I@@@@ DS A0,FILEN KF )@@G@@ . STORE FN IN LOCATION CD305000 @I@@@@ DSKG )@@G@@ A0,F1NAM . EOF ENCOUNTERED MESSAGE CD305100 KH )@@G@@@I@@@@ J *COMMND . GO TO COMMAND SUBROUTINE KI )@@G@@ CD305200 @B@@@@/ . @I@@@@KJ )@@G@@WREOF DL A0,FILEN . PICK UP FILENAME FIRST 6 CHARS KK )@@G@@CD305400 @I@@@@ DS A0,TAPPKT . PUT IT IN TAPEKL )@@G@@ PACKET WORD 1 CD305500 @I@@@@ L,U A0,011 KM )@@G@@ . FUNC CODE FOR WRITE END-OF-FILE CD305600 @I@@@@ S,S2 KN )@@G@@ A0,TAPPKT+3 . STORED FUNC CODE IN PROPER WORD.CD305700 @I@@@@KO )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE--- KP )@@G@@CD305800 @I@@@@ ER IOW$ . WRITE END-OF-FKQ )@@G@@ILE CD305900 @I@@@@ ER IOW$ KR )@@G@@ . WRITE SECOND EOF CD306000 @I@@@@ L,U KS )@@G@@ A0,051 . FUNCTION CODE FOR BACKSPACE CD306100 @I@@@@KT )@@G@@ S,S2 A0,TAPPKT+3 . STORE IN PROPER WORD KU )@@G@@CD306200 @I@@@@ L,U A0,TAPPKT . I/O PACKET FOR KV )@@G@@MAG TAPE CD306300 @I@@@@ ER IOW$ KW )@@G@@ . BACKSPACE OVER SECOND EOF CD306400 @I@@@@ INCF KX )@@G@@ . INCREASE THE FILE COUNT CD306500 @I@@@@KY )@@G@@ TZ,S6 OPTION . F OPTION SET? KZ )@@G@@CD306600 @I@@@@ J FCOPYC . YES LA )@@G@@ CD306700 @I@@@@ J CDIMGE LB )@@G@@ . GO BACK AND GET NEXT PARAMETER CCD306800 @I@@@@REWW LA,U LC )@@G@@ A0,040 . NO CD306900 @I@@@@LD )@@G@@ S,S2 A0,TAPPKT+3 . STORE FUNCTION CODE IN PACKET LE )@@G@@CD307000 @I@@@@ DL A0,FILEN . REWIND NO INTELF )@@G@@RLOCK ROUTINE---GECD307100 @I@@@@ DS A0,TAPPKT LG )@@G@@ . STORE WORD ONE IN TAPE PACKET CD307200 @I@@@@ L,U LH )@@G@@ A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD307300 @I@@@@LI )@@G@@ ER IOW$ . REWIND WITHOUT INTERLOCK LJ )@@G@@CD307400 @I@@@@ CLRF LK )@@G@@ CD307500 @I@@@@ CLRR LL )@@G@@ CD307600 @I@@@@ GETFLD LM )@@G@@ SAMECD . SEE IF THERE ARE ANY MORE FILES CD307700 @I@@@@LN )@@G@@ JZ A2,CDIMGE . NO LO )@@G@@CD307800 @I@@@@ J NAME . YES GO REWIND LP )@@G@@THEM CD307900 @I@@@@REWI DL A0,FILEN LQ )@@G@@ . LOAD FILENAME CD308000 @I@@@@ DS LR )@@G@@ A0,FREED+1 . STORE IN PACKET CD308100 @I@@@@LS )@@G@@ L A0,(3,FREED) . LOAD @FREE PACKET LT )@@G@@CD308200 @I@@@@ ER CSF$ . FREE THE TAPE (LU )@@G@@ OR FILE) CD308300 @I@@@@ GETFLD SAMECD LV )@@G@@ . ANY MORE? CD308400 @I@@@@ JZ LW )@@G@@ A2,CDIMGE . NO CD308500 @I@@@@LX )@@G@@ J NAME . INSERT NEW FILENAME AND FREE LY )@@G@@ . 3C @I@@@@. SWAP TAPE REELS LZ )@@G@@ CD308700 @I@@@@SWAPRL . MA )@@G@@ CD308800 @I@@@@ L,U MB )@@G@@ A0,FILEN CD308900 @I@@@@MC )@@G@@ ER TSWAP$ MD )@@G@@CD309000 @I@@@@ J CDIMGE ME )@@G@@ CD309100 @B@@@@/ MF )@@G@@ . @I@@@@. ROUTINE FOR POSITIONING TAPE FORWARD ONE BLOCK AT A TIME MG )@@G@@ CD309300 @I@@@@POSFOR SZ PSERET . ZEMH )@@G@@RO PSE JUMP RETURN CD309400 @I@@@@ GETFLD SAMEMI )@@G@@CD . PICK UP 'N' FIELD OF PARAMETER CCD309500 @I@@@@ MJ )@@G@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT CD3096MK )@@G@@00 @I@@@@ J REPEATB . COME HERE IF WE PROVIML )@@G@@DED FILE COUCD309700 @I@@@@ SA A1,X2 . MM )@@G@@ CD309800 @I@@@@ SLJ CNVTMN )@@G@@ . CONVERT TO BINY VALUE WILL BE INCD309900 @I@@@@REPEATMO )@@G@@B LA,S5 A0,OPTION . LOAD FOR 'D' OPTION TEST CD3100MP )@@G@@00 @I@@@@ TOP,U A0,01 . 'D' OPTION SET? MQ )@@G@@ CD310100 @I@@@@ J COUNTT . TMR )@@G@@EST FOR O COUNT BEFORE POSITIOCD310200 @I@@@@ J PSFDMS )@@G@@ . GO TO DRUM ROUTINE CD310300 @I@@@@REPEATMT )@@G@@ DL A0,FILEN . FILENAME WD TWO CD3104MU )@@G@@00 @I@@@@ DS A0,TAPPKT MV )@@G@@ CD310500 @I@@@@ L,U A0,050 . FUMW )@@G@@NC CODE FOR POS FILE FORWARD OCD310600 @I@@@@ S,S2 A0,TMX )@@G@@APPKT+3 . PLACE IN PROPER WORD OF PACKET CD310700 @I@@@@ MY )@@G@@ LA,U A0,FOPT(3) . CD3108MZ )@@G@@00 @I@@@@ SA A0,PNT . NA )@@G@@ CD310900 @I@@@@ J REPETA . NB )@@G@@ CD311000 @I@@@@FOPT(3) TNZ NO2ENC )@@G@@OF . COMING FROM EOF COMPARE CD311100 @I@@@@ ND )@@G@@ J COUNT CD3112NE )@@G@@00 @I@@@@ L X2,SAVJGD . CLEANUP FOR RETURN TNF )@@G@@O CMP CD311300 @I@@@@ SZ NO2EOF NG )@@G@@ CD311400 @I@@@@ J NXTCNH )@@G@@MP CD311500 @I@@@@REPETANI )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD3116NJ )@@G@@00 @I@@@@ ER IOW$ . MOVE ONE BLOCK FORWANK )@@G@@RD CD311700 @I@@@@ INCR NL )@@G@@ CD311800 @I@@@@ L,U A0,1NM )@@G@@ . STATUS CODE FOR TESTING EOF CD311900 @I@@@@ NN )@@G@@ TNE,S1 A0,TAPPKT+3 . IS IT EOF CD3120NO )@@G@@00 @I@@@@ J FOUND1 . NP )@@G@@ CD312100 @I@@@@ TNZ,S6 OPTION . F ONQ )@@G@@PTION SET? CD312200 @I@@@@ J COUNNR )@@G@@T . NO CD312300 @I@@@@ NS )@@G@@ J REPETA . CD3124NT )@@G@@00 @I@@@@FOUND1 TZ PSERET . COMMONG FROM PSE COMNU )@@G@@MAND TEST CD312500 @I@@@@ J POSF2 NV )@@G@@ CD312600 @I@@@@ SLJ PRTENW )@@G@@FX . PRINT EOF ENCOUNTERED CD312700 @I@@@@ NX )@@G@@ INCF CD3128NY )@@G@@00 @I@@@@ TZ NONO . NZ )@@G@@ CD312900 @I@@@@ J NXTFLE . OA )@@G@@ CD313000 @I@@@@ TZ,S6 OPTIOB )@@G@@ON . F OPTION SET? CD313100 @I@@@@ OC )@@G@@ J *PNT . GO BACK WHERE CAME FROM CD3132OD )@@G@@00 @I@@@@ J CDIMGE OE )@@G@@ CD313300 @I@@@@COUNTT JGD X2,REPEAT . TO OF )@@G@@TAKE CARE OF FIRST PASS CD313400 @I@@@@ J CDIMOG )@@G@@GE . CD313500 @I@@@@COUNT OH )@@G@@ JGD X2,REPETA . GO BACK AND DO IT AGAIN CD3136OI )@@G@@00 @I@@@@ J CDIMGE . PROCESS NEXT CARD OJ )@@G@@ CD313700 @I@@@@ . OK )@@G@@ CD313800 @I@@@@. ROUTINE TO POSITION FOOL )@@G@@RWARD PAST EOF AND BACK UP 1 BLOCK..............CD313900 @I@@@@ . OM )@@G@@ CD3140ON )@@G@@00 @I@@@@POSF1 LA,S5 A0,OPTION . TEST FOR D OPTION OO )@@G@@ CD314100 @I@@@@ TEP,U A0,1 . OP )@@G@@ CD314200 @I@@@@ J PSEDOQ )@@G@@ . YES CD314300 @I@@@@ OR )@@G@@ SA A2,PSERET . NONZERE RET. SWCH:A2=NR CHAR FN CD3144OS )@@G@@00 @I@@@@ J POSFOR+1 . OT )@@G@@ CD314500 @I@@@@POSF2 SZ PSERET . CLOU )@@G@@EAN UP SWITCH CD314600 @I@@@@ L,U A0,0OV )@@G@@51 . BACKSPACE OVER EOF CD314700 @I@@@@ OW )@@G@@ S,S2 A0,TAPPKT+3 CD3148OX )@@G@@00 @I@@@@ L,U A0,TAPPKT OY )@@G@@ CD314900 @I@@@@ ER IOW$ OZ )@@G@@ CD315000 @I@@@@ DCRR PA )@@G@@ CD315100 @I@@@@PRTAFBPB )@@G@@ . CD3152PC )@@G@@00 @I@@@@ DL A1,FILEN . MSG- POSITIONED AFTEPD )@@G@@R BLOCK XX. CD315300 @I@@@@ DS A1,BLKPOS PE )@@G@@ CD315400 @I@@@@ SLJ QGETPF )@@G@@AD CD315500 @I@@@@ PG )@@G@@ L A0,2,A0 CD3156PH )@@G@@00 @I@@@@ E$BD 6,AFTBLK,6 . PI )@@G@@ CD315700 @I@@@@ L A0,AFTERB PJ )@@G@@ CD315800 @I@@@@ ER PRINPK )@@G@@T$ CD315900 @I@@@@ PL )@@G@@ J CDIMGE CD3160PM )@@G@@00 @B@@@@/ . @I@@@@POSBWD GEPN )@@G@@TFLD SAMECD . PICK UP VALUE 'N' FOR POSITIONINCD316200 PO )@@G@@@I@@@@ SZ OVWJMP . ZERO EXIT TO OVW COMMAND PP )@@G@@ CD316300 @I@@@@ LMJ X11,NOVAL . GO TEST FPQ )@@G@@OR USER COUNT CD316400 @I@@@@ J GETREC PR )@@G@@ . COME HERE IF WE PROVIDED FILE COUCD316500 @I@@@@ SAPS )@@G@@ A1,X2 . CD316600 PT )@@G@@@I@@@@ SLJ CNVT PU )@@G@@ CD316700 @I@@@@GETREC LA,S5 A0,OPTION . TEST FOR PV )@@G@@D OPTION CD316800 @I@@@@ TEP,U A0,1 PW )@@G@@ . CD316900 @I@@@@ J PX )@@G@@ PSBD . YES CD317000 PY )@@G@@@I@@@@ DL A0,FILEN . NO PZ )@@G@@ CD317100 @I@@@@ DS A0,TAPPKT . QA )@@G@@ CD317200 @I@@@@BWDSET L,U A0,051 QB )@@G@@ . POSITION BACKWARDS FUNCTION CD317300 @I@@@@ S,QC )@@G@@S2 A0,TAPPKT+3 . PROPER WD FOR THIS CODE CD317400 QD )@@G@@@I@@@@ J COUNT1 . QE )@@G@@ CD317500 @I@@@@BACKUP L,U A0,TAPPKT . LOAD THEQF )@@G@@ PACKET CD317600 @I@@@@ ER IOW$ QG )@@G@@ . MOVE TAPE BACKWARD ONE BLOCK CD317700 @I@@@@ DCQH )@@G@@RR CD317800 QI )@@G@@@I@@@@ L,U A0,1 . STATUS CODE FOR EOF QJ )@@G@@ CD317900 @I@@@@ TNE,S1 A0,TAPPKT+3 . TEST FOR QK )@@G@@EOF CD318000 @I@@@@ J EOFOUT QL )@@G@@ . YES GET OUT CD318100 @I@@@@ L,UQM )@@G@@ A0,02 . LOAD POINT RETURN CODE CD318200 QN )@@G@@@I@@@@ TNE,S1 A0,TAPPKT+3 . TEST FOR LOAD POINT QO )@@G@@ CD318300 @I@@@@ J LPOUT . YES GET QP )@@G@@OUT CD318400 @I@@@@ TZ,S6 OPTION QQ )@@G@@ . F OPTION SET? CD318500 @I@@@@ J QR )@@G@@ BACKUP . YES CD318600 QS )@@G@@@I@@@@ J COUNT1 . NO QT )@@G@@ CD318700 @I@@@@EOFOUT DCRF . QU )@@G@@ CD318800 @I@@@@ TNZ OVWJMP QV )@@G@@ . DON'T PRINT MESSAGE IF OVERWRITECD318900 @I@@@@ SLQW )@@G@@J PRTEFX CD319000 QX )@@G@@@E@@@@ CLRR . ZERO RECORD COUNT @I@@@@QY )@@G@@ TNZ,S6 OPTION . F OPTION SET? QZ )@@G@@CD319100 @I@@@@ J CDIMGE . NO RA )@@G@@ CD319200 @I@@@@ JGD X2,BACKUP RB )@@G@@ . CD319400 @I@@@@ L RC )@@G@@ A0,OVWJMP . DID WE COME FROM OVERWRITE CMD CD319500 @I@@@@RD )@@G@@ JNZ A0,OVWRET RE )@@G@@CD319600 @I@@@@ J CDIMGE . GET ANOTHER CORF )@@G@@MMAND CD319700 @I@@@@LPOUT L A0,(P 2,8,PRTLPRG )@@G@@F) . LOAD AND PRINT LOAD POINT MESGCD319800 @I@@@@ ER RH )@@G@@ PRINT$ . WRITE OUT MESSAGE CD319900 @I@@@@RI )@@G@@ CLRR . CLEAR RECORD COUNTER RJ )@@G@@CD320000 @I@@@@ CLRF . CLEAR FILE COUNRK )@@G@@TER CD320100 @I@@@@ J CDIMGE RL )@@G@@ . GO GET ANOTHER CD320200 @I@@@@COUNT1 JGD RM )@@G@@ X2,BACKUP . CHECK BLOCK COUNT AND DECREMENT CD320300 @I@@@@RN )@@G@@ J CDIMGE . GET ANOTHER COMMAND RO )@@G@@CD320400 @B@@@@/ . @I@@@@COPY RP )@@G@@ GETFLD SAMECD . GET OUTPUT FILE NAME CD3206RQ )@@G@@00 @I@@@@ JZ A2,BADCOM . PARAMETER CARD CHECKRR )@@G@@ CD320700 @I@@@@ MSI,U A2,6 . DERS )@@G@@TERMINE NUMBER OF SHIFT POSITICD320800 @I@@@@ S,T3 A2,$RT )@@G@@+1 CD320900 @I@@@@ RU )@@G@@ DSC A0,0 . POSITION FILENAME CD3210RV )@@G@@00 @I@@@@ DS A0,F2NAM . DS OUTPUT FILENAME RW )@@G@@ CD321100 @I@@@@ GETFLD SAMECD . GERX )@@G@@T VALUE 'N' IF ANY CD321200 @I@@@@ LMJ X11,RY )@@G@@NOVAL . GO TEST FOR USER COUNT CD321300 @I@@@@ RZ )@@G@@ J LEG1+1 . COME HERE IF WE PROVIDED FILE COUCD3214SA )@@G@@00 @I@@@@ SA A1,X2 . NR FILES OR RECORDS SB )@@G@@ CD321500 @I@@@@LEG1 SLJ CNVT . FDSC )@@G@@ TO BIN CD321600 @I@@@@ DL A0,FSD )@@G@@ILEN CD321700 @I@@@@ SE )@@G@@ DS A0,FN1 CD3218SF )@@G@@00 @I@@@@ TZ,S6 OPTION . F OPTION SET? SG )@@G@@ CD321900 @I@@@@ J FCOPYA . YESSH )@@G@@ CD322000 @I@@@@ J WRITSI )@@G@@ER+1 CD322100 @I@@@@KEEPONSJ )@@G@@ LA,S5 A0,OPTION . TEST FOR 'D' OPTION CD3222SK )@@G@@00 @I@@@@ JZ A0,$+2 . NO 'D' OPTION SL )@@G@@ CD322300 @I@@@@ SA A0,DUPPNT . SETSM )@@G@@ FLAG CD322400 @I@@@@ SLJ GENRSN )@@G@@D1 CD322500 @I@@@@ SO )@@G@@ INCR CD3226SP )@@G@@00 @I@@@@WRITER SLJ RITE . COPY BAD RECORD SQ )@@G@@ CD322700 @I@@@@ SZ DUPPNT . ZERSR )@@G@@O OUT TAPE-DRUM DUPE FLAG CD322800 @I@@@@ JGD X2,KSS )@@G@@EEPON CD322900 @I@@@@ ST )@@G@@ J CDIMGE CD3230SU )@@G@@00 @I@@@@FCOPYA LA,U A0,FOPT(1) . SV )@@G@@ CD323100 @I@@@@ SA A0,PNT . SW )@@G@@ CD323200 @ @@@@ L A0,XSX )@@G@@2 @G@@@@ TNE A0,NMANYF . DID USER GIVE A FILSY )@@G@@E COUNT @E@@@@ L,U X2,1 . NO - ONLY DO 1SZ )@@G@@ FILE @I@@@@ J FCOPYB . TA )@@G@@ CD323300 @I@@@@FCOPY SLJ GENRD1 . GO TB )@@G@@READ A BLOCK CD323400 @I@@@@ INCR TC )@@G@@ . INCREMENT RECORD COUNT CD323500 @I@@@@ TD )@@G@@ SLJ RITE . WRITE IT OUT CD3236TE )@@G@@00 @I@@@@ J FCOPY . GO GET ANOTHER TF )@@G@@ CD323700 @I@@@@FOPT(1) LX X2,BS . RELTG )@@G@@OAD X2 CD323800 @I@@@@ DL A0,FTH )@@G@@2NAM . LOAD OUTPUT FILE NAME CD323900 @I@@@@ TI )@@G@@ DS A0,FILEN . CD3240TJ )@@G@@00 @I@@@@ J WREOF+1 . GO MARK THE TAPE TK )@@G@@ CD324100 @I@@@@FCOPYC DL A0,FN1 . RESTL )@@G@@ET FILE NAME TO FIRST NAME CD324200 @I@@@@ DS A0,FTM )@@G@@ILEN . CD324300 @I@@@@FCOPYBTN )@@G@@ JGD X2,FCOPY . GO START ANOTHER CD3244TO )@@G@@00 @I@@@@ J CDIMGE . GO GET ANOTHER CARD TP )@@G@@ CD324500 @B@@@@/ . TQ )@@G@@@I@@@@RITE* NOP . TR )@@G@@ CD324700 @I@@@@ TZ DUPPNT . TAPE TO DTS )@@G@@RUM DUPE? CD324800 @I@@@@ J DWRTE TT )@@G@@ . YES CD324900 @I@@@@ DLTU )@@G@@ A0,F2NAM . PICK UP OUTPUT FN CD325000 TV )@@G@@@I@@@@ DS A0,TAPWRI . PUT IN TAPE WRITE PACKET TW )@@G@@ CD325100 @I@@@@ L,H2 A0,NOWDS$ . PICK UP TX )@@G@@NUMBER WORDS CD325200 @I@@@@ S,H1 A0,TAPWRI+TY )@@G@@4 . STORE IN WRITE PACKET CD325300 @I@@@@ L,TZ )@@G@@U A0,TAPWRI . PICK UP WRITE PACKET CD325400 UA )@@G@@@I@@@@ ER IOW$ . WRITE TAPE UB )@@G@@ CD325500 @I@@@@ L,U A0,2 . STATUS CUC )@@G@@ODE FOR TESTING EOT CD325600 @I@@@@ TNE,S1 A0,TAPWRI+3 UD )@@G@@ CD325700 @I@@@@ J EUE )@@G@@OTRET CD325800 UF )@@G@@@I@@@@ L,U A0,010 . TEST ABORT ERRORS UG )@@G@@ CD325900 @I@@@@ TG,S1 A0,TAPWRI+3 . TEST IT UH )@@G@@ CD326000 @I@@@@ J *RITE UI )@@G@@ CD326100 @I@@@@ J UJ )@@G@@ PROBLM . HAD A WROTE ERROR CONDITION CD326200 UK )@@G@@@I@@@@ . WHEN GET AN END OF TAPE RETURN FROM IOW - WILL WRITE AN EOF UL )@@G@@ON CD326300 @I@@@@. TAPE, THEN DO AN ER TO TSWAP$ TO GET ANOTHER UM )@@G@@TAPE CD326400 @I@@@@EOTRET . UN )@@G@@ CD326500 @I@@@@ L,UO )@@G@@U A0,011 . LOAD WEOF FUNC CD326600 UP )@@G@@@I@@@@ S,S2 A0,TAPWRI+3 . STORE IN PKT UQ )@@G@@ CD326700 @I@@@@ L,U A0,TAPWRI UR )@@G@@ CD326800 @I@@@@ ER IOW$ US )@@G@@ . WRITE EOF CD326900 @I@@@@ L,UT )@@G@@U A0,TAPWRI . CD327000 UU )@@G@@@I@@@@ ER TSWAP$ . SWAP REELS UV )@@G@@ CD327100 @I@@@@ L,U A0,010 . RESTORE WRTUW )@@G@@ FUNC IN PKT CD327200 @I@@@@ S,S2 A0,TAPWRI+UX )@@G@@3 . CD327300 @I@@@@ J UY )@@G@@ *RITE CD327400 UZ )@@G@@@I@@@@PROBLM L,U A0,WRERR . BAD WRITE CONDITION VA )@@G@@ CD327500 @I@@@@ ER PRINT$ . PRINT ERVB )@@G@@ROR CD327600 @I@@@@ ER ERR$ VC )@@G@@ . ERROR OUT CD327700 @B@@@@/ VD )@@G@@ . @I@@@@DUMP GETFLD SAMECD VE )@@G@@ . GET PARAMETER VALUE 'N' IF ANY CD327900 @I@@@@ LMJ VF )@@G@@ X11,NOVAL . GO TEST FOR USER COUNT CD328000 @I@@@@VG )@@G@@ J NVALUE+1 . COME HERE IF WE PROVIDED FILE COUVH )@@G@@CD328100 @I@@@@ SA A1,X2 . VI )@@G@@ CD328200 @H@@[@ SA A1,SAVEX2 VJ )@@G@@ . PUT X2 AWAY FOR FUTURE USE . 03D @I@@@@NVALUE SLJ CNVTVK )@@G@@ . FD TO BIN VALUE COMES BACK IN XRCD328300 @I@@@@ VL )@@G@@ DL A0,FILEN CD3284VM )@@G@@00 @I@@@@ DS A0,FN1 VN )@@G@@ CD328500 @E@@@@ LA A0,TEMP . CHVO )@@G@@ECK IS X OPTION ON@ @@@@ TOP,U A0,04 @^@@@@ J VP )@@G@@ $+5 @B@@@@ LA A0,(P 2, 9,XMSG1) @B@@@@ VQ )@@G@@ ER PRINT$ . @B@@@@ LA A0,(P 1, VR )@@G@@9,XMSG2) @B@@@@ ER PRINT$ . @I@@@@ VS )@@G@@ LA,U A0,FOPT(4) . LOAD F OPTION RETURN ADDRESS CD3286VT )@@G@@00 @I@@@@ SA A0,PNT . STORE IT VU )@@G@@ CD328700 @H@@[@ TZ,S6 OPTION . F OVV )@@G@@PTION REQUESTED . 03D @H@@[@ J DONEIT VW )@@G@@ . NO . 03D @H@@[@ L VX )@@G@@ A0,X2 . . 03D @H@@[@ VY )@@G@@ TNE A0,NMANYF . DID USER GIVE A FILE COUNT . 03D VZ )@@G@@@H@@[@ L,U X2,1 . USER DIDNOT GIVE A NR - ONWA )@@G@@LY DO . 03D @H@@[@ SX X2,SAVEX2 . WB )@@G@@ . 03D @H@@[@ J DONEIT WC )@@G@@ . 03D @H@@[@NEXREC . WD )@@G@@ . 03D @H@@[@ SX WE )@@G@@ X2,SAVEX2 . SAVE INDEX 2 . 03D @H@@[@ WF )@@G@@ SLJ GENRD1 . GO READ A RECORD . 03D WG )@@G@@@H@@[@ INCR WH )@@G@@ . 03D @H@@[@ TZ,S1 OPTION2 . GET POSSIBLE Q ASWI )@@G@@CII OPTIONS . 03D @H@@[@ LMJ X11,PRTAQ . GOWJ )@@G@@ PRINT ASCII DIVIDED . 03D @H@@[@ TZ,S2 OPTION2 WK )@@G@@ . GET POSSIBLE R ASCII OPTIONS . 03D @H@@[@ LMJ WL )@@G@@ X11,PRTHQ . GO PRINT ASCII JAMMED . 03D @H@@[@ WM )@@G@@ TZ,S2 OPTION . TEST 'O' OPTION CD3. 03D WN )@@G@@@H@@[@ SLJ PRTO . YES, PRINT OCTAL WO )@@G@@ . 03D @H@@[@ TZ,S1 OPTION . TEST 'A' OPTION WP )@@G@@ CD3. 03D @H@@[@ SLJ PRTA . YESWQ )@@G@@, PRINT ALPHA DIVIDED INTO WOR. 03D @H@@[@ TZ,S3 OPTION WR )@@G@@ . TEST 'H' OPTION ON CD33. 03D @H@@[@ SLJ WS )@@G@@ PRTH . YES PRINT ALPHA CONTINOUS NOT D. 03D @E@@@@ WT )@@G@@ TNZ,S6 OPTION . F OPTION REQUESTED @B@@@@ J WU )@@G@@ DONEIT . NO@IU@@@ J NEXREC WV )@@G@@ . YES CD331100 @I@@@@FOPT(4) CLRR WW )@@G@@ . CLEAR RECORD BEFORE STARTING 2ND CD331200 @H@@[@WX )@@G@@DONEIT . WY )@@G@@. 03D @H@@[@ LX X2,SAVEX2 . RESTORE INDEX 2 WZ )@@G@@ . 03D @H@@[@ JGD X2,NEXREC XA )@@G@@ . 03D @I[@@@ LA,U A0,28 XB )@@G@@ . RESET DRUM READ COUNTERS CD331400 @I@@@@ SA,H1 XC )@@G@@ A0,DRPKT+4 . JUST IN CASE CD331500 @I@@@@XD )@@G@@ SZ SWITCH . XE )@@G@@CD331600 @I@@@@ J CDIMGE XF )@@G@@ CD331700 @I@@@@/ . C O M P A R THIS ROUTINES COMPARXG )@@G@@ES TAPE RECORD BLOCKS ONLY. CD331800 @I@@@@COMPAR . XH )@@G@@ CD331900 @I@@@@XI )@@G@@ SZ EOFLAG . TO DENOTE ALL OTHER EOFS XJ )@@G@@CD332000 @I@@@@ DL A0,FILEN . XK )@@G@@ . 3A @I@@@@ DS A0,FACPAC XL )@@G@@ . PREPARE PACKET . 3A @I@@@@ L,U XM )@@G@@ A0,FACPAC . . 3A @I@@@@XN )@@G@@ ER FACIT$ . XO )@@G@@ . 3A @I@@@@ L,S1 A1,FACPAC+6 . EQUIPMENT TYPEXP )@@G@@ FOR POSSIBLE AFC . 3A @I@@@@ S A1,EQUIP1 XQ )@@G@@ . . 3A @I@@@@ GETFLD XR )@@G@@ SAMECD . GET SECOND FILENAME CD332100 @I@@@@XS )@@G@@ JZ A2,NOT2ND . DOES USER HAVE TWO FILE NAMES XT )@@G@@CD332200 @I@@@@ MSI,U A2,6 . DETERMINE NUMBXU )@@G@@ER OF SHIFT POSITICD332300 @I@@@@ S,T3 A2,$+1 XV )@@G@@ CD332400 @I@@@@ DSC XW )@@G@@ A0,0 . POSITION FILE NAME CD332500 @I@@@@XX )@@G@@ DS A0,F2NAM . DS SECOND FILE NAME XY )@@G@@CD332600 @I@@@@ DS A0,FACPAC . SET UP PACKET XZ )@@G@@FOR FACIT . 3A @I@@@@ L,U A0,FACPAC YA )@@G@@ . . 3A @I@@@@ ER YB )@@G@@ FACIT$ . GET EQUIPMENT TYPE . 3A @I@@@@YC )@@G@@ L,S1 A0,FACPAC+6 . YD )@@G@@ . 3A @I@@@@ S A0,EQUIP2 . YE )@@G@@ . 3A @I@@@@ TNZ,S6 OPTION YF )@@G@@ . F OPTION SET? CD332700 @I@@@@ J YG )@@G@@ CMPTP1 CD332800 @I@@@@YH )@@G@@ GETFLD SAMECD . GET COUNT OF NUMBER OF FILES YI )@@G@@CD332900 @I@@@@ LMJ X11,NOVAL . GO WORK THE COUYJ )@@G@@NT CD333000 @I@@@@ L A1,(' 1') YK )@@G@@ . FILE COUNT = 1 IF NONE GIVEN CD333100 @I@@@@ SA YL )@@G@@ A1,X2 . CD333200 @I@@@@YM )@@G@@ SLJ CNVT . CONVERT COUNT TO BINARY YN )@@G@@CD333300 @I@@@@ L,U A0,FOPT(2) . STORE F OPTIONYO )@@G@@ POINTER CD333400 @I@@@@ S A0,PNT YP )@@G@@ . USED BY TPRD$ EOF ROUTINE CD333500 @I@@@@ J YQ )@@G@@ FOPT(2) . DECREMENT FILE COUNTER CD333600 @I@@@@YR )@@G@@CMPTP1 . YS )@@G@@CD333700 @I@@@@ DL A0,F1NAM . INSERT CURRENTYT )@@G@@ FILE NAME CD333800 @I@@@@ DS A0,FILEN YU )@@G@@ . CD333900 @I@@@@ LMJ YV )@@G@@ X11,TPRD$ . READ FIRST TAPE CD334000 @I@@@@YW )@@G@@F1NAM + 0 . YX )@@G@@CD334100 @I@@@@ + 0 . YY )@@G@@ CD334200 @I@@@@ + 4096,BLOCK YZ )@@G@@ . CD334300 @I@@@@ + ZA )@@G@@ EOFCMP . EOF RETURN CD334400 @I@@@@ZB )@@G@@ INCR . INCREMENT RECORD COUNT ZC )@@G@@CD334500 @I@@@@ L A14,NOWDS$ . NUMBER OF WORDZD )@@G@@S READ CD334600 @I@@@@ S A14,WDSTP1 ZE )@@G@@ . CD334700 @I@@@@CMPTP2 ZF )@@G@@ . CD334800 @I@@@@ZG )@@G@@ DL A0,F2NAM . CHANGE FILE NAME ZH )@@G@@CD334900 @I@@@@ DS A0,FILEN . ZI )@@G@@ CD335000 @I@@@@ LMJ X11,TPRD$ ZJ )@@G@@ . READ SECOND TAPE CD335100 @I@@@@F2NAM* + ZK )@@G@@ 0 . CD335200 @I@@@@ZL )@@G@@ + 0 . ZM )@@G@@CD335300 @I@@@@ + 4096,BLOCK1 ZN )@@G@@ CD335400 @I@@@@ + EOF2ND ZO )@@G@@ . EOF RETURN CD335500 @I@@@@ INCR ZP )@@G@@ . INCREMENT RECORD COUNT CD335600 @I@@@@ZQ )@@G@@ TZ EOFLAG . WAS EOF ON FIRST TZPE ZR )@@G@@CD335700 @I@@@@ J NOEFT2 . YES- ERROR ZS )@@G@@ CD335800 @I@@@@ L A15,NOWDS$ ZT )@@G@@ . COMPARE NR WORDS READ CD335900 @I@@@@ S ZU )@@G@@ A15,WDSTP2 . WORDS READ ON TAPE 2 CD336000 @I@@@@ZV )@@G@@ L,H2 A14,WDSTP1 . PICK UP WORD COUNT ONLY ZW )@@G@@ . 3A @I@@@@ L,H2 A15,WDSTP2 . PICK UP WORD CZX )@@G@@OUNT ONLY . 3A @I@@@@ TE A15,A14 ZY )@@G@@ . SAME NR WORDS BOTH TAPES CD336200 @I@@@@ J ZZ )@@G@@ GOOFNR . CD336300 @I@@@@AA )@@G@@ SZ A3 . INCREMENT FOR WORD COMPARISON AB )@@G@@CD336400 @I@@@@SAMWDS . AC )@@G@@ CD336500 @I@@@@ L A0,BLOCK,A3 AD )@@G@@ . WORD FROM FIRST TAPE CD336600 @I@@@@ TE AE )@@G@@ A0,BLOCK1,A3 . WORDS FROM 2ND TAPE CD336700 @I@@@@AF )@@G@@ J GOOFWD AG )@@G@@CD336800 @I@@@@ A,U A3,1 AH )@@G@@ CD336900 @I@@@@ TE A15,A3 AI )@@G@@ . ALL WORDS COMPARED] CD337000 @I@@@@ J AJ )@@G@@ SAMWDS . CD337100 @I@@@@AK )@@G@@ J CMPTP1 . READ AND COMPARE NEXT BLOCK AL )@@G@@CD337200 @I@@@@EOFCMP . AM )@@G@@ CD337300 @I@@@@ INCR AN )@@G@@ . EOF READ ON TAPE 1 CD337400 @I@@@@ L,U AO )@@G@@ A0,1 CD337500 @I@@@@AP )@@G@@ S A0,EOFLAG . SET FLAG AQ )@@G@@CD337600 @I@@@@ SLJ PRTEFX . PRINT EOF ENCOAR )@@G@@UNTERED MSG CD337700 @I@@@@ INCF AS )@@G@@ . INC FILE COUNT AND ZERO RECORDS CD337800 @I@@@@ J AT )@@G@@ CMPTP2 . CD337900 @I@@@@AU )@@G@@EOF2ND . AV )@@G@@CD338000 @I@@@@ INCR . AW )@@G@@ CD338100 @I@@@@ TNZ EOFLAG AX )@@G@@ . CD338200 @I@@@@ J AY )@@G@@ NOEFT1 . NO EOF ON TAPE 1 CD338300 @I@@@@AZ )@@G@@ SLJ PRTEFX . END OF FILE ENCOUNTERED BA )@@G@@CD338400 @I@@@@ L A0,ADPKT3 . YOUR TAPES COMBB )@@G@@PARE CD338500 @I@@@@ ER PRINT$ BC )@@G@@ . CD338600 @I@@@@ INCF BD )@@G@@ . UP FILE COUNT-ZERO RECORD CNT CD338700 @I@@@@BE )@@G@@NXTCMP . BF )@@G@@CD338800 @I@@@@ SZ EOFLAG . BG )@@G@@ CD338900 @I@@@@ TZ,S6 OPTION BH )@@G@@ . CD339000 @I@@@@FOPT(2) JGD BI )@@G@@ X2,CMPTP1 . READ NEXT FILE- F OPTION CD339100 @I@@@@BJ )@@G@@ J CDIMGE . GET NEXT COMMAND BK )@@G@@CD339200 @I@@@@NOEFT2 DL A0,F2NAM . BL )@@G@@ CD339300 @I@@@@ DS A0,NOTEOF+9 BM )@@G@@ . CD339400 @I@@@@ L BN )@@G@@ A0,ADPKT4 . EOF EXPECTED, NOT ENCOUNTERED CD339500 @I@@@@BO )@@G@@ ER PRINT$ . BP )@@G@@CD339600 @I@@@@ S X2,SAVJGD . SAVE FILE COUNBQ )@@G@@T IS IS ONE CD339700 @I@@@@ LA,U A0,1 BR )@@G@@ . CD339800 @I@@@@ S BS )@@G@@ A0,NO2EOF . RETURN FROM PSF SWITHC CD339900 @I@@@@BT )@@G@@ L X2,(037777777777) . DUMMY RECORD COUNT BU )@@G@@CD340000 @I@@@@ J REPEAT . POSITION T2 PABV )@@G@@ST EOF CD340100 @I@@@@NOEFT1 BW )@@G@@ . NO EOF ON T1, IS ON T2 CD340200 @I@@@@ DL BX )@@G@@ A0,F2NAM . LOAD FILENAME IN ERROR MSG CD340300 @I@@@@BY )@@G@@ DS A0,BLOWIT+13 . BZ )@@G@@CD340400 @I@@@@ SLJ QGETAD . GET BLOCK COUNCA )@@G@@T CD340500 @I@@@@ L A0,2,A0 CB )@@G@@ . CD340600 @I@@@@ E$BD CC )@@G@@ 6,BLOWIT+10,6 . STORE BLOCK COUNT CD340700 @I@@@@CD )@@G@@ L A0,ADPKT7 CE )@@G@@CD340800 @I@@@@ ER PRINT$ . CF )@@G@@ CD340900 @I@@@@ INCF CG )@@G@@ . UP FILE, ZERO RECORD COUNTS CD341000 @I@@@@ DL CH )@@G@@ A0,F1NAM . SWAP FILE NAMES TO POSTION CD341100 @I@@@@CI )@@G@@ DS A0,FILEN . CJ )@@G@@CD341200 @I@@@@ S X2,SAVJGD . SAVE FILE COUNCK )@@G@@T CD341300 @I@@@@ LA,U A0,1 CL )@@G@@ . CD341400 @I@@@@ S CM )@@G@@ A0,NO2EOF . RETURN FROM PSF SWITCH CD341500 @I@@@@CN )@@G@@ L X2,(037777777777) . DUMMY RECORD COUNT CO )@@G@@CD341600 @I@@@@ J REPEAT . POSITION F1 PACP )@@G@@ST EOF CD341700 @I@@@@GOOFNR CQ )@@G@@ . NR WORDS 2 TAPES DIFFERENT CD341800 @I@@@@ L,U CR )@@G@@ A0,0050004 . TEST FOR ODD NR WDS ON 9 TRACK . 3A @I@@@@CS )@@G@@ TNE,H1 A0,WDSTP1 . AFC ON TAPE 1 WITH 5 FRAMES CT )@@G@@ . 3A @I@@@@ J AFCTP1 . AFC IS ON TAPECU )@@G@@ 1 . 3A @I@@@@ TE,H1 A0,WDSTP2 CV )@@G@@ . NOT ON 1 TRY TAPE 2 . 3A @I@@@@ J CW )@@G@@ TRUGOF . HAVE TRUE NON COMPARE ERROR . 3A @I@@@@CX )@@G@@ L,H2 A0,WDSTP2 . NR WORDS READ + PAD CY )@@G@@ . 3A @I@@@@ ANA,U A0,1 . DECREADE FOR PCZ )@@G@@AD . 3A @I@@@@ TE,H2 A0,WDSTP1 DA )@@G@@ . SAME NR WORDS WITHOUT AFC . 3A @I@@@@ J DB )@@G@@ TRUGOF . NO . 3A @I@@@@DC )@@G@@ LA A0,EQUIP2 . TEST FOR 9 TRACK TAPE DD )@@G@@ . 3A @I@@@@ TE,U A0,05 . NINE TRACK TAPDE )@@G@@E DRIVE 8C9 . 3A @I@@@@ J TRUGOF DF )@@G@@ . NOT NINE TRACK . 3A @I@@@@ LA DG )@@G@@ A0,EQUIP1 . MUST BE 7 AND 9 TRACK COMPARISON . 3A @I@@@@DH )@@G@@ TE,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATEDI )@@G@@ . 3A @I@@@@ J TRUGOF . DJ )@@G@@ . 3A @I@@@@ ANA,U A15,1 DK )@@G@@ . USE 1 LESS WD FOR COMPARE . 3A @I@@@@ J DL )@@G@@ CMPAFC . PRINT WARNING FOR USER IF NOT DONE . 3A @I@@@@DM )@@G@@AFCTP1 L A0,EQUIP1 . TEST FOR 9 TRACK TAPE DRIVE DN )@@G@@ . 3A @I@@@@ TE,U A0,05 . DO )@@G@@ . 3A @I@@@@ J TRUGOF DP )@@G@@ . NOT 9 TRACK DRIVE . 3A @I@@@@ L DQ )@@G@@ A0,EQUIP2 . MUST BE 7 AND 9 TRACK COMPARE . 3A @I@@@@DR )@@G@@ TE,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATEDS )@@G@@ . 3A @I@@@@ J TRUGOF . DT )@@G@@ . 3A @I@@@@ ANA,U A14,1 DU )@@G@@ . DECREASE NR WORDS FOR PAD . 3A @I@@@@ TE,H2 DV )@@G@@ A14,A15 . SAME SIZE WITHOUT PADDING . 3A @I@@@@DW )@@G@@ J TRUGOF . DX )@@G@@ . 3A @I@@@@CMPAFC . DY )@@G@@ . 3A @I@@@@ J SAMWDS-1 DZ )@@G@@ . TEST WORD COMPARISON . 3A @I@@@@TRUGOF EA )@@G@@ . . 3A @I@@@@EB )@@G@@ DL A0,F1NAM EC )@@G@@CD341900 @I@@@@ DS A0,FRSTFIL . ED )@@G@@ CD342000 @I@@@@ DL A0,F2NAM EE )@@G@@ . CD342100 @I@@@@ DS EF )@@G@@ A0,SECDFIL . CD342200 @I@@@@EG )@@G@@ LA A0,DIFFBL . B DIFFERENT BLOCK SIZE EH )@@G@@CD342300 @I@@@@ ER PRINT$ . EI )@@G@@ CD342400 @I@@@@ J GOOFIT EJ )@@G@@ . CD342500 @I@@@@GOOFWD EK )@@G@@ . WORDS DID NOT COMPARE CD342600 @I@@@@EL )@@G@@ DL A0,F1NAM . EM )@@G@@CD342700 @I@@@@ DS A0,FSTFL . EN )@@G@@ CD342800 @I@@@@ DL A0,F2NAM EO )@@G@@ . CD342900 @I@@@@ DS EP )@@G@@ A0,SCDFL . CD343000 @I@@@@EQ )@@G@@ LA A0,A3 . NR WORD NOT COMPARING ER )@@G@@CD343100 @I@@@@ E$BD 6,WRDCNT,6 . ES )@@G@@ CD343200 @B@@@@ LA A0,NOCMP ET )@@G@@ . @I@@@@ ER PRINT$ . EU )@@G@@ CD343300 @I@@@@GOOFIT . POEV )@@G@@SITION 2 TAPES PAST EOF CD343400 @I@@@@ DL A0,FEW )@@G@@1NAM . CD343500 @I@@@@ EX )@@G@@ DS A0,FILEN . CD3436EY )@@G@@00 @I@@@@ L A0,WDSTP1 . EZ )@@G@@ CD343700 @I@@@@ S,H2 A0,NOWDS$ . FA )@@G@@ CD343800 @I@@@@ SLJ PRTOFB )@@G@@ CD343900 @I@@@@ FC )@@G@@ L R1,WDSTP2 . CD3440FD )@@G@@00 @I@@@@ L,U A0,BLOCK1 . TRANSFER 2ND BLOCK TFE )@@G@@O PRINT IT CD344100 @I@@@@ LXI,U A0,1 . FF )@@G@@ CD344200 @I@@@@ L,U A1,BFG )@@G@@LOCK . CD344300 @I@@@@ FH )@@G@@ LXI,U A1,1 . CD3444FI )@@G@@00 @I@@@@ BT A1,0,*A0 . FJ )@@G@@ CD344500 @I@@@@ L A0,WDSTP2 . FK )@@G@@ CD344600 @I@@@@ S,H2 A0,NFL )@@G@@OWDS$ . CD344700 @I@@@@ FM )@@G@@ DL A0,F2NAM . CD3448FN )@@G@@00 @I@@@@ DS A0,FILEN . FO )@@G@@ CD344900 @I@@@@ SLJ PRTO . FP )@@G@@ CD345000 @I@@@@ DL A0,FFQ )@@G@@1NAM . PREPARE TO MOVE PAST EOF CD345100 @I@@@@ FR )@@G@@ DS A0,FILEN . CD3452FS )@@G@@00 @I@@@@ SZ NO2EOF . FT )@@G@@ CD345300 @I@@@@ S X2,SAVJGD . FIFU )@@G@@LE NR IF IS ONE CD345400 @I@@@@ L X2,(FV )@@G@@037777777777) . DUMMY RECORD COUNT CD345500 @I@@@@ FW )@@G@@ LA,U A1,1 . CD3456FX )@@G@@00 @I@@@@ SA A1,NONO . TO SWAP FN AND MOVE FY )@@G@@FN2 CD345700 @I@@@@ J REPEAT . FZ )@@G@@ CD345800 @I@@@@NOT2ND GA )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 @I@@@@ GB )@@G@@ L A0,ADPKT5 . CD3460GC )@@G@@00 @I@@@@ ER PRINT$ . GD )@@G@@ CD346100 @I@@@@ J CDIMGE . GE )@@G@@ CD346200 @I@@@@NXTFLE DL A0,FGF )@@G@@2NAM CD346300 @I@@@@ GG )@@G@@ DS A0,FILEN CD3464GH )@@G@@00 @I@@@@ LA,U A0,1 GI )@@G@@ CD346500 @I@@@@ S A0,NO2EOF GJ )@@G@@ CD346600 @I@@@@ L X2,(GK )@@G@@037777777777) . DUMMY RECORD COUNT CD346700 @I@@@@ GL )@@G@@ SZ NONO . CD3468GM )@@G@@00 @I@@@@ J REPEAT . GO MOVE THE TAPE TO NGN )@@G@@EXT EOF CD346900 @I@@@@/ . WRITE OVER TAPE TO END OF TAPE MARKERGO )@@G@@ CD347000 @I@@@@OVERWT CLRR GP )@@G@@ . CLEAR RECORD COUNTER CD347100 @I@@@@ GQ )@@G@@ LA,S5 A0,OPTION CD3472GR )@@G@@00 @I@@@@ TEP,U A0,1 GS )@@G@@ CD347300 @I@@@@ J DRUMASK . DRGT )@@G@@UM CODE NOT IMPLEMENTED CD347400 @I@@@@ DL A0,FGU )@@G@@ILEN CD347500 @I@@@@ GV )@@G@@ DS A0,TAPPKT CD3476GW )@@G@@00 @I@@@@ L,U A0,011 . WRITE EOF FIRST - FOGX )@@G@@R 2 EOFS TO CD347700 @I@@@@ S,S2 A0,TAPPKT+3 GY )@@G@@ CD347800 @I@@@@ L,U A0,TGZ )@@G@@APPKT CD347900 @I@@@@ HA )@@G@@ ER IOW$ CD3480HB )@@G@@00 @I@@@@ L,S1 A0,TAPPKT+3 HC )@@G@@ CD348100 @I@@@@ JNZ A0,ERRWRT HD )@@G@@ CD348200 @I@@@@ L,U A0,0HE )@@G@@10 CD348300 @I@@@@ HF )@@G@@ S,S2 A0,TAPPKT+3 . WRITE FUNCTION CD3484HG )@@G@@00 @I@@@@ L A0,CLEAR HH )@@G@@ CD348500 @I@@@@ S A0,BLOCK HI )@@G@@ CD348600 @I@@@@ L,U A0,0HJ )@@G@@61 . TRANSFER ALL WORDS FROM SAME LOCCD348700 @I@@@@ HK )@@G@@ S,S1 A0,TAPPKT+4 CD3488HL )@@G@@00 @I@@@@CLRWRT L,U A0,TAPPKT . WRITE LOOP HM )@@G@@ CD348900 @I@@@@ ER IOW$ HN )@@G@@ CD349000 @I@@@@ INCR HO )@@G@@ . INCREMENT RECORD COUNT CD349100 @I@@@@ HP )@@G@@ L,S1 A0,TAPPKT+3 CD3492HQ )@@G@@00 @I@@@@ JZ A0,CLRWRT HR )@@G@@ CD349300 @I@@@@ TE,U A0,2 HS )@@G@@ CD349400 @I@@@@ J ERRWHT )@@G@@RT CD349500 @I@@@@ HU )@@G@@ L,U A0,011 . END OF FILE FOR TAPE CD3496HV )@@G@@00 @I@@@@ S,T1 A0,TAPPKT+3 HW )@@G@@ CD349700 @I@@@@ L,U A0,TAPPKT HX )@@G@@ CD349800 @I@@@@ ER IOW$HY )@@G@@ CD349900 @I@@@@ HZ )@@G@@ L,U A0,TAPPKT CD3500IA )@@G@@00 @I@@@@ ER IOW$ IB )@@G@@ CD350100 @I@@@@ L,U A0,051 . BAIC )@@G@@CKSPACE OVER EOF CD350200 @I@@@@ S,T1 A0,TID )@@G@@APPKT+3 CD350300 @I@@@@ IE )@@G@@ L,U A0,TAPPKT CD3504IF )@@G@@00 @I@@@@ ER IOW$ IG )@@G@@ CD350500 @I@@@@ ER IOW$ IH )@@G@@ CD350600 @I@@@@ DL A0,FII )@@G@@ILEN CD350700 @I@@@@ IJ )@@G@@ DS A0,CLRMSG CD3508IK )@@G@@00 @I@@@@ SLJ QGETAD . NEED MESSAGE -HOW MUIL )@@G@@CH WROTE CD350900 @I@@@@ L A0,2,A0 . LOIM )@@G@@AD RECORD COUNT CD351000 @I@@@@ E$BD 6,BEIN )@@G@@FEOT,6 CD351100 @I@@@@ IO )@@G@@ L A0,CLRPKT CD3512IP )@@G@@00 @I@@@@ ER PRINT$ IQ )@@G@@ CD351300 @I@@@@ L,U A0,01 . REIR )@@G@@STORE TAPE PACKET FOR OTHER COCD351400 @I@@@@ S,S1 A0,TIS )@@G@@APPKT+4 CD351500 @I@@@@ IT )@@G@@ TNZ,S6 OPTION . IS F OPTON SET CD3516IU )@@G@@00 @I@@@@ A,U A0,1 . SET DUMMY F OPTION IIV )@@G@@NDICATOR CD351700 @I@@@@ S,S6 A0,OPTION . PSIW )@@G@@B TEST IS FOR NONZERO - WILL WCD351800 @I@@@@ S A0,OIX )@@G@@VWJMP . SWITCH TO RETURN HERE FROM PSB CD351900 @I@@@@ IY )@@G@@ L,U X2,1 . LOAD FILE COUNT FOR PSB COMMAND CD3520IZ )@@G@@00 @I@@@@ J BWDSET . POSITION BACK TO BEGJA )@@G@@INNING OF #CCD352100 @I@@@@OVWRET . JB )@@G@@ CD352200 @I@@@@ L,U A0,0JC )@@G@@20 . READ FORWARD OVER EOF CD352300 @I@@@@ JD )@@G@@ S,S2 A0,TAPPKT+3 CD3524JE )@@G@@00 @I@@@@ L,U A0,TAPPKT JF )@@G@@ CD352500 @I@@@@ ER IOW$ JG )@@G@@ CD352600 @I@@@@ L,S1 A0,TJH )@@G@@APPKT+3 CD352700 @I@@@@ JI )@@G@@ TE,U A0,1 . WAS AN END OF FILE READ CD3528JJ )@@G@@00 @I@@@@ J ERRWRT JK )@@G@@ CD352900 @I@@@@ INCF . UPJL )@@G@@ FILE - ZERO RECORD COUNT CD353000 @I@@@@ L A1,OJM )@@G@@VWJMP CD353100 @I@@@@ JN )@@G@@ L,U A0,0 CD3532JO )@@G@@00 @I@@@@ S A0,OVWJMP . REMOVE SWITCH FOR PSJP )@@G@@B CD353300 @I@@@@ TE,U A1,2 . WAJQ )@@G@@S A FILE OPTION DUMMIED CD353400 @I@@@@ J CDIMJR )@@G@@GE CD353500 @I@@@@ JS )@@G@@ S,S6 A0,OPTION . REMOVE FILES OPTION CD3536JT )@@G@@00 @I@@@@ J CDIMGE JU )@@G@@ CD353700 @I@@@@ERRWRT SLJ QGETAD JV )@@G@@ CD353800 @I@@@@ L A0,2JW )@@G@@,A0 CD353900 @I@@@@ JX )@@G@@ E$BD 6,ERRBLK,6 CD3540JY )@@G@@00 @I@@@@ DL A0,FILEN JZ )@@G@@ CD354100 @I@@@@ DS A0,ERCLR KA )@@G@@ CD354200 @I@@@@ L A0,CKB )@@G@@LERRM CD354300 @I@@@@ KC )@@G@@ ER PRINT$ CD3544KD )@@G@@00 @I@@@@ L,U A0,01 . RESTORE TAPE PACKET KE )@@G@@FOR OTHER COCD354600 @I@@@@ S,S1 A0,TAPPKT+4 KF )@@G@@ CD354700 @I@@@@ ER EXITKG )@@G@@$ CD354800 @B@@@@DRMCHKKH )@@G@@ . @I@@@@DRUMASK DL A0,FILEN KI )@@G@@ CD355000 @I@@@@ DSKJ )@@G@@ A0,DRMNO CD355100 KK )@@G@@@I@@@@ L A0,DRMNCL KL )@@G@@ CD355200 @I@@@@ ER PRINT$ KM )@@G@@ CD355300 @I@@@@ ER EXIT$ KN )@@G@@ CD355400 @I@@@@/. CHECK FKO )@@G@@OR 4096 WORD BLOCKS OF #CLEAR CD355500 KP )@@G@@@I@@@@CHECKWT CLRR . CLEAR RECORD COUNT KQ )@@G@@ CD355600 @I@@@@ LA,S5 A0,OPTION KR )@@G@@ CD355700 @I@@@@ TEP,U A0,1 KS )@@G@@ CD355800 @I@@@@ J KT )@@G@@ DRMCHK CD355900 KU )@@G@@@I@@@@ DL A0,FILEN KV )@@G@@ CD356000 @I@@@@ DS A0,TAPPKT . PUT FILEKW )@@G@@ NAME IN IO PACKET CD356100 @I@@@@ L,U A0,020 KX )@@G@@ CD356200 @I@@@@ S,KY )@@G@@S2 A0,TAPPKT+3 . READ FUNCTION CD356300 KZ )@@G@@@I@@@@ SZ WRDRD LA )@@G@@ CD356400 @I@@@@CHKLOP INCR . INCREMENLB )@@G@@T RECORD COUNT CD356500 @I@@@@ L,U A0,TAPPKT LC )@@G@@ CD356600 @I@@@@ ERLD )@@G@@ IOW$ . READ A BLOCK FROM TAPE CD356700 LE )@@G@@@I@@@@ L,S1 A0,TAPPKT+3 . GET STATUS OF READ LF )@@G@@ CD356800 @I@@@@ JNZ A0,EOTCHK . CHECK FOLG )@@G@@R END OF TAPE MARKER CD356900 @I@@@@ L,H2 A1,TAPPKT+LH )@@G@@3 . NUMBER OF WORDS READ CD357000 @I@@@@ TNLI )@@G@@E,U A1,4096 CD357100 LJ )@@G@@@I@@@@ J $+3 LK )@@G@@ CD357200 @I@@@@ S A1,WRDRD . NOT 4096LL )@@G@@ WORD READ CD357300 @I@@@@ J CNTERR LM )@@G@@ CD357400 @I@@@@ L LN )@@G@@ A0,CLEAR CD357500 LO )@@G@@@I@@@@ L,U R1,4096 LP )@@G@@ CD357600 @I@@@@ SNE A0,BLOCK . SEARCH FLQ )@@G@@OR NONMATCHING WORD CD357700 @I@@@@ J CHKLOP LR )@@G@@ CD357800 @I@@@@ S LS )@@G@@ R1,WRDRD . WORD NUMBER WHICH IS BAD CD357900 LT )@@G@@@I@@@@CHKERR DL A1,FILEN LU )@@G@@ CD358000 @I@@@@ DS A1,BADCHK . PUT FILELV )@@G@@ NAME IN ERROR MESSAGER CD358100 @I@@@@ SLJ QGETAD LW )@@G@@ CD358200 @I@@@@ L LX )@@G@@ A0,2,A0 . LOAD RECORD COUNT CD358300 LY )@@G@@@I@@@@ E$BD 6,BDLNR,6 . PUT IN ERROR MESSAGE LZ )@@G@@ CD358400 @I@@@@ L,U A0,4096 . COMPUTE MA )@@G@@BAD WORD NUMBER CD358500 @I@@@@ L A1,WRDRD MB )@@G@@ CD358600 @I@@@@ ANMC )@@G@@A A0,A1 CD358700 MD )@@G@@@I@@@@ E$BD 6,BDWRD,6 . PUT IN ERROR MESSAGE ME )@@G@@ CD358800 @I@@@@ L A0,BDCKMG MF )@@G@@ CD358900 @I@@@@ ER PRINT$ MG )@@G@@ CD359000 @I@@@@ ERMH )@@G@@ EXIT$ CD359100 MI )@@G@@@I@@@@CNTERR . ERROR- NOT 4096 WORDS MJ )@@G@@ CD359200 @I@@@@ DL A1,FILEN MK )@@G@@ CD359300 @I@@@@ DS A1,BADCNT ML )@@G@@ CD359400 @I@@@@ SLMM )@@G@@J QGETAD CD359500 MN )@@G@@@I@@@@ L A0,2,A0 . RECORD COUNT MO )@@G@@ CD359600 @I@@@@ E$BD 6,CEBLOK,6 MP )@@G@@ CD359700 @I@@@@ L A0,WRDRD MQ )@@G@@ . WORDS ACTUALLY READ CD359800 @I@@@@ E$MR )@@G@@BD 6,CEWORD,6 CD359900 MS )@@G@@@I@@@@ L A0,CEMSG MT )@@G@@ CD360000 @I@@@@ ER PRINT$ MU )@@G@@ CD360100 @I@@@@ ER EXIT$ MV )@@G@@ CD360200 @I@@@@. MW )@@G@@ CD360300 MX )@@G@@@B@@@@EOTCHK . @I@@@@ L,U MY )@@G@@ A1,1 . CHECK FOR END OF FILE CD360500 @I@@@@MZ )@@G@@ TE A0,A1 . END OF TAPE READ NA )@@G@@CD360600 @I@@@@ J BADSTA . END OF TAPE MANB )@@G@@RKRR CD360700 @I@@@@ L,U A0,TAPPKT NC )@@G@@ CD360800 @I@@@@ ER ND )@@G@@ IOW$ . SECOND END OF FILE CD360900 @I@@@@NE )@@G@@ L,S1 A0,TAPPKT+3 NF )@@G@@CD361000 @I@@@@ TE A0,A1 NG )@@G@@ CD361100 @I@@@@ J BADSTA NH )@@G@@ . SHOULD HAVE READ EOF - DID NOT CD361200 @I@@@@ L,U NI )@@G@@ A0,051 . BACKSPACE OVER SECOND END OF FILCD361300 @I@@@@NJ )@@G@@ S,S2 A0,TAPPKT+3 NK )@@G@@CD361400 @I@@@@ L,U A0,TAPPKT NL )@@G@@ CD361500 @I@@@@ ER IOW$ NM )@@G@@ CD361600 @I@@@@ DCRR NN )@@G@@ . DECREASE FOR END FILE BLOCK CD361700 @I@@@@NO )@@G@@ DL A0,FILEN . ALL BLOCKS HABE BEEN READ NP )@@G@@CD361800 @I@@@@ DS A0,SUCCHK NQ )@@G@@ CD361900 @I@@@@ SLJ QGETAD NR )@@G@@ . GET ADDRESS OF FILE COUNTERS CD362000 @I@@@@ L NS )@@G@@ A0,2,A0 . GET RECORD COUNT CD362100 @I@@@@NT )@@G@@ E$BD 6,SUCBLK,6 NU )@@G@@CD362200 @I@@@@ L A0,CHKMSG NV )@@G@@ CD362300 @I@@@@ ER PRINT$ NW )@@G@@ CD362400 @I@@@@ INCF NX )@@G@@ . UP FILE - ZERO RECORD COUNT CD362500 @I@@@@NY )@@G@@ J CDIMGE NZ )@@G@@CD362600 @I@@@@. OA )@@G@@ CD362700 @I@@@@BADSTA DL A1,FILEN OB )@@G@@ . UNEXPECTED STATUS RETURNED BY RECD362800 @I@@@@ DS OC )@@G@@ A1,STAMSG CD362900 @I@@@@OD )@@G@@ E$BD 6,STAT,6 . STATUS IS IN A0 - PUT IN MSG OE )@@G@@CD363000 @I@@@@ SLJ QGETAD OF )@@G@@ CD363100 @I@@@@ L A0,2,A0 OG )@@G@@ CD363200 @I@@@@ E$BD OH )@@G@@ 6,RCDSTA,6 . PUT RECORD COUNT IN MESSAGE CD363300 @I@@@@OI )@@G@@ L A0,STAPKT OJ )@@G@@CD363400 @I@@@@ ER PRINT$ OK )@@G@@ CD363500 @I@@@@ L$SNAP 'IO PKT',07,05,TOL )@@G@@APPKT CD363600 @I@@@@ ER OM )@@G@@ EXIT$ CD363700 @I@@@@ON )@@G@@/. GENERAL UTILITY ROUTINES OO )@@G@@CD363800 @I@@@@BADCOM L A0,PRTERR . BAD PARAMETER OP )@@G@@CARD CD363900 @I@@@@ ER PRINT$ OQ )@@G@@ . PRINT IT CD364000 @I@@@@ L OR )@@G@@ A0,LESX . FOLLOWING OPER. NOT PERFORMED CD364100 @I@@@@OS )@@G@@ ER PRINT$ OT )@@G@@CD364200 @I@@@@BDCMI L A0,RDPKT OU )@@G@@ CD364300 @I@@@@ ER READ$ OV )@@G@@ CD364400 @I@@@@ S,S3 OW )@@G@@ A0,PPKT . NR WORDS TO PRINT CD364500 @I@@@@OX )@@G@@ L A0,PPKT OY )@@G@@CD364600 @I@@@@ ER PRINT$ OZ )@@G@@ CD364700 @I@@@@ J BDCMI PA )@@G@@ . LOOP TIL READ @CARD CD364800 @I@@@@NOVAL NOP PB )@@G@@ . CD364900 @I@@@@PC )@@G@@ JNZ A2,1,X11 . USER HAS COUNT. GO BACK PD )@@G@@CD365000 @I@@@@ L X2,(037777777777) . LOAD A RECORD PE )@@G@@COUNT WE CD365100 @I@@@@ J 0,X11 PF )@@G@@ . GO BACK WITH PHONEY COUNT CD365200 @B@@@@EOFILE* NOP PG )@@G@@ . @I@@@@ INCR PH )@@G@@ CD365400 @I@@@@ SLJ PRTEPI )@@G@@FX CD365500 @I@@@@ PJ )@@G@@ INCF CD3656PK )@@G@@00 @I@@@@ TZ,S6 OPTION . F OPTION SET? PL )@@G@@ CD365700 @I@@@@ J *PNT . YESPM )@@G@@ CD365800 @I@@@@ SZ DUPPPN )@@G@@NT . RESET TAPE TO DRUM FLAG CD365900 @I@@@@ PO )@@G@@ J CDIMGE CD3660PP )@@G@@00 @B@@@@CNVT NOP . @I@@@@ LMPQ )@@G@@J X11,CONVERT . CONVERT FIELDDATA NR IN X2 TO BINCD366200 PR )@@G@@@I@@@@ J *CNVT PS )@@G@@ CD366300 @I@@@@ . PT )@@G@@ CD366400 @I@@@@PRTEFX* NOP . PU )@@G@@ . PRINT EOF ENCOUNTERED MESSAGE CD366500 @I@@@@ SLPV )@@G@@J QGETAD . RETURNS ADDRESS OF FILENAME IN ACD366600 PW )@@G@@@I@@@@ L A0,2,A0 . RECORD COUNT - BINARY PX )@@G@@ CD366700 @I@@@@ E$BD 6,BLKNUM,6 PY )@@G@@ CD366800 @I@@@@ SLJ QGETAD PZ )@@G@@ . CD366900 @I@@@@ LAQA )@@G@@ A0,3,A0 . BLOCK COUNT CD367000 QB )@@G@@@I@@@@ E$BD 6,FILENUM,3 . QC )@@G@@ CD367100 @I@@@@ DL A0,FILEN . QD )@@G@@ CD367200 @I@@@@ DS A0,FILNAM QE )@@G@@ . CD367300 @I@@@@ LAQF )@@G@@ A0,ADPKT1 . EOF ENCOUNTERED IN BLOCK OF FILECD367500 QG )@@G@@@I@@@@ ER PRINT$ QH )@@G@@ CD367600 @I@@@@ J *PRTEFX QI )@@G@@ CD367700 @I@@@@GETSCN* NOP QJ )@@G@@ . ENTER SCAN ROUTINE CD367800 @I@@@@ LMQK )@@G@@J X11,SCAN CD367900 QL )@@G@@@I@@@@ + 1,CDADDR QM )@@G@@ CD368000 @I@@@@ DO 4 , + 0 QN )@@G@@ CD368100 @I@@@@ J *GETSCN QO )@@G@@ CD368200 @I@@@@GENRD1 NOQP )@@G@@P . USED IN COPY ROUTINE CD368300 QQ )@@G@@@I@@@@ S X2,BS QR )@@G@@ CD368400 @I@@@@ LA,S5 A0,OPTION . LOAD FOR QS )@@G@@D OPTION TEST CD368500 @I@@@@ TOP,U A0,01 QT )@@G@@ . 'D' OPTION SET? CD368600 @I@@@@ J QU )@@G@@RDTP CD368700 QV )@@G@@@I@@@@ TZ DUPPNT . QW )@@G@@ CD368800 @I@@@@ J RDTP . QX )@@G@@ CD368900 @I@@@@ SLJ DREAD QY )@@G@@ CD369000 @I@@@@ LXQZ )@@G@@ X2,BS . RESTORE X2 CD369100 RA )@@G@@@I@@@@ J *GENRD1 RB )@@G@@ CD369200 @I@@@@RDTP LMJ X11,TPRD$ RC )@@G@@ CD369300 @I@@@@FN1 + 0 RD )@@G@@ . NORMAL RTN-NR WORDS READ IN NOWDCD369400 @I@@@@ + RE )@@G@@ 0 CD369500 RF )@@G@@@I@@@@ + 4096,BLOCK RG )@@G@@ CD369600 @I@@@@ + EOFILE . RH )@@G@@ CD369700 @I@@@@ L X2,BS RI )@@G@@ CD369800 @I@@@@ J RJ )@@G@@ *GENRD1 CD369900 RK )@@G@@@I@@@@. ****************************************************************RL )@@G@@******CD370000 @I@@@@. THIS ROUTINE WILL ALLOW UPDATING THE FILE COURM )@@G@@NT AND RECORD COUNT ON FCD370100 @I@@@@. FROM ONE TO TEN TAPES IN ONERN )@@G@@ RUN CD370200 @I@@@@QGETAD* NOP RO )@@G@@ . GET ADDR OF 4 WORD FILE INFO IN CD370300 RP )@@G@@@I@@@@I DO 6 , S X11+I-1,QSAVE+I-1 . SAVE REGISTERS RQ )@@G@@ CD370400 @I@@@@ L X11,QTAB RR )@@G@@ CD370500 @I@@@@ LXI X11,(077777RS )@@G@@3) . A4=-4,4*NO ENTRIES CD370600 @I@@@@ DLRT )@@G@@ A1,FILEN . PICKUP CURRENT FILENAME CD370700 RU )@@G@@@I@@@@QLOOP JMGI X11,$+2 . CHECK FOR END OF ENTRIES RV )@@G@@ CD370800 @I@@@@ J QNOFIN . NO MORE ENTRW )@@G@@RIES CD370900 @I@@@@ DTE A1,QTAB+1,RX )@@G@@X11 . CK FOR MATCHING FILELNAME CD371000 @I@@@@ J RY )@@G@@ QLOOP . NO MATCH CD371100 RZ )@@G@@@I@@@@ L,U A0,QTAB+1,X11 . PICK UP ADDRESS OF MATCH SA )@@G@@ CD371200 @I@@@@ SZ X11 SB )@@G@@ CD371300 @I@@@@ J *QGETAD SC )@@G@@ . EXIT CD371400 @I@@@@. NO MATCH FSD )@@G@@OUND, THIS IS NEW FILENAME, ADD IT TO TABLE CD371500 SE )@@G@@@I@@@@QNOFIN L A0,QTAB . GET ADDESS AVAILABLE FOR SF )@@G@@ CD371600 @I@@@@ L,U A0,QTAB+1,A0 . NEXT ENTRY SG )@@G@@ CD371700 @I@@@@ DS A1,0,A0 SH )@@G@@. STARE FILENAME CD371800 @I@@@@ L,SI )@@G@@U A4,4 . UPDATE COUNT OF ENTRIES CD371900 SJ )@@G@@@I@@@@ A A4,QTAB SK )@@G@@ CD372000 @I@@@@ S A4,QTAB SL )@@G@@ CD372100 @I@@@@ TG,U A4,41 SM )@@G@@ . TEST MAX FILE NAMES CD372200 @I@@@@ J SN )@@G@@ GETOUT . MORE THAN 10 FILES - ERROR *** CD372300 SO )@@G@@@I@@@@ SZ X11 SP )@@G@@ CD372400 @I@@@@ J *QGETAD . SQ )@@G@@ CD372500 @I@@@@GETOUT L A0,(P 2,12SR )@@G@@,EXCEED) CD372600 @I@@@@ ERSS )@@G@@ PRINT$ CD372700 ST )@@G@@@I@@@@ ER ERR$ SU )@@G@@ CD372800 @I@@@@INCRX* NOP . INCREMENSV )@@G@@T RECORD COUNTER CD372900 @I@@@@ SLJ QGETAD SW )@@G@@ CD373000 @I@@@@ L,SX )@@G@@U A1,1 CD373100 SY )@@G@@@I@@@@ A A1,2,A0 SZ )@@G@@ CD373200 @I@@@@ S A1,2,A0 TA )@@G@@ CD373300 @I@@@@ SLJ QREST TB )@@G@@ CD373400 @I@@@@ J TC )@@G@@ *INCRX CD373500 TD )@@G@@@I@@@@INCFX* NOP . INCREMENT FILE COUNTER TE )@@G@@ CD373600 @I@@@@ SLJ QGETAD TF )@@G@@ CD373700 @I@@@@ L,U A1,1 TG )@@G@@ CD373800 @I@@@@ A TH )@@G@@ A1,3,A0 CD373900 TI )@@G@@@I@@@@ S A1,3,A0 TJ )@@G@@ CD374000 @I@@@@ SZ 2,A0 . CLEAR RETK )@@G@@CORD COUNT CD374100 @I@@@@ SLJ QREST TL )@@G@@ CD374200 @I@@@@ J TM )@@G@@ *INCFX CD374300 TN )@@G@@@I@@@@DCRRX* NOP . DECREMENT RECORD DOUNTER TO )@@G@@ CD374400 @I@@@@ SLJ QGETAD TP )@@G@@ CD374500 @I@@@@ L A1,2,A0 TQ )@@G@@ CD374600 @I@@@@ ANTR )@@G@@,U A1,1 CD374700 TS )@@G@@@I@@@@ S A1,2,A0 TT )@@G@@ CD374800 @I@@@@ SLJ QREST TU )@@G@@ CD374900 @I@@@@ J *DCRRX TV )@@G@@ CD375000 @I@@@@DCRFX* NOTW )@@G@@P . DECREMENT FILE COUNTER CD375100 TX )@@G@@@I@@@@ SLJ QGETAD TY )@@G@@ CD375200 @I@@@@ L A1,3,A0 TZ )@@G@@ CD375300 @I@@@@ AN,U A1,1 UA )@@G@@ CD375400 @I@@@@ S UB )@@G@@ A1,3,A0 CD375500 UC )@@G@@@I@@@@ SLJ QREST UD )@@G@@ CD375600 @I@@@@ J *DCRFX UE )@@G@@ CD375700 @I@@@@CLRRX* NOP UF )@@G@@ . CLEAR RECORD COUNTER CD375800 @I@@@@ SLUG )@@G@@J QGETAD CD375900 UH )@@G@@@I@@@@ SZ 2,A0 UI )@@G@@ CD376000 @I@@@@ SLJ QREST UJ )@@G@@ CD376100 @I@@@@ J *CLRRX UK )@@G@@ CD376200 @B@@@@CLRFX* NOUL )@@G@@P . @I@@@@ SLJ QGETAD .UM )@@G@@ CLEAR FILE COUNTER CD376400 @I@@@@ L,U UN )@@G@@ A1,1 CD376500 @I@@@@UO )@@G@@ S A1,3,A0 UP )@@G@@CD376600 @I@@@@ SLJ QREST UQ )@@G@@ CD376700 @I@@@@ J *CLRFX UR )@@G@@ CD376800 @I@@@@QREST NOP US )@@G@@ . RESTORE REGISTERS CD376900 @I@@@@UT )@@G@@I DO 6 , L X11+I-1,QSAVE+I-1 UU )@@G@@CD377000 @I@@@@ J *QREST UV )@@G@@ CD377100 @I@@@@ENFILE ER EXIT$ UW )@@G@@ . CD377200 @I@@@@/ . UX )@@G@@ CD377300 @B@@@@UY )@@G@@$(0) . @H@@[@SAVEX2 + 0 UZ )@@G@@ . . 03D @I@@@@DUPPNT* + VA )@@G@@ 0 . POINTER FOR DUPING TAPE TO DRUM CD377500 VB )@@G@@@I@@@@NOWDS$* + 0 . VC )@@G@@ CD377600 @I@@@@PSERET + 0 . PSE RETUVD )@@G@@RN FROM PSF CODE CD377700 @I@@@@NONO + 0 VE )@@G@@ . USED FOR BAD COUNT OR WORD ON CMPCD377800 @I@@@@PERIOD* + VF )@@G@@ 0 . FLAG TO STIP SCAN CD377900 VG )@@G@@@I@@@@NO2EOF + 0 . TWO CMP TAPES NOT EOF AT SVH )@@G@@AME PLCD378000 @I@@@@SAVJGD + 0 VI )@@G@@ CD378100 @I@@@@OPTION* + 0 VJ )@@G@@ . OPTION WORD CD378200 @H@@[@OPTION2 + VK )@@G@@ 0 . SAVE FOR Q AND R OPTIONS . 03D @I@@@@VL )@@G@@PNT + 0 . LABEL POINTER WORD VM )@@G@@CD378300 @H@@@@NOCOMM EQU 13 . ALLOW TRI TEMPVN )@@G@@ORARILY-TRANSITION CPD3 @I@@@@NEWCRD EQU 1 VO )@@G@@ CD378500 @I@@@@SAMECD* EQU 0 VP )@@G@@ CD378600 @I@@@@BLOCK*VQ )@@G@@ RES 4096 CD3787VR )@@G@@00 @I@@@@BS RES 1 VS )@@G@@ CD378800 @I@@@@CDADDR* RES 14 VT )@@G@@ CD378900 @I@@@@BLOCK1 RES 4096VU )@@G@@ CD379000 @I@@@@ VV )@@G@@ DO 8 , +' ' CD3791VW )@@G@@00 @I@@@@COMMND RES 1 VX )@@G@@ CD379200 @I@@@@FILEN* RES 2 VY )@@G@@ CD379300 @I@@@@TEMP* RES 1 VZ )@@G@@ CD379400 @I@@@@FREED WA )@@G@@ '@FREE ' . PACKET TO FREE A FILE CD3795WB )@@G@@00 @I@@@@ + ' ' . WC )@@G@@ CD379600 @I@@@@TABL + 'DUP', COPY . TAWD )@@G@@BLE OF PARAMETER COMMANDS CD379700 @I@@@@ + 'PRTWE )@@G@@', DUMP CD379800 @I@@@@ WF )@@G@@ + 'PSF', POSFOR CD3799WG )@@G@@00 @I@@@@ + 'PSB', POSBWD WH )@@G@@ CD380000 @I@@@@ + 'TEF', WREOF WI )@@G@@ CD380100 @I@@@@ + 'TRWWJ )@@G@@', REWW CD380200 @I@@@@ WK )@@G@@ + 'FRE', REWI CD3803WL )@@G@@00 @I@@@@ + 'PSE',POSF1 WM )@@G@@ CD380400 @I@@@@ + 'CMP',COMPAR WN )@@G@@ CD380500 @I@@@@ + 'OVWWO )@@G@@',OVERWT CD380600 @I@@@@ WP )@@G@@ + 'CHK',CHECKWT CD3807WQ )@@G@@00 @I@@@@ + 'SWP',SWAPRL WR )@@G@@ CD380800 @H@@@@ + 'TRI',REWI . ALWS )@@G@@LOW ILLEGAL CMDF OR TRANSITION CPD3 @I@@@@EQUIP1 + 0 WT )@@G@@ . 3A @I@@@@EQUIP2 + WU )@@G@@0 . 3A WV )@@G@@@I@@@@FACPAC RES 10 WW )@@G@@ . 3A @I@@@@P FORM 12,6,18 WX )@@G@@ CD380900 @I@@@@AFTERB P 2,9,BLKPOSWY )@@G@@ CD381000 @I@@@@PPKT* P WZ )@@G@@ 2,0,CDADDR CD381100 XA )@@G@@@I@@@@PRTERR P 3,4,ERRADD XB )@@G@@ CD381200 @I@@@@WRERR P 2,13,BADWRI XC )@@G@@ CD381300 @I@@@@LESX P 2,6,LEXI XD )@@G@@ . CD381400 @I@@@@NOCMP P XE )@@G@@ 3,14,NOCOMP CD381500 XF )@@G@@@I@@@@DIFFBL P 3,13,DIFBLK XG )@@G@@ CD381600 @I@@@@CHKMSG P 2,10,SUCCHK XH )@@G@@ CD381700 @I@@@@BDCKMG P 2,14,BADCHXI )@@G@@K CD381800 @I@@@@STAPKT P XJ )@@G@@ 2,20,STAMSG CD381900 XK )@@G@@@I@@@@CLRPKT P 2,11,CLRMSG XL )@@G@@ CD382000 @I@@@@CLERRM P 2,13,ERCLR XM )@@G@@ CD382100 @I@@@@DRMNCL P 2,8,DRMNO XN )@@G@@ CD382200 @I@@@@CEMSG P XO )@@G@@ 2,15,BADCNT CD382300 XP )@@G@@@I@@@@CLEAR + '#CLEAR' XQ )@@G@@ CD382400 @I@@@@OVWJMP + 0 XR )@@G@@ CD382500 @I@@@@CLRMSG ' TAPXS )@@G@@E OVERWRITTEN WITH ' CD382600 @I@@@@BEFEOT + XT )@@G@@ ' ' CD382700 XU )@@G@@@I@@@@ ' BLOCKS OF 4096 WORDS ' XV )@@G@@ CD382800 @I@@@@ERCLR ' ERROR ENCOUNTERED XW )@@G@@IN BLOCK ' CD382900 @I@@@@ERRBLK + ' ' XX )@@G@@ CD383000 @I@@@@ XY )@@G@@ ' WHILE WRITING TO END OF TAPE.' CD383100 XZ )@@G@@@I@@@@DRMNO ' DRUM OVERWRITE CODE NOT IMPLEMENTED' YA )@@G@@ CD383200 @I@@@@SUCCHK ' SUCCESSFUL #CLEAR CHECK YB )@@G@@OF ' CD383300 @I@@@@SUCBLK ' ' YC )@@G@@ CD383400 @I@@@@ ' YD )@@G@@BLOCKS. ' CD383500 YE )@@G@@@I@@@@BADCHK ' ERROR IN WORD ' YF )@@G@@ CD383600 @I@@@@BDWRD ' ' YG )@@G@@ CD383700 @I@@@@ ' OF BLOCK ' YH )@@G@@ CD383800 @I@@@@BDLNR ' YI )@@G@@ ' CD383900 YJ )@@G@@@I@@@@ ' WHILE SEARCHING FOR #CHECK.' YK )@@G@@ CD384000 @I@@@@STAMSG ' ERROR STATUS ' YL )@@G@@ CD384100 @I@@@@STAT ' ' YM )@@G@@ CD384200 @I@@@@ ' YN )@@G@@RETURNED WHILE READING TAPE AT RECORD NUMBER ' CD384300 YO )@@G@@@I@@@@RCDSTA ' ' YP )@@G@@ CD384400 @I@@@@ '. ONLY 0 OR 1 STATUS ACCEPTABLE.' YQ )@@G@@ CD384500 @I@@@@BADCNT ' ' YR )@@G@@ CD384600 @I@@@@CEWORD ' YS )@@G@@ WORDS READ IN BLOCK ' CD384700 YT )@@G@@@I@@@@CEBLOK ' . 4096 WORDS EXPECTED - CHECK ERROR. ' YU )@@G@@ CD384800 @I@@@@BLKPOS ' FILE POSITIONED AFTER BYV )@@G@@LOCK ' CD384900 @I@@@@AFTBLK ' . ' YW )@@G@@ CD385000 @F@@@@XMSG1 ' YX )@@G@@ ** X OPTION SET. ONLY THE FIRST LINE **' @F@@@@XMSG2 ' YY )@@G@@ ** OF EACH RECORD WILL BE PRINTED. **' @I@@@@WRDRD + YZ )@@G@@0 CD385100 ZA )@@G@@@I@@@@QSAVE RES 6 . REGISTER SAVE AREA ZB )@@G@@ CD385200 @H@@[@ . THE QTAB TABLE HOLDS INFORMATION RELATZC )@@G@@IVE . 03D @H@@[@ . TO OPEN FILES WITHIN CPD. ZD )@@G@@ THIS TABLE . 03D @H@@[@ . IS USED TO CONZE )@@G@@TAIN FILE NAMES, RECORD . 03D @H@@[@ . POZF )@@G@@SITION INFORMATION AND FILE POSITION . 03D @H@@[@ZG )@@G@@ . INFORMATION. THE FORMAT IS ::: ZH )@@G@@. 03D @H@@[@ . ZI )@@G@@ . 03D @H@@[@ . 0 - 1 FILENAME ZJ )@@G@@ . 03D @H@@[@ . 2 RECORD POSITION/DRUMZK )@@G@@ SECTOR ADDRESS . 03D @H@@[@ . 3 FILE POSZL )@@G@@ITION COUNTER (ALWAYS 1 FOR DRUM) . 03D @I@@@@QTAB REZM )@@G@@S 1 . 4 WORDS PER FILE-FN,RECORD CNT, CD385300 ZN )@@G@@@I@@@@ DO 10 , DATA 0,0,0,1 ZO )@@G@@ CD385400 @I@@@@ERRADD 'ILLEGAL PARAMETER CARD' ZP )@@G@@ CD385500 @I@@@@EXCEED 'EXCEEDED 10 FILE NAZQ )@@G@@MES ON THIS RUN ' . CD385600 @I@@@@BADWRI ' ZR )@@G@@ERROR WHILE WRITING, COULD NOT CONTINUE' CD385700 ZS )@@G@@@I@@@@PRTLPF 'LOAD POINT ENCOUNTERED WHILE MOVING BACKWARD' . ZT )@@G@@ CD385800 @I@@@@LEXI 'FOLLOWING OPERATIONS NOT PERFORMED' ZU )@@G@@. CD385900 @I@@@@DIFBLK 'DIFFERENT SIZE BLOCZV )@@G@@KS WERE READ FROM FILE ' CD386000 @I@@@@FRSTFIL + ZW )@@G@@ ' ' . CD386100 ZX )@@G@@@^@@@@ 'AND FILE '@I@@@@SECDFIL + ' ' ZY )@@G@@. CD386400 @I@@@@NOCOMP 'FILE 'ZZ )@@G@@ CD386500 @I@@@@AA )@@G@@FSTFL + ' ' . AB )@@G@@CD386600 @^@@@@ 'AND FILE '@I@@@@SCDFL + ' AC )@@G@@ ' . CD386900 @C@@@@ AD )@@G@@ 'DID NOT COMPARE STARTING AT WORD ** '@I@@@@WRDCNT + ' ' .AE )@@G@@ CD387600 @C@@@@EOFM1 AF )@@G@@ 'END-OF-FILE WAS ENCOUNTERED IN BLOCK'@I@@@@BLKNUM + ' AG )@@G@@ ' CD388300 @^@@@@ AH )@@G@@ ' *FILE *** ' @I@@@@FILNAM + ' ' AI )@@G@@ CD388600 @I@@@@ + ' ' AJ )@@G@@ CD388700 @I@@@@FILENUM + AK )@@G@@ 'NO. ' . CD388800 AL )@@G@@@F@@@@NOTEOF 'END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'AM )@@G@@@I@@@@ + ' ' AN )@@G@@ CD389800 @I@@@@ + ' ' AO )@@G@@ CD389900 @G@@@@BLOWIT 'AN END-OF-FILE WAS AP )@@G@@ENCOUNTERED BUT NOT EXPECTED IN BLOCK ***'@I@@@@ + ' AQ )@@G@@ ' . CD391000 @^@@@@ AR )@@G@@ '*** ON FILE '@I@@@@ + ' ' AS )@@G@@ CD391300 @I@@@@ + ' ' AT )@@G@@ CD391400 @I@@@@ADPKT1 P AU )@@G@@ 3,12,EOFM1 CD391500 AV )@@G@@@I@@@@ADPKT3 P 3,3,ITDID AW )@@G@@ CD391600 @I@@@@ADPKT4 P 3,11,NOTEOF AX )@@G@@ CD391700 @I@@@@ADPKT5 P 3,7,NOFNAMAY )@@G@@ CD391800 @I@@@@ADPKT7 P AZ )@@G@@ 3,15,BLOWIT CD391900 BA )@@G@@@I@@@@EOFLAG + 0 BB )@@G@@ CD392000 @I@@@@WDSTP1 + 0 . HOLDS THBC )@@G@@E NO. OF WORDS FROM FIRSCD392100 @I@@@@WDSTP2 + 0 BD )@@G@@ . NO. OF WORDS FROM SECOND READ CD392200 @ @@@@NMANYF + BE )@@G@@ 037777777777 @I@@@@ITDID 'YOUR FILE COMPARES' BF )@@G@@ CD392300 @I@@@@NOFNAM 'THE CMP DBG )@@G@@IRECTIVE REQUIRES TWO FILE NAMES' CD392400 @I@@@@RDPKT + BH )@@G@@ ENFILE,CDADDR . PACKET FOR READ$ TO OBTAIN IMAGECD392500 BI )@@G@@@I@@@@TAPPKT + ' ' . I/O PACKET FOR MAG TAPE TEBJ )@@G@@F =011CD392600 @I@@@@ + ' ' . TRW=040,BK )@@G@@ TRI=041, PSF=050, PSB= CD392700 @I@@@@ + 0 BL )@@G@@ . CD392800 @I@@@@ + BM )@@G@@ 0 . S2 OF THIS WORD WILL CONTAIN FUNCD392900 BN )@@G@@@I@@@@ + 4096,BLOCK . HOLDS NUMBER OF WORDS AND ADDBO )@@G@@ IF MOCD393000 @I@@@@TAPWRI + ' ' . I/0 PACKBP )@@G@@ET FOR WRITING MAG. TAPECD393100 @I@@@@ + ' ' BQ )@@G@@ . CD393200 @I@@@@ + BR )@@G@@ 0 . CD393300 BS )@@G@@@I@@@@ + 0,010,0,0,0,0 . BT )@@G@@ CD393400 @I@@@@ + 0,BLOCK . NO.WORDSBU )@@G@@ AND ADDRESS CD393500 @I@@@@ END CPD BV )@@G@@ CD393600 ___ BW )@@G@@*[S@@@*SDFF*@I@@@@. GENERAL TAPE READ ROUTINE USED BY DUP, CMP, PRT BX )@@G@@FUNCTIONS . 3A @I@@@@. CALLING SEQUENCE LMJ X11 BY )@@G@@ . 3A @I@@@@. + FILE BZ )@@G@@ . 3A @I@@@@CA )@@G@@. + NAME CB )@@G@@ . 3A @I@@@@. + 4096, BUFFER AREA CC )@@G@@ . 3A @I@@@@. + EOF OR EOT RETURN ADDRESSCD )@@G@@ . 3A @I@@@@. IF BAD IO (NCE )@@G@@OT 0, 1, 2, OR 4) TAKE EXIT$ . 3A @I@@@@CF )@@G@@. RETURNS NR WORDS READ IN H2 OF NOWDS$ CG )@@G@@ . 3A @I@@@@. 4 IN S3 OF NOWDS$ AND AFC IN S1 OF NOWDS$ IF AFCCH )@@G@@ . 3A @I@@@@. CI )@@G@@ . 3A @[@@@@. @B@@@@ CJ )@@G@@ AXR$ . @B@@@@$(1) CK )@@G@@ . @F@@@@TPRD$* DL A0,0,X11 . GET THE CURRENTCL )@@G@@ FILENAME @F@@@@ DS A0,IOWPKT . STORE IT IN THECM )@@G@@ PACKET @I@@@@ SZ NOWDS$ . CLEAR AFC FLAGCN )@@G@@S AND WORD COUNT . 3A @E@@@@ LA A0,2,X11 CO )@@G@@ . LOAD THE TO ADDRESS @D@@@@ SA A0,IOACW . STOCP )@@G@@RE IN PACKET@E@@@@ LA,U A0,IOWPKT . LOAD THE IOW$ PCQ )@@G@@ACKET @G@@@@ ER IOW$ . READ THE NEXT BLOCK OCR )@@G@@N THE TAPE @F@@@@ LA A0,IOSTAT . LOAD THE RETURNCS )@@G@@ STATUS @G@@@@ TNE,U A0,0 . TEST FOR NORMALCT )@@G@@ STATUS RETURN @D@@@@ J NORMRT . YES LEAVCU )@@G@@E @E@@@@ TNE,U A0,04 . ABNORMAL FRAME COUNT?CV )@@G@@@G@@@@ J AFC . YES AFC RETURN GO HANDLE CW )@@G@@IT @C@@@@ TG,U A0,03 . EOF-EOT? @B@@@@ CX )@@G@@ J UNREC . NO @B@@@@ J EOFEOT CY )@@G@@ . YES@G@@@@NORMRT LA A0,IONOWD . LOAD THE NUMBERCZ )@@G@@ OF WORDS READ @F@@@@ SA,H2 A0,NOWDS$ . STORE THEDA )@@G@@M IN WORD COUNTER @D@@@@ J 4,X11 . RETURN TODB )@@G@@ USER @F@@@@EOFEOT LA A0,3,X11 . LOAD EOF RETURN ADDREDC )@@G@@SS @C@@@@ SA A0,RTNADR . STORE IT @E@@@@ DD )@@G@@ SZ JUMP . ZERO OUT AFC COUNTER @E@@@@ J DE )@@G@@ *RTNADR . JUMP TO EOF RETURN @H@@@@UNREC E$BO DF )@@G@@ 6,STATUS,3 . CONVERT STATUS TO OCTAL AND STORE IT @F@@@@ DG )@@G@@ SLJ QGETAD . GET THE CURRENT FILENAME @I@@@@ DH )@@G@@ S A0,SAVEAD . SAVE LOCATION OF 4 WD FILE INFO . 3DI )@@G@@A @C@@@@ DL A0,0,A0 . LOAD IT @C@@@@ DJ )@@G@@ DS A0,FILNAM . STORE IT @I@@@@ L A0,SDK )@@G@@AVEAD . . 3A @F@@@@ DL )@@G@@ LA A0,3,A0 . GET CURRENT FILENUMBER @G@@@@ DM )@@G@@ E$BD 6,FILNUM,3 . CONVERT TO FD AND STORE IN PACKET@I@@@@DN )@@G@@ L A0,SAVEAD . ADDRESS OF FILE INFO DO )@@G@@ . 3A @H@@@@ LA A0,2,A0 . GET BLOCK COUNTDP )@@G@@ (BEFORE THIS READ) @F@@@@ AA,U A0,01 . INCDQ )@@G@@REASE FOR CURRENT BLOCK @G@@@@ E$BD 6,BLKCNT,6 . CONDR )@@G@@VERT TO FD AND STORE IN PACKET@E@@@@ LA A0,ERRPKT DS )@@G@@ . LOAD ERROR PACKET @D@@@@ ER PRINT$ . WRIDT )@@G@@TE IT OUT @F@@@@ L$SNAP 'IOPKT ',07,05,IOWPKT . SNAP THE IDU )@@G@@/O PACKET @C@@@@ ER EXIT$ . LEAVE @G@@@@DV )@@G@@AFC LA A8,JUMP . FIRST TEST TO SEE WHETHER WE HAVEDW )@@G@@@H@[@@ TNE,U A8,05 . WRITTEN THE MESSAGE OUT FIVDX )@@G@@E TIMES @I@@@[ TNE,U A8,01 . WRITTEN THE MESDY )@@G@@SAGE BEFORE ? . BPD 3E @H@@@@ J AFCA DZ )@@G@@ . YES, LOAD INDICATORS FOR PRT ROUTINE @G@@@@ AA,U A8,0EA )@@G@@1 . NO, ADD ONE TO COUNTER AND STORE @B@@@@ SA EB )@@G@@ A8,JUMP . @E@@@@ DL A8,0,X11 . LOAEC )@@G@@D THE FILE NAME @C@@@@ DS A8,FILNAMA . STORE IT ED )@@G@@@I@@@@ SX X11,SAVE11 . SAVE X11 CAUSE ITS GOING TOEE )@@G@@ GET CLOBBERED @I@@@@ SLJ QGETAD . GET THE AEF )@@G@@DDRESS IN THE TABLE OF THIS FILE @I@@@@ S A0,SAVEAD EG )@@G@@ . . 3A @E@@@@ LAEH )@@G@@ A0,3,A0 . LOAD THE FILE NUMBER @G@@@@ E$BD EI )@@G@@ 6,FILNUMA,3 . CONVERT IT TO FD AND STORE IT @I@@@@ L EJ )@@G@@ A0,SAVEAD . LOAD ADDRESS OF 4 WD FILE INFO AREA. 3A EK )@@G@@@E@@@@ LA A0,2,A0 . LOAD THE BLOCK NUMBER@H@@@@EL )@@G@@ AA,U A0,01 . ADD ONE TO IT FOR THE CURRENT BLOEM )@@G@@CK @F@@@@ E$BD 6,BLKCNTA,6 . CONVERT TO FD AND STOEN )@@G@@RE IT @G@@@@ LA A0,IONOWD . LOAD THE NUMBER OF WOEO )@@G@@RDS READ @H@@@@ ANA,U A0,01 . SUBTRACT ONE TOEP )@@G@@ ELIMINATE THE LAST WORD@E@@@@ MSI,U A0,6 . CONEQ )@@G@@VERT TO CHARACTERS@I@@@@ AA A0,IOAFC . ADD THE CER )@@G@@OUNT OF THE CHARACTERS IN LST SR @F@@@@ E$BD 6,CHARA,6 ES )@@G@@ . CONVERT TO FD AND STORE @E@@@@ LA A0,IONOWD ET )@@G@@ . LOAD NUMBER OF WORDS @E@@@@ E$BD 6,WORD,6 EU )@@G@@ . CONVERT AND STORE @C@@@@ LA A0,IONOWD . RELEV )@@G@@OAD @F@@@@ MSI,U A0,06 . DETERMINE CHARACTER CEW )@@G@@OUNT @E@@@@ E$BD 6,CHRA,6 . CONVERT AND STORE EX )@@G@@@D@@@@ LA A0,PKTA . LOAD INPUT MSG @D@@@@ EY )@@G@@ ER PRINT$ . WRITE IT OUT @D@@@@ LA EZ )@@G@@ A0,PKTB . LOAD OUTPUT MSG@D@@@@ ER PRINT$ FA )@@G@@ . WRITE IT OUT @F@[@@ LA A0,PKTC . LOAFB )@@G@@D RECCOMMEND DUP MSG @D@[@@ ER PRINT$ . WRIFC )@@G@@TE IT OUT @I@[@@ LA A0,PKTD . FD )@@G@@ . 3A @I@[@@ ER PRINT$ FE )@@G@@ . . 3A @F@@@@ LX FF )@@G@@ X11,SAVE11 . RESTORE X11 TO JUMP BACK ON@E@@@@AFCA LA,U FG )@@G@@ A0,04 . LOAD AFC INDICATOR @F@@@@ SA,S3 A0,NFH )@@G@@OWDS$ . STORE IT FOR PRT ROUTINE @I@@@@ LA A0,IFI )@@G@@OAFC . LOAD THE COUNT OF CHARACTERS IN LAST WORD @F@@@@ FJ )@@G@@ SA,S1 A0,NOWDS$ . STORE IT FOR PRT ROUTINE @D@@@@ FK )@@G@@ J NORMRT . RETURN TO USER @B@@@@$(0) FL )@@G@@ . @E@@@@SAVE11 RES 1 . SAVFM )@@G@@E AREA FOR X11 @I@@@@SAVEAD + 0 . FN )@@G@@ . 3A @F@@@@JUMP + 0 FO )@@G@@ . COUNTER FOR AFC ERRORS @E@@@@RTNADR + 0 FP )@@G@@ . WORD FOR EOF RETURN @D@@@@IOWPKT + 0 FQ )@@G@@ . IOW$ PACKET @D@@@@ + 0 . IOW$ PACKFR )@@G@@ET @D@@@@ + 0 . IOW$ PACKET @D@@@@FS )@@G@@ + 020,0,0 . IOW$ PACKET @D@@@@ + FT )@@G@@ 0 . IOW$ PACKET @E@@@@IOSTAT EQUF IOWPFU )@@G@@KT+3,,S1 . RETURN STATUS CODE @G@@@@IOAFC EQUF IOWPKT+3,,FV )@@G@@S3 . ABNORMAL FRAME COUNT LOCATION @E@@@@IONOWD EQUF IOWPFW )@@G@@KT+3,,H2 . NUMBER OF WORDS READ @E@@@@IOACW EQU IOWPKT+4 FX )@@G@@ . LOCATION OF BUFFER @B@@@@P FORM 12,6,18 FY )@@G@@ . @B@@@@ERRPKT P 3,17,ERRMSG . @B@@@@PKTA P FZ )@@G@@ 2,17,MSGA . @B@@@@PKTB P 2,12,MSGB GA )@@G@@ . @B@@@@PKTC P 2,12,MSGC . @I@@@@PKTD P GB )@@G@@ 1,12,MSGD . 3A GC )@@G@@@C@@@@ERRMSG 'ERROR WHILE READING TAPE FILE ' . @B@@@@FILNAM + GD )@@G@@ ' ' . @B@@@@FILNUM + ' NO ' GE )@@G@@ . @B@@@@ + ' BLOCK NO ' . @B@@@@BLKCNT + GF )@@G@@ ' ' . @B@@@@ + 'STATUS CODE ' GG )@@G@@ . @B@@@@STATUS + ' ' . @E@@@@MSGA ' GH )@@G@@ *** AFC-THE INPUT CHARACTER COUNT OF BLOCK NO.'@B@@@@BLKCNTA + ' GI )@@G@@ ' . @I@@@@ + ', FILE ' GJ )@@G@@ . 3A @B@@@@FILNAMA + ' GK )@@G@@ ' . @B@@@@ + ', NO. ' . @B@@@@GL )@@G@@FILNUMA + ' ' . @B@@@@ + ' WGM )@@G@@AS ' . @B@@@@CHARA + ' ' . @F@@@@GN )@@G@@MSGB ' * THE OUTPUT COUNTS (IF DUPING) ARE: WORDS ' .@B@@@@GO )@@G@@WORD + ' ' . @B@@@@ + ', CGP )@@G@@HARACTERS' . @B@@@@CHRA + ' ' . @I@@@@GQ )@@G@@MSGC ' * RECOMMEND THIS TAPE BE DUPED USING CPD BEFORE PROCEEDING FUGR )@@G@@RTHER ' @I@@@@MSGD ' *** AN ODD NR OF WORDS PER RECORD CAN CAUSE GS )@@G@@THIS ON A 9 TRACK DRIVE ' @B@@@@ END GT )@@G@@ . ___C))^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@,^[]E[^^@3C*)^@)GU )@@G@@@#@]@@ *1AC9 )1AC9^@)^@))@@[EK0@K)]^G@]&@]^@UA@@:8@@@@C4@@@B'=@@@@C8@@@^GV )@@G@@[@@@@CC@F@@] @@@@@9*@@@^9?F@@@AA@@@A)@D[N@^@K^[#@[]@C@C@F@@#/KF@@^[^@@@@GW )@@G@@C^@@@B/K@@@M/K@@@Q!8@@@#/K@@@\:8@@@^/K@@@JAB@@@A)@N[##@[#@[#@[]@^()@-@C-GX )@@G@@)@@@@@9?G@@@A#@@@['^@@@@#@ @@Y/,0@@@/K@K@# @@@@][@@@@#AC@@@A)@V[F#@[#@@KGY )@@G@@)@ES@CS@@-@@/,0@@@G8@@@[C@G@@]R#@@@[#@ @@Q/,0@@@C@G@@#R#@@@[9*@@@OAD@@@AGZ )@@G@@)@=[]()@-)@-@E) []@T@@@@@@@@@@IOPKT /K@@@,'=@@@@C8@@@:[@@@@!'=@@@@C@@@@DHA )@@G@@A@ @@UAE@@@A)@?[E()@CK#*S@]@CS@@@@@@9,F@@@[]@@@]G'@@@[/K@@[N:'@@@[C]@@@]HB )@@G@@'=@@@@@@@@@@8@ @@^AF@@@A)@5[##@[#@[]@L#@@K)@ES@CS@@@@@R#@@@[#@ @@!/,0@@@HC )@@G@@C@G@@#A#@@@['^@@@@A]0@@@9%@@@%AG@@@A)@.[E^C@]&@]A@@CS@CK@@@@/,0@@@G?@@@BHD )@@G@@T8@@@AH8@@@[C^@@@BA@ @@$/,0@@@G8@@@[C@G@@]AH@@@A)[A[]()@-)@-@@O0@K0@^C@]HE )@@G@@&@@@@@A@ @@;/,0@@@T8@@@AC^@@@BA@ @@8/,0@@@C^@@@BA@ @@\AI@@@A)[I[##@[]@P#HF )@@G@@@[]@P#@@K)]K0@@@@@C?@@@B[?@@@@C8@@@^R]0@@@'=@@@@C@@@@F'=@@@@C@@@@EAJ@@@AHG )@@G@@)[Q@N]@D@@@@)@[@8@@@@@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@JHH )@@G@@[4@@@@AK@@@A)@C[KE[KE[KE@@@@@@G TAPEREADINWHILE ERROR @[G@[C@]G@@/@]G@@0HI )@@G@@@]L@@Z@#L@@I@@@@@@AL@@@A)@M[S@@@@@@@STATUS CK NO BLO HJ )@@G@@ NO FILE AM@@@A)@X[S@@@@@@@ CK NO.OF BLOCOUNT HK )@@G@@ACTER T CHARE INPUAFC-TH *** CODE AN@@@A)@*[S@@@@@@@TPUT CTHE OUHL )@@G@@ * WAS , NO. E , FILAO@@@A)@3[S@@@@@@@HM )@@G@@RECOMM * ACTERS, CHAR WORDS ARE: PING) (IF DUOUNTS AP@@@AHN )@@G@@)@"[S@@@@@@@ *** THER NG FUROCEEDIORE PRPD BEFSING CUPED UE BE DIS TAPHO )@@G@@END THAQ@@@A)[D[S@@@@@@@IVE ACK DRA 9 TRIS ON USE THCAN CAECORD PER RHP )@@G@@ WORDS NR OFAN ODDAR@@@A@@^@@]@@A@@C@@Q@@[@@U@@@@@@@[O@@@@[SEBD$X HQ )@@G@@EBO$X NOWDS$ IOW$ QGETAD PRINT$ SNAP$ HR )@@G@@EXIT$ TPRD$ @@[@@@@@@@@@THRU 8020-EX*[S@@@*SDFF*@#@@@@ HS )@@G@@ AXR$ . @H@@@@B11 EQU 11 . NEED THIS EXTRAHT )@@G@@ ONE DUE TO OLD CODE @]@@@@$(1) . @^@@@@. OCTAL PRINT ROUTINE HU )@@G@@@B@@@@PRTO* EDIT 8,14,8,2 . @[@@@@. @B@@@@. ALPHHV )@@G@@A PRINT ROUTINE WORDS SEPARATED @B@@@@PRTA* EDIT 16,8,16,1 HW )@@G@@ . @[@@@@. @B@@@@. ALPHA PRINT HARD TO READ JAMMED TOGETHERHX )@@G@@@B@@@@PRTH* EDIT 16,6,16,1 . @[@@@@. @B@@@@. ALPHHY )@@G@@A PRINT ROUTINE WORDS SEPERATED @]@@@@PRTAQ* . @B@@@@ SXHZ )@@G@@ X11,PRTAQX11 . @F@@@@ SLJ HDR IA )@@G@@ . PRINT OUT GENERAL HEADER @F@@@@ SZ C$TR IB )@@G@@ . CLEAR OCTAL LINE COUNTER @H@@@[. NOWDS$ H2 = NUMBER WORDS READ IC )@@G@@ . BPD 03E @H@@@[. S1 = NUMBER CHID )@@G@@AR IN LAST WORD . BPD 03E @H@@@[. S2IE )@@G@@ = AFC . BPD 03E @H@@@[IF )@@G@@ LA,H2 A0,NOWDS$ . # WORDS IN BUF . BPD IG )@@G@@03E @G@[@@ LA A0,NOWDS$ . GET NUMBER OF WORDS IH )@@G@@IN BUFFER @F@@@@ TNZ A0 . IF NONE QUIT YII )@@G@@OU TURKEY @E@@@@ J EXPRTAQ . RETURN TO SENIJ )@@G@@DER @D@@@@ LA,U A1,20 . LENGTH OF LINE@E@@@@IK )@@G@@ LMJ X11,XOPT . TEST IF X OPTION ON @G@@@@ IL )@@G@@ AN,U A0,1 . SUBTRACT ONE FOR THE GREAT JGD @D@@@@IM )@@G@@ LR R2,A0 . OK HERE WE GO @E@@@@ LXIN )@@G@@ X10,ONEBLOCK . SET FOR LOOP INDEXING@A@@@@ SX IO )@@G@@ X10,SAVEX10 @E@@@@Q$LOOP2 A$EDIT AEDITPKT . ENTER AIP )@@G@@SCII EDITOR @G@@@@ A$EOCTF 4,C$TR . PRINT IN OCTAIQ )@@G@@L THE LINE NUMBER @B@@@@ LA A0,C$TR . @D@@@@IR )@@G@@ A,U A0,20 . ADD INCREMENT @F@@@@ SAIS )@@G@@ A0,C$TR . SAVE INCREMENTED COUNTER @D@@@@Q$LOOP3 LRIT )@@G@@,U R3,20-1 . WORDS PER LINE @E@@@@ A$ESKIP 1 IU )@@G@@ . SKIP ONE COLUMN @]@@@@Q$LOOP4 . @B@@@@ LXIV )@@G@@ X10,SAVEX10 . @C@@@@ DL A1,RANGE IW )@@G@@ . 037,0176@D@@@@ LA A0,0,X10 . GET FIRST WORD IX )@@G@@@B@@@@ SA A0,W$ORD . @E@@@@ LA,U IY )@@G@@ A0,0134 . SUBSTITUTE CHARACTER@F@@@@ TW,Q1 A1,0IZ )@@G@@,X10 . CHECK FIRST CHARACTER @D@@@@ SA,Q1 A0,WJA )@@G@@$ORD . PUT IT BACK @F@@@@ TW,Q2 A1,0,X10 JB )@@G@@ . CHECK SECOND CHARACTER @D@@@@ SA,Q2 A0,W$ORD JC )@@G@@ . PUT IT BACK @E@@@@ TW,Q3 A1,0,X10 . THIRD CHJD )@@G@@ARACTER @D@@@@ SA,Q3 A0,W$ORD . PUT IT BACK JE )@@G@@@E@@@@ TW,Q4 A1,0,*X10 . FOURTH CHARACTER @D@@@@JF )@@G@@ SA,Q4 A0,W$ORD . PUT IT BACK @B@@@@ SXJG )@@G@@ X10,SAVEX10 . @F@@@@ A$ECOPY 4,W$ORD JH )@@G@@ . MOVE IT TO OUTPUT BUFFER @E@@@@ A$ESKIP 1 JI )@@G@@ . SKIP ONE COLUMN @B@@@@ JGD R3,QE$LOOP2 . JJ )@@G@@@F@@@@QE$LOOP1 A$EDITX . TERMINATE ASCII EDITOR JK )@@G@@@E@@@@ LA A0,AEPRINT . (PF 1,30,AEBUF) @B@@@@JL )@@G@@ ER APRINT$ . @B@@@@ JGD R2,QJM )@@G@@$LOOP2 . @E@@@@ J EXPRTAQ . RETURN JN )@@G@@TO SENDER @D@@@@QE$LOOP2 JGD R2,Q$LOOP4 . GET NEXT WORDJO )@@G@@@^@@@@ LR,U R2,0@ @@@@ J QE$LOOP1 @B@@@@JP )@@G@@EXPRTAQ LX X11,PRTAQX11 . @B@@@@ J 0,X1JQ )@@G@@1 . @[@@@@. @C@@@@. ALPHA PRINT HARD TO READ JAMMED TOJR )@@G@@ GETHER @]@@@@PRTHQ* . @B@@@@ SX X11,PRTHQX11 JS )@@G@@ . @F@@@@ SLJ HDR . PRINT OUT GENERAL HEJT )@@G@@ADER @F@@@@ SZ C$TR . CLEAR OCTAL LINE COUJU )@@G@@NTER @G@[@@ LA A0,NOWDS$ . GET NUMBER OF WORDS JV )@@G@@IN BUFFER @I@@@[ LA,H2 A0,NOWDS$ . GET NUMBER OF JW )@@G@@WORDS IN BUFFER . BPD 03E @F@@@@ TNZ A0 JX )@@G@@ . IF NONE QUIT YOU TURKEY @E@@@@ J EXPRTHQ JY )@@G@@ . RETURN TO SENDER @B@@@@ LA,U A1,20 . JZ )@@G@@@E@@@@ LMJ X11,XOPT . TEST IF X OPTION ON @G@@@@KA )@@G@@ AN,U A0,1 . SUBTRACT ONE FOR THE GREAT JGD KB )@@G@@@D@@@@ LR R2,A0 . OK HERE WE GO @E@@@@ KC )@@G@@ LX X10,ONEBLOCK . SET FOR LOOP INDEXING@B@@@@ SXKD )@@G@@ X10,SAVEX10 . @E@@@@H$LOOP2 A$EDIT AEDITPKT KE )@@G@@ . ENTER ASCII EDITOR @G@@@@ A$EOCTF 4,C$TR . PKF )@@G@@RINT IN OCTAL THE LINE NUMBER @B@@@@ LA A0,C$TR KG )@@G@@ . @D@@@@ A,U A0,20 . ADD INCREMENT @F@@@@KH )@@G@@ SA A0,C$TR . SAVE INCREMENTED COUNTER @D@@@@KI )@@G@@H$LOOP3 LR,U R3,20-1 . WORDS PER LINE @E@@@@ A$KJ )@@G@@ESKIP 1 . SKIP ONE COLUMN @]@@@@H$LOOP4 . @B@@@@KK )@@G@@ LX X10,SAVEX10 . @C@@@@ DL A1,RKL )@@G@@ANGE . 037,0176@D@@@@ LA A0,0,X10 . GETKM )@@G@@ FIRST WORD @B@@@@ SA A0,W$ORD . @E@@@@ KN )@@G@@ LA,U A0,0134 . SUBSTITUTE CHARACTER@F@@@@ TWKO )@@G@@,Q1 A1,0,X10 . CHECK FIRST CHARACTER @D@@@@ SAKP )@@G@@,Q1 A0,W$ORD . PUT IT BACK @F@@@@ TW,Q2 A1,0KQ )@@G@@,X10 . CHECK SECOND CHARACTER @D@@@@ SA,Q2 A0,WKR )@@G@@$ORD . PUT IT BACK @E@@@@ TW,Q3 A1,0,X10 KS )@@G@@ . THIRD CHARACTER @D@@@@ SA,Q3 A0,W$ORD . PUKT )@@G@@T IT BACK @E@@@@ TW,Q4 A1,0,*X10 . FOURTH CHARACKU )@@G@@TER @D@@@@ SA,Q4 A0,W$ORD . PUT IT BACK @B@@@@KV )@@G@@ SX X10,SAVEX10 . @B@@@@ A$ECOPY 4,W$KW )@@G@@ORD . @B@@@@ JGD R3,HE$LOOP2 . @F@@@@KX )@@G@@HE$LOOP1 A$EDITX . TERMINATE ASCII EDITOR @E@@@@KY )@@G@@ LA A0,AEPRINT . (PF 1,30,AEBUF) @B@@@@ KZ )@@G@@ ER APRINT$ . @E@@@@ JGD R2,H$LOOP2LA )@@G@@ . GO FOR NEXT LINE @E@@@@ J EXPRTHQ LB )@@G@@ . RETURN TO SENDER @D@@@@HE$LOOP2 JGD R2,H$LOOP4 . GLC )@@G@@ET NEXT WORD@^@@@@ LR,U R2,0@ @@@@ J HE$LLD )@@G@@OOP1 @[@@@@. @B@@@@EXPRTHQ LX X11,PRTHQX11 . @B@@@@LE )@@G@@ J 0,X11 . @^@@@@PRTAQX11 + 0 LF )@@G@@@^@@@@PRTHQX11 + 0 @F@@@@P$COMN . LMJ 10,P$COMN ENTER WITLG )@@G@@H A0 CONTAINING WORDS/LINE @H@@@@ LA A1,N$WSAV LH )@@G@@ . LOAD THE NUMBER WORDS LEFT TO PRINT @E@@@@ JZ A1,0LI )@@G@@,10 . NO MORE WORDS EXIT @H@@@@ ANU A1,A0 LJ )@@G@@ . SUBTRACT THE NUMBER ON NEXT LINE-IN A2 @G@@@@ JP LK )@@G@@ A2,P$C1 . WILL BE MORE LEFT AFTER THIS LINE@F@@@@ SZLL )@@G@@ N$WSAV . ALL DONE AFTER NEXT LINE @H@@@@ LALM )@@G@@ A0,A1 . LOAD NUMBER OF WORDS THAT WERE LEFT @E@@@@LN )@@G@@ J 1,10 . GO BACK TO WRITE OUT @D@@@@P$C1 LO )@@G@@ SA A2,N$WSAV . STORE REMAINDER@E@@@@ J LP )@@G@@ 1,10 . GO BACK TO WRITE OUT @D@@@@HDR NOP LQ )@@G@@ . HEADER ROUTINE @I@@@@ SLJ QGETAD LR )@@G@@ . GET THE ADDRESS IN THE TABLE OF THIS FILE @I@@@@ SA LS )@@G@@ A0,SAVADR . ADDRESS OF FILE INFORMATIOM . 3B @D@@@@LT )@@G@@ DL A0,0,A0 . LOAD FILENAME @D@@@@ DSLU )@@G@@ A0,F$NAM . STORE IN PACKET@I@@@@ LA A0,SLV )@@G@@AVADR . ADDRESS OF FILE INFORMATION . 3B @D@@@@ LW )@@G@@ LA,H2 A0,3,A0 . LOAD FILENUMBER@G@@@@ E$BD LX )@@G@@ 6,F$NO,3 . EDIT FILE NUMBER TO PRINT PACKET @I@@@@ LALY )@@G@@ A0,SAVADR . ADDRESS OF FILE INFORMATION . 3B LZ )@@G@@@E@@@@ LA A0,2,A0 . LOAD BLOCK COUNT @G@@@@MA )@@G@@ E$BD 6,B$LOCK,6 . EDIT BLOCK COUNT TO PRINT PACKET MB )@@G@@@F@@@@ LA,H2 A0,NOWDS$ . LOAD BLOCK SIZE IN WORDS MC )@@G@@@F@@@@ E$BD 6,S$IZE,6 . CONVERT AND STORE IN PACKETMD )@@G@@@C@@@@ LA,H2 A0,NOWDS$ . RELOAD @G@@@@ MSME )@@G@@I,U A0,6 . COMPUTE NUMBER OF CHARACTERS @E@@@@ MF )@@G@@ LA,S3 A2,NOWDS$ . SEE IF THERE WAS AN @C@@@@ TEMG )@@G@@,U A2,04 . AFC ERROR@D@@@@ J CHAR MH )@@G@@ . NO, KEEP GOING @G@@@@ LA,U A1,6 . YESMI )@@G@@, REDUCE NUMBER OF CHARACTERS @G@@@@ AN,S1 A1,NOWDS$ MJ )@@G@@ . WHERE TPRD$ STORED AFC COUNT @H@@@@ AN A0,A1 MK )@@G@@ . SUBTRACT CHARS NOT READ FOR LAST WORD @F@@@@CHAR E$BD ML )@@G@@ 6,C$HARS,6 . CONVERT AND STORE IN PACKET@E@@@@ LA MM )@@G@@ A0,P$PKT . LOAD HEADER LINE @D@@@@ ER PRINMN )@@G@@T$ . WRITE IT OUT @C@@@@ J *HDR MO )@@G@@ . GO BACK @]@@@@XOPT . @E@@@@ LA A3,TEMP MP )@@G@@ . LOAD OPTION WORD @E@@@@ TOP,U A3,04 . TEMQ )@@G@@ST FOR X OPTION ON@D@@@@ J 0,X11 . OK JUST MR )@@G@@DO IT @H@@@@ TG A0,A1 . IS LINE LENGTH > NO MS )@@G@@WORDS IN BUF? @C@@@@ LA A0,A1 . NO , YESMT )@@G@@@C@@@@ J 0,X11 . GO BACK @]@@@@$(0) . MU )@@G@@@^@@@@SAVEX10 + 0 @B@@@@H$DR1 'FILE ' MV )@@G@@ . @ @@@@F$NAM ' ' .@B@@@@F$NO 'NO. ' MW )@@G@@ . @ @@@@ ' ' .@^@@@@ 'BMX )@@G@@LOCK NO. '@ @@@@B$LOCK ' ' .@ @@@@ ' 'MY )@@G@@ .@ @@@@ 'SIZE =' .@ @@@@S$IZE ' 'MZ )@@G@@ .@^@@@@ ' WORDS OR '@ @@@@C$HARS ' ' NA )@@G@@ .@ @@@@ ' CHARS' .@B@@@@C$TR + 0 NB )@@G@@ . @B@@@@N$WSAV + 0 . @#@@@@NC )@@G@@SAVADR + 0 @F@@@@W$ORD + 0 . SAVE AREND )@@G@@A FOR EDITED WORD @B@@@@RANGE + 037 . @B@@@@NE )@@G@@ + 0176 . @ @@@@PF FORM 12,6NF )@@G@@,18 @G@@@@AEPRINT PF 1,30,AEBUF . PRINT CONTROL WORD FNG )@@G@@OR ASCII @B@@@@AEDITPKT* A$EPKT 31,AEBUF . @B@@@@AEBUF*NH )@@G@@ RES 31 . @B@@@@ONEBLOCK* + 1,BLOCK NI )@@G@@ . @B@@@@P$ FORM 12,6,18 . @B@@@@P$PKT NJ )@@G@@ P$ 2,15,H$DR1 . @^@@@@ RES 10 @B@@@@NK )@@G@@ END . ___RDS SEPERATED @]@@@@PRTAQ*NL )@@G@@)@@[F]@[#@[#@[]@ #@@[#@@9??@@3T8@@@];CK@@S;C@@@Y[@@@@S'=@@@@[@K@@R[@@@@QNM )@@G@@'=@@@@AA@@@@)@D[##@[#@[#@[#@[#@[#@[#@[#@@@[)K@@CC?K@@R[SK@@C[W@@@BCO@@@QNN )@@G@@[W@@@ACS@@@Q9*)@@^AB@@@@)@L[##@[#@[#@[#@[#@[#@[#@@@@@@C'@@[CG1)@@SC[?@@SNO )@@G@@C4@@@S[SK@@DCOK@@R[4K@@DC*K@@RAC@@@@)@T[N#@@^@K[@^@@@@/C@@@>H8@@@#/K@@@&NP )@@G@@%]@@@P/K@@@VG'@@@^/K@@@Z!]@@@PG'K@[@C,K@@SAD@@@@)@<[N@K@^G@[@K@@@@G')@[=NQ )@@G@@/])@@\/E)@@\H')@@AC,)@@SW9)@@B;P)@@=G9)@@[/K@@@&/@@@@>AE@@@@)@![UK0@@@@@NR )@@G@@G[0@@QW'K@@B;QK@@=G]K@@QG'K@@^W')@@^;Q)@@=G')@@[C]K@@Q[Q0@@AC'0@@OAF@@@@NS )@@G@@)@8[M@[#@[#@[#@@@@;C@@@GR#@@@Q9*0@@]9?1@@>R@K@@NT90@@]H90@@[H90@@B?]@@@NNT )@@G@@C'@@@BAG@@@@)[][E[#@[@K0@K0@@@@@@@@@&80@@[&8)@@[R@-@[GNCL@[G/K@@[J2@[)[HNU )@@G@@N8K@[[Q8K@@@&8K@@]AH@@@@)[F@'()@]@-)@-@^@@)@@@K@D 03E BPD/CP/KF@@@'=@@@@NV )@@G@@C@@@B88KK@[G[@N)@@C@M)@@Q80@@GAI@@@@)@][S@@@@@@@ : NW )@@G@@ : , 19 AJ@@@@)@H[S@@@@@@@@@@@@@@@@@@@NX )@@G@@ AK@@@@)@S[S@@@@@@@NY )@@G@@@@@@^L@@@@#3@@@@#O@@@@]5@@@@]R@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@AL@@@@NZ )@@G@@)@<[S@@@@@@@ THNESDAY WEDUESDAY TMONDAY SUNDAY @@@@ IOA )@@G@@@@@@^0AM@@@@)@,[S@@@@@@@RUARY FEBNUARY JA TURDAY SAOB )@@G@@FRIDAY URSDAYAN@@@@)@9[S@@@@@@@ A JULY JUNE MAY OC )@@G@@ APRIL MARCH AO@@@@)[^[S@@@E@@@@@]@#J@@0101EMBER DECOD )@@G@@EMBER NOVTOBER OCEMBER SEPTUGUST AP@@@@)[J[KE@O@*[K])@@@@@@]@#(OE )@@G@@@@0212@@]@#&@@0202@@]@#<@@0131@@^@#Y@@0120@@A@#M@@0105AQ@@@@)[T[KE@O@*[KOF )@@G@@])@@@@@@#@#.@@0305@@]@#'@@0229@@^@#5@@0222@@^@#0@@0220@@#@#?@@0214AR@@@@OG )@@G@@)[<[KE@O@*[K])@@@@@@#@^T@@0403@@]@^H@@0401@@]@^E@@0320@@#@^A@@0317@@^@^[OH )@@G@@@@0315AS@@@@)[![KE@O@*[K])@@@@@@B@^%@@0409@@A@^<@@0407@@ @^X@@0406@@^@^OOI )@@G@@@@0405@@#@^K@@0404AT@@@@)[7[KE@O@*[K])@@@@@@A@ #@@0419@@^@^"@@0418@@]@^;OJ )@@G@@@@0415@@^@^6@@0414@@#@^2@@0412AU@@@@)][[KE@O@*[K])@@@@@@ @ M@@0526@@^@ UOK )@@G@@@@0517@@[@ S@@0508@@ @ G@@0503@@[@ E@@0501AV@@@@)]F[KE@O@*[K])@@@@@@#@ 5OL )@@G@@@@0625@@]@ 2@@0618@@C@ (@@0617@@C@ )@@0610@@@@ Z@@0606AW@@@@)]P[KE@O@*[KOM )@@G@@])@@@@@@[@A @@0814@@]@A]@@0806@@#@ "@@0720@@[@ /@@0714@@]@ 9@@0704AX@@@@ON )@@G@@)]Z[KE@O@*[K])@@@@@@ @AP@@0902@@]@AM@@0901@@#@AI@@0830@@]@AF@@0827@@#@ABOO )@@G@@@@0826AY@@@@)]([KE@O@*[K])@@@@@@]@A8@@1009@@#@A4@@1005@@ @A,@@1001@@B@A&OP )@@G@@@@0925@@ @AV@@0914AZ@@@@)]3[KE@O@*[K])@@@@@@B@BC@@1031@@#@B^@@1029@@]@B[OQ )@@G@@@@1024@@#@A.@@1014@@[@A;@@1012BA@@@@)].[KE@O@*[K])@@@@@@ @B+@@1214@@]@BZOR )@@G@@@@1207@@#@BV@@1129@@B@BN@@1119@@]@BK@@1111BB@@@@)#B[KE@O@*[K@@@@@@NEW YEOS )@@G@@HAPPY @@]@B5@@1225@@#@B1@@1224@@#@B!@@1221@@^@B*@@1217BC@@@@)#L[S@@@@@@@OT )@@G@@MILTONDER HAALEXAN5 OR 192GOVERNWOMAN FIRST ROSS NELLIEAR BD@@@@OU )@@G@@)#W[S@@@@@@@GROUND1958 ER 1--EXPLORN DAY URATIO INAUGENTIALPRESID1757 OV )@@G@@ BORN BE@@@@)#$[S@@@@@@@LENN'SJOHN GY E'S DALENTINST. VA809 OLN--1OW )@@G@@A.LINCAY HOG DBF@@@@)#2[S@@@@@@@Y. EAR DALEAP-YHDAY S BIRTNGTON'OX )@@G@@ WASHIGEORGE2 T--196 FLIGHBG@@@@)#.[S@@@@@@@PATRICSAINT CH OF MAROY )@@G@@ IDES : THEBEWARE1770 CRE - MASSABPSTONBH@@@@)^C[S@@@@@@@BORN 1APIER OZ )@@G@@JOHN NDAY FOOLS APRIL PRUNG HAS SSPRINGY K'S DABI@@@@)^N[S@@@@@@@PA )@@G@@PEARY S OFF)AC GETAY (MNATO D 1614 ROLFEARRIEDNTAS MPOCAHO550 BJ@@@@PB )@@G@@)^Y[S@@@@@@@N 30 AXION IRUCIFIE OF CAL DATOFFICI09 IN 19H POLES NORTPC )@@G@@REACHEBK@@@@)^([S@@@@@@@ ON FOFIRING) AGAINL RISETH WILHE SOUAY (TPD )@@G@@TTOX DAPPOMA.D. BL@@@@)^4[S@@@@@@@SAN FRY IRS DAHAPPY 5 D, 186PE )@@G@@SINATEN ASSALINCOLTER RT SUMBM@@@@)^_[S@@@@@@@S WAR N MEANNTATIOEPRESEPF )@@G@@HOUT RON WITTAXATI 1906 HQUAKEO EARTANCISCBN@@@@) E[S@@@@@@@AN BANAMERICPG )@@G@@FIRST 91 ION 17STITUTED CON ADOPTPOLANDY MAY DABO@@@@) P[S@@@@@@@PH )@@G@@D-DAY AY ANCE DDEPENDIAN INNORWEGY V-E DA1781 TERED K CHARBP@@@@PI )@@G@@) )[S@@@@@@@FIRE UDON'T OUT HEARTT YOUR3 : EAED 194W SIGNTAX LALDING PJ )@@G@@WITHHOBQ@@@@) :[S@@@@@@@CUSTERTERLOO OF WABATTLEES EIR EY OF THHITE'SPK )@@G@@ THE WOU SEENTIL YBR@@@@) 6[S@@@@@@@HE MOON ON T1ST MALE DAYBASTIL DAY. PL )@@G@@NDENCEINDEPED T STAN'S LASBS@@@@)A[[S@@@@@@@FIRST 1920 RAGE--S SUFFPM )@@G@@WOMEN'Y V-J DAAY SHIP DFRIENDN BT@@@@)AG[S@@@@@@@DER SISURRENPN )@@G@@POLANDON OF INVASIB.C. ED 30 TRA DICLEOPAL OILWELBU@@@@)AR[S@@@@@@@PO )@@G@@BLACK 1814 TTEN--ER WRID BANNPANGLESTAR-SURI MISSOU.S.S.GNED, BV@@@@PP )@@G@@)A+[S@@@@@@@!!!!!! 1513 OCEANACIFICVERS P DISCOBALBOA9 Y. 186 IN N.PQ )@@G@@FRIDAYBW@@@@)A![S@@@@@@@ID AY DAVBIRTHDHAPPY ) CS DAYEAR (OSCAL YPR )@@G@@NEW FIHAPPY ! BX@@@@)A8[S@@@@@@@ NATIOUNITED, 1066STINGS OF HABATTLEPS )@@G@@US DAYCOLUMB DAY RIKSONLIEF EBY@@@@)B#[S@@@@@@@ IT WA THO'TET YOUEVE 'BPT )@@G@@LLOWS ALL HA 1929 CRASHMARKETSTOCK NS DAYBZ@@@@)BI[S@@@@@@@H FROM PERISPU )@@G@@EN ...ND SEVCORE AFORE-SY ICE DAARMISTOWEEN S HALLCA@@@@)BT[S@@@@@@@PV )@@G@@ON REAAMUNDSY -INFAMDAY-OFE 1864ASSACRREEK MSAND CEARTH THIS CB@@@@PW )@@G@@)B=[S@@@@@@@TH ROCPLYMOU03 HT--19D FLIGPOWEREFIRST 911 OLE, 1OUTH PPX )@@G@@CHES SCC@@@@)B\[K@@@*@@@@@@@@@@[Q@@@MAS CHRISTMERRY TA AY ANIBIRTHDPY )@@G@@HAPPY PED ONK STEPCD@@@@@@^@@]@@A@@#@@G@@[@@K@@@@@@@B9@@@@[MDATE$ PZ )@@G@@TDATE$ PRINT$ SIGTUR @@[@@@@@@@@@1,B0501 . @C@@@@ QA )@@G@@ SP '0503',E0503-B0503,B0503 . @C@@@@)@@[EK^G@[@FKCC]^]EA@@@@QB )@@G@@A#@@@LRB@@@@AB@@@OR;@__7AB@@@PR;@@@] @@@@K'^@@#Z/S@@@@AA@@@@)@D[EK^[@K^@QC )@@G@@K^C^)@@@@@@@/,0@@@AB@@@OO;@@@CRB@@@OA\@@@N/K@K@@/,)@#Q'^@@@WR;@@@CAB@@@@QD )@@G@@)@M[F#@@Y)K[#@[#@@K@@@@@AB@@@PR;@@@[A#@@@KO#@@@KR;@@@CKQ@@@[^O=J_7&IC@@[QE )@@G@@^^J@@KAC@@@@)@V[F@^C^1@K0@K^G@^@@@@@/K@K@W[@@@@L/K@K@W!@@@@L/K@K@W>80@@^QF )@@G@@C@0@@@/S@@@@/K@@@DAD@@@@)@=[EK^G@[@FKCC]^]EA@@@@A#@@@LRB@@@@AB@@@8R;@__\QG )@@G@@AB@@@9R;@@@] @@@@K'^@@#Z/S@@@@AE@@@@)@![EK^[@K^@K^C^)@@@@@@@/,0@@@AB@@@8QH )@@G@@O;@@@KRB@@@8A\@@@7/K@K@=/,)@#Q'^@@[@R;@@@KAF@@@@)@6[F#@@Y)K[#@[#@@K@@@@@QI )@@G@@AB@@@9R;@@@[A#@@@KO#@@@KR;@@@KKQ@@@[EA[J_\&CK@@[^^J@@KAG@@@@)@_[F@^C^1@KQJ )@@G@@0@K^G@^@@@@@/K@K[@[@@@@L/K@K[@!@@@@L/K@K[@>80@@^C@0@@@/S@@@@/K@@@!AH@@@@QK )@@G@@)[C[EK^G@[@FKCC]^]EA@@@@A#@@@LRB@@@@AB@@[WR;@__\AB@@[XR;@@@] @@@@K'^@@#ZQL )@@G@@/S@@@@AI@@@@)[L[EK^[@K^@K^C^)@@@@@@@/,0@@@AB@@[WO;@@@KRB@@[WA\@@[V/K@K[CQM )@@G@@/,)@#Q'^@@[=R;@@@KAJ@@@@)[U[F#@@Y)K[#@[#@@K@@@@@AB@@[XR;@@@[A#@@@KO#@@@KQN )@@G@@R;@@@KKQ@@@[EA[J_\&AK@@[^^J@@KAK@@@@)[<[F@^C^1@K0@K^G@^@@@@@/K@K[=[@@@@LQO )@@G@@/K@K[=!@@@@L/K@K[=>80@@^C@0@@@/S@@@@/K@@[LAL@@@@)[?[N@K^G@^C^L@^@@N@)@@GQP )@@G@@P;@@@[/,0@#/C8K@@O/K@@]Z(@@@@GC^@@@@ @@@@K'^@@#ZA]0@#OAM@@@@)[6[##@[#@@(QQ )@@G@@)@-@@-)@CK#CS@@@@@C@@@@K/,0@@@C8K@@^C@@@@K/,0@@@C/@@@RA])@@@R])@@.AN@@@@QR )@@G@@)["[EK0@[]@L#@[#@@K0@@@@[@@@@NC@E@@@9?K@@OR])@@@/,0@@@C/@@@[N80@@N[@@@@KQS )@@G@@O;@@@OAO@@@@)]B[E^G@[#@@K0@^G@@@@@@@[O@@@N,OU)@@[S@@@N,SU@@@[K@@@N,KU@@@QT )@@G@@[W@@@N,WU@@@C8@@[WAP@@@@)]K[##@[#@@K)D^C[^[]@?@@@@@@@@/,0@@@8K0@]W/,0@@@QU )@@G@@C/@@@[/,0@@@C8K@@^C8@@@NA])@@@AQ@@@@)]S[F#@[][L@K^@K^@@@@@@@/KF@@@R]0@#OQV )@@G@@/K@@]RN8)@@@8K)@]#/K@@]Z8K)@[8'=@@@@C@@@@QAR@@@@)]-[N@K^G@^C^L@^@@N@)@@GQW )@@G@@P;@@@[/,0@#/C8K@@O/K@@#M(@@@@GC^@@@@ @@@@K'^@@#ZA]0@#PAS@@@@)]:[##@[#@@(QX )@@G@@)@-@@-)@CK#CS@@@@@C@@@@K/,0@@@C8K@@^C@@@@K/,0@@@C/@@@RA])@@@R])@@.AT@@@@QY )@@G@@)]3[EK0@[]@L#@[#@@K0@@@@[@@@@NC@E@@@9?K@@OR])@@@/,0@@@C/@@@[N80@@N[@@@@KQZ )@@G@@O;@@@OAU@@@@)]/[E^G@[#@@K0@^G@@@@@@@[O@@@N,OU)@@[S@@@N,SU@@@[K@@@N,KU@@@RA )@@G@@[W@@@N,WU@@@C8@@[WAV@@@@)# [##@[#@@K)DK^C]4G@^C @@@@@@'=@@@@C@@@@Q/,0@@@RB )@@G@@8K0@#J/,0@@@C8K@@^C8@@@NA])@@@AW@@@@)#H[N@K^@K^@[#@@@@C@K@@L@@@@@@@@@@@@RC )@@G@@/KF@@@R]0@#P/K@@#EN8)@@@8K)@]8/K@@#M8K)@]!AX@@@@)#R[M^[#@@^G@@K)P@'^@@@@RD )@@G@@/S@@@@/KE@@[[@)@@L/KE@@[C@@@@H @@@@L/C)@#XL@K@@G/@U@@@AY@@@@)#-[F#@@K0@KRE )@@G@@0@^C#+&@]A@@C@G@@]C@@@@M#@ @@^/,0@@@C^G@@#C@@@@M9*@@@]9?G@@@[@@@@MAZ@@@@RF )@@G@@)#%[#]@8()@-@+-@WO0@K)L^C^K@@@C?)@@@T8@@@AC^@@@@A@ @@F/,0@@@C^@@@@A@ @@CRG )@@G@@/,0@@@BA@@@@)#2[EK[][^K)IES@CS@CKF@@'=@@@@C@@@@"A@ @@I/,0@@@P#@@@HP7K@@@RH )@@G@@C8K@@A/K@@#7%8)@@^BB@@@@)#;@;@K)N@@@)@@@S@ FILE @@@@@@/KF@@@C@@@@HRI )@@G@@!@@@@H/KF@@@>80@@^C@0@@@/K@K#ZBC@@@@)@#[S@@@@@@@ OR WORDS SIZE =RJ )@@G@@ NO. BLOCK NO. BD@@@@)@I[S@@])O@@@@@@@@@[Z@@YRK )@@G@@@[Y@@Y@@@@["@@@@@Z@@@@@@@@@@@@@@@@@@@@@@@@ CHARS BE@@@@)@T@*@@@@@@@RL )@@G@@)@.@K(@)O@@@@@@@@@@@@@@@@]J@@[@@[@@@^0@@@@@@@@@@@@@@@@@@@@@@[[@@@@BF@@@@RM )@@G@@@@^@@]@@A@@R@@4@@C@[O@@@@@@@[D@@@@^]AEDIT$ AEDITR$ AECHAR$ RN )@@G@@AECOL$ AESKIP$ AECLEAR$ AEOCTF$ AEDECF$ AEDCFZ$ RO )@@G@@AECOPY$ AEPACK$ AEDITX$ AECOLN$ AEMSGR$ EBD$X RP )@@G@@EBO$X BLOCK NOWDS$ EOUT$ TEMP APRINT$ RQ )@@G@@QGETAD PRINT$ PRTO @@[@@@@@@@@@PRTA @@[@@@@@@@@=RR )@@G@@PRTH @@[@@@@@@@[CPRTAQ @@[@@@@@@@[?AEDITPKT @@@@@@@@@@@RRS )@@G@@PRTHQ @@[@@@@@@@]-AEBUF @@@@@@@@@@@YONEBLOCK @@@@@@@@@@@.RT )@@G@@*[S@@@*SDFF*@[@@@@. @G@@@@. THIS ROUTINE OBTAINS THE CURRENT DATE ANRU )@@G@@D TIME FROM THE SYSTEM AND @G@@@@. COMPUTES THE CURRENT MONTH AND DAYRV )@@G@@ OF THE WEEK. IT ALSO PRODUCES @G@@@@. SPECIAL MESSAGES ON APPROPRIRW )@@G@@ATE DAYS OF THE YEAR. NOW ISN'T THAT @^@@@@. REALLY GOOD AND NICE? RX )@@G@@@[@@@@. @B@@@@ AXR$ . @[@@@@. RY )@@G@@@C@@@@. THIS PROC IS TO SET UP THE SPECIAL MESSAGES. @[@@@@. @]@@@@RZ )@@G@@SP* PROC 1. @ @@@@ + SP(1,1). @B@@@@ + SA )@@G@@ SP(1,2)-1,SP(1,3). @#@@@@ END. @B@@@@P FORM SB )@@G@@ 12,6,18 . @[@@@@$(1) @G@@@@SIGTUR* ER DATE$ SC )@@G@@ . GET DATE AND TIME FROM SYSTEM @F@@@@ SA A0,DASD )@@G@@TE . STORE DATE IN TEMP LOCATION@F@@@@ SA A1,TISE )@@G@@ME . STORE TIME IN TEMP LOCATION@G@@@@ ER TDATESF )@@G@@$ . GET BIN DATE FOR MONTH SEARCH @G@@@@ SA SG )@@G@@ A0,TDATE . STORE BIN DATE IN TEMP LOCATION @F@@@@ SSLSH )@@G@@ A0,30 . SHIFT FOR MONTH SEARCH @D@@@@ SSLSI )@@G@@ A1,24 . SHIFT FOR HOUR @H@@@@ MSI,U A0,2 SJ )@@G@@ . DOUBLE THE INDEX FOR DOUBLE WRD MONTHS @E@@@@ DL SK )@@G@@ A2,MNTH,A0 . LOAD THE PROPER MONTH@E@@@@ DS SL )@@G@@ A2,MONTH . STORE MONTH IN PACKET@E@@@@ LA,T2 A0,DASM )@@G@@TE . LOAD DAY OF MONTH @E@@@@ SA,T1 A0,DAYYR SN )@@G@@ . STORE DAY IN PACKET @F@@@@ LA,T3 A0,DATE SO )@@G@@ . LOAD YEAR (LAST TWO DIGITS)@D@@@@ SA,T1 A0,DAYYR+1 SP )@@G@@ . STORE IN PACKET@E@@@@ SA,T2 A1,HRMIN . STORE HOUSQ )@@G@@RS IN PACKET@E@@@@ LA,S3 A1,TIME . LOAD 1ST DIGIT SR )@@G@@OF MIN@D@@@@ SA,S6 A1,HRMIN . STORE IN PACKET@E@@@@SS )@@G@@ LA,S4 A1,TIME . LOAD 2ND DIGIT OF MIN@D@@@@ ST )@@G@@ SA,S1 A1,MINSEC . STORE IN PACKET@D@@@@ LA,T3 SU )@@G@@ A1,TIME . LOAD SECONDS @D@@@@ SA,T2 A1,MINSEC SV )@@G@@ . STORE IN PACKET@D@@@@/. THIS PART COMPUTES THE PROPER DAY OF THSW )@@G@@E WEEK. @E@@@@. THIS ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR SX )@@G@@2069. @G@@@@. IT ACCOUNTS FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILLSY )@@G@@ CHANGE THE @G@@@@. CENTURY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCSZ )@@G@@URS. SOME OF THE @G@@@@. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BITA )@@G@@T LIKE FUDGING ONLY @#@@@@. MUCH STICKIER. @[@@@@. @F@@@@ TB )@@G@@ LA,S1 A0,TDATE . LOAD THE CURRENT MONTH @H@@@@ TC )@@G@@ LA A6,OFFSET-1,A0 . LOAD THE OFFSET. THE OFFSET IS THE TD )@@G@@@H@@@@ AA,S2 A6,TDATE . SUM OF THE DAYS IN THE MONTTE )@@G@@HS PROCEDING@I@@@@ . THE CURRENT ONETF )@@G@@ AND ADD TODAYS DATE TO IT @H@@@@ LA,U A8,72 TG )@@G@@ . LOAD THE 1ST LEAP YR AFTER THIS WRIT @G@@@@ LA,S3 A9,TDTH )@@G@@ATE . LOAD THE CURRENT YEAR (MODULO 64)@E@@@@ AA,U TI )@@G@@ A9,64 . BRING IT UP TO DATE @[@@@@. @E@@@@. THIS PART TJ )@@G@@DETERMINES WHETHER WE HAVE A LEAP YEAR OR NOT. @[@@@@. @E@@@@TEST1 TK )@@G@@ TG A8,A9 . IS CURRENT YEAR < 72?@F@@@@ J TL )@@G@@ TEST2 . NO, GO DO THE NEXT TEST @E@@@@ AA,TM )@@G@@U A8,4 . YES, ADD 4 TO BASE 72@F@@@@ J TN )@@G@@ TEST1 . GO BACK AND TEST AGAIN @D@@@@TEST2 TE TO )@@G@@ A8,A9 . ARE THEY EQUAL?@G@@@@ J TEST3 TP )@@G@@ . NO, NOT A LEAP YEAR, KEEP GOING @G@@@@ ANA,U A0,3 TQ )@@G@@ . YES, SEE WHAT MONTH WE ARE IN @G@@@@ JP TR )@@G@@ A0,$+3 . AFTER MARCH, NEED AN EXTRA DAY @G@@@@ JZ TS )@@G@@ A0,$+2 . IT IS MARCH, NEED AN EXTRA DAY @H@@@@ TT )@@G@@ J TEST3 . NO, MUST BE JAN OR FEB, NO EXTRA DAY TU )@@G@@@E@@@@ AA,U A6,1 . ADD THE EXTRA DAY @H@@@@TV )@@G@@TEST3 DSA A6,36 . NOW TAKE OUT THE WEEKS PRIOR TO TTW )@@G@@HIS @G@@@@ DI,U A6,7 . ONE AND SAVE THE REMATX )@@G@@INDER IN A7 @B@@@@. NOW LET'S CHECK WHAT CENTURY WE'RE IN @F@@@@ TY )@@G@@ LA,S3 A10,TDATE . LOAD THE YEAR (MODULO 64) @D@@@@ TZ )@@G@@ ANA,U A10,6 . BIAS IT BY 70 @C@@@@ JP UA )@@G@@ A10,$+5 . < 70? @C@@@@ JZ A10,$+4 UB )@@G@@ . = 70? @D@@@@ AA,U A10,100 . MUST BE < 2000 UC )@@G@@@E@@@@ LA,U A11,20 . LOAD THE NEW CENTURY @E@@@@UD )@@G@@ SA,T3 A11,DAYYR . CHANGE THE PACKET @[@@@@. UE )@@G@@@H@@@@. THIS SECTION COMPUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRUF )@@G@@ENT YEAR @G@@@@. YEAR FELL ON. THIS THEN COMBINED WITH THE REMAINDERUG )@@G@@ OF THE OFFSET TO @B@@@@. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@@UH )@@G@@. @C@@@@ LA A9,A10 . SAVE A10 @H@@@@ UI )@@G@@ AA,U A10,1 . ADD ONE TO THE YEAR (FUDGING AGAIN) UJ )@@G@@@C@@@@ DSA A10,36 . SHIFT IT @C@@@@ DI,UK )@@G@@U A10,4 . FUDGE IT @C@@@@ AA,U A9,4 UL )@@G@@ . PUT IT @D@@@@ AA A9,A10 . ALL TOGETUM )@@G@@HER @D@@@@ DSA A9,36 . SHIFT IT AGAIN @E@@@@UN )@@G@@ DI,U A9,7 . ELIMINATE THE WEEKS @E@@@@ UO )@@G@@ AA A7,A10 . ADD THE REMAINDERS @E@@@@ LAUP )@@G@@,U A8,07 . SEE IF NUMBER IS @E@@@@ TLE UQ )@@G@@ A8,A7 . GREATER THAN SEVEN @E@@@@ ANA,U A7,7 UR )@@G@@ . YES, TAKE 7 AWAY @F@@@@ ANA,U A7,1 US )@@G@@ . MODIFY IT FOR TWO WORDS @D@@@@ MSI,U A7,2 UT )@@G@@ . AND DOUBLE IT @F@@@@ LX X1,A7 . LOAUU )@@G@@D THE INDEX REGISTER @F@@@@ DL A3,DAYOFWK,X1 . LOAUV )@@G@@D THE DAY OF THE WEEK @F@@@@ DS A3,DAYWEEK . STOUW )@@G@@RE DAY OF WEEK IN PACKET@C@@@@. THIS SECTION SEES IF WE HAVE A SPECIAL MUX )@@G@@ESSAGE@D@@@@ L A0,DATE . LOAD THE DATE @G@@@@UY )@@G@@ SSL A0,12 . SHIFT IT TO GET RID OF THE YEAR UZ )@@G@@@F@@@@ LXI,U X1,2 . SET UP INDEX REGISTER FOR VA )@@G@@@C@@@@ LXM,U X1,0 . SEARCH @H@@@@ L,UVB )@@G@@ R1,(ENDSPC-SPCLST)/2 . LOAD THE LENGTH OF THE TABLE @F@@@@VC )@@G@@ SE A0,SPCLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@@VD )@@G@@ J PRINT . NO, GO PRINT THE SIGNATURE @F@@@@VE )@@G@@ L,H1 R1,SPCLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@@VF )@@G@@ L X2,SPCLST-1,X1 . LOAD THE LOCATION @D@@@@ VG )@@G@@ LXI,U X2,1 . SET UP THE @D@@@@ LXI,U VH )@@G@@ X3,1 . INCREMENTS @F@@@@ LXM,U X3,MSG VI )@@G@@ . LOAD WHERE TO STORE IT @D@@@@RPT LA A1,0,*X2 VJ )@@G@@ . LOAD AND STORE @E@@@@ SA A1,0,*X3 . THEVK )@@G@@ MESSAGE, ONE @D@@@@ JGD R1,RPT . WORD AT AVL )@@G@@ TIME @F@@@@PRINT LA A0,(P 1,22,SIG) . LOAD THE SIGNATURE PAVM )@@G@@CKET @E@@@@ ER PRINT$ . WRITE OUT SIGNATURE VN )@@G@@@C@@@@ J 0,X11 . RETURN @[@@@@/. @]@@@@VO )@@G@@$(0) . @E@[@@SIG 'BPD/CPD 03E' . SIGNATURE PACKVP )@@G@@ET @E@@@[SIG 'BPD/CPD 03F' . SIGNATURE PACKET VQ )@@G@@@D@@@@DAYWEEK ' ' . DAY OF THE WEEK@D@@@@MONTH VR )@@G@@ ' ' . CURRENT MONTH @D@@@@DAYYR ' , 19 VS )@@G@@ ' . DATE AND YEAR @G@@@@HRMIN ' : ' VT )@@G@@ . HOUR AND 1ST DIGIT OF MINUTE @G@@@@MINSEC ' : ' VU )@@G@@ . 2ND DIGIT OF MINUTE AND SECONDS @F@@@@ ' VV )@@G@@ ' . BLANK FOR SIGNATURE LINE @C@@@@MSG ' VW )@@G@@ ' . SPECIAL @C@@@@ ' ' VX )@@G@@ . MESSAGE @C@@@@ ' ' . PACKET @D@@@@VY )@@G@@DATE + 0 . DATE SAVE AREA @D@@@@TIME + VZ )@@G@@ 0 . TIME SAVE AREA @E@@@@TDATE + 0 WA )@@G@@ . BINARY DATE SAVE AREA@C@@@@OFFSET + 0 WB )@@G@@ . TABLE @B@@@@ + 31 . OF @C@@@@WC )@@G@@ + 59 . OFFSETS @B@@@@ + WD )@@G@@ 90 . TO @C@@@@ + 120 . COMWE )@@G@@PUTE @C@@@@ + 151 . WHAT @B@@@@ WF )@@G@@ + 181 . DAY@B@@@@ + 212 WG )@@G@@ . OF @B@@@@ + 243 . THE@C@@@@ WH )@@G@@ + 273 . WEEK @B@@@@ + 304 WI )@@G@@ . IT @B@@@@ + 334 . IS @C@@@@WJ )@@G@@DAYOFWK ' SUNDAY' . ACTUAL @B@@@@ ' MOWK )@@G@@NDAY' . DAY@B@@@@ ' TUESDAY' . OF WL )@@G@@@B@@@@ ' WEDNESDAY' . THE@C@@@@ ' THURWM )@@G@@SDAY' . WEEK @C@@@@ ' FRIDAY' WN )@@G@@ . LISTING @C@@@@ ' SATURDAY' . TABLE @C@@@@WO )@@G@@MNTH ' ' . DUMMY @C@@@@ ' JANUWP )@@G@@ARY ' . ACTUAL @C@@@@ ' FEBRUARY ' WQ )@@G@@ . MONTH @B@@@@ ' MARCH ' . OF @B@@@@ WR )@@G@@ ' APRIL ' . THE@C@@@@ ' MAY ' WS )@@G@@ . CURRENT @C@@@@ ' JUNE ' . YEAR WT )@@G@@@B@@@@ ' JULY ' . TO @B@@@@ ' AUGWU )@@G@@UST ' . BE @C@@@@ ' SEPTEMBER ' . LOAWV )@@G@@DED @C@@@@ ' OCTOBER ' . INTO @B@@@@ WW )@@G@@ ' NOVEMBER ' . THE@C@@@@ ' DECEMBER ' WX )@@G@@ . PACKET @F@@@@/. SPECIAL DATE SECTION. CPD CAN PLAY GAWY )@@G@@MES BY ADDING A @G@@@@. COMMENT TO SPECIAL DATES SUCH AS HALLOWZ )@@G@@W5EN 69+1PI93+6663(2 @D@@@@. DAY OR ST. SWITHEN'S DAY, OR WHAXA )@@G@@T HAVE YOU. @E@@@@. TABLES ARE GENERATED BY PROC 'SP'. TYPICAL CXB )@@G@@ALL. @[@@@@. @A@@@@. SP '1031',2,HALMSG. @[@@@@. XC )@@G@@@F@@@@. WHERE 1031 IS HALLOWEEN, OCT. 31, 2 IS THE COUNT OF THE XD )@@G@@@G@@@@. WORDS IN THE HALLOWEEN MESSAGE, AND HALMSG IS THE LOCATIXE )@@G@@ON @C@@@@. OF THE FIRST WORD OF THE MESSAGE. @E@@@@. XF )@@G@@ THE COMMENT IS PUT AT THE END OF THE DATE LINE. @[@@@@. @]@@@@XG )@@G@@SPCLST. @C@@@@ SP '0101',E0101-B0101,B0101 . @C@@@@XH )@@G@@ SP '0105',E0105-B0105,B0105 . @C@@@@ SP XI )@@G@@ '0120',E0120-B0120,B0120 . @C@@@@ SP '0131',E0131-B013XJ )@@G@@1,B0131 . @C@@@@ SP '0202',E0202-B0202,B0202 . @C@@@@XK )@@G@@ SP '0212',E0212-B0212,B0212 . @C@@@@ SP XL )@@G@@ '0214',E0214-B0214,B0214 . @C@@@@ SP '0220',E0220-B022XM )@@G@@0,B0220 . @C@@@@ SP '0222',E0222-B0222,B0222 . @C@@@@XN )@@G@@ SP '0229',E0229-B0229,B0229 . @C@@@@ SP XO )@@G@@ '0305',E0305-B0305,B0305 . @C@@@@ SP '0315',E0315-B031XP )@@G@@5,B0315 . @C@@@@ SP '0317',E0317-B0317,B0317 . @C@@@@XQ )@@G@@ SP '0320',E0320-B0320,B0320 . @C@@@@ SP XR )@@G@@ '0401',E0401-B0401,B0401 . @C@@@@ SP '0403',E0403-B040XS )@@G@@3,B0403 @C@@@@ SP '0404',E0404-B0404,B0404 @C@@@@XT )@@G@@ SP '0405',E0405-B0405,B0405 @C@@@@ SP XU )@@G@@ '0406',E0406-B0406,B0406 . @C@@@@ SP '0407',E0407-B040XV )@@G@@7,B0407 . @C@@@@ SP '0409',E0409-B0409,B0409 . @C@@@@XW )@@G@@ SP '0412',E0412-B0412,B0412 . @C@@@@ SP XX )@@G@@ '0414',E0414-B0414,B0414 . @C@@@@ SP '0415',E0415-B041XY )@@G@@5,B0415 . @C@@@@ SP '0418',E0418-B0418,B0418 . @C@@@@XZ )@@G@@ SP '0419',E0419-B0419,B0419 . @C@@@@ SP YA )@@G@@ '0501',E0501-B0501,B0501 . @C@@@@ SP '0503',E0503-B050YB )@@G@@3,B0503 . @C@@@@ SP '0508',E0508-B0508,B0508 . @C@@@@YC )@@G@@ SP '0517',E0517-B0517,B0517 . @C@@@@ SP YD )@@G@@ '0526',E0526-B0526,B0526 . @C@@@@ SP '0606',E0606-B060YE )@@G@@6,B0606 . @C@@@@ SP '0610',E0610-B0610,B0610 . @C@@@@YF )@@G@@ SP '0617',E0617-B0617,B0617 . @C@@@@ SP YG )@@G@@ '0618',E0618-B0618,B0618 . @C@@@@ SP '0625',E0625-B062YH )@@G@@5,B0625 . @C@@@@ SP '0704',E0704-B0704,B0704 . @C@@@@YI )@@G@@ SP '0714',E0714-B0714,B0714 . @C@@@@ SP YJ )@@G@@ '0720',E0720-B0720,B0720 . @C@@@@ SP '0806',E0806-B080YK )@@G@@6,B0806 . @C@@@@ SP '0814',E0814-B0814,B0814 . @C@@@@YL )@@G@@ SP '0826',E0826-B0826,B0826 . @C@@@@ SP YM )@@G@@ '0827',E0827-B0827,B0827 . @C@@@@ SP '0830',E0830-B083YN )@@G@@0,B0830 . @C@@@@ SP '0901',E0901-B0901,B0901 . @C@@@@YO )@@G@@ SP '0902',E0902-B0902,B0902 . @C@@@@ SP YP )@@G@@ '0914',E0914-B0914,B0914 . @C@@@@ SP '0925',E0925-B092YQ )@@G@@5,B0925 . @C@@@@ SP '1001',E1001-B1001,B1001 . @C@@@@YR )@@G@@ SP '1005',E1005-B1005,B1005 @C@@@@ SP YS )@@G@@ '1009',E1009-B1009,B1009 . @C@@@@ SP '1012',E1012-B101YT )@@G@@2,B1012 . @C@@@@ SP '1014',E1014-B1014,B1014 . @C@@@@YU )@@G@@ SP '1024',E1024-B1024,B1024 . @C@@@@ SP YV )@@G@@ '1029',E1029-B1029,B1029 . @C@@@@ SP '1031',E1031-B103YW )@@G@@1,B1031 . @C@@@@ SP '1111',E1111-B1111,B1111 . @C@@@@YX )@@G@@ SP '1119',E1119-B1119,B1119 . @C@@@@ SP YY )@@G@@ '1129',E1129-B1129,B1129 . @C@@@@ SP '1207',E1207-B120YZ )@@G@@7,B1207 . @C@@@@ SP '1214',E1214-B1214,B1214 . @C@@@@ZA )@@G@@ SP '1217',E1217-B1217,B1217 . @C@@@@ SP ZB )@@G@@ '1221',E1221-B1221,B1221 . @C@@@@ SP '1224',E1224-B122ZC )@@G@@4,B1224 . @C@@@@ SP '1225',E1225-B1225,B1225 . @]@@@@ZD )@@G@@ENDSPC. @^@@@@B0101 'HAPPY NEW YEAR'.@[@@@@E0101.@D@@@@B0105 'NZE )@@G@@ELLIE ROSS FIRST WOMAN GOVERNOR 1925' @]@@@@E0105 . @B@@@@B0111 ZF )@@G@@ 'ALEXANDER HAMILTON BORN 1757' @]@@@@E0111 . @B@@@@B0120 'PZG )@@G@@RESIDENTIAL INAUGURATION DAY' @]@@@@E0120 . @ @@@@B0131 'EXPLORER 1ZH )@@G@@--1958'. @[@@@@E0131.@^@@@@B0202 'GROUND HOG DAY'.@[@@@@E0202.@ @@@@ZI )@@G@@B0212 'A.LINCOLN--1809'. @[@@@@E0212.@ @@@@B0214 'ST. VALENTINE''SZJ )@@G@@ DAY'.@[@@@@E0214.@A@@@@B0220 'JOHN GLENN''S FLIGHT--1962'.@[@@@@E0220.ZK )@@G@@@B@@@@B0222 'GEORGE WASHINGTON''S BIRTHDAY'. @[@@@@E0222.@B@@@@B0229 ZL )@@G@@ 'LEAP-YEAR DAY.' . @[@@@@E0229.@A@@@@B0305 'BPSTON ZM )@@G@@MASSACRE - 1770' @]@@@@E0305 . @A@@@@B0315 'BEWARE: THE IDES OF MZN )@@G@@ARCH'.@[@@@@E0315.@ @@@@B0317 'SAINT PATRICK''S DAY'.@[@@@@E0317.@ @@@@ZO )@@G@@B0320 'SPRING HAS SPRUNG'. @[@@@@E0320.@ @@@@B0401 'APRIL FOOLS DAY'ZP )@@G@@. @[@@@@E0401.@A@@@@B0404 'JOHN NAPIER BORN 1550' @]@@@@E0404 ZQ )@@G@@ . @B@@@@B0405 'POCAHONTAS MARRIED ROLFE 1614' @]@@@@E0405 . ZR )@@G@@@A@@@@B0403 'NATO DAY (MAC GETS OFF)' .@[@@@@E0403.@C@@@@B0406 'PEARZS )@@G@@Y REACHES NORTH POLE IN 1909' . @[@@@@E0406.@D@@@@B0407 'OFFICIAL DZT )@@G@@ATE OF CRUCIFIXION IN 30 A.D.' . @[@@@@E0407.@E@@@@B0409 'APPOMATZU )@@G@@TOX DAY (THE SOUTH WILL RISE AGAIN)'. @[@@@@E0409.@A@@@@B0412 'FIRIZV )@@G@@NG ON FORT SUMTER' . @[@@@@E0412.@B@@@@B0414 'LINCOLN ASSASINATED, 1ZW )@@G@@865' . @[@@@@E0414.@^@@@@B0415 'HAPPY IRS DAY'. @[@@@@E0415.@B@@@@ZX )@@G@@B0418 'SAN FRANCISCO EARTHQUAKE 1906' @]@@@@E0418 . @D@@@@B0419 ZY )@@G@@ 'TAXATION WITHOUT REPRESENTATION MEANS WAR'. @[@@@@E0419.@#@@@@B0501 ZZ )@@G@@ 'MAY DAY'. @[@@@@E0501.@C@@@@B0503 'POLAND ADOPTED CONSTITUTION 179AA )@@G@@1' @]@@@@E0503 . @C@@@@B0526 'FIRST AMERICAN BANK CHARTERED 1AB )@@G@@781' @]@@@@E0526 . @#@@@@B0508 'V-E DAY'. @[@@@@E0508.@B@@@@B0517 AC )@@G@@ 'NORWEGIAN INDEPENDANCE DAY' . @[@@@@E0517.@#@@@@B0606 'D-DAY'. AD )@@G@@@[@@@@E0606.@F@@@@B0610 'WITHHOLDING TAX LAW SIGNED 1943 : EAT YOUR AE )@@G@@HEART OUT' @]@@@@E0610 . @F@@@@B0617 'DON''T FIRE UNTIL YOU SEE THAF )@@G@@E WHITE''S OF THEIR EYES'. @[@@@@E0617.@ @@@@B0618 'BATTLE OF WATERLAG )@@G@@OO' .@[@@@@E0618.@A@@@@B0625 'CUSTER''S LAST STAND' @]@@@@E0625 AH )@@G@@ . @B@@@@B0704 'INDEPENDENCE DAY.' . @[@@@@E0704.@^@@@@AI )@@G@@B0714 'BASTILLE DAY'. @[@@@@E0714.@ @@@@B0720 '1ST MAN ON THE MOON'. AJ )@@G@@@[@@@@E0720.@^@@@@B0806 'FRIENDSHIP DAY'.@[@@@@E0806.@#@@@@B0814 'V-J AK )@@G@@DAY'. @[@@@@E0814.@A@@@@B0826 'WOMEN''S SUFFRAGE--1920'. @[@@@@E0826.AL )@@G@@@^@@@@B0827 'FIRST OILWELL'. @[@@@@E0827.@A@@@@B0830 'CLEOPATRA DIEAM )@@G@@D 30 B.C.' @[@@@@E0830 @ @@@@B0901 'INVASION OF POLAND'. @[@@@@E0901.AN )@@G@@@C@@@@B0902 'SURRENDER SIGNED, U.S.S. MISSOURI'. @[@@@@E0902.@C@@@@AO )@@G@@B0914 'STAR-SPANGLED BANNER WRITTEN--1814'. @[@@@@E0914.@B@@@@B0924 AP )@@G@@ 'BLACK FRIDAY IN N.Y. 1869' @]@@@@E0924 . @E@@@@B0925 'BAQ )@@G@@ALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @[@@@@E0925.@B@@@@B1001 AR )@@G@@ 'HAPPY NEW FISCAL YEAR (OCS DAY)'. @[@@@@E1001.@A@@@@B1005 'HAPPY BAS )@@G@@IRTHDAY DAVID' @]@@@@E1005 . @ @@@@B1009 'LIEF ERIKSON DAY'. AT )@@G@@@[@@@@E1009.@^@@@@B1012 'COLUMBUS DAY'. @[@@@@E1012.@A@@@@B1014 'BATTAU )@@G@@LE OF HASTINGS, 1066' .@[@@@@E1014.@ @@@@B1024 'UNITED NATIONS DAY'. AV )@@G@@@[@@@@E1024.@A@@@@B1029 'STOCK MARKET CRASH 1929' @]@@@@E1029 . AW )@@G@@@F@@@@B1031 'ALL HALLOWS EVE ''BET YOU THO''T IT WAS HALLOWEEN' AX )@@G@@@[@@@@E1031.@^@@@@B1111 'ARMISTICE DAY'. @[@@@@E1111.@E@@@@B1119 'FOREAY )@@G@@-SCORE AND SEVEN ... PERISH FROM THIS EARTH'. @[@@@@E1119.@A@@@@B1129 AZ )@@G@@ 'SAND CREEK MASSACRE 1864'@]@@@@E1129 . @^@@@@B1207 'DAY-OF-INFBA )@@G@@AMY'. @[@@@@E1207.@C@@@@B1214 'AMUNDSON REACHES SOUTH POLE, 1911' . BB )@@G@@@[@@@@E1214.@A@@@@B1217 'FIRST POWERED FLIGHT--1903'.@[@@@@E1217.@A@@@@BC )@@G@@B1221 'PLYMOUTH ROCK STEPPED ON'. @[@@@@E1221.@A@@@@B1224 'HAPPY BBD )@@G@@IRTHDAY ANITA' @]@@@@E1224 . @ @@@@B1225 'MERRY CHRISTMAS'. BE )@@G@@@[@@@@E1225.@B@@@@ END . ___22,SIG) BF )@@G@@ . LOAD THE SIGNATURE PACKET @E@@@@ ER PRINT$ BG )@@G@@ . WRITE OUT SIGNATURE *[S@@@*SDFF*@H@#@]\ASM,L .CPD BH )@@G@@ . BPD @H@^@#\ASM,L .CPD BI )@@G@@ . BPD 3E @H@@@^@ASM,LBJ )@@G@@ .CPD . BPD 3E BK )@@G@@@H@ @]-19,19 BL )@@G@@ . BPD 3E @H@#@]CPD* BM )@@G@@ . BPD @H@ @#CPD* BN )@@G@@ . BPD 3E @H@#@] LA A0,FORK BO )@@G@@ . SET UP FORK$ . BPD @H@ @# LA A0,BP )@@G@@FORK . SET UP FORK$ . BPD 3E @H@#@] BQ )@@G@@ ER FORK$ . FORK LEVEL 5 . BPD BR )@@G@@@H@ @# ER FORK$ . FORK LEVEL 5 BS )@@G@@ . BPD 3E @H@#@] ER EXIT$ . END LEVEL 0 BT )@@G@@ . BPD @H@ @# ER EXIT$ . END LEBU )@@G@@VEL 0 . BPD 3E @H@ @]CPDFK . ACTIVITY LEVEL 5 BV )@@G@@ . BPD 3E @H@ @]-102 BW )@@G@@ . BPD 3E @H@#@] BX )@@G@@ TNZ SWSWT . SET MODE SET ? . BPD BY )@@G@@@H@ @# TNZ SWSWT . SET MODE SET ? BZ )@@G@@ . BPD 3E @H@#@] J SETSWAP . YES CA )@@G@@ . BPD @H@ @# J SETSWAP . YES CB )@@G@@ . BPD 3E @H@#@]NOTSM CC )@@G@@ . BPD @H@ @#NOTSM CD )@@G@@ . BPD 3E @H@ @]-105 CE )@@G@@ . BPD 3E CF )@@G@@@H@#@]SETSWAP CG )@@G@@ . BPD @H@ @#SETSWAP CH )@@G@@ . BPD 3E @H@#@] DL A0,FILEN . GET FICI )@@G@@LENAME . BPD @H@ @# DL A0,FILEN CJ )@@G@@ . GET FILENAME . BPD 3E @H@#@] DTE A0,CK )@@G@@IOWSM . EQUAL TO SET MODE ? . BPD @H@ @# CL )@@G@@ DTE A0,IOWSM . EQUAL TO SET MODE ? . BPD 3E CM )@@G@@@H@#@] J NOTSM . NO CN )@@G@@ . BPD @H@ @# J NOTSM . NO CO )@@G@@ . BPD 3E @H@#@] LA,U A0,RESET . GET OUCP )@@G@@T OF SET MODE . BPD @H@ @# LA,U A0,RESET CQ )@@G@@ . GET OUT OF SET MODE . BPD 3E @H@#@] SA,H2 A0,CR )@@G@@IOWSM+4 . RESET . BPD @H@ @# CS )@@G@@ SA,H2 A0,IOWSM+4 . RESET . BPD 3E CT )@@G@@@H@#@] LA,U A0,IOWSM . DO ER CU )@@G@@ . BPD @H@ @# LA,U A0,IOWSM . DO ER CV )@@G@@ . BPD 3E @H@#@] ER IOWI$ . CLEAR CW )@@G@@SET MODE . BPD @H@ @# ER IOWI$ CX )@@G@@ . CLEAR SET MODE . BPD 3E @H@#@] LA A0,CY )@@G@@AWAIT . SET WAIT . BPD @H@ @# CZ )@@G@@ LA A0,AWAIT . SET WAIT . BPD 3E DA )@@G@@@H@ @] ER AWAIT$ . BPD DB )@@G@@ . BPD 3E @H@#@] LA,U A0,FILEN . SET SWAP DC )@@G@@ . BPD @H@ @# LA,U A0,FILEN . SET SWDD )@@G@@AP . BPD 3E @H@#@] ER TSWAP$ DE )@@G@@ . SWAP . BPD @H@ @# ER TSWDF )@@G@@AP$ . SWAP . BPD 3E @H@#@] DG )@@G@@ LA,U A0,STMODE . GET ADDRESS . BPD DH )@@G@@@H@ @# LA,U A0,STMODE . GET ADDRESS DI )@@G@@ . BPD 3E @H@#@] SA,H2 A0,IOWSM+4 . STORE IN PKT DJ )@@G@@ . BPD @H@ @# SA,H2 A0,IOWSM+4 . STORE DK )@@G@@IN PKT . BPD 3E @H@#@] LA,U A0,IOWSM DL )@@G@@ . SET MODE . BPD @H@ @# LA,U A0,DM )@@G@@IOWSM . SET MODE . BPD 3E @H@#@] DN )@@G@@ ER IOWI$ . . BPD DO )@@G@@@H@ @# ER IOWI$ . DP )@@G@@ . BPD 3E @H@#@] LA A0,AWAIT . SET WAIT LEVEL DQ )@@G@@ . BPD @H@ @# LA A0,AWAIT . SET WADR )@@G@@IT LEVEL . BPD 3E @H@#@] ER AWAIT$ DS )@@G@@ . ACTIVY LEVEL 3 . BPD @H@ @# ER AWADT )@@G@@IT$ . ACTIVY LEVEL 3 . BPD 3E @H@#@] DU )@@G@@ J CDIMGE . END SWAP . BPD DV )@@G@@@H@ @# J CDIMGE . END SWAP DW )@@G@@ . BPD 3E @H@@@]-323 DX )@@G@@ . BPD 3E @H@#@] TZ OPTION2 . Q OR RDY )@@G@@ SET ? . BPD @H@@@# TZ OPTION2 DZ )@@G@@ . Q OR R SET ? . BPD 3E @H@#@] J BPDEA )@@G@@1 . YES . BPD @H@@@# EB )@@G@@ J BPD1 . YES . BPD 3E EC )@@G@@@H@#@] TNZ,H1 OPTION . A, O, OR H SET ? ED )@@G@@ . BPD @H@A@# TNZ,H1 OPTION . A, O, OR H SET ? EE )@@G@@ . BPD 3E @H@@@A TZ,H1 OPTION . A, O, OEF )@@G@@R H SET ? . BPD 3E @H@#@] J BPD1 EG )@@G@@ . YES . BPD @H@@@# J BPDEH )@@G@@1 . YES . BPD 3E @H@#@] EI )@@G@@ SLJ PRTO . PRINT OCTAL . BPD EJ )@@G@@@H@@@# SLJ PRTO . PRINT OCTAL EK )@@G@@ . BPD 3E @H@#@] TZ,S6 OPTION . F OPTION SET ? EL )@@G@@ . BPD @H@@@# TZ,S6 OPTION . F OPTIEM )@@G@@ON SET ? . BPD 3E @H@#@] J NEXREC EN )@@G@@ . YES . BPD @H@@@# J NEXEO )@@G@@REC . YES . BPD 3E @H@#@] EP )@@G@@ J DONEIT . DECREMENT . BPD EQ )@@G@@@H@@@# J DONEIT . DECREMENT ER )@@G@@ . BPD 3E @H@@@]BPD1 ES )@@G@@ . BPD 3E @H@ @]-850 ET )@@G@@ . BPD 3E @H@ @]FORK + 0501,CPDFK . FORK$ PAEU )@@G@@CKIT BPD . BPD 3E @H@@@]@ASM,L .TPRD$ EV )@@G@@ . BPD . BPD 3E @H@ @]-14,14EW )@@G@@ . BPD 3E EX )@@G@@@H@#@]TPRD$* TZ SMSWT . FIRST READ ? EY )@@G@@ . BPD @H@ @#TPRD$* TZ SMSWT . FIRST READ ? EZ )@@G@@ . BPD 3E @H@#@] LMJ X5,SETMOD . YES FA )@@G@@ . BPD @H@ @# LMJ X5,SETMOD FB )@@G@@ . YES . BPD 3E @H@ @] DL A0,FC )@@G@@0,X11 . GET CURRENT FILE NAME . BPD 3E @H@ @]-20,20FD )@@G@@ . BPD 3E FE )@@G@@@H@#@] ER IOWI$ . READ TAPE FF )@@G@@ . BPD @H@ @# ER IOWI$ . READ TAPE FG )@@G@@ . BPD 3E @H@#@] LA A0,AWAIT . SET ACFH )@@G@@TIVY LEVEL . BPD @H@ @# LA A0,AWAIT FI )@@G@@ . SET ACTIVY LEVEL . BPD 3E @H@#@] ER AWAFJ )@@G@@IT$ . ACTIVY 3 . BPD @H@ @# FK )@@G@@ ER AWAIT$ . ACTIVY 3 . BPD 3E FL )@@G@@@H@#@] LA A2,STATUS . READ STATUS FM )@@G@@ . BPD @H@ @# LA A2,STATUS . READ STATUS FN )@@G@@ . BPD 3E @H@#@] AND A2,('@@@)@@') . BIT 17FO )@@G@@ SET? . BPD @H@ @# AND A2,('@@@)@@') FP )@@G@@ . BIT 17 SET? . BPD 3E @H@ @]LTZ A3 . AFQ )@@G@@FC . BPD . BPD 3E @H@#@] FR )@@G@@ J AFC . YES . BPD FS )@@G@@@H@ @# J AFC . YES FT )@@G@@ . BPD 3E @H@#@] AND A2,('@@@@4@') . BITS 8, 10, 11 SETFU )@@G@@ ? . BPD @H@ @# AND A2,('@@@@4@') . BITS 8FV )@@G@@, 10, 11 SET ? . BPD 3E @H@#@] TNE A3,('@@@@4@') FW )@@G@@ . EOF . BPD @H@ @# TNE A3,FX )@@G@@('@@@@4@') . EOF . BPD 3E @H@#@] FY )@@G@@ J EOFEOT . YES . BPD FZ )@@G@@@H@ @# J EOFEOT . YES GA )@@G@@ . BPD 3E @H@#@] AND A2,('@@@@0@') . BIT 10, 11 SET ? GB )@@G@@ . BPD @H@ @# AND A2,('@@@@0@') . BIT 10GC )@@G@@, 11 SET ? . BPD 3E @H@#@] TNE A3,('@@@@0@') GD )@@G@@ . GOOD READ ? . BPD @H@ @# TNE A3,GE )@@G@@('@@@@0@') . GOOD READ ? . BPD 3E @H@#@] GF )@@G@@ J NORMRT . YES . BPD GG )@@G@@@H@ @# J NORMRT . YES GH )@@G@@ . BPD 3E @H@#@] J UNREC . NO GI )@@G@@ . BPD @H@ @# J UNREC . NO GJ )@@G@@ . BPD 3E @H@#@]-53,53 GK )@@G@@ . BPD @H@@@#-53,53 GL )@@G@@ . BPD 3E @H@#@] GM )@@G@@ TNE,U A8,1 . WRITTEN BEFORE ? . BPD GN )@@G@@@H@@@# TNE,U A8,1 . WRITTEN BEFORE ? GO )@@G@@ . BPD 3E @H@@@]-82,85 GP )@@G@@ . BPD 3E @H@ @]-87 GQ )@@G@@ . BPD 3E @H@#@]SETMOD SZ SMSWT GR )@@G@@ . CLEAR FIRST READ . BPD @H@ @#SETMOD SZ SMSGS )@@G@@WT . CLEAR FIRST READ . BPD 3E @H@#@] GT )@@G@@ DL A0,0,X11 . GET FILE NAME . BPD GU )@@G@@@H@ @# DL A0,0,X11 . GET FILE NAME GV )@@G@@ . BPD 3E @H@#@] DS A0,IOWISM . SET PACKET GW )@@G@@ . BPD @H@ @# DS A0,IOWISM . SET PAGX )@@G@@CKET . BPD 3E @H@#@] LA,U A0,IOWSM GY )@@G@@ . SET READ . BPD @H@ @# LA,U A0,GZ )@@G@@IOWSM . SET READ . BPD 3E @H@#@] HA )@@G@@ ER IOWI$ . SET MODE . BPD HB )@@G@@@H@ @# ER IOWI$ . SET MODE HC )@@G@@ . BPD 3E @H@#@] LA A0,AWAIT . SET ACTIVITY LEVELHD )@@G@@ TO WAIT . BPD @H@ @# LA A0,AWAIT . SET ACHE )@@G@@TIVITY LEVEL TO WAIT . BPD 3E @H@#@] ER AWAIT$ HF )@@G@@ . WAIT LEVEL 3 . BPD @H@ @# ER AWAHG )@@G@@IT$ . WAIT LEVEL 3 . BPD 3E @H@#@] HH )@@G@@ J 0,X5 . RETURN AFTER WAIT . BPD HI )@@G@@@H@ @# J 0,X5 . RETURN AFTER WAIT HJ )@@G@@ . BPD 3E @H@#@]SMTEST . ENTER HERE WITH STATUS AFTER EACH READ . HK )@@G@@ . BPD @H@ @#SMTEST . ENTER HERE WITH STATUS AFTER EHL )@@G@@ACH READ . . BPD 3E @H@ @] SA A1,STATUS HM )@@G@@ . BPD 3E @H@#@] DS A2,HN )@@G@@STATUS+1 . SAVE STATUS . BPD @H@ @# HO )@@G@@ DS A2,STATUS+1 . SAVE STATUS . BPD 3E HP )@@G@@@H@#@] ER EXIT$ . END ACTIVY 3 HQ )@@G@@ . BPD @H@ @# ER EXIT$ . END ACTIVY 3 HR )@@G@@ . BPD 3E @H@ @]-95,95 HS )@@G@@ . BPD 3E @H@#@] + 03,00 HT )@@G@@ . BPD @H@ @# + 03,00 HU )@@G@@ . BPD 3E @H@ @]-107 HV )@@G@@ . BPD 3E HW )@@G@@@H@ @]SMSWT +01 . BPD HX )@@G@@ . BPD 3E @H@ @]AWAIT 010 . BPD HY )@@G@@ . BPD 3E @H@ @]STATUS RES 3 . BPD HZ )@@G@@ . BPD 3E @H@ @]STMODE + 000400000000 IA )@@G@@ . SET MODE . BPD 3E @H@ @]IOWSM I$OT ' IB )@@G@@ ',SM$,SMTEST,3 1,STMODE . BPD 3E @H@ @]RESET IC )@@G@@ + 001000000000 . BPD 3E ID )@@G@@@H@@@]@ASM,L .SIGN . BPD IE )@@G@@ . BPD 3E @H@@@]-119,119 IF )@@G@@ . BPD 3E @H@#@]SIG 'BPD/CPD 03E' . SIGNATIG )@@G@@URE PKT . BPD @H@@@#SIG 'BPD/CPD 03E' IH )@@G@@ . SIGNATURE PKT . BPD 3E @H@@@]@ASM,L .PRT II )@@G@@ . BPD . BPD 3E @H@@@]-18,18IJ )@@G@@ . BPD 3E IK )@@G@@@H@@@]. NOWDS$ H2 = NUMBER WORDS READ . BPD IL )@@G@@ . BPD 3E @H@#@]. S1 = NUMBER CHAR IN LAST WORD IM )@@G@@ . BPD @H@@@#. S1 = NUMBER CHAR IN LAST WORD IN )@@G@@ . BPD 3E @H@#@]. S2 = AFC IO )@@G@@ . BPD @H@@@#. S2 = AFCIP )@@G@@ . BPD 3E @H@#@] IQ )@@G@@ LA,H2 A0,NOWDS$ . # WORDS IN BUFF . BPD IR )@@G@@@H@@@# LA,H2 A0,NOWDS$ . # WORDS IN BUFF IS )@@G@@ . BPD 3E @H@@@]-68,68 IT )@@G@@ . BPD 3E @H@#@] LA,H2 A0,NOWDS$ . # WORDIU )@@G@@S IN BUFF . BPD @H@@@# LA,H2 A0,NOWDS$ IV )@@G@@ . # WORDS IN BUFF . BPD 3E ___ @# LA,U A0,IW )@@G@@STMODE . GET ADDRESS *[S@@@*SDFF*@I@@@@. THISIX )@@G@@ PROGRAM WILL DUMP OR COPY ANY TAPE WITH BLOCKS OF 4096 WORDS OR LCD3001IY )@@G@@00 @I@@@@. WITH THE PRINT OUT EITHER ALPHA OR OCTAL DEPENDENT ON THE IZ )@@G@@OPTION IN THCD300200 @I@@@@. XQT CARD. THE USER MUST SPECIFY WHAT ACTJA )@@G@@ION IS TO BE DONE THRU PARAMETCD300300 @I@@@@. CARDS FOLLOWING THE XQJB )@@G@@T CARD. DOCUMENTATION FOR USAGE IS AVAILABLE .. CD300400 @I@@@@. JC )@@G@@ CD3005JD )@@G@@00 @F@@@@. THE SOURCE OF THE ORIGINAL COPY-DUMP CODE IS UNKNOWN TJE )@@G@@O US. @G@@@@. THE CODE ARRIVED AS CPDMPH AND HAS UNDERGONE CONSIDERAJF )@@G@@BLE CHANGE @^@@@@. SINCE THAT TIME. @F@@@@. QUESTIONS, ERRORS,JG )@@G@@ AND HOPEFULLY FIXES ON THIS VERSION OF @A@@@@. COPY-DUMP MAY BE RJH )@@G@@EFERED TO: @^@@@@. PAULA HAGAN @^@@@@. MDCS STOP 28JI )@@G@@@E@@@@. DEFENSE MAPPING AGENCY AEROSPACE CENTER (DMAAC) @A@@@@JJ )@@G@@. 2ND AND ARSENAL STREETS @A@@@@. ST. LOUIS, MO. 631JK )@@G@@18 @[@@@@. @I@@@@ AXR$ JL )@@G@@ CD300600 @B@@@@$(1) JM )@@G@@ . @I@@@@CPD* LMJ X11,SIGTUR . GO TO SIGNATUREJN )@@G@@ POUTINE CD300800 @I@@@@ ER OPT$ JO )@@G@@ . OPTION LETTER RECOVERY - BACK INCD300900 @I@@@@ JZ JP )@@G@@ A0,REREAD . ANY OPTIONS? CD301000 @I@@@@JQ )@@G@@ SA A0,TEMP . SAVE OPTIONS JR )@@G@@CD301100 @I@@@@ LA,U A1,01 . USE THIS TO INDJS )@@G@@ICATE AN OPTION ISCD301200 @I@@@@ LA,S2 A0,TEMP JT )@@G@@ . LOAD FOR 'A' TEST CD301300 @I@@@@ TEP,U JU )@@G@@ A0,02 . TEST FOR 'A' OPTION CD301400 @I@@@@JV )@@G@@ SA,S1 A1,OPTION . STORE 'A' OPTION JW )@@G@@CD301500 @I@@@@ LA,S3 A0,TEMP . LOAD FOR 'D', 'JX )@@G@@F', 'H' TEST CD301600 @I@@@@ TEP,U A0,020 JY )@@G@@ . TEST FOR 'D' OPTION CD301700 @I@@@@ SA,S5 JZ )@@G@@ A1,OPTION . STORE 'D' OPTION CD301800 @I@@@@KA )@@G@@ TEP,U A0,04 . TEST FOR 'F' OPTION KB )@@G@@CD301900 @I@@@@ SA,S6 A1,OPTION . STORE 'F' OPTIOKC )@@G@@N CD302000 @I@@@@ TEP,U A0,01 KD )@@G@@ . TEST FOR 'H' OPTION CD302100 @I@@@@ SA,S3 KE )@@G@@ A1,OPTION . STORE 'H' OPTION CD302200 @H@@@@KF )@@G@@ LA,S5 A0,TEMP . PICK UP POSSIBLE Q AND R OPTIONSKG )@@G@@. 03D @H@@@@ LA,U A1,1 . FLAG FOR Q OPTION KH )@@G@@ . 03D @H@@@@ TEP,U A0,010 . Q OPTION KI )@@G@@ . 03D @H@@@@ SA,S1 A1,OPTION2 KJ )@@G@@ . SET Q OPTION . 03D @H@@@@ TEP,U A0,0KK )@@G@@4 . TEST FOR R OPTION . 03D @H@@@@ SAKL )@@G@@,S2 A1,OPTION2 . SAVE RESULTS . 03D @H@@@@KM )@@G@@ TEP,U A0,040 . TEST FOR 'O' OPTION KN )@@G@@. 03D @I@@@@ SA,S2 A1,OPTION . STORE 'O' OPTION KO )@@G@@ CD302500 @I@@@@REREAD L A0,RDPKT . SKKP )@@G@@IP OVER CPD CARD-DUMMY READ CD302800 @I@@@@ ER READKQ )@@G@@$ . READ CARD IMAGE CD302900 @I@@@@CDIMGEKR )@@G@@* L A0,RDPKT . LOAD READ PACKET CD3030KS )@@G@@00 @I@@@@ ER READ$ . READ CARD IMAGE KT )@@G@@ CD303100 @I@@@@ S,S3 A0,PPKT . NRKU )@@G@@ WORDS TO PRINT CD303200 @I@@@@ L A0,PKV )@@G@@PKT . PRINT OUT COMMAND CD303300 @I@@@@ KW )@@G@@ ER PRINT$ . CD3034KX )@@G@@00 @I@@@@ GETFLD NEWCRD . PICK UP PARAMETER COKY )@@G@@MMAND CD303500 @I@@@@. CONTROL RETURNS WITH A2= NUMBER CHARS INKZ )@@G@@ FIELD AND FIELD IN A0,A1 RIGHCD303600 @E@@@@ JZ A2,CLA )@@G@@DIMGE . IGNORE A BLANK CARD @I@@@@ L,U R1,NOCOMM LB )@@G@@ . NUMBER OF COMMANDS POSSIBLE TO HCD303800 @I@@@@ ANLC )@@G@@D A1,(0777777) . LOGICAL PRODUCT IN A2 CD303900 LD )@@G@@@I@@@@ L A1,(1,0) . LE )@@G@@ CD304000 @I@@@@ SE,H1 A2,TABL,*A1 . SEARCH TLF )@@G@@ABLE FOR COMMAND CD304100 @I@@@@ J BADCOM LG )@@G@@ . BAD COMMAND,NO EQUAL FOUND CD304200 @I@@@@ L,LH )@@G@@H2 A2,TABL-1,A1 . PICK UP THE COMMAND CD304300 LI )@@G@@@I@@@@ S A2,COMMND . TEMP STORAGE FOR COMMAND LJ )@@G@@ CD304400 @I@@@@ GETFLD SAMECD LK )@@G@@ CD304500 @I@@@@ JZ A2,BADCOM LL )@@G@@ . USER HAS NO IN IN COMMAND CARD CD304600 @I@@@@NAME MSLM )@@G@@I,U A2,6 . NR CHARACTERS*BITS PER CHARACTECD304700 LN )@@G@@@I@@@@ S,T3 A2,$+1 LO )@@G@@ CD304800 @I@@@@ DSC A0,0 . DSC ---FLP )@@G@@N IN A0 AND A1 CD304900 @I@@@@ DS A0,FILEN LQ )@@G@@ . STORE FN IN LOCATION CD305000 @I@@@@ DSLR )@@G@@ A0,F1NAM . EOF ENCOUNTERED MESSAGE CD305100 LS )@@G@@@I@@@@ J *COMMND . GO TO COMMAND SUBROUTINE LT )@@G@@ CD305200 @B@@@@/ . @I@@@@LU )@@G@@WREOF DL A0,FILEN . PICK UP FILENAME FIRST 6 CHARS LV )@@G@@CD305400 @I@@@@ DS A0,TAPPKT . PUT IT IN TAPELW )@@G@@ PACKET WORD 1 CD305500 @I@@@@ L,U A0,011 LX )@@G@@ . FUNC CODE FOR WRITE END-OF-FILE CD305600 @I@@@@ S,S2 LY )@@G@@ A0,TAPPKT+3 . STORED FUNC CODE IN PROPER WORD.CD305700 @I@@@@LZ )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE--- MA )@@G@@CD305800 @I@@@@ ER IOW$ . WRITE END-OF-FMB )@@G@@ILE CD305900 @I@@@@ ER IOW$ MC )@@G@@ . WRITE SECOND EOF CD306000 @I@@@@ L,U MD )@@G@@ A0,051 . FUNCTION CODE FOR BACKSPACE CD306100 @I@@@@ME )@@G@@ S,S2 A0,TAPPKT+3 . STORE IN PROPER WORD MF )@@G@@CD306200 @I@@@@ L,U A0,TAPPKT . I/O PACKET FOR MG )@@G@@MAG TAPE CD306300 @I@@@@ ER IOW$ MH )@@G@@ . BACKSPACE OVER SECOND EOF CD306400 @I@@@@ INCF MI )@@G@@ . INCREASE THE FILE COUNT CD306500 @I@@@@MJ )@@G@@ TZ,S6 OPTION . F OPTION SET? MK )@@G@@CD306600 @I@@@@ J FCOPYC . YES ML )@@G@@ CD306700 @I@@@@ J CDIMGE MM )@@G@@ . GO BACK AND GET NEXT PARAMETER CCD306800 @I@@@@REWW LA,U MN )@@G@@ A0,040 . NO CD306900 @I@@@@MO )@@G@@ S,S2 A0,TAPPKT+3 . STORE FUNCTION CODE IN PACKET MP )@@G@@CD307000 @I@@@@ DL A0,FILEN . REWIND NO INTEMQ )@@G@@RLOCK ROUTINE---GECD307100 @I@@@@ DS A0,TAPPKT MR )@@G@@ . STORE WORD ONE IN TAPE PACKET CD307200 @I@@@@ L,U MS )@@G@@ A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD307300 @I@@@@MT )@@G@@ ER IOW$ . REWIND WITHOUT INTERLOCK MU )@@G@@CD307400 @I@@@@ CLRF MV )@@G@@ CD307500 @I@@@@ CLRR MW )@@G@@ CD307600 @I@@@@ GETFLD MX )@@G@@ SAMECD . SEE IF THERE ARE ANY MORE FILES CD307700 @I@@@@MY )@@G@@ JZ A2,CDIMGE . NO MZ )@@G@@CD307800 @I@@@@ J NAME . YES GO REWIND NA )@@G@@THEM CD307900 @I@@@@REWI DL A0,FILEN NB )@@G@@ . LOAD FILENAME CD308000 @I@@@@ DS NC )@@G@@ A0,FREED+1 . STORE IN PACKET CD308100 @I@@@@ND )@@G@@ L A0,(3,FREED) . LOAD @FREE PACKET NE )@@G@@CD308200 @I@@@@ ER CSF$ . FREE THE TAPE (NF )@@G@@ OR FILE) CD308300 @I@@@@ GETFLD SAMECD NG )@@G@@ . ANY MORE? CD308400 @I@@@@ JZ NH )@@G@@ A2,CDIMGE . NO CD308500 @I@@@@NI )@@G@@ J NAME . INSERT NEW FILENAME AND FREE NJ )@@G@@ . 3C @I@@@@. SWAP TAPE REELS NK )@@G@@ CD308700 @I@@@@SWAPRL . NL )@@G@@ CD308800 @I@@@@ L,U NM )@@G@@ A0,FILEN CD308900 @I@@@@NN )@@G@@ ER TSWAP$ NO )@@G@@CD309000 @I@@@@ J CDIMGE NP )@@G@@ CD309100 @B@@@@/ NQ )@@G@@ . @I@@@@. ROUTINE FOR POSITIONING TAPE FORWARD ONE BLOCK AT A TIME NR )@@G@@ CD309300 @I@@@@POSFOR SZ PSERET . ZENS )@@G@@RO PSE JUMP RETURN CD309400 @I@@@@ GETFLD SAMENT )@@G@@CD . PICK UP 'N' FIELD OF PARAMETER CCD309500 @I@@@@ NU )@@G@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT CD3096NV )@@G@@00 @I@@@@ J REPEATB . COME HERE IF WE PROVINW )@@G@@DED FILE COUCD309700 @I@@@@ SA A1,X2 . NX )@@G@@ CD309800 @I@@@@ SLJ CNVTNY )@@G@@ . CONVERT TO BINY VALUE WILL BE INCD309900 @I@@@@REPEATNZ )@@G@@B LA,S5 A0,OPTION . LOAD FOR 'D' OPTION TEST CD3100OA )@@G@@00 @I@@@@ TOP,U A0,01 . 'D' OPTION SET? OB )@@G@@ CD310100 @I@@@@ J COUNTT . TOC )@@G@@EST FOR O COUNT BEFORE POSITIOCD310200 @I@@@@ J PSFDOD )@@G@@ . GO TO DRUM ROUTINE CD310300 @I@@@@REPEATOE )@@G@@ DL A0,FILEN . FILENAME WD TWO CD3104OF )@@G@@00 @I@@@@ DS A0,TAPPKT OG )@@G@@ CD310500 @I@@@@ L,U A0,050 . FUOH )@@G@@NC CODE FOR POS FILE FORWARD OCD310600 @I@@@@ S,S2 A0,TOI )@@G@@APPKT+3 . PLACE IN PROPER WORD OF PACKET CD310700 @I@@@@ OJ )@@G@@ LA,U A0,FOPT(3) . CD3108OK )@@G@@00 @I@@@@ SA A0,PNT . OL )@@G@@ CD310900 @I@@@@ J REPETA . OM )@@G@@ CD311000 @I@@@@FOPT(3) TNZ NO2EON )@@G@@OF . COMING FROM EOF COMPARE CD311100 @I@@@@ OO )@@G@@ J COUNT CD3112OP )@@G@@00 @I@@@@ L X2,SAVJGD . CLEANUP FOR RETURN TOQ )@@G@@O CMP CD311300 @I@@@@ SZ NO2EOF OR )@@G@@ CD311400 @I@@@@ J NXTCOS )@@G@@MP CD311500 @I@@@@REPETAOT )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD3116OU )@@G@@00 @I@@@@ ER IOW$ . MOVE ONE BLOCK FORWAOV )@@G@@RD CD311700 @I@@@@ INCR OW )@@G@@ CD311800 @I@@@@ L,U A0,1OX )@@G@@ . STATUS CODE FOR TESTING EOF CD311900 @I@@@@ OY )@@G@@ TNE,S1 A0,TAPPKT+3 . IS IT EOF CD3120OZ )@@G@@00 @I@@@@ J FOUND1 . PA )@@G@@ CD312100 @I@@@@ TNZ,S6 OPTION . F OPB )@@G@@PTION SET? CD312200 @I@@@@ J COUNPC )@@G@@T . NO CD312300 @I@@@@ PD )@@G@@ J REPETA . CD3124PE )@@G@@00 @I@@@@FOUND1 TZ PSERET . COMMONG FROM PSE COMPF )@@G@@MAND TEST CD312500 @I@@@@ J POSF2 PG )@@G@@ CD312600 @I@@@@ SLJ PRTEPH )@@G@@FX . PRINT EOF ENCOUNTERED CD312700 @I@@@@ PI )@@G@@ INCF CD3128PJ )@@G@@00 @I@@@@ TZ NONO . PK )@@G@@ CD312900 @I@@@@ J NXTFLE . PL )@@G@@ CD313000 @I@@@@ TZ,S6 OPTIPM )@@G@@ON . F OPTION SET? CD313100 @I@@@@ PN )@@G@@ J *PNT . GO BACK WHERE CAME FROM CD3132PO )@@G@@00 @I@@@@ J CDIMGE PP )@@G@@ CD313300 @I@@@@COUNTT JGD X2,REPEAT . TO PQ )@@G@@TAKE CARE OF FIRST PASS CD313400 @I@@@@ J CDIMPR )@@G@@GE . CD313500 @I@@@@COUNT PS )@@G@@ JGD X2,REPETA . GO BACK AND DO IT AGAIN CD3136PT )@@G@@00 @I@@@@ J CDIMGE . PROCESS NEXT CARD PU )@@G@@ CD313700 @I@@@@ . PV )@@G@@ CD313800 @I@@@@. ROUTINE TO POSITION FOPW )@@G@@RWARD PAST EOF AND BACK UP 1 BLOCK..............CD313900 @I@@@@ . PX )@@G@@ CD3140PY )@@G@@00 @I@@@@POSF1 LA,S5 A0,OPTION . TEST FOR D OPTION PZ )@@G@@ CD314100 @I@@@@ TEP,U A0,1 . QA )@@G@@ CD314200 @I@@@@ J PSEDQB )@@G@@ . YES CD314300 @I@@@@ QC )@@G@@ SA A2,PSERET . NONZERE RET. SWCH:A2=NR CHAR FN CD3144QD )@@G@@00 @I@@@@ J POSFOR+1 . QE )@@G@@ CD314500 @I@@@@POSF2 SZ PSERET . CLQF )@@G@@EAN UP SWITCH CD314600 @I@@@@ L,U A0,0QG )@@G@@51 . BACKSPACE OVER EOF CD314700 @I@@@@ QH )@@G@@ S,S2 A0,TAPPKT+3 CD3148QI )@@G@@00 @I@@@@ L,U A0,TAPPKT QJ )@@G@@ CD314900 @I@@@@ ER IOW$ QK )@@G@@ CD315000 @I@@@@ DCRR QL )@@G@@ CD315100 @I@@@@PRTAFBQM )@@G@@ . CD3152QN )@@G@@00 @I@@@@ DL A1,FILEN . MSG- POSITIONED AFTEQO )@@G@@R BLOCK XX. CD315300 @I@@@@ DS A1,BLKPOS QP )@@G@@ CD315400 @I@@@@ SLJ QGETQQ )@@G@@AD CD315500 @I@@@@ QR )@@G@@ L A0,2,A0 CD3156QS )@@G@@00 @I@@@@ E$BD 6,AFTBLK,6 . QT )@@G@@ CD315700 @I@@@@ L A0,AFTERB QU )@@G@@ CD315800 @I@@@@ ER PRINQV )@@G@@T$ CD315900 @I@@@@ QW )@@G@@ J CDIMGE CD3160QX )@@G@@00 @B@@@@/ . @I@@@@POSBWD GEQY )@@G@@TFLD SAMECD . PICK UP VALUE 'N' FOR POSITIONINCD316200 QZ )@@G@@@I@@@@ SZ OVWJMP . ZERO EXIT TO OVW COMMAND RA )@@G@@ CD316300 @I@@@@ LMJ X11,NOVAL . GO TEST FRB )@@G@@OR USER COUNT CD316400 @I@@@@ J GETREC RC )@@G@@ . COME HERE IF WE PROVIDED FILE COUCD316500 @I@@@@ SARD )@@G@@ A1,X2 . CD316600 RE )@@G@@@I@@@@ SLJ CNVT RF )@@G@@ CD316700 @I@@@@GETREC LA,S5 A0,OPTION . TEST FOR RG )@@G@@D OPTION CD316800 @I@@@@ TEP,U A0,1 RH )@@G@@ . CD316900 @I@@@@ J RI )@@G@@ PSBD . YES CD317000 RJ )@@G@@@I@@@@ DL A0,FILEN . NO RK )@@G@@ CD317100 @I@@@@ DS A0,TAPPKT . RL )@@G@@ CD317200 @I@@@@BWDSET L,U A0,051 RM )@@G@@ . POSITION BACKWARDS FUNCTION CD317300 @I@@@@ S,RN )@@G@@S2 A0,TAPPKT+3 . PROPER WD FOR THIS CODE CD317400 RO )@@G@@@I@@@@ J COUNT1 . RP )@@G@@ CD317500 @I@@@@BACKUP L,U A0,TAPPKT . LOAD THERQ )@@G@@ PACKET CD317600 @I@@@@ ER IOW$ RR )@@G@@ . MOVE TAPE BACKWARD ONE BLOCK CD317700 @I@@@@ DCRS )@@G@@RR CD317800 RT )@@G@@@I@@@@ L,U A0,1 . STATUS CODE FOR EOF RU )@@G@@ CD317900 @I@@@@ TNE,S1 A0,TAPPKT+3 . TEST FOR RV )@@G@@EOF CD318000 @I@@@@ J EOFOUT RW )@@G@@ . YES GET OUT CD318100 @I@@@@ L,URX )@@G@@ A0,02 . LOAD POINT RETURN CODE CD318200 RY )@@G@@@I@@@@ TNE,S1 A0,TAPPKT+3 . TEST FOR LOAD POINT RZ )@@G@@ CD318300 @I@@@@ J LPOUT . YES GET SA )@@G@@OUT CD318400 @I@@@@ TZ,S6 OPTION SB )@@G@@ . F OPTION SET? CD318500 @I@@@@ J SC )@@G@@ BACKUP . YES CD318600 SD )@@G@@@I@@@@ J COUNT1 . NO SE )@@G@@ CD318700 @I@@@@EOFOUT DCRF . SF )@@G@@ CD318800 @I@@@@ TNZ OVWJMP SG )@@G@@ . DON'T PRINT MESSAGE IF OVERWRITECD318900 @I@@@@ SLSH )@@G@@J PRTEFX CD319000 SI )@@G@@@E@@@@ CLRR . ZERO RECORD COUNT @I@@@@SJ )@@G@@ TNZ,S6 OPTION . F OPTION SET? SK )@@G@@CD319100 @I@@@@ J CDIMGE . NO SL )@@G@@ CD319200 @I@@@@ JGD X2,BACKUP SM )@@G@@ . CD319400 @I@@@@ L SN )@@G@@ A0,OVWJMP . DID WE COME FROM OVERWRITE CMD CD319500 @I@@@@SO )@@G@@ JNZ A0,OVWRET SP )@@G@@CD319600 @I@@@@ J CDIMGE . GET ANOTHER COSQ )@@G@@MMAND CD319700 @I@@@@LPOUT L A0,(P 2,8,PRTLPSR )@@G@@F) . LOAD AND PRINT LOAD POINT MESGCD319800 @I@@@@ ER SS )@@G@@ PRINT$ . WRITE OUT MESSAGE CD319900 @I@@@@ST )@@G@@ CLRR . CLEAR RECORD COUNTER SU )@@G@@CD320000 @I@@@@ CLRF . CLEAR FILE COUNSV )@@G@@TER CD320100 @I@@@@ J CDIMGE SW )@@G@@ . GO GET ANOTHER CD320200 @I@@@@COUNT1 JGD SX )@@G@@ X2,BACKUP . CHECK BLOCK COUNT AND DECREMENT CD320300 @I@@@@SY )@@G@@ J CDIMGE . GET ANOTHER COMMAND SZ )@@G@@CD320400 @B@@@@/ . @I@@@@COPY TA )@@G@@ GETFLD SAMECD . GET OUTPUT FILE NAME CD3206TB )@@G@@00 @I@@@@ JZ A2,BADCOM . PARAMETER CARD CHECKTC )@@G@@ CD320700 @I@@@@ MSI,U A2,6 . DETD )@@G@@TERMINE NUMBER OF SHIFT POSITICD320800 @I@@@@ S,T3 A2,$TE )@@G@@+1 CD320900 @I@@@@ TF )@@G@@ DSC A0,0 . POSITION FILENAME CD3210TG )@@G@@00 @I@@@@ DS A0,F2NAM . DS OUTPUT FILENAME TH )@@G@@ CD321100 @I@@@@ GETFLD SAMECD . GETI )@@G@@T VALUE 'N' IF ANY CD321200 @I@@@@ LMJ X11,TJ )@@G@@NOVAL . GO TEST FOR USER COUNT CD321300 @I@@@@ TK )@@G@@ J LEG1+1 . COME HERE IF WE PROVIDED FILE COUCD3214TL )@@G@@00 @I@@@@ SA A1,X2 . NR FILES OR RECORDS TM )@@G@@ CD321500 @I@@@@LEG1 SLJ CNVT . FDTN )@@G@@ TO BIN CD321600 @I@@@@ DL A0,FTO )@@G@@ILEN CD321700 @I@@@@ TP )@@G@@ DS A0,FN1 CD3218TQ )@@G@@00 @I@@@@ TZ,S6 OPTION . F OPTION SET? TR )@@G@@ CD321900 @I@@@@ J FCOPYA . YESTS )@@G@@ CD322000 @I@@@@ J WRITTT )@@G@@ER+1 CD322100 @I@@@@KEEPONTU )@@G@@ LA,S5 A0,OPTION . TEST FOR 'D' OPTION CD3222TV )@@G@@00 @I@@@@ JZ A0,$+2 . NO 'D' OPTION TW )@@G@@ CD322300 @I@@@@ SA A0,DUPPNT . SETTX )@@G@@ FLAG CD322400 @I@@@@ SLJ GENRTY )@@G@@D1 CD322500 @I@@@@ TZ )@@G@@ INCR CD3226UA )@@G@@00 @I@@@@WRITER SLJ RITE . COPY BAD RECORD UB )@@G@@ CD322700 @I@@@@ SZ DUPPNT . ZERUC )@@G@@O OUT TAPE-DRUM DUPE FLAG CD322800 @I@@@@ JGD X2,KUD )@@G@@EEPON CD322900 @I@@@@ UE )@@G@@ J CDIMGE CD3230UF )@@G@@00 @I@@@@FCOPYA LA,U A0,FOPT(1) . UG )@@G@@ CD323100 @I@@@@ SA A0,PNT . UH )@@G@@ CD323200 @ @@@@ L A0,XUI )@@G@@2 @G@@@@ TNE A0,NMANYF . DID USER GIVE A FILUJ )@@G@@E COUNT @E@@@@ L,U X2,1 . NO - ONLY DO 1UK )@@G@@ FILE @I@@@@ J FCOPYB . UL )@@G@@ CD323300 @I@@@@FCOPY SLJ GENRD1 . GO UM )@@G@@READ A BLOCK CD323400 @I@@@@ INCR UN )@@G@@ . INCREMENT RECORD COUNT CD323500 @I@@@@ UO )@@G@@ SLJ RITE . WRITE IT OUT CD3236UP )@@G@@00 @I@@@@ J FCOPY . GO GET ANOTHER UQ )@@G@@ CD323700 @I@@@@FOPT(1) LX X2,BS . RELUR )@@G@@OAD X2 CD323800 @I@@@@ DL A0,FUS )@@G@@2NAM . LOAD OUTPUT FILE NAME CD323900 @I@@@@ UT )@@G@@ DS A0,FILEN . CD3240UU )@@G@@00 @I@@@@ J WREOF+1 . GO MARK THE TAPE UV )@@G@@ CD324100 @I@@@@FCOPYC DL A0,FN1 . RESUW )@@G@@ET FILE NAME TO FIRST NAME CD324200 @I@@@@ DS A0,FUX )@@G@@ILEN . CD324300 @I@@@@FCOPYBUY )@@G@@ JGD X2,FCOPY . GO START ANOTHER CD3244UZ )@@G@@00 @I@@@@ J CDIMGE . GO GET ANOTHER CARD VA )@@G@@ CD324500 @B@@@@/ . VB )@@G@@@I@@@@RITE* NOP . VC )@@G@@ CD324700 @I@@@@ TZ DUPPNT . TAPE TO DVD )@@G@@RUM DUPE? CD324800 @I@@@@ J DWRTE VE )@@G@@ . YES CD324900 @I@@@@ DLVF )@@G@@ A0,F2NAM . PICK UP OUTPUT FN CD325000 VG )@@G@@@I@@@@ DS A0,TAPWRI . PUT IN TAPE WRITE PACKET VH )@@G@@ CD325100 @I@@@@ L,H2 A0,NOWDS$ . PICK UP VI )@@G@@NUMBER WORDS CD325200 @I@@@@ S,H1 A0,TAPWRI+VJ )@@G@@4 . STORE IN WRITE PACKET CD325300 @I@@@@ L,VK )@@G@@U A0,TAPWRI . PICK UP WRITE PACKET CD325400 VL )@@G@@@I@@@@ ER IOW$ . WRITE TAPE VM )@@G@@ CD325500 @I@@@@ L,U A0,2 . STATUS CVN )@@G@@ODE FOR TESTING EOT CD325600 @I@@@@ TNE,S1 A0,TAPWRI+3 VO )@@G@@ CD325700 @I@@@@ J EVP )@@G@@OTRET CD325800 VQ )@@G@@@I@@@@ L,U A0,010 . TEST ABORT ERRORS VR )@@G@@ CD325900 @I@@@@ TG,S1 A0,TAPWRI+3 . TEST IT VS )@@G@@ CD326000 @I@@@@ J *RITE VT )@@G@@ CD326100 @I@@@@ J VU )@@G@@ PROBLM . HAD A WROTE ERROR CONDITION CD326200 VV )@@G@@@I@@@@ . WHEN GET AN END OF TAPE RETURN FROM IOW - WILL WRITE AN EOF VW )@@G@@ON CD326300 @I@@@@. TAPE, THEN DO AN ER TO TSWAP$ TO GET ANOTHER VX )@@G@@TAPE CD326400 @I@@@@EOTRET . VY )@@G@@ CD326500 @I@@@@ L,VZ )@@G@@U A0,011 . LOAD WEOF FUNC CD326600 WA )@@G@@@I@@@@ S,S2 A0,TAPWRI+3 . STORE IN PKT WB )@@G@@ CD326700 @I@@@@ L,U A0,TAPWRI WC )@@G@@ CD326800 @I@@@@ ER IOW$ WD )@@G@@ . WRITE EOF CD326900 @I@@@@ L,WE )@@G@@U A0,TAPWRI . CD327000 WF )@@G@@@I@@@@ ER TSWAP$ . SWAP REELS WG )@@G@@ CD327100 @I@@@@ L,U A0,010 . RESTORE WRTWH )@@G@@ FUNC IN PKT CD327200 @I@@@@ S,S2 A0,TAPWRI+WI )@@G@@3 . CD327300 @I@@@@ J WJ )@@G@@ *RITE CD327400 WK )@@G@@@I@@@@PROBLM L,U A0,WRERR . BAD WRITE CONDITION WL )@@G@@ CD327500 @I@@@@ ER PRINT$ . PRINT ERWM )@@G@@ROR CD327600 @I@@@@ ER ERR$ WN )@@G@@ . ERROR OUT CD327700 @B@@@@/ WO )@@G@@ . @I@@@@DUMP GETFLD SAMECD WP )@@G@@ . GET PARAMETER VALUE 'N' IF ANY CD327900 @I@@@@ LMJ WQ )@@G@@ X11,NOVAL . GO TEST FOR USER COUNT CD328000 @I@@@@WR )@@G@@ J NVALUE+1 . COME HERE IF WE PROVIDED FILE COUWS )@@G@@CD328100 @I@@@@ SA A1,X2 . WT )@@G@@ CD328200 @H@@@@ SA A1,SAVEX2 WU )@@G@@ . PUT X2 AWAY FOR FUTURE USE . 03D @I@@@@NVALUE SLJ CNVTWV )@@G@@ . FD TO BIN VALUE COMES BACK IN XRCD328300 @I@@@@ WW )@@G@@ DL A0,FILEN CD3284WX )@@G@@00 @I@@@@ DS A0,FN1 WY )@@G@@ CD328500 @E@@@@ LA A0,TEMP . CHWZ )@@G@@ECK IS X OPTION ON@ @@@@ TOP,U A0,04 @^@@@@ J XA )@@G@@ $+5 @B@@@@ LA A0,(P 2, 9,XMSG1) @B@@@@ XB )@@G@@ ER PRINT$ . @B@@@@ LA A0,(P 1, XC )@@G@@9,XMSG2) @B@@@@ ER PRINT$ . @I@@@@ XD )@@G@@ LA,U A0,FOPT(4) . LOAD F OPTION RETURN ADDRESS CD3286XE )@@G@@00 @I@@@@ SA A0,PNT . STORE IT XF )@@G@@ CD328700 @H@@@@ TZ,S6 OPTION . F OXG )@@G@@PTION REQUESTED . 03D @H@@@@ J DONEIT XH )@@G@@ . NO . 03D @H@@@@ L XI )@@G@@ A0,X2 . . 03D @H@@@@ XJ )@@G@@ TNE A0,NMANYF . DID USER GIVE A FILE COUNT . 03D XK )@@G@@@H@@@@ L,U X2,1 . USER DIDNOT GIVE A NR - ONXL )@@G@@LY DO . 03D @H@@@@ SX X2,SAVEX2 . XM )@@G@@ . 03D @H@@@@ J DONEIT XN )@@G@@ . 03D @H@@@@NEXREC . XO )@@G@@ . 03D @H@@@@ SX XP )@@G@@ X2,SAVEX2 . SAVE INDEX 2 . 03D @H@@@@ XQ )@@G@@ SLJ GENRD1 . GO READ A RECORD . 03D XR )@@G@@@H@@@@ INCR XS )@@G@@ . 03D @F@@@@ TZ OPTION2 . 'Q' O'R' R OPTXT )@@G@@IONS SET @E@@@@ J BPD1 . YES XU )@@G@@ BPD @F@[@@ TNZ,H1 OPTION . 'A', 'O', OR 'H' SET XV )@@G@@ BPD @F@@@[ TZ,H1 OPTION . 'A', 'O', OR 'H' SET XW )@@G@@BPD @G@@@@ J BPD1 . YES XX )@@G@@ BPD@G@@@@ SLJ PRTO . DEFAULT 'O' OPTXY )@@G@@ION BPD @G@@@@ TZ,S6 OPTION . 'F' OPTION XZ )@@G@@SET ? BPD @C@@@@ J NEXREC . YYA )@@G@@ES @G@@@@ J DONEIT . DECREMENT YB )@@G@@ BPD@D@@@@BPD1 . BPD YC )@@G@@@H@@@@ TZ,S1 OPTION2 . GET POSSIBLE Q ASCII OPTIONS YD )@@G@@ . 03D @H@@@@ LMJ X11,PRTAQ . GO PRINT ASCIIYE )@@G@@ DIVIDED . 03D @H@@@@ TZ,S2 OPTION2 . GET PYF )@@G@@OSSIBLE R ASCII OPTIONS . 03D @H@@@@ LMJ X11,PRTHQ YG )@@G@@ . GO PRINT ASCII JAMMED . 03D @H@@@@ TZ,S2 YH )@@G@@ OPTION . TEST 'O' OPTION CD3. 03D @H@@@@ YI )@@G@@ SLJ PRTO . YES, PRINT OCTAL . 03D YJ )@@G@@@H@@@@ TZ,S1 OPTION . TEST 'A' OPTION YK )@@G@@ CD3. 03D @H@@@@ SLJ PRTA . YES, PRINT ALPHYL )@@G@@A DIVIDED INTO WOR. 03D @H@@@@ TZ,S3 OPTION . TEST 'YM )@@G@@H' OPTION ON CD33. 03D @H@@@@ SLJ PRTH YN )@@G@@ . YES PRINT ALPHA CONTINOUS NOT D. 03D @E@@@@ TNZ,S6 YO )@@G@@ OPTION . F OPTION REQUESTED @B@@@@ J DONEYP )@@G@@IT . NO@I@@@@ J NEXREC . YES YQ )@@G@@ CD331100 @I@@@@FOPT(4) CLRR YR )@@G@@ . CLEAR RECORD BEFORE STARTING 2ND CD331200 @H@@@@DONEIT . YS )@@G@@ . 03D @H@@@@YT )@@G@@ LX X2,SAVEX2 . RESTORE INDEX 2 YU )@@G@@. 03D @H@@@@ JGD X2,NEXREC YV )@@G@@ . 03D @I@@@@ LA,U A0,28 . RESET DRUYW )@@G@@M READ COUNTERS CD331400 @I@@@@ SA,H1 A0,DRPKT+4YX )@@G@@ . JUST IN CASE CD331500 @I@@@@ SZYY )@@G@@ SWITCH . CD331600 YZ )@@G@@@I@@@@ J CDIMGE ZA )@@G@@ CD331700 @I@@@@/ . C O M P A R THIS ROUTINES COMPARES TAPE RECOZB )@@G@@RD BLOCKS ONLY. CD331800 @I@@@@COMPAR . ZC )@@G@@ CD331900 @I@@@@ SZZD )@@G@@ EOFLAG . TO DENOTE ALL OTHER EOFS CD332000 ZE )@@G@@@I@@@@ DL A0,FILEN . ZF )@@G@@ . 3A @I@@@@ DS A0,FACPAC . PREPARE ZG )@@G@@PACKET . 3A @I@@@@ L,U A0,FACPAC ZH )@@G@@ . . 3A @I@@@@ ERZI )@@G@@ FACIT$ . . 3A ZJ )@@G@@@I@@@@ L,S1 A1,FACPAC+6 . EQUIPMENT TYPE FOR POSSIBLZK )@@G@@E AFC . 3A @I@@@@ S A1,EQUIP1 . ZL )@@G@@ . 3A @I@@@@ GETFLD SAMECD ZM )@@G@@ . GET SECOND FILENAME CD332100 @I@@@@ JZZN )@@G@@ A2,NOT2ND . DOES USER HAVE TWO FILE NAMES CD332200 ZO )@@G@@@I@@@@ MSI,U A2,6 . DETERMINE NUMBER OF SHIFT ZP )@@G@@POSITICD332300 @I@@@@ S,T3 A2,$+1 ZQ )@@G@@ CD332400 @I@@@@ DSC A0,0 ZR )@@G@@ . POSITION FILE NAME CD332500 @I@@@@ DSZS )@@G@@ A0,F2NAM . DS SECOND FILE NAME CD332600 ZT )@@G@@@I@@@@ DS A0,FACPAC . SET UP PACKET FOR FACIT ZU )@@G@@ . 3A @I@@@@ L,U A0,FACPAC . ZV )@@G@@ . 3A @I@@@@ ER FACIT$ ZW )@@G@@ . GET EQUIPMENT TYPE . 3A @I@@@@ L,ZX )@@G@@S1 A0,FACPAC+6 . . 3A ZY )@@G@@@I@@@@ S A0,EQUIP2 . ZZ )@@G@@ . 3A @I@@@@ TNZ,S6 OPTION . F OPTION AA )@@G@@SET? CD332700 @I@@@@ J CMPTP1 AB )@@G@@ CD332800 @I@@@@ GEAC )@@G@@TFLD SAMECD . GET COUNT OF NUMBER OF FILES CD332900 AD )@@G@@@I@@@@ LMJ X11,NOVAL . GO WORK THE COUNT AE )@@G@@ CD333000 @I@@@@ L A1,(' 1') . FILE COUAF )@@G@@NT = 1 IF NONE GIVEN CD333100 @I@@@@ SA A1,X2 AG )@@G@@ . CD333200 @I@@@@ SLAH )@@G@@J CNVT . CONVERT COUNT TO BINARY CD333300 AI )@@G@@@I@@@@ L,U A0,FOPT(2) . STORE F OPTION POINTER AJ )@@G@@ CD333400 @I@@@@ S A0,PNT . USED BYAK )@@G@@ TPRD$ EOF ROUTINE CD333500 @I@@@@ J FOPT(2) AL )@@G@@ . DECREMENT FILE COUNTER CD333600 @I@@@@CMPTP1 AM )@@G@@ . CD333700 AN )@@G@@@I@@@@ DL A0,F1NAM . INSERT CURRENT FILE NAME AO )@@G@@ CD333800 @I@@@@ DS A0,FILEN . AP )@@G@@ CD333900 @I@@@@ LMJ X11,TPRD$ AQ )@@G@@ . READ FIRST TAPE CD334000 @I@@@@F1NAM + AR )@@G@@ 0 . CD334100 AS )@@G@@@I@@@@ + 0 . AT )@@G@@ CD334200 @I@@@@ + 4096,BLOCK . AU )@@G@@ CD334300 @I@@@@ + EOFCMP AV )@@G@@ . EOF RETURN CD334400 @I@@@@ INAW )@@G@@CR . INCREMENT RECORD COUNT CD334500 AX )@@G@@@I@@@@ L A14,NOWDS$ . NUMBER OF WORDS READ AY )@@G@@ CD334600 @I@@@@ S A14,WDSTP1 . AZ )@@G@@ CD334700 @I@@@@CMPTP2 BA )@@G@@ . CD334800 @I@@@@ DLBB )@@G@@ A0,F2NAM . CHANGE FILE NAME CD334900 BC )@@G@@@I@@@@ DS A0,FILEN . BD )@@G@@ CD335000 @I@@@@ LMJ X11,TPRD$ . READ SECBE )@@G@@OND TAPE CD335100 @I@@@@F2NAM* + 0 BF )@@G@@ . CD335200 @I@@@@ + BG )@@G@@ 0 . CD335300 BH )@@G@@@I@@@@ + 4096,BLOCK1 BI )@@G@@ CD335400 @I@@@@ + EOF2ND . EOF RETUBJ )@@G@@RN CD335500 @I@@@@ INCR BK )@@G@@ . INCREMENT RECORD COUNT CD335600 @I@@@@ TZBL )@@G@@ EOFLAG . WAS EOF ON FIRST TZPE CD335700 BM )@@G@@@I@@@@ J NOEFT2 . YES- ERROR BN )@@G@@ CD335800 @I@@@@ L A15,NOWDS$ . COMPARE BO )@@G@@NR WORDS READ CD335900 @I@@@@ S A15,WDSTP2BP )@@G@@ . WORDS READ ON TAPE 2 CD336000 @I@@@@ L,BQ )@@G@@H2 A14,WDSTP1 . PICK UP WORD COUNT ONLY . 3A BR )@@G@@@I@@@@ L,H2 A15,WDSTP2 . PICK UP WORD COUNT ONLY BS )@@G@@ . 3A @I@@@@ TE A15,A14 . SAME NR BT )@@G@@WORDS BOTH TAPES CD336200 @I@@@@ J GOOFNR BU )@@G@@ . CD336300 @I@@@@ SZBV )@@G@@ A3 . INCREMENT FOR WORD COMPARISON CD336400 BW )@@G@@@I@@@@SAMWDS . BX )@@G@@ CD336500 @I@@@@ L A0,BLOCK,A3 . WORD FROBY )@@G@@M FIRST TAPE CD336600 @I@@@@ TE A0,BLOCK1,BZ )@@G@@A3 . WORDS FROM 2ND TAPE CD336700 @I@@@@ J CA )@@G@@ GOOFWD CD336800 CB )@@G@@@I@@@@ A,U A3,1 CC )@@G@@ CD336900 @I@@@@ TE A15,A3 . ALL WORDCD )@@G@@S COMPARED] CD337000 @I@@@@ J SAMWDS CE )@@G@@ . CD337100 @I@@@@ J CF )@@G@@ CMPTP1 . READ AND COMPARE NEXT BLOCK CD337200 CG )@@G@@@I@@@@EOFCMP . CH )@@G@@ CD337300 @I@@@@ INCR . EOF READCI )@@G@@ ON TAPE 1 CD337400 @I@@@@ L,U A0,1 CJ )@@G@@ CD337500 @I@@@@ S CK )@@G@@ A0,EOFLAG . SET FLAG CD337600 CL )@@G@@@I@@@@ SLJ PRTEFX . PRINT EOF ENCOUNTERED MSG CM )@@G@@ CD337700 @I@@@@ INCF . INC FILECN )@@G@@ COUNT AND ZERO RECORDS CD337800 @I@@@@ J CMPTP2 CO )@@G@@ . CD337900 @I@@@@EOF2ND CP )@@G@@ . CD338000 CQ )@@G@@@I@@@@ INCR . CR )@@G@@ CD338100 @I@@@@ TNZ EOFLAG . CS )@@G@@ CD338200 @I@@@@ J NOEFT1 CT )@@G@@ . NO EOF ON TAPE 1 CD338300 @I@@@@ SLCU )@@G@@J PRTEFX . END OF FILE ENCOUNTERED CD338400 CV )@@G@@@I@@@@ L A0,ADPKT3 . YOUR TAPES COMPARE CW )@@G@@ CD338500 @I@@@@ ER PRINT$ . CX )@@G@@ CD338600 @I@@@@ INCF CY )@@G@@ . UP FILE COUNT-ZERO RECORD CNT CD338700 @I@@@@NXTCMP CZ )@@G@@ . CD338800 DA )@@G@@@I@@@@ SZ EOFLAG . DB )@@G@@ CD338900 @I@@@@ TZ,S6 OPTION . DC )@@G@@ CD339000 @I@@@@FOPT(2) JGD X2,CMPTP1 DD )@@G@@ . READ NEXT FILE- F OPTION CD339100 @I@@@@ J DE )@@G@@ CDIMGE . GET NEXT COMMAND CD339200 DF )@@G@@@I@@@@NOEFT2 DL A0,F2NAM . DG )@@G@@ CD339300 @I@@@@ DS A0,NOTEOF+9 . DH )@@G@@ CD339400 @I@@@@ L A0,ADPKT4 DI )@@G@@ . EOF EXPECTED, NOT ENCOUNTERED CD339500 @I@@@@ ERDJ )@@G@@ PRINT$ . CD339600 DK )@@G@@@I@@@@ S X2,SAVJGD . SAVE FILE COUNT IS IS ONE DL )@@G@@ CD339700 @I@@@@ LA,U A0,1 . DM )@@G@@ CD339800 @I@@@@ S A0,NO2EOF DN )@@G@@ . RETURN FROM PSF SWITHC CD339900 @I@@@@ L DO )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD340000 DP )@@G@@@I@@@@ J REPEAT . POSITION T2 PAST EOF DQ )@@G@@ CD340100 @I@@@@NOEFT1 . NO EOF ODR )@@G@@N T1, IS ON T2 CD340200 @I@@@@ DL A0,F2NAM DS )@@G@@ . LOAD FILENAME IN ERROR MSG CD340300 @I@@@@ DSDT )@@G@@ A0,BLOWIT+13 . CD340400 DU )@@G@@@I@@@@ SLJ QGETAD . GET BLOCK COUNT DV )@@G@@ CD340500 @I@@@@ L A0,2,A0 . DW )@@G@@ CD340600 @I@@@@ E$BD 6,BLOWIT+1DX )@@G@@0,6 . STORE BLOCK COUNT CD340700 @I@@@@ L DY )@@G@@ A0,ADPKT7 CD340800 DZ )@@G@@@I@@@@ ER PRINT$ . EA )@@G@@ CD340900 @I@@@@ INCF . UP FILE,EB )@@G@@ ZERO RECORD COUNTS CD341000 @I@@@@ DL A0,F1NAM EC )@@G@@ . SWAP FILE NAMES TO POSTION CD341100 @I@@@@ DSED )@@G@@ A0,FILEN . CD341200 EE )@@G@@@I@@@@ S X2,SAVJGD . SAVE FILE COUNT EF )@@G@@ CD341300 @I@@@@ LA,U A0,1 . EG )@@G@@ CD341400 @I@@@@ S A0,NO2EOF EH )@@G@@ . RETURN FROM PSF SWITCH CD341500 @I@@@@ L EI )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD341600 EJ )@@G@@@I@@@@ J REPEAT . POSITION F1 PAST EOF EK )@@G@@ CD341700 @I@@@@GOOFNR . NR WORDSEL )@@G@@ 2 TAPES DIFFERENT CD341800 @I@@@@ L,U A0,0050004EM )@@G@@ . TEST FOR ODD NR WDS ON 9 TRACK . 3A @I@@@@ TNEN )@@G@@E,H1 A0,WDSTP1 . AFC ON TAPE 1 WITH 5 FRAMES . 3A EO )@@G@@@I@@@@ J AFCTP1 . AFC IS ON TAPE 1 EP )@@G@@ . 3A @I@@@@ TE,H1 A0,WDSTP2 . NOT ON 1EQ )@@G@@ TRY TAPE 2 . 3A @I@@@@ J TRUGOF ER )@@G@@ . HAVE TRUE NON COMPARE ERROR . 3A @I@@@@ L,ES )@@G@@H2 A0,WDSTP2 . NR WORDS READ + PAD . 3A ET )@@G@@@I@@@@ ANA,U A0,1 . DECREADE FOR PAD EU )@@G@@ . 3A @I@@@@ TE,H2 A0,WDSTP1 . SAME NR EV )@@G@@WORDS WITHOUT AFC . 3A @I@@@@ J TRUGOF EW )@@G@@ . NO . 3A @I@@@@ LAEX )@@G@@ A0,EQUIP2 . TEST FOR 9 TRACK TAPE . 3A EY )@@G@@@I@@@@ TE,U A0,05 . NINE TRACK TAPE DRIVE 8C9 EZ )@@G@@ . 3A @I@@@@ J TRUGOF . NOT NINEFA )@@G@@ TRACK . 3A @I@@@@ LA A0,EQUIP1 FB )@@G@@ . MUST BE 7 AND 9 TRACK COMPARISON . 3A @I@@@@ TEFC )@@G@@,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3A FD )@@G@@@I@@@@ J TRUGOF . FE )@@G@@ . 3A @I@@@@ ANA,U A15,1 . USE 1 LEFF )@@G@@SS WD FOR COMPARE . 3A @I@@@@ J CMPAFC FG )@@G@@ . PRINT WARNING FOR USER IF NOT DONE . 3A @I@@@@AFCTP1 L FH )@@G@@ A0,EQUIP1 . TEST FOR 9 TRACK TAPE DRIVE . 3A FI )@@G@@@I@@@@ TE,U A0,05 . FJ )@@G@@ . 3A @I@@@@ J TRUGOF . NOT 9 TRFK )@@G@@ACK DRIVE . 3A @I@@@@ L A0,EQUIP2 FL )@@G@@ . MUST BE 7 AND 9 TRACK COMPARE . 3A @I@@@@ TEFM )@@G@@,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3A FN )@@G@@@I@@@@ J TRUGOF . FO )@@G@@ . 3A @I@@@@ ANA,U A14,1 . DECREASEFP )@@G@@ NR WORDS FOR PAD . 3A @I@@@@ TE,H2 A14,A15 FQ )@@G@@ . SAME SIZE WITHOUT PADDING . 3A @I@@@@ J FR )@@G@@ TRUGOF . . 3A FS )@@G@@@I@@@@CMPAFC . FT )@@G@@ . 3A @I@@@@ J SAMWDS-1 . TEST WORFU )@@G@@D COMPARISON . 3A @I@@@@TRUGOF FV )@@G@@ . . 3A @I@@@@ DLFW )@@G@@ A0,F1NAM CD341900 FX )@@G@@@I@@@@ DS A0,FRSTFIL . FY )@@G@@ CD342000 @I@@@@ DL A0,F2NAM . FZ )@@G@@ CD342100 @I@@@@ DS A0,SECDFILGA )@@G@@ . CD342200 @I@@@@ LAGB )@@G@@ A0,DIFFBL . B DIFFERENT BLOCK SIZE CD342300 GC )@@G@@@I@@@@ ER PRINT$ . GD )@@G@@ CD342400 @I@@@@ J GOOFIT . GE )@@G@@ CD342500 @I@@@@GOOFWD GF )@@G@@ . WORDS DID NOT COMPARE CD342600 @I@@@@ DLGG )@@G@@ A0,F1NAM . CD342700 GH )@@G@@@I@@@@ DS A0,FSTFL . GI )@@G@@ CD342800 @I@@@@ DL A0,F2NAM . GJ )@@G@@ CD342900 @I@@@@ DS A0,SCDFL GK )@@G@@ . CD343000 @I@@@@ LAGL )@@G@@ A0,A3 . NR WORD NOT COMPARING CD343100 GM )@@G@@@I@@@@ E$BD 6,WRDCNT,6 . GN )@@G@@ CD343200 @B@@@@ LA A0,NOCMP . @I@@@@GO )@@G@@ ER PRINT$ . GP )@@G@@CD343300 @I@@@@GOOFIT . POSITION 2 TAPGQ )@@G@@ES PAST EOF CD343400 @I@@@@ DL A0,F1NAM GR )@@G@@ . CD343500 @I@@@@ DS GS )@@G@@ A0,FILEN . CD343600 @I@@@@GT )@@G@@ L A0,WDSTP1 . GU )@@G@@CD343700 @I@@@@ S,H2 A0,NOWDS$ . GV )@@G@@ CD343800 @I@@@@ SLJ PRTO GW )@@G@@ CD343900 @I@@@@ L GX )@@G@@ R1,WDSTP2 . CD344000 @I@@@@GY )@@G@@ L,U A0,BLOCK1 . TRANSFER 2ND BLOCK TO PRINT IT GZ )@@G@@CD344100 @I@@@@ LXI,U A0,1 . HA )@@G@@ CD344200 @I@@@@ L,U A1,BLOCK HB )@@G@@ . CD344300 @I@@@@ LXI,U HC )@@G@@ A1,1 . CD344400 @I@@@@HD )@@G@@ BT A1,0,*A0 . HE )@@G@@CD344500 @I@@@@ L A0,WDSTP2 . HF )@@G@@ CD344600 @I@@@@ S,H2 A0,NOWDS$ HG )@@G@@ . CD344700 @I@@@@ DL HH )@@G@@ A0,F2NAM . CD344800 @I@@@@HI )@@G@@ DS A0,FILEN . HJ )@@G@@CD344900 @I@@@@ SLJ PRTO . HK )@@G@@ CD345000 @I@@@@ DL A0,F1NAM HL )@@G@@ . PREPARE TO MOVE PAST EOF CD345100 @I@@@@ DS HM )@@G@@ A0,FILEN . CD345200 @I@@@@HN )@@G@@ SZ NO2EOF . HO )@@G@@CD345300 @I@@@@ S X2,SAVJGD . FILE NR IF IS HP )@@G@@ONE CD345400 @I@@@@ L X2,(037777777777HQ )@@G@@) . DUMMY RECORD COUNT CD345500 @I@@@@ LA,U HR )@@G@@ A1,1 . CD345600 @I@@@@HS )@@G@@ SA A1,NONO . TO SWAP FN AND MOVE FN2 HT )@@G@@CD345700 @I@@@@ J REPEAT . HU )@@G@@ CD345800 @I@@@@NOT2ND HV )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 @I@@@@ L HW )@@G@@ A0,ADPKT5 . CD346000 @I@@@@HX )@@G@@ ER PRINT$ . HY )@@G@@CD346100 @I@@@@ J CDIMGE . HZ )@@G@@ CD346200 @I@@@@NXTFLE DL A0,F2NAM IA )@@G@@ CD346300 @I@@@@ DS IB )@@G@@ A0,FILEN CD346400 @I@@@@IC )@@G@@ LA,U A0,1 ID )@@G@@CD346500 @I@@@@ S A0,NO2EOF IE )@@G@@ CD346600 @I@@@@ L X2,(037777777777IF )@@G@@) . DUMMY RECORD COUNT CD346700 @I@@@@ SZ IG )@@G@@ NONO . CD346800 @I@@@@IH )@@G@@ J REPEAT . GO MOVE THE TAPE TO NEXT EOF II )@@G@@CD346900 @I@@@@/ . WRITE OVER TAPE TO END OF TAPE MARKER IJ )@@G@@ CD347000 @I@@@@OVERWT CLRR IK )@@G@@ . CLEAR RECORD COUNTER CD347100 @I@@@@ LA,S5 IL )@@G@@ A0,OPTION CD347200 @I@@@@IM )@@G@@ TEP,U A0,1 IN )@@G@@CD347300 @I@@@@ J DRUMASK . DRUM CODE NOT IO )@@G@@IMPLEMENTED CD347400 @I@@@@ DL A0,FILEN IP )@@G@@ CD347500 @I@@@@ DS IQ )@@G@@ A0,TAPPKT CD347600 @I@@@@IR )@@G@@ L,U A0,011 . WRITE EOF FIRST - FOR 2 EOFS TO IS )@@G@@CD347700 @I@@@@ S,S2 A0,TAPPKT+3 IT )@@G@@ CD347800 @I@@@@ L,U A0,TAPPKT IU )@@G@@ CD347900 @I@@@@ ER IV )@@G@@ IOW$ CD348000 @I@@@@IW )@@G@@ L,S1 A0,TAPPKT+3 IX )@@G@@CD348100 @I@@@@ JNZ A0,ERRWRT IY )@@G@@ CD348200 @I@@@@ L,U A0,010 IZ )@@G@@ CD348300 @I@@@@ S,S2 JA )@@G@@ A0,TAPPKT+3 . WRITE FUNCTION CD348400 @I@@@@JB )@@G@@ L A0,CLEAR JC )@@G@@CD348500 @I@@@@ S A0,BLOCK JD )@@G@@ CD348600 @I@@@@ L,U A0,061 JE )@@G@@ . TRANSFER ALL WORDS FROM SAME LOCCD348700 @I@@@@ S,S1 JF )@@G@@ A0,TAPPKT+4 CD348800 @I@@@@JG )@@G@@CLRWRT L,U A0,TAPPKT . WRITE LOOP JH )@@G@@CD348900 @I@@@@ ER IOW$ JI )@@G@@ CD349000 @I@@@@ INCR JJ )@@G@@ . INCREMENT RECORD COUNT CD349100 @I@@@@ L,S1 JK )@@G@@ A0,TAPPKT+3 CD349200 @I@@@@JL )@@G@@ JZ A0,CLRWRT JM )@@G@@CD349300 @I@@@@ TE,U A0,2 JN )@@G@@ CD349400 @I@@@@ J ERRWRT JO )@@G@@ CD349500 @I@@@@ L,U JP )@@G@@ A0,011 . END OF FILE FOR TAPE CD349600 @I@@@@JQ )@@G@@ S,T1 A0,TAPPKT+3 JR )@@G@@CD349700 @I@@@@ L,U A0,TAPPKT JS )@@G@@ CD349800 @I@@@@ ER IOW$ JT )@@G@@ CD349900 @I@@@@ L,U JU )@@G@@ A0,TAPPKT CD350000 @I@@@@JV )@@G@@ ER IOW$ JW )@@G@@CD350100 @I@@@@ L,U A0,051 . BACKSPACE OVERJX )@@G@@ EOF CD350200 @I@@@@ S,T1 A0,TAPPKT+3 JY )@@G@@ CD350300 @I@@@@ L,U JZ )@@G@@ A0,TAPPKT CD350400 @I@@@@KA )@@G@@ ER IOW$ KB )@@G@@CD350500 @I@@@@ ER IOW$ KC )@@G@@ CD350600 @I@@@@ DL A0,FILEN KD )@@G@@ CD350700 @I@@@@ DS KE )@@G@@ A0,CLRMSG CD350800 @I@@@@KF )@@G@@ SLJ QGETAD . NEED MESSAGE -HOW MUCH WROTE KG )@@G@@CD350900 @I@@@@ L A0,2,A0 . LOAD RECORD COKH )@@G@@UNT CD351000 @I@@@@ E$BD 6,BEFEOT,6 KI )@@G@@ CD351100 @I@@@@ L KJ )@@G@@ A0,CLRPKT CD351200 @I@@@@KK )@@G@@ ER PRINT$ KL )@@G@@CD351300 @I@@@@ L,U A0,01 . RESTORE TAPE PKM )@@G@@ACKET FOR OTHER COCD351400 @I@@@@ S,S1 A0,TAPPKT+4 KN )@@G@@ CD351500 @I@@@@ TNZ,S6 KO )@@G@@ OPTION . IS F OPTON SET CD351600 @I@@@@KP )@@G@@ A,U A0,1 . SET DUMMY F OPTION INDICATOR KQ )@@G@@CD351700 @I@@@@ S,S6 A0,OPTION . PSB TEST IS FOKR )@@G@@R NONZERO - WILL WCD351800 @I@@@@ S A0,OVWJMP KS )@@G@@ . SWITCH TO RETURN HERE FROM PSB CD351900 @I@@@@ L,U KT )@@G@@ X2,1 . LOAD FILE COUNT FOR PSB COMMAND CD352000 @I@@@@KU )@@G@@ J BWDSET . POSITION BACK TO BEGINNING OF #CKV )@@G@@CD352100 @I@@@@OVWRET . KW )@@G@@ CD352200 @I@@@@ L,U A0,020 KX )@@G@@ . READ FORWARD OVER EOF CD352300 @I@@@@ S,S2 KY )@@G@@ A0,TAPPKT+3 CD352400 @I@@@@KZ )@@G@@ L,U A0,TAPPKT LA )@@G@@CD352500 @I@@@@ ER IOW$ LB )@@G@@ CD352600 @I@@@@ L,S1 A0,TAPPKT+3 LC )@@G@@ CD352700 @I@@@@ TE,U LD )@@G@@ A0,1 . WAS AN END OF FILE READ CD352800 @I@@@@LE )@@G@@ J ERRWRT LF )@@G@@CD352900 @I@@@@ INCF . UP FILE - ZEROLG )@@G@@ RECORD COUNT CD353000 @I@@@@ L A1,OVWJMP LH )@@G@@ CD353100 @I@@@@ L,U LI )@@G@@ A0,0 CD353200 @I@@@@LJ )@@G@@ S A0,OVWJMP . REMOVE SWITCH FOR PSB LK )@@G@@CD353300 @I@@@@ TE,U A1,2 . WAS A FILE OPTLL )@@G@@ION DUMMIED CD353400 @I@@@@ J CDIMGE LM )@@G@@ CD353500 @I@@@@ S,S6 LN )@@G@@ A0,OPTION . REMOVE FILES OPTION CD353600 @I@@@@LO )@@G@@ J CDIMGE LP )@@G@@CD353700 @I@@@@ERRWRT SLJ QGETAD LQ )@@G@@ CD353800 @I@@@@ L A0,2,A0 LR )@@G@@ CD353900 @I@@@@ E$BD LS )@@G@@ 6,ERRBLK,6 CD354000 @I@@@@LT )@@G@@ DL A0,FILEN LU )@@G@@CD354100 @I@@@@ DS A0,ERCLR LV )@@G@@ CD354200 @I@@@@ L A0,CLERRM LW )@@G@@ CD354300 @I@@@@ ER LX )@@G@@ PRINT$ CD354400 @I@@@@LY )@@G@@ L,U A0,01 . RESTORE TAPE PACKET FOR OTHER COLZ )@@G@@CD354600 @I@@@@ S,S1 A0,TAPPKT+4 MA )@@G@@ CD354700 @I@@@@ ER EXIT$ MB )@@G@@ CD354800 @B@@@@DRMCHK MC )@@G@@ . @I@@@@DRUMASK DL A0,FILEN MD )@@G@@ CD355000 @I@@@@ DS A0,DME )@@G@@RMNO CD355100 @I@@@@ MF )@@G@@ L A0,DRMNCL CD3552MG )@@G@@00 @I@@@@ ER PRINT$ MH )@@G@@ CD355300 @I@@@@ ER EXIT$ MI )@@G@@ CD355400 @I@@@@/. CHECK FOR 4096 WORDMJ )@@G@@ BLOCKS OF #CLEAR CD355500 @I@@@@CHECKWMK )@@G@@T CLRR . CLEAR RECORD COUNT CD3556ML )@@G@@00 @I@@@@ LA,S5 A0,OPTION MM )@@G@@ CD355700 @I@@@@ TEP,U A0,1 MN )@@G@@ CD355800 @I@@@@ J DRMCMO )@@G@@HK CD355900 @I@@@@ MP )@@G@@ DL A0,FILEN CD3560MQ )@@G@@00 @I@@@@ DS A0,TAPPKT . PUT FILE NAME IN IO MR )@@G@@PACKET CD356100 @I@@@@ L,U A0,020 MS )@@G@@ CD356200 @I@@@@ S,S2 A0,TMT )@@G@@APPKT+3 . READ FUNCTION CD356300 @I@@@@ MU )@@G@@ SZ WRDRD CD3564MV )@@G@@00 @I@@@@CHKLOP INCR . INCREMENT RECORD COUMW )@@G@@NT CD356500 @I@@@@ L,U A0,TAPPKT MX )@@G@@ CD356600 @I@@@@ ER IOW$MY )@@G@@ . READ A BLOCK FROM TAPE CD356700 @I@@@@ MZ )@@G@@ L,S1 A0,TAPPKT+3 . GET STATUS OF READ CD3568NA )@@G@@00 @I@@@@ JNZ A0,EOTCHK . CHECK FOR END OF TAPNB )@@G@@E MARKER CD356900 @I@@@@ L,H2 A1,TAPPKT+3 . NUNC )@@G@@MBER OF WORDS READ CD357000 @I@@@@ TNE,U A1,4ND )@@G@@096 CD357100 @I@@@@ NE )@@G@@ J $+3 CD3572NF )@@G@@00 @I@@@@ S A1,WRDRD . NOT 4096 WORD READ NG )@@G@@ CD357300 @I@@@@ J CNTERR NH )@@G@@ CD357400 @I@@@@ L A0,CNI )@@G@@LEAR CD357500 @I@@@@ NJ )@@G@@ L,U R1,4096 CD3576NK )@@G@@00 @I@@@@ SNE A0,BLOCK . SEARCH FOR NONMATCHINL )@@G@@NG WORD CD357700 @I@@@@ J CHKLOP NM )@@G@@ CD357800 @I@@@@ S R1,WNN )@@G@@RDRD . WORD NUMBER WHICH IS BAD CD357900 @I@@@@CHKERRNO )@@G@@ DL A1,FILEN CD3580NP )@@G@@00 @I@@@@ DS A1,BADCHK . PUT FILE NAME IN ERRNQ )@@G@@OR MESSAGER CD358100 @I@@@@ SLJ QGETAD NR )@@G@@ CD358200 @I@@@@ L A0,2NS )@@G@@,A0 . LOAD RECORD COUNT CD358300 @I@@@@ NT )@@G@@ E$BD 6,BDLNR,6 . PUT IN ERROR MESSAGE CD3584NU )@@G@@00 @I@@@@ L,U A0,4096 . COMPUTE BAD WORD NUMNV )@@G@@BER CD358500 @I@@@@ L A1,WRDRD NW )@@G@@ CD358600 @I@@@@ ANA A0,ANX )@@G@@1 CD358700 @I@@@@ NY )@@G@@ E$BD 6,BDWRD,6 . PUT IN ERROR MESSAGE CD3588NZ )@@G@@00 @I@@@@ L A0,BDCKMG OA )@@G@@ CD358900 @I@@@@ ER PRINT$ OB )@@G@@ CD359000 @I@@@@ ER EXITOC )@@G@@$ CD359100 @I@@@@CNTERROD )@@G@@ . ERROR- NOT 4096 WORDS CD3592OE )@@G@@00 @I@@@@ DL A1,FILEN OF )@@G@@ CD359300 @I@@@@ DS A1,BADCNT OG )@@G@@ CD359400 @I@@@@ SLJ QGETOH )@@G@@AD CD359500 @I@@@@ OI )@@G@@ L A0,2,A0 . RECORD COUNT CD3596OJ )@@G@@00 @I@@@@ E$BD 6,CEBLOK,6 OK )@@G@@ CD359700 @I@@@@ L A0,WRDRD . WOOL )@@G@@RDS ACTUALLY READ CD359800 @I@@@@ E$BD 6,CEOM )@@G@@WORD,6 CD359900 @I@@@@ ON )@@G@@ L A0,CEMSG CD3600OO )@@G@@00 @I@@@@ ER PRINT$ OP )@@G@@ CD360100 @I@@@@ ER EXIT$ OQ )@@G@@ CD360200 @I@@@@. OR )@@G@@ CD360300 @B@@@@EOTCHKOS )@@G@@ . @I@@@@ L,U A1,1 OT )@@G@@ . CHECK FOR END OF FILE CD360500 @I@@@@ TEOU )@@G@@ A0,A1 . END OF TAPE READ CD360600 OV )@@G@@@I@@@@ J BADSTA . END OF TAPE MARKRR OW )@@G@@ CD360700 @I@@@@ L,U A0,TAPPKT OX )@@G@@ CD360800 @I@@@@ ER IOW$ OY )@@G@@ . SECOND END OF FILE CD360900 @I@@@@ L,OZ )@@G@@S1 A0,TAPPKT+3 CD361000 PA )@@G@@@I@@@@ TE A0,A1 PB )@@G@@ CD361100 @I@@@@ J BADSTA . SHOULD HPC )@@G@@AVE READ EOF - DID NOT CD361200 @I@@@@ L,U A0,051 PD )@@G@@ . BACKSPACE OVER SECOND END OF FILCD361300 @I@@@@ S,PE )@@G@@S2 A0,TAPPKT+3 CD361400 PF )@@G@@@I@@@@ L,U A0,TAPPKT PG )@@G@@ CD361500 @I@@@@ ER IOW$ PH )@@G@@ CD361600 @I@@@@ DCRR PI )@@G@@ . DECREASE FOR END FILE BLOCK CD361700 @I@@@@ DLPJ )@@G@@ A0,FILEN . ALL BLOCKS HABE BEEN READ CD361800 PK )@@G@@@I@@@@ DS A0,SUCCHK PL )@@G@@ CD361900 @I@@@@ SLJ QGETAD . GET ADDRPM )@@G@@ESS OF FILE COUNTERS CD362000 @I@@@@ L A0,2,A0 PN )@@G@@ . GET RECORD COUNT CD362100 @I@@@@ E$PO )@@G@@BD 6,SUCBLK,6 CD362200 PP )@@G@@@I@@@@ L A0,CHKMSG PQ )@@G@@ CD362300 @I@@@@ ER PRINT$ PR )@@G@@ CD362400 @I@@@@ INCF PS )@@G@@ . UP FILE - ZERO RECORD COUNT CD362500 @I@@@@ J PT )@@G@@ CDIMGE CD362600 PU )@@G@@@I@@@@. PV )@@G@@ CD362700 @I@@@@BADSTA DL A1,FILEN . UNEXPECTPW )@@G@@ED STATUS RETURNED BY RECD362800 @I@@@@ DS A1,STAMSG PX )@@G@@ CD362900 @I@@@@ E$PY )@@G@@BD 6,STAT,6 . STATUS IS IN A0 - PUT IN MSG CD363000 PZ )@@G@@@I@@@@ SLJ QGETAD QA )@@G@@ CD363100 @I@@@@ L A0,2,A0 QB )@@G@@ CD363200 @I@@@@ E$BD 6,RCDSTA,6QC )@@G@@ . PUT RECORD COUNT IN MESSAGE CD363300 @I@@@@ L QD )@@G@@ A0,STAPKT CD363400 QE )@@G@@@I@@@@ ER PRINT$ QF )@@G@@ CD363500 @I@@@@ L$SNAP 'IO PKT',07,05,TAPPKT QG )@@G@@ CD363600 @I@@@@ ER EXIT$ QH )@@G@@ CD363700 @I@@@@/. GENERAL QI )@@G@@UTILITY ROUTINES CD363800 QJ )@@G@@@I@@@@BADCOM L A0,PRTERR . BAD PARAMETER CARD QK )@@G@@ CD363900 @I@@@@ ER PRINT$ . PRINT ITQL )@@G@@ CD364000 @I@@@@ L A0,LESX QM )@@G@@ . FOLLOWING OPER. NOT PERFORMED CD364100 @I@@@@ ERQN )@@G@@ PRINT$ CD364200 QO )@@G@@@I@@@@BDCMI L A0,RDPKT QP )@@G@@ CD364300 @I@@@@ ER READ$ QQ )@@G@@ CD364400 @I@@@@ S,S3 A0,PPKT QR )@@G@@ . NR WORDS TO PRINT CD364500 @I@@@@ L QS )@@G@@ A0,PPKT CD364600 QT )@@G@@@I@@@@ ER PRINT$ QU )@@G@@ CD364700 @I@@@@ J BDCMI . LOOP TILQV )@@G@@ READ @CARD CD364800 @I@@@@NOVAL NOP QW )@@G@@ . CD364900 @I@@@@ JNQX )@@G@@Z A2,1,X11 . USER HAS COUNT. GO BACK CD365000 QY )@@G@@@I@@@@ L X2,(037777777777) . LOAD A RECORD COUNT WE QZ )@@G@@ CD365100 @I@@@@ J 0,X11 . GO BACK WRA )@@G@@ITH PHONEY COUNT CD365200 @B@@@@EOFILE* NOP RB )@@G@@ . @I@@@@ INCR RC )@@G@@ CD365400 @I@@@@ SLJ PRTEFX RD )@@G@@ CD365500 @I@@@@ INCF RE )@@G@@ CD365600 @I@@@@RF )@@G@@ TZ,S6 OPTION . F OPTION SET? RG )@@G@@CD365700 @I@@@@ J *PNT . YES RH )@@G@@ CD365800 @I@@@@ SZ DUPPNT RI )@@G@@ . RESET TAPE TO DRUM FLAG CD365900 @I@@@@ J RJ )@@G@@ CDIMGE CD366000 @B@@@@RK )@@G@@CNVT NOP . @I@@@@ LMJ X11,RL )@@G@@CONVERT . CONVERT FIELDDATA NR IN X2 TO BINCD366200 @I@@@@ RM )@@G@@ J *CNVT CD3663RN )@@G@@00 @I@@@@ . RO )@@G@@ CD366400 @I@@@@PRTEFX* NOP . . PRRP )@@G@@INT EOF ENCOUNTERED MESSAGE CD366500 @I@@@@ SLJ QGETRQ )@@G@@AD . RETURNS ADDRESS OF FILENAME IN ACD366600 @I@@@@ RR )@@G@@ L A0,2,A0 . RECORD COUNT - BINARY CD3667RS )@@G@@00 @I@@@@ E$BD 6,BLKNUM,6 RT )@@G@@ CD366800 @I@@@@ SLJ QGETAD . RU )@@G@@ CD366900 @I@@@@ LA A0,3RV )@@G@@,A0 . BLOCK COUNT CD367000 @I@@@@ RW )@@G@@ E$BD 6,FILENUM,3 . CD3671RX )@@G@@00 @I@@@@ DL A0,FILEN . RY )@@G@@ CD367200 @I@@@@ DS A0,FILNAM . RZ )@@G@@ CD367300 @I@@@@ LA A0,ASA )@@G@@DPKT1 . EOF ENCOUNTERED IN BLOCK OF FILECD367500 @I@@@@ SB )@@G@@ ER PRINT$ CD3676SC )@@G@@00 @I@@@@ J *PRTEFX SD )@@G@@ CD367700 @I@@@@GETSCN* NOP . ENSE )@@G@@TER SCAN ROUTINE CD367800 @I@@@@ LMJ X11,SF )@@G@@SCAN CD367900 @I@@@@ SG )@@G@@ + 1,CDADDR CD3680SH )@@G@@00 @I@@@@ DO 4 , + 0 SI )@@G@@ CD368100 @I@@@@ J *GETSCN SJ )@@G@@ CD368200 @I@@@@GENRD1 NOP SK )@@G@@ . USED IN COPY ROUTINE CD368300 @I@@@@ SL )@@G@@ S X2,BS CD3684SM )@@G@@00 @I@@@@ LA,S5 A0,OPTION . LOAD FOR D OPTION TESSN )@@G@@T CD368500 @I@@@@ TOP,U A0,01 . 'D'SO )@@G@@ OPTION SET? CD368600 @I@@@@ J RDTP SP )@@G@@ CD368700 @I@@@@ SQ )@@G@@ TZ DUPPNT . CD3688SR )@@G@@00 @I@@@@ J RDTP . SS )@@G@@ CD368900 @I@@@@ SLJ DREAD ST )@@G@@ CD369000 @I@@@@ LX X2,BSU )@@G@@S . RESTORE X2 CD369100 @I@@@@ SV )@@G@@ J *GENRD1 CD3692SW )@@G@@00 @I@@@@RDTP LMJ X11,TPRD$ SX )@@G@@ CD369300 @I@@@@FN1 + 0 . NOSY )@@G@@RMAL RTN-NR WORDS READ IN NOWDCD369400 @I@@@@ + 0 SZ )@@G@@ CD369500 @I@@@@ TA )@@G@@ + 4096,BLOCK CD3696TB )@@G@@00 @I@@@@ + EOFILE . TC )@@G@@ CD369700 @I@@@@ L X2,BS TD )@@G@@ CD369800 @I@@@@ J *GENTE )@@G@@RD1 CD369900 @I@@@@. ****TF )@@G@@******************************************************************CD3700TG )@@G@@00 @I@@@@. THIS ROUTINE WILL ALLOW UPDATING THE FILE COUNT AND RECORTH )@@G@@D COUNT ON FCD370100 @I@@@@. FROM ONE TO TEN TAPES IN ONE RUN TI )@@G@@ CD370200 @I@@@@QGETAD* NOP TJ )@@G@@ . GET ADDR OF 4 WORD FILE INFO IN CD370300 @I@@@@I DO 6TK )@@G@@ , S X11+I-1,QSAVE+I-1 . SAVE REGISTERS CD3704TL )@@G@@00 @I@@@@ L X11,QTAB TM )@@G@@ CD370500 @I@@@@ LXI X11,(0777773) . A4=-4TN )@@G@@,4*NO ENTRIES CD370600 @I@@@@ DL A1,FTO )@@G@@ILEN . PICKUP CURRENT FILENAME CD370700 @I@@@@QLOOP TP )@@G@@ JMGI X11,$+2 . CHECK FOR END OF ENTRIES CD3708TQ )@@G@@00 @I@@@@ J QNOFIN . NO MORE ENTRIES TR )@@G@@ CD370900 @I@@@@ DTE A1,QTAB+1,X11 . CK FTS )@@G@@OR MATCHING FILELNAME CD371000 @I@@@@ J QLOOTT )@@G@@P . NO MATCH CD371100 @I@@@@ TU )@@G@@ L,U A0,QTAB+1,X11 . PICK UP ADDRESS OF MATCH CD3712TV )@@G@@00 @I@@@@ SZ X11 TW )@@G@@ CD371300 @I@@@@ J *QGETAD . EXIT TX )@@G@@ CD371400 @I@@@@. NO MATCH FOUND, THIS ITY )@@G@@S NEW FILENAME, ADD IT TO TABLE CD371500 @I@@@@QNOFINTZ )@@G@@ L A0,QTAB . GET ADDESS AVAILABLE FOR CD3716UA )@@G@@00 @I@@@@ L,U A0,QTAB+1,A0 . NEXT ENTRY UB )@@G@@ CD371700 @I@@@@ DS A1,0,A0 . STARE FILEUC )@@G@@NAME CD371800 @I@@@@ L,U A4,4UD )@@G@@ . UPDATE COUNT OF ENTRIES CD371900 @I@@@@ UE )@@G@@ A A4,QTAB CD3720UF )@@G@@00 @I@@@@ S A4,QTAB UG )@@G@@ CD372100 @I@@@@ TG,U A4,41 . TEST UH )@@G@@MAX FILE NAMES CD372200 @I@@@@ J GETOUI )@@G@@UT . MORE THAN 10 FILES - ERROR *** CD372300 @I@@@@ UJ )@@G@@ SZ X11 CD3724UK )@@G@@00 @I@@@@ J *QGETAD . UL )@@G@@ CD372500 @I@@@@GETOUT L A0,(P 2,12,EXCEED) UM )@@G@@ CD372600 @I@@@@ ER PRINUN )@@G@@T$ CD372700 @I@@@@ UO )@@G@@ ER ERR$ CD3728UP )@@G@@00 @I@@@@INCRX* NOP . INCREMENT RECORD COUUQ )@@G@@NTER CD372900 @I@@@@ SLJ QGETAD UR )@@G@@ CD373000 @I@@@@ L,U A1,1US )@@G@@ CD373100 @I@@@@ UT )@@G@@ A A1,2,A0 CD3732UU )@@G@@00 @I@@@@ S A1,2,A0 UV )@@G@@ CD373300 @I@@@@ SLJ QREST UW )@@G@@ CD373400 @I@@@@ J *INCUX )@@G@@RX CD373500 @I@@@@INCFX*UY )@@G@@ NOP . INCREMENT FILE COUNTER CD3736UZ )@@G@@00 @I@@@@ SLJ QGETAD VA )@@G@@ CD373700 @I@@@@ L,U A1,1 VB )@@G@@ CD373800 @I@@@@ A A1,3VC )@@G@@,A0 CD373900 @I@@@@ VD )@@G@@ S A1,3,A0 CD3740VE )@@G@@00 @I@@@@ SZ 2,A0 . CLEAR RECORD COUNT VF )@@G@@ CD374100 @I@@@@ SLJ QREST VG )@@G@@ CD374200 @I@@@@ J *INCVH )@@G@@FX CD374300 @I@@@@DCRRX*VI )@@G@@ NOP . DECREMENT RECORD DOUNTER CD3744VJ )@@G@@00 @I@@@@ SLJ QGETAD VK )@@G@@ CD374500 @I@@@@ L A1,2,A0 VL )@@G@@ CD374600 @I@@@@ AN,U A1,1VM )@@G@@ CD374700 @I@@@@ VN )@@G@@ S A1,2,A0 CD3748VO )@@G@@00 @I@@@@ SLJ QREST VP )@@G@@ CD374900 @I@@@@ J *DCRRX VQ )@@G@@ CD375000 @I@@@@DCRFX* NOP VR )@@G@@ . DECREMENT FILE COUNTER CD375100 @I@@@@ VS )@@G@@ SLJ QGETAD CD3752VT )@@G@@00 @I@@@@ L A1,3,A0 VU )@@G@@ CD375300 @I@@@@ AN,U A1,1 VV )@@G@@ CD375400 @I@@@@ S A1,3VW )@@G@@,A0 CD375500 @I@@@@ VX )@@G@@ SLJ QREST CD3756VY )@@G@@00 @I@@@@ J *DCRFX VZ )@@G@@ CD375700 @I@@@@CLRRX* NOP . CLWA )@@G@@EAR RECORD COUNTER CD375800 @I@@@@ SLJ QGETWB )@@G@@AD CD375900 @I@@@@ WC )@@G@@ SZ 2,A0 CD3760WD )@@G@@00 @I@@@@ SLJ QREST WE )@@G@@ CD376100 @I@@@@ J *CLRRX WF )@@G@@ CD376200 @B@@@@CLRFX* NOP WG )@@G@@ . @I@@@@ SLJ QGETAD . CLEAR FILE WH )@@G@@COUNTER CD376400 @I@@@@ L,U A1,1 WI )@@G@@ CD376500 @I@@@@ S WJ )@@G@@ A1,3,A0 CD376600 WK )@@G@@@I@@@@ SLJ QREST WL )@@G@@ CD376700 @I@@@@ J *CLRFX WM )@@G@@ CD376800 @I@@@@QREST NOP WN )@@G@@ . RESTORE REGISTERS CD376900 @I@@@@I DO 6 , L XWO )@@G@@11+I-1,QSAVE+I-1 CD377000 WP )@@G@@@I@@@@ J *QREST WQ )@@G@@ CD377100 @I@@@@ENFILE ER EXIT$ . WR )@@G@@ CD377200 @I@@@@/ . WS )@@G@@ CD377300 @B@@@@$(0) WT )@@G@@ . @H@@@@SAVEX2 + 0 WU )@@G@@ . . 03D @I@@@@DUPPNT* + 0 WV )@@G@@ . POINTER FOR DUPING TAPE TO DRUM CD377500 @I@@@@NOWDS$WW )@@G@@* + 0 . CD3776WX )@@G@@00 @I@@@@PSERET + 0 . PSE RETURN FROM PSF WY )@@G@@CODE CD377700 @I@@@@NONO + 0 . USEWZ )@@G@@D FOR BAD COUNT OR WORD ON CMPCD377800 @I@@@@PERIOD* + 0 XA )@@G@@ . FLAG TO STIP SCAN CD377900 @I@@@@NO2EOFXB )@@G@@ + 0 . TWO CMP TAPES NOT EOF AT SAME PLCD3780XC )@@G@@00 @I@@@@SAVJGD + 0 XD )@@G@@ CD378100 @I@@@@OPTION* + 0 . OPXE )@@G@@TION WORD CD378200 @H@@@@OPTION2 + 0 XF )@@G@@ . SAVE FOR Q AND R OPTIONS . 03D @I@@@@PNT + XG )@@G@@ 0 . LABEL POINTER WORD CD378300 XH )@@G@@@H@@@@NOCOMM EQU 13 . ALLOW TRI TEMPORARILY-TRANXI )@@G@@SITION CPD3 @I@@@@NEWCRD EQU 1 XJ )@@G@@ CD378500 @I@@@@SAMECD* EQU 0 XK )@@G@@ CD378600 @I@@@@BLOCK* RES XL )@@G@@ 4096 CD378700 @I@@@@XM )@@G@@BS RES 1 XN )@@G@@CD378800 @I@@@@CDADDR* RES 14 XO )@@G@@ CD378900 @I@@@@BLOCK1 RES 4096 XP )@@G@@ CD379000 @I@@@@ DO 8 , XQ )@@G@@ +' ' CD379100 @I@@@@XR )@@G@@COMMND RES 1 XS )@@G@@CD379200 @I@@@@FILEN* RES 2 XT )@@G@@ CD379300 @I@@@@TEMP* RES 1 XU )@@G@@ CD379400 @I@@@@FREED '@FREE 'XV )@@G@@ . PACKET TO FREE A FILE CD379500 @I@@@@XW )@@G@@ + ' ' . XX )@@G@@CD379600 @I@@@@TABL + 'DUP', COPY . TABLE OF PARAMXY )@@G@@ETER COMMANDS CD379700 @I@@@@ + 'PRT', DUMP XZ )@@G@@ CD379800 @I@@@@ + YA )@@G@@ 'PSF', POSFOR CD379900 @I@@@@YB )@@G@@ + 'PSB', POSBWD YC )@@G@@CD380000 @I@@@@ + 'TEF', WREOF YD )@@G@@ CD380100 @I@@@@ + 'TRW', REWW YE )@@G@@ CD380200 @I@@@@ + YF )@@G@@ 'FRE', REWI CD380300 @I@@@@YG )@@G@@ + 'PSE',POSF1 YH )@@G@@CD380400 @I@@@@ + 'CMP',COMPAR YI )@@G@@ CD380500 @I@@@@ + 'OVW',OVERWT YJ )@@G@@ CD380600 @I@@@@ + YK )@@G@@ 'CHK',CHECKWT CD380700 @I@@@@YL )@@G@@ + 'SWP',SWAPRL YM )@@G@@CD380800 @H@@@@ + 'TRI',REWI . ALLOW ILLEGAL YN )@@G@@CMDF OR TRANSITION CPD3 @I@@@@EQUIP1 + 0 YO )@@G@@ . 3A @I@@@@EQUIP2 + 0 YP )@@G@@ . 3A @I@@@@FACPACYQ )@@G@@ RES 10 . 3YR )@@G@@A @I@@@@P FORM 12,6,18 YS )@@G@@ CD380900 @I@@@@AFTERB P 2,9,BLKPOS YT )@@G@@ CD381000 @I@@@@PPKT* P 2,0,YU )@@G@@CDADDR CD381100 @I@@@@PRTERRYV )@@G@@ P 3,4,ERRADD CD3812YW )@@G@@00 @I@@@@WRERR P 2,13,BADWRI YX )@@G@@ CD381300 @I@@@@LESX P 2,6,LEXI . YY )@@G@@ CD381400 @I@@@@NOCMP P 3,14YZ )@@G@@,NOCOMP CD381500 @I@@@@DIFFBLZA )@@G@@ P 3,13,DIFBLK CD3816ZB )@@G@@00 @I@@@@CHKMSG P 2,10,SUCCHK ZC )@@G@@ CD381700 @I@@@@BDCKMG P 2,14,BADCHK ZD )@@G@@ CD381800 @I@@@@STAPKT P 2,20ZE )@@G@@,STAMSG CD381900 @I@@@@CLRPKTZF )@@G@@ P 2,11,CLRMSG CD3820ZG )@@G@@00 @I@@@@CLERRM P 2,13,ERCLR ZH )@@G@@ CD382100 @I@@@@DRMNCL P 2,8,DRMNO ZI )@@G@@ CD382200 @I@@@@CEMSG P 2,15ZJ )@@G@@,BADCNT CD382300 @I@@@@CLEAR ZK )@@G@@ + '#CLEAR' CD3824ZL )@@G@@00 @I@@@@OVWJMP + 0 ZM )@@G@@ CD382500 @I@@@@CLRMSG ' TAPE OVERWRITTEZN )@@G@@N WITH ' CD382600 @I@@@@BEFEOT + ' ZO )@@G@@ ' CD382700 @I@@@@ ZP )@@G@@ ' BLOCKS OF 4096 WORDS ' CD3828ZQ )@@G@@00 @I@@@@ERCLR ' ERROR ENCOUNTERED IN BLOCK ' ZR )@@G@@ CD382900 @I@@@@ERRBLK + ' ' ZS )@@G@@ CD383000 @I@@@@ ' WHILE WRZT )@@G@@ITING TO END OF TAPE.' CD383100 @I@@@@DRMNO ZU )@@G@@ ' DRUM OVERWRITE CODE NOT IMPLEMENTED' CD3832ZV )@@G@@00 @I@@@@SUCCHK ' SUCCESSFUL #CLEAR CHECK OF ' ZW )@@G@@ CD383300 @I@@@@SUCBLK ' ' ZX )@@G@@ CD383400 @I@@@@ ' BLOCKS. ' ZY )@@G@@ CD383500 @I@@@@BADCHKZZ )@@G@@ ' ERROR IN WORD ' CD3836AA )@@G@@00 @I@@@@BDWRD ' ' AB )@@G@@ CD383700 @I@@@@ ' OF BLOCK ' AC )@@G@@ CD383800 @I@@@@BDLNR ' ' AD )@@G@@ CD383900 @I@@@@ AE )@@G@@ ' WHILE SEARCHING FOR #CHECK.' CD3840AF )@@G@@00 @I@@@@STAMSG ' ERROR STATUS ' AG )@@G@@ CD384100 @I@@@@STAT ' ' AH )@@G@@ CD384200 @I@@@@ ' RETURNED WHIAI )@@G@@LE READING TAPE AT RECORD NUMBER ' CD384300 @I@@@@RCDSTAAJ )@@G@@ ' ' CD3844AK )@@G@@00 @I@@@@ '. ONLY 0 OR 1 STATUS ACCEPTABLE.' AL )@@G@@ CD384500 @I@@@@BADCNT ' ' AM )@@G@@ CD384600 @I@@@@CEWORD ' WORDS AN )@@G@@READ IN BLOCK ' CD384700 @I@@@@CEBLOKAO )@@G@@ ' . 4096 WORDS EXPECTED - CHECK ERROR. ' CD3848AP )@@G@@00 @I@@@@BLKPOS ' FILE POSITIONED AFTER BLOCK ' AQ )@@G@@ CD384900 @I@@@@AFTBLK ' . ' AR )@@G@@ CD385000 @F@@@@XMSG1 ' *AS )@@G@@* X OPTION SET. ONLY THE FIRST LINE **' @F@@@@XMSG2 ' *AT )@@G@@* OF EACH RECORD WILL BE PRINTED. **' @I@@@@WRDRD + 0 AU )@@G@@ CD385100 @I@@@@QSAVE AV )@@G@@ RES 6 . REGISTER SAVE AREA CD3852AW )@@G@@00 @H@@@@ . THE QTAB TABLE HOLDS INFORMATION RELATIVE AX )@@G@@ . 03D @H@@@@ . TO OPEN FILES WITHIN CPD. THIS TABLE AY )@@G@@ . 03D @H@@@@ . IS USED TO CONTAIN FILE NAAZ )@@G@@MES, RECORD . 03D @H@@@@ . POSITION INFORBA )@@G@@MATION AND FILE POSITION . 03D @H@@@@ . INBB )@@G@@FORMATION. THE FORMAT IS ::: . 03D @H@@@@BC )@@G@@ . BD )@@G@@. 03D @H@@@@ . 0 - 1 FILENAME BE )@@G@@ . 03D @H@@@@ . 2 RECORD POSITION/DRUM SECTOR ADDRBF )@@G@@ESS . 03D @H@@@@ . 3 FILE POSITION COUNTEBG )@@G@@R (ALWAYS 1 FOR DRUM) . 03D @I@@@@QTAB RES 1 BH )@@G@@ . 4 WORDS PER FILE-FN,RECORD CNT, CD385300 @I@@@@ BI )@@G@@ DO 10 , DATA 0,0,0,1 CD3854BJ )@@G@@00 @I@@@@ERRADD 'ILLEGAL PARAMETER CARD' BK )@@G@@ CD385500 @I@@@@EXCEED 'EXCEEDED 10 FILE NAMES ON THIS BL )@@G@@RUN ' . CD385600 @I@@@@BADWRI ' ERROR WHILE BM )@@G@@WRITING, COULD NOT CONTINUE' CD385700 @I@@@@PRTLPFBN )@@G@@ 'LOAD POINT ENCOUNTERED WHILE MOVING BACKWARD' . CD3858BO )@@G@@00 @I@@@@LEXI 'FOLLOWING OPERATIONS NOT PERFORMED' . BP )@@G@@ CD385900 @I@@@@DIFBLK 'DIFFERENT SIZE BLOCKS WERE READBQ )@@G@@ FROM FILE ' CD386000 @I@@@@FRSTFIL + ' BR )@@G@@ ' . CD386100 @^@@@@ BS )@@G@@ 'AND FILE '@I@@@@SECDFIL + ' ' . BT )@@G@@ CD386400 @I@@@@NOCOMP 'FILE ' BU )@@G@@ CD386500 @I@@@@FSTFL + BV )@@G@@ ' ' . CD386600 BW )@@G@@@^@@@@ 'AND FILE '@I@@@@SCDFL + ' ' . BX )@@G@@ CD386900 @C@@@@ 'DID NOTBY )@@G@@ COMPARE STARTING AT WORD ** '@I@@@@WRDCNT + ' ' . BZ )@@G@@ CD387600 @C@@@@EOFM1 'END-OF-CA )@@G@@FILE WAS ENCOUNTERED IN BLOCK'@I@@@@BLKNUM + ' ' CB )@@G@@ CD388300 @^@@@@ ' *FILE CC )@@G@@*** ' @I@@@@FILNAM + ' ' CD )@@G@@ CD388600 @I@@@@ + ' ' CE )@@G@@ CD388700 @I@@@@FILENUM + 'NO. 'CF )@@G@@ . CD388800 @F@@@@NOTEOFCG )@@G@@ 'END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'@I@@@@ CH )@@G@@ + ' ' CD3898CI )@@G@@00 @I@@@@ + ' ' CJ )@@G@@ CD389900 @G@@@@BLOWIT 'AN END-OF-FILE WAS ENCOUNTERED CK )@@G@@BUT NOT EXPECTED IN BLOCK ***'@I@@@@ + ' ' CL )@@G@@ . CD391000 @^@@@@ '*** ON CM )@@G@@FILE '@I@@@@ + ' ' CN )@@G@@ CD391300 @I@@@@ + ' ' CO )@@G@@ CD391400 @I@@@@ADPKT1 P 3,12CP )@@G@@,EOFM1 CD391500 @I@@@@ADPKT3CQ )@@G@@ P 3,3,ITDID CD3916CR )@@G@@00 @I@@@@ADPKT4 P 3,11,NOTEOF CS )@@G@@ CD391700 @I@@@@ADPKT5 P 3,7,NOFNAM CT )@@G@@ CD391800 @I@@@@ADPKT7 P 3,15CU )@@G@@,BLOWIT CD391900 @I@@@@EOFLAGCV )@@G@@ + 0 CD3920CW )@@G@@00 @I@@@@WDSTP1 + 0 . HOLDS THE NO. OF WORCX )@@G@@DS FROM FIRSCD392100 @I@@@@WDSTP2 + 0 . NOCY )@@G@@. OF WORDS FROM SECOND READ CD392200 @ @@@@NMANYF + 03777777777CZ )@@G@@7 @I@@@@ITDID 'YOUR FILE COMPARES' DA )@@G@@ CD392300 @I@@@@NOFNAM 'THE CMP DIRECTIVE REQDB )@@G@@UIRES TWO FILE NAMES' CD392400 @I@@@@RDPKT + ENFIDC )@@G@@LE,CDADDR . PACKET FOR READ$ TO OBTAIN IMAGECD392500 @I@@@@TAPPKTDD )@@G@@ + ' ' . I/O PACKET FOR MAG TAPE TEF =011CD3926DE )@@G@@00 @I@@@@ + ' ' . TRW=040, TRI=041, PSDF )@@G@@F=050, PSB= CD392700 @I@@@@ + 0 . DG )@@G@@ CD392800 @I@@@@ + 0 DH )@@G@@ . S2 OF THIS WORD WILL CONTAIN FUNCD392900 @I@@@@ DI )@@G@@ + 4096,BLOCK . HOLDS NUMBER OF WORDS AND ADD IF MOCD3930DJ )@@G@@00 @I@@@@TAPWRI + ' ' . I/0 PACKET FOR WRITIDK )@@G@@NG MAG. TAPECD393100 @I@@@@ + ' ' . DL )@@G@@ CD393200 @I@@@@ + 0 DM )@@G@@ . CD393300 @I@@@@ DN )@@G@@ + 0,010,0,0,0,0 . CD3934DO )@@G@@00 @I@@@@ + 0,BLOCK . NO.WORDS AND ADDRESSDP )@@G@@ CD393500 @I@@@@ END CPD DQ )@@G@@ CD393600 ___L + 'DUP', COPDR )@@G@@Y . TABLE OF PARAMETER COMMANDS CD379700 @I@@@@ + DS )@@G@@ 'PRT', DUMP *[S@@@*SDFF*@[@@@@. DT )@@G@@@G@@@@. THIS ROUTINE OBTAINS THE CURRENT DATE AND TIME FROM THE SYSTEM ADU )@@G@@ND @G@@@@. COMPUTES THE CURRENT MONTH AND DAY OF THE WEEK. IT ALSO PDV )@@G@@RODUCES @G@@@@. SPECIAL MESSAGES ON APPROPRIATE DAYS OF THE YEAR. NDW )@@G@@OW ISN'T THAT @^@@@@. REALLY GOOD AND NICE? @[@@@@. @B@@@@ DX )@@G@@ AXR$ . @[@@@@. @C@@@@. THIS PROC IS TO DY )@@G@@SET UP THE SPECIAL MESSAGES. @[@@@@. @]@@@@SP* PROC 1. @ @@@@ DZ )@@G@@ + SP(1,1). @B@@@@ + SP(1,2)-1,SP(1,3). EA )@@G@@@#@@@@ END. @B@@@@P FORM 12,6,18 . EB )@@G@@@[@@@@$(1) @G@@@@SIGTUR* ER DATE$ . GET DATE AND TIEC )@@G@@ME FROM SYSTEM @F@@@@ SA A0,DATE . STORE DATED )@@G@@E IN TEMP LOCATION@F@@@@ SA A1,TIME . STORE TIMEE )@@G@@E IN TEMP LOCATION@G@@@@ ER TDATE$ . GET BIN DEF )@@G@@ATE FOR MONTH SEARCH @G@@@@ SA A0,TDATE . STOEG )@@G@@RE BIN DATE IN TEMP LOCATION @F@@@@ SSL A0,30 EH )@@G@@ . SHIFT FOR MONTH SEARCH @D@@@@ SSL A1,24 EI )@@G@@ . SHIFT FOR HOUR @H@@@@ MSI,U A0,2 . DOUBLE THEJ )@@G@@E INDEX FOR DOUBLE WRD MONTHS @E@@@@ DL A2,MNTH,A0 EK )@@G@@ . LOAD THE PROPER MONTH@E@@@@ DS A2,MONTH . STOEL )@@G@@RE MONTH IN PACKET@E@@@@ LA,T2 A0,DATE . LOAD DAY EM )@@G@@OF MONTH @E@@@@ SA,T1 A0,DAYYR . STORE DAY IN PAEN )@@G@@CKET @F@@@@ LA,T3 A0,DATE . LOAD YEAR (LAST TWO DEO )@@G@@IGITS)@D@@@@ SA,T1 A0,DAYYR+1 . STORE IN PACKET@E@@@@EP )@@G@@ SA,T2 A1,HRMIN . STORE HOURS IN PACKET@E@@@@ EQ )@@G@@ LA,S3 A1,TIME . LOAD 1ST DIGIT OF MIN@D@@@@ SA,ER )@@G@@S6 A1,HRMIN . STORE IN PACKET@E@@@@ LA,S4 A1,TIES )@@G@@ME . LOAD 2ND DIGIT OF MIN@D@@@@ SA,S1 A1,MINSEC ET )@@G@@ . STORE IN PACKET@D@@@@ LA,T3 A1,TIME . LOAEU )@@G@@D SECONDS @D@@@@ SA,T2 A1,MINSEC . STORE IN PACKETEV )@@G@@@D@@@@/. THIS PART COMPUTES THE PROPER DAY OF THE WEEK. @E@@@@. THISEW )@@G@@ ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR 2069. @G@@@@. IT ACCOUNTEX )@@G@@S FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILL CHANGE THE @G@@@@. CENTEY )@@G@@URY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCURS. SOME OF THE @G@@@@EZ )@@G@@. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BIT LIKE FUDGING ONLY FA )@@G@@@#@@@@. MUCH STICKIER. @[@@@@. @F@@@@ LA,S1 A0,TDATE FB )@@G@@ . LOAD THE CURRENT MONTH @H@@@@ LA A6,OFFSET-1FC )@@G@@,A0 . LOAD THE OFFSET. THE OFFSET IS THE @H@@@@ AA,S2 FD )@@G@@ A6,TDATE . SUM OF THE DAYS IN THE MONTHS PROCEDING@I@@@@ FE )@@G@@ . THE CURRENT ONE AND ADD TODAYS DATE TO FF )@@G@@IT @H@@@@ LA,U A8,72 . LOAD THE 1ST LEAP YR FG )@@G@@AFTER THIS WRIT @G@@@@ LA,S3 A9,TDATE . LOAD THE FH )@@G@@CURRENT YEAR (MODULO 64)@E@@@@ AA,U A9,64 . BRIFI )@@G@@NG IT UP TO DATE @[@@@@. @E@@@@. THIS PART DETERMINES WHETHER WE HAFJ )@@G@@VE A LEAP YEAR OR NOT. @[@@@@. @E@@@@TEST1 TG A8,A9 FK )@@G@@ . IS CURRENT YEAR < 72?@F@@@@ J TEST2 FL )@@G@@ . NO, GO DO THE NEXT TEST @E@@@@ AA,U A8,4 FM )@@G@@ . YES, ADD 4 TO BASE 72@F@@@@ J TEST1 . GO FN )@@G@@BACK AND TEST AGAIN @D@@@@TEST2 TE A8,A9 . AREFO )@@G@@ THEY EQUAL?@G@@@@ J TEST3 . NO, NOT A LEAP FP )@@G@@YEAR, KEEP GOING @G@@@@ ANA,U A0,3 . YES, SEE FQ )@@G@@WHAT MONTH WE ARE IN @G@@@@ JP A0,$+3 . AFTFR )@@G@@ER MARCH, NEED AN EXTRA DAY @G@@@@ JZ A0,$+2 FS )@@G@@ . IT IS MARCH, NEED AN EXTRA DAY @H@@@@ J TEST3 FT )@@G@@ . NO, MUST BE JAN OR FEB, NO EXTRA DAY @E@@@@ AA,U FU )@@G@@ A6,1 . ADD THE EXTRA DAY @H@@@@TEST3 DSA A6,36FV )@@G@@ . NOW TAKE OUT THE WEEKS PRIOR TO THIS @G@@@@ DI,FW )@@G@@U A6,7 . ONE AND SAVE THE REMAINDER IN A7 @B@@@@. NOW FX )@@G@@LET'S CHECK WHAT CENTURY WE'RE IN @F@@@@ LA,S3 A10,TDATE FY )@@G@@ . LOAD THE YEAR (MODULO 64) @D@@@@ ANA,U A10,6 FZ )@@G@@ . BIAS IT BY 70 @C@@@@ JP A10,$+5 . < 7GA )@@G@@0? @C@@@@ JZ A10,$+4 . = 70? @D@@@@ GB )@@G@@ AA,U A10,100 . MUST BE < 2000 @E@@@@ LA,U GC )@@G@@ A11,20 . LOAD THE NEW CENTURY @E@@@@ SA,T3 A11,DGD )@@G@@AYYR . CHANGE THE PACKET @[@@@@. @H@@@@. THIS SECTION COMGE )@@G@@PUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRENT YEAR @G@@@@. YEARGF )@@G@@ FELL ON. THIS THEN COMBINED WITH THE REMAINDER OF THE OFFSET TO @B@@@@GG )@@G@@. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@@. @C@@@@ LA GH )@@G@@ A9,A10 . SAVE A10 @H@@@@ AA,U A10,1 GI )@@G@@ . ADD ONE TO THE YEAR (FUDGING AGAIN) @C@@@@ DSA GJ )@@G@@ A10,36 . SHIFT IT @C@@@@ DI,U A10,4 GK )@@G@@ . FUDGE IT @C@@@@ AA,U A9,4 . PUT IT @D@@@@GL )@@G@@ AA A9,A10 . ALL TOGETHER @D@@@@ DSAGM )@@G@@ A9,36 . SHIFT IT AGAIN @E@@@@ DI,U A9,7 GN )@@G@@ . ELIMINATE THE WEEKS @E@@@@ AA A7,A10 GO )@@G@@ . ADD THE REMAINDERS @E@@@@ LA,U A8,07 GP )@@G@@ . SEE IF NUMBER IS @E@@@@ TLE A8,A7 . GREGQ )@@G@@ATER THAN SEVEN @E@@@@ ANA,U A7,7 . YES, TAKEGR )@@G@@ 7 AWAY @F@@@@ ANA,U A7,1 . MODIFY IT FOR TGS )@@G@@WO WORDS @D@@@@ MSI,U A7,2 . AND DOUBLE IT GT )@@G@@@F@@@@ LX X1,A7 . LOAD THE INDEX REGISTER GU )@@G@@@F@@@@ DL A3,DAYOFWK,X1 . LOAD THE DAY OF THE WEEK GV )@@G@@@F@@@@ DS A3,DAYWEEK . STORE DAY OF WEEK IN PACKETGW )@@G@@@C@@@@. THIS SECTION SEES IF WE HAVE A SPECIAL MESSAGE@D@@@@ L GX )@@G@@ A0,DATE . LOAD THE DATE @G@@@@ SSL A0,12GY )@@G@@ . SHIFT IT TO GET RID OF THE YEAR @F@@@@ LXI,U GZ )@@G@@ X1,2 . SET UP INDEX REGISTER FOR @C@@@@ LXM,U HA )@@G@@ X1,0 . SEARCH @H@@@@ L,U R1,(ENDSPC-SPCLSTHB )@@G@@)/2 . LOAD THE LENGTH OF THE TABLE @F@@@@ SE A0,SPHC )@@G@@CLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@@ J PRINTHD )@@G@@ . NO, GO PRINT THE SIGNATURE @F@@@@ L,H1 R1,SPHE )@@G@@CLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@@ L X2,SPHF )@@G@@CLST-1,X1 . LOAD THE LOCATION @D@@@@ LXI,U X2,1 HG )@@G@@ . SET UP THE @D@@@@ LXI,U X3,1 . INCHH )@@G@@REMENTS @F@@@@ LXM,U X3,MSG . LOAD WHERE TO SHI )@@G@@TORE IT @D@@@@RPT LA A1,0,*X2 . LOAD AND STORE HJ )@@G@@@E@@@@ SA A1,0,*X3 . THE MESSAGE, ONE @D@@@@HK )@@G@@ JGD R1,RPT . WORD AT A TIME @F@@@@PRINT LA HL )@@G@@ A0,(P 1,22,SIG) . LOAD THE SIGNATURE PACKET @E@@@@ ER HM )@@G@@ PRINT$ . WRITE OUT SIGNATURE @C@@@@ J HN )@@G@@ 0,X11 . RETURN @[@@@@/. @]@@@@$(0) . @E@[@@SIG HO )@@G@@ 'OCS/CPD 03D' . SIGNATURE PACKET @E@@@[SIG 'BHP )@@G@@PD/CPD 03E' . SIGNATURE PACKET @D@@@@DAYWEEK ' HQ )@@G@@ ' . DAY OF THE WEEK@D@@@@MONTH ' ' HR )@@G@@ . CURRENT MONTH @D@@@@DAYYR ' , 19 ' . DATHS )@@G@@E AND YEAR @G@@@@HRMIN ' : ' . HOUR AND 1ST DIHT )@@G@@GIT OF MINUTE @G@@@@MINSEC ' : ' . 2ND DIGITHU )@@G@@ OF MINUTE AND SECONDS @F@@@@ ' ' . BLAHV )@@G@@NK FOR SIGNATURE LINE @C@@@@MSG ' ' . SPEHW )@@G@@CIAL @C@@@@ ' ' . MESSAGE @C@@@@ HX )@@G@@ ' ' . PACKET @D@@@@DATE + 0 HY )@@G@@ . DATE SAVE AREA @D@@@@TIME + 0 HZ )@@G@@ . TIME SAVE AREA @E@@@@TDATE + 0 . BINARY DAIA )@@G@@TE SAVE AREA@C@@@@OFFSET + 0 . TABLE @B@@@@IB )@@G@@ + 31 . OF @C@@@@ + 59 IC )@@G@@ . OFFSETS @B@@@@ + 90 . TO ID )@@G@@@C@@@@ + 120 . COMPUTE @C@@@@ + IE )@@G@@ 151 . WHAT @B@@@@ + 181 IF )@@G@@ . DAY@B@@@@ + 212 . OF @B@@@@ IG )@@G@@ + 243 . THE@C@@@@ + 273 IH )@@G@@ . WEEK @B@@@@ + 304 . IT @B@@@@II )@@G@@ + 334 . IS @C@@@@DAYOFWK ' SUNDAY' IJ )@@G@@ . ACTUAL @B@@@@ ' MONDAY' . DAYIK )@@G@@@B@@@@ ' TUESDAY' . OF @B@@@@ ' WEDNEIL )@@G@@SDAY' . THE@C@@@@ ' THURSDAY' . WEEIM )@@G@@K @C@@@@ ' FRIDAY' . LISTING @C@@@@ IN )@@G@@ ' SATURDAY' . TABLE @C@@@@MNTH ' ' IO )@@G@@ . DUMMY @C@@@@ ' JANUARY ' . ACTIP )@@G@@UAL @C@@@@ ' FEBRUARY ' . MONTH @B@@@@ IQ )@@G@@ ' MARCH ' . OF @B@@@@ ' APRIL ' IR )@@G@@ . THE@C@@@@ ' MAY ' . CURRENT @C@@@@IS )@@G@@ ' JUNE ' . YEAR @B@@@@ ' JIT )@@G@@ULY ' . TO @B@@@@ ' AUGUST ' . BE IU )@@G@@@C@@@@ ' SEPTEMBER ' . LOADED @C@@@@ ' IV )@@G@@ OCTOBER ' . INTO @B@@@@ ' NOVEMBER ' IW )@@G@@ . THE@C@@@@ ' DECEMBER ' . PACKET @F@@@@IX )@@G@@/. SPECIAL DATE SECTION. CPD CAN PLAY GAMES BY ADDING A @G@@@@IY )@@G@@. COMMENT TO SPECIAL DATES SUCH AS HALLOW5EN 69+1PI93+6663(2 IZ )@@G@@@D@@@@. DAY OR ST. SWITHEN'S DAY, OR WHAT HAVE YOU. @E@@@@. JA )@@G@@ TABLES ARE GENERATED BY PROC 'SP'. TYPICAL CALL. @[@@@@. @A@@@@JB )@@G@@. SP '1031',2,HALMSG. @[@@@@. @F@@@@. WHERE 10JC )@@G@@31 IS HALLOWEEN, OCT. 31, 2 IS THE COUNT OF THE @G@@@@. WORDS INJD )@@G@@ THE HALLOWEEN MESSAGE, AND HALMSG IS THE LOCATION @C@@@@. OFJE )@@G@@ THE FIRST WORD OF THE MESSAGE. @E@@@@. THE COMMENT IS PUT AJF )@@G@@T THE END OF THE DATE LINE. @[@@@@. @]@@@@SPCLST. @C@@@@ JG )@@G@@ SP '0101',E0101-B0101,B0101 . @C@@@@ SP '010JH )@@G@@5',E0105-B0105,B0105 . @C@@@@ SP '0120',E0120-B0120,B012JI )@@G@@0 . @C@@@] SP '0123',E0123-B0123,B0120 . @C@@@@ JJ )@@G@@ SP '0131',E0131-B0131,B0131 . @C@@@@ SP '0202JK )@@G@@',E0202-B0202,B0202 . @C@@@@ SP '0212',E0212-B0212,B021JL )@@G@@2 . @C@@@@ SP '0214',E0214-B0214,B0214 . @C@@@@ JM )@@G@@ SP '0220',E0220-B0220,B0220 . @C@@@@ SP '0222JN )@@G@@',E0222-B0222,B0222 . @C@@@@ SP '0229',E0229-B0229,B022JO )@@G@@9 . @C@@@@ SP '0305',E0305-B0305,B0305 . @C@@@@ JP )@@G@@ SP '0315',E0315-B0315,B0315 . @C@@@@ SP '0317JQ )@@G@@',E0317-B0317,B0317 . @C@@@@ SP '0320',E0320-B0320,B032JR )@@G@@0 . @C@@@] SP '0321',E0321-B0321,B0321 . @C@@@@ JS )@@G@@ SP '0401',E0401-B0401,B0401 . @C@@@@ SP '0403JT )@@G@@',E0403-B0403,B0403 @C@@@@ SP '0404',E0404-B0404,B040JU )@@G@@4 @C@@@@ SP '0405',E0405-B0405,B0405 @C@@@@ JV )@@G@@ SP '0406',E0406-B0406,B0406 . @C@@@@ SP '0407JW )@@G@@',E0407-B0407,B0407 . @C@@@@ SP '0409',E0409-B0409,B040JX )@@G@@9 . @C@@@@ SP '0412',E0412-B0412,B0412 . @C@@@@ JY )@@G@@ SP '0414',E0414-B0414,B0414 . @C@@@@ SP '0415JZ )@@G@@',E0415-B0415,B0415 . @C@@@@ SP '0418',E0418-B0418,B041KA )@@G@@8 . @C@@@@ SP '0419',E0419-B0419,B0419 . @C@@@] KB )@@G@@ SP '0428',E0428-B0428,B0428 . @C@@@@ SP '0501KC )@@G@@',E0501-B0501,B0501 . @C@@@@ SP '0503',E0503-B0503,B050KD )@@G@@3 . @C@@@@ SP '0508',E0508-B0508,B0508 . @C@@@] KE )@@G@@ SP '0512',E0512-B0512,B0512 . @C@@@@ SP '0517KF )@@G@@',E0517-B0517,B0517 . @C@@@@ SP '0526',E0526-B0526,B052KG )@@G@@6 . @C@@@] SP '0531',E0531-B0531,B0531 . @C@@@@ KH )@@G@@ SP '0606',E0606-B0606,B0606 . @C@@@@ SP '0610KI )@@G@@',E0610-B0610,B0610 . @C@@@] SP '0612',E0612-B0612,B06KJ )@@G@@12 . @C@@@@ SP '0617',E0617-B0617,B0617 . @C@@@] KK )@@G@@ SP '0619',E0619-B0619,B0619 . @C@@@@ SP '0618KL )@@G@@',E0618-B0618,B0618 . @C@@@@ SP '0625',E0625-B0625,B062KM )@@G@@5 . @C@@@@ SP '0704',E0704-B0704,B0704 . @C@@@@ KN )@@G@@ SP '0714',E0714-B0714,B0714 . @C@@@] SP '071KO )@@G@@7',E0717-B0717,B0717 . @C@@@@ SP '0720',E0720-B0720,B072KP )@@G@@0 . @C@@@] SP '0729',E0729-B0729,B0729 . @C@@@@ KQ )@@G@@ SP '0806',E0806-B0806,B0806 . @C@@@] SP '080KR )@@G@@7',E0807-B0807,B0807 . @C@@@@ SP '0814',E0814-B0814,B081KS )@@G@@4 . @C@@@] SP '0825',E0825-B0825,B0825 . @C@@@@ KT )@@G@@ SP '0826',E0826-B0826,B0826 . @C@@@@ SP '0827KU )@@G@@',E0827-B0827,B0827 . @C@@@@ SP '0830',E0830-B0830,B083KV )@@G@@0 . @C@@@@ SP '0901',E0901-B0901,B0901 . @C@@@@ KW )@@G@@ SP '0902',E0902-B0902,B0902 . @C@@@] SP '090KX )@@G@@6',E0906-B0906,B0906 . @C@@@] SP '0907',E0907-B0907,B09KY )@@G@@07 . @C@@@] SP '0911',E0911-B0911,B0911 . @C@@@] KZ )@@G@@ SP '0913',E0913-B0913,B0913 . @C@@@@ SP '0914LA )@@G@@',E0914-B0914,B0914 . @C@@@@ SP '0925',E0925-B0925,B092LB )@@G@@5 . @C@@@@ SP '1001',E1001-B1001,B1001 . @C@@@] LC )@@G@@ SP '1004',E1004-B1004,B1004 . @C@@@@ SP '100LD )@@G@@5',E1005-B1005,B1005 @C@@@@ SP '1009',E1009-B1009,B100LE )@@G@@9 . @C@@@@ SP '1012',E1012-B1012,B1012 . @C@@@@ LF )@@G@@ SP '1014',E1014-B1014,B1014 . @C@@@@ SP '1024LG )@@G@@',E1024-B1024,B1024 . @C@@@@ SP '1029',E1029-B1029,B102LH )@@G@@9 . @C@@@@ SP '1031',E1031-B1031,B1031 . @C@@@@ LI )@@G@@ SP '1111',E1111-B1111,B1111 . @C@@@@ SP '1119LJ )@@G@@',E1119-B1119,B1119 . @C@@@] SP '1124',E1124-B1124,B11LK )@@G@@24 . @C@@@] SP '1125',E1125-B1125,B1125 . @C@@@] LL )@@G@@ SP '1128',E1128-B1128,B1128 . @C@@@@ SP '1129LM )@@G@@',E1129-B1129,B1129 . @C@@@@ SP '1207',E1207-B1207,B120LN )@@G@@7 . @C@@@@ SP '1214',E1214-B1214,B1214 . @C@@@@ LO )@@G@@ SP '1217',E1217-B1217,B1217 . @C@@@@ SP '1221LP )@@G@@',E1221-B1221,B1221 . @C@@@@ SP '1224',E1224-B1224,B122LQ )@@G@@4 . @C@@@@ SP '1225',E1225-B1225,B1225 . @]@@@@ENDSPCLR )@@G@@. @^@@@@B0101 'HAPPY NEW YEAR'.@[@@@@E0101.@D@@@@B0105 'NELLIE LS )@@G@@ROSS FIRST WOMAN GOVERNOR 1925' @]@@@@E0105 . @B@@@@B0111 'ALT )@@G@@LEXANDER HAMILTON BORN 1757' @]@@@@E0111 . @B@@@@B0120 'PRESIDELU )@@G@@NTIAL INAUGURATION DAY' @]@@@@E0120 . @B@@@]B0123 'HAPPY BIRTHDAY LV )@@G@@SELDON JOHNSON' @]@@@]E0123 . @ @@@@B0131 'EXPLORER 1--1958'. LW )@@G@@@[@@@@E0131.@^@@@@B0202 'GROUND HOG DAY'.@[@@@@E0202.@ @@@@B0212 'A.LILX )@@G@@NCOLN--1809'. @[@@@@E0212.@ @@@@B0214 'ST. VALENTINE''S DAY'.@[@@@@LY )@@G@@E0214.@A@@@@B0220 'JOHN GLENN''S FLIGHT--1962'.@[@@@@E0220.@B@@@@B0222 LZ )@@G@@ 'GEORGE WASHINGTON''S BIRTHDAY'. @[@@@@E0222.@B@@@@B0229 'LEAP-YEMA )@@G@@AR DAY.' . @[@@@@E0229.@A@@@@B0305 'BPSTON MASSACRE - 1MB )@@G@@770' @]@@@@E0305 . @A@@@@B0315 'BEWARE: THE IDES OF MARCH'.@[@@@@MC )@@G@@E0315.@ @@@@B0317 'SAINT PATRICK''S DAY'.@[@@@@E0317.@ @@@@B0320 'SPRIMD )@@G@@NG HAS SPRUNG'. @[@@@@E0320.@B@@@]B0321 'HAPPY BIRTHDAY JERRY FANKHAUME )@@G@@SER' @]@@@]E0321 . @ @@@@B0401 'APRIL FOOLS DAY'. @[@@@@E0401.MF )@@G@@@A@@@@B0404 'JOHN NAPIER BORN 1550' @]@@@@E0404 . @B@@@@B0405 MG )@@G@@ 'POCAHONTAS MARRIED ROLFE 1614' @]@@@@E0405 . @A@@@@B0403 'NATOMH )@@G@@ DAY (MAC GETS OFF)' .@[@@@@E0403.@C@@@@B0406 'PEARY REACHES NORTH POMI )@@G@@LE IN 1909' . @[@@@@E0406.@D@@@@B0407 'OFFICIAL DATE OF CRUCIFIXIONMJ )@@G@@ IN 30 A.D.' . @[@@@@E0407.@E@@@@B0409 'APPOMATTOX DAY (THE SOUTMK )@@G@@H WILL RISE AGAIN)'. @[@@@@E0409.@A@@@@B0412 'FIRING ON FORT SUMTER'ML )@@G@@ . @[@@@@E0412.@B@@@@B0414 'LINCOLN ASSASINATED, 1865' . @[@@@@MM )@@G@@E0414.@^@@@@B0415 'HAPPY IRS DAY'. @[@@@@E0415.@B@]@@B0418 'SAN FRAMN )@@G@@NCISCO EARTHQUAKE 1906' @G@@@]B0418 'SAN FRANCISCO EARTHQUAKE 1906 -MO )@@G@@ HAPPY BIRTHDAY MARY FROST' @]@@@@E0418 . @D@@@@B0419 'TAXATION WMP )@@G@@ITHOUT REPRESENTATION MEANS WAR'. @[@@@@E0419.@A@@@]B0428 'HAPPY BIRTMQ )@@G@@HDAY LORA ELLIS' @]@@@]E0428 . @#@]@@B0501 'MAY DAY'. @C@@@]B0501 MR )@@G@@ 'MAY DAY - HAPPY BIRTHDAY MILFORD FORE'. @[@@@@E0501.@C@@@@B0503 'PMS )@@G@@OLAND ADOPTED CONSTITUTION 1791' @]@@@@E0503 . @B@@@]B0512 'HAPPMT )@@G@@Y BIRTHDAY TOM DICKERSON' . @]@@@]E0512 . @C@@@@B0526 'FIRST AMU )@@G@@MERICAN BANK CHARTERED 1781' @]@@@@E0526 . @B@@@]B0531 'HAPPY BIRTMV )@@G@@HDAY SHAN GRIFFIN' . @]@@@]E0531 . @#@@@@B0508 'V-E DAY'. @[@@@@MW )@@G@@E0508.@B@@@@B0517 'NORWEGIAN INDEPENDANCE DAY' . @[@@@@E0517.@#@@@@MX )@@G@@B0606 'D-DAY'. @[@@@@E0606.@F@@@@B0610 'WITHHOLDING TAX LAW SIGNEMY )@@G@@D 1943 : EAT YOUR HEART OUT' @]@@@@E0610 . @B@@@]B0612 'HAPPY BIRTMZ )@@G@@HDAY LEW EMRICK' . @]@@@]E0612 . @F@@@@B0617 'DON''T FIRE UNTINA )@@G@@L YOU SEE THE WHITE''S OF THEIR EYES'. @[@@@@E0617.@ @@@@B0618 'BATTNB )@@G@@LE OF WATERLOO' .@[@@@@E0618.@C@@@]B0619 'HAPPY BIRTHDAY WILLADEAN MARNC )@@G@@TIN' . @]@@@]E0619 . @A@@@@B0625 'CUSTER''S LAST STAND' ND )@@G@@@]@@@@E0625 . @B@@@@B0704 'INDEPENDENCE DAY.' . @[@@@@NE )@@G@@E0704.@^@@@@B0714 'BASTILLE DAY'. @[@@@@E0714.@B@@@]B0717 'HAPPY BIRTNF )@@G@@HDAY PETE PATTERSON' . @]@@@]E0717 . @ @@@@B0720 '1ST MAN ON THE MNG )@@G@@OON'. @[@@@@E0720.@B@@@]B0729 'HAPPY BIRTHDAY AL MALCUIT' . @]@@@]NH )@@G@@E0729 . @^@@@@B0806 'FRIENDSHIP DAY'.@[@@@@E0806.@B@@@]B0807 'HAPPNI )@@G@@Y BIRTHDAY ELLA MITCHELL' . @]@@@]E0807 . @#@@@@B0814 'V-J DAY'. NJ )@@G@@@[@@@@E0814.@E@@@]B0825 'HAPPY BIRTHDAY CHUCK OHL AND BRUCE SCHREIBER' NK )@@G@@. @]@@@]E0825 . @A@@@@B0826 'WOMEN''S SUFFRAGE--1920'. @[@@@@NL )@@G@@E0826.@^@@@@B0827 'FIRST OILWELL'. @[@@@@E0827.@A@@@@B0830 'CLEOPATNM )@@G@@RA DIED 30 B.C.' @[@@@@E0830 @ @@@@B0901 'INVASION OF POLAND'. @[@@@@NN )@@G@@E0901.@C@@@@B0902 'SURRENDER SIGNED, U.S.S. MISSOURI'. @[@@@@E0902.NO )@@G@@@B@@@]B0906 'HAPPY BIRTHDAY ROZANNE CANTWELL' .@]@@@]E0906 . @D@@@]NP )@@G@@B0907 'HAPPY BIRTHDAY KATHY NOLAN AND JACK RUNYON' .@]@@@]E0907 . NQ )@@G@@@B@@@]B0911 'HAPPY BIRTHDAY DIANE KISER' . @]@@@]E0911 . @B@@@]NR )@@G@@B0913 'HAPPY BIRTHDAY STEVE WINKELJOHN' .@]@@@]E0913 . @C@@@@B0914 NS )@@G@@ 'STAR-SPANGLED BANNER WRITTEN--1814'. @[@@@@E0914.@B@@@@B0924 'BNT )@@G@@LACK FRIDAY IN N.Y. 1869' @]@@@@E0924 . @E@@@@B0925 'BALBOA NU )@@G@@DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @[@@@@E0925.@B@@@@B1001 'HAPPNV )@@G@@Y NEW FISCAL YEAR (OCS DAY)'. @[@@@@E1001.@A@@@]B1004 'HAPPY BIRTHDAY JNW )@@G@@IM VOLPI' . @]@@@]E1004 . @A@@@@B1005 'HAPPY BIRTHDAY DAVID' NX )@@G@@@]@@@@E1005 . @ @@@@B1009 'LIEF ERIKSON DAY'. @[@@@@E1009.@^@@@@NY )@@G@@B1012 'COLUMBUS DAY'. @[@@@@E1012.@A@@@@B1014 'BATTLE OF HASTINGS, 10NZ )@@G@@66' .@[@@@@E1014.@ @@@@B1024 'UNITED NATIONS DAY'. @[@@@@E1024.@A@@@@OA )@@G@@B1029 'STOCK MARKET CRASH 1929' @]@@@@E1029 . @F@]@@B1031 'AOB )@@G@@LL HALLOWS EVE ''BET YOU THO''T IT WAS HALLOWEEN' @E@@@]B1031 'HAPPOC )@@G@@Y HALLOWEEN - HAPPY BIRTHDAY CLAUDE STAPLETON' @[@@@@E1031.@^@@@@B1111 OD )@@G@@ 'ARMISTICE DAY'. @[@@@@E1111.@E@@@@B1119 'FORE-SCORE AND SEVEN ... PEROE )@@G@@ISH FROM THIS EARTH'. @[@@@@E1119.@E@@@]B1124 'HAPPY BIRTHDAY LULA MOOF )@@G@@RELAND AND CLARICE WILLIAMSON'@]@@@]E1124 . @B@@@]B1125 'HAPPY BIRTOG )@@G@@HDAY BILL MCMURRAY' @]@@@]E1125 . @A@@@]B1128 'HAPPY BIRTHDAY ROH )@@G@@ON WAGNER' @]@@@]E1128 . @A@@@@B1129 'SAND CREEK MASSACRE 1864'OI )@@G@@@]@@@@E1129 . @^@@@@B1207 'DAY-OF-INFAMY'. @[@@@@E1207.@C@@@@B1214 OJ )@@G@@ 'AMUNDSON REACHES SOUTH POLE, 1911' . @[@@@@E1214.@A@@@@B1217 'FIRSOK )@@G@@T POWERED FLIGHT--1903'.@[@@@@E1217.@A@@@@B1221 'PLYMOUTH ROCK STEPPED OL )@@G@@ON'. @[@@@@E1221.@A@@@@B1224 'HAPPY BIRTHDAY ANITA' @]@@@@E1224 OM )@@G@@ . @ @@@@B1225 'MERRY CHRISTMAS'. @[@@@@E1225.@B@@@@ ENDON )@@G@@ . ___ ' SEPTEMBER ' . LOAOO )@@G@@DED @C@@@@ ' OCTOBER ' . INTO @B@@@@ OP )@@G@@*[S@@@*SDFF*@[@@@@. @G@@@@. THIS ROUTINE OBTAINS THE CURRENT DATE ANOQ )@@G@@D TIME FROM THE SYSTEM AND @G@@@@. COMPUTES THE CURRENT MONTH AND DAYOR )@@G@@ OF THE WEEK. IT ALSO PRODUCES @G@@@@. SPECIAL MESSAGES ON APPROPRIOS )@@G@@ATE DAYS OF THE YEAR. NOW ISN'T THAT @^@@@@. REALLY GOOD AND NICE? OT )@@G@@@[@@@@. @B@@@@ AXR$ . @[@@@@. OU )@@G@@@C@@@@. THIS PROC IS TO SET UP THE SPECIAL MESSAGES. @[@@@@. @]@@@@OV )@@G@@SP* PROC 1. @ @@@@ + SP(1,1). @B@@@@ + OW )@@G@@ SP(1,2)-1,SP(1,3). @#@@@@ END. @B@@@@P FORM OX )@@G@@ 12,6,18 . @[@@@@$(1) @G@@@@SIGTUR* ER DATE$ OY )@@G@@ . GET DATE AND TIME FROM SYSTEM @F@@@@ SA A0,DAOZ )@@G@@TE . STORE DATE IN TEMP LOCATION@F@@@@ SA A1,TIPA )@@G@@ME . STORE TIME IN TEMP LOCATION@G@@@@ ER TDATEPB )@@G@@$ . GET BIN DATE FOR MONTH SEARCH @G@@@@ SA PC )@@G@@ A0,TDATE . STORE BIN DATE IN TEMP LOCATION @F@@@@ SSLPD )@@G@@ A0,30 . SHIFT FOR MONTH SEARCH @D@@@@ SSLPE )@@G@@ A1,24 . SHIFT FOR HOUR @H@@@@ MSI,U A0,2 PF )@@G@@ . DOUBLE THE INDEX FOR DOUBLE WRD MONTHS @E@@@@ DL PG )@@G@@ A2,MNTH,A0 . LOAD THE PROPER MONTH@E@@@@ DS PH )@@G@@ A2,MONTH . STORE MONTH IN PACKET@E@@@@ LA,T2 A0,DAPI )@@G@@TE . LOAD DAY OF MONTH @E@@@@ SA,T1 A0,DAYYR PJ )@@G@@ . STORE DAY IN PACKET @F@@@@ LA,T3 A0,DATE PK )@@G@@ . LOAD YEAR (LAST TWO DIGITS)@D@@@@ SA,T1 A0,DAYYR+1 PL )@@G@@ . STORE IN PACKET@E@@@@ SA,T2 A1,HRMIN . STORE HOUPM )@@G@@RS IN PACKET@E@@@@ LA,S3 A1,TIME . LOAD 1ST DIGIT PN )@@G@@OF MIN@D@@@@ SA,S6 A1,HRMIN . STORE IN PACKET@E@@@@PO )@@G@@ LA,S4 A1,TIME . LOAD 2ND DIGIT OF MIN@D@@@@ PP )@@G@@ SA,S1 A1,MINSEC . STORE IN PACKET@D@@@@ LA,T3 PQ )@@G@@ A1,TIME . LOAD SECONDS @D@@@@ SA,T2 A1,MINSEC PR )@@G@@ . STORE IN PACKET@D@@@@/. THIS PART COMPUTES THE PROPER DAY OF THPS )@@G@@E WEEK. @E@@@@. THIS ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR PT )@@G@@2069. @G@@@@. IT ACCOUNTS FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILLPU )@@G@@ CHANGE THE @G@@@@. CENTURY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCPV )@@G@@URS. SOME OF THE @G@@@@. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BIPW )@@G@@T LIKE FUDGING ONLY @#@@@@. MUCH STICKIER. @[@@@@. @F@@@@ PX )@@G@@ LA,S1 A0,TDATE . LOAD THE CURRENT MONTH @H@@@@ PY )@@G@@ LA A6,OFFSET-1,A0 . LOAD THE OFFSET. THE OFFSET IS THE PZ )@@G@@@H@@@@ AA,S2 A6,TDATE . SUM OF THE DAYS IN THE MONTQA )@@G@@HS PROCEDING@I@@@@ . THE CURRENT ONEQB )@@G@@ AND ADD TODAYS DATE TO IT @H@@@@ LA,U A8,72 QC )@@G@@ . LOAD THE 1ST LEAP YR AFTER THIS WRIT @G@@@@ LA,S3 A9,TDQD )@@G@@ATE . LOAD THE CURRENT YEAR (MODULO 64)@E@@@@ AA,U QE )@@G@@ A9,64 . BRING IT UP TO DATE @[@@@@. @E@@@@. THIS PART QF )@@G@@DETERMINES WHETHER WE HAVE A LEAP YEAR OR NOT. @[@@@@. @E@@@@TEST1 QG )@@G@@ TG A8,A9 . IS CURRENT YEAR < 72?@F@@@@ J QH )@@G@@ TEST2 . NO, GO DO THE NEXT TEST @E@@@@ AA,QI )@@G@@U A8,4 . YES, ADD 4 TO BASE 72@F@@@@ J QJ )@@G@@ TEST1 . GO BACK AND TEST AGAIN @D@@@@TEST2 TE QK )@@G@@ A8,A9 . ARE THEY EQUAL?@G@@@@ J TEST3 QL )@@G@@ . NO, NOT A LEAP YEAR, KEEP GOING @G@@@@ ANA,U A0,3 QM )@@G@@ . YES, SEE WHAT MONTH WE ARE IN @G@@@@ JP QN )@@G@@ A0,$+3 . AFTER MARCH, NEED AN EXTRA DAY @G@@@@ JZ QO )@@G@@ A0,$+2 . IT IS MARCH, NEED AN EXTRA DAY @H@@@@ QP )@@G@@ J TEST3 . NO, MUST BE JAN OR FEB, NO EXTRA DAY QQ )@@G@@@E@@@@ AA,U A6,1 . ADD THE EXTRA DAY @H@@@@QR )@@G@@TEST3 DSA A6,36 . NOW TAKE OUT THE WEEKS PRIOR TO TQS )@@G@@HIS @G@@@@ DI,U A6,7 . ONE AND SAVE THE REMAQT )@@G@@INDER IN A7 @B@@@@. NOW LET'S CHECK WHAT CENTURY WE'RE IN @F@@@@ QU )@@G@@ LA,S3 A10,TDATE . LOAD THE YEAR (MODULO 64) @D@@@@ QV )@@G@@ ANA,U A10,6 . BIAS IT BY 70 @C@@@@ JP QW )@@G@@ A10,$+5 . < 70? @C@@@@ JZ A10,$+4 QX )@@G@@ . = 70? @D@@@@ AA,U A10,100 . MUST BE < 2000 QY )@@G@@@E@@@@ LA,U A11,20 . LOAD THE NEW CENTURY @E@@@@QZ )@@G@@ SA,T3 A11,DAYYR . CHANGE THE PACKET @[@@@@. RA )@@G@@@H@@@@. THIS SECTION COMPUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRRB )@@G@@ENT YEAR @G@@@@. YEAR FELL ON. THIS THEN COMBINED WITH THE REMAINDERRC )@@G@@ OF THE OFFSET TO @B@@@@. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@@RD )@@G@@. @C@@@@ LA A9,A10 . SAVE A10 @H@@@@ RE )@@G@@ AA,U A10,1 . ADD ONE TO THE YEAR (FUDGING AGAIN) RF )@@G@@@C@@@@ DSA A10,36 . SHIFT IT @C@@@@ DI,RG )@@G@@U A10,4 . FUDGE IT @C@@@@ AA,U A9,4 RH )@@G@@ . PUT IT @D@@@@ AA A9,A10 . ALL TOGETRI )@@G@@HER @D@@@@ DSA A9,36 . SHIFT IT AGAIN @E@@@@RJ )@@G@@ DI,U A9,7 . ELIMINATE THE WEEKS @E@@@@ RK )@@G@@ AA A7,A10 . ADD THE REMAINDERS @E@@@@ LARL )@@G@@,U A8,07 . SEE IF NUMBER IS @E@@@@ TLE RM )@@G@@ A8,A7 . GREATER THAN SEVEN @E@@@@ ANA,U A7,7 RN )@@G@@ . YES, TAKE 7 AWAY @F@@@@ ANA,U A7,1 RO )@@G@@ . MODIFY IT FOR TWO WORDS @D@@@@ MSI,U A7,2 RP )@@G@@ . AND DOUBLE IT @F@@@@ LX X1,A7 . LOARQ )@@G@@D THE INDEX REGISTER @F@@@@ DL A3,DAYOFWK,X1 . LOARR )@@G@@D THE DAY OF THE WEEK @F@@@@ DS A3,DAYWEEK . STORS )@@G@@RE DAY OF WEEK IN PACKET@C@@@@. THIS SECTION SEES IF WE HAVE A SPECIAL MRT )@@G@@ESSAGE@D@@@@ L A0,DATE . LOAD THE DATE @G@@@@RU )@@G@@ SSL A0,12 . SHIFT IT TO GET RID OF THE YEAR RV )@@G@@@F@@@@ LXI,U X1,2 . SET UP INDEX REGISTER FOR RW )@@G@@@C@@@@ LXM,U X1,0 . SEARCH @H@@@@ L,URX )@@G@@ R1,(ENDSPC-SPCLST)/2 . LOAD THE LENGTH OF THE TABLE @F@@@@RY )@@G@@ SE A0,SPCLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@@RZ )@@G@@ J PRINT . NO, GO PRINT THE SIGNATURE @F@@@@SA )@@G@@ L,H1 R1,SPCLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@@SB )@@G@@ L X2,SPCLST-1,X1 . LOAD THE LOCATION @D@@@@ SC )@@G@@ LXI,U X2,1 . SET UP THE @D@@@@ LXI,U SD )@@G@@ X3,1 . INCREMENTS @F@@@@ LXM,U X3,MSG SE )@@G@@ . LOAD WHERE TO STORE IT @D@@@@RPT LA A1,0,*X2 SF )@@G@@ . LOAD AND STORE @E@@@@ SA A1,0,*X3 . THESG )@@G@@ MESSAGE, ONE @D@@@@ JGD R1,RPT . WORD AT ASH )@@G@@ TIME @F@@@@PRINT LA A0,(P 1,22,SIG) . LOAD THE SIGNATURE PASI )@@G@@CKET @E@@@@ ER PRINT$ . WRITE OUT SIGNATURE SJ )@@G@@@C@@@@ J 0,X11 . RETURN @[@@@@/. @]@@@@SK )@@G@@$(0) . @C@@[@SIG 'BPD/CPD 03F' . SIGNATURE PACKET @D[@@@SL )@@G@@DAYWEEK ' ' . DAY OF THE WEEK@D@@@@MONTH ' SM )@@G@@ ' . CURRENT MONTH @D@@@@DAYYR ' , 19 ' SN )@@G@@ . DATE AND YEAR @G@@@@HRMIN ' : ' SO )@@G@@ . HOUR AND 1ST DIGIT OF MINUTE @G@@@@MINSEC ' : ' SP )@@G@@ . 2ND DIGIT OF MINUTE AND SECONDS @F@@@@ ' ' SQ )@@G@@ . BLANK FOR SIGNATURE LINE @C@@@@MSG ' SR )@@G@@ ' . SPECIAL @C@@@@ ' ' . MESSS )@@G@@SAGE @C@@@@ ' ' . PACKET @D@@@@DATE ST )@@G@@ + 0 . DATE SAVE AREA @D@@@@TIME + SU )@@G@@ 0 . TIME SAVE AREA @E@@@@TDATE + 0 SV )@@G@@ . BINARY DATE SAVE AREA@C@@@@OFFSET + 0 SW )@@G@@ . TABLE @B@@@@ + 31 . OF @C@@@@ SX )@@G@@ + 59 . OFFSETS @B@@@@ + 90 SY )@@G@@ . TO @C@@@@ + 120 . COMPUTE SZ )@@G@@@C@@@@ + 151 . WHAT @B@@@@ + TA )@@G@@ 181 . DAY@B@@@@ + 212 TB )@@G@@ . OF @B@@@@ + 243 . THE@C@@@@ + TC )@@G@@ 273 . WEEK @B@@@@ + 304 TD )@@G@@ . IT @B@@@@ + 334 . IS @C@@@@DAYOFWTE )@@G@@K ' SUNDAY' . ACTUAL @B@@@@ ' MONDAY' TF )@@G@@ . DAY@B@@@@ ' TUESDAY' . OF @B@@@@TG )@@G@@ ' WEDNESDAY' . THE@C@@@@ ' THURSDAY' TH )@@G@@ . WEEK @C@@@@ ' FRIDAY' . LISTI )@@G@@TING @C@@@@ ' SATURDAY' . TABLE @C@@@@MNTH TJ )@@G@@ ' ' . DUMMY @C@@@@ ' JANUARY ' TK )@@G@@ . ACTUAL @C@@@@ ' FEBRUARY ' . MONTL )@@G@@TH @B@@@@ ' MARCH ' . OF @B@@@@ ' TM )@@G@@ APRIL ' . THE@C@@@@ ' MAY ' TN )@@G@@ . CURRENT @C@@@@ ' JUNE ' . YEAR @B@@@@TO )@@G@@ ' JULY ' . TO @B@@@@ ' AUGUST ' TP )@@G@@ . BE @C@@@@ ' SEPTEMBER ' . LOADED TQ )@@G@@@C@@@@ ' OCTOBER ' . INTO @B@@@@ ' TR )@@G@@ NOVEMBER ' . THE@C@@@@ ' DECEMBER ' TS )@@G@@ . PACKET @F@@@@/. SPECIAL DATE SECTION. CPD CAN PLAY GAMES BYTT )@@G@@ ADDING A @G@@@@. COMMENT TO SPECIAL DATES SUCH AS HALLOW5EN 6TU )@@G@@9+1PI93+6663(2 @D@@@@. DAY OR ST. SWITHEN'S DAY, OR WHAT HAVETV )@@G@@ YOU. @E@@@@. TABLES ARE GENERATED BY PROC 'SP'. TYPICAL CALL. TW )@@G@@@[@@@@. @A@@@@. SP '1031',2,HALMSG. @[@@@@. @F@@@@TX )@@G@@. WHERE 1031 IS HALLOWEEN, OCT. 31, 2 IS THE COUNT OF THE @G@@@@TY )@@G@@. WORDS IN THE HALLOWEEN MESSAGE, AND HALMSG IS THE LOCATION TZ )@@G@@@C@@@@. OF THE FIRST WORD OF THE MESSAGE. @E@@@@. THUA )@@G@@E COMMENT IS PUT AT THE END OF THE DATE LINE. @[@@@@. @]@@@@SPCLSTUB )@@G@@. @C@@@@ SP '0101',E0101-B0101,B0101 . @C@@@@ UC )@@G@@ SP '0105',E0105-B0105,B0105 . @C@@@@ SP '0120UD )@@G@@',E0120-B0120,B0120 . @C@@@@ SP '0123',E0123-B0123,B01UE )@@G@@20 . @C@@@@ SP '0131',E0131-B0131,B0131 . @C@@@@ UF )@@G@@ SP '0202',E0202-B0202,B0202 . @C@@@@ SP '0212UG )@@G@@',E0212-B0212,B0212 . @C@@@@ SP '0214',E0214-B0214,B021UH )@@G@@4 . @C@@@@ SP '0220',E0220-B0220,B0220 . @C@@@@ UI )@@G@@ SP '0222',E0222-B0222,B0222 . @C@@@@ SP '0229UJ )@@G@@',E0229-B0229,B0229 . @C@@@@ SP '0305',E0305-B0305,B030UK )@@G@@5 . @C@@@@ SP '0315',E0315-B0315,B0315 . @C@@@@ UL )@@G@@ SP '0317',E0317-B0317,B0317 . @C@@@@ SP '0320UM )@@G@@',E0320-B0320,B0320 . @C@@@@ SP '0321',E0321-B0321,B03UN )@@G@@21 . @C@@@@ SP '0401',E0401-B0401,B0401 . @C@@@@ UO )@@G@@ SP '0403',E0403-B0403,B0403 @C@@@@ SP '0404UP )@@G@@',E0404-B0404,B0404 @C@@@@ SP '0405',E0405-B0405,B040UQ )@@G@@5 @C@@@@ SP '0406',E0406-B0406,B0406 . @C@@@@ UR )@@G@@ SP '0407',E0407-B0407,B0407 . @C@@@@ SP '0409US )@@G@@',E0409-B0409,B0409 . @C@@@@ SP '0412',E0412-B0412,B041UT )@@G@@2 . @C@@@@ SP '0414',E0414-B0414,B0414 . @C@@@@ UU )@@G@@ SP '0415',E0415-B0415,B0415 . @C@@@@ SP '0418UV )@@G@@',E0418-B0418,B0418 . @C@@@@ SP '0419',E0419-B0419,B041UW )@@G@@9 . @C@@@@ SP '0428',E0428-B0428,B0428 . @C@@@@ UX )@@G@@ SP '0501',E0501-B0501,B0501 . @C@@@@ SP '0503UY )@@G@@',E0503-B0503,B0503 . @C@@@@ SP '0508',E0508-B0508,B050UZ )@@G@@8 . @C@@@@ SP '0512',E0512-B0512,B0512 . @C@@@@ VA )@@G@@ SP '0517',E0517-B0517,B0517 . @C@@@@ SP '0526VB )@@G@@',E0526-B0526,B0526 . @C@@@@ SP '0531',E0531-B0531,B05VC )@@G@@31 . @C@@@@ SP '0606',E0606-B0606,B0606 . @C@@@@ VD )@@G@@ SP '0610',E0610-B0610,B0610 . @C@@@@ SP '061VE )@@G@@2',E0612-B0612,B0612 . @C@@@@ SP '0617',E0617-B0617,B061VF )@@G@@7 . @C@@@@ SP '0619',E0619-B0619,B0619 . @C@@@@ VG )@@G@@ SP '0618',E0618-B0618,B0618 . @C@@@@ SP '0625VH )@@G@@',E0625-B0625,B0625 . @C@@@@ SP '0704',E0704-B0704,B070VI )@@G@@4 . @C@@@@ SP '0714',E0714-B0714,B0714 . @C@@@@ VJ )@@G@@ SP '0717',E0717-B0717,B0717 . @C@@@@ SP '0720VK )@@G@@',E0720-B0720,B0720 . @C@@@@ SP '0729',E0729-B0729,B07VL )@@G@@29 . @C@@@@ SP '0806',E0806-B0806,B0806 . @C@@@@ VM )@@G@@ SP '0807',E0807-B0807,B0807 . @C@@@@ SP '0814VN )@@G@@',E0814-B0814,B0814 . @C@@@@ SP '0825',E0825-B0825,B08VO )@@G@@25 . @C@@@@ SP '0826',E0826-B0826,B0826 . @C@@@@ VP )@@G@@ SP '0827',E0827-B0827,B0827 . @C@@@@ SP '0830VQ )@@G@@',E0830-B0830,B0830 . @C@@@@ SP '0901',E0901-B0901,B090VR )@@G@@1 . @C@@@@ SP '0902',E0902-B0902,B0902 . @C@@@@ VS )@@G@@ SP '0906',E0906-B0906,B0906 . @C@@@@ SP '090VT )@@G@@7',E0907-B0907,B0907 . @C@@@@ SP '0911',E0911-B0911,B09VU )@@G@@11 . @C@@@@ SP '0913',E0913-B0913,B0913 . @C@@@@ VV )@@G@@ SP '0914',E0914-B0914,B0914 . @C@@@@ SP '0925VW )@@G@@',E0925-B0925,B0925 . @C@@@@ SP '1001',E1001-B1001,B100VX )@@G@@1 . @C@@@@ SP '1004',E1004-B1004,B1004 . @C@@@@ VY )@@G@@ SP '1005',E1005-B1005,B1005 @C@@@@ SP '1009VZ )@@G@@',E1009-B1009,B1009 . @C@@@@ SP '1012',E1012-B1012,B101WA )@@G@@2 . @C@@@@ SP '1014',E1014-B1014,B1014 . @C@@@@ WB )@@G@@ SP '1024',E1024-B1024,B1024 . @C@@@@ SP '1029WC )@@G@@',E1029-B1029,B1029 . @C@@@@ SP '1031',E1031-B1031,B103WD )@@G@@1 . @C@@@@ SP '1111',E1111-B1111,B1111 . @C@@@@ WE )@@G@@ SP '1119',E1119-B1119,B1119 . @C@@@@ SP '112WF )@@G@@4',E1124-B1124,B1124 . @C@@@@ SP '1125',E1125-B1125,B11WG )@@G@@25 . @C@@@@ SP '1128',E1128-B1128,B1128 . @C@@@@ WH )@@G@@ SP '1129',E1129-B1129,B1129 . @C@@@@ SP '1207WI )@@G@@',E1207-B1207,B1207 . @C@@@@ SP '1214',E1214-B1214,B121WJ )@@G@@4 . @C@@@@ SP '1217',E1217-B1217,B1217 . @C@@@@ WK )@@G@@ SP '1221',E1221-B1221,B1221 . @C@@@@ SP '1224WL )@@G@@',E1224-B1224,B1224 . @C@@@@ SP '1225',E1225-B1225,B122WM )@@G@@5 . @]@@@@ENDSPC. @^@@@@B0101 'HAPPY NEW YEAR'.@[@@@@E0101.@D@@@@WN )@@G@@B0105 'NELLIE ROSS FIRST WOMAN GOVERNOR 1925' @]@@@@E0105 . WO )@@G@@@B@@@@B0111 'ALEXANDER HAMILTON BORN 1757' @]@@@@E0111 . @B@@@@WP )@@G@@B0120 'PRESIDENTIAL INAUGURATION DAY' @]@@@@E0120 . @B@@@@B0123 WQ )@@G@@ 'HAPPY BIRTHDAY SELDON JOHNSON' @]@@@@E0123 . @ @@@@B0131 'EXPLWR )@@G@@ORER 1--1958'. @[@@@@E0131.@^@@@@B0202 'GROUND HOG DAY'.@[@@@@E0202.WS )@@G@@@ @@@@B0212 'A.LINCOLN--1809'. @[@@@@E0212.@ @@@@B0214 'ST. VALENTWT )@@G@@INE''S DAY'.@[@@@@E0214.@A@@@@B0220 'JOHN GLENN''S FLIGHT--1962'.@[@@@@WU )@@G@@E0220.@B@@@@B0222 'GEORGE WASHINGTON''S BIRTHDAY'. @[@@@@E0222.@B@@@@WV )@@G@@B0229 'LEAP-YEAR DAY.' . @[@@@@E0229.@A@@@@B0305 'BWW )@@G@@PSTON MASSACRE - 1770' @]@@@@E0305 . @A@@@@B0315 'BEWARE: THE IDEWX )@@G@@S OF MARCH'.@[@@@@E0315.@ @@@@B0317 'SAINT PATRICK''S DAY'.@[@@@@E0317.WY )@@G@@@ @@@@B0320 'SPRING HAS SPRUNG'. @[@@@@E0320.@B@@@@B0321 'HAPPY BIRTWZ )@@G@@HDAY JERRY FANKHAUSER' @]@@@@E0321 . @ @@@@B0401 'APRIL FOOLS DAY'XA )@@G@@. @[@@@@E0401.@A@@@@B0404 'JOHN NAPIER BORN 1550' @]@@@@E0404 XB )@@G@@ . @B@@@@B0405 'POCAHONTAS MARRIED ROLFE 1614' @]@@@@E0405 . XC )@@G@@@A@@@@B0403 'NATO DAY (MAC GETS OFF)' .@[@@@@E0403.@C@@@@B0406 'PEARXD )@@G@@Y REACHES NORTH POLE IN 1909' . @[@@@@E0406.@D@@@@B0407 'OFFICIAL DXE )@@G@@ATE OF CRUCIFIXION IN 30 A.D.' . @[@@@@E0407.@E@@@@B0409 'APPOMATXF )@@G@@TOX DAY (THE SOUTH WILL RISE AGAIN)'. @[@@@@E0409.@A@@@@B0412 'FIRIXG )@@G@@NG ON FORT SUMTER' . @[@@@@E0412.@B@@@@B0414 'LINCOLN ASSASINATED, 1XH )@@G@@865' . @[@@@@E0414.@^@@@@B0415 'HAPPY IRS DAY'. @[@@@@E0415.@G@@@@XI )@@G@@B0418 'SAN FRANCISCO EARTHQUAKE 1906 - HAPPY BIRTHDAY MARY FROST' XJ )@@G@@@]@@@@E0418 . @D@@@@B0419 'TAXATION WITHOUT REPRESENTATION MEANS WAXK )@@G@@R'. @[@@@@E0419.@A@@@@B0428 'HAPPY BIRTHDAY LORA ELLIS' @]@@@@E0428 XL )@@G@@ . @C@@@@B0501 'MAY DAY - HAPPY BIRTHDAY MILFORD FORE'. @[@@@@E0501.XM )@@G@@@C@@@@B0503 'POLAND ADOPTED CONSTITUTION 1791' @]@@@@E0503 . XN )@@G@@@B@@@@B0512 'HAPPY BIRTHDAY TOM DICKERSON' . @]@@@@E0512 . @C@@@@XO )@@G@@B0526 'FIRST AMERICAN BANK CHARTERED 1781' @]@@@@E0526 . @B@@@@XP )@@G@@B0531 'HAPPY BIRTHDAY SHAN GRIFFIN' . @]@@@@E0531 . @#@@@@B0508 XQ )@@G@@ 'V-E DAY'. @[@@@@E0508.@B@@@@B0517 'NORWEGIAN INDEPENDANCE DAY' . XR )@@G@@@[@@@@E0517.@#@@@@B0606 'D-DAY'. @[@@@@E0606.@F@@@@B0610 'WITHHOLXS )@@G@@DING TAX LAW SIGNED 1943 : EAT YOUR HEART OUT' @]@@@@E0610 . @B@@@@XT )@@G@@B0612 'HAPPY BIRTHDAY LEW EMRICK' . @]@@@@E0612 . @F@@@@B0617 XU )@@G@@ 'DON''T FIRE UNTIL YOU SEE THE WHITE''S OF THEIR EYES'. @[@@@@E0617.XV )@@G@@@ @@@@B0618 'BATTLE OF WATERLOO' .@[@@@@E0618.@C@@@@B0619 'HAPPY BIRTXW )@@G@@HDAY WILLADEAN MARTIN' . @]@@@@E0619 . @A@@@@B0625 'CUSTER'XX )@@G@@'S LAST STAND' @]@@@@E0625 . @B@@@@B0704 'INDEPENDENCE DAY.' XY )@@G@@ . @[@@@@E0704.@^@@@@B0714 'BASTILLE DAY'. @[@@@@E0714.@B@@@@XZ )@@G@@B0717 'HAPPY BIRTHDAY PETE PATTERSON' . @]@@@@E0717 . @ @@@@B0720 YA )@@G@@ '1ST MAN ON THE MOON'. @[@@@@E0720.@B@@@@B0729 'HAPPY BIRTHDAY AL MALCYB )@@G@@UIT' . @]@@@@E0729 . @^@@@@B0806 'FRIENDSHIP DAY'.@[@@@@E0806.YC )@@G@@@B@@@@B0807 'HAPPY BIRTHDAY ELLA MITCHELL' . @]@@@@E0807 . @#@@@@YD )@@G@@B0814 'V-J DAY'. @[@@@@E0814.@E@@@@B0825 'HAPPY BIRTHDAY CHUCK OHL ANDYE )@@G@@ BRUCE SCHREIBER' . @]@@@@E0825 . @A@@@@B0826 'WOMEN''S SUFFRAGYF )@@G@@E--1920'. @[@@@@E0826.@^@@@@B0827 'FIRST OILWELL'. @[@@@@E0827.@A@@@@YG )@@G@@B0830 'CLEOPATRA DIED 30 B.C.' @[@@@@E0830 @ @@@@B0901 'INVASION OYH )@@G@@F POLAND'. @[@@@@E0901.@C@@@@B0902 'SURRENDER SIGNED, U.S.S. MISSOURI'YI )@@G@@. @[@@@@E0902.@B@@@@B0906 'HAPPY BIRTHDAY ROZANNE CANTWELL' .@]@@@@YJ )@@G@@E0906 . @D@@@@B0907 'HAPPY BIRTHDAY KATHY NOLAN AND JACK RUNYON' .YK )@@G@@@]@@@@E0907 . @B@@@@B0911 'HAPPY BIRTHDAY DIANE KISER' . @]@@@@YL )@@G@@E0911 . @B@@@@B0913 'HAPPY BIRTHDAY STEVE WINKELJOHN' .@]@@@@E0913 YM )@@G@@ . @C@@@@B0914 'STAR-SPANGLED BANNER WRITTEN--1814'. @[@@@@E0914.YN )@@G@@@B@@@@B0924 'BLACK FRIDAY IN N.Y. 1869' @]@@@@E0924 . @E@@@@YO )@@G@@B0925 'BALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @[@@@@E0925.YP )@@G@@@B@@@@B1001 'HAPPY NEW FISCAL YEAR (OCS DAY)'. @[@@@@E1001.@A@@@@B1004 YQ )@@G@@ 'HAPPY BIRTHDAY JIM VOLPI' . @]@@@@E1004 . @A@@@@B1005 'HAPPY BYR )@@G@@IRTHDAY DAVID' @]@@@@E1005 . @ @@@@B1009 'LIEF ERIKSON DAY'. YS )@@G@@@[@@@@E1009.@^@@@@B1012 'COLUMBUS DAY'. @[@@@@E1012.@A@@@@B1014 'BATTYT )@@G@@LE OF HASTINGS, 1066' .@[@@@@E1014.@ @@@@B1024 'UNITED NATIONS DAY'. YU )@@G@@@[@@@@E1024.@A@@@@B1029 'STOCK MARKET CRASH 1929' @]@@@@E1029 . YV )@@G@@@E@@@@B1031 'HAPPY HALLOWEEN - HAPPY BIRTHDAY CLAUDE STAPLETON' @[@@@@YW )@@G@@E1031.@^@@@@B1111 'ARMISTICE DAY'. @[@@@@E1111.@E@@@@B1119 'FORE-SCOREYX )@@G@@ AND SEVEN ... PERISH FROM THIS EARTH'. @[@@@@E1119.@E@@@@B1124 'HAPPYY )@@G@@Y BIRTHDAY LULA MORELAND AND CLARICE WILLIAMSON'@]@@@@E1124 . @B@@@@YZ )@@G@@B1125 'HAPPY BIRTHDAY BILL MCMURRAY' @]@@@@E1125 . @A@@@@B1128 ZA )@@G@@ 'HAPPY BIRTHDAY RON WAGNER' @]@@@@E1128 . @A@@@@B1129 'SAND CRZB )@@G@@EEK MASSACRE 1864'@]@@@@E1129 . @^@@@@B1207 'DAY-OF-INFAMY'. @[@@@@ZC )@@G@@E1207.@C@@@@B1214 'AMUNDSON REACHES SOUTH POLE, 1911' . @[@@@@E1214.ZD )@@G@@@A@@@@B1217 'FIRST POWERED FLIGHT--1903'.@[@@@@E1217.@A@@@@B1221 'PLYMZE )@@G@@OUTH ROCK STEPPED ON'. @[@@@@E1221.@A@@@@B1224 'HAPPY BIRTHDAY ANITZF )@@G@@A' @]@@@@E1224 . @ @@@@B1225 'MERRY CHRISTMAS'. @[@@@@E1225.ZG )@@G@@@B@@@@ END . ___ERLOO' .@[@@@@E0618.ZH )@@G@@@C@@@@B0619 'HAPPY BIRTHDAY WILLADEAN MARTIN' . @]@@@@E0619 . ZI )@@G@@@A@@@@B0625 'CUSTER''S LAST STAND' @]@@@@E0625 . @B@@@@B0704 ZJ )@@G@@*[S@@@*SDFF*@D@@@@11111111111111111111111111111111111111111111111111 ZK )@@G@@@D@@@@222222222222222222222222222222222222222222222222222 @D@@@@333333ZL )@@G@@3333333333333333333333333333333333333333333333 @C@@@@444444444444444444ZM )@@G@@444444444444444444444444444444@C@@@@555555555555555555555555555555555555ZN )@@G@@5555555555 @C@@@@66666666666666666666666666666666666666666666666 @D@@@[ZO )@@G@@11111111111111111111111111111111111111111111111111 @D@@@[222222222222ZP )@@G@@222222222222222222222222222222222222222 @D@@@[333333333333333333333333ZQ )@@G@@3333333333333333333333333333 @C@@@[444444444444444444444444444444444444ZR )@@G@@444444444444@C@@@[5555555555555555555555555555555555555555555555 @C@@@[ZS )@@G@@66666666666666666666666666666666666666666666666 @D@@@[111111111111111111ZT )@@G@@11111111111111111111111111111111 @D@@@[222222222222222222222222222222ZU )@@G@@222222222222222222222 @D@@@[333333333333333333333333333333333333333333ZV )@@G@@3333333333 @C@@@[444444444444444444444444444444444444444444444444@C@@@[ZW )@@G@@5555555555555555555555555555555555555555555555 @C@@@[666666666666666666ZX )@@G@@66666666666666666666666666666 @D@@@[111111111111111111111111111111111111ZY )@@G@@11111111111111 @D@@@[222222222222222222222222222222222222222222222222ZZ )@@G@@222 @D@@@[3333333333333333333333333333333333333333333333333333 @C@@@[AA )@@G@@444444444444444444444444444444444444444444444444@C@@@[555555555555555555AB )@@G@@5555555555555555555555555555 @C@@@[666666666666666666666666666666666666AC )@@G@@66666666666 ___^@)^@)^@)^@)D-HDK)^@)^@)^@)F@1AC?ETDC9OE(M^@)^@)^@)^@) 0)AD )@@G@@C9J^[OD8)ETDC9ICDOE(MC*)ELJE(ODDIC*)@[@@@A *6A*)@O@@[@^@)^@)^@)^@)^@)ETUAE )@@G@@)@@[F]@[#@[#@[]@ #@@[#@@9??@@3T8@@@];CK@@S;C@@@Y[@@@@S'=@@@@[@K@@R[@@@@QAF )@@G@@'=@@@@AA@@@@)@D[##@[#@[#@[#@[#@[#@[#@[#@@@[)K@@CC?K@@R[SK@@C[W@@@BCO@@@QAG )@@G@@[W@@@ACS@@@Q9*)@@^AB@@@@)@L[##@[#@[#@[#@[#@[#@[#@@@@@@C'@@[CG1)@@SC[?@@SAH )@@G@@C4@@@S[SK@@DCOK@@R[4K@@DC*K@@RAC@@@@)@T[N#@@^@K[@^@@@@/C@@@>H8@@@#/K@@@&AI )@@G@@%]@@@P/K@@@VG'@@@^/K@@@Z!]@@@PG'K@[@C,K@@SAD@@@@)@<[N@K@^G@[@K@@@@G')@[=AJ )@@G@@/])@@\/E)@@\H')@@AC,)@@SW9)@@B;P)@@=G9)@@[/K@@@&/@@@@>AE@@@@)@![UK0@@@@@AK )@@G@@G[0@@QW'K@@B;QK@@=G]K@@QG'K@@^W')@@^;Q)@@=G')@@[C]K@@Q[Q0@@AC'0@@OAF@@@@AL )@@G@@)@8[M@[#@[#@[#@@@@;C@@@GR#@@@Q9*0@@]9?1@@>R@K@@NT90@@]H90@@[H90@@B?]@@@NAM )@@G@@C'@@@BAG@@@@)[][E[#@[@K0@K0@@@@@@@@@&80@@[&8)@@[R@-@[GNCL@[G/K@@[J2@[)[HAN )@@G@@N8K@[OQ8K@@@&8K@@]AH@@@@)[F@'()@]@-)@-@^@@)@@@K@D 03F BPD/CP/KF@@@'=@@@@AO )@@G@@C@@@EO8KK@[G[@N)@@C@M)@@Q80@@GAI@@@@)@][S@@@@@@@ : AP )@@G@@ : , 19 AJ@@@@)@H[S@@@@@@@@@@@@@@@@@@@AQ )@@G@@ AK@@@@)@S[S@@@@@@@AR )@@G@@@@@@^L@@@@#3@@@@#O@@@@]5@@@@]R@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@AL@@@@AS )@@G@@)@<[S@@@@@@@ THNESDAY WEDUESDAY TMONDAY SUNDAY @@@@ IAT )@@G@@@@@@^0AM@@@@)@,[S@@@@@@@RUARY FEBNUARY JA TURDAY SAAU )@@G@@FRIDAY URSDAYAN@@@@)@9[S@@@@@@@ A JULY JUNE MAY AV )@@G@@ APRIL MARCH AO@@@@)[^[S@@@E@@@@@]@#5@@0101EMBER DECAW )@@G@@EMBER NOVTOBER OCEMBER SEPTUGUST AP@@@@)[J[KE@O@*[K])@@@@@@]@^LAX )@@G@@@@0202@@]@^I@@0131@@^@^^@@0123@@^@^^@@0120@@A@#8@@0105AQ@@@@)[T[KE@O@*[KAY )@@G@@])@@@@@@]@^>@@0229@@^@^)@@0222@@^@^V@@0220@@#@^R@@0214@@]@^O@@0212AR@@@@AZ )@@G@@)[<[KE@O@*[K])@@@@@@ @^8@@0321@@]@^5@@0320@@#@^1@@0317@@^@^?@@0315@@#@^*BA )@@G@@@@0305AS@@@@)[![KE@O@*[K])@@@@@@ @ I@@0406@@^@ @@0405@@#@ [@@0404@@#@ EBB )@@G@@@@0403@@]@^"@@0401AT@@@@)[7[KE@O@*[K])@@@@@@]@ ?@@0415@@^@ $@@0414@@#@ [KE@O@*[K])@@@@@@^@E^@@1217@@ @D"@@1214@@]@D;@@1207@@#@D7BP )@@G@@@@1129@@^@D2@@1128BF@@@@)#\[SE@O@*@@ ROSS NELLIEAR NEW YEHAPPY @@]@ELBQ )@@G@@@@1225@@#@EH@@1224@@#@ED@@1221BG@@@@)#'[S@@@@@@@PRESID1757 BORN MILTONBR )@@G@@DER HAALEXAN5 OR 192GOVERNWOMAN FIRST BH@@@@)^ [S@@@@@@@ER 1--EXPLORBS )@@G@@HNSON DON JOAY SELBIRTHDHAPPY N DAY URATIO INAUGENTIALBI@@@@)^K[S@@@@@@@BT )@@G@@Y E'S DALENTINST. VA809 OLN--1A.LINCAY HOG DGROUND1958 BJ@@@@BU )@@G@@)^V[S@@@@@@@LEAP-YHDAY S BIRTNGTON' WASHIGEORGE2 T--196 FLIGHLENN'SBV )@@G@@JOHN GBK@@@@)^&[S@@@@@@@CH OF MAR IDES : THEBEWARE1770 CRE - MASSABW )@@G@@BPSTONY. EAR DABL@@@@)^1[S@@@@@@@RY FANAY JERBIRTHDHAPPY PRUNG HAS SBX )@@G@@SPRINGY K'S DAPATRICSAINT BM@@@@)^/[S@@@@@@@NTAS MPOCAHO550 BORN 1BY )@@G@@APIER JOHN NDAY FOOLS APRIL R KHAUSEBN@@@@) B[S@@@@@@@H POLES NORTBZ )@@G@@REACHEPEARY S OFF)AC GETAY (MNATO D 1614 ROLFEARRIEDBO@@@@) M[S@@@@@@@CA )@@G@@TTOX DAPPOMA.D. N 30 AXION IRUCIFIE OF CAL DATOFFICI09 IN 19BP@@@@CB )@@G@@) X[S@@@@@@@LINCOLTER RT SUM ON FOFIRING) AGAINL RISETH WILHE SOUCC )@@G@@AY (TBQ@@@@) *[S@@@@@@@HQUAKEO EARTANCISCSAN FRY IRS DAHAPPY 5 CD )@@G@@D, 186SINATEN ASSABR@@@@) 3[S@@@@@@@NTATIOEPRESEHOUT RON WITTAXATIOST CE )@@G@@ARY FRHDAY MY BIRT- HAPP 1906 BS@@@@) "[S@@@@@@@RTHDAYPPY BIY - HAMAY DACF )@@G@@S A ELLIAY LORBIRTHDHAPPY S WAR N MEANBT@@@@)AD[S@@@@@@@BIRTHDHAPPY CG )@@G@@91 ION 17STITUTED CON ADOPTPOLANDE RD FOR MILFOBU@@@@)AO[S@@@@@@@CH )@@G@@BIRTHDHAPPY 1781 TERED K CHARAN BANAMERICFIRST RSON DICKEAY TOMBV@@@@CI )@@G@@)AZ[S@@@@@@@D-DAY AY ANCE DDEPENDIAN INNORWEGY V-E DAFIN N GRIFCJ )@@G@@AY SHABW@@@@)A%[S@@@@@@@BIRTHDHAPPY OUT HEARTT YOUR3 : EAED 194W SIGNCK )@@G@@TAX LALDING WITHHOBX@@@@)A5[S@@@@@@@EIR EY OF THHITE'S THE WOU SEENTIL YCL )@@G@@FIRE UDON'T K EMRICAY LEWBY@@@@)B@[S@@@@@@@CUSTERN MARTILADEANCM )@@G@@AY WILBIRTHDHAPPY TERLOO OF WABATTLEES BZ@@@@)BF[S@@@@@@@AY PETBIRTHDCN )@@G@@HAPPY LE DAYBASTIL DAY. NDENCEINDEPED T STAN'S LASCA@@@@)BQ[S@@@@@@@CO )@@G@@T MALCUIAY AL BIRTHDHAPPY N HE MOON ON T1ST MAERSON E PATTCB@@@@CP )@@G@@)B-[S@@@@@@@HAPPY Y V-J DAHELL A MITCAY ELLBIRTHDHAPPY AY SHIP DCQ )@@G@@FRIENDCC@@@@)B?[S@@@@@@@1920 RAGE--S SUFFWOMEN'ER CHREIBRUCE S AND BCR )@@G@@CK OHLAY CHUBIRTHDCD@@@@)B7[S@@@@@@@SURRENPOLANDON OF INVASIB.C. ED 30 CS )@@G@@TRA DICLEOPAL OILWELFIRST CE@@@@)C][S@@@@@@@L ANTWELANNE CAY ROZCT )@@G@@BIRTHDHAPPY URI MISSOU.S.S.GNED, DER SICF@@@@)CH[S@@@@@@@NE KISAY DIACU )@@G@@BIRTHDHAPPY RUNYON JACK AN ANDHY NOLAY KATBIRTHDHAPPY CG@@@@)CS[S@@@@@@@CV )@@G@@ER WRID BANNPANGLESTAR-SN KELJOHVE WINAY STEBIRTHDHAPPY ER CH@@@@CW )@@G@@)C<[S@@@@@@@ACIFICVERS P DISCOBALBOA9 Y. 186 IN N.FRIDAYBLACK 1814 CX )@@G@@TTEN--CI@@@@)C,[S@@@@@@@HAPPY ) CS DAYEAR (OSCAL YNEW FIHAPPY ! CY )@@G@@!!!!!! 1513 OCEANCJ@@@@)C9[S@@@@@@@COLUMB DAY RIKSONLIEF EID AY DAVCZ )@@G@@BIRTHDHAPPY VOLPIAY JIMBIRTHDCK@@@@)D^[S@@@@@@@ CRASHMARKETSTOCK NS DAYDA )@@G@@ NATIOUNITED, 1066STINGS OF HABATTLEUS DAYCL@@@@)DJ[S@@@@@@@ARMISTN DB )@@G@@APLETOUDE STAY CLABIRTHDHAPPY EEN - HALLOWHAPPY 1929 CM@@@@)DU[S@@@@@@@DC )@@G@@HAPPY EARTH THIS H FROM PERISEN ...ND SEVCORE AFORE-SY ICE DACN@@@@DD )@@G@@)D>[S@@@@@@@AY BILBIRTHDHAPPY SON ILLIAMRICE WND CLALAND AA MOREAY LULDE )@@G@@BIRTHDCO@@@@)D0[S@@@@@@@E 1864ASSACRREEK MSAND CR WAGNEAY RONBIRTHDDF )@@G@@HAPPY RRAY L MCMUCP@@@@)D;[S@@@@@@@POWEREFIRST 911 OLE, 1OUTH PCHES SDG )@@G@@ON REAAMUNDSY -INFAMDAY-OFCQ@@@@)EA[S@@@@@@@TA AY ANIBIRTHDHAPPY DH )@@G@@PED ONK STEPTH ROCPLYMOU03 HT--19D FLIGCR@@@@)EL@)@*@@@@@@@@@@@@@@@@@DI )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[Q@@@MAS CHRISTMERRY CS@@@@@@@@@@@@@@@@DJ )@@G@@NTAS MPOCAHO550 BORN 1APIER JOHN NDAY FOOLS APRIL R KHAUSEBN@@@@DK )@@G@@@@^@@]@@A@@#@@G@@[@@K@@@@@@@EP@@@@[MDATE$ TDATE$ PRINT$ DL )@@G@@SIGTUR @@[@@@@@@@@@NTAS MPOCAHO550 BORN 1APIER JOHN NDAY FOOLS DM )@@G@@APRIL R KHAUSEBN@ *[S@@@*SDFF*@D@F@E@ASM,E CPD.TPRD$/03E,CPD.TPRDN )@@G@@D$/03F,CPD.TPRD$/03F @D@G@F@ASM,L CPD.TPRD$/03E,CPD.TPRD$/03F,CPD.TDO )@@G@@PRD$/03F @D@@@G@ASM,E CPD.TPRD$/03E,CPD.TPRD$/03F,CPD.TPRD$/03F DP )@@G@@@[@@@E-50,51@I@@@E J CDIMGE . GET NEXT CARD DQ )@@G@@ . BPD 03F @C@F@E@ASM,E CPD.CPD/03E,CPD.CPD/03F,CPD.DR )@@G@@CPD/03F @C@G@F@ASM,L CPD.CPD/03E,CPD.CPD/03F,CPD.CPD/03F @C@@@GDS )@@G@@@ASM,E CPD.CPD/03E,CPD.CPD/03F,CPD.CPD/03F @[@@@E-19,19@[@@@ECPD* DT )@@G@@@I@@@E L,U A0,1 . DU )@@G@@ BPD 03F @I@@@E TNE,U A4,04 . DEMAND RDV )@@G@@UN BPD 03F @I@@@E SA,S1 A0,CNTYP DW )@@G@@ . SET DEMAND FOR FUTURE USE BPD 03F @F@@@E LMDX )@@G@@J X11,SIGTUR . GO TO SIGNATURE ROUTINE @[@@@E-65 @I@@@FDY )@@G@@ SZ,S5 OPTION . CLEAR 'D' OPTION DZ )@@G@@BPD 03F @I@@@E DS A0,FACPAC . STORE FILENAMEEA )@@G@@ BPD 03F @H@@@E L,U A0,FACPAC EB )@@G@@ . SET PKT BPD03F@I@@@E ER FACIEC )@@G@@T$ . BPD 03F @I@@@E ED )@@G@@ TNZ,S1 FACPAC+6 . GET EQUIP CODE BPD 03EE )@@G@@F @I@@@E J NOFILE . EF )@@G@@ BPD 03F @I@@@E LA,U A0,1 .USEEG )@@G@@ TO SET 'D' OPTION BPD 03F @I@@@E LA,S1 A1,FEH )@@G@@ACPAC+6 . GET EQUIP CODE BPD 03F @I@@@E EI )@@G@@ TG,U A1,020 . IF DISK SET 'D' OPTION BPD 03EJ )@@G@@F @I@@@E SA,S5 A0,OPTION . > 020 SET OPTION EK )@@G@@ BPD 03F @[@@@E-66 @I@@@ENOFILE . COME HERE IF FILE NOEL )@@G@@T ASSIGNED BPF 03F @I@@@E DLEM )@@G@@ A0,FACPAC . GET FILE NAME BPD 03F EN )@@G@@@I@@@E DS A0,MSGE+1 . EO )@@G@@ BPD 03F @I@@@E LA A0,(0105,MSGE) . SET PRINEP )@@G@@T PKT BPD 03F @I@@@E ER PRINT$ EQ )@@G@@ . BPD 03F @I@@@E J ER )@@G@@ CDIMGE . GET NEXT CONTROL CARD BPD 03F ES )@@G@@@[@@@F-371 @I@@@F TNZ,S1 FACPAC+6 . ANY EQUIP TYPEET )@@G@@ ? BPD 03F @I@@@F J NOFILE EU )@@G@@ . NOT ASSIGNED BPD 03F @[@@@E-432 @I@@@E EV )@@G@@ TZ,H2 CNTYP . ERRORS ? BPD 03EW )@@G@@F @I@@@E J PRTNUM . YES PRINT MESSAGE EX )@@G@@ BPD 03F @[@@@E-435 @I@@@E J NXTCMP EY )@@G@@ . GET NEXT FILE BPD 03F @ @@@EPRTNUM . EZ )@@G@@ BPD 03F @I@@@E LA A0,CNTYP . GET COUNFA )@@G@@TER BPD 03F @I@@@E LSSL A0,6 FB )@@G@@ . DROP RUN TYPE BPD 03F @I@@@E SSFC )@@G@@L A0,6 . BPD 03F FD )@@G@@@I@@@E E$BD 6,ERRCNT,6 . CONVERT OCTAL TO FD FE )@@G@@ BPD 03F @I@H@E LA A0,(0107,ERRCNT) . PRINT ERFF )@@G@@ROR MSG BPD 03F @I@@@H LA A0,(0212,EFG )@@G@@RRCNT) . PRINT ERROR MSG BPD 03F @I@@@E ERFH )@@G@@ PRINT$ . BPD 03F FI )@@G@@@I@@@E INCF . FJ )@@G@@ BPD 03F @[@@@I-495 @I@@@I LMJ X11,CKTPRT FK )@@G@@ . CHECK # OF ERRORS BPD 03F @I@@@I J FL )@@G@@ CMPTP1 . RETURN HERE - DON'T PRINT BPD 03F @[@I@EFM )@@G@@-495 @[@@@I-502 @C@@@ICKTPRT . BPD 03F FN )@@G@@@I@@@E LA A0,CNTYP . GET ERROR CNT FO )@@G@@ BPD 03F @I@@@E AA,U A0,1 . ADD ONE FP )@@G@@ BPD 03F @I@@@E SA A0,CNTYP FQ )@@G@@ . BPD 03F @I@@@E TZFR )@@G@@,S1 CNTYP . DEMAND ? BPD 03F FS )@@G@@@I@I@E J CMPTP1 . YES, DON'T PRINT BLKS FT )@@G@@ BPD 03F @I@@@I J 0,X11 . YES, DONFU )@@G@@'T PRINT BLKS BPD 03F @I@@@I L,U A0,10 FV )@@G@@ . LIMIT OF 10 BPD 03F @I@@@I TLFW )@@G@@E A0,CNTYP . PRINTED 10 ALREADY ? BPD 03F FX )@@G@@@I@@@I J 0,X11 . YES DON'T PRINT FY )@@G@@ BPD 03F @I@@@I J 1,X11 . NO PRINTFZ )@@G@@IT BPD 03F @[@@@E-503 @I@@@I LMJ GA )@@G@@ X11,CKTPRT . CHECK # OF PRINTS BPD 03F @I@I@EGB )@@G@@ LA A0,CNTYP . GET ERROR CNT GC )@@G@@BPD 03F @I@I@E AA,U A0,1 . ADD ONE GD )@@G@@ BPD 03F @I@I@E SA A0,CNTYP GE )@@G@@ . BPD 03F @I@I@E TZ,S1 GF )@@G@@ CNTYP . DEMAND ? BPD 03F @I@@@EGG )@@G@@ J CMPTP1 . YES, DON'T PRINT BLKS GH )@@G@@BPD 03F @[@@@E-512 @I@G@E LA A0,CNTYP . GEGI )@@G@@T # ERRORS BPD 03F @I@@@G LA,U A0,1GJ )@@G@@0 . GET # ERRORS BPD 03F @I@G@E GK )@@G@@ TLE,U A0,10 . LESS THAN 10 ERRORS ? BPD 03GL )@@G@@F @I@@@G TLE A0,CNTYP . LESS THAN 10 ERRORS GM )@@G@@? BPD 03F @I@@@E J CMPTP1 . NOGN )@@G@@, DON'T PRINT BLKS BPD 03F @]@@@E-529,536 @I@@@E GO )@@G@@ J CMPTP1 . CONTINUE CMP BPD 03GP )@@G@@F @[@@@E-719 @I@@@E J CDIMGE . GET NEXTGQ )@@G@@ CONTROL CARD BPD 03F @[@@@E. @I@@@E. ORIGIONAL CODE FGR )@@G@@ELL THROUGH TO BDCMI . BPD 03F @[@@@EGS )@@G@@. @]@@@E-952,952 @I@@@ECNTYP + 0 . BITS 1 - 6 RUN TYPE, BITSGT )@@G@@ 7 - 36 ERROR CNT BPD 03F @#@@@EERRCNT ' ' @I@@@EGU )@@G@@ ' BLOCKS OF ERRORS ENCOUNTERED ON CMP' GV )@@G@@. BPD 03F @I@@@H ' ***************' GW )@@G@@ BPD 03F @G@@@ELEXI 'PREVIOUS OPERATION NOT PERFORMGX )@@G@@ED' BPD 03F @I@@@EMSGE 'FILE NOT AGY )@@G@@SSIGNED' . BPD 03F @B@F@E@ASM,E CPDGZ )@@G@@.SIGN/03E,.SIGN/03F,SIGN/03F @B@G@F@ASM,L CPD.SIGN/03E,.SIGN/03F,SIGNHA )@@G@@/03F @B@@@G@ASM,E CPD.SIGN/03E,.SIGN/03F,SIGN/03F @]@@@E-119,119 HB )@@G@@@I@@@ESIG 'BPD/CPD 03F' . SIGNATURE PKT HC )@@G@@ BPD 03F ___^@)^@)^@)^@)^@)CLKC))A@3C0)@O[@@D^@)^@)^@)^@)^@)ET[HD )@@G@@^@)^@)^@)^@)CC0 -#D1OFDK^@)^@)^@)^@)^@) 0)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)HE )@@G@@*[S@@@*SDFF*@I@@@@. GENERAL TAPE READ ROUTINE USED BY DUP, CMP, PRT HF )@@G@@FUNCTIONS . 3A @I@@@@. CALLING SEQUENCE LMJ X11 HG )@@G@@ . 3A @I@@@@. + FILE HH )@@G@@ . 3A @I@@@@HI )@@G@@. + NAME HJ )@@G@@ . 3A @I@@@@. + 4096, BUFFER AREA HK )@@G@@ . 3A @I@@@@. + EOF OR EOT RETURN ADDRESSHL )@@G@@ . 3A @I@@@@. IF BAD IO (NHM )@@G@@OT 0, 1, 2, OR 4) TAKE EXIT$ . 3A @I@@@@HN )@@G@@. RETURNS NR WORDS READ IN H2 OF NOWDS$ HO )@@G@@ . 3A @I@@@@. 4 IN S3 OF NOWDS$ AND AFC IN S1 OF NOWDS$ IF AFCHP )@@G@@ . 3A @I@@@@. HQ )@@G@@ . 3A @[@@@@. @B@@@@ HR )@@G@@ AXR$ . @B@@@@$(1) HS )@@G@@ . @F@@@@TPRD$* DL A0,0,X11 . GET THE CURRENTHT )@@G@@ FILENAME @F@@@@ DS A0,IOWPKT . STORE IT IN THEHU )@@G@@ PACKET @I@@@@ SZ NOWDS$ . CLEAR AFC FLAGHV )@@G@@S AND WORD COUNT . 3A @E@@@@ LA A0,2,X11 HW )@@G@@ . LOAD THE TO ADDRESS @D@@@@ SA A0,IOACW . STOHX )@@G@@RE IN PACKET@E@@@@ LA,U A0,IOWPKT . LOAD THE IOW$ PHY )@@G@@ACKET @G@@@@ ER IOW$ . READ THE NEXT BLOCK OHZ )@@G@@N THE TAPE @F@@@@ LA A0,IOSTAT . LOAD THE RETURNIA )@@G@@ STATUS @G@@@@ TNE,U A0,0 . TEST FOR NORMALIB )@@G@@ STATUS RETURN @D@@@@ J NORMRT . YES LEAVIC )@@G@@E @E@@@@ TNE,U A0,04 . ABNORMAL FRAME COUNT?ID )@@G@@@G@@@@ J AFC . YES AFC RETURN GO HANDLE IE )@@G@@IT @C@@@@ TG,U A0,03 . EOF-EOT? @B@@@@ IF )@@G@@ J UNREC . NO @B@@@@ J EOFEOT IG )@@G@@ . YES@G@@@@NORMRT LA A0,IONOWD . LOAD THE NUMBERIH )@@G@@ OF WORDS READ @F@@@@ SA,H2 A0,NOWDS$ . STORE THEII )@@G@@M IN WORD COUNTER @D@@@@ J 4,X11 . RETURN TOIJ )@@G@@ USER @F@@@@EOFEOT LA A0,3,X11 . LOAD EOF RETURN ADDREIK )@@G@@SS @C@@@@ SA A0,RTNADR . STORE IT @E@@@@ IL )@@G@@ SZ JUMP . ZERO OUT AFC COUNTER @E@@@@ J IM )@@G@@ *RTNADR . JUMP TO EOF RETURN @H@@@@UNREC E$BO IN )@@G@@ 6,STATUS,3 . CONVERT STATUS TO OCTAL AND STORE IT @F@@@@ IO )@@G@@ SLJ QGETAD . GET THE CURRENT FILENAME @I@@@@ IP )@@G@@ S A0,SAVEAD . SAVE LOCATION OF 4 WD FILE INFO . 3IQ )@@G@@A @C@@@@ DL A0,0,A0 . LOAD IT @C@@@@ IR )@@G@@ DS A0,FILNAM . STORE IT @I@@@@ L A0,SIS )@@G@@AVEAD . . 3A @F@@@@ IT )@@G@@ LA A0,3,A0 . GET CURRENT FILENUMBER @G@@@@ IU )@@G@@ E$BD 6,FILNUM,3 . CONVERT TO FD AND STORE IN PACKET@I@@@@IV )@@G@@ L A0,SAVEAD . ADDRESS OF FILE INFO IW )@@G@@ . 3A @H@@@@ LA A0,2,A0 . GET BLOCK COUNTIX )@@G@@ (BEFORE THIS READ) @F@@@@ AA,U A0,01 . INCIY )@@G@@REASE FOR CURRENT BLOCK @G@@@@ E$BD 6,BLKCNT,6 . CONIZ )@@G@@VERT TO FD AND STORE IN PACKET@E@@@@ LA A0,ERRPKT JA )@@G@@ . LOAD ERROR PACKET @D@@@@ ER PRINT$ . WRIJB )@@G@@TE IT OUT @I@@[@ J CDIMGE . GET NEXT CARD JC )@@G@@ . BPD 03F @G]@@@AFC LA A8,JUMP JD )@@G@@ . FIRST TEST TO SEE WHETHER WE HAVE@I@@@@ TNE,U A8,01 JE )@@G@@ . WRITTEN THE MESSAGE BEFORE ? . BPD 3E @H@@@@ J JF )@@G@@ AFCA . YES, LOAD INDICATORS FOR PRT ROUTINE @G@@@@JG )@@G@@ AA,U A8,01 . NO, ADD ONE TO COUNTER AND STORE JH )@@G@@@B@@@@ SA A8,JUMP . @E@@@@ DL JI )@@G@@ A8,0,X11 . LOAD THE FILE NAME @C@@@@ DS A8,FJJ )@@G@@ILNAMA . STORE IT @I@@@@ SX X11,SAVE11 . SAVJK )@@G@@E X11 CAUSE ITS GOING TO GET CLOBBERED @I@@@@ SLJ QGETJL )@@G@@AD . GET THE ADDRESS IN THE TABLE OF THIS FILE @I@@@@ JM )@@G@@ S A0,SAVEAD . . 3JN )@@G@@A @E@@@@ LA A0,3,A0 . LOAD THE FILE NUMBER JO )@@G@@@G@@@@ E$BD 6,FILNUMA,3 . CONVERT IT TO FD AND STORE JP )@@G@@IT @I@@@@ L A0,SAVEAD . LOAD ADDRESS OF 4 WDJQ )@@G@@ FILE INFO AREA. 3A @E@@@@ LA A0,2,A0 . LOAJR )@@G@@D THE BLOCK NUMBER@H@@@@ AA,U A0,01 . ADD ONE TJS )@@G@@O IT FOR THE CURRENT BLOCK @F@@@@ E$BD 6,BLKCNTA,6 JT )@@G@@ . CONVERT TO FD AND STORE IT @G@@@@ LA A0,IONOWD JU )@@G@@ . LOAD THE NUMBER OF WORDS READ @H@@@@ ANA,U A0,01 JV )@@G@@ . SUBTRACT ONE TO ELIMINATE THE LAST WORD@E@@@@ MSI,U JW )@@G@@ A0,6 . CONVERT TO CHARACTERS@I@@@@ AA A0,IJX )@@G@@OAFC . ADD THE COUNT OF THE CHARACTERS IN LST SR @F@@@@ JY )@@G@@ E$BD 6,CHARA,6 . CONVERT TO FD AND STORE @E@@@@ JZ )@@G@@ LA A0,IONOWD . LOAD NUMBER OF WORDS @E@@@@ E$KA )@@G@@BD 6,WORD,6 . CONVERT AND STORE @C@@@@ LA KB )@@G@@ A0,IONOWD . RELOAD @F@@@@ MSI,U A0,06 KC )@@G@@ . DETERMINE CHARACTER COUNT @E@@@@ E$BD 6,CHRA,6 KD )@@G@@ . CONVERT AND STORE @D@@@@ LA A0,PKTA . LOAKE )@@G@@D INPUT MSG @D@@@@ ER PRINT$ . WRITE IT OUT KF )@@G@@@D@@@@ LA A0,PKTB . LOAD OUTPUT MSG@D@@@@ KG )@@G@@ ER PRINT$ . WRITE IT OUT @F@@@@ LX KH )@@G@@ X11,SAVE11 . RESTORE X11 TO JUMP BACK ON@E@@@@AFCA LA,U KI )@@G@@ A0,04 . LOAD AFC INDICATOR @F@@@@ SA,S3 A0,NKJ )@@G@@OWDS$ . STORE IT FOR PRT ROUTINE @I@@@@ LA A0,IKK )@@G@@OAFC . LOAD THE COUNT OF CHARACTERS IN LAST WORD @F@@@@ KL )@@G@@ SA,S1 A0,NOWDS$ . STORE IT FOR PRT ROUTINE @D@@@@ KM )@@G@@ J NORMRT . RETURN TO USER @B@@@@$(0) KN )@@G@@ . @E@@@@SAVE11 RES 1 . SAVKO )@@G@@E AREA FOR X11 @I@@@@SAVEAD + 0 . KP )@@G@@ . 3A @F@@@@JUMP + 0 KQ )@@G@@ . COUNTER FOR AFC ERRORS @E@@@@RTNADR + 0 KR )@@G@@ . WORD FOR EOF RETURN @D@@@@IOWPKT + 0 KS )@@G@@ . IOW$ PACKET @D@@@@ + 0 . IOW$ PACKKT )@@G@@ET @D@@@@ + 0 . IOW$ PACKET @D@@@@KU )@@G@@ + 020,0,0 . IOW$ PACKET @D@@@@ + KV )@@G@@ 0 . IOW$ PACKET @E@@@@IOSTAT EQUF IOWPKW )@@G@@KT+3,,S1 . RETURN STATUS CODE @G@@@@IOAFC EQUF IOWPKT+3,,KX )@@G@@S3 . ABNORMAL FRAME COUNT LOCATION @E@@@@IONOWD EQUF IOWPKY )@@G@@KT+3,,H2 . NUMBER OF WORDS READ @E@@@@IOACW EQU IOWPKT+4 KZ )@@G@@ . LOCATION OF BUFFER @B@@@@P FORM 12,6,18 LA )@@G@@ . @B@@@@ERRPKT P 3,17,ERRMSG . @B@@@@PKTA P LB )@@G@@ 2,17,MSGA . @B@@@@PKTB P 2,12,MSGB LC )@@G@@ . @B@@@@PKTC P 2,12,MSGC . @I@@@@PKTD P LD )@@G@@ 1,12,MSGD . 3A LE )@@G@@@C@@@@ERRMSG 'ERROR WHILE READING TAPE FILE ' . @B@@@@FILNAM + LF )@@G@@ ' ' . @B@@@@FILNUM + ' NO ' LG )@@G@@ . @B@@@@ + ' BLOCK NO ' . @B@@@@BLKCNT + LH )@@G@@ ' ' . @B@@@@ + 'STATUS CODE ' LI )@@G@@ . @B@@@@STATUS + ' ' . @E@@@@MSGA ' LJ )@@G@@ *** AFC-THE INPUT CHARACTER COUNT OF BLOCK NO.'@B@@@@BLKCNTA + ' LK )@@G@@ ' . @I@@@@ + ', FILE ' LL )@@G@@ . 3A @B@@@@FILNAMA + ' LM )@@G@@ ' . @B@@@@ + ', NO. ' . @B@@@@LN )@@G@@FILNUMA + ' ' . @B@@@@ + ' WLO )@@G@@AS ' . @B@@@@CHARA + ' ' . @F@@@@LP )@@G@@MSGB ' * THE OUTPUT COUNTS (IF DUPING) ARE: WORDS ' .@B@@@@LQ )@@G@@WORD + ' ' . @B@@@@ + ', CLR )@@G@@HARACTERS' . @B@@@@CHRA + ' ' . @I@@@@LS )@@G@@MSGC ' * RECOMMEND THIS TAPE BE DUPED USING CPD BEFORE PROCEEDING FULT )@@G@@RTHER ' @I@@@@MSGD ' *** AN ODD NR OF WORDS PER RECORD CAN CAUSE LU )@@G@@THIS ON A 9 TRACK DRIVE ' @B@@@@ END LV )@@G@@ . ___ LA A0,I)@@[EK0@K)]^G@]&@]^@UA@@:8@@@@C4@@@B'=@@@@C8@@@^LW )@@G@@[@@@@CC@F@@] @@@@@9*@@@^9?F@@@AA@@@I)@D[N@^@K^[#@[]@C@C@F@@#/KF@@^[^@@@@LX )@@G@@C^@@@B/K@@@M/K@@@Q!8@@@#/K@@@*:8@@@^/K@@@JAB@@@I)@N[##@[#@[#@[]@^()@-@C-LY )@@G@@)@@@@@9?G@@@A#@@@['^@@@@#@ @@Y/,0@@@/K@K@# @@@@][@@@@#AC@@@I)@V[F#@[#@@KLZ )@@G@@)@ES@CS@@-@@/,0@@@G8@@@[C@G@@]R#@@@[#@ @@Q/,0@@@C@G@@#R#@@@[9*@@@OAD@@@IMA )@@G@@)@=[]()@-)@-@E-@G-)@C@@@@@@@@@G'@@@[/K@@[G:'@@@[C]@@@]/K@@@@'=@@@@C@@@@DMB )@@G@@A@ @@UAE@@@I)@?[##@@K0@K0@K)^K0@^C@@@@@@@@/,0@@@C@G@@#A#@@@['^@@@@A]0@@@MC )@@G@@9%@@@%9,F@@@[]@@@]AF@@@I)@4[E()@-)@]^@[N@[#@@@@@T8@@@AH8@@@[C^@@@BA@ @@$MD )@@G@@/,0@@@G8@@@[C@G@@]R#@@@[#@ @@!AG@@@I)@.[##@[]@@()@-)@-@@O0@K0@@@@@T8@@@AME )@@G@@C^@@@BA@ @@8/,0@@@C^@@@BA@ @@\/,0@@@G?@@@BAH@@@I)[ [#]@@()@-)@-@E-)@-@E-MF )@@G@@)@@@@@C8@@@^R]0@@@'=@@@@C@@@@F'=@@@@C@@@@EA@ @@;/,0@@@AI@@@I)[H@<]@D#@[]MG )@@G@@@D@@@@)@[@)@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@/K@@@J[4@@@@C?@@@B[?@@@@AJ@@@IMH )@@G@@)@ [K@E[KE[KE@@@@@ERROR @[G@[C@]G@@/@]G@@0@]L@@Z@#L@@I@@@@@@@K@@@@@@@@@@MI )@@G@@@@@@@@AK@@@I)@J[S@@@@@@@CK NO BLO NO FILE MJ )@@G@@G TAPEREADINWHILE AL@@@I)@U[S@@@@@@@COUNT ACTER T CHARE INPUAFC-TH *** MK )@@G@@ CODE STATUS AM@@@I)@>[S@@@@@@@ WAS , NO. ML )@@G@@ E , FIL CK NO.OF BLOAN@@@I)@0[S@@@@@@@ACTERS, CHARMM )@@G@@ WORDS ARE: PING) (IF DUOUNTS TPUT CTHE OU * AO@@@I)@;[S@@@@@@@MN )@@G@@OCEEDIORE PRPD BEFSING CUPED UE BE DIS TAPEND THRECOMM * AP@@@IMO )@@G@@)[A[S@@@@@@@IS ON USE THCAN CAECORD PER R WORDS NR OFAN ODD *** THER MP )@@G@@NG FURAQ@@@I)[L@S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@MQ )@@G@@IVE ACK DRA 9 TRAR@@@I@@^@@]@@A@@B@@O@@[@@S@@@@@@@[O@@@@[LEBD$X MR )@@G@@EBO$X NOWDS$ IOW$ QGETAD PRINT$ CDIMGE MS )@@G@@TPRD$ @@[@@@@@@@@@ OPT$ *[S@@@*SDFF*@I@@@@. THISMT )@@G@@ PROGRAM WILL DUMP OR COPY ANY TAPE WITH BLOCKS OF 4096 WORDS OR LCD3001MU )@@G@@00 @I@@@@. WITH THE PRINT OUT EITHER ALPHA OR OCTAL DEPENDENT ON THE MV )@@G@@OPTION IN THCD300200 @I@@@@. XQT CARD. THE USER MUST SPECIFY WHAT ACTMW )@@G@@ION IS TO BE DONE THRU PARAMETCD300300 @I@@@@. CARDS FOLLOWING THE XQMX )@@G@@T CARD. DOCUMENTATION FOR USAGE IS AVAILABLE .. CD300400 @I@@@@. MY )@@G@@ CD3005MZ )@@G@@00 @F@@@@. THE SOURCE OF THE ORIGINAL COPY-DUMP CODE IS UNKNOWN TNA )@@G@@O US. @G@@@@. THE CODE ARRIVED AS CPDMPH AND HAS UNDERGONE CONSIDERANB )@@G@@BLE CHANGE @^@@@@. SINCE THAT TIME. @F@@@@. QUESTIONS, ERRORS,NC )@@G@@ AND HOPEFULLY FIXES ON THIS VERSION OF @A@@@@. COPY-DUMP MAY BE RND )@@G@@EFERED TO: @^@@@@. PAULA HAGAN @^@@@@. MDCS STOP 28NE )@@G@@@E@@@@. DEFENSE MAPPING AGENCY AEROSPACE CENTER (DMAAC) @A@@@@NF )@@G@@. 2ND AND ARSENAL STREETS @A@@@@. ST. LOUIS, MO. 631NG )@@G@@18 @[@@@@. @I@@@@ AXR$ NH )@@G@@ CD300600 @B@@@@$(1) NI )@@G@@ . @[@@[@CPD* @I@@[@ L,U A0,1 . NJ )@@G@@ BPD 03F @I@@[@ TNE,U A4,0NK )@@G@@4 . DEMAND RUN BPD 03F @I@@[@ NL )@@G@@ SA,S1 A0,CNTYP . SET DEMAND FOR FUTURE USE BPD 03NM )@@G@@F @F@@[@ LMJ X11,SIGTUR . GO TO SIGNATURE ROUTNN )@@G@@INE @I[@@@ ER OPT$ . OPTION LETTER RECOVENO )@@G@@RY - BACK INCD300900 @I@@@@ JZ A0,REREAD . ANYNP )@@G@@ OPTIONS? CD301000 @I@@@@ SA A0,TNQ )@@G@@EMP . SAVE OPTIONS CD301100 @I@@@@ NR )@@G@@ LA,U A1,01 . USE THIS TO INDICATE AN OPTION ISCD3012NS )@@G@@00 @I@@@@ LA,S2 A0,TEMP . LOAD FOR 'A' TEST NT )@@G@@ CD301300 @I@@@@ TEP,U A0,02 . TESNU )@@G@@T FOR 'A' OPTION CD301400 @I@@@@ SA,S1 A1,ONV )@@G@@PTION . STORE 'A' OPTION CD301500 @I@@@@ NW )@@G@@ LA,S3 A0,TEMP . LOAD FOR 'D', 'F', 'H' TEST CD3016NX )@@G@@00 @I@@@@ TEP,U A0,020 . TEST FOR 'D' OPTION NY )@@G@@ CD301700 @I@@@@ SA,S5 A1,OPTION . STONZ )@@G@@RE 'D' OPTION CD301800 @I@@@@ TEP,U A0,0OA )@@G@@4 . TEST FOR 'F' OPTION CD301900 @I@@@@ OB )@@G@@ SA,S6 A1,OPTION . STORE 'F' OPTION CD3020OC )@@G@@00 @I@@@@ TEP,U A0,01 . TEST FOR 'H' OPTION OD )@@G@@ CD302100 @I@@@@ SA,S3 A1,OPTION . STOOE )@@G@@RE 'H' OPTION CD302200 @H@@@@ LA,S5 A0,TOF )@@G@@EMP . PICK UP POSSIBLE Q AND R OPTIONS. 03D @H@@@@ LAOG )@@G@@,U A1,1 . FLAG FOR Q OPTION . 03D @H@@@@OH )@@G@@ TEP,U A0,010 . Q OPTION OI )@@G@@. 03D @H@@@@ SA,S1 A1,OPTION2 . SET Q OPTION OJ )@@G@@ . 03D @H@@@@ TEP,U A0,04 . TEST FOR R OK )@@G@@OPTION . 03D @H@@@@ SA,S2 A1,OPTION2 OL )@@G@@ . SAVE RESULTS . 03D @H@@@@ TEP,U A0,0OM )@@G@@40 . TEST FOR 'O' OPTION . 03D @I@@@@ SAON )@@G@@,S2 A1,OPTION . STORE 'O' OPTION CD302500 OO )@@G@@@I@@@@REREAD L A0,RDPKT . SKIP OVER CPD CARD-DUMMY ROP )@@G@@EAD CD302800 @I@@@@ ER READ$ . READ CAROQ )@@G@@D IMAGE CD302900 @I@@@@CDIMGE* L A0,RDPKT OR )@@G@@ . LOAD READ PACKET CD303000 @I@@@@ EROS )@@G@@ READ$ . READ CARD IMAGE CD303100 OT )@@G@@@I@@@@ S,S3 A0,PPKT . NR WORDS TO PRINT OU )@@G@@ CD303200 @I@@@@ L A0,PPKT . PRINT OUOV )@@G@@T COMMAND CD303300 @I@@@@ ER PRINT$ OW )@@G@@ . CD303400 @I@@@@ GEOX )@@G@@TFLD NEWCRD . PICK UP PARAMETER COMMAND CD303500 OY )@@G@@@I@@@@. CONTROL RETURNS WITH A2= NUMBER CHARS IN FIELD AND FIELD IN A0,AOZ )@@G@@1 RIGHCD303600 @E@@@@ JZ A2,CDIMGE . IGNORE APA )@@G@@ BLANK CARD @I@@@@ L,U R1,NOCOMM . NUMBER OF COMMPB )@@G@@ANDS POSSIBLE TO HCD303800 @I@@@@ AND A1,(0777777) PC )@@G@@ . LOGICAL PRODUCT IN A2 CD303900 @I@@@@ L PD )@@G@@ A1,(1,0) . CD304000 @I@@@@PE )@@G@@ SE,H1 A2,TABL,*A1 . SEARCH TABLE FOR COMMAND PF )@@G@@CD304100 @I@@@@ J BADCOM . BAD COMMAND,NOPG )@@G@@ EQUAL FOUND CD304200 @I@@@@ L,H2 A2,TABL-1,A1 PH )@@G@@ . PICK UP THE COMMAND CD304300 @I@@@@ S PI )@@G@@ A2,COMMND . TEMP STORAGE FOR COMMAND CD304400 @I@@@@PJ )@@G@@ GETFLD SAMECD PK )@@G@@CD304500 @I@@@@ JZ A2,BADCOM . USER HAS NO INPL )@@G@@ IN COMMAND CARD CD304600 @I@@@@NAME MSI,U A2,6 PM )@@G@@ . NR CHARACTERS*BITS PER CHARACTECD304700 @I@@@@ S,T3 PN )@@G@@ A2,$+1 CD304800 @I@@@@PO )@@G@@ DSC A0,0 . DSC ---FN IN A0 AND A1 PP )@@G@@CD304900 @I@@@@ DS A0,FILEN . STORE FN IN LOPQ )@@G@@CATION CD305000 @I@@@@ DS A0,F1NAM PR )@@G@@ . EOF ENCOUNTERED MESSAGE CD305100 @I@@[@ SZ,S5 PS )@@G@@ OPTION . CLEAR 'D' OPTION BPD 03F @I@@[@PT )@@G@@ DS A0,FACPAC . STORE FILENAME PU )@@G@@BPD 03F @H@@[@ L,U A0,FACPAC . SET PKT PV )@@G@@ BPD03F@I@@[@ ER FACIT$ . PW )@@G@@ BPD 03F @I@@[@ TNZ,S1 FACPPX )@@G@@AC+6 . GET EQUIP CODE BPD 03F @I@@[@ PY )@@G@@ J NOFILE . BPD 03PZ )@@G@@F @I@@[@ LA,U A0,1 .USE TO SET 'D' OPTIONQA )@@G@@ BPD 03F @I@@[@ LA,S1 A1,FACPAC+6 . GEQB )@@G@@T EQUIP CODE BPD 03F @I@@[@ TG,U A1,0QC )@@G@@20 . IF DISK SET 'D' OPTION BPD 03F @I@@[@ QD )@@G@@ SA,S5 A0,OPTION . > 020 SET OPTION BPD 03QE )@@G@@F @I@@@@ J *COMMND . GO TO COMMAND SUBROUTQF )@@G@@INE CD305200 @I@@[@NOFILE . COME HERE IF FILE NOT ASSIGNED QG )@@G@@ BPF 03F @I@@[@ DL A0,FQH )@@G@@ACPAC . GET FILE NAME BPD 03F @I@@[@ QI )@@G@@ DS A0,MSGE+1 . BPD 03QJ )@@G@@F @I@@[@ LA A0,(0105,MSGE) . SET PRINT PKT QK )@@G@@ BPD 03F @I@@[@ ER PRINT$ . QL )@@G@@ BPD 03F @I@@[@ J CDIMQM )@@G@@GE . GET NEXT CONTROL CARD BPD 03F @B@@@@/ QN )@@G@@ . @I@@@@WREOF DL A0,FILEN QO )@@G@@ . PICK UP FILENAME FIRST 6 CHARS CD305400 @I@@@@ DSQP )@@G@@ A0,TAPPKT . PUT IT IN TAPE PACKET WORD 1 CD305500 QQ )@@G@@@I@@@@ L,U A0,011 . FUNC CODE FOR WRITE END-OFQR )@@G@@-FILE CD305600 @I@@@@ S,S2 A0,TAPPKT+3 . STORED FQS )@@G@@UNC CODE IN PROPER WORD.CD305700 @I@@@@ L,U A0,TAPPKT QT )@@G@@ . I/0 PACKET FOR MAG TAPE--- CD305800 @I@@@@ ERQU )@@G@@ IOW$ . WRITE END-OF-FILE CD305900 QV )@@G@@@I@@@@ ER IOW$ . WRITE SECOND EOF QW )@@G@@ CD306000 @I@@@@ L,U A0,051 . FUNCTION QX )@@G@@CODE FOR BACKSPACE CD306100 @I@@@@ S,S2 A0,TAPPKT+3QY )@@G@@ . STORE IN PROPER WORD CD306200 @I@@@@ L,QZ )@@G@@U A0,TAPPKT . I/O PACKET FOR MAG TAPE CD306300 RA )@@G@@@I@@@@ ER IOW$ . BACKSPACE OVER SECOND EOF RB )@@G@@ CD306400 @I@@@@ INCF . INCREASE RC )@@G@@THE FILE COUNT CD306500 @I@@@@ TZ,S6 OPTION RD )@@G@@ . F OPTION SET? CD306600 @I@@@@ J RE )@@G@@ FCOPYC . YES CD306700 RF )@@G@@@I@@@@ J CDIMGE . GO BACK AND GET NEXT PARAMRG )@@G@@ETER CCD306800 @I@@@@REWW LA,U A0,040 . NO RH )@@G@@ CD306900 @I@@@@ S,S2 A0,TAPPKT+RI )@@G@@3 . STORE FUNCTION CODE IN PACKET CD307000 @I@@@@ DLRJ )@@G@@ A0,FILEN . REWIND NO INTERLOCK ROUTINE---GECD307100 RK )@@G@@@I@@@@ DS A0,TAPPKT . STORE WORD ONE IN TAPE PACRL )@@G@@KET CD307200 @I@@@@ L,U A0,TAPPKT . I/0 PACKRM )@@G@@ET FOR MAG TAPE CD307300 @I@@@@ ER IOW$ RN )@@G@@ . REWIND WITHOUT INTERLOCK CD307400 @I@@@@ CLRO )@@G@@RF CD307500 RP )@@G@@@I@@@@ CLRR RQ )@@G@@ CD307600 @I@@@@ GETFLD SAMECD . SEE IF THRR )@@G@@ERE ARE ANY MORE FILES CD307700 @I@@@@ JZ A2,CDIMGE RS )@@G@@ . NO CD307800 @I@@@@ J RT )@@G@@ NAME . YES GO REWIND THEM CD307900 RU )@@G@@@I@@@@REWI DL A0,FILEN . LOAD FILENAME RV )@@G@@ CD308000 @I@@@@ DS A0,FREED+1 . STORE IN RW )@@G@@PACKET CD308100 @I@@@@ L A0,(3,FREERX )@@G@@D) . LOAD @FREE PACKET CD308200 @I@@@@ ERRY )@@G@@ CSF$ . FREE THE TAPE ( OR FILE) CD308300 RZ )@@G@@@I@@@@ GETFLD SAMECD . ANY MORE? SA )@@G@@ CD308400 @I@@@@ JZ A2,CDIMGE . NO SB )@@G@@ CD308500 @I@@@@ J NAME SC )@@G@@ . INSERT NEW FILENAME AND FREE . 3C @I@@@@. SWSD )@@G@@AP TAPE REELS CD308700 SE )@@G@@@I@@@@SWAPRL . SF )@@G@@ CD308800 @I@@@@ L,U A0,FILEN SG )@@G@@ CD308900 @I@@@@ ER TSWAP$ SH )@@G@@ CD309000 @I@@@@ J SI )@@G@@ CDIMGE CD309100 SJ )@@G@@@B@@@@/ . @I@@@@. ROUTINE FOR POSISK )@@G@@TIONING TAPE FORWARD ONE BLOCK AT A TIME CD309300 @I@@@@SL )@@G@@POSFOR SZ PSERET . ZERO PSE JUMP RETURN SM )@@G@@CD309400 @I@@@@ GETFLD SAMECD . PICK UP 'N' FISN )@@G@@ELD OF PARAMETER CCD309500 @I@@@@ LMJ X11,NOVAL SO )@@G@@ . GO TEST FOR USER COUNT CD309600 @I@@@@ J SP )@@G@@ REPEATB . COME HERE IF WE PROVIDED FILE COUCD309700 @I@@@@SQ )@@G@@ SA A1,X2 . SR )@@G@@CD309800 @I@@@@ SLJ CNVT . CONVERT TO BINSS )@@G@@Y VALUE WILL BE INCD309900 @I@@@@REPEATB LA,S5 A0,OPTION ST )@@G@@ . LOAD FOR 'D' OPTION TEST CD310000 @I@@@@ TOP,U SU )@@G@@ A0,01 . 'D' OPTION SET? CD310100 @I@@@@SV )@@G@@ J COUNTT . TEST FOR O COUNT BEFORE POSITIOSW )@@G@@CD310200 @I@@@@ J PSFD . GO TO DRUM ROUTSX )@@G@@INE CD310300 @I@@@@REPEAT DL A0,FILEN SY )@@G@@ . FILENAME WD TWO CD310400 @I@@@@ DS SZ )@@G@@ A0,TAPPKT CD310500 @I@@@@TA )@@G@@ L,U A0,050 . FUNC CODE FOR POS FILE FORWARD OTB )@@G@@CD310600 @I@@@@ S,S2 A0,TAPPKT+3 . PLACE IN PROPETC )@@G@@R WORD OF PACKET CD310700 @I@@@@ LA,U A0,FOPT(3) TD )@@G@@ . CD310800 @I@@@@ SA TE )@@G@@ A0,PNT . CD310900 @I@@@@TF )@@G@@ J REPETA . TG )@@G@@CD311000 @I@@@@FOPT(3) TNZ NO2EOF . COMING FROM EOTH )@@G@@F COMPARE CD311100 @I@@@@ J COUNT TI )@@G@@ CD311200 @I@@@@ L TJ )@@G@@ X2,SAVJGD . CLEANUP FOR RETURN TO CMP CD311300 @I@@@@TK )@@G@@ SZ NO2EOF TL )@@G@@CD311400 @I@@@@ J NXTCMP TM )@@G@@ CD311500 @I@@@@REPETA L,U A0,TAPPKT TN )@@G@@ . I/0 PACKET FOR MAG TAPE CD311600 @I@@@@ ER TO )@@G@@ IOW$ . MOVE ONE BLOCK FORWARD CD311700 @I@@@@TP )@@G@@ INCR TQ )@@G@@CD311800 @I@@@@ L,U A0,1 . STATUS CODE FOTR )@@G@@R TESTING EOF CD311900 @I@@@@ TNE,S1 A0,TAPPKT+3 TS )@@G@@ . IS IT EOF CD312000 @I@@@@ J TT )@@G@@ FOUND1 . CD312100 @I@@@@TU )@@G@@ TNZ,S6 OPTION . F OPTION SET? TV )@@G@@CD312200 @I@@@@ J COUNT . NO TW )@@G@@ CD312300 @I@@@@ J REPETA TX )@@G@@ . CD312400 @I@@@@FOUND1 TZ TY )@@G@@ PSERET . COMMONG FROM PSE COMMAND TEST CD312500 @I@@@@TZ )@@G@@ J POSF2 UA )@@G@@CD312600 @I@@@@ SLJ PRTEFX . PRINT EOF ENCOUB )@@G@@UNTERED CD312700 @I@@@@ INCF UC )@@G@@ CD312800 @I@@@@ TZ UD )@@G@@ NONO . CD312900 @I@@@@UE )@@G@@ J NXTFLE . UF )@@G@@CD313000 @I@@@@ TZ,S6 OPTION . F OPTION SET? UG )@@G@@ CD313100 @I@@@@ J *PNT UH )@@G@@ . GO BACK WHERE CAME FROM CD313200 @I@@@@ J UI )@@G@@ CDIMGE CD313300 @I@@@@UJ )@@G@@COUNTT JGD X2,REPEAT . TO TAKE CARE OF FIRST PASS UK )@@G@@CD313400 @I@@@@ J CDIMGE . UL )@@G@@ CD313500 @I@@@@COUNT JGD X2,REPETA UM )@@G@@ . GO BACK AND DO IT AGAIN CD313600 @I@@@@ J UN )@@G@@ CDIMGE . PROCESS NEXT CARD CD313700 @I@@@@UO )@@G@@ . UP )@@G@@CD313800 @I@@@@. ROUTINE TO POSITION FORWARD PAST EOF AND BACK UP 1 BUQ )@@G@@LOCK..............CD313900 @I@@@@ . UR )@@G@@ CD314000 @I@@@@POSF1 LA,S5 US )@@G@@ A0,OPTION . TEST FOR D OPTION CD314100 @I@@@@UT )@@G@@ TEP,U A0,1 . UU )@@G@@CD314200 @I@@@@ J PSED . YES UV )@@G@@ CD314300 @I@@@@ SA A2,PSERET UW )@@G@@ . NONZERE RET. SWCH:A2=NR CHAR FN CD314400 @I@@@@ J UX )@@G@@ POSFOR+1 . CD314500 @I@@@@UY )@@G@@POSF2 SZ PSERET . CLEAN UP SWITCH UZ )@@G@@CD314600 @I@@@@ L,U A0,051 . BACKSPACE OVERVA )@@G@@ EOF CD314700 @I@@@@ S,S2 A0,TAPPKT+3 VB )@@G@@ CD314800 @I@@@@ L,U VC )@@G@@ A0,TAPPKT CD314900 @I@@@@VD )@@G@@ ER IOW$ VE )@@G@@CD315000 @I@@@@ DCRR VF )@@G@@ CD315100 @I@@@@PRTAFB . VG )@@G@@ CD315200 @I@@@@ DL VH )@@G@@ A1,FILEN . MSG- POSITIONED AFTER BLOCK XX. CD315300 @I@@@@VI )@@G@@ DS A1,BLKPOS VJ )@@G@@CD315400 @I@@@@ SLJ QGETAD VK )@@G@@ CD315500 @I@@@@ L A0,2,A0 VL )@@G@@ CD315600 @I@@@@ E$BD VM )@@G@@ 6,AFTBLK,6 . CD315700 @I@@@@VN )@@G@@ L A0,AFTERB VO )@@G@@CD315800 @I@@@@ ER PRINT$ VP )@@G@@ CD315900 @I@@@@ J CDIMGE VQ )@@G@@ CD316000 @B@@@@/ VR )@@G@@ . @I@@@@POSBWD GETFLD SAMECD . PIVS )@@G@@CK UP VALUE 'N' FOR POSITIONINCD316200 @I@@@@ SZ OVWJVT )@@G@@MP . ZERO EXIT TO OVW COMMAND CD316300 @I@@@@ VU )@@G@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT CD3164VV )@@G@@00 @I@@@@ J GETREC . COME HERE IF WE PROVIVW )@@G@@DED FILE COUCD316500 @I@@@@ SA A1,X2 . VX )@@G@@ CD316600 @I@@@@ SLJ CNVTVY )@@G@@ CD316700 @I@@@@GETRECVZ )@@G@@ LA,S5 A0,OPTION . TEST FOR D OPTION CD3168WA )@@G@@00 @I@@@@ TEP,U A0,1 . WB )@@G@@ CD316900 @I@@@@ J PSBD . YESWC )@@G@@ CD317000 @I@@@@ DL A0,FWD )@@G@@ILEN . NO CD317100 @I@@@@ WE )@@G@@ DS A0,TAPPKT . CD3172WF )@@G@@00 @I@@@@BWDSET L,U A0,051 . POSITION BACKWARDS FWG )@@G@@UNCTION CD317300 @I@@@@ S,S2 A0,TAPPKT+3 . PRWH )@@G@@OPER WD FOR THIS CODE CD317400 @I@@@@ J COUNWI )@@G@@T1 . CD317500 @I@@@@BACKUPWJ )@@G@@ L,U A0,TAPPKT . LOAD THE PACKET CD3176WK )@@G@@00 @I@@@@ ER IOW$ . MOVE TAPE BACKWARD OWL )@@G@@NE BLOCK CD317700 @I@@@@ DCRR WM )@@G@@ CD317800 @I@@@@ L,U A0,1WN )@@G@@ . STATUS CODE FOR EOF CD317900 @I@@@@ WO )@@G@@ TNE,S1 A0,TAPPKT+3 . TEST FOR EOF CD3180WP )@@G@@00 @I@@@@ J EOFOUT . YES GET OUT WQ )@@G@@ CD318100 @I@@@@ L,U A0,02 . LOAWR )@@G@@D POINT RETURN CODE CD318200 @I@@@@ TNE,S1 A0,TAWS )@@G@@PPKT+3 . TEST FOR LOAD POINT CD318300 @I@@@@ WT )@@G@@ J LPOUT . YES GET OUT CD3184WU )@@G@@00 @I@@@@ TZ,S6 OPTION . F OPTION SET? WV )@@G@@ CD318500 @I@@@@ J BACKUP . YESWW )@@G@@ CD318600 @I@@@@ J COUNWX )@@G@@T1 . NO CD318700 @I@@@@EOFOUTWY )@@G@@ DCRF . CD3188WZ )@@G@@00 @I@@@@ TNZ OVWJMP . DON'T PRINT MESSAGE XA )@@G@@IF OVERWRITECD318900 @I@@@@ SLJ PRTEFX XB )@@G@@ CD319000 @E@@@@ CLRR XC )@@G@@ . ZERO RECORD COUNT @I@@@@ TNZ,S6 OPTION XD )@@G@@ . F OPTION SET? CD319100 @I@@@@ J XE )@@G@@ CDIMGE . NO CD319200 XF )@@G@@@I@@@@ JGD X2,BACKUP . XG )@@G@@ CD319400 @I@@@@ L A0,OVWJMP . DID WE CXH )@@G@@OME FROM OVERWRITE CMD CD319500 @I@@@@ JNZ A0,OVWRET XI )@@G@@ CD319600 @I@@@@ J XJ )@@G@@ CDIMGE . GET ANOTHER COMMAND CD319700 XK )@@G@@@I@@@@LPOUT L A0,(P 2,8,PRTLPF) . LOAD AND PRINT LOAD POINXL )@@G@@T MESGCD319800 @I@@@@ ER PRINT$ . WRITE OUTXM )@@G@@ MESSAGE CD319900 @I@@@@ CLRR XN )@@G@@ . CLEAR RECORD COUNTER CD320000 @I@@@@ CLXO )@@G@@RF . CLEAR FILE COUNTER CD320100 XP )@@G@@@I@@@@ J CDIMGE . GO GET ANOTHER XQ )@@G@@ CD320200 @I@@@@COUNT1 JGD X2,BACKUP . CHECK BLXR )@@G@@OCK COUNT AND DECREMENT CD320300 @I@@@@ J CDIMGE XS )@@G@@ . GET ANOTHER COMMAND CD320400 @B@@@@/ XT )@@G@@ . @I@@@@COPY GETFLD SAMECD XU )@@G@@ . GET OUTPUT FILE NAME CD320600 @I@@@@ JZ XV )@@G@@ A2,BADCOM . PARAMETER CARD CHECK CD320700 @I@@@@XW )@@G@@ MSI,U A2,6 . DETERMINE NUMBER OF SHIFT POSITIXX )@@G@@CD320800 @I@@@@ S,T3 A2,$+1 XY )@@G@@ CD320900 @I@@@@ DSC A0,0 XZ )@@G@@ . POSITION FILENAME CD321000 @I@@@@ DS YA )@@G@@ A0,F2NAM . DS OUTPUT FILENAME CD321100 @I@@@@YB )@@G@@ GETFLD SAMECD . GET VALUE 'N' IF ANY YC )@@G@@CD321200 @I@@@@ LMJ X11,NOVAL . GO TEST FOR USEYD )@@G@@R COUNT CD321300 @I@@@@ J LEG1+1 YE )@@G@@ . COME HERE IF WE PROVIDED FILE COUCD321400 @I@@@@ SA YF )@@G@@ A1,X2 . NR FILES OR RECORDS CD321500 @I@@@@YG )@@G@@LEG1 SLJ CNVT . FD TO BIN YH )@@G@@CD321600 @I@@@@ DL A0,FILEN YI )@@G@@ CD321700 @I@@@@ DS A0,FN1 YJ )@@G@@ CD321800 @I@@@@ TZ,S6 YK )@@G@@ OPTION . F OPTION SET? CD321900 @I@@@@YL )@@G@@ J FCOPYA . YES YM )@@G@@CD322000 @I@@@@ J WRITER+1 YN )@@G@@ CD322100 @I@@@@KEEPON LA,S5 A0,OPTION YO )@@G@@ . TEST FOR 'D' OPTION CD322200 @I@@@@ JZ YP )@@G@@ A0,$+2 . NO 'D' OPTION CD322300 @I@@@@YQ )@@G@@ SA A0,DUPPNT . SET FLAG YR )@@G@@CD322400 @I@@@@ SLJ GENRD1 YS )@@G@@ CD322500 @I@@@@ INCR YT )@@G@@ CD322600 @I@@@@WRITER SLJ YU )@@G@@ RITE . COPY BAD RECORD CD322700 @I@@@@YV )@@G@@ SZ DUPPNT . ZERO OUT TAPE-DRUM DUPE FLAG YW )@@G@@CD322800 @I@@@@ JGD X2,KEEPON YX )@@G@@ CD322900 @I@@@@ J CDIMGE YY )@@G@@ CD323000 @I@@@@FCOPYA LA,U YZ )@@G@@ A0,FOPT(1) . CD323100 @I@@@@ZA )@@G@@ SA A0,PNT . ZB )@@G@@CD323200 @ @@@@ L A0,X2 @G@@@@ TNE ZC )@@G@@ A0,NMANYF . DID USER GIVE A FILE COUNT @E@@@@ L,ZD )@@G@@U X2,1 . NO - ONLY DO 1 FILE @I@@@@ J ZE )@@G@@ FCOPYB . CD323300 @I@@@@ZF )@@G@@FCOPY SLJ GENRD1 . GO READ A BLOCK ZG )@@G@@CD323400 @I@@@@ INCR . INCREMENT RECORZH )@@G@@D COUNT CD323500 @I@@@@ SLJ RITE ZI )@@G@@ . WRITE IT OUT CD323600 @I@@@@ J ZJ )@@G@@ FCOPY . GO GET ANOTHER CD323700 @I@@@@ZK )@@G@@FOPT(1) LX X2,BS . RELOAD X2 ZL )@@G@@CD323800 @I@@@@ DL A0,F2NAM . LOAD OUTPUT FILZM )@@G@@E NAME CD323900 @I@@@@ DS A0,FILEN ZN )@@G@@ . CD324000 @I@@@@ J ZO )@@G@@ WREOF+1 . GO MARK THE TAPE CD324100 @I@@@@ZP )@@G@@FCOPYC DL A0,FN1 . RESET FILE NAME TO FIRST NAME ZQ )@@G@@CD324200 @I@@@@ DS A0,FILEN . ZR )@@G@@ CD324300 @I@@@@FCOPYB JGD X2,FCOPY ZS )@@G@@ . GO START ANOTHER CD324400 @I@@@@ J ZT )@@G@@ CDIMGE . GO GET ANOTHER CARD CD324500 @B@@@@ZU )@@G@@/ . @I@@@@RITE* NOP ZV )@@G@@ . CD324700 @I@@@@ ZW )@@G@@ TZ DUPPNT . TAPE TO DRUM DUPE? CD3248ZX )@@G@@00 @I@@@@ J DWRTE . YES ZY )@@G@@ CD324900 @I@@@@ DL A0,F2NAM . PIZZ )@@G@@CK UP OUTPUT FN CD325000 @I@@@@ DS A0,TAA )@@G@@APWRI . PUT IN TAPE WRITE PACKET CD325100 @I@@@@ AB )@@G@@ L,H2 A0,NOWDS$ . PICK UP NUMBER WORDS CD3252AC )@@G@@00 @I@@@@ S,H1 A0,TAPWRI+4 . STORE IN WRITE PACKEAD )@@G@@T CD325300 @I@@@@ L,U A0,TAPWRI . PIAE )@@G@@CK UP WRITE PACKET CD325400 @I@@@@ ER IOW$AF )@@G@@ . WRITE TAPE CD325500 @I@@@@ AG )@@G@@ L,U A0,2 . STATUS CODE FOR TESTING EOT CD3256AH )@@G@@00 @I@@@@ TNE,S1 A0,TAPWRI+3 AI )@@G@@ CD325700 @I@@@@ J EOTRET AJ )@@G@@ CD325800 @I@@@@ L,U A0,0AK )@@G@@10 . TEST ABORT ERRORS CD325900 @I@@@@ AL )@@G@@ TG,S1 A0,TAPWRI+3 . TEST IT CD3260AM )@@G@@00 @I@@@@ J *RITE AN )@@G@@ CD326100 @I@@@@ J PROBLM . HAAO )@@G@@D A WROTE ERROR CONDITION CD326200 @I@@@@ . WHEN GET AN END OFAP )@@G@@ TAPE RETURN FROM IOW - WILL WRITE AN EOF ON CD326300 @I@@@@. TAPAQ )@@G@@E, THEN DO AN ER TO TSWAP$ TO GET ANOTHER TAPE CD3264AR )@@G@@00 @I@@@@EOTRET . AS )@@G@@ CD326500 @I@@@@ L,U A0,011 . LOAD WEOAT )@@G@@F FUNC CD326600 @I@@@@ S,S2 A0,TAU )@@G@@APWRI+3 . STORE IN PKT CD326700 @I@@@@ AV )@@G@@ L,U A0,TAPWRI CD3268AW )@@G@@00 @I@@@@ ER IOW$ . WRITE EOF AX )@@G@@ CD326900 @I@@@@ L,U A0,TAPWRI . AY )@@G@@ CD327000 @I@@@@ ER TSWAAZ )@@G@@P$ . SWAP REELS CD327100 @I@@@@ BA )@@G@@ L,U A0,010 . RESTORE WRT FUNC IN PKT CD3272BB )@@G@@00 @I@@@@ S,S2 A0,TAPWRI+3 . BC )@@G@@ CD327300 @I@@@@ J *RITE BD )@@G@@ CD327400 @I@@@@PROBLM L,U A0,WBE )@@G@@RERR . BAD WRITE CONDITION CD327500 @I@@@@ BF )@@G@@ ER PRINT$ . PRINT ERROR CD3276BG )@@G@@00 @I@@@@ ER ERR$ . ERROR OUT BH )@@G@@ CD327700 @B@@@@/ . BI )@@G@@@I@@@@DUMP GETFLD SAMECD . GET PARAMETER VALUE 'N' IFBJ )@@G@@ ANY CD327900 @I@@@@ LMJ X11,NOVAL . GO TEST FBK )@@G@@OR USER COUNT CD328000 @I@@@@ J NVALUE+1 BL )@@G@@ . COME HERE IF WE PROVIDED FILE COUCD328100 @I@@@@ SABM )@@G@@ A1,X2 . CD328200 BN )@@G@@@H@@@@ SA A1,SAVEX2 . PUT X2 AWAY FOR FUTURE USEBO )@@G@@ . 03D @I@@@@NVALUE SLJ CNVT . FD TO BIN VALUBP )@@G@@E COMES BACK IN XRCD328300 @I@@@@ DL A0,FILEN BQ )@@G@@ CD328400 @I@@@@ DS BR )@@G@@ A0,FN1 CD328500 @E@@@@BS )@@G@@ LA A0,TEMP . CHECK IS X OPTION ON@ @@@@ BT )@@G@@ TOP,U A0,04 @^@@@@ J $+5 @B@@@@ LABU )@@G@@ A0,(P 2, 9,XMSG1) @B@@@@ ER PRINT$ BV )@@G@@ . @B@@@@ LA A0,(P 1, 9,XMSG2) @B@@@@ ERBW )@@G@@ PRINT$ . @I@@@@ LA,U A0,FOPT(4) BX )@@G@@ . LOAD F OPTION RETURN ADDRESS CD328600 @I@@@@ SA BY )@@G@@ A0,PNT . STORE IT CD328700 @H@@@@BZ )@@G@@ TZ,S6 OPTION . F OPTION REQUESTED CA )@@G@@. 03D @H@@@@ J DONEIT . NO CB )@@G@@ . 03D @H@@@@ L A0,X2 . CC )@@G@@ . 03D @H@@@@ TNE A0,NMANYF CD )@@G@@ . DID USER GIVE A FILE COUNT . 03D @H@@@@ L,U X2,1CE )@@G@@ . USER DIDNOT GIVE A NR - ONLY DO . 03D @H@@@@ SXCF )@@G@@ X2,SAVEX2 . . 03D @H@@@@CG )@@G@@ J DONEIT CH )@@G@@. 03D @H@@@@NEXREC . CI )@@G@@ . 03D @H@@@@ SX X2,SAVEX2 . SAVE INDCJ )@@G@@EX 2 . 03D @H@@@@ SLJ GENRD1 CK )@@G@@ . GO READ A RECORD . 03D @H@@@@ INCR CL )@@G@@ . 03D @F@@@@ TZCM )@@G@@ OPTION2 . 'Q' O'R' R OPTIONS SET @E@@@@ J CN )@@G@@ BPD1 . YES BPD @F@@@@ TZ,H1 CO )@@G@@ OPTION . 'A', 'O', OR 'H' SET BPD @G@@@@ J CP )@@G@@ BPD1 . YES BPD@G@@@@ SLCQ )@@G@@J PRTO . DEFAULT 'O' OPTION BPD @G@@@@ CR )@@G@@ TZ,S6 OPTION . 'F' OPTION SET ? BPD @C@@@@CS )@@G@@ J NEXREC . YES @G@@@@ J CT )@@G@@ DONEIT . DECREMENT BPD@D@@@@BPD1 CU )@@G@@ . BPD @H@@@@ TZ,S1 OPTIOCV )@@G@@N2 . GET POSSIBLE Q ASCII OPTIONS . 03D @H@@@@ LMCW )@@G@@J X11,PRTAQ . GO PRINT ASCII DIVIDED . 03D @H@@@@CX )@@G@@ TZ,S2 OPTION2 . GET POSSIBLE R ASCII OPTIONS CY )@@G@@. 03D @H@@@@ LMJ X11,PRTHQ . GO PRINT ASCII JAMMECZ )@@G@@D . 03D @H@@@@ TZ,S2 OPTION . TEST 'O' OPTDA )@@G@@ION CD3. 03D @H@@@@ SLJ PRTO DB )@@G@@ . YES, PRINT OCTAL . 03D @H@@@@ TZ,S1 OPTIDC )@@G@@ON . TEST 'A' OPTION CD3. 03D @H@@@@ SLDD )@@G@@J PRTA . YES, PRINT ALPHA DIVIDED INTO WOR. 03D @H@@@@DE )@@G@@ TZ,S3 OPTION . TEST 'H' OPTION ON CD33DF )@@G@@. 03D @H@@@@ SLJ PRTH . YES PRINT ALPHA CONDG )@@G@@TINOUS NOT D. 03D @E@@@@ TNZ,S6 OPTION . F OPTIONDH )@@G@@ REQUESTED @B@@@@ J DONEIT . NO@I@@@@ DI )@@G@@ J NEXREC . YES CD3311DJ )@@G@@00 @I@@@@FOPT(4) CLRR . CLEAR RECORD BEFORE SDK )@@G@@TARTING 2ND CD331200 @H@@@@DONEIT . DL )@@G@@ . 03D @H@@@@ LX X2,SAVEX2 DM )@@G@@ . RESTORE INDEX 2 . 03D @H@@@@ JGD DN )@@G@@ X2,NEXREC . 03D @I@@@@ DO )@@G@@ LA,U A0,28 . RESET DRUM READ COUNTERS CD3314DP )@@G@@00 @I@@@@ SA,H1 A0,DRPKT+4 . JUST IN CASE DQ )@@G@@ CD331500 @I@@@@ SZ SWITCH . DR )@@G@@ CD331600 @I@@@@ J CDIMDS )@@G@@GE CD331700 @I@@@@/ . C DT )@@G@@O M P A R THIS ROUTINES COMPARES TAPE RECORD BLOCKS ONLY. CD3318DU )@@G@@00 @I@@@@COMPAR . DV )@@G@@ CD331900 @I@@@@ SZ EOFLAG . TODW )@@G@@ DENOTE ALL OTHER EOFS CD332000 @I@@@@ DL A0,FDX )@@G@@ILEN . . 3A @I@@@@ DY )@@G@@ DS A0,FACPAC . PREPARE PACKET . 3DZ )@@G@@A @I@@@@ L,U A0,FACPAC . EA )@@G@@ . 3A @I@@@@ ER FACIT$ . EB )@@G@@ . 3A @I@@@@ L,S1 A1,FEC )@@G@@ACPAC+6 . EQUIPMENT TYPE FOR POSSIBLE AFC . 3A @I@@@@ ED )@@G@@ S A1,EQUIP1 . . 3EE )@@G@@A @I@@@@ GETFLD SAMECD . GET SECOND FILENAME EF )@@G@@ CD332100 @I@@@@ JZ A2,NOT2ND . DOEG )@@G@@ES USER HAVE TWO FILE NAMES CD332200 @I@@@@ MSI,U A2,6EH )@@G@@ . DETERMINE NUMBER OF SHIFT POSITICD332300 @I@@@@ EI )@@G@@ S,T3 A2,$+1 CD3324EJ )@@G@@00 @I@@@@ DSC A0,0 . POSITION FILE NAME EK )@@G@@ CD332500 @I@@@@ DS A0,F2NAM . DSEL )@@G@@ SECOND FILE NAME CD332600 @I@@@@ DS A0,FEM )@@G@@ACPAC . SET UP PACKET FOR FACIT . 3A @I@@@@ EN )@@G@@ L,U A0,FACPAC . . 3EO )@@G@@A @I@@@@ ER FACIT$ . GET EQUIPMENT TYPE EP )@@G@@ . 3A @I@@[@ TNZ,S1 FACPAC+6 . ANEQ )@@G@@Y EQUIP TYPE ? BPD 03F @I@@[@ J NOFIER )@@G@@LE . NOT ASSIGNED BPD 03F @I@@@@ ES )@@G@@ L,S1 A0,FACPAC+6 . . 3ET )@@G@@A @I@@@@ S A0,EQUIP2 . EU )@@G@@ . 3A @I@@@@ TNZ,S6 OPTION . F OEV )@@G@@PTION SET? CD332700 @I@@@@ J CMPTEW )@@G@@P1 CD332800 @I@@@@ EX )@@G@@ GETFLD SAMECD . GET COUNT OF NUMBER OF FILES CD3329EY )@@G@@00 @I@@@@ LMJ X11,NOVAL . GO WORK THE COUNT EZ )@@G@@ CD333000 @I@@@@ L A1,(' 1') . FIFA )@@G@@LE COUNT = 1 IF NONE GIVEN CD333100 @I@@@@ SA A1,XFB )@@G@@2 . CD333200 @I@@@@ FC )@@G@@ SLJ CNVT . CONVERT COUNT TO BINARY CD3333FD )@@G@@00 @I@@@@ L,U A0,FOPT(2) . STORE F OPTION POINTFE )@@G@@ER CD333400 @I@@@@ S A0,PNT . UFF )@@G@@SED BY TPRD$ EOF ROUTINE CD333500 @I@@@@ J FOPTFG )@@G@@(2) . DECREMENT FILE COUNTER CD333600 @I@@@@CMPTP1FH )@@G@@ . CD3337FI )@@G@@00 @I@@@@ DL A0,F1NAM . INSERT CURRENT FILE FJ )@@G@@NAME CD333800 @I@@@@ DS A0,FILEN . FK )@@G@@ CD333900 @I@@@@ LMJ X11,FL )@@G@@TPRD$ . READ FIRST TAPE CD334000 @I@@@@F1NAM FM )@@G@@ + 0 . CD3341FN )@@G@@00 @I@@@@ + 0 . FO )@@G@@ CD334200 @I@@@@ + 4096,BLOCK . FP )@@G@@ CD334300 @I@@@@ + EOFCFQ )@@G@@MP . EOF RETURN CD334400 @I@@@@ FR )@@G@@ INCR . INCREMENT RECORD COUNT CD3345FS )@@G@@00 @I@@@@ L A14,NOWDS$ . NUMBER OF WORDS READFT )@@G@@ CD334600 @I@@@@ S A14,WDSTP1 . FU )@@G@@ CD334700 @I@@@@CMPTP2 FV )@@G@@ . CD334800 @I@@@@ FW )@@G@@ DL A0,F2NAM . CHANGE FILE NAME CD3349FX )@@G@@00 @I@@@@ DS A0,FILEN . FY )@@G@@ CD335000 @I@@@@ LMJ X11,TPRD$ . REFZ )@@G@@AD SECOND TAPE CD335100 @I@@@@F2NAM* + 0 GA )@@G@@ . CD335200 @I@@@@ GB )@@G@@ + 0 . CD3353GC )@@G@@00 @I@@@@ + 4096,BLOCK1 GD )@@G@@ CD335400 @I@@@@ + EOF2ND . EOGE )@@G@@F RETURN CD335500 @I@@@@ INCR GF )@@G@@ . INCREMENT RECORD COUNT CD335600 @I@@@@ GG )@@G@@ TZ EOFLAG . WAS EOF ON FIRST TZPE CD3357GH )@@G@@00 @I@@@@ J NOEFT2 . YES- ERROR GI )@@G@@ CD335800 @I@@@@ L A15,NOWDS$ . COGJ )@@G@@MPARE NR WORDS READ CD335900 @I@@@@ S A15,GK )@@G@@WDSTP2 . WORDS READ ON TAPE 2 CD336000 @I@@@@ GL )@@G@@ L,H2 A14,WDSTP1 . PICK UP WORD COUNT ONLY . 3GM )@@G@@A @I@@@@ L,H2 A15,WDSTP2 . PICK UP WORD COUNT OGN )@@G@@NLY . 3A @I@@@@ TE A15,A14 . SAGO )@@G@@ME NR WORDS BOTH TAPES CD336200 @I@@@@ J GOOFGP )@@G@@NR . CD336300 @I@@@@ GQ )@@G@@ SZ A3 . INCREMENT FOR WORD COMPARISON CD3364GR )@@G@@00 @I@@@@SAMWDS . GS )@@G@@ CD336500 @I@@@@ L A0,BLOCK,A3 . WOGT )@@G@@RD FROM FIRST TAPE CD336600 @I@@@@ TE A0,BGU )@@G@@LOCK1,A3 . WORDS FROM 2ND TAPE CD336700 @I@@@@ GV )@@G@@ J GOOFWD CD3368GW )@@G@@00 @I@@@@ A,U A3,1 GX )@@G@@ CD336900 @I@@@@ TE A15,A3 . ALGY )@@G@@L WORDS COMPARED] CD337000 @I@@@@ J SAMWGZ )@@G@@DS . CD337100 @I@@@@ HA )@@G@@ J CMPTP1 . READ AND COMPARE NEXT BLOCK CD3372HB )@@G@@00 @I@@@@EOFCMP . HC )@@G@@ CD337300 @I@@@@ INCR . EOHD )@@G@@F READ ON TAPE 1 CD337400 @I@@@@ L,U A0,1HE )@@G@@ CD337500 @I@@@@ HF )@@G@@ S A0,EOFLAG . SET FLAG CD3376HG )@@G@@00 @I@@@@ SLJ PRTEFX . PRINT EOF ENCOUNTEREHH )@@G@@D MSG CD337700 @I@@@@ INCF . INHI )@@G@@C FILE COUNT AND ZERO RECORDS CD337800 @I@@@@ J CMPTHJ )@@G@@P2 . CD337900 @I@@@@EOF2NDHK )@@G@@ . CD3380HL )@@G@@00 @I@@@@ INCR . HM )@@G@@ CD338100 @I@@@@ TNZ EOFLAG . HN )@@G@@ CD338200 @I@@@@ J NOEFHO )@@G@@T1 . NO EOF ON TAPE 1 CD338300 @I@@@@ HP )@@G@@ SLJ PRTEFX . END OF FILE ENCOUNTERED CD3384HQ )@@G@@00 @I@@[@ TZ,H2 CNTYP . ERRORS ? HR )@@G@@ BPD 03F @I@@[@ J PRTNUM . YEHS )@@G@@S PRINT MESSAGE BPD 03F @I@@@@ L A0,AHT )@@G@@DPKT3 . YOUR TAPES COMPARE CD338500 @I@@@@ HU )@@G@@ ER PRINT$ . CD3386HV )@@G@@00 @I@@@@ INCF . UP FILE COUNT-ZERO RHW )@@G@@ECORD CNT CD338700 @I@@[@ J NXTCMP . GEHX )@@G@@T NEXT FILE BPD 03F @ @@[@PRTNUM . BPD HY )@@G@@03F @I@@[@ LA A0,CNTYP . GET COUNTER HZ )@@G@@ BPD 03F @I@@[@ LSSL A0,6 . DRIA )@@G@@OP RUN TYPE BPD 03F @I@@[@ SSL A0,6IB )@@G@@ . BPD 03F @I@@[@ IC )@@G@@ E$BD 6,ERRCNT,6 . CONVERT OCTAL TO FD BPD 03ID )@@G@@F @I@@[@ LA A0,(0212,ERRCNT) . PRINT ERROR MSG IE )@@G@@ BPD 03F @I@@[@ ER PRINT$ . IF )@@G@@ BPD 03F @I@@[@ INCF . IG )@@G@@ BPD 03F @I@@@@NXTCMPIH )@@G@@ . CD3388II )@@G@@00 @I@@@@ SZ EOFLAG . IJ )@@G@@ CD338900 @I@@@@ TZ,S6 OPTION . IK )@@G@@ CD339000 @I@@@@FOPT(2) JGD X2,CIL )@@G@@MPTP1 . READ NEXT FILE- F OPTION CD339100 @I@@@@ IM )@@G@@ J CDIMGE . GET NEXT COMMAND CD3392IN )@@G@@00 @I@@@@NOEFT2 DL A0,F2NAM . IO )@@G@@ CD339300 @I@@@@ DS A0,NOTEOF+9 . IP )@@G@@ CD339400 @I@@@@ L A0,AIQ )@@G@@DPKT4 . EOF EXPECTED, NOT ENCOUNTERED CD339500 @I@@@@ IR )@@G@@ ER PRINT$ . CD3396IS )@@G@@00 @I@@@@ S X2,SAVJGD . SAVE FILE COUNT IS IIT )@@G@@S ONE CD339700 @I@@@@ LA,U A0,1 . IU )@@G@@ CD339800 @I@@@@ S A0,NIV )@@G@@O2EOF . RETURN FROM PSF SWITHC CD339900 @I@@@@ IW )@@G@@ L X2,(037777777777) . DUMMY RECORD COUNT CD3400IX )@@G@@00 @I@@@@ J REPEAT . POSITION T2 PAST EOFIY )@@G@@ CD340100 @I@@@@NOEFT1 . NOIZ )@@G@@ EOF ON T1, IS ON T2 CD340200 @I@@@@ DL A0,FJA )@@G@@2NAM . LOAD FILENAME IN ERROR MSG CD340300 @I@@@@ JB )@@G@@ DS A0,BLOWIT+13 . CD3404JC )@@G@@00 @I@@@@ SLJ QGETAD . GET BLOCK COUNT JD )@@G@@ CD340500 @I@@@@ L A0,2,A0 . JE )@@G@@ CD340600 @I@@@@ E$BD 6,BLJF )@@G@@OWIT+10,6 . STORE BLOCK COUNT CD340700 @I@@@@ JG )@@G@@ L A0,ADPKT7 CD3408JH )@@G@@00 @I@@@@ ER PRINT$ . JI )@@G@@ CD340900 @I@@@@ INCF . UPJJ )@@G@@ FILE, ZERO RECORD COUNTS CD341000 @I@@@@ DL A0,FJK )@@G@@1NAM . SWAP FILE NAMES TO POSTION CD341100 @I@@@@ JL )@@G@@ DS A0,FILEN . CD3412JM )@@G@@00 @I@@@@ S X2,SAVJGD . SAVE FILE COUNT JN )@@G@@ CD341300 @I@@@@ LA,U A0,1 . JO )@@G@@ CD341400 @I@@@@ S A0,NJP )@@G@@O2EOF . RETURN FROM PSF SWITCH CD341500 @I@@@@ JQ )@@G@@ L X2,(037777777777) . DUMMY RECORD COUNT CD3416JR )@@G@@00 @I@@@@ J REPEAT . POSITION F1 PAST EOFJS )@@G@@ CD341700 @I@@@@GOOFNR . NRJT )@@G@@ WORDS 2 TAPES DIFFERENT CD341800 @I@@@@ L,U A0,0JU )@@G@@050004 . TEST FOR ODD NR WDS ON 9 TRACK . 3A @I@@@@ JV )@@G@@ TNE,H1 A0,WDSTP1 . AFC ON TAPE 1 WITH 5 FRAMES . 3JW )@@G@@A @I@@@@ J AFCTP1 . AFC IS ON TAPE 1 JX )@@G@@ . 3A @I@@@@ TE,H1 A0,WDSTP2 . NOJY )@@G@@T ON 1 TRY TAPE 2 . 3A @I@@@@ J TRUGJZ )@@G@@OF . HAVE TRUE NON COMPARE ERROR . 3A @I@@@@ KA )@@G@@ L,H2 A0,WDSTP2 . NR WORDS READ + PAD . 3KB )@@G@@A @I@@@@ ANA,U A0,1 . DECREADE FOR PAD KC )@@G@@ . 3A @I@@@@ TE,H2 A0,WDSTP1 . SAKD )@@G@@ME NR WORDS WITHOUT AFC . 3A @I@@@@ J TRUGKE )@@G@@OF . NO . 3A @I@@@@ KF )@@G@@ LA A0,EQUIP2 . TEST FOR 9 TRACK TAPE . 3KG )@@G@@A @I@@@@ TE,U A0,05 . NINE TRACK TAPE DRIVKH )@@G@@E 8C9 . 3A @I@@@@ J TRUGOF . NOKI )@@G@@T NINE TRACK . 3A @I@@@@ LA A0,EKJ )@@G@@QUIP1 . MUST BE 7 AND 9 TRACK COMPARISON . 3A @I@@@@ KK )@@G@@ TE,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3KL )@@G@@A @I@@@@ J TRUGOF . KM )@@G@@ . 3A @I@@@@ ANA,U A15,1 . USKN )@@G@@E 1 LESS WD FOR COMPARE . 3A @I@@@@ J CMPAKO )@@G@@FC . PRINT WARNING FOR USER IF NOT DONE . 3A @I@@@@AFCTP1KP )@@G@@ L A0,EQUIP1 . TEST FOR 9 TRACK TAPE DRIVE . 3KQ )@@G@@A @I@@@@ TE,U A0,05 . KR )@@G@@ . 3A @I@@@@ J TRUGOF . NOKS )@@G@@T 9 TRACK DRIVE . 3A @I@@@@ L A0,EKT )@@G@@QUIP2 . MUST BE 7 AND 9 TRACK COMPARE . 3A @I@@@@ KU )@@G@@ TE,U A0,3 . SEVEN TRACK DRIVE WITH TRANSLATE . 3KV )@@G@@A @I@@@@ J TRUGOF . KW )@@G@@ . 3A @I@@@@ ANA,U A14,1 . DEKX )@@G@@CREASE NR WORDS FOR PAD . 3A @I@@@@ TE,H2 A14,KY )@@G@@A15 . SAME SIZE WITHOUT PADDING . 3A @I@@@@ KZ )@@G@@ J TRUGOF . . 3LA )@@G@@A @I@@@@CMPAFC . LB )@@G@@ . 3A @I@@@@ J SAMWDS-1 . TELC )@@G@@ST WORD COMPARISON . 3A @I@@@@TRUGOF LD )@@G@@ . . 3A @I@@[@ LE )@@G@@ LMJ X11,CKTPRT . CHECK # OF ERRORS BPD 03LF )@@G@@F @I@@[@ J CMPTP1 . RETURN HERE - DON'T LG )@@G@@PRINT BPD 03F @I@@@@ DL A0,F1NAM LH )@@G@@ CD341900 @I@@@@ DS A0,FLI )@@G@@RSTFIL . CD342000 @I@@@@ LJ )@@G@@ DL A0,F2NAM . CD3421LK )@@G@@00 @I@@@@ DS A0,SECDFIL . LL )@@G@@ CD342200 @I@@@@ LA A0,DIFFBL . B LM )@@G@@DIFFERENT BLOCK SIZE CD342300 @I@@@@ ER PRINLN )@@G@@T$ . CD342400 @I@@@@ LO )@@G@@ J GOOFIT . CD3425LP )@@G@@00 @C@@[@CKTPRT . BPD 03F @I@@[@ LQ )@@G@@ LA A0,CNTYP . GET ERROR CNT BPD 03LR )@@G@@F @I@@[@ AA,U A0,1 . ADD ONE LS )@@G@@ BPD 03F @I@@[@ SA A0,CNTYP . LT )@@G@@ BPD 03F @I@@[@ TZ,S1 CNTYLU )@@G@@P . DEMAND ? BPD 03F @I@@[@ LV )@@G@@ J 0,X11 . YES, DON'T PRINT BLKS BPD 03LW )@@G@@F @I@@[@ L,U A0,10 . LIMIT OF 10 LX )@@G@@ BPD 03F @I@@[@ TLE A0,CNTYP . PRLY )@@G@@INTED 10 ALREADY ? BPD 03F @I@@[@ J 0,X1LZ )@@G@@1 . YES DON'T PRINT BPD 03F @I@@[@ MA )@@G@@ J 1,X11 . NO PRINTIT BPD 03MB )@@G@@F @I@@@@GOOFWD . WORDS DID NOT COMPARMC )@@G@@E CD342600 @I@@[@ LMJ X11,CKTPRT . CHMD )@@G@@ECK # OF PRINTS BPD 03F @I@@[@ J CMPTME )@@G@@P1 . YES, DON'T PRINT BLKS BPD 03F @I@@@@ MF )@@G@@ DL A0,F1NAM . CD3427MG )@@G@@00 @I@@@@ DS A0,FSTFL . MH )@@G@@ CD342800 @I@@@@ DL A0,F2NAM . MI )@@G@@ CD342900 @I@@@@ DS A0,SMJ )@@G@@CDFL . CD343000 @I@@@@ MK )@@G@@ LA A0,A3 . NR WORD NOT COMPARING CD3431ML )@@G@@00 @I@@@@ E$BD 6,WRDCNT,6 . MM )@@G@@ CD343200 @B@@@@ LA A0,NOCMP . MN )@@G@@@I@@@@ ER PRINT$ . MO )@@G@@ CD343300 @I@@@@GOOFIT . POSITIONMP )@@G@@ 2 TAPES PAST EOF CD343400 @I@@[@ LA,U A0,10 MQ )@@G@@ . GET # ERRORS BPD 03F @I@@[@ TLMR )@@G@@E A0,CNTYP . LESS THAN 10 ERRORS ? BPD 03F MS )@@G@@@I@@[@ J CMPTP1 . NO, DON'T PRINT BLKS MT )@@G@@ BPD 03F @I@@@@ DL A0,F1NAM . MU )@@G@@ CD343500 @I@@@@ DS A0,FILEN MV )@@G@@ . CD343600 @I@@@@ L MW )@@G@@ A0,WDSTP1 . CD343700 MX )@@G@@@I@@@@ S,H2 A0,NOWDS$ . MY )@@G@@ CD343800 @I@@@@ SLJ PRTO MZ )@@G@@ CD343900 @I@@@@ L R1,WDSTP2 NA )@@G@@ . CD344000 @I@@@@ L,NB )@@G@@U A0,BLOCK1 . TRANSFER 2ND BLOCK TO PRINT IT CD344100 NC )@@G@@@I@@@@ LXI,U A0,1 . ND )@@G@@ CD344200 @I@@@@ L,U A1,BLOCK . NE )@@G@@ CD344300 @I@@@@ LXI,U A1,1 NF )@@G@@ . CD344400 @I@@@@ BTNG )@@G@@ A1,0,*A0 . CD344500 NH )@@G@@@I@@@@ L A0,WDSTP2 . NI )@@G@@ CD344600 @I@@@@ S,H2 A0,NOWDS$ . NJ )@@G@@ CD344700 @I@@@@ DL A0,F2NAM NK )@@G@@ . CD344800 @I@@@@ DSNL )@@G@@ A0,FILEN . CD344900 NM )@@G@@@I@@@@ SLJ PRTO . NN )@@G@@ CD345000 @I@@[@ J CMPTP1 . CONTINUENO )@@G@@ CMP BPD 03F @IC@@@NOT2ND NP )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 @I@@@@ L NQ )@@G@@ A0,ADPKT5 . CD346000 NR )@@G@@@I@@@@ ER PRINT$ . NS )@@G@@ CD346100 @I@@@@ J CDIMGE . NT )@@G@@ CD346200 @I@@@@NXTFLE DL A0,F2NAM NU )@@G@@ CD346300 @I@@@@ DSNV )@@G@@ A0,FILEN CD346400 NW )@@G@@@I@@@@ LA,U A0,1 NX )@@G@@ CD346500 @I@@@@ S A0,NO2EOF NY )@@G@@ CD346600 @I@@@@ L X2,(037777NZ )@@G@@777777) . DUMMY RECORD COUNT CD346700 @I@@@@ SZOA )@@G@@ NONO . CD346800 OB )@@G@@@I@@@@ J REPEAT . GO MOVE THE TAPE TO NEXT EOOC )@@G@@F CD346900 @I@@@@/ . WRITE OVER TAPE TO END OF TAPE MARKER OD )@@G@@ CD347000 @I@@@@OVERWT CLRR OE )@@G@@ . CLEAR RECORD COUNTER CD347100 @I@@@@ LAOF )@@G@@,S5 A0,OPTION CD347200 OG )@@G@@@I@@@@ TEP,U A0,1 OH )@@G@@ CD347300 @I@@@@ J DRUMASK . DRUM CODOI )@@G@@E NOT IMPLEMENTED CD347400 @I@@@@ DL A0,FILEN OJ )@@G@@ CD347500 @I@@@@ DSOK )@@G@@ A0,TAPPKT CD347600 OL )@@G@@@I@@@@ L,U A0,011 . WRITE EOF FIRST - FOR 2 EOOM )@@G@@FS TO CD347700 @I@@@@ S,S2 A0,TAPPKT+3 ON )@@G@@ CD347800 @I@@@@ L,U A0,TAPPKT OO )@@G@@ CD347900 @I@@@@ EROP )@@G@@ IOW$ CD348000 OQ )@@G@@@I@@@@ L,S1 A0,TAPPKT+3 OR )@@G@@ CD348100 @I@@@@ JNZ A0,ERRWRT OS )@@G@@ CD348200 @I@@@@ L,U A0,010 OT )@@G@@ CD348300 @I@@@@ S,OU )@@G@@S2 A0,TAPPKT+3 . WRITE FUNCTION CD348400 OV )@@G@@@I@@@@ L A0,CLEAR OW )@@G@@ CD348500 @I@@@@ S A0,BLOCK OX )@@G@@ CD348600 @I@@@@ L,U A0,061 OY )@@G@@ . TRANSFER ALL WORDS FROM SAME LOCCD348700 @I@@@@ S,OZ )@@G@@S1 A0,TAPPKT+4 CD348800 PA )@@G@@@I@@@@CLRWRT L,U A0,TAPPKT . WRITE LOOP PB )@@G@@ CD348900 @I@@@@ ER IOW$ PC )@@G@@ CD349000 @I@@@@ INCR PD )@@G@@ . INCREMENT RECORD COUNT CD349100 @I@@@@ L,PE )@@G@@S1 A0,TAPPKT+3 CD349200 PF )@@G@@@I@@@@ JZ A0,CLRWRT PG )@@G@@ CD349300 @I@@@@ TE,U A0,2 PH )@@G@@ CD349400 @I@@@@ J ERRWRT PI )@@G@@ CD349500 @I@@@@ L,PJ )@@G@@U A0,011 . END OF FILE FOR TAPE CD349600 PK )@@G@@@I@@@@ S,T1 A0,TAPPKT+3 PL )@@G@@ CD349700 @I@@@@ L,U A0,TAPPKT PM )@@G@@ CD349800 @I@@@@ ER IOW$ PN )@@G@@ CD349900 @I@@@@ L,PO )@@G@@U A0,TAPPKT CD350000 PP )@@G@@@I@@@@ ER IOW$ PQ )@@G@@ CD350100 @I@@@@ L,U A0,051 . BACKSPACPR )@@G@@E OVER EOF CD350200 @I@@@@ S,T1 A0,TAPPKT+PS )@@G@@3 CD350300 @I@@@@ L,PT )@@G@@U A0,TAPPKT CD350400 PU )@@G@@@I@@@@ ER IOW$ PV )@@G@@ CD350500 @I@@@@ ER IOW$ PW )@@G@@ CD350600 @I@@@@ DL A0,FILEN PX )@@G@@ CD350700 @I@@@@ DSPY )@@G@@ A0,CLRMSG CD350800 PZ )@@G@@@I@@@@ SLJ QGETAD . NEED MESSAGE -HOW MUCH WROQA )@@G@@TE CD350900 @I@@@@ L A0,2,A0 . LOAD RECQB )@@G@@ORD COUNT CD351000 @I@@@@ E$BD 6,BEFEOT,6QC )@@G@@ CD351100 @I@@@@ L QD )@@G@@ A0,CLRPKT CD351200 QE )@@G@@@I@@@@ ER PRINT$ QF )@@G@@ CD351300 @I@@@@ L,U A0,01 . RESTORE QG )@@G@@TAPE PACKET FOR OTHER COCD351400 @I@@@@ S,S1 A0,TAPPKT+QH )@@G@@4 CD351500 @I@@@@ TNQI )@@G@@Z,S6 OPTION . IS F OPTON SET CD351600 QJ )@@G@@@I@@@@ A,U A0,1 . SET DUMMY F OPTION INDICATQK )@@G@@OR CD351700 @I@@@@ S,S6 A0,OPTION . PSB TESTQL )@@G@@ IS FOR NONZERO - WILL WCD351800 @I@@@@ S A0,OVWJMP QM )@@G@@ . SWITCH TO RETURN HERE FROM PSB CD351900 @I@@@@ L,QN )@@G@@U X2,1 . LOAD FILE COUNT FOR PSB COMMAND CD352000 QO )@@G@@@I@@@@ J BWDSET . POSITION BACK TO BEGINNINGQP )@@G@@ OF #CCD352100 @I@@@@OVWRET . QQ )@@G@@ CD352200 @I@@@@ L,U A0,020 QR )@@G@@ . READ FORWARD OVER EOF CD352300 @I@@@@ S,QS )@@G@@S2 A0,TAPPKT+3 CD352400 QT )@@G@@@I@@@@ L,U A0,TAPPKT QU )@@G@@ CD352500 @I@@@@ ER IOW$ QV )@@G@@ CD352600 @I@@@@ L,S1 A0,TAPPKT+QW )@@G@@3 CD352700 @I@@@@ TEQX )@@G@@,U A0,1 . WAS AN END OF FILE READ CD352800 QY )@@G@@@I@@@@ J ERRWRT QZ )@@G@@ CD352900 @I@@@@ INCF . UP FILE RA )@@G@@- ZERO RECORD COUNT CD353000 @I@@@@ L A1,OVWJMP RB )@@G@@ CD353100 @I@@@@ L,RC )@@G@@U A0,0 CD353200 RD )@@G@@@I@@@@ S A0,OVWJMP . REMOVE SWITCH FOR PSB RE )@@G@@ CD353300 @I@@@@ TE,U A1,2 . WAS A FIRF )@@G@@LE OPTION DUMMIED CD353400 @I@@@@ J CDIMGE RG )@@G@@ CD353500 @I@@@@ S,RH )@@G@@S6 A0,OPTION . REMOVE FILES OPTION CD353600 RI )@@G@@@I@@@@ J CDIMGE RJ )@@G@@ CD353700 @I@@@@ERRWRT SLJ QGETAD RK )@@G@@ CD353800 @I@@@@ L A0,2,A0 RL )@@G@@ CD353900 @I@@@@ E$RM )@@G@@BD 6,ERRBLK,6 CD354000 RN )@@G@@@I@@@@ DL A0,FILEN RO )@@G@@ CD354100 @I@@@@ DS A0,ERCLR RP )@@G@@ CD354200 @I@@@@ L A0,CLERRM RQ )@@G@@ CD354300 @I@@@@ ERRR )@@G@@ PRINT$ CD354400 RS )@@G@@@I@@@@ L,U A0,01 . RESTORE TAPE PACKET FOR OTRT )@@G@@HER COCD354600 @I@@@@ S,S1 A0,TAPPKT+4 RU )@@G@@ CD354700 @I@@@@ ER EXIT$ RV )@@G@@ CD354800 @B@@@@DRMCHK RW )@@G@@ . @I@@@@DRUMASK DL A0,FILEN RX )@@G@@ CD355000 @I@@@@ DS RY )@@G@@ A0,DRMNO CD355100 @I@@@@RZ )@@G@@ L A0,DRMNCL SA )@@G@@CD355200 @I@@@@ ER PRINT$ SB )@@G@@ CD355300 @I@@@@ ER EXIT$ SC )@@G@@ CD355400 @I@@@@/. CHECK FOR 409SD )@@G@@6 WORD BLOCKS OF #CLEAR CD355500 @I@@@@SE )@@G@@CHECKWT CLRR . CLEAR RECORD COUNT SF )@@G@@CD355600 @I@@@@ LA,S5 A0,OPTION SG )@@G@@ CD355700 @I@@@@ TEP,U A0,1 SH )@@G@@ CD355800 @I@@@@ J SI )@@G@@ DRMCHK CD355900 @I@@@@SJ )@@G@@ DL A0,FILEN SK )@@G@@CD356000 @I@@@@ DS A0,TAPPKT . PUT FILE NAME SL )@@G@@IN IO PACKET CD356100 @I@@@@ L,U A0,020 SM )@@G@@ CD356200 @I@@@@ S,S2 SN )@@G@@ A0,TAPPKT+3 . READ FUNCTION CD356300 @I@@@@SO )@@G@@ SZ WRDRD SP )@@G@@CD356400 @I@@@@CHKLOP INCR . INCREMENT RECOSQ )@@G@@RD COUNT CD356500 @I@@@@ L,U A0,TAPPKT SR )@@G@@ CD356600 @I@@@@ ER SS )@@G@@ IOW$ . READ A BLOCK FROM TAPE CD356700 @I@@@@ST )@@G@@ L,S1 A0,TAPPKT+3 . GET STATUS OF READ SU )@@G@@CD356800 @I@@@@ JNZ A0,EOTCHK . CHECK FOR END SV )@@G@@OF TAPE MARKER CD356900 @I@@@@ L,H2 A1,TAPPKT+3 SW )@@G@@ . NUMBER OF WORDS READ CD357000 @I@@@@ TNE,U SX )@@G@@ A1,4096 CD357100 @I@@@@SY )@@G@@ J $+3 SZ )@@G@@CD357200 @I@@@@ S A1,WRDRD . NOT 4096 WORD TA )@@G@@READ CD357300 @I@@@@ J CNTERR TB )@@G@@ CD357400 @I@@@@ L TC )@@G@@ A0,CLEAR CD357500 @I@@@@TD )@@G@@ L,U R1,4096 TE )@@G@@CD357600 @I@@@@ SNE A0,BLOCK . SEARCH FOR NONTF )@@G@@MATCHING WORD CD357700 @I@@@@ J CHKLOP TG )@@G@@ CD357800 @I@@@@ S TH )@@G@@ R1,WRDRD . WORD NUMBER WHICH IS BAD CD357900 @I@@@@TI )@@G@@CHKERR DL A1,FILEN TJ )@@G@@CD358000 @I@@@@ DS A1,BADCHK . PUT FILE NAME TK )@@G@@IN ERROR MESSAGER CD358100 @I@@@@ SLJ QGETAD TL )@@G@@ CD358200 @I@@@@ L TM )@@G@@ A0,2,A0 . LOAD RECORD COUNT CD358300 @I@@@@TN )@@G@@ E$BD 6,BDLNR,6 . PUT IN ERROR MESSAGE TO )@@G@@CD358400 @I@@@@ L,U A0,4096 . COMPUTE BAD WOTP )@@G@@RD NUMBER CD358500 @I@@@@ L A1,WRDRD TQ )@@G@@ CD358600 @I@@@@ ANA TR )@@G@@ A0,A1 CD358700 @I@@@@TS )@@G@@ E$BD 6,BDWRD,6 . PUT IN ERROR MESSAGE TT )@@G@@CD358800 @I@@@@ L A0,BDCKMG TU )@@G@@ CD358900 @I@@@@ ER PRINT$ TV )@@G@@ CD359000 @I@@@@ ER TW )@@G@@ EXIT$ CD359100 @I@@@@TX )@@G@@CNTERR . ERROR- NOT 4096 WORDS TY )@@G@@CD359200 @I@@@@ DL A1,FILEN TZ )@@G@@ CD359300 @I@@@@ DS A1,BADCNT UA )@@G@@ CD359400 @I@@@@ SLJ UB )@@G@@ QGETAD CD359500 @I@@@@UC )@@G@@ L A0,2,A0 . RECORD COUNT UD )@@G@@CD359600 @I@@@@ E$BD 6,CEBLOK,6 UE )@@G@@ CD359700 @I@@@@ L A0,WRDRD UF )@@G@@ . WORDS ACTUALLY READ CD359800 @I@@@@ E$BD UG )@@G@@ 6,CEWORD,6 CD359900 @I@@@@UH )@@G@@ L A0,CEMSG UI )@@G@@CD360000 @I@@@@ ER PRINT$ UJ )@@G@@ CD360100 @I@@@@ ER EXIT$ UK )@@G@@ CD360200 @I@@@@. UL )@@G@@ CD360300 @B@@@@UM )@@G@@EOTCHK . @I@@@@ L,U A1,1UN )@@G@@ . CHECK FOR END OF FILE CD360500 @I@@@@ UO )@@G@@ TE A0,A1 . END OF TAPE READ CD3606UP )@@G@@00 @I@@@@ J BADSTA . END OF TAPE MARKRR UQ )@@G@@ CD360700 @I@@@@ L,U A0,TAPPKT UR )@@G@@ CD360800 @I@@@@ ER IOW$US )@@G@@ . SECOND END OF FILE CD360900 @I@@@@ UT )@@G@@ L,S1 A0,TAPPKT+3 CD3610UU )@@G@@00 @I@@@@ TE A0,A1 UV )@@G@@ CD361100 @I@@@@ J BADSTA . SHUW )@@G@@OULD HAVE READ EOF - DID NOT CD361200 @I@@@@ L,U A0,0UX )@@G@@51 . BACKSPACE OVER SECOND END OF FILCD361300 @I@@@@ UY )@@G@@ S,S2 A0,TAPPKT+3 CD3614UZ )@@G@@00 @I@@@@ L,U A0,TAPPKT VA )@@G@@ CD361500 @I@@@@ ER IOW$ VB )@@G@@ CD361600 @I@@@@ DCRR VC )@@G@@ . DECREASE FOR END FILE BLOCK CD361700 @I@@@@ VD )@@G@@ DL A0,FILEN . ALL BLOCKS HABE BEEN READ CD3618VE )@@G@@00 @I@@@@ DS A0,SUCCHK VF )@@G@@ CD361900 @I@@@@ SLJ QGETAD . GEVG )@@G@@T ADDRESS OF FILE COUNTERS CD362000 @I@@@@ L A0,2VH )@@G@@,A0 . GET RECORD COUNT CD362100 @I@@@@ VI )@@G@@ E$BD 6,SUCBLK,6 CD3622VJ )@@G@@00 @I@@@@ L A0,CHKMSG VK )@@G@@ CD362300 @I@@@@ ER PRINT$ VL )@@G@@ CD362400 @I@@@@ INCF VM )@@G@@ . UP FILE - ZERO RECORD COUNT CD362500 @I@@@@ VN )@@G@@ J CDIMGE CD3626VO )@@G@@00 @I@@@@. VP )@@G@@ CD362700 @I@@@@BADSTA DL A1,FILEN . UNVQ )@@G@@EXPECTED STATUS RETURNED BY RECD362800 @I@@@@ DS A1,SVR )@@G@@TAMSG CD362900 @I@@@@ VS )@@G@@ E$BD 6,STAT,6 . STATUS IS IN A0 - PUT IN MSG CD3630VT )@@G@@00 @I@@@@ SLJ QGETAD VU )@@G@@ CD363100 @I@@@@ L A0,2,A0 VV )@@G@@ CD363200 @I@@@@ E$BD 6,RCVW )@@G@@DSTA,6 . PUT RECORD COUNT IN MESSAGE CD363300 @I@@@@ VX )@@G@@ L A0,STAPKT CD3634VY )@@G@@00 @I@@@@ ER PRINT$ VZ )@@G@@ CD363500 @I@@@@ L$SNAP 'IO PKT',07,05,TAPPKT WA )@@G@@ CD363600 @I@@@@ ER EXITWB )@@G@@$ CD363700 @I@@@@/. GEWC )@@G@@NERAL UTILITY ROUTINES CD3638WD )@@G@@00 @I@@@@BADCOM L A0,PRTERR . BAD PARAMETER CARD WE )@@G@@ CD363900 @I@@@@ ER PRINT$ . PRWF )@@G@@INT IT CD364000 @I@@@@ L A0,LWG )@@G@@ESX . FOLLOWING OPER. NOT PERFORMED CD364100 @I@@@@ WH )@@G@@ ER PRINT$ CD3642WI )@@G@@00 @I@@[@ J CDIMGE . GET NEXT CONTROL CARWJ )@@G@@D BPD 03F @[@@[@. @I@@[@. ORIGIONAL CODE FELL THROUGH WK )@@G@@TO BDCMI . BPD 03F @[@@[@. @I@@@@WL )@@G@@BDCMI L A0,RDPKT WM )@@G@@CD364300 @I@@@@ ER READ$ WN )@@G@@ CD364400 @I@@@@ S,S3 A0,PPKT WO )@@G@@ . NR WORDS TO PRINT CD364500 @I@@@@ L WP )@@G@@ A0,PPKT CD364600 @I@@@@WQ )@@G@@ ER PRINT$ WR )@@G@@CD364700 @I@@@@ J BDCMI . LOOP TIL READ WS )@@G@@@CARD CD364800 @I@@@@NOVAL NOP WT )@@G@@ . CD364900 @I@@@@ JNZ WU )@@G@@ A2,1,X11 . USER HAS COUNT. GO BACK CD365000 @I@@@@WV )@@G@@ L X2,(037777777777) . LOAD A RECORD COUNT WE WW )@@G@@CD365100 @I@@@@ J 0,X11 . GO BACK WITH PHWX )@@G@@ONEY COUNT CD365200 @B@@@@EOFILE* NOP WY )@@G@@ . @I@@@@ INCR WZ )@@G@@ CD365400 @I@@@@ SLJ PRTEFX XA )@@G@@ CD365500 @I@@@@ INCF XB )@@G@@ CD365600 @I@@@@ XC )@@G@@ TZ,S6 OPTION . F OPTION SET? CD3657XD )@@G@@00 @I@@@@ J *PNT . YES XE )@@G@@ CD365800 @I@@@@ SZ DUPPNT . RESXF )@@G@@ET TAPE TO DRUM FLAG CD365900 @I@@@@ J CDIMXG )@@G@@GE CD366000 @B@@@@CNVT XH )@@G@@ NOP . @I@@@@ LMJ X11,CONVERXI )@@G@@T . CONVERT FIELDDATA NR IN X2 TO BINCD366200 @I@@@@ J XJ )@@G@@ *CNVT CD366300 XK )@@G@@@I@@@@ . XL )@@G@@ CD366400 @I@@@@PRTEFX* NOP . . PRINT EOXM )@@G@@F ENCOUNTERED MESSAGE CD366500 @I@@@@ SLJ QGETAD XN )@@G@@ . RETURNS ADDRESS OF FILENAME IN ACD366600 @I@@@@ L XO )@@G@@ A0,2,A0 . RECORD COUNT - BINARY CD366700 XP )@@G@@@I@@@@ E$BD 6,BLKNUM,6 XQ )@@G@@ CD366800 @I@@@@ SLJ QGETAD . XR )@@G@@ CD366900 @I@@@@ LA A0,3,A0 XS )@@G@@ . BLOCK COUNT CD367000 @I@@@@ E$XT )@@G@@BD 6,FILENUM,3 . CD367100 XU )@@G@@@I@@@@ DL A0,FILEN . XV )@@G@@ CD367200 @I@@@@ DS A0,FILNAM . XW )@@G@@ CD367300 @I@@@@ LA A0,ADPKT1 XX )@@G@@ . EOF ENCOUNTERED IN BLOCK OF FILECD367500 @I@@@@ ERXY )@@G@@ PRINT$ CD367600 XZ )@@G@@@I@@@@ J *PRTEFX YA )@@G@@ CD367700 @I@@@@GETSCN* NOP . ENTER SCYB )@@G@@AN ROUTINE CD367800 @I@@@@ LMJ X11,SCAN YC )@@G@@ CD367900 @I@@@@ + YD )@@G@@ 1,CDADDR CD368000 YE )@@G@@@I@@@@ DO 4 , + 0 YF )@@G@@ CD368100 @I@@@@ J *GETSCN YG )@@G@@ CD368200 @I@@@@GENRD1 NOP YH )@@G@@ . USED IN COPY ROUTINE CD368300 @I@@@@ S YI )@@G@@ X2,BS CD368400 YJ )@@G@@@I@@@@ LA,S5 A0,OPTION . LOAD FOR D OPTION TEST YK )@@G@@ CD368500 @I@@@@ TOP,U A0,01 . 'D' OPTIOYL )@@G@@N SET? CD368600 @I@@@@ J RDTP YM )@@G@@ CD368700 @I@@@@ TZYN )@@G@@ DUPPNT . CD368800 YO )@@G@@@I@@@@ J RDTP . YP )@@G@@ CD368900 @I@@@@ SLJ DREAD YQ )@@G@@ CD369000 @I@@@@ LX X2,BS YR )@@G@@ . RESTORE X2 CD369100 @I@@@@ J YS )@@G@@*GENRD1 CD369200 YT )@@G@@@I@@@@RDTP LMJ X11,TPRD$ YU )@@G@@ CD369300 @I@@@@FN1 + 0 . NORMAL RYV )@@G@@TN-NR WORDS READ IN NOWDCD369400 @I@@@@ + 0 YW )@@G@@ CD369500 @I@@@@ + YX )@@G@@ 4096,BLOCK CD369600 YY )@@G@@@I@@@@ + EOFILE . YZ )@@G@@ CD369700 @I@@@@ L X2,BS ZA )@@G@@ CD369800 @I@@@@ J *GENRD1 ZB )@@G@@ CD369900 @I@@@@. **********ZC )@@G@@************************************************************CD370000 ZD )@@G@@@I@@@@. THIS ROUTINE WILL ALLOW UPDATING THE FILE COUNT AND RECORD COUNZE )@@G@@T ON FCD370100 @I@@@@. FROM ONE TO TEN TAPES IN ONE RUN ZF )@@G@@ CD370200 @I@@@@QGETAD* NOP ZG )@@G@@ . GET ADDR OF 4 WORD FILE INFO IN CD370300 @I@@@@I DO 6 , S XZH )@@G@@11+I-1,QSAVE+I-1 . SAVE REGISTERS CD370400 ZI )@@G@@@I@@@@ L X11,QTAB ZJ )@@G@@ CD370500 @I@@@@ LXI X11,(0777773) . A4=-4,4*NO ZK )@@G@@ENTRIES CD370600 @I@@@@ DL A1,FILEN ZL )@@G@@ . PICKUP CURRENT FILENAME CD370700 @I@@@@QLOOP JMGZM )@@G@@I X11,$+2 . CHECK FOR END OF ENTRIES CD370800 ZN )@@G@@@I@@@@ J QNOFIN . NO MORE ENTRIES ZO )@@G@@ CD370900 @I@@@@ DTE A1,QTAB+1,X11 . CK FOR MATZP )@@G@@CHING FILELNAME CD371000 @I@@@@ J QLOOP ZQ )@@G@@ . NO MATCH CD371100 @I@@@@ L,UZR )@@G@@ A0,QTAB+1,X11 . PICK UP ADDRESS OF MATCH CD371200 ZS )@@G@@@I@@@@ SZ X11 ZT )@@G@@ CD371300 @I@@@@ J *QGETAD . EXIT ZU )@@G@@ CD371400 @I@@@@. NO MATCH FOUND, THIS IS NEW ZV )@@G@@FILENAME, ADD IT TO TABLE CD371500 @I@@@@QNOFIN L ZW )@@G@@ A0,QTAB . GET ADDESS AVAILABLE FOR CD371600 ZX )@@G@@@I@@@@ L,U A0,QTAB+1,A0 . NEXT ENTRY ZY )@@G@@ CD371700 @I@@@@ DS A1,0,A0 . STARE FILENAME ZZ )@@G@@ CD371800 @I@@@@ L,U A4,4 AA )@@G@@ . UPDATE COUNT OF ENTRIES CD371900 @I@@@@ A AB )@@G@@ A4,QTAB CD372000 AC )@@G@@@I@@@@ S A4,QTAB AD )@@G@@ CD372100 @I@@@@ TG,U A4,41 . TEST MAX FIAE )@@G@@LE NAMES CD372200 @I@@@@ J GETOUT AF )@@G@@ . MORE THAN 10 FILES - ERROR *** CD372300 @I@@@@ SZAG )@@G@@ X11 CD372400 AH )@@G@@@I@@@@ J *QGETAD . AI )@@G@@ CD372500 @I@@@@GETOUT L A0,(P 2,12,EXCEED) AJ )@@G@@ CD372600 @I@@@@ ER PRINT$ AK )@@G@@ CD372700 @I@@@@ ERAL )@@G@@ ERR$ CD372800 AM )@@G@@@I@@@@INCRX* NOP . INCREMENT RECORD COUNTER AN )@@G@@ CD372900 @I@@@@ SLJ QGETAD AO )@@G@@ CD373000 @I@@@@ L,U A1,1 AP )@@G@@ CD373100 @I@@@@ A AQ )@@G@@ A1,2,A0 CD373200 AR )@@G@@@I@@@@ S A1,2,A0 AS )@@G@@ CD373300 @I@@@@ SLJ QREST AT )@@G@@ CD373400 @I@@@@ J *INCRX AU )@@G@@ CD373500 @I@@@@INCFX* NOAV )@@G@@P . INCREMENT FILE COUNTER CD373600 AW )@@G@@@I@@@@ SLJ QGETAD AX )@@G@@ CD373700 @I@@@@ L,U A1,1 AY )@@G@@ CD373800 @I@@@@ A A1,3,A0 AZ )@@G@@ CD373900 @I@@@@ S BA )@@G@@ A1,3,A0 CD374000 BB )@@G@@@I@@@@ SZ 2,A0 . CLEAR RECORD COUNT BC )@@G@@ CD374100 @I@@@@ SLJ QREST BD )@@G@@ CD374200 @I@@@@ J *INCFX BE )@@G@@ CD374300 @I@@@@DCRRX* NOBF )@@G@@P . DECREMENT RECORD DOUNTER CD374400 BG )@@G@@@I@@@@ SLJ QGETAD BH )@@G@@ CD374500 @I@@@@ L A1,2,A0 BI )@@G@@ CD374600 @I@@@@ AN,U A1,1 BJ )@@G@@ CD374700 @I@@@@ S BK )@@G@@ A1,2,A0 CD374800 BL )@@G@@@I@@@@ SLJ QREST BM )@@G@@ CD374900 @I@@@@ J *DCRRX BN )@@G@@ CD375000 @I@@@@DCRFX* NOP BO )@@G@@ . DECREMENT FILE COUNTER CD375100 @I@@@@ SLBP )@@G@@J QGETAD CD375200 BQ )@@G@@@I@@@@ L A1,3,A0 BR )@@G@@ CD375300 @I@@@@ AN,U A1,1 BS )@@G@@ CD375400 @I@@@@ S A1,3,A0 BT )@@G@@ CD375500 @I@@@@ SLBU )@@G@@J QREST CD375600 BV )@@G@@@I@@@@ J *DCRFX BW )@@G@@ CD375700 @I@@@@CLRRX* NOP . CLEAR REBX )@@G@@CORD COUNTER CD375800 @I@@@@ SLJ QGETAD BY )@@G@@ CD375900 @I@@@@ SZBZ )@@G@@ 2,A0 CD376000 CA )@@G@@@I@@@@ SLJ QREST CB )@@G@@ CD376100 @I@@@@ J *CLRRX CC )@@G@@ CD376200 @B@@@@CLRFX* NOP CD )@@G@@ . @I@@@@ SLJ QGETAD . CLEAR FILE COUNTECE )@@G@@R CD376400 @I@@@@ L,U A1,1 CF )@@G@@ CD376500 @I@@@@ S CG )@@G@@ A1,3,A0 CD376600 @I@@@@CH )@@G@@ SLJ QREST CI )@@G@@CD376700 @I@@@@ J *CLRFX CJ )@@G@@ CD376800 @I@@@@QREST NOP CK )@@G@@ . RESTORE REGISTERS CD376900 @I@@@@I DO 6 , L X11+I-1CL )@@G@@,QSAVE+I-1 CD377000 @I@@@@CM )@@G@@ J *QREST CN )@@G@@CD377100 @I@@@@ENFILE ER EXIT$ . CO )@@G@@ CD377200 @I@@@@/ . CP )@@G@@ CD377300 @B@@@@$(0) CQ )@@G@@ . @H@@@@SAVEX2 + 0 . CR )@@G@@ . 03D @I@@@@DUPPNT* + 0 CS )@@G@@ . POINTER FOR DUPING TAPE TO DRUM CD377500 @I@@@@NOWDS$* + CT )@@G@@ 0 . CD377600 CU )@@G@@@I@@@@PSERET + 0 . PSE RETURN FROM PSF CODE CV )@@G@@ CD377700 @I@@@@NONO + 0 . USED FOR CW )@@G@@BAD COUNT OR WORD ON CMPCD377800 @I@@@@PERIOD* + 0 CX )@@G@@ . FLAG TO STIP SCAN CD377900 @I@@@@NO2EOF + CY )@@G@@0 . TWO CMP TAPES NOT EOF AT SAME PLCD378000 CZ )@@G@@@I@@@@SAVJGD + 0 DA )@@G@@ CD378100 @I@@@@OPTION* + 0 . OPTION WDB )@@G@@ORD CD378200 @H@@@@OPTION2 + 0 DC )@@G@@ . SAVE FOR Q AND R OPTIONS . 03D @I@@@@PNT + DD )@@G@@ 0 . LABEL POINTER WORD CD378300 @H@@@@DE )@@G@@NOCOMM EQU 13 . ALLOW TRI TEMPORARILY-TRANSITIONDF )@@G@@ CPD3 @I@@@@NEWCRD EQU 1 DG )@@G@@ CD378500 @I@@@@SAMECD* EQU 0 DH )@@G@@ CD378600 @I@@@@BLOCK* RES 4096DI )@@G@@ CD378700 @I@@@@BS DJ )@@G@@ RES 1 CD3788DK )@@G@@00 @I@@@@CDADDR* RES 14 DL )@@G@@ CD378900 @I@@@@BLOCK1 RES 4096 DM )@@G@@ CD379000 @I@@@@ DO 8 , +' DN )@@G@@ ' CD379100 @I@@@@COMMNDDO )@@G@@ RES 1 CD3792DP )@@G@@00 @I@@@@FILEN* RES 2 DQ )@@G@@ CD379300 @I@@@@TEMP* RES 1 DR )@@G@@ CD379400 @I@@@@FREED '@FREE ' DS )@@G@@ . PACKET TO FREE A FILE CD379500 @I@@@@ DT )@@G@@ + ' ' . CD3796DU )@@G@@00 @I@@@@TABL + 'DUP', COPY . TABLE OF PARAMETER CDV )@@G@@OMMANDS CD379700 @I@@@@ + 'PRT', DUMP DW )@@G@@ CD379800 @I@@@@ + 'PSFDX )@@G@@', POSFOR CD379900 @I@@@@ DY )@@G@@ + 'PSB', POSBWD CD3800DZ )@@G@@00 @I@@@@ + 'TEF', WREOF EA )@@G@@ CD380100 @I@@@@ + 'TRW', REWW EB )@@G@@ CD380200 @I@@@@ + 'FREEC )@@G@@', REWI CD380300 @I@@@@ ED )@@G@@ + 'PSE',POSF1 CD3804EE )@@G@@00 @I@@@@ + 'CMP',COMPAR EF )@@G@@ CD380500 @I@@@@ + 'OVW',OVERWT EG )@@G@@ CD380600 @I@@@@ + 'CHKEH )@@G@@',CHECKWT CD380700 @I@@@@ EI )@@G@@ + 'SWP',SWAPRL CD3808EJ )@@G@@00 @H@@@@ + 'TRI',REWI . ALLOW ILLEGAL CMDF OEK )@@G@@R TRANSITION CPD3 @I@@@@EQUIP1 + 0 EL )@@G@@ . 3A @I@@@@EQUIP2 + 0 EM )@@G@@ . 3A @I@@@@FACPAC REEN )@@G@@S 10 . 3A EO )@@G@@@I@@@@P FORM 12,6,18 EP )@@G@@ CD380900 @I@@@@AFTERB P 2,9,BLKPOS EQ )@@G@@ CD381000 @I@@@@PPKT* P 2,0,CDADDRER )@@G@@ CD381100 @I@@@@PRTERR P ES )@@G@@ 3,4,ERRADD CD381200 ET )@@G@@@I@@@@WRERR P 2,13,BADWRI EU )@@G@@ CD381300 @I@@@@LESX P 2,6,LEXI . EV )@@G@@ CD381400 @I@@@@NOCMP P 3,14,NOCOMEW )@@G@@P CD381500 @I@@@@DIFFBL P EX )@@G@@ 3,13,DIFBLK CD381600 EY )@@G@@@I@@@@CHKMSG P 2,10,SUCCHK EZ )@@G@@ CD381700 @I@@@@BDCKMG P 2,14,BADCHK FA )@@G@@ CD381800 @I@@@@STAPKT P 2,20,STAMSFB )@@G@@G CD381900 @I@@@@CLRPKT P FC )@@G@@ 2,11,CLRMSG CD382000 FD )@@G@@@I@@@@CLERRM P 2,13,ERCLR FE )@@G@@ CD382100 @I@@@@DRMNCL P 2,8,DRMNO FF )@@G@@ CD382200 @I@@@@CEMSG P 2,15,BADCNFG )@@G@@T CD382300 @I@@@@CLEAR + FH )@@G@@ '#CLEAR' CD382400 FI )@@G@@@I@@@@OVWJMP + 0 FJ )@@G@@ CD382500 @I@@@@CLRMSG ' TAPE OVERWRITTEN WITHFK )@@G@@ ' CD382600 @I@@@@BEFEOT + ' ' FL )@@G@@ CD382700 @I@@@@ FM )@@G@@ ' BLOCKS OF 4096 WORDS ' CD382800 FN )@@G@@@I@@@@ERCLR ' ERROR ENCOUNTERED IN BLOCK ' FO )@@G@@ CD382900 @I@@@@ERRBLK + ' ' FP )@@G@@ CD383000 @I@@@@ ' WHILE WRITING FQ )@@G@@TO END OF TAPE.' CD383100 @I@@@@DRMNO FR )@@G@@ ' DRUM OVERWRITE CODE NOT IMPLEMENTED' CD383200 FS )@@G@@@I@@@@SUCCHK ' SUCCESSFUL #CLEAR CHECK OF ' FT )@@G@@ CD383300 @I@@@@SUCBLK ' ' FU )@@G@@ CD383400 @I@@@@ ' BLOCKS. ' FV )@@G@@ CD383500 @I@@@@BADCHK ' FW )@@G@@ ERROR IN WORD ' CD383600 FX )@@G@@@I@@@@BDWRD ' ' FY )@@G@@ CD383700 @I@@@@ ' OF BLOCK ' FZ )@@G@@ CD383800 @I@@@@BDLNR ' ' GA )@@G@@ CD383900 @I@@@@ ' GB )@@G@@WHILE SEARCHING FOR #CHECK.' CD384000 GC )@@G@@@I@@@@STAMSG ' ERROR STATUS ' GD )@@G@@ CD384100 @I@@@@STAT ' ' GE )@@G@@ CD384200 @I@@@@ ' RETURNED WHILE REAGF )@@G@@DING TAPE AT RECORD NUMBER ' CD384300 @I@@@@RCDSTA ' GG )@@G@@ ' CD384400 GH )@@G@@@I@@@@ '. ONLY 0 OR 1 STATUS ACCEPTABLE.' GI )@@G@@ CD384500 @I@@@@BADCNT ' ' GJ )@@G@@ CD384600 @I@@@@CEWORD ' WORDS READ IGK )@@G@@N BLOCK ' CD384700 @I@@@@CEBLOK ' GL )@@G@@ . 4096 WORDS EXPECTED - CHECK ERROR. ' CD384800 GM )@@G@@@I@@@@BLKPOS ' FILE POSITIONED AFTER BLOCK ' GN )@@G@@ CD384900 @I@@@@AFTBLK ' . ' GO )@@G@@ CD385000 @F@@@@XMSG1 ' ** X OGP )@@G@@PTION SET. ONLY THE FIRST LINE **' @F@@@@XMSG2 ' ** OF GQ )@@G@@EACH RECORD WILL BE PRINTED. **' @I@@@@WRDRD + 0 GR )@@G@@ CD385100 @I@@@@QSAVE REGS )@@G@@S 6 . REGISTER SAVE AREA CD385200 GT )@@G@@@H@@@@ . THE QTAB TABLE HOLDS INFORMATION RELATIVE GU )@@G@@ . 03D @H@@@@ . TO OPEN FILES WITHIN CPD. THIS TABLE GV )@@G@@ . 03D @H@@@@ . IS USED TO CONTAIN FILE NAMES, RGW )@@G@@ECORD . 03D @H@@@@ . POSITION INFORMATIONGX )@@G@@ AND FILE POSITION . 03D @H@@@@ . INFORMATGY )@@G@@ION. THE FORMAT IS ::: . 03D @H@@@@ . GZ )@@G@@ . 03D HA )@@G@@@H@@@@ . 0 - 1 FILENAME HB )@@G@@ . 03D @H@@@@ . 2 RECORD POSITION/DRUM SECTOR ADDRESS HC )@@G@@ . 03D @H@@@@ . 3 FILE POSITION COUNTER (ALWHD )@@G@@AYS 1 FOR DRUM) . 03D @I@@@@QTAB RES 1 HE )@@G@@ . 4 WORDS PER FILE-FN,RECORD CNT, CD385300 @I@@@@ DO 10HF )@@G@@ , DATA 0,0,0,1 CD385400 HG )@@G@@@I@@@@ERRADD 'ILLEGAL PARAMETER CARD' HH )@@G@@ CD385500 @I@@@@EXCEED 'EXCEEDED 10 FILE NAMES ON THIS RUN 'HI )@@G@@ . CD385600 @I@@@@BADWRI ' ERROR WHILE WRITINHJ )@@G@@G, COULD NOT CONTINUE' CD385700 @I@@@@PRTLPF 'LOAHK )@@G@@D POINT ENCOUNTERED WHILE MOVING BACKWARD' . CD385800 HL )@@G@@@I@@[@CNTYP + 0 . BITS 1 - 6 RUN TYPE, BITS 7 - 36 ERROR CNT HM )@@G@@ BPD 03F @#@@[@ERRCNT ' ' @I@@[@ ' BLOCKS OF ERRHN )@@G@@ORS ENCOUNTERED ON CMP' . BPD 03F @I@@[@ HO )@@G@@' ***************' BPD 03HP )@@G@@F @G@@[@LEXI 'PREVIOUS OPERATION NOT PERFORMED' HQ )@@G@@ BPD 03F @I@@[@MSGE 'FILE NOT ASSIGNED' HR )@@G@@ . BPD 03F @I[@@@DIFBLK 'DIFFERENT SIZE BLOCKS WERHS )@@G@@E READ FROM FILE ' CD386000 @I@@@@FRSTFIL + HT )@@G@@ ' ' . CD386100 @^@@@@HU )@@G@@ 'AND FILE '@I@@@@SECDFIL + ' ' . HV )@@G@@ CD386400 @I@@@@NOCOMP 'FILE ' HW )@@G@@ CD386500 @I@@@@FSTFL HX )@@G@@ + ' ' . CD3866HY )@@G@@00 @^@@@@ 'AND FILE '@I@@@@SCDFL + ' ' HZ )@@G@@ . CD386900 @C@@@@ 'DIA )@@G@@ID NOT COMPARE STARTING AT WORD ** '@I@@@@WRDCNT + ' ' . IB )@@G@@ CD387600 @C@@@@EOFM1 'EIC )@@G@@ND-OF-FILE WAS ENCOUNTERED IN BLOCK'@I@@@@BLKNUM + ' ' ID )@@G@@ CD388300 @^@@@@ ' IE )@@G@@*FILE *** ' @I@@@@FILNAM + ' ' IF )@@G@@ CD388600 @I@@@@ + ' ' IG )@@G@@ CD388700 @I@@@@FILENUM + 'NIH )@@G@@O. ' . CD388800 @F@@@@II )@@G@@NOTEOF 'END-OF-FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'@I@@@@IJ )@@G@@ + ' ' IK )@@G@@CD389800 @I@@@@ + ' ' IL )@@G@@ CD389900 @G@@@@BLOWIT 'AN END-OF-FILE WAS ENCOUNIM )@@G@@TERED BUT NOT EXPECTED IN BLOCK ***'@I@@@@ + ' ' IN )@@G@@ . CD391000 @^@@@@ '*IO )@@G@@** ON FILE '@I@@@@ + ' ' IP )@@G@@ CD391300 @I@@@@ + ' ' IQ )@@G@@ CD391400 @I@@@@ADPKT1 P IR )@@G@@ 3,12,EOFM1 CD391500 @I@@@@IS )@@G@@ADPKT3 P 3,3,ITDID IT )@@G@@CD391600 @I@@@@ADPKT4 P 3,11,NOTEOF IU )@@G@@ CD391700 @I@@@@ADPKT5 P 3,7,NOFNAM IV )@@G@@ CD391800 @I@@@@ADPKT7 P IW )@@G@@ 3,15,BLOWIT CD391900 @I@@@@IX )@@G@@EOFLAG + 0 IY )@@G@@CD392000 @I@@@@WDSTP1 + 0 . HOLDS THE NO. IZ )@@G@@OF WORDS FROM FIRSCD392100 @I@@@@WDSTP2 + 0 JA )@@G@@ . NO. OF WORDS FROM SECOND READ CD392200 @ @@@@NMANYF + 03777JB )@@G@@7777777 @I@@@@ITDID 'YOUR FILE COMPARES' JC )@@G@@ CD392300 @I@@@@NOFNAM 'THE CMP DIRECTIJD )@@G@@VE REQUIRES TWO FILE NAMES' CD392400 @I@@@@RDPKT + JE )@@G@@ ENFILE,CDADDR . PACKET FOR READ$ TO OBTAIN IMAGECD392500 @I@@@@JF )@@G@@TAPPKT + ' ' . I/O PACKET FOR MAG TAPE TEF =011JG )@@G@@CD392600 @I@@@@ + ' ' . TRW=040, TRI=0JH )@@G@@41, PSF=050, PSB= CD392700 @I@@@@ + 0 JI )@@G@@ . CD392800 @I@@@@ + JJ )@@G@@ 0 . S2 OF THIS WORD WILL CONTAIN FUNCD392900 @I@@@@JK )@@G@@ + 4096,BLOCK . HOLDS NUMBER OF WORDS AND ADD IF MOJL )@@G@@CD393000 @I@@@@TAPWRI + ' ' . I/0 PACKET FORJM )@@G@@ WRITING MAG. TAPECD393100 @I@@@@ + ' ' JN )@@G@@ . CD393200 @I@@@@ + JO )@@G@@ 0 . CD393300 @I@@@@JP )@@G@@ + 0,010,0,0,0,0 . JQ )@@G@@CD393400 @I@@@@ + 0,BLOCK . NO.WORDS AND AJR )@@G@@DDRESS CD393500 @I@@@@ END CPD JS )@@G@@ CD393600 ___ JT )@@G@@ CD388800 @F@@@@NOTEOF 'END-OF-FILE WAS EXPECTED BUT NOT ENCOJU )@@G@@UNTERED ON FILE**'@I@@@@ + ' ' JV )@@G@@)@@[E^G@^C[OC[=[#@@K0@@@C0@]@>C8K@@[[@@]@>/@@@@U'=@@@@/,0@@@[4@]^N:9@@@^JW )@@G@@R;@@@[AA@@@I)@D[EK0@K0@^G@[#@@K0@@@@[?K@@C=8@@@[[)K@@C=8@@@^[=K@@C=8@@@KJX )@@G@@C?@]@>[4K@@C=8@@@]AB@@@I)@M[F#@@^G@[#@@K0@K0@@@@R#@] .[0K@@C=8@@@)[0K@@DJY )@@G@@=8@@@^[4K@@D=8@@@CC8K@@[C=@]@>AC@@@I)@V[#]@X#@[]@X#@[#@[]@-#@@@@@@R;)@@@JZ )@@G@@C!@][#'=@@@@R#@][#A\@][#'=@@@@R#@] .'=@@@@AD@@@I)@<[#@K[#@[#@[#@[@K0@@@@KA )@@G@@@@@@@@RB!]@*/K@@FX2C!+@(R#K]AD+@K]ACN8K@@H/@)@@W'^@@G AE@@@I)@:[F#@[#@@KKB )@@G@@^@K[#@@@@@@@9*@]@<;^@@@@AR)@@2T8)@@A/@)@FX'^@@G R;)@@[C!@][#A#)]@+AF@@@IKC )@@G@@)@4[#@K0@K0@ES@CK^*S@C@@@@@@@@C8@@@[/K@@[@(4@]@"'=@@@@R;@]@89*@]@8 =@@@CKD )@@G@@9*@@A AG@@@I)@/[##@@K0@K0@K0@K0@K0@K)C@@@@'=@@@@C@@]AE9*@]^>9?@]@8/K@M@+KE )@@G@@[=@@@C!8K@@KC4K]@"AH@@@I)[^[#@K0@K0@^G@]&@]^[M^[K@@@@@'=@@@@'=@@@@R;@] "KF )@@G@@A3@]A[R;@@@D9*@] "9?@]@[F#@@K^[@ES@CKAC]A@@@ @@@@#/K@@@W'=@@@@R;@]@8@@@[C=@@@C'^@@F4[@K@@]/K@@[5/,0@F*KL )@@G@@'^@@G R;)@@[C!@][#AN@@@I)[7[#@K)HK0@K0@^G@])-)@@@@@@@@[@@@@EC8@@]@A3@]A[KM )@@G@@R;@@@*9*@] "9?@]@8@@@^C@@]@>9*@@GS9?@]@LT )@@G@@'^@@G BQ@@@I) 2[##@[@K0@K0@K0@K^G@@@@@@@@@R;)@@[C!@][#/K@@A]()@@@CA#@]@7LU )@@G@@R7@]@"/K@@[@(4@]@"BR@@@I) '[F@K^G@[@E]A@]@)@@@@@9?@@A /K@@A"A#@@@ER;@@A"LV )@@G@@'^@@F4[@K@@]R#K]AJ/,0@F*'^@@G BS@@@I)A#[##@[][=]&@[80@)CS@@@@@@@@@C#)@@]LW )@@G@@'^@@G/@@@@A=[@@@@F@@@@@@@@@@@@/,0@@@9*@]@/,0@@@R#G@@]'^@@GY9*@] *9?@@AJ/K@@[9CB@@@IMG )@@G@@)BK[#]@-@K^G@^G@[#@[#@@@@@@@@@R@)]ALA#@@@AC8@@@[A@)@@B9*@]@<9?@@A '^@@H#MH )@@G@@'=@@@@CC@@@I)BS[F@^G@^[#@[@K0@^G@@@@%^@] 0H8@@@[RB@] 1/K@@B4%C@] 1/K@@B%MI )@@G@@:C@] 0R;@ @^/K@@[9CD@@@I)B-[F@K0@^[#@@K[@@@@@@@@/K@@B3H;0@@[/K@@B4%8@@@#MJ )@@G@@C@@]@6/K@@B4%8@@@ C@@]@7/K@@B4CE@@@I)B%[N#@@K^G@[@[@K@/K@@AW/K@@B4%B)@@VMK )@@G@@H;)@@[/K@@B4%8@@@#R#@]@7/K@@B4%8@@@ R#@]@6CF@@@I)B4[F@K^[#@[@K0@K0@K)CK@ML )@@G@@/K@@CL'=@@@@C@@][C9*@]^49?@@AJ9*@]^09?@@A /K@@A]/,0@B.CG@@@I)B.[F#@@K0@KMM )@@G@@0@[#@@@@@@@@/KF@@[/KF@@@?@@]^NR;@@@E/KF@@@*4@]^N[@@]^NG8@@@[C@@]^NCH@@@IMN )@@G@@)CA[F@K^[#@[@K0@^C@M&@@@A@ ] #/,0@@@C@@@@J9*@]^;9?@@AJ9*@]^79?@@A /K@@A]MO )@@G@@/,0@B.CI@@@I)CJ[##@[]@)K0@K^[#@[#@@@@@@@@@R#@] 09*@]@<9?@@A /K@@A]?@@]^NMP )@@G@@C8@@@E'=@@@@C@@][BCJ@@@I)CR[##@[][D#@@()@ G@@@@@@@@@@@M#W)@@&;K@@[R;K@@FMQ )@@G@@&;@@@[R;@[@UN@K] 1'^@@@@AB@@@]CK@@@I)CZ[##@[#@[@K0@K)MK^G@^C]@@@@@'=@@@@MR )@@G@@R#@] !/K@@A]'^@@@@9*@]@<9?@@AJAB@@@]R#@] 1CL@@@I)C$[F@K^G@[#@[#@[#@[@K@@MS )@@G@@'^@@HT/K@@[9 @@@@^R@)]ALA#@@@AC8@@@[9*@]@<9?@@AJ/K@@@WCM@@@I)C0[##@@K^G@MT )@@G@@^G@[#@@()@@@@@@@@@R;@] "A3@]A[R;@@@D9*@] "9?@]@8@@@[C=@@@CA@)[@FNY )@@G@@/S@@@@/K@KG @@@@@@DN@@@I)GO[#][9#@[@K)T@()@YG@@@@@@@@@@@@@F?[@@@@F@@@@@@NZ )@@G@@@@@@@@/,0@@@/K@KGHR@)[@F'^@@@@DO@@@I)GW[##@[@^G@^G@^G@^G@^G@@@@@@@A#0]#JOA )@@G@@A#)]#IA#K]#HA#@]#GA]0]#F/S@@@@/K@KGHR@)[@FDP@@@I)G=[##@[#@[#@[#@[@K^G@^@OB )@@G@@@@@@@@/K@@G*9/V]#M/K@@G\/%0@G%9?K]@<&]0]AMR]0]#L[[@]#KDQ@@@I)G?[F#@@K^G@OC )@@G@@^G@@K0@K0@@@[[@]#LG[@]#LC9@@@^9*W@@@R;G]#MR#@]#L/K@KGY @@@@FR;F]#MDR@@@IOD )@@G@@)G5[EK[@K0@K)CK)L^@@@@@@'^@@GY/S@@@@'=@@@@'=@@@@R#@]AN/K@KGY @@@@F/K@@G9OE )@@G@@!9@@@(DS@@@I)G"[U[@K[@@@ @G@@]A#W@@#O#W@@#R;K@@['^@@GY/S@@@@/K@KG/'^@@H=OF )@@G@@A#W@@]O#W@@]R;K@@[DT@@@I)HD[N@K[@@K^@@@@@@/S@@@@/K@KHF'^@@H=A#W@@]P;K@@[OG )@@G@@R#W@@]'^@@GY/S@@@@/K@KH#'^@@H=DU@@@I)HN[N@@K^@K[@@@@@@'^@@H= @G@@]'^@@GYOH )@@G@@/S@@@@/K@KHM'^@@H=A#W@@#P;K@@[R#W@@#'^@@GYDV@@@I)HX[N@^@^[@^G@^G@@R#@]#GOI )@@G@@R]0]#F/S@@@@/K@KHY'^@@H=A#W@@#R;K@@['^@@GY/S@@@@/K@KHTDW@@@I)H$@3#@[#@[#OJ )@@G@@@[#@[@K)U@@@)@@@K@@@@@@@@@@@@@'=@@@@/K@KH=C[@]#KR#0]#JR#)]#IR#K]#HDX@@@IOK )@@G@@)@][C@@@@@@@+@U@C@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@OL )@@G@@@@@@@@DY@@@I+@V@8@@@@@@@+@&@S@ @FREE OM )@@G@@ DZ@@@I+@(@8()]O0[ES@>G@M&@DN@^()]@@@@@@@@@FRE@[-TRW@[OON )@@G@@TEF@[ PSB@]\PSF@[!PRT@^$DUP@#WEA@@@I+@0[@()]O0[ES@>G@M&@DN@^@@@@@@@@@@@@OO )@@G@@@@@@@@TRI@[-SWP@[%CHK@E]OVW@C\CMP@ )PSE@]VEB@@@I+[][C* @* @* @* @*@@@@@@OP )@@G@@@]I][/@]E][2@#H]^(@#I]^6@]A]^Y@]H]^^@#^]#'@]@[@G@]D]]\EC@@@I+[F[K* @* @*OQ )@@G@@@@@@@@ TAPE @@@@@@#CLEAR@]J]]Z@]C][%@]H][X@]F][M@]O]]EED@@@IOR )@@G@@+[P[S@@@@@@@ ERROR RDS 096 WOS OF 4 BLOCK WITH ITTEN OS )@@G@@OVERWREE@@@I+[)[S@@@@@@@ TAPE.END OFNG TO WRITI WHILE OCK OT )@@G@@ IN BLNTERED ENCOUEF@@@I+[:[S@@@@@@@SSFUL SUCCE MENTED IMPLEOU )@@G@@DE NOTITE COOVERWR DRUM EG@@@I+[6[S@@@@@@@RD IN WO ERROR OV )@@G@@ S. BLOCK OF CHECK#CLEAREH@@@I+][[S@@@@@@@ OW )@@G@@ECK. OR #CHHING F SEARC WHILE OCK OF BL EI@@@I+]G[S@@@@@@@OX )@@G@@RD NUMT RECOTAPE AADING ILE RENED WH RETUR S STATU ERROREJ@@@IOY )@@G@@+]R[S@@@@@@@ E. EPTABLUS ACC1 STAT 0 OR . ONLY OZ )@@G@@BER EK@@@I+]+[S@@@@@@@CHECK TED - EXPEC WORDS. 4096 CK IN BLOPA )@@G@@ READ WORDS EL@@@I+]![S@@@@@@@. BLOCK AFTER IONED POSITPB )@@G@@ FILE ERROR.EM@@@I+]8[S@@@@@@@ NE ** RST LIPC )@@G@@THE FI ONLY SET. OPTION** X EN@@@I+##[@@@@@@@@+#M@K@@@@@@@PD )@@G@@@@@@@@@@@@@@ ** NTED. BE PRI WILL RECORD EACH ** OFEO@@@I+#O[S@@@@@@@PE )@@G@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@EP@@@IPF )@@G@@+#Z[S@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@PG )@@G@@@@@@@@EQ@@@I+#%[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[PH )@@G@@@@@@@@@@@@@@@@@@@@ER@@@I+#5[S@@@@@@@ED 10 EXCEEDCARD METER L PARAILLEGAPI )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[ES@@@I+^@[S@@@@@@@INUE T CONTULD NONG, COPJ )@@G@@ WRITI WHILE ERROR RUN N THISAMES OFILE NET@@@I+^F[S@@@@@@@ BLOCK PK )@@G@@@@@@@@RD BACKWAOVING HILE MERED WNCOUNTOINT ELOAD PEU@@@I+^Q[S@@@@@@@PL )@@G@@RATIONUS OPEPREVIO************ ***ON CMPTERED ENCOUNRRORS S OF EEV@@@IPM )@@G@@+^-[S@@@@@@@ZE BLOENT SIDIFFERSIGNEDNOT AS FILE ED ERFORMPN )@@G@@ NOT PEW@@@I+^?[S@@@@@@@FILE LE AND FI FILE PO )@@G@@D FROMRE REACKS WEEX@@@I+^7[S@@@@@@@ AT WOARTINGARE STT COMPDID NO PP )@@G@@ LE AND FI EY@@@I+ ][S@@@@@@@ *** *FILE BLOCKPQ )@@G@@RED INCOUNTEWAS EN-FILE END-OF RD ** EZ@@@I+ H[S@@@@@@@ED ON OUNTERPR )@@G@@OT ENC BUT NPECTEDWAS EX-FILE END-OFNO. FA@@@I+ S[S@@@@@@@PS )@@G@@ECTED OT EXP BUT NNTERED ENCOULE WAS-OF-FIAN END FILE**FB@@@IPT )@@G@@+ <[K@@E[KE@@@@@@@@#F] K@##] 3@#G] ^ FILE *** ON CK ***PU )@@G@@IN BLOFC@@@I+ ![S* @@@@@P DIRETHE CMMPARESILE COYOUR F#_____@@@@@@@@@@@@PV )@@G@@@@@@@@@#J] V@#B] 6FD@@@I+ 8[K@#A@G*@@@@@@@@@@@@@@@@@@@ @H?[@GPW )@@G@@NAMES FILE ES TWOREQUIRCTIVE FE@@@I+A][K*@[K@* @@@@@@@@#]@&@[ ]^=@@[@@@PX )@@G@@@@@___@@@@@F@C@@@@@@@@@@ [@@@@FFF@@@I+AG[@* @*[K@*@@@@@@@@@@@PY )@@G@@@@@@@@@]G]#"@@@__;#_____@]E]^O 1@[D]#[@]D]]8@]C]^FFG@@@I0@@@]@ @*[K@PZ )@@G@@*@@@@@@@@@@@@@@@@@@]G]#"@@@__;#_____@]E]^O 1@[D]#[@]D]]8@]C]^FFH@@@IQA )@@G@@@@^@@]@@A@@Z@[^@@S@]=@@@@@@]AO@@@@H!CD304500 EBD$X EBO$X QB )@@G@@CD363600 CD385400 SIGTUR OPT$ READ$ PRINT$ QC )@@G@@FACIT$ IOW$ CSF$ TSWAP$ PSFD PSED QD )@@G@@PSBD DWRTE ERR$ PRTO PRTAQ PRTHQ QE )@@G@@PRTA PRTH DRPKT SWITCH TPRD$ EXIT$ QF )@@G@@SNAP$ CONVERT SCAN DREAD CPD @@[@@@@@@@@@QG )@@G@@CDIMGE @@[@@@@@@@@WSAMECD @C@@@@@@@@@@RITE @@[@@@@@@@^FQH )@@G@@F2NAM @@[@@@@@@@AJEOFILE @@[@@@@@@@F?PRTEFX @@[@@@@@@@F7QI )@@G@@GETSCN @@[@@@@@@@G QGETAD @@[@@@@@@@GYINCRX @@[@@@@@@@G/QJ )@@G@@INCFX @@[@@@@@@@H#DCRRX @@[@@@@@@@HFDCRFX @@[@@@@@@@HMQK )@@G@@CLRRX @@[@@@@@@@HTCLRFX @@[@@@@@@@HYDUPPNT @@@@@@@@@@@[QL )@@G@@NOWDS$ @@@@@@@@@@@]PERIOD @@@@@@@@@@@ OPTION @@@@@@@@@@@CQM )@@G@@BLOCK @@@@@@@@@@@FCDADDR @@@@@@@@@[@GFILEN @@@@@@@@@]@PPKT @@@@@@@@@][#@@@@@@@@@@@@@@@@@@@@@@@@QO )@@G@@======@@^@@ @@@@@@@@@@@@@@ @C$@@@@[>@@ @@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@QP )@@G@@@@@@@@B0 [OJ72-8 @@@@@@@@@@]T@@@^@@@@@@@@@@@@@@@@@@@@@@Z^@O@@6@@A@@Y@@-QQ )@@G@@@]T@@@@@A@@^@@@[D^@@@@@@@^@@[>@^@ @[@ @@[>K^@N@) BLOCK SPECIFICATION NOTQR )@@G@@ AS ON LABEL OF FILE 1107A ATTEMPTED TO REWRITE RECORD LONGER THAN OQS )@@G@@RIGINAL 1118W FILE-LIMITS ARE NOT IN SEQUEN@[B@(5@@@___@@_AJ)@@@___QT )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___QU )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___QV )@@G@@/\K@%N;G@@@=;^@@@#;C@@@-O;@@@0')J)%U8^@@(7/KF@@[/\K@%NA#@@[[E@K@[[R;@@@@QW )@@G@@W8@@@EO;K@@0;^@@@=')J)%UH9@@@[1@@@@K/^K@%@R;@@@-R#KAJ)0@@@[[/K@@%K/D@@%IQX )@@G@@/KF@@[R#@@@H;@K@@A')J)%U8^@@%I/KF@@[C@)AKYR#0@@IQ#:@@@Q\;@@@C5F@@@8^H@@@QY )@@G@@/KH@@@/\0@%)A3I@@@A\I@@@A:I@@@A$I@@@AX@@@C(X@@@C!X@@@C1X@@@C5X@@@ C[K@(;*@@@@I/K@@%B[!V@@#RK )@@G@@[[K@(/T9@@@A[XF@@#C[F@@@[[F@@^ @@^[6NW;@@#[[V@@[[[V@@] =F@@#C@@^[6%8@@@@RL )@@G@@/K@@%2[-K@(/8K0@%L/K@@%2R\F@@#R#V@@^')G@(58#@@%QR;@@@ A\F@@#A#V@@^%9K@@.RM )@@G@@/K@@%)C]K@(/%]K@(;/K@@%IN80@@@[[K^[6/K@@%2%9K@@ /K@@%>(=F@@#/K@@%I/K@@%2RN )@@G@@%9K@@,/K@@%*/K@@%2C[F@@]R#;@@[;^0@[]A#;@@[[[F@@][-V@@]C>F@@#G9@@@[[>F@@#RO )@@G@@/K@@%I^W;@@#R$:@@#R#F@@[R#V@@]/KF@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@RQ )@@G@@@N-@QO@@@___@]QAC @@EAE1@]=AFB@[QAIE)@QAEV)@GAE;)@ZAH:@@@___@@@___@@@___RR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___RS )@@G@@@@@___@@@___@@@___@@@___/!K@QU[1[AEV[![AEV[([AEV[>[AEV[-[AEV[5[AEVQ/)@@ RT )@@G@@8@P@@@/K@@Q$'^@@Y@ @@AD6 @@AEI @@AEJ C@AEMR#KAFBR_@AE1N/K@@QM#W)@@CD@AEJRU )@@G@@8^@@R- 4@AEI 0@AEI ^@AEM ^@AEIR#F@@@;G@@@Z;GK@@X;G)@@Y!/@@@S/K@@S]:/@@@PRV )@@G@@/K@@S]R /ADYR@0@@HR[)@@IA#@@@ER_@@@@W/@@@AR@K@@GR@)AFDQ@)@@H;^)@[A;C0@@ORW )@@G@@R.J@@@R#@@@E?8@@@C/K@@RI!8@@@P/K@@RI:8@@@L/K@@RI:8@@@M/@0@RR%8@@@I/K@@RRRX )@@G@@*@@@@A/K@@RR=/)@@]'K0AD6=/)@@[/,)@YS;@0@@K;C0@@O/S@@@@R.J@@@/,)@YS(4@AEIRY )@@G@@/K@@RY;@0@RT(0@AEI;C9@@@*0@AEI;K9@@@0@@@@KO"0@@[/KB@@@[D@AEJ ^@AEIRD0AEORZ )@@G@@R )AEOOG0AELOH@AEKR#0@@^R#K@@#?/K@]@/CK@R! C@AEJ/K@@Q$R_@@@@W/@@@AR@K@@GSA )@@G@@R@)AFDQ@)@@H/K@@RQCD@AEJ8^@@R-/K@@Q?@@@@@@Q#K@@F&;K@@@R'0@@ @@@@G;=@@@MSB )@@G@@;=@@@#O;@@@0;)@@@#8]0@R/;@@@@#/K@KR6'^@@R6A#@AF0R#@AF*'=@@@I/K@@W*/C0@SESC )@@G@@^*)AEID@0@@JR")@Y=R_)@@@RJ@AEM(@@@@AR"@@@@/@@@S?;^?@@=R#@@@A*)@AEIO#@@@CSD )@@G@@?/@@@F/K@@SSR_@@@ER.)@@E0@@@@GR_0@@@;C0@@[U@/ADN0@@@@KO_0@@[/K@@S<;G0@@=SE )@@G@@W/0@@EG.@@@0/!'@@@8[)@SZC.@@@.')])QO()@AEI/K@@S?C.@@@0/K@@S:/!'@@@8]@@S%SF )@@G@@O#0@@I;G0@@=W/0@@EG.@@@0/!'@@@/^0@S!(?@AEI(*@AEI/K@@Q$C.@@@-')])QO/K@@Q$SG )@@G@@D@K@@A/@K@Q$?@KAE2/K@@Q$;@6@@@;C.@@=D/H@@[S@@AE3;G0@@#;D@@@-G.@@@0')])QOSH )@@G@@8#@@T@/K@@Q$R#@@@J/K@@THC.@@@0;@@@@[0@@@@GC.@@@1')])QO8[)@TC/K@@Q$D@K@@ASI )@@G@@/@K@Q$?@KAE2/K@@Q$;^6@@@;DH@@=D/H@@[S@@AE4')])QO;D@@@A8#@@TR/K@@Q$R#0@@^SJ )@@G@@R_@@@AT/]@@@]@@@@BR#LAEV;CR@@=O@KAFC?/0@[#/K@@T7O#0AFC8[)@T*/K@@Q$R#Z)@@SK )@@G@@R#\@@@;GW@@@A#-AEV$/K@@P8[)@T$R#Z@@@R_0@@@Q#0@@[!/0@@Q/K@@Q$R#-AEV;@$@@=SL )@@G@@;GW@@@A#-AEV/K@@Q$C[@@@J8[)@T//K@@Q$R#K@@JG.@@@[R#0@@K/,)@YSR#)@@J;GW@@@SM )@@G@@A#-AEV$/K@@P8[)@T'R#K@@J/K@@T,R")@@@/K@@UCR")@@[/C0@UF^*)AEID@0@@J"KK@@JSN )@@G@@/@)@VL"OK@@I"W)AEHRI@AENS@0AD9/C0@UP?@\AC:P_0@@[/K@@UT?@\AC?/K@@UT%/0@@&SO )@@G@@O_0@@[]@0@@D*@@@@EP]@@@D"C(AC??@)AC?/K@@U1@@@@C/K@@VIU@*ADY/K@@SLU@)ADYR_0@@@/K@@SL**@AEI/K@@Q$RI@AENST )@@G@@R"K@@@R_K@@@/K@@U%=8)@@[/,)@YS=8)@@[R[@@@J/!0AFER#KAFBR_@AE1N/K@@QM#W)@@SU )@@G@@/K@@WC=8)@@[/,)@YS=8)@@[R[@@@J/!0AFE/K@@Q<=8)@@[/,)@YS=8)@@[R[@@@J/!0AFESV )@@G@@/K@@R3R_^@@@;@@@@K;K@@@OAB@AEN/K@@R3R_^@@@;@@@@K;K@@@OAB@AEM/K@@R3R"@@@=SW )@@G@@P]@@@#AA@@RTR"N@@80@@^/K@K<*!@@AHY/K@K<*[@@AHY/K@K<*UM )@@G@@/S@@@@'^@@&: @@AHXR;@@@]AB@@= R;@^[?AB@@=^RB@^[3A#@AHYR;@@@K'^@@=G/,)@&+UN )@@G@@/K@K<0A\@@=#RB@@=^O;@@@KAB@@=^/,0@QY^^JAHX&CK@@[EA[^[?KQ@@@[R;@@@KO#@AHXUO )@@G@@A#@AHXR;@@@[AB@@= /K@@<9/S@@@@C@0A]Q>80@@^/K@K=G!@@AHY/K@K=G[@@AHY/K@K=GUP )@@G@@/S@@@@'^@@&: @@AHXR;@@@]AB@@=(R;@^[?AB@@=*RB@^[3A#@AHYR;@@@K'^@@=0/,)@&+UQ )@@G@@/K@K=OA\@@=$RB@@=*O;@@@KAB@@=*/,0@QY^^JAHX&AK@@[EA[^[?KQ@@@[R;@@@KO#@AHXUR )@@G@@A#@AHXR;@@@[AB@@=(/K@@=X/S@@@@C@0A]Q>80@@^/K@K=0!@@AHY/K@K=0[@@AHY/K@K=0US )@@G@@A]0@&)'^@@&: @@AHXC^@^[3(@@@@G/K@@>:C8K@@O/,0@$CP;@@@[N@)@@GR])AIEA])AHHUT )@@G@@C/@AH=/,0@Y3C@@AHXC8K@@^/,0@-FC@@AHXO;@@@O[@@AHXN80@@NC/@@@[/,0@Z'R])AHHUU )@@G@@9?KAH-C@E@@@[@@AH)C8@@[W,WU@@@[W@AH),KU@@@[K@AH),SU@@@[S@AH),OU)@@[O@AH)UV )@@G@@A])AHHC8@AH)C8K@@^/,0@)TC/@@@[/,0@Z'8K0@>*/,0@ZWC@@AH<'=@@@88K)@>^/K@@>:UW )@@G@@8K)@>JN8)@@@/K@@>9/K@@&Y8K)@&^N8)@@@/K@@&QR]0@&-/KF@@@@@@@@@@@@@@@C@KAHY/@U@@@VB )@@G@@L@K@@G/C)@&( @@AHYC@@@@H/KE@@[[@)AHY/KE@@[/S@@@@'^@@P [@@AHZ9?G@@@9*@AHJVC )@@G@@C@@AHZC^G@@#/,0^[B#@ AHLC@@AHZC@G@@]/,0^[BA@ AHPC^@^[3/,0^[BA@ AHSC^@^[3VD )@@G@@T8@@@AC?)^[3%8)@@^/K@@$#C8K@@AP7K^[3P#@@@H/,0^[BA@ AHVC@@AIF'=@@@I/K@K&:VE )@@G@@C@0A]Q>80@@^/KF@@@!@@@@HC@@@@H/KF@@@ @@@@L/K@@$SA@)@@L:[KAJX/K@@$RC@@AI+VF )@@G@@G@@@@L[@@AI+/K@@$!C9K@[@9?@A]O9*@AI<9*@AI4C8@AI<'=@@[[&(Q>,]^D6B>]XGN(YVT )@@G@@]6ZS<5#O#$QT#!^-G@^AP(Z@^Z;#60^//'UI QGD@1 \\FK.AG5Z]&A&]63KA_<=)^BW,I4#VU )@@G@@B592-#CJSJDOC?$DX4D 0;5MDZHE2&D/)I\*EP*MV+E\]R]UFGTYT)F>Z5_8F"73Z6GWM8F'VV )@@G@@G5R&I9HI!Z2$H?GV7*I J+5+IY@@@@K"K@@@LR4@@@VW )@@G@@L48)@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@OO%[ZCO!4-6'PBL%O(P=<]W9P.:3^CQRA\5EVX )@@G@@Q4WH9IRH19VY )@@G@@V4]Z$GWH#B)_W&N9TIW_87\+XW;+5!X6EV@@0229@@]AG%@@0305@@#AG!@@0315XU )@@G@@@@^AG1@@0317@@#AG6@@0320@@]AG'@@0321@@ AG.@@0401@@]AH#@@0403@@#AHJ@@0404XV )@@G@@@@#AHA@@0405@@^AHE@@0406@@ AHN@@0407@@AAHT@@0409@@BAH)@@0412@@#AH*@@0414XW )@@G@@@@^AH?@@0415@@]AH1@@0418@@DAH4@@0419@@AAH"@@0428@@^AI @@0501@@AAIE@@0503XX )@@G@@@@ AIL@@0508@@[AI$@@0512@@^AIR@@0517@@^AI(@@0526@@ AIW@@0531@@^AI+@@0606XY )@@G@@@@@AI,@@0610@@CAI\@@0612@@^AI8@@0617@@CAI.@@0619@@ AJD@@0618@@]AJA@@0625XZ )@@G@@@@#AJJ@@0704@@]AJN@@0714@@[AJQ@@0717@@^AJS@@0720@@#AJX@@0729@@^AJ-@@0806YA )@@G@@@@]AJ&@@0807@@^AJ(@@0814@@[AJ,@@0825@@BAJ0@@0826@@#AJ8@@0827@@]AJ/@@0830YB )@@G@@@@#AJ_@@0901@@]AK#@@0902@@ AKA@@0906@@ AKG@@0907@@AAKM@@0911@@^AKT@@0913YC )@@G@@@@ AKY@@0914@@ AK=@@0925@@BAK\@@1001@@ AK7@@1004@@#AK.@@1005@@#AL[@@1009YD )@@G@@@@]AL @@1012@@[ALC@@1014@@#ALE@@1024@@]ALI@@1029@@#ALL@@1031@@CALP@@1111YE )@@G@@@@]ALY@@1119@@BAL-@@1124@@CAL(@@1125@@^AL2@@1128@@^AL7@@1129@@#AL/@@1207YF )@@G@@@@]AM@@@1214@@ AM#@@1217@@^AMD@@1221@@#AMI@@1224@@#AMM@@1225@@]AMQHAPPY YG )@@G@@NEW YEAR NELLIE ROSS FIRST WOMAN GOVERNOR 1925 ALEXANDER HAMILTONYH )@@G@@ BORN 1757 PRESIDENTIAL INAUGURATION DAY HAPPY BIRTHDAY SELDON JOHNSON YI )@@G@@EXPLORER 1--1958 GROUND HOG DAY A.LINCOLN--1809 ST. VALENTINE'S DAYJ )@@G@@Y JOHN GLENN'S FLIGHT--1962 GEORGE WASHINGTON'S BIRTHDAY LEAP-YYK )@@G@@EAR DAY. BPSTON MASSACRE - 1770 BEWARE: THE IDES OF MARCH SAINT YL )@@G@@PATRICK'S DAY SPRING HAS SPRUNG HAPPY BIRTHDAY JERRY FANKHAUSER YM )@@G@@APRIL FOOLS DAY JOHN NAPIER BORN 1550 POCAHONTAS MARRIED ROLFE 1614 YN )@@G@@NATO DAY (MAC GETS OFF)PEARY REACHES NORTH POLE IN 1909 OFFICIAL DATYO )@@G@@E OF CRUCIFIXION IN 30 A.D. APPOMATTOX DAY (THE SOUTH WILL RISE AGAINYP )@@G@@) FIRING ON FORT SUMTER LINCOLN ASSASINATED, 1865 HAPPY IRS DAYQ )@@G@@Y SAN FRANCISCO EARTHQUAKE 1906 - HAPPY BIRTHDAY MARY FROST TAXATIYR )@@G@@ON WITHOUT REPRESENTATION MEANS WAR HAPPY BIRTHDAY LORA ELLIS MAY DAYS )@@G@@Y - HAPPY BIRTHDAY MILFORD FORE POLAND ADOPTED CONSTITUTION 1791 YT )@@G@@HAPPY BIRTHDAY TOM DICKERSON FIRST AMERICAN BANK CHARTERED 1781 HAPPY YU )@@G@@BIRTHDAY SHAN GRIFFIN V-E DAY NORWEGIAN INDEPENDANCE DAY D-DAY YV )@@G@@WITHHOLDING TAX LAW SIGNED 1943 : EAT YOUR HEART OUT HAPPY BIRTHDAY LEWYW )@@G@@ EMRICK DON'T FIRE UNTIL YOU SEE THE WHITE'S OF THEIR EYES BATTLEYX )@@G@@ OF WATERLOOHAPPY BIRTHDAY WILLADEAN MARTIN CUSTER'S LAST STAND YY )@@G@@INDEPENDENCE DAY. BASTILLE DAYHAPPY BIRTHDAY PETE PATTERSON 1ST MAN ON TYZ )@@G@@HE MOON HAPPY BIRTHDAY AL MALCUIT FRIENDSHIP DAY HAPPY BIRTHDZA )@@G@@AY ELLA MITCHELL V-J DAY HAPPY BIRTHDAY CHUCK OHL AND BRUCE SCHREIBZB )@@G@@ER WOMEN'S SUFFRAGE--1920 FIRST OILWELL CLEOPATRA DIED 30 B.C. ZC )@@G@@INVASION OF POLANDSURRENDER SIGNED, U.S.S. MISSOURI HAPPY BIRTHDAY ROZZD )@@G@@ANNE CANTWELL HAPPY BIRTHDAY KATHY NOLAN AND JACK RUNYONHAPPY BIRTHDZE )@@G@@AY DIANE KISER HAPPY BIRTHDAY STEVE WINKELJOHN STAR-SPANGLED BANNZF )@@G@@ER WRITTEN--1814 BLACK FRIDAY IN N.Y. 1869 BALBOA DISCOVERS PACIFICZG )@@G@@ OCEAN 1513 !!!!!!! HAPPY NEW FISCAL YEAR (OCS DAY) HAPPY BIRTHDZH )@@G@@AY JIM VOLPIHAPPY BIRTHDAY DAVID LIEF ERIKSON DAY COLUMBUS DAYBATTLEZI )@@G@@ OF HASTINGS, 1066UNITED NATIONS DAYSTOCK MARKET CRASH 1929 HAPPY HALLOWZJ )@@G@@EEN - HAPPY BIRTHDAY CLAUDE STAPLETON ARMISTICE DAY FORE-SCORE AZK )@@G@@ND SEVEN ... PERISH FROM THIS EARTH HAPPY BIRTHDAY LULA MORELAND AND CLAZL )@@G@@RICE WILLIAMSON HAPPY BIRTHDAY BILL MCMURRAY HAPPY BIRTHDAY RON WAGNEZM )@@G@@R SAND CREEK MASSACRE 1864DAY-OF-INFAMY AMUNDSON REACHES SOUTH PZN )@@G@@OLE, 1911 FIRST POWERED FLIGHT--1903 PLYMOUTH ROCK STEPPED ONHAPPY ZO )@@G@@BIRTHDAY ANITA MERRY CHRISTMAS @[QAC @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@IO@C@)T?@QO@@@___@[/^@@ZQ )@@G@@@@YA]F@ MA]3+@J^[/)@EA]()J;AC @@@___@@@___@@@___@@@___@@@___@@@___@@@___ZR )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___ZS )@@G@@@@@@@@9*@@CRB@KCI;*@@@]1@G^@@/K@@CSRB@KCIR;K@CS'=@@[DZU )@@G@@RB@@CIP;@@@]RBW@@@R#)@C&A#?@@@RFG@@]ABW@@@O;@@@[AB@@CHR#)@C>/K@@CG@@@@@@ZV )@@G@@@@@@@@@@@@@@'^@@C@R;@@@[:9@@@^[4@AA^/,0^[:'=@@@3/@@@D[[@@A]QC8K@@[C0@A]QZW )@@G@@=8@@@][4K^[9C?@A]Q=8@@@K[=K^[9=8@@@^[)K^[9=8@@@[[?K^[9C=@A]QC8K@@[=8@@@CZX )@@G@@[4K^['=8@@@^[0K^['=8@@@)[0K^[9R#@AB,'=@@@HR#@AB,'=@@@HA\@A]4R#@A]4'=@@@IZY )@@G@@C!@A]4R;)@@@'^@@O?/@)@D#N8K@@H+@KAB9R#KAB'2C!&]U/K@@O^RB!A]TA#)A]NC!@A]4ZZ )@@G@@R;)@@['^@@O?/@)@O^T8)@@AAR)@DT;^@@@@9*@A]O9*@@I? =@^[99*@A](R;@A]('=@@[8@@@[/K@@E"/K@^[>9?@A]O9*@AB\R;@@@*A3@AB2C8@@E$[@@^[;/K@@E?(@@^[7AG )@@G@@/K@@F@R@)^[8 @@^[7/K@@J8@@@^/K@@HZC@@AB"AV )@@G@@'=@@@IC@@AB_'=@@@IC8@@I@[@@^[;*)@^[9/K@@I[R#@@@]:@@ABA#@^[;/K@@J>9?@@I?9*@A]O/,0^[,@@@@@@@@@@@@[@@^[/@@@@JFBC )@@G@@'^@@PC@@A]9'=@@@I/K@@K8C@@AA^G8@@@[[@@AA^*4@AA^BM )@@G@@/KF@@@R;@@@E?@@AA^/KF@@@/KF@@[/,0@K=/K@@I(9?@@I?9*@AA*9?@@I69*@AA?C@@@@JBN )@@G@@/,0^[BA@ AA4C@@A]8'=@@@IC8@@@E?@@AA^/K@@I(9?@@I?9*@A]OR#@AB-AB@^[3'^@^[WBO )@@G@@N@KAB+R;@ ]F&;@@@[R;K^[/&;K@@[M#W)@@R#@AB+AB@^[39?@@I69*@A]O'^@^[W/K@@I(BP )@@G@@R#@ABY'=@@@I/K@@D#9?@@I69*@A]OC8@@@[A#@^[7R@)AC] @@^[5/K@@E)'^@@Q@C=@^[9BQ )@@G@@=8@@@[/K@@M=9?@A]O9*@AB\R;@@@DA3@AB2R;@AB\'=@@@#R7@AB2/^@@MTR;@@@CA3@AB2BR )@@G@@R#@A#[A#@^[/R;@@@1A7@AB3R;@AB\'=@@@#'^@@P8@@@[/K@@O"*@@^[2/K@@O"'^@^[[CJ )@@G@@R@) [//K@KO4/,0^[,@@@@@@@@@@@@[@@^[/@@@@ONR@) [//K@KO4/S@@@@A]0A^/A#@A^.CK )@@G@@A#KA^"A#)A^_A#0A @[[@A [R]0A ]&]0AC#9?KA]O/%0@PL/K@@PQ9/VA #/K@@PJR;FA #CL )@@G@@ @@@@F/K@KP R#@A ]R;GA #9*W@@@C9@@@^G[@A ][[@A ]!9@@@(/K@@P) @@@@F/K@KP CM )@@G@@R#@AC^'=@@@I'=@@@)/S@@@@'^@@P R;K@@[O#W@@]A#W@@]'^@@QF/K@KP)O@@@@@R>@QOAMTAC @@@@[DCR )@@G@@)O@@@@@(4@QOAJZAC @@@@@G)O@@@@@%6@(5AJZAJ)@@@@@C)O@@@@@%;@(5AKYAJ)@@@@@]CS )@@G@@'^@@C@'^@@CI@Z1@@]'^@@C@'^@@CI@) @@]'^@@C@'^@@CI@)@@@]'^@@C@'^@@CI@Z4@@]CT )@@G@@'^@@C@'^@@CI@)T@@]'^@@C@'^@@CI@-K@@]'^@@C@'^@@CI@-N@@]'^@@C@'^@@CI@ZE@@]CU )@@G@@'^@@C@'^@@CI@ZW@@]'^@@C@'^@@CI@Y3@@]'^@@C@'^@@CI@)&@@]'^@@C@'^@@CI@-F@@]CV )@@G@@'^@@C@'^@@CI@)R@@]'^@@C@'^@@CI@Z'@@]'^@@C@'^@@CI@%=@@^'^@@C@'^@@CI@$"@@]CW )@@G@@'^@@C@'^@@CI@(V@@]'^@@C@'^@@CI@(.@@^'^@@C@'^@@CI@(5@@^'^@@C@'^@@CI@QY@@]CX )@@G@@'^@@C@'^@@CI@<0@@]'^@@C@'^@@CI@=8@@]'^@@C@'^@@CI@=O@@]'^@@C@'^@@CI@>!@@]CY )@@G@@'^@@C@'^@@CI@FIRST @@Q@@^@@@@[DSECOND @@S@@^@@@@@GEI )@@G@@THIRD @@U@@^@@@@@CFORTH @@W@@^@@@@@]@@@#@ @@@@[>@@@]@ @@@@[DEJ )@@G@@@@@]@ @@@@@G@@@]@ @@@@@C@@@]@ @@@@@]A^-@@]Q8)@@@/K[K@]C8?@@@')])DJ/KF@@@EK )@@G@@;G@@@=W8@@@AG^[@@@Q8!@@@Q8/@@@/KF@@@G8]@@@C8N@@@H^L@@@T8K@@AG8H@@@/K@@DWEL )@@G@@N?L@@@Q^1@@@C8@@F)M@/)@@Q8)@@@Q^1@@@/KF@@@C8#@@@AEDIT$ LL)CCFCONVEREM )@@G@@SION B:T AHCPD B0@[OJDRUM B:Z AHEOUT$ N@2BECERU$ EN )@@G@@ GB*][HIDL$ E17EDBPRT B0#[OJSCAN B?@ AHSIGN EO )@@G@@ B0][OJTPRD$ B0][OJ;G@@@M;CK@@M&;@@@[&;K@@[')G)EX:0-@@@/K@@EUEP )@@G@@')])DJ/K@@EP[?[@@[[^L@@[/KF@@@C4!@@@C0!@@@C?!@@@C*!@@@C=!@@@/\@@ETPRD$ FK )@@G@@@@J@@@C9K@@K>DR@@^/K@@I&D[@@J%+[B@@^[[R@@^R;B@@AN[)@@J/,0@(S^[)@@JR7B@@DFL )@@G@@/@@@I&?8@@@#/K@@JQ:8@@@^SAMECD @@@@@@SLT$ @@@^@@[1B@@DAFR@@EFM )@@G@@A#@@@GOBC@@FCDG@@][ B@@ER;B@@A'=@@@[R;@@@#*^C@@B @@@@GABC@@BR *@@FO[)@@GFN )@@G@@RFA@@]O;@@@#ABC@@LC[@@J%)[B@@^[[R@@^RFC@@IO;@@@[*[S@@@*SDFF*@B@#@@@ASM,EFO )@@G@@ CPD.SIGN/03F,.SIGN/03G,SIGN/03G @B@@@#@ASM,E CPD.SIGN/03F,.SIGN/03FP )@@G@@G,.SIGN/03G @]@@@@-119,119 @I@@@@SIG 'BPD/CPD 03G' FQ )@@G@@ . SIGNATURE PKT BPD 03G @B@@@[@ASM,E CPD.CPD/0FR )@@G@@3F,.CPD/03G,.CPD/03G @[@@@[-57 @I@@@[ SA A2,FILEN FS )@@G@@ . SAVE COMMAND BPD 03G @[@@@[-64 @I@@@[FT )@@G@@ LA A3,('@@@OPT') . FU )@@G@@BPD 03G @I@@@[ TNE A3,FILEN . OPTION CHANGE FV )@@G@@? BPD 03G @I@@@[ J NEWOPT FW )@@G@@ . YES - CHANGE OPTIONS BPD 03G @[@@@[-86 @[@@@[. FX )@@G@@@C@@@[NEWOPT . CHANGE CPD OPTIONS BPD 03G @I@@@[ SZFY )@@G@@ OPTION . CLEAR OPTIONS BPD 03G FZ )@@G@@@I@@@[ SZ OPTION2 . GA )@@G@@ BPD 03G @I@@@[ SZ TEMP . GB )@@G@@ BPD 03G @I@@@[ LA,U A3,1 GC )@@G@@ . USED TO SET OPTION BPD 03G @I@@@[ LAGD )@@G@@,U A4,04 . SET X OPTION BPD 03G GE )@@G@@@I@@@[ LR,U R12,5 . LOOP 5 TIMES - 6 OPTIONS AGF )@@G@@LLOWED BPD 03G @I@@@[ SA A1,FILEN . STORE OPGG )@@G@@TIONS BPD 03G @C@@@[OPTLOOP . GET OPTIONS GH )@@G@@ BPD 03G @I@@@[ LA A1,('@@@@@A') . GI )@@G@@ BPD 03G @J@@@[ TNE S1 GJ )@@G@@ A1,FILEN . A OPTION BPD 03G@I@@@[ GK )@@G@@ SA,S1 A3,OPTION . YES SET BPD 03GL )@@G@@G @I@@@[ LA A1,('@@@@@H') . GM )@@G@@ BPD 03G @I@@@[ TNE,S1 A1,FILEN . H GN )@@G@@OPTION BPD 03G @I@@@[ SA,S3 A3,OGO )@@G@@PTION . BPD 03G @I@@@[ GP )@@G@@ LA A1,('@@@@@O') . O OPTION BPD 03GQ )@@G@@G @I@@@[ TNE,S1 A1,FILEN . GR )@@G@@ BPD 03G @I@@@[ SA,S2 A3,OPTION . GS )@@G@@ BPD 03G @I@@@[ LA A1,(GT )@@G@@'@@@@@Q') . Q OPTION BPD 03G @I@@@[ GU )@@G@@ TNE,S1 A1,FILEN . BPD 03GV )@@G@@G @I@@@[ SA,S1 A3,OPTION2 . GW )@@G@@ BPD 03G @I@@@[ LA A1,('@@@@@R') . R GX )@@G@@OPTION BPD 03G @I@@@[ TNE,S1 A1,FGY )@@G@@ILEN . BPD 03G @I@@@[ GZ )@@G@@ SA,S2 A3,OPTION2 . BPD 03HA )@@G@@G @I@@@[ LA A1,('@@@@@F') . F OPTION HB )@@G@@ BPD 03G @I@@@[ TNE,S1 A1,FILEN . HC )@@G@@ BPD 03G @I@@@[ SA,S6 A3,OHD )@@G@@PTION . BPD 03G @I@]@[ HE )@@G@@ LA A1('@@@@@X') . X OPTION BPD 03HF )@@G@@G @I@@@] LA A1,('@@@@@X') . X OPTION HG )@@G@@ BPD 03G @I@@@[ TNE,S1 A1,FILEN . HH )@@G@@ BPD 03G @I@@@[ SA A4,THI )@@G@@EMP . SET X OPTION BPD 03G @I@@@[ HJ )@@G@@ LA A1,('@@@@@P') . P OPTION BPD 03HK )@@G@@G @I@@@[ TNE,S1 A1,FILEN . HL )@@G@@ BPD 03G @I@@@[ SA,S4 A3,OPTION . HM )@@G@@ BPD 03G @I@@@[ LA A1,FHN )@@G@@ILEN . BPD 03G @I@@@[ HO )@@G@@ SSC A1,6 . SHIFT 6 BITS BPD 03HP )@@G@@G @I@@@[ SA A1,FILEN . HQ )@@G@@ BPD 03G @C@@@[ JGD R12,OPTLOOP . BPHR )@@G@@D 03G @I@@@[ J CDIMGE . GET NEW COMMAND HS )@@G@@ . BPD 03G @[@@@[-541 @I@@@[ TZ,S4 OPTION HT )@@G@@ . P OPTION SET ? BPD 03G @I@@@[ J HU )@@G@@ 1,X11 . YES PRINT IT BPD 03G HV )@@G@@@]@@@[-909,909 @E@@@[NOCOMM EQU 14 . NUMBER OF VALID COMMANDS HW )@@G@@ BPD 03G @[@@@[-934 @I@@@[ + 'OPT',NEWOPT . CHANGE OPTIOHX )@@G@@NS BPD 03G ___ 03G @I@@@[ J HY )@@G@@ 1,X11 . YES PRINT IT *[S@@@*SDFF*@[@@@@. HZ )@@G@@@G@@@@. THIS ROUTINE OBTAINS THE CURRENT DATE AND TIME FROM THE SYSTEM AIA )@@G@@ND @G@@@@. COMPUTES THE CURRENT MONTH AND DAY OF THE WEEK. IT ALSO PIB )@@G@@RODUCES @G@@@@. SPECIAL MESSAGES ON APPROPRIATE DAYS OF THE YEAR. NIC )@@G@@OW ISN'T THAT @^@@@@. REALLY GOOD AND NICE? @[@@@@. @B@@@@ ID )@@G@@ AXR$ . @[@@@@. @C@@@@. THIS PROC IS TO IE )@@G@@SET UP THE SPECIAL MESSAGES. @[@@@@. @]@@@@SP* PROC 1. @ @@@@ IF )@@G@@ + SP(1,1). @B@@@@ + SP(1,2)-1,SP(1,3). IG )@@G@@@#@@@@ END. @B@@@@P FORM 12,6,18 . IH )@@G@@@[@@@@$(1) @G@@@@SIGTUR* ER DATE$ . GET DATE AND TIII )@@G@@ME FROM SYSTEM @F@@@@ SA A0,DATE . STORE DATIJ )@@G@@E IN TEMP LOCATION@F@@@@ SA A1,TIME . STORE TIMIK )@@G@@E IN TEMP LOCATION@G@@@@ ER TDATE$ . GET BIN DIL )@@G@@ATE FOR MONTH SEARCH @G@@@@ SA A0,TDATE . STOIM )@@G@@RE BIN DATE IN TEMP LOCATION @F@@@@ SSL A0,30 IN )@@G@@ . SHIFT FOR MONTH SEARCH @D@@@@ SSL A1,24 IO )@@G@@ . SHIFT FOR HOUR @H@@@@ MSI,U A0,2 . DOUBLE THIP )@@G@@E INDEX FOR DOUBLE WRD MONTHS @E@@@@ DL A2,MNTH,A0 IQ )@@G@@ . LOAD THE PROPER MONTH@E@@@@ DS A2,MONTH . STOIR )@@G@@RE MONTH IN PACKET@E@@@@ LA,T2 A0,DATE . LOAD DAY IS )@@G@@OF MONTH @E@@@@ SA,T1 A0,DAYYR . STORE DAY IN PAIT )@@G@@CKET @F@@@@ LA,T3 A0,DATE . LOAD YEAR (LAST TWO DIU )@@G@@IGITS)@D@@@@ SA,T1 A0,DAYYR+1 . STORE IN PACKET@E@@@@IV )@@G@@ SA,T2 A1,HRMIN . STORE HOURS IN PACKET@E@@@@ IW )@@G@@ LA,S3 A1,TIME . LOAD 1ST DIGIT OF MIN@D@@@@ SA,IX )@@G@@S6 A1,HRMIN . STORE IN PACKET@E@@@@ LA,S4 A1,TIIY )@@G@@ME . LOAD 2ND DIGIT OF MIN@D@@@@ SA,S1 A1,MINSEC IZ )@@G@@ . STORE IN PACKET@D@@@@ LA,T3 A1,TIME . LOAJA )@@G@@D SECONDS @D@@@@ SA,T2 A1,MINSEC . STORE IN PACKETJB )@@G@@@D@@@@/. THIS PART COMPUTES THE PROPER DAY OF THE WEEK. @E@@@@. THISJC )@@G@@ ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR 2069. @G@@@@. IT ACCOUNTJD )@@G@@S FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILL CHANGE THE @G@@@@. CENTJE )@@G@@URY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCURS. SOME OF THE @G@@@@JF )@@G@@. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BIT LIKE FUDGING ONLY JG )@@G@@@#@@@@. MUCH STICKIER. @[@@@@. @F@@@@ LA,S1 A0,TDATE JH )@@G@@ . LOAD THE CURRENT MONTH @H@@@@ LA A6,OFFSET-1JI )@@G@@,A0 . LOAD THE OFFSET. THE OFFSET IS THE @H@@@@ AA,S2 JJ )@@G@@ A6,TDATE . SUM OF THE DAYS IN THE MONTHS PROCEDING@I@@@@ JK )@@G@@ . THE CURRENT ONE AND ADD TODAYS DATE TO JL )@@G@@IT @H@@@@ LA,U A8,72 . LOAD THE 1ST LEAP YR JM )@@G@@AFTER THIS WRIT @G@@@@ LA,S3 A9,TDATE . LOAD THE JN )@@G@@CURRENT YEAR (MODULO 64)@E@@@@ AA,U A9,64 . BRIJO )@@G@@NG IT UP TO DATE @[@@@@. @E@@@@. THIS PART DETERMINES WHETHER WE HAJP )@@G@@VE A LEAP YEAR OR NOT. @[@@@@. @E@@@@TEST1 TG A8,A9 JQ )@@G@@ . IS CURRENT YEAR < 72?@F@@@@ J TEST2 JR )@@G@@ . NO, GO DO THE NEXT TEST @E@@@@ AA,U A8,4 JS )@@G@@ . YES, ADD 4 TO BASE 72@F@@@@ J TEST1 . GO JT )@@G@@BACK AND TEST AGAIN @D@@@@TEST2 TE A8,A9 . AREJU )@@G@@ THEY EQUAL?@G@@@@ J TEST3 . NO, NOT A LEAP JV )@@G@@YEAR, KEEP GOING @G@@@@ ANA,U A0,3 . YES, SEE JW )@@G@@WHAT MONTH WE ARE IN @G@@@@ JP A0,$+3 . AFTJX )@@G@@ER MARCH, NEED AN EXTRA DAY @G@@@@ JZ A0,$+2 JY )@@G@@ . IT IS MARCH, NEED AN EXTRA DAY @H@@@@ J TEST3 JZ )@@G@@ . NO, MUST BE JAN OR FEB, NO EXTRA DAY @E@@@@ AA,U KA )@@G@@ A6,1 . ADD THE EXTRA DAY @H@@@@TEST3 DSA A6,36KB )@@G@@ . NOW TAKE OUT THE WEEKS PRIOR TO THIS @G@@@@ DI,KC )@@G@@U A6,7 . ONE AND SAVE THE REMAINDER IN A7 @B@@@@. NOW KD )@@G@@LET'S CHECK WHAT CENTURY WE'RE IN @F@@@@ LA,S3 A10,TDATE KE )@@G@@ . LOAD THE YEAR (MODULO 64) @D@@@@ ANA,U A10,6 KF )@@G@@ . BIAS IT BY 70 @C@@@@ JP A10,$+5 . < 7KG )@@G@@0? @C@@@@ JZ A10,$+4 . = 70? @D@@@@ KH )@@G@@ AA,U A10,100 . MUST BE < 2000 @E@@@@ LA,U KI )@@G@@ A11,20 . LOAD THE NEW CENTURY @E@@@@ SA,T3 A11,DKJ )@@G@@AYYR . CHANGE THE PACKET @[@@@@. @H@@@@. THIS SECTION COMKK )@@G@@PUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRENT YEAR @G@@@@. YEARKL )@@G@@ FELL ON. THIS THEN COMBINED WITH THE REMAINDER OF THE OFFSET TO @B@@@@KM )@@G@@. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@@. @C@@@@ LA KN )@@G@@ A9,A10 . SAVE A10 @H@@@@ AA,U A10,1 KO )@@G@@ . ADD ONE TO THE YEAR (FUDGING AGAIN) @C@@@@ DSA KP )@@G@@ A10,36 . SHIFT IT @C@@@@ DI,U A10,4 KQ )@@G@@ . FUDGE IT @C@@@@ AA,U A9,4 . PUT IT @D@@@@KR )@@G@@ AA A9,A10 . ALL TOGETHER @D@@@@ DSAKS )@@G@@ A9,36 . SHIFT IT AGAIN @E@@@@ DI,U A9,7 KT )@@G@@ . ELIMINATE THE WEEKS @E@@@@ AA A7,A10 KU )@@G@@ . ADD THE REMAINDERS @E@@@@ LA,U A8,07 KV )@@G@@ . SEE IF NUMBER IS @E@@@@ TLE A8,A7 . GREKW )@@G@@ATER THAN SEVEN @E@@@@ ANA,U A7,7 . YES, TAKEKX )@@G@@ 7 AWAY @F@@@@ ANA,U A7,1 . MODIFY IT FOR TKY )@@G@@WO WORDS @D@@@@ MSI,U A7,2 . AND DOUBLE IT KZ )@@G@@@F@@@@ LX X1,A7 . LOAD THE INDEX REGISTER LA )@@G@@@F@@@@ DL A3,DAYOFWK,X1 . LOAD THE DAY OF THE WEEK LB )@@G@@@F@@@@ DS A3,DAYWEEK . STORE DAY OF WEEK IN PACKETLC )@@G@@@C@@@@. THIS SECTION SEES IF WE HAVE A SPECIAL MESSAGE@D@@@@ L LD )@@G@@ A0,DATE . LOAD THE DATE @G@@@@ SSL A0,12LE )@@G@@ . SHIFT IT TO GET RID OF THE YEAR @F@@@@ LXI,U LF )@@G@@ X1,2 . SET UP INDEX REGISTER FOR @C@@@@ LXM,U LG )@@G@@ X1,0 . SEARCH @H@@@@ L,U R1,(ENDSPC-SPCLSTLH )@@G@@)/2 . LOAD THE LENGTH OF THE TABLE @F@@@@ SE A0,SPLI )@@G@@CLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@@ J PRINTLJ )@@G@@ . NO, GO PRINT THE SIGNATURE @F@@@@ L,H1 R1,SPLK )@@G@@CLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@@ L X2,SPLL )@@G@@CLST-1,X1 . LOAD THE LOCATION @D@@@@ LXI,U X2,1 LM )@@G@@ . SET UP THE @D@@@@ LXI,U X3,1 . INCLN )@@G@@REMENTS @F@@@@ LXM,U X3,MSG . LOAD WHERE TO SLO )@@G@@TORE IT @D@@@@RPT LA A1,0,*X2 . LOAD AND STORE LP )@@G@@@E@@@@ SA A1,0,*X3 . THE MESSAGE, ONE @D@@@@LQ )@@G@@ JGD R1,RPT . WORD AT A TIME @F@@@@PRINT LA LR )@@G@@ A0,(P 1,22,SIG) . LOAD THE SIGNATURE PACKET @E@@@@ ER LS )@@G@@ PRINT$ . WRITE OUT SIGNATURE @C@@@@ J LT )@@G@@ 0,X11 . RETURN @[@@@@/. @]@@@@$(0) . %]@@@@-119,1LU )@@G@@19 @I@@[@SIG 'BPD/CPD 03G' . SIGNATURE PKT LV )@@G@@ BPD 03G %@@@@[@D[@@@DAYWEEK ' ' LW )@@G@@ . DAY OF THE WEEK@D@@@@MONTH ' ' . CURRENT MLX )@@G@@ONTH @D@@@@DAYYR ' , 19 ' . DATE AND YEAR @G@@@@LY )@@G@@HRMIN ' : ' . HOUR AND 1ST DIGIT OF MINUTE LZ )@@G@@@G@@@@MINSEC ' : ' . 2ND DIGIT OF MINUTE AND SECMA )@@G@@ONDS @F@@@@ ' ' . BLANK FOR SIGNATURE LMB )@@G@@INE @C@@@@MSG ' ' . SPECIAL @C@@@@ MC )@@G@@ ' ' . MESSAGE @C@@@@ ' ' MD )@@G@@ . PACKET @D@@@@DATE + 0 . DATME )@@G@@E SAVE AREA @D@@@@TIME + 0 . TIME SAVE AREA MF )@@G@@@E@@@@TDATE + 0 . BINARY DATE SAVE AREA@C@@@@MG )@@G@@OFFSET + 0 . TABLE @B@@@@ + MH )@@G@@ 31 . OF @C@@@@ + 59 . OFFMI )@@G@@SETS @B@@@@ + 90 . TO @C@@@@ + MJ )@@G@@ 120 . COMPUTE @C@@@@ + 151 MK )@@G@@ . WHAT @B@@@@ + 181 . DAY@B@@@@ML )@@G@@ + 212 . OF @B@@@@ + 243 MM )@@G@@ . THE@C@@@@ + 273 . WEEK MN )@@G@@@B@@@@ + 304 . IT @B@@@@ + MO )@@G@@ 334 . IS @C@@@@DAYOFWK ' SUNDAY' . ACTMP )@@G@@UAL @B@@@@ ' MONDAY' . DAY@B@@@@ ' MQ )@@G@@ TUESDAY' . OF @B@@@@ ' WEDNESDAY' MR )@@G@@ . THE@C@@@@ ' THURSDAY' . WEEK @C@@@@ MS )@@G@@ ' FRIDAY' . LISTING @C@@@@ ' SATURDAY' MT )@@G@@ . TABLE @C@@@@MNTH ' ' . DUMMU )@@G@@MY @C@@@@ ' JANUARY ' . ACTUAL @C@@@@ MV )@@G@@ ' FEBRUARY ' . MONTH @B@@@@ ' MARCH ' MW )@@G@@ . OF @B@@@@ ' APRIL ' . THE@C@@@@MX )@@G@@ ' MAY ' . CURRENT @C@@@@ ' JMY )@@G@@UNE ' . YEAR @B@@@@ ' JULY ' MZ )@@G@@ . TO @B@@@@ ' AUGUST ' . BE @C@@@@ ' NA )@@G@@SEPTEMBER ' . LOADED @C@@@@ ' OCTOBER ' NB )@@G@@ . INTO @B@@@@ ' NOVEMBER ' . THE@C@@@@NC )@@G@@ ' DECEMBER ' . PACKET @F@@@@/. SPECIAL ND )@@G@@DATE SECTION. CPD CAN PLAY GAMES BY ADDING A @G@@@@. COMMENT NE )@@G@@TO SPECIAL DATES SUCH AS HALLOW5EN 69+1PI93+6663(2 @D@@@@. DANF )@@G@@Y OR ST. SWITHEN'S DAY, OR WHAT HAVE YOU. @E@@@@. TABLES ARE GENNG )@@G@@ERATED BY PROC 'SP'. TYPICAL CALL. @[@@@@. @A@@@@. SP '10NH )@@G@@31',2,HALMSG. @[@@@@. @F@@@@. WHERE 1031 IS HALLOWEEN, ONI )@@G@@CT. 31, 2 IS THE COUNT OF THE @G@@@@. WORDS IN THE HALLOWEEN MESNJ )@@G@@SAGE, AND HALMSG IS THE LOCATION @C@@@@. OF THE FIRST WORD OFNK )@@G@@ THE MESSAGE. @E@@@@. THE COMMENT IS PUT AT THE END OF THE DNL )@@G@@ATE LINE. @[@@@@. @]@@@@SPCLST. @C@@@@ SP '0101NM )@@G@@',E0101-B0101,B0101 . @C@@@@ SP '0105',E0105-B0105,B01NN )@@G@@05 . @C@@@@ SP '0120',E0120-B0120,B0120 . @C@@@@ NO )@@G@@ SP '0131',E0131-B0131,B0131 . @C@@@@ SP '0202NP )@@G@@',E0202-B0202,B0202 . @C@@@@ SP '0212',E0212-B0212,B021NQ )@@G@@2 . @C@@@@ SP '0214',E0214-B0214,B0214 . @C@@@@ NR )@@G@@ SP '0220',E0220-B0220,B0220 . @C@@@@ SP '0222NS )@@G@@',E0222-B0222,B0222 . @C@@@@ SP '0229',E0229-B0229,B022NT )@@G@@9 . @C@@@@ SP '0305',E0305-B0305,B0305 . @C@@@@ NU )@@G@@ SP '0315',E0315-B0315,B0315 . @C@@@@ SP '0317NV )@@G@@',E0317-B0317,B0317 . @C@@@@ SP '0320',E0320-B0320,B032NW )@@G@@0 . @C@@@@ SP '0401',E0401-B0401,B0401 . @C@@@@ NX )@@G@@ SP '0403',E0403-B0403,B0403 @C@@@@ SP '0404NY )@@G@@',E0404-B0404,B0404 @C@@@@ SP '0405',E0405-B0405,B040NZ )@@G@@5 @C@@@@ SP '0406',E0406-B0406,B0406 . @C@@@@ OA )@@G@@ SP '0407',E0407-B0407,B0407 . @C@@@@ SP '0409OB )@@G@@',E0409-B0409,B0409 . @C@@@@ SP '0412',E0412-B0412,B041OC )@@G@@2 . @C@@@@ SP '0414',E0414-B0414,B0414 . @C@@@@ OD )@@G@@ SP '0415',E0415-B0415,B0415 . @C@@@@ SP '0418OE )@@G@@',E0418-B0418,B0418 . @C@@@@ SP '0419',E0419-B0419,B041OF )@@G@@9 . @C@@@@ SP '0501',E0501-B0501,B0501 . @C@@@@ OG )@@G@@ SP '0503',E0503-B0503,B0503 . @C@@@@ SP '0508OH )@@G@@',E0508-B0508,B0508 . @C@@@@ SP '0517',E0517-B0517,B051OI )@@G@@7 . @C@@@@ SP '0526',E0526-B0526,B0526 . @C@@@@ OJ )@@G@@ SP '0606',E0606-B0606,B0606 . @C@@@@ SP '0610OK )@@G@@',E0610-B0610,B0610 . @C@@@@ SP '0617',E0617-B0617,B061OL )@@G@@7 . @C@@@@ SP '0618',E0618-B0618,B0618 . @C@@@@ OM )@@G@@ SP '0625',E0625-B0625,B0625 . @C@@@@ SP '0704ON )@@G@@',E0704-B0704,B0704 . @C@@@@ SP '0714',E0714-B0714,B071OO )@@G@@4 . @C@@@@ SP '0720',E0720-B0720,B0720 . @C@@@@ OP )@@G@@ SP '0806',E0806-B0806,B0806 . @C@@@@ SP '0814OQ )@@G@@',E0814-B0814,B0814 . @C@@@@ SP '0826',E0826-B0826,B082OR )@@G@@6 . @C@@@@ SP '0827',E0827-B0827,B0827 . @C@@@@ OS )@@G@@ SP '0830',E0830-B0830,B0830 . @C@@@@ SP '0901OT )@@G@@',E0901-B0901,B0901 . @C@@@@ SP '0902',E0902-B0902,B090OU )@@G@@2 . @C@@@@ SP '0914',E0914-B0914,B0914 . @C@@@@ OV )@@G@@ SP '0925',E0925-B0925,B0925 . @C@@@@ SP '1001OW )@@G@@',E1001-B1001,B1001 . @C@@@@ SP '1005',E1005-B1005,B10OX )@@G@@05 @C@@@@ SP '1009',E1009-B1009,B1009 . @C@@@@ OY )@@G@@ SP '1012',E1012-B1012,B1012 . @C@@@@ SP '1014OZ )@@G@@',E1014-B1014,B1014 . @C@@@@ SP '1024',E1024-B1024,B102PA )@@G@@4 . @C@@@@ SP '1029',E1029-B1029,B1029 . @C@@@@ PB )@@G@@ SP '1031',E1031-B1031,B1031 . @C@@@@ SP '1111PC )@@G@@',E1111-B1111,B1111 . @C@@@@ SP '1119',E1119-B1119,B111PD )@@G@@9 . @C@@@@ SP '1129',E1129-B1129,B1129 . @C@@@@ PE )@@G@@ SP '1207',E1207-B1207,B1207 . @C@@@@ SP '1214PF )@@G@@',E1214-B1214,B1214 . @C@@@@ SP '1217',E1217-B1217,B121PG )@@G@@7 . @C@@@@ SP '1221',E1221-B1221,B1221 . @C@@@@ PH )@@G@@ SP '1224',E1224-B1224,B1224 . @C@@@@ SP '1225PI )@@G@@',E1225-B1225,B1225 . @]@@@@ENDSPC. @^@@@@B0101 'HAPPY NEW YEAR'.PJ )@@G@@@[@@@@E0101.@D@@@@B0105 'NELLIE ROSS FIRST WOMAN GOVERNOR 1925' PK )@@G@@@]@@@@E0105 . @B@@@@B0111 'ALEXANDER HAMILTON BORN 1757' @]@@@@PL )@@G@@E0111 . @B@@@@B0120 'PRESIDENTIAL INAUGURATION DAY' @]@@@@E0120 PM )@@G@@ . @ @@@@B0131 'EXPLORER 1--1958'. @[@@@@E0131.@^@@@@B0202 'GROUPN )@@G@@ND HOG DAY'.@[@@@@E0202.@ @@@@B0212 'A.LINCOLN--1809'. @[@@@@E0212.PO )@@G@@@ @@@@B0214 'ST. VALENTINE''S DAY'.@[@@@@E0214.@A@@@@B0220 'JOHN GLENNPP )@@G@@''S FLIGHT--1962'.@[@@@@E0220.@B@@@@B0222 'GEORGE WASHINGTON''S BIRTHDAPQ )@@G@@Y'. @[@@@@E0222.@B@@@@B0229 'LEAP-YEAR DAY.' . @[@@@@PR )@@G@@E0229.@A@@@@B0305 'BPSTON MASSACRE - 1770' @]@@@@E0305 . @A@@@@PS )@@G@@B0315 'BEWARE: THE IDES OF MARCH'.@[@@@@E0315.@ @@@@B0317 'SAINT PATRPT )@@G@@ICK''S DAY'.@[@@@@E0317.@ @@@@B0320 'SPRING HAS SPRUNG'. @[@@@@E0320.PU )@@G@@@ @@@@B0401 'APRIL FOOLS DAY'. @[@@@@E0401.@A@@@@B0404 'JOHN NAPV )@@G@@PIER BORN 1550' @]@@@@E0404 . @B@@@@B0405 'POCAHONTAS MARRIED PW )@@G@@ROLFE 1614' @]@@@@E0405 . @A@@@@B0403 'NATO DAY (MAC GETS OFF)' .PX )@@G@@@[@@@@E0403.@C@@@@B0406 'PEARY REACHES NORTH POLE IN 1909' . @[@@@@PY )@@G@@E0406.@D@@@@B0407 'OFFICIAL DATE OF CRUCIFIXION IN 30 A.D.' . @[@@@@PZ )@@G@@E0407.@E@@@@B0409 'APPOMATTOX DAY (THE SOUTH WILL RISE AGAIN)'. QA )@@G@@@[@@@@E0409.@A@@@@B0412 'FIRING ON FORT SUMTER' . @[@@@@E0412.@B@@@@QB )@@G@@B0414 'LINCOLN ASSASINATED, 1865' . @[@@@@E0414.@^@@@@B0415 'HAPPQC )@@G@@Y IRS DAY'. @[@@@@E0415.@B@@@@B0418 'SAN FRANCISCO EARTHQUAKE 1906' QD )@@G@@@]@@@@E0418 . @D@@@@B0419 'TAXATION WITHOUT REPRESENTATION MEANS WAQE )@@G@@R'. @[@@@@E0419.@#@@@@B0501 'MAY DAY'. @[@@@@E0501.@C@@@@B0503 'PQF )@@G@@OLAND ADOPTED CONSTITUTION 1791' @]@@@@E0503 . @C@@@@B0526 'FQG )@@G@@IRST AMERICAN BANK CHARTERED 1781' @]@@@@E0526 . @#@@@@B0508 'V-E QH )@@G@@DAY'. @[@@@@E0508.@B@@@@B0517 'NORWEGIAN INDEPENDANCE DAY' . @[@@@@QI )@@G@@E0517.@#@@@@B0606 'D-DAY'. @[@@@@E0606.@F@@@@B0610 'WITHHOLDING TQJ )@@G@@AX LAW SIGNED 1943 : EAT YOUR HEART OUT' @]@@@@E0610 . @F@@@@B0617 QK )@@G@@ 'DON''T FIRE UNTIL YOU SEE THE WHITE''S OF THEIR EYES'. @[@@@@E0617.QL )@@G@@@ @@@@B0618 'BATTLE OF WATERLOO' .@[@@@@E0618.@A@@@@B0625 'CUSTER'QM )@@G@@'S LAST STAND' @]@@@@E0625 . @B@@@@B0704 'INDEPENDENCE DAY.' QN )@@G@@ . @[@@@@E0704.@^@@@@B0714 'BASTILLE DAY'. @[@@@@E0714.@ @@@@QO )@@G@@B0720 '1ST MAN ON THE MOON'. @[@@@@E0720.@^@@@@B0806 'FRIENDSHIP DAY'.QP )@@G@@@[@@@@E0806.@#@@@@B0814 'V-J DAY'. @[@@@@E0814.@A@@@@B0826 'WOMEN''S SQQ )@@G@@UFFRAGE--1920'. @[@@@@E0826.@^@@@@B0827 'FIRST OILWELL'. @[@@@@E0827.QR )@@G@@@A@@@@B0830 'CLEOPATRA DIED 30 B.C.' @[@@@@E0830 @ @@@@B0901 'INVAQS )@@G@@SION OF POLAND'. @[@@@@E0901.@C@@@@B0902 'SURRENDER SIGNED, U.S.S. MISQT )@@G@@SOURI'. @[@@@@E0902.@C@@@@B0914 'STAR-SPANGLED BANNER WRITTEN--1814QU )@@G@@'. @[@@@@E0914.@B@@@@B0924 'BLACK FRIDAY IN N.Y. 1869' @]@@@@QV )@@G@@E0924 . @E@@@@B0925 'BALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!QW )@@G@@' @[@@@@E0925.@B@@@@B1001 'HAPPY NEW FISCAL YEAR (OCS DAY)'. @[@@@@QX )@@G@@E1001.@A@@@@B1005 'HAPPY BIRTHDAY DAVID' @]@@@@E1005 . @ @@@@QY )@@G@@B1009 'LIEF ERIKSON DAY'. @[@@@@E1009.@^@@@@B1012 'COLUMBUS DAY'. QZ )@@G@@@[@@@@E1012.@A@@@@B1014 'BATTLE OF HASTINGS, 1066' .@[@@@@E1014.@ @@@@RA )@@G@@B1024 'UNITED NATIONS DAY'. @[@@@@E1024.@A@@@@B1029 'STOCK MARKET RB )@@G@@CRASH 1929' @]@@@@E1029 . @F@@@@B1031 'ALL HALLOWS EVE ''BET YOURC )@@G@@ THO''T IT WAS HALLOWEEN' @[@@@@E1031.@^@@@@B1111 'ARMISTICE DAY'. RD )@@G@@@[@@@@E1111.@E@@@@B1119 'FORE-SCORE AND SEVEN ... PERISH FROM THIS EARTRE )@@G@@H'. @[@@@@E1119.@A@@@@B1129 'SAND CREEK MASSACRE 1864'@]@@@@E1129 RF )@@G@@ . @^@@@@B1207 'DAY-OF-INFAMY'. @[@@@@E1207.@C@@@@B1214 'AMUNDSON RRG )@@G@@EACHES SOUTH POLE, 1911' . @[@@@@E1214.@A@@@@B1217 'FIRST POWERED FLRH )@@G@@IGHT--1903'.@[@@@@E1217.@A@@@@B1221 'PLYMOUTH ROCK STEPPED ON'. @[@@@@RI )@@G@@E1221.@A@@@@B1224 'HAPPY BIRTHDAY ANITA' @]@@@@E1224 . @ @@@@RJ )@@G@@B1225 'MERRY CHRISTMAS'. @[@@@@E1225.@B@@@@ END RK )@@G@@ . ___@@@E0407.@E@@@@B0409 'APPOMATTOX DAY (THE SOUTRL )@@G@@H WILL RISE AGAIN)'. @[@@@@E0409.@A@@@@B0412 'FIRING ON FORT SUMTER'RM )@@G@@)@@[F]@[#@[#@[]@ #@@[#@@9??@@3T8@@@];CK@@S;C@@@Y[@@@@S'=@@@@[@K@@R[@@@@QRN )@@G@@'=@@@@AA@@@@)@D[##@[#@[#@[#@[#@[#@[#@[#@@@[)K@@CC?K@@R[SK@@C[W@@@BCO@@@QRO )@@G@@[W@@@ACS@@@Q9*)@@^AB@@@@)@L[##@[#@[#@[#@[#@[#@[#@@@@@@C'@@[CG1)@@SC[?@@SRP )@@G@@C4@@@S[SK@@DCOK@@R[4K@@DC*K@@RAC@@@@)@T[N#@@^@K[@^@@@@/C@@@>H8@@@#/K@@@&RQ )@@G@@%]@@@P/K@@@VG'@@@^/K@@@Z!]@@@PG'K@[@C,K@@SAD@@@@)@<[N@K@^G@[@K@@@@G')@[=RR )@@G@@/])@@\/E)@@\H')@@AC,)@@SW9)@@B;P)@@=G9)@@[/K@@@&/@@@@>AE@@@@)@![UK0@@@@@RS )@@G@@G[0@@QW'K@@B;QK@@=G]K@@QG'K@@^W')@@^;Q)@@=G')@@[C]K@@Q[Q0@@AC'0@@OAF@@@@RT )@@G@@)@8[M@[#@[#@[#@@@@;C@@@GR#@@@Q9*0@@]9?1@@>R@K@@NT90@@]H90@@[H90@@B?]@@@NRU )@@G@@C'@@@BAG@@@@)[][E[#@[@K0@K0@@@@@@@@@&80@@[&8)@@[R@-@[GNCL@[G/K@@[J2@[)[HRV )@@G@@N8K@[[Q8K@@@&8K@@]AH@@@@)[F@'()@]@-)@-@^@@)@@@K@D 03G BPD/CP/KF@@@'=@@@@RW )@@G@@C@@@B88KK@[G[@N)@@C@M)@@Q80@@GAI@@@@)@][S@@@@@@@ : RX )@@G@@ : , 19 AJ@@@@)@H[S@@@@@@@@@@@@@@@@@@@RY )@@G@@ AK@@@@)@S[S@@@@@@@RZ )@@G@@@@@@^L@@@@#3@@@@#O@@@@]5@@@@]R@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@AL@@@@SA )@@G@@)@<[S@@@@@@@ THNESDAY WEDUESDAY TMONDAY SUNDAY @@@@ ISB )@@G@@@@@@^0AM@@@@)@,[S@@@@@@@RUARY FEBNUARY JA TURDAY SASC )@@G@@FRIDAY URSDAYAN@@@@)@9[S@@@@@@@ A JULY JUNE MAY SD )@@G@@ APRIL MARCH AO@@@@)[^[S@@@E@@@@@]@#J@@0101EMBER DECSE )@@G@@EMBER NOVTOBER OCEMBER SEPTUGUST AP@@@@)[J[KE@O@*[K])@@@@@@]@#(SF )@@G@@@@0212@@]@#&@@0202@@]@#<@@0131@@^@#Y@@0120@@A@#M@@0105AQ@@@@)[T[KE@O@*[KSG )@@G@@])@@@@@@#@#.@@0305@@]@#'@@0229@@^@#5@@0222@@^@#0@@0220@@#@#?@@0214AR@@@@SH )@@G@@)[<[KE@O@*[K])@@@@@@#@^T@@0403@@]@^H@@0401@@]@^E@@0320@@#@^A@@0317@@^@^[SI )@@G@@@@0315AS@@@@)[![KE@O@*[K])@@@@@@B@^%@@0409@@A@^<@@0407@@ @^X@@0406@@^@^OSJ )@@G@@@@0405@@#@^K@@0404AT@@@@)[7[KE@O@*[K])@@@@@@A@ #@@0419@@^@^"@@0418@@]@^;SK )@@G@@@@0415@@^@^6@@0414@@#@^2@@0412AU@@@@)][[KE@O@*[K])@@@@@@ @ M@@0526@@^@ USL )@@G@@@@0517@@[@ S@@0508@@ @ G@@0503@@[@ E@@0501AV@@@@)]F[KE@O@*[K])@@@@@@#@ 5SM )@@G@@@@0625@@]@ 2@@0618@@C@ (@@0617@@C@ )@@0610@@@@ Z@@0606AW@@@@)]P[KE@O@*[KSN )@@G@@])@@@@@@[@A @@0814@@]@A]@@0806@@#@ "@@0720@@[@ /@@0714@@]@ 9@@0704AX@@@@SO )@@G@@)]Z[KE@O@*[K])@@@@@@ @AP@@0902@@]@AM@@0901@@#@AI@@0830@@]@AF@@0827@@#@ABSP )@@G@@@@0826AY@@@@)]([KE@O@*[K])@@@@@@]@A8@@1009@@#@A4@@1005@@ @A,@@1001@@B@A&SQ )@@G@@@@0925@@ @AV@@0914AZ@@@@)]3[KE@O@*[K])@@@@@@B@BC@@1031@@#@B^@@1029@@]@B[SR )@@G@@@@1024@@#@A.@@1014@@[@A;@@1012BA@@@@)].[KE@O@*[K])@@@@@@ @B+@@1214@@]@BZSS )@@G@@@@1207@@#@BV@@1129@@B@BN@@1119@@]@BK@@1111BB@@@@)#B[KE@O@*[K@@@@@@NEW YEST )@@G@@HAPPY @@]@B5@@1225@@#@B1@@1224@@#@B!@@1221@@^@B*@@1217BC@@@@)#L[S@@@@@@@SU )@@G@@MILTONDER HAALEXAN5 OR 192GOVERNWOMAN FIRST ROSS NELLIEAR BD@@@@SV )@@G@@)#W[S@@@@@@@GROUND1958 ER 1--EXPLORN DAY URATIO INAUGENTIALPRESID1757 SW )@@G@@ BORN BE@@@@)#$[S@@@@@@@LENN'SJOHN GY E'S DALENTINST. VA809 OLN--1SX )@@G@@A.LINCAY HOG DBF@@@@)#2[S@@@@@@@Y. EAR DALEAP-YHDAY S BIRTNGTON'SY )@@G@@ WASHIGEORGE2 T--196 FLIGHBG@@@@)#.[S@@@@@@@PATRICSAINT CH OF MARSZ )@@G@@ IDES : THEBEWARE1770 CRE - MASSABPSTONBH@@@@)^C[S@@@@@@@BORN 1APIER TA )@@G@@JOHN NDAY FOOLS APRIL PRUNG HAS SSPRINGY K'S DABI@@@@)^N[S@@@@@@@TB )@@G@@PEARY S OFF)AC GETAY (MNATO D 1614 ROLFEARRIEDNTAS MPOCAHO550 BJ@@@@TC )@@G@@)^Y[S@@@@@@@N 30 AXION IRUCIFIE OF CAL DATOFFICI09 IN 19H POLES NORTTD )@@G@@REACHEBK@@@@)^([S@@@@@@@ ON FOFIRING) AGAINL RISETH WILHE SOUAY (TTE )@@G@@TTOX DAPPOMA.D. BL@@@@)^4[S@@@@@@@SAN FRY IRS DAHAPPY 5 D, 186TF )@@G@@SINATEN ASSALINCOLTER RT SUMBM@@@@)^_[S@@@@@@@S WAR N MEANNTATIOEPRESETG )@@G@@HOUT RON WITTAXATI 1906 HQUAKEO EARTANCISCBN@@@@) E[S@@@@@@@AN BANAMERICTH )@@G@@FIRST 91 ION 17STITUTED CON ADOPTPOLANDY MAY DABO@@@@) P[S@@@@@@@TI )@@G@@D-DAY AY ANCE DDEPENDIAN INNORWEGY V-E DA1781 TERED K CHARBP@@@@TJ )@@G@@) )[S@@@@@@@FIRE UDON'T OUT HEARTT YOUR3 : EAED 194W SIGNTAX LALDING TK )@@G@@WITHHOBQ@@@@) :[S@@@@@@@CUSTERTERLOO OF WABATTLEES EIR EY OF THHITE'STL )@@G@@ THE WOU SEENTIL YBR@@@@) 6[S@@@@@@@HE MOON ON T1ST MALE DAYBASTIL DAY. TM )@@G@@NDENCEINDEPED T STAN'S LASBS@@@@)A[[S@@@@@@@FIRST 1920 RAGE--S SUFFTN )@@G@@WOMEN'Y V-J DAAY SHIP DFRIENDN BT@@@@)AG[S@@@@@@@DER SISURRENTO )@@G@@POLANDON OF INVASIB.C. ED 30 TRA DICLEOPAL OILWELBU@@@@)AR[S@@@@@@@TP )@@G@@BLACK 1814 TTEN--ER WRID BANNPANGLESTAR-SURI MISSOU.S.S.GNED, BV@@@@TQ )@@G@@)A+[S@@@@@@@!!!!!! 1513 OCEANACIFICVERS P DISCOBALBOA9 Y. 186 IN N.TR )@@G@@FRIDAYBW@@@@)A![S@@@@@@@ID AY DAVBIRTHDHAPPY ) CS DAYEAR (OSCAL YTS )@@G@@NEW FIHAPPY ! BX@@@@)A8[S@@@@@@@ NATIOUNITED, 1066STINGS OF HABATTLETT )@@G@@US DAYCOLUMB DAY RIKSONLIEF EBY@@@@)B#[S@@@@@@@ IT WA THO'TET YOUEVE 'BTU )@@G@@LLOWS ALL HA 1929 CRASHMARKETSTOCK NS DAYBZ@@@@)BI[S@@@@@@@H FROM PERISTV )@@G@@EN ...ND SEVCORE AFORE-SY ICE DAARMISTOWEEN S HALLCA@@@@)BT[S@@@@@@@TW )@@G@@ON REAAMUNDSY -INFAMDAY-OFE 1864ASSACRREEK MSAND CEARTH THIS CB@@@@TX )@@G@@)B=[S@@@@@@@TH ROCPLYMOU03 HT--19D FLIGPOWEREFIRST 911 OLE, 1OUTH PTY )@@G@@CHES SCC@@@@)B\[K@@@*@@@@@@@@@@[Q@@@MAS CHRISTMERRY TA AY ANIBIRTHDTZ )@@G@@HAPPY PED ONK STEPCD@@@@@@^@@]@@A@@#@@G@@[@@K@@@@@@@B9@@@@[MDATE$ UA )@@G@@TDATE$ PRINT$ SIGTUR @@[@@@@@@@@@'. TA' . '. . 1911' . THUB )@@G@@IS EARTH'. . . @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@)@@[E^G@^C[OC[=[#@@K0@@@UC )@@G@@C0@]@>C8K@@[[@@]@>/@@@@X'=@@@@/,0@@@[4@]^O:9@@@^R;@@@[AA@@@@)@D[EK0@K0@^UD )@@G@@G@[#@@K0@@@@[?K@@C=8@@@[[)K@@C=8@@@^[=K@@C=8@@@KC?@]@>[4K@@C=8@@@]AB@@@@UE )@@G@@)@M[F#@@^G@[#@@K0@@@@@@@=8@@@K[0K@@C=8@@@)[0K@@D=8@@@^[4K@@D=8@@@CC8K@@[UF )@@G@@C=@]@>AC@@@@)@V[##@[]@X#@[]@-#@[]@-#@[#@@@R#@][^A\@][^'=@@@@R#@] "'=@@@@UG )@@G@@R#@] "'^@@@@[*K@@CAD@@@@)@<[F]@>#@@K^@K0@K0@K0@@R#K]AE[@)]@<+@K]ADN8K@@IUH )@@G@@/@)@@Z'^@@G\R;)@@@C!@][^'=@@@@AE@@@@)@?[##@[@K0@K0@K0@^[@@@@@@@@@@/@)@GBUI )@@G@@'^@@G\R;)@@[C!@][^A#)]@+RB!]@*/K@@GB2C!+@(AF@@@@)@4[F#@[#@[@^@K0@K^G@@@@UJ )@@G@@ =@@@C9*@@A09*@]@<;^@@@@AR)@@9T8)@@A/K@@[G:@0]@@K0@@@@ @@@@C/K@@@Z'=@@@@C@@]AG9*@]^&9?@]@9/K@M@+UM )@@G@@[=@@@CAI@@@@)[H[F#@[#@@[#@[#@@K0@@@@[40@@C:@K@@@C@K]AH[@K]@ @@@@DAJ@@@@)[Q[##@[#@[#@[#@[#@[#@[#@[#@@@:4K]@:4K]@8@@@[AT@@@@UZ )@@G@@)]%[#@K0@K^G@^G@^@()@-@Q@@@@@@'=@@@@R;@] _/K@@B$ @@@@AR@)@@B/K@@#^(@@@@AVA )@@G@@/K@@]0AU@@@@)]2[F@^G@^[#@[@K^G@^@@@@/K@@#F*@@@@#/K@@]0/K@@#^()@@@C/K@@]9VB )@@G@@:4@]A]R;@@@['^@@H&AV@@@@)];[F@K^G@^[#@[#@[@K^@@@/K@@@Z8@)@]=/K@@@Z/K@K@EVC )@@G@@*)@@@C/K@@DM*@@@@^'^@@H!'^@@G-AW@@@@)#^[F@K^G@[]@.#@[@K0@@@@R;@@@( @@@@#VD )@@G@@/K@@]T[@)@@#/K@@@@=8@@@[C=@@@C/K@@@Z8@)@]0AX@@@@)#H[##@@()@-@Q)CS@CS@C@@VE )@@G@@@@@@@@R#G@@]'^@@HC9*K]]09?K]@<'^@@H5'=@@@@R;@] _A3@]A]AY@@@@)#P[#]@^()@-VF )@@G@@)@-@M)CS@]@@@@@@@@'^@@G\R;)@@[C!@][^/K@@@Z'=@@@@R#@][#A@ ]]7/,0@@@AZ@@@@VG )@@G@@)#X[F#@[@K[@K0@^C^^G@@@@9?@]@@K^[@K^G@[@@@@@@VL )@@G@@'^@@G\R;)@@[C!@][^/K@@@Z8@)@#%/K@@@Z'^@@IC'^@@I#'=@@@@BE@@@@)^E[N@^@K^G@VM )@@G@@[@K^@@/K@@^Q/,0@GM'^@@G\R;)@@[C!@][^9*@@A';^@@@@AR)@^HT8)@@A/@)@GBBF@@@@VN )@@G@@)^O[EK^G@^[#@[@K^G@^@@@@/@@@^YC=@@@C/K@@^-/K@@^=*)@@@C9*@@H]9?@]@<'^@@GYVO )@@G@@[@K@@]BG@@@@)^X[F#@[@K^[#@[@K])-)@@@[@@@@EC8@@^,/K@@@Z8@)@^V @@@@['^@@^6VP )@@G@@'^@@H&'^@@G7[@@@@[BH@@@@)^&[EK0@^[@K^[@K0@@@@@@@R@)[@F/K@@^%'^@@^6'^@@H&VQ )@@G@@'^@@G7/K@@^4R8)@@[:@@] 3R#@@@]BI@@@@)^\[F@K0@K^[#@[@K[#@@@@@*@@@@[/S@@@@VR )@@G@@/K@@@Z8@)@^%9*@]@<9?@@H]/K@@[19*@]@<9?@@A'BJ@@@@)^8[#][ @K0@K0@K0@ES@CK VS )@@G@@)@@@@@R;@@@]'=@@@@R;@]A^AF@]ACRB@@@]9*@]A^9?@@A'/K@@@@BK@@@@) @[F#@[@^G@VT )@@G@@^[@^G@]&@@@@R;@]A^A3@]ABR;@@@D/K@@ J/K@K^6!4@]ABR;@@@C/K@@ A:4@]ABBL@@@@VU )@@G@@) D[#]@?()@-@UCS@C[N@[]@=@@@@@'=@@@@R;@][A/K@K^6A3@]ABR;@@@C'=@@@@R;@]A^VV )@@G@@'=@@@@BM@@@@) L[F][D#@@K^[@^G@^@@@@@'^@@GY[@K@@@[@K@@]/K@@ U/,0@GM'^@@G\VW )@@G@@R;)@@[C!@][^'=@@@@BN@@@@) U[##@[@K0@^[#@[]@>#@@@@@@@@@C@@]AS'=@@@@C@@]ARVX )@@G@@/K@@ <>8@@@^C@@]@>9*@@H]9?@]@@K0@@@@@@@@@@ @@] 0/K@@@Z @@@@@[C@@@^C8@@@WWD )@@G@@8@)@ ?R@)@@@'^@@I#BT@@@@)AG[##@[#@@()@-@O-)@-)@-)@@@@@R;)@@[C!@][^A#K]@7WE )@@G@@R7K]@_'=@@@@R;@]@99*@]@99?@]@[F@K^G@[@WH )@@G@@E]A@]@)@@@@@9?@@A0/K@@B(A#@@@ER;@@B('^@@GY[@K@@]R#K]AT/,0@GM'^@@G\BX@@@@WI )@@G@@)A,[##@[][*]&@[80@)CS@@@@@@@@@C#)@@]'^@@H&@@@@BJ[@@@@F@@@@@@@@@@@@/,0@@@WJ )@@G@@9*@]@@K^G@^G@[#@[#@@@@@@@@@R@)]AVWT )@@G@@A#@@@AC8@@@[A@)@@B9*@]@<9?@@A0'^@@H!'=@@@@CH@@@@)C#[F@^G@^[#@[@K0@^G@@@@WU )@@G@@%^@] 1H8@@@[RB@] 2/K@@CZ%C@] 2/K@@CP:C@] 1R;@ @^/K@@]=CI@@@@)CG[F@K0@^[#WV )@@G@@@@K[@@@@@@@@/K@@CYH;0@@[/K@@CZ%8@@@#C@@]@7/K@@CZ%8@@@ C@@]@8/K@@CZCJ@@@@WW )@@G@@)CP[N#@@K^G@[@[@K@/K@@BB/K@@CZ%B)@@VH;)@@[/K@@CZ%8@@@#R#@]@8/K@@CZ%8@@@ WX )@@G@@R#@]@7CK@@@@)CZ[F@K^[#@[@K0@K0@K)DK@/K@@C"'=@@@@C@@][D9*@]^59?@@A'9*@]^1WY )@@G@@9?@@A0/K@@A!/,0@C*CL@@@@)C*[F#@@K0@K0@^G@@K0@@@@?@@]^OR;@@@E/KF@@@*4@]^OWZ )@@G@@/KF@@[**@@@C[@@]^OG8@@@[C@@]^OCM@@@@)C1[E^[@K^G@^[#@@@@@@@@@C@@@@J9*@]^/XA )@@G@@9?@@A'9*@]^89?@@A0/K@@A!/,0@C*/KF@@[/KF@@@CN@@@@)C'[#]@^()@-)@-@M)CS@CS@XB )@@G@@CS@@@@AB@@@]R#@] 19*@]@<9?@@A0'=@@@@C@@][CA@ ] ^/,0@@@CO@@@@)D][#][H#@@(XC )@@G@@)@ G@@K0@@@@@@@@@@R#@] 2M#W)@@&;K@@[R;K@@F&;@@@[R;@[@UN@K] 2'^@@@@CP@@@@XD )@@G@@)DE[##@[@K0@K)NK^G@^C]O@@@@@@@/K@@@Z'=@@@@R#@] ,/K@@A!'^@@@@9*@]@<9?@@A'XE )@@G@@AB@@@]CQ@@@@)DM[#@K0@^G@^G@^G@^[@@@@@@@@@@'^@@I#/K@@]= @@@@^R@)]AVA#@@@AXF )@@G@@C8@@@[9*@]@<9?@@A'CR@@@@)DU[##@@K^G@^G@[#@@()@@@@@@@@@R;@] _A3@]A]R;@@@DXG )@@G@@9*@] _9?@]@/,0@@@DA@@@@)E&[#][!#@[#XQ )@@G@@@[#@[]@>][!@K0@@@@C=@@@C'^@@I#'=@@@@'=@@@@R#@][J9*@][:9?@]@<'=@@@@DB@@@@XR )@@G@@)E,[EK^G@^G@[#@[#@[@ES@@R;@] _'^@@H& @@]#FA3@]A]R;@@@K9*@] _9?@]@][!#@[#@[@^C@M&@XW )@@G@@@@@@@@A@ ]]*/,0@@@R#G@@]'^@@HC9*K]])9?K]@<'=@@@@'=@@@@DG@@@@)FS[##@[]@^(XX )@@G@@)@-)@-@M-@6@@@@@@@%@@@@HR;K@@['=@@@@'=@@@@R#@][KA@ ]]@K^G@^G@^C@M&@@@@@@A@ ]]K/,0@@@9*K]]FYB )@@G@@9?K]@@YE )@@G@@K0@K)CK0@K0@K)D@@@'=@@@@R#@][^A\@][^'=@@@@R#@] "/K@@@Z'=@@@@R#@][BDN@@@@YF )@@G@@)GL[N@[#@@^[@K^G@@*)@@@C'^@@H!'^@@G-'^@@H&/S@@@@/KF@@@R@)]AV/^:@@[/S@@@@YG )@@G@@/K@@GGDO@@@@)GV[F#@[#@[@^CBO@K@@@@@@R#G@@]'^@@HC/S@@@@/K@KGY/,0@@@/S@@@@YH )@@G@@/K@@@Z @@@@[/K@K@EDP@@@@)G=[#]@^()@)]^@DN@[#@[#@@@@@@@9*@] I9?@]@<#@ ] KYI )@@G@@/,0@@@C@G@@#'^@@HCA@ ] F/,0@@@DQ@@@@)G?[F#@[]@>@^CB+&@@@@@@@@@@@@@@@@@@@YJ )@@G@@@@@@@@@@[[@G/,0@@@/S@@@@/K@KG-'=@@@@C@@] :DR@@@@)G5[EK[#@[#@@K^G@^@@@@@@YK )@@G@@/K@@H[*@@@@[/K@@H[>8@@@[C=@@@CA@)[@F/S@@@@/K@KG\@@@@@@DS@@@@)G"[#][.#@[@YL )@@G@@K)U@()@YG@@@@@@@@@@@@@GQ[@@@@F@@@@@@@@@@@@/,0@@@/K@KG7R@)[@F'^@@@@DT@@@@YM )@@G@@)HA[##@[@^G@^G@^G@^G@^G@@@@@@@A#0]#KA#)]#JA#K]#IA#@]#HA]0]#G/S@@@@/K@KG7YN )@@G@@R@)[@FDU@@@@)HI[##@[#@[#@[#@[@K^G@^@@@@@@@/K@@HM9/V]#N/K@@HT/%0@HO9?K]@G@M&@DN@^()]@@@@@@@@@FRE@]GTRW@[_TEF@[0PSB@#UPSF@]SPRT@ MDUP@^BEF@@@@ZA )@@G@@+@0[@()]O0[ES@>G@M&@DN@^()]@@@@@@@@@OPT@[GTRI@]GSWP@]PCHK@E?OVW@DTCMP@AFZB )@@G@@PSE@#AEG@@@@+@8@C@+[#[@* @* @* @* @@@]E][3@#H]^%@#I]^7@]A]^Z@]H]^ @#^]#;ZC )@@G@@@]@[@G@]D]]0@@@@@@EH@@@@+[F[K* @* @* @@@@@ @@@@@@#CLEAR@]J]])ZD )@@G@@@]C][:@]H][Y@]F][N@]O]]F@]I][.EI@@@@+[P[S@@@@@@@ RDS 096 WOZE )@@G@@S OF 4 BLOCK WITH ITTEN OVERWR TAPE EJ@@@@+[)[S@@@@@@@ TAPE.END OFZF )@@G@@NG TO WRITI WHILE OCK IN BLNTERED ENCOU ERROREK@@@@+[:[S@@@@@@@ZG )@@G@@ SUCCE MENTED IMPLEDE NOTITE COOVERWR DRUM EL@@@@ZH )@@G@@+[6[S@@@@@@@ IN WO ERROR S. BLOCK OF CHECK#CLEARZI )@@G@@SSFUL EM@@@@+][[S@@@@@@@ ECK. OR #CHHING F SEARC WHILE OCK ZJ )@@G@@ OF BL RD EN@@@@+]G[S@@@@@@@T RECOTAPE AADING ILE RENED WH RETURZK )@@G@@ S STATU ERROR EO@@@@+]R[S@@@@@@@ E. EPTABLZL )@@G@@US ACC1 STAT 0 OR . ONLY BER RD NUMEP@@@@+]+[S@@@@@@@TED - EXPECZM )@@G@@ WORDS. 4096 CK IN BLO READ WORDS EQ@@@@+]![S@@@@@@@ZN )@@G@@ BLOCK AFTER IONED POSIT FILE ERROR.CHECK ER@@@@ZO )@@G@@+]8[S@@@@@@@ NE ** RST LITHE FI ONLY SET. OPTION** X ZP )@@G@@. ES@@@@+##[C@@@@@@@+#N@C@@@@@@@@@@@@@ ** NTED. BE PRI WILL RECORDZQ )@@G@@ EACH ** OF ET@@@@+#O[S@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@ZR )@@G@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@EU@@@@+#Z[S@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@[ZS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@EV@@@@+#%[S@@@@@@@@@@@@@@@@@@@ZT )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[EW@@@@+#5[S@@@@@@@ZU )@@G@@EXCEEDCARD METER L PARAILLEGA@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@EX@@@@ZV )@@G@@+^@[S@@@@@@@T CONTULD NONG, CO WRITI WHILE ERROR RUN N THISAMES OFILE NZW )@@G@@ED 10 EY@@@@+^F[S@@@@@@@ @@@@@@RD BACKWAOVING HILE MERED WNCOUNTZX )@@G@@OINT ELOAD PINUE EZ@@@@+^Q[S@@@@@@@US OPEPREVIO************ ***ON CMPZY )@@G@@TERED ENCOUNRRORS S OF E BLOCKFA@@@@+^-[S@@@@@@@ENT SIDIFFERSIGNEDNOT ASZZ )@@G@@ FILE ED ERFORM NOT PRATIONFB@@@@+^?[S@@@@@@@ AA )@@G@@LE AND FI FILE D FROMRE REACKS WEZE BLOFC@@@@+^7[S@@@@@@@AB )@@G@@ARTINGARE STT COMPDID NO LE AND FI FILE FD@@@@AC )@@G@@+ ][S@@@@@@@ *FILE BLOCKRED INCOUNTEWAS EN-FILE END-OF RD ** AD )@@G@@ AT WOFE@@@@+ H[S@@@@@@@OUNTEROT ENC BUT NPECTEDWAS EX-FILE END-OFNO. AE )@@G@@ *** FF@@@@+ S[S@@@@@@@OT EXP BUT NNTERED ENCOULE WAS-OF-FIAF )@@G@@AN END FILE**ED ON FG@@@@+ <[S@@])O])@#F] L@##] 4@#G] AG )@@G@@ FILE *** ON CK ***IN BLOECTED FH@@@@+ ,[S* @@@@@P DIRETHE CMAH )@@G@@MPARESILE COYOUR F#_____@@@@@@@@@@@@@@@@@@@#J] W@#B] 7FI@@@@+ 9[K@#A@G*@AI )@@G@@@@@@@@@@@@@@@@@@@@ @IQ[@GNAMES FILE ES TWOREQUIRCTIVE FJ@@@@AJ )@@G@@+A#[S*@[K@E@@@@@@A@[ ]^>@@@OPT@@[@@@@@@___@@@@@F@C@@@@@@@@@@ AK )@@G@@[@@@@FFK@@@@+AI[K@@E[KE@@@@@@@@]D]]9@]C]^G@@#]@&@@@@@P@@@@@X@@@@@F@@@@@RAL )@@G@@@@@@@Q@@@@@O@@@@@HFL@@@@+AS@0*[K@*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]G]#_AM )@@G@@@@@__;#_____@]E]^P 1@[D]#]FM@@@@0@@@]@[K@*@@@@@@@@@@@@@@@@@@@@@@@@@@AN )@@G@@@@@@@@@]G]#_@@@__;#_____@]E]^P 1@[D]#]FN@@@@@@^@@]@@A@@)@[A@@S@]&@@@AO )@@G@@@@@]AY@@@@IRCD304500 EBD$X EBO$X CD363600 CD385400 AP )@@G@@SIGTUR OPT$ TON$ READ$ PRINT$ FACIT$ AQ )@@G@@IOW$ CSF$ TSWAP$ PSFD PSED PSBD AR )@@G@@DWRTE ERR$ PRTO PRTAQ PRTHQ PRTA AS )@@G@@PRTH DRPKT SWITCH TPRD$ EXIT$ SNAP$ AT )@@G@@CONVERT SCAN DREAD CPD @@[@@@@@@@@@CDIMGE AU )@@G@@@@[@@@@@@@@ZSAMECD @C@@@@@@@@@@RITE @@[@@@@@@@^6F2NAM AV )@@G@@@@[@@@@@@@A'EOFILE @@[@@@@@@@GQPRTEFX @@[@@@@@@@G-GETSCN AW )@@G@@@@[@@@@@@@G\QGETAD @@[@@@@@@@HCINCRX @@[@@@@@@@H&INCFX AX )@@G@@@@[@@@@@@@H!DCRRX @@[@@@@@@@H5DCRFX @@[@@@@@@@H/CLRRX AY )@@G@@@@[@@@@@@@I#CLRFX @@[@@@@@@@ICDUPPNT @@@@@@@@@@@[NOWDS$ AZ )@@G@@@@@@@@@@@@@]PERIOD @@@@@@@@@@@ OPTION @@@@@@@@@@@CBLOCK BA )@@G@@@@@@@@@@@@@FCDADDR @@@@@@@@@[@GFILEN @@@@@@@@@]@PPKT @@@@@@@@@][^@@@@@@@@@@@@*[S@@@*SDFF*@A@X@W@COPY,BC )@@G@@R CPD.CPD/03F,TPF$.CPD/CPD @A@Z@X@COPY,R CPD.CPD/03G,TPF$.CPD/CPD BD )@@G@@@A@@@Z@COPY,R CPD.CPD/3H,TPF$.CPD/CPD @A@@@W@COPY,R CPD.CONVERSION/CBE )@@G@@PD,TPF$. @ @)@W@COPY,R CPD.DRUM/CPD,TPF$. @A@@@)@COPY,R CPD.DRUM/3BF )@@G@@H,TPF$.DRUM/CPD @A@@@W@COPY,R CPD.TPRD$/03F,TPF$.TPRD$/CPD@A@X@W@COPY,BG )@@G@@R CPD.SIGN/03F,TPF$.SIGN/CPD @A@)@X@COPY,R CPD.SIGN/03G,TPF$.SIGN/CPD BH )@@G@@@A@@@)@COPY,R CPD.SIGN/3H,TPF$.SIGN/CPD @A@@@W@COPY,R CPD.PRT/03E,TPF$BI )@@G@@.PRT/CPD @ @@@W@COPY,R CPD.SCAN/CPD,TPF$. @ @@@W@COPY,S CPD.CPDPROBJ )@@G@@CS/CPD,TPF$.@]@@@W@MAP ,.CPD @^@@@W@ADD CPD.CPDMAP/CPD @^@@@W@COPY,BK )@@G@@A .CPD,CPD.CPD ___ELO 9#E[^^@)^@)@B@@@VC[#D9KFC?EK)CTKC),ET#CDI 9#E[^BL )@@G@@*[S@@@*SDFF*@I@@@#. THIS PROGRAM WILL DUMP OR COPY ANY TAPE WITH BLOCKS BM )@@G@@OF 4096 WORDS OR LCD300100 @I@@@#. WITH THE PRINT OUT EITHER ALPHA ORBN )@@G@@ OCTAL DEPENDENT ON THE OPTION IN THCD300200 @I@@@#. XQT CARD. THE USBO )@@G@@ER MUST SPECIFY WHAT ACTION IS TO BE DONE THRU PARAMETCD300300 @I@@@#BP )@@G@@. CARDS FOLLOWING THE XQT CARD. DOCUMENTATION FOR USAGE IS AVAILABLE .. BQ )@@G@@CD300400 @I@@@#. BR )@@G@@ CD300500 @F@@@#. THE SOURCE OF THE ORIGINAL COPBS )@@G@@Y-DUMP CODE IS UNKNOWN TO US. @G@@@#. THE CODE ARRIVED AS CPDMPH ANDBT )@@G@@ HAS UNDERGONE CONSIDERABLE CHANGE @^@@@#. SINCE THAT TIME. @F@@@#BU )@@G@@. QUESTIONS, ERRORS, AND HOPEFULLY FIXES ON THIS VERSION OF @A@@@#BV )@@G@@. COPY-DUMP MAY BE REFERED TO: @^@@@#. PAULA HAGAN @^@@@#BW )@@G@@. MDCS STOP 28@E@@@#. DEFENSE MAPPING AGENCY AEROSPACBX )@@G@@E CENTER (DMAAC) @A@@@#. 2ND AND ARSENAL STREETS @A@@@#. BY )@@G@@ ST. LOUIS, MO. 63118 @[@@@#. @C@@@#. @CPD - CHANGED BY BBZ )@@G@@UREAU OF PUBLIC DEBT @[@@@#. @D@@@#. OPTION - S1 - A CA )@@G@@OPTION2 - S1 - Q @D@@@#. S2 - O CB )@@G@@ S2 - R @^@@@#. S3 - H @^@B@#. S4 - P CC )@@G@@@^@@@B. S4 - L @^@@@#. S5 - D @^@@@#. CD )@@G@@ S6 - F @I@@@# AXR$ CE )@@G@@ CD300600 @B@@@#$(1) CF )@@G@@ . @[@@@#CPD* @I@@@# L,U A0,1 . CG )@@G@@ BPD 03F @I@@@# TNE,U A4,0CH )@@G@@4 . DEMAND RUN BPD 03F @I@@@# CI )@@G@@ SA,S1 A0,CNTYP . SET DEMAND FOR FUTURE USE BPD 03CJ )@@G@@F @F@@@# LMJ X11,SIGTUR . GO TO SIGNATURE ROUTCK )@@G@@INE @I@@@# ER OPT$ . OPTION LETTER RECOVECL )@@G@@RY - BACK INCD300900 @I@@@# JZ A0,REREAD . ANYCM )@@G@@ OPTIONS? CD301000 @I@@@# SA A0,TCN )@@G@@EMP . SAVE OPTIONS CD301100 @I@@@# CO )@@G@@ LA,U A1,01 . USE THIS TO INDICATE AN OPTION ISCD3012CP )@@G@@00 @I@@@# LA,S2 A0,TEMP . LOAD FOR 'A' TEST CQ )@@G@@ CD301300 @I@@@# TEP,U A0,02 . TESCR )@@G@@T FOR 'A' OPTION CD301400 @I@@@# SA,S1 A1,OCS )@@G@@PTION . STORE 'A' OPTION CD301500 @I@@@# CT )@@G@@ LA,S3 A0,TEMP . LOAD FOR 'D', 'F', 'H' TEST CD3016CU )@@G@@00 @I@@@# TEP,U A0,020 . TEST FOR 'D' OPTION CV )@@G@@ CD301700 @I@@@# SA,S5 A1,OPTION . STOCW )@@G@@RE 'D' OPTION CD301800 @I@@@# TEP,U A0,0CX )@@G@@4 . TEST FOR 'F' OPTION CD301900 @I@@@# CY )@@G@@ SA,S6 A1,OPTION . STORE 'F' OPTION CD3020CZ )@@G@@00 @I@@@# TEP,U A0,01 . TEST FOR 'H' OPTION DA )@@G@@ CD302100 @I@@@# SA,S3 A1,OPTION . STODB )@@G@@RE 'H' OPTION CD302200 @H@@@# LA,S5 A0,TDC )@@G@@EMP . PICK UP POSSIBLE Q AND R OPTIONS. 03D @H@@@# LADD )@@G@@,U A1,1 . FLAG FOR Q OPTION . 03D @H@@@#DE )@@G@@ TEP,U A0,010 . Q OPTION DF )@@G@@. 03D @H@@@# SA,S1 A1,OPTION2 . SET Q OPTION DG )@@G@@ . 03D @H@@@# TEP,U A0,04 . TEST FOR R DH )@@G@@OPTION . 03D @H@@@# SA,S2 A1,OPTION2 DI )@@G@@ . SAVE RESULTS . 03D @H@@@# TEP,U A0,0DJ )@@G@@40 . TEST FOR 'O' OPTION . 03D @I@@@# SADK )@@G@@,S2 A1,OPTION . STORE 'O' OPTION CD302500 DL )@@G@@@I@@@# TEP,U A0,020 . TEST FOR 'P' OPTION DM )@@G@@ BPD 03G @I@@@# SA,S4 A1,OPTION . DN )@@G@@ BPD 03G @#@A@^ SLJ TON$ @I@@@#REREADDO )@@G@@ L A0,RDPKT . SKIP OVER CPD CARD-DUMMY READ CD3028DP )@@G@@00 @I@@@# ER READ$ . READ CARD IMAGE DQ )@@G@@ CD302900 @I@@@#CDIMGE* L A0,RDPKT . LDR )@@G@@OAD READ PACKET CD303000 @I@@@# ER READDS )@@G@@$ . READ CARD IMAGE CD303100 @I@@@# DT )@@G@@ S,S3 A0,PPKT . NR WORDS TO PRINT CD3032DU )@@G@@00 @I@@@# L A0,PPKT . PRINT OUT COMMAND DV )@@G@@ CD303300 @I@@@# ER PRINT$ . DW )@@G@@ CD303400 @I@@@# GETFLD NEWCDX )@@G@@RD . PICK UP PARAMETER COMMAND CD303500 @I@@@#. CONTDY )@@G@@ROL RETURNS WITH A2= NUMBER CHARS IN FIELD AND FIELD IN A0,A1 RIGHCD3036DZ )@@G@@00 @E@@@# JZ A2,CDIMGE . IGNORE A BLANK CARD EA )@@G@@@I@@@# L,U R1,NOCOMM . NUMBER OF COMMANDS POSSIBLEB )@@G@@E TO HCD303800 @I@@@# AND A1,(0777777) . LOGICAL EC )@@G@@PRODUCT IN A2 CD303900 %[@@@@-57 @I@@@# SA ED )@@G@@ A2,FILEN . SAVE COMMAND BPD 03G @I@@@#EE )@@G@@ L A1,(1,0) . EF )@@G@@CD304000 @I@@@# SE,H1 A2,TABL,*A1 . SEARCH TABLE FEG )@@G@@OR COMMAND CD304100 @I@@@# J BADCOM EH )@@G@@ . BAD COMMAND,NO EQUAL FOUND CD304200 @I@@@# L,H2 EI )@@G@@ A2,TABL-1,A1 . PICK UP THE COMMAND CD304300 @I@@@#EJ )@@G@@ S A2,COMMND . TEMP STORAGE FOR COMMAND EK )@@G@@CD304400 @I@@@# GETFLD SAMECD EL )@@G@@ CD304500 @I@@@# JZ A2,BADCOM EM )@@G@@ . USER HAS NO IN IN COMMAND CARD CD304600 %[@@@@-64 @I@@@# EN )@@G@@ LA A3,('@@@OPT') . BPD 03EO )@@G@@G @I@@@# TNE A3,FILEN . OPTION CHANGE ? EP )@@G@@ BPD 03G @I@@@# J NEWOPT . YEEQ )@@G@@S - CHANGE OPTIONS BPD 03G @I@@@#NAME MSI,U A2,6ER )@@G@@ . NR CHARACTERS*BITS PER CHARACTECD304700 @I@@@# ES )@@G@@ S,T3 A2,$+1 CD3048ET )@@G@@00 @I@@@# DSC A0,0 . DSC ---FN IN A0 AND EU )@@G@@A1 CD304900 @I@@@# DS A0,FILEN . STEV )@@G@@ORE FN IN LOCATION CD305000 @I@@@# DS A0,FEW )@@G@@1NAM . EOF ENCOUNTERED MESSAGE CD305100 @I@@@# EX )@@G@@ SZ,S5 OPTION . CLEAR 'D' OPTION BPD 03EY )@@G@@F @I@@@# DS A0,FACPAC . STORE FILENAME EZ )@@G@@ BPD 03F @H@@@# L,U A0,FACPAC . SEFA )@@G@@T PKT BPD03F@I@@@# ER FACIT$ FB )@@G@@ . BPD 03F @I@@@# TNFC )@@G@@Z,S1 FACPAC+6 . GET EQUIP CODE BPD 03F FD )@@G@@@I@@@# J NOFILE . FE )@@G@@ BPD 03F @I@@@# LA,U A0,1 .USE TO SEFF )@@G@@T 'D' OPTION BPD 03F @I@@@# LA,S1 A1,FACPAC+FG )@@G@@6 . GET EQUIP CODE BPD 03F @I@@@# TGFH )@@G@@,U A1,020 . IF DISK SET 'D' OPTION BPD 03F FI )@@G@@@I@@@# SA,S5 A0,OPTION . > 020 SET OPTION FJ )@@G@@ BPD 03F @I@@@# J *COMMND . GO TO COMFK )@@G@@MAND SUBROUTINE CD305200 @I@@@#NOFILE . COME HERE IF FILE NOFL )@@G@@T ASSIGNED BPF 03F @I@@@# DLFM )@@G@@ A0,FACPAC . GET FILE NAME BPD 03F FN )@@G@@@I@@@# DS A0,MSGE+1 . FO )@@G@@ BPD 03F @I@@@# LA A0,(0105,MSGE) . SET PRINFP )@@G@@T PKT BPD 03F @I@@@# ER PRINT$ FQ )@@G@@ . BPD 03F @I@@@# J FR )@@G@@ CDIMGE . GET NEXT CONTROL CARD BPD 03F FS )@@G@@%[@@@@-86 @[@@@#. @C@@@#NEWOPT . CHANGE CPD OPTIONS BPD FT )@@G@@03G @I@@@# SZ OPTION . CLEAR OPTIONS FU )@@G@@ BPD 03G @I@@@# SZ OPTION2 . FV )@@G@@ BPD 03G @I@@@# SZ TEMPFW )@@G@@ . BPD 03G @I@@@# FX )@@G@@ LA,U A3,1 . USED TO SET OPTION BPD 03FY )@@G@@G @I@@@# LA,U A4,04 . SET X OPTION FZ )@@G@@ BPD 03G @I@@@# LR,U R12,5 . LOGA )@@G@@OP 5 TIMES - 6 OPTIONS ALLOWED BPD 03G @I@@@# SA A1,FGB )@@G@@ILEN . STORE OPTIONS BPD 03G @C@@@#OPTLOOGC )@@G@@P . GET OPTIONS BPD 03G @I@@@# LA A1,(GD )@@G@@'@@@@@A') . BPD 03G @J@@@# GE )@@G@@ TNE S1 A1,FILEN . A OPGF )@@G@@TION BPD 03G@I@@@# SA,S1 A3,OPTION . YES SET GG )@@G@@ BPD 03G @I@@@# LA A1,('@@@@@H') GH )@@G@@ . BPD 03G @I@@@# TNE,S1 GI )@@G@@ A1,FILEN . H OPTION BPD 03G @I@@@#GJ )@@G@@ SA,S3 A3,OPTION . GK )@@G@@BPD 03G @I@@@# LA A1,('@@@@@O') . O OPTION GL )@@G@@ BPD 03G @I@@@# TNE,S1 A1,FILEN GM )@@G@@ . BPD 03G @I@@@# SA,S2 GN )@@G@@ A3,OPTION . BPD 03G @I@@@#GO )@@G@@ LA A1,('@@@@@Q') . Q OPTION GP )@@G@@BPD 03G @I@@@# TNE,S1 A1,FILEN . GQ )@@G@@ BPD 03G @I@@@# SA,S1 A3,OPTION2 GR )@@G@@ . BPD 03G @I@@@# LA GS )@@G@@ A1,('@@@@@R') . R OPTION BPD 03G @I@@@#GT )@@G@@ TNE,S1 A1,FILEN . GU )@@G@@BPD 03G @I@@@# SA,S2 A3,OPTION2 . GV )@@G@@ BPD 03G @I@@@# LA A1,('@@@@@F') GW )@@G@@ . F OPTION BPD 03G @I@@@# TNE,S1 GX )@@G@@ A1,FILEN . BPD 03G @I@@@#GY )@@G@@ SA,S6 A3,OPTION . GZ )@@G@@BPD 03G @I@@@# LA A1,('@@@@@X') . X OPTION HA )@@G@@ BPD 03G @I@@@# TNE,S1 A1,FILEN HB )@@G@@ . BPD 03G @I@@@# SA HC )@@G@@ A4,TEMP . SET X OPTION BPD 03G @I@@@#HD )@@G@@ LA A1,('@@@@@P') . P OPTION HE )@@G@@BPD 03G @I@@@# TNE,S1 A1,FILEN . HF )@@G@@ BPD 03G @I@@@# SA,S4 A3,OPTION HG )@@G@@ . BPD 03G @I@@@# LA HH )@@G@@ A1,FILEN . BPD 03G @I@@@#HI )@@G@@ SSC A1,6 . SHIFT 6 BITS HJ )@@G@@BPD 03G @I@@@# SA A1,FILEN . HK )@@G@@ BPD 03G @C@@@# JGD R12,OPTLOOP HL )@@G@@ . BPD 03G @I@@@# J CDIMGE . GET NEW COMMANHM )@@G@@D . BPD 03G @B@@@#/ HN )@@G@@ . @I@@@#WREOF DL A0,FILEN . PICK UP FILENAME FIRHO )@@G@@ST 6 CHARS CD305400 @I@@@# DS A0,TAPPKT . PUHP )@@G@@T IT IN TAPE PACKET WORD 1 CD305500 @I@@@# L,U A0,0HQ )@@G@@11 . FUNC CODE FOR WRITE END-OF-FILE CD305600 @I@@@# HR )@@G@@ S,S2 A0,TAPPKT+3 . STORED FUNC CODE IN PROPER WORD.CD3057HS )@@G@@00 @I@@@# L,U A0,TAPPKT . I/0 PACKET FOR MAG THT )@@G@@APE--- CD305800 @I@@@# ER IOW$ . WRHU )@@G@@ITE END-OF-FILE CD305900 @I@@@# ER IOW$ HV )@@G@@ . WRITE SECOND EOF CD306000 @I@@@# HW )@@G@@ L,U A0,051 . FUNCTION CODE FOR BACKSPACE CD3061HX )@@G@@00 @I@@@# S,S2 A0,TAPPKT+3 . STORE IN PROPER WORD HY )@@G@@ CD306200 @I@@@# L,U A0,TAPPKT . I/OHZ )@@G@@ PACKET FOR MAG TAPE CD306300 @I@@@# ER IOW$ IA )@@G@@ . BACKSPACE OVER SECOND EOF CD306400 @I@@@# IB )@@G@@ INCF . INCREASE THE FILE COUNT CD3065IC )@@G@@00 @I@@@# TZ,S6 OPTION . F OPTION SET? ID )@@G@@ CD306600 @I@@@# J FCOPYC . YESIE )@@G@@ CD306700 @I@@@# J CDIMIF )@@G@@GE . GO BACK AND GET NEXT PARAMETER CCD306800 @I@@@#REWW IG )@@G@@ LA,U A0,040 . NO CD3069IH )@@G@@00 @I@@@# S,S2 A0,TAPPKT+3 . STORE FUNCTION CODE III )@@G@@N PACKET CD307000 @I@@@# DL A0,FILEN . REIJ )@@G@@WIND NO INTERLOCK ROUTINE---GECD307100 @I@@@# DS A0,TIK )@@G@@APPKT . STORE WORD ONE IN TAPE PACKET CD307200 @I@@@# IL )@@G@@ L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD3073IM )@@G@@00 @I@@@# ER IOW$ . REWIND WITHOUT INTERIN )@@G@@LOCK CD307400 @I@@@# CLRF IO )@@G@@ CD307500 @I@@@# CLRR IP )@@G@@ CD307600 @I@@@# IQ )@@G@@ GETFLD SAMECD . SEE IF THERE ARE ANY MORE FILES CD3077IR )@@G@@00 @I@@@# JZ A2,CDIMGE . NO IS )@@G@@ CD307800 @I@@@# J NAME . YESIT )@@G@@ GO REWIND THEM CD307900 @I@@@#REWI DL A0,FIU )@@G@@ILEN . LOAD FILENAME CD308000 @I@@@# IV )@@G@@ DS A0,FREED+1 . STORE IN PACKET CD3081IW )@@G@@00 @I@@@# L A0,(3,FREED) . LOAD @FREE PACKET IX )@@G@@ CD308200 @I@@@# ER CSF$ . FREIY )@@G@@E THE TAPE ( OR FILE) CD308300 @I@@@# GETFLD SAMEIZ )@@G@@CD . ANY MORE? CD308400 @I@@@# JA )@@G@@ JZ A2,CDIMGE . NO CD3085JB )@@G@@00 @I@@@# J NAME . INSERT NEW FILENAME JC )@@G@@AND FREE . 3C @I@@@#. SWAP TAPE REELS JD )@@G@@ CD308700 @I@@@#SWAPRL . JE )@@G@@ CD308800 @I@@@# JF )@@G@@ L,U A0,FILEN CD3089JG )@@G@@00 @I@@@# ER TSWAP$ JH )@@G@@ CD309000 @I@@@# J CDIMGE JI )@@G@@ CD309100 @B@@@#/ JJ )@@G@@ . @I@@@#. ROUTINE FOR POSITIONING TAPE FORWARD ONE BLOCKJK )@@G@@ AT A TIME CD309300 @I@@@#POSFOR SZ PSERET JL )@@G@@ . ZERO PSE JUMP RETURN CD309400 @I@@@# GEJM )@@G@@TFLD SAMECD . PICK UP 'N' FIELD OF PARAMETER CCD309500 JN )@@G@@@I@@@# LMJ X11,NOVAL . GO TEST FOR USER COUNT JO )@@G@@ CD309600 @I@@@# J REPEATB . COME HEREJP )@@G@@ IF WE PROVIDED FILE COUCD309700 @I@@@# SA A1,X2 JQ )@@G@@ . CD309800 @I@@@# SLJR )@@G@@J CNVT . CONVERT TO BINY VALUE WILL BE INCD309900 JS )@@G@@@I@@@#REPEATB LA,S5 A0,OPTION . LOAD FOR 'D' OPTION TEST JT )@@G@@ CD310000 @I@@@# TOP,U A0,01 . 'D' OPTIOJU )@@G@@N SET? CD310100 @I@@@# J COUNTT JV )@@G@@ . TEST FOR O COUNT BEFORE POSITIOCD310200 @I@@@# J JW )@@G@@ PSFD . GO TO DRUM ROUTINE CD310300 JX )@@G@@@I@@@#REPEAT DL A0,FILEN . FILENAME WD TWO JY )@@G@@ CD310400 @I@@@# DS A0,TAPPKT JZ )@@G@@ CD310500 @I@@@# L,U A0,050 KA )@@G@@ . FUNC CODE FOR POS FILE FORWARD OCD310600 @I@@@# S,KB )@@G@@S2 A0,TAPPKT+3 . PLACE IN PROPER WORD OF PACKET CD310700 KC )@@G@@@I@@@# LA,U A0,FOPT(3) . KD )@@G@@ CD310800 @I@@@# SA A0,PNT . KE )@@G@@ CD310900 @I@@@# J REPETA KF )@@G@@ . CD311000 @I@@@#FOPT(3) TNKG )@@G@@Z NO2EOF . COMING FROM EOF COMPARE CD311100 KH )@@G@@@I@@@# J COUNT KI )@@G@@ CD311200 @I@@@# L X2,SAVJGD . CLEANUP KJ )@@G@@FOR RETURN TO CMP CD311300 @I@@@# SZ NO2EOF KK )@@G@@ CD311400 @I@@@# J KL )@@G@@ NXTCMP CD311500 KM )@@G@@@I@@@#REPETA L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE KN )@@G@@ CD311600 @I@@@# ER IOW$ . MOVE ONEKO )@@G@@ BLOCK FORWARD CD311700 @I@@@# INCR KP )@@G@@ CD311800 @I@@@# L,KQ )@@G@@U A0,1 . STATUS CODE FOR TESTING EOF CD311900 KR )@@G@@@I@@@# TNE,S1 A0,TAPPKT+3 . IS IT EOF KS )@@G@@ CD312000 @I@@@# J FOUND1 . KT )@@G@@ CD312100 @I@@@# TNZ,S6 OPTION KU )@@G@@ . F OPTION SET? CD312200 @I@@@# J KV )@@G@@ COUNT . NO CD312300 KW )@@G@@@I@@@# J REPETA . KX )@@G@@ CD312400 @I@@@#FOUND1 TZ PSERET . COMMONG KY )@@G@@FROM PSE COMMAND TEST CD312500 @I@@@# J POSF2 KZ )@@G@@ CD312600 @I@@@# SLLA )@@G@@J PRTEFX . PRINT EOF ENCOUNTERED CD312700 LB )@@G@@@I@@@# INCF LC )@@G@@ CD312800 @I@@@# TZ NONO . LD )@@G@@ CD312900 @I@@@# J NXTFLE LE )@@G@@ . CD313000 @I@@@# TZLF )@@G@@,S6 OPTION . F OPTION SET? CD313100 LG )@@G@@@I@@@# J *PNT . GO BACK WHERE CAME FROM LH )@@G@@ CD313200 @I@@@# J CDIMGE LI )@@G@@ CD313300 @I@@@#COUNTT JGD X2,REPEAT LJ )@@G@@ . TO TAKE CARE OF FIRST PASS CD313400 @I@@@# J LK )@@G@@ CDIMGE . CD313500 LL )@@G@@@I@@@#COUNT JGD X2,REPETA . GO BACK AND DO IT AGAIN LM )@@G@@ CD313600 @I@@@# J CDIMGE . PROCESS LN )@@G@@NEXT CARD CD313700 @I@@@# . LO )@@G@@ CD313800 @I@@@#. ROUTINE TOLP )@@G@@ POSITION FORWARD PAST EOF AND BACK UP 1 BLOCK..............CD313900 LQ )@@G@@@I@@@# . LR )@@G@@ CD314000 @I@@@#POSF1 LA,S5 A0,OPTION . TEST FOR LS )@@G@@D OPTION CD314100 @I@@@# TEP,U A0,1 LT )@@G@@ . CD314200 @I@@@# J LU )@@G@@ PSED . YES CD314300 LV )@@G@@@I@@@# SA A2,PSERET . NONZERE RET. SWCH:A2=NR CHLW )@@G@@AR FN CD314400 @I@@@# J POSFOR+1 . LX )@@G@@ CD314500 @I@@@#POSF2 SZ PSERET LY )@@G@@ . CLEAN UP SWITCH CD314600 @I@@@# L,LZ )@@G@@U A0,051 . BACKSPACE OVER EOF CD314700 MA )@@G@@@I@@@# S,S2 A0,TAPPKT+3 MB )@@G@@ CD314800 @I@@@# L,U A0,TAPPKT MC )@@G@@ CD314900 @I@@@# ER IOW$ MD )@@G@@ CD315000 @I@@@# DCME )@@G@@RR CD315100 MF )@@G@@@I@@@#PRTAFB . MG )@@G@@ CD315200 @I@@@# DL A1,FILEN . MSG- POSMH )@@G@@ITIONED AFTER BLOCK XX. CD315300 @I@@@# DS A1,BLKPOS MI )@@G@@ CD315400 @I@@@# SLMJ )@@G@@J QGETAD CD315500 MK )@@G@@@I@@@# L A0,2,A0 ML )@@G@@ CD315600 @I@@@# E$BD 6,AFTBLK,6 . MM )@@G@@ CD315700 @I@@@# L A0,AFTERB MN )@@G@@ CD315800 @I@@@# ERMO )@@G@@ PRINT$ CD315900 MP )@@G@@@I@@@# J CDIMGE MQ )@@G@@ CD316000 @B@@@#/ . @I@@@#MR )@@G@@POSBWD GETFLD SAMECD . PICK UP VALUE 'N' FOR POSITIONINMS )@@G@@CD316200 @I@@@# SZ OVWJMP . ZERO EXIT TO OMT )@@G@@VW COMMAND CD316300 @I@@@# LMJ X11,NOVAL MU )@@G@@ . GO TEST FOR USER COUNT CD316400 @I@@@# J MV )@@G@@ GETREC . COME HERE IF WE PROVIDED FILE COUCD316500 @I@@@#MW )@@G@@ SA A1,X2 . MX )@@G@@CD316600 @I@@@# SLJ CNVT MY )@@G@@ CD316700 @I@@@#GETREC LA,S5 A0,OPTION MZ )@@G@@ . TEST FOR D OPTION CD316800 @I@@@# TEP,U NA )@@G@@ A0,1 . CD316900 @I@@@#NB )@@G@@ J PSBD . YES NC )@@G@@CD317000 @I@@@# DL A0,FILEN . NO ND )@@G@@ CD317100 @I@@@# DS A0,TAPPKT NE )@@G@@ . CD317200 @I@@@#BWDSET L,U NF )@@G@@ A0,051 . POSITION BACKWARDS FUNCTION CD317300 @I@@@#NG )@@G@@ S,S2 A0,TAPPKT+3 . PROPER WD FOR THIS CODE NH )@@G@@CD317400 @I@@@# J COUNT1 . NI )@@G@@ CD317500 @I@@@#BACKUP L,U A0,TAPPKT NJ )@@G@@ . LOAD THE PACKET CD317600 @I@@@# ER NK )@@G@@ IOW$ . MOVE TAPE BACKWARD ONE BLOCK CD317700 @I@@@#NL )@@G@@ DCRR NM )@@G@@CD317800 @I@@@# L,U A0,1 . STATUS CODE FONN )@@G@@R EOF CD317900 @I@@@# TNE,S1 A0,TAPPKT+3 NO )@@G@@ . TEST FOR EOF CD318000 @I@@@# J NP )@@G@@ EOFOUT . YES GET OUT CD318100 @I@@@#NQ )@@G@@ L,U A0,02 . LOAD POINT RETURN CODE NR )@@G@@CD318200 @I@@@# TNE,S1 A0,TAPPKT+3 . TEST FOR LOAD PNS )@@G@@OINT CD318300 @I@@@# J LPOUT NT )@@G@@ . YES GET OUT CD318400 @I@@@# TZ,S6 NU )@@G@@ OPTION . F OPTION SET? CD318500 @I@@@#NV )@@G@@ J BACKUP . YES NW )@@G@@CD318600 @I@@@# J COUNT1 . NO NX )@@G@@ CD318700 @I@@@#EOFOUT DCRF NY )@@G@@ . CD318800 @I@@@# TNZ NZ )@@G@@ OVWJMP . DON'T PRINT MESSAGE IF OVERWRITECD318900 @I@@@#OA )@@G@@ SLJ PRTEFX OB )@@G@@CD319000 @E@@@# CLRR . ZERO RECORD COUOC )@@G@@NT @I@@@# TNZ,S6 OPTION . F OPTION SET? OD )@@G@@ CD319100 @I@@@# J CDIMGE . NO OE )@@G@@ CD319200 @I@@@# JGD X2,BOF )@@G@@ACKUP . CD319400 @I@@@# OG )@@G@@ L A0,OVWJMP . DID WE COME FROM OVERWRITE CMD CD3195OH )@@G@@00 @I@@@# JNZ A0,OVWRET OI )@@G@@ CD319600 @I@@@# J CDIMGE . GEOJ )@@G@@T ANOTHER COMMAND CD319700 @I@@@#LPOUT L A0,(OK )@@G@@P 2,8,PRTLPF) . LOAD AND PRINT LOAD POINT MESGCD319800 @I@@@# OL )@@G@@ ER PRINT$ . WRITE OUT MESSAGE CD3199OM )@@G@@00 @I@@@# CLRR . CLEAR RECORD COUNTER ON )@@G@@ CD320000 @I@@@# CLRF . CLEOO )@@G@@AR FILE COUNTER CD320100 @I@@@# J CDIMOP )@@G@@GE . GO GET ANOTHER CD320200 @I@@@#COUNT1OQ )@@G@@ JGD X2,BACKUP . CHECK BLOCK COUNT AND DECREMENT CD3203OR )@@G@@00 @I@@@# J CDIMGE . GET ANOTHER COMMAND OS )@@G@@ CD320400 @B@@@#/ . OT )@@G@@@I@@@#COPY GETFLD SAMECD . GET OUTPUT FILE NAME OU )@@G@@ CD320600 @I@@@# JZ A2,BADCOM . PARAMETEOV )@@G@@R CARD CHECK CD320700 @I@@@# MSI,U A2,6 OW )@@G@@ . DETERMINE NUMBER OF SHIFT POSITICD320800 @I@@@# S,OX )@@G@@T3 A2,$+1 CD320900 OY )@@G@@@I@@@# DSC A0,0 . POSITION FILENAME OZ )@@G@@ CD321000 @I@@@# DS A0,F2NAM . DS OUTPUPA )@@G@@T FILENAME CD321100 @I@@@# GETFLD SAMECD PB )@@G@@ . GET VALUE 'N' IF ANY CD321200 @I@@@# LMPC )@@G@@J X11,NOVAL . GO TEST FOR USER COUNT CD321300 PD )@@G@@@I@@@# J LEG1+1 . COME HERE IF WE PROVIDED FIPE )@@G@@LE COUCD321400 @I@@@# SA A1,X2 . NR FILESPF )@@G@@ OR RECORDS CD321500 @I@@@#LEG1 SLJ CNVT PG )@@G@@ . FD TO BIN CD321600 @I@@@# DLPH )@@G@@ A0,FILEN CD321700 PI )@@G@@@I@@@# DS A0,FN1 PJ )@@G@@ CD321800 @I@@@# TZ,S6 OPTION . F OPTION PK )@@G@@SET? CD321900 @I@@@# J FCOPYA PL )@@G@@ . YES CD322000 @I@@@# J PM )@@G@@ WRITER+1 CD322100 PN )@@G@@@I@@@#KEEPON LA,S5 A0,OPTION . TEST FOR 'D' OPTION PO )@@G@@ CD322200 @I@@@# JZ A0,$+2 . NO 'D' OPPP )@@G@@TION CD322300 @I@@@# SA A0,DUPPNT PQ )@@G@@ . SET FLAG CD322400 @I@@@# SLPR )@@G@@J GENRD1 CD322500 PS )@@G@@@I@@@# INCR PT )@@G@@ CD322600 @I@@@#WRITER SLJ RITE . COPY BADPU )@@G@@ RECORD CD322700 @I@@@# SZ DUPPNT PV )@@G@@ . ZERO OUT TAPE-DRUM DUPE FLAG CD322800 @I@@@# JGPW )@@G@@D X2,KEEPON CD322900 PX )@@G@@@I@@@# J CDIMGE PY )@@G@@ CD323000 @I@@@#FCOPYA LA,U A0,FOPT(1) . PZ )@@G@@ CD323100 @I@@@# SA A0,PNT QA )@@G@@ . CD323200 @ @@@# L QB )@@G@@ A0,X2 @G@@@# TNE A0,NMANYF . DID USEQC )@@G@@R GIVE A FILE COUNT @E@@@# L,U X2,1 . NOQD )@@G@@ - ONLY DO 1 FILE @I@@@# J FCOPYB . QE )@@G@@ CD323300 @I@@@#FCOPY SLJ GENRD1 QF )@@G@@ . GO READ A BLOCK CD323400 @I@@@# INQG )@@G@@CR . INCREMENT RECORD COUNT CD323500 QH )@@G@@@I@@@# SLJ RITE . WRITE IT OUT QI )@@G@@ CD323600 @I@@@# J FCOPY . GO GET ANQJ )@@G@@OTHER CD323700 @I@@@#FOPT(1) LX X2,BS QK )@@G@@ . RELOAD X2 CD323800 @I@@@# DLQL )@@G@@ A0,F2NAM . LOAD OUTPUT FILE NAME CD323900 QM )@@G@@@I@@@# DS A0,FILEN . QN )@@G@@ CD324000 @I@@@# J WREOF+1 . GO MARK TQO )@@G@@HE TAPE CD324100 @I@@@#FCOPYC DL A0,FN1 QP )@@G@@ . RESET FILE NAME TO FIRST NAME CD324200 @I@@@# DSQQ )@@G@@ A0,FILEN . CD324300 QR )@@G@@@I@@@#FCOPYB JGD X2,FCOPY . GO START ANOTHER QS )@@G@@ CD324400 @I@@@# J CDIMGE . GO GET ANQT )@@G@@OTHER CARD CD324500 @B@@@#/ QU )@@G@@ . @I@@@#RITE* NOP . QV )@@G@@ CD324700 @I@@@# TZ DUPPNT QW )@@G@@ . TAPE TO DRUM DUPE? CD324800 @I@@@# J QX )@@G@@ DWRTE . YES CD324900 @I@@@#QY )@@G@@ DL A0,F2NAM . PICK UP OUTPUT FN QZ )@@G@@CD325000 @I@@@# DS A0,TAPWRI . PUT IN TAPE WRRA )@@G@@ITE PACKET CD325100 @I@@@# L,H2 A0,NOWDS$ RB )@@G@@ . PICK UP NUMBER WORDS CD325200 @I@@@# S,H1 RC )@@G@@ A0,TAPWRI+4 . STORE IN WRITE PACKET CD325300 @I@@@#RD )@@G@@ L,U A0,TAPWRI . PICK UP WRITE PACKET RE )@@G@@CD325400 @I@@@# ER IOW$ . WRITE TAPE RF )@@G@@ CD325500 @I@@@# L,U A0,2 RG )@@G@@ . STATUS CODE FOR TESTING EOT CD325600 @I@@@# TNE,S1 A0RH )@@G@@,TAPWRI+3 CD325700 @I@@@#RI )@@G@@ J EOTRET RJ )@@G@@CD325800 @I@@@# L,U A0,010 . TEST ABORT ERRRK )@@G@@ORS CD325900 @I@@@# TG,S1 A0,TAPWRI+3 RL )@@G@@ . TEST IT CD326000 @I@@@# J RM )@@G@@ *RITE CD326100 @I@@@#RN )@@G@@ J PROBLM . HAD A WROTE ERROR CONDITION RO )@@G@@CD326200 @I@@@# . WHEN GET AN END OF TAPE RETURN FROM IOW - WILL WRP )@@G@@RITE AN EOF ON CD326300 @I@@@#. TAPE, THEN DO AN ER TO TSWAP$ TO RQ )@@G@@GET ANOTHER TAPE CD326400 @I@@@#EOTRET . RR )@@G@@ CD326500 @I@@@#RS )@@G@@ L,U A0,011 . LOAD WEOF FUNC RT )@@G@@CD326600 @I@@@# S,S2 A0,TAPWRI+3 . STORE IN PKT RU )@@G@@ CD326700 @I@@@# L,U A0,TAPWRI RV )@@G@@ CD326800 @I@@@# ER RW )@@G@@ IOW$ . WRITE EOF CD326900 @I@@@#RX )@@G@@ L,U A0,TAPWRI . RY )@@G@@CD327000 @I@@@# ER TSWAP$ . SWAP REELS RZ )@@G@@ CD327100 @I@@@# L,U A0,010 . SA )@@G@@ RESTORE WRT FUNC IN PKT CD327200 @I@@@# S,S2 SB )@@G@@ A0,TAPWRI+3 . CD327300 @I@@@#SC )@@G@@ J *RITE SD )@@G@@CD327400 @I@@@#PROBLM L,U A0,WRERR . BAD WRITE CONDSE )@@G@@ITION CD327500 @I@@@# ER PRINT$ SF )@@G@@ . PRINT ERROR CD327600 @I@@@# ER SG )@@G@@ ERR$ . ERROR OUT CD327700 @B@@@#SH )@@G@@/ . @I@@@#DUMP GETFLD SAMESI )@@G@@CD . GET PARAMETER VALUE 'N' IF ANY CD327900 @I@@@# SJ )@@G@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT CD3280SK )@@G@@00 @I@@@# J NVALUE+1 . COME HERE IF WE PROVISL )@@G@@DED FILE COUCD328100 @I@@@# SA A1,X2 . SM )@@G@@ CD328200 @H@@@# SA A1,SSN )@@G@@AVEX2 . PUT X2 AWAY FOR FUTURE USE . 03D @I@@@#NVALUE SLSO )@@G@@J CNVT . FD TO BIN VALUE COMES BACK IN XRCD328300 SP )@@G@@@I@@@# DL A0,FILEN SQ )@@G@@ CD328400 @I@@@# DS A0,FN1 SR )@@G@@ CD328500 @E@@@# LA A0,TEMP SS )@@G@@ . CHECK IS X OPTION ON@ @@@# TOP,U A0,04 @^@@@#ST )@@G@@ J $+5 @B@@@# LA A0,(P 2, 9,XMSG1) SU )@@G@@@B@@@# ER PRINT$ . @B@@@# LA SV )@@G@@ A0,(P 1, 9,XMSG2) @B@@@# ER PRINT$ . SW )@@G@@@I@@@# LA,U A0,FOPT(4) . LOAD F OPTION RETURN ADDRESSX )@@G@@S CD328600 @I@@@# SA A0,PNT . STORE IT SY )@@G@@ CD328700 @H@@@# TZ,S6 OPTION SZ )@@G@@ . F OPTION REQUESTED . 03D @H@@@# J TA )@@G@@ DONEIT . NO . 03D @H@@@# TB )@@G@@ L A0,X2 . . 03D TC )@@G@@@H@@@# TNE A0,NMANYF . DID USER GIVE A FILE COUNTD )@@G@@T . 03D @H@@@# L,U X2,1 . USER DIDNOT GITE )@@G@@VE A NR - ONLY DO . 03D @H@@@# SX X2,SAVEX2 . TF )@@G@@ . 03D @H@@@# J DONEIT TG )@@G@@ . 03D @H@@@#NEXREC . TH )@@G@@ . 03D @H@@@# TI )@@G@@ SX X2,SAVEX2 . SAVE INDEX 2 . 03D TJ )@@G@@@H@@@# SLJ GENRD1 . GO READ A RECORD TK )@@G@@ . 03D @H@@@# INCR TL )@@G@@ . 03D @F@@@# TZ OPTION2 . 'QTM )@@G@@' O'R' R OPTIONS SET @E@@@# J BPD1 . YTN )@@G@@ES BPD @F@@@# TZ,H1 OPTION . 'A', 'O', OR TO )@@G@@'H' SET BPD @G@@@# J BPD1 . YES TP )@@G@@ BPD@G@@@# SLJ PRTO . DEFTQ )@@G@@AULT 'O' OPTION BPD @G@@@# TZ,S6 OPTION .TR )@@G@@ 'F' OPTION SET ? BPD @C@@@# J NEXREC TS )@@G@@ . YES @G@@@# J DONEIT . DECREMETT )@@G@@NT BPD@D@@@#BPD1 . TU )@@G@@ BPD @H@@@# TZ,S1 OPTION2 . GET POSSIBLE Q ASTV )@@G@@CII OPTIONS . 03D @H@@@# LMJ X11,PRTAQ . GOTW )@@G@@ PRINT ASCII DIVIDED . 03D @H@@@# TZ,S2 OPTION2 TX )@@G@@ . GET POSSIBLE R ASCII OPTIONS . 03D @H@@@# LMJ TY )@@G@@ X11,PRTHQ . GO PRINT ASCII JAMMED . 03D @H@@@# TZ )@@G@@ TZ,S2 OPTION . TEST 'O' OPTION CD3. 03D UA )@@G@@@H@@@# SLJ PRTO . YES, PRINT OCTAL UB )@@G@@ . 03D @H@@@# TZ,S1 OPTION . TEST 'A' OPTION UC )@@G@@ CD3. 03D @H@@@# SLJ PRTA . YESUD )@@G@@, PRINT ALPHA DIVIDED INTO WOR. 03D @H@@@# TZ,S3 OPTION UE )@@G@@ . TEST 'H' OPTION ON CD33. 03D @H@@@# SLJ UF )@@G@@ PRTH . YES PRINT ALPHA CONTINOUS NOT D. 03D @E@@@# UG )@@G@@ TNZ,S6 OPTION . F OPTION REQUESTED @B@@@# J UH )@@G@@ DONEIT . NO@I@@@# J NEXREC UI )@@G@@ . YES CD331100 @I@@@#FOPT(4) CLRR UJ )@@G@@ . CLEAR RECORD BEFORE STARTING 2ND CD331200 @H@@@#UK )@@G@@DONEIT . UL )@@G@@. 03D @H@@@# LX X2,SAVEX2 . RESTORE INDEX 2 UM )@@G@@ . 03D @H@@@# JGD X2,NEXREC UN )@@G@@ . 03D @I@@@# LA,U A0,28 UO )@@G@@ . RESET DRUM READ COUNTERS CD331400 @I@@@# SA,H1 UP )@@G@@ A0,DRPKT+4 . JUST IN CASE CD331500 @I@@@#UQ )@@G@@ SZ SWITCH . UR )@@G@@CD331600 @I@@@# J CDIMGE US )@@G@@ CD331700 @I@@@#/ . C O M P A R THIS ROUTINES COMPARUT )@@G@@ES TAPE RECORD BLOCKS ONLY. CD331800 @I@@@#COMPAR . UU )@@G@@ CD331900 @I@@@#UV )@@G@@ SZ EOFLAG . TO DENOTE ALL OTHER EOFS UW )@@G@@CD332000 @I@@@# DL A0,FILEN . UX )@@G@@ . 3A @I@@@# DS A0,FACPAC UY )@@G@@ . PREPARE PACKET . 3A @I@@@# L,U UZ )@@G@@ A0,FACPAC . . 3A @I@@@#VA )@@G@@ ER FACIT$ . VB )@@G@@ . 3A @I@@@# L,S1 A1,FACPAC+6 . EQUIPMENT TYPEVC )@@G@@ FOR POSSIBLE AFC . 3A @I@@@# S A1,EQUIP1 VD )@@G@@ . . 3A @I@@@# GETFLD VE )@@G@@ SAMECD . GET SECOND FILENAME CD332100 @I@@@#VF )@@G@@ JZ A2,NOT2ND . DOES USER HAVE TWO FILE NAMES VG )@@G@@CD332200 @I@@@# MSI,U A2,6 . DETERMINE NUMBVH )@@G@@ER OF SHIFT POSITICD332300 @I@@@# S,T3 A2,$+1 VI )@@G@@ CD332400 @I@@@# DSC VJ )@@G@@ A0,0 . POSITION FILE NAME CD332500 @I@@@#VK )@@G@@ DS A0,F2NAM . DS SECOND FILE NAME VL )@@G@@CD332600 @I@@@# DS A0,FACPAC . SET UP PACKET VM )@@G@@FOR FACIT . 3A @I@@@# L,U A0,FACPAC VN )@@G@@ . . 3A @I@@@# ER VO )@@G@@ FACIT$ . GET EQUIPMENT TYPE . 3A @I@@@#VP )@@G@@ TNZ,S1 FACPAC+6 . ANY EQUIP TYPE ? VQ )@@G@@BPD 03F @I@@@# J NOFILE . NOT ASSIGNED VR )@@G@@ BPD 03F @I@@@# L,S1 A0,FACPAC+6 VS )@@G@@ . . 3A @I@@@# S VT )@@G@@ A0,EQUIP2 . . 3A @I@@@#VU )@@G@@ TNZ,S6 OPTION . F OPTION SET? VV )@@G@@CD332700 @I@@@# J CMPTP1 VW )@@G@@ CD332800 @I@@@# GETFLD SAMECD VX )@@G@@ . GET COUNT OF NUMBER OF FILES CD332900 @I@@@# LMJ VY )@@G@@ X11,NOVAL . GO WORK THE COUNT CD333000 @I@@@#VZ )@@G@@ L A1,(' 1') . FILE COUNT = 1 IF NONE GIVEN WA )@@G@@CD333100 @I@@@# SA A1,X2 . WB )@@G@@ CD333200 @I@@@# SLJ CNVT WC )@@G@@ . CONVERT COUNT TO BINARY CD333300 @I@@@# L,U WD )@@G@@ A0,FOPT(2) . STORE F OPTION POINTER CD333400 @I@@@#WE )@@G@@ S A0,PNT . USED BY TPRD$ EOF ROUTINE WF )@@G@@CD333500 @I@@@# J FOPT(2) . DECREMENT FILEWG )@@G@@ COUNTER CD333600 @I@@@#CMPTP1 WH )@@G@@ . CD333700 @I@@@# DL WI )@@G@@ A0,F1NAM . INSERT CURRENT FILE NAME CD333800 @I@@@#WJ )@@G@@ DS A0,FILEN . WK )@@G@@CD333900 @I@@@# LMJ X11,TPRD$ . READ FIRST TAPWL )@@G@@E CD334000 @I@@@#F1NAM + 0 WM )@@G@@ . CD334100 @I@@@# + WN )@@G@@ 0 . CD334200 @I@@@#WO )@@G@@ + 4096,BLOCK . WP )@@G@@CD334300 @I@@@# + EOFCMP . EOF RETURN WQ )@@G@@ CD334400 @I@@@# INCR WR )@@G@@ . INCREMENT RECORD COUNT CD334500 @I@@@# L WS )@@G@@ A14,NOWDS$ . NUMBER OF WORDS READ CD334600 @I@@@#WT )@@G@@ S A14,WDSTP1 . WU )@@G@@CD334700 @I@@@#CMPTP2 . WV )@@G@@ CD334800 @I@@@# DL A0,F2NAM WW )@@G@@ . CHANGE FILE NAME CD334900 @I@@@# DS WX )@@G@@ A0,FILEN . CD335000 @I@@@#WY )@@G@@ LMJ X11,TPRD$ . READ SECOND TAPE WZ )@@G@@CD335100 @I@@@#F2NAM* + 0 . XA )@@G@@ CD335200 @I@@@# + 0 XB )@@G@@ . CD335300 @I@@@# + XC )@@G@@ 4096,BLOCK1 CD335400 @I@@@#XD )@@G@@ + EOF2ND . EOF RETURN XE )@@G@@CD335500 @I@@@# INCR . INCREMENT RECOXF )@@G@@RD COUNT CD335600 @I@@@# TZ EOFLAG XG )@@G@@ . WAS EOF ON FIRST TZPE CD335700 @I@@@# J XH )@@G@@ NOEFT2 . YES- ERROR CD335800 @I@@@#XI )@@G@@ L A15,NOWDS$ . COMPARE NR WORDS READ XJ )@@G@@CD335900 @I@@@# S A15,WDSTP2 . WORDS READ ON XK )@@G@@TAPE 2 CD336000 @I@@@# L,H2 A14,WDSTP1 XL )@@G@@ . PICK UP WORD COUNT ONLY . 3A @I@@@# L,H2 XM )@@G@@ A15,WDSTP2 . PICK UP WORD COUNT ONLY . 3A @I@@@#XN )@@G@@ TE A15,A14 . SAME NR WORDS BOTH TAPES XO )@@G@@CD336200 @I@@@# J GOOFNR . XP )@@G@@ CD336300 @I@@@# SZ A3 XQ )@@G@@ . INCREMENT FOR WORD COMPARISON CD336400 @I@@@#SAMWDS XR )@@G@@ . CD336500 @I@@@#XS )@@G@@ L A0,BLOCK,A3 . WORD FROM FIRST TAPE XT )@@G@@CD336600 @I@@@# TE A0,BLOCK1,A3 . WORDS FROM 2NDXU )@@G@@ TAPE CD336700 @I@@@# J GOOFWD XV )@@G@@ CD336800 @I@@@# A,U XW )@@G@@ A3,1 CD336900 @I@@@#XX )@@G@@ TE A15,A3 . ALL WORDS COMPARED] XY )@@G@@CD337000 @I@@@# J SAMWDS . XZ )@@G@@ CD337100 @I@@@# J CMPTP1 YA )@@G@@ . READ AND COMPARE NEXT BLOCK CD337200 @I@@@#EOFCMP YB )@@G@@ . CD337300 @I@@@#YC )@@G@@ INCR . EOF READ ON TAPE 1 YD )@@G@@CD337400 @I@@@# L,U A0,1 YE )@@G@@ CD337500 @I@@@# S A0,EOFLAG YF )@@G@@ . SET FLAG CD337600 @I@@@# SLJ YG )@@G@@ PRTEFX . PRINT EOF ENCOUNTERED MSG CD337700 @I@@@#YH )@@G@@ INCF . INC FILE COUNT AND ZERO RECORDS YI )@@G@@CD337800 @I@@@# J CMPTP2 . YJ )@@G@@ CD337900 @I@@@#EOF2ND YK )@@G@@ . CD338000 @I@@@# INCR YL )@@G@@ . CD338100 @I@@@#YM )@@G@@ TNZ EOFLAG . YN )@@G@@CD338200 @I@@@# J NOEFT1 . NO EOF ON TAPEYO )@@G@@ 1 CD338300 @I@@@# SLJ PRTEFX YP )@@G@@ . END OF FILE ENCOUNTERED CD338400 @I@@@# TZ,H2 YQ )@@G@@ CNTYP . ERRORS ? BPD 03F @I@@@#YR )@@G@@ J PRTNUM . YES PRINT MESSAGE YS )@@G@@BPD 03F @I@@@# L A0,ADPKT3 . YOUR TAPES COMYT )@@G@@PARE CD338500 @I@@@# ER PRINT$ YU )@@G@@ . CD338600 @I@@@# INCF YV )@@G@@ . UP FILE COUNT-ZERO RECORD CNT CD338700 @I@@@#YW )@@G@@ J NXTCMP . GET NEXT FILE YX )@@G@@BPD 03F @ @@@#PRTNUM . BPD 03F @I@@@# LA YY )@@G@@ A0,CNTYP . GET COUNTER BPD 03F @I@@@#YZ )@@G@@ LSSL A0,6 . DROP RUN TYPE ZA )@@G@@BPD 03F @I@@@# SSL A0,6 . ZB )@@G@@ BPD 03F @I@@@# E$BD 6,ERRCNT,6 ZC )@@G@@ . CONVERT OCTAL TO FD BPD 03F @I@@@# LA ZD )@@G@@ A0,(0212,ERRCNT) . PRINT ERROR MSG BPD 03F @I@@@#ZE )@@G@@ ER PRINT$ . ZF )@@G@@BPD 03F @I@@@# INCF . ZG )@@G@@ BPD 03F @I@@@#NXTCMP ZH )@@G@@ . CD338800 @I@@@# SZ ZI )@@G@@ EOFLAG . CD338900 @I@@@#ZJ )@@G@@ TZ,S6 OPTION . ZK )@@G@@CD339000 @I@@@#FOPT(2) JGD X2,CMPTP1 . READ NEXT FILEZL )@@G@@- F OPTION CD339100 @I@@@# J CDIMGE ZM )@@G@@ . GET NEXT COMMAND CD339200 @I@@@#NOEFT2 DL ZN )@@G@@ A0,F2NAM . CD339300 @I@@@#ZO )@@G@@ DS A0,NOTEOF+9 . ZP )@@G@@CD339400 @I@@@# L A0,ADPKT4 . EOF EXPECTED, ZQ )@@G@@NOT ENCOUNTERED CD339500 @I@@@# ER PRINT$ ZR )@@G@@ . CD339600 @I@@@# S ZS )@@G@@ X2,SAVJGD . SAVE FILE COUNT IS IS ONE CD339700 @I@@@#ZT )@@G@@ LA,U A0,1 . ZU )@@G@@CD339800 @I@@@# S A0,NO2EOF . RETURN FROM PSZV )@@G@@F SWITHC CD339900 @I@@@# L X2,(037777777777ZW )@@G@@) . DUMMY RECORD COUNT CD340000 @I@@@# J ZX )@@G@@ REPEAT . POSITION T2 PAST EOF CD340100 @I@@@#ZY )@@G@@NOEFT1 . NO EOF ON T1, IS ON T2 ZZ )@@G@@CD340200 @I@@@# DL A0,F2NAM . LOAD FILENAME AA )@@G@@IN ERROR MSG CD340300 @I@@@# DS A0,BLOWIT+13 AB )@@G@@ . CD340400 @I@@@# SLJ AC )@@G@@ QGETAD . GET BLOCK COUNT CD340500 @I@@@#AD )@@G@@ L A0,2,A0 . AE )@@G@@CD340600 @I@@@# E$BD 6,BLOWIT+10,6 . STORE BLOCK COAF )@@G@@UNT CD340700 @I@@@# L A0,ADPKT7 AG )@@G@@ CD340800 @I@@@# ER AH )@@G@@ PRINT$ . CD340900 @I@@@#AI )@@G@@ INCF . UP FILE, ZERO RECORD COUNTS AJ )@@G@@CD341000 @I@@@# DL A0,F1NAM . SWAP FILE NAMEAK )@@G@@S TO POSTION CD341100 @I@@@# DS A0,FILEN AL )@@G@@ . CD341200 @I@@@# S AM )@@G@@ X2,SAVJGD . SAVE FILE COUNT CD341300 @I@@@#AN )@@G@@ LA,U A0,1 . AO )@@G@@CD341400 @I@@@# S A0,NO2EOF . RETURN FROM PSAP )@@G@@F SWITCH CD341500 @I@@@# L X2,(037777777777AQ )@@G@@) . DUMMY RECORD COUNT CD341600 @I@@@# J AR )@@G@@ REPEAT . POSITION F1 PAST EOF CD341700 @I@@@#AS )@@G@@GOOFNR . NR WORDS 2 TAPES DIFFERENT AT )@@G@@CD341800 @I@@@# L,U A0,0050004 . TEST FOR ODD NAU )@@G@@R WDS ON 9 TRACK . 3A @I@@@# TNE,H1 A0,WDSTP1 AV )@@G@@ . AFC ON TAPE 1 WITH 5 FRAMES . 3A @I@@@# J AW )@@G@@ AFCTP1 . AFC IS ON TAPE 1 . 3A @I@@@#AX )@@G@@ TE,H1 A0,WDSTP2 . NOT ON 1 TRY TAPE 2 AY )@@G@@ . 3A @I@@@# J TRUGOF . HAVE TRUE NON AZ )@@G@@COMPARE ERROR . 3A @I@@@# L,H2 A0,WDSTP2 BA )@@G@@ . NR WORDS READ + PAD . 3A @I@@@# ANA,U BB )@@G@@ A0,1 . DECREADE FOR PAD . 3A @I@@@#BC )@@G@@ TE,H2 A0,WDSTP1 . SAME NR WORDS WITHOUT AFC BD )@@G@@ . 3A @I@@@# J TRUGOF . NO BE )@@G@@ . 3A @I@@@# LA A0,EQUIP2 BF )@@G@@ . TEST FOR 9 TRACK TAPE . 3A @I@@@# TE,U BG )@@G@@ A0,05 . NINE TRACK TAPE DRIVE 8C9 . 3A @I@@@#BH )@@G@@ J TRUGOF . NOT NINE TRACK BI )@@G@@ . 3A @I@@@# LA A0,EQUIP1 . MUST BE 7 AND BJ )@@G@@9 TRACK COMPARISON . 3A @I@@@# TE,U A0,3 BK )@@G@@ . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@# J BL )@@G@@ TRUGOF . . 3A @I@@@#BM )@@G@@ ANA,U A15,1 . USE 1 LESS WD FOR COMPARE BN )@@G@@ . 3A @I@@@# J CMPAFC . PRINT WARNING BO )@@G@@FOR USER IF NOT DONE . 3A @I@@@#AFCTP1 L A0,EQUIP1 BP )@@G@@ . TEST FOR 9 TRACK TAPE DRIVE . 3A @I@@@# TE,U BQ )@@G@@ A0,05 . . 3A @I@@@#BR )@@G@@ J TRUGOF . NOT 9 TRACK DRIVE BS )@@G@@ . 3A @I@@@# L A0,EQUIP2 . MUST BE 7 AND BT )@@G@@9 TRACK COMPARE . 3A @I@@@# TE,U A0,3 BU )@@G@@ . SEVEN TRACK DRIVE WITH TRANSLATE . 3A @I@@@# J BV )@@G@@ TRUGOF . . 3A @I@@@#BW )@@G@@ ANA,U A14,1 . DECREASE NR WORDS FOR PAD BX )@@G@@ . 3A @I@@@# TE,H2 A14,A15 . SAME SIZE WITHBY )@@G@@OUT PADDING . 3A @I@@@# J TRUGOF BZ )@@G@@ . . 3A @I@@@#CMPAFC CA )@@G@@ . . 3A @I@@@#CB )@@G@@ J SAMWDS-1 . TEST WORD COMPARISON CC )@@G@@ . 3A @I@@@#TRUGOF . CD )@@G@@ . 3A @I@@@# LMJ X11,CKTPRT CE )@@G@@ . CHECK # OF ERRORS BPD 03F @I@@@# J CF )@@G@@ CMPTP1 . RETURN HERE - DON'T PRINT BPD 03F @I@@@#CG )@@G@@ DL A0,F1NAM CH )@@G@@CD341900 @I@@@# DS A0,FRSTFIL . CI )@@G@@ CD342000 @I@@@# DL A0,F2NAM CJ )@@G@@ . CD342100 @I@@@# DS CK )@@G@@ A0,SECDFIL . CD342200 @I@@@#CL )@@G@@ LA A0,DIFFBL . B DIFFERENT BLOCK SIZE CM )@@G@@CD342300 @I@@@# ER PRINT$ . CN )@@G@@ CD342400 @I@@@# J GOOFIT CO )@@G@@ . CD342500 @C@@@#CKTPRT . CP )@@G@@ BPD 03F @I@@@# LA A0,CNTYP CQ )@@G@@ . GET ERROR CNT BPD 03F @I@@@# AA,U CR )@@G@@ A0,1 . ADD ONE BPD 03F @I@@@#CS )@@G@@ SA A0,CNTYP . CT )@@G@@BPD 03F %[@@@@-541 @I@@@# TZ,S4 OPTION . P CU )@@G@@OPTION SET ? BPD 03G @I@@@# J 1,X1CV )@@G@@1 . YES PRINT IT BPD 03G @I@@@# CW )@@G@@ TZ,S1 CNTYP . DEMAND ? BPD 03CX )@@G@@F @I@@@# J 0,X11 . YES, DON'T PRINT BLKCY )@@G@@S BPD 03F @I@@@# L,U A0,10 . LICZ )@@G@@MIT OF 10 BPD 03F @I@@@# TLE A0,CDA )@@G@@NTYP . PRINTED 10 ALREADY ? BPD 03F @I@@@# DB )@@G@@ J 0,X11 . YES DON'T PRINT BPD 03DC )@@G@@F @I@@@# J 1,X11 . NO PRINTIT DD )@@G@@ BPD 03F @I@@@#GOOFWD . WODE )@@G@@RDS DID NOT COMPARE CD342600 @I@@@# LMJ X11,DF )@@G@@CKTPRT . CHECK # OF PRINTS BPD 03F @I@@@# DG )@@G@@ J CMPTP1 . YES, DON'T PRINT BLKS BPD 03DH )@@G@@F @I@@@# DL A0,F1NAM . DI )@@G@@ CD342700 @I@@@# DS A0,FSTFL . DJ )@@G@@ CD342800 @I@@@# DL A0,FDK )@@G@@2NAM . CD342900 @I@@@# DL )@@G@@ DS A0,SCDFL . CD3430DM )@@G@@00 @I@@@# LA A0,A3 . NR WORD NOT COMPARINDN )@@G@@G CD343100 @I@@@# E$BD 6,WRDCNT,6 . DO )@@G@@ CD343200 @B@@@# LA A0,NDP )@@G@@OCMP . @I@@@# ER PRINT$ . DQ )@@G@@ CD343300 @I@@@#GOOFIT DR )@@G@@ . POSITION 2 TAPES PAST EOF CD343400 @B@@@A LADS )@@G@@,U A0,10 . @B@@@A TLE A0,CNTYP DT )@@G@@ . @B@@@A J CMPTP1 . @I@ @# LADU )@@G@@,U A0,10 . GET # ERRORS BPD 03F DV )@@G@@@I@ @# TLE A0,CNTYP . LESS THAN 10 ERRORS ? DW )@@G@@ BPD 03F @I@ @# J CMPTP1 . NO, DON'DX )@@G@@T PRINT BLKS BPD 03F @I@@@# DL A0,F1NAM DY )@@G@@ . CD343500 @I@@@# DSDZ )@@G@@ A0,FILEN . CD343600 EA )@@G@@@I@@@# L A0,WDSTP1 . EB )@@G@@ CD343700 @I@@@# S,H2 A0,NOWDS$ . EC )@@G@@ CD343800 @I@@@# SLJ PRTO ED )@@G@@ CD343900 @I@@@# L EE )@@G@@ R1,WDSTP2 . CD344000 EF )@@G@@@I@@@# L,U A0,BLOCK1 . TRANSFER 2ND BLOCK TO PRINEG )@@G@@T IT CD344100 @I@@@# LXI,U A0,1 . EH )@@G@@ CD344200 @I@@@# L,U A1,BLOCK EI )@@G@@ . CD344300 @I@@@# LXEJ )@@G@@I,U A1,1 . CD344400 EK )@@G@@@I@@@# BT A1,0,*A0 . EL )@@G@@ CD344500 @I@@@# L A0,WDSTP2 . EM )@@G@@ CD344600 @I@@@# S,H2 A0,NOWDS$ EN )@@G@@ . CD344700 @I@@@# DLEO )@@G@@ A0,F2NAM . CD344800 EP )@@G@@@I@@@# DS A0,FILEN . EQ )@@G@@ CD344900 @I@@@# SLJ PRTO . ER )@@G@@ CD345000 @I@@@# J CMPTP1 ES )@@G@@ . CONTINUE CMP BPD 03F @I@@@#NOT2ND ET )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 EU )@@G@@@I@@@# L A0,ADPKT5 . EV )@@G@@ CD346000 @I@@@# ER PRINT$ . EW )@@G@@ CD346100 @I@@@# J CDIMGE EX )@@G@@ . CD346200 @I@@@#NXTFLE DLEY )@@G@@ A0,F2NAM CD346300 EZ )@@G@@@I@@@# DS A0,FILEN FA )@@G@@ CD346400 @I@@@# LA,U A0,1 FB )@@G@@ CD346500 @I@@@# S A0,NO2EOF FC )@@G@@ CD346600 @I@@@# L FD )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD346700 FE )@@G@@@I@@@# SZ NONO . FF )@@G@@ CD346800 @I@@@# J REPEAT . GO MOVE TFG )@@G@@HE TAPE TO NEXT EOF CD346900 @I@@@#/ . WRITE OVER TAPE TO END OFFH )@@G@@ TAPE MARKER CD347000 @I@@@#OVERWT CLFI )@@G@@RR . CLEAR RECORD COUNTER CD347100 FJ )@@G@@@I@@@# LA,S5 A0,OPTION FK )@@G@@ CD347200 @I@@@# TEP,U A0,1 FL )@@G@@ CD347300 @I@@@# J DRUMASK FM )@@G@@ . DRUM CODE NOT IMPLEMENTED CD347400 @I@@@# DLFN )@@G@@ A0,FILEN CD347500 FO )@@G@@@I@@@# DS A0,TAPPKT FP )@@G@@ CD347600 @I@@@# L,U A0,011 . WRITE EOFQ )@@G@@F FIRST - FOR 2 EOFS TO CD347700 @I@@@# S,S2 A0,TAPPKT+FR )@@G@@3 CD347800 @I@@@# L,FS )@@G@@U A0,TAPPKT CD347900 FT )@@G@@@I@@@# ER IOW$ FU )@@G@@ CD348000 @I@@@# L,S1 A0,TAPPKT+3 FV )@@G@@ CD348100 @I@@@# JNZ A0,ERRWRT FW )@@G@@ CD348200 @I@@@# L,FX )@@G@@U A0,010 CD348300 FY )@@G@@@I@@@# S,S2 A0,TAPPKT+3 . WRITE FUNCTION FZ )@@G@@ CD348400 @I@@@# L A0,CLEAR GA )@@G@@ CD348500 @I@@@# S A0,BLOCK GB )@@G@@ CD348600 @I@@@# L,GC )@@G@@U A0,061 . TRANSFER ALL WORDS FROM SAME LOCCD348700 GD )@@G@@@I@@@# S,S1 A0,TAPPKT+4 GE )@@G@@ CD348800 @I@@@#CLRWRT L,U A0,TAPPKT . WRITE LOGF )@@G@@OP CD348900 @I@@@# ER IOW$ GG )@@G@@ CD349000 @I@@@# INGH )@@G@@CR . INCREMENT RECORD COUNT CD349100 GI )@@G@@@I@@@# L,S1 A0,TAPPKT+3 GJ )@@G@@ CD349200 @I@@@# JZ A0,CLRWRT GK )@@G@@ CD349300 @I@@@# TE,U A0,2 GL )@@G@@ CD349400 @I@@@# J GM )@@G@@ ERRWRT CD349500 GN )@@G@@@I@@@# L,U A0,011 . END OF FILE FOR TAPE GO )@@G@@ CD349600 @I@@@# S,T1 A0,TAPPKT+3 GP )@@G@@ CD349700 @I@@@# L,U A0,TAPPKT GQ )@@G@@ CD349800 @I@@@# ERGR )@@G@@ IOW$ CD349900 GS )@@G@@@I@@@# L,U A0,TAPPKT GT )@@G@@ CD350000 @I@@@# ER IOW$ GU )@@G@@ CD350100 @I@@@# L,U A0,051 GV )@@G@@ . BACKSPACE OVER EOF CD350200 @I@@@# S,GW )@@G@@T1 A0,TAPPKT+3 CD350300 GX )@@G@@@I@@@# L,U A0,TAPPKT GY )@@G@@ CD350400 @I@@@# ER IOW$ GZ )@@G@@ CD350500 @I@@@# ER IOW$ HA )@@G@@ CD350600 @I@@@# DLHB )@@G@@ A0,FILEN CD350700 HC )@@G@@@I@@@# DS A0,CLRMSG HD )@@G@@ CD350800 @I@@@# SLJ QGETAD . NEED MESHE )@@G@@SAGE -HOW MUCH WROTE CD350900 @I@@@# L A0,2,A0 HF )@@G@@ . LOAD RECORD COUNT CD351000 @I@@@# E$HG )@@G@@BD 6,BEFEOT,6 CD351100 HH )@@G@@@I@@@# L A0,CLRPKT HI )@@G@@ CD351200 @I@@@# ER PRINT$ HJ )@@G@@ CD351300 @I@@@# L,U A0,01 HK )@@G@@ . RESTORE TAPE PACKET FOR OTHER COCD351400 @I@@@# S,HL )@@G@@S1 A0,TAPPKT+4 CD351500 HM )@@G@@@I@@@# TNZ,S6 OPTION . IS F OPTON SET HN )@@G@@ CD351600 @I@@@# A,U A0,1 . SET DUMMHO )@@G@@Y F OPTION INDICATOR CD351700 @I@@@# S,S6 A0,OPTION HP )@@G@@ . PSB TEST IS FOR NONZERO - WILL WCD351800 @I@@@# S HQ )@@G@@ A0,OVWJMP . SWITCH TO RETURN HERE FROM PSB CD351900 HR )@@G@@@I@@@# L,U X2,1 . LOAD FILE COUNT FOR PSB COHS )@@G@@MMAND CD352000 @I@@@# J BWDSET . POSITIONHT )@@G@@ BACK TO BEGINNING OF #CCD352100 @I@@@#OVWRET . HU )@@G@@ CD352200 @I@@@# L,HV )@@G@@U A0,020 . READ FORWARD OVER EOF CD352300 HW )@@G@@@I@@@# S,S2 A0,TAPPKT+3 HX )@@G@@ CD352400 @I@@@# L,U A0,TAPPKT HY )@@G@@ CD352500 @I@@@# ER IOW$ HZ )@@G@@ CD352600 @I@@@# L,IA )@@G@@S1 A0,TAPPKT+3 CD352700 IB )@@G@@@I@@@# TE,U A0,1 . WAS AN END OF FILE READ IC )@@G@@ CD352800 @I@@@# J ERRWRT ID )@@G@@ CD352900 @I@@@# INCF IE )@@G@@ . UP FILE - ZERO RECORD COUNT CD353000 @I@@@# L IF )@@G@@ A1,OVWJMP CD353100 IG )@@G@@@I@@@# L,U A0,0 IH )@@G@@ CD353200 @I@@@# S A0,OVWJMP . REMOVE SII )@@G@@WITCH FOR PSB CD353300 @I@@@# TE,U A1,2 IJ )@@G@@ . WAS A FILE OPTION DUMMIED CD353400 @I@@@# J IK )@@G@@ CDIMGE CD353500 IL )@@G@@@I@@@# S,S6 A0,OPTION . REMOVE FILES OPTION IM )@@G@@ CD353600 @I@@@# J CDIMGE IN )@@G@@ CD353700 @I@@@#ERRWRT SLJ QGETAD IO )@@G@@ CD353800 @I@@@# L IP )@@G@@ A0,2,A0 CD353900 IQ )@@G@@@I@@@# E$BD 6,ERRBLK,6 IR )@@G@@ CD354000 @I@@@# DL A0,FILEN IS )@@G@@ CD354100 @I@@@# DS A0,ERCLR IT )@@G@@ CD354200 @I@@@# L IU )@@G@@ A0,CLERRM CD354300 IV )@@G@@@I@@@# ER PRINT$ IW )@@G@@ CD354400 @I@@@# L,U A0,01 . RESTORE IX )@@G@@TAPE PACKET FOR OTHER COCD354600 @I@@@# S,S1 A0,TAPPKT+IY )@@G@@4 CD354700 @I@@@# ERIZ )@@G@@ EXIT$ CD354800 JA )@@G@@@B@@@#DRMCHK . @I@@@#DRUMASK DL JB )@@G@@ A0,FILEN CD355000 @I@@@#JC )@@G@@ DS A0,DRMNO JD )@@G@@CD355100 @I@@@# L A0,DRMNCL JE )@@G@@ CD355200 @I@@@# ER PRINT$ JF )@@G@@ CD355300 @I@@@# ER JG )@@G@@ EXIT$ CD355400 @I@@@#JH )@@G@@/. CHECK FOR 4096 WORD BLOCKS OF #CLEAR JI )@@G@@CD355500 @I@@@#CHECKWT CLRR . CLEAR RECORD CJJ )@@G@@OUNT CD355600 @I@@@# LA,S5 A0,OPTION JK )@@G@@ CD355700 @I@@@# TEP,U JL )@@G@@ A0,1 CD355800 @I@@@#JM )@@G@@ J DRMCHK JN )@@G@@CD355900 @I@@@# DL A0,FILEN JO )@@G@@ CD356000 @I@@@# DS A0,TAPPKT JP )@@G@@ . PUT FILE NAME IN IO PACKET CD356100 @I@@@# L,U JQ )@@G@@ A0,020 CD356200 @I@@@#JR )@@G@@ S,S2 A0,TAPPKT+3 . READ FUNCTION JS )@@G@@CD356300 @I@@@# SZ WRDRD JT )@@G@@ CD356400 @I@@@#CHKLOP INCR JU )@@G@@ . INCREMENT RECORD COUNT CD356500 @I@@@# L,U JV )@@G@@ A0,TAPPKT CD356600 @I@@@#JW )@@G@@ ER IOW$ . READ A BLOCK FROM TAPE JX )@@G@@CD356700 @I@@@# L,S1 A0,TAPPKT+3 . GET STATUS OF JY )@@G@@READ CD356800 @I@@@# JNZ A0,EOTCHK JZ )@@G@@ . CHECK FOR END OF TAPE MARKER CD356900 @I@@@# L,H2 KA )@@G@@ A1,TAPPKT+3 . NUMBER OF WORDS READ CD357000 @I@@@#KB )@@G@@ TNE,U A1,4096 KC )@@G@@CD357100 @I@@@# J $+3 KD )@@G@@ CD357200 @I@@@# S A1,WRDRD KE )@@G@@ . NOT 4096 WORD READ CD357300 @I@@@# J KF )@@G@@ CNTERR CD357400 @I@@@#KG )@@G@@ L A0,CLEAR KH )@@G@@CD357500 @I@@@# L,U R1,4096 KI )@@G@@ CD357600 @I@@@# SNE A0,BLOCK KJ )@@G@@ . SEARCH FOR NONMATCHING WORD CD357700 @I@@@# J KK )@@G@@ CHKLOP CD357800 @I@@@#KL )@@G@@ S R1,WRDRD . WORD NUMBER WHICH IS BAD KM )@@G@@CD357900 @I@@@#CHKERR DL A1,FILEN KN )@@G@@ CD358000 @I@@@# DS A1,BADCHK KO )@@G@@ . PUT FILE NAME IN ERROR MESSAGER CD358100 @I@@@# SLJ KP )@@G@@ QGETAD CD358200 @I@@@#KQ )@@G@@ L A0,2,A0 . LOAD RECORD COUNT KR )@@G@@CD358300 @I@@@# E$BD 6,BDLNR,6 . PUT IN ERROR MKS )@@G@@ESSAGE CD358400 @I@@@# L,U A0,4096 KT )@@G@@ . COMPUTE BAD WORD NUMBER CD358500 @I@@@# L KU )@@G@@ A1,WRDRD CD358600 @I@@@#KV )@@G@@ ANA A0,A1 KW )@@G@@CD358700 @I@@@# E$BD 6,BDWRD,6 . PUT IN ERROR MKX )@@G@@ESSAGE CD358800 @I@@@# L A0,BDCKMG KY )@@G@@ CD358900 @I@@@# ER KZ )@@G@@ PRINT$ CD359000 @I@@@#LA )@@G@@ ER EXIT$ LB )@@G@@CD359100 @I@@@#CNTERR . ERROR- NOT 409LC )@@G@@6 WORDS CD359200 @I@@@# DL A1,FILEN LD )@@G@@ CD359300 @I@@@# DS LE )@@G@@ A1,BADCNT CD359400 @I@@@#LF )@@G@@ SLJ QGETAD LG )@@G@@CD359500 @I@@@# L A0,2,A0 . RECORD COUNT LH )@@G@@ CD359600 @I@@@# E$BD 6,CEBLOK,6 LI )@@G@@ CD359700 @I@@@# L LJ )@@G@@ A0,WRDRD . WORDS ACTUALLY READ CD359800 @I@@@#LK )@@G@@ E$BD 6,CEWORD,6 LL )@@G@@CD359900 @I@@@# L A0,CEMSG LM )@@G@@ CD360000 @I@@@# ER PRINT$ LN )@@G@@ CD360100 @I@@@# ER LO )@@G@@ EXIT$ CD360200 @I@@@#LP )@@G@@. LQ )@@G@@CD360300 @B@@@#EOTCHK . @I@@@# LR )@@G@@ L,U A1,1 . CHECK FOR END OF FILE CD3605LS )@@G@@00 @I@@@# TE A0,A1 . END OF TAPE READ LT )@@G@@ CD360600 @I@@@# J BADSTA . ENLU )@@G@@D OF TAPE MARKRR CD360700 @I@@@# L,U A0,TLV )@@G@@APPKT CD360800 @I@@@# LW )@@G@@ ER IOW$ . SECOND END OF FILE CD3609LX )@@G@@00 @I@@@# L,S1 A0,TAPPKT+3 LY )@@G@@ CD361000 @I@@@# TE A0,A1 LZ )@@G@@ CD361100 @I@@@# J BADSMA )@@G@@TA . SHOULD HAVE READ EOF - DID NOT CD361200 @I@@@# MB )@@G@@ L,U A0,051 . BACKSPACE OVER SECOND END OF FILCD3613MC )@@G@@00 @I@@@# S,S2 A0,TAPPKT+3 MD )@@G@@ CD361400 @I@@@# L,U A0,TAPPKT ME )@@G@@ CD361500 @I@@@# ER IOW$MF )@@G@@ CD361600 @I@@@# MG )@@G@@ DCRR . DECREASE FOR END FILE BLOCK CD3617MH )@@G@@00 @I@@@# DL A0,FILEN . ALL BLOCKS HABE BEENMI )@@G@@ READ CD361800 @I@@@# DS A0,SUCCHK MJ )@@G@@ CD361900 @I@@@# SLJ QGETMK )@@G@@AD . GET ADDRESS OF FILE COUNTERS CD362000 @I@@@# ML )@@G@@ L A0,2,A0 . GET RECORD COUNT CD3621MM )@@G@@00 @I@@@# E$BD 6,SUCBLK,6 MN )@@G@@ CD362200 @I@@@# L A0,CHKMSG MO )@@G@@ CD362300 @I@@@# ER PRINMP )@@G@@T$ CD362400 @I@@@# MQ )@@G@@ INCF . UP FILE - ZERO RECORD COUNT CD3625MR )@@G@@00 @I@@@# J CDIMGE MS )@@G@@ CD362600 @I@@@#. MT )@@G@@ CD362700 @I@@@#BADSTA DL A1,FMU )@@G@@ILEN . UNEXPECTED STATUS RETURNED BY RECD362800 @I@@@# MV )@@G@@ DS A1,STAMSG CD3629MW )@@G@@00 @I@@@# E$BD 6,STAT,6 . STATUS IS IN A0 - PUMX )@@G@@T IN MSG CD363000 @I@@@# SLJ QGETAD MY )@@G@@ CD363100 @I@@@# L A0,2MZ )@@G@@,A0 CD363200 @I@@@# NA )@@G@@ E$BD 6,RCDSTA,6 . PUT RECORD COUNT IN MESSAGE CD3633NB )@@G@@00 @I@@@# L A0,STAPKT NC )@@G@@ CD363400 @I@@@# ER PRINT$ ND )@@G@@ CD363500 @I@@@# L$SNAP 'IO NE )@@G@@PKT',07,05,TAPPKT CD363600 @I@@@# NF )@@G@@ ER EXIT$ CD3637NG )@@G@@00 @I@@@#/. GENERAL UTILITY ROUTINES NH )@@G@@ CD363800 @I@@@#BADCOM L A0,PRTERR . BANI )@@G@@D PARAMETER CARD CD363900 @I@@@# ER PRINNJ )@@G@@T$ . PRINT IT CD364000 @I@@@# NK )@@G@@ L A0,LESX . FOLLOWING OPER. NOT PERFORMED CD3641NL )@@G@@00 @I@@@# ER PRINT$ NM )@@G@@ CD364200 @I@@@# J CDIMGE . GENN )@@G@@T NEXT CONTROL CARD BPD 03F @[@@@#. @I@@@#. ORIGIONAL NO )@@G@@CODE FELL THROUGH TO BDCMI . BPD 03F NP )@@G@@@[@@@#. @I@@@#BDCMI L A0,RDPKT NQ )@@G@@ CD364300 @I@@@# ER READ$ NR )@@G@@ CD364400 @I@@@# S,S3 NS )@@G@@ A0,PPKT . NR WORDS TO PRINT CD364500 @I@@@#NT )@@G@@ L A0,PPKT NU )@@G@@CD364600 @I@@@# ER PRINT$ NV )@@G@@ CD364700 @I@@@# J BDCMI NW )@@G@@ . LOOP TIL READ @CARD CD364800 @I@@@#NOVAL NOP NX )@@G@@ . CD364900 @I@@@#NY )@@G@@ JNZ A2,1,X11 . USER HAS COUNT. GO BACK NZ )@@G@@CD365000 @I@@@# L X2,(037777777777) . LOAD A RECORD OA )@@G@@COUNT WE CD365100 @I@@@# J 0,X11 OB )@@G@@ . GO BACK WITH PHONEY COUNT CD365200 @B@@@#EOFILE* NOP OC )@@G@@ . @I@@@# INCR OD )@@G@@ CD365400 @I@@@# SLJ PRTEOE )@@G@@FX CD365500 @I@@@# OF )@@G@@ INCF CD3656OG )@@G@@00 @I@@@# TZ,S6 OPTION . F OPTION SET? OH )@@G@@ CD365700 @I@@@# J *PNT . YESOI )@@G@@ CD365800 @I@@@# SZ DUPPOJ )@@G@@NT . RESET TAPE TO DRUM FLAG CD365900 @I@@@# OK )@@G@@ J CDIMGE CD3660OL )@@G@@00 @B@@@#CNVT NOP . @I@@@# LMOM )@@G@@J X11,CONVERT . CONVERT FIELDDATA NR IN X2 TO BINCD366200 ON )@@G@@@I@@@# J *CNVT OO )@@G@@ CD366300 @I@@@# . OP )@@G@@ CD366400 @I@@@#PRTEFX* NOP . OQ )@@G@@ . PRINT EOF ENCOUNTERED MESSAGE CD366500 @I@@@# SLOR )@@G@@J QGETAD . RETURNS ADDRESS OF FILENAME IN ACD366600 OS )@@G@@@I@@@# L A0,2,A0 . RECORD COUNT - BINARY OT )@@G@@ CD366700 @I@@@# E$BD 6,BLKNUM,6 OU )@@G@@ CD366800 @I@@@# SLJ QGETAD OV )@@G@@ . CD366900 @I@@@# LAOW )@@G@@ A0,3,A0 . BLOCK COUNT CD367000 OX )@@G@@@I@@@# E$BD 6,FILENUM,3 . OY )@@G@@ CD367100 @I@@@# DL A0,FILEN . OZ )@@G@@ CD367200 @I@@@# DS A0,FILNAM PA )@@G@@ . CD367300 @I@@@# LAPB )@@G@@ A0,ADPKT1 . EOF ENCOUNTERED IN BLOCK OF FILECD367500 PC )@@G@@@I@@@# ER PRINT$ PD )@@G@@ CD367600 @I@@@# J *PRTEFX PE )@@G@@ CD367700 @I@@@#GETSCN* NOP PF )@@G@@ . ENTER SCAN ROUTINE CD367800 @I@@@# LMPG )@@G@@J X11,SCAN CD367900 PH )@@G@@@I@@@# + 1,CDADDR PI )@@G@@ CD368000 @I@@@# DO 4 , + 0 PJ )@@G@@ CD368100 @I@@@# J *GETSCN PK )@@G@@ CD368200 @I@@@#GENRD1 NOPL )@@G@@P . USED IN COPY ROUTINE CD368300 PM )@@G@@@I@@@# S X2,BS PN )@@G@@ CD368400 @I@@@# LA,S5 A0,OPTION . LOAD FOR PO )@@G@@D OPTION TEST CD368500 @I@@@# TOP,U A0,01 PP )@@G@@ . 'D' OPTION SET? CD368600 @I@@@# J PQ )@@G@@RDTP CD368700 PR )@@G@@@I@@@# TZ DUPPNT . PS )@@G@@ CD368800 @I@@@# J RDTP . PT )@@G@@ CD368900 @I@@@# SLJ DREAD PU )@@G@@ CD369000 @I@@@# LXPV )@@G@@ X2,BS . RESTORE X2 CD369100 PW )@@G@@@I@@@# J *GENRD1 PX )@@G@@ CD369200 @I@@@#RDTP LMJ X11,TPRD$ PY )@@G@@ CD369300 @I@@@#FN1 + 0 PZ )@@G@@ . NORMAL RTN-NR WORDS READ IN NOWDCD369400 @I@@@# + QA )@@G@@ 0 CD369500 QB )@@G@@@I@@@# + 4096,BLOCK QC )@@G@@ CD369600 @I@@@# + EOFILE . QD )@@G@@ CD369700 @I@@@# L X2,BS QE )@@G@@ CD369800 @I@@@# J QF )@@G@@ *GENRD1 CD369900 QG )@@G@@@I@@@#. ****************************************************************QH )@@G@@******CD370000 @I@@@#. THIS ROUTINE WILL ALLOW UPDATING THE FILE COUQI )@@G@@NT AND RECORD COUNT ON FCD370100 @I@@@#. FROM ONE TO TEN TAPES IN ONEQJ )@@G@@ RUN CD370200 @I@@@#QGETAD* NOP QK )@@G@@ . GET ADDR OF 4 WORD FILE INFO IN CD370300 QL )@@G@@@I@@@#I DO 6 , S X11+I-1,QSAVE+I-1 . SAVE REGISTERS QM )@@G@@ CD370400 @I@@@# L X11,QTAB QN )@@G@@ CD370500 @I@@@# LXI X11,(077777QO )@@G@@3) . A4=-4,4*NO ENTRIES CD370600 @I@@@# DLQP )@@G@@ A1,FILEN . PICKUP CURRENT FILENAME CD370700 QQ )@@G@@@I@@@#QLOOP JMGI X11,$+2 . CHECK FOR END OF ENTRIES QR )@@G@@ CD370800 @I@@@# J QNOFIN . NO MORE ENTQS )@@G@@RIES CD370900 @I@@@# DTE A1,QTAB+1,QT )@@G@@X11 . CK FOR MATCHING FILELNAME CD371000 @I@@@# J QU )@@G@@ QLOOP . NO MATCH CD371100 QV )@@G@@@I@@@# L,U A0,QTAB+1,X11 . PICK UP ADDRESS OF MATCH QW )@@G@@ CD371200 @I@@@# SZ X11 QX )@@G@@ CD371300 @I@@@# J *QGETAD QY )@@G@@ . EXIT CD371400 @I@@@#. NO MATCH FQZ )@@G@@OUND, THIS IS NEW FILENAME, ADD IT TO TABLE CD371500 RA )@@G@@@I@@@#QNOFIN L A0,QTAB . GET ADDESS AVAILABLE FOR RB )@@G@@ CD371600 @I@@@# L,U A0,QTAB+1,A0 . NEXT ENTRY RC )@@G@@ CD371700 @I@@@# DS A1,0,A0 RD )@@G@@. STARE FILENAME CD371800 @I@@@# L,RE )@@G@@U A4,4 . UPDATE COUNT OF ENTRIES CD371900 RF )@@G@@@I@@@# A A4,QTAB RG )@@G@@ CD372000 @I@@@# S A4,QTAB RH )@@G@@ CD372100 @I@@@# TG,U A4,41 RI )@@G@@ . TEST MAX FILE NAMES CD372200 @I@@@# J RJ )@@G@@ GETOUT . MORE THAN 10 FILES - ERROR *** CD372300 RK )@@G@@@I@@@# SZ X11 RL )@@G@@ CD372400 @I@@@# J *QGETAD . RM )@@G@@ CD372500 @I@@@#GETOUT L A0,(P 2,12RN )@@G@@,EXCEED) CD372600 @I@@@# ERRO )@@G@@ PRINT$ CD372700 RP )@@G@@@I@@@# ER ERR$ RQ )@@G@@ CD372800 @I@@@#INCRX* NOP . INCREMENRR )@@G@@T RECORD COUNTER CD372900 @I@@@# SLJ QGETAD RS )@@G@@ CD373000 @I@@@# L,RT )@@G@@U A1,1 CD373100 RU )@@G@@@I@@@# A A1,2,A0 RV )@@G@@ CD373200 @I@@@# S A1,2,A0 RW )@@G@@ CD373300 @I@@@# SLJ QREST RX )@@G@@ CD373400 @I@@@# J RY )@@G@@ *INCRX CD373500 RZ )@@G@@@I@@@#INCFX* NOP . INCREMENT FILE COUNTER SA )@@G@@ CD373600 @I@@@# SLJ QGETAD SB )@@G@@ CD373700 @I@@@# L,U A1,1 SC )@@G@@ CD373800 @I@@@# A SD )@@G@@ A1,3,A0 CD373900 SE )@@G@@@I@@@# S A1,3,A0 SF )@@G@@ CD374000 @I@@@# SZ 2,A0 . CLEAR RESG )@@G@@CORD COUNT CD374100 @I@@@# SLJ QREST SH )@@G@@ CD374200 @I@@@# J SI )@@G@@ *INCFX CD374300 SJ )@@G@@@I@@@#DCRRX* NOP . DECREMENT RECORD DOUNTER SK )@@G@@ CD374400 @I@@@# SLJ QGETAD SL )@@G@@ CD374500 @I@@@# L A1,2,A0 SM )@@G@@ CD374600 @I@@@# ANSN )@@G@@,U A1,1 CD374700 SO )@@G@@@I@@@# S A1,2,A0 SP )@@G@@ CD374800 @I@@@# SLJ QREST SQ )@@G@@ CD374900 @I@@@# J *DCRRX SR )@@G@@ CD375000 @I@@@#DCRFX* NOSS )@@G@@P . DECREMENT FILE COUNTER CD375100 ST )@@G@@@I@@@# SLJ QGETAD SU )@@G@@ CD375200 @I@@@# L A1,3,A0 SV )@@G@@ CD375300 @I@@@# AN,U A1,1 SW )@@G@@ CD375400 @I@@@# S SX )@@G@@ A1,3,A0 CD375500 SY )@@G@@@I@@@# SLJ QREST SZ )@@G@@ CD375600 @I@@@# J *DCRFX TA )@@G@@ CD375700 @I@@@#CLRRX* NOP TB )@@G@@ . CLEAR RECORD COUNTER CD375800 @I@@@# SLTC )@@G@@J QGETAD CD375900 TD )@@G@@@I@@@# SZ 2,A0 TE )@@G@@ CD376000 @I@@@# SLJ QREST TF )@@G@@ CD376100 @I@@@# J *CLRRX TG )@@G@@ CD376200 @B@@@#CLRFX* NOTH )@@G@@P . @I@@@# SLJ QGETAD .TI )@@G@@ CLEAR FILE COUNTER CD376400 @I@@@# L,U TJ )@@G@@ A1,1 CD376500 @I@@@#TK )@@G@@ S A1,3,A0 TL )@@G@@CD376600 @I@@@# SLJ QREST TM )@@G@@ CD376700 @I@@@# J *CLRFX TN )@@G@@ CD376800 @I@@@#QREST NOP TO )@@G@@ . RESTORE REGISTERS CD376900 @I@@@#TP )@@G@@I DO 6 , L X11+I-1,QSAVE+I-1 TQ )@@G@@CD377000 @I@@@# J *QREST TR )@@G@@ CD377100 @I@@@#ENFILE ER EXIT$ TS )@@G@@ . CD377200 @I@@@#/ . TT )@@G@@ CD377300 @B@@@#TU )@@G@@$(0) . @H@@@#SAVEX2 + 0 TV )@@G@@ . . 03D @I@@@#DUPPNT* + TW )@@G@@ 0 . POINTER FOR DUPING TAPE TO DRUM CD377500 TX )@@G@@@I@@@#NOWDS$* + 0 . TY )@@G@@ CD377600 @I@@@#PSERET + 0 . PSE RETUTZ )@@G@@RN FROM PSF CODE CD377700 @I@@@#NONO + 0 UA )@@G@@ . USED FOR BAD COUNT OR WORD ON CMPCD377800 @I@@@#PERIOD* + UB )@@G@@ 0 . FLAG TO STIP SCAN CD377900 UC )@@G@@@I@@@#NO2EOF + 0 . TWO CMP TAPES NOT EOF AT SUD )@@G@@AME PLCD378000 @I@@@#SAVJGD + 0 UE )@@G@@ CD378100 @I@@@#OPTION* + 0 UF )@@G@@ . OPTION WORD CD378200 @H@@@#OPTION2 + UG )@@G@@ 0 . SAVE FOR Q AND R OPTIONS . 03D @I@@@#UH )@@G@@PNT + 0 . LABEL POINTER WORD UI )@@G@@CD378300 %]@@@@-909,909 @E@@@#NOCOMM EQU 14 . NUMBER OF VALUJ )@@G@@ID COMMANDS BPD 03G %@@@@[@I@@@#NEWCRD EQU 1 UK )@@G@@ CD378500 @I@@@#SAMECD* EQU UL )@@G@@ 0 CD378600 @I@@@#UM )@@G@@BLOCK* RES 4096 UN )@@G@@CD378700 @I@@@#BS RES 1 UO )@@G@@ CD378800 @I@@@#CDADDR* RES 14 UP )@@G@@ CD378900 @I@@@#BLOCK1 RES UQ )@@G@@ 4096 CD379000 @I@@@#UR )@@G@@ DO 8 , +' ' US )@@G@@CD379100 @I@@@#COMMND RES 1 UT )@@G@@ CD379200 @I@@@#FILEN* RES 2 UU )@@G@@ CD379300 @I@@@#TEMP* RES UV )@@G@@ 1 CD379400 @I@@@#UW )@@G@@FREED '@FREE ' . PACKET TO FREE A FILE UX )@@G@@CD379500 @I@@@# + ' ' . UY )@@G@@ CD379600 @I@@@#TABL + 'DUP', COPY UZ )@@G@@ . TABLE OF PARAMETER COMMANDS CD379700 @I@@@# + VA )@@G@@ 'PRT', DUMP CD379800 @I@@@#VB )@@G@@ + 'PSF', POSFOR VC )@@G@@CD379900 @I@@@# + 'PSB', POSBWD VD )@@G@@ CD380000 @I@@@# + 'TEF', WREOF VE )@@G@@ CD380100 @I@@@# + VF )@@G@@ 'TRW', REWW CD380200 @I@@@#VG )@@G@@ + 'FRE', REWI VH )@@G@@CD380300 @I@@@# + 'PSE',POSF1 VI )@@G@@ CD380400 @I@@@# + 'CMP',COMPAR VJ )@@G@@ CD380500 @I@@@# + VK )@@G@@ 'OVW',OVERWT CD380600 @I@@@#VL )@@G@@ + 'CHK',CHECKWT VM )@@G@@CD380700 @I@@@# + 'SWP',SWAPRL VN )@@G@@ CD380800 @H@@@# + 'TRI',REWI VO )@@G@@ . ALLOW ILLEGAL CMDF OR TRANSITION CPD3 %[@@@@-934 @I@@@# + VP )@@G@@'OPT',NEWOPT . CHANGE OPTIONS BPD 03G VQ )@@G@@@I@@@#EQUIP1 + 0 VR )@@G@@ . 3A @I@@@#EQUIP2 + 0 VS )@@G@@ . 3A @I@@@#FACPAC RES 10 VT )@@G@@ . 3A @I@@@#P FOVU )@@G@@RM 12,6,18 CD380900 VV )@@G@@@I@@@#AFTERB P 2,9,BLKPOS VW )@@G@@ CD381000 @I@@@#PPKT* P 2,0,CDADDR VX )@@G@@ CD381100 @I@@@#PRTERR P 3,4,ERRADDVY )@@G@@ CD381200 @I@@@#WRERR P VZ )@@G@@ 2,13,BADWRI CD381300 WA )@@G@@@I@@@#LESX P 2,6,LEXI . WB )@@G@@ CD381400 @I@@@#NOCMP P 3,14,NOCOMP WC )@@G@@ CD381500 @I@@@#DIFFBL P 3,13,DIFBLWD )@@G@@K CD381600 @I@@@#CHKMSG P WE )@@G@@ 2,10,SUCCHK CD381700 WF )@@G@@@I@@@#BDCKMG P 2,14,BADCHK WG )@@G@@ CD381800 @I@@@#STAPKT P 2,20,STAMSG WH )@@G@@ CD381900 @I@@@#CLRPKT P 2,11,CLRMSWI )@@G@@G CD382000 @I@@@#CLERRM P WJ )@@G@@ 2,13,ERCLR CD382100 WK )@@G@@@I@@@#DRMNCL P 2,8,DRMNO WL )@@G@@ CD382200 @I@@@#CEMSG P 2,15,BADCNT WM )@@G@@ CD382300 @I@@@#CLEAR + '#CLEAR' WN )@@G@@ CD382400 @I@@@#OVWJMP + WO )@@G@@0 CD382500 WP )@@G@@@I@@@#CLRMSG ' TAPE OVERWRITTEN WITH ' WQ )@@G@@ CD382600 @I@@@#BEFEOT + ' ' WR )@@G@@ CD382700 @I@@@# ' BLOCKS OF 40WS )@@G@@96 WORDS ' CD382800 @I@@@#ERCLR WT )@@G@@ ' ERROR ENCOUNTERED IN BLOCK ' CD382900 WU )@@G@@@I@@@#ERRBLK + ' ' WV )@@G@@ CD383000 @I@@@# ' WHILE WRITING TO END OF TAPE.' WW )@@G@@ CD383100 @I@@@#DRMNO ' DRUWX )@@G@@M OVERWRITE CODE NOT IMPLEMENTED' CD383200 @I@@@#SUCCHK ' WY )@@G@@ SUCCESSFUL #CLEAR CHECK OF ' CD383300 WZ )@@G@@@I@@@#SUCBLK ' ' XA )@@G@@ CD383400 @I@@@# ' BLOCKS. ' XB )@@G@@ CD383500 @I@@@#BADCHK ' ERROR XC )@@G@@IN WORD ' CD383600 @I@@@#BDWRD ' XD )@@G@@ ' CD383700 XE )@@G@@@I@@@# ' OF BLOCK ' XF )@@G@@ CD383800 @I@@@#BDLNR ' ' XG )@@G@@ CD383900 @I@@@# ' WHILE SEARCHING FOXH )@@G@@R #CHECK.' CD384000 @I@@@#STAMSG ' XI )@@G@@ ERROR STATUS ' CD384100 XJ )@@G@@@I@@@#STAT ' ' XK )@@G@@ CD384200 @I@@@# ' RETURNED WHILE READING TAPE AT RECORXL )@@G@@D NUMBER ' CD384300 @I@@@#RCDSTA ' ' XM )@@G@@ CD384400 @I@@@# '.XN )@@G@@ ONLY 0 OR 1 STATUS ACCEPTABLE.' CD384500 XO )@@G@@@I@@@#BADCNT ' ' XP )@@G@@ CD384600 @I@@@#CEWORD ' WORDS READ IN BLOCK ' XQ )@@G@@ CD384700 @I@@@#CEBLOK ' . 4096 WORDS XR )@@G@@EXPECTED - CHECK ERROR. ' CD384800 @I@@@#BLKPOS ' XS )@@G@@ FILE POSITIONED AFTER BLOCK ' CD384900 XT )@@G@@@I@@@#AFTBLK ' . ' XU )@@G@@ CD385000 @F@@@#XMSG1 ' ** X OPTION SET. ONLY TXV )@@G@@HE FIRST LINE **' @F@@@#XMSG2 ' ** OF EACH RECORD WILL BXW )@@G@@E PRINTED. **' @I@@@#WRDRD + 0 XX )@@G@@ CD385100 @I@@@#QSAVE RES 6 XY )@@G@@ . REGISTER SAVE AREA CD385200 @H@@@# . THXZ )@@G@@E QTAB TABLE HOLDS INFORMATION RELATIVE . 03D @H@@@#YA )@@G@@ . TO OPEN FILES WITHIN CPD. THIS TABLE YB )@@G@@. 03D @H@@@# . IS USED TO CONTAIN FILE NAMES, RECORD YC )@@G@@ . 03D @H@@@# . POSITION INFORMATION AND FILE POSITIONYD )@@G@@ . 03D @H@@@# . INFORMATION. THE FORMAT IYE )@@G@@S ::: . 03D @H@@@# . YF )@@G@@ . 03D @H@@@# . 0 YG )@@G@@- 1 FILENAME . 03D @H@@@#YH )@@G@@ . 2 RECORD POSITION/DRUM SECTOR ADDRESS YI )@@G@@. 03D @H@@@# . 3 FILE POSITION COUNTER (ALWAYS 1 FOR DRUM) YJ )@@G@@ . 03D @I@@@#QTAB RES 1 . 4 WORDS YK )@@G@@PER FILE-FN,RECORD CNT, CD385300 @I@@@# DO 10 , DATA 0,0,0,1 YL )@@G@@ CD385400 @I@@@#ERRADD 'IYM )@@G@@LLEGAL PARAMETER CARD' CD385500 YN )@@G@@@I@@@#EXCEED 'EXCEEDED 10 FILE NAMES ON THIS RUN ' . YO )@@G@@ CD385600 @I@@@#BADWRI ' ERROR WHILE WRITING, COULD NOT CONTIYP )@@G@@NUE' CD385700 @I@@@#PRTLPF 'LOAD POINT ENCOUNTEREYQ )@@G@@D WHILE MOVING BACKWARD' . CD385800 @I@@@#CNTYP + 0 YR )@@G@@ . BITS 1 - 6 RUN TYPE, BITS 7 - 36 ERROR CNT BPD 03F YS )@@G@@@#@@@#ERRCNT ' ' @I@@@# ' BLOCKS OF ERRORS ENCOUNTERED ONYT )@@G@@ CMP' . BPD 03F @I@@@# ' **************YU )@@G@@*' BPD 03F @G@@@#LEXI 'YV )@@G@@PREVIOUS OPERATION NOT PERFORMED' BPD 03F @I@@@#YW )@@G@@MSGE 'FILE NOT ASSIGNED' YX )@@G@@. BPD 03F @I@@@#DIFBLK 'DIFFERENT SIZE BLOCKS WERE READ FROM FILE 'YY )@@G@@ CD386000 @I@@@#FRSTFIL + ' ' YZ )@@G@@. CD386100 @^@@@# 'AND FILZA )@@G@@E '@I@@@#SECDFIL + ' ' . ZB )@@G@@ CD386400 @I@@@#NOCOMP 'FILE ' ZC )@@G@@ CD386500 @I@@@#FSTFL + ' ZD )@@G@@ ' . CD386600 @^@@@# ZE )@@G@@ 'AND FILE '@I@@@#SCDFL + ' ' . ZF )@@G@@ CD386900 @C@@@# 'DID NOT COMPARE STAZG )@@G@@RTING AT WORD ** '@I@@@#WRDCNT + ' ' . ZH )@@G@@ CD387600 @C@@@#EOFM1 'END-OF-FILE WAS ENCZI )@@G@@OUNTERED IN BLOCK'@I@@@#BLKNUM + ' ' ZJ )@@G@@ CD388300 @^@@@# ' *FILE *** ' @I@@@#ZK )@@G@@FILNAM + ' ' ZL )@@G@@CD388600 @I@@@# + ' ' ZM )@@G@@ CD388700 @I@@@#FILENUM + 'NO. ' ZN )@@G@@ . CD388800 @F@@@#NOTEOF 'END-OF-ZO )@@G@@FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'@I@@@# + ZP )@@G@@ ' ' CD389800 @I@@@#ZQ )@@G@@ + ' ' ZR )@@G@@CD389900 @G@@@#BLOWIT 'AN END-OF-FILE WAS ENCOUNTERED BUT NOT EXPEZS )@@G@@CTED IN BLOCK ***'@I@@@# + ' ' . ZT )@@G@@ CD391000 @^@@@# '*** ON FILE '@I@@@#ZU )@@G@@ + ' ' ZV )@@G@@CD391300 @I@@@# + ' ' ZW )@@G@@ CD391400 @I@@@#ADPKT1 P 3,12,EOFM1 ZX )@@G@@ CD391500 @I@@@#ADPKT3 P ZY )@@G@@ 3,3,ITDID CD391600 @I@@@#ZZ )@@G@@ADPKT4 P 3,11,NOTEOF AA )@@G@@CD391700 @I@@@#ADPKT5 P 3,7,NOFNAM AB )@@G@@ CD391800 @I@@@#ADPKT7 P 3,15,BLOWIT AC )@@G@@ CD391900 @I@@@#EOFLAG + AD )@@G@@ 0 CD392000 @I@@@#AE )@@G@@WDSTP1 + 0 . HOLDS THE NO. OF WORDS FROM FIRSAF )@@G@@CD392100 @I@@@#WDSTP2 + 0 . NO. OF WORDS FAG )@@G@@ROM SECOND READ CD392200 @ @@@#NMANYF + 037777777777 @I@@@#AH )@@G@@ITDID 'YOUR FILE COMPARES' AI )@@G@@CD392300 @I@@@#NOFNAM 'THE CMP DIRECTIVE REQUIRES TWO FIAJ )@@G@@LE NAMES' CD392400 @I@@@#RDPKT + ENFILE,CDADDR AK )@@G@@ . PACKET FOR READ$ TO OBTAIN IMAGECD392500 @I@@@#TAPPKT + AL )@@G@@ ' ' . I/O PACKET FOR MAG TAPE TEF =011CD392600 @I@@@#AM )@@G@@ + ' ' . TRW=040, TRI=041, PSF=050, PSB= AN )@@G@@CD392700 @I@@@# + 0 . AO )@@G@@ CD392800 @I@@@# + 0 AP )@@G@@ . S2 OF THIS WORD WILL CONTAIN FUNCD392900 @I@@@# + AQ )@@G@@ 4096,BLOCK . HOLDS NUMBER OF WORDS AND ADD IF MOCD393000 @I@@@#AR )@@G@@TAPWRI + ' ' . I/0 PACKET FOR WRITING MAG. TAPEAS )@@G@@CD393100 @I@@@# + ' ' . AT )@@G@@ CD393200 @I@@@# + 0 AU )@@G@@ . CD393300 @I@@@# + AV )@@G@@ 0,010,0,0,0,0 . CD393400 @I@@@#AW )@@G@@ + 0,BLOCK . NO.WORDS AND ADDRESS AX )@@G@@CD393500 @I@@@# END CPD AY )@@G@@ CD393600 ___REWW AZ )@@G@@ CD380200 @I@@@# + 'FRE', REWI BA )@@G@@ CD380300 @I@@@# *[S@@@*SDFF*@[@@@@. BB )@@G@@@G@@@@. THIS ROUTINE OBTAINS THE CURRENT DATE AND TIME FROM THE SYSTEM ABC )@@G@@ND @G@@@@. COMPUTES THE CURRENT MONTH AND DAY OF THE WEEK. IT ALSO PBD )@@G@@RODUCES @G@@@@. SPECIAL MESSAGES ON APPROPRIATE DAYS OF THE YEAR. NBE )@@G@@OW ISN'T THAT @^@@@@. REALLY GOOD AND NICE? @[@@@@. @B@@@@ BF )@@G@@ AXR$ . @[@@@@. @C@@@@. THIS PROC IS TO BG )@@G@@SET UP THE SPECIAL MESSAGES. @[@@@@. @]@@@@SP* PROC 1. @ @@@@ BH )@@G@@ + SP(1,1). @B@@@@ + SP(1,2)-1,SP(1,3). BI )@@G@@@#@@@@ END. @B@@@@P FORM 12,6,18 . BJ )@@G@@@[@@@@$(1) @G@@@@SIGTUR* ER DATE$ . GET DATE AND TIBK )@@G@@ME FROM SYSTEM @F@@@@ SA A0,DATE . STORE DATBL )@@G@@E IN TEMP LOCATION@F@@@@ SA A1,TIME . STORE TIMBM )@@G@@E IN TEMP LOCATION@G@@@@ ER TDATE$ . GET BIN DBN )@@G@@ATE FOR MONTH SEARCH @G@@@@ SA A0,TDATE . STOBO )@@G@@RE BIN DATE IN TEMP LOCATION @F@@@@ SSL A0,30 BP )@@G@@ . SHIFT FOR MONTH SEARCH @D@@@@ SSL A1,24 BQ )@@G@@ . SHIFT FOR HOUR @H@@@@ MSI,U A0,2 . DOUBLE THBR )@@G@@E INDEX FOR DOUBLE WRD MONTHS @E@@@@ DL A2,MNTH,A0 BS )@@G@@ . LOAD THE PROPER MONTH@E@@@@ DS A2,MONTH . STOBT )@@G@@RE MONTH IN PACKET@E@@@@ LA,T2 A0,DATE . LOAD DAY BU )@@G@@OF MONTH @E@@@@ SA,T1 A0,DAYYR . STORE DAY IN PABV )@@G@@CKET @F@@@@ LA,T3 A0,DATE . LOAD YEAR (LAST TWO DBW )@@G@@IGITS)@D@@@@ SA,T1 A0,DAYYR+1 . STORE IN PACKET@E@@@@BX )@@G@@ SA,T2 A1,HRMIN . STORE HOURS IN PACKET@E@@@@ BY )@@G@@ LA,S3 A1,TIME . LOAD 1ST DIGIT OF MIN@D@@@@ SA,BZ )@@G@@S6 A1,HRMIN . STORE IN PACKET@E@@@@ LA,S4 A1,TICA )@@G@@ME . LOAD 2ND DIGIT OF MIN@D@@@@ SA,S1 A1,MINSEC CB )@@G@@ . STORE IN PACKET@D@@@@ LA,T3 A1,TIME . LOACC )@@G@@D SECONDS @D@@@@ SA,T2 A1,MINSEC . STORE IN PACKETCD )@@G@@@D@@@@/. THIS PART COMPUTES THE PROPER DAY OF THE WEEK. @E@@@@. THISCE )@@G@@ ALGORITHIM WILL WORK UNTIL THE END OF THE YEAR 2069. @G@@@@. IT ACCOUNTCF )@@G@@S FOR LEAP YEARS AS WELL AS NORMAL ONES AND WILL CHANGE THE @G@@@@. CENTCG )@@G@@URY FROM 19 TO 20 WHEN THAT AUSPICIOUS EVENT OCCURS. SOME OF THE @G@@@@CH )@@G@@. CODE IS A REAL TAFFY PULL, WHICH IS QUITE A BIT LIKE FUDGING ONLY CI )@@G@@@#@@@@. MUCH STICKIER. @[@@@@. @F@@@@ LA,S1 A0,TDATE CJ )@@G@@ . LOAD THE CURRENT MONTH @H@@@@ LA A6,OFFSET-1CK )@@G@@,A0 . LOAD THE OFFSET. THE OFFSET IS THE @H@@@@ AA,S2 CL )@@G@@ A6,TDATE . SUM OF THE DAYS IN THE MONTHS PROCEDING@I@@@@ CM )@@G@@ . THE CURRENT ONE AND ADD TODAYS DATE TO CN )@@G@@IT @H@@@@ LA,U A8,72 . LOAD THE 1ST LEAP YR CO )@@G@@AFTER THIS WRIT @G@@@@ LA,S3 A9,TDATE . LOAD THE CP )@@G@@CURRENT YEAR (MODULO 64)@E@@@@ AA,U A9,64 . BRICQ )@@G@@NG IT UP TO DATE @[@@@@. @E@@@@. THIS PART DETERMINES WHETHER WE HACR )@@G@@VE A LEAP YEAR OR NOT. @[@@@@. @E@@@@TEST1 TG A8,A9 CS )@@G@@ . IS CURRENT YEAR < 72?@F@@@@ J TEST2 CT )@@G@@ . NO, GO DO THE NEXT TEST @E@@@@ AA,U A8,4 CU )@@G@@ . YES, ADD 4 TO BASE 72@F@@@@ J TEST1 . GO CV )@@G@@BACK AND TEST AGAIN @D@@@@TEST2 TE A8,A9 . ARECW )@@G@@ THEY EQUAL?@G@@@@ J TEST3 . NO, NOT A LEAP CX )@@G@@YEAR, KEEP GOING @G@@@@ ANA,U A0,3 . YES, SEE CY )@@G@@WHAT MONTH WE ARE IN @G@@@@ JP A0,$+3 . AFTCZ )@@G@@ER MARCH, NEED AN EXTRA DAY @G@@@@ JZ A0,$+2 DA )@@G@@ . IT IS MARCH, NEED AN EXTRA DAY @H@@@@ J TEST3 DB )@@G@@ . NO, MUST BE JAN OR FEB, NO EXTRA DAY @E@@@@ AA,U DC )@@G@@ A6,1 . ADD THE EXTRA DAY @H@@@@TEST3 DSA A6,36DD )@@G@@ . NOW TAKE OUT THE WEEKS PRIOR TO THIS @G@@@@ DI,DE )@@G@@U A6,7 . ONE AND SAVE THE REMAINDER IN A7 @B@@@@. NOW DF )@@G@@LET'S CHECK WHAT CENTURY WE'RE IN @F@@@@ LA,S3 A10,TDATE DG )@@G@@ . LOAD THE YEAR (MODULO 64) @D@@@@ ANA,U A10,6 DH )@@G@@ . BIAS IT BY 70 @C@@@@ JP A10,$+5 . < 7DI )@@G@@0? @C@@@@ JZ A10,$+4 . = 70? @D@@@@ DJ )@@G@@ AA,U A10,100 . MUST BE < 2000 @E@@@@ LA,U DK )@@G@@ A11,20 . LOAD THE NEW CENTURY @E@@@@ SA,T3 A11,DDL )@@G@@AYYR . CHANGE THE PACKET @[@@@@. @H@@@@. THIS SECTION COMDM )@@G@@PUTES THE DAY OF THE WEEK THAT JAN 1 OF THE CURRENT YEAR @G@@@@. YEARDN )@@G@@ FELL ON. THIS THEN COMBINED WITH THE REMAINDER OF THE OFFSET TO @B@@@@DO )@@G@@. DETERMINE WHAT DAY OF THE WEEK THIS IS. @[@@@@. @C@@@@ LA DP )@@G@@ A9,A10 . SAVE A10 @H@@@@ AA,U A10,1 DQ )@@G@@ . ADD ONE TO THE YEAR (FUDGING AGAIN) @C@@@@ DSA DR )@@G@@ A10,36 . SHIFT IT @C@@@@ DI,U A10,4 DS )@@G@@ . FUDGE IT @C@@@@ AA,U A9,4 . PUT IT @D@@@@DT )@@G@@ AA A9,A10 . ALL TOGETHER @D@@@@ DSADU )@@G@@ A9,36 . SHIFT IT AGAIN @E@@@@ DI,U A9,7 DV )@@G@@ . ELIMINATE THE WEEKS @E@@@@ AA A7,A10 DW )@@G@@ . ADD THE REMAINDERS @E@@@@ LA,U A8,07 DX )@@G@@ . SEE IF NUMBER IS @E@@@@ TLE A8,A7 . GREDY )@@G@@ATER THAN SEVEN @E@@@@ ANA,U A7,7 . YES, TAKEDZ )@@G@@ 7 AWAY @F@@@@ ANA,U A7,1 . MODIFY IT FOR TEA )@@G@@WO WORDS @D@@@@ MSI,U A7,2 . AND DOUBLE IT EB )@@G@@@F@@@@ LX X1,A7 . LOAD THE INDEX REGISTER EC )@@G@@@F@@@@ DL A3,DAYOFWK,X1 . LOAD THE DAY OF THE WEEK ED )@@G@@@F@@@@ DS A3,DAYWEEK . STORE DAY OF WEEK IN PACKETEE )@@G@@@C@@@@. THIS SECTION SEES IF WE HAVE A SPECIAL MESSAGE@D@@@@ L EF )@@G@@ A0,DATE . LOAD THE DATE @G@@@@ SSL A0,12EG )@@G@@ . SHIFT IT TO GET RID OF THE YEAR @F@@@@ LXI,U EH )@@G@@ X1,2 . SET UP INDEX REGISTER FOR @C@@@@ LXM,U EI )@@G@@ X1,0 . SEARCH @H@@@@ L,U R1,(ENDSPC-SPCLSTEJ )@@G@@)/2 . LOAD THE LENGTH OF THE TABLE @F@@@@ SE A0,SPEK )@@G@@CLST,*X1 . SEE IF WE HAVE A MESSAGE @F@@@@ J PRINTEL )@@G@@ . NO, GO PRINT THE SIGNATURE @F@@@@ L,H1 R1,SPEM )@@G@@CLST-1,X1 . YES, LOAD THE WORD COUNT @E@@@@ L X2,SPEN )@@G@@CLST-1,X1 . LOAD THE LOCATION @D@@@@ LXI,U X2,1 EO )@@G@@ . SET UP THE @D@@@@ LXI,U X3,1 . INCEP )@@G@@REMENTS @F@@@@ LXM,U X3,MSG . LOAD WHERE TO SEQ )@@G@@TORE IT @D@@@@RPT LA A1,0,*X2 . LOAD AND STORE ER )@@G@@@E@@@@ SA A1,0,*X3 . THE MESSAGE, ONE @D@@@@ES )@@G@@ JGD R1,RPT . WORD AT A TIME @F@@@@PRINT LA ET )@@G@@ A0,(P 1,22,SIG) . LOAD THE SIGNATURE PACKET @E@@@@ ER EU )@@G@@ PRINT$ . WRITE OUT SIGNATURE @C@@@@ J EV )@@G@@ 0,X11 . RETURN @[@@@@/. @]@@@@$(0) . %H@@@@-119,1EW )@@G@@19 BPD 3HEX )@@G@@@H@@[@SIG 'BPD/CPD 3H ' . SIGNATURE PACKET EY )@@G@@ BPD 3H%@@@@[@D[@@@DAYWEEK ' ' . DAY OF THEZ )@@G@@E WEEK@D@@@@MONTH ' ' . CURRENT MONTH @D@@@@FA )@@G@@DAYYR ' , 19 ' . DATE AND YEAR @G@@@@HRMIN ' FB )@@G@@ : ' . HOUR AND 1ST DIGIT OF MINUTE @G@@@@MINSECFC )@@G@@ ' : ' . 2ND DIGIT OF MINUTE AND SECONDS @F@@@@FD )@@G@@ ' ' . BLANK FOR SIGNATURE LINE @C@@@@FE )@@G@@MSG ' ' . SPECIAL @C@@@@ ' FF )@@G@@ ' . MESSAGE @C@@@@ ' ' FG )@@G@@ . PACKET @D@@@@DATE + 0 . DATE SAVE AREA FH )@@G@@@D@@@@TIME + 0 . TIME SAVE AREA @E@@@@TDATE FI )@@G@@ + 0 . BINARY DATE SAVE AREA@C@@@@OFFSET + FJ )@@G@@ 0 . TABLE @B@@@@ + 31 FK )@@G@@ . OF @C@@@@ + 59 . OFFSETS @B@@@@FL )@@G@@ + 90 . TO @C@@@@ + 120 FM )@@G@@ . COMPUTE @C@@@@ + 151 . WHAFN )@@G@@T @B@@@@ + 181 . DAY@B@@@@ + FO )@@G@@ 212 . OF @B@@@@ + 243 FP )@@G@@ . THE@C@@@@ + 273 . WEEK @B@@@@ FQ )@@G@@ + 304 . IT @B@@@@ + 334 FR )@@G@@ . IS @C@@@@DAYOFWK ' SUNDAY' . ACTUAL @B@@@@FS )@@G@@ ' MONDAY' . DAY@B@@@@ ' TUESDAY' FT )@@G@@ . OF @B@@@@ ' WEDNESDAY' . THE@C@@@@FU )@@G@@ ' THURSDAY' . WEEK @C@@@@ ' FRFV )@@G@@IDAY' . LISTING @C@@@@ ' SATURDAY' FW )@@G@@ . TABLE @C@@@@MNTH ' ' . DUMMY @C@@@@FX )@@G@@ ' JANUARY ' . ACTUAL @C@@@@ ' FEBRUFY )@@G@@ARY ' . MONTH @B@@@@ ' MARCH ' FZ )@@G@@ . OF @B@@@@ ' APRIL ' . THE@C@@@@ ' GA )@@G@@ MAY ' . CURRENT @C@@@@ ' JUNE ' GB )@@G@@ . YEAR @B@@@@ ' JULY ' . TO @B@@@@GC )@@G@@ ' AUGUST ' . BE @C@@@@ ' SEPTEMBER ' GD )@@G@@ . LOADED @C@@@@ ' OCTOBER ' . INTGE )@@G@@O @B@@@@ ' NOVEMBER ' . THE@C@@@@ ' GF )@@G@@ DECEMBER ' . PACKET @F@@@@/. SPECIAL DATE SECTIONGG )@@G@@. CPD CAN PLAY GAMES BY ADDING A @G@@@@. COMMENT TO SPECIAL DGH )@@G@@ATES SUCH AS HALLOW5EN 69+1PI93+6663(2 @D@@@@. DAY OR ST. SWIGI )@@G@@THEN'S DAY, OR WHAT HAVE YOU. @E@@@@. TABLES ARE GENERATED BY PRGJ )@@G@@OC 'SP'. TYPICAL CALL. @[@@@@. @A@@@@. SP '1031',2,HALMSGGK )@@G@@. @[@@@@. @F@@@@. WHERE 1031 IS HALLOWEEN, OCT. 31, 2 ISGL )@@G@@ THE COUNT OF THE @G@@@@. WORDS IN THE HALLOWEEN MESSAGE, AND HAGM )@@G@@LMSG IS THE LOCATION @C@@@@. OF THE FIRST WORD OF THE MESSAGEGN )@@G@@. @E@@@@. THE COMMENT IS PUT AT THE END OF THE DATE LINE. GO )@@G@@@[@@@@. @]@@@@SPCLST. @C@@@@ SP '0101',E0101-B010GP )@@G@@1,B0101 . @C@@@@ SP '0105',E0105-B0105,B0105 . @C@@@@GQ )@@G@@ SP '0120',E0120-B0120,B0120 . @C@@@@ SP GR )@@G@@ '0131',E0131-B0131,B0131 . @C@@@@ SP '0202',E0202-B020GS )@@G@@2,B0202 . @C@@@@ SP '0212',E0212-B0212,B0212 . @C@@@@GT )@@G@@ SP '0214',E0214-B0214,B0214 . @C@@@@ SP GU )@@G@@ '0220',E0220-B0220,B0220 . @C@@@@ SP '0222',E0222-B022GV )@@G@@2,B0222 . @C@@@@ SP '0229',E0229-B0229,B0229 . @C@@@@GW )@@G@@ SP '0305',E0305-B0305,B0305 . @C@@@@ SP GX )@@G@@ '0315',E0315-B0315,B0315 . @C@@@@ SP '0317',E0317-B031GY )@@G@@7,B0317 . @C@@@@ SP '0320',E0320-B0320,B0320 . @C@@@@GZ )@@G@@ SP '0401',E0401-B0401,B0401 . @C@@@@ SP HA )@@G@@ '0403',E0403-B0403,B0403 @C@@@@ SP '0404',E0404-B040HB )@@G@@4,B0404 @C@@@@ SP '0405',E0405-B0405,B0405 @C@@@@HC )@@G@@ SP '0406',E0406-B0406,B0406 . @C@@@@ SP HD )@@G@@ '0407',E0407-B0407,B0407 . @C@@@@ SP '0409',E0409-B040HE )@@G@@9,B0409 . @C@@@@ SP '0412',E0412-B0412,B0412 . @C@@@@HF )@@G@@ SP '0414',E0414-B0414,B0414 . @C@@@@ SP HG )@@G@@ '0415',E0415-B0415,B0415 . @C@@@@ SP '0418',E0418-B041HH )@@G@@8,B0418 . @C@@@@ SP '0419',E0419-B0419,B0419 . @C@@@@HI )@@G@@ SP '0501',E0501-B0501,B0501 . @C@@@@ SP HJ )@@G@@ '0503',E0503-B0503,B0503 . @C@@@@ SP '0508',E0508-B050HK )@@G@@8,B0508 . @C@@@@ SP '0517',E0517-B0517,B0517 . @C@@@@HL )@@G@@ SP '0526',E0526-B0526,B0526 . @C@@@@ SP HM )@@G@@ '0606',E0606-B0606,B0606 . @C@@@@ SP '0610',E0610-B061HN )@@G@@0,B0610 . @C@@@@ SP '0617',E0617-B0617,B0617 . @C@@@@HO )@@G@@ SP '0618',E0618-B0618,B0618 . @C@@@@ SP HP )@@G@@ '0625',E0625-B0625,B0625 . @C@@@@ SP '0704',E0704-B070HQ )@@G@@4,B0704 . @C@@@@ SP '0714',E0714-B0714,B0714 . @C@@@@HR )@@G@@ SP '0720',E0720-B0720,B0720 . @C@@@@ SP HS )@@G@@ '0806',E0806-B0806,B0806 . @C@@@@ SP '0814',E0814-B081HT )@@G@@4,B0814 . @C@@@@ SP '0826',E0826-B0826,B0826 . @C@@@@HU )@@G@@ SP '0827',E0827-B0827,B0827 . @C@@@@ SP HV )@@G@@ '0830',E0830-B0830,B0830 . @C@@@@ SP '0901',E0901-B090HW )@@G@@1,B0901 . @C@@@@ SP '0902',E0902-B0902,B0902 . @C@@@@HX )@@G@@ SP '0914',E0914-B0914,B0914 . @C@@@@ SP HY )@@G@@ '0925',E0925-B0925,B0925 . @C@@@@ SP '1001',E1001-B100HZ )@@G@@1,B1001 . @C@@@@ SP '1005',E1005-B1005,B1005 @C@@@@IA )@@G@@ SP '1009',E1009-B1009,B1009 . @C@@@@ SP IB )@@G@@ '1012',E1012-B1012,B1012 . @C@@@@ SP '1014',E1014-B101IC )@@G@@4,B1014 . @C@@@@ SP '1024',E1024-B1024,B1024 . @C@@@@ID )@@G@@ SP '1029',E1029-B1029,B1029 . @C@@@@ SP IE )@@G@@ '1031',E1031-B1031,B1031 . @C@@@@ SP '1111',E1111-B111IF )@@G@@1,B1111 . @C@@@@ SP '1119',E1119-B1119,B1119 . @C@@@@IG )@@G@@ SP '1129',E1129-B1129,B1129 . @C@@@@ SP IH )@@G@@ '1207',E1207-B1207,B1207 . @C@@@@ SP '1214',E1214-B121II )@@G@@4,B1214 . @C@@@@ SP '1217',E1217-B1217,B1217 . @C@@@@IJ )@@G@@ SP '1221',E1221-B1221,B1221 . @C@@@@ SP IK )@@G@@ '1224',E1224-B1224,B1224 . @C@@@@ SP '1225',E1225-B122IL )@@G@@5,B1225 . @]@@@@ENDSPC. @^@@@@B0101 'HAPPY NEW YEAR'.@[@@@@E0101.IM )@@G@@@D@@@@B0105 'NELLIE ROSS FIRST WOMAN GOVERNOR 1925' @]@@@@E0105 IN )@@G@@ . @B@@@@B0111 'ALEXANDER HAMILTON BORN 1757' @]@@@@E0111 . IO )@@G@@@B@@@@B0120 'PRESIDENTIAL INAUGURATION DAY' @]@@@@E0120 . @ @@@@IP )@@G@@B0131 'EXPLORER 1--1958'. @[@@@@E0131.@^@@@@B0202 'GROUND HOG DAY'.IQ )@@G@@@[@@@@E0202.@ @@@@B0212 'A.LINCOLN--1809'. @[@@@@E0212.@ @@@@B0214 IR )@@G@@ 'ST. VALENTINE''S DAY'.@[@@@@E0214.@A@@@@B0220 'JOHN GLENN''S FLIGHT--IS )@@G@@1962'.@[@@@@E0220.@B@@@@B0222 'GEORGE WASHINGTON''S BIRTHDAY'. @[@@@@IT )@@G@@E0222.@B@@@@B0229 'LEAP-YEAR DAY.' . @[@@@@E0229.@A@@@@IU )@@G@@B0305 'BPSTON MASSACRE - 1770' @]@@@@E0305 . @A@@@@B0315 'BEWAIV )@@G@@RE: THE IDES OF MARCH'.@[@@@@E0315.@ @@@@B0317 'SAINT PATRICK''S DAY'.IW )@@G@@@[@@@@E0317.@ @@@@B0320 'SPRING HAS SPRUNG'. @[@@@@E0320.@ @@@@B0401 IX )@@G@@ 'APRIL FOOLS DAY'. @[@@@@E0401.@A@@@@B0404 'JOHN NAPIER BORN 15IY )@@G@@50' @]@@@@E0404 . @B@@@@B0405 'POCAHONTAS MARRIED ROLFE 1614' IZ )@@G@@@]@@@@E0405 . @A@@@@B0403 'NATO DAY (MAC GETS OFF)' .@[@@@@E0403.JA )@@G@@@C@@@@B0406 'PEARY REACHES NORTH POLE IN 1909' . @[@@@@E0406.@D@@@@JB )@@G@@B0407 'OFFICIAL DATE OF CRUCIFIXION IN 30 A.D.' . @[@@@@E0407.@E@@@@JC )@@G@@B0409 'APPOMATTOX DAY (THE SOUTH WILL RISE AGAIN)'. @[@@@@E0409.JD )@@G@@@A@@@@B0412 'FIRING ON FORT SUMTER' . @[@@@@E0412.@B@@@@B0414 'LINCJE )@@G@@OLN ASSASINATED, 1865' . @[@@@@E0414.@^@@@@B0415 'HAPPY IRS DAY'. JF )@@G@@@[@@@@E0415.@B@@@@B0418 'SAN FRANCISCO EARTHQUAKE 1906' @]@@@@E0418 JG )@@G@@ . @D@@@@B0419 'TAXATION WITHOUT REPRESENTATION MEANS WAR'. @[@@@@JH )@@G@@E0419.@#@@@@B0501 'MAY DAY'. @[@@@@E0501.@C@@@@B0503 'POLAND ADOPTEJI )@@G@@D CONSTITUTION 1791' @]@@@@E0503 . @C@@@@B0526 'FIRST AMERICAJJ )@@G@@N BANK CHARTERED 1781' @]@@@@E0526 . @#@@@@B0508 'V-E DAY'. @[@@@@JK )@@G@@E0508.@B@@@@B0517 'NORWEGIAN INDEPENDANCE DAY' . @[@@@@E0517.@#@@@@JL )@@G@@B0606 'D-DAY'. @[@@@@E0606.@F@@@@B0610 'WITHHOLDING TAX LAW SIGNEJM )@@G@@D 1943 : EAT YOUR HEART OUT' @]@@@@E0610 . @F@@@@B0617 'DON''T FIRJN )@@G@@E UNTIL YOU SEE THE WHITE''S OF THEIR EYES'. @[@@@@E0617.@ @@@@B0618 JO )@@G@@ 'BATTLE OF WATERLOO' .@[@@@@E0618.@A@@@@B0625 'CUSTER''S LAST STANJP )@@G@@D' @]@@@@E0625 . @B@@@@B0704 'INDEPENDENCE DAY.' . JQ )@@G@@@[@@@@E0704.@^@@@@B0714 'BASTILLE DAY'. @[@@@@E0714.@ @@@@B0720 '1ST JR )@@G@@MAN ON THE MOON'. @[@@@@E0720.@^@@@@B0806 'FRIENDSHIP DAY'.@[@@@@E0806.JS )@@G@@@#@@@@B0814 'V-J DAY'. @[@@@@E0814.@A@@@@B0826 'WOMEN''S SUFFRAGE--192JT )@@G@@0'. @[@@@@E0826.@^@@@@B0827 'FIRST OILWELL'. @[@@@@E0827.@A@@@@B0830 JU )@@G@@ 'CLEOPATRA DIED 30 B.C.' @[@@@@E0830 @ @@@@B0901 'INVASION OF POLAJV )@@G@@ND'. @[@@@@E0901.@C@@@@B0902 'SURRENDER SIGNED, U.S.S. MISSOURI'. JW )@@G@@@[@@@@E0902.@C@@@@B0914 'STAR-SPANGLED BANNER WRITTEN--1814'. @[@@@@JX )@@G@@E0914.@B@@@@B0924 'BLACK FRIDAY IN N.Y. 1869' @]@@@@E0924 . JY )@@G@@@E@@@@B0925 'BALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!!' @[@@@@JZ )@@G@@E0925.@B@@@@B1001 'HAPPY NEW FISCAL YEAR (OCS DAY)'. @[@@@@E1001.@A@@@@KA )@@G@@B1005 'HAPPY BIRTHDAY DAVID' @]@@@@E1005 . @ @@@@B1009 'LIEFKB )@@G@@ ERIKSON DAY'. @[@@@@E1009.@^@@@@B1012 'COLUMBUS DAY'. @[@@@@E1012.KC )@@G@@@A@@@@B1014 'BATTLE OF HASTINGS, 1066' .@[@@@@E1014.@ @@@@B1024 'UNITKD )@@G@@ED NATIONS DAY'. @[@@@@E1024.@A@@@@B1029 'STOCK MARKET CRASH 1929' KE )@@G@@@]@@@@E1029 . @F@@@@B1031 'ALL HALLOWS EVE ''BET YOU THO''T IT WKF )@@G@@AS HALLOWEEN' @[@@@@E1031.@^@@@@B1111 'ARMISTICE DAY'. @[@@@@E1111.KG )@@G@@@E@@@@B1119 'FORE-SCORE AND SEVEN ... PERISH FROM THIS EARTH'. @[@@@@KH )@@G@@E1119.@A@@@@B1129 'SAND CREEK MASSACRE 1864'@]@@@@E1129 . @^@@@@KI )@@G@@B1207 'DAY-OF-INFAMY'. @[@@@@E1207.@C@@@@B1214 'AMUNDSON REACHES SOUTHKJ )@@G@@ POLE, 1911' . @[@@@@E1214.@A@@@@B1217 'FIRST POWERED FLIGHT--1903'.KK )@@G@@@[@@@@E1217.@A@@@@B1221 'PLYMOUTH ROCK STEPPED ON'. @[@@@@E1221.@A@@@@KL )@@G@@B1224 'HAPPY BIRTHDAY ANITA' @]@@@@E1224 . @ @@@@B1225 'MERRKM )@@G@@Y CHRISTMAS'. @[@@@@E1225.@B@@@@ END KN )@@G@@ . ___@@@E0407.@E@@@@B0409 'APPOMATTOX DAY (THE SOUTH WILL RISE KO )@@G@@)@@[F]@[#@[#@[]@ #@@[#@@9??@@3T8@@@];CK@@S;C@@@Y[@@@@S'=@@@@[@K@@R[@@@@QKP )@@G@@'=@@@@AA@@@@)@D[##@[#@[#@[#@[#@[#@[#@[#@@@[)K@@CC?K@@R[SK@@C[W@@@BCO@@@QKQ )@@G@@[W@@@ACS@@@Q9*)@@^AB@@@@)@L[##@[#@[#@[#@[#@[#@[#@@@@@@C'@@[CG1)@@SC[?@@SKR )@@G@@C4@@@S[SK@@DCOK@@R[4K@@DC*K@@RAC@@@@)@T[N#@@^@K[@^@@@@/C@@@>H8@@@#/K@@@&KS )@@G@@%]@@@P/K@@@VG'@@@^/K@@@Z!]@@@PG'K@[@C,K@@SAD@@@@)@<[N@K@^G@[@K@@@@G')@[=KT )@@G@@/])@@\/E)@@\H')@@AC,)@@SW9)@@B;P)@@=G9)@@[/K@@@&/@@@@>AE@@@@)@![UK0@@@@@KU )@@G@@G[0@@QW'K@@B;QK@@=G]K@@QG'K@@^W')@@^;Q)@@=G')@@[C]K@@Q[Q0@@AC'0@@OAF@@@@KV )@@G@@)@8[M@[#@[#@[#@@@@;C@@@GR#@@@Q9*0@@]9?1@@>R@K@@NT90@@]H90@@[H90@@B?]@@@NKW )@@G@@C'@@@BAG@@@@)[][E[#@[@K0@K0@@@@@@@@@&80@@[&8)@@[R@-@[GNCL@[G/K@@[J2@[)[HKX )@@G@@N8K@[[Q8K@@@&8K@@]AH@@@@)[F@'()@]@-)@-@^@@)@@@K@D 3H BPD/CP/KF@@@'=@@@@KY )@@G@@C@@@B88KK@[G[@N)@@C@M)@@Q80@@GAI@@@@)@][S@@@@@@@ : KZ )@@G@@ : , 19 AJ@@@@)@H[S@@@@@@@@@@@@@@@@@@@LA )@@G@@ AK@@@@)@S[S@@@@@@@LB )@@G@@@@@@^L@@@@#3@@@@#O@@@@]5@@@@]R@@@@[8@@@@[U@@@@@;@@@@@Z@@@@@@@@@@@@AL@@@@LC )@@G@@)@<[S@@@@@@@ THNESDAY WEDUESDAY TMONDAY SUNDAY @@@@ ILD )@@G@@@@@@^0AM@@@@)@,[S@@@@@@@RUARY FEBNUARY JA TURDAY SALE )@@G@@FRIDAY URSDAYAN@@@@)@9[S@@@@@@@ A JULY JUNE MAY LF )@@G@@ APRIL MARCH AO@@@@)[^[S@@@E@@@@@]@#J@@0101EMBER DECLG )@@G@@EMBER NOVTOBER OCEMBER SEPTUGUST AP@@@@)[J[KE@O@*[K])@@@@@@]@#(LH )@@G@@@@0212@@]@#&@@0202@@]@#<@@0131@@^@#Y@@0120@@A@#M@@0105AQ@@@@)[T[KE@O@*[KLI )@@G@@])@@@@@@#@#.@@0305@@]@#'@@0229@@^@#5@@0222@@^@#0@@0220@@#@#?@@0214AR@@@@LJ )@@G@@)[<[KE@O@*[K])@@@@@@#@^T@@0403@@]@^H@@0401@@]@^E@@0320@@#@^A@@0317@@^@^[LK )@@G@@@@0315AS@@@@)[![KE@O@*[K])@@@@@@B@^%@@0409@@A@^<@@0407@@ @^X@@0406@@^@^OLL )@@G@@@@0405@@#@^K@@0404AT@@@@)[7[KE@O@*[K])@@@@@@A@ #@@0419@@^@^"@@0418@@]@^;LM )@@G@@@@0415@@^@^6@@0414@@#@^2@@0412AU@@@@)][[KE@O@*[K])@@@@@@ @ M@@0526@@^@ ULN )@@G@@@@0517@@[@ S@@0508@@ @ G@@0503@@[@ E@@0501AV@@@@)]F[KE@O@*[K])@@@@@@#@ 5LO )@@G@@@@0625@@]@ 2@@0618@@C@ (@@0617@@C@ )@@0610@@@@ Z@@0606AW@@@@)]P[KE@O@*[KLP )@@G@@])@@@@@@[@A @@0814@@]@A]@@0806@@#@ "@@0720@@[@ /@@0714@@]@ 9@@0704AX@@@@LQ )@@G@@)]Z[KE@O@*[K])@@@@@@ @AP@@0902@@]@AM@@0901@@#@AI@@0830@@]@AF@@0827@@#@ABLR )@@G@@@@0826AY@@@@)]([KE@O@*[K])@@@@@@]@A8@@1009@@#@A4@@1005@@ @A,@@1001@@B@A&LS )@@G@@@@0925@@ @AV@@0914AZ@@@@)]3[KE@O@*[K])@@@@@@B@BC@@1031@@#@B^@@1029@@]@B[LT )@@G@@@@1024@@#@A.@@1014@@[@A;@@1012BA@@@@)].[KE@O@*[K])@@@@@@ @B+@@1214@@]@BZLU )@@G@@@@1207@@#@BV@@1129@@B@BN@@1119@@]@BK@@1111BB@@@@)#B[KE@O@*[K@@@@@@NEW YELV )@@G@@HAPPY @@]@B5@@1225@@#@B1@@1224@@#@B!@@1221@@^@B*@@1217BC@@@@)#L[S@@@@@@@LW )@@G@@MILTONDER HAALEXAN5 OR 192GOVERNWOMAN FIRST ROSS NELLIEAR BD@@@@LX )@@G@@)#W[S@@@@@@@GROUND1958 ER 1--EXPLORN DAY URATIO INAUGENTIALPRESID1757 LY )@@G@@ BORN BE@@@@)#$[S@@@@@@@LENN'SJOHN GY E'S DALENTINST. VA809 OLN--1LZ )@@G@@A.LINCAY HOG DBF@@@@)#2[S@@@@@@@Y. EAR DALEAP-YHDAY S BIRTNGTON'MA )@@G@@ WASHIGEORGE2 T--196 FLIGHBG@@@@)#.[S@@@@@@@PATRICSAINT CH OF MARMB )@@G@@ IDES : THEBEWARE1770 CRE - MASSABPSTONBH@@@@)^C[S@@@@@@@BORN 1APIER MC )@@G@@JOHN NDAY FOOLS APRIL PRUNG HAS SSPRINGY K'S DABI@@@@)^N[S@@@@@@@MD )@@G@@PEARY S OFF)AC GETAY (MNATO D 1614 ROLFEARRIEDNTAS MPOCAHO550 BJ@@@@ME )@@G@@)^Y[S@@@@@@@N 30 AXION IRUCIFIE OF CAL DATOFFICI09 IN 19H POLES NORTMF )@@G@@REACHEBK@@@@)^([S@@@@@@@ ON FOFIRING) AGAINL RISETH WILHE SOUAY (TMG )@@G@@TTOX DAPPOMA.D. BL@@@@)^4[S@@@@@@@SAN FRY IRS DAHAPPY 5 D, 186MH )@@G@@SINATEN ASSALINCOLTER RT SUMBM@@@@)^_[S@@@@@@@S WAR N MEANNTATIOEPRESEMI )@@G@@HOUT RON WITTAXATI 1906 HQUAKEO EARTANCISCBN@@@@) E[S@@@@@@@AN BANAMERICMJ )@@G@@FIRST 91 ION 17STITUTED CON ADOPTPOLANDY MAY DABO@@@@) P[S@@@@@@@MK )@@G@@D-DAY AY ANCE DDEPENDIAN INNORWEGY V-E DA1781 TERED K CHARBP@@@@ML )@@G@@) )[S@@@@@@@FIRE UDON'T OUT HEARTT YOUR3 : EAED 194W SIGNTAX LALDING MM )@@G@@WITHHOBQ@@@@) :[S@@@@@@@CUSTERTERLOO OF WABATTLEES EIR EY OF THHITE'SMN )@@G@@ THE WOU SEENTIL YBR@@@@) 6[S@@@@@@@HE MOON ON T1ST MALE DAYBASTIL DAY. MO )@@G@@NDENCEINDEPED T STAN'S LASBS@@@@)A[[S@@@@@@@FIRST 1920 RAGE--S SUFFMP )@@G@@WOMEN'Y V-J DAAY SHIP DFRIENDN BT@@@@)AG[S@@@@@@@DER SISURRENMQ )@@G@@POLANDON OF INVASIB.C. ED 30 TRA DICLEOPAL OILWELBU@@@@)AR[S@@@@@@@MR )@@G@@BLACK 1814 TTEN--ER WRID BANNPANGLESTAR-SURI MISSOU.S.S.GNED, BV@@@@MS )@@G@@)A+[S@@@@@@@!!!!!! 1513 OCEANACIFICVERS P DISCOBALBOA9 Y. 186 IN N.MT )@@G@@FRIDAYBW@@@@)A![S@@@@@@@ID AY DAVBIRTHDHAPPY ) CS DAYEAR (OSCAL YMU )@@G@@NEW FIHAPPY ! BX@@@@)A8[S@@@@@@@ NATIOUNITED, 1066STINGS OF HABATTLEMV )@@G@@US DAYCOLUMB DAY RIKSONLIEF EBY@@@@)B#[S@@@@@@@ IT WA THO'TET YOUEVE 'BMW )@@G@@LLOWS ALL HA 1929 CRASHMARKETSTOCK NS DAYBZ@@@@)BI[S@@@@@@@H FROM PERISMX )@@G@@EN ...ND SEVCORE AFORE-SY ICE DAARMISTOWEEN S HALLCA@@@@)BT[S@@@@@@@MY )@@G@@ON REAAMUNDSY -INFAMDAY-OFE 1864ASSACRREEK MSAND CEARTH THIS CB@@@@MZ )@@G@@)B=[S@@@@@@@TH ROCPLYMOU03 HT--19D FLIGPOWEREFIRST 911 OLE, 1OUTH PNA )@@G@@CHES SCC@@@@)B\[K@@@*@@@@@@@@@@[Q@@@MAS CHRISTMERRY TA AY ANIBIRTHDNB )@@G@@HAPPY PED ONK STEPCD@@@@@@^@@]@@A@@#@@G@@[@@K@@@@@@@B9@@@@[MDATE$ NC )@@G@@TDATE$ PRINT$ SIGTUR @@[@@@@@@@@@'. TA' . '. . 1911' . THND )@@G@@IS EARTH'. . . $ FACIT$ IOW$ *[S@@@*SDFF*@#@@@@$(1) NE )@@G@@ AXR$ . @C@@@@ . THIS ROUTINE HANDLES DRUM FILE MANIPULATION @B@@@@NF )@@G@@ . THE FIRST IS TO MOVE FORWARD IN A FILE@I@@@@PSED* SZ A5 NG )@@G@@ . ZERO TO HOLD ADDRESS AT START OF LAST TRA @H@@@@ NH )@@G@@ J PSFDA+1 . GO GET THE ADDRESS OF HIGHEST TRACK NI )@@G@@@G@@@@PSFD* SX X2,A5 . X2 HAS COUNT OF HOW FAR TO NJ )@@G@@MOVE @F@@@@ TNE A5,(037777777777) . IS IT A PHONEY COUNTNK )@@G@@? @F@@@@ J PSFDA . YES, MOVE TO END OF FNL )@@G@@ILE @H@@@@ LA A0,DRPKT+5 . NO, MOVE FORWARD USERNM )@@G@@ NO. OF SECTORS @I@@@@ AA A0,A5 . LOAD CURRNN )@@G@@ENT ADDRESS AND ADD COUNT TO IT @E@@@@ SA A0,DRPKT+5NO )@@G@@ . STORE BACK IN PACKET @B@@@@ J UPBLCK NP )@@G@@ . @G@@@@PSFDA LA,U A5,64 . COUNT TO GET TO END ONQ )@@G@@F LAST TRACK@E@@@@ DL A0,FILEN . LOAD CURRENT FINR )@@G@@LENAME@F@@@@ DS A0,FITEM . STORE IT IN FACIT$ PANS )@@G@@CKET @F@@@@ DS A0,FILNM . STORE IT IN MSG PACKENT )@@G@@T @E@@@@ LA,U A0,FITEM . LOAD FACIT$ PACKET NU )@@G@@@H@@@@ ER FACIT$ . GET THE ADDRESS OF THE HIGHNV )@@G@@EST TRACK @G@@@@ LA A6,DRPKT+5 . LOAD CURRENT ADNW )@@G@@DRESS WE ARE AT @H@@@@ LA,H1 A0,FITEM+9 . LOAD THE NX )@@G@@HIGH TRACK (IN NO. OF TRACKS) @F@@@@ LSSL A0,6 NY )@@G@@ . SHIFT FOR SECTOR COUNT @H@@@@ AA A0,A5 NZ )@@G@@ . ADD INCREMENT (0 FOR PSE, 64 FOR PSF) @F@@@@ SA A0,DOA )@@G@@RPKT+5 . STORE NEW ADDRESS IN PACKET@F@@@@ LA,H1 A0,FOB )@@G@@ITEM+9 . RELOAD HIGHEST TRACK NUMBER@H@@@@ E$BD 6,TROC )@@G@@K$,6 . CONVERT OCTAL TRACKS TO FIELD-DATA @C@@@@ LAOD )@@G@@,H1 A0,FITEM+9 . RELOAD @F@@@@ LSSL A0,6 OE )@@G@@ . SHIFT FOR SECTOR VALUE @H@@@@ E$BD 6,SEC$,6 OF )@@G@@ . CONVERT OCTAL SECTORS TO FIELD-DATA @D@@@@ LA OG )@@G@@ A0,MSG . LOAD FIRST MSG @F@@@@ ER PRINT$ OH )@@G@@ . HIGHEST TRACK REFERENCED IS@D@@@@ LA A0,MSGA OI )@@G@@ . LOAD SECOND MSG@E@@@@ ER PRINT$ . BEGOJ )@@G@@INS AT SECTOR @H@@@@UPBLCK SLJ QGETAD . GET ADDROK )@@G@@ OF FILE INFO TABLE IN A0 @H@@@@ LA A1,DRPKT+5 OL )@@G@@ . NEW CURRENT DRUM POSITION IN SECTORS @G@@@@ S A1,2OM )@@G@@,A0 . CURRENT BLOCK (SECTOR) COUNT @F@@@@ J ON )@@G@@ CDIMGE . READ NEXT CPD COMMAND @D@@@@/ . THIS HANDLES MOO )@@G@@OVING BACKWARD OR REWINDING THE FILE@H@@@@PSBD* SX X2,A1 OP )@@G@@ . X2 HAS SECTOR COUNT FOR MOVE BACK @F@@@@ LNA OQ )@@G@@ A0,A1 . MAKE IT A NEGATIVE NUMBER @G@@@@ AA OR )@@G@@ A0,DRPKT+5 . ADD THE CURRENT ADDRESS TO IT @I@@@@ JNOS )@@G@@ A0,NEG . NEG-WE ARE BACK BEFORE START ZERO IT OUT OT )@@G@@@G@@@@ SA A0,DRPKT+5 . STILL IN FILE STORE NEW ADDOU )@@G@@RESS @B@@@@ SLJ QGETAD . @B@@@@ LAOV )@@G@@ A1,DRPKT+5 . @G@@@@ S A1,2,A0 OW )@@G@@ . PUT NEW SECTOR COUNT IN TABLE @B@@@@ J CDIMGE OX )@@G@@ . @I@@@@NEG SZ DRPKT+5 . RESET ADDRESS TOY )@@G@@O ZERO (BEGINNING OF FILE) @E@@@@ CLRF OZ )@@G@@ . CLEAR FILE COUNT @E@@@@ CLRR . CLEPA )@@G@@AR SECTOR COUNT @E@@@@ J CDIMGE . ALL DONE PB )@@G@@ GET OUT @H@@@@/ . THIS PORTION IS SET UP TO READ A MASS STORAGE FILEPC )@@G@@ IN SECTOR SIZE BLOCKS. @I@@@@ . THE USER CAN CHANGE THE BLOCK SIZE ANDPD )@@G@@/OR CONTROL THE NUMBER OF BLOCKS READ. @D@@@@DREAD* NOP PE )@@G@@ . ENTRY POINT %H@@@@-53 PF )@@G@@ BPD 3H@H@@[@ SX X11,PG )@@G@@SAVEX11 . SAVE RETURN ADDRESS BPD 3H@I@@[@ DLPH )@@G@@ A0,0,X11 . GET FILE NAME . BPD 3H PI )@@G@@@H@@[@ DS A0,DRPKT . STORE IN I/O PKT PJ )@@G@@ BPD 3H@H@@[@ DS A0,FITEM . STORE IN FITMEPK )@@G@@ PKT BPD 3H@H@@[@ LA A0,2,X11 . BUPL )@@G@@FFER ADDRESS BPD 3H@H@@[@ SA,H2 A0,DRPKT+4PM )@@G@@ . BPD 3H@G@@@@ SLJ PN )@@G@@ QGETAD . GET LATEST FILE DATA ADDRESS %H@@@@-54 PO )@@G@@ BPD 3H @H@@[@PP )@@G@@ LA A7,A0 . SAVE POINTER FOR DISC CMP BPQ )@@G@@PD 3H @E@@@@ LA A1,2,A0 . PICK UP DRUM ADDRESSPR )@@G@@@E@@@@ SA A1,DRPKT+5 . SAVE IN DRUM PACKET @G@@@@PS )@@G@@ LA,H1 A8,3,A0 . TEST TO SEE IF WE HAVE ENTERED PT )@@G@@@G@@@@ SA A8,MAXSEC . SAVE IN MAXIMUM RECORD TO PU )@@G@@READ @H@@@@ JNZ A8,DREADA+1 . BEFORE (PARAMETERS ARPV )@@G@@E ALREADY SET) @E@@@@ LA A8,A0 . SAVE A0 PW )@@G@@FOR LATER %H@@@@-61,62 PX )@@G@@ BPD 3H%@@@@]@B[@@@ LA,U A0,FITEM PY )@@G@@ . @G@@@@ ER FACIT$ . GET HIGHEST TRACK REFPZ )@@G@@ERENCED @B@@@@ L,H1 A0,FITEM+9 . @B@@@@ QA )@@G@@ A,U A0,1 . @E@@@@ LSSL A0,6 QB )@@G@@ . CONVERT TO SECTORS @B@@@@ SA A8,MAXSEC QC )@@G@@ . @B@@@@ LA A8,A0 . @B@@@@ LAQD )@@G@@ A0,MAXSEC . @C@@@@ SA,H1 A8,3,A0 QE )@@G@@ . @H@@@@ S A8,MAXSEC . SECTORS TO READQF )@@G@@ MUST BE LESS THAN THIS @G@@@@ SZ FIVE . ADQG )@@G@@DRESS OF A NON ALLOCATED TRACK@F@@@@ SZ NRFIVE QH )@@G@@ . NR OF NONWRITTEN TRACKS @H@@@@ GETFLD SAMECD QI )@@G@@ . SEE IF THE BLOCK SIZE IS TO BE CHANGED @G@@@@ JZ A2,DQJ )@@G@@READA . NO, GO READ IN SECTOR SIZE BLOCKS@F@@@@ SA QK )@@G@@ A1,X2 . STORE THE MULTIPLE IN X2 @E@@@@ LMJ QL )@@G@@ X11,CONVERT . CONVERT TO BINARY @H@@@@ SX X2,AQM )@@G@@5 . GET READY TO MODIFY THE BLOCK SIZE @G@@@@ SXQN )@@G@@ X2,A9 . A9 USED TO INCREMENT ADDRESS @G@@@@ QO )@@G@@ MSI,U A5,28 . CONVERT IT TO NUMBER OF WORDS @E@@@@QP )@@G@@ SA,H1 A5,DRPKT+4 . STORE IN DRUM PACKET @F@@@@ QQ )@@G@@ J $+2 . JUMP AROUND A9 MODIFICATION@H@@@@DREADAQR )@@G@@ LA,U A9,1 . BLOCK SIZE NOT MODIFIED INCREMENT BY 1 QS )@@G@@%H@@@@-85,86 QT )@@G@@ BPD 3H%@@@@]@D[@@@ L A0,DRPKT+5 . ADDRESS TQU )@@G@@O READ@E@@@@ TG A0,MAXSEC . IS AREA IN FILE RANGEQV )@@G@@@F@@@@ J FINISH . ADDRESS OUTSIDE FILE LIMITSQW )@@G@@@E@@@@ LA,U A0,DRPKT . LOAD DRUM PACKET @D@@@@QX )@@G@@ ER IOW$ . READ THE FILE @E@@@@ LAQY )@@G@@,S1 A0,DRPKT+3 . LOAD STATUS CODE @I@@@@ TNE,U QZ )@@G@@ A0,5 . 05--ATTEMPT TO READ FROM AREA NOT WRITTEN @F@@@@RA )@@G@@ J NOWRIT . HAVE NOT WRITTEN INTO TRACK@B@@@@RB )@@G@@ TNE,U A0,022 . @B@@@@ J FINIRC )@@G@@SH . @I@@@@ L A0,NRFIVE . ARE THERERD )@@G@@ ANY NON WRIT TRKS SINCE LAST RD @ @@@@ JZ A0,DREADB RE )@@G@@@H@@@@ L A0,FIVE . ADDRESS OF LAST SECTOR STARRF )@@G@@TING 05S @ @@@@ E$BD 6,OLD05,6 @F@@@@ L RG )@@G@@ A0,DRPKT+5 . SECTOR IN NEW WRITTEN AREA @ @@@@ E$BD RH )@@G@@ 6,NON05,6 @B@@@@ DL A0,FILEN . @B@@@@ RI )@@G@@ DS A0,NONEW5 . @C@@@@ L A0,(P 2,1RJ )@@G@@9,NONEW5) . @B@@@@ ER PRINT$ . @D@@@@RK )@@G@@ SZ FIVE . CLEAR ADDRESS @B@@@@ SZRL )@@G@@ NRFIVE . @]@@@@DREADB . @H@@@@ LA,H2 RM )@@G@@ A0,DRPKT+3 . VALID READ: LOAD NO. OF WORDS READ @C@@@@ RN )@@G@@ SA,H2 A0,NOWDS$ . SAVE IT @]@@@@BUMPAD . @D@@@@ RO )@@G@@ SLJ QGETAD . GET FILE DATA @J@@@@ LA RP )@@G@@ A1,2,A0 . DRPKT+5 . GET OLD VALUE RQ )@@G@@@D@@@@ SA A1,2,A0 . SAVE IT AWAY @E@@@@ RR )@@G@@ LA A0,DRPKT+5 . LOAD ACCESS ADDRESS @C@@@@ AARS )@@G@@ A0,A9 . BUMP IT @E@@@@ SA A0,DRPKT+5RT )@@G@@ . STORE NEW ADDRESS %H@@@@-119,119 RU )@@G@@ BPD 3H@H@@[@ L,U A0,BRV )@@G@@LOCK . RESET BUFFER ADDRESS BPD 3H@H@@[@ SARW )@@G@@,H2 A0,DRPKT+4 . BPD 3H@H@@[@RX )@@G@@ LX X11,SAVEX11 . GET RETURN ADDRESS RY )@@G@@BPD 3H@H@@[@ J 4,X11 . RZ )@@G@@ BPD 3H%@@@@[@E[@@@NOWRIT . ARESA )@@G@@A HAS 05 RETURN @B@@@@ TZ NRFIVE . @G@@@@SB )@@G@@ J STORWD . HAVE WRITTEN MESSAGE ALREADY SC )@@G@@@B@@@@ DL A0,FILEN . @B@@@@ DS SD )@@G@@ A0,NEW05 . @B@@@@ LA A0,DRPKT+5 . SE )@@G@@@G@@@@ S A0,FIVE . ADDRESS OF SECTOR CAUSING 0SF )@@G@@5 @B@@@@ E$BD 6,NWSC05,6 . @B@@@@ L SG )@@G@@ A0,(P 2,13,NEW05) @F@@@@ ER PRINT$ SH )@@G@@ . AREA NOT WRITTEN INTO @D@@@@STORWD SZ NOWDS$ SI )@@G@@ . NR WORDS READ @ @@@@ L A0,NRFIVE @^@@@@ A,SJ )@@G@@U A0,1@ @@@@ S A0,NRFIVE @B@@@@ J SK )@@G@@ BUMPAD . @G@@@@FINISH SZ SWITCH . EOFSL )@@G@@ ENCOUNTERED ZERO OUT SWITCH @B@@@@ SZ FIVE SM )@@G@@ . @B@@@@ SZ NRFIVE . @I@@@@ LASN )@@G@@,U A0,28 . RESET BLOCK SIZE TO 1 SECTOR JUST IN CASE SO )@@G@@@D@@@@ SA,H1 A0,DRPKT+4 . STORE IN PACKET@E@@@@ SP )@@G@@ INCR . UP THE BLOCK COUNT @E@@@@ SLSQ )@@G@@J PRTEFX . EOF ENCOUNTERED AT @E@@@@ SZ SR )@@G@@ DUPPNT . ZERO DRUM TAPE FLAG %H@@@@-143,143 SS )@@G@@ BPD 3H@H@@[@ LXST )@@G@@ X11,SAVEX11 . BPD 3H@H@@[@SU )@@G@@ LA A0,3,X11 . GET EOF ADDRESS SV )@@G@@BPD 3H@H@@[@ J 0,A0 . SW )@@G@@ BPD 3H%@@@@[@F[@@@/ . ROUTINE TO WRITE TO A MASS STORAGE FILSX )@@G@@E. DATA COMES FROM TAPE@E@@@@DWRTE* DL A0,F2NAM . LOASY )@@G@@D THE FILENAME @D@@@@ DS A0,DRPKT . STORE IN SZ )@@G@@PACKET@G@@@@ LA,H2 A0,NOWDS$ . NUMBER OF WORDS IN THTA )@@G@@E THE BLOCK @H@@@@ SA A0,A2 . USE A2 TO POINTTB )@@G@@ TO LAST VALID WORD @H@@@@ LXI,U A2,1 . INCTC )@@G@@REMENT VALUE FOR ZERO FILLING WORD @G@@@@ SA,H1 A0,DRPKT+4TD )@@G@@ . STORE NUMBER OF WORDS IN PACKET @E@@@@ LA,U A6,0TE )@@G@@10 . STORE WRITE FUNCTION @B@@@@ SA,S2 A6,DRPKT+3TF )@@G@@ . @E@@@@ DSL A0,36 . SHIFT FOR DIVISTG )@@G@@ION @H@@@@ DI,U A0,28 . DIVIDE TO OBTAIN NUMBTH )@@G@@ER OF SECTORS @D@@@@ JZ A1,WRITE . EVEN MULTTI )@@G@@IPLE? @H@@@@ AA,U A0,1 . NO ADD 1 TO THE NUMBTJ )@@G@@ER OF SECTORS @E@@@@ LA,U A3,27 . DETERMINETK )@@G@@ NUMBER @E@@@@ ANA A3,A1 . OF WORDS TO ZERTL )@@G@@O FILL@C@@@@BLNKFL SZ BLOCK,*A2 . ZERO FILL@D@@@@ TM )@@G@@ JGD A3,BLNKFL . LAST SECTOR @F@@@@ SA,H1 TN )@@G@@ A2,DRPKT+4 . STORE WORD COUNT IN PACKET @G@@@@WRITE SA TO )@@G@@ A0,INCREMENT . STORE WORD COUNT FOR ADDRESSING @D@@@@ LATP )@@G@@,U A0,DRPKT . WRITE IT OUT @B@@@@ ER IOW$TQ )@@G@@ . @D@@@@ LA A0,INCREMENT . BUMP ADDRTR )@@G@@ESS @D@@@@ AA A0,DRPKT+5 . AFTER WRITE @B@@@@TS )@@G@@ SA A0,DRPKT+5 . @E@@@@ LA,U A6,0TT )@@G@@20 . RESET PACKET FOR READ@B@@@@ SA,S2 A6,DRPKT+3TU )@@G@@ . @C@@@@ J *RITE . GET OUT@#@@@@TV )@@G@@/ . DATA AREA @]@@@@$(0) . %H@@@@-172 TW )@@G@@ BPD 3H@H@@[@SAVEX11 00 . HOLTX )@@G@@D X11 BPD 3H@B@@@@P TY )@@G@@ FORM 12,6,18 . @B@@@@MSG P 2,11,MSGPKT TZ )@@G@@ . @B@@@@MSGA P 2,5,MSGPKTA . @B@@@@INCREMUA )@@G@@ENT + 0 . @#@@@@FIVE + 0 @#@@@@NRFIVEUB )@@G@@ + 0 @#@@@@MAXSEC + 0 @B@@@@SWITCH* + 0 UC )@@G@@ . @D@@@@DRPKT* + 0 . DRUM PACKET UD )@@G@@@B@@@@ + 0 . @B@@@@ + UE )@@G@@ 0 . @B@@@@ + 02000,0 . UF )@@G@@@B@@@@ + 28,BLOCK . @B@@@@ + UG )@@G@@ 0 . @F@@@@FITEM + 0 . PACUH )@@G@@KET FOR FACIT$ REQUEST @B@@@@ + 0 . UI )@@G@@@B@@@@ + 0 . @B@@@@ + UJ )@@G@@ 0 . @B@@@@ + 0 . UK )@@G@@@B@@@@ + 0 . @B@@@@ + UL )@@G@@ 0 . @B@@@@ + 0 . UM )@@G@@@B@@@@ + 0 . @B@@@@ + UN )@@G@@ 0 . @E@@@@MSGPKT 'THE HIGHEST TRACK REFERENCED OF FUO )@@G@@ILE ' . @^@@@@FILNM ' ' .@#@@@@ ' IS ' . UP )@@G@@@#@@@@TRK$ ' ' . @A@@@@MSGPKTA 'THIS BEGINS AT SECTOR' @#@@@@UQ )@@G@@SEC$ ' ' . @H@@@@NEW05 ' HAS AN AREA WHICH HAS NUR )@@G@@OT BEEN WRITTEN INTO AT ' @^@@@@ 'SECTOR ' @#@@@@NWSC05US )@@G@@ + 0 @B@@@@NONEW5 ' SECTOR '@#@@@@NON05 UT )@@G@@ + 0 @G@@@@ ' IS IN THE NEXT TRACK AREA WRITTEUU )@@G@@N INTO AFTER TH' @E@@@@ 'E TRACK CONTAINING SECTOR 'UV )@@G@@ . @#@@@@OLD05 + 0 @B@@@@ END UW )@@G@@ . ___DS TO ZER)@@[EK[#@[@K0@^G@^@@@@@@/K@@@Z[@@@@HG@@@@LC@@@@HUX )@@G@@/K@@@D:[K@[CA@)@@L/K@@@E @@@@LAA@@@@)@D[]K)#K0@K0@ES@CK]CS@CS@@@@@CC@@@RUY )@@G@@C[)@@H'=@@@@C8@@@I9*@@@Z9*@@@I9?@@@@C9K@[@AB@@@@)@L[E^G@^G@^C@]&@]A@@-@@UZ )@@G@@/,0@@@;*@@@ACC@@@RA@ @@+/,0@@@CC@@@R[@@@@HG@@@@L;*@@@AAC@@@@)@U[]()@-)@-VA )@@G@@@E-)@-@E-@G-)@@@@@A#W@@]C@K@@H'^@@@@'=@@@@C@@@@]'=@@@@C@@@@[A@ @@$AD@@@@VB )@@G@@)@+[F]@W^G@^[#@[]@T#@@@@A#W@@]C@K@@H'^@@@@[@@@@H/G@@@?G@@@@HD@@@@HA@)@@HVC )@@G@@/K@@@@AE@@@@)@:[#]@X#@[]@-]@>]@WK0@@@@@@@@9?F@@@A]0@@@/S@@@@/K@@@@'^@@@@VD )@@G@@'^@@@@ @@@@H/K@@@@AF@@@@)@3[F#@[#@@K0@K)A[#@@@@@CEG@@#[@K@@HC@W@@]C[0@@GVE )@@G@@'^@@@@[^@@@GC@F@@]9*@@@I9*@@@CAG@@@@)@/[F#@[@]&@]^@+A@@CS@@@[]@@@A;*@@@AVF )@@G@@O;@@@[RF@@@R'=@@@@C8@@@IC]@@@G/A@@[R[]@@@AAH@@@@)[ []K0@^G@^G@^G@^C]+?@KVG )@@G@@@@@@@@R;)@@[C!@@@@ @@@@ @@@@^[]@@@A[EG@@#C@@@@AC]@@@GAI@@@@)[H[F]@!@^C#VH )@@G@@@^G@^@@@@@@@/K@@[R[DK@@GT9K@@WA@)@@PA@)@@L/,0@@@[@K@@]/@)@[Q'^@@@@AJ@@@@VI )@@G@@)[Q[EK0@K0@K]&@]^[%A@@)@/K@@[;:8@@@ C4@@@F'=@@@@C8@@@C/K@@]E!@@@@AR#@@@HVJ )@@G@@C'K@@[AK@@@@)[Z[]K^G@^[#@[]@@()@-)@@@@@@@@R#@@@HA@ @[B/,0@@@R#@@@^/@@@[\VK )@@G@@R#@@@ /K@@]E:8@@@MAL@@@@)[$[#]@@()@-@A-)@-)@-@E-)@-)@@ @@@@ @@@@^'=@@@@VL )@@G@@R#@@[D9*@@@59?@@@@A@ @@9/,0@@@AM@@@@)[\[F#@[]@9]@S^G@[#@@(@YR;@@@@[@@@@HVM )@@G@@G@@@@PC@@@@H[@W@@]C@W@@]'^@@@@[^@@@@C^@@@FAN@@@@)[8[##@[#@@K0@K^C@4G@^G@VN )@@G@@@@@@@@C@@@@H9*@@@*9?@@@@/K@@] *@@@@ /KF@@^R]0@@@[^@@@GAO@@@@)]@[##@[]@@(VO )@@G@@)@-)@-@E-@W-)@@@@@O;@@@[R#@@@ @@@@@'=@@@@R#@@[EA@ @@4/,0@@@A#@@@^AP@@@@VP )@@G@@)]C[##@[@K0@K0@K0@^G@^C^@@@@@@'^@@@@[C@@@GC8@@@W @@@@ @@@@^ @@@@B/K@@[1VQ )@@G@@A#@@@ AQ@@@@)]K[F][ ][D#@@^C^4G@^C#)[@@@@IC^@@@@9*@@@C9?@@@@/KG@@@C@F@@#VR )@@G@@R]0@@@ @@@@@'^@@@@AR@@@@)]T[MK0@^G@@K@@@@@H@0@@HC80@@VG8@@@[/@K@]&W8@@@WVS )@@G@@;G@@@=[1)@@FC9)@@C[C@@@G&;)@@[AS@@@@)]<[#]@.@K0@K0@ES@CKA*S@CS@@@@G@@@@HVT )@@G@@C@@@@#'=@@@@C8@@@C[@@@@#[C)@@G8#0@]< @I)@@AT@@@@)]:@<#@@K0@K)O@@@@)@@@)EVU )@@G@@[K@@@@@@@@@@@] @@<@]F@@S@@@@@@/K@K@@[1)@@FC9)@@K[@@@@HAU@@@@)@^[S@@]=[8@VV )@@G@@@@@@@@@@@@@@@@W@@@@K@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AV@@@@VW )@@G@@)@J[S@@@@@@@GHEST THE HI@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@VX )@@G@@@@@@@@AW@@@@)@U[S@@@@@@@EGINS THIS B IS F FILEVY )@@G@@NCED OREFERETRACK AX@@@@)@>[S@@@@@@@N WRITOT BEE HAS N WHICHN AREA HAS AVZ )@@G@@ TOR AT SECAY@@@@)@0[S@@@@@@@ IS IN@@@@@@R SECTOWA )@@G@@ @@@@@@ SECTORTO AT TEN INAZ@@@@)@;[S@@@@@@@ SECTOAININGWB )@@G@@K CONTE TRACTER THNTO AFTTEN IEA WRIACK AREXT TR THE NBA@@@@)[A@*@* @@@@WC )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@]H@@*@]N@@5#_____@@@@@@R BB@@@@WD )@@G@@@@^@@]@@A@@P@@0@@B@[G@@@@@@@[F@@@@]\EBD$X EBO$X SAMECD WE )@@G@@FILEN FACIT$ PRINT$ QGETAD CDIMGE CLRFX WF )@@G@@CLRRX PPKT GETSCN CONVERT IOW$ NOWDS$ WG )@@G@@BLOCK INCRX PRTEFX DUPPNT F2NAM RITE WH )@@G@@PSED @@[@@@@@@@@@PSFD @@[@@@@@@@@]PSBD @@[@@@@@@@@ 020 SET OPTION BPD 03F @I@@@A J ND )@@G@@ *COMMND . GO TO COMMAND SUBROUTINE CD305200 NE )@@G@@@I@@@ANOFILE . COME HERE IF FILE NOT ASSIGNED NF )@@G@@ BPF 03F @I@@@A DL A0,FACPAC . GET FILENG )@@G@@ NAME BPD 03F @I@@@A DS A0,MSGE+1 NH )@@G@@ . BPD 03F @I@@@A LANI )@@G@@ A0,(0105,MSGE) . SET PRINT PKT BPD 03F NJ )@@G@@@I@@@A ER PRINT$ . NK )@@G@@ BPD 03F @I@@@A J CDIMGE . GET NEXTNL )@@G@@ CONTROL CARD BPD 03F @[@@@A. @C@@@ANEWOPT . CHANGENM )@@G@@ CPD OPTIONS BPD 03G @I@@@A SZ OPTION NN )@@G@@ . CLEAR OPTIONS BPD 03G @I@@@A SZ NO )@@G@@ OPTION2 . BPD 03G @I@@@ANP )@@G@@ SZ TEMP . NQ )@@G@@BPD 03G @I@@@A LA,U A3,1 . USED TO SET OPNR )@@G@@TION BPD 03G @I@@@A LA,U A4,04 NS )@@G@@ . SET X OPTION BPD 03G @I@@@A LR,U NT )@@G@@ R12,5 . LOOP 5 TIMES - 6 OPTIONS ALLOWED BPD 03G @I@@@ANU )@@G@@ SA A1,FILEN . STORE OPTIONS NV )@@G@@BPD 03G @C@@@AOPTLOOP . GET OPTIONS BPD 03G @I@@@ANW )@@G@@ LA A1,('@@@@@A') . NX )@@G@@BPD 03G %H@@@@-112,112 NY )@@G@@ BPD 3H @H@@@A TNE,S1 A1,FILEN . A NZ )@@G@@OPTION BPD 3H %@@@@[@I@@@A SA,S1 A3,OOA )@@G@@PTION . YES SET BPD 03G @I@@@A OB )@@G@@ LA A1,('@@@@@H') . BPD 03OC )@@G@@G @I@@@A TNE,S1 A1,FILEN . H OPTION OD )@@G@@ BPD 03G @I@@@A SA,S3 A3,OPTION . OE )@@G@@ BPD 03G @I@@@A LA A1,(OF )@@G@@'@@@@@O') . O OPTION BPD 03G @I@@@A OG )@@G@@ TNE,S1 A1,FILEN . BPD 03OH )@@G@@G @I@@@A SA,S2 A3,OPTION . OI )@@G@@ BPD 03G @I@@@A LA A1,('@@@@@Q') . Q OJ )@@G@@OPTION BPD 03G @I@@@A TNE,S1 A1,FOK )@@G@@ILEN . BPD 03G @I@@@A OL )@@G@@ SA,S1 A3,OPTION2 . BPD 03OM )@@G@@G @I@@@A LA A1,('@@@@@R') . R OPTION ON )@@G@@ BPD 03G @I@@@A TNE,S1 A1,FILEN . OO )@@G@@ BPD 03G @I@@@A SA,S2 A3,OOP )@@G@@PTION2 . BPD 03G @I@@@A OQ )@@G@@ LA A1,('@@@@@F') . F OPTION BPD 03OR )@@G@@G @I@@@A TNE,S1 A1,FILEN . OS )@@G@@ BPD 03G @I@@@A SA,S6 A3,OPTION . OT )@@G@@ BPD 03G @I@@@A LA A1,(OU )@@G@@'@@@@@X') . X OPTION BPD 03G @I@@@A OV )@@G@@ TNE,S1 A1,FILEN . BPD 03OW )@@G@@G @I@@@A SA A4,TEMP . SET X OPTION OX )@@G@@ BPD 03G %H@@@@-132,132 OY )@@G@@ BPD 3H @H@@@A LA A1,('@@@@@OZ )@@G@@L') . L OPTION BPD 3H %@@@@[@I@@@A TNPA )@@G@@E,S1 A1,FILEN . BPD 03G PB )@@G@@@I@@@A SA,S4 A3,OPTION . PC )@@G@@ BPD 03G %H@@@@-134 PD )@@G@@ BPD 3H @H@@@A. D OPTION IS SET BY FITEM$ PE )@@G@@ BPD 3H @I@@@A LA A1,FPF )@@G@@ILEN . BPD 03G @I@@@A PG )@@G@@ SSC A1,6 . SHIFT 6 BITS BPD 03PH )@@G@@G @I@@@A SA A1,FILEN . PI )@@G@@ BPD 03G @C@@@A JGD R12,OPTLOOP . BPPJ )@@G@@D 03G @I@@@A J CDIMGE . GET NEW COMMAND PK )@@G@@ . BPD 03G @B@@@A/ . PL )@@G@@@I@@@AWREOF DL A0,FILEN . PICK UP FILENAME FIRST 6 CPM )@@G@@HARS CD305400 @I@@@A DS A0,TAPPKT . PUT IT IPN )@@G@@N TAPE PACKET WORD 1 CD305500 @I@@@A L,U A0,011 PO )@@G@@ . FUNC CODE FOR WRITE END-OF-FILE CD305600 @I@@@A S,PP )@@G@@S2 A0,TAPPKT+3 . STORED FUNC CODE IN PROPER WORD.CD305700 PQ )@@G@@@I@@@A L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE---PR )@@G@@ CD305800 @I@@@A ER IOW$ . WRITE ENPS )@@G@@D-OF-FILE CD305900 @I@@@A ER IOW$ PT )@@G@@ . WRITE SECOND EOF CD306000 @I@@@A L,PU )@@G@@U A0,051 . FUNCTION CODE FOR BACKSPACE CD306100 PV )@@G@@@I@@@A S,S2 A0,TAPPKT+3 . STORE IN PROPER WORD PW )@@G@@ CD306200 @I@@@A L,U A0,TAPPKT . I/O PACKEPX )@@G@@T FOR MAG TAPE CD306300 @I@@@A ER IOW$ PY )@@G@@ . BACKSPACE OVER SECOND EOF CD306400 @I@@@A INPZ )@@G@@CF . INCREASE THE FILE COUNT CD306500 QA )@@G@@@I@@@A TZ,S6 OPTION . F OPTION SET? QB )@@G@@ CD306600 @I@@@A J FCOPYC . YES QC )@@G@@ CD306700 @I@@@A J CDIMGE QD )@@G@@ . GO BACK AND GET NEXT PARAMETER CCD306800 @I@@@AREWW LAQE )@@G@@,U A0,040 . NO CD306900 QF )@@G@@@I@@@A S,S2 A0,TAPPKT+3 . STORE FUNCTION CODE IN PACKQG )@@G@@ET CD307000 @I@@@A DL A0,FILEN . REWIND NQH )@@G@@O INTERLOCK ROUTINE---GECD307100 @I@@@A DS A0,TAPPKT QI )@@G@@ . STORE WORD ONE IN TAPE PACKET CD307200 @I@@@A L,QJ )@@G@@U A0,TAPPKT . I/0 PACKET FOR MAG TAPE CD307300 QK )@@G@@@I@@@A ER IOW$ . REWIND WITHOUT INTERLOCK QL )@@G@@ CD307400 @I@@@A CLRF QM )@@G@@ CD307500 @I@@@A CLRR QN )@@G@@ CD307600 @I@@@A GEQO )@@G@@TFLD SAMECD . SEE IF THERE ARE ANY MORE FILES CD307700 QP )@@G@@@I@@@A JZ A2,CDIMGE . NO QQ )@@G@@ CD307800 @I@@@A J NAME . YES GO RQR )@@G@@EWIND THEM CD307900 @I@@@AREWI DL A0,FILEN QS )@@G@@ . LOAD FILENAME CD308000 @I@@@A DSQT )@@G@@ A0,FREED+1 . STORE IN PACKET CD308100 QU )@@G@@@I@@@A L A0,(3,FREED) . LOAD @FREE PACKET QV )@@G@@ CD308200 @I@@@A ER CSF$ . FREE THE QW )@@G@@TAPE ( OR FILE) CD308300 @I@@@A GETFLD SAMECD QX )@@G@@ . ANY MORE? CD308400 @I@@@A JZQY )@@G@@ A2,CDIMGE . NO CD308500 QZ )@@G@@@I@@@A J NAME . INSERT NEW FILENAME AND FRRA )@@G@@EE . 3C @I@@@A. SWAP TAPE REELS RB )@@G@@ CD308700 @I@@@ASWAPRL . RC )@@G@@ CD308800 @I@@@A L,RD )@@G@@U A0,FILEN CD308900 RE )@@G@@@I@@@A ER TSWAP$ RF )@@G@@ CD309000 @I@@@A J CDIMGE RG )@@G@@ CD309100 @B@@@A/ RH )@@G@@ . @I@@@A. ROUTINE FOR POSITIONING TAPE FORWARD ONE BLOCK AT A RI )@@G@@TIME CD309300 @I@@@APOSFOR SZ PSERET RJ )@@G@@ . ZERO PSE JUMP RETURN CD309400 @I@@@A GETFLD RK )@@G@@ SAMECD . PICK UP 'N' FIELD OF PARAMETER CCD309500 @I@@@ARL )@@G@@ LMJ X11,NOVAL . GO TEST FOR USER COUNT RM )@@G@@CD309600 @I@@@A J REPEATB . COME HERE IF WERN )@@G@@ PROVIDED FILE COUCD309700 @I@@@A SA A1,X2 RO )@@G@@ . CD309800 @I@@@A SLJ RP )@@G@@ CNVT . CONVERT TO BINY VALUE WILL BE INCD309900 @I@@@ARQ )@@G@@REPEATB LA,S5 A0,OPTION . LOAD FOR 'D' OPTION TEST RR )@@G@@CD310000 @I@@@A TOP,U A0,01 . 'D' OPTION SET?RS )@@G@@ CD310100 @I@@@A J COUNTT RT )@@G@@ . TEST FOR O COUNT BEFORE POSITIOCD310200 @I@@@A J RU )@@G@@ PSFD . GO TO DRUM ROUTINE CD310300 @I@@@ARV )@@G@@REPEAT DL A0,FILEN . FILENAME WD TWO RW )@@G@@CD310400 @I@@@A DS A0,TAPPKT RX )@@G@@ CD310500 @I@@@A L,U A0,050 RY )@@G@@ . FUNC CODE FOR POS FILE FORWARD OCD310600 @I@@@A S,S2 RZ )@@G@@ A0,TAPPKT+3 . PLACE IN PROPER WORD OF PACKET CD310700 @I@@@ASA )@@G@@ LA,U A0,FOPT(3) . SB )@@G@@CD310800 @I@@@A SA A0,PNT . SC )@@G@@ CD310900 @I@@@A J REPETA SD )@@G@@ . CD311000 @I@@@AFOPT(3) TNZ SE )@@G@@ NO2EOF . COMING FROM EOF COMPARE CD311100 @I@@@ASF )@@G@@ J COUNT SG )@@G@@CD311200 @I@@@A L X2,SAVJGD . CLEANUP FOR RESH )@@G@@TURN TO CMP CD311300 @I@@@A SZ NO2EOF SI )@@G@@ CD311400 @I@@@A J SJ )@@G@@ NXTCMP CD311500 @I@@@ASK )@@G@@REPETA L,U A0,TAPPKT . I/0 PACKET FOR MAG TAPE SL )@@G@@CD311600 @I@@@A ER IOW$ . MOVE ONE BLOCKSM )@@G@@ FORWARD CD311700 @I@@@A INCR SN )@@G@@ CD311800 @I@@@A L,U SO )@@G@@ A0,1 . STATUS CODE FOR TESTING EOF CD311900 @I@@@ASP )@@G@@ TNE,S1 A0,TAPPKT+3 . IS IT EOF SQ )@@G@@CD312000 @I@@@A J FOUND1 . SR )@@G@@ CD312100 @I@@@A TNZ,S6 OPTION SS )@@G@@ . F OPTION SET? CD312200 @I@@@A J ST )@@G@@ COUNT . NO CD312300 @I@@@ASU )@@G@@ J REPETA . SV )@@G@@CD312400 @I@@@AFOUND1 TZ PSERET . COMMONG FROM PSW )@@G@@SE COMMAND TEST CD312500 @I@@@A J POSF2 SX )@@G@@ CD312600 @I@@@A SLJ SY )@@G@@ PRTEFX . PRINT EOF ENCOUNTERED CD312700 @I@@@ASZ )@@G@@ INCF TA )@@G@@CD312800 @I@@@A TZ NONO . TB )@@G@@ CD312900 @I@@@A J NXTFLE TC )@@G@@ . CD313000 @I@@@A TZ,S6 TD )@@G@@ OPTION . F OPTION SET? CD313100 @I@@@ATE )@@G@@ J *PNT . GO BACK WHERE CAME FROM TF )@@G@@CD313200 @I@@@A J CDIMGE TG )@@G@@ CD313300 @I@@@ACOUNTT JGD X2,REPEAT TH )@@G@@ . TO TAKE CARE OF FIRST PASS CD313400 @I@@@A J TI )@@G@@ CDIMGE . CD313500 @I@@@ATJ )@@G@@COUNT JGD X2,REPETA . GO BACK AND DO IT AGAIN TK )@@G@@CD313600 @I@@@A J CDIMGE . PROCESS NEXT CTL )@@G@@ARD CD313700 @I@@@A . TM )@@G@@ CD313800 @I@@@A. ROUTINE TO POSITTN )@@G@@ION FORWARD PAST EOF AND BACK UP 1 BLOCK..............CD313900 @I@@@ATO )@@G@@ . TP )@@G@@CD314000 @I@@@APOSF1 LA,S5 A0,OPTION . TEST FOR D OPTITQ )@@G@@ON CD314100 @I@@@A TEP,U A0,1 TR )@@G@@ . CD314200 @I@@@A J TS )@@G@@ PSED . YES CD314300 @I@@@ATT )@@G@@ SA A2,PSERET . NONZERE RET. SWCH:A2=NR CHAR FN TU )@@G@@CD314400 @I@@@A J POSFOR+1 . TV )@@G@@ CD314500 @I@@@APOSF2 SZ PSERET TW )@@G@@ . CLEAN UP SWITCH CD314600 @I@@@A L,U TX )@@G@@ A0,051 . BACKSPACE OVER EOF CD314700 @I@@@ATY )@@G@@ S,S2 A0,TAPPKT+3 TZ )@@G@@CD314800 @I@@@A L,U A0,TAPPKT UA )@@G@@ CD314900 @I@@@A ER IOW$ UB )@@G@@ CD315000 @I@@@A DCRR UC )@@G@@ CD315100 @I@@@AUD )@@G@@PRTAFB . UE )@@G@@CD315200 @I@@@A DL A1,FILEN . MSG- POSITIONEUF )@@G@@D AFTER BLOCK XX. CD315300 @I@@@A DS A1,BLKPOS UG )@@G@@ CD315400 @I@@@A SLJ UH )@@G@@ QGETAD CD315500 @I@@@AUI )@@G@@ L A0,2,A0 UJ )@@G@@CD315600 @I@@@A E$BD 6,AFTBLK,6 . UK )@@G@@ CD315700 @I@@@A L A0,AFTERB UL )@@G@@ CD315800 @I@@@A ER UM )@@G@@ PRINT$ CD315900 @I@@@AUN )@@G@@ J CDIMGE UO )@@G@@CD316000 @B@@@A/ . @I@@@APOSBWDUP )@@G@@ GETFLD SAMECD . PICK UP VALUE 'N' FOR POSITIONINCD3162UQ )@@G@@00 @I@@@A SZ OVWJMP . ZERO EXIT TO OVW COMUR )@@G@@MAND CD316300 @I@@@A LMJ X11,NOVAL . GO US )@@G@@TEST FOR USER COUNT CD316400 @I@@@A J GETRUT )@@G@@EC . COME HERE IF WE PROVIDED FILE COUCD316500 @I@@@A UU )@@G@@ SA A1,X2 . CD3166UV )@@G@@00 @I@@@A SLJ CNVT UW )@@G@@ CD316700 @I@@@AGETREC LA,S5 A0,OPTION . TESUX )@@G@@T FOR D OPTION CD316800 @I@@@A TEP,U A0,1UY )@@G@@ . CD316900 @I@@@A UZ )@@G@@ J PSBD . YES CD3170VA )@@G@@00 @I@@@A DL A0,FILEN . NO VB )@@G@@ CD317100 @I@@@A DS A0,TAPPKT . VC )@@G@@ CD317200 @I@@@ABWDSET L,U A0,0VD )@@G@@51 . POSITION BACKWARDS FUNCTION CD317300 @I@@@A VE )@@G@@ S,S2 A0,TAPPKT+3 . PROPER WD FOR THIS CODE CD3174VF )@@G@@00 @I@@@A J COUNT1 . VG )@@G@@ CD317500 @I@@@ABACKUP L,U A0,TAPPKT . LOVH )@@G@@AD THE PACKET CD317600 @I@@@A ER IOW$VI )@@G@@ . MOVE TAPE BACKWARD ONE BLOCK CD317700 @I@@@A VJ )@@G@@ DCRR CD3178VK )@@G@@00 @I@@@A L,U A0,1 . STATUS CODE FOR EOF VL )@@G@@ CD317900 @I@@@A TNE,S1 A0,TAPPKT+3 . TESVM )@@G@@T FOR EOF CD318000 @I@@@A J EOFOVN )@@G@@UT . YES GET OUT CD318100 @I@@@A VO )@@G@@ L,U A0,02 . LOAD POINT RETURN CODE CD3182VP )@@G@@00 @I@@@A TNE,S1 A0,TAPPKT+3 . TEST FOR LOAD POINT VQ )@@G@@ CD318300 @I@@@A J LPOUT . YESVR )@@G@@ GET OUT CD318400 @I@@@A TZ,S6 OPTIVS )@@G@@ON . F OPTION SET? CD318500 @I@@@A VT )@@G@@ J BACKUP . YES CD3186VU )@@G@@00 @I@@@A J COUNT1 . NO VV )@@G@@ CD318700 @I@@@AEOFOUT DCRF . VW )@@G@@ CD318800 @I@@@A TNZ OVWJVX )@@G@@MP . DON'T PRINT MESSAGE IF OVERWRITECD318900 @I@@@A VY )@@G@@ SLJ PRTEFX CD3190VZ )@@G@@00 @E@@@A CLRR . ZERO RECORD COUNT WA )@@G@@@I@@@A TNZ,S6 OPTION . F OPTION SET? WB )@@G@@ CD319100 @I@@@A J CDIMGE . NO WC )@@G@@ CD319200 @I@@@A JGD X2,BACKUP WD )@@G@@ . CD319400 @I@@@A L WE )@@G@@ A0,OVWJMP . DID WE COME FROM OVERWRITE CMD CD319500 WF )@@G@@@I@@@A JNZ A0,OVWRET WG )@@G@@ CD319600 @I@@@A J CDIMGE . GET ANOTWH )@@G@@HER COMMAND CD319700 @I@@@ALPOUT L A0,(P 2,8WI )@@G@@,PRTLPF) . LOAD AND PRINT LOAD POINT MESGCD319800 @I@@@A ERWJ )@@G@@ PRINT$ . WRITE OUT MESSAGE CD319900 WK )@@G@@@I@@@A CLRR . CLEAR RECORD COUNTER WL )@@G@@ CD320000 @I@@@A CLRF . CLEAR FILWM )@@G@@E COUNTER CD320100 @I@@@A J CDIMGE WN )@@G@@ . GO GET ANOTHER CD320200 @I@@@ACOUNT1 JGWO )@@G@@D X2,BACKUP . CHECK BLOCK COUNT AND DECREMENT CD320300 WP )@@G@@@I@@@A J CDIMGE . GET ANOTHER COMMAND WQ )@@G@@ CD320400 @B@@@A/ . @I@@@AWR )@@G@@COPY GETFLD SAMECD . GET OUTPUT FILE NAME WS )@@G@@CD320600 @I@@@A JZ A2,BADCOM . PARAMETER CARDWT )@@G@@ CHECK CD320700 @I@@@A MSI,U A2,6 WU )@@G@@ . DETERMINE NUMBER OF SHIFT POSITICD320800 @I@@@A S,T3 WV )@@G@@ A2,$+1 CD320900 @I@@@AWW )@@G@@ DSC A0,0 . POSITION FILENAME WX )@@G@@CD321000 @I@@@A DS A0,F2NAM . DS OUTPUT FILEWY )@@G@@NAME CD321100 @I@@@A GETFLD SAMECD WZ )@@G@@ . GET VALUE 'N' IF ANY CD321200 @I@@@A LMJ XA )@@G@@ X11,NOVAL . GO TEST FOR USER COUNT CD321300 @I@@@AXB )@@G@@ J LEG1+1 . COME HERE IF WE PROVIDED FILE COUXC )@@G@@CD321400 @I@@@A SA A1,X2 . NR FILES OR REXD )@@G@@CORDS CD321500 @I@@@ALEG1 SLJ CNVT XE )@@G@@ . FD TO BIN CD321600 @I@@@A DL XF )@@G@@ A0,FILEN CD321700 @I@@@AXG )@@G@@ DS A0,FN1 XH )@@G@@CD321800 @I@@@A TZ,S6 OPTION . F OPTION SET? XI )@@G@@ CD321900 @I@@@A J FCOPYA XJ )@@G@@ . YES CD322000 @I@@@A J XK )@@G@@ WRITER+1 CD322100 @I@@@AXL )@@G@@KEEPON LA,S5 A0,OPTION . TEST FOR 'D' OPTION XM )@@G@@CD322200 @I@@@A JZ A0,$+2 . NO 'D' OPTION XN )@@G@@ CD322300 @I@@@A SA A0,DUPPNT XO )@@G@@ . SET FLAG CD322400 @I@@@A SLJ XP )@@G@@ GENRD1 CD322500 @I@@@AXQ )@@G@@ INCR XR )@@G@@CD322600 @I@@@AWRITER SLJ RITE . COPY BAD RECORXS )@@G@@D CD322700 @I@@@A SZ DUPPNT XT )@@G@@ . ZERO OUT TAPE-DRUM DUPE FLAG CD322800 @I@@@A JGD XU )@@G@@ X2,KEEPON CD322900 @I@@@AXV )@@G@@ J CDIMGE XW )@@G@@CD323000 @I@@@AFCOPYA LA,U A0,FOPT(1) . XX )@@G@@ CD323100 @I@@@A SA A0,PNT XY )@@G@@ . CD323200 @ @@@A L XZ )@@G@@ A0,X2 @G@@@A TNE A0,NMANYF . DID USER GIVEYA )@@G@@ A FILE COUNT @E@@@A L,U X2,1 . NO - ONLYB )@@G@@Y DO 1 FILE @I@@@A J FCOPYB . YC )@@G@@ CD323300 @I@@@AFCOPY SLJ GENRD1 YD )@@G@@ . GO READ A BLOCK CD323400 @I@@@A INCR YE )@@G@@ . INCREMENT RECORD COUNT CD323500 @I@@@AYF )@@G@@ SLJ RITE . WRITE IT OUT YG )@@G@@CD323600 @I@@@A J FCOPY . GO GET ANOTHER YH )@@G@@ CD323700 @I@@@AFOPT(1) LX X2,BS YI )@@G@@ . RELOAD X2 CD323800 @I@@@A DL YJ )@@G@@ A0,F2NAM . LOAD OUTPUT FILE NAME CD323900 @I@@@AYK )@@G@@ DS A0,FILEN . YL )@@G@@CD324000 @I@@@A J WREOF+1 . GO MARK THE TAPYM )@@G@@E CD324100 @I@@@AFCOPYC DL A0,FN1 YN )@@G@@ . RESET FILE NAME TO FIRST NAME CD324200 @I@@@A DS YO )@@G@@ A0,FILEN . CD324300 @I@@@AYP )@@G@@FCOPYB JGD X2,FCOPY . GO START ANOTHER YQ )@@G@@CD324400 @I@@@A J CDIMGE . GO GET ANOTHER YR )@@G@@CARD CD324500 @B@@@A/ YS )@@G@@ . @I@@@ARITE* NOP . YT )@@G@@ CD324700 @I@@@A TZ DUPPNT . TAPYU )@@G@@E TO DRUM DUPE? CD324800 @I@@@A J DWRTYV )@@G@@E . YES CD324900 @I@@@A YW )@@G@@ DL A0,F2NAM . PICK UP OUTPUT FN CD3250YX )@@G@@00 @I@@@A DS A0,TAPWRI . PUT IN TAPE WRITE PAYY )@@G@@CKET CD325100 @I@@@A L,H2 A0,NOWDS$ . PIYZ )@@G@@CK UP NUMBER WORDS CD325200 @I@@@A S,H1 A0,TZA )@@G@@APWRI+4 . STORE IN WRITE PACKET CD325300 @I@@@A ZB )@@G@@ L,U A0,TAPWRI . PICK UP WRITE PACKET CD3254ZC )@@G@@00 @I@@@A ER IOW$ . WRITE TAPE ZD )@@G@@ CD325500 @I@@@A L,U A0,2 . STZE )@@G@@ATUS CODE FOR TESTING EOT CD325600 @I@@@A TNE,S1 A0,TAPWRZF )@@G@@I+3 CD325700 @I@@@A ZG )@@G@@ J EOTRET CD3258ZH )@@G@@00 @I@@@A L,U A0,010 . TEST ABORT ERRORS ZI )@@G@@ CD325900 @I@@@A TG,S1 A0,TAPWRI+3 . TEZJ )@@G@@ST IT CD326000 @I@@@A J *RITZK )@@G@@E CD326100 @I@@@A ZL )@@G@@ J PROBLM . HAD A WROTE ERROR CONDITION CD3262ZM )@@G@@00 @I@@@A . WHEN GET AN END OF TAPE RETURN FROM IOW - WILL WRITE AZN )@@G@@N EOF ON CD326300 @I@@@A. TAPE, THEN DO AN ER TO TSWAP$ TO GET ANZO )@@G@@OTHER TAPE CD326400 @I@@@AEOTRET . ZP )@@G@@ CD326500 @I@@@A ZQ )@@G@@ L,U A0,011 . LOAD WEOF FUNC CD3266ZR )@@G@@00 @I@@@A S,S2 A0,TAPWRI+3 . STORE IN PKT ZS )@@G@@ CD326700 @I@@@A L,U A0,TAPWRI ZT )@@G@@ CD326800 @I@@@A ER IOW$ZU )@@G@@ . WRITE EOF CD326900 @I@@@A ZV )@@G@@ L,U A0,TAPWRI . CD3270ZW )@@G@@00 @I@@@A ER TSWAP$ . SWAP REELS ZX )@@G@@ CD327100 @I@@@A L,U A0,010 . RESTOZY )@@G@@RE WRT FUNC IN PKT CD327200 @I@@@A S,S2 A0,TZZ )@@G@@APWRI+3 . CD327300 @I@@@A AA )@@G@@ J *RITE CD3274AB )@@G@@00 @I@@@APROBLM L,U A0,WRERR . BAD WRITE CONDITION AC )@@G@@ CD327500 @I@@@A ER PRINT$ . PRAD )@@G@@INT ERROR CD327600 @I@@@A ER ERR$AE )@@G@@ . ERROR OUT CD327700 @B@@@A/ AF )@@G@@ . @I@@@ADUMP GETFLD SAMECD AG )@@G@@ . GET PARAMETER VALUE 'N' IF ANY CD327900 @I@@@A LMAH )@@G@@J X11,NOVAL . GO TEST FOR USER COUNT CD328000 AI )@@G@@@I@@@A J NVALUE+1 . COME HERE IF WE PROVIDED FIAJ )@@G@@LE COUCD328100 @I@@@A SA A1,X2 . AK )@@G@@ CD328200 @H@@@A SA A1,SAVEX2 AL )@@G@@ . PUT X2 AWAY FOR FUTURE USE . 03D @I@@@ANVALUE SLJ AM )@@G@@ CNVT . FD TO BIN VALUE COMES BACK IN XRCD328300 @I@@@AAN )@@G@@ DL A0,FILEN AO )@@G@@CD328400 @I@@@A DS A0,FN1 AP )@@G@@ CD328500 %H@@@@-376 AQ )@@G@@ BPD 3H@H@@@A DS A0,DAR )@@G@@FN1 . DISC FILE NAME BPD 3H@E@@@A LAAS )@@G@@ A0,TEMP . CHECK IS X OPTION ON@ @@@A TOP,U AT )@@G@@ A0,04 @^@@@A J $+5 @B@@@A LA A0,(AU )@@G@@P 2, 9,XMSG1) @B@@@A ER PRINT$ . @B@@@AAV )@@G@@ LA A0,(P 1, 9,XMSG2) @B@@@A ER PRINAW )@@G@@T$ . @I@@@A LA,U A0,FOPT(4) . LOAD F OPAX )@@G@@TION RETURN ADDRESS CD328600 @I@@@A SA A0,PNT AY )@@G@@ . STORE IT CD328700 @H@@@A TZAZ )@@G@@,S6 OPTION . F OPTION REQUESTED . 03D @H@@@ABA )@@G@@ J DONEIT . NO BB )@@G@@. 03D @H@@@A L A0,X2 . BC )@@G@@ . 03D @H@@@A TNE A0,NMANYF . DID USEBD )@@G@@R GIVE A FILE COUNT . 03D @H@@@A L,U X2,1 BE )@@G@@ . USER DIDNOT GIVE A NR - ONLY DO . 03D @H@@@A SX X2,SBF )@@G@@AVEX2 . . 03D @H@@@A J BG )@@G@@ DONEIT . 03D @H@@@ABH )@@G@@NEXREC . BI )@@G@@. 03D @H@@@A SX X2,SAVEX2 . SAVE INDEX 2 BJ )@@G@@ . 03D @H@@@A SLJ GENRD1 . GO READ ABK )@@G@@ RECORD . 03D @H@@@A INCR BL )@@G@@ . 03D %H@@@@-397,397 BM )@@G@@ BPD 3H @H@@@ABPDA1 . BN )@@G@@ BPD 3H @H@@@ABO )@@G@@ TZ,H1 OPTION2 . 'Q' OR 'R' OPTIONS SET ? BBP )@@G@@PD 3H %@@@@[@E@@@A J BPD1 . YES BQ )@@G@@ BPD @F@@@A TZ,H1 OPTION . 'A', 'O', OR 'H' SET BR )@@G@@BPD @G@@@A J BPD1 . YES BS )@@G@@ BPD@G@@@A SLJ PRTO . DEFAULT 'O' OPTBT )@@G@@ION BPD @G@@@A TZ,S6 OPTION . 'F' OPTION BU )@@G@@SET ? BPD @C@@@A J NEXREC . YBV )@@G@@ES @G@@@A J DONEIT . DECREMENT BW )@@G@@ BPD@D@@@ABPD1 . BPD BX )@@G@@@H@@@A TZ,S1 OPTION2 . GET POSSIBLE Q ASCII OPTIONS BY )@@G@@ . 03D @H@@@A LMJ X11,PRTAQ . GO PRINT ASCIIBZ )@@G@@ DIVIDED . 03D @H@@@A TZ,S2 OPTION2 . GET PCA )@@G@@OSSIBLE R ASCII OPTIONS . 03D @H@@@A LMJ X11,PRTHQ CB )@@G@@ . GO PRINT ASCII JAMMED . 03D @H@@@A TZ,S2 CC )@@G@@ OPTION . TEST 'O' OPTION CD3. 03D @H@@@A CD )@@G@@ SLJ PRTO . YES, PRINT OCTAL . 03D CE )@@G@@@H@@@A TZ,S1 OPTION . TEST 'A' OPTION CF )@@G@@ CD3. 03D @H@@@A SLJ PRTA . YES, PRINT ALPHCG )@@G@@A DIVIDED INTO WOR. 03D @H@@@A TZ,S3 OPTION . TEST 'CH )@@G@@H' OPTION ON CD33. 03D @H@@@A SLJ PRTH CI )@@G@@ . YES PRINT ALPHA CONTINOUS NOT D. 03D @E@@@A TNZ,S6 CJ )@@G@@ OPTION . F OPTION REQUESTED @B@@@A J DONECK )@@G@@IT . NO@I@@@A J NEXREC . YES CL )@@G@@ CD331100 @I@@@AFOPT(4) CLRR CM )@@G@@ . CLEAR RECORD BEFORE STARTING 2ND CD331200 @H@@@ADONEIT . CN )@@G@@ . 03D @H@@@ACO )@@G@@ LX X2,SAVEX2 . RESTORE INDEX 2 CP )@@G@@. 03D @H@@@A JGD X2,NEXREC CQ )@@G@@ . 03D @I@@@A LA,U A0,28 . RESET DRUCR )@@G@@M READ COUNTERS CD331400 @I@@@A SA,H1 A0,DRPKT+4CS )@@G@@ . JUST IN CASE CD331500 @I@@@A SZCT )@@G@@ SWITCH . CD331600 CU )@@G@@@I@@@A J CDIMGE CV )@@G@@ CD331700 @I@@@A/ . C O M P A R THIS ROUTINES COMPARES TAPE RECOCW )@@G@@RD BLOCKS ONLY. CD331800 @I@@@ACOMPAR . CX )@@G@@ CD331900 @I@@@A SZCY )@@G@@ EOFLAG . TO DENOTE ALL OTHER EOFS CD332000 CZ )@@G@@@I@@@A DL A0,FILEN . DA )@@G@@ . 3A @I@@@A DS A0,FACPAC . PREPARE DB )@@G@@PACKET . 3A @I@@@A L,U A0,FACPAC DC )@@G@@ . . 3A @I@@@A ERDD )@@G@@ FACIT$ . . 3A DE )@@G@@@I@@@A L,S1 A1,FACPAC+6 . EQUIPMENT TYPE FOR POSSIBLDF )@@G@@E AFC . 3A @I@@@A S A1,EQUIP1 . DG )@@G@@ . 3A @I@@@A GETFLD SAMECD DH )@@G@@ . GET SECOND FILENAME CD332100 @I@@@A JZDI )@@G@@ A2,NOT2ND . DOES USER HAVE TWO FILE NAMES CD332200 DJ )@@G@@@I@@@A MSI,U A2,6 . DETERMINE NUMBER OF SHIFT DK )@@G@@POSITICD332300 @I@@@A S,T3 A2,$+1 DL )@@G@@ CD332400 @I@@@A DSC A0,0 DM )@@G@@ . POSITION FILE NAME CD332500 @I@@@A DSDN )@@G@@ A0,F2NAM . DS SECOND FILE NAME CD332600 DO )@@G@@@I@@@A DS A0,FACPAC . SET UP PACKET FOR FACIT DP )@@G@@ . 3A @I@@@A L,U A0,FACPAC . DQ )@@G@@ . 3A @I@@@A ER FACIT$ DR )@@G@@ . GET EQUIPMENT TYPE . 3A @I@@@A TNDS )@@G@@Z,S1 FACPAC+6 . ANY EQUIP TYPE ? BPD 03F DT )@@G@@@I@@@A J NOFILE . NOT ASSIGNED DU )@@G@@ BPD 03F @I@@@A L,S1 A0,FACPAC+6 . DV )@@G@@ . 3A @I@@@A S A0,EQUIP2 DW )@@G@@ . . 3A @I@@@A TNDX )@@G@@Z,S6 OPTION . F OPTION SET? CD332700 DY )@@G@@@I@@@A J CMPTP1 DZ )@@G@@ CD332800 @I@@@A GETFLD SAMECD . GET COUNTEA )@@G@@ OF NUMBER OF FILES CD332900 @I@@@A LMJ X11,NOVAL EB )@@G@@ . GO WORK THE COUNT CD333000 @I@@@A L EC )@@G@@ A1,(' 1') . FILE COUNT = 1 IF NONE GIVEN CD333100 ED )@@G@@@I@@@A SA A1,X2 . EE )@@G@@ CD333200 @I@@@A SLJ CNVT . CONVERT EF )@@G@@COUNT TO BINARY CD333300 @I@@@A L,U A0,FOPT(2)EG )@@G@@ . STORE F OPTION POINTER CD333400 @I@@@A S EH )@@G@@ A0,PNT . USED BY TPRD$ EOF ROUTINE CD333500 EI )@@G@@@I@@@A J FOPT(2) . DECREMENT FILE COUNTER EJ )@@G@@ CD333600 @I@@@ACMPTP1 . EK )@@G@@ CD333700 @I@@@A DL A0,F1NAM EL )@@G@@ . INSERT CURRENT FILE NAME CD333800 @I@@@A DSEM )@@G@@ A0,FILEN . CD333900 EN )@@G@@@I@@@A LMJ X11,TPRD$ . READ FIRST TAPE EO )@@G@@ CD334000 @I@@@AF1NAM + 0 . EP )@@G@@ CD334100 @I@@@A + 0 EQ )@@G@@ . CD334200 @I@@@A + ER )@@G@@ 4096,BLOCK . CD334300 ES )@@G@@@I@@@A + EOFCMP . EOF RETURN ET )@@G@@ CD334400 @I@@@A INCR . INCREMENEU )@@G@@T RECORD COUNT CD334500 @I@@@A L A14,NOWDS$EV )@@G@@ . NUMBER OF WORDS READ CD334600 @I@@@A S EW )@@G@@ A14,WDSTP1 . CD334700 EX )@@G@@@I@@@ACMPTP2 . EY )@@G@@ CD334800 @I@@@A DL A0,F2NAM . CHANGE FEZ )@@G@@ILE NAME CD334900 @I@@@A DS A0,FILEN FA )@@G@@ . CD335000 @I@@@A LMFB )@@G@@J X11,TPRD$ . READ SECOND TAPE CD335100 FC )@@G@@@I@@@AF2NAM* + 0 . FD )@@G@@ CD335200 @I@@@A + 0 . FE )@@G@@ CD335300 @I@@@A + 4096,BLOCKFF )@@G@@1 CD335400 @I@@@A + FG )@@G@@ EOF2ND . EOF RETURN CD335500 FH )@@G@@@I@@@A INCR . INCREMENT RECORD COUNT FI )@@G@@ CD335600 @I@@@A TZ EOFLAG . WAS EOF FJ )@@G@@ON FIRST TZPE CD335700 @I@@@A J NOEFT2 FK )@@G@@ . YES- ERROR CD335800 @I@@@A L FL )@@G@@ A15,NOWDS$ . COMPARE NR WORDS READ CD335900 FM )@@G@@@I@@@A S A15,WDSTP2 . WORDS READ ON TAPE 2 FN )@@G@@ CD336000 @I@@@A L,H2 A14,WDSTP1 . PICK UP FO )@@G@@WORD COUNT ONLY . 3A @I@@@A L,H2 A15,WDSTP2FP )@@G@@ . PICK UP WORD COUNT ONLY . 3A @I@@@A TEFQ )@@G@@ A15,A14 . SAME NR WORDS BOTH TAPES CD336200 FR )@@G@@@I@@@A J GOOFNR . FS )@@G@@ CD336300 @I@@@A SZ A3 . INCREMENFT )@@G@@T FOR WORD COMPARISON CD336400 @I@@@ASAMWDS FU )@@G@@ . CD336500 @I@@@A L FV )@@G@@ A0,BLOCK,A3 . WORD FROM FIRST TAPE CD336600 FW )@@G@@@I@@@A TE A0,BLOCK1,A3 . WORDS FROM 2ND TAPE FX )@@G@@ CD336700 @I@@@A J GOOFWD FY )@@G@@ CD336800 @I@@@A A,U A3,1 FZ )@@G@@ CD336900 @I@@@A TEGA )@@G@@ A15,A3 . ALL WORDS COMPARED] CD337000 GB )@@G@@@I@@@A J SAMWDS . GC )@@G@@ CD337100 @I@@@A J CMPTP1 . READ ANDGD )@@G@@ COMPARE NEXT BLOCK CD337200 @I@@@AEOFCMP GE )@@G@@ . CD337300 @I@@@A INGF )@@G@@CR . EOF READ ON TAPE 1 CD337400 GG )@@G@@@I@@@A L,U A0,1 GH )@@G@@ CD337500 @I@@@A S A0,EOFLAG . SET FLAGGI )@@G@@ CD337600 @I@@@A SLJ PRTEFX GJ )@@G@@ . PRINT EOF ENCOUNTERED MSG CD337700 @I@@@A INGK )@@G@@CF . INC FILE COUNT AND ZERO RECORDS CD337800 GL )@@G@@@I@@@A J CMPTP2 . GM )@@G@@ CD337900 @I@@@AEOF2ND . GN )@@G@@ CD338000 @I@@@A INCR GO )@@G@@ . CD338100 @I@@@A TNGP )@@G@@Z EOFLAG . CD338200 GQ )@@G@@@I@@@A J NOEFT1 . NO EOF ON TAPE 1 GR )@@G@@ CD338300 @I@@@A SLJ PRTEFX . END OF FGS )@@G@@ILE ENCOUNTERED CD338400 @I@@@A TZ,H2 CNTYP GT )@@G@@ . ERRORS ? BPD 03F @I@@@A J GU )@@G@@ PRTNUM . YES PRINT MESSAGE BPD 03F GV )@@G@@@I@@@A L A0,ADPKT3 . YOUR TAPES COMPARE GW )@@G@@ CD338500 @I@@@A ER PRINT$ . GX )@@G@@ CD338600 @I@@@A INCF GY )@@G@@ . UP FILE COUNT-ZERO RECORD CNT CD338700 @I@@@A J GZ )@@G@@ NXTCMP . GET NEXT FILE BPD 03F HA )@@G@@@ @@@APRTNUM . BPD 03F @I@@@A LA A0,CNTYP HB )@@G@@ . GET COUNTER BPD 03F @I@@@A LSHC )@@G@@SL A0,6 . DROP RUN TYPE BPD 03F HD )@@G@@@I@@@A SSL A0,6 . HE )@@G@@ BPD 03F @I@@@A E$BD 6,ERRCNT,6 . CONVERT HF )@@G@@OCTAL TO FD BPD 03F @I@@@A LA A0,(0212,EHG )@@G@@RRCNT) . PRINT ERROR MSG BPD 03F @I@@@A ERHH )@@G@@ PRINT$ . BPD 03F HI )@@G@@@I@@@A INCF . HJ )@@G@@ BPD 03F @I@@@ANXTCMP . HK )@@G@@ CD338800 @I@@@A SZ EOFLAG HL )@@G@@ . CD338900 @I@@@A TZHM )@@G@@,S6 OPTION . CD339000 HN )@@G@@@I@@@AFOPT(2) JGD X2,CMPTP1 . READ NEXT FILE- F OPTION HO )@@G@@ CD339100 @I@@@A J CDIMGE . GET NEXTHP )@@G@@ COMMAND CD339200 @I@@@ANOEFT2 DL A0,F2NAM HQ )@@G@@ . CD339300 @I@@@A DSHR )@@G@@ A0,NOTEOF+9 . CD339400 HS )@@G@@@I@@@A L A0,ADPKT4 . EOF EXPECTED, NOT ENCOUNTEHT )@@G@@RED CD339500 @I@@@A ER PRINT$ . HU )@@G@@ CD339600 @I@@@A S X2,SAVJGD HV )@@G@@ . SAVE FILE COUNT IS IS ONE CD339700 @I@@@A LAHW )@@G@@,U A0,1 . CD339800 HX )@@G@@@I@@@A S A0,NO2EOF . RETURN FROM PSF SWITHC HY )@@G@@ CD339900 @I@@@A L X2,(037777777777) . DUMMY REHZ )@@G@@CORD COUNT CD340000 @I@@@A J REPEAT IA )@@G@@ . POSITION T2 PAST EOF CD340100 @I@@@ANOEFT1 IB )@@G@@ . NO EOF ON T1, IS ON T2 CD340200 IC )@@G@@@I@@@A DL A0,F2NAM . LOAD FILENAME IN ERROR MSGID )@@G@@ CD340300 @I@@@A DS A0,BLOWIT+13 . IE )@@G@@ CD340400 @I@@@A SLJ QGETAD IF )@@G@@ . GET BLOCK COUNT CD340500 @I@@@A L IG )@@G@@ A0,2,A0 . CD340600 IH )@@G@@@I@@@A E$BD 6,BLOWIT+10,6 . STORE BLOCK COUNT II )@@G@@ CD340700 @I@@@A L A0,ADPKT7 IJ )@@G@@ CD340800 @I@@@A ER PRINT$ IK )@@G@@ . CD340900 @I@@@A INIL )@@G@@CF . UP FILE, ZERO RECORD COUNTS CD341000 IM )@@G@@@I@@@A DL A0,F1NAM . SWAP FILE NAMES TO POSTIONIN )@@G@@ CD341100 @I@@@A DS A0,FILEN . IO )@@G@@ CD341200 @I@@@A S X2,SAVJGD IP )@@G@@ . SAVE FILE COUNT CD341300 @I@@@A LAIQ )@@G@@,U A0,1 . CD341400 IR )@@G@@@I@@@A S A0,NO2EOF . RETURN FROM PSF SWITCH IS )@@G@@ CD341500 @I@@@A L X2,(037777777777) . DUMMY REIT )@@G@@CORD COUNT CD341600 @I@@@A J REPEAT IU )@@G@@ . POSITION F1 PAST EOF CD341700 @I@@@AGOOFNR IV )@@G@@ . NR WORDS 2 TAPES DIFFERENT CD341800 IW )@@G@@@I@@@A L,U A0,0050004 . TEST FOR ODD NR WDS ON 9 TIX )@@G@@RACK . 3A @I@@@A TNE,H1 A0,WDSTP1 . AFC ON TIY )@@G@@APE 1 WITH 5 FRAMES . 3A @I@@@A J AFCTP1 IZ )@@G@@ . AFC IS ON TAPE 1 . 3A @I@@@A TEJA )@@G@@,H1 A0,WDSTP2 . NOT ON 1 TRY TAPE 2 . 3A JB )@@G@@@I@@@A J TRUGOF . HAVE TRUE NON COMPARE ERROJC )@@G@@R . 3A @I@@@A L,H2 A0,WDSTP2 . NR WORDSJD )@@G@@ READ + PAD . 3A @I@@@A ANA,U A0,1 JE )@@G@@ . DECREADE FOR PAD . 3A @I@@@A TEJF )@@G@@,H2 A0,WDSTP1 . SAME NR WORDS WITHOUT AFC . 3A JG )@@G@@@I@@@A J TRUGOF . NO JH )@@G@@ . 3A @I@@@A LA A0,EQUIP2 . TEST FORJI )@@G@@ 9 TRACK TAPE . 3A @I@@@A TE,U A0,05 JJ )@@G@@ . NINE TRACK TAPE DRIVE 8C9 . 3A @I@@@A J JK )@@G@@ TRUGOF . NOT NINE TRACK . 3A JL )@@G@@@I@@@A LA A0,EQUIP1 . MUST BE 7 AND 9 TRACK COMPJM )@@G@@ARISON . 3A @I@@@A TE,U A0,3 . SEVEN TRJN )@@G@@ACK DRIVE WITH TRANSLATE . 3A @I@@@A J TRUGOF JO )@@G@@ . . 3A @I@@@A ANJP )@@G@@A,U A15,1 . USE 1 LESS WD FOR COMPARE . 3A JQ )@@G@@@I@@@A J CMPAFC . PRINT WARNING FOR USER IF JR )@@G@@NOT DONE . 3A @I@@@AAFCTP1 L A0,EQUIP1 . TEST FORJS )@@G@@ 9 TRACK TAPE DRIVE . 3A @I@@@A TE,U A0,05 JT )@@G@@ . . 3A @I@@@A J JU )@@G@@ TRUGOF . NOT 9 TRACK DRIVE . 3A JV )@@G@@@I@@@A L A0,EQUIP2 . MUST BE 7 AND 9 TRACK COMPJW )@@G@@ARE . 3A @I@@@A TE,U A0,3 . SEVEN TRJX )@@G@@ACK DRIVE WITH TRANSLATE . 3A @I@@@A J TRUGOF JY )@@G@@ . . 3A @I@@@A ANJZ )@@G@@A,U A14,1 . DECREASE NR WORDS FOR PAD . 3A KA )@@G@@@I@@@A TE,H2 A14,A15 . SAME SIZE WITHOUT PADDING KB )@@G@@ . 3A @I@@@A J TRUGOF . KC )@@G@@ . 3A @I@@@ACMPAFC KD )@@G@@ . . 3A @I@@@A J KE )@@G@@ SAMWDS-1 . TEST WORD COMPARISON . 3A KF )@@G@@@I@@@ATRUGOF . KG )@@G@@ . 3A @I@@@A LMJ X11,CKTPRT . CHECK # KH )@@G@@OF ERRORS BPD 03F @I@@@A J CMPTP1 KI )@@G@@ . RETURN HERE - DON'T PRINT BPD 03F @I@@@A DLKJ )@@G@@ A0,F1NAM CD341900 KK )@@G@@@I@@@A DS A0,FRSTFIL . KL )@@G@@ CD342000 @I@@@A DL A0,F2NAM . KM )@@G@@ CD342100 @I@@@A DS A0,SECDFILKN )@@G@@ . CD342200 @I@@@A LAKO )@@G@@ A0,DIFFBL . B DIFFERENT BLOCK SIZE CD342300 KP )@@G@@@I@@@A ER PRINT$ . KQ )@@G@@ CD342400 @I@@@A J GOOFIT . KR )@@G@@ CD342500 @C@@@ACKTPRT . KS )@@G@@ BPD 03F @I@@@A LA A0,CNTYP . GET ERROKT )@@G@@R CNT BPD 03F @I@@@A AA,U A0,1 KU )@@G@@ . ADD ONE BPD 03F @I@@@A SAKV )@@G@@ A0,CNTYP . BPD 03F KW )@@G@@%H@@@@-595,595 KX )@@G@@ BPD 3H @H@@@A TZ,S4 OPTION . L OPTION KY )@@G@@ BPD 3H %@@@@[@I@@@A J 1,X11 KZ )@@G@@ . YES PRINT IT BPD 03G @I@@@A TZ,S1 LA )@@G@@ CNTYP . DEMAND ? BPD 03F @I@@@ALB )@@G@@ J 0,X11 . YES, DON'T PRINT BLKS LC )@@G@@BPD 03F @I@@@A L,U A0,10 . LIMIT OF 10 LD )@@G@@ BPD 03F @I@@@A TLE A0,CNTYP LE )@@G@@ . PRINTED 10 ALREADY ? BPD 03F @I@@@A J LF )@@G@@ 0,X11 . YES DON'T PRINT BPD 03F @I@@@ALG )@@G@@ J 1,X11 . NO PRINTIT LH )@@G@@BPD 03F @I@@@AGOOFWD . WORDS DID NOT LI )@@G@@COMPARE CD342600 @I@@@A LMJ X11,CKTPRT LJ )@@G@@ . CHECK # OF PRINTS BPD 03F @I@@@A J LK )@@G@@ CMPTP1 . YES, DON'T PRINT BLKS BPD 03F @I@@@ALL )@@G@@ DL A0,F1NAM . LM )@@G@@CD342700 @I@@@A DS A0,FSTFL . LN )@@G@@ CD342800 @I@@@A DL A0,F2NAM LO )@@G@@ . CD342900 @I@@@A DS LP )@@G@@ A0,SCDFL . CD343000 %H@@@@LQ )@@G@@-609 BLR )@@G@@PD 3H @H@@@A LA A2,A3 . GET OCTAL CNT LS )@@G@@ BPD 3H @H@@@A SLJ OCTPT . SET UP OLT )@@G@@CTAL VALUE BPD 3H @H@@@A SA A1,OCTCNT LU )@@G@@ . STORE BPD 3H @I@@@A LA A0,ALV )@@G@@3 . NR WORD NOT COMPARING CD343100 @I@@@A LW )@@G@@ E$BD 6,WRDCNT,6 . CD3432LX )@@G@@00 @B@@@A LA A0,NOCMP . @I@@@A ERLY )@@G@@ PRINT$ . CD343300 LZ )@@G@@@I@@@AGOOFIT . POSITION 2 TAPES PAST EOFMA )@@G@@ CD343400 %H@@@@-615,617 MB )@@G@@ BPD 3H %@@@@#@I@@@A DL A0,F1NAM MC )@@G@@ . CD343500 @I@@@A DSMD )@@G@@ A0,FILEN . CD343600 ME )@@G@@@I@@@A L A0,WDSTP1 . MF )@@G@@ CD343700 @I@@@A S,H2 A0,NOWDS$ . MG )@@G@@ CD343800 @I@@@A SLJ PRTO MH )@@G@@ CD343900 @I@@@A L MI )@@G@@ R1,WDSTP2 . CD344000 MJ )@@G@@@I@@@A L,U A0,BLOCK1 . TRANSFER 2ND BLOCK TO PRINMK )@@G@@T IT CD344100 @I@@@A LXI,U A0,1 . ML )@@G@@ CD344200 @I@@@A L,U A1,BLOCK MM )@@G@@ . CD344300 @I@@@A LXMN )@@G@@I,U A1,1 . CD344400 MO )@@G@@@I@@@A BT A1,0,*A0 . MP )@@G@@ CD344500 @I@@@A L A0,WDSTP2 . MQ )@@G@@ CD344600 @I@@@A S,H2 A0,NOWDS$ MR )@@G@@ . CD344700 @I@@@A DLMS )@@G@@ A0,F2NAM . CD344800 MT )@@G@@@I@@@A DS A0,FILEN . MU )@@G@@ CD344900 @I@@@A SLJ PRTO . MV )@@G@@ CD345000 @I@@@A J CMPTP1 MW )@@G@@ . CONTINUE CMP BPD 03F @I@@@ANOT2ND MX )@@G@@ . NO SECOND FN ON PARAMETER CARD CD345900 MY )@@G@@@I@@@A L A0,ADPKT5 . MZ )@@G@@ CD346000 @I@@@A ER PRINT$ . NA )@@G@@ CD346100 @I@@@A J CDIMGE NB )@@G@@ . CD346200 @I@@@ANXTFLE DLNC )@@G@@ A0,F2NAM CD346300 ND )@@G@@@I@@@A DS A0,FILEN NE )@@G@@ CD346400 @I@@@A LA,U A0,1 NF )@@G@@ CD346500 @I@@@A S A0,NO2EOF NG )@@G@@ CD346600 @I@@@A L NH )@@G@@ X2,(037777777777) . DUMMY RECORD COUNT CD346700 NI )@@G@@@I@@@A SZ NONO . NJ )@@G@@ CD346800 @I@@@A J REPEAT . GO MOVE TNK )@@G@@HE TAPE TO NEXT EOF CD346900 %H@@@@-645 NL )@@G@@ BPD 3H @^@@@AOCTPT* NOP NM )@@G@@ . @B@@@A LA A1,('666666') . @D@@@A LSNN )@@G@@SL A2,18 . USE RIGHT HALF@B@@@A LR,U R2,4NO )@@G@@ . @]@@@AGOFOCT . @B@@@A LDSL A1,3 NP )@@G@@ . @B@@@A LSSC A1,3 . @B@@@A NQ )@@G@@ JGD R2,GOFOCT . @B@@@A LDSL A1,3 NR )@@G@@ . @B@@@A J *OCTPT . @H@@@A/ . SENS )@@G@@ARCH FOR A FIELD - MAX OF 12 CHAR BPD 3HNT )@@G@@@H@@@ASEARCH . NU )@@G@@ BPD 3H @H@@@A DL A0,FILEN . GET FILE NAME NV )@@G@@ BPD 3H @H@@@A DS A0,FN1 . STNW )@@G@@ORE IN I/O PKT BPD 3H @H@@@A DS A0,DFN1 NX )@@G@@ . STORE IN I/O PKT BPD 3H @H@@@A GETFLD NY )@@G@@ SAMECD . GET SEARCH VALUE BPD 3H @H@@@A NZ )@@G@@ JZ A2,BADCOM . NO VALUE BPD 3H OA )@@G@@@H@@@A SA A2,SAVEX2 . SAVE # CHARS OB )@@G@@ BPD 3H @]@B@A SLJ TON$ @H@@@A TZ OPTION2 OC )@@G@@ . Q OR R OPTION SET ? BPD 3H @H@@@A J LOC6OD )@@G@@0 . YES 9 BIT MODE BPD 3H @H@@@A MSOE )@@G@@I,U A2,6 . COMVERT TO BITS BPD 3H @H@@@AOF )@@G@@ SA A2,HOLD+2 . BOG )@@G@@PD 3H @H@@@A L,U A2,0110 . SUB FROM 72 BITS OH )@@G@@ BPD 3H @H@@@A AN A2,HOLD+2 . GET # BIOI )@@G@@TS TO SHIFT BPD 3H @H@@@A S,T3 A2,$+1 OJ )@@G@@ . STORE IN NEXT COMMAND BPD 3H @H@@@A LDSL A0,0OK )@@G@@ . ZERO FILL VALUE BPD 3H @H@@@A DSOL )@@G@@ A0,HOLD . SAVE BPD 3H @H@@@AOM )@@G@@LOC10 . BON )@@G@@PD 3H @H@@@A SLJ GENRD1 . GET BLOCK OO )@@G@@ BPD 3H @H@@@A INCR . OP )@@G@@ BPD 3H @H@@@A SZ X4 OQ )@@G@@ . BPD 3H @H@@@A LA A15,OR )@@G@@NOWDS$ . GET BLK SIZE BPD 3H @H@@@A ANOS )@@G@@,U A15,1 . SUB 1 FOR LOOP BPD 3H @H@@@AOT )@@G@@ SA A15,WDSTP2 . BOU )@@G@@PD 3H @H@@@A LR R5,WDSTP2 . OV )@@G@@ BPD 3H @H@@@A LA,S1 A8,HOLD . GET FIRSTOW )@@G@@ CHAR BPD 3H @H@@@A SZ A6 OX )@@G@@ . BPD 3H @H@@@ALOC20 . OY )@@G@@ BPD 3H @H@@@A TNOZ )@@G@@E,S1 A8,BLOCK,X4 . EQUAL BPD3H @H@@@APA )@@G@@ LMJ X5,LOC40 . YES PB )@@G@@BPD 3H@H@@@A TNE,S2 A8,BLOCK,X4 PC )@@G@@ BPD 3H @H@@@A LMJ X5,LOC34 . PD )@@G@@ BPD 3H@H@@@A TNE,S3 A8,BLOCK,X4 PE )@@G@@ . BPD 3H @H@@@A LMJ X5,LPF )@@G@@OC33 . BPD 3H@H@@@A TNPG )@@G@@E,S4 A8,BLOCK,X4 . BPD 3H @H@@@APH )@@G@@ LMJ X5,LOC32 . PI )@@G@@BPD 3H@H@@@A TNE,S5 A8,BLOCK,X4 . PJ )@@G@@ BPD 3H @H@@@A LMJ X5,LOC31 . PK )@@G@@ BPD 3H @H@@@A TNE,S6 A8,BLOCK,X4 PL )@@G@@ . BPD 3H @H@@@A LMJ X5,LPM )@@G@@OC30 . BPD 3H@H@@@A AXPN )@@G@@,U X4,1 . INCREMENT BPD 3H @H@@@APO )@@G@@ JGD R5,LOC20 . LOOP BPP )@@G@@PD 3H @H@@@A J LOC10 . NO FIND PQ )@@G@@ BPD 3H @H@@@ALOC30 . DROP BITS TO ALINE FIELD ON WORD BOUNDPR )@@G@@RY BPD 3H @H@@@A AA,U A6,6 PS )@@G@@ . SET 6 BIT SHIFT BPD 3H @H@@@ALOC31 . PT )@@G@@ BPD 3H @H@@@A AAPU )@@G@@,U A6,6 . BPD 3H @H@@@APV )@@G@@LOC32 . BPW )@@G@@PD 3H @H@@@A AA,U A6,6 . PX )@@G@@ BPD 3H @H@@@ALOC33 . PY )@@G@@ BPD 3H @H@@@A AA,U A6,6 PZ )@@G@@ . BPD 3H @H@@@ALOC34 . QA )@@G@@ BPD 3H @H@@@A AAQB )@@G@@,U A6,6 . BPD 3H @H@@@AQC )@@G@@LOC35 . SHIFT TWO WORD TEST FIELD TO WORD BOUNDRY BQD )@@G@@PD 3H @H@@@A DL A3,BLOCK,X4 . GET FIRST 2 WORDS QE )@@G@@ BPD 3H @I@@@A S,T3 A6,$+1 . STORE # QF )@@G@@BITS IN NEXT SHIFT COMMANDBPD 3H @H@@@A LDSL A3,0 QG )@@G@@ . GET CHAR ON WORD BOUNDRY BPD 3H @H@@@A LA QH )@@G@@ A5,BLOCK+2,X4 . GET NEXT WORD BPD 3H @H@@@A QI )@@G@@ S,T3 A6,$+1 . # BITS TO SHIFT BPD 3H QJ )@@G@@@H@@@A SSL A4,0 . RIGHT JUST QK )@@G@@ BPD 3H @H@@@A S,T3 A6,$+1 . QL )@@G@@ BPD 3H @H@@@A LDSL A4,0 . GEQM )@@G@@T LAST OF THE 12 CHAR BPD 3H @H@@@A. QN )@@G@@ BPD 3H @H@@@A. A3 AND A4 CONTAIQO )@@G@@N 12 CHAR FIELD - S1 OF A3 CONTAINS FIRST CHAR BPD 3H @H@@@A. QP )@@G@@ BPD 3H QQ )@@G@@@H@@@A J LOC41 . SET FIELD TO # CHAR TO TESQR )@@G@@T BPD 3H @H@@@ALOC40 . QS )@@G@@ BPD 3H @H@@@A DL A3,BLOCK,X4 . QT )@@G@@ BPD 3H @H@@@ALOC41 . QU )@@G@@ BPD 3H @B@@@A SZ QV )@@G@@ A6 . @H@@@A LA A2,SAVEX2 . QW )@@G@@ BPD 3H @H@@@A MSI,U A2,6 QX )@@G@@ . CHAR TO BITS BPD 3H @H@@@A SA QY )@@G@@ A2,HOLD+2 . BPD 3H @H@@@A QZ )@@G@@ L,U A1,0110 . OCTAL 72 BPD 3H RA )@@G@@@H@@@A AN A1,HOLD+2 . BITS TO DROP RB )@@G@@ BPD 3H @H@@@A S,T3 A1,$+1 . RC )@@G@@ BPD 3H @H@@@A DSL A3,0 . DRRD )@@G@@OP CHARS BPD 3H @H@@@A S,T3 A1,$+1 RE )@@G@@ . BPD 3H @H@@@A LDSL RF )@@G@@ A3,0 . LEFT JUST. ZERO FILLED BPD 3H @H@@@A RG )@@G@@ DTE A3,HOLD . EQUAL BPD 3H RH )@@G@@@H@@@A J 0,X5 . NO MATCH RI )@@G@@ BPD 3H@H@@@ALOC45 . RJ )@@G@@ BPD 3H @H@@@A SX X4,HOLD+2 . RK )@@G@@ BPD 3H @H@@@A LA A2,HOLD+2 RL )@@G@@ . BPD 3H @H@@@A SLJ RM )@@G@@ OCTPT . SET UP OCTAL VALUE TO PRT BPD 3H @H@@@A RN )@@G@@ SA A1,FDIT+4 . BPD 3H RO )@@G@@@H@@@A LA A0,(0105,FDIT) . RP )@@G@@ BPD 3H @H@@@A ER PRINT$ . PRT FOUND IT MRQ )@@G@@ESSAGE BPD 3H @H@@@A SZ SAVEX2 . CLRR )@@G@@EAR JGD CNT BPD 3H @H@@@A J BPDA1 RS )@@G@@ . JUMP TO PRINT ROUTINE BPD 3H@H@@@A. RT )@@G@@ BPD 3H @H@@@ALOC60 RU )@@G@@ . BPD 3H RV )@@G@@@H@@@A LA A2,SAVEX2 . GET # CHARS RW )@@G@@ BPD 3H @H@@@A MSI,U A2,6 . BITS PER CHAR RX )@@G@@ BPD 3H @H@@@A S,T3 A2,$+1 . RY )@@G@@ BPD 3H @H@@@A DSC A0,0 RZ )@@G@@ . POS ON WORD BOUNDRY BPD 3H @H@@@A DS SA )@@G@@ A0,HOLD . KEEP 8 CHAR - 2 WORS BPD 3H @H@@@A SB )@@G@@ LA A2,SAVEX2 . BPD 3H SC )@@G@@@H@@@A MSI,U A2,9 . ASCII BITS SD )@@G@@ BPD 3H @H@@@A SA A2,SAVEX2 . SE )@@G@@ BPD 3H @H@@@A L,U A0,2 . SF )@@G@@ BPD 3H @H@@@A L,U A1,HOLD SG )@@G@@ . BPD 3H @H@@@A L,U SH )@@G@@ A2,HOLD+2 . BPD 3H @H@@@A SI )@@G@@ LMJ X11,FDASC$ . CONVERT TO ASCII BPD 3H SJ )@@G@@@H@@@A DL A3,HOLD+2 . GET VALUE SK )@@G@@ BPD 3H @H@@@A DS A3,HOLD . SL )@@G@@ BPD 3H @H@@@A LA,U A2,0110 . 72SM )@@G@@ BITS BPD 3H @H@@@A AN A2,SAVEX2 SN )@@G@@ . BPD 3H @H@@@A S,T3 SO )@@G@@ A2,$+1 . BPD 3H @H@@@A SP )@@G@@ DSL A3,0 . BPD 3H SQ )@@G@@@H@@@A S,T3 A2,$+1 . SR )@@G@@ BPD 3H @H@@@A LDSL A3,0 . SS )@@G@@ BPD 3H @H@@@A DS A3,HOLD . LEST )@@G@@FT JUST. - ZERO FILLED BPD 3H @H@@@ALOC70 . SU )@@G@@ BPD 3H @H@@@A SLJ SV )@@G@@ GENRD1 . READ BLOCK BPD 3H @H@@@A SW )@@G@@ INCR . BPD 3H SX )@@G@@@H@@@A SZ X4 . SY )@@G@@ BPD 3H @H@@@A LA A15,NOWDS$ . GET I/O SIZE SZ )@@G@@ BPD 3H @H@@@A AN,U A15,1 . TA )@@G@@ BPD 3H @H@@@A SA A15,WDSTP2TB )@@G@@ . BPD 3H @H@@@A LR TC )@@G@@ R5,WDSTP2 . SET LOOP SIZE BPD 3H @^@E@C TD )@@G@@ SLJ TON$@H@@@A LA A2,HOLD . TE )@@G@@ BPD 3H @H@@@A SZ A1 TF )@@G@@ . BPD 3H @H@@@A LDSL A1,9TG )@@G@@ . GET FIRST CHAR BPD 3H @ @@@A LATH )@@G@@ A8,A1 @H@@@A SZ A6 . TI )@@G@@ BPD 3H @H@@@ALOC75 . TJ )@@G@@ BPD 3H @H@@@A LA A3,BTK )@@G@@LOCK,X4 . BPD 3H @H@@@A SZTL )@@G@@ A2 . BPD 3H @H@@@ATM )@@G@@ LDSL A2,9 . GET 1ST CHAR BTN )@@G@@PD 3H @H@@@A TNE A8,A2 . EQUAL TO )@@G@@ BPD 3H @B@@@A LMJ X5,LOC88 . @H@@@ATP )@@G@@ LA A3,BLOCK,X4 . BTQ )@@G@@PD 3H @H@@@A SZ A2 . TR )@@G@@ BPD 3H @B@@@B LSSL A3,9 . @H@B@ATS )@@G@@ LDSL A2,18 . GET 2ND CHAR BTT )@@G@@PD 3H @H@@@B LDSL A2,9 . GET 2ND CHAR TU )@@G@@ BPD 3H @H@@@A TNE A8,A2 . TV )@@G@@ BPD 3H @B@@@A LMJ X5,LOC82 TW )@@G@@ . @H@@@A LA A3,BLOCK,X4 . TX )@@G@@ BPD 3H @H@@@A SZ A2 . TY )@@G@@ BPD 3H @B@@@B LSSL A3,18 TZ )@@G@@ . @H@B@A LDSL A2,27 . UA )@@G@@ BPD 3H @H@@@B LDSL A2,9 . UB )@@G@@ BPD 3H @H@@@A TNE A8,A2 UC )@@G@@ . 3RD CHAR BPD 3H @B@@@A LMJ X5,LUD )@@G@@OC81 . @H@@@A LA A3,BLOCK,X4 . UE )@@G@@ BPD 3H @H@@@A SZ A2 UF )@@G@@ . BPD 3H @B@@@B LSSL A3,2UG )@@G@@7 . @H@B@A LDSL A2,36 . 4TH CHARUH )@@G@@ BPD 3H @H@@@B LDSL A2,9 UI )@@G@@ . 4TH CHAR BPD 3H @H@@@A TNE A8,AUJ )@@G@@2 . BPD 3H @B@@@A LMUK )@@G@@J X5,LOC80 . @H@@@A AX,U X4,1 UL )@@G@@ . BPD 3H @H@@@A JGD R5,LUM )@@G@@OC75 . BPD 3H @H@@@A J UN )@@G@@ LOC70 . NO MATCH BPD 3H @H@@@AUO )@@G@@LOC80 . BUP )@@G@@PD 3H @H@@@A AA,U A6,9 . UQ )@@G@@ BPD 3H @H@@@ALOC81 . UR )@@G@@ BPD 3H @H@@@A AA,U A6,9 US )@@G@@ . BPD 3H @H@@@ALOC82 . UT )@@G@@ BPD 3H @H@@@A AAUU )@@G@@,U A6,9 . BPD 3H @H@@@AUV )@@G@@LOC85 . BUW )@@G@@PD 3H @H@@@A DL A3,BLOCK,X4 . GET VALUE UX )@@G@@ BPD 3H @H@@@A S,T3 A6,$+1 . SHIFT UY )@@G@@ BPD 3H @H@@@A LDSL A3,0 UZ )@@G@@ . SHIFT OUT FIRST PART OF VALUE BPD 3H @H@@@A LA A5,BVA )@@G@@LOCK+2,X4 . BPD 3H @H@@@A S,VB )@@G@@T3 A6,$+1 . BPD 3H @H@@@AVC )@@G@@ SSL A4,0 . BVD )@@G@@PD 3H @H@@@A S,T3 A6,$+1 . VE )@@G@@ BPD 3H @H@@@A LDSL A4,0 . VALUE INVF )@@G@@ A3,A4 BPD 3H @H@@@A J LOC90 VG )@@G@@ . BPD 3H @H@@@ALOC88 . VH )@@G@@ BPD 3H @H@@@A DLVI )@@G@@ A3,BLOCK,X4 . BPD 3H @H@@@AVJ )@@G@@LOC90 . BVK )@@G@@PD 3H @B@@@D SZ A6 . @H@@@A LAVL )@@G@@,U A1,0110 . 72 BITS BPD 3H @H@@@AVM )@@G@@ AN A1,SAVEX2 . BVN )@@G@@PD 3H @H@@@A S,T3 A1,$+1 . VO )@@G@@ BPD 3H @H@@@A DSL A3,0 . VP )@@G@@ BPD 3H @H@@@A S,T3 A1,$+1 VQ )@@G@@ . BPD 3H @H@@@A LDSL A3,0VR )@@G@@ . BPD 3H @H@@@A DTVS )@@G@@E A3,HOLD . EQUAL BPD 3H @E@@@AVT )@@G@@ J 0,X5 . CHECK NEXT CHAR @H@@@A VU )@@G@@ J LOC45 . MATCH - PRINT MESSAGE BPD 3H VV )@@G@@@H@@@A. VW )@@G@@ BPD 3H @I@@@A/ . WRITE OVER TAPE TO END OF TAPE MARKER VX )@@G@@ CD347000 @I@@@AOVERWT CLRR VY )@@G@@ . CLEAR RECORD COUNTER CD347100 @I@@@A LA,S5 VZ )@@G@@ A0,OPTION CD347200 @I@@@AWA )@@G@@ TEP,U A0,1 WB )@@G@@CD347300 @I@@@A J DRUMASK . DRUM CODE NOT WC )@@G@@IMPLEMENTED CD347400 @I@@@A DL A0,FILEN WD )@@G@@ CD347500 @I@@@A DS WE )@@G@@ A0,TAPPKT CD347600 @I@@@AWF )@@G@@ L,U A0,011 . WRITE EOF FIRST - FOR 2 EOFS TO WG )@@G@@CD347700 @I@@@A S,S2 A0,TAPPKT+3 WH )@@G@@ CD347800 @I@@@A L,U A0,TAPPKT WI )@@G@@ CD347900 @I@@@A ER WJ )@@G@@ IOW$ CD348000 @I@@@AWK )@@G@@ L,S1 A0,TAPPKT+3 WL )@@G@@CD348100 @I@@@A JNZ A0,ERRWRT WM )@@G@@ CD348200 @I@@@A L,U A0,010 WN )@@G@@ CD348300 @I@@@A S,S2 WO )@@G@@ A0,TAPPKT+3 . WRITE FUNCTION CD348400 @I@@@AWP )@@G@@ L A0,CLEAR WQ )@@G@@CD348500 @I@@@A S A0,BLOCK WR )@@G@@ CD348600 @I@@@A L,U A0,061 WS )@@G@@ . TRANSFER ALL WORDS FROM SAME LOCCD348700 @I@@@A S,S1 WT )@@G@@ A0,TAPPKT+4 CD348800 @I@@@AWU )@@G@@CLRWRT L,U A0,TAPPKT . WRITE LOOP WV )@@G@@CD348900 @I@@@A ER IOW$ WW )@@G@@ CD349000 @I@@@A INCR WX )@@G@@ . INCREMENT RECORD COUNT CD349100 @I@@@A L,S1 WY )@@G@@ A0,TAPPKT+3 CD349200 @I@@@AWZ )@@G@@ JZ A0,CLRWRT XA )@@G@@CD349300 @I@@@A TE,U A0,2 XB )@@G@@ CD349400 @I@@@A J ERRWRT XC )@@G@@ CD349500 @I@@@A L,U XD )@@G@@ A0,011 . END OF FILE FOR TAPE CD349600 @I@@@AXE )@@G@@ S,T1 A0,TAPPKT+3 XF )@@G@@CD349700 @I@@@A L,U A0,TAPPKT XG )@@G@@ CD349800 @I@@@A ER IOW$ XH )@@G@@ CD349900 @I@@@A L,U XI )@@G@@ A0,TAPPKT CD350000 @I@@@AXJ )@@G@@ ER IOW$ XK )@@G@@CD350100 @I@@@A L,U A0,051 . BACKSPACE OVERXL )@@G@@ EOF CD350200 @I@@@A S,T1 A0,TAPPKT+3 XM )@@G@@ CD350300 @I@@@A L,U XN )@@G@@ A0,TAPPKT CD350400 @I@@@AXO )@@G@@ ER IOW$ XP )@@G@@CD350500 @I@@@A ER IOW$ XQ )@@G@@ CD350600 @I@@@A DL A0,FILEN XR )@@G@@ CD350700 @I@@@A DS XS )@@G@@ A0,CLRMSG CD350800 @I@@@AXT )@@G@@ SLJ QGETAD . NEED MESSAGE -HOW MUCH WROTE XU )@@G@@CD350900 @I@@@A L A0,2,A0 . LOAD RECORD COXV )@@G@@UNT CD351000 @I@@@A E$BD 6,BEFEOT,6 XW )@@G@@ CD351100 @I@@@A L XX )@@G@@ A0,CLRPKT CD351200 @I@@@AXY )@@G@@ ER PRINT$ XZ )@@G@@CD351300 @I@@@A L,U A0,01 . RESTORE TAPE PYA )@@G@@ACKET FOR OTHER COCD351400 @I@@@A S,S1 A0,TAPPKT+4 YB )@@G@@ CD351500 @I@@@A TNZ,S6 YC )@@G@@ OPTION . IS F OPTON SET CD351600 @I@@@AYD )@@G@@ A,U A0,1 . SET DUMMY F OPTION INDICATOR YE )@@G@@CD351700 @I@@@A S,S6 A0,OPTION . PSB TEST IS FOYF )@@G@@R NONZERO - WILL WCD351800 @I@@@A S A0,OVWJMP YG )@@G@@ . SWITCH TO RETURN HERE FROM PSB CD351900 @I@@@A L,U YH )@@G@@ X2,1 . LOAD FILE COUNT FOR PSB COMMAND CD352000 @I@@@AYI )@@G@@ J BWDSET . POSITION BACK TO BEGINNING OF #CYJ )@@G@@CD352100 @I@@@AOVWRET . YK )@@G@@ CD352200 @I@@@A L,U A0,020 YL )@@G@@ . READ FORWARD OVER EOF CD352300 @I@@@A S,S2 YM )@@G@@ A0,TAPPKT+3 CD352400 @I@@@AYN )@@G@@ L,U A0,TAPPKT YO )@@G@@CD352500 @I@@@A ER IOW$ YP )@@G@@ CD352600 @I@@@A L,S1 A0,TAPPKT+3 YQ )@@G@@ CD352700 @I@@@A TE,U YR )@@G@@ A0,1 . WAS AN END OF FILE READ CD352800 @I@@@AYS )@@G@@ J ERRWRT YT )@@G@@CD352900 @I@@@A INCF . UP FILE - ZEROYU )@@G@@ RECORD COUNT CD353000 @I@@@A L A1,OVWJMP YV )@@G@@ CD353100 @I@@@A L,U YW )@@G@@ A0,0 CD353200 @I@@@AYX )@@G@@ S A0,OVWJMP . REMOVE SWITCH FOR PSB YY )@@G@@CD353300 @I@@@A TE,U A1,2 . WAS A FILE OPTYZ )@@G@@ION DUMMIED CD353400 @I@@@A J CDIMGE ZA )@@G@@ CD353500 @I@@@A S,S6 ZB )@@G@@ A0,OPTION . REMOVE FILES OPTION CD353600 @I@@@AZC )@@G@@ J CDIMGE ZD )@@G@@CD353700 @I@@@AERRWRT SLJ QGETAD ZE )@@G@@ CD353800 @I@@@A L A0,2,A0 ZF )@@G@@ CD353900 @I@@@A E$BD ZG )@@G@@ 6,ERRBLK,6 CD354000 @I@@@AZH )@@G@@ DL A0,FILEN ZI )@@G@@CD354100 @I@@@A DS A0,ERCLR ZJ )@@G@@ CD354200 @I@@@A L A0,CLERRM ZK )@@G@@ CD354300 @I@@@A ER ZL )@@G@@ PRINT$ CD354400 @I@@@AZM )@@G@@ L,U A0,01 . RESTORE TAPE PACKET FOR OTHER COZN )@@G@@CD354600 @I@@@A S,S1 A0,TAPPKT+4 ZO )@@G@@ CD354700 @I@@@A ER EXIT$ ZP )@@G@@ CD354800 @B@@@ADRMCHK ZQ )@@G@@ . @I@@@ADRUMASK DL A0,FILEN ZR )@@G@@ CD355000 @I@@@A DS A0,DZS )@@G@@RMNO CD355100 @I@@@A ZT )@@G@@ L A0,DRMNCL CD3552ZU )@@G@@00 @I@@@A ER PRINT$ ZV )@@G@@ CD355300 @I@@@A ER EXIT$ ZW )@@G@@ CD355400 @I@@@A/. CHECK FOR 4096 WORDZX )@@G@@ BLOCKS OF #CLEAR CD355500 @I@@@ACHECKWZY )@@G@@T CLRR . CLEAR RECORD COUNT CD3556ZZ )@@G@@00 @I@@@A LA,S5 A0,OPTION AA )@@G@@ CD355700 @I@@@A TEP,U A0,1 AB )@@G@@ CD355800 @I@@@A J DRMCAC )@@G@@HK CD355900 @I@@@A AD )@@G@@ DL A0,FILEN CD3560AE )@@G@@00 @I@@@A DS A0,TAPPKT . PUT FILE NAME IN IO AF )@@G@@PACKET CD356100 @I@@@A L,U A0,020 AG )@@G@@ CD356200 @I@@@A S,S2 A0,TAH )@@G@@APPKT+3 . READ FUNCTION CD356300 @I@@@A AI )@@G@@ SZ WRDRD CD3564AJ )@@G@@00 @I@@@ACHKLOP INCR . INCREMENT RECORD COUAK )@@G@@NT CD356500 @I@@@A L,U A0,TAPPKT AL )@@G@@ CD356600 @I@@@A ER IOW$AM )@@G@@ . READ A BLOCK FROM TAPE CD356700 @I@@@A AN )@@G@@ L,S1 A0,TAPPKT+3 . GET STATUS OF READ CD3568AO )@@G@@00 @I@@@A JNZ A0,EOTCHK . CHECK FOR END OF TAPAP )@@G@@E MARKER CD356900 @I@@@A L,H2 A1,TAPPKT+3 . NUAQ )@@G@@MBER OF WORDS READ CD357000 @I@@@A TNE,U A1,4AR )@@G@@096 CD357100 @I@@@A AS )@@G@@ J $+3 CD3572AT )@@G@@00 @I@@@A S A1,WRDRD . NOT 4096 WORD READ AU )@@G@@ CD357300 @I@@@A J CNTERR AV )@@G@@ CD357400 @I@@@A L A0,CAW )@@G@@LEAR CD357500 @I@@@A AX )@@G@@ L,U R1,4096 CD3576AY )@@G@@00 @I@@@A SNE A0,BLOCK . SEARCH FOR NONMATCHIAZ )@@G@@NG WORD CD357700 @I@@@A J CHKLOP BA )@@G@@ CD357800 @I@@@A S R1,WBB )@@G@@RDRD . WORD NUMBER WHICH IS BAD CD357900 @I@@@ACHKERRBC )@@G@@ DL A1,FILEN CD3580BD )@@G@@00 @I@@@A DS A1,BADCHK . PUT FILE NAME IN ERRBE )@@G@@OR MESSAGER CD358100 @I@@@A SLJ QGETAD BF )@@G@@ CD358200 @I@@@A L A0,2BG )@@G@@,A0 . LOAD RECORD COUNT CD358300 @I@@@A BH )@@G@@ E$BD 6,BDLNR,6 . PUT IN ERROR MESSAGE CD3584BI )@@G@@00 @I@@@A L,U A0,4096 . COMPUTE BAD WORD NUMBJ )@@G@@BER CD358500 @I@@@A L A1,WRDRD BK )@@G@@ CD358600 @I@@@A ANA A0,ABL )@@G@@1 CD358700 @I@@@A BM )@@G@@ E$BD 6,BDWRD,6 . PUT IN ERROR MESSAGE CD3588BN )@@G@@00 @I@@@A L A0,BDCKMG BO )@@G@@ CD358900 @I@@@A ER PRINT$ BP )@@G@@ CD359000 @I@@@A ER EXITBQ )@@G@@$ CD359100 @I@@@ACNTERRBR )@@G@@ . ERROR- NOT 4096 WORDS CD3592BS )@@G@@00 @I@@@A DL A1,FILEN BT )@@G@@ CD359300 @I@@@A DS A1,BADCNT BU )@@G@@ CD359400 @I@@@A SLJ QGETBV )@@G@@AD CD359500 @I@@@A BW )@@G@@ L A0,2,A0 . RECORD COUNT CD3596BX )@@G@@00 @I@@@A E$BD 6,CEBLOK,6 BY )@@G@@ CD359700 @I@@@A L A0,WRDRD . WOBZ )@@G@@RDS ACTUALLY READ CD359800 @I@@@A E$BD 6,CECA )@@G@@WORD,6 CD359900 @I@@@A CB )@@G@@ L A0,CEMSG CD3600CC )@@G@@00 @I@@@A ER PRINT$ CD )@@G@@ CD360100 @I@@@A ER EXIT$ CE )@@G@@ CD360200 @I@@@A. CF )@@G@@ CD360300 @B@@@AEOTCHKCG )@@G@@ . @I@@@A L,U A1,1 CH )@@G@@ . CHECK FOR END OF FILE CD360500 @I@@@A TECI )@@G@@ A0,A1 . END OF TAPE READ CD360600 CJ )@@G@@@I@@@A J BADSTA . END OF TAPE MARKRR CK )@@G@@ CD360700 @I@@@A L,U A0,TAPPKT CL )@@G@@ CD360800 @I@@@A ER IOW$ CM )@@G@@ . SECOND END OF FILE CD360900 @I@@@A L,CN )@@G@@S1 A0,TAPPKT+3 CD361000 CO )@@G@@@I@@@A TE A0,A1 CP )@@G@@ CD361100 @I@@@A J BADSTA . SHOULD HCQ )@@G@@AVE READ EOF - DID NOT CD361200 @I@@@A L,U A0,051 CR )@@G@@ . BACKSPACE OVER SECOND END OF FILCD361300 @I@@@A S,CS )@@G@@S2 A0,TAPPKT+3 CD361400 CT )@@G@@@I@@@A L,U A0,TAPPKT CU )@@G@@ CD361500 @I@@@A ER IOW$ CV )@@G@@ CD361600 @I@@@A DCRR CW )@@G@@ . DECREASE FOR END FILE BLOCK CD361700 @I@@@A DLCX )@@G@@ A0,FILEN . ALL BLOCKS HABE BEEN READ CD361800 CY )@@G@@@I@@@A DS A0,SUCCHK CZ )@@G@@ CD361900 @I@@@A SLJ QGETAD . GET ADDRDA )@@G@@ESS OF FILE COUNTERS CD362000 @I@@@A L A0,2,A0 DB )@@G@@ . GET RECORD COUNT CD362100 @I@@@A E$DC )@@G@@BD 6,SUCBLK,6 CD362200 DD )@@G@@@I@@@A L A0,CHKMSG DE )@@G@@ CD362300 @I@@@A ER PRINT$ DF )@@G@@ CD362400 @I@@@A INCF DG )@@G@@ . UP FILE - ZERO RECORD COUNT CD362500 @I@@@A J DH )@@G@@ CDIMGE CD362600 DI )@@G@@@I@@@A. DJ )@@G@@ CD362700 @I@@@ABADSTA DL A1,FILEN . UNEXPECTDK )@@G@@ED STATUS RETURNED BY RECD362800 @I@@@A DS A1,STAMSG DL )@@G@@ CD362900 @I@@@A E$DM )@@G@@BD 6,STAT,6 . STATUS IS IN A0 - PUT IN MSG CD363000 DN )@@G@@@I@@@A SLJ QGETAD DO )@@G@@ CD363100 @I@@@A L A0,2,A0 DP )@@G@@ CD363200 @I@@@A E$BD 6,RCDSTA,6DQ )@@G@@ . PUT RECORD COUNT IN MESSAGE CD363300 @I@@@A L DR )@@G@@ A0,STAPKT CD363400 DS )@@G@@@I@@@A ER PRINT$ DT )@@G@@ CD363500 @I@@@A L$SNAP 'IO PKT',07,05,TAPPKT DU )@@G@@ CD363600 @I@@@A ER EXIT$ DV )@@G@@ CD363700 @I@@@A/. GENERAL DW )@@G@@UTILITY ROUTINES CD363800 DX )@@G@@@I@@@ABADCOM L A0,PRTERR . BAD PARAMETER CARD DY )@@G@@ CD363900 @I@@@A ER PRINT$ . PRINT ITDZ )@@G@@ CD364000 @I@@@A L A0,LESX EA )@@G@@ . FOLLOWING OPER. NOT PERFORMED CD364100 @I@@@A EREB )@@G@@ PRINT$ CD364200 EC )@@G@@@I@@@A J CDIMGE . GET NEXT CONTROL CARD ED )@@G@@ BPD 03F @[@@@A. @I@@@A. ORIGIONAL CODE FELL THROUGH TO BDCEE )@@G@@MI . BPD 03F @[@@@A. @I@@@ABDCMI EF )@@G@@ L A0,RDPKT CD3643EG )@@G@@00 @I@@@A ER READ$ EH )@@G@@ CD364400 @I@@@A S,S3 A0,PPKT . NREI )@@G@@ WORDS TO PRINT CD364500 @I@@@A L A0,PEJ )@@G@@PKT CD364600 @I@@@A EK )@@G@@ ER PRINT$ CD3647EL )@@G@@00 @I@@@A J BDCMI . LOOP TIL READ @CARD EM )@@G@@ CD364800 @I@@@ANOVAL NOP . EN )@@G@@ CD364900 @I@@@A JNZ A2,1EO )@@G@@,X11 . USER HAS COUNT. GO BACK CD365000 @I@@@A EP )@@G@@ L X2,(037777777777) . LOAD A RECORD COUNT WE CD3651EQ )@@G@@00 @I@@@A J 0,X11 . GO BACK WITH PHONEY CER )@@G@@OUNT CD365200 @B@@@AEOFILE* NOP . ES )@@G@@@I@@@A INCR ET )@@G@@ CD365400 @I@@@A SLJ PRTEFX EU )@@G@@ CD365500 @I@@@A INCF EV )@@G@@ CD365600 @I@@@A TZEW )@@G@@,S6 OPTION . F OPTION SET? CD365700 EX )@@G@@@I@@@A J *PNT . YES EY )@@G@@ CD365800 @I@@@A SZ DUPPNT . RESET TAPEZ )@@G@@E TO DRUM FLAG CD365900 @I@@@A J CDIMGE FA )@@G@@ CD366000 @B@@@ACNVT NOFB )@@G@@P . @I@@@A LMJ X11,CONVERT FC )@@G@@ . CONVERT FIELDDATA NR IN X2 TO BINCD366200 @I@@@A J FD )@@G@@ *CNVT CD366300 @I@@@AFE )@@G@@ . FF )@@G@@CD366400 @I@@@APRTEFX* NOP . . PRINT EOF ENCOFG )@@G@@UNTERED MESSAGE CD366500 @I@@@A SLJ QGETAD FH )@@G@@ . RETURNS ADDRESS OF FILENAME IN ACD366600 @I@@@A L FI )@@G@@ A0,2,A0 . RECORD COUNT - BINARY CD366700 @I@@@AFJ )@@G@@ E$BD 6,BLKNUM,6 FK )@@G@@CD366800 @I@@@A SLJ QGETAD . FL )@@G@@ CD366900 @I@@@A LA A0,3,A0 FM )@@G@@ . BLOCK COUNT CD367000 @I@@@A E$BD FN )@@G@@ 6,FILENUM,3 . CD367100 @I@@@AFO )@@G@@ DL A0,FILEN . FP )@@G@@CD367200 @I@@@A DS A0,FILNAM . FQ )@@G@@ CD367300 @I@@@A LA A0,ADPKT1 FR )@@G@@ . EOF ENCOUNTERED IN BLOCK OF FILECD367500 @I@@@A ER FS )@@G@@ PRINT$ CD367600 @I@@@AFT )@@G@@ J *PRTEFX FU )@@G@@CD367700 @I@@@AGETSCN* NOP . ENTER SCAN ROUFV )@@G@@TINE CD367800 @I@@@A LMJ X11,SCAN FW )@@G@@ CD367900 @I@@@A + FX )@@G@@ 1,CDADDR CD368000 @I@@@AFY )@@G@@ DO 4 , + 0 FZ )@@G@@CD368100 @I@@@A J *GETSCN GA )@@G@@ CD368200 @I@@@AGENRD1 NOP GB )@@G@@ . USED IN COPY ROUTINE CD368300 @I@@@A S GC )@@G@@ X2,BS CD368400 @I@@@AGD )@@G@@ LA,S5 A0,OPTION . LOAD FOR D OPTION TEST GE )@@G@@CD368500 @I@@@A TOP,U A0,01 . 'D' OPTION SET?GF )@@G@@ CD368600 @I@@@A J RDTP GG )@@G@@ CD368700 @I@@@A TZ GH )@@G@@ DUPPNT . CD368800 @I@@@AGI )@@G@@ J RDTP . GJ )@@G@@CD368900 %H@@@@-868,868 GK )@@G@@ BPD 3H@H@@@A LMJ X11,DREAD . REGL )@@G@@AD DISC BPD 3H@H@@@ADFN1 + 00 GM )@@G@@ . BPD 3H@H@@@A + GN )@@G@@ 00 . BPD 3H@H@@@A GO )@@G@@ + 0,BLOCK . BUFFER BPD 3HGP )@@G@@@H@@@A + CDIMGE . EOF ADDRESS GQ )@@G@@ BPD 3H%@@@@[@I@@@A LX X2,BS . RESTORE XGR )@@G@@2 CD369100 @I@@@A J *GENRD1 GS )@@G@@ CD369200 @I@@@ARDTP LMGT )@@G@@J X11,TPRD$ CD369300 GU )@@G@@@I@@@AFN1 + 0 . NORMAL RTN-NR WORDS READ IGV )@@G@@N NOWDCD369400 @I@@@A + 0 GW )@@G@@ CD369500 @I@@@A + 4096,BLOCKGX )@@G@@ CD369600 @I@@@A + GY )@@G@@ EOFILE . CD369700 GZ )@@G@@@I@@@A L X2,BS HA )@@G@@ CD369800 @I@@@A J *GENRD1 HB )@@G@@ CD369900 @I@@@A. ****************************HC )@@G@@******************************************CD370000 @I@@@A. THIS ROUTIHD )@@G@@NE WILL ALLOW UPDATING THE FILE COUNT AND RECORD COUNT ON FCD370100 HE )@@G@@@I@@@A. FROM ONE TO TEN TAPES IN ONE RUN HF )@@G@@ CD370200 @I@@@AQGETAD* NOP . GET ADDRHG )@@G@@ OF 4 WORD FILE INFO IN CD370300 @I@@@AI DO 6 , S X11+I-1,QSAVE+I-1 HH )@@G@@ . SAVE REGISTERS CD370400 @I@@@A L HI )@@G@@ X11,QTAB CD370500 HJ )@@G@@@I@@@A LXI X11,(0777773) . A4=-4,4*NO ENTRIES HK )@@G@@ CD370600 @I@@@A DL A1,FILEN . PICKUP CURRHL )@@G@@ENT FILENAME CD370700 @I@@@AQLOOP JMGI X11,$+2 . HM )@@G@@CHECK FOR END OF ENTRIES CD370800 @I@@@A J HN )@@G@@ QNOFIN . NO MORE ENTRIES CD370900 HO )@@G@@@I@@@A DTE A1,QTAB+1,X11 . CK FOR MATCHING FILELNAME HP )@@G@@ CD371000 @I@@@A J QLOOP . NO MATCH HQ )@@G@@ CD371100 @I@@@A L,U A0,QTAB+1,XHR )@@G@@11 . PICK UP ADDRESS OF MATCH CD371200 @I@@@A SZHS )@@G@@ X11 CD371300 HT )@@G@@@I@@@A J *QGETAD . EXIT HU )@@G@@ CD371400 @I@@@A. NO MATCH FOUND, THIS IS NEW FILENAME, ADD IT THV )@@G@@O TABLE CD371500 @I@@@AQNOFIN L A0,QTAB HW )@@G@@ . GET ADDESS AVAILABLE FOR CD371600 @I@@@A L,HX )@@G@@U A0,QTAB+1,A0 . NEXT ENTRY CD371700 HY )@@G@@@I@@@A DS A1,0,A0 . STARE FILENAME HZ )@@G@@ CD371800 @I@@@A L,U A4,4 . UPDATE COUNIA )@@G@@T OF ENTRIES CD371900 @I@@@A A A4,QTAB IB )@@G@@ CD372000 @I@@@A S IC )@@G@@ A4,QTAB CD372100 ID )@@G@@@I@@@A TG,U A4,41 . TEST MAX FILE NAMES IE )@@G@@ CD372200 @I@@@A J GETOUT . MORE THAN 1IF )@@G@@0 FILES - ERROR *** CD372300 @I@@@A SZ X11 IG )@@G@@ CD372400 @I@@@A J IH )@@G@@ *QGETAD . CD372500 II )@@G@@@I@@@AGETOUT L A0,(P 2,12,EXCEED) IJ )@@G@@ CD372600 @I@@@A ER PRINT$ IK )@@G@@ CD372700 @I@@@A ER ERR$ IL )@@G@@ CD372800 @I@@@AINCRX* NOIM )@@G@@P . INCREMENT RECORD COUNTER CD372900 IN )@@G@@@I@@@A SLJ QGETAD IO )@@G@@ CD373000 @I@@@A L,U A1,1 IP )@@G@@ CD373100 @I@@@A A A1,2,A0 IQ )@@G@@ CD373200 @I@@@A S IR )@@G@@ A1,2,A0 CD373300 IS )@@G@@@I@@@A SLJ QREST IT )@@G@@ CD373400 @I@@@A J *INCRX IU )@@G@@ CD373500 @I@@@AINCFX* NOP IV )@@G@@ . INCREMENT FILE COUNTER CD373600 @I@@@A SLIW )@@G@@J QGETAD CD373700 IX )@@G@@@I@@@A L,U A1,1 IY )@@G@@ CD373800 @I@@@A A A1,3,A0 IZ )@@G@@ CD373900 @I@@@A S A1,3,A0 JA )@@G@@ CD374000 @I@@@A SZJB )@@G@@ 2,A0 . CLEAR RECORD COUNT CD374100 JC )@@G@@@I@@@A SLJ QREST JD )@@G@@ CD374200 @I@@@A J *INCFX JE )@@G@@ CD374300 @I@@@ADCRRX* NOP JF )@@G@@ . DECREMENT RECORD DOUNTER CD374400 @I@@@A SLJG )@@G@@J QGETAD CD374500 JH )@@G@@@I@@@A L A1,2,A0 JI )@@G@@ CD374600 @I@@@A AN,U A1,1 JJ )@@G@@ CD374700 @I@@@A S A1,2,A0 JK )@@G@@ CD374800 @I@@@A SLJL )@@G@@J QREST CD374900 JM )@@G@@@I@@@A J *DCRRX JN )@@G@@ CD375000 @I@@@ADCRFX* NOP . DECREMENJO )@@G@@T FILE COUNTER CD375100 @I@@@A SLJ QGETAD JP )@@G@@ CD375200 @I@@@A L JQ )@@G@@ A1,3,A0 CD375300 JR )@@G@@@I@@@A AN,U A1,1 JS )@@G@@ CD375400 @I@@@A S A1,3,A0 JT )@@G@@ CD375500 @I@@@A SLJ QREST JU )@@G@@ CD375600 @I@@@A J JV )@@G@@ *DCRFX CD375700 JW )@@G@@@I@@@ACLRRX* NOP . CLEAR RECORD COUNTER JX )@@G@@ CD375800 @I@@@A SLJ QGETAD JY )@@G@@ CD375900 @I@@@A SZ 2,A0 JZ )@@G@@ CD376000 @I@@@A SLKA )@@G@@J QREST CD376100 KB )@@G@@@I@@@A J *CLRRX KC )@@G@@ CD376200 @B@@@ACLRFX* NOP . @I@@@AKD )@@G@@ SLJ QGETAD . CLEAR FILE COUNTER KE )@@G@@CD376400 @I@@@A L,U A1,1 KF )@@G@@ CD376500 @I@@@A S A1,3,A0 KG )@@G@@ CD376600 @I@@@A SLJ KH )@@G@@ QREST CD376700 @I@@@AKI )@@G@@ J *CLRFX KJ )@@G@@CD376800 @I@@@AQREST NOP . RESTORE REGISTKK )@@G@@ERS CD376900 @I@@@AI DO 6 , L X11+I-1,QSAVE+I-1 KL )@@G@@ CD377000 @I@@@A J KM )@@G@@ *QREST CD377100 @I@@@AKN )@@G@@ENFILE ER EXIT$ . KO )@@G@@CD377200 @I@@@A/ . KP )@@G@@ CD377300 @B@@@A$(0) KQ )@@G@@ . @H@@@ASAVEX2 + 0 . KR )@@G@@ . 03D @I@@@ADUPPNT* + 0 . POINTER FKS )@@G@@OR DUPING TAPE TO DRUM CD377500 @I@@@ANOWDS$* + 0 KT )@@G@@ . CD377600 @I@@@APSERET + KU )@@G@@0 . PSE RETURN FROM PSF CODE CD377700 KV )@@G@@@I@@@ANONO + 0 . USED FOR BAD COUNT OR WORD KW )@@G@@ON CMPCD377800 @I@@@APERIOD* + 0 . FLAG TO SKX )@@G@@TIP SCAN CD377900 @I@@@ANO2EOF + 0 KY )@@G@@ . TWO CMP TAPES NOT EOF AT SAME PLCD378000 @I@@@ASAVJGD + KZ )@@G@@0 CD378100 LA )@@G@@@I@@@AOPTION* + 0 . OPTION WORD LB )@@G@@ CD378200 @H@@@AOPTION2 + 0 . SAVE FORLC )@@G@@ Q AND R OPTIONS . 03D @I@@@APNT + 0 LD )@@G@@ . LABEL POINTER WORD CD378300 %H@@@@-964,964 LE )@@G@@ BPD 3H @H@@@ANOCOMMLF )@@G@@ EQU 15 . NUMBER OF COMMANDS BPD 3HLG )@@G@@@H@@@AHOLD RES 5 . WORDS 1 & 2 - SEARCH VALUE, WORD 3 - TEMP WORK ARELH )@@G@@A BPD 3H %@@@@[@I@@@ANEWCRD EQU 1 LI )@@G@@ CD378500 @I@@@ASAMECD* EQU 0 LJ )@@G@@ CD378600 @I@@@ABLOCK* RELK )@@G@@S 4096 CD378700 LL )@@G@@@I@@@ABS RES 1 LM )@@G@@ CD378800 @I@@@ACDADDR* RES 14 LN )@@G@@ CD378900 @I@@@ABLOCK1 RES 4096 LO )@@G@@ CD379000 @I@@@A DOLP )@@G@@ 8 , +' ' CD379100 LQ )@@G@@@I@@@ACOMMND RES 1 LR )@@G@@ CD379200 @I@@@AFILEN* RES 2 LS )@@G@@ CD379300 @I@@@ATEMP* RES 1 LT )@@G@@ CD379400 @I@@@AFREED '@LU )@@G@@FREE ' . PACKET TO FREE A FILE CD379500 LV )@@G@@@I@@@A + ' ' . LW )@@G@@ CD379600 @I@@@ATABL + 'DUP', COPY . TABLE OFLX )@@G@@ PARAMETER COMMANDS CD379700 @I@@@A + 'PRT', DUMLY )@@G@@P CD379800 @I@@@A + LZ )@@G@@ 'PSF', POSFOR CD379900 MA )@@G@@@I@@@A + 'PSB', POSBWD MB )@@G@@ CD380000 @I@@@A + 'TEF', WREOF MC )@@G@@ CD380100 @I@@@A + 'TRW', REWMD )@@G@@W CD380200 @I@@@A + ME )@@G@@ 'FRE', REWI CD380300 MF )@@G@@@I@@@A + 'PSE',POSF1 MG )@@G@@ CD380400 @I@@@A + 'CMP',COMPAR MH )@@G@@ CD380500 @I@@@A + 'OVW',OVERMI )@@G@@WT CD380600 @I@@@A + MJ )@@G@@ 'CHK',CHECKWT CD380700 MK )@@G@@@I@@@A + 'SWP',SWAPRL ML )@@G@@ CD380800 @H@@@A + 'TRI',REWI . ALLOW ILMM )@@G@@LEGAL CMDF OR TRANSITION CPD3 @I@@@A + 'OPT',NEWOPT . CHANGEMN )@@G@@ OPTIONS BPD 03G %H@@@@-990 MO )@@G@@ BPD 3H @H@@@A MP )@@G@@ + 'LOC',SEARCH . SEARCH COMMAND BPD 3HMQ )@@G@@@I@@@AEQUIP1 + 0 MR )@@G@@ . 3A @I@@@AEQUIP2 + 0 MS )@@G@@ . 3A @I@@@AFACPAC RES 10 MT )@@G@@ . 3A @I@@@AP FOMU )@@G@@RM 12,6,18 CD380900 MV )@@G@@@I@@@AAFTERB P 2,9,BLKPOS MW )@@G@@ CD381000 @I@@@APPKT* P 2,0,CDADDR MX )@@G@@ CD381100 @I@@@APRTERR P 3,4,ERRADDMY )@@G@@ CD381200 @I@@@AWRERR P MZ )@@G@@ 2,13,BADWRI CD381300 NA )@@G@@@I@@@ALESX P 2,6,LEXI . NB )@@G@@ CD381400 %H@@@@-1000,1000 NC )@@G@@ BPD 3H@H@@@ANOCMP P 3,17,NOCOMP . ND )@@G@@ BPD 3H %@@@@[@I@@@ADIFFBL P NE )@@G@@ 3,13,DIFBLK CD381600 @I@@@ANF )@@G@@CHKMSG P 2,10,SUCCHK NG )@@G@@CD381700 @I@@@ABDCKMG P 2,14,BADCHK NH )@@G@@ CD381800 @I@@@ASTAPKT P 2,20,STAMSG NI )@@G@@ CD381900 @I@@@ACLRPKT P NJ )@@G@@ 2,11,CLRMSG CD382000 @I@@@ANK )@@G@@CLERRM P 2,13,ERCLR NL )@@G@@CD382100 @I@@@ADRMNCL P 2,8,DRMNO NM )@@G@@ CD382200 @I@@@ACEMSG P 2,15,BADCNT NN )@@G@@ CD382300 @I@@@ACLEAR + '#CLNO )@@G@@EAR' CD382400 @I@@@ANP )@@G@@OVWJMP + 0 NQ )@@G@@CD382500 @I@@@ACLRMSG ' TAPE OVERWRITTEN WITH ' NR )@@G@@ CD382600 @I@@@ABEFEOT + ' ' NS )@@G@@ CD382700 @I@@@A ' NT )@@G@@BLOCKS OF 4096 WORDS ' CD382800 @I@@@ANU )@@G@@ERCLR ' ERROR ENCOUNTERED IN BLOCK ' NV )@@G@@CD382900 @I@@@AERRBLK + ' ' NW )@@G@@ CD383000 @I@@@A ' WHILE WRITING TO ENDNX )@@G@@ OF TAPE.' CD383100 @I@@@ADRMNO ' NY )@@G@@ DRUM OVERWRITE CODE NOT IMPLEMENTED' CD383200 @I@@@ANZ )@@G@@SUCCHK ' SUCCESSFUL #CLEAR CHECK OF ' OA )@@G@@CD383300 @I@@@ASUCBLK ' ' OB )@@G@@ CD383400 @I@@@A ' BLOCKS. ' OC )@@G@@ CD383500 @I@@@ABADCHK ' OD )@@G@@ ERROR IN WORD ' CD383600 @I@@@AOE )@@G@@BDWRD ' ' OF )@@G@@CD383700 @I@@@A ' OF BLOCK ' OG )@@G@@ CD383800 @I@@@ABDLNR ' ' OH )@@G@@ CD383900 @I@@@A ' WHILE OI )@@G@@SEARCHING FOR #CHECK.' CD384000 @I@@@AOJ )@@G@@STAMSG ' ERROR STATUS ' OK )@@G@@CD384100 @I@@@ASTAT ' ' OL )@@G@@ CD384200 @I@@@A ' RETURNED WHILE READING TOM )@@G@@APE AT RECORD NUMBER ' CD384300 @I@@@ARCDSTA ' 'ON )@@G@@ CD384400 @I@@@AOO )@@G@@ '. ONLY 0 OR 1 STATUS ACCEPTABLE.' OP )@@G@@CD384500 @I@@@ABADCNT ' ' OQ )@@G@@ CD384600 @I@@@ACEWORD ' WORDS READ IN BLOCOR )@@G@@K ' CD384700 @I@@@ACEBLOK ' .OS )@@G@@ 4096 WORDS EXPECTED - CHECK ERROR. ' CD384800 @I@@@AOT )@@G@@BLKPOS ' FILE POSITIONED AFTER BLOCK ' OU )@@G@@CD384900 @I@@@AAFTBLK ' . ' OV )@@G@@ CD385000 @F@@@AXMSG1 ' ** X OPTION OW )@@G@@SET. ONLY THE FIRST LINE **' @F@@@AXMSG2 ' ** OF EACH ROX )@@G@@ECORD WILL BE PRINTED. **' @I@@@AWRDRD + 0 OY )@@G@@ CD385100 @I@@@AQSAVE RES OZ )@@G@@ 6 . REGISTER SAVE AREA CD385200 @H@@@APA )@@G@@ . THE QTAB TABLE HOLDS INFORMATION RELATIVE PB )@@G@@. 03D @H@@@A . TO OPEN FILES WITHIN CPD. THIS TABLE PC )@@G@@ . 03D @H@@@A . IS USED TO CONTAIN FILE NAMES, RECORD PD )@@G@@ . 03D @H@@@A . POSITION INFORMATION AND FPE )@@G@@ILE POSITION . 03D @H@@@A . INFORMATION. PF )@@G@@THE FORMAT IS ::: . 03D @H@@@A . PG )@@G@@ . 03D @H@@@APH )@@G@@ . 0 - 1 FILENAME PI )@@G@@. 03D @H@@@A . 2 RECORD POSITION/DRUM SECTOR ADDRESS PJ )@@G@@ . 03D @H@@@A . 3 FILE POSITION COUNTER (ALWAYS 1 PK )@@G@@FOR DRUM) . 03D @I@@@AQTAB RES 1 PL )@@G@@ . 4 WORDS PER FILE-FN,RECORD CNT, CD385300 @I@@@A DO 10 , DATPM )@@G@@A 0,0,0,1 CD385400 @I@@@APN )@@G@@ERRADD 'ILLEGAL PARAMETER CARD' PO )@@G@@CD385500 @I@@@AEXCEED 'EXCEEDED 10 FILE NAMES ON THIS RUN ' PP )@@G@@ . CD385600 @I@@@ABADWRI ' ERROR WHILE WRITING, COUPQ )@@G@@LD NOT CONTINUE' CD385700 @I@@@APRTLPF 'LOAD POINPR )@@G@@T ENCOUNTERED WHILE MOVING BACKWARD' . CD385800 @I@@@APS )@@G@@CNTYP + 0 . BITS 1 - 6 RUN TYPE, BITS 7 - 36 ERROR CNT PT )@@G@@BPD 03F @#@@@AERRCNT ' ' @I@@@A ' BLOCKS OF ERRORS ENPU )@@G@@COUNTERED ON CMP' . BPD 03F @I@@@A ' **PV )@@G@@*************' BPD 03F PW )@@G@@@G@@@ALEXI 'PREVIOUS OPERATION NOT PERFORMED' BPD PX )@@G@@03F %H@@@@-1059 PY )@@G@@ BPD 3H @H@@@AFDIT 'FOUND AT OCTAL WORD ** ' . PZ )@@G@@ BPD 3H @I@@@AMSGE 'FILE NOT ASSIGNEQA )@@G@@D' . BPD 03F @I@@@ADIFBLK 'DIFFEREQB )@@G@@NT SIZE BLOCKS WERE READ FROM FILE ' CD386000 @I@@@AQC )@@G@@FRSTFIL + ' ' . QD )@@G@@CD386100 @^@@@A 'AND FILE '@I@@@ASECDFIL + ' QE )@@G@@ ' . CD386400 @I@@@ANOCOMPQF )@@G@@ 'FILE ' CD3865QG )@@G@@00 @I@@@AFSTFL + ' ' . QH )@@G@@ CD386600 @^@@@A 'AND FILE '@I@@@ASCDFL + QI )@@G@@ ' ' . CD386900 QJ )@@G@@@C@@@A 'DID NOT COMPARE STARTING AT WORD ** '@I@@@AWRDCNT + QK )@@G@@ ' ' . CD387600 QL )@@G@@%H@@@@-1070 QM )@@G@@ BPD 3H @H@@@A ' OCTAL WORD ' QN )@@G@@ BPD 3H@H@@@AOCTCNT + ' ' . QO )@@G@@ BPD 3H@C@@@AEOFM1 'END-OF-FILE WAS ENCQP )@@G@@OUNTERED IN BLOCK'@I@@@ABLKNUM + ' ' QQ )@@G@@ CD388300 @^@@@A ' *FILE *** ' @I@@@AQR )@@G@@FILNAM + ' ' QS )@@G@@CD388600 @I@@@A + ' ' QT )@@G@@ CD388700 @I@@@AFILENUM + 'NO. ' QU )@@G@@ . CD388800 @F@@@ANOTEOF 'END-OF-QV )@@G@@FILE WAS EXPECTED BUT NOT ENCOUNTERED ON FILE**'@I@@@A + QW )@@G@@ ' ' CD389800 @I@@@AQX )@@G@@ + ' ' QY )@@G@@CD389900 @G@@@ABLOWIT 'AN END-OF-FILE WAS ENCOUNTERED BUT NOT EXPEQZ )@@G@@CTED IN BLOCK ***'@I@@@A + ' ' . RA )@@G@@ CD391000 @^@@@A '*** ON FILE '@I@@@ARB )@@G@@ + ' ' RC )@@G@@CD391300 @I@@@A + ' ' RD )@@G@@ CD391400 @I@@@AADPKT1 P 3,12,EOFM1 RE )@@G@@ CD391500 @I@@@AADPKT3 P RF )@@G@@ 3,3,ITDID CD391600 @I@@@ARG )@@G@@ADPKT4 P 3,11,NOTEOF RH )@@G@@CD391700 @I@@@AADPKT5 P 3,7,NOFNAM RI )@@G@@ CD391800 @I@@@AADPKT7 P 3,15,BLOWIT RJ )@@G@@ CD391900 @I@@@AEOFLAG + RK )@@G@@ 0 CD392000 @I@@@ARL )@@G@@WDSTP1 + 0 . HOLDS THE NO. OF WORDS FROM FIRSRM )@@G@@CD392100 @I@@@AWDSTP2 + 0 . NO. OF WORDS FRN )@@G@@ROM SECOND READ CD392200 @ @@@ANMANYF + 037777777777 @I@@@ARO )@@G@@ITDID 'YOUR FILE COMPARES' RP )@@G@@CD392300 @I@@@ANOFNAM 'THE CMP DIRECTIVE REQUIRES TWO FIRQ )@@G@@LE NAMES' CD392400 @I@@@ARDPKT + ENFILE,CDADDR RR )@@G@@ . PACKET FOR READ$ TO OBTAIN IMAGECD392500 @I@@@ATAPPKT + RS )@@G@@ ' ' . I/O PACKET FOR MAG TAPE TEF =011CD392600 @I@@@ART )@@G@@ + ' ' . TRW=040, TRI=041, PSF=050, PSB= RU )@@G@@CD392700 @I@@@A + 0 . RV )@@G@@ CD392800 @I@@@A + 0 RW )@@G@@ . S2 OF THIS WORD WILL CONTAIN FUNCD392900 @I@@@A + RX )@@G@@ 4096,BLOCK . HOLDS NUMBER OF WORDS AND ADD IF MOCD393000 @I@@@ARY )@@G@@TAPWRI + ' ' . I/0 PACKET FOR WRITING MAG. TAPERZ )@@G@@CD393100 @I@@@A + ' ' . SA )@@G@@ CD393200 @I@@@A + 0 SB )@@G@@ . CD393300 @I@@@A + SC )@@G@@ 0,010,0,0,0,0 . CD393400 @I@@@ASD )@@G@@ + 0,BLOCK . NO.WORDS AND ADDRESS SE )@@G@@CD393500 @I@@@A END CPD SF )@@G@@ CD393600 ___F OR TRANSITION CPD3 @I@@@A + SG )@@G@@'OPT',NEWOPT . CHANGE)@@[E^G@^C[OC[=[#@@K0@@@C0@]@%C8K@@[[@@]@%/@@@@XSH )@@G@@'=@@@@/,0@@@[4@]^U:9@@@^R;@@@[AA@@@@)@D[EK0@K0@^G@[#@@K0@@@@[?K@@C=8@@@[SI )@@G@@[)K@@C=8@@@^[=K@@C=8@@@KC?@]@%[4K@@C=8@@@]AB@@@@)@M[F#@@^G@[#@@K0@K0@@@@SJ )@@G@@C*@]@%[0K@@C=8@@@)[0K@@D=8@@@^[4K@@D=8@@@CC8K@@[C=@]@%AC@@@@)@V[]K0@K0@KSK )@@G@@)BK0@K)BK0@K0@@@@@R#@][EA\@][E'=@@@@R#@]AG'=@@@@R#@]AG[*K@@C=8@@@^AD@@@@SL )@@G@@)@<[F]@-#@@K^@K0@K0@K0@@R#K]AS[@)]@*+@K]ARN8K@@J/@)@@Z'^@@JUR;)@@@C!@][ESM )@@G@@'=@@@@AE@@@@)@?[##@[@K0@K0@K0@^[@@@@@@@@@@/@)@I2'^@@JUR;)@@[C!@][EA#)]@$SN )@@G@@RB!]@!/K@@I22C!+@,AF@@@@)@4[F#@[#@[@^@K0@K^G@@@@ =@@@C9*@@A19*@]@*;^@@@@SO )@@G@@AR)@@9T8)@@A/K@@[G:@0]@*C@0]ATAG@@@@)@.[##@@()@-@M-)@)]A@@@@@@@@@@!8K@@KSP )@@G@@C4K][ C8@@@[/K@@[B(4@][ '=@@@@R;@]@_9*@]@_AH@@@@)[ [##@[#@[#@[#@[#@[]@-@SQ )@@G@@K0@@@@ @@@@C/K@@@Z'=@@@@C@@]AU9*@]^19?@]@_/K@M@$[=@@@CAI@@@@)[H[F#@[#@@[SR )@@G@@#@[#@[#@[#@@[40@@C:4K]@*C@K]AV[@K]@*N;@@@ C9@@@^C80@@[ @@]@% @@@@DAJ@@@@SS )@@G@@)[Q[##@[#@[#@[#@[#@[#@[#@[#@@@:4K]@*C@K]AY[00@@C:4K]@*C@K]AX[?0@@C:4K]@*ST )@@G@@C@K]AWAK@@@@)[Y[##@[#@[#@[#@[#@[#@[#@[#@@@C@K]A-[)0@@C:4K]@*C@K]A)[00@@DSU )@@G@@:4K]@*C@K]AZ[40@@DAL@@@@)[&[##@[#@[#@[#@[#@[#@@K0@@@@@[@K]@*;@K@@AC@K]@*SV )@@G@@[*0@@C:4K]@*C@K]A+[[@]@%:4K]@*AM@@@@)[,[#@K^G@^G@[#@@()@-@O@@@@@@@'=@@@@SW )@@G@@R;@]AHA3@]AKR;@@@D9*@]AH9?@]@*/K@@@Z8N@@[NAN@@@@)[6[#]@*K0@ES@CK C]A@]@@SX )@@G@@@@@@@@/K@@^2*)@@@C'^@@KW'=@@@@R;@]AHA3@]AKR;@@@('=@@@@AO@@@@)["[#@^G@^G@SY )@@G@@^G@]&@]^[M@@@@@@@@'^@@K7'=@@@@R;@]AH9*@]AH9?@]@*A3@]AKC8@@@)/K@@@ZAP@@@@SZ )@@G@@)]A[F@K0@^[@K^G@^G@^G@@@R#@]A<9*@]@?9?@]@*/K@@@7/@)@@Z'^@@JUR;)@@[C!@][ETA )@@G@@'^@@K2AQ@@@@)]J[F]@!#@@K^[@ES@CKAC@@/K@@@Z'=@@@@R;@]@*/K@@@7/@)@@Z'^@@JUTB )@@G@@R;)@@[C!@][E'=@@@@AR@@@@)]S[F#@[#@@K^[@^[#@@@@@@C=@@@C'^@@JD[@K@@]/K@@])TC )@@G@@/,0@I.'^@@JUR;)@@[C!@][E @@@@#AS@@@@)]-[EK^C#OG@^G@[#@@*CS@@[@@@@EC8@@]:TD )@@G@@A3@]AKR;@@@*9*@]AH9?@]@*/K@@@@/K@@#]>8@@@[AT@@@@)]%[#@K0@K^G@^G@^@()@-@OTE )@@G@@@@@@@@'=@@@@R;@]AH/K@@B* @@@@AR@)@@B/K@@#^(@@@@A/K@@]0AU@@@@)]2[F@^G@^[#TF )@@G@@@[@K^G@^@@@@/K@@#F*@@@@#/K@@]0/K@@#^()@@@C/K@@]9:4@]AKR;@@@['^@@KPAV@@@@TG )@@G@@)];[F@K^G@^[#@[#@[@K^@@@/K@@@Z8@)@]=/K@@@Z/K@K@E*)@@@C/K@@DQ*@@@@^'^@@KWTH )@@G@@'^@@JGAW@@@@)#^[F@K^G@[]@9#@[@K0@@@@R;@@@( @@@@#/K@@]T[@)@@#/K@@@@=8@@@[TI )@@G@@C=@@@C/K@@@Z8@)@]0AX@@@@)#H[##@@()@-@O)CS@CS@C@@@@@@@@R#G@@]'^@@J79*K]]6TJ )@@G@@9?K]@*'^@@K='=@@@@R;@]AHA3@]AKAY@@@@)#P[#]@^()@-)@-@K)CS@]@@@@@@@@'^@@JUTK )@@G@@R;)@@[C!@][E/K@@@Z'=@@@@R#@][DA@ ]]./,0@@@AZ@@@@)#X[F#@[@K[@K0@^C#4G@@@@TL )@@G@@9?@]@*/K@@@@=8@@@[C=@@@C'^@@JD[@K@@]/K@@#+/,0@I. @@][SBA@@@@)#&[F#@@K0@KTM )@@G@@]&@]^[M@CS@@:4@]AKR;@@@['^@@K='=@@@@R;@]AH/K@@^ A3@]AKR;@@@(9*@]AHBB@@@@TN )@@G@@)#\[F@^G@^[#@[@K^[#@@@@@(@@][S'^@@K:/K@@^ /K@@#%*)@@@C/K@@^@:4@]AKR;@@@]TO )@@G@@/K@@#6BC@@@@)#8[F@K^G@^[@K0@K^[#@@@@R#@]A=/K@@@Z/^@@G8R#@][S8@)@#%/K@@@ZTP )@@G@@()@@@C'^@@K2'^@@JGBD@@@@)^[[F]@-@K^[@K^G@[@@@@@@'^@@JUR;)@@[C!@][E/K@@@ZTQ )@@G@@8@)@#%/K@@@Z'^@@K7'^@@K2'=@@@@BE@@@@)^E[N@^@K^G@[@K^@@/K@@^Q/,0@I.'^@@JUTR )@@G@@R;)@@[C!@][E9*@@A;;^@@@@AR)@^HT8)@@A/@)@I2BF@@@@)^O[EK^G@^[#@[@K^G@^@@@@TS )@@G@@/@@@^YC=@@@C/K@@^-/K@@^=*)@@@C9*@@J19?@]@*'^@@JD[@K@@]BG@@@@)^X[F#@[@K^[TT )@@G@@#@[@K])-)@@@[@@@@EC8@@^,/K@@@Z8@)@^V @@@@['^@@^6'^@@KP'^@@J+[@@@@[BH@@@@TU )@@G@@)^&[EK0@^[@K^[@K0@@@@@@@R@)[@K/K@@^%'^@@^6'^@@KP'^@@J+/K@@^4R8)@@[:@@]A[TV )@@G@@R#@@@]BI@@@@)^\[F@K0@K^[#@[@K[#@@@@@*@@@@[/S@@@@/K@@@Z8@)@^%9*@]@*9?@@J1TW )@@G@@/K@@[19*@]@*9?@@A;BJ@@@@)^8[#][[@K0@K0@K0@ES@CK @@@@@@R;@@@]'=@@@@R;@]AMTX )@@G@@AF@]AQRB@@@]9*@]AM9?@@A;/K@@@@BK@@@@) @[F#@[@^G@^[@^G@]&@@@@R;@]AMA3@]APTY )@@G@@R;@@@D/K@@ J/K@K^6!4@]APR;@@@C/K@@ A:4@]APBL@@@@) D[#]@*()@-@SCS@C[N@[]@TZ )@@G@@)@@@@@'=@@@@R;@][G/K@K^6A3@]APR;@@@C'=@@@@R;@]AM'=@@@@BM@@@@) L[F][ #@@KUA )@@G@@^[@^G@^@@@@@'^@@JD[@K@@@[@K@@]/K@@ U/,0@I.'^@@JUR;)@@[C!@][E'=@@@@BN@@@@UB )@@G@@) U[##@[@K^G@[@K0@K)C@@@@@@@@@'=@@@@C@@]A>/K@@ =>8@@@^C@@]@%9*@@J%9*@@J1UC )@@G@@9?@]@*BO@@@@) +[F#@[]@)*CS@CS@C@-)@@R8)@@[:@@]A[R#@@@]/K@@AA*)@@@C[@@@@EUD )@@G@@C8@@A '=@@@@C@@]A&BP@@@@) :[F#@[@K0@K^[#@[@K0@K@/K@@ 8*C@@@C/K@@ 8*C@@@DUE )@@G@@'^@@KP'^@@J+A@)@@@/K@@AAA@)@@@BQ@@@@) 4[#][D#@[@K^G@^C^4G@^C @@@@@/,0@@@UF )@@G@@*0@@@D/,0@@@*4@@@D/K@@AA/K@@ !*)@@@C'^@@@@BR@@@@) /[##@[][D#@[][P#@[][T#UG )@@G@@@[@@@@/K@@AA()@@@C'^@@@@*?@@@C'^@@@@*4@@@C'^@@@@*0@@@CBS@@@@)A^[F@K^G@^@UH )@@G@@K)RK)SK^G@@@ @@] "/K@@@Z @@@@@[C@@@^C8@@@W8@)@ !R@)@@@'^@@K2/K@@ !BT@@@@UI )@@G@@)AH[##@[#@@()@-@M-)@-)@-)@@@@@R;)@@[C!@][EA#K]@.R7K][ '=@@@@R;@]@_9*@]@_UJ )@@G@@9?@]@*BU@@@@)AP[F@K[@^[#@@()@-@M@@@@'=@@@@R;@]@_9*@]@_9*@@A;;^@@@@AR)@ATUK )@@G@@T8)@@A/@)@DN'^@@JUBV@@@@)AY[##@[@K0@K0@K0@K^G@@@@@@@@@R;)@@[C!@][E/K@@A,UL )@@G@@()@@@CA#@]@"R7@][ /K@@[B(4@][ BW@@@@)A&[F@K^G@[@E]A@]@)@@@@@9?@@A1/K@@B%UM )@@G@@A#@@@ER;@@B%'^@@JD[@K@@]R#K]A$/,0@I.'^@@JUBX@@@@)A\[##@[][=]&@[80@)CS@@@UN )@@G@@@@@@@@C#)@@]'^@@KP@@@@BK[@@@@K@@@@@@@@@@@@/,0@@@9*@]@*BY@@@@)A7[F#@[@K0@UO )@@G@@K)T@()@YG@C@'^@@KP@@@@BQ[@@[@Z@@@@@@@@@@@@/,0@@@9*@]@*9?@@A;[#)] _BZ@@@@UP )@@G@@)B@[F#@[@K0@K0@K0@K0@^@@ @@@@J/K@@C %#0@@UCB0]A@CB)] _[#0]A@C#0@@]/K@@B?UQ )@@G@@*@@] "CA@@@@)BD[F#@[#@[@[@K^@@@@@@@@R;@@@['^@@KP/K@@A,/K@@BD%#0@@JO;0@@[UR )@@G@@/K@@C4%@J[@ZR#J@@KCB@@@@)BM[F#@[@K^[@K0@K^[#@@@@*^@]^U'^@@JG/K@@B5(@@] "US )@@G@@'^@@KP/K@@A8'^@@KW'^@@JGA#@] "CC@@@@)BV[F@K0@K)CK^[#@@^C@K@@/,0@@@;C@@@AUT )@@G@@;*@@@AC@@]^U/K@@B*'^@@KW'=@@@@R#@] '/K@@B)CD@@@@)B=[]()@-)@-@K)CS@CS@C]@UU )@@G@@@@@@@@/K@@@Z8@)@A,*)@@@C @@] "'^@@KW'=@@@@C@@]A*A@ ]^VCE@@@@)B?[#@K0@K0@UV )@@G@@K)CK0@^G@^G@@@@@@@R@)]A(A#@@@AC8@@@[A@)@@B'=@@@@R#@] ;9*@] *9?@@A;CF@@@@UW )@@G@@)B4[#@K^G@^@K)[ES@CS@@@@@@@@@@R#@] .A@ ] 4/,0@@@R#G@@]'^@@J79*@] 79?@@A;UX )@@G@@/K@@]=CG@@@@)B/[#]@-@K^G@^G@[#@[#@@@@@@@@@R@)]A(A#@@@AC8@@@[A@)@@B9*@]@*UY )@@G@@9?@@A1'^@@KW'=@@@@CH@@@@)C^[F@^G@^[#@[@K0@^G@@@@%^@] _H8@@@[RB@]A@/K@@C)UZ )@@G@@%C@]A@/K@@CQ:C@] _R;@ @^/K@@]=CI@@@@)CH[F@K0@^[#@@K[@@@@@@@@/K@@CZH;0@@[VA )@@G@@/K@@C)%8@@@#C@@]@./K@@C)%8@@@ C@@]@"/K@@C)CJ@@@@)CQ[N#@@K^G@[@[@K@/K@@BCVB )@@G@@/K@@C)%B)@@VH;)@@[/K@@C)%8@@@#R#@]@"/K@@C)%8@@@ R#@]@.CK@@@@)C)[F@K^[#@[VC )@@G@@@K0@K0@K)CK@/K@@D]'=@@@@C@@][J9*@] @9?@@A;9*@]^/9?@@A1/K@@A,/,0@C(CL@@@@VD )@@G@@)C([F#@@K0@K0@^G@@K0@@@@?@@]^UR;@@@E/KF@@@*4@]^U/KF@@[**@@@C[@@]^UG8@@@[VE )@@G@@C@@]^UCM@@@@)C2[E^[@K^G@^[#@@@@@@@@@C@)@@J9*@] B9?@@A;9*@] #9?@@A1/K@@A,VF )@@G@@/,0@C(/KF@@[/KF@@@CN@@@@)C;[#@K0@^C@M&@]A@]^[]@@@@@@@@9?@@A1'=@@@@C@@][IVG )@@G@@A@ ] J/,0@@@C@@@@J[@K] M'^@@DXCO@@@@)D#[##@[#@[#@[][D#@@()@ G@@@@@R;K@@KVH )@@G@@&;@@@[R;@[@ZN@K]A@'^@@@@AB@@@]R#@] _9*@]@*CP@@@@)DF[E^G@^G@^[#@[][D@K0@@VI )@@G@@R#@] //K@@A,'^@@@@9*@]@*9?@@A;AB@@@]R#@]A@M#W)@@&;K@@[CQ@@@@)DO[#]@-@K^GVJ )@@G@@@[#@[#@[#@@@@@@@@@ @@@@^R@)]A(A#@@@AC8@@@[9*@]@*9?@@A;/K@@@Z'=@@@@CR@@@@VK )@@G@@)DW[N@^G@@[@^@@@@@/K@KDX;?K@@#8K)@D-;)K@@#;?K@@#N8)@@^;*)@@MC@K]A%/S@@@@VL )@@G@@/K@@]=CS@@@@)D&[F#@[@K^G@[@K^G@^G@@@*@@@@D[@)@@@/@)@I2'^@@JUR;)@@[C!@][EVM )@@G@@9*@@J%9*@@J19?@]@*CT@@@@)D\[F@^G@[#@[@^G@^@@@@@@'^@@J+9*@@@F;?@@@@AR)@D5VN )@@G@@P#)@@HR;)@[C[@)@@HT8)@@A/K@@E2CU@@@@)D8[F@^G@[#@[#@[#@@K0@@@:6^@@K @@@@MVO )@@G@@C6@@@FN[K]A@[#0]A@H;0@@[C#0@@] @@@@^'^@@KPCV@@@@)E[[F@K0@K^G@^[#@[@K0@K@VP )@@G@@/!K@EK:&^@@K/!K@EL:%^@@K/!K@EM:,^@@K/!K@EN:2^@@K/!K@EXCW@@@@)EE[N#@[@^[@VQ )@@G@@@@@@@@G9)@@AG9)@@AG9)@@AG9)@@AG9)@@A/K@@D78LK@E@O9@@@[/!K@EJ:+^@@KCX@@@@VR )@@G@@)EO[F#@[@^G@^@K[@@@@@@@@/K@@EY;!@@@@[P)@EV;D@@@@[P)@ETC[O@@M;?0@@@[P)@EQVS )@@G@@9?4@@KCY@@@@)EX[F#@@K0@^G@[#@[@@@@@@;G0@@@ARK@E>P#K@@HR;K@[C[@)@@HT8)@@AVT )@@G@@C@)@@@ @@@@M9?4@@KCZ@@@@)E&[F@^G@[#@[#@[@K0@K0@@C@@]A:[@K]^\'^@@DXC@)@@HVU )@@G@@A[@@@H/K @@@9/0@@F;?0@@@ARK@E$DA@@@@)E\[F]@-#@[@K0@^@K0@K0@@C@)@@@9*@@@FVV )@@G@@;^@@@@AR)@E5T8)@@AC@)@@@/K@@ 0 @@@@@'=@@@@DB@@@@)E8[]K0@]&@[N@[][(#@[#@@VW )@@G@@@@@@@@9*0@@F9?0@@H/,0@@@R;)@@HR;K@@FR;@@@][@)@@@T8)@@DDC@@@@)F@[MK0@K[@^VX )@@G@@G@^[@@ @@@@^'^@@KP'^@@J+9*0@@F;?0@@@AR)@F ;G0@@@AR)@F#P#)@@@C8)@[CDD@@@@VY )@@G@@)FE[F#@@K0@K0@K0@@@@@@@@ @@@@MC]@@@H;?K@@D @@@@HC@)@@FN[K]A@[#0]A@H;0@@[VZ )@@G@@C#0@@]DE@@@@)FN[N#@@[@K0@@@@@@:]@@@I;?)@@D;*0@@D @@@@IC@4@@K/!K@F9:]@@@IWA )@@G@@;?)@@D @@@@IC@4@@KDF@@@@)FX[N@K0@@^[#@@@@@;*0@@V @@@@IC@4@@K/!K@F,:]@@@IWB )@@G@@;?)@@D;*0@@M @@@@IC@4@@K/!K@F\DG@@@@)F$[M^@K^@[#@@@@@@9?4@@KG9)@@DG9)@@DWC )@@G@@G9)@@D/K@@FB8LK@FNO9@@@[/!K@F!:]@@@I;?)@@DDH@@@@)F1[N@^G@^@K[@K0@@ @@@@MWD )@@G@@9?4@@K/K@@F';!@@@@[P)@F7;D@@@@[P)@F5C[O@@M;?0@@@[P)@F2DI@@@@)F;[MK0@K[@^WE )@@G@@G@[@K@'^@@K2/K@@E%/K @@@9/0@@F;?0@@@ARK@G@;G0@@@ARK@F"P#K@@@C8K@[CDJ@@@@WF )@@G@@)G [##@@K^G@^G@[#@@()@@@@@@@@@R;@]AHA3@]AKR;@@@D9*@]AH9?@]@*/K@@HM=8@@@[WG )@@G@@C=@@@CDK@@@@)GH[#]@(#@[@^G@^G@^G@@@@@@@@@@R;@@@1A#@@@KR#@][RA3@]AKR;@@@CWH )@@G@@/^@@HBR7@]AK'=@@@@DL@@@@)GP[F#@@()@-@O)CS@C@)@@@R;@@@D/K@@HB%8@@@]/@@@GQWI )@@G@@R7@]AK'^@@KP'=@@@@R;@]AHA7@]ALDM@@@@)GY[##@@()@-@OO0@K)E^G@]&@@@@@R;@]AHWJ )@@G@@AZ@]AKR;@@@('=@@@@R;@]AH'=@@@@R;@]AHAZ@]AKDN@@@@)G&[#]@(]@(#@[#@[@^C@M&@WK )@@G@@@@@@@@A@ ][Z/,0@@@R#G@@]'^@@J79*@][T9?@]@*'=@@@@'=@@@@DO@@@@)G,[F#@[]@)KWL )@@G@@0@K0@^G@^G@@R8)@@[A#@][SA<@@@CO;@@@[()@@@CA7@]ALR;@@@['=@@@@R#@][NDP@@@@WM )@@G@@)G7[F@^G@]&@]^[MA@@)C@@@'^@@KW/K@@HB%8@@@[R7@]AK'=@@@@R;@]AHA3@]AKR;@@@KWN )@@G@@/K@@#$DQ@@@@)H@[F#@@K0@^[#@[@K@@@@@@R#G@@]'^@@J7/K@@@ZA<@@@C/K@@@Z%8K@@]WO )@@G@@A#@][SR;@@@@R#K][SDR@@@@)HD[#]@^()@-)@-)@-)@-@KCS@@@@@A7@]ALR;@@@['=@@@@WP )@@G@@R#@][O9*@][=9?@]@*A@ ][:/,0@@@DS@@@@)HL[#][!#@[#@[#@[]@-][!@K0@@@@C=@@@CWQ )@@G@@'^@@K2'=@@@@'=@@@@R#@][P9*@][19?@]@*'=@@@@DT@@@@)HT[EK^G@^G@[#@[#@[@ES@@WR )@@G@@R;@]AH'^@@KP @@]#LA3@]AKR;@@@K9*@]AH9?@]@*/K@@HM=8@@@[DU@@@@)H+[#]@(#@[@WS )@@G@@K0@^[#@[@@@@@@@@@@/K@@H.A#K]#L/K@@H%:8K[@@RBK]AK/^@@IDR7@]AK'=@@@@DV@@@@WT )@@G@@)H%[F#@@K0@K^G@^G@^G@^@@R#G@@]'^@@J79*K]]#9?K]@*^@K]#L/K@@H)3@@@@KN8K[@@WU )@@G@@R#@][RDW@@@@)H3[#]@^()@CS@]^@DN@[#@@@@@@@@R#@][LA@ ]]C/,0@@@H@@@@HR#K]#LWV )@@G@@R;@[@@A@ ]]F/,0@@@DX@@@@)H;[#]@-][!#@[#@[@^C@M&@@@@@@@A@ ]],/,0@@@R#G@@]WW )@@G@@'^@@J79*K]]&9?K]@*'=@@@@'=@@@@DY@@@@)I#[##@[]@^()@-)@-@K-@6@@@@@@@%@@@@HWX )@@G@@R;K@@['=@@@@'=@@@@R#@][QA@ ]](/,0@@@R#@]#LDZ@@@@)IF[F@ES@CK CS@]@CS@ G@@WY )@@G@@R;@]AHA3@]AKR;@@@(/K@@I)%@@@@HR7@]AK'=@@@@R;@]AH/K@@I)EA@@@@)IO[#]@(@K0@WZ )@@G@@K0@K[]@^()@@@@@@@@A@ ]]@/,0@@@R#G@@]'^@@J79*@][99?@]@*'^@@K='=@@@@EB@@@@XA )@@G@@)IW[##@[]@-@K^G@^G@^C@M&@@@@@@A@ ]]Q/,0@@@9*K]]L9?K]@*/K@@@Z'^@@KW'=@@@@XB )@@G@@R#@][KEC@@@@)I=[#@^C@M&@]A@]^[]@O@@@@@@@@@C8@@I,[@@@I0'=@@@@R#@][MA@ ]]ZXC )@@G@@/,0@@@R#G@@]'^@@J7ED@@@@)I?[#][1@]&@@-@6-)@-@K@@@@@@@@'=@@@@R#@][F'=@@@@XD )@@G@@@@@@@@8@ ]AHIO PKT/K@@I1'=@@@@EE@@@@)I4[##@[]@-@K0@K)BK0@K0@K)C@@@'=@@@@XE )@@G@@R#@][EA\@][E'=@@@@R#@]AG/K@@@Z'=@@@@R#@][HEF@@@@)I/[N@[#@@^[@K^G@@*)@@@CXF )@@G@@'^@@KW'^@@JG'^@@KP/S@@@@/KF@@@R@)]A(/^:@@[/S@@@@/K@@I7EG@@@@)JA[F#@[#@[@XG )@@G@@^CBO@K@@@@@@R#G@@]'^@@J7/S@@@@/K@KJD/,0@@@/S@@@@/K@@@Z @@@@[/K@K@EEH@@@@XH )@@G@@)JJ[#]@^()@)]^@DN@[#@[#@@@@@@@9*@] W9?@]@*#@ ] Y/,0@@@C@G@@#'^@@J7A@ ] TXI )@@G@@/,0@@@EI@@@@)JR[F#@[]@-@^CB+&@@@@@@@@@@@@@@@@@@@@@@@@@@@[[@L/,0@@@/S@@@@XJ )@@G@@/K@KJG'=@@@@C@@] 9EJ@@@@)J)[EK[#@[#@@K^G@^@@@@@@/K@@J0*@@@@[/K@@J0>8@@@[XK )@@G@@C=@@@CA@)[@K/S@@@@/K@KJU@@@@@@EK@@@@)J([F][/]&@[80@-)@)CKG)@@@@@@@/,0@@@XL )@@G@@/K@KJ+R@)[@K@@@@@Z@@@@@K@@@@@@@@@@@@/,0@@@EL@@@@)J2[]ES@B<@]A@]@CS@CS@@@XM )@@G@@@@@@@@A#@]#NA]0]#M/S@@@@/K@KJ+R@)[@K@@@@J[[@@@@K@@@@@@EM@@@@)J'[##@[#@[#XN )@@G@@@[#@[#@[#@[#@[@@@@/%0@K#9?K]@*&]0]A?R]0]#S[[@]#RA#0]#QA#)]#PA#K]#OEN@@@@XO )@@G@@)K][F@K0@K^G@[@K0@K0@@@@9*W@@@R;G]#TR#@]#S/K@KJ7 @@@@FR;F]#T/K@@K[9/V]#TXP )@@G@@/K@@KCEO@@@@)KF[EK0@K0@^@K^G@^C]@@@@'=@@@@R#@]A!/K@KJ7 @@@@F/K@@KM!9@@@(XQ )@@G@@[[@]#SG[@]#SC9@@@^EP@@@@)KO[N][^K@^[@^@@@@'^@@J7/S@@@@/K@KKP'^@@K.A#W@@]XR )@@G@@O#W@@]R;K@@['^@@J7/S@@@@'=@@@@EQ@@@@)KY[U@K^@K@@A#W@@]P;K@@[R#W@@]'^@@J7XS )@@G@@/S@@@@/K@KKW'^@@K. @G@@]A#W@@#O#W@@#R;K@@[ER@@@@)K([N@K[@@K^@@@@@@/S@@@@XT )@@G@@/K@KK:'^@@K.A#W@@#P;K@@[R#W@@#'^@@J7/S@@@@/K@KK='^@@K.ES@@@@)K3[N@^[@^@^XU )@@G@@[@@@@@/K@KK7'^@@K.A#W@@#R;K@@['^@@J7/S@@@@/K@KK2'^@@K. @G@@]'^@@J7ET@@@@XV )@@G@@)K.[]K0@K0@K0@K0@K0@K0@K@@@@@@/K@KK.C[@]#RR#0]#QR#)]#PR#K]#OR#@]#NR]0]#MXW )@@G@@/S@@@@EU@@@@)L @F][?@@@@)@@[@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@XX )@@G@@@@@@@@@@@@@@'=@@@@EV@@@@)@C@S@+@Z@8@@@@@@@ XY )@@G@@ @@@@@@@@@@@@@@@@@@EW@@@@+@&@C@+@:@8@()]O0[ES@>G@K@@@@@PSB@#UXZ )@@G@@PSF@]SPRT@ MDUP@^B @FREE EX@@@@+@2@8()]O0[ES@>G@M&@DN@^YA )@@G@@()]@@@@@@@@@CHK@HROVW@G^CMP@AGPSE@#AFRE@]GTRW@[_TEF@[0EY@@@@+@9@0()]O0[EYB )@@G@@S@>G@K@@@@@@+[D@C*@@@@@@@]D]]6@@@@@@@@@@@@LOC@D&OPT@[GTRI@]GSWP@]PEZ@@@@YC )@@G@@+[E[C* @* @* @* @*@@@@@@@]O]]L@]I]]#@]E][9@#H]^5@#L] ]@]A]^>@]H]^F@#^]^[YD )@@G@@@]@[@LFA@@@@+[N[K* @* @@@@@@@@OVERWR TAPE @@@@@@#CLEAR@]J]]&YE )@@G@@@]C][1@]H][=@]F][TFB@@@@+[X[S@@@@@@@ ENCOU ERROR RDS 096 WOYF )@@G@@S OF 4 BLOCK WITH ITTEN FC@@@@+[*[S@@@@@@@ TAPE.END OFYG )@@G@@NG TO WRITI WHILE OCK IN BLNTEREDFD@@@@+[3[S@@@@@@@#CLEARSSFUL YH )@@G@@ SUCCE MENTED IMPLEDE NOTITE COOVERWR DRUM FE@@@@+["[S@@@@@@@YI )@@G@@ RD IN WO ERROR S. BLOCK OF CHECKFF@@@@YJ )@@G@@+]D[S@@@@@@@ ERROR ECK. OR #CHHING F SEARC WHILE OCK YK )@@G@@ OF BLFG@@@@+]O[S@@@@@@@BER RD NUMT RECOTAPE AADING ILE RENED WH RETURYL )@@G@@ S STATUFH@@@@+]Z[S@@@@@@@ E. EPTABLYM )@@G@@US ACC1 STAT 0 OR . ONLY FI@@@@+]%[S@@@@@@@ERROR.CHECK TED - EXPECYN )@@G@@ WORDS. 4096 CK IN BLO READ WORDSFJ@@@@+]5[S@@@@@@@ . YO )@@G@@ BLOCK AFTER IONED POSIT FILE FK@@@@+#@[S@@@@@@@YP )@@G@@** OF NE ** RST LITHE FI ONLY SET. OPTION** X FL@@@@YQ )@@G@@+#F@8@@@@@@@+#T@S@@@@@@@@@@@@@@@@@@@@@@@@@ ** NTED. BE PRI WILL RECORDYR )@@G@@ EACH FM@@@@+#W[S@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@YS )@@G@@@@@@@@@@@@@@@@@@@[FN@@@@+#$[S@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[YT )@@G@@@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@FO@@@@+#2[S@@@@@@@@@@@@[@@@@@@@@@@@@@@@@@@YU )@@G@@@@@@@[@@@@@@@@@@@@@@@@@@@@@@@[@@@@@@@@@@@@FP@@@@+#.[S@@@@@@@FILE NED 10 YV )@@G@@EXCEEDCARD METER L PARAILLEGA@@@@@[@@@@@@@@@@@@@@@@@@FQ@@@@+^C[S@@@@@@@YW )@@G@@LOAD PINUE T CONTULD NONG, CO WRITI WHILE ERROR RUN N THISAMES OFR@@@@YX )@@G@@+^N[S@@@@@@@S OF E BLOCK @@@@@@RD BACKWAOVING HILE MERED WNCOUNTYY )@@G@@OINT EFS@@@@+^Y[S@@@@@@@ NOT PRATIONUS OPEPREVIO************ ***ON CMPYZ )@@G@@TERED ENCOUNRRORS FT@@@@+^([S@@@@@@@NOT AS FILE D ** ZA )@@G@@AL WORAT OCTFOUND ED ERFORMFU@@@@+^4[S@@@@@@@AND FI FILE ZB )@@G@@D FROMRE REACKS WEZE BLOENT SIDIFFERSIGNEDFV@@@@+^_[S@@@@@@@DID NO ZC )@@G@@ LE AND FI FILE LE FW@@@@+ E[S@@@@@@@ZD )@@G@@-FILE END-OF WORD OCTAL RD ** AT WOARTINGARE STT COMPFX@@@@ZE )@@G@@+ P[S@@@@@@@END-OFNO. *** *FILE BLOCKRED INCOUNTEZF )@@G@@WAS ENFY@@@@+ )[S@@@@@@@AN END FILE**ED ON OUNTEROT ENC BUT NZG )@@G@@PECTEDWAS EX-FILE FZ@@@@+ :[S@@@@@@@*** ON CK ***IN BLOECTED OT EXPZH )@@G@@ BUT NNTERED ENCOULE WAS-OF-FIGA@@@@+ 6[K@* @* @*@@@@@@@@@@@@@@@@@@#J] %ZI )@@G@@@#B]A @#F] Z@##]A]@#G] N FILE GB@@@@+A@[S@@@@@@@ FILE ES TWOZJ )@@G@@REQUIRCTIVE P DIRETHE CMMPARESILE COYOUR F#_____@@@@@@GC@@@@+AF[KGS@2)@ ZK )@@G@@@@@@@@@@@@@@ [@@@@K@@@@@@@@@@@@ @L [@LNAMES GD@@@@ZL )@@G@@+AP[SE@[K@@@@@@@@R@@@@@Q@@@@@O@@@@@H@@@@@A@[ ]^0@@@OPT@@[@@@@@@___@@@@@KZM )@@G@@@C@@@@GE@@@@+A)[K@* @* @E@@@@@#_____@]E]^V 1@[D]#C@]D]]_@]C]^M@@#]@:ZN )@@G@@@@@@@L@@@@@X@@@@@FGF@@@@+A%@)E@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZO )@@G@@@@@@@@@]G]^ @@@__;@[ ]^:666666GG@@@@0@@@]@@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@ZP )@@G@@@@@@@@@@@@@@@@@@@@@]G]^ @@@__;@[ ]^:666666GH@@@@@@^@@]@@A@@)@[A@@T@]%@@@ZQ )@@G@@@@@]A,@@@@LACD304500 EBD$X EBO$X CD363600 CD385400 ZR )@@G@@SIGTUR OPT$ READ$ PRINT$ FACIT$ IOW$ ZS )@@G@@CSF$ TSWAP$ PSFD PSED PSBD DWRTE ZT )@@G@@ERR$ PRTO PRTAQ PRTHQ PRTA PRTH ZU )@@G@@DRPKT SWITCH TPRD$ FDASC$ EXIT$ SNAP$ ZV )@@G@@CONVERT SCAN DREAD CPD @@[@@@@@@@@@CDIMGE ZW )@@G@@@@[@@@@@@@@ZSAMECD @C@@@@@@@@@@RITE @@[@@@@@@@^6F2NAM ZX )@@G@@@@[@@@@@@@A;OCTPT @@[@@@@@@@DXEOFILE @@[@@@@@@@J[PRTEFX ZY )@@G@@@@[@@@@@@@JGGETSCN @@[@@@@@@@JUQGETAD @@[@@@@@@@J7INCRX ZZ )@@G@@@@[@@@@@@@KPINCFX @@[@@@@@@@KWDCRRX @@[@@@@@@@K=DCRFX AA )@@G@@@@[@@@@@@@K:CLRRX @@[@@@@@@@K2CLRFX @@[@@@@@@@K7DUPPNT AB )@@G@@@@@@@@@@@@@[NOWDS$ @@@@@@@@@@@]PERIOD @@@@@@@@@@@ OPTION AC )@@G@@@@@@@@@@@@@CBLOCK @@@@@@@@@@@KCDADDR @@@@@@@@@[@LFILEN AD )@@G@@@@@@@@@@@]@*TEMP @@@@@@@@@]@%PPKT @@@@@@@@@][E@@@@@@@@@@@@AE )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AF )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AG )@@G@@======@@^@@ @@@@@@@@@@@@@@ @G=@@@@[-@@ @@O@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@AH )@@G@@@@@@@@H?N NK @@@@@@@@@@]>@@@^@@@@@@@@@@@@@@@@@@@@@@K^@O@@/@@A@@Y@@$AI )@@G@@@]Z@@@@@A@@^@@@[I0@@@@@@@^@@[-@^@A@[@ @@[-K^@N@)^@)A@0AK3A*0A@5A@1@@+@@+AJ )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)AK )@@G@@^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)^@)@[B@2H@@@___@@_AJI@@@___AL )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AM )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___AN )@@G@@/\K@2:;G@@@=;^@@@#;C@@@-O;@@@0')J)228^@@2J/KF@@[/\K@2:A#@@[[E@K@[[R;@@@@AO )@@G@@W8@@@EO;K@@0;^@@@=')J)22H9@@@[1@@@@K/^K@2SR;@@@-R#KAJI0@@@[[/K@@2*/D@@2&AP )@@G@@/KF@@[R#@@@H;@K@@A')J)228^@@2&/KF@@[C@)AKGR#0@@IQ#:@@@Q\;@@@C5F@@@8^H@@@AQ )@@G@@/KH@@@/\0@28A3I@@@A\I@@@A:I@@@A$I@@@AX@@@C(X@@@C!X@@@C1X@@@C5X@@@ C[K@2N*@@@@I/K@@2Z[!V@@#BC )@@G@@[[K@2OT9@@@A[XF@@#C[F@@@[[F@@^ @@^[DNW;@@#[[V@@[[[V@@] =F@@#C@@^[D%8@@@@BD )@@G@@/K@@3E[-K@2O8K0@2(/K@@3ER\F@@#R#V@@^')G@2H8#@@2,R;@@@ A\F@@#A#V@@^%9K@@.BE )@@G@@/K@@28C]K@2O%]K@2N/K@@2&N80@@@[[K^[D/K@@3E%9K@@ /K@@2.(=F@@#/K@@2&/K@@3EBF )@@G@@%9K@@,/K@@3@/K@@3EC[F@@]R#;@@[;^0@[]A#;@@[[[F@@][-V@@]C>F@@#G9@@@[[>F@@#BG )@@G@@/K@@2&^W;@@#R$:@@#R#F@@[R#V@@]/KF@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BH )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@BI )@@G@@@O<@X%@@@___@]QAB2@@EAEY@]=AE4@[RAH7)@QAEC)@GAE*)@ZAHS@@@___@@@___@@@___BJ )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___BK )@@G@@@@@___@@@___@@@___@@@___/!K@X0[1[AEC[![AEC[([AEC[>[AEC[-[AEC[5[AECQ/)@@ BL )@@G@@8@P@@@/K@@X.'^@@>Q @@AD< @@AD; @@AD/ C@AD_R#KAE4R_@AEYN/K@@QM#W)@@CD@AD/BM )@@G@@8^@@Y7 4@AD; 0@AD; ^@AD_ ^@AD;R#F@@@;G@@@Z;GK@@X;G)@@Y!/@@@S/K@@ZS:/@@@PBN )@@G@@/K@@ZSR /ADFR@0@@HR[)@@IA#@@@ER_@@@@W/@@@AR@K@@GR@)AE6Q@)@@H;^)@[A;C0@@OBO )@@G@@R.J@@@R#@@@E?8@@@C/K@@Y=!8@@@P/K@@Y=:8@@@L/K@@Y=:8@@@M/@0@Y!%8@@@I/K@@Y!BP )@@G@@*@@@@A/K@@Y!=/)@@]'K0AD<=/)@@[/,)@>,;@0@@K;C0@@O/S@@@@R.J@@@/,)@>,(4@AD;BQ )@@G@@/K@@Y4;@0@Y\(0@AD;;C9@@@*0@AD;;K9@@@0@@@@KO"0@@[/KB@@@[D@AD/ ^@AD;RD0AE[BR )@@G@@R )AE[OG0AD"OH@AD.R#0@@^R#K@@#?/K@]@/CK@Z# C@AD//K@@X.R_@@@@W/@@@AR@K@@GBS )@@G@@R@)AE6Q@)@@H/K@@Y?CD@AD/8^@@Y7/K@@Y]@@@@@@Q#K@@F&;K@@@R'0@@ @@@@G;=@@@MBT )@@G@@;=@@@#O;@@@0;)@@@#8]0@ZM;@@@@#/K@KZG'^@@ZGA#@AFXR#@AFP'=@@@I/K@@<"/C0@Z)BU )@@G@@^*)AD;D@0@@JR")@>'R_)@@@RJ@AD_(@@@@AR"@@@@/@@@)];^?@@=R#@@@A*)@AD;O#@@@CBV )@@G@@?/@@@F/K@@Z,R_@@@ER.)@@E0@@@@GR_0@@@;C0@@[U@/AD@0@@@@KO_0@@[/K@@Z9;G0@@=BW )@@G@@W/0@@EG.@@@0/!'@@@8[)@Z5C.@@@.')])X%()@AD;/K@@)]C.@@@0/K@@)[/!'@@@8]@@)@BX )@@G@@O#0@@I;G0@@=W/0@@EG.@@@0/!'@@@/^0@)#(?@AD;(*@AD;/K@@X.C.@@@-')])X%/K@@X.BY )@@G@@D@K@@A/@K@X.?@KAEZ/K@@X.;@6@@@;C.@@=D/H@@[S@@AE);G0@@#;D@@@-G.@@@0')])X%BZ )@@G@@8#@@)Q/K@@X.R#@@@J/K@@),R#)@@J;GW@@@CE )@@G@@A#-AEC$/K@@P8[)@-KR#K@@J/K@@-^R")@@@/K@@-YR")@@[/C0@--^*)AD;D@0@@J"KK@@JCF )@@G@@/@)@+$"OK@@I"W)AD'RI@AE@S@0AD&/C0@-:?@\ACSP_0@@[/K@@-\?@\ACT/K@@-\%/0@@&CG )@@G@@O_0@@[]@0@@D*@@@@EP]@@@D"C(ACT?@)ACT/K@@-9A#)@@K"D@ACS[[@@@IP"K@@[(@@@@ECH )@@G@@O]K@@C"K@@@I]@@@@G0@@@@C^))AD;;@W@]V8])@+SE@0@@D/@0@+ 1@@@@D^=)AD;;G0@@=CI )@@G@@W/0@@EG.@@@0/!0@&#(@@AD9/K@@+K @@AD9;G0@@=W/0@@EG.@@@0')])X%K/0@@0')])X%CJ )@@G@@C.@@@+*=@AD;C.@@@-*?@AD;C.@@@ ')])X% @@AD9R#0@@HR")@>'R_)@@@*)@AD;/K@@Z$CK )@@G@@P"@@@F;^)@@>1@@@@C/K@@+=U@*ADF/K@@Z$U@)ADFR_0@@@/K@@Z$**@AD;/K@@X.RI@AE@CL )@@G@@R"K@@@R_K@@@/K@@+@=8)@@[/,)@>,=8)@@[R[@@@J/!0AE7R#KAE4R_@AEYN/K@@QM#W)@@CM )@@G@@/K@@,=8)@@[R[@@@J/!0AE7/K@@X9=8)@@[/,)@>,=8)@@[R[@@@J/!0AE7CN )@@G@@/K@@ZDR_^@@@;@@@@K;K@@@OAB@AE@/K@@ZDR_^@@@;@@@@K;K@@@OAB@AD_/K@@ZDR"@@@=CO )@@G@@P]@@@#AA@@Y\R"N@@R[@AE&R[KAE$R[)AE*R[0AE(R]@AE%CQ )@@G@@R]KAE:R])AE?R#@AE,R#KAE\R#)AE0R#0AE1C[@AE2C[KAE3N@KAE N@)AEAN@0AEB/KF@@@CR )@@G@@AE0ADFR]0@@^*@@@@^/K@@ZDRB)AD/8#)@<_RE0ADFO]0AB2'^@@ZGA#@AF-R#@AF>'=@@@ICS )@@G@@'=@@@)AB)AD/RE"ADG/K@@ZDRB)AD/!/)@@O/K@@<"AE"ADGO_)@@[AB)AD/R]0@@^*C@AD/CT )@@G@@O"0@@[ C@AD//K@@ZDR#@@@#;)@@@X;K@@@XAB@AD"A @AD.8[)@=PO"0@@[/K@@X.AD)AD/CU )@@G@@R7F@@@;C@@@[R\V@@@RBGADFAF@AE[ABKAE[/K@@Y]R")@@@/K@@=)R")@@[;^0@@=R;4@@[CV )@@G@@A])@@D/,)@>,R])@@D;^0@@=RI@AE@^@)AD9/C0@=:^*)AD;900@@J"0@@@J/@K@+$P;@@K@CW )@@G@@/@@@=2S@@AD&/G@@=2O;@@@[]@@@@DD@@@@G9?)@@J*@@@@EP]@@@D'^@@>[(@@@@EO]K@@CCX )@@G@@"0K@@ID@K@@H0@@@@C^))AD;;^!@K/R#K@@I/K@@+@/K@J__/G@@>G/@@K>[!8@@@C/K@@>DCY )@@G@@;@@@@<"*?AD(/K@K>["*)AD$P;@@@C/K@@>#D@@@@G/@@K>[!8@@@C/K@@>N;@@@@<"??AD(CZ )@@G@@/K@K>["?)AD$P;@@@C/K@@>H/K@J__^@KAE ^@)AEA^@0AEBA@KAEA[@AE&DA )@@G@@A[KAE$A[)AE*A[0AE(A]@AE%A]KAE:A])AE?A]0AE!A#@AE,A#KAE\A#)AE0A#0AE1[[@AE2DB )@@G@@[[KAE3 C@AD/N/)@@_/K@@>Q!/0@[^/K@@>8!/0@@M/K@@>4R#_AE+/KE@@@?/0@[[/K@@>8DC )@@G@@R#_AD^/KE@@@R#_@@@/KE@@@R")@& (*@AD;/K@@& (?@AD;/K@@& H.@@@+:.@@@-C.@@@?DD )@@G@@/K@@& *=@AD;/K@@>.')])X%/KB@@@'^@@>Q/K@@ZDA^W@@#A@?@@^A@/@@ Q8W@@@B4@@@GDE )@@G@@+8@@@D[0L@@@+/@__")8K@@CB0I@@@ ?[@@]R@)@%CQ^1@@@&80@@]C?-@@@+8)@@B;C)@@#DF )@@G@@9?@@%D/K@@&)9*#)@@9*#)@@9*#)@@9*#)@@8#)@&WC8)@@G&80@@[N@K@@JM@")@@Q^1@@@DG )@@G@@/KF@@@A^W@@#A@?@@^A@/@@ Q8W@@@B4@@@G+8@@@D[0L@@@+/@__")8K@@CB0I@@@&8)@@[DH )@@G@@Q4-@@[&80@@[Q01@@[O^1@@@/KF@@@A4-@@[P^1@@@A01@@[B4@@@G+/@__6)0L@@@B0I@@@DI )@@G@@C8[@@@C0L@@[C8+@@@/@)@$^%8)@@^G8K@@[Q^L@@#R@?@@^R@/@@ /KF@@@[W<@@@[K<@@@DJ )@@G@@[S<@@@[O<)@@[W<@@@[K<@@@[S<@@@/?)@$K[O<)@@A^-@@]Q8)@@@/K[K@]C8?@@@')])$CDK )@@G@@/KF@@@;G@@@];CK@@+G^[@@@Q8!@@@Q8/@@@/KF@@@C8M@@@+8K@@#G@@@@IC8N@@@H^L@@@DL )@@G@@;*K@@]G8H@@@/K@@$RC8]@@@+8@@@#C8#@@@H^[@@@;*@@@]G@@@@H/KF@@@CW!@@@CK!@@@DM )@@G@@CS!@@@CO!)@@CW!@@@CK!@@@CS!@@@/\@@$4CO!)@@[^[@@]Q;@@@@/K[K@]C80@@#/K@@$;DN )@@G@@C80@@B;^@@@_+8K@B_%8)@@):8)@@@/K@@*[')])$C8#0@$;/KF@@@C8.@@@;G@@@M;CK@@MDO )@@G@@&;@@@[&;K@@[/K@@*F')G)$?')])$C8#0@*D/KF@@@C8.@@@;G@@@M;CK@@M&;@@@[&;K@@[DP )@@G@@/K@@*Q')G)$?*@@@@I')])$C8#0@*N/KF@@@C?[@@[C^L@@[/K@@*X;G@@@M;CK@@M&;@@@[DQ )@@G@@&;K@@[')G)$?:W-@@A/K@@*=')])$C/K@@*Z[?[@@[[^L@@[/KF@@@;*@@@AC8N@@@H^L@@@DR )@@G@@C8+@@@/@)@*,%8)@@^G8K@@[G@@@@H;*@@@MQB[@@@'=@@@8/K@@&7C80@@@;G@@@#/@@@*;DS )@@G@@G80@@[;G@@@#/^@@*6C8)@@0')])$CC8)@@@;=K@@#G8)@@0')])$C8#0@*;/KF@@@C8.@@@DT )@@G@@T8K@@#;GH@@@H80@@[/K@@*;N8X@@@C80@@@/C@@(HC8)@@!')])$CD@@@@G8KK@(H;O@@@=DU )@@G@@W8@@@E;?)@@AG8.@@08KK@(M/^@@(H9?@@@IC8)@@0/K@@(R')])$C8KK@(Q+8K@@_')])$CDV )@@G@@;G@@@A/^K@(S/KF@@@N8X@@@&'0@@@C80@@@/C@@(=&'0@@!D@@@@G8KK@(=;O@@@=W8@@@EDW )@@G@@;?)@@AG8.@@08KK@((/^@@(=9?@@@IC8)@@)/K@@(,')])$C8KK@(!C@)@@F;C)@@M*@@@@IDX )@@G@@')])$C+8K@@_')])$C;G@@@A/^K@(3/KF@@@C80@@@/C@@(.C8)@@!')])$CD@@@@G;O@@@=DY )@@G@@W8@@@E;?)@@AG8.@@0/^@@(.9?@@@I+8K@@_')])$C;G@@@A/^K@%#/KF@@@@@[@@@^@)^@)DZ )@@G@@^@)^@)9?F@@@9*@AF% @@^[AC@F@@][@@AF,C8@AF%'=@@@#C4@AF!:8@@@@/K@@%U:8@@@^EA )@@G@@/K@@%3!8@@@#/K@@%-/K@@%XC^@AF![^@^[A/KF@@^C@F@@#[@@AF( @@AF*/K@QF(/,0^@)EB )@@G@@#@ AG^'^@@WVA#@AF$9?G@@@9*@AF'R#@AF$C@G@@#/,0^@X#@ AF/R#@AF$C@G@@]G8@@@[EC )@@G@@/,0^@XA@ AG@C@@AF\'=@@@I/K@@H#C]@AF*:'@@@[/K@@:RG'@@@[[]@AF*9,F@@@9%@AGKED )@@G@@A]0AF&'^@@WVA#@AF$C@G@@#/,0^@X#@ AGNR#@AF$C@G@@]G8@@@[/,0^@XA@ AGHC^@AF!EE )@@G@@H8@@@[T8@@@AG?@AF!/,0^@XA@ AGPC^@AF!/,0^@XA@ AGYC^@AF!T8@@@A/,0^@XA@ AG-EF )@@G@@C@@AF0'=@@@IC@@AF1'=@@@IR]0AF&C8@@@^[?@^[AC?@AF![4@^[A/K@@%U/S@@@@'^@@,;EG )@@G@@ @@AHER;@@@]AB@@:1R;@^[GAB@@:0RB@^[AA#@AHFR;@@@C'^@@:8/,)@,2/K@K:WA\@@:\EH )@@G@@RB@@:0O;@@@CAB@@:0/,0@X4^^JAHE&IC@@[^O=^[GKQ@@@[R;@@@CO#@AHEA#@AHER;@@@[EI )@@G@@AB@@:1/K@@:>/S@@@@C@0A[,>80@@^/K@K:8!@@AHF/K@K:8[@@AHF/K@K:8/S@@@@'^@@,;EJ )@@G@@ @@AHER;@@@]AB@@?PR;@^[^AB@@?ORB@^[AA#@AHFR;@@@K'^@@?W/,)@,2/K@K?@A\@@?NEK )@@G@@RB@@?OO;@@@KAB@@?O/,0@X4^^JAHE&CK@@[EA[^[^KQ@@@[R;@@@KO#@AHEA#@AHER;@@@[EL )@@G@@AB@@?P/K@@?D/S@@@@C@0A[,>80@@^/K@K?W!@@AHF/K@K?W[@@AHF/K@K?W/S@@@@'^@@,;EM )@@G@@ @@AHER;@@@]AB@@?9R;@^[^AB@@?8RB@^[AA#@AHFR;@@@K'^@@!@/,)@,2/K@K?=A\@@?7EN )@@G@@RB@@?8O;@@@KAB@@?8/,0@X4^^JAHE&AK@@[EA[^[^KQ@@@[R;@@@KO#@AHEA#@AHER;@@@[EO )@@G@@AB@@?9/K@@?!/S@@@@C@0A[,>80@@^/K@K!@!@@AHF/K@K!@[@@AHF/K@K!@A]0@,0'^@@,;EP )@@G@@ @@AHEC^@^[A(@@@@G/K@@!;C8K@@O/,0@\SP;@@@[N@)@@GR])AH7A])AG'C/@AHL/,0@&DEQ )@@G@@C@@AHEC8K@@^/,0@([C@@AHEO;@@@O[@@AHEN80@@NC/@@@[/,0@$XR])AG'9?KAHIC@E@@@ER )@@G@@[@@AHHC8@@[W,WU@@@[W@AHH,KU@@@[K@AHH,SU@@@[S@AHH,OU)@@[O@AHHA])AG'C8@AHHES )@@G@@C8K@@^/,0@*#C/@@@[/,0@$X8K0@!8/,0@&7C@@AHK'=@@@88K)@!O/K@@!;8K)@!ZN8)@@@ET )@@G@@/K@@!3R]0@,0/KF@@@A]0@,1'^@@,; @@AHEC^@^[A(@@@@G/K@@,,C8K@@O/,0@\SP;@@@[EU )@@G@@N@)@@GR])AH7A])AG'C/@AHL/,0@&DC@@AHEC8K@@^/,0@([C@@AHEO;@@@O[@@AHEN80@@NEV )@@G@@C/@@@[/,0@$XR])AG'9?KAHIC@E@@@[@@AHHC8@@[W,WU@@@[W@AHH,KU@@@[K@AHH,SU@@@EW )@@G@@[S@AHH,OU)@@[O@AHHA])AG'C8@AHHC8K@@^/,0@*#8K0@,:/,0@&7C@@AHK'=@@@88K)@,DEX )@@G@@/K@@,,8K)@,ON8)@@@/K@@,&R]0@,1/KF@@@@@@@@@@@@@@@C@KAHF/@U@@@L@K@@G/C)@,9EY )@@G@@ @@AHFC@@@@H/KE@@[[@)AHF/KE@@[/S@@@@'^@@WV[@@AHG9?G@@@9*@AG/C@@AHGC^G@@#EZ )@@G@@/,0^@X#@ AG"C@@AHGC@G@@]/,0^@XA@ AH]C^@^[A/,0^@XA@ AH C^@^[AT8@@@AC?)^[AFA )@@G@@%8)@@^/K@@\NC8K@@AP7K^[AP#@@@H/,0^@XA@ AHCC@@AH8'=@@@I/K@K,;C@0A[,>80@@^FB )@@G@@/KF@@@!@@@@HC@@@@H/KF@@@ @@@@L/K@@\*A@)@@L:[KAJF/K@@\$C@@AIKG@@@@L[@@AIKFC )@@G@@/K@@\.C9K@[@9?@A[?9*@AIL9*@AI+C8@AIL'=@@[CC@AIU;*@@@A/,0^@XA@ AI%C@@AI^'=@@@IC@@AI '=@@@I'^@@WVFE )@@G@@C@KAIKA#W@@]/K@@H#A@)@@HD@@@@HG@@AIK/G@@0E[@@AIK'^@@WVC@KAIKA#W@@]/K@@H#FF )@@G@@ @@AIK'^@@XV'^@@XQ/K@@H#/S@@@@A]0AI#9?F@@@9*@AIF9*@AILC@F@@][^@AIJ'^@@WVFG )@@G@@C[0@@GC@W@@][@KAIKCEG@@#[]@AID/A@@05C]@@@GC8@AIL'=@@[[&(Q>,]^D6B>]XGN(Y]6ZS<5#O#$QT#!^-G@^AP(Z@^Z;#60^//'UIFR )@@G@@ QGD@1 \\FK.AG5Z]&A&]63KA_<=)^BW,I4#B592-#CJSJDOC?$DX4D 0;5MDZHE2&D/)I\*FS )@@G@@EP*MV+E\]R]UFGTYT)F>Z5_8F"73Z6GWM8F'G5R&I9HI!Z2$H?GV7*I J+5+IY@@@@K"K@@@LR4@@@L48)@@MIA*@@M$*M@@N^1FK@NX.Y^@N7W5>@FU )@@G@@OO%[ZCO!4-6'PBL%O(P=<]W9P.:3^CQRA\5EQ4WH9IRH19V4]Z$GWH#B)_W&N9TIW_87\+XW;+5!X6EV@@@@)1@@@@-V@@@@-XFY )@@G@@@@@@+!@@@@+7@@@@+.@@@@<#@@@@9*)AB6CS@ACC[W@AB8CO@ACC[W@AB9[SKAB'C?KACD[)KAB'C*KACD[4KAB;COKACDHD )@@G@@[SKAB;C4@ACEC[?ACEG1)ACEC'@@[CC,KACEG'K@[@!]@@@P/K@@YDG'@@@^/K@@Y %]@@@PHE )@@G@@/K@@YKH8@@@#/C@@YJ/@@@YJ/K@@YKG9)@@[;P)@@=W9)@@BC,)ACEH')@@A/E)@YT/])@YTHF )@@G@@G')@[=C'0@@O[Q0AB8C]K@@QG')@@[;Q)@@=W')@@^G'K@@^G]K@@Q;QK@@=W'K@@BG[0@@QHG )@@G@@C'@@@B?]@@@NH90@@BH90@@[T90@@]R@K@@N9?1ACR9*0AB4R#@ACC;C@@@G&8K@@]Q8K@@@HH )@@G@@N8K@[[2@[&C_/K@@Y9NCLAC"R@-AC"&8)@@[&80@@[Q80AB"C@M)@@[@N)@@8KK@Y6C@@AJ%HI )@@G@@'=@@@I/KF@@@BPD/CPD 3H , 19 : : HJ )@@G@@ HK )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@Z@@@@@;@@@@[U@@@@[8@@@@]R@@@@]5@@@@#O@@@@#3HL )@@G@@@@@@^L@@@@^0@@@@ I SUNDAY MONDAY TUESDAY WEDNESDAY THHM )@@G@@URSDAY FRIDAY SATURDAY JANUARY FEBRUARY HN )@@G@@MARCH APRIL MAY JUNE JULY AUGUST SEPTHO )@@G@@EMBER OCTOBER NOVEMBER DECEMBER @@0101@@]AF[@@0105@@AAF^@@0120HP )@@G@@@@^AFK@@0131@@]AFP@@0202@@]AFS@@0212@@]AFV@@0214@@#AFY@@0220@@^AF+@@0222HQ )@@G@@@@^AF$@@0229@@]AF?@@0305@@#AF\@@0315@@^AF3@@0317@@#AF8@@0320@@]AF/@@0401HR )@@G@@@@]AF_@@0403@@#AGF@@0404@@#AG]@@0405@@^AGA@@0406@@ AGJ@@0407@@AAGP@@0409HS )@@G@@@@BAGW@@0412@@#AG=@@0414@@^AG*@@0415@@]AG!@@0418@@^AG0@@0419@@AAG5@@0501HT )@@G@@@@[AG/@@0503@@ AG"@@0508@@[AHE@@0517@@^AHG@@0526@@ AH^@@0606@@@AHL@@0610HU )@@G@@@@CAHM@@0617@@CAHV@@0618@@]AH=@@0625@@#AH$@@0704@@]AH:@@0714@@[AH,@@0720HV )@@G@@@@#AH0@@0806@@]AH4@@0814@@[AH7@@0826@@#AH9@@0827@@]AH.@@0830@@#AI@@@0901HW )@@G@@@@]AI^@@0902@@ AIB@@0914@@ AIH@@0925@@BAIS@@1001@@ AI)@@1005@@#AI&@@1009HX )@@G@@@@]AI%@@1012@@[AI!@@1014@@#AI\@@1024@@]AI3@@1029@@#AI6@@1031@@BAI'@@1111HY )@@G@@@@]AJ]@@1119@@BAJ @@1129@@#AJH@@1207@@]AJL@@1214@@ AJO@@1217@@^AJU@@1221HZ )@@G@@@@#AJZ@@1224@@#AJ<@@1225@@]AJ$HAPPY NEW YEAR NELLIE ROSS FIRST WOMAN IA )@@G@@GOVERNOR 1925 ALEXANDER HAMILTON BORN 1757 PRESIDENTIAL INAUGURATIOIB )@@G@@N DAY EXPLORER 1--1958 GROUND HOG DAY A.LINCOLN--1809 ST. VALENTINIC )@@G@@E'S DAY JOHN GLENN'S FLIGHT--1962 GEORGE WASHINGTON'S BIRTHDAY ID )@@G@@LEAP-YEAR DAY. BPSTON MASSACRE - 1770 BEWARE: THE IDES OF MARCH IE )@@G@@SAINT PATRICK'S DAY SPRING HAS SPRUNG APRIL FOOLS DAY JOHN NAPIER IF )@@G@@BORN 1550 POCAHONTAS MARRIED ROLFE 1614 NATO DAY (MAC GETS OFF)PEARY IG )@@G@@REACHES NORTH POLE IN 1909 OFFICIAL DATE OF CRUCIFIXION IN 30 A.D. IH )@@G@@APPOMATTOX DAY (THE SOUTH WILL RISE AGAIN) FIRING ON FORT SUMTER II )@@G@@LINCOLN ASSASINATED, 1865 HAPPY IRS DAY SAN FRANCISCO EARTHQUAKEIJ )@@G@@ 1906 TAXATION WITHOUT REPRESENTATION MEANS WAR MAY DAY POLAND ADOPTIK )@@G@@ED CONSTITUTION 1791 FIRST AMERICAN BANK CHARTERED 1781 V-E DAY IL )@@G@@NORWEGIAN INDEPENDANCE DAY D-DAY WITHHOLDING TAX LAW SIGNED 1943 : EAIM )@@G@@T YOUR HEART OUT DON'T FIRE UNTIL YOU SEE THE WHITE'S OF THEIR EYES IN )@@G@@BATTLE OF WATERLOOCUSTER'S LAST STAND INDEPENDENCE DAY. BASTILLE DAYIO )@@G@@1ST MAN ON THE MOON FRIENDSHIP DAY V-J DAY WOMEN'S SUFFRAGE--IP )@@G@@1920 FIRST OILWELL CLEOPATRA DIED 30 B.C. INVASION OF POLANDSURRENIQ )@@G@@DER SIGNED, U.S.S. MISSOURI STAR-SPANGLED BANNER WRITTEN--1814 BLACK IR )@@G@@FRIDAY IN N.Y. 1869 BALBOA DISCOVERS PACIFIC OCEAN 1513 !!!!!!! IS )@@G@@HAPPY NEW FISCAL YEAR (OCS DAY) HAPPY BIRTHDAY DAVID LIEF ERIKSONIT )@@G@@ DAY COLUMBUS DAYBATTLE OF HASTINGS, 1066UNITED NATIONS DAYSTOCK MARKETIU )@@G@@ CRASH 1929 ALL HALLOWS EVE 'BET YOU THO'T IT WAS HALLOWEEN ARMISTICE DAIV )@@G@@Y FORE-SCORE AND SEVEN ... PERISH FROM THIS EARTH SAND CREEK MASSACRIW )@@G@@E 1864DAY-OF-INFAMY AMUNDSON REACHES SOUTH POLE, 1911 FIRST POWEREIX )@@G@@D FLIGHT--1903 PLYMOUTH ROCK STEPPED ONHAPPY BIRTHDAY ANITA MERRY IY )@@G@@CHRISTMAS @[QAB2@@@@@@@P%@C@)UQ@X%@@@___@[J^@@@@)A[<@ >A]H+@O^[J)@EA]#IZ )@@G@@)KIAB2@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___JA )@@G@@@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@@___@@?@[@@@?@[V@@?@[X@@?@@@@+@@'@@,@@_@@-@@-@@.@@?@@/@[W@@0@@0@@1@@1@@2@@2@@3@@3JF )@@G@@@@4@@4@@5@@5@@6@@6@@7@@7@@8@@8@@9@@9@@:@@$@@;@@;@@<@@\@@=@@,@@>@@+@@?@[ZJG )@@G@@@@@@@@@@A@@@@@B@@@@@C@@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@JH )@@G@@@@L@@@@@M@@@@@N@@@@@O@@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@JI )@@G@@@@X@@@@@Y@@@@@Z@@@@@[@@@@@\@@@@@]@@@@@^@@@@@_@@@@@@@@@@@A@@@@@B@@@@@C@@@JJ )@@G@@@@D@@@@@E@@@@@F@@@@@G@@@@@H@@@@@I@@@@@J@@@@@K@@@@@L@@@@@M@@@@@N@@@@@O@@@JK )@@G@@@@P@@@@@Q@@@@@R@@@@@S@@@@@T@@@@@U@@@@@V@@@@@W@@@@@X@@@@@Y@@@@@Z@@@@@[@@@JL )@@G@@@@\@@@@@]@@@@@^@@@@@_@@@&;@@@@/@F@@@C[K@@GT8@@@#G8@@@[;C@@@[N@K@@GG@K@@LJM )@@G@@H8K@@[&;K__"G@)@@GH8)@@[&;)__"/-K@EVC).@@@C[@@F9G J@C@C=.@@@;[@@@DG J@C@JN )@@G@@;[@@@D%[@@F'/K@@E5H8@@@[H8)@@[N@K@@G/K@@E6C).@@@C=H@@@C J@C@C*.@@@;[@@@DJO )@@G@@G G@C@C?H@@@;[@@@DG J@C@;[@@@DG G@C@C0.@@@;[@@@DC4H)@@H9K@@[[[I)@@C J@C@JP )@@G@@C).@@@;[@@@DG G@C@C=H@@@;[@@@DG J@C@;[@@@DG G@C@;[@@@D[[I)@@C*.@@@C?H@@@JQ )@@G@@C J@C@C0.@@@;[@@@DG G@C@C4H)@@;[@@@DG J@C@;[@@@DG G@C@;[@@@DH9K@@[[[I)@@JR )@@G@@/ K@EVC@@@[[/KF@@@&;@@@@/@F@@@A]0@[[C9W@@@&;I@@@Q;I@@@&;K@@[/,0@F0;(@@@GJS )@@G@@/[K@F-[[G@@@/,0@F0;[@@@GG G@@@[ G@@@;D@@@S;(@@@S[[G@@[/[K@F!/,0@F0[ G@@[JT )@@G@@;D@@@M[!G@@[G8@@@]/[K@F>/K@@FIG9@@ [[G@@@%[@@F;G8@@@[C8?@@@;C@@@MH8?@@@JU )@@G@@(@@@@IC8)@@[R]0@[[C8I@@@/KF@@@G[@@F/G8@@@[/K@@F+C9@@)@C@!)@@H9K@@[;))@@DJV )@@G@@+8)@[_;(@@@AGDJ@C@/D@@F3/KF@@@^@)@@@^@)^@) @@ @@@@@@9*@@G)RBK@F.JW )@@G@@RFH@@[AB@@GERBH@@[;*@@@]1@G^@@/K@@GDRBH@@[R;K@GD'=@@[D9?@@G)/K@@@@@@@@@@JX )@@G@@9*@@G)A#)@G+RB@KGF;*@@@]1@G^@@/K@@GPRB@KGFR;K@GP'=@@[DRB@@GFP;@@@]RBW@@@JY )@@G@@R#)@G:4KA[?[[@A[,C@KAB&:4KA[?[*0^[GC@KA[?KI )@@G@@;@K@@A[@KA[?8N@@H7/K@@H#9?@A[?9*@ABLR;@@@DA3@ABOR;@ABL'=@@@#'=@@@#R;@@@(KJ )@@G@@A3@ABOR;@ABL'=@@@#'^@@X@*)@^[G/K@@LQ/K@@H#C8@@@)A3@ABO9?@A[?9*@ABLR;@ABLKK )@@G@@'=@@@#'^@@XV'^@@XQC!@A]IR;)@@['^@@V"/@)@H#/K@@HV9?@A[?9*@A[0R#@AB$'=@@@JKL )@@G@@C!@A]IR;)@@['^@@V"/@)@H#/K@@HVR;@A[?'=@@[X/K@@H# @@^[BC!@A]IR;)@@['^@@V"KM )@@G@@/,0@V-/K@@J^[@K@@]'^@@V!C=@^[G>8@@@[/K@@J&/K@^@89?@A[?9*@ABLR;@@@*A3@ABOKN )@@G@@C8@@JJ[@@^[I/K@@JO(@@^[E/K@@J*R@)^[F @@^[E/K@@OGR;@ABL'=@@@#'^@@W9R;@@@[KO )@@G@@:4@ABO/K@@JX()@^[G/K@@J*/K@@JO*@@^[B/K@@J\'^@@V0'^@@X@*@@^[C/K@@P'*)@^[GKP )@@G@@/K@O[I/K@@H#8@)@JC/K@@H#8@)@JO/K@@H#C=@^[G=8@@@[/K@^@5[@)^[B/K@@I. @@^[BKQ )@@G@@R;@@@(A3@ABOR;@ABL'=@@@#'^@@XC9?KA[?9*KA#''^@@WVR#G@@]/,0^@XA@ A^[R#@A]HKR )@@G@@'=@@@I/K@@H#C!@A]IR;)@@['^@@V" @@A]W/,0@V-/K@@KA[@K@@]'^@@V!C=@^[G=8@@@[KS )@@G@@/K@^@29?@A[?9*@ABLR;@@@(A3@ABO/K@@K(R;@ABL'=@@@#'^@@XCR;@@@[:4@ABO/K@@KUKT )@@G@@R;@@@]:4@ABO/K@@K=*)@^[G/K@@KI/K@@K('^@@XJ(@@A]W'^@@V0'^@@XQ()@^[G/K@@H#KU )@@G@@8@)@KIR#@A]W/^@@TW/K@@H#R#@AB*'=@@@I'^@@XQ'^@@XV/K@@H#8@)@KI/K@@H#C!@A]IKV )@@G@@R;)@@['^@@V"/@)@VQT8)@@AAR)@K1;^@@@@9*@@NZC!@A]IR;)@@['^@@V"/,0@V-/K@@K'KW )@@G@@[@K@@]'^@@V!9?@A[?9*@@WP*)@^[G/K@@LC/K@@L C=@^[G/@@@L][@@^[ '^@@WA'^@@W9KX )@@G@@'^@@LU @@^[ 8@)@K_/K@@H#C8@@LM[@@^[IR#@@@]:@@AB R8)@@[/K@@LS'^@@WA'^@@W9KY )@@G@@'^@@LU/K@@LIR@) [O9?@@NZ9*@A[?/K@@IP9?@@WP9*@A[?8@)@LI/K@@H#/S@@@@*@@^[ KZ )@@G@@/K@^@U9?@@NZ9*@ABQRB@^[AAF@ABUR;@ABQ'=@@@#R;@@@]:4@ABT/K@@L%R;@@@C!4@ABTLA )@@G@@/K@KLU/K@@L3R;@@@DA3@ABTR;@ABQ'=@@@#R;@ABQ'=@@[XR;@@@CA3@ABT/K@KLUR;@A]KLB )@@G@@'=@@@I'=@@@)C!@A]IR;)@@['^@@V"/,0@V-/K@@L"[@K@@][@K^[^'^@@V!9?@A[?9*@@WPLC )@@G@@9*@@WIC@@A[,>8@@@^/K@@MCC@@AB('=@@@IC@@AB%'=@@@IC8@@M([@@^[I*)@^[G/K@@M%LD )@@G@@R#@@@]:@@AB R8)@@[A@)^[^/K@@M%A@)^[^'^@@WA'^@@W9*C@^[H/K@@MW*C@^[G/K@@MWLE )@@G@@'^@^@\*)@^[G/K@@ML/K@@M%*4@^[H/,0^@&*0@^[H/,0^@?*0@^[G'^@^@\*4@^[G'^@^@8@@@[/K@@WO*@@^[ /K@@WO/,0^@R@@@@@@@@@@@@@@@^[O@@@@H#R@) [O/K@KWANF )@@G@@/,0^[[@@@@@@@@@@@@[@@^[O@@@@V>R@) [O/K@KWA/S@@@@A]0A^QA#@A^RA#KA^SA#)A^TNG )@@G@@A#0A^U[[@A^VR]0A^W&]0AB09?KA[?/%0@W$/K@@W?9/VA^X/K@@W>R;FA^X @@@@F/K@KWVNH )@@G@@R#@A^WR;GA^X9*W@@@C9@@@^G[@A^W[[@A^W!9@@@(/K@@W6 @@@@F/K@KWVR#@AB1'=@@@INI )@@G@@'=@@@)/S@@@@'^@@WVR;K@@[O#W@@]A#W@@]'^@@X-/K@KW9/S@@@@'^@@WVR;K@@[O#W@@#NJ )@@G@@A#W@@# @G@@]'^@@X-/K@KX@/S@@@@'^@@WVR#W@@]P;K@@[A#W@@]'^@@X-/K@KXC/S@@@@NK )@@G@@'^@@WVR#W@@#P;K@@[A#W@@#'^@@X-/K@KXJ/S@@@@'^@@WV @G@@]'^@@X-/K@KXQ/S@@@@NL )@@G@@'^@@WVR;K@@[A#W@@#'^@@X-/K@KXV/S@@@@R]0A^QR#@A^RR#KA^SR#)A^TR#0A^UC[@A^VNM )@@G@@/K@KX-'=@@@D@@@@@@@X(@C@AB1^[^@@@@[-)O@@@@@Y;@X%AJ%AB2@@@@[F)O@@@@@2G@X%NN )@@G@@AJHAB2@@@@@G)O@@@@@3I@2HAJHAJI@@@@@C)O@@@@@3N@2HAKGAJI@@@@@]'^@@F.'^@@GFNO )@@G@@@2/@@^'^@@F.'^@@GF@0I@@]'^@@F.'^@@GF@13@@]'^@@F.'^@@GF@2P@@^'^@@F.'^@@GFNP )@@G@@@2H@@^'^@@F.'^@@GF@?@@@]'^@@F.'^@@GF@!C@@]'^@@F.'^@@GF@?=@@]'^@@F.'^@@GFNQ )@@G@@@!.@@]'^@@F.'^@@GF@:W@@]'^@@F.'^@@GF@0[@@]'^@@F.'^@@GF@\Y@@]'^@@F.'^@@GFNR )@@G@@@\)@@]'^@@F.'^@@GF@2P@@#'^@@F.'^@@GF@X%@@['^@@F.'^@@GF@%F@@]@@@@@@@@@@@@NS )@@G@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ NT )@@G@@ @@@@@@@@@@@@@@@@@@@@@@@@@FREE NU )@@G@@DUP@K:PRT@L6PSF@I/PSB@J"TEF@IOTRW@I