C64S tape image fileMONEY DECISIONS 4LOAN ANALYSIS 'STORY PROB HBACKFIRE -UNIT3QUIZ AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ 0 61000: 0: K18: K,(132K):: 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)(G100.5)100B(G)((G12(G12))12.05)$I07:IX$(I):9I18: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:ER30200:ՋER16876:L$"E":10000>V$"":JJ121?X$:X$""X$""63 @ X$(13)JJ21:70!AX$"E"X$"X":69`B(X$(20)X$(157))JJ1 V$(V$,JJ2):JJJJ1:X$;:63CX$(20)X$(157)JJ1:63EX$;:V$V$X$FGHYY18:XX0:1105:"";UL$;"";:YY19:XX0:1105:BL$;"";IYY20:XX0:1105:"";UL$;"";::KL1:J08:YY7J:XX0:1105:IX$(J);ME$(L):LL1:VNYY22:XX0:1105:S$;:vPF$(ME$(F),20)" ":100:QE$(2)NY$:E$(3)NM$:E$(4)IA$:R81:S 61UMX2:F5210,5410,5610,5810,6010,6210,6810,98_YY19:XX0:1105:" WAIT...COMPUTING....";:"b "":65526+d""leYY0:XX0:1105:" $$ MONEY DECISIONS $$ "f" LOAN ANALYSIS "gF$:"";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 "F0:F$MU$:100:7275:300I$"0"I$"9"265300:260F F(I$)48:F5200,5400,5600,5800,6000,6200,6800,98Y,I$:I$""300t-I$"P"F0750:300z.cYY19:XX11:1105:(BL$,20);"";d 7: 1,650,17: 1,500,17:1105:"";EM$;"";eYY22:XX0:1105:"PRESS ANY KEY TO CONTINUE";wI$:I$""375:|YY19:XX0:1105:(BL$,10);@~PXTB(IT1)qYY7XT:XX0:1105:MO2420425:ZRV(IT):450IT$;" ";(E$(IT)" ",15);" =";ZR$;"";:"";:406IT$"":IT$IT$(IT):IT$(IT$,1):ZS$" ":ZR0ZS$"-"QZR(ZR):ZQ(ZR100.5)100:ZR$(ZQ):ZL(ZR$):ZL1458_ZL3456z(ZR$,ZL2,1)"."460(ZR$,ZL1,1)"."ZR$ZR$"0":460ZR$ZR$".00"ZR0ZR$" 0.00":FL0:ZR107ZR$"%%%%%%%.%%":!ZL(ZR$):ZL10ZR$(BL$,10ZL)ZR$Q(ZR$,7,1)" "ZR$(ZR$,6)"0"(ZR$,8,3)mZS$"-"ZR$ZS$ZR$:ZI0:ZJ1011ZI0ZJ1(ZR$,ZJ,1)" "ZR$ZS$ZR$:ZI1ZI0(ZR$,ZJ,1)" "ZJ10ZR$(ZR$,ZJ)ZS$(ZR$,ZJ1,10ZJ)ZI0(ZR$,ZJ,1)" "ZJ10ZI1&:4MX2525FMO1:ZT1LIUIQZT:652e(V$)94x(V$)83510100:72:500ITZT:V(IT)((V$)V1)V2:(V$)82516670400:850:I$"^"V$"^":I$"Y"525  YY22:XX0:1105:BL$;"";>IQ14:652:IT(V$):(V$)94N(V$)78dIT1ITLI600m!525{XMO2:400bIQIT:652d(V$)94f(V$)83620h875:MX1:500lV(IT)((V$)V1)V2m(V$)82670nMO1:400:518p(V$)94(r (V$)45(V$)571t654BvJ$(V$,J,1)sxJ$"+"V1((V$,(V$)J)):V21:J$"X":655zJ$"-"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:655)V21K:655JYY22:XX0:1105:BL$;"";:642:YY22:XX0:1105:E$(IQ);" => ";:62:V$""624V$" ":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"KR$"ALL NEW DATA?(Y OR N)":896:851`I$"Y"I$"^"mI$"O":AC1:Ս1150:YY22:XX0:1105:" WAIT...PRINTING";4,(BL$,20);F$ (825)14,(BL$,20);DQP$: 4,(BL$,20);"";UL$;"": 72 !500:e RYY22:1105:BL$;"";:YY22:1105:"ANY CHANGES? (Y OR N)";:AC1n S300 TI$"^"AC0: UI$"Y"I$"N"AC0: V851 k100:72: l:83:5 pR(V(2)12V(3))12 rXV(4)V(5)100:!zR(R100.5)100:&!ZRR:450:"$";(ZR$,10);:]!YY22:XX0:1105:BL$;"";:YY22:XX0:1105:R$;:!I.999:955:R1V(4)R100:!I.0001:955:R1V(4)R0:!I.125:I20:I1.125!955:960"R1(IV(1)V(5))(11((IV(5)1)(V(5)R))):R1A(R1):+"X(II2)2:I2I:(R1V(4)).1990<"R1V(4)985_"IIX:X0I1I1.05:II1:I20h"953"IIX:X0I1I1.05:II1:I20"953"RI100:"ZRR:450:ZR$;"%":"ZRR: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):VR3072#4,4:4:(144)0144,0:4:#760:CL621:QF0:AS$MF$:RO039#SC(VR40CLRO):(825)1SC195SC45#SC34QF1QF$SC1621162($QF1QF:QF1AS$AS$RV$QT$:1172B$AS$AS$QT$RO$:1174f$QF1(SC128)SCSC128:1166$SC128SCSC128:RF1:AS$AS$RV$$SC32SC95ASSC64:1172$SC31SC64ASSC:1172$SC96ASSC32:1172$AS$AS$(AS)%RF1AS$AS$RO$:RF0%RO;%QF04,(BL$,20);AS$:1182T%4,(BL$,20);AS$QT$%CL:4,SI$:4:YY22:XX0: 1105: (BL$,35);%896:%P80:LI5:E$(1)RP$:81:E$(5)PY$:MX1%Z800:(V$)94200%[V(5)0V(4)083%\8803&_RV(1)V(5)(11((V(4)100)V(5)1)(V(5)R))(V(4)100):890]&`YY19:XX0:1105:"PRINCIPAL =";:895y&d700:I$"N"I$"^"200&fI$"Y"5200&hMX2:5210&80:LI5:81:E$(1)PR$:E$(5)PY$:MX1&"800:(V$)94200&#V(5)0V(4)083&$8809''R((V(4)100)V(1)V(5))(11((V(4)100)V(5)1)(V(5)R))`'(R1R(V(5)V(2)V(3)V(5)12)V(1)s')890:F76815'* 7000:YY19:1105:"REGULAR PAYMENT=";:895:YY20:1105'+"TOTAL INTEREST =";:R2R:RR1:895:RR2',700:I$"N"I$"^"200 (.I$"Y"5400(0MX2:5410M(80:LI6:E$(1)PR$:81:E$(5)RP$:E$(6)PY$:MX1d(800:(V$)94200{( V(4)0V(6)083(95:880:XV(4)100:R1V(1):I1V(6)R(I2((R1XV(6))100.5)100:AV(5)I2:R1R1A::RV(5)R1:890)YY19:XX0:1105:"LAST PAYMENT=";:8953)700:I$"N"I$"^"200D)I$"Y"5600S)MX2:5610)80:LI6:E$(1)PR$:E$(2)"YEARS PAID":E$(3)"MONTHS PAID":E$(6)PY$)E$(5)RP$:E$(4)IA$:MX1)800:(V$)94200) V(4)0V(6)083)95 *XV(4)100:E(V(2)V(6)V(3)):R1V(1):I1E_*I2((R1XV(6))100.5)100:AV(5)I2:R1R1A::RR1:890m*F76819*YY19:XX0:1105:"REMANING BALANCE =";:895*700:I$"N"I$"^"200*I$"Y"5800*MX2:5810+p80:LI4:E$(1)PR$:E$(2)RP$:E$(3)IA$:E$(4)PY$:MX1,+z800:(V$)94200B+{V(4)0V(3)083+|R((1(V(1)(V(3)100))(V(4)V(2)))((1V(3)100V(4))V(4)))+X(R12.5):I2(X12):XXI212:R(R10.5)10+YY19:XX0:1105:"TERM=";:996+700:I$"N"I$"^"200,I$"Y"6000,MX2:6010R,880:LI5:E$(1)PR$:81:E$(4)RP$:E$(5)PY$:MX1i,B800:(V$)94200x,CV(5)083,D95:880:950,FYY19:XX0:1105:"ANNUAL INTEREST RATE=";:995,L700:I$"N"I$"^"200,NI$"Y"6200,PMX2:6210@-80:LI8: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 ":MX1-B21:800:(V$)94200-V(5)0V(4)0V(8)083.95:KV(2):PV(3):V(2)V(2)V(6):V(3)V(3)V(7):880:5415&.B216820e.B22:P1R:V(2)K:V(3)P:JV(5):NV(6):V(5)P1:V(6)J:5815.N1V(1):YV(4):V(1)R:V(2)N:V(3)V(7):V(4)V(8):V(5)J:880:5415.R1V(1):V(4)Y:V(2)K:V(3)P:V(5)J:V(6)N:V(1)N1:P2R:RP1: 7000./YY19:XX0:1105:"BALLOON =$";:ZR(A(R1)):450f/(ZR$,10);:YY18:XX0:1105:"INIT PAYMENT=";:895/RP2:YY20:XX0:1105:"NEW PAYMENT =";:895:R(A(R1))/700:I$"N"I$"^"200/I$"Y"6800/MX2:6810 0XXX0:F7YY17:BL7: F2 YY18:BL600] 1105:UL$;:I1BL:BL$;"";:I0bYY21: 1105:UL$;:W0' 355:850PÙ" MONEY DECISIONS "0UÙ" LOAN ANALYSIS "0dÙ"COPYRIGHT 1984"0nÙ"COMMODORE BUSINESS MACHINES"1xÙ"AND"H1Ù"EAGLE SOFTWARE PUBLISHING INC."X1ÁI15000:q1ơ A$: A$"" 50900y1`J11e" 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"2A$:A$""600602J16J12A$(13) 600602A$"" 0,J,5:JJ1:600603A$"" 4,J:JJ1:6006013A$"" 1,J:JJ1:60005D3A$"" 62000O360060U3H30" 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"h4lA$:A$""62060v4qJ16J14vA$(13) 620604A$""825,0:4A$""825,1:4A$""825,0:4 62060