^_¿Ú8ë8Z9¤A¤B¨NB¤BT¨A9¤Z¹ÊX¤NIÐNÉFI¤DR¤DD¤ØÙY¤ÕB±B²B³JÊZ8¤Z¤ËZ2¤V¨ÉOÄGÍRM¤J¶ÆF2¤F5¤DOÌÌÒSP¤B¤COÌF¤Y¨Ú€€@€@€€ € € € €€€€@€ €!€"#$%€&€'(€)@*+***************›** INSFILE **›***************›'@‚'@ƒ@9: }7 (             ÉÎÓÕÒÁÎÃÅ ÆÉÌÅ             : ++ #THIS SIMPLE PROGRAM WILL PERMIT THE-- %INDIVIDUAL OR SMALL BUSINESS TO STORE // 'DATA ABOUT THE PORTFOLIOS OF ALL INSUR- -- %ANCE POLICIES HELD. FOR EACH POLICY, )) !THE FOLLOWING DATA MAY BE STORED:-- %TYPE INSURANCE, DESCRIPTION, DATE EX-.. &PIRES, INSURANCE COMPANY, UNDERWRITER,.. &POLICY NUMBER, FACE AMOUNT, AND ANNUAL++ #PREMIUM. THE FILE MAY BE STORED ON,, $DISKETTE AND RECALLED. THE POLICIES// 'MAY BE LISTED EITHER IN FULL OR BY TYPE++ #WITH SUMMARIES OF TOTAL POLICY FACE VALUES AND PREMIUMS.B , !A PROVISION FOR A MAXIMUM OF 120 B POLICIES IS MADE.#€;@,(5-@"1 PRESS RETURN TO BEGIN 5€2~~;@@,ˆ;@@,—;@@,‹;@0,™;@,ž;@P,¦;@P,©;@P,§;A,š9@,Œ;@,AWW;AP,‚9A <@,„9A <@,…;A0,;A,–;@P,K- }-@@-  ÉÎÉÔÉÁÌÉÚÉÎÇPU›-@A +‡-@@<6‚8›<‡,-M6„8›<‡,-Q ‡U ›U*›-@@&6š8›,-* ›d<6¦.2 P›-@™}67›$@P%@<+›%@,$@P,.¦ ›ô: }7 (                ÍÁÉΠÍÅÎÕ               : þ)) !1. ADD TO FILE OR BEGIN NEW FILE 2. NOT IMPLEMENTED 3. NOT IMPLEMENTED"" 4. READ FILE IN FROM DISK&$$ 5. WRITE FILE OUT ONTO DISK0  6. EDIT FILE:-- %7. LIST CONTENTS,COMPLETE OR BY TYPED,, $8. ACTUALLY DELETE RECORD FROM FILEN6†-X6 A ( ENTER YOUR CHOICE ,†6 BbGG†AA A!A"A#A0APApl A™B ‚8‡<@,#  NEW AMOUNT 'ˆ.ˆ0B6‚8‡<@,-A:ˆ,è,,ADD TO OR START FILE ALREADY IN MEMORY›ò; }Š"$  NEW FILE ' * 4 B; }ô   ÷6‡-Š%@ü A`INPUT 1 RECORD›) } Aa)PRINT OUT 1 RECORD›0 B&€7@<@,4N0 A €7@<@,4A$$&6Š-Š%@&NEW RECORD ON FILE›. BMORE?›8$$€7@<@,4YAB€7@<@,0Y$ЛÚ$4›f$˜READ IN FILE FROM DISK›¢7 }7 (       ÐÕÔ ÄÁÔÁ ÄÉÓË ÉΠÄÉÓË ÄÒÉÖÅ      ±4   0 ENTER NAME OF FILE TO READ IN 4‹³2. %ENTER DRIVE NUMBER IN FORM D1,D2,ETC 2Œ´3 6.Œ67B:,%@,.:367B:,%@,.‹¶ @@»@Š¼‡-@Š¾q 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.¿q 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.Àq 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.Áq 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.Âq 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.Ãq 6Ž-‡6-@ B,@j67‘$@0%@<+‘%@,$@0,.7@<@@,q6.Ä*@’@“*@”Å66‚8‡<@,-’%6‚8‡<@,-“66‚8‡<@,-”Æ™•-@@6Ž-‡#6-•- BZ6–.7‘$@0%@<+‘%@,$@0,d B‘67‘$@0%@<+‘%@,$@0,.–• •™ ‡Ô@Þ$üWRITE FILE OUT TO DISK› } N 2 '      ÐÕÔ ÄÁÔÁ ÄÉÓË ÉΠÄÉÓË ÄÒÉÖÅ      D-@@N B G ' PRESENT DISK FILE IS ‹ 6  NEW FILE :ˆAˆ0G6‹.ˆ 2. %ENTER DRIVE NUMBER IN FORM D1,D2, ETC2Œ 3 6—.Œ6—7B:—,%@,.:36—7B:—,%@,.‹ @@—  @Š$ ‡-@Š& ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6.( ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6.* ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6., ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6.. ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6.0 ` 6Ž-‡6-@ BL6.7‘$@0%@<+‘%@,$@0,Y @`6.2 K @‚8‡<@,3 @‚8‡<@,K @‚8‡<@,8  ‡B @L $¸ EDIT FILE›Â }Ì ‡-@ŠÑ }Ö   ‡ à Aaå !  •-@A! •ô  ‡þ A@ $ EDIT SUBROUTINE›¥ }ª 6˜-‡´ ¹6‡-¼-- %CHANGE TYPE CODE TO ZZZZ FOR DELETING¾P A@07 %ENTER # OF ITEM YOU WISH TO EDIT,0 IFB NONE F‡P BÇ"6‡-˜$È }Ü  Afæ }ú A@ ˆLIST FILE WITH ANALYSIS›j, #IS A LINE PRINTER TO BE USED (Y/N) 0™`™7@<@,0Y*™7@<@,0Nj BŽ=3™7@<@,0Y*™7@<@,0N= AP’: }7 (                  ÍÅÎÕ                  : œ$$ 1. COMPLETE LIST AS ON FILE¦ 2. LIST BY TYPEº 3. END LIST PROGRAMÄ= AP` / ENTER APPROPRIATE CHOICE 3†= BɆ"@$ΆARASØ APì$PCOMPLETE LIST›UI }#™7@<@,4Y? PUT PAPER INTO PRINTER I B]\#  COMPLETE LIST<™7@<@,4Y\3 COMPLETE LIST^( ™7@<@,4Y"3%3(3_W6š8@,--6š8@,-B6š8@,-W6š8@,-d‡-@Šn Aa 1 RECORD PRINTED›oh›-@@@ -" ›;™7@<@,4Yh3(----------------------------------------p?-@#4 PRESS RETURN TO CONTINUE 8€? }q<(6š8@,-š8@,%‚8‡<@,<TOTAL FACE AMOUNT›t?(6š8@,-š8@,%‚8‡<@,?TOTAL PREMIUM AMOUNT›u5%6š8@,-œ&‚8<@,5TOTAL MILEAGE›x0‡'@"P:‡'@, ) B0 }‚ ‡Œ  B.   %™7@<@,4Y(3+3.3 B    B$´LIST TYPE›¹' }# ENTER TYPE DESIRED 'žº<B:ž, @0<6ž7B:ž,%@,.¦7@<@0&B:ž,,¾W6š8@,--6š8@,-B6š8@,-W6š8@,-Ã< }-@@< ªªªªªªªª ÃÏÍÐÕÔÉÎÇ ªªªªªªªªÈ‡-ŠÊ 6Ž-‡6-@ BÍ:0ž07‘$@0%@<+‘%@,$@0,: ASÒ<(6š8@,-š8@,%‚8‡<@,<TOTAL FACE AMOUNT›Ü?(6š8@,-š8@,%‚8‡<@,?TOTAL PREMIUM AMOUNT› ‡`š8@,"  E " NO ENTRIES OF THAT TYPE ON FILEY«-@A] «`$ }##  LIST OF TYPE žD™7@<@,4YD3! LIST OF TYPE ž6•-"‡-Š$ 6Ž-‡6-@ B':0ž07‘$@0%@<+‘%@,$@0,: ATP)6•-•%@, Aa@?-@"4 PRESS RETURN TO CONTINUE 8€? }J ‡T ^/  B$›-@@@+ -/ ›cI™7@<@,4YI3(----------------------------------------| B0®   $p AfÀ B@Ó } $ÔPRINT 1 LINE OF PORTFOLIO›Þ B@pè$œ**PRINT 1 LINE OF PORTFOLIO ON PRINTER›¦™7@<@,0Y$° B`º$È›Ê 6™.NÍ 6Ž-‡6-@ BÒƒ. 7‘$@0%@<+‘%@,$@0,F TYPE INSUR. JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,Ó0067‘$@0%@<+‘%@,$@0,.ˆÔ 6Ž-‡6-@ B׃. 7‘$@0%@<+‘%@,$@0,F POL. DESCR. JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,Ø0067‘$@0%@<+‘%@,$@0,.ˆÚ 6Ž-‡6-@ B܃. 7‘$@0%@<+‘%@,$@0,F EXP. DATE JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,Ý0067‘$@0%@<+‘%@,$@0,.ˆÞ 6Ž-‡6-@ B߃. 7‘$@0%@<+‘%@,$@0,F COMPANY WRITING JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,àL067‘$@0%@<+‘%@,$@0,.ˆ66Ž-‡B6-@L Báƒ. 7‘$@0%@<+‘%@,$@0,F UNDERWRITER JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,â0067‘$@0%@<+‘%@,$@0,.ˆä 6Ž-‡6-@ Bæƒ. 7‘$@0%@<+‘%@,$@0,F POLICY NUMBER JˆYB:ˆ, @0ƒ6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,ë0067‘$@0%@<+‘%@,$@0,.ˆðP ‚8‡<@,*  FACE AMOUNT .ˆ5ˆ0I6‚8‡<@,-A:ˆ,P6ˆ.úP ‚8‡<@,*  ANNUAL PREMIUM .ˆ5ˆ0I6‚8‡<@,-A:ˆ,P6ˆ.+$XDELETE SBR COMPUTATION›].6˜-@.K=NO. OF RECORDS NOT DELETED›b‡-@Šg 6Ž-‡6-@ Bl=37‘$@0%@<‘$@0%@,4ZZZZ= ApvDO NOT DELETE RECORD›€Ÿ-@@‚5 6Ž-˜6-Ÿ B6 -‘%6Ž-‡+6-Ÿ5 B…WW6…7 $@0%@<+ %@,$@0,.7‘$@0%@<+‘%@,$@0,‡ ŸŠ+Ÿ-@@'6„8˜<Ÿ,-‚8‡<Ÿ,+ Ÿ”6˜-˜%@ Ap² ‡¼6˜-˜&@6Š-˜Æ‡-@ŠÐ-Ÿ-@@6Ž-‡#6-Ÿ- BÕ67‘$@0%@<+‘%@,$@0,.7‘$@0%@<+‘%@,$@0,[ ŸÚ+Ÿ-@@'6‚8‡<Ÿ,-„8‡<Ÿ,+ Ÿä ‡î$'INPUT ERROR SBR›'? ÉÎÐÕÔ ÅÒÒÏÒ¡¡¡¡'  TRY AGAIN!;†-@A? †$'$t';@…@4 PRESS RETURN TO CONTINUE 8€;$Ø'Y,N,A SBR›Ý' 6€. â'7 3 'ENTER Y IF OK, N IF IN ERROR,A TO ABORT7€ç' €46€. ì'^J€7@<@,0Y*€7@<@,0N*€7@<@,0AT B^ Bö'$<(Y, N SBR›A( 6€. F(($ ENTER Y IF OK,N IF IN ERROR(€P(G3€7@<@,0Y*€7@<@,0N= BG BZ($ (MORE ENTRY? SBR›¥( 6€. ª(($ DO YOU DESIRE MORE ENTRIES (€´(=3€7@<@,0Y*€7@<@,0N= B)$ø*00ELIMINATES TRAILING BLANKS OF VARIABLE Z8$›ý*B:–,"@ B +<–7B:–,› 6Ž-‡6-@ BK 7‘$@0%@<+‘%@,$@0,]@…@c6Ž-‡o6-@› 7‘$@0%@<+‘%@,$@0,‚>µ 6Ž-‡6-@ B1@…@"[ 7‘$@0%@<‘$@0%@,m@…@1s6Ž-‡6-@‰ Bµ 7‘$@0%@<+‘%@,$@0,„>X6Ž-‚8‡<@, 6£-,6¤-@86¥-@B BpT@…@@X ˆŠ>¹6Ž-‚8‡<@, 6£-@,6¤-@86¥-@B BpT@…@Y ˆe6£-v6Ž-‚8‡<@,‚6¤-@Ž6¥-@˜ Bpª@…@"¹ ‚8‡<@,”>$hBo96ˆ.=:P:++Ž%@'@#+¥%@,,$@#¥,,,EŽK6©.ˆT6ˆ.00h6ˆ7B:ˆ,%@,.©o6©.rBCB:ˆ, +¤%¥,6©.ˆ6ˆ. 26ˆ7B:ˆ,%@,.©96©.C Bp|BY 6©.ˆ6ˆ.©7@<¤,06ˆ7B:ˆ,%@,..Y6ˆ7B:ˆ,%@,.©7B:©,&¥%@