ghà²AÃAZ9¤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¨ÚX2¤S0¤F6¤€@€@€€ € € € €€€€@€ €!€"#$%€&€'(€)@*+€,€-€.***************›** AUTOEXP **›***************›'@‚'@ƒ@97 }7 (           ÁÕÔÏ ÅØÐÅÎÓÅ ÆÉÌÅ            V+ #THIS SIMPLE PROGRAM WILL PERMIT THEV &INDIVIDUAL TO KEEP A RECORD OF ALL EX-11 (PENSES PERTAINING TO THE USE OF AN AUTO- .. &MOBILE. FOR EACH EXPENSE THIS PROGRAM  STORES THE FOLLOWING: -- %AN EXPENSE TYPE CHOSEN FROM GAS, OIL,%% MAIN, TOL INS, PAYM, OR MISC.,, $MAIN MEANS MAINTENACE, INS IS INSUR-// 'ANCE, PAYM IS CAR PAYMENT. IN ADDITION-- %TO TYPE EXPENSE THERE IS DESCRIPTION,-- %DATE, PLACE OF SERVICE, QUANTITY PUR-// 'CHASED, BILL AMOUNT, AND ODOMETER READ-.. &ING. THIS DATA IS STORED IN A FILE IN// 'MEMORY. THIS FILE MAY BE SAVED ON DISK.. &AND RECALLED, IT MAY BE EDITED, LISTED ,, $ON CRT OR PRINTER, ETC. A MILES PER"11 (GALLON CALCULATION MAY ALSO BE PERFORMED#€;@,(5-@"1 PRESS RETURN TO BEGIN 5€2~~;@@,ˆ;@@,—;@@,‹;@0,™;@,ž;@P,¦;@P,©;@P,§;A5,š9@,Œ;@,Amm;A5,‚9@p<@,„9@p<@,…;A5,;A,–;@P,¡;@@,¢;@€,F AK- }-@@-  ÉÎÉÔÉÁÌÉÚÉÎÇPU›-@@p+‡-@@<6‚8›<‡,-M6„8›<‡,-Q ‡U ›U*›-@@&6š8›,-* ›d<6¦.2 P›-@i}67›$@P%@<+›%@,$@P,.¦ ›È6§.7@<A,ô: }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; }ô   õAŠ" Ae1 INITIAL ENTRY DONE ; BA }÷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›7 B€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.Ä*@’@“*@”Å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.2 K @‚8‡<@,3 @‚8‡<@,K @‚8‡<@,8  ‡B @L $¸ EDIT FILE›Â }Ç 6™.NÌ ‡-@ŠÑ }Ö   ‡ à 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›UL }#™7@<@,4Y? PUT PAPER INTO PRINTER B L BV }]b#  COMPLETE LIST<™7@<@,4Y?3B3b3 COMPLETE LIST^" ™7@<@,4Y"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Ž-‡6-@ BN7‘$@0%@<‘$@0%@,4GASs6š8@,-š8@,%‚8‡<@,y6-‡Š6œ-‚8‡<@,›TOTAL GASOLINE›t5(6š8@,-š8@,%‚8‡<@,5TOTAL COST›u4%6š8@,-œ&‚8<@,4TOAL MILEAGE›vM06š8@,-‚8<@,&‚8<@,MTOTAL MILEAGE FOR GASOLINE›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ÒK(6š8@,-š8@,%‚8‡<@,KTOTAL COST FOR THIS EXPENSE TYPE› ‡`š8@,"  E " NO ENTRIES OF THAT TYPE ON FILEY«-@A] «`$ }##  LIST OF TYPE žM™7@<@,4Y3"3J3! LIST OF TYPE žM36•-   "‡-Š$ 6Ž-‡6-@ B':0ž07‘$@0%@<+‘%@,$@0,: ATP)6•-•%@, Aa@5•'@"P:•'@,& B- }1 ¡5 ®J ‡T ^/  B$›-@@@+ -/ ›cI™7@<@,4YI3(----------------------------------------| B0®   $pPRINT 1 LINE OF PORTFOLIO›xY }*  EXPENSE TYPESV ' GAS OIL MAIN TOLL INS PAYM MISCY y 6Ž-‡6-@ Bz` TYPE EXPENSE $ˆ3B:ˆ, @0]6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,` {G067‘$@0%@<+‘%@,$@0,.ˆG6ˆ.ˆ7@<@,|LLˆ4GAS )ˆ4OIL )ˆ4MAIN)ˆ4TOLL)ˆ4INS )ˆ4PAYM)ˆ4MISCA`€"ˆ0ZZZZ B" A`À B@Ó } $ÔPRINT 1 LINE OF PORTFOLIO›Þ B@pè$œ**PRINT 1 LINE OF PORTFOLIO ON PRINTER›¦™7@<@,0Y$° B`º$dINITIAL INPUT›n }x INITIAL INPUT ENTRYz/, $MAKE THIS ENTRY WITH A FULL GAS TANK/ ‚q6Ž-6-@% Bq67‘$@0%@<+‘%@,$@0,.GAS ‡q6Ž-6-@% Bq67‘$@0%@<+‘%@,$@0,.INITIAL Œ6Ž-6-@% BD ENTER DATE (MM/DD/YY) HˆWB:ˆ, @06ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,‘0067‘$@0%@<+‘%@,$@0,.ˆ–Q AeP, ENTER ODOMETER READING 0”G6‚8<@,-”Q B›  $È›Ê 6™.NËQ }*  EXPENSE TYPES:N GAS OIL MAIN TOLL INS PAYM MISCQ Í 6Ž-‡6-@ BÑM  ‡%@   " M 7‘$@0%@<+‘%@,$@0,Òa! NEW EXPENSE TYPE %ˆ4B:ˆ, @0^6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,a ÓG067‘$@0%@<+‘%@,$@0,.ˆG6ˆ.ˆ7@<@,ÔNDˆ4OIL )ˆ4MAIN)ˆ4TOLL)ˆ4INS )ˆ4PAYM)ˆ4MISC)ˆ4GAS N AfÕ"ˆ0ZZZZ B" AfÖJ 6Ž-‡6-@ BJ 7‘$@0%@<+‘%@,$@0,×[ NEW DESCR. "ˆ1B:ˆ, @0[6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,Ø0067‘$@0%@<+‘%@,$@0,.ˆÚJ 6Ž-‡6-@ BJ 7‘$@0%@<+‘%@,$@0,Ü] NEW DATE $ˆ3B:ˆ, @0]6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,Ý0067‘$@0%@<+‘%@,$@0,.ˆÞJ 6Ž-‡6-@ BJ 7‘$@0%@<+‘%@,$@0,ß[ NEW PLACE OF SERV "ˆ1B:ˆ, @0[6ˆ7B:ˆ,%@,.¦7@<@0&B:ˆ,,à0067‘$@0%@<+‘%@,$@0,.ˆðP ‚8‡<@,*  NEW QUANTITY .ˆ5ˆ0I6‚8‡<@,-A:ˆ,P6ˆ.úP ‚8‡<@,*  NEW AMOUNT .ˆ5ˆ0I6‚8‡<@,-A:ˆ,P6ˆ.ÿR ‚8‡<@,, NEW ODOMETER READING0ˆ7ˆ0K6‚8‡<@,-A:ˆ,R6ˆ.    +$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‡<Ÿ,+ Ÿä ‡î$(#FORMATTING VARIABLES›<#..6¡.$TYPE DESCR DATE PLACE QUANT AMT ODOMP#NN6¢.DTYPE DESCRIPTION DATE PLACE QUANTITY $ AMT. ODOMETER‹#$'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:©,&¥%@