C64S tape image fileBASIC FINANCE 1 LOAN .SAVING D ""12)"LOAN CALCULATOR ":12)" COPYRIGHT 1978 "|4)"COMMODORE BUSINESS MACHINES INC.":I11000::I%(10,4),DT(7),IN%(0)L18:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L10,4,7,0,10,15,5,1,10,25,2,0,10,31,2,0!#13,14,1,4,13,24,8,1,17,24,9,0,23,28,2,0](E$(15):E$(0)" "-E$(1)"TOO MUCH DATA":E$(2)"NO DATA WAS RECEIVED2E$(3)"MISSING TYPE OF PAYMENT":E$(4)"TOO LITTLE DATA7E$(5)"HIT RETURN TO RESTART":E$(6)"CALCULATING@<E$(7)"CONTINUE?(Y/N)":E$(8)"PAYMENT TABLE? (Y/N)sAE$(9)"CALCULATING":E$(10)"APR IS TOO SMALLFE$(11)"STARTING YEAR?KE$(12)"CAN NOT CALCULATE TERM OF THE LOANPE$(13)"DO YOU WANT A HARD COPY (Y/N)UE$(14)"INVALID PAYMENT (PAYMENT=>PRINCIPAL)FZE$(15)"TERM < THAN 1 PAYMENT PERIOD_RW$"":BK$"dFR$" ":3,3:L1i A(Q0)((Q0)100.5)100(Q0): B(Q1)((Q1))n705s790xDT(L)(ST$):I%(L,4)4PT$ST$*}C0131609C019L0KC0145LL2`C0147L0:775mL0L6LL1:L7L1115ER0:700:FS1:280:ER0115P0380:190IR0450:190Y0420:190R0395:190 405:DT(7)A(LPR)" ER0115+ 8909 ER8:700L Z$:Z$""205f ER0:700:Z$"N"115w Z$"Y"200 (Y)2SY1:230 ER11:700:L8:790:SY(ST$):ER0:700 Y1(Y1E3):(Y)1Y11:N1M:240 (Y)YY1Y11 SYY1225 SY1225! 1,3:5000 ER13:700C Z$:Z$""260R Z$"N"20c Z$"Y"255 1,4:I110:1::SY1:HC$"Y":500:20 D0:D00:D10:B0:P0:IR0:R0:N0:YDT(3)(DT(4)12):N3DT(4) D0DT(1)DT(2)YDT(6)DT(7):D1DT(1)DT(2)DT(3)DT(5), "D00FS1ER1:L1:700D 'D10ER2:L1:700u ,PT$"M"PT$"B"PT$"Q"PT$"S"PT$"A"310 1ER3:L5:700 6DT(1)0PDT(1):DD1 ;DT(2)0IRA(DT(2))100:DD1 @Y0DD1 EDT(6)0RA(DT(6)):DD1 JDT(7)0BDT(7)% OD3ER4:L1:7007 TPT$"M"N12H YPT$"B"N6Y ^PT$"Q"N4j cPT$"S"N2{ hPT$"A"N1 mY0NY1ER15:700 r(DT(1)DT(6))((DT(1)0)(N1))ER14:700 wDT(1)P:DT(2)IR100:DT(6)R: |R2R:B0R2R(B(IRN))- PR2N(11(IRN1)(NY))IRG P(P.5)B:DT(1)P:^ P1PB:BIB(IRN) R(IRP1N)(11(IRN1)(NY)):RA(RBI):DT(6)R Z0:Z23:ER6:Z411:LPP:J1NY:I1A(LPIRN) Z4Z41:Z410ERERZ2:700:Z2Z21:Z40&ARI1:LPLPA:J:LPA(RLP):ER0:700]P2PB:R2A(R(BIRN)):(P20)(R20)ER12:700((P2IR)RN)(((RN)P2)IR)ER12:700Y((1(P2IR)(NR2))((1IRN)N))YA(Y):DT(3)(Y):DT(4)(12(Y(Y)).5) DT(4)12DT(3)DT(3)1:DT(4)0>Z0:Z23:ER6:Z30:P1PB:IR1:I20:Z45VIR1E3ER10:700BIB(IRN):R1(IRP1N)(1(1IRN)(NY))R1A(R1BI):I3(IRI2)2:I2IRZ4Z41:Z43ERERZ2:700:Z2Z21:Z40 R1R2Z3Z31:Z32(Z32)IRIR1:Z36490+R1RIRIRI3:R2R1:455IR1RIRIRI3:R2R1:455[Z36IRIR1IRA(IR100)100:DT(2)IR100:ER0:700:3951,""7)"PAYMENT AMORTIZATION TABLE"M7(12(Y(Y)1E5)):MM71,15)"YEAR"SY1,2)"PRINCIPAL APR TERM PAYMENT"J1,1)P;10B(P))IR100;7B(IR))(Y);M7;e 1,4B(M7))((R),7)~I139:1,"";::11,"NO INTEREST PRINCIPAL BALANCE ACC INT"I139:1,"";::1!C90:I20:I30:N1N:P1P:A10:A20:J20&I1Y1:IYN1(NM)1.5:N12N1M>+J1N1:I1A(A(P1(IRN)))i0C9C91:AA(RI1):A1A1A:P1A(PA1)5C9(NY)RRP1:AAP1:A1A1P1:P10:JN1:I2A(I2I1):I3I3I1:A2A(A2A):ISYI30:A20:600?J2J21:HC$"Y"(RW$,(7J2));D(HC$"Y")(C91)1,IF1$"":C910F1$"0"LN1,("000"((C9),2,3),3);{SF1I1:665:F1A:665:F1P1:665:F1I2:665XJ:ISY660]HC$"Y"1b1," ======== ======="g1," ";:F1I3:665:F1A2:665 lI30:A20:J20:SYSY1:HC$"Y"1:660qI(Y1)660,vER7:700?{A$:A$""635_ER0:700:A$"N"IY1:660pA$"Y"630(RW$,2)20)SY(RW$,8);I9117:(RW$,I97)E$(0):I:1:Q6:F$((((F1)1E3)),2) F2$(((((F1)((F1)))1.0001)"00"),4,2)-(F$)8F$"*********":695D(F$)5Q(F$)1gF$(FR$,(Q(F$)))F$"."F2$F101,(F$,8)"-";:1,(F$,9);:(RW$,23)1)(E$(ER),37):A1$"":I137:A1$A1$"":I:A1$A1$""A2$"":I137:A2$A2$" ":I:A2$A2$""JA3$"":I137:A3$A3$"":I:A3$A3$"":"";gA1$:I14:A2$:I:A3$A1$:I111:A2$:I:A3$""(A1$,39):(A2$,39):(A3$,39)A1$"":A2$"":A3$"":""13)"LOAN CALCULATOR"""3)"PRINCIPAL APR TERM OF LOAN"/23)"YEARS MONTHS"\""3)"PAYMENT PERIOD PAYMENTS"3)"M,B,Q,S,A":""3)"LAST PAYMENT"""3)"BALLOON PAYMENT"""3)" ":3)"  "3)"  ":3);"ߒ "I17:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3))" ": DT(I)0:I:PT$"":935@p(RW$,I%(L,1))I%(L,2)):C10:#3,TK$:"";I150:C$:C$""810 I:"Ɲ";:I150:C$:C$""810%I:TK$"";:795*C0(C$):C013C017C0145C019C0147875/C032850+4(C020)(C10)C$" ":850X9(I%(L,4)0I%(L,4)1)(47C0C058)850u>(I%(L,4)1)(C046)850C(I%(L,4)4)(C065C066C077C081C083)850HC029C0157850M795R(C020C0157)C11795WTK$""C$;:#3,TK$:"";:C020C1C11:TK$" ":7953\C0157C1C12OaC1C11:C1I%(L,3)875Xf795vk#3,T2$:T2$TK$""TK$p(RW$,I%(L,1))I%(L,2));:ST$"":I1I%(L,3):#3,S0$uST$ST$S0$:I:zI17:DT(I)0930(RW$,I%(I,1))I%(I,2));&(FR$,I%(I,3))" "(BK$,I%(I,3)2);MF1((DT(I))1E5):F2(DT(I))F1F$((F1),2):(F$)I%(I,3)F$"**********":920(I3)(I4)F$F$((F21.00001),3,3)(F$,I%(I,3));DT(I)0((DT(I)),1,1)I:A2:LP0A1PP$(FR$,12):LP0950+PP$((((LP))),2)ZPP$PP$((((LP)((LP))1.00001)),3,3)(RW$,15)24)""(FR$,12)(BK$,12)(PP$,11)PP$PP$((LP),1,1):LP0:D ""10)"SAVINGS CALCULATOR":12)"COPYRIGHT 1978"|"COMMODORE BUSINESS MACHINES INC.":I11000::I%(11,4),DT(8),E$(14),FD(3)L111:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L9,3,8,1,9,17,6,1,10,17,6,1,10,28,2,0,10,34,2,0C#12,20,1,3,15,20,1,4,12,30,5,1,20,3,2,1,20,11,2,0,20,22,7,5t(E$(0)" "-E$(1)"TOO MUCH DATA2E$(2)"NO DATA WAS RECEIVED7E$(3)"MISSING COMPOUNDING PERIOD<E$(4)"TOO LITTLE DATA AE$(5)"FIELD OVERFLOW%FE$(6)"CALCULATINGHKE$(7)"MISSING DEPOSIT PERIODmPE$(8)"CASH FLOW SIMULATOR(Y/N)UE$(9)"CALCULATINGZE$(10)"NIR IS TOO SMALL_E$(11)"THE PAYMENTS > FUTURE VALUEdE$(12)"TERM < PAYMENT PERIODiE$(13)"INVALID PAYMENT DATE.nE$(14)"INVALID PAYMENTlsRW$"":BK$"xFR$" "} A(Q0)((Q0)100.5)100(Q0): B(Q0)((Q0)) C(Q0)((1(Q0CN))(CNPN)1)PN: D(Q0)((1Q0CN)CN)1< E(Q0)PNY: F(Q0)((1(Q0PN))(PNCN)1)CN} G(Q0)(((1Q0)(1PN))1)PN: H(Q0)Q0((1(IRPN))N1)3,3:690:L1775:I%(L,4)3P1$ST$I%(L,4)4P2$ST$DT(L)(ST$):C013195C019L0C0145LL2 C0147L0:765! L0L74 LL1:L8L1= 150J E0:685c FS1:280:E0150w FV0460:230 IR0505:230 Y0485:230 PT0470:230 DT(2)0500 E0150 880:OF1E5:685:150 E8:685 Z$:Z$""245 E0:6853 Z$"N" L1:270D Z$"Y"240[ E0:685:565:240| (FD(2)0FD(1)0)660:150 150 D0:D00:D10 SD0:B0:FV0:APR0:PT0:N0:YDT(4)(DT(5)12):DT(8)A(DT(8)) "D0DT(1)DT(3)YDT(8) 'D1DT(1)DT(2)YDT(8)) ,DT(2).005DT(2)06 1SDDT(2)I 6D10E2:685f ;DT(2)0D00E1:685 @P1$""P1$" "P1$"0"E3:685 EP2$""P2$" "P2$"0"E7:685 JDT(1)0FVDT(1):DD1 ODT(1)0(DT(1)(DT(2)DT(3)))E11:6851 TDT(3)0PTA(DT(3)):DD1:PT.01PT0:DT(3)0O Y(PT0)(SD0)SDSDPT} ^DT(8)0APR(DT(8)100.5)10000:DD1 cY0DD1 hD3E4:685 mPN0:P2$"M"PN12 rP2$"B"PN6 wP2$"Q"PN4 |P2$"S"PN2 P2$"A"PN1 NPNY:Y0N1E12:6857 P1$"C"CN999999.99K P1$"D"CN365^ P1$"W"CN52q P1$"M"CN12 P1$"B"CN6 P1$"Q"CN4 P1$"S"CN2 P1$"A"CN1 CN366450 EFD(APR):IRC(APR) 455EF(APR)1:IRG(EF) 6IIRPN:FVPT((((1I)N)1)I)(1I)aFVFVSD((1IRPN)(YPN)):DT(1)FV:SDA(SD):FVFVSD((1IRPN)(YPN))Q((1IRCN)(CNPN))1:Z1Q:N(PNY)PTA((FVZ)(Q(((1Q)N)1))):DT(3)PT:460-IIRPN:N1FVPT((1I)I):N2SDPT((1I)I):Y(N1N2)(1I)[YYPN:DT(4)(Y):DT(5)(12(Y(Y)).5)~NPN((DT(4)(DT(5)12))):460FFDT(1):460:DT(2)A(PT(FFFV)(1I)N):DT(1)FF:Z0:Z20:Z30:P1FV:IR1:I20IR0.001E10:685460:R1FV:I3(IRI2)2:I2IR3ZZZ2:Z1E6:685:Z21K Z1E9:685:Z21~R1R2Z3Z31:Z32(Z32)IRIR1:Z36545R1P1IRIRI3:R2R1:510R1P1IRIRI3:R2R1:510!Z36IRIR1&DT(8)A(F(IR)100):DT(1)FV +EFD(F(IR)):E0:6850460/5(FD(2)0FD(1)0)5758:660@?L9ID775\IFD(L8)(ST$)kNC013625zSC019L8XC0145LL2]C0147L9:570bL8L10gLL1:L11L9l580qN2FD(1)FD(2)12:YN2E13:685:570v0N2E13:685:580.{FD(2)12E13:685:580JFD(3)0E14:685:580VN2YN2FVDT(1)(FD(3)((1IRPN)(N2PN)))DT(1)((FV).5)(FV):880(RW$,17)A1$,A2$,A2$,A2$,A3$:A1$"":A2$"":A3$""(RW$,18)" DATE OF PAYMENT PAYMENT"+" YEAR MONTH AMOUNT"Y"   ":_x(RW$,23)1)E$(E):A1$"":I137:A1$A1$"":I:A1$A1$""A2$"":I137:A2$A2$" ":I:A2$A2$""A3$"":I137:A3$A3$"":I:A3$A3$""(""A1$:I14:A2$:I:A3$EA1$:I18:A2$:I:A3$q""(A1$,39):(A2$,39):(A3$,39)""13)"SAVINGS CALCULATOR"""1)"FUTURE VALUE DEPOSITS LENGTH"13)"1STREG YEARS MONTHS"""3)"COMPOUND PERIOD"13)"NIR"93)"C,D,W,M,B,Q,S,A"`""3)"DEPOSITS PERIOD"13)"EFF"u6)"M,B,Q,S,A"""3)" ":3)"  "3)"  ":3);"ߒ "I18:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3))DT(I)0::EF0:P1$"":P2$"":930?(RW$,I%(L,1))I%(L,2)):C10:#3,TK$:"";[ I150:C$:C$""795I:"Ɲ";:I150:C$:C$""795I:TK$"";:780C0(C$):C013C017C0145C019C0147865 C032C029C0157840%(C020)(C10)C$" ":840>*(I%(L,4)0I%(L,4)1I%(L,4)5)(47C0C058)840e/(I%(L,4)5)((C046)(C045))8404(I%(L,4)3)((C064C069)C077C081C083C087)8409(I%(L,4)4)(C065C066C077C081C083)840>(I%(L,4)1)C046840C780H(C020C0157)C11780QMTK$""C$;:#3,TK$:"";:C020C1C11:TK$" ":780eRC0157C1C12WC1C11:C1I%(L,3)865\780a#3,T2$:T2$TK$""TK$f(RW$,I%(L,1))I%(L,2));:ST$"":I1I%(L,3):#3,S0$kST$ST$S0$:I:puOF0:I18:DDT(I):D0925<z(RW$,I%(I,1))I%(I,2));g(FR$,I%(I,3))" "(BK$,I%(I,3)2);D$((D.005)):(D$)I%(I,3)1D$"**********":A1:920A2:D0A1(D$)I%(I,3)2D$((D100.5)100):920D$((D.005),(D$)3)-(D$,A,I%(I,3)):D$"**********"OF14INPP$FR$:EF.0001945t(((EF)))7PP$"*******":945E1A(EF100):PP$((E1),2,7)(RW$,15)30)""(FR$,7)(BK$,7)(PP$,7)