C64S tape image fileBASIC FINANCE 2 >DEPRECIATION CALENDAR E""9)"DEPRECIATION ANALYSIS":12)"COPYRIGHT 1978""COMMODORE BUSINESS MACHINES INC.":I11000: :I%(7,4),DT(5),E$(12)L17:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L5,3,7,0,5,17,8,0,5,35,2,0,6,35,2,0,7,12,1,4,7,34,4,1,23,17,2,0A(E$(0)"DEPRECIATION TYPE A=S/L B=SOD C=D/B "t)E$(1)"INPUT ADJUSTMENT FACTOR 1<=FACTOR<=2 "*E$(2)" "+E$(3)"MISSING ORIGINAL PRICE",E$(4)"MISSING EQUIPMENT LIFE"-E$(5)"",.E$(6)"MISSING DEPRECIATION TYPE"`/E$(7)"CONTINUE SAME DATA? (Y/N) "0E$(8)"CONTINUE LISTING?(Y/N) "1E$(9)"DEPRECIATION BY MONTH? (Y/N) "2E$(10)"INPUT THE YEAR "23E$(11)"HARDCOPY? (Y/N) "a4E$(12)"SALVAGE PRICE > ORIGINAL PRICE"<RW$"":BK$""FFR$" "P A(Q0)((Q0).5)(Q0): B(Q1)((Q1))U E(Q5)RDSPc7000:3,3:L16d"YR":YR0:6000an8000:E2:6000:E0:I%(L,4)4DM$ST$}DT(L)(ST$):C013300C019L0C0145LL2:170C0147L0:7300L0L4LL1:L5L1110 ,1000:E21,3:3000:1:900 6100 9000& E11:60009 Z$:Z$""902G E0:6000W Z$"N"909h Z$"Y"901 1,4:HC$"Y1":3000:1 E9:6000 Z$:Z$""910 E0:6000 Z$"N"980 Z$"Y"905 "MO":E10:6000:L7:8000:SY(ST$) M0SYLF9352 M0SY(LF1)935@ SY1935R 1,3:5000:1a E11:6000t Z$:Z$""945 E0:6000 Z$"Y"HC$"Y":1,4:5000:1:HC$"":909 Z$"N":909 Z$"N":940 E7:6000 Z$:Z$""985 E0:6000 Z$"N"L1:7300:1000 Z$"Y"980= L1:100X SB0:SP0:FT0:Y0:M0t  DT(1)0E3:L1:6000 DT(3)0DT(4)0E4:L3:6000 DT(1)DT(2)E12:L2:6000 LSBDT(1):SPDT(2):LFDT(3):M13DT(4):YLF:M11M0 VDM$"C"12007 `E1:6000:L6:8000:FT(ST$):FT21FT1120c DM$"A"(RW$,7)19)"S/L"12)" " DM$"B"(RW$,7)19)"SOD"12)" " DM$"C"(RW$,7)19)"D/B" (DM$"A")(DM$"B")(DM$"C")E6:L5:6000  DPA((SBSP)LF):$ 4SDSBSP:YD((Y1)(Y20)2)S ;DP((LF1YR)YD)SD:DPA(DP):RDA(RD): D4(1(FTLF))(YR1):D5FTLF:DPSBD4D5:DPA(DP): EYLF M0EYEY1  D10:D20:D30:TD0:Y10:HC$"Y1"4500:3102  4000  YR1(EY)! YRLFD3D2:3200,& DM$"A"2000:3140E0 DM$"B"2100:3140X: DM$"C"2200nD M1D3DP:R3RDN M0D1A(DP(M12)):D3D1D2:D2DPD1 TDTDD3:RBSBTD:RDRBSP:F1$"":((YR))3F1$"0" HC$"Y1"(RW$,11Y1); 1,F1$((YR),2,2)" ";+ F1D3:3900:F1RD:3900G F1RB:3900:F1TD:3900f Y1Y11:HC$"Y1"1:3400w YREY3400 (YR10)(YR10)3400 E8:6000 A$:A$""3330 A$"Y"Y10:4000:3400 A$"N"YREY:3365 3330H :<F1$((F1),2,7)8F1,(FR$,(8(F1$)))F1$((F1),1);>dI7111:(RW$,12I7)E$(2):I7:1,""4)"DEPRECIATION SCHEDULE ANALYSIS"1,2)" ORIGINAL SALVAGE "1,2)" PRICE PRICE LIFE YEAR"1,2)DT(1)13((DT(2))))DT(2);?1,10((DT(2))))DT(3)7((DT(3))))SYk1,2)"DEP TYPE FACTOR"DM$"A"1,3)"S/L"DM$"B"1,3)"SOD"DM$"C"1,3)"D/B"20)FTI137:1,"";::1 HC$"Y"1,"MO DEP RDV RBV TOT DEP"FHC$"Y1"1,"YR DEP RDV RBV TOT DEP"_I137:1,"";::1exHC$"Y"4500D10:D20:D30:TD0:Y10:HC$"Y"4000YR1SYLF1YRD3D2:5190DM$"A"2000:5140DM$"B"2100:5140 DM$"C"2200-M1D3(DP100.5)100YM0D1A(DP(M12)):D3D1D2:D2DPD1(YRSYTDTDD3:RB((SBTD)100.5)100:RDRBSPFYR:DPD3:M113MK(M0)(SY1)M3M::M212:5200L(M0)(SYLF)M3M11:M2M11:M11:5200M(SYLF1)(M11)M212:M312:M11JPY10:YRM1M2:D3((DPM3)100.5)100UTDTDD3:RBA((SBTD)100)100 :RDA((RBSP)100)100VF1$"":((YR))3F1$"0"nHC$"Y"(RW$,11Y1);x1,F1$((YR),2,2);F1D3:5900:F1RD:5900:F1RB:5900:F1TD:5900Y1Y110HC$"Y"1:5400AYR125400j(SY1SYLF1)((M0)(M11))5400(YR6)(YR6)5400E8:6000A$:A$""5335A$"Y"Y10:4000:5400A$"N"YR12:54005330:  A5:F1$((((F1))),2)#(F1$)4A(F1$)1L(F1$)8F1$"******":F2$F1$:5950j F1$(FR$,(A(F1$)))F1$+F2$((1(F1)((F1)).001),3,3)>1,(F1$F2$,8)((F1),1);op(RW$,23)1)E$(E):XA1$"":I137:A1$A1$"":I:A1$A1$""1vA2$"":I137:A2$A2$" ":I:A2$A2$""aA3$"":I137:A3$A3$"":I:A3$A3$""k"";A1$:I18:A2$:I:A3$(RW$,22)(A1$,39):(A2$,39):(A3$,39)"";:A1$"":A2$"":A3$""""3)"DEPRECIATION SCHEDULE ANALYSIS")2)" ORIGINAL SALVAGE "`2)" PRICE PRICE LIFESTART "2)"DEP TYPE FACTOR""";:I137:"";::"""YR DEP RDV RBV TOT DEP"I16:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3)):I4I14:DT(I)0:I:DM$"":4000d@(RW$,I%(L,1))I%(L,2)):C10:#3,TK$:"";TI150:C$:C$""8030UI:"Ɲ";:I150:C$:C$""8030VI:TK$"";:8020^C0(C$):C013C017C0145C019C01478900_C0328100%h(C020)(C10)C$" ":8100Sl(I%(L,4)0I%(L,4)1)(47C0C058)8100qm(I%(L,4)1)(C046)8100n(I%(L,4)4)(C064)(C068)8100oC029C01578100q8020(C020C0157)C118020TK$""C$;:#3,TK$:"";:C020C1C11:TK$" ":8020$C0157C1C12AC1C11:C1I%(L,3)8900K8020i"#3,T2$:T2$TK$""TK$##(RW$,I%(L,1))I%(L,2));:ST$"":I1I%(L,3)$##3,S0$:ST$ST$S0$:I:'#(#I14:DT(I)09200#(RW$,I%(I,1))I%(I,2));#(FR$,I%(I,3))(BK$,I%(I,3));3#((DT(I)),2,I%(I,3))<#I:;""15)"CALENDAR":12)"COPYRIGHT 1978"s5)"COMMODORE BUSINESS MACHINES INC.":I11000: :I%(13,4),D%(13),DS%(12) L113:I%(L,1),I%(L,2),I%(L,3),I%(L,4):L I112:DS%(I):I10,4,2,0,10,7,2,0,10,10,4,0&12,6,3,0,10,25,2,0,10,28,2,0,10,31,4,0g12,27,3,0,17,12,1,1,18,12,4,0,19,12,4,0,20,12,4,0,21,12,4,0WK$"SATURDAY SUNDAY MONDAY TUESDAY WEDNESDAYTHURSDAY FRIDAY " 31,28,31,30,31,30,31,31,30,31,30,31$#YR$" JANUARY FEBRUARY MARCH APRIL MAY JUNE JULY "_$YR$YR$" AUGUSTSEPTEMBER OCTOBER NOVEMBER DECEMBER "(E$(0)" "*E$(1)"INVALID MONTH FIELD":E$(2)"INVALID DAY FIELD+E$(3)"MISSING THE YEAR":E$(4)"INVALID JULIAN DATE<-E$(5)"HIT RETURN":E$(6)"MONTHLY CAENDAR TYPE Mz<RW$"":BK$"FFR$" ":7000:3,3:L1n8000:ER0:6000:D%(L)(ST$):I%(L,4)1AT$ST$xI16:(W$,I,1)C$I200,160,170,150,140,960,170&73003L1:110=LL2KL0L12_LL1:L13L1vI110:C$::110W1$" ":W2$W1$:AD0:AY0:ER0:6000D00:I14:D0D0D%(I):ID10:J58:D1D1D%(J):JD00D10110 D00300( D0D%(1)D%(2):D1D%(5)D%(6)? D00D%(4)0300W D00D%(4)0280 L1:MD%(1):DD%(2):YD%(3):2000:ER0110 1000:D%(4)JN:1100:W1$LN$:300 L1:JND%(4):YD%(3):2100:ER0110 "1050:D%(1)M:D%(2)D:1100:W1$LN$ ,D10D%(8)0400/ 6D10D%(8)0380g ^L5:MD%(5):DD%(6):YD%(7):2000:ER0LL4:110 h1000:D%(8)JN:1100:W2$LN$:400 |L5:JND%(8):YD%(7):2100:ER0LL4:110 1050:D%(5)M:D%(6)D:1100:W2$LN$ D%(1)0D%(5)03000:9005 D%(10)0D%(11)0D%(12)0D%(13)0900? 4000Y 9100:ER6:6000:110 D%(1)0D%(1)12ER1:6000:110 D%(3)0ER3:6000:110 MD%(1):YD%(3) D1:1100:5000:ER5:6000Z$:Z$""990 10 JN0:M1JND:1030( I1M1:JNJNDS%(I):I:JNJNDE M21990:LY1JNJN1K S M1t $JN591990:LY1DS%(2)29 8DS%(M)JNJNJNDS%(M):MM1:1060 BDS%(2)28:DJN: LM3MM12:YY1 `ND2M(.6(M1))Y(Y4)(Y100)(Y400)2 jN((N7(N7))7.5), tN0N9:N0N01B ~LN$(WK$,N0,9):\ LY0:(Y4)Y-LY1y Y3(Y100):YY3100 Y34(Y34)LY0 DS%(2)28:LY1DS%(2)29:  Y0ER3:L3:6000 D0ER2:L2:6000M12M0ER1:L1:60002(M4M6M9M11)(D30)ER2:L2:6000i(M1M3M5M7M10M12)(D31)ER2:L2:6000uM21990:(LY1D30)(LY0D29)ER2:L2:60004Y0ER3:L3:6000>1990:(LY1JN367)(LY0JN366)HER4:L4:6000* AY0:AD0:D%(4)D%(8)D%(3)D%(7)e D%(3)D%(7)Y1D%(3):D1D%(4):Y2D%(7):D2D%(8):3040 D%(3)D%(7)Y1D%(7):D1D%(8):Y2D%(3):D2D%(4):3040 Y1D%(7):Y2D%(3) D%(4)D%(8)D1D%(4):D2D%(8):3090 D%(4)D%(8)D1D%(8):D2D%(4):30903 YY2:1990:LY1(Y1Y2D160)ADAD1S D1D2D1D1365LY:Y1Y11l AYY1Y2:ADADD1D2 I913:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3)):I& I913:D%(I)0:I:JN0:D0:M0:YD%(3):AD0AS1:AT$"-"AS1ADD%(10)AS)ADAD(D%(11)7AS):D%(12)04040bYD%(3):MD%(1):M31D%(12):1990:ADAD(DS%(M)AS)wMMAS:M0M12M13M1M3YY(D%(13)AS)JND%(4)ADJN36640901990:LY1JN3674090JNJN365LY:YY1:4080 JN04100,1990:LY1JN0JN365:4100IJNJN365LY:YY1:4090dD%(7)Y:D%(12)04110 YD%(3):1990:LY0YD%(7):1990:LY1JN58JNJN1ASD%(3):1990:LY1LN58YD%(7):1990:LY0JJN1ASD%(8)JN:1050:D%(5)M:D%(6)D1100:W2$LN$:AD0:AY0:d"":M12MM12:YY1}M2(M1)9:M1M2110)""(Y$,M2,9)" "(Y)" """ S M T W T F "."H1990:LY1DS%(2)29_JN:" ";:N0J7mN15130I1J1:6);:I I1DS%(M):J1J7"";((I),2,2)7(((I))));J1J7"";JJ1:J7J1:::" ";I:DS%(2)28:(RW$,24)1)E$(ER):AXA0$"":I139:A0$A0$" ":plA1$"":I137:A1$A1$""::A1$A1$""v$"":I137:A2$A2$" ":I:A2$A2$""A3$"I137:A3$A3$""$3$""":I14:A2$::A3$ A1$:I17:A2$::A3$&A1$:I15:A2$::A3$@(A1$,39):(A2$,39)o(A3$,39)"";:A0$"":A1$"":A2$"":A3$""""15)"CALENDAR"""5)"DATE ONE"12)"DATE TWO"""15)"GRGORIAN":""16)"JULIAN""&)"Y":"1)" TYPE 0" DAYS DIFFERENCE BETWEEN"T"WEEKS "10)" DATES"" MONTHS "09)"DAYS YEARS":" YEARS"" ":"  " "  ":"ߒ "I113:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3:II113:D%(I)0:IGAD0:AY0:AM0:W1$" ":W2$W1$:9100@Z1:W$(13)"M123890+- "(20)""(RW$,I%(L,1))I%(L,2)):#3,TK$:"";";:I15:C$:C$""^C$""TK$"";:I150:C$:C$""hC$""8020rI122:(W$,I,1)C$'|I782006I178120cI168130,8130,8150,8090,8100,8150,8020pCd "Z2:ZZ1:80208150I%(L,4)081508020I%(L,4)1508020TK$":#3,TK$:"";:Z1:Z%(L,3)8020" #3,ST$:ST$TK$""TK$;Yl (BK$,Z);:ST$"":I1I%(L,3):#3,Z$:ST$ST$Zd_'#x#I1$D%(I)09200#(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3))(BK$,I%(I,3));#((D%(I)),2))I%(I)("******",I%(I,3)):9200#((D%(I)),%(I,3(#I:(RW$,14)4)""W1$12)W2$O$(RW$,2)24)""((AD),2,3)" "x$(RW$,21)31)""(AY),2,4)" ":d