C64S tape image fileSTARTER PROD PAC  STARTERFILE "STARTERCALC u+%DEPRECIATIONCALC?1R2 AUNIT4DRILL 4UNIT5QUIZ ,SENTENCES GUNIT7QUIZ 11:V7:898 " ATAASE16 BY ATT LAIS "kSP$" "DL11:OD3:P$"""  OT ENOUGH FREE MEMORY. "205,24:12)"  RESS NY EY ";239,0 X$:X$""9 X$: 3) (14)""12)" Ҡ "6 40:TL$W3:4:FR(0)260:FR0FR010)FR"HARS FREE.":10)NR"ECORD(S)."X$" ":F$" CURRENT FILE"X$"Ғ EVIEW"F$:X$"Ӓ EARCH"F$R$" A RECORD":X$"Œ DIT"R$:X$" DD"R$:X$"Ē ELETE"R$WX$"Ԓ OTAL":X$"ϒ ORT"F$:X$"В RINTER "P$X$"̒ OAD A FILE":X$"ƒ AVE"F$:X$"͒ AKE A NEW FILE"X$"ђ UIT"OD,OD,7:12)"HOOSE ONE: ";:8I112:X$("RSEADTOPLFMQ",I,1):12I8117I"";:I70,85,111,100,105,81,128,117,62,54,44,27Q12"  UIT: RE OU URE ?":8:(X$)8912"":""(27)"T";:205,24:""(27)"B";:40:AR2:AW2:DV8:"ĒISK OR ÒASSETTE? ";:8X$"C"DV1:AR0:AW2W F$"":"ILE AME";F$:DV8F$F$",S":15:15,8,15a!40:"FT(NF),T$(NF),T(NF),V$(NF),V1(NF),V2(NF)#F$(100,NF):$FT(F)137,38,39%"(UMBER)":&"($.$$)":'"(HAR)":(ER30B1:ւ()EL74ER5B1:" O RINTER..":142c*ER5"  / : HECK DISK OR PRINTER. ":7u+ER;(ER)EL:,12)" AKE EW ILE ":29::"OW ANY IELDS (2-10)";NF-NF2NF1011.34:3:F1NF:"IELD #"F:" ITLE ";X$/T$(F)X$:(X$)TLTL(X$)Y0" YPE (0=UMBER, 1=$.$$, 2=HAR)";X:X0X2"";:481FT(F)X::F1NF:T$(F)(T$(F)SP$,TL)::112XX0:DV1XXST:315,XX,Y$,Y1,Y2:4DV8""XX;Y$;Y1;Y2:5" ASSETTE "XX: 617)" AVE ":29:30 7DV8F$F$",W"?82,DV,AW,F$:40:50:XX60n92,NF","NR","TL:F1NF:2,FT(F)","T$(F)::"NTER A ATE OR ITLE FOR THIS FILE:":X$:141:2,X$;X$(34):R1NR:F1NF:2,X$F$(R,F)X$::<2:50:XX0XX64=2:52:7>17)" OAD ":29:&?64:12Q@3:30:2,DV,AR,F$:40:50:XX61:12eA2,NF,NR,TL:34BF1NF:2,FT(F),X$:T$(F)(X$SP$,TL):C2,X$:141D:TL$:R1NR:F1NF:2,F$(R,F)::E60:12F16)" EVIEW ":29GNR0" O ECORDS. ":7)HB0:R1NR:74:B802I:7JJOD:OD," #"R[K(239)079fL239,0wM(239)077N239,0OF1NF:OD,""T$(F)" "F$(R,F)::OD:P" BORTED.. ";:7Q17)" OTAL ":XX1RI1NF:T(I)0::86#SI1NF:FT(I)2T(I)T(I)(F$(R,I))+T:EU16)" EARCH ":XX0aV29:F1NF:""T$(F)":WFT(F)2V$(F)"":" ATCH TRING";V$(F):89X" IN, AX: 1,0";V1(F),V2(F)Y::B0:R1NR:F1NF:FT(F)292 ZV2(F)V1(F)((F$(R,F))V1(F)(F$(R,F))V2(F))933:83:74:93^\V$(F)""V$(F)(F$(R,F),(V$(F)))91h]B80w^R:XX07_OD:OD,"** **":F1NF:FT(F)299`FT(F)1XT(F):120:98aX$(SP$(T(F)),DL)bOD,T$(F);X$c:OD:7d17)" DD ":29:FR163eNRNR1:" #"NRSfF1NF:""T$(F)": ";:36wgX$"":X$:FT(F)1X(X$):120hF$(NR,F)X$::i16)" ELETE ":29j"ECORD # TO ELETE (0 TO BORT)";R1kR10R1NRlR1NR110mRR11NR:F1NF:F$(R1,F)F$(R,F)::@nF1NF:F$(NR,F)""::NRNR1:_o17)" DIT ":29:FR16p"ECORD # TO DIT";R:R0RNRqF1NF:""T$(F)":";:36:" "F$(R,F):(F$(R,F))38"";rX$"":"";X$:FT(F)1X(X$):120sF$(R,F)X$:: t:*uOD:OD4OD3:P$"":119=vOD4:P$"Β "Pw"":16xxX$" "((X100.5)100):A(X$)y(X$,A3,1)"E"125z(X$,A2,1)"."125{(X$,A1,1)"."X$X$"0":125|X$X$".00"}X$(X$,4) ~(X$)32X$(X$,2):126(17)" ORT ":29FF1NF:"#"F": "T$(F):"ORT BY WHICH FIELD (ENTER FIELD #)";F1:F11F1NF"ORT SCENDING OR ĒESCENDING ? ";:8:A0:X$"D"A1"  ORTING.. ":F2FT(F1)2:MNR M(M2):M0 J1NRM:IJ= LIM:F2ABF$(I,F1)F$(L,F1):137\ AB(F$(I,F1))(F$(L,F1))j AAB140 F1NF:X$F$(I,F):F$(I,F)F$(L,F):F$(L,F)X$:F IIM:I1135 J:133 TL$""X$:(TL$)40TL$(SP$,20(TL$)2)TL$ "":0,7,3:4,1:1,2?"DISK OR TAPE STORAGE"ZA$:A$"D"A$"T"7qDV8:A$"T" DV1 "STARTERCALC SETTING UP ..... SS$(4,19),SS(4,19),FC$(4,19),TP%(4,19)I14:J119:SS$(I,J)" ":SS(I,J)0:FC$(I,J)"":TP%(I,J)0*::8:I18:I,(I):o(BL$" ":CD$"":1,2,420,2:4,2:""BL$BL$<I119:""(64I)""8)""8)""8)""8)"":F""P" 1"8)"2"8)"3"8)"4"@ZX%1:Y%1:X1%1:Y1%1:1,1:(CD$,23);:520sd1,1:(CD$,Y1%1)29(X1%1))""SS$(X1%,Y1%)n(CD$,Y%1)29(X%1))""SS$(X%,Y%)x(CD$,22)(27)"Q "FC$(X%,Y%)"" K$:X1%X%:Y1%Y%K$""Y%Y%1:170: K$""Y%Y%1:170?K$""X%X%1:170: K$""X%X%1:170H200dX%5X%1: X%0X%4Y%20Y%1: Y%0Y%19100K$(1)280: NUMBERK$(2)410: TEXTK$(3)460: FORMULAK$(27)640: CALCULATEK$(8)1080: TAPEXK$""SS$(X%,Y%)" ":SS(X%,Y%)0:FC$(X%,Y%)"":TP%(X%,Y%)0rK$""1,800,3:1001,400,5:130510:NM$" """ "(NM$,5)"."(NM$,2)"", A$6A$(20)NM$" "(NM$,6):290@A$(13)360)JA$"-"NM$" "300: A$"-"350@TA$"0"A$"9"300Y^NM$(NM$,6)A$:290th(NM$,6)" "390rSS$(X%,Y%)(NM$,5)"."(NM$,2):SS(X%,Y%)(SS$(X%,Y%))|TP%(X%,Y%)0:FC$(X%,Y%)""520:510:NM$" ":CP1:560NM$" "440SSS$(X%,Y%)NM$:SS(X%,Y%)0:TP%(X%,Y%)0:FC$(X%,Y%)""\520b:510:NM$" ":CP1:560NM$" "440FC$(X%,Y%)(NM$,CP1):TP%(X%,Y%)1:SS$(X%,Y%)" ":SS(X%,Y%)0C710:E1FC$(X%,Y%)"":E0:460L520x(CD$,23)BL$BL$:BL$BL$"":1,800,3:1,800,3:BL$BL$""" F1=ENTER VALUE F3=DEFINE FUNCTION "" F2=ENTER TEXT F7=TEXT STORAGE"&100(0" :"(NM$,CP1)""(NM$,CP,1)""(NM$,CP1)":"2: A$XDA$(20)CP1570:ՋA$(20)630hNA$(13)XA$" "A$"^"570bNM$(NM$,CP1)A$(NM$,CP1):CPCP1:CP(NM$)CPCP1l560vNM$(NM$,CP2)(NM$,CP)" ":CPCP1:560RX%X%:RY%Y%$X14:Y119:X%X:Y%YW1,1:(CD$,Y1%1)29(X1%1))""SS$(X1%,Y1%)(CD$,Y%1)29(X%1))""SS$(X%,Y%)(CD$,22)(27)"Q "FC$(X%,Y%)""X1%X%:Y1%Y%:TP%(X%,Y%)1710:1,800,3::X%RX%:Y%RY%:100.CS$FC$(X%,Y%):(CS$,3)"SUM"FC$(X%,Y%)(CS$,9):910`CS1:RS0:E0: POINTER,RESULT AND ERROR FLAGA$(CS$,CS,1):B$(CS$,CS1,1):CSCS2A$"A"A$"S" E1:B$"1"B$"4" E1:Y2%(A$)64:X2%(B$):RSSS(X2%,Y2%) CS(CS$) 104 0: GOT NUMBER IN RSS OP$(CS$,CS,1):OP$"+"OP$"-"OP$"*"OP$"/"E1:_CSCS1 A$(CS$,CS,1):B$(CS$,CS1,1):CSCS2*A$"A"A$"S" E1:4B$"1"B$"4" E1:>Y2%(A$)64:X2%(B$)HR2SS(X2%,Y2%) ROP$"+" RSRSR2:770%\OP$"-" RSRSR2:770AfOP$"*" RSRSR2:770QpR20E1:czRSRSR2:770i:A$(CS$,5,1):B$(CS$,6,1)A$"A"A$"S" E1:B$"1"B$"4" E1:Y2%(A$)64:X2%(B$)A$(CS$,8,1):B$(CS$,9,1)A$"A"A$"S" E1:,B$"1"B$"4" E1:GY3%(A$)64:X3%(B$)iRS0:Y2%Y3%103 0: ADD ROW}X2%X3%E1: Y3Y2% Y3%:RSRSSS(X2%,Y3)::1040:X3X2%X3%:RSRSSS(X3,Y2%):RS((RS.005)100)100:RS0SS$"0.00":1060DSS$((RS.005),((RS.005))1):(SS$)8SS$"*****.**"t$SS$(X%,Y%)(BL$,8(SS$))SS$:SS(X%,Y%)RSz.8510:"LOAD,SAVE OR EXIT"B A$:A$"L" A$"S"A$"E"1090LA$"E"520VA$"L"1220: GO LOAD IT W DV1 11209X"INSERT DATA DISK AND PRESS RETURN":1130^`"REWIND TAPE AND PRESS RETURN"vjA$:A$(13)1130t(27)"Q":DV1 1,1,1,"MINICALC":1150u"FILENAME";FZ$:1,8,8,"0:"FZ$",S,W"~X14:Y119 SS$(X,Y)" "1,(1);:1190 1,(2);N 1,SS$(X,Y)(13)SS(X,Y)(13)FC$(X,Y)(13)TP%(X,Y)Y ::1g 510:520m : DV1"REWIND TAPE AND PRESS RETURN":1230 "INSERT DATA DISK AND PRESS RETURN" A$:A$(13)1230!(27)"Q":DV11,1,0,"STARTERCALC":1250 ORIGINAL PRICE "E$(13)"PRESS F1 TO CALCULATE, HELP FOR HELP "E$(14)" ** CALCULATING ** "E$(15)"READY PRINTER AND PRESS RETURN"4H$(1)"ENTER THE ORIGINAL DOLLAR VALUE "hH$(2)"ENTER THE SALVAGE DOLLAR VALUE "H$(3)"ENTER THE LIFE PERIOD IN YEARS "H$(4)"ENTER THE MONTH YOU WISH TO START "H$(5)"DEPRECIATION TYPE A=S/L B=SOD C=D/B "B&RW$"":BK$""a0FR$" ": A(Q0)((Q0).5)(Q0): B(Q1)((Q1))D E(Q5)RDSPN2050:3,3:E13:2030:L1X"YR":YR0b2230:I%(L,4)4DM$ST$lDT(L)(ST$):C0133700-vC019L0DC0145LL2:650ZC0147L0:2210pC0632040:610}L0L4LL1:L5L1E13:2030:610E0:1050:E2600E14:2030:1,3:1220:12450E11:2030Z$:Z$""740E0:2030"Z$"N"8103Z$"Y"730B 1,4:3000_ HC$"Y1":1220:1:HC$""m*E9:20304Z$:Z$""820>E0:2030HZ$"N"990RZ$"Y"770\"MO":E10:2030:L7:2230:SY(ST$)fM0SYLF860pM0SY(LF1)860#zSY1860@E14:2030:1,3:1650:1OE11:2030bZ$:Z$""920pE0:2030Z$"N"810Z$"Y"9101,4:3000HC$"Y":1650:1:HC$"":810E7:2030Z$:Z$""1000E0:2030Z$"N"1500:L1:2210:E13:2030:600.Z$"Y"990L1500:E13:2030:L1:600gSB0:SP0:FT0:Y0:M0$DT(1)0E3:L1:2030.DT(3)0DT(4)0E4:L3:20308DT(1)DT(2)E12:L2:2030BSBDT(1):SPDT(2):LFDT(3):M13DT(4):YLF:M11M0LDM$"C"1120EVE2:2030:L6:2230:FT(ST$):FT21FT1110s`DM$"A"(RW$,12)19)"S/L"12)" "jDM$"B"(RW$,12)19)"SOD"12)" "tDM$"C"(RW$,12)19)"D/B"~(DM$"A")(DM$"B")(DM$"C")E6:L5:2030DPA((SBSP)LF):8SDSBSP:YD((Y1)(Y20)2)gDP((LF1YR)YD)SD:DPA(DP):RDA(RD):D4(1(FTLF))(YR1):D5FTLF:DPSBD4D5:DPA(DP):EYLFM0EYEY1D10:D20:D30:TD0:Y10:HC$"Y1"1510:12601500YR1(EY)'YRLFD3D2:1330@DM$"A"1170:1310Y DM$"B"1180:1310lDM$"C"1200M1D3DP:R3RD(M0D1A(DP(M12)):D3D1D2:D2DPD12TDTDD3:RBSBTD:RDRBSP:F1$"":((YR))3F1$"0"<HC$"Y1"(RW$,16Y1);#F1,F1$((YR),2,2)" ";?PF1D3:1470:F1RD:1470[ZF1RB:1470:F1TD:1470zdY1Y11:HC$"Y1"1:1460nYREY1460x(YR7)(YR7)1460E8:2030A$:A$""1420A$"Y"E14:2030:Y10:1500:1460A$"N"YREY:14601410:.F1$((F1),2,7)U1,(FR$,(8(F1$)))F1$((F1),1);[I717:(RW$,15I7)E$(1):I7:1,""4)"DEPRECIATION SCHEDULE ANALYSIS"1," ORIGINAL SALVAGE "1," PRICE PRICE LIFE YEAR"-1,""2)DT(1)13((DT(2))))DT(2);]1,""10((DT(2))))DT(3)7((DT(3))))SY1," DEP TYPE FACTOR""DM$"A"1,""3)"S/L",DM$"B"1,""3)"SOD"6DM$"C"1,""3)"D/B"20)FT@I137:1,"";::10 JHC$"Y"1,"MO DEP RDV RBV TOT DEP"i THC$"Y1"1,"YR DEP RDV RBV TOT DEP" ^I137:1,"";::1 h rHC$"Y"1510 |D10:D20:D30:TD0:Y10:HC$"Y"1500 YR1SY LF1YRD3D2:1750!DM$"A"1170:1720 !DM$"B"1180:17203!DM$"C"1200P!M1D3(DP100.5)100|!M0D1A(DP(M12)):D3D1D2:D2DPD1!YRSYTDTDD3:RB((SBTD)100.5)100:RDRBSP!YR:DPD3:M113M!(M0)(SY1)M3M::M212:1790"(M0)(SYLF)M3M11:M2M11:M11:1790A"(SYLF1)(M11)M212:M312:M11m"Y10:YRM1M2:D3((DPM3)100.5)100"TDTDD3:RBA((SBTD)100)100 :RDA((RBSP)100)100"F1$"":((YR))3F1$"0""HC$"Y"(RW$,16Y1);"&1,F1$((YR),2,2);1#0F1D3:1960:F1RD:1960:F1RB:1960:F1TD:1960=#:Y1Y11S#DHC$"Y"1:1950d#NYR121950#X(SY1SYLF1)((M0)(M11))1950#b(YR6)(YR6)1950#lE8:2030#vA$:A$""1910#A$"Y"E14:2030:Y10:1500:1950 $A$"N"YR12:1950$1900$:8$A5:F1$((((F1))),2)Q$(F1$)4A(F1$)1z$(F1$)8F1$"******":F2$F1$:2010$F1$(FR$,(A(F1$)))F1$$F2$((1(F1)((F1)).001),3,3)$1,(F1$F2$,8)((F1),1);$$(RW$,24)1)E$(E):%(RW$,24)1)H$(L):H%A1$"":I137:A1$A1$"":I:A1$A1$""x% A2$"":I137:A2$A2$" ":I:A2$A2$""%A3$"":I137:A3$A3$"":I:A3$A3$""% "";:I14:(A2$,39)::(A3$,39)%*""A1$:I18:A2$:I:A3$&4""(RW$,23)(A1$,39):(A2$,39)@&>(A3$,39)"";:A1$"":A2$"":A3$""d&H""9)" DEPRECIATION CALC"&R17)"(C) 1984":7)"COMMODORE BUSINESS MACHINES"&\""3)"DEPRECIATION SCHEDULE ANALYSIS"&f2)" ORIGINAL SALVAGE "''p2)" PRICE PRICE LIFESTART "R'z2)"DEP TYPE FACTOR"t'"";:I137:"";::""'"YR DEP RDV RBV TOT DEP"'"    "(I16:(RW$,I%(I,1))I%(I,2))(FR$,I%(I,3)):I2(I14:DT(I)0:I:DM$"":1500b((RW$,I%(L,1))I%(L,2)):C10:#3,TK$:"";(I150:C$:C$""2270(I:"Ɲ";:I150:C$:C$""2270(I:TK$"";:2240(C0(C$):C027"":3:)C013C017C0145C019C0147C0133C0632410!)C0322360E)(C020)(C10)C$" ":2360s) (I%(L,4)0I%(L,4)1)(47C0C058)2360) (I%(L,4)1)(C046)2360) (I%(L,4)4)(C064)(C068)2360)$ C029C01572360). 2240)8 (C020C0157)C1122400*B TK$""C$;:#3,TK$:"";:C020C1C11:TK$" ":2240D*L C0157C1C12a*V C1C11:C1I%(L,3)2410k*` 2240*j #3,T2$:T2$TK$""TK$*t (RW$,I%(L,1))I%(L,2));:ST$"":I1I%(L,3)*~ #3,S0$:ST$ST$S0$:I:* * I14:DT(I)02490+ (RW$,I%(I,1))I%(I,2));8+ (FR$,I%(I,3))(BK$,I%(I,3));S+ ((DT(I)),2,I%(I,3))\+ I:s+ E15:2030:Z1$: