C64S tape image fileLOAN MORT CALC VIC LOAN CALC = VIC LOAN CALC 1V36878:H100:JV(43)(44)2562988:Q10:V,0:V1,109:D$"":SP$" R$" : &S1(648)256:R(I)(IH.5)H:"":S2(244)256:T$" LOAN CALCULATOR HT$D$"(C)1981 COMMODORE";:82""D$SP$;:F0:A123:A22S11,160:A22S21,5::PF0Z1:""T$"STARTMONTH"Q)R$;:B0B1B$"":B0B$((B),2):B$; 56:A1266:B$"" B$""7 BA! Z2:"YEAR"Q)R$;B B$"":Y0B$((Y),2):B$;\56:Y999966:B$""jB$""12rYAZ3:(D$,10)"TERM (YRS)"Q)R$;B$"":N0B$((R(N12)),2):B$;:RF156:B$""17N((AH)12.05)Z4:(D$,13)"PMTS/YR"Q)R$;:NP0NP12HB$"":NP0B$((NP),2):B$;:RF1Z56:B$""21cNPAZ5:(D$,16)"INT. (%)"Q)R$;B$"":I0XI:68:B$X$:B$;:RF156:B$""25IAH:F5RF1:25:RF0:RF2RF1:25Z6:(D$,19)"LOAN VALUE"Q)R$;DB$"":P0XP:68:B$X$:B$;:RF1V 56:B$""30y!PR(AH):P0RF1:30:RF0:"Z7:(D$,22)"PAYMENT"Q)R$;#B$"":M0XM:68:B$X$:B$;:RF1$F0F7:"":39%56:B$""34 &MR(AH):RF1:34:RF0:)'70:RF166:RF0:F0:7r(D$"OK?";:82:D$SP$;:A$"N"PF0:F17:(D$,3F2)Q)R$:F0:7*A$"Y"40-I1I.01NP:P1P:P5P:Y1Y:T50:T60:W0.UB:L1(N12)1:T10:T20:" AMORTIZATION TABLE YEAR:"Y12/"BALANCE:"P5"MO. EQ. INT.---------------------}0AUNP:WW1:I2I1P1:EMI2:P1P1E:WNER(EP1.005):P10:"";1PF2((A),2);:XR(E):68:3)X$;:XR(I2):68:13)X$2P5R(P1):T1T1E:T2T2I2:P5073Y1Y11:T5T5T1:T6T6T2:"EQUITY="R(T5):"INT.="R(T6):81:P50A$""85G4A$""555"":RF2:F5:25:F7::I1IHNP:JP:PP5:NNW:70:RF53:NNW:PJ:817U1:L:858"";982:A$(13)" ":62:A$""(B$)0B$(B$,(B$)1):" ";:57 ;(B$)557X<(A$"0"A$"9")A$"."(A$"?"F0(Z2Z4))B$B$A$:""A$"";`=57>(B$,1)"?"A1(Z3Z4)99:FZ:?A(B$):Z4Z3A(AH)@A1A(A)AB$"":66:BD$"INVALID ENTRY";"CV,15:C150:V2,165:L09::V2,0::V,0:D$SP$"":ODX$" "(X):C1(X$):(X$,C,1)"."sEX$(X$,3)(".00",(X$)C2):FRF1:1F71,71,71,72,71,74,79,80GRF0:HL(P(IH))(MNP):L1INR(((1L)((1IHNP)NP)))12:17:71JI10:C202KR0(1((I)NP1)(NNP12)):R00IR(I):]LR1R(((I)PNP)R0):C3(IC2)2:C2IMR1MIIC3(R1M)C3(MR1):75NIR(IH):25:71OPR(MNP(11((IH)NP1)(NPN12))(IH)):30:71PMR(((IH)PNP)(1((IH)NP1)(NNP12))):34:719QPF83,84:198,0:D$5)"HIT A KEY";nRA$:(A$"")82:A$""A$""PF(A$)132:82~SA$""JVTUD$"PAID="R(T6T5):PF0:81:6)+i,i  `` )g 0x & ʆnx & x &) @ `i@i@ x ) миx &  `иx &  ` leknif ydna yb 1V36878:H100:JV(43)(44)2562988:Q10:V,0:V1,109:D$"":SP$" R$" : &S1(648)256:R(I)(IH.5)H:"":S2(244)256:T$" LOAN CALCULATOR HT$D$"(C)1981 COMMODORE";:82""D$SP$;:F0:A123:A22S11,160:A22S21,5::PF0Z1:""T$"STARTMONTH"Q)R$;:B0B1B$"":B0B$((B),2):B$; 56:A1266:B$"" B$""7 BA! Z2:"YEAR"Q)R$;B B$"":Y0B$((Y),2):B$;\56:Y999966:B$""jB$""12rYAZ3:(D$,10)"TERM (YRS)"Q)R$;B$"":N0B$((R(N12)),2):B$;:RF156:B$""17N((AH)12.05)Z4:(D$,13)"PMTS/YR"Q)R$;:NP0NP12HB$"":NP0B$((NP),2):B$;:RF1Z56:B$""21cNPAZ5:(D$,16)"INT. (%)"Q)R$;B$"":I0XI:68:B$X$:B$;:RF156:B$""25IAH:F5RF1:25:RF0:RF2RF1:25Z6:(D$,19)"LOAN VALUE"Q)R$;DB$"":P0XP:68:B$X$:B$;:RF1V 56:B$""30y!PR(AH):P0RF1:30:RF0:"Z7:(D$,22)"PAYMENT"Q)R$;#B$"":M0XM:68:B$X$:B$;:RF1$F0F7:"":39%56:B$""34 &MR(AH):RF1:34:RF0:)'70:RF166:RF0:F0:7r(D$"OK?";:82:D$SP$;:A$"N"PF0:F17:(D$,3F2)Q)R$:F0:7*A$"Y"40-I1I.01NP:P1P:P5P:Y1Y:T50:T60:W0.UB:L1(N12)1:T10:T20:" AMORTIZATION TABLE YEAR:"Y12/"BALANCE:"P5"MO. EQ. INT.---------------------}0AUNP:WW1:I2I1P1:EMI2:P1P1E:WNER(EP1.005):P10:"";1PF2((A),2);:XR(E):68:3)X$;:XR(I2):68:13)X$2P5R(P1):T1T1E:T2T2I2:P5073Y1Y11:T5T5T1:T6T6T2:"EQUITY="R(T5):"INT.="R(T6):81:P50A$""85G4A$""555"":RF2:F5:25:F7::I1IHNP:JP:PP5:NNW:70:RF53:NNW:PJ:817U1:L:858"";982:A$(13)" ":62:A$""(B$)0B$(B$,(B$)1):" ";:57 ;(B$)557X<(A$"0"A$"9")A$"."(A$"?"F0(Z2Z4))B$B$A$:""A$"";`=57>(B$,1)"?"A1(Z3Z4)99:FZ:?A(B$):Z4Z3A(AH)@A1A(A)AB$"":66:BD$"INVALID ENTRY";"CV,15:C150:V2,165:L09::V2,0::V,0:D$SP$"":ODX$" "(X):C1(X$):(X$,C,1)"."sEX$(X$,3)(".00",(X$)C2):FRF1:1F71,71,71,72,71,74,79,80GRF0:HL(P(IH))(MNP):L1INR(((1L)((1IHNP)NP)))12:17:71JI10:C202KR0(1((I)NP1)(NNP12)):R00IR(I):]LR1R(((I)PNP)R0):C3(IC2)2:C2IMR1MIIC3(R1M)C3(MR1):75NIR(IH):25:71OPR(MNP(11((IH)NP1)(NPN12))(IH)):30:71PMR(((IH)PNP)(1((IH)NP1)(NNP12))):34:719QPF83,84:198,0:D$5)"HIT A KEY";nRA$:(A$"")82:A$""A$""PF(A$)132:82~SA$""JVTUD$"PAID="R(T6T5):PF0:81:6)+i,i  `` )g 0x & ʆnx & x &) @ `i@i@ x ) миx &  `иx &  ` leknif ydna yb