:E10610:RV10710,10810,10910,11010,11110,11210,11310,11410,11610,11710,11810,10610:10010+Zâ2:2550:10:T$"PROCESSING USING THE DEPRECIATION":2235:12:T$"PLANNER HAS BEEN COMPLETED":2235:14:T$"YOU MAY NOW TURN OFF YOUR APPLE":2235:,â2:2035:PFW:3050:SX(PF$):PF2:3050:SG(PF$):TFZ:TR20:3035:PF4:3050:PF$"1"10530i*38010:2325]+22:THZ:T$"ENTER YOUR SELECTION ->":PSW:PHZ:PT4:PNW:PM$(11GB):PEW:2250:W:868:SG1RV611910:SG1FY(RV3RV7)11910:PNZ:PEZ:F$):TRW:3035:PF5:3050:DY(PF$):((DM),4)((DY),4)FYW)TR11:3035:PF4:3050:GB(PF$):TR19:3035:PF4:3050:PF$"1"10110:TR18:3035:PF4:3050:PF$"3"10110:PF$"2"10210X*TRZ:3035:PF4:3050:PF$"0"10310:TFW:TD2:3010:TRZ:3(S7)72P9%W:S%(S49152)256:S50944:40960b((S5)56(S7)24S%(S49152)256:S50944?)S:TFZ:TR13:3035:PF$(S%):PF4:3060:3085:TR14:3035:PF$(P9%):PF4:3060:WRW:3085:TR10:3035:PF4:3050:DS(PF$):TRZ:3035:PF5:3050:DM(PTL350:TD2:3015:TFZ:TRZ:59900:TFW:TRW:59900:TF2:TR5:59900:3025:TFZ:TD2:30100(ΟPS(2):S%W:P9%Z:S4940850944256:RZ2:PS(R)Z:TZ2558:PS(R)PS(R)(ST):T:R:PS(Z)PS(W)PS(W)PS(2)PS(2)256PS(0)256PS(1)25640960:(S5)72000":US$"---------------":QE$"===============":61000&TF$"":3025:TF%(2,8,2),TF$(2,W),A(6):TF$"DLXX00":SDW:3110:SD$TD$:DL$PF$:V2$"DAT021":TD2:TF$"DLXX00":PD$"DEPRECIATION PLANNER":3120:E10015:(1008)150510Z'CF$"DMCA01":TF$CF$:,152:776,72:777,96:3000:(4)"BLOADCALC.OBJ,D1":(4)"BLOADFUT.OBJ,D1":35840:8&h(116)256(115)3584040010:W1:Z0:2285:D$(13)(4):G$(7):ST$"**********":BFW:S$" ":SP$" ":P$"..............................":Z$"000000000017:THW:"10. UTILITIES":18:THW:"11. CHANGE TODAY'S DATE":GBĢ19:THW:"12. RETURN TO MASTER MENU"$CT$""Ģ20:T$"YOUR NEXT SELECTION SHOULD BE "CT$:2235:RD$CT$$ŔR%J768,104:769,168:770,104:771,166:772,223:773,154:774,72:775ELING"#9:TH:"3. ASSET REGISTER":10:TH:"4. RETIREMENT REGISTER":11:TH:"5. DEPRECIATION REGISTER":12:TH:"6. DEPRECIATION PROJECTION"l$13:TH:"7. INVESTMENT TAX CREDIT":14:TH:"8. CLOSE MONTH":16:TH:"9. CUSTOMIZING FEATURES":EGISTER"0".RV6PD$"DEPRECIATION PROJECTION"V".RV7PD$"INVESTMENT TAX CREDIT"y".:W:2550:50530:4690:48010#zT$"THE DEPRECIATION PLANNER":4900:TH5:BF0:3:9:"TODAY'S DATE ";SD$:6:TH:"1. ASSET MASTER":7:TH:"2. DEPRECIATION MOD DATE (MM/DD/YY)":PH28:REZ:RD$SD$:4770:E11845:SD$TX$:V1$DL$:TDW:TF$"DLXX00":3120:10410!E.32,W:33,38:3:W:868:9:"TODAY'S DATE ";SD$:48020!.RV3PD$"ASSET REGISTER"!.RV4PD$"RETIREMENT REGISTER"".RV5PD$"DEPRECIATION R2235:VTVT2:CT$""CT$BT$/ ,:4690:48010T ,V1$"SYS022":BT$"CA85AC":62010 Z-V1$"SYS021":BT$"CA01AC":PD$"D/P CUSTOMIZING FEATURES":62010 -V1$"SYS021":BT$"SY04AF":PD$"UTILITIES":62010b!".32,W:33,38:35,23:3:W:868:TH5:T$"ENTERANCE DISCREPANCIES REPORT","1","CHANGED ASSETS LIST","1","MONTHLY RETIREMENT REGISTER","4","DEPRECIATION REGISTER","5","TRANSFER TO GENERAL LEDGER","12","INVESTMENT TAX CREDIT","7","ASSET REGISTER","3"  ,:CT$"":BT$"":VT9:IZ6:VT:T$,BT$:A(I)0İ:3035:PF4:3050:A(6)(PF$):114706,A(5)1:A(6)1,BT0:IZ6:BTBT(A(I)0):I:4640:BTZ11515:2:2550:4:T$"THIS MONTH CANNOT BE CLOSED":2235:BT$"IS":BT1BT$"ARE",6:T$"UNTIL THE FOLLOWING "BT$" COMPLETED":2235,"OPENING BAL(PF$):TR9:3035:PF4:3050:A(2)(PF$):TR5:3035:PF4:3050:A(3)(PF$):TR2:3035:PF4:3050:A(4)(PF$):A(0)W,A(4)WFLW:TF2:TD2:3010:TR0:3035:PF2:3050:(PF$)ZA(4)Z:11460,A(4)1$,FYTFZ:TR7:3035:PF4:3050:A(5)(PF$):TR62":BT$"CA21AC":PD$"DEPRECIATION REGISTER":62010u+V1$"SYS022":BT$"CA55AC":PD$"DEPRECIATION PROJECTION":62010.,V1$"SYS022":BT$"CA57AC":PD$"INVESTMENT TAX CREDIT":62010r,W:PD$"CLOSE MONTH":2550:2:4630:TFZ:TR3:3035:PF4:3050:A(1)7)V1$"SYS021":BT$"CA05AC":PD$"ASSET MASTER":62010x:*V1$"SYS021":BT$"CA07AC":PD$"DEPRECIATION MODELING":62010*V1$"SYS022":BT$"CA51AC":PD$"ASSET REGISTER":62010+V1$"SYS022":BT$"CA23AC":PD$"RETIREMENT REGISTER":620102f+V1$"SYS02BT$",D1"r)GBZDSZ10010:V1$"MST001":BT$"BUSINESS":PD$"THE MASTER MENU":TD1:TF$"DLXX00":E0:3120:(PF$,11,W)"B"PD$"DAKIN5 SMALL BUSINESS SYSTEM":W:2550)(PF$,11,W)"Y"PD$"APPLE GENERAL BUSINESSS SYSTEM":W:2550)E48010:6201500":3120:E10610:10410:W:BF2550:50310:62020(3000:D$"OPEN DLXX00,D1,V0":D$"WRITE DLXX00":PF$(SD$,2)(SD$,2)(SD$,4,2):D$"CLOSE DLXX00"::")2:2550:4590:1008,1:PF$"CA00AC":PF5:TR20:3035:3060:3085:3000:BT$"CA03ST":D$"RUN"0:RE1:G$;:PF$"":4690:V1$"SYS021":BT$"SY05AF":PD$"DISKETTE RESTORE":62010'2:2550:50210:RE1:G$;:4690:V1$"SYS021":BT$"SY05AF":PD$"DISKETTE BACKUP":620104F(V1$"SYS021":BT$"CA01AC":PD$"DEPRECIATION PLANNER STARTUP":BF0:TD1:TF$"DLXX:33,38:1'PD$"DEPRECIATION PLANNER":W:2550I'50010:TF$"":3020T$'10020~'TFZ:TD2:3010:TR18:3035:PF3:PF$"SYS021":3060:PF4:PF$"3":3060:PF5:PF$"CA00AC":3060:3085:TR19:3035:PF3:PF$"BKD021DAT021":3060P'3085:2:2550:5011:G$;:T$UD$(" DATE OUT OF RANGE DATE IS INVALID",W18(ER2),18):242ME:PLZ:2235:RD$TX$:PV:4770 $::MEW:W:2:(ST$ST$ST$ST$,38):T223:T:W:"*";:40:"*";:T:24:2:(ST$ST$ST$ST$,38);:T$S$T$S$:W:W((33)(T$))2:T$;:32,WM((TX$,W,2)):YD((TX$,4,2)):YY((TX$,7,2)):(YDWYMWYM12YY00)60:T(YM4YM6YM9YM11):(YD(28(YM2YY(YY4)4)(YM2)(2T)))60:ERW:(PF$,W,4(MD$""))(MD$,4)60:ERZ:iPL8:PTZ:2250:E60:VPV:PHSH:TX$PF$:4720:ER60G$;:2235bRPLZ:PTZ:T$"PRESS 'RETURN' KEY TO CONTINUE":PSW:THZ:23:2250:21:2550:2288:pER2:(((TX$)8)((TX$,3,W)"/")((TX$,6,W)"/"))60:PF$(TX$,7,2)(TX$,W,2)(TX$,4,2):TW(PF$):R((PF$,T,W))48:((RZ)(R9))60T:Y:4565:#12:PLZ:2235:4565:2550:T$(SGSX)" ITEMS ARE BEING SORTED":8:PLZ:2235:T$(SG)" ACTIVE "(SX)" REMOVED":4570:2550:T$"YOUR APPLE IS NOW COMPUTING":4570: 2:2550:T$"COMPUTING COMPLETED":4580: H2285:22:$:SDW:3110:RER:ERZ45 TDWVL$V2$:SD2:3110c: BFW:RER2550:10:RVL$V1$:SDW:3100? ERVL$V2$:104R:SD2:3100D RERİ4690:E3120I IW2000::10:PLZ:2235:12:12::"DO";:15:"NOT";:19:"INTERRUPT"::3000VL$:PLZ:2235:(37)2(RER):T$"IN DRIVE "(SD):2235:& 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"READ"TF$:PF$:TD$(PF$,14,2)"/"(PF$,16,2)"/"(PF$,12,2):PF$(PF$,11):ER((PF$,W,(VL$))VL$)+ D$"CLOSE"TF$::0 RZ:TD2VL$V1SP$SP$,TF%(TF,PF,W))o TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)): TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W) 3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:3010 = T$"INSERT THE DISKETTE MARKED "TF$(TF,W)T$:TF%(TF,Z,2)TR:t TTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TZ2020:SPT2005: TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) TPF$(Z$PF$,TF%(TF,PF,W)) TPF$(PF$T$"** "PD$" **":PLZ:2235:MEZ:BF1:8 W:958:X 34,Z:35,Z:33,W:32,Z::y TF$TF$(TF,Z):TLTF%(TF,Z,W) 3000:D$"OPEN"TF$",D"TD",V0,L"TL::  3000:D$"CLOSE"TF$:: TF$TF$(TF,Z):ERZ:3000:D$"READ"TF$",R"TR:T$:D$::F$RD$:SIZ:2085 QT%PT:QL%PL:QE%PE:QN%PN:QS%PS:QC%PC:QV%PV:QX%TH:QH%PH:QD$PF$:PTZ:PI$"":PLZ:PEZ:PNZ:PSW:PCW: PTQT%:PLQL%:PEQE%:PNQN%:PSQS%:PCQC%:THQX%:PHQH%:RD$QD$:QV%(QV%Z):  G$;:TW50::G$;:) (37)Zė:W:SHPH(PHZ):SNPTWPT2PT4:PLPL(PT3)(PM$)(PT4)PC(PT3):TLPL(PTW):PNPN(PLZ):(T$)PTH:W(THZ)2235,2240:THP:THZSH(36)WPSSH(36)WPS SN(PF$,W)S$İ2005:RD$PF$ SL(RD$):SH:RD$;(P$,W,TLSL);:868:PZ:SZ::PU/(((IA$(2),W,2))(((AC$(Z),11,2))W)((IA$(2),W,2))(((AC$(Z),15,2))W)ı/(((IA$(2),W,2))(((AC$(Z),19,2))W)((IA$(2),W,2))(((AC$(Z),23,2))W)ı/(T$"ACQ/SERVICE DATE NOT WITHIN ACRS TABLES"0(G$;:PLZ:24:2235:ERW::1506$(PF):3060::WRW:3085:IX$(TR)T$:.<(PM$("0",W,((PM$)W))PM$:PI$("X2212312345",1(PM$),(PM$)2)(",3",1,2((PM$)5))".2":PS((PI$)2)W:PHPH(10(PM$)):/(((IA$(2),W,2))(((AC$(Z),3,2))W)((IA$(2),W,2))(((AC$(Z),7,2))W)ı3035:PFW10:PF$I$(PF):3060::WRW:3085:IX$(Z)T$:10260:-'TFW:TRMN:T$IX$(TR):TF$(TF,W)T$:TF%(TF,Z,2)TR:PFW8:3050:IA$(PF)PF$::CO$IA$(3):CS$IA$(4):LF$IA$(7):LR$LF$:AD$"0":DT(IA$(6)):FP$IA$(8):%.(TFW:TRMN:3035:PFW8:PF$IA:F6Z:+,`'IA$(2)""(IA$(2))ZDA$"":g,j'DA$(IA$(2),3,2)"/"(IA$(2),5,2)"/"(IA$(2),W,2):,'TFZ:TRZ:F0Z:JZ:T$IX$(Z):TF$(TF,W)T$:TF%(TF,Z,2)TR:PFW10:3050:I$(PF)PF$:I$(PF)"0"F0F0W:MNPF,'J(I$(PF))J:PF:?-'TFZ:TRZ:,5,4: 2,11,10,9,8,7,6,6,6,6,5,5,5,5,5,4: 1,12,10,9,8,7,6,6,6,5,5,5,5,5,5,5+$'AY$"":KW10:IA$(K)""::DT$"":CPZ:XR$"0":XD$"0":XF$"0":XY$"0":LF$"0":CO$"0":CS$"0":AD$"0":FP$"0":AF$"0":AFZ:A1$"":A2$"":A3$"":,L'F0Z:F2Z:F3Z:F4Z:F5Z: 09,11,9,8,7,6,6,6,6,6,5,5,5,5,5,1* 8,11,10,8,7,7,6,6,5,5,5,5,5,5,5,2: 7,11,10,8,7,7,6,6,6,5,5,5,5,5,5,2: 6,11,10,9,8,7,6,5,5,5,5,5,5,5,5,3: 5,11,10,9,8,7,6,6,5,5,5,5,5,5,5,3L+ 4,11,10,9,8,7,6,6,5,5,5,5,5,5,5,4: 3,11,10,9,8,7,6,6,6,5,5,5,5,5FM%G1))TFM%G1G4FM%G1B)^:A51G41:A6116:A7:A6,A5)rA5:TX$"100000000":TY$CO$:Z13:4500:TX$(A5):TY$TS$:Z13:4500:5230$* 12,10,9,8,7,6,6,6,6,5,5,5,5,5,5,0: 11,10,9,8,7,6,6,6,6,6,5,5,5,5,5,0: 10,11,9,8,7,6,6,6,6,5,5,5,5,5,5,1"2":4500:LR$((LR$)W):5230Z(I((IA$(7))W)TX$CO$:TY$AD$:Z12:4500:AY$TS$:(TX$CO$:TY$"10000000000":Z13:4500:TX$TS$:TY$LF$:Z14:4500:5230(,I16770)6G1((IA$(2),5,2)):G1G1(G215):G1G1(G113)(G113):FM%G1G412((TBW)8)((1((LF$)3))(3((LF$)5))(5((LF$)10))(7((LF$)15))):TX$(AC$((LF$)(LR$)W),CL,2):TY$"100000000":Z13:4500:TX$CO$:TY$TS$:4500:5230 ((LR$)(LF$)TX$CO$:TY$"10000000000":Z13:4500:TX$TS$:TY$LF$:Z14:4500:TX$TS$:TY$,2))(((AC$(Z),11,2))W)((IA$(2),W,2))(((AC$(Z),15,2))W)TB2&x((IA$(2),W,2))(((AC$(Z),19,2))W)((IA$(2),W,2))(((AC$(Z),23,2))W)TB3&TBZT$"ACQ/SERVICE DATE NOT WITHIN ACRS TABLES":G$;:PLZ:24:2235:ERW::20780'CL((SP$" ",1,20(AD$))AD$:TS$" 12":35840:CO$,FP$,AD$,LF$,TS$,5:LF$((LF$)12):4530:AY$TS$:TS$AD$:4530:AD$TS$:%dTBZ:CLZ:((IA$(2),W,2))(((AC$(Z),3,2))W)((IA$(2),W,2))(((AC$(Z),7,2))W)TBWF&n((IA$(2),W:** CA06AC - ASSET MASTER REPORTSM*** COPYRIGHT 1981, DAKIN5 CORPORATION-38210)\EL3110ERW:3115)pSP3710::T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:62990"*PN$"CA05AC,D1":TF$"":3025:12:T$"YOUR PROGRAM IS NOW BEING LOADED":PLZ:2235:D$"RUN"PN$:2:3035:3050:NA(PF$):TF2:3010:38010(3000:D$"READ"TF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::(3000::60950(HEC(222):EL(218)(219)256:768:EC255ĢW:D$)REL60950ĉ:VEZ:3050:VR%(PF$):TR13:PF4:3035:3050:S%(PF$):TR14:3035:3050:P9%(PF$):TR15:3035:3050:PG%(PF$):TR16:3035:3050:VB(PF$):TR20:PF3:3035:3050:CN$PF$)(TRZ:PF5:3035:3050:MD$(PF$,3,2)"/"(PF$,5,2)"/"(PF$,W,2):TFW:3010:TRZ:PF"":3025:TF%(2,20,2),TF$(2,2),IA$(21):TF$"DLXX00":SDW:3110:2:2550:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:PLZ:2235:TF$"DMCA01":TL350:TD2:3015:TFZ2:TRTF:59900::3025'TFZ:3010:PF4:TRW:3035:3050:VL%(PF$):TR12:3035:PF5:0:MS20000,20000,62990:MEW:RD$"":38010%h1008,0:W1:Z0:2286:D$(13)(4):G$(7):ST$"**********":WRW:S$" ":SP$" ":P$"..............................":Z$"0000000000000":US$"---------------":QE$"===============":61000&TF$:PHZ:PT4:PM$(3VE):PNW:PEW:2250::PNZ:PEZ:ERV3T$RV4VEZ:W:4660:n$.VEPGW:3750:60950*%BMSRV:MEZ:PD$("ASSET INVENTORY LISTCHANGED ASSETS ONLY LISTASSET MASTER",(MSW)21(MS2)45(MS3),20(MSW)24(MS2)12(MS3)):W:2554900:N7:TH5:AFZ:RFZ:CFZ:CZ:N:TH:"1. ASSET INVENTORY LIST":N3:TH:"2. CHANGED ASSETS ONLY LIST":N6:TH:"3. RETURN TO ASSET MASTER MENU":VEĢN9:TH:"4. CONTINUE PROCESSING":$蔰2325:2286:SHZ:22:TH8:T$"ENTER YOUR SELECTION ->":PSW0\"NPGW:3750:PGZ:TFZ:TR12:3035:PF4:PF$"1":3060:3085:MS2TR3:3035:3060:3085b"N"P195(MS3))"NO ASSETS ADDED";(", CHANGED OR RETIRED OR CHANGED",W20(MS3),2020(MS3))" FOR THE CURRENT PERIOD":#zT$"ASSET MASTER REPORTS":AZ20163:LWNA:10800:NPFB20160:F$"":IA$(12)"F"F$"*"!N3795:6(MSW))IA$(W)3)IA$(4)2)IA$(12)F$2(F$))IA$(2)2)IA$(3)W)A2$4(DMZ));:(IA$(5)SP$,5);4);(IA$(6)SP$,5);4);(IA$(7)SP$,5);2);A3$:CW:3710"N:Cİ3795:20500:371"CHANGE":CH$"TYPE":BU$"-------" 4N2:QD$"":4650:E60:10020:2:2550:4660:SPW:T$"01512.1":VT$"ASSET INVENTORY LIST ":V3$"FOR THE MONTH ENDING "MD$:FBZ:MS2FBW:VT$"CHANGED ASSETS ONLY LIST":T$"01502.1"?!pN3850:3795:NAZ20500:3710:N*TFW:TRL:3035:A$T$:10180:DM(IA$(13)):MS360:DM5DM4}X*A2$("ASASACDSDSDBSYSLN/A",W(8DM)2,2(DMZ)):10720: NNAZĢ2:2550:10:T$"NO ACTIVE ASSETS":2235:12:T$"FOR THE CURRENT PERIOD":2235:4690! *NBH$"":CH$"":BU$"":MS2BH$S3AS)60:TF2:TR((A$,7,3)):IA$(W)(A$,6):3035:PFW20:3050:(PF3PF7)(PF$"0"PF$"")PF$" "(IA$(PFW)PF$::)MSWA3$"":)FB(ASW)(DT5)NPW:)DT5NPZ:A3$"RETIRED":)A3$("CHANGEDADDED",W(2AS)7,7):?0:40:"*";:T:24:2:(ST$ST$ST$ST$,38);:T$S$T$" MENU ":W:W((33)(T$))2:T$;:32,W:33,38:$'K220:IA$(K)""::A1$"":A2$"":A3$"":AY$"":n'DT((A$,10,W)):AS(DT73)(DT82):DTDT64(9AS):DTDT(DTZ):NP(ASZ):(NPFB(DT5))(M690:G42550:T$"YOUR REPORT IS NOW BEING PREPARED":12:PLZ:2235:`H2285:22:G$;:2235RPLZ:PTZ:T$"PRESS 'RETURN' KEY TO CONTINUE":PSW:TH5:23:MEW:2250:MEZ:21:2550:2288:h$::MEW:W:2:(ST$ST$ST$ST$,38):T223:T:W:"*";SP(V3$))2((VR%))8):V3$"VERSION "(VR%)(SP$SP$SP$,W,TL)V3$:((V3$)TL((4056SP(V3$))2):V3$(SP$SP$SP$,W,TL)V3$:-VR%V3$"VERSION "(VR%):2*2550:2325:12:T$"TURN ON THE PRINTER AND ALIGN PAPER":PLZ:2235:4))2)(T$):VC$T$(SP$SP$SP$,W,TL)VC$:TLT(VC$)13:VC$VC$(SP$SP$SP$,W,TL)"DATE "TD$JT$"VOLUME "(VL%):TL((T(VT$))2)(T$):VT$T$(SP$SP$SP$,W,TL)VT$:TLT(VT$)76SP:VT$VT$(SP$SP$SP$,W,TL)"PAGE ":VR%(V3$)TL((40563750:VNVNW:VCZ:3730:VE60:3765:>VCVPVDİ3765:J3775: V$((10),W,SP):VF2046SP:T4056SP:VDVF10SP:VCVF:VNZ:VPW:VC$(CN$,W,(CN$)VB):SPVBāTLW(CN$)W:VC$VC$(CN$,TL,W)S$::VC$VC$(CN$,W)aSPTL((T(VC$:3650:3710:'SP3700:SPĖW:VCFSPPGVS13166(PG%)VCkVSZVCVCW:V$;:VSVSW:3755SPPGVCZ:" "3710:PGZ:VCVCW:SP3700:SPĖW:VCVPW:SPVEVNZİ4690:VEE:VE38010SPė'VSVFVC:SPQW(54):QX(55):QY(56):QZ(57):Z:Z:36,Z:S%:P9%Wĺ(9)"255N";M{q~SPĹ54,QW:55,QX:56,QY:57,QZPGVE(((16384)155)0):VEVCVC(VFVC)SP:38010SPİ3700:V$;:VC$VT$;VN:SP3675:V$;:SPĺV$;VCVC23SPNUMBER LOC TYP DESCRIPTION SERIAL NUMBER MTH ACCOUNT ACCOUNT ACCOUNT "CH$H6(MSW))"------ --- --- -------------------- --------------- --- ------- ------- ------- "BU$:V$;:V$;:VCVC4:[(V3$)ĺV3$:VCVCW:`Gt    DW:3110:RER:ERZ15 TDWVL$V2$:SD2:3110]: 2:RER2550:10:RVL$V1$:SDW:3100? ERVL$V2$:104R:SD2:3100D RERİ2285:4690:E3120I [B6(MSW))" TAG"8)"DPR"39)"DPR"3)"ASSET"3)"ACC DPR"2)"DPR EXP "BH$:6(MSW))":PLZ:2235:(37)2(RER):T$"IN DRIVE "(SD):2235:& 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"READ"TF$:PF$:TD$(PF$,14,2)"/"(PF$,16,2)"/"(PF$,12,2):PF$(PF$,11):ER((PF$,W,(VL$))VL$)+ D$"CLOSE"TF$::0 RZ:TD2VL$V1$:S$SP$SP$,TF%(TF,PF,W))p TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)): TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W):3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:3010 : T$"INSERT THE DISKETTE MARKED "VL$:TF$(TF,W)T$:TF%(TF,Z,2)TR:u TTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TZ2020:SPT2005: TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) TPF$(Z$PF$,TF%(TF,PF,W)) TPF$(PF (37)ZMEZ::T$"** "PD$" **":PLZ:2235:? W:958:_ 34,Z:35,Z:33,W:32,Z:: TF$TF$(TF,Z):TLTF%(TF,Z,W) 3000:D$"OPEN"TF$",D"TD",V0,L"TL:: 3000:D$"CLOSE"TF$:: TF$TF$(TF,Z):ERZ:3000:D$"READ"TF$",R"TR:T$:D$:PS:QC%PC:QV%PV:QX%TH:QH%PH:QD$PF$:RD$"":QI$PI$:QP%SNaPTZ:PLZ:PEZ:PNZ:PSW:PCW:PTQT%:PLQL%:TLQM%:SLQD%:PEQE%:PNQN%:PSQS%:PCQC%:THQX%:PHQH%:SHPH:RD$QD$:QV%(QV%Z):PVQV%:PI$QI$:SNQP%: G$;:TW50::G$;:TZ:0PN(PLZ):(T$)PTH:W(THZ)2235,2240:THP:THZSH(36)WPSPH(36)WPS:SHPHzSN(PF$,W)S$İ2005:RD$PF$SL(RD$):SHPS:868:SH:RD$;(P$,W,TLSL);:PZ:SZ::PF$RD$:SIZ:RVZ:2085=QT%PT:QL%PL:QM%TL:QD%SL:QE%PE:QN%PN:QS%L:PLZ:QX%TH:THZ:2235:PV:SH:ERW:PLQL%:PZ:THQX%FG$;:2085lTH((33)2PLPS(PLZ)(T$))2~PXĖW:868TH:T$;:T$"":W16368,Z:PV(37)W:SHPH(PHZ):SNPTWPT2PT4:PLPL(PT3)(PM$)(PT4)PC(PT3):TLPL(PTW):PNF$):RD$PF$:ME2228:PT3āTW(RT$)PC:T$T$(RT$,T,PC)" "::T$"A VALID RESPONSE IS: "T$:PW PT4RVZT$"THIS RESPONSE CANNOT EXCEED "PM$:PW PĖSH:("0"P$,2SN,PL);:T$"THIS RESPONSE CANNOT BE "("BLANKZERO",W5SN,5)724:QL%PF$,W,(PF$)S):P(T$):T$("00",W(PW),2(P2))T$:P(T$):R$(SP$,W,PLWP(P5))(T$,W,(P5)(P5))(",",W,P5)(T$,W(P5)(P5),(P2)(P2)(P5)(P5))"."(T$,2)("-",W,S) SPPEĖSHPS:868:SHPL(R$)S:R$ c SIZ:PZ:SL(P))PC:TT40P::T(PF$"Y")g aPN(SNRVPSI)(PT4RV(PM$))2221:S(PF$,W)"-":PEĖW:868: pPTZPT3ĖSHP:868: rFZ(PTWPT2PT4)ĖSH:868:SHPLSP:PF$;: uSN(PF$,W)"0"2020:PF$"-"PF$"0" S(PF$,W)"-":T$(PTWĴR45P2228:SR45:PPLS2228C CSNSĴ(R47R58)2228j HPF$(PF$,W,P)R$:PPW:R$;:2085 RPPF$RD$:PSL:SLSNPF$"0":PW WER27:PF$(PF$,W,P(ESI)):RD$"":E60:RV((PF$,W,P)):PT3PNW:TW(RT$)PC:P(PF$(RT$,T,PC8 %SHP:R$:R$""2228:ERERZ:24:W:868:PV:SH *R(R$):R13R27RE2130:R242270:R8PPPW:SHP:(RD$,WP,W)(".",W,PSL)R$;:SZ:SIZ:2085 4R21PSLR$(RD$,WP,W):R(R$)% 9R31SR44R58PTLSI2228:SIPR32PT:PN",** COPYRIGHT 1981, DAKIN5 CORPORATION7240040=<P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)): PF$(PF$,P):P(PF$):             R$,TS$,3:LR$(((LR$)12)12):4530:AY$TS$:$LR$((LR$)12):LR$(SP$" ",1,20(LR$))LR$:AD$(SP$" ",1,20(AD$))AD$:TS$" 1323":35840:CO$,CS$,AD$,LR$,TS$,4:LR$(((LR$)12)12):4530:AY$TS$:%PLF$((LF$)12):AD$$" MENU ":W:W((33)(T$))2:T$;:32,W:33,38:u#nTX$TS$:TY$"5000000000":Z1W:4500:AY$(TS$,W,(TS$)10):.$LR$((LR$)12):LR$(SP$" ",1,20(LR$))LR$:AD$(SP$" ",1,20(AD$))AD$:TS$" 6":35840:CO$,CS$,AD$,LE60:TX$PF$:VPV:PHSH:4720:ER60:G$;:T$UD$(" DATE OUT OF RANGE DATE IS INVALID",W18(ER2),18):242ME:PLZ:2235:RD$TX$:PV:47704#$::MEW:W:2:(ST$ST$ST$ST$,38):T223:T:W:"*";:40:"*";:T:24:2:(ST$ST$ST$ST$,38);:T$S$TX$,W,2)(TX$,4,2):TW(PF$):R((PF$,T,W))48:((RZ)(R9))60!T:YM((TX$,W,2)):YD((TX$,4,2)):YY((TX$,7,2)):(YDWYMWYM12YY00)60:T(YM4YM6YM9YM11):(YD(28(YM2YY(YY4)4)(YM2)(2T)))60:ERZ:"PL8:PTZ:2250:PTZ:RD$"":T$"PRESS 'RETURN' KEY TO CONTINUE":PSW:THZ:23:2250:21:2550:2288: \2285:T$"IS THIS ENTRY CORRECT?":PSW:PT3:RT$"YN":PEW:THZ:23:MEW:2250:MEZ:C!pER2:(((TX$)8)((TX$,3,W)"/")((TX$,6,W)"/"))60:PF$(TX$,7,2)(TTL:(TS$,T,W)S$ĂT@TS$(TS$,T(T(TS$))):TTLTTL:TF*2550:2325:12:T$"TURN ON THE PRINTER AND ALIGN PAPER":PLZ:2235:4690:42550:T$"YOUR REPORT IS NOW BEING PREPARED":12:PLZ:2235:H2285:22:G$;:PLZ:2235U RPLZ:)TL((4056SP(V3$))2):V3$(SP$SP$SP$,W,TL)V3$:Z-VR%V3$"VERSION "(VR%):`2v(TX$)ZTX$" "(TY$)ZTY$"0":Z14TS$"0":TS$" 2":("36"("864877890903",W(Z1W)3,3)):TX$TY$TS$TL(TS$):TW"":V3$"":T$"VOLUME "(VL%):TL((T(VT$))2)(T$):VT$T$(SP$SP$SP$,W,TL)VT$:TLT(VT$)76SP:VT$VT$(SP$SP$SP$,W,TL)"PAGE ":VR%(V3$)TL((4056SP(V3$))2((VR%))8):V3$"VERSION "(VR%)(SP$SP$SP$,W,TL)V3$:9((V3$B):SPVBāTLW(CN$)W:VC$VC$(CN$,TL,W)S$::VC$VC$(CN$,W)SPTL((T(VC$))2)(T$):VC$T$(SP$SP$SP$,W,TL)VC$:TLT(VC$)13:VC$VC$(SP$SP$SP$,W,TL)"DATE "TD$ SPVT$" "VT$:TL(33(VT$)):VT$VT$(SP$SP$,TL)"PAGE ":VC$ VPW:1SPVEVNZİ4690:VEE:VE38010ASPė:VEZVSVFVC:SP3750:VNVNW:VCZ:3730:VESP3775:3765:VCVPVDİ3765:3775:B V$((10),W,SP):VF2046SP:T4056SP:VDVF10SP:VCVF:VNZ:VPW:VC$(CN$,W,(CN$)VSPİ3700:V$;:VC$<VT$;VN:SP3675:V$;:SPĺV$;[VCVC23SP:3650:3710:tSP3700:SPĖW:VCSPPGVS13166(PG%)VCVSZVCVCW:V$;:VSVSW:3755SPPGVCZ:" "3710:PGZ:VCVCW:SP3700:SPĖW:VC)":3670%Z27:"(ACRS S.L.)":3670+[H^27:"(ACRS R.E.)":3670tQW(54):QX(55):QY(56):QZ(57):Z:Z:36,Z:S%:P9%Wĺ(9)"255N";{~SPĹ54,QW:55,QX:56,QY:57,QZPGVE(((16384)155)Z):VEVCVC(VFVC)SP:38010T LN)":3670,S26:"(SUM OF YEARS)":3670KT26:"(DCL BALANCE)":3670eU26:"(D.B. TO S.L.)"V5:10:"--ACCUMULATED DEPRECIATION--":6:4:"YEAR";:16:"YEAR";:31:"LIFE":7:4:"---- ------------- -------------":VC8:Y27:"(ACRS STD.6);"USED METHOD PRC YRS"O"--- -------------------- -------- ------------ ------------ ---- -------- --- ----";:V$:VCVC4:Q3:12((IA$(W))2)1:"( ";IA$(W);" )";:DT3666,3667,3668,3669,60,3673,3674,3678 R26:"(STRAIGH          "U"AD$(16)(DU%)_7B14:RD$(AD$(7),3,2)"/"(AD$(7),2)"/"(AD$(7),2):AD$(7)""RD$""7BPH32:4770:E38005:AD$(7)PF$:AI$(4)(64((AD$(7),3,2))(((AD$(7),5,2))15)):AI$(4)"M"AI$(4)"A"F8B15:25:868:RD$AD$(8):PH30:PNW:PT2:PL1"S"AS0((((EY$,2,2))W(12(((EY$,2,2)))11))((MD$,2,2)))Ģ24:3:"ONLY ALLOWED DURING 1ST FISCAL MONTH"G$;:171257BAD$(11)PF$:10510:22:"("A3$")":12:PCW:RT$"NU":RD$AD$(10):PH20:PT3:2250:E38005:AD$(10)PF$:AD$(16)(DN%):AD$(10)38005:AD$(W)PF$:8:RD$AD$(2):PH20:PNZ:PL15:PTZ:2250:E38005:AD$(2)PF$:9:RD$AD$(3):PH20:PNZ:PTZ:PL2:2250:E38005:AD$(3)PF$:RD$AD$(11)~6B11:PCW:RT$("DEFNSR",5(MS2)):PH20:PT3:ERW:2250:ERZ:E38005:RD$PF$:MS2PF$"S"AD$(11)5:MS3Ģ17:25:868:SH30:PL10:PF$AD$(14):2175v4>MS3Ģ18:35:868:AD$(4):N18:PF$AD$(4):A6W:A710:10560|4?4rBT$"":5:RD$AI$(W):PH20:PNW:PTZ:PL6:ERW:2250:ERZ:E38005:AI$(W)PF$:5B7:RD$AD$(W):PH20:PNW:PTZ:PL20:2250:E20:868:AD$(11);:10510:22:"("A3$")":MS3Ģ12:19:868:10460:A2$A1$n3>MS3Ģ12:20:868:AD$(10)34>14:32:868:(AD$(7),3,2)"/"(AD$(7),2)"/"(AD$(7),2):15:25:868:SH30:PF$AD$(8):PL10:2175:16:25:868:SH30:PF$AD$(9):PL10:217IATED":16:3:"6. ACCUM DEPR - LTD":AD$(11)"E"Ģ17:3:"7. ACCUM DEPR - YTD"2y;AD$(12)"3"AD$(12)"4"AD$(12)"5"Ģ18:3:"8. PERCENTAGE RATE"2~;2>5:20:868:AI$(W)L3>7:20:868:AD$(W):8:20:868:AD$(2):9:20:868:AD$(3):11:2235:G$1:1;2:2550:3:6:"TAG NUMBER "AI$(W):4:6:"DESCRIPTION "AD$(W):6:3:"1. G/L ACCUM DEPR ACCOUNT NO":9:3:"2. G/L DEPR EXPENSE ACCOUNT NO":DT260:12:3:"3. DEPR METHOD"R2L;13:3:"4. LIFE (YRS)":14:3:"5. MONTHS DEPRECE AMOUNT";:868:MS3Ģ17:2:"10. ACCUM DEPR - LTD";:8680:MS3Ģ18:2:"10. G/L FIXED ASSET ACCOUNT NO";:868:19:W:8681:23:W:868:MSWAD$(W)""PLZ:T$"ENTRIES AVAILABLE "(750(NACT)):2235:(NACT)750PLZ:T$"DISK FULL":22: NO";:868:9:3:"4. LOCATION";:868:11:3:"5. DEPR TYPE";:868:MS3Ģ12:3:"6. DEPR METHOD";:868/:MS3Ģ12:3:"6. NEW OR USED";:868=0:14:3:"7. ACQ/SERVICE DATE";:868:15:3:"8. ACQUISITION AMOUNT";:868:16:3:"9. SALVAG13:12:"MUST BE AFTER 1980":G$;:4690:~.32:2550:11:13:"ACQ/SERVICE DATE":13:11:"MUST BE BEFORE 1981":G$;:4690:.6AD$(5)"":AD$(6)"".7I1220:AD$(I)""::n/:5:3:"1. TAG NUMBER":7:3:"2. DESCRIPTION";:868:8:3:"3. SERIAL0000000":Z13:4500:TX$AD$(17):TY$TS$:Z12:4500:TX$TS$:TY$MR$:Z14:4500:TX$TS$:TY$"12":Z13:4500:5230:AD$(17)AY$:-632:2550:11:13:"ACQ/SERVICE DATE":13:10:"NOT WITHIN ACRS TABLES":G$;:4690:).32:2550:11:13:"ACQ/SERVICE DATE":(((EY$,3,2))((MD$,3,2)))),/MR$((MR$)(((AD$(7),2))15)):MR$((MR$)(12((MR$)0))):(AD$(20))12(MR$)TX$TS$:TY$"2":Z14:4500,/(AD$(20))(AD$(13))12AD$(12)"8":TX$TS$:TY$"2":Z14:4500}-/AD$(17)TS$:TX$AD$(15):TY$"1000(AD$(13)"15")):TX$(AC$(((AD$(20))12)W),CL,2):TY$"100000000":Z13:4500:TX$TS$:TY$AD$(8):Z13:4500:5230:AD$(17)AY$,/AD$(12)"7"60:TX$AD$(8):TY$"10000000000":Z13:4500:TX$TS$:TY$AD$(13):Z14:4500:MR$(W12(((EY$,2))((MD$,2)))AD$(9):AD$AD$(14):LR$(((AD$(13))12)(AD$(20))):5370:AD$(17)AY$*/AD$(12)"3"AD$(12)"4"CO$AD$(8):AD$AD$(14):FP$AD$(16):LF$((AD$(13))12):5480:AD$(17)AY$+/AD$(12)"6"CL((TBW)8)(1(AD$(13)"3")3(AD$(13)"5")5(AD$(13)"10")7((AD$(7),2))81TX$AD$(8):TY$AD$(9):Z12:4500:AD$(17)TS$:l)/DT2((AD$(7),2))80AD$(17)AD$(8):)X/AD$(12)"1"AD$(12)"5"CO$AD$(8):CS$AD$(9):AD$AD$(14):LR$(((AD$(13))12)(AD$(20))):5280:AD$(17)AY$F*l/AD$(12)"2"CO$AD$(8):CS$:2286:PL6:PTZ:PH30:TH6:T$"ENTER TAG NUMBER, OR ":RD$"":2250:E(JNA)60:PF$""N6:6:2550~(*PF$""AI$(W)PF$(*(+10175:N:6:(S$(Z),6);:17:AD$(W):17:AD$(2):NN3:FFW:(.DT112120:DT3DT5DT6AD$(17)"":?).DT2FW:TRJ:3035:S$(Z)T$:SV$(S$(Z),W,ML)İ11010:PF$"":N2110975:EPF$""60:N(6(N21))(N(N21))'*JJNA(FFW(SV$(S$(Z),W,ML))):'*FFZĢ12:T$"ASSET DOES NOT EXIST":PLZ:G$;:2235:4690:f(*23:6:"PRESS RETURN TO CONTINUE":22 DISPLAY":PLZ:2235:4690:60&*CT10971:INSWNSCT:S$(Z)S$(I):AI$(W)(S$(I),W,ML)11010:N21INSCT10970:PF$"":N2110975:EPF$""60:N(6(N21))(N(N21))&*:NA10974l'*SV$(AI$(W)SP$,W,ML):4150:SR10974:FFZ:JARNA:T4ĢW:PD$"TAG NUMBER VERIFICATION":2550P%]*MS4PD$"DISPLAY ASSET":W:2550&b*3:6:"TAG NO DESCRIPTION/SERIAL NO":4:6:"------ ---------------------":MS460:FFZ:FTW:N6:ML(AI$(W))W:AI$(W)(AI$(W),2,ML):NACTWĢ12:T$"NO ASSETS TOO$:*QZ:INSWNSCT:SR(SV$(S$(I),6)):QQW:SRS$(Z)S$(I):ARNAQ:INSCTf$D*:Q(QSR)(NSSR)$I*SRĴ(MS2)(MS3)60:T$"TAG NUMBER ALREADY EXISTS":PLZ:24:2235:G$;:$N*MSW60:T$"TAG NUMBER DOES NOT EXIST":PLZ:24:2235:G$;:)%X*MS235:106308#t)FGW:KA6A7:PF$GL$(K,Z)FGZ:JK:KA7#z):FGT$"G/L "A6$"ACCT NO OUT OF RANGE":24:PLZ:2235:G$;:FGW:10630#|)FGZĢNW:7:"("GL$(J,W)")"#)#*24:W:868:SNNA:ML6:QZ:SV$(AI$(W)SP$,ML):NA10810:4150:SR10825(11)"R")6(AD$(11)"S"):A3$("DEPRECIABLEEXPENSEDFULLY DEPRNON-DEPRRETIREDSTOP DEPR",((" 011220303845",DT2W,2)),((" 110810080709",DT2W,2))):"@)FGW:KZ31:PF$GL$(K,Z)FGZ:JK:K31 #^):FGT$"INVALID G/L "A6$"ACCOUNT NO":24:PLZ:2S DIGITSDECLINING BALANCED.B. TO S.L.ACRS STD.ACRS S.L.",(("010114314848606969",(AD$(12))2W,2)),(("001317171212090909",(AD$(12))2W,2))):A1$""60:A1$" ("A1$")":")DTZ:DT(AD$(11)"D")2(AD$(11)"E")3(AD$(11)"F")4(AD$(11)"N")5(AD$PF4:PF$"0":3060:3085p }(AWZTFZ:I59:TRI:3035:PF4:PF$"0":3060:3085::TR3:3035:3060:3085:AWW{ (WRZ: (A2$("N/SLSYDBDSDSACASAS",(AD$(12))2W,2):A2$A2$("A",W,((AD$(12)))):AD$(12)""A2$""!(A1$("STRAIGHT LINESUM OF YR060:PF3:PF$AI$(3):3060:PF4:PF$AI$(4):3060:MSWS$(NSCT)TF$(W,W)e#(QZMSWS$(Q)TF$(W,W) 2(WRW:3085:TF2:TR(AI$(2)):3035:IW20:PFI:PF$AD$(I):3060:I:3085:VS%WVR%VR%(VR%999999)W:TR12:TFZ:3035:PF5:PF$(VR%):3060:VS%Z:"`•q•ʈ`)~)JJJJ) L`) ȱ)JJJJL>```hh``֕00000000000000000000000000000000000000000000000000000000000000000000000000000000a(ү׮)Mȩ0{DLd-) 00)JJJJ 0ʈLE-Ζ0 Ș͖`֕•|}~`A[L8`lk`ij Lm ̀ Lm| 8ؐ}L }آ}֕| PL8:PTZ:2250:E60:TX$PF$:4720:ER60:G$;:T$UD$(" DATE OUT OF RANGE DAT2285:T$"IS THIS ENTRY CORRECT?":PSW:PT3:RT$"YN":PEW:TH8:PHZ:23:2250:PNZ:PEZ:pER2:(((TX$)8)((TX$,3,W)"/")((TX$,6,W)"/"))60:PF$(TX$,7,2)(TX$,W,2)(TX$,4,2):TW(PF$):R((PF$,T,W))48:((RZ)(R9))60T:YM((TX$0:4565:y2550:T$(NACT)" ITEMS ARE BEING SORTED":8:PLZ:2235:T$(NACT)" ACTIVE "(DL)" REMOVED":4570:H2285:22:G$;:2235RRD$"":PLZ:PTZ:T$"PRESS 'RETURN' KEY TO CONTINUE":PSW:TH5:23:MEW:2250:MEZ:21:2550:2288:Y\uTS$" 0":("36"("864877890903",W(Z1W)3,3)):TX$TY$TS$:TL(TS$):TWTL:(TS$,T,W)S$ĂTTS$(TS$,T(T(TS$))):TTLTTL:TTW2000:: 10:PLZ:2235:12:12::"DO";:15:"NOT";:19:"INTERRUPT"::300X),W,6)SV$):S$(Z)S$(NS):ARNA(MLZ)(MLZ):DE(T)(FT)SRW:JTFW:TRAR((AR19)(NAAR19))(NA(NAAR19)):TTR:3035:SR((T$SP$,W,ML)SV$):TRTR(SR751)::S$(Z)T$:ART:T$"":(TX$)ZTX$" "(TY$)ZTY$"0":Z14TS$"0":104R:SD2:31000D RERİ2285:4690:E31206I 6SXWNS:T((S$(SX),W,ML)SV$):QSX((S$(SX),W,ML)SV$):SLSX:SXSXNST::AR(SL2019):ARAR20(AR20((S$(SL),W,ML)SV$ARNA)):FTARAR20(AR20((S$(SL),W,ML)SV$))/@TSR((S$(S ߅ ߠHh`8 AD"TF$:PF$:TD$(PF$,14,2)"/"(PF$,16,2)"/"(PF$,12,2):PF$(PF$,11):ER((PF$,W,(VL$))VL$)y+ D$"CLOSE"TF$::0 RZ:TD2VL$V1$:SDW:3110:RER:ER05 TDWVL$V2$:SD2:3110: 2:RER2550:10:RVL$V1$:SDW:3100? ERVL$V2$:b TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W):3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:3010h  T$"INSERT THE DISKETTE MARKED "VL$:PLZ:2235:(37)2(RER):T$"IN DRIVE "(SD):2235:c& 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"RE2005:^ TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) TPF$(Z$PF$,TF%(TF,PF,W)) TPF$(PF$SP$SP$,TF%(TF,PF,W)) TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)):(TF,Z):TLTF%(TF,Z,W)? 3000:D$"OPEN"TF$",D"TD",V0,L"TL::[ 3000:D$"CLOSE"TF$:: TF$TF$(TF,Z):ERZ:3000:D$"READ"TF$",R"TR:T$:D$::TF$(TF,W)T$:TF%(TF,Z,2)TR: TTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):W(TZ)2020,TQT%:PLQL%:TLQM%:SLQD%:PEQE%:PNQN%:PSQS%:PCQC%:THQX%:PHQH%:SHPH:RD$QD$:QV%(QV%Z):PVQV%:PI$QI$:SNQP%: G$;:TW50::G$;: (37)ZMEZ::T$"** "PD$" **":PLZ:2235: W:958: 34,Z:35,Z:33,W:32,Z:: TF$TF$$RD$:2005:RD$PF$gSL(RD$):SHPS:868:SH:RD$;(P$,W,TLSL);:PZ:SZ::PF$RD$:SIZ:RVZ:2085QT%PT:QL%PL:QM%TL:QD%SL:QE%PE:QN%PN:QS%PS:QC%PC:QV%PV:QX%TH:QH%PH:QD$PF$:RD$"":QI$PI$:QP%SNPTZ:PLZ:PEZ:PNZ:PSW:PCW:wPPXĖW:868$TH:T$;:T$"":16368,Z:PV(37)W:SHPH(PHZ):SNPTWPT2PT4:PLPL(PT3)(PM$)(PT4)PC(PT3):TLPL(PTW):PNPN(PLZ):(T$)PTH:W(THZ)2235,2240:THP:THZSH(36)WPSPH(36)WPS:SHPHSN(PF$,W)S$PFVZT$"THIS RESPONSE CANNOT EXCEED "PM$:PWPĖSH:("0"P$,2SN,PL);:T$"THIS RESPONSE CANNOT BE "("BLANKZERO",W5SN,5)24:QL%PL:PLZ:QX%TH:THZ:2235:PV:SH:ERW:PLQL%:PZ:THQX%G$;:2085TH((33)2PLPS(PLZ)(T$))2(S$,1(P5)(P5),(P2)(P2)(P5)(P5))"."(S$,2)("-",1,S):S$" "w SPPEĖSHPS:868:SHPL(R$)S:R$}  SIZ:PZ:SL(PF$):RD$PF$:ME2228:PT3āTW(RT$)PC:T$T$(RT$,T,PC)" "::T$"A VALID RESPONSE IS: "T$:PW-PT4RP:868:E r(PI$)(PTWPT2PT4)ĖSH:868:SHPLSP:PF$;:p uSN(PF$,W)"0"2020:PF$"-"PF$"0"J S(PF$,1)"-":S$(PF$,1,(PF$)S):P(S$):S$("00",1(P1),2(P2))S$:P(S$):R$(SP$,1,PL1P(P5))(S$,1,(P5)(P5))(",",1,P5)ESI)):RD$"":E60:RV((PF$,W,P)):PT3PNW:TW(RT$)PC:P(PF$(RT$,T,PC))PC:TT40P::T(PF$"Y") aPN(SNRVPSI)(PT4((Z$,W,PL(PF$))PF$)PM$)2221:S(PF$,W)"-":PEĖW:868: fS(PF$,W)"-":PEĖW:868: pPTZPT3ĖSHRD$,WP,W):R(R$)l 9R31SR44R58PTLSI2228:SIPR32PT:PTWĴR45P2228:SR45:PPLS2228 CSNSĴ(R47R58)2228 HPF$(PF$,W,P)R$:PPW:R$;:PT32030:2085 RPPF$RD$:PSL:SLSNPF$"0":PWn WER27:PF$(PF$,W,P():G TP(RT$)PC:XX((PF$,P,W)(RT$,T,W)):TT40XX::XX2221 %SHP:R$:R$""2228:ERERZ:24:W:868:PV:SH *R(R$):R13R27RE2130:R242270:R8PPPW:SHP:(RD$,WP,W)(".",W,PSL)R$;:SZ:SIZ:2085 4R21PSLR$(0Q/** COPYRIGHT 1981, DAKIN5 CORPORATION :240040@<P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)): PF$(PF$,P):P(PF$                   ! ! ! !          Ӱٱ2VL$V1$:SDW:3110:RER:ERZ= 5 TDWVL$V2$:SD2:3110i : 2:RER2555:10:RVL$V1$:SDW:3100 ? ERVL$V2$:104R:SD2:3100 D RERİ4690:E3120 I R23:5:"PRESS 'RETURN' KEY TO CONTINUE " T23:36:A$:A$(13)ĺG$:4692"VL$:PLZ:2235:(37)2(RER):T$"FROM YOUR APPLE GENERAL BUSINESS SYSTEM":2235:(37)2(RER):T$"IN DRIVE "(SD):2235: & 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"READ"TF$:PF$:ER((PF$,W,(VL$))VL$) + D$"CLOSE"TF$:: 0 RZ:TD,** COPYRIGHT 1981, DAKIN5 CORPORATION7240010kTH((33)2PLPS(PLZ)(T$))2:PXĖ2:868TH:T$;:T$"": ::PLZ:T$"** "PD$" **":PLZ:2235: W:958: 34,Z:35,Z:33,W:32,Z::  T$"INSERT THE DISKETTE MARKED        $:SNQP%:$ G$;:TW50::G$;:X (37)Zė:MEZ:T$"** "PD$" **":PLZ:2235:g W:958: 34,Z:35,Z:33,W:32,Z:: TF$TF$(TF,Z):TLTF%(TF,Z,W) 3000:D$"OPEN"TF$",D"TD",V0,L"TL:: 3000:D$"CLOSE"TF$::F TF$TF$(TF,Z)085]QT%PT:QL%PL:QN%PN:QS%PS:QC%PC:QV%PV:QH%PH:QX%TH:QD$PF$:QM%TL:QI$PI$:QP%SNPTZ:PI$"":PLZ:PEZ:PNZ:REZ:PSW:PCW:RD$"": PTQT%:PLQL%:TLQM%:PEQE%:PNQN%:PSQS%:PCQC%:PHQH%:SHPH:RD$QD$:THQX%:QV%(QV%Z):PVQV%:PI$QI2PT4:PLPL(PT3)(PM$)(PT4)PC(PT3):TLPL(PTW):PNPN(PLZ):(T$)PTH:W(THZ)2235,2240:THP:THZSH(36)WPSSH(36)WPSSN(PF$,W)S$İ2005:RD$PF$SL(RD$):SHPS:868:SH:RD$;(P$,W,TLSL);:PZ:SZ::PF$RD$:SIZ:RVZ:2WDPT$"THIS RESPONSE CANNOT BE "("BLANKZERO",W5SN,5):SLZ{24:QL%PL:PLZ:THZ:2235:PV:SH:ERW:PLQL%:PZG$;:2085TH((33)2PLPS(PLZ)(T$))2W:868:TH:T$;:T$"":16368,Z:PV(37)W:SHPH(PHZ):SNPTWPT)(P5))"."(PF$,2)("-",1,S)N SPPEĖSHPS:868:SHPL(R$)S:R$;T  SIZ:PZ:SL(PF$):RD$PF$:ME2228:PT3āTW(RT$)PC:T$T$(RT$,T,PC)" "::T$"A VALID ENTRY IS: "T$:PWPT4RVZT$"THIS RESPONSE CANNOT EXCEED "PM$:PH:868:SHPLSP:PF$;:E uSN(PF$,W)"0"2020:PF$"-"PF$"0" S(PF$,1)"-":PF$(PF$,1,(PF$)S):P(PF$):PF$("00",1(P1),2(P2))PF$:P(PF$):R$(SP$,1,PL1P(P5))(PF$,1,(P5)(P5))(",",1,P5)(PF$,1(P5)(P5),(P2)(P2)(P5RD$"":E60:RV((PF$,W,P)):PT3PNW:TW(RT$)PC:P(PF$(RT$,T,PC))PC:TT40P::T(PF$"Y") aPN(SNRVPSI)(PT4((Z$,W,PL(PF$))PF$)PM$)2221:S(PF$,W)"-":PEĖW:868: pPTZPT3ĖSHP:868: r(PI$)(PTWPT2PT4)ĖS,WP,W):R(R$)i 9R31SR44R58PTLSI2228:SIPR32PT:PTWĴR45P2228:SR45:PPLS2228 CSNSĴ(R47R58)2228 HPF$(PF$,W,P)R$:PPW:R$;:PT32030:2085 RPPF$RD$:PSL:SLSNPF$"0":PWe WER27:PF$(PF$,W,PE):D TP(RT$)PC:XX((PF$,P,W)(RT$,T,W)):TT40XX::XX2221| %SHP:R$:R$""2228:ERERZ:24:W:868:PV:SH *R(R$):R13R27RE2130:R242270:R8PPPW:SHP:(RD$,WP,W)(".",W,PSL)R$;:SZ:SIZ:2085 4R21PSLR$(RD$T,** COPYRIGHT 1981, DAKIN5 CORPORATION7240040=<P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)): PF$(PF$,P):P(PF$):                         !!" " """"""""" RVP)(PT4RV(PM$))PZ:SL(PF$):RD$PF$:2225W fS(PF$,W)"-":PEĖW:868:t pPTZPT3ĖSHP:868: rSH:868:SHPLSP:PF$;: G$;:2085 TH((33)2PLPS(PLZ)(T$))2 W:868:TH:T$;:T$"": 16368,Z:PV(37)225! CSNSĴ(R47R58)2225H HPF$(PF$,W,P)R$:PPW:R$;:2085q RPPF$RD$:PSL:SLSNPF$"0":PW WER27:PF$(PF$,W,PE):RD$"":E60:RV((PF$,W,P)):PT3PNW:TW(RT$)PC:P(PF$(RT$,T,PC))PC:TT40P::T(PF$"Y")5 aPN(SN %SHP:R$:R$""2225:R(R$):R13R27RE2130:R242270:R8PPPW:SHP:(RD$,WP,W)(".",W,PSL)R$;:SZ:SIZ:2085 4R21PSLR$(RD$,WP,W):R(R$) 9R31SR44R58PTLSI2225:SIPR32PT:PTWĴR45P2225:SR45:PPLS2W(,** COPYRIGHT 1981, DAKIN5 CORPORATION7240040=<P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)): PF$(PF$,P):P(PF$):                 /Y** COPYRIGHT 1981, DAKIN5 CORPORATIONIOCCURRED. REF NO "(EL):21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:62990XW:PD$"THE DEPRECIATION PLANNER":PN$"CA00AC,D1"XTF$"":3025:W:2550:12:(PN$)T$"YOUR PROGRAM IS NOW BEING LOADED":PLZ:2235:D$"RUN"PN$Y:** CA05ACWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::@W:60950wWHEC(222):EL(218)(219)256:768:EC255ĢW:D$WREL60950VEZ:38190W\EL3110ERW:3115WfEL38005VEZ:EZ:38010VXkEL44000EL4500045000::T$"ERROR "(EC)" HAS 247T25844080:45000#V0I,TB:Vȯ2:2550:T$"AN ERROR HAS OCCURED IN":10:2235:T$"VERIFYING THE ACRS TAX TABLES.":12:2235:T$"PLEASE CHECK THESE TABLES.":14:2235:4680:629903W3000:D$"READ"TF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):T:NSI:TRNA:3035:S$(I)T$40262:NSIW:S$(NS)T$MUFTF2:3010:CTZ:38010VુTBZ2:IZ3:T1((AC$(TR),I2TB8W,W)):T2((AC$(TR),I2TB82,W)):IZTR3T142T24244080:IWTR5T142T24244080:I2TR10T142T24244080:T147T158T52:3035:PF2:3050:(PF$)ZTR11((TRW)10)10:40225kTGL$(TR21,Z)PF$:PF3:3050:GL$(TR21,W)PF$2U!:TR015:3035:PF3:3050:AC$(TR)(PF$,W,24):44000::TFW:3010:TRZ:PF2:3035:3050:NA(PF$):NAZIZ:TRWNA20:IIW:3035:S$(I)T$:010:PF4:TR12:3035:3050:VS%(PF$):PF5:3050:VR%(PF$):PF4STR2:3035:PF5:3050:DN%(PF$):TR3:3035:3050:DU%(PF$):TRZ:3035:3050:MD$PF$:TRW:3035:3050:EY$PF$:TR20:3035:PF4:3050:FS(PF$):TTR2:3035:PF4:3050:GL(PF$):TR21========":61000RTF$"":3025:TF%(2,20,2),TF$(2,2),GL$(31,W),S$(139),ST%(376,W),AC$(15),AD$(20),AI$(4):(1008)Ģ2:2550:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:PLZ:2235@STF$"DMCA01":TL350:TD2:3015:TFZ2:TRTF:59900::3025:TFZ:30PQ.FTZ:MSRV:MEZ:MS20010,21010,22010,23010,24010,62990:MEW:RD$"":38010RhW1:Z0:2286:D$(13)(4):G$(7):ST$"**********":S$" ":SP$" ":P$"..............................":Z$"0000000000000":US$"---------------":QE$"=======EPORTS":N10:TH:"6. RETURN TO D/P MENU":VEĢN12:TH:"7. CONTINUE PROCESSING"P蔰2325:2286:SHZ:22:TH9:T$"ENTER YOUR SELECTION ->":PSW:PHZ:PT4:PM$(6VE):PNW:PEW:RD$"":2250::PNZ:PEZ:E62990:RV7VEZ:W:10840:Q$VEVEZ:6095** COPYRIGHT 1981, DAKIN5 CORPORATIONL:21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:ST50340:62990]fPN$"CA00AC,D1"fTDW:TF$"DLXX00":V1$"SYS021":3120:TF$"":3025:2:2550:12:(PN$)T$"YOUR PROGRAM IS NOW BEING LOADED":PLZ:2235:D$"RUN"PN$f:** CA01AC %gTWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::He3000::60950|eHEC(222):EL(218)(219)256:768:EC255ĺD$eREL60950ĉ:VEZ:38220eWEL3801038015:EL3110ERW:3115IfpSP3710::T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL) USER'S MANUAL":THZ:PLZ:2235:THZ:18:T$"FOR FURTHER INFORMATION":THZ:PLZ:2235:THZ:4690:F5F2:F2Z:d֭(PF$,1)"B"PD$"DAKIN5 SMALL BUSINESS SYSTEM":PN$"D5"PN$d֢W:2550:5e3000:D$"READ"CF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W): NOW USING GENERAL LEDGER":THZ:PLZ:2235:THZ:7:T$"YOU MUST RECUSTOMIZE":THZ:PLZ:2235:THZc4Ƣ9:T$"YOUR DEPRECIATION PLANNER ACCOUNTS":THZ:PLZ:2235:THZ:11:T$"PLEASE VERIFY YOUR ACCOUNT NUMBERS":THZ:PLZ:2235:THZmd>Ƣ16:T$"REFER TO YOURLD$:PSW:E38010:DT$TX$:D1(PF$):10030:PF$"N"50570:DTD1:TDW:TL18:TF$"DLXX00":3015:TRZ:3040:T$(T$,11)(DT):TD2:3090:ac Ƣ2:2550:4640:2550:REW:PF$"0":PF4:TR5:3035:3060:3085:PF$"0":TR9:3035:3060:3085:5:T$"BECAUSE YOU ARE0:E38010:VN$PF$:10030:PF$"N"50470:TRW:3035:PF4:PF$VN$:3060:3085:TR56:3035:PF5:3050:PF$(PF$,W)VN$(PF$,3):3060:3085::alŢ2:2550:12:T$"ENTER TODAY'S DATE (MM/DD/YY)":THZ:UD$"TODAY'S":PS2bRD$DT$:LD$YD$:YD$"":4770:YD$ING STARTUP":PLZ:2235:12:T$"HAS BEEN TERMINATED":PLZ:2235:14:T$"YOU MAY NOW TURN OFF YOUR APPLE":PLZ:2235~`ī50380`Ģ2:2550:10:T$"ENTER VOLUME NUMBER":PLZ:THZ:2235:THZ:12:T$"OF THIS D/P DATA DISKETTE":PLW:PT2:PNW:RD$VN$a&Ű225CAN BE RUN":PLZ:2235I_rT$"":4680:2285:E50340:VEVEZ:2:4660:__ĴDT40565:15000_ĭGBWD5WTDW:REW:2:PD$"APPLE GENERAL BUSINESS SYSTEM":PN$"BUSINESS":V1$"MST001":TF$"DLXX00":3120:55000:63000s`Ģ2:2550:10:T$"PROCESSING DUR"1":3060:3085:PD$"THE DEPRECIATION PLANNER":W:2550:62990_JĢW:T$"** DEPRECIATION PLANNER STARTUP **":PLZ:2235:2:2550:10:T$"CUSTOMIZING DURING STARTUP":PLZ:2235:12:T$"MUST BE COMPLETED BEFORE YOUR":PLZ:2235:14:T$"DEPRECIATION PLANNER G$;:2235:ERW:PL5:PS2:e]'PLZ:PSZ:24:T$"ACCOUNT CANNOT BE ZERO":G$;:2235:ERW:PL5:PS2:])PLZ:PSZ:24:T$"DUPLICATE ACCOUNT":G$;:2235:ERW:PL5:PS2:>^6TFZ:TRZ:3035:PF4:PF$"1":3060:3085:TR12:3035:PF4:PF$"0":3060:PF5:PF$$:PF$"N"50120:TRZ:3035:PF5:PF$(DM):3060:3085:\PLZ:PSZ:24:T$"INVALID ACCOUNT NUMBER":G$;:2235:ERW:PL5:PS2:\PLZ:PSZ:24:T$"ACCOUNT NUMBER OUT OF RANGE":G$;:2235:ERW:PL5:PS2:]"PLZ:PSZ:24:T$"ACCOUNT DOES NOT EXIST":10030:DY$TX$:YD$(YD):PF$"N"50050[TFZ:TRW:TD2:3035:PF5:PF$(YD):3060:3085:2:2550:10:T$"ENTER YOUR CURRENT MONTH-END DATE":PLZ:2235:12:T$"(MM/DD/YY)":THZ:UD$"MONTH-END"8\RD$DM$:PS2:4770:E38010:PSW:DM(PF$):10030:DM$TX FISCAL YEAR-END DATE IS "DY$:THZ:PLZ:2235:THZ:4690:E38010:50070Zdâ2:2550:10:T$"ENTER YOUR FISCAL YEAR-END DATE":PLZ:2235:12:T$"(MM/DD/YY)":THZ:UD$"FISCAL YEAR-END"'[RD$DY$:PS2:LD$YD$:YD$"":4770:YD$LD$:E38010:PSW:YD(PF$):$)69999))Ă:TR53ī42580VY@ITR21:I1$(I)PF$:I$(I,Z)PF$:PF3:3050:I$(I,W)PF$:iYTGLF243000:YCTZ:AMW:10085:CTW:AM10:CN10:10085:CT11:CN20:10085:CT21:CN30:10085:CT31:AMW:10085:50700:CNZ:AMZ:CTZ:IZUâ2:2550:12:T$"YOUR(MR(DR)DR),STF5):3060:PF5:PF$("12",W(DRMR),ST):3060:TD2:3085:TF$"":3025:3000:D$"RUN CA02MD,D1"X2:2550:4630:IZ31:I$(I,Z)"":I$(I,W)""::IZYTFZ:TR2152:3035:PF2:3050:((PF$)ZPF$"0")(GL((PF$)5(PF$)10000(PFST15000:LNW15240:((GB(GBCSWGL)(CS2GL))ST)LN230000:38010W$TFZ:TR9:3035:PF5:3050:11030:TR10:3035:3050:3025:11010:TF$(TF,Z)"DMCA00":50005:qXVTDW:TF$"DLXX00":V1$"SYS021":3120:4630:TFZ:TR4:3035:PF4:PF$("340",W3050:PG%(PF$)2(PF$""):TR16:3035:3050:VB(PF$)2(PF$""):TR20:3035:PF3:3050:CN$PF$:PF3:TRZ15:3035:3050:AC$(TR)(PF$,W,24):V*42520:LNMSW:TR4:3035:PF5:PF$"":3060:3085VfLNST4640LWuCSST50540:(CS(GBGLCSW)))):TR2:3035:PF4:3050:GL(PF$)2(PF$"")UPF5:3050:BN$PF$:TR3:3035:3050:BU$PF$:TR10:3035:PF4:3050:D5(PF$)2(PF$""):TR11:3035:PF4:3050:GB(PF$)2(PF$"")VƝTR13:3035:3050:S%(PF$):TR14:3035:3050:P9%(PF$):TR15:3035:F$):PF5:3050:LN(PF$):((CSWCS2)ST)LN40250:CSSTĢ2:2550:4630:40250T&2:2550:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:PLZ:2235-U:TRZ:3035:PF5:3050:11030:TRW:3035:3050:11010:3035:PF4:3050:VN$(PF$,W,(PF$)(PF$" "W),I$(32,W),S$(250),ST%(102W,W),Q$(10),I1$(32),AC$(15):TDZ:TF$"DLXX00":V1$"SYS021":V2$"DAT021":3120:DT$TD$STCF$"DMCA01":TF$CF$:TL350:TD2:3015:TFZ:TRTF:59900:TF$CF$:3025:3010:TRZ:3035:PF4:3050:ST(PF$):TR4:3035:PF4:3050:CS(P15,3:36863,0RhW1:Z0:2286:D$(13)(4):G$(7):ST$"**********":RT$"YN":WRW:S$" ":SP$" ":P$"..............................":Z$"0000000000000":US$"---------------":QE$"===============":61000rSTF$"":3025:TF%(2,7,2),TF$(2,NGEPRINT",W6(MS2),6)" CUSTOMIZING FEATURES"XQVMS3PD$"THE DEPRECIATION PLANNER"QjW:2550:MS15000,30000:GL(EMS3)TDW:TF$"DLXX00":V1$"SYS021":3120Q62990 RJ32,0:34,0:33,1:35,0::(4)"BLOAD SWAP.OBJ,D1":1013,76:1014,176:10RN TO D/P MENU":VEĢN6:4:"4. CONTINUE PROCESSING"P2325:22:PH8:T$"ENTER YOUR SELECTION ->":PSW:THZ:PT4:PM$(3VE):PNW:PEW:RD$"":2250:W:868::2285:ERV3P$RV4VEZ:W:4660:P8VEPGW:3750:60950/QLMSRV:MS3PD$("CHA025:FZ:REZ:MSW30000:T$"D/P CUSTOMIZING FEATURES":4900:3:8:"FISCAL";13);"CURRENT":4:7:"YEAR-END";11);"MONTH-END":6:7:DY$;11)DM$:N10:N:4:"1. CHANGE CUSTOMIZING FEATURES"6PʔN2:4:"2. PRINT CUSTOMIZING FEATURES":N4:4:"3. RETU:TRZ15:3035:PF$AC$(TR):PF3:3060:3085:TR:F90:uN(PF$)81(PH29)(SC$)(PH29)E0:24:W:868:2:Nʏ24:7:"A VALID RESPONSE IS: "81(PH29)(SC$)(PH29)" TO 99.";:G$;:E1:2:NST50230Nz:38010OST50250:TF$"":387,2):NI:PH36:2250:E38010:PF$(Z$PF$,2):SC$SC$PF$:36:PF$;:AC$(I)(AC$(I),W,(TB1)8)SC$(AC$(I),TB81)MI:RT$"YN":PT3:23:T$"IS THIS TABLE CORRECT?":THZ:PLW:RD$"":PE1:2250:PE0:E38010:PF$"N"F91:360057NTD2:TF0:3010"**":36190kLERD$(AC$(I),(TB1)83,2):NI:PH22:2250:E38010:PF$(Z$PF$,2):SC$SC$PF$:22:PF$;L^I10SC$SC$"**":36215LcRD$(AC$(I),(TB1)85,2):NI:PH29:2250:E38010:PF$(Z$PF$,2):SC$SC$PF$:29:PF$;xMwRD$(AC$(I),(TB1)$,2):36800:E36107:AC$(0)(AC$(0),W,(TB1)8)"19"SC$"19"PF$(AC$(0),TB81):I115:SC$"":PT5:PL2:T$"":PNZ:I3SC$SC$"**":36160K'RD$(AC$(I),(TB1)81,2):NI:PH15:2250:E38010:PF$(Z$PF$,2):SC$SC$PF$:15:PF$; L@I5SC$SC$NGE THIS TABLE?":THZ:PLW:RD$"":PE1:2250:PE0:E38010:PF$"N"60rJTC1:PT5:PL2:T$"":PNZ:PH16:2:MEZJ RD$(AC$(0),(TB1)83,2):2250:E38010:SC$(Z$PF$,2):36800:E36106K RD$(AC$(0),(TB1)87,2):PH29:2250:E38010:PF$(Z$PF:4:"TABLE "TB;:I115:I336040IIIN:15:(AC$(I),(TB1)81,2);XIȌI536060~IҌIN:22:(AC$(I),(TB1)83,2);I܌I1036080I挢IN:29:(AC$(I),(TB1)85,2);FJIN:36:(AC$(I),(TB1)87,2):I:RT$"YN":PT3:F936101:23:T$"CHA-----------------------------"HN6:I115:NI:4(I9):I;(US$US$"--",W,107(I3)7(I5)7(I10)):I:I112:IN1:1:("YEAR OF LIFE",I,W);:I:HSC$"":F90#I2:10:"FOR ";(AC$(0),(TB1)81,4);" THROUGH ";(AC$(0),(TB1)85,4);:43000:D$"RUN "PN$Ou:38005HOz(1008)Ĺ1008,0:MSW:2:2550:20025OT$"ASSET MASTER":4900:N6:TH7:N:TH:"1. ADD ASSET":N2:TH:"2. CHANGE ASSET":N4:TH:"3. RETIRE ASSET"TPN6:TH:"4. DISPLAY ASSETS":N8:TH:"5. ASSET MASTER R)81,2)" ";4G (AC$(I),(TB1)83,2)" ";XG4(AC$(I),(TB1)85,2)" ";GH(AC$(I),(TB1)87,2):3710:I:Hˆ::1:6:"ACRS DEPRECIATION PERCENTAGES":4:16:"RECOVERY PERIOD (YEARS)":5:16:"3 5 10 15":6:4:"------" YEAR OF LIFE ":I115:3795:28);(NY$,I,1);" ";:I10ĺ" ";FI"-----------";:I3ĺ"-------";:I5ĺ"-------";:I10ĺ"-------";FI34060,34060,34060,34080,34080,34100,34100,34100,34100,34100,34120,34120,34120,34120,34120G (AC$(I),(TB13:34000:EЄ3795:34);"TABLE "TB" FOR "(AC$(0),(TB1)81,4)" THROUGH "(AC$(0),(TB1)85,4):3710:3795:43);"RECOVERY PERIOD (YEARS)":3710:3795:44);"3 5 10 15":3710:3795:31);"-----------------------------------":3710BFNY$EY":PLZ:2235:17:T$"BEFORE MODIFYING THESE TABLES.":PLZ:2235:22:4690:E38010:TC0:Dy35010:TB1:36001:TB2:36001:TB3:36001:ST31180:PD$"DEPRECIATION PLANNER STARTUP"DyW:2550 E}VP55:F8W:TB1:34000:VS3:3750:TB2:34000:VP55:TB DEPRECIATION TABLES WERE":PLZ:2235:9:T$"ESTABLISHED AT THE ENACTMENT OF THE":PLZ:2235:11:T$"THE ECONOMIC RECOVERY TAX ACT OF 1981.":PLZ:2235[Dry13:T$"THEY SHOULD BE CHANGED ONLY IF THE LAW":PLZ:2235:15:T$"CHANGES. CONSULT YOUR TAX ATTORNGW:3750:SPZ:370008By2:958:PT3:RT$"YN":YN$"N"B,y10:T$"DO YOU WISH TO CHANGE THE":PLZ:2235:12:T$"ACRS DEPRECIATION TABLES?":THZ:PLW:RD$YN$:2250:E38010:YN$PF$:23:4700:E38010:PF$"N"31020:YN$"N"ıCJy2:958:7:T$"THE ACRS"S",W,F):3710:3710:TF%(TF,Z,W)48:3010:TFZ:TD2:TR21CT21CTAMW:3035:PF2:3050:PF$""PF$" "TR21CTAMW:30310AWvI$(TR21,Z)PF$:PF3:3050:I$(TR21,W)PF$:3795:10)I$(TR21,W)32(I$(TR21,W)))I$(TR21,Z):3710BfvTR:I:32000:P:3710:VS2:3750:3795:5)"MAXIMUM DECLINING BALANCE RATE FOR NEW ASSETS IS "BN$"%":3710@ v3795:5)"MAXIMUM DECLINING BALANCE RATE FOR USED ASSETS IS "BU$"%":3710:IW5:I10830,10840,10860,10880,10900:VS2:3750:VP3:3795A>v5)CA$" ACCOUNT"(:5)"YOUR COMPANY'S NAME IS "CN$:3710:VS2:3750:3795:5)"THE LETTERS OF YOUR COMPANY NAME WILL "("NOT ",W,4(VB))"BE SEPARATED BY BLANKS ON REPORTS":3710[@uVS2:3750:3795:5)"YOU WILL "("NOT ",W,4(PG%))"HAVE A BLANK PAGE AFTER YOUR REPORTS")"USING THE APPLE GENERAL BUSINESS SYSTEM":3710>uVS2:3750:3795:5)"YOU ARE "("NOT ",W,4(D5))"USING THE DAKIN5 SMALL BUSINESS SYSTEM":3710:GBD5VS2:3750:3795:5)"GENERAL LEDGER IS "("NOT ",W,4(GL))"BEING USED":3710?uVS2:3750:3795E38010:2:4660:VT$"DEPRECIATION PLANNER CUSTOMIZING FEATURES":T$"01501.1":TD$DT$:SPW:VL%(VN$):38500>bu3795:5)"FISCAL YEAR-END DATE IS "DY$:3710:3795:5)"CURRENT MONTH-END DATE IS "DM$:3710:VS2:3750:3795:5)"YOU ARE "("NOT ",W,4(GB)30:10660:PF$"N"15700:CA$"EXTRAORDINARY INCOME":AMW:AR47000:BR49999:CT31:FW:CAWN17010:E60:(AI$(W),W)"*"İ10840:FTZ:20015CHN(NACT)75020025:10780:SR20030DRN17""-BCA2$"DB"A2$"DS"17340:PF$AD$(16)BC18:PI$"":PL3:PT2:RD$PF$:PNW:PH36:ERW:2250:E60:TSPL:AD$(10)"N"((PF$)DN%)T$"PERCENT MUST BE "(DN%)" OR LESS":24:PLZ:2235:PLTS:G$;:17330:CCAD$(10)"U"((PF$)DU%)T$"PERCENT MUCPH30(10(PM$)):RD$AD$(14):PI$"5,3.2":2250:E60:AD$(14)PF$:(AD$(15))(AD$(14))AD$(15)""ACAD$(11)"E"Ģ17:30:868:RD$AD$(15):PH30(10(AD$(14))):PNZ:PT4:PL10:PM$AD$(14):PI$"5,3.2":2250:E60:AD$(15)PF$BCAD$(11)"E"AD$(15)Е<::W1:Z0:6:"** THE DEPRECIATION PLANNER **":12:5:"YOUR PROGRAM IS NOW BEING LOADED":34,Z:35,Z:33,W:32,Z::(4)"RUN CA00AC,D1"::*z#    ԮʠԠ Ԯʠ ٮʠà$ٰƠ+Ġ"įР įРРٰƠ* à* àV ذ Юʠîʠàa àSST BE 2 OR GREATER":PLZ:24:2235:ERW:15211o6p;DT8RV15ĺG$;:T$"MUST BE 15":PLZ:24:2235:ERW:152116q;DT6((RV3)(RV3RV5)(RV5RV10)(RV10RV15)(RV15))ĺG$;:T$"MUST BE 3, 5, 10, OR 15":PLZ:24:2235:ERW:15211p7r;DT7((RV3)(6)(DT):10600:h5[;PF$"AR"DT8:22:"(ACRS REAL ESTATE)":IA$(6)(DT):IA$(7)"15":15500:10600:5j;T$"7. LIFE (YRS)"5k;N10:2286:RD$IA$(7):PH19:PL2:PT2:PNW:THH:2250:E60:IA$(7)PF$.6o;DT(IA$(6)):RV(IA$(7)):RV2DT5ĺG$;:T$"MU":IA$(6)(DT):10500:[4B;PF$"DB"DT3:22:"(DECLINING BALANCE)":IA$(6)(DT):10500:4L;PF$"DS"DT4:22:"(D.B. TO S.L.)":IA$(6)(DT):10500:4Q;PF$"AC"DT6:22:"(ACRS STD.)":IA$(6)(DT):10400:5V;PF$"AS"DT7:22:"(ACRS S.L.)":IA$PLW:PT3:THH:RT$"NU":2250:IA$(5)PF$:B3$;T$"6. DEPR METHOD"3%;N9:2286:RD$DT$:PH19:PC2:PT3:THH:RT$"SLSYDBDSACASAR":2250:E60:DT$PF$:PF$"SL"DTW:22:"(STRAIGHT LINE)":IA$(6)(DT):10500:48;PF$"SY"DT2:22:"(SUM OF YRS DIGITS)W:PS3:PI$"5,3.2":THH:2250:E60:IA$(3)PF$:(Z$IA$(3),10)(Z$IA$(4),10)60:IA$(4)""x2:T$"4. SALVAGE AMOUNT"2:N6:2286:RD$IA$(4):PH28:PT4:PM$IA$(3):10300:THH:2250:IA$(4)PF$:2;T$"5. NEW OR USED"*3;N8:2286:RD$IA$(5):PH20:W)PF$:%1:T$"2. ACQ/SERVICE DATE"v1:N4:2286:10080:RD$DA$:PH30:PL8:PNW:THH:4770:E60:IA$(2)PF$:DA$T$1:DT(IA$(6)):DT610400:DT710600:DT6DTZ10500:1:T$"3. ACQUISITION AMOUNT"]2:N5:2286:RD$IA$(3):PH28:PL10:PT2:PN1O0)((((IA$(2),W,2)))80)T$"ACQ/SERVICE DATE MUST BE BEFORE 1981":10440U0)0h)((((IA$(2),W,2)))81)T$"ACQ/SERVICE DATE MUST BE AFTER 1980":104400r)0:T$"1. DESCRIPTION"1:2286:N2:RD$IA$(W):PH19:PL20:PTZ:THH:PNW:2250:IA$(5/\EL3110ERW:3115/aRD$""::T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:RVZ38010:10010/:TF$"":3025:TDW:TF$"DLXX00":3120:E48010/?10410:W:BF2550:50410&0DTF$"":3R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::q.3000::60950.HEC(222):EL(218)(219)256:768:EC255ĺD$/M(EC5)(EL3035)(TF$"DSKAAA")(RV8)TRZ:T$(Z$Z$Z$Z$Z$,52):3090:3025:1144"WELCOME TO THE":2235:12:T$"DEPRECIATION PLANNER":2235:{-Ģ2:2550:12:T$"YOUR PROGRAM IS NOW BEING LOADED":2235:-NŢ2:2550:12:T$"YOUR DATA FILES ARE NOW BEING LOADED":2235:-bŢ12:T$"NO ENTRIES TO PRINT":2235:^.3000:D$"READ"CF$",9:T$"AN ERROR HAS OCCURRED":2235:11:T$"YOUR FILES MUST BE RESTORED":2235:13:T$"FROM YOUR LAST BACKUP DISKETTE":2235:,"Ģ2:2550:10:T$"DISKETTE BACKUP MUST BE COMPLETED":2235:12:T$"BEFORE PROCESSING CAN CONTINUE":2235:<-Ģ2:2550:10:T$"":3020:3000:1008,0:D$"RUN"BT$",D1"::V0** COPYRIGHT 1981, DAKIN5 CORPORATION)11445/\EL3110ERW:3115/aRD$""::T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:RVZ38010:10010/:TF$"":3025:TDW:TF$"DLXX00":3120:E48010/?10410:W:BF2550:50410+0DTF$CF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::v.3000::60950.HEC(222):EL(218)(219)256:768:EC255ĺD$/M(EC5)(EL3035)(TF$"DSKAAA")(RV8)TRZ:T$(Z$Z$Z$Z$Z$,52):3090:3025:0:T$"WELCOME TO THE":2235:12:T$"DEPRECIATION PLANNER":2235:-Ģ2:2550:12:T$"YOUR PROGRAM IS NOW BEING LOADED":2235:-NŢ2:2550:12:T$"YOUR DATA FILES ARE NOW BEING LOADED":2235:-bŢ12:T$"NO ENTRIES TO PRINT":2235:c.3000:D$"READ"550:9:T$"AN ERROR HAS OCCURRED":2235:11:T$"YOUR FILES MUST BE RESTORED":2235:13:T$"FROM YOUR LAST BACKUP DISKETTE":2235:,"Ģ2:2550:10:T$"DISKETTE BACKUP MUST BE COMPLETED":2235:12:T$"BEFORE PROCESSING CAN CONTINUE":2235:A-Ģ2:2550:1:K@=LP6PF$IA$(4):2175:6);"SALVAGE AMOUNT ";R$;6);:LPLPW:@=LP8İ15430:6);"DEPR METHOD ";DT$;23);:LPLPW:@=LP9((IA$(7))10)ĺ6);"LIFE (YRS) ";IA$(7);23);:LPLPW:A=LP9((IA$(7))9)ĺ6);"LIFE (YRS) ";IA$(7);MN10ĺ6);"MODEL NUMBER ";(MN);23);:LPLPW:u?=LP2N25(IA$(W)):6);"DESCRIPTION ";IA$(W);N);:LPLPW:?=LP4İ10080:6);"ACQUISITION DATE ";DA$;6);:LPLPW:@=LP5PF$IA$(3):2175:6);"ACQUISITION AMOUNT ";R$;6);:LPLPWI$(I)"1"TRI:PFW:IA$(W)(IX$(TR),W,20)H>=NI:N1:I9ĺ" ";(I);Y>=I10ĺ(I);r>"=N2:IA$(W):I:23:>@=VC20ĺ44);:>J=CP15930>^=LP3LP7LP10ĺ44);:LPLPW:>r=LPWMN10ĺ6);"MODEL NUMBER ";(MN);23);:LPLPW:1?|=LPWS2:PF$IA$(8):N12:28:(SP$((IA$(8))),3);"%":z=NW:2550FCN2:2550:AFZ:10020:SPZ:10120:F0ZT$"MODEL FILE FULL":PLZ:12:2235:4690:25020 GzNN5:H3:15306:DTZ:15040:E60:15060:E60:15080:E60:15100:E60:15120:E60:15140:E60:152:4500:AY$TS$:AD$DF$:F6W:16300xE?(AF$)(CO$)(IA$(6))5TX$CO$:TS$AD$:Z12:4500:AY$TS$:AD$CO$:F6W:16300E?AD$AF$:AF$"":(AD$)10AD$"9999999999"E?A1$(I):I10A1$" "A1$,F?PI$"5,3.2":PL10:PF$AY$:2175:A2$R$:PF$AD$:2175:(IA$(W)));DA$;3);IA$(3);3);IA$(4);3);A2$;3);A1$;2);A3$;3);IA$(7):10020:DA$"":DH?F56280:6280:XY$AY$:6480:(XY$)(AY$)AY$XY$:F5WDf?Dz?F6AY$"0":16300"E?TX$AY$:TY$AD$:Z1W:4500:AF$TS$:(AF$)(DF$)(IA$(6))5TX$DF$:Z121$"DCL-STL ":F4W6C>IA$(6)"6"A1$"ACRS STD":F4ZZC>IA$(6)"7"A1$"ACRS SL ":F4Z~C>IA$(6)"8"A1$"ACRS RE ":F4ZC>A3$"N/A":F4F3(IA$(8)):A3$(" ",W,(F3100)(F310))(F3)C>(IA$(7))10IA$(7)" "IA$(7)VD>AF$;4);IA$(W);2315930 BX>*Bl>AF$(I):I10AF$" "AF$Bv>F216100:10080:PF$IA$(3):2175:IA$(3)R$:PF$IA$(4):2175:IA$(4)R$:A2$"NEW ":IA$(5)"U"A2$"USED"B>A1$"SUM YRS ":IA$(6)"1"A1$"ST LINE ":F4ZB>IA$(6)"3"A1$"DCL BAL ":F4WC>IA$(6)"4"A23);:LPLPW:SA>LP11(DT3DT4)ĺ6);"DEPR PERCENT ";IA$(8);21);:LPLPW:A>LP11(DTWDT2DT6DT7DT8)ĺ44);:LPLPW:A&>A:>LP11VCVCW:15960BD>LP15730,15760,15710,15780,15800,15820,15710,15840,15860,15710,15890::VCVCW:VFVC)SP:38015/SPİ3700:V$;:VC$RVT$;VN:SP3675:V$;:SPĺV$;qVCVC23SP:3650:3710:SP3700:SPĖW:VCSPPGVS13166(PG%)VCVSZVCVCW:V$;:VSVSW:3755SPPGVCZ:" ":PGZ3710:VCVCWV3$))2):V3$(SP$SP$SP$,W,TL)V3$:V3$:VCVCW:XeVR%0ĺ"VERSION ";VR%:VCVCW:^jtQW(54):QX(55):QY(56):QZ(57):Z:Z:36,Z:S%:P9%Wĺ(9)"255N";{~SPĹ54,QW:55,QX:56,QY:57,QZPGVE(((16384)155)Z):VEVCVC(:37);"---------------------":V$;:VCVC3:oG31);"ACRS DEPRECIATION PERCENTAGE TABLES":V$;V$;:VCVC3:[VR%(V3$)TL((4056SP(V3$))2((VR%))8):V3$"VERSION "(VR%)(SP$SP$SP$,W,TL)V3$:V3$:VCVCW:3`(V3$)TL((4056SP((VL$))VL$):D$"CLOSE"TF$::I0 RZ:TD2VL$V1$:SDW:3110:RER:ERZg5 TDWVL$V2$:SD2:3110: 2:RER2550:10:RVL$V1$:SDW:3100? ERVL$V2$:104R:SD2:3100D RERİ4690:E3120I -BF83655:37);"CURRENT SYSTEM STATUS"0 j T$"INSERT THE DISKETTE MARKED "VL$:PLZ:2235:(37)2(RER):T$"IN DRIVE "(SD):2235:& 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"READ"TF$:PF$:SDWTD$(PF$,14,2)"/"(PF$,16,2)"/"(PF$,12,2)+ PF$(PF$,11):ER((PF$,W,PF$(Z$PF$,TF%(TF,PF,W))C TPF$(PF$SP$SP$,TF%(TF,PF,W)) TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)): TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W) 3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:301J ERZ:3000:D$"READ"TF$",R"TR:T$:D$::TF$(TF,W)T$:TF%(TF,Z,2)TR: TTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TZ2020:SPT2005: TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) T$:SNQP%:$ G$;:TW50::G$;:X (37)ZMEZ::T$"** "PD$" **":PLZ:2235:g W:958: 32,Z:34,Z:33,W:35,Z:: TF$TF$(TF,Z):TLTF%(TF,Z,W) 3000:D$"OPEN"TF$",D"TD",V0,L"TL:: 3000:D$"CLOSE"TF$:: TF$TF$(TF,Z)L%PL:QM%TL:QD%SL:QE%PE:QN%PN:QS%PS:QC%PC:QV%PV:QX%TH:QH%PH:QD$PF$:RD$"":QI$PI$:QP%SNPTZ:PI$"":PLZ:PEZ:PNZ:PSW:PCW: PTQT%:PLQL%:TLQM%:SLQD%:PEQE%:PNQN%:PSQS%:PCQC%:THQX%:PHQH%:SHPH:RD$QD$:QV%(QV%Z):PVQV%:PI$QI(PTW):PNPN(PLZ):(T$)PTH:W(THZ)2235,2240:THP:THZSH(36)WPSPH(36)WPS:SHPHSN(RD$,W)S$PF$RD$:2005:RD$PF$SL(RD$):(SHPS)(PT5)39(PT5):868:SH:RD$;(P$,W,TLSL);:PZ:SZ::PF$RD$:SIZ:RVZ:2085bQT%PT:Q724:QL%PL:PLZ:THZ:2235:PV:SH:ERW:PLQL%:PZFG$;:2085lTH((33)2PLPS(PLZ)(T$))2~PXĖW:868TH:T$;:T$"":a16368,Z:PV(37)W:SHPH(PHZ):SNPTWPT2PT4PT5:PLPL(PT3PT5)(PM$)(PT4)PC(PT3):TLPL(PF$):RD$PF$:ME2228:PT3āTW(RT$)PC:T$T$" "(RT$,T,PC)::T$"A VALID RESPONSE IS:"T$:PWPT4RVZT$"THIS RESPONSE CANNOT EXCEED "PM$:PWPĖSH:("0"P$,2(SNF1),PL);:T$"THIS RESPONSE CANNOT BE "("BLANKZERO",W5(SNF1),5),T)k PPPL:TWSL:R((PI$,T,W)):PPR:SISI(R):P(TW)R$R$(PI$,T,(R))(PF$,WTL,PTL):TLP :S(PF$)ZR$("-",W,R)R$("-",W,R):PPS R$(SP$,W,PLSI(R$)(SR))R$:SPPE60:SH:868:SH(PSW)(PSW):R$;:eSIZ:SL:= r(PI$)(PTWPT2PT4)ĖSH:868:SHPLSP:PF$;:h uSN(PF$,W)"0"2020:PF$"-"PF$"0" S(PF$,W)"-":P(PF$)S:R$"":SIZ:SL(PI$):TLZ:TW2(SL2):SNT((PI$,SLT,W)"."):TTSN::SNT((PI$,SLSNW,W))P:TZR$"."(Z$,W(ESI)):RD$"":E60:RV((PF$,W,P)):PT3PNW:TW(RT$)PC:P(PF$(RT$,T,PC))PC:TT40P::T(PF$"Y") aPN(SNRVPSI)(PT4RV(PM$))PZ:SL(PF$):RD$PF$:2221 fS(PF$,W)"-":PEPV12ĖW:868: hPT560:PTZPT3ĖSHP:868,WP,W):R(R$)i 9R31SR44R58PTLSI2228:SIPR32PT:PTWĴR45P2228:SR45:PPLS2228 CSNSĴ(R47R58)2228 HPF$(PF$,W,P)R$:PPW:R$;:PT32030:2085 RPPF$RD$:PSL:SLSNF1PF$"0":PWo WER27:PF$(PF$,W,PW,(CN$)VB):SPVBāTLW(CN$)W:VC$VC$(CN$,TL,W)S$::VC$VC$(CN$,W)SPTL((T(VC$))2)(T$):VC$T$(SP$SP$SP$,W,TL)VC$:TLT(VC$)13:VC$VC$(SP$SP$SP$,W,TL)"DATE "TD$mT$"VOLUME "(VL%):TL((T(VT$))2)(T$):VT$T$(S:SP3700:SPĖW:VC VPW:GSPVEVNZİ4690:VEE:VE38015RSPėVSVFVC:SP3750:VNVNW:VCZ:3730:VE60:3765:VCVPVDİ3765:3775:M V$((10),W,SP):VF2046SP:T4056SP:VDVF10SP:VCVF:VNZ:VPW:VC$(CN$,B190"$;"32010DATA6,1,";C$;"THE CONTROLLER";C$;",2,";C$;"THE ANALYZER";C$;",3,";C$;"THE VISUALIZER";C$;",4,";C$;"THE DEPRECIATION PLANNER";C$;",5,";C$;"THE BUDGET PLANNER";C$;",6,";C$;"THE COMPENSATION MANAGER";C$.;"5040GOSUB300:FORYT=2TO23:HTAB1:VTTO30000":"31020IFEC=6ANDEL=5035THEN5040";"7000TEXT:GOSUB210:VTAB10:T$=";C$;"PROCESSING USING THE APPLE GENERAL";C$;":GOSUB190:VTAB12:T$=";C$;"BUSINESS SYSTEM HAS BEEN COMPLETED";C$;":GOSUB190:VTAB14:T$=";C$;"YOU MAY NOW TURN OFF YOUR APPLE";C$;":GOSUL BUSINESS SYSTEM **";C$;":N$=";C$;"";C$;":NP$=N$:DIMMS$(6),MI%(6)":"5125MS=VAL(RS$):IFMS<1ORMS>MN+1THEN?G$;:DF$=RS$:GOTO5120");"5180MM$=MID$(";C$;"SYANVICABPCM";C$;",2*MI-1,2):NP$=MM$+";C$;"00AC,D1";C$;":PD$=";C$;"** ";C$;"+MS$(MS)+";C$;" **";C$;":GOEC,D1,V0":D$"WRITE MODIFY EXEC":"LOAD BUSINESS,D1":"UNLOCK BUSINESS":"5135TEXT:MI=MI%(MS):NN$=";C$;"0";C$;"+MID$(";C$;"013141215161";C$;",1+2*(MI-1),2):LS$=MID$(";C$;"MSTSYS";C$;",1+3*(MI>1),3)+NN$":"5000GOSUB202:GOSUB195:PD$=";C$;"** APPLE GENERA0:D$"DELETE CA02MD,D2">~'3000:D$"DELETE MODIFY EXEC,D1":::4640:TDW:V1$"MST001":TF$"DLXX00":REW:3120:REZ:(PF$,1)"B"Ĺ36863,W2(CS3)::2:2550:T$"YOUR MST001 IS NOW BEING MODIFIED":4570:D$"SAVE CA02MD,D2":D$"OPEN MODIFY EX570:5 :2:2550:T$"COMPUTING COMPLETED":4580:n*:2:2550:2325:T$"MODIFICATION COMPLETED":4580:H22:G$;:2235RT$"PRESS 'RETURN' KEY TO CONTINUE":23:2235:PH37:2250:21:2550:.'TR4:3035:PF$(CS):3060:WRW:3085:t'300RER2550:10:RVL$V1$:SDW:3100G? ERVL$V2$:104R:SD2:3100`D RERİ4690:E3120fI 10:PLZ:2235:12:12::"DO";:15:"NOT";:19:"INTERRUPT"::3000:12:PLZ:2235:TW2500::2550:T$"YOUR APPLE IS NOW COMPUTING":4 & 3000:ERZ:PF$"":D$"OPEN"TF$",D"SD",V0":D$"READ"TF$:PF$:TD$(PF$,14,2)"/"(PF$,16,2)"/"(PF$,12,2):PF$(PF$,11):ER((PF$,W,(VL$))VL$) + D$"CLOSE"TF$:: 0 RZ:TD2VL$V1$:SDW:3110:RER:ERZ 5 TDWVL$V2$:SD2:3110$: 2:F,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)): TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W):3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:3010    T$"INSERT THE DISKETTE MARKED "VL$:PLZ:2235:(37)2(RER):T$"IN DRIVE "(SD):2235:F$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TZ2020:SPT2005: TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) TPF$(Z$PF$,TF%(TF,PF,W)) TPF$(PF$SP$SP$,TF%(TF,PF,W))7  TF$(TF,W)(TF$(TF,W),W,TF%(T958:& 34,Z:35,Z:33,W:32,Z::G TF$TF$(TF,Z):TLTF%(TF,Z,W)q 3000:D$"OPEN"TF$",D"TD",V0,L"TL:: 3000:D$"CLOSE"TF$:: TF$TF$(TF,Z):ERZ:3000:D$"READ"TF$",R"TR:T$:D$::TF$(TF,W)T$:TF%(TF,Z,2)TR:< TTF%(TF,PF,2):PF$(T: %SH:R$:R$""2228:R(R$):R13R27REĖW:868:I G$;:2085s TH((33)2(T$))2:TH:T$;:T$"": 16368,Z:PV(37)W:SHPH(PHZ):SH:" ";:2085  G$;:TW50::G$;: (37)ZMEZ::T$"** "PD$" **":PLZ:2235: W: ,** COPYRIGHT 1981, DAKIN5 CORPORATION7240040=<P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)): PF$(PF$,P):P(PF$):020:3000:1008,0:D$"RUN"BT$",D1"::Q0** COPYRIGHT 1981, DAKIN5 CORPORATION*ROGRAM IS NOW BEING LOADED";C$;":GOSUB185:ONLEFT$(DL$,6)<>";C$;"BKM001";C$;"GOSUB3030:GOSUB202:?D$;";C$;"RUN";C$;"NP$"fV;"5130VTAB22:T$=N$:GOSUB185:IFMS=MN+1THENGOSUB3100:TEXT:GOTO5040":"5138GOSUB202:VL$=LS$:DN=1:GOSUB240:E0=E:IFETHENTEXT:GOSUB210:VTAB(TF,PF,Z)TF%(TF,PF,W)):G TF$TF$(TF,Z):TRTF%(TF,Z,2):T$TF$(TF,W)~  3000:D$"WRITE"TF$",R"TR:T$;D$::WRİ3025:3010  H22:G$;:2235:23:T$"PRESS 'RETURN' KEY TO CONTINUE":2235:PH37:2250:4 'TRZ:PFW:TFW:3010:3035:3050:EN%(PF,W)):TZ2020:SPT2005:v TTF%(TF,PF,2):TW((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17) TPF$(Z$PF$,TF%(TF,PF,W)) TPF$(PF$SP$SP$,TF%(TF,PF,W))  TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%32,Z::) TF$TF$(TF,Z):TLTF%(TF,Z,W)S 3000:D$"OPEN"TF$",D"TD",V0,L"TL::o 3000:D$"CLOSE"TF$:: TF$TF$(TF,Z):ERZ:3000:D$"READ"TF$",R"TR:T$:D$::TF$(TF,W)T$:TF%(TF,Z,2)TR: TTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PSH:R$:R$""2228:R(R$):R13R27REĖW:868:E G$;:2085o TH((33)2(T$))2:TH:T$;:T$"": 16368,Z:PV(37)W:SHPH(PHZ):SH:" ";:2085 (37)ZMEZ::T$"** "PD$" **":PLZ:2235: W:958: 34,Z:35,Z:33,1:.** COPYRIGHT 1981, DAKIN5 CORPORATION 9240010P((PF$)Z)((PF$,W)S$):PāT(PF$)WW:PT:TT((PF$,T,W)S$):PF$(PF$,W,P):P(PF$):P(PF$)2:PS(PF$):TWS:PT:TTS((PF$,T,W)):PF$(PF$,P):P(PF$):6 %!!! ! 0:PI$"5,3.2":2250:E38005:AD$(8)PF$:(AD$(9))(AD$(8))AD$(9)""8BRD$AD$(9):16:25:868:PH30(10(AD$(8))):PNZ:PT4:PI$"5,3.2":PM$AD$(8):2250:E38005:AD$(9)PF$:PI$""T9B19:W:868:18:RD$AD$(4):PH35:PNW:PT2:PL5:ERW:2250:ERZ:)(R9))60:(YD$)Y1$"":4740N!~Y1$((((YD$,1,2))1),1,2)(YD$,3,4)!T:YM((TX$,W,2)):YD((TX$,4,2)):YY((TX$,7,2)):(YDWYMWYM12YY00)60:T(YM4YM6YM9YM11):(YD(28(YM2YY(YY4)4)(YM2)(2T)))60S"ERW:((PF$:PSW:TH5:23:2250:21:2550:2288:v \2285:T$"IS THIS ENTRY CORRECT?":PSW:PT3:RT$"YN":THZ:PEW:2250:PNZ:!!pER2:(((TX$)8)((TX$,3,W)"/")((TX$,6,W)"/"))60:PF$(TX$,7,2)(TX$,W,2)(TX$,4,2):TW(PF$):R((PF$,T,W))48:((RZTING COMPLETED":4580:g*2550:2325:12:T$"TURN ON THE PRINTER AND ALIGN PAPER":PLZ:2235:4690:42550:T$"YOUR REPORT IS NOW BEING PREPARED":12:PLZ:2235:H2285:22:G$;:PLZ:2235& RRD$"":PLZ:PTZ:T$"PRESS 'RETURN' KEY TO CONTINUE"T(S$(SX),5)SV$SLSX:4160?^(S$(SX),5)SV$SHSX:4160JhSRW:10:PLZ:2235:12:12::"DO";:15:"NOT";:19:"INTERRUPT"::3000:12:PLZ:2235:TW2500::2550:T$"YOUR APPLE IS NOW COMPUTING":4570: 2:2550:T$"COMPU$(SI),MP,ML)T$SISIW:4040CT$(Q$(SJ),MP,ML)SJSJW:4050SISJ4080:Q$(SI),Q$(SJ):SISIW:SJSJW:SISJ4040SISRSSW:ST%(S,Z)SI:ST%(S,W)SRSRSJ:SLSR4030:SZ4020:6SLZ:SHSNW@SX((SLSH)2):SXSLSRZ:P$SP$SP$,W,TL)VT$:TLT(VT$)76SP:VT$VT$(SP$SP$SP$,W,TL)"PAGE ":SPVRZT$T$" - RUN NO "(VR)VT$T$(VT$,(T$)W):SW:ST%(S,Z)W:ST%(S,W)SNSLST%(S,Z):SRST%(S,W):SSWSISL:SJSR:T$(Q$(((SLSR)2)),MP,ML)(QCHANGE TODAY'S DATE";C$;":POKE33,38:POKE32,1:POKE34,1:GOSUB235"B;"5120VTAB22:T$=";C$;"ENTER YOUR SELECTION -> ";C$;":GOSUB185:GOSUB200:SH=X:SV=Y:SC=2:SL=1:GOSUB180:ONEGOTO7000"vL;"30000GOSUB202:?CL$:TEXT:GOSUB210:VTAB12:IFLEN(NP$)THENT$=";C$;"YOUR PABYT:?";C$;"*";C$;";:HTAB40:?";C$;"*";C$;";:NEXT:VTAB1:T$=AS$:GOSUB190:T$=PD$:GOSUB190:T$=AS$:VTAB24:GOSUB190:VTAB3:HTAB10:?";C$;"TODAY'S DATE ";C$;";CD$"?8;"5050FORI=1TOMN:VTAB2*I+4:HTABHC:?I;";C$;". ";C$;";MS$(I);:NEXTI:VTAB2*I+4:HTABHC:?I;";C$;". (TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::'HEC(222):EL(218)(219)256:768:EC255ĺD$'\EL3110ERW:31153(fEL1010010110:EL1011060::T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:PLZ:(PF$):MS(36863):MSWCSMS:10030=&vMS2CSMS:10030c&MS3CS(("12",WGL,W)):10030&(GBCS)CS315000:10100:(GBGLCSW)CS420000:10100:4650:TDW:TF$"DLXX00":V1$"SYS021":3120:2:4630:62990U'3000:D$"READ"CF$",R"TR:TF$(W,5,2),TF$(W,W):TD2:TF$"DLXX00":V2$"DAT021":3120:D$"OPEN DSCA02,D2":D$"DELETE DSCA02,D2":CF$"DMCA01":TF$CF$:TL350:TD2:3015:TFZ:TRTF:59900:TF$CF$:3025&&3010:TR4:3035:PF4:3050:CS(PF$):TR2:3035:3050:GL(PF$):TR11:3035:3050:GBA02MD,D2":TF$"":3025:36863,2:63500$hW1:Z0:D$(13)(4):G$(7):ST$"**********":C$(34):S$" ":SP$" ":P$"..............................":Z$"0000000000000":US$"---------------":QE$"===============":61000%TF$"":3025:TF%NAC$=";C$;"NOT ";C$#BO"6120VP=2:GOSUB3795:?SPC(5)";C$;"DEPRECIATION PLANNER IS ";C$;";AC$;";C$;"BEING USED";C$;":GOSUB3710":"6130VS=2*VF-1-VC:CR=1:GOSUB3750:VC=0:GOSUB3795:?";C$;" ";C$;":GOSUB3710:VTAB2:GOSUB400":"SAVEGL01AE":"LOCKGL01AE"&$R"RUN CR$(FA)+STR$(IV)+";C$;"0";C$;":GOSUB350:GOSUB360:GOSUB390:GOSUB325"#.O"6105VP=Z:GOSUB3795:?CHR$(10);:GOSUB3710:AC$=";C$;C$;":AB$=";C$;"RECEIVABLE ";C$;":AB=AR:GOSUB3500:AC$=";C$;C$;":AB$=";C$;"PAYABLE ";C$;":AB=AP:GOSUB3500":"6115AC$=";C$;C$;":IFFA=0THE;"):DF$=MID$(NY$,FA+1,1):PS$=";C$;"DEPRECIATION PLANNER? ";C$;":VTAB12:T$=";C$;C$;":GOSUB185:VTAB12:SH=9:GOSUB215:TV=0:IFETHENGOTO29995"B"$O"5360FA=(RS$="C$;"Y";C$;"):VTAB14:CALL-958:GOSUB202:RN=11:GOSUB330:FF=5:GOSUB340:FF$=STR$(AR)+STR$(AP)+STR$(PR)+ST):PR=VAL(MID$(FF$,3,1)):FA=VAL(MID$(FF$,4,1)):IV=VAL(MID$(FF$,5,1))" O"5305AR=(RS$=";C$;"Y";C$;"):DF$=MID$(NY$,AP+1,1):PS$=";C$;"ACCOUNTS PAYABLE? ";C$;":VTAB12:T$=";C$;C$;":GOSUB185:VTAB12:GOSUB3000:IFETHENTV=0:GOTO29995"!O"5355AP=(RS$=";C$;"Y";C$":"LOCK GL12AC":"UNLOCKGL01AE"N"LOADGL01AE":"5100NY$=";C$;"NY";C$;":PP$=";C$;"WILL YOU BE USING ";C$;":CF=1:RN=20:GOSUB330:FF=3:GOSUB340:CN$=FF$:FF=5:GOSUB340:DP=VAL(FF$):RN=11:GOSUB330:GOSUB340"D O"5110AR=VAL(MID$(FF$,1,1)):AP=VAL(MID$(FF$,2,1)=E:?CL$;TX$:ON((E=0)AND(((OS=1OROS=4)ANDAG<9)OROS=6))GOTO3100:RETURN" N"2030FF=VAL(MID$(FF$,2,1)):FF$=MID$(FF$,1,1):IF(FF$=";C$;"D";C$;"ORFF$=";C$;"P";C$;"ORFF$=";C$;"R";C$;"ORFF$=";C$;"S";C$;")AND(FF>=1ANDFF<=9)THENBJ=1:GOSUB1910:RETURN":"SAVE GL12ACS=6))GOTO3100:RETURN"N"3112FF=2:GOSUB340:NE=VAL(FF$):IFNE=0THEN?CL$;TX$:GOSUB3025:EH=E:ON((E=0)AND(((OS=1OROS=4)ANDAG<9)OROS=6))GOTO3100:RETURN"EN"3113FF=3:GOSUB340:CM=VAL(MID$(FF$,3,2)):CY=VAL(MID$(FF$,1,2)):IF(CM+12*(CY-GY))>GM+2THENGOSUB3050:EHPS$=N$:DF$=N$:GOSUB215:EH=E:IFEOR(RS$=";C$;"N";C$;")THENRETURN"N"3110AG=AG+1:TX$=";C$;"DSKAAA";C$;":CF=2:CF$(CF,0)=TX$:GOSUB202:?OP$;TX$;";C$;",D1,V0,L";C$;";CF%(CF,0,1):RN=0:GOSUB330:IFETHEN?CL$;TX$:GOSUB3025:EH=E:ON((E=0)AND(((OS=1OROS=4)ANDAG<9)OROOSUB185"N"3102IFOS>3THENT$=T$+MID$(";C$;"DEPRECIATION PLANNERINVENTORY CONTROLGENERAL ENTRY";C$;",1+20*(OS=5)+37*(OS=6),20*(OS=4)+17*(OS=5)+13*(OS=6)):VTAB10:GOSUB185"?N"3103T$=";C$;"DISKETTE TO TRANSFER? ";C$;":VTAB12:GOSUB185:GOSUB200:SH=X:SV=Y:1,(OS=1OROS=2OROS=5ORAG>0))+MID$(";C$;"OTHER";C$;",1,5*((OS=1OROS=4OROS=6)ANDAG>0))+";C$;" ";C$zN"3101IFOS<4THENT$=T$+MID$(";C$;"ACCOUNTS RECEIVABLEACCOUNTS PAYABLECOMPENSATION MANAGER";C$;",1+19*(OS=2)+35*(OS=3),19*(OS=1)+16*(OS=2)+20*(OS=3)):VTAB10:GDLXX00":REW:3120:REZ:2:2550:T$"YOUR SYS001 IS NOW BEING MODIFIED":4570:D$"SAVE CA02MD,D2":D$"OPEN MODIFY EXEC,V0,D1":D$"WRITE MODIFY EXEC":"LOAD GL12AC,D1"_fN"UNLOCK GL12AC":"3100TEXT:GOSUB500:T$=";C$;"DO YOU HAVE A";C$;"+MID$(";C$;"N";C$;",10:T$=";C$;"INSERT THE DISKETTE MARKED ";C$;"+LS$:GOSUB190:VTAB11:T$=";C$;"IN DRIVE 1 ";C$;":GOSUB190"j;"SAVE BUSINESS,D1":"LOCK BUSINESS":"RUN CA02MD,D2":TF$"":3025:36863,W2(CS3):63500 NCS44640:(GBGLCSW)4650:TDW:V1$"SYS001":TF$"$(PF$,3)"1"(PF$,2):3060:3085:ST3025:TF2:TDW:3010:TRZ:3035:PF2:3050:NR(PF$):TRWNR:3035:PF3:3050()PF$"D"PF$"R"PFW:3050:(PF$)9999(PF$)15000(PF$)15999(PF$)17000(PF$)46999(PF$)70000IXIXW:S$(IX)TF$(TF,W)38010:S$(W)""TL76:TDW:TFW:3010:60'(2:2550:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:PLZ:2235:TF$"DMGL01":CF$TF$:TL350:TDW:3015:TFW2:TRTFW:59900::3025:TF$CF$:TFZ:TF$(TF,Z)"DMGL00":TDW:3010v((TR11:3035:PF5:3050:PF "(("MSTSYS"),W3(FL),3)"001 ""DISKETTE?":RD$"N"K&'2250:E38010:[& (FLZ:10210&(MRT:FCW:10030:PF$"N"İ10230:10260&(&2(FLW:10210:FLZ&<(DRT:FCW:10030:PF$"N"İ10230:10300&F(+'x(TDW:TF$"DLXX00":V1$"DAT001":3120:E3000:4640:%'2:2550:10:T$"HAVE YOU FINISHED CUSTOMIZING":PLZ:2235:12:T$CA$" ACCOUNTS?":RD$"":PT3:THZ:PLW:2250:E38010:FCW:CFT:CFİ10630:%'FLW:XAM:6&'2:2550:10:T$"HAVE YOU HAD TO RESTORE":PLZ:THZ:2235:THZ:12:T$"YOUR:THZ:RD$I$(CN,W):PNW:2250:PNZ:PSW:AD$PF$:E38010:M$`'2:2550:4630 %e'CTZCT3112500:GL(CTZCT31)12000:TFZ:TD2:TR21CT21CTAMW:3035:PF2:PF$I$(TR21,Z):3060:PF3:PF$I$(TR21,W):3060:WR(TR21CTAMW):3085::GLF260:GL1MEW:W:2:(ST$ST$ST$ST$,38):T223:T:W:"*";:40:"*";:T:24:2:(ST$ST$ST$ST$,38);:T$S$T$" MENU ":W:W((33)(T$))2:T$;:32,W:33,38:#.'22:RD$"":4700:PEZ:E38010:PF$"Y"FC2550:FCZ:PF$"N"2288::$B'PSZ:PH6:PTZ:PL30,W,6(YD$"")))((YD$,6))60:ERW:((PF$,W,6(YD$"")))((Y1$,6))60:ERZ:"PL8:PTZ:2250:E60:VPV:PHSH:TX$PF$:4720:ER60:G$;:T$UD$(" DATE OUT OF RANGE DATE IS INVALID",W18(ER2),18):242ME:PLZ:2235:RD$TX$:PV:4770#$::(0),3(8I),2))ĭ((AD$(7),2))((AC$(0),7(8I),2))TBIW:I2\ ";"*";:40:"*";::W:T$ST$:2275:W:T$M$:2280:24:T$ST$:2275: 8T$"DISKETTE ERROR ON DRIVE "(M):4:2280:6:T$"HAS NOT BEEN RESOLVED":2280:c =T$"1. RESTART AND TRY AGAIN":10:7:T$:T$"2. "("BACKUPRESTOREDUPLICATE",W6(OS2)13(OS32275:2355:1700:1050 u $2:2550:7:T$"A DISKETTE ERROR HAS OCCURRED ON":2275:9:T$"DRIVE "(M):2275: )13:T$"PLEASE CHECK THAT DISKETTES":2275:T$"ARE INSERTED PROPERLY":15:2275:G$;:2355:1700:GTGTW:C .:RLZ:MM223:W:MM:2275:2400:(ERS$"N")ġ:E7510:7540-  2:2550:12:T$"INSERT A NEW DISKETTE IN DRIVE 1":2275:2355:(ENO$"MST001")ĺG$;:1040 1700: VL$LS$:SD2:3950:EĢ2:2550:12:T$"INSERT THE DISKETTE MARKED "LS$:2275:13:T$"IN DRIVE 2":(-** COPYRIGHT 1979, DAKIN5 CORPORATION 77500_FLZ:MW6:(M$,M,W)S$M7:FLWg:' 2:2550:T$"THE DISKETTE INSERTED IN DRIVE 1":8:2275:T$"IS NOT BLANK":10:2275:RD$Q$:2225:PTZ:PLW:RLW:T$"DO YOU WANT TO CONTINUE? ":12:               3955&EL3400EW:30952&EL3250EW:3095p&\:EL3110T$"UNABLE TO OPEN FILE "TF$:22:2350:62970&#T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:2275:T$"REFER TO YOUR USER'S MANUAL":22:UEW:2350:62990r'$D$(13)(4):G$(7)3):E((SL$,W,(VL$))VL$),%sCL$;LF$::>%3000::4499r%EC(222):EL(218)(219)256:768:EC255ĺD$%EL3090EW:3095%EL4499ĉ:7510%EL3225EW:3095%EL3950EC5E2:3955%EL3950EC8E2:3955&EL3950EW::10:T$PM$:2275:12::12:"DO";:15:"NOT";:19:"INTERRUPT!"::3000:g$A12:2275:TW3000:T:%n3000:EZ:SL$Q$:TD$Q$:OP$;LF$;",D";SD;",V0":RE$;LF$:SL$:TD$(SL$,14,2)"/"(SL$,16,2)"/"(SL$,12,2):SL$(SL$,11):DB$(SL$,6):TN$(SL$,8,0:OP$;TF$;",D";TD;",V0,L";TL::O#5 TF$TF$(TF,Z):TD2:TLTF%(TF,Z,W):3110:v# 3000:WR$;TF$;",R";TR:TR$;D$::#H 3000:RE$;CF$;",R";TR:TF$,TN,TF%(TF,Z,W):TF$(TF,Z)TF$:TF%(TF,Z,Z)TN:TWTN:TXZ2:TF%(TF,T,TX):TX:T$:T:D$::J$<2:2550W)(((PF$,W))17):PF$PF$("-",W,(PF$)Z)5" " TTTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TTİ2010:TTWİ3025" " EZ:3000:RE$;TF$;",R";TR:TR$" D$::" TF$TF$(TF,Z):3090:TF$(TF,W)TR$:TF%(TF,Z,2)TR:!#& 300PL8:2250:Eı'! T$RS$:2425:EZıh! TXPH:TYPV:TD$RS$:T$UD$" DATE IS INVALID":22:2350:Eı! TX:TY:RD$TD$:2450! (37)Zė:T$"** "PD$" **":2280:! W:958:! 34,Z:35,Z:33,W:32,Z::/" (PF$,W)"@"PF$(PF$,W,(PF$)$,7,2)(T$,W,2)(T$,4,2):TW(YM$):TX((YM$,T,W))48:(TXZ)(TX9)ı :MM((T$,W,2)):DD((T$,4,2)):YY((T$,7,2)):DDWMMWMM12YY70ı T(MM4MM6MM9MM11):DD(28(MM2YY(YY4)4)(MM2)(2T))ı EZ:2420:! 2225::RD$Q$:2250:2300:TVZ:H` 2225:PLW:2250:E(RS$"Y")(RS$"N")ıge G$;:RD$RS$:PH:PV:2400t YM$(Z$(((T$,2)))(((T$,W,2))60)(((T$,4,2))60),10((T$)Z)W,4):y EW:((T$)8)((T$,3,W)"/")((T$,6,W)"/")ıK ~ YM$(T2150:EPLPF$RS$:2100$1W:868hT(33)RL:T$(T$,W,T):W(T(T$))2:T$;:RLZ:W:TVāTTVUE22:T:868:T 23:868: G$;:TW50:T:G$;:. 22:G$;:2275:2050:TVPV((T$)40)3 23:T$PE$:RLW:2275:2225TT$Q$+R21R$(RD$,THPHW,W):2165E(R31R44R58((RS$,W)S$))((RS$)PL(PTW))((((RS$,W)"-")((R45)((RS$Q$)(PT2)))((R45)((R48R57)((RS$)PL))))PT):EĺT$;:2160R$;:RS$RS$R$:2160PTZ:PLZ:PCZ:PZZ:PPZ:R$:ERERZ:24:W:868:PV:PH<uT$G$:R$Q$ĺT$;:2160azR(R$):E(RER27):ERS$Q$:vR24ĺT$;:2155R13RS$RS$(RD$,W,(RD$)(RS$Q$)):R8T(THPH):RS$(RS$,W,(RS$)T):THTHT:TH:PV:((RD$,THPHW,W)".",W,PLZ);:2055:(PCZ)2060:PF$(SP$PF$,PLPX)(" -",TMW,(PZ)):V*PF$(PF$SP$,W,PL):4PXZ:PTW2090,2075,2075:PHPX:PV:PF$;:f16368,Z:2050:TL$RD$:2000:RD$TL$:TLPLTL(PTW)kRS$Q$:PH:PV:RD$;(P$,W,TL); pTHPH(RS$):TH:PV:(T$,W,(T$)(TY$)):TX$TY$TX$:(T$)TX$","TX$:2065_PF$TX$(PF$,(PF$)PP(PPZ)):<PX(PC(PLPPW)3(PPZ)):(PZ)2010:PF$(Z$,W,PZ(PL(PF$)))PF$:TM((PF$,W)"-"):PF$(PF$,W,(PF$)TM):PF$(Z$,(Z$)(PF$)(PPZ)PP)PF$:(PPZ)S$ĂTL&TL$(TL$,W,TL):TL(TL$):iTL((PF$)2):T$"0":(TL)āTLW(PF$)W:(PF$,TL,W)T$ĂTL}PF$(PF$,TL):PH(36)W:PV(37)W:PF$(PF$,W,(PF$)PP)"."(PF$,PP): T$(PF$,W,(PF$)PP(PPZ)):TX$Q$9TY$(T$,3):T$47,(47095):29668,(47095)nJ1120:28672:E(29645):(EZ)1710:M2(E2)(E8)::(GT)İ1060:1065:1610hMWġ:1200r2:2550:1080:1115:EW:1700E4499:FTZ1125:FTW:TL((TL$)Z):TLāTL(TL$)WW:(TL$,TL,W)Т22:9:"ENTER YOUR SELECTION -> ";:2150:OS(RS$):(OSWOS42(SF))(E)1474iG$;:RD$RS$:147022:9:25):((SF))OS4OS6:KK$RS$:T$"INVALID ENTRY":24:RLZ:2275:RD$KK$:ERW:@GTZ:29654,(47095):29633,(47095):296J,D1":36488:W1:Z0:D$(13)(4):G$(7):S$" ":SP$" ":P$"..............................":Z$"0000000000000":61000TF$"":3025:TF%(3,20,2),TF$(3,W):CF$"DMCA01":TF$CF$:TL350:TD2:3015:TRZ2:TFTR:59900:TR:TF$"":3025:3801:ST%W:LN%8:36488:EN%,ST%,LN%,ST$(W):103008JJWEN%:TRJ:TFW:3035:ST$(J)(T$,11):PF$(T$,10,W):10400:ST$(J)(DT)ST$(J):J:ST%W:LN%7:36488:EN%,ST%,LN%,ST$(W):10300z10000:(1008)11000,12000,19000,13000,14000:J(4)"BLOAD SORT.OB5:ST$(J)(((T$,81,W)))ST$(J)T3J:ST%W:LN%7:36488:EN%,ST%,LN%,ST$(W):103006JWEN%:TRJ:TFW:3035:ST$(J)(T$,11):PF$(T$,10,W):10400:DT4ST$(J)"//"ST$(J):140706TR((T$,7,3)):TF2:3035:ST$(J)("00"(T$,82,2),2)ST$(J)-6JTR((T$,7,3)):TF2:3035:ST$(J)("*"(T$,36,2),W((T$,36,W)" "),2)ST$(J):J:ST%1:LN%8:36488:EN%,ST%,LN%,ST$(W):103002JWEN%:TRJ:TFW:3035:ST$(J)(T$,11):PF$(T$,10,W):10400:DT4ST$(J)"0"ST$(J):13070 2TR((T$,7,3)):TF2:303:ST%1:LN%6:36488:EN%,ST%,LN%,ST$(W):TFZ:TR19:PF5:3010:3035:PF$"1":3060:3085:3025:TFW:TRWEN%:PFW:T$ST$(TR):TF$TF$(TF,Z):3090>+:TFZ:TR19:PF5:3010:3035:PF$"0":3060:3085:3025:62900.JWEN%:TRJ:TFW:3035:ST$(J)(T$,11):1"80OS5PD$"DISKETTE CONVERSION":PN$"SY07AC,D1,V0"03000:CL$::38400:WA6:2550:12:(PN$)T$"YOUR PROGRAM IS NOW BEING LOADED":2275:D$;"RUN";PN$0"T$"PROGRAM TERMINATED":2225::** SY04AF0** COPYRIGHT 1979, DAKIN5 CORPORATION SS SYSTEM":PN$"BUSINESS,D1,V0":63000/VL$DS$:SDW:3950:PD$BL$:EA6W:W:2550:12:T$"INSERT THE DISKETTE MARKED "VL$:2275:13:T$"IN DRIVE 1":2275:2355:EW62970,44990PD$BL$:PN$PR$",D1,V0":OS4PD$"FILE ALLOCATION":PN$"SY06AC,D1,V0",31,35,"AN","AN00AC","THE ANALYZER","SYS031",36,40,"CW"," "," "," ",41,45,"OE"," "," "," ".VL$"MST001":SDW:3950:EĢ2:2550:12:T$"INSERT THE DISKETTE MARKED "VL$:2275:13:T$"IN DRIVE 1":2275:2355:EW62950,4499&/PD$"APPLE GENERAL BUSINE0-0u 9: 0,5,"GL","SY00AC","THE CONTROLLER","MST001",6,10,"AR","SY00AC","THE CONTROLLER","MST001",11,15,"AP","SY00AC","THE CONTROLLER","MST001",16,20,"PR"," "," "," ",21,25,"CA","CA00AC","THE DEPRECIATION PLANNER","SYS021" [.:u 26,30,"IC"," "," "," (SP$,6):SDW:3950:(EW)İ10201,LS$DN$:1050r,FTZ:((OSW)((DN$,3)"DAT"((DN$,3))HR))1435:1600:,M$NO$:1000:(FL)NO$DO$,MW:M$NO$:1170:Eī1200,1800:(NO$DO$)(NO$DO$A5W)İ1140-(DN$"BKM001"OS3)62950:751(OS2),6(OS2)):1420:RS$"N"DO$NO$m+tW:2550:M$DO$:1000:(FLZA5W)7550:LS$DO$:LD$DN$:CTZ:GTZ+w1300:(E1E2)ī7590+yCTCTW:M(E1W)(2(E2W))(E1WE2W):(CT3)İ1060:1065:(GT2)1200:CTZ:7543+{1350:7543,~1040:VL$N$"MST001":W:2:958:7517y*VA6Z:PD$"UTILITIES":M$S$PD$" MENU ":1070:1460:1469:(EOS3)62970:1390:DN$RS$*]NO$"BK"(DN$,W)(DN$,4):OSWT$NO$:NO$DN$:OS2DN$T$'+`DO$(SP$,6):(OS3)7540:KK$(RS$,4):T$("BACKUPRESTORE",W6IWNS:R1,R2,A1$,A2$,A3$,A4$:DLR1DLR2R3R1:R4R2:AR$A1$:PR$A2$:BL$A3$:DS$A4$:SN$BL$o)`I:HRR2:)jR415SFW)*L3000:28672:4900:3000:D$;"BLOAD COPY.OBJ,D1,V0":CL$:VL$"":SDW:3950:E62970:RN$TN$:(SL$,6)"BKM001"OS2:D-------------":QE$"==============================":Z0:W1(.ST$"**************************************":768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:4500`)8VL$"":SDW:3950:E62970:DL((SL$,4,3)):NS::PE$"PRESS 'RETURN' KEY TO CONTINUE ":D$;"NOMON I,O,C":OP$D$"OPEN":RE$D$"READ":WR$D$"WRITE":CL$D$"CLOSE";()LF$"DLXX00":Q$"":S$" ":SP$" ":P$"..............................":Z$"0000000000":US$"-----------------"0"GLİ50215:10680r,)((AN$)ZGL)(AN$)ZI$(CN,Z)"":I$(CN,W)"":(FL)10150:FL10810:CFXXW:10810,)GL(AN$)5İ50170:10680,*GL((AN$)AR(AN$)BR)İ50190:10680,*CTCN110780-*X9CTCN1:X9I$(X9,Z)AN$10777:X9:101, DAKIN5 CORPORATIONA)X9CTCN1:I$(X9,Z)RD$RD$""10679:X9CN1:X9:XAM10674:X9CNAMCT2:I$(X9,Z)I$(X91,Z):I$(X9,W)I$(X91,W):X9:I$(AMCT1,Z)"":I$(AMCT1,W)"":10670+)I$(CN,Z)"":10670+)X9,)11:2250:E38010:PXZ:HPPH:AN$PF$:RD$AN$:PSW:AN$а2550:7:T$"ENTER YOUR DEPRECIATION PLANNER":PLZ:2235:9:T$"ACCOUNT NUMBER FOR":PLZ:2235:*)XFAM:CNXCTW:T$CA$" ("(X)"/"(AM)")":THZ:2286*)PN(XW):PS2:PT2GL:PL5:PHHP:PF$"":RD$I$(CN,Z):FL((RD$)Z):PXW:CFZ:FX10680+$"AND THE REF NO LISTED BELOW":2235:14:T$"AND CALL DAKIN5 HOTLINE FOR":2235:16:T$"FURTHER INFORMATION":2235:24:T$"ERROR "(EC)" HAS OCURRED. REF NO "(EL):223561100 3000:D$"EXEC MODIFY EXEC,D1"::* D/P SETUP** COPYRIGHT 198,166:772,223:773,154:774,72:775,152:776,72:777,96:W1:Z0:D$(13)(4):G$(7):C$(34):61000qPë15000HEC(222):EL(218)(219)256:768:EC255ĺD$\EL3110ERW:3115p:2:2555:10:T$"PLEASE RECORD THE ERROR NUMBER":2235:12:T2:VL$=LS$:DN=1:GOSUB240:E0=E:IFETHENTEXT:GOSUB210:VTAB10:T$=";C$;"INSERT THE DISKETTE MARKED ";C$;"+LS$:GOSUB190:VTAB11:T$=";C$;"IN DRIVE 1 ";C$;":GOSUB190"j;"SAVE BUSINESS,D1":"LOCK BUSINESS":"RUN BUSINESS":63500fJ768,104:769,168:770,104:771CL$:TEXT:GOSUB210:VTAB12:IFLEN(NP$)THENT$=";C$;"YOUR PROGRAM IS NOW BEING LOADED";C$;":GOSUB185:ONLEFT$(DL$,6)<>";C$;"BKM001";C$;"GOSUB3030:GOSUB202:?D$;";C$;"RUN";C$;"NP$"V;"5130VTAB22:T$=N$:GOSUB185:IFMS=MN+1THENGOSUB3100:TEXT:GOTO5040":"5138GOSUB20". ";C$;";MS$(I);:NEXTI:VTAB2*I+4:HTABHC:?I;";C$;". CHANGE TODAY'S DATE";C$;":POKE33,38:POKE32,1:POKE34,1:GOSUB235"B;"5120VTAB22:T$=";C$;"ENTER YOUR SELECTION -> ";C$;":GOSUB185:GOSUB200:SH=X:SV=Y:SC=2:SL=1:GOSUB180:ONEGOTO7000"L;"30000GOSUB202:?ON MANAGER";C$.;"5040GOSUB300:FORYT=2TO23:HTAB1:VTABYT:?";C$;"*";C$;";:HTAB40:?";C$;"*";C$;";:NEXT:VTAB1:T$=AS$:GOSUB190:T$=PD$:GOSUB190:T$=AS$:VTAB24:GOSUB190:VTAB3:HTAB10:?";C$;"TODAY'S DATE ";C$;";CD$"u8;"5050FORI=1TOMN:VTAB2*I+4:HTABHC:?I;";C$;14:T$=";C$;"YOU MAY NOW TURN OFF YOUR APPLE";C$;":GOSUB190"$;"32010DATA6,1,";C$;"THE CONTROLLER";C$;",2,";C$;"THE ANALYZER";C$;",3,";C$;"THE VISUALIZER";C$;",4,";C$;"THE DEPRECIATION PLANNER";C$;",5,";C$;"THE BUDGET PLANNER";C$;",6,";C$;"THE COMPENSATI;",2*MI-1,2):NP$=MM$+";C$;"00AC,D1";C$;":PD$=";C$;"** ";C$;"+MS$(MS)+";C$;" **";C$;":GOTO30000";;"7000TEXT:GOSUB210:VTAB10:T$=";C$;"PROCESSING USING THE APPLE GENERAL";C$;":GOSUB190:VTAB12:T$=";C$;"BUSINESS SYSTEM HAS BEEN COMPLETED";C$;":GOSUB190:VTAB;"MSTSYS";C$;",1+3*(MI>1),3)+NN$" :"5000GOSUB202:GOSUB195:PD$=";C$;"** APPLE GENERAL BUSINESS SYSTEM **";C$;":N$=";C$;"";C$;":NP$=N$:DIMMS$(6),MI%(6)":"5125MS=VAL(RS$):IFMS<1ORMS>MN+1THEN?G$;:DF$=RS$:GOTO5120"_;"5180MM$=MID$(";C$;"SYANVICABPCM";C$EN MODIFY EXEC,D1,V0":D$"WRITE MODIFY EXEC":"LOAD BUSINESS,D1"! :"UNLOCK BUSINESS":"5035?D$";C$;"OPENMODIFY EXEC,D1";C$;":?D$";C$;"DELETEMODIFY EXEC";C$:"5135TEXT:MI=MI%(MS):NN$=";C$;"0";C$;"+MID$(";C$;"013141215161";C$;",1+2*(MI-1),2):LS$=MID$(";C$ VW:23:868: :PD$"DEPRECIATION PLANNER SETUP":2550:TDW:V1$"MST001":TF$"DLXX00":REW:3120:REZ:(PF$,11,W)"B"REW:3120:REZ@ :2:2555:THZ:T$"THE DEPRECIATION PLANNER":PLZ:10:2235:THZ:T$"IS NOW BEING SET UP":12:2235:3000:D$"OPB)")TR:3025:ST42020:TFZ:TF$(TF,Z)"DMCA00":TFW:TDW:3010:|)6)GLTFW:TR((S$(SX),6,5)):3035:PF2:3050:AD$PF$)J)14:2550:T$"CHART OF ACCOUNTS DESCRIPTION IS":PLZ:2235:T$"":16:GL10050:I$(CN,W)AD$:T$AD$:PLZ:2235:10030:`*)2:$CP$",D1,V0":PD$"UTILITIES":A4W:76706Eī7680<V:(FTZ)1125:FTW::VL$DS$:SDW:3950:Eİ2550:12:T$"INSERT THE DISKETTE MARKED "VL$:2275:13:T$"IN DRIVE 1":2275:2355:1850?PD$SN$:PN$PR$",D1,V0":63000)TL((TL$)Z8)::(GT)İ1060:1065:1610/hMWġ:1200SrACİ2550:1080:1115:EW:1700|REW:(E8)1110:(E8)1112:DN$"BKD"(DN$,4):NO$"DAT"(DN$,4):DO$(SP$,6):CS3:CP$"":PD$"DISKETTE RESTORE":W:2550::7540)(ACE)CP$"SY04AF":CD$DS$:PNVE 1":2275PE2E1İ2550nZE2Ģ14:T$"INSERT THE DISKETTE MARKED "LD$:2275:15:T$"IN DRIVE 2":2275d2355:1700:@GTZ:29654,(47095):29633,(47095):29647,(47095):29668,(47095):J1120:28672:E(29645):(EZ)1710:M2(E2)(E80:M$(AR$,W,W)"/"(AR$,2,W):1085:1100:W:2550:(RSW)7540:(RS2)A5W:7540^7670VL$LS$:SDW:3950:E0E:E1Z:E2Z:EE1WVL$LD$:SD2:3950:EE2W( F2:2550:E1Ģ10:T$"INSERT THE DISKETTE MARKED "LS$:2275:11:T$"IN DRI:NO$(PF$,19,6):PF4:3075:ER(PF$):3000:CL$::TF$"DLXX00":TDM:TL18:3110:TRZ:3090:TR$M$(TR$,7):3225:3000:CL$::TF$TF$(TF,Z):TDM:TLTF%(TF,Z,W):3110:TM$"** DISKETTE "("RESTOREBACKUP",W7(CS3),7)" MENU **":1070:10S$:3200:PF4:PF$S$:3200:MWPF5:PF$S$:3200K3250:3000:CL$::4TFW:3125:TR18:3100:PF2:3075:AC(PF$):PF3:3075:CD$(PF$,6):PF4:3075:CS(PF$):PF5:3075:CP$PF$:TR19:3100:PF3:3075:DN$(PF$,W,6):DO$(PF$,7,6):NI$(PF$,13,6)t2:2550:T$"REMOVE THE DISKETTE IN DRIVE "(M):9:2275:T$"LABEL THIS DISKETTE AS "M$:11:2275:2355:~TFW:1180:TR18:3100:PF2:PF$S$:3200:PF3:PF$S$:3200:PF4:PF$S$:3200:MWPF5:PF$S$:320023250:TFW:1180:TR19:3100:PF3:PF$:2275`[T$"READ YOUR USER'S MANUAL":17:2275:T$"BEFORE CONTINUING":18:2275:2355:1700:`PM$"YOUR DISKETTE IS NOW BEING "("BACKED UPRESTORED",W9(CS3),9):3900:e2:2550:2325:T$("RESTOREBACKUP",W7(CS3),7)" COMPLETED":3905:n" ";:QG$;:RD$RS$:1103V2:2550:1080:T$"RESTORE UTILITY MUST BE RUN":11:2275:T$"WITH NEXT MOST RECENT BACKUP DISKETTE":13:2275:1115X2:2550:1080:T$"RESTORE UTILITY MUST BE RUN":11:2275:T$"USING BACKUP DISKETTE IN DRIVE 2":13"3. RETURN TO "M$" MENU":14:9:T${ BT$"READ YOUR USER'S MANUAL":17:2280:T$"BEFORE MAKING SELECTION":18:2280: L2325:RD$Q$O2225:PT2:PLW:22:9:"ENTER YOUR SELECTION -> ";:2150:RS(RS$):(ECS2)(RSWRS2(CS2))Ģ22:2:SP$;:2275:T$M$:W:2280:24:T$ST$:2275:~ 8T$"DISKETTE ERROR ON DRIVE "(M):4:2280:6:T$"HAS NOT BEEN RESOLVED":2280:' =T$"1. RESTART AND TRY AGAIN":10:9:T$:T$"2. "("RESTOREBACKUP",W7(CS3),7)" TO NEW DISKETTE":12:9:T$:(CS2)T$:1050 d $2:2550:7:T$"A DISKETTE ERROR HAS OCCURRED ON":2275:9:T$"DRIVE "(M):2275: )13:T$"PLEASE CHECK THAT DISKETTES":2275:T$"ARE INSERTED PROPERLY":15:2275:2355:1700:GTGTW:( .:MM223:W:MM:"*";:40:"*";::W:T$ST$ANT TO CONTINUE? ":12:2275:2400:(ERS$"N")ġ:7540=  2:2550:12:T$"INSERT A NEW DISKETTE IN DRIVE 1":2275:2355:1700: VL$LS$:SD2:3950:EĢ2:2550:12:T$"INSERT THE DISKETTE MARKED "LS$:2275:13:T$"IN DRIVE 2":2275:2355:1700EE0Ģ2:2550k E0E0E:EĢ14:T$"INSERT THE DISKETTE MARKED "LD$:2275:15:T$"IN DRIVE 2":2275:E2Wy E0İ2355 7 2:2550:T$"THE DISKETTE INSERTED IN DRIVE 1":8:2275:T$"IS NOT BLANK":10:2275:RD$Q$:2225:PTZ:PLW:RLW:T$"DO YOU W(-** COPYRIGHT 1979, DAKIN5 CORPORATION 77500_FLZ:MW6:(M$,M,W)S$M7:FLWg:VL$LS$:SDW:3950:E0E:E1Z:E2Z:EĢ2:2550:10:T$"INSERT THE DISKETTE MARKED "LS$:2275:11:T$"IN DRIVE 1":2275:E1W VL$LD$:SD2:3950:               NUAL":22:UEW:2350:1850&$D$(13)(4):G$(7):PE$"PRESS 'RETURN' KEY TO CONTINUE ":D$;"NOMON I,O,C":OP$D$"OPEN":RE$D$"READ":WR$D$"WRITE":CL$D$"CLOSE"o')LF$"DLXX00":Q$"":S$" ":SP$" ":P$"..................2:3955#%EL3950EC8E2:3955:%EL3950EW:3955Q%EL3400EW:3095h%EL3250EW:3095%\:EL3110T$"UNABLE TO OPEN FILE "TF$:22:2350:1850&#T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:2275:T$"REFER TO YOUR USER'S MA":RE$;LF$:SL$:TD$(SL$,14,2)"/"(SL$,16,2)"/"(SL$,12,2):SL$(SL$,11):E((SL$,W,(VL$))VL$)w$sCL$;LF$::$3000::4499$EC(222):EL(218)(219)256:768:EC255ĺD$$EL3090EW:3095$EL3225EW:3095%EL3950EC5E,TF%(TF,Z,W):TF$(TF,Z)TF$:TF%(TF,Z,Z)TN:TWTN:TXZ2:TF%(TF,T,TX):TX:T$:T:D$::#<2:2550:10:T$PM$:2275:12::12:"DO";:15:"NOT";:19:"INTERRUPT!"::3000:#A12:2275:TW3000:T:f$n3000:EZ:SL$Q$:TD$Q$:OP$;LF$;",D";SD;",V0PF$,TF%(TF,PF,W))j" TF$(TF,W)(TF$(TF,W),W,TF%(TF,PF,Z)W)PF$(TF$(TF,W),TF%(TF,PF,Z)TF%(TF,PF,W)):" 3000:WR$;TF$;",R";TR:TR$;D$::" TF$TF$(TF,Z):TRTF%(TF,Z,2):TR$TF$(TF,W):3225:3000:CL$;TF$:3125:Z#H 3000:RE$;CF$;",R";TR:TF$,TNTR$:TF%(TF,Z,2)TR:?!& 3000:OP$;TF$;",D";TD;",V0,L";TL::m!5 TF$TF$(TF,Z):TD2:TLTF%(TF,Z,W):3110:! TTTF%(TF,PF,2):TTWĭ((PF$,W)"-")PF$(PF$,W,(PF$)2)(((PF$,(PF$)W,W))17)! TTZPF$(PF$SP$,TF%(TF,PF,W))" TTPF$(Z$(PF$,W)"@"PF$(PF$,W,(PF$)W)(((PF$,W))17):PF$PF$("-",W,(PF$)Z)S  TTTF%(TF,PF,2):PF$(TF$(TF,W),TF%(TF,PF,Z),TF%(TF,PF,W)):TTİ2010:TTWİ3025   EZ:3000:RE$;TF$;",R";TR:TR$  D$::! TF$TF$(TF,Z):3090:TF$(TF,W))ı EZ:2420:- 2225:PL8:2250:EıE T$RS$:2425:EZı TXPH:TYPV:TD$RS$:T$UD$" DATE IS INVALID":22:2350:Eı TX:TY:RD$TD$:2450 (37)Zė:T$"** "PD$" **":2280: W:958: 34,Z:35,Z:33,W:32,Z::M ((T$,6,W)"/")ıi~ YM$(T$,7,2)(T$,W,2)(T$,4,2):TW(YM$):TX((YM$,T,W))48:(TXZ)(TX9)ı :MM((T$,W,2)):DD((T$,4,2)):YY((T$,7,2)):DDWMMWMM12YY70ı T(MM4MM6MM9MM11):DD(28(MM2YY(YY4)4)(MM2)(2T)23:T$PE$:2275:2225:RD$"":2150:E(R27):2300:TVZ:f` 2225:PLW:2250:E(RS$"Y")(RS$"N")ıe G$;:RD$RS$:PH:PV:2400t YM$(Z$(((T$,2)))(((T$,W,2))60)(((T$,4,2))60),10((T$)Z)W,4):y EW:((T$)8)((T$,3,W)"/")TZ:PLZ:PCZ:PZZ:PPZ:82150:EPLPF$RS$:2100>KW:868T(33)RL:T$(T$,W,T):W(T(T$))2:T$;:RLZ:W:TVāTTVUE22:T:868:T 23:868: G$;:TW50:T:G$;:. 22:G$;:2275:2050:TVPV((T$)40)83 ,THPHW,W)".",W,PLZ);:TT$Q$ER21R$(RD$,THPHW,W):2165E(R31R44R58((RS$,W)S$))((RS$)PL(PTW))((((RS$,W)"-")((R45)((RS$Q$)(PT2)))((R45)((R48R57)((RS$)PL))))PT):EĺT$;:2160R$;:RS$RS$R$:2160P$Q$:PH:PV:RD$;(P$,W,TL);:pTHPH(RS$):TH:PV:R$VuT$G$:R$Q$ĺT$;:2160{zR(R$):E(RER27):ERS$Q$:R24ĺT$;:2155R13RS$RS$(RD$,W,(RD$)(RS$Q$)):!R8T(THPH):RS$(RS$,W,(RS$)T):THTHT:TH:PV:((RD$,(PF$)TL):PF$(Z$,(Z$)(PF$)(PPZ)PP)PF$:(PPZ)2055:(PCZ)2060:PF$(SP$PF$,PLPX)(" -",TMW,(PZ)):*PF$(PF$SP$,W,PL):4PXZ:PTW2090,2075,2075:PHPX:PV:PF$;:f16368,Z:2050:TL$RD$:2000:RD$TL$:TLPLTL(PTW)kRS(PPZ)):TX$Q$\TY$(T$,3):T$(T$,W,(T$)(TY$)):TX$TY$TX$:(T$)TX$","TX$:2065PF$TX$(PF$,(PF$)PP(PPZ)):tPX(PCW)((PLPP)3)((PC2)(PLPPW)3)(PPZ):PZ2010:PF$(Z$,W,PZ(PL(PF$)))PF$:TL((PF$,W)"-"):PF$(PF$,W):TLāTL(TL$)WW:(TL$,TL,W)S$ĂTLITL$(TL$,W,TL):TL(TL$):TL((PF$)2):T$"0":(TL)āTLW(PF$)W:(PF$,TL,W)T$ĂTLPF$(PF$,TL):PH(36)W:PV(37)W:PF$(PF$,W,(PF$)PP)"."(PF$,PP): T$(PF$,W,(PF$)PPF$TS$OQIW((LF$)(W((IA$(6))6))):DT6280,6370,6480,16200,60,6500,6600,6700:PEZ:16250:3795:15680:(A1$"X",(A1$)W(F5)((A2$)Z))(SP$,4W(F5)((A2$)Z))A2$" "A3$:3710:I:LP12CPW:3795:15680:3710OQrPQ10020:10210:10$:PHSH:20790?NMQ23:W:868:A2$(A4$,W):F1W:A2$"D"F12~NhQF120870,20980:E60:PGW:3750:10020:10060:PGZ:20760OQ2:2550:4650:E60:4660:10020:10210:10060:SPW:VT$"DEPRECIATION MODEL":T$"01504.1":3850:TX$CO$:TY$CS$:Z12:4500:Dȱq Mqr .ȱ qqi qrir q O  A 팭 # 1 e D #S Ѝ  Z .S qȱraq` .A 팩Le`  .S .  OS # 1 e D 9A 팩2 e D 9 .D O . 9M L 1 e D 9M 9 # OD   DS D O 9M L퍭8 aqr hh```` ` ` ````H DȱHȱh08h`  .S .  9S 9 1 e D .M . # 9D 팩5 e 9 DLu"%9Ma00000000000000000000000000000000000000000000000000000000000000000000000000000000    ) `eLLLL jLL}{L HH BEING LOADED":2275:D$;"RUN";PN$R0"T$"PROGRAM TERMINATED":2275::** SY05AF 0** COPYRIGHT 1979, DAKIN5 CORPORATION PN$CP$",D1,V0":PD$"ANALYZER STARTUP":63000p/CP$"AN12AC"PN$CP$",D1,V0":PD$"TRANSFER FROM G/L":63000/ CP$""PN$CP$",D1,V0":PD$BL$:63000/PD$BL$:PN$PR$",D1,V0"!03000:CL$::38400:W:2550:12:(PN$)T$"YOUR PROGRAM IS NOW PRECIATION PLANNER","SYS021".:u 26,30,"IC"," "," "," ",31,35,"AN","AN00AC","THE ANALYZER","SYS031",36,40,"CW"," "," "," ",41,45,"OE"," "," "," ".(CP$,3,2)"85"PN$CP$",D1,V0":PD$"CLOSE MONTH":63000./CP$"AN03AE"CP$"AN03AC"CP$"AN05AC"62990:- LS$CD$:LD$A$:1010:(E1WE2W)7690:A463000./u 9: 0,5,"GL","SY00AC","THE CONTROLLER","MST001",6,10,"AR","SY00AC","THE CONTROLLER","MST001",11,15,"AP","SY00AC","THE CONTROLLER","MST001",16,20,"PR"," "," "," ",21,25,"CA","CA00AC","THE DE#,(ACW(ACZCS3))İ1800:7670C,M$NI$:1000:(FL)NI$DN$a,M2:M$NI$:1170:Eİ1650,1800:MW:M$NO$:(NO$DO$)(NO$DO$A5W)İ1140,M2:M$NI$:(NI$DN$)İ1140,M$CP$:1000:FLī7690-LS$DS$:LD$A$:1010:(E1WE2W)7680:60:1065:(GT2)1200:CTZ:75430+{1350:7543_+~1040:VL$(SP$,6):SDW:3950:(EW)İ1020q+LS$DN$:1050+1600:(ACZCS3)MW:1150:Eī1200+M$NO$:1000:(FL)NO$DO$+MW:M$NO$:1170:Eī1200+(ACZCS3)M2:1150:Eİ1650ISKETTE "("RESTOREBACKUP",W7(CS3),7):REW:ACTFW:3125:TR18:3100:PF2:PF$"0":3200:3250:3000:CL$:*tM$DO$:1000:(FLZA5W)7550:LS$DO$:LD$DN$:CTZ:GTZ*w1300:(E1E2)ī7590 +yCTCTW:M(E1W)(2(E2W))(E1WE2W):(CT3)İ10:2:W:958:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:2275:TF%(3,25,2),TF$(3,W))VSD2:3950:(EZ)4899:A$(SL$,6):A((A$,4)):CF$"DM"AR$"01":TF$CF$:TD2:TL350:3110:TFW:TRW:AR$"CA"TRZp*`3400:(EZ)4899:3000:CL$::1160:PD$"D(8VL$"":SDW:3950:E62970:DL((SL$,4,3)):NS:IWNS:R1,R2,A1$,A2$,A3$,A4$:DLR1DLR2R3R1:R4R2:AR$A1$:PR$A2$:BL$A3$:DS$A4$:SN$BL$(`I:HRR2:(jR415SFW(W)L28672:3000:(13);(4);"BLOAD COPY.OBJ,D1,V0":4900:3000:CL$:............":Z$"0000000000":US$"------------------------------":QE$"==============================":Z0:W1'.ST$"**************************************":768,104:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96:4500" "A3$:3710:I:3795:22:12:"DISPLAY FINISHED":3710:2286:4690:QaAFZ:N7:H4:T$"MODEL PROCESSING":4900:2325:N:H:"1. ADD MODEL":NW:H:"2. CHANGE MODEL":N2:H:"3. REMOVE MODEL"zRaN4:H:"4. PRINT DEPRECIATION MODEL":N5:H:060:SPZ:VT$"** DEPRECIATION MODEL **":T$"":3850:TX$CO$:TY$CS$:Z12:4500:DF$TS$:IW((LF$)((IA$(6))6))IQRDT6280,6370,6480,16200,60,6500,6600,6700:PEW:16250:PEZ:3795:5:(A1$"X",(A1$)W(F5)((A2$)Z))(SP$,4W(F5)((A2$)Z))A2$Z)XCA:F4W24X:F413530:SV$I1$(I1CT):SNIX:4150:TFW:TR((S$(SX),6,5)):3035:PF3:3050:PF$(13((PF$)2)):3060:308524F4Z:I1:3:2:2550:PT3:THZ:10:T$"WILL YOU BE USING THE":PLZ:2235:12:T$"APPLE GENERAL BUSINESS SYSTEM?":TH":I$(CC,W)"":CCCCW:1112TFW:SNIX:IZCAW:SV$I$(ICT,Z):4150:SR13030:TR((S$(SX),6)):3035:PF3:3050:PF$(23((PF$)2)):3060:TDW:308512I:13500:14I1ZAMW:I1$(I1CT)""I1AMW:13530 24XZCAW:I1$(I1CT)I$(XCT,TCTCAW:I$(I,W)Q$(X):XXW::IW10:Q$(I)""::XZ:u00XZ:CAZ:IZAMW:CCICTX:I$(CCX,Z)""XXW:1252000I$(CC,Z)I$(CCX,Z):I$(CC,W)I$(CCX,W):CACAW00:CCCCW:I$(CT9,Z)""I$(CT9,Z)" "CCCCW10XZāIWAMCA:I$(CC,Z)"PF$,W,2):YD(PF$):YD$PF$:Y/+DM$(PF$,3,2)"/"(PF$,5,2)"/"(PF$,W,2):DM(PF$):80.MPW:ML5:CNCT:SNWCA:CNCN(SNW):Q$(SN)I$(CN,Z)(CN)::SNSNW:4010:QW:ICTCTCAW:I$(I,Z)(Q$(Q),5):X((Q$(Q),6,2)):Q$(Q)I$(X,W):QQW::XW:IC:AM10:FZ:I$(2,Z)""FW!.b*`.l*CA$"ACCUMULATED DEPRECIATION":CT11:FZ:I$(12,Z)""FWf.v*.*CA$"DEPRECIATION EXPENSE":CT21:FZ:I$(22,Z)""FW.*.*CA$"EXTRAORDINARY INCOME":CT31:AMW:FZ:/+DY$(PF$,3,2)"/"(PF$,5,2)"/"(780"-*:50217:X9CN1:X9:10680Q-*GLSNIX:SV$AN$:4150:SRİ50210:10680-0*I$(CN,Z)AN$:10550:148(XAM)(PF$"Y"):2550:PF$"N"FL0:10670-:*X:E38010:10080:-N*CA$"PROCEEDS FROM DISPOSAL":CTZ:AMW:FZ:.X*CA$"FIXED ASSET":CTWAD$(14)"":AD$(15)"":16:28:(SP$,9)".00":17:28:(SP$,9)".00":17320@C16:30:868:PN((AD$(20))Z):PT4:PL10:TX$AD$(8):TY$AD$(9):Z12:4500:PM$TS$:PM$"0"PNZ@C(AD$(14))(PM$)AD$(14)""@C(AD$(14))10AD$(14)((AD$(14)))dA(PM$)AD$(20)PM$?C14:36:868:(AD$(20))(((AD$(13))12)(AD$(11)"F"))AD$(20)(((AD$(13))12)(AD$(11)"F")):PM$AD$(20)?C(AD$(20))0AD$(20)"0":PM$"0"K@CRD$AD$(20):PH36(4(PM$)):PNZ:PT4:2250:E60:AD$(20)PF$:(AD$(20))0T$"MUST BE 3, 5, 10, 12, 15, 25, 35, OR 45":PLZ:2235:G$;:17270>|CM$(((((MD$,2))((AD$(7),2)))12)(((MD$,3,2))((AD$(7),3,2)))(((AD$(7),2))16)W):PM$(((AD$(13))12)(12(AD$(12)"7"))):(M$)(PM$)PM$M$?~CAD$(20)""(AD$(20))24:W:868:HL(PF$):(AD$(12))6HL2T$"MUST BE 2 OR GREATER":PLZ:2235:G$;:17270=xCAD$(12)"6"HL3HL5HL10HL15T$"MUST BE 3, 5, 10, OR 15":PLZ:2235:G$;:17270C>yCAD$(12)"7"HL3HL5HL10HL12HL15HL25HL35HL45DAKIN5 CORPORATION CALC.OBJ,D1":(4)"BLOAD FUT.OBJ,D1":35840:X778786:PN$PN$((X))::3000:(4)"RUN "PN$TF$"":3025:W:2550:12:(PN$)T$"YOUR PROGRAM IS NOW BEING LOADED":PLZ:2235:D$"RUN"PN$:** CA03ST - SORT PROGRAM - 1.0** COPYRIGHT 1981, 235:T$"REFER TO YOUR USER'S MANUAL.":4680:PN$"CA00AC,D1":PD$"THE DEPRECIATION PLANNER":63000TFZ:3010:TR20:PF5:3035:3050:PN$PF$:PF4:PF$"0":3060:3085:PN$PN$",D1":X778786:X,((PN$,X777,1)):X^TF$"":3025::W1:Z0:(4)"BLOAD0x3000:D$"READ"CF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::HEC(222):EL(218)(219)256:EC255ĢW:D$\EL3110ERW:3115ap:T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:2HE DEPRECIATION PLANNER":TF$"":3025:W:2550:12:(PN$)T$"YOUR PROGRAM IS NOW BEING LOADED":PLZ:2235:D$"RUN"PN$\:** CA07AC\** COPYRIGHT 1981, DAKIN5 CORPORATION-3[HEC(222):EL(218)(219)256:768:EC255ĺD$X[REL60950ĉ:VEZ:F125160,38140p[\EL3110ERW:3115[p:T$"ERROR "(EC)" HAS OCCURRED. REF NO "(EL):21:PLZ:2235:T$"REFER TO YOUR USER'S MANUAL.":4680:62990w\PN$"CA00AC,D1":PD$"TZ:3010:F13:N7:10020:TFW:TRZ10:3035:IX$(TR)T$::38010uZڝPF3:TRZ15:3035:3050:AC$(TR)(PF$,W,24)::Z3000:D$"READ"CF$",R"TR:TF$(TF,Z),TF%(TF,Z,Z),TF%(TF,Z,W):TWTF%(TF,Z,Z):RZ2:TF%(TF,T,R):R:T$:T:D$::Z3000::60950:3050:DN%(PF$):TR3:3035:3050:DU%(PF$):PF4:TR13:3035:3050:S%(PF$):TR14:3035:3050:P9%(PF$):TR15:3035:3050:PG%(PF$)?ZbTR16:3035:3050:VB(PF$):PF3:TR20:3035:3050:CN$PF$:PF4:TRW:3035:3050:VL%(PF$):40410:TF$"":3025:TF0),IA$(10):TF$"DLXX00":SDW:3110:2:2550:T$"YOUR DATA FILES ARE NOW BEING LOADED":12:PLZ:2235:CF$"DMCA01":TF$CF$:TL350:TD2:3015:TFZ:TR3:59900:TFW:TR4:59900YۜTF2:TRZ:59900:TF2:3010:PF5:TR1:3035:3050:FM%((PF$,3,2)):TR2:303512:60950WhW1:Z0:2286:D$(13)(4):G$(7):ST$"**********":S$" ":SP$" ":P$"..............................":Z$"0000000000000":US$"---------------":QE$"===============":61000XTF$"":3025:TF%(2,11,2),TF$(2,W),AC$(15):I$(1 RETURN TO D/P MENU":PM$"3":VEĢN9:H:"4. CONTINUE PROCESSING":PM$"4"VԔPNW:PEW:PT4:PLW:RD$"":THZ:PSW:PI$"":22:T$"ENTER YOUR SELECTION ->":2250::VE38170V((RV3)E)62990:RV25020,25290VRV4VEZ:W:4660: W$PGW:3750:FcI$(I)"1"MNI:10210hU$c3795:PI$"5,3.2":PL10:15980:3710:F2Z:F3Z:F4Z::PGW:3750:SPZ:38010UzF125020,25020,38040LVT$"DEPRECIATION MODELING":4900:2325:N7:H4:N:H:"1. MODEL PROCESSING":N3:H:"2. PRINT MODEL LIST":N6:H:"3.W:PGZ:60950rTbW:PD$"PRINT MODEL LIST":2550:10120:JZĢ12:T$"NO ENTRIES TO PRINT":PLZ:2235:4690:38010Tb2286:4650:E38010:4660:10020:10060:10120:VT$"MODEL FILE LIST":T$"01503.1":SPW:3850:IW10:I$(I)"0"IA$(W)"UNUSED":F2WU10;S\bMS4PD$("REMOVECHANGEADD",W6(3MS),6)" MODEL"SfbMS3MS6A4$("DISPLAYPRINT",W7(5MS),7):PD$A4$" DEPRECIATION MODEL"SpbMS20030,20270,20570,20760,20760:25020SbRV7F1WVEZ:W:4660:SbRV7F12PGZ: TbPGW:3750:F1к"5. DISPLAY DEPRECIATION MODEL":N7:H:"6. RETURN TO D/M MENU":PM$"6":VEĢN8:H:"7. CONTINUE PROCESSING":PM$"7"R b2286:PT4:PLW:RD$"":THZ:PSW:PEW:PNW:22:T$"ENTER YOUR SELECTION ->":2250:2286::VE25230SHbMSRV:(MS6E)F13:380RS OF YOUR":PLZ:2235:12:T$"COMPANY NAME TO BE SEPARATED":PLZ:2235:14:T$"WITH BLANKS WHEN PRINTED?":THZ:RD$(RT$,WVB,(VB2))d8;2250:E38010:VBT:FCW:10030:PF$"N"15350:TR16:3035:PF4:PF$(VB):3060:3085:2:2550:PT3:THZ:10:T$"DO ":PLZ:2235:THZ:RD$CN$:PF$CN$6;12:PH6:PTZ:PL30:PNW:2250:PNZ:E38010:CN$PF$:T$CN$:PLZ:W:868:2235:10030:E38010:PF$"N"Ģ20:2550:152607;TR20:3035:PF3:PF$CN$:3060:3085:PF$"":2:2550:PT3:THZ:10:T$"DO YOU WANT THE LETTE(RT$,WGL,(GL2)):F2(GLZ)O58;2250:E38010:GLT:FCW:10030:PF$"N"151605B;TR2:3035:PF4:PF$(GL):3060:3085:GLF2ST42510:XZ:F2Z:GLGBST10290:(DRMR)ST42070:GLST50020:ST50400!6;2:2550:THZ:10:T$"ENTER YOUR COMPANY NAME,WD5,(D52))4:2250:E38010:D5T:FCW:10030:PF$"N"15044:TFZ:TD2:3010:TR10:3035:PF4:PF$(D5):3060:3085:GBST10250:GBD5GLZ:151705;2:2550:PT3:THZ:11:T$"WILL YOU BE USING":PLZ:2235:13:T$"GENERAL LEDGER?":THZ:PLW:RD$Z:PLW:RD$(RT$,WGB,(GB2))4:2250:E38010:GBT:FCW:10030:PF$"N"15030:TFZ:TD2:3010:TR11:3035:PF4:PF$(GB):3060:3085:2:2550:PT3:THZ:10:T$"WILL YOU BE USING THE":PLZ:2235:12:T$"DAKIN5 SMALL BUSINESS SYSTEM?":THZ:PLW:RD$(RT$