1$999999999999.9$99999999999.2$99999999999.1$99999999999.99$99999999999.3$0.0$*8!5`~~~~~~   ! " 706=vSX:MASTER.DATj&#*$**%**%*%* ): ):%*%*%*%*%*%*%*%******>%%*&)%*%*%**>@%#2$2'RR('\(7(SR(U2('\(7=(SR(U2&.).*.+.,.-. 2/.0 1 2 3 4NOT ENOUGH ROOM ON DRIVE 5 USE YOUR BACK-UP DATA DISK TO RECOVER FILES.6S7S8S9VX67h:-3 1,"CLIENT",INCLT.DAT,200, 2,"POLICY",INPOL.DAT,130,3 3,"PREBILL/RENEWAL",INPRE.DAT,130,4,"PAYMENT",INPAY.DAT,60,3 5,"CLAIMS",INCLM.DAT,110, 6,"NUMERIC INDEX",INNUM.IND,23,3 7,"ALPHA INDEX",INALPH.IND,24, 8,"INX FILE",ININD.INX,23,3 9,"WORK FILE",INDAT.WRK,200, 11,"CLINIC FILE",MASTER.DAT,256,3 12,"PRODUCERS",INPRO.DAT,170, 13,"INSURANCE COMPANY",INCOM.DAT,220 ,3 14,"MESSAGES",INMSG.DAT,50, 15,"COVERAGE CODES",INCOV.DAT,100,/(6~(( 7;=:;"!<<<;!!=:; 7=6=;"!;"! =S; 7; !<6; !<; 7; !<6qg7+/-60/.RETURN7J/-2 7t< !<-e 7< !<-eZ7>SX:?UX:@UXA U;?B?pWC-D6DD 7 D!DUX6Z647dAALL INDEXESD6HDD 7aD!DUX6;6F7AALL INDEXES767ـAEND OF MONTHd4JEND OF MONTH PROCESSING$d4d467AEND OF YEAR67AINTER-OFFICE DISK BACKUP6I7FAMASTER DATA DISK BACKUP67dE ALPHABETIC 6sE NUMERIC /-76AALL INDEXES 76$d4d4E$INDEX RECOVERY $d4d4 THIS PROGRAM RECONSTRUCTS THE INDEX FILE FROM THE CLIENT $dDATA FILES$d4d4 F 76$d4d4 MAXIMUM MEMORY SPACE AVAILABLE - $Gp#SORTMEMBERS$d4 BUFFER SIZE DIMENSIONED AT$Hp# - $dRECONSTRUCTING$E$ INDEX .......$d4IG J  6IG J  687K-L>????76 ;?K-? 7-6@p` 7FK-? !?!!j`K-7n6@]%0*M):>?? M 7M?LI!00VMpW6@]%N*M):O*0*>OC7߀206P,0\20PS12 SLI!1SM7)@@p6bLI!LI!0000@WV@@pLG7 z00>pWV?pW0000@WVA22D6DD 70000D!WV26Z6 LL6b $@p# J;"!$ RECORDS RECOVERED$d4?!@p@6Q- zAALL INDEXES 7 w42D6 WDD 7 t0000D!WV26 J6 6 >>7 6 6  $;"!$ DATA FILE HAS BEEN LOST ............$d4 PROGRAM IS UNABLE TO RECONSTRUCT INDEX FILE.$d45$d4K-7  !MDALPH.INX6 3 !MDNUM.INXSORT NUMBER$>p#d4>>Q.7 [6 LLd4K.7 ~ NUMERIC$d6  ALPHABETIC$d INDEX HAS BEEN RECOVERED$d4d4 SORTING$Lp#RECORDS ...............$d4L7 6 RRJ!RRRJ!RJ!RJ!L7 (6 RRR7 >RSR6 eSS897 TSJ!UT6 LUU 7 3UI! SVUWVVVTV7 6 3VI!7 WI!VI! S6 WI!3 S6 {6 F>7 6  ! Hk !Hj6 f !Hk(6 CL(( 7 ]&(I!,?(I! 6 6@L` XXd4MERGE NUMBER$Xp#d4(Yp&Z*>(L7 6 (I!Z7 6 ŀ &Z,?6 &(I!,?(I! ((6 (L7 6 "[(6 L[[ 7 " &[I!,?[I! 6 @e\ ! !YpI d4 INDEX BEING COPIED TO CLIENT MASTER INDEX.$d4K-AALL INDEXES 7 6} !MDNUM.INX !Hj !Hk&\+?&\+?`ЀR].&^*>_^SX`^UXa^VXbcc_` pR736^bc7^FILE IS OUT OF ORDER ($^$)$d4dp7k6_]7|]_6 DUPLICATE MASTER RECORDS FOR CLIENT NUMBER$d_#d4&_+`+a+Rp+?RR6 @ !j%!+!+!+!+?%p+Rp+!+p+?R%_)`)a)\)>R%_+`+a+p+?@eAALL INDEXES 7z6}6 !MDALPH.INX !Hj3 !Hk&\+?`6R&^*>e^Sa^VX033e0e7FILE IS OUT OF ORDER ($^$)$d4&e,a+Rp+?RR6̀@ !j% ,Rp+p+?R%e*f):\)>R%e,fp+p+?@ed4$$$ INDEX RECOVERY COMPLETED$d4d4AEND OF MONTH76AEND OF MONTH76 F 76g.7L;6;; 7:h; !Zphi77ih6jRENEWAL.INDj kii !Zpk UXlk*.*Zpilp74$S$d ~6H  BUFFER SIZE DIMENSIONED AT$Hp#d4?6?? 7;?B?pW@p` ? !;!!Hj !IN.WRK !;!! Hk`$&mmP,m\nmPSn0nVo,mP\`mPoPUX;; AEND OF MONTH 76p,mo\qmopoUrqVrXrR 7ss&nq0000@WV,?`p76EM6E $@p# J;"!$ RECORDS RECOVERED$d4 @e !;!!Hj; !;!! Hk`@p6?!@e @6؀Q-s7@6ÀeJg6 $d4d4 DISK SPACE RECOVERY $d4d4 THIS SECTION REMOVES ALL DELETED RECORDS FROM THE DISK TO $dPROVIDE MORE SPACE.$d4d4;7\6t`B:t7u6tuu 76t&mm&c &m,?@@p$d4d4SECTION 6.2 END OF MONTH PROCESSING$d4d4JTHIS PROGRAM REMOVES ALL DELETED RECORDS AND EXPIRED POLICIES$d4JFROM THE FILES, CONVERTS EFFECTIVE RENEWALS TO ACTIVE POLICIES.$d4JUPDATES THE PAYMENT FILES, AND RECONSTRUCTS NEW INDEXES$d4d4 F 76JDELETE EXPIRED PAID OFF POLICIES$d4d4` `vINPOL.DATwvvjw j`1&_)`)x*y)z):{*|):})~)r**)))))>`p7v6~97xxSX66``B7`p %_+`+x,y+zp+{,|p+}+~+r,,+++++?POLICY NBR. $xS$ FOR CLIENT $d####### c_#dHAS BEEN EXPIRED$d`p7B AND DELETED$d46Dd4`:7V66k 7&_)`)*y)z):{*|):})~)r**)))))> %_+`+x,y+zp+{,|p+}+~+r,,+++++?6^6 THE POLICY DATA FILE IS MISSING ............$d45$d4@ @`$d4d4d4d4d4d4d4d4d4 J***** DELETING PAYMENT DETAIL FROM DATA BASE *****$d4INPAY.DAT<jek6 THE PAYMENT DATA FILE IS MISSING ............$d45$d4@6 MOUNT A BLANK FORMATTED WORK DISK IN DRIVE $8$d4d4 ~u$d4g-687T PLACE PROGRAM DISK IN DRIVE $6$dd4d4 ~ug.H GL@pp:G7HGLppp:HLpp:H27ЀH2 BUFFER SIZE = $Hp#d4d4$d4d4JEND OF YEAR PROCESSING$d4 F 7$67287; 6O;; 7mh; !Zphi7jih6B8ABCD\pkpp:UXlk8:*.*Zpilp74$8$d ~6 !MD.WRK; 6;; 7;76; !;!!;Hj !;!! Hk;`; ^96:666B &*))> &,++? &):****)*)))>pp &p+,,,,+,+++?6W &*)> &,+? &):******))))>ppp &p+,,,,,,++++?6р&*)> &,+?&)*)))))>p &+,+++++?6X;@ @ !;!! Hj; !;!!;Hj ` &mm&c;&m,?6;@ e;p# $;"!$ FILE UPDATED$d46MOUNT DATA DISK IN DRIVE $8$ AND $d4 ~6$d4d4JCOPY INTER-OFFICE FILES TO BACKUP DISK$d4d4d4d4 F 767876.( 6(( 7.<( ! U(`+<(!!(j("!$ FILE EXISTS ON DRIVE $8$d4-(@6-7:6; 6O;; 7U 6B8S7d6MOUNT DATA DISK IN DRIVE $8$ -$d ~6$d4d4JCOPY MASTER DATA FILES TO BACKUP DISK$d4d4d4d4 F 76d4d4d4.(6(( 7^<( ! U(`[<(!!(j("!$ FILE EXISTS ON DRIVE $S$d4-(@6-7j6;6;; 7 6rg.76 PLACE PROGRAM DISK IN DRIVE $6$dd4d4 ~ujRENEWAL.IND`j jcIN611y 7 IN610yDO YOU WISH TO CONTINUE ? ....................d4 $$ (Y/N) $dFxRsQ$d4NJ$d4F F  7 }6 C PRESS TO CONTINUEn;h !8:; ! U;`!3; !;!!;Hj $;p# MOVING $;"!$ FILE$d4 !;!!Hk;`!-;&mm&c&m,?6!;@@; 6O;; 7U 6B8S7d6MOUNT DATA DISK IN DRIVE $8$ -$d ~6$d4d4JCOPY MASTER DAT