0¸¹!²SPC¤MSG¤YEAR¤HEAD¤HEAD2¤HEAD3¤FINANCE¤D¤MONEY¤MON¤AMT¤MNY¤I¤PRIN¤BAL¤LINE¤PMT¤CHRG¤ÁPMÔMONEÙIÎNUÍÂÃÑØMOÎAMÔPRIÎÐÚÏÍÌÉCHRÇBAÌCÐÒÎAPÒÄDOÌÕ'''CG'n'•'¼L     * 18 B'ipAU !"#$%&'()*+, *** FINANCE PROGRAM***›*** by Philip W. Bate PhD›%%(c) 1989, ANTIC PUBLISHING INC.›s@-@@KG0@@a0s@‚@(]]€;@9,;@(,‚;@,ƒ;@9,„;@9,…;@9,†;A,‡;@,2ssˆ;@,‰;@,Š;@,‹;@,Œ;@,;@,Ž;@,;@9,;@,‘;@,<N 6€. 6€7@9,. +6€7@,.€N6.ÐÒÅÓÓ §ÒÅÔÕÒΧ ÆÏÒ ÍÁÉΠÍÅÎÕF##6….MON PYMNT IN+CHGS PRINP*** MAIN MENU***›Zi6’-6¨-'6ž-.6‹.:6–-F6“-M6Œ.T6.[6Ž.b6.i6.d% (} (%(  ÆÉÎÁÎÃÅ ÐÒÏÇÒÁÍ n ( (± - AMOUNT OF PAYMENTx!(!(² - NUMBER OF PAYMENTS‚$($(³ - AMORTIZATION SCHEDULEŒ/(/($´ - AMORTIZATION W/ VARYING PAYMENTS–$($(µ - APPRECIATION SCHEDULE ((¶ - SAVINGS SCHEDULEª'( ((  ÃÈÏÏÓÅ ÏÎÅ ' A@¯!!’ @I)’!@T@€´I A€I’&@HAA@AAA0A¾***PAYMENT AMOUNT***›È (} AP ApÒ[K6œ-P:”$•$+@'+@&+@%•,#+6–,,,$A%?P,'AQ6“-œ[ AÜL( ((ÐÁÙÍÅÎÔÓ ÁÒÅ $‹!(4( ÉÎÔÅÒÅÓÔ ÉÓ $>6œ-“$–&”H AL(‹æ#-@@(# A@ð *** NUMBER OF PAYMENTS ***›ú (} AP A€336–-P:6+K:@&”'“$•,,'K:•%@,%?™™,T( (&(ÎÕÍÂÅÒ ÏÆ ÐÁÙÍÅÎÔÓ ÉÓ –)(<( ÉÎÔÅÒÅÓÔ ÉÓ $F6œ-“$–&”P AT(‹#-@@(# A@"##*** AMORTIZATION SCHEDULE ***›,? A  Ap! A€+ A 5 AP? Ap6'6—-6˜-'6™-@š-›–%›&@JM(6œ-P:+”$•,$A%?P,'A2 A86Œ.‹C6œ-“&A:Œ,M AT* 6.‹6-A:,6œ-”&$ A€*6Ž.‹^ 6—-—%“6˜-˜%A:Œ,6™-™%h| 6.€ 67@<@,.‰767@<@,.N67@<@,.Œe67@ <@&,.|67@0<@9,.Žr(ž"@€ AP|?'6”-P:A:Ž,$A%?P,'A56›-›%@? A0†R06Ÿ-P:”$+@%•,$A%?P,'A6“Ÿ<6œ-ŸF AL6.‹R6“-Ÿ$$P:›'@,"›'@A š @€ š¤?('(‚ INTEREST=˜ PRIN=™36˜-?6™-®ž"@€ A`¸;6›-@ A0-6‚.=:A:‚,%@,;6š-š%@ A ApÌ A0ÖK6ƒ7@<@,.‚K6ƒ7@<@),. AMORTIZATION - BALANCE= à116„.'MON PYMNT INTRST PRIN BALANCEêž"@€ A ô (} ((ƒ”((„$þ&&*** AMORTIZATION VARYING PMTS***›+ A  A ! AP+ A07 Ap6—- 6˜-+6¡-76¢-@5 “”6‘.***6.***%6œ-”&“/ A56Ž.‹&W*6£-+P:+”$•,$A%?P,'A,26œ-£%¤< AB6‘.‹M6œ-“&A:‘,W A0. 6.‹6-A:,“"(6-6A:‘,.6.: 6œ-”& A€6Ž.‹D 6—-—%6˜-˜%£6¡-¡%¤N67@<@8,.€167@<@,.‰H67@<@,._67@<@,.‘v67@ <@&,.67@)<@8,.ŽX*-@¢( ž"@€* APbA:Ž, A lA:Ž,"Apv?'6”-P:A:Ž,$A%?P,'A56›-›%@? A0€V46Ÿ-P:+”$+@%•,%¤,$A%?P,'A:“Ÿ@6œ-ŸJ AP6.‹V6“-ŸŠ$$P:›'@,"›'@Ap”1 Ap6¢-¢%@'6-1 A@žD( (-(‚ INTEREST=˜ CHARGES=¡D(PRINCIPAL PAID= —¨ž"@€ A`² A:Ž,  A @€¼-6›-@ A0-6‚.=:A:‚,%@,Æ A A0Ð A0ÚJ6ƒ7@<@,.‚J6ƒ7@<@),. AMORTIZATION - BALANCE=ä116„.'MON PYMNT IN/CHRG PRIN BALANCEîž"@€ Aø (} ((ƒ”((„$_-@@"(( ÅÎÔÅÒ ÐÁÙÍÅÎÔ,;B:,"G6“-U6. - _ A % 6œ-A:, A6.‹%6“-A:,K-@"@""(ÃÈÁÒÇÅÓ&‘5B:‘,"A6¤-K A  6¤-A:‘,*-@@"(€$40(&( ÌÏÁΠÏÖÅÒÐÁÉÄ ÂÙº O:A:Ž,,0 Ap>*** APPRECIATION ***›H (} AP AR446¥-P:”$+@%•,#+¦,$A%?P,'A\.( (.(YOUR INVESTMENT WILL BE WORTH ¥f A A0p @€z*** SAVINGS SCHEDULE ***›„; (} AP A€' A1 A ; APŽ6—-6˜-˜ A0¢š-@–¬X(6œ-P:+”$•,$A%?P,'A2 A86Œ.‹>6§-œJœ"X6Œ. 0.00¶& 6œ-”%§%“ A6Ž.‹&6”-A:Ž,À# (›ŒŽž"@€# A@Ê<6›-›%@6—-—%A:Œ,$6˜-˜%“0›"@<6›-@Ô((P:š'@,"š'@)š"–AÞ šèv(&( INTEREST=— PAYMENTS=˜2ž"@€f(@>:@, INTEREST=— PAYMENTS=˜vPRINTS TOTALS›ò š"– AP @€ü A0 A M (} (4(MONTHPAYMENTINTERESTAMOUNT7(Cž"@€M A0 $*** PAUSE ROUTINES ***›$)@’$’"AUAP$’"AU@€.!!’ @H)’!@‰Ap8$B[-@@"(:(  ÐÒÅÓÓ ÁÎÙ ËÅÙ ÔÏ ÃÏÎÔÉÎÕÅ G)@¨[¨"AUAL¨"AU@€V$`***INPUTS***›j] (} (?(-INPUT STARTING YEAR (PRESS 'RETURN' FOR 1989)C‚RB:‚,"]6‚.1989t''A:‚,!A P)A:‚, ApAp~@('(ENTER STARTING MONEY AMOUNT1 A`76ˆ.‹@6”-A:ˆ,ˆ4((ENTER INTEREST RATE#©16•-©'A4$’+($(ENTER NUMBER OF PAYMENTS(–+$œ!(!(ENTER MONTHLY PAYMENT¦ A6.‹6“-A:,$°E(/(#ENTER # OF COMPOUNDING PERIODS/YEAR3¦E6•-©'+A$¦,º-(&(HOW MANY YEARS TO COMPOUND*–-$Ä+('(ENTER STARTING MONTH (1-12)+›Î* 6‡.=:›,*› @)›!@ApØ+ 6‰. (6‰7@&B:‡,<@,.‡+$â7(( ÈÁÒÄÃÏÐ٠ٯΠ# A@7’@‰Aì*** PRINTER SUBROUTINE***›ö; (} (.(ÉÆ ÐÒÉÎÔÅÒ ÉÓ ÒÅÁÄÙ ÐÒÅÓÓ §Ð§;)@žž@€Ap {@-@@P{(@>:@',@>:@',l>:@,>:@',Q>:@U,U$UABOVE SETS PRINTER TO DEFAULT, SETS LEFT MARGIN AT 15 AND RIGHT MARGIN AT 55›H$(@>:@,>:@,HTHIS LINE JUST ADDS TWO 'RETURNS'›(^5(@ƒ”>:@,>:@,„>:@,8$^THIS ADDS THE HEADINGS WITH RETURNS›2MJ(@>:@,MONTHPAYMENTINTERESTAMOUNT>:@,M$<j(@›ŒŽ$jTHESE TWO LINES PRINT THE HEADING,'RETURNS',& EACH LINE OF THE SAVINGS PROGRAM›F(@$Pv8(@>:@,‚ INTEREST=˜ PRIN=—Q(@ CHARGES= ¡T$vPRINTS TOTALS AT BOTTOM OF PAGE›Z*** ERROR ROUTINE ***›dM (} (+(INPUT MISTAKE - START OVER?£-@AC £M @€n***CONVERT ROUTINE ***›xœ‚.6Š.=:P:œ$A,,.B:Š,!@A€Œ(œ"6‹. 0.00( A0– 6ª-B:Š,6«-P:œ, L6‹. 0.0056‹7@<@,.Š7ª&@<ª,LP:œ,"A0ª)6‹7@&ª<@,.=:«,) A0´*** CONVERT LARGE ***›¾œÈ6Š.=:P:œ$A,,Ò*œ" 6‹. 0.00* A0Ü 6ª-B:Š,6«-P:œ,æk6‹. 0.0086‹7@ <@,.Š7ª&@<ª,GP:œ,"a6‹7@<@,.0.k A0ð6‹7@&ª<@,.=:«,ú$€ D:FINANCE.BAS ÐÒÅÓÓ §ÒÅ