C64S tape image fileMONEY DECISIONS  Ù4LOAN ANALYSIS 'STORY PROB HìÿÿBACKFIRE -‰òÿÿUNIT3QUIZ A‰òÿÿUNIT4DRILL 4‰òÿÿUNIT5QUIZ ,‰òÿÿSENTENCES G‰òÿÿUNIT7QUIZ 0× 61000:Þ 0:� K²1¤8:ù K,Ç(132ªK):‚:� 50000QMU$²"MENU DISPLAY "[™"“"” † ZC$(7),V(12),Z(4),U$(9),A$(3),E$(14),ME$(9),IX$(8)² E$(14)²"ITEM # TO CHANGE"ÑS$²"YOUR CHOICE IS (1-8):"ì–¥A(G)²µ(G¬100ª.5)­100–¥B(G)²µ((G­12«µ(G­12))¬12.05)$�I²0¤7:‡IX$(I):‚9�I²1¤8:‡ME$(I):‚`NY$²"# OF YEARS":NM$²"# OF MONTHS"yI$²"INTEREST RATE "� IA$²I$ª"(ANNUAL)"¤(PR$²"PRINCIPAL "¾*RP$²"REGULAR PAYMENT"Ø+PY$²"# PAYMENTS/YEAR" 0DQP$²"---------------------------------------"!1EM$²" DATA ERROR"T2BL$²" "‡3UL$²"ÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃ"–4× 83:‰ 200Å= 4:‹ER²30§Ö200:Õ‹ER²16§Ö876:ÕL$²"E":Ö10000Ø>V$²"":�JJ²1¤21ñ?¡X$:‹X$²""°X$²"“"§63 @‹ X$²Ç(13)§JJ²21:‰70!A‹X$²"E"§X$²"X":‰69`B‹(X$²Ç(20)°X$²Ç(157))¯JJ±1§ V$²È(V$,JJ«2):JJ²JJ«1:™X$;:‰63�C‹X$²Ç(20)°X$²Ç(157)§JJ²1:‰63“E™X$;:V$²V$ªX$™F‚ŸGŽÝHYY²18:XX²0:�1105:™"";UL$;"’";:YY²19:XX²0:�1105:™BL$;"�";IYY²20:XX²0:�1105:™"";UL$;"’";:Ž:KL²1:�J²0¤8:YY²7ªJ:XX²0:�1105:™IX$(J);ME$(L):L²Lª1:‚VNYY²22:XX²0:�1105:™S$;:ŽvPF$²É(ME$(F),20)ª" ":�100:ŽšQE$(2)²NY$:E$(3)²NM$:E$(4)²IA$:ޤR�81:Ž­S‰ 61ßUMX²2:‘F‰5210,5410,5610,5810,6010,6210,6810,98_YY²19:XX²0:�1105:™" WAIT...COMPUTING....";:Ž"b™ "“":ž65526+d™"“"leYY²0:XX²0:�1105:™" $$ MONEY DECISIONS $$ "�f™" LOAN ANALYSIS "µg™F$:™"";UL$;"’";:ŽÌ„NC$²É(Ä(µ(G)),2):Žò»ƒ "1","2","3","4","5","6","7","8"@¼ƒ " PRINCIPAL "," REGULAR PAYMENT "," LAST PAYMENT "޽ƒ " REMAINING BALANCE "," TIME PERIOD "," ANNUAL INTEREST RATE"ľƒ " VARIABLE RATE LOAN "," EXIT FROM PROGRAM "ÜÈF²0:F$²MU$:�100:�72éÜ�75:�300‹I$±"0"¯I$³"9"§265�300:‰260F F²Æ(I$)«48:‘F‰5200,5400,5600,5800,6000,6200,6800,98Y,¡I$:‹I$²""§300t-‹I$²"P"¯F³±0§�750:‰300z.Ž cYY²19:XX²11:�1105:™È(BL$,20);"�";ÒdÛ 7:Ú 1,650,17:Ú 1,500,17:�1105:™"‚";EM$;"„";eYY²22:XX²0:�1105:™"PRESS ANY KEY TO CONTINUE�";w¡I$:‹I$²""§375:|YY²19:XX²0:�1105:™È(BL$,10);@~ŽP�XT²¥B(IT«1)q•YY²7ªXT:XX²0:�1105:‹MO²2§420ˆ–�425:ZR²V(IT):�450»š™IT$;" ";È(E$(IT)ª" ",15);" =";ZR$;"’";:ŽÊ¤™"";:‰406Щ�ø¬IT$²"":IT$²IT$ªÄ(IT):IT$²É(IT$,1):ŽÂZS$²" ":‹ZR³0§ZS$²"-"QÃZR²¶(ZR):ZQ²µ(ZR¬100ª.5)­100:ZR$²Ä(ZQ):ZL²Ã(ZR$):‹ZL²1§458_Ä‹ZL³3§456zÆ‹Ê(ZR$,ZL«2,1)²"."§460¢È‹Ê(ZR$,ZL«1,1)²"."§ZR$²ZR$ª"0":‰460´ÊZR$²ZR$ª".00"ÒÌ‹ZR²0§ZR$²" 0.00":Ž÷ÎFL²0:‹ZR±10®7§ZR$²"%%%%%%%.%%":Ž!ÐZL²Ã(ZR$):‹ZL³10§ZR$²È(BL$,10«ZL)ªZR$QÚ‹Ê(ZR$,7,1)²" "§ZR$²È(ZR$,6)ª"0"ªÊ(ZR$,8,3)mÜ‹ZS$³±"-"§ZR$²ZS$ªZR$:Ž‚ÝZI²0:�ZJ²10¤1©«1³Þ‹ZI²0¯ZJ²1¯Ê(ZR$,ZJ,1)³±" "§ZR$²ZS$ªZR$:ZI²1øß‹ZI²0¯Ê(ZR$,ZJ,1)²" "¯ZJ³±10§ZR$²È(ZR$,ZJ)ªZS$ªÊ(ZR$,ZJª1,10«ZJ)à‹ZI²0¯Ê(ZR$,ZJ,1)²" "¯ZJ³±10§ZI²1&á‚:Ž4ô‹MX²2§525F÷MO²1:�ZT²1¤LIUøIQ²ZT:�652eù‹Æ(V$)²94§Žxû‹Æ(V$)³±83§510Šü�100:�72:‰500·þIT²ZT:V(IT)²(Å(V$)ªV1)¬V2:‹Æ(V$)³±82§516À�670Ë�400:‚å�850:‹I$²"^"§V$²"^":Žõ‹I$²"Y"§525û Ž YY²22:XX²0:�1105:™BL$;"�";>IQ²14:�652:IT²Å(V$):‹Æ(V$)²94§ŽN‹Æ(V$)²78§Žd‹IT±²1¯IT³²LI§600m!‰525{XMO²2:�400ŠbIQ²IT:�652šd‹Æ(V$)²94§Ž­f‹Æ(V$)³±83§620Àh�875:MX²1:‰500ØlV(IT)²(Å(V$)ªV1)¬V2ëm‹Æ(V$)²82§�670þnMO²1:�400:‰518p‹Æ(V$)²94§Ž(r‹ Æ(V$)³45°Æ(V$)±57§Ž1t‰654BvJ$²Ê(V$,J,1)sx‹J$²"+"§V1²Å(É(V$,Ã(V$)«J)):V2²1:J$²"X":‰655¥z‹J$²"-"§V1²«Å(É(V$,Ã(V$)«J)):V2²1:J$²"X":‰655Ö|‹J$²"*"§V2²Å(É(V$,Ã(V$)«J)):V1²0:J$²"X":‰655ç}‹J$³±"/"§655~K²Å(É(V$,Ã(V$)«J)):V1²0:J$²"X":‹K²0§V2²1:‰655)V2²1­K:‰655J‚YY²22:XX²0:�1105:™BL$;"�";:Ž„Œ�642:YY²22:XX²0:�1105:™E$(IQ);" => ";:�62:‹V$³±""§624›�V$²" ":V1²0:V2²1:ŽÊŽJ$²"":V1²0:V2²1:�J²Ã(V$)¤2©«1:‹J$³±"X"§630Ò�‚:Žíž�654:V(IT)²(RªV1)¬V2:Ž"¼R$²"RE-RUN? (Y OR N, OR P)":�896:�851:‹I$³±"Y"§ŽKÆR$²"ALL NEW DATA?(Y OR N)":�896:�851`Ç‹I$²"Y"°I$²"^"§ŽmÈI$²"O":Ž‚î‹AC²1§Ž:Õ�1150:Ž·øYY²22:XX²0:�1105:™" WAIT...PRINTING’";Ëú˜4,È(BL$,20);F$îü‹ Â(825)²1§˜4,È(BL$,20);DQP$:Ž ý˜4,È(BL$,20);"";UL$;"’":Ž �72 !�500:Že RYY²22:�1105:™BL$;"�";:YY²22:�1105:™"ANY CHANGES? (Y OR N)";:AC²1n S�300� T‹I$²"^"§AC²0:Ž› U‹I$²"Y"°I$²"N"§AC²0:ޤ V‰851³ k�100:�72:ŽÀ lœ:×83:‰5Ø pR²(V(2)¬12ªV(3))­12î rX²V(4)­V(5)­100:Ž!zR²µ(R¬100ª.5)­100:Ž&!ZR²R:�450:™"$";É(ZR$,10);:Ž]!€YY²22:XX²0:�1105:™BL$;"�";:YY²22:XX²0:�1105:™R$;:Ž!¶I².999:�955:‹R1³²V(4)§R²100:Ž !·I².0001:�955:‹R1±²V(4)§R²0:ޏ!¸I².125:I2²0:I1².125Æ!¹�955:‰960"»R1²(I¬V(1)­V(5))­(1«1­((I­V(5)ª1)®(V(5)¬R))):R1²¥A(R1):Ž+"ÀX²¶(I«I2)­2:I2²I:‹¶(R1«V(4))³.1§990<"‹R1±V(4)§985_"ÔI²IªX:‹X²0§I1²I1ª.05:I²I1:I2²0h"Ö‰953‹"ÙI²I«X:‹X²0§I1²I1«.05:I²I1:I2²0”"Û‰953¢"ÞR²I¬100:Ž»"ãZR²R:�450:™ZR$;"%":Žõ"äZR²R:�450:™É(Ä(I2),2);" YRS AND ";É(Ä(X),2);" MOS";:Ž#Qà 1,XX,YY,"":Ž)#~SI$²Ç(15):BS$²Ç(8):PO$²Ç(16)L#RV$²Ç(18):RO$²Ç(146):QT$²Ç(34)c#€MF$²Ç(145):VR²3072†#�Ÿ4,4:˜4:‹Â(144)³±0§—144,0: 4:Ž®#ƒ�760:�CL²6¤21:QF²0:AS$²MF$:�RO²0¤39Û#„SC²Â(VRª40¬CLªRO):‹Â(825)²1¯SC²195§SC²45î#…‹SC²34§QF²1«QF$†‹SC³±162§1162($‡QF²1«QF:‹QF²1§AS$²AS$ªRV$ªQT$:‰1172B$ˆAS$²AS$ªQT$ªRO$:‰1174f$Š‹QF²1¯(SC±²128)§SC²SC«128:‰1166Ž$Œ‹SC±²128§SC²SC«128:RF²1:AS$²AS$ªRV$®$Ž‹SC³32°SC±95§AS²SCª64:‰1172Ë$�‹SC±31¯SC³64§AS²SC:‰1172å$’‹SC³96§AS²SCª32:‰1172÷$”AS$²AS$ªÇ(AS)%–‹RF²1§AS$²AS$ªRO$:RF²0%˜‚RO;%š‹QF²0§˜4,È(BL$,20);AS$:‰1182T%œ˜4,È(BL$,20);AS$ªQT$…%ž‚CL:˜4,SI$: 4:YY²22:XX²0:� 1105:™ È(BL$,35);�%Ÿ�896:Žº%P�80:LI²5:E$(1)²RP$:�81:E$(5)²PY$:MX²1Ñ%Z�800:‹Æ(V$)²94§200ç%[‹V(5)²0°V(4)²0§83ð%\�8803&_R²V(1)¬V(5)¬(1«1­((V(4)­100)­V(5)ª1)®(V(5)¬R))­(V(4)­100):�890]&`YY²19:XX²0:�1105:™"PRINCIPAL =";:�895y&d�700:‹I$²"N"°I$²"^"§200Š&f‹I$²"Y"§5200™&hMX²2:‰5210Ã&�80:LI²5:�81:E$(1)²PR$:E$(5)²PY$:MX²1Ú&"�800:‹Æ(V$)²94§200ð&#‹V(5)²0°V(4)²0§83ù&$�8809''R²((V(4)­100)¬V(1)­V(5))­(1«1­((V(4)­100)­V(5)ª1)®(V(5)¬R))`'(R1²R¬(V(5)¬V(2)ªV(3)¬V(5)­12)«V(1)s')�890:‹F²7§6815°'*� 7000:YY²19:�1105:™"REGULAR PAYMENT=";:�895:YY²20:�1105Ý'+™"TOTAL INTEREST =";:R2²R:R²R1:�895:R²R2ù',�700:‹I$²"N"°I$²"^"§200 (.‹I$²"Y"§5400(0MX²2:‰5410M(à�80:LI²6:E$(1)²PR$:�81:E$(5)²RP$:E$(6)²PY$:MX²1d(ê�800:‹Æ(V$)²94§200{(ë‹ V(4)²0°V(6)²0§83§(ì�95:�880:X²V(4)­100:R1²V(1):�I²1¤V(6)¬Rë(ðI2²µ((R1¬X­V(6))¬100ª.5)­100:A²V(5)«I2:R1²R1«A:‚:R²V(5)ªR1:�890)òYY²19:XX²0:�1105:™"LAST PAYMENT=";:�8953)ô�700:‹I$²"N"°I$²"^"§200D)ö‹I$²"Y"§5600S)øMX²2:‰5610›)¨�80:LI²6:E$(1)²PR$:E$(2)²"YEARS PAID":E$(3)²"MONTHS PAID":E$(6)²PY$¸)­E$(5)²RP$:E$(4)²IA$:MX²1Ï)²�800:‹Æ(V$)²94§200æ)³‹ V(4)²0°V(6)²0§83î)´�95 *·X²V(4)­100:E²µ(V(2)¬V(6)ªV(3)):R1²V(1):�I²1¤E_*¹I2²µ((R1¬X­V(6))¬100ª.5)­100:A²V(5)«I2:R1²R1«A:‚:R²R1:�890m*º‹F²7§6819Ÿ*»YY²19:XX²0:�1105:™"REMANING BALANCE =";:�895»*¼�700:‹I$²"N"°I$²"^"§200Ì*¾‹I$²"Y"§5800Û*ÀMX²2:‰5810+p�80:LI²4:E$(1)²PR$:E$(2)²RP$:E$(3)²IA$:E$(4)²PY$:MX²1,+z�800:‹Æ(V$)²94§200B+{‹V(4)²0°V(3)²0§83ˆ+|R²«(¼(1«(V(1)¬(V(3)­100))­(V(4)¬V(2)))­(¼(1ªV(3)­100­V(4))¬V(4)))¾+€X²µ(R¬12ª.5):I2²µ(X­12):X²X«I2¬12:R²µ(R¬10ª.5)­10â+‚YY²19:XX²0:�1105:™"TERM=";:�996þ+„�700:‹I$²"N"°I$²"^"§200,†‹I$²"Y"§6000,ˆMX²2:‰6010R,8�80:LI²5:E$(1)²PR$:�81:E$(4)²RP$:E$(5)²PY$:MX²1i,B�800:‹Æ(V$)²94§200x,C‹V(5)²0§83Š,D�95:�880:�950¾,FYY²19:XX²0:�1105:™"ANNUAL INTEREST RATE=";:�995Ú,L�700:‹I$²"N"°I$²"^"§200ë,N‹I$²"Y"§6200ú,PMX²2:‰6210@-��80:LI²8:E$(1)²PR$:E$(2)²"INITIAL #YEARS":E$(3)²"INITIAL #MONTHS"N-•E$(4)²IA$ž-–E$(5)²PY$:E$(6)²"# YEARS LEFT":E$(7)²"# MONTHS LEFT":E$(8)²"NEW RATE ":MX²1º-šB2²1:�800:‹Æ(V$)²94§200×-›‹V(5)²0°V(4)²0°V(8)²0§83.œ�95:K²V(2):P²V(3):V(2)²V(2)ªV(6):V(3)²V(3)ªV(7):�880:‰5415&.Ÿ‹B2³±1§6820e. B2²2:P1²R:V(2)²K:V(3)²P:J²V(5):N²V(6):V(5)²P1:V(6)²J:‰5815¬.£N1²V(1):Y²V(4):V(1)²R:V(2)²N:V(3)²V(7):V(4)²V(8):V(5)²J:�880:‰5415ô.¤R1²V(1):V(4)²Y:V(2)²K:V(3)²P:V(5)²J:V(6)²N:V(1)²N1:P2²R:R²P1:� 7000./¥YY²19:XX²0:�1105:™"BALLOON =$";:ZR²µ(¥A(R1)):�450f/¦™É(ZR$,10);:YY²18:XX²0:�1105:™"INIT PAYMENT=";:�895£/§R²P2:YY²20:XX²0:�1105:™"NEW PAYMENT =";:�895:R²µ(¥A(R1))¿/¨�700:‹I$²"N"°I$²"^"§200Ð/©‹I$²"Y"§6800ß/ªMX²2:‰6810 0XXX²0:‹F²7§YY²17:BL²7:Õ ‹F²2§ YY²18:BL²600]� 1105:™UL$;:�I²1¤BL:™BL$;"�";:‚I0bYY²21:� 1105:™UL$;:ŽW0'� 355:‰85…0PÙ"“ MONEY DECISIONS ’"­0UÙ" LOAN ANALYSIS ’"Ò0dÙ"COPYRIGHT 1984"þ0nÙ"COMMODORE BUSINESS MACHINES"1xÙ"AND"H1‚Ù"EAGLE SOFTWARE PUBLISHING INC."X1ŒÃ�I²1¤5000:‚q1ÔÆ¡ A$:‹ A$³±""§ 50900y1`êJ²1£1eê™"“ MONEY DECISIONS "Ë1gê™" LOAN ANALYSIS ’"ù1jê™"F1’ - BACKGROUND COLOR"2tê™"F2’ - BORDER COLOR"F2~ê™"F3’ - CHARACTER COLOR"c2ˆê™"HELP’ - DONE"˜2’ê™"PRESS A FUNCTION KEY TO CHANGE COLORS"®2œê¡A$:‹A$²""§‰60060¼2¡ê‹J±16§J²1Ò2¦ê‹A$²Ç(13)§ ‰60060ó2°ê‹A$²"…"§ç 0,J,5:J²Jª1:‰600603ºê‹A$²"†"§ç 4,J:J²Jª1:‰6006013Äê‹A$²"‡"§ç 1,J:J²Jª1:‰60005D3Îê‹A$²"Œ"§ 62000O3Øê‰60060U3HîÖ30ò™"“ MONEY DECISIONS "§36ò™" LOAN ANALYSIS ’"Ï3:ò™"F1’ - DOT MATRIX"ö3Dò™"F2’ - LETTER QUALITY"4Nò™"F3’ - NOT APPLICABLE"R4bò™"PRESS A FUNCTION KEY TO SELECT PRINTER"h4lò¡A$:‹A$²""§‰62060v4qò‹J±16§J²1Œ4vò‹A$²Ç(13)§ ‰62060¡4€ò‹A$²"…"§—825,0:޶4Šò‹A$²"†"§—825,1:ŽË4”ò‹A$²"‡"§—825,0:Ž×4žò‰ 62060