OPREC¤CW¤CWA¨FX¤FXA¨T¤NT¤CWÌFXÌSAÖCHÑFIRSÔTCHÑTWTÈCPOÓINCÍOUTGÏLINÅÉÊÌPAGÅMTH¤MTÈ€€@€@€€ €HH******************************************************************››BANKING PROGRAM››HH******************************************************************›;–;@6,;6–.$JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC  >:A%,dRR€;@7,;A€,‚9@@,ƒ;A,„9@@,…;@,†;@,Ž6‡-˜6ˆ-ÝHH******************************************************************›Þ›ßSTART OF WEEK FILE READ›à›áHH******************************************************************›ç Aè''@@D:WEEKL@€M €VI-€7@<@,4BANK ACCOUNT(SAVE)?6‰-A:€7@(,,I A`I-€7@<@,4BANK ACCOUNT(CHEQ)?6Š-A:€7@(,,I Aº6‡-‡%@»?‡!@@5(!TOO MANY ENTRIES IN CURRENT FILE!? AÄ7767+‡&@,$@'%@,.€7@<@',Î6‚8‡,-A:€7@(,,Ø)€7@'<@',0 )6‚8‡,-6‚8‡, An@x& # TOTAL CURRENT ENTRIES=‡& ‚ CURRENT FILE OK€ ŒB:€,"AQ–$$€7@<@,4YAQ  A«HH******************************************************************›Ò›ÓSTART OF FIXED FILE READ›Ô›ÕHH******************************************************************›Ü A(>:A%,á((@@D:FIXEDæ@€ç €ð6ˆ-ˆ%@ú=ˆ!@@3(TOO MANY ENTRIES IN FIXED FILE!= Aÿ776ƒ7+ˆ&@,$@ %@,.€7@<@ ,6„8ˆ,-A:€7@!,,)€7@ <@ ,0 )6„8ˆ,-6„8ˆ, A@@J! ! TOTAL FIXED ENTRIES=ˆK@(0($NUMBER OF PAGES TO PRINT (DEFAULT 1)4€@6•-@LB:€,!6•-A:€,M##6•-+•&@,$@`%@PN•ATHH******************************************************************›l›v++BEGINNING OF DATE & REPORT PROCESSING›€›ŠHH******************************************************************›Ð''@@D:DATEÑ##@@P:Ú Aä6‹-@î96Œ-6-'6Ž--6-‰96-4@€9776—-+A:€7@<@,,&@,$@%@>99 @€7@<@,-–7—<—%@,-\6‘-‘%@a!! @€7@<@,fHH******************************************************************›p›z))BEGIN PRINTING OF CURRENT FILE DATA›„›ŽHH******************************************************************›˜’-@‡Ê‚8’,"A)ü##6“-+’&@,$@'%@` jQ7“%@ <“%@%,/€7@<@,)‹*7“%@ <“%@%,4 [ Bj6‚8’,-T  ’Y HH******************************************************************›^ ›h ''BEGIN PRINTING OF FIXED FILE DATA›r ›| HH******************************************************************›¸ ’-@ˆ ##6“-+’&@,$@ %@ * ƒ7“&@<“&@,41* B €  ’² B:€,@A@ä ”-@B:€,H €7”<”,4 A9¬ ’-@ˆ##6“-+’&@,$@ %@tTJƒ7“&@<“&@,4€7”<”,*+‹")ƒ7“&@<“&@,4F,T B Ø ’< ” HH******************************************************************›ª›´$$BEGIN PRINTING OF BANKING DATA›¾›ÈHH******************************************************************›PB @ -------- --------P6‘-‘%@-- @ TOTAL  6….=:, B" @…, 6….=:, B6 @ …@(&!6€.CREDIT( AA€J6€. DEBITT6….=:O:&,, B^$$ @ €… CHEQUESh 6….=:Œ, Br @…6‘-‘%@Ì(‹AxÖHH @6 SAVINGSà 6….=:‰, Bê @… CHQ ACCô 6….=:Š, Bþ @…6‘-‘%@YY @G ' @--------'6‘-‘%@6….=:Œ&Š, B&YY @G DEPOSIT TO CHEQUING0 @…6‘-‘%@Ò6Œ-6-Ü6‹-á‘•Aæ @6‘-‘%@@ A!(#@@'ø*HH******************************************************************›ù*›ú*!!PRINT ONE CURRENT FILE LINE›û*›ü*HH******************************************************************›\+F;7“%@&<“%@&,4C)7“%@&<“%@&,4DF6Œ-Œ&‚8’,f++ 7“%@&<“%@&,4B+6-&‚8’,p+‚8’,!6-%‚8’,z+‚8’, 6-&‚8’,„+6….=:O:‚8’,,,Ž+ B˜+6‘-‘%@À+‚8’, B$,EE @ 7“<“%@,… 7“%@&<“%@&,ˆ, Bì,SS @ 7“<“%@, … 7“%@&<“%@&,|.-$-EXIT FROM CURRENT FILE PRINT ROUTINE›à.HH******************************************************************›á.›â.PRINT ONE FIXED FILE LINE›ã.›ä.HH******************************************************************›D/F;ƒ7“%@<“%@,4C)ƒ7“%@<“%@,4DF6Œ-Œ&„8’,N/+ ƒ7“%@<“%@,4B+6-&„8’,X/„8’,!6-%„8’,b/„8’, 6-&„8’,l/6….=:O:„8’,,,v/ B€/6‘-‘%@¨/„8’, B% 0JJ @ ƒ7“<“%@, … ƒ7“%@<“%@,p0 B)Ô0UU @ ƒ7“<“%@, … ƒ7“%@<“%@,d2+$+EXIT FROM FIXED FILE PRINT ROUTINE›0uHH******************************************************************›1u›2u%%SUBROUTINE TO NORMALIZE DOLLARS›3u›4u00PARAMENTER T$(8) CONTAINS $ VALUE ON INPUT›5u==ON OUTPUT CONTAINS $ VALUE RIGHT JUSTIFIED ZERO FILLED.›6u›7uHH******************************************************************›:u 6†.0006†7@,.…Fu0&†7B:†,&@&†7B:†,&@6†7B:†,%@,..00Xu6…. bu 6…7@&B:†,,.†7@,lu$vu›€u$$END OF $ NORMALIZATION ROUTINE›ŠuHH******************************************************************›€ D:BANK.BAS