C64S tape image fileMONEY DECISIONS 4INVESTMENTS 'STORY PROB HBACKFIRE -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ .61000: 0:K18: K,(132K):: 50000OMU$"MENU DISPLAY "Z "" ZC$(7),V(12),Z(4),U$(9),A$(3),E$(14),ME$(10),IX$(10) E$(14)"ITEM # TO CHANGE"S$"YOUR CHOICE IS (0-9):"A(G)(G100.5)100B(G)((G12(G12))12.05)%I09:IX$(I):;I110:ME$(I):bNY$"# OF YEARS":NM$"# OF MONTHS"{I$"INTEREST RATE " IA$I$"(ANNUAL)"(II$"INITIAL INVESTMENT")CY$"# COMP. PERIODS/YEAR"*FV$"FUTURE VALUE"+WY$"# WITHDRAWALS PER YEAR",TR$"TAX RATE (%)"7-DP$"#DEPOSITS/YEAR"j0DQP$"---------------------------------------"1EM$" DATA ERROR"2BL$" "3UL$"Ò"483: 200&=ER304:200:ՋER16876:L$"E": 100009>V$"":JJ121R?X$:X$""X$""63j@X$(13)JJ21:70AX$"E"X$"X":69B(X$(20)X$(157))JJ1V$(V$,JJ2):JJJJ1:X$;:63CX$(20)X$(157)JJ1:63EX$;:V$V$X$FG204,1:;HYY16:XX0:1105:UL$;:YY17:XX0:1105:BL$;"";XIYY18:XX0:1105:UL$;:KL1:J09:YY6J:XX0:1105:IX$(J);" ";ME$(L):LL1:NYY20:XX0:1105:S$;:PF$ME$(F):100:QE$(2)NY$:E$(3)NM$:E$(4)IA$:R81:S 615UMX2:F1210,1410,1810,2010,3210,2410,2210,3410,3810g_YY17:XX0:1105:" WAIT...COMPUTING....";:{b (147):65526d (147);eYY0:XX0:1105:" $$ MONEY DECISIONS $$ "f" INVESTMENTS " gF$:UL$;:"NC$(((G)),2):P "1","2","3","4","5","6","7","8","9","0""FUTURE INVESTMENT ","INITIAL INVESTMENT ","MINIMUM INVESTMENT ""REGULAR WITHDRAWALS ","REGULAR DEPOSITS ","ANNUAL INTEREST RATE"7"NOMINAL INTEREST RATE","FUTURE ANNUITY ","CONTINUOUS COMPOUNDNG"T"EXIT FROM PROGRAM "lF0:F$MU$:100:72y75:300I$"0"I$"9"263300:260I$"0"98 F(I$)48:F1200,1400,1800,2000,3200,2400,2200,3400,3800,I$:I$""300-I$"P" F0750:300#.IcYY17:XX11:1105:(BL$,20);"";d 7: 1,650,17: 1,500,17:YY17:1105:"";EM$;"";eYY20:XX0: 1105:"PRESS ANY KEY TO CONTINUE";wI$:I$"" 375|YY17:XX11:1105:(BL$,10);~XTB(IT1)#YY7XT:XX0:1105:MO24205425:ZRV(IT)n450:IT$;" ";(E$(IT)" ",15);" =";ZR$;"";:}"";:406IT$"":IT$IT$(IT):IT$(IT$,1):ZS$" ":ZR0ZS$"-"ZR(ZR):ZQ(ZR100.5)100:ZR$(ZQ):ZL(ZR$):ZL1458ZL3456-(ZR$,ZL2,1)"."460U(ZR$,ZL1,1)"."ZR$ZR$"0":460gZR$ZR$".00"ZR0ZR$" 0.00":FL0:ZR107ZR$"%%%%%%%.%%":ZL(ZR$):ZL10ZR$(BL$,10ZL)ZR$(ZR$,7,1)" "ZR$(ZR$,6)"0"(ZR$,8,3) ZS$"-"ZR$ZS$ZR$:5ZI0:ZJ1011fZI0ZJ1(ZR$,ZJ,1)" "ZR$ZS$ZR$:ZI1ZI0(ZR$,ZJ,1)" "ZJ10ZR$(ZR$,ZJ)ZS$(ZR$,ZJ1,10ZJ)ZI0(ZR$,ZJ,1)" "ZJ10ZI1:MX2525MO1:ZT1LIIQZT:652(V$)94+(V$)83510=100:72:500jITZT:V(IT)((V$)V1)V2:(V$)82516s670~400:850:I$"^"V$"^":I$"Y"525  YY20:XX0:1105:BL$;"";IQ14:652:IT(V$):(V$)94(V$)78IT1ITLI600 !525.XMO2:400=bIQIT:652Md(V$)94`f(V$)83620sh875:MX1:500lV(IT)((V$)V1)V2m(V$)82670nMO1:400:518p(V$)94r (V$)45(V$)57t654vJ$(V$,J,1)&xJ$"+"V1((V$,(V$)J)):V21:J$"X":655XzJ$"-"V1((V$,(V$)J)):V21:J$"X":655|J$"*"V2((V$,(V$)J)):V10:J$"X":655}J$"/"655~K((V$,(V$)J)):V10:J$"X":K0V21:655V21K:655YY20:XX0:1105:BL$;"";:7642:YY20:XX0:1105:E$(IQ);" => ";:62:V$""624NV$" ":V10:V21:}J$"":V10:V21:J(V$)21:J$"X"630:654:V(IT)(RV1)V2:R$"RE-RUN? (Y OR N, OR P)":896:851:I$"Y"R$"ALL NEW DATA? (Y OR N)":896:851 I$"Y"I$"^"! I$"O":6 AC1:Ս1150:l YY20:XX0: 1105:" WAIT...PRINTING"; 4,(BL$,20);F$ (825)14,(BL$,20);DQP$: 4,(BL$,20);UL$: 72 !500:!RYY20:1105:BL$;"";:YY20:1105:"ANY CHANGES? (Y OR N)";:AC1!S300-!TI$"^"AC0:G!UI$"Y"I$"N"AC0:P!V851_!k100:72:m!l:83: 5!pR(V(2)12V(3))12:F6F9!rXV(4)V(5)100:!zR(R100.5)100:!ZRR:450:"$";ZR$;:"YY20:XX0:1105:BL$;"";:YY20:XX0:1105:R$;:'"I.125:I20:I1.1259"I1R100:L"I.001R0:"R1(IV(1)V(5))(11((IV(5)1)(V(5)R))):R1A(R1)"X(II2)2:I2I:(R1V(4)).01990"R1V(4)985"IIX:X.0001I1I1.05:II1:I20"951#IIX:X.0001I1I1.05:II1:I20!#951/#RI100:H#ZRR:450:ZR$;"%":#ZRR:450:((I2),2);" YRS AND ";((X),2);" MOS";:#Q YY15YYYY2#R 1,XX,YY,"":#~SI$(15):BS$(8):PO$(16)#RV$(18):RO$(146):QT$(34)$MF$(145):VR3072'$4,4:4:(144)0144,0:4:P$ 760:CL620:QF0:AS$MF$:RO039}$SC(VR40CLRO):(825)1SC195SC45$SC34QF1QF$SC1621162$QF1QF:QF1AS$AS$RV$QT$:1174$AS$AS$QT$RO$:1174%QF1(SC128)SCSC128:11660%SC128SCSC128:RF1:AS$AS$RV$P%SC32SC95ASSC64:1172m%SC31SC64ASSC:1172%SC63SC96ASSC32:1172%AS$AS$(AS)%RF1AS$AS$RO$:RF0%RO%QF04,(BL$,20)AS$:1182%4,(BL$,20);AS$QT$-&CL:4,SI$:4:YY20:XX0: 1105: (BL$,35);9& 896:c&80:LI5:E$(1)II$:81:E$(5)CY$:MX1z&800:(V$)94200&V(5)083&880:RV(1)(1X)(V(5)R):890:YY17:XX0:1105&"FUTURE INVESTMENT VALUE =";:895'700:I$"N"I$"^"200'I$"Y"1200!'MX2:1210K'x80:LI5:81:E$(1)FV$:E$(5)CY$:MX1b'800:(V$)94200q'V(5)083'880:RV(1)(1X)(V(5)R):890:YY17:XX0:1105'II$;"=";:895'700:I$"N"I$"^"200'I$"Y"1400'MX2:1410:(80:LI5:81:E$(1)"WITHDRAWAL AMT":E$(5)"#WITHDRAWALS/YR":MX1Q(800:(V$)94200`(V(5)083(880:XXV(5):RV(1)V(5)X(11((1XV(5))(V(5)R))):890:YY17:XX0(1105:"MINIMUM INVESTMENT=";:895(700:I$"N"I$"^"200)I$"Y"1800) MX2:18109)80:LI5:81:E$(1)II$:E$(5)WY$:MX1P)800:(V$)94200_)V(5)083)880:RV(1)(X((1X)(V(5)R)1)X):890:YY17:XX0:1105)"WITHDRAWAL AMOUNT=";:895)700:I$"N"I$"^"200)I$"Y"2000)MX2:2010.*80:LI5:E$(1)II$:81:E$(4)FV$:E$(5)CY$:MX1E*800:(V$)94200T*V(5)083*880:RV(5)((V(4)V(1))(1(V(5)R))1)100:YY17:XX0:1105*"NOMINAL INTEREST RATE=";:995*700:I$"N"I$"^"200*I$"Y"2200*MX2:2210*+` 80:LI5:E$(1)II$:81:E$(4)FV$:E$(5)TR$:MX1A+j 800:(V$)94200w+l 880:R((V(4)V(1))(1R)1)100:QR(1V(5)100)+n YY17:XX0:1105:"ANNUAL INTEREST RATE=";25);:995+o V(5)02420+p YY20:XX0:1105:(BL$,25);" ";,q YY18:XX0:1105:(BL$,39);" ";:YY18: 1105S,r "RATE NEEDED AFTER TAXES";25);:R1R:RQ:995:RR1p,s YY19:XX0: 1105: UL$;,t 700:I$"N"I$"^"200,v I$"Y"2400,x MX2:2410, 80:LI5:E$(1)FV$:81:E$(5)DP$:MX1, 800:(V$)94200, V(5)0837- 880:RV(1)X((1X)(V(5)R)1):890:YY17:XX0:1105X- "REGULAR DEPOSIT =";:895t- 700:I$"N"I$"^"200- I$"Y"3200- MX2:3210-H 80:LI5:E$(1)"DEPOSIT AMOUNT":81:E$(5)DP$:MX1-R 800:(V$)94200-S V(5)083,.T 880:RV(1)((1X)(V(5)R)1)X:890:YY17:XX0:1105P.V "FUTURE ANNUITY VALUE =";:895l.\ 700:I$"N"I$"^"200}.^ I$"Y"3400.` MX2:3410.80:LI5:E$(1)II$:81:E$(5)TR$:MX1.800:(V$)94200 /880:XV(4)(1V(5)100):Q(100(V(1)(X100R)).5)1005/R(100(V(1)(V(4)100R)).5)100k/YY17:XX0:1105:FV$;"=";25);:895:V(5)03820/YY20:XX0:1105:(BL$,25);/YY18:1105:BL$/YY18:XX0:1105:"WITH TAXES=";25);:R1R:RQ:895:RR1/YY19:XX0: 1105: UL$;0700:I$"N"I$"^"200(0I$"Y"380070MX2:3810F0' 355: 85|0P× 900,1:" MONEY DECISIONS "0UÙ" INVESTMENTS "0dÙ"COPYRIGHT 1984"0nÙ"COMMODORE BUSINESS MACHINES"1xÙ"AND"?1Ù"EAGLE SOFTWARE PUBLISHING INC."O1ÁI13000:i1á A$: A$"" 50070q1`J11e" MONEY DECISIONS "1f" INVESTMENTS "1j"F1 - BACKGROUND COLOR"2t"F2 - BORDER COLOR"=2~"F3 - CHARACTER COLOR"Z2"HELP - DONE"2"PRESS A FUNCTION KEY TO CHANGE COLORS"2A$:A$""600602J16J12A$(13) 600602A$"" 0,J,5:JJ1:60060 3A$"" 4,J:JJ1:60060(3A$"" 1,J:JJ1:60005;3A$"" 62000F360060L3Hv30" MONEY DECISIONS "36" INVESTMENTS "3:"F1 - DOT MATRIX"3D"F2 - LETTER QUALITY"4N"F3 - NOT APPLICABLE"H4b"PRESS A FUNCTION KEY TO SELECT PRINTER"^4lA$:A$""62060l4qJ16J14vA$(13) 620604A$""825,0:4A$""825,1:4A$""825,0:4 62060