' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` @@>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'з꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥy2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (   Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠z# u@):XV&SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY."& 6,17,1,7,30,1,8,29,1,12,7,3,12,13,3,12,19,3,12,25,3,12,31,3,16,7,3,16,13,3,16,19,3,16,25,3,16,31,3,18,30,1:X114:VT(X),HT(X),FL(X):'3800:3810:APHS,PRINTED REPORTS,PRINT CHECKS/ACTIVITY REPORT,BUDGET,EXTEND DATA DISK,START NEW YEAR,HARDWARE/START NEW SYSTEM,EXIT%~ ** HOME ACCOUNTANT **,MAIN MENU,ENTER SELECTION,LETTER TO EDIT,R(RECORD),P(PRINT),X(CANCEL)&X19:MU$(X):X:X06:SC$(X(MU$(SL))2:MU$(SL):7:(SM$(2),12)::AS$9$ }200:$`X038:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::D$(4):3900:3005:BE$(7)$jNL$" NOW LOADING ":NU$(0)(0)$tFT$(0)"8":FT$(1)"5"w%y TRANSACTIONS,GRENT DATA DISKETTE.":7:(SM$(2),12)::AS$6#y200:#DzBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE # 1 AND":3:"INSERT HOME ACCOUNTANT PROGRAM DISK.":7:(SM$(2),12)::AS$#Nz200:.$}:8:AS$::6:BE$"WRONG DATA DISK FOR FUNCTION":206200EL6205Ħ"NuET255ĦH"XuET9(EL3005EL620EL610)İ31300:c"buET9EL3000İ31100:"yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:+#|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRPT$,1)"2"6550,!ZZ1:3620:3510:35203!X=!3900!CT%Z:SF%0:IM%(CM%)CT%1:IM%(0)CT%:3500:3515:3300:3326:3322:3900!3400:3900!SL7İ3200:3224:3230:3005:3795:3820:3830!!0uET(222):EL(218)(219)256"DuEL00 (CN$(CR),1)"5"āX012:AC(X)0:X:6335Y X112:AC(0)AC(0)AC(X):AC(X)0:Xm 3320:CR:3900 CV%1:MS%FE%1:MS%13MS%1:YS%YS%1 CM%MS%:FT%4:6500 CV%CV%1 dZ0:UR$"N"6560 n3500:3600 xX1CT%:3610!(%3)SF%1İ32000:3900:659093200:3205:3222:3900:8:AS$::7:"PREPARING NEW DATA DISKETTE":::8:" PLEASE DO NOT INTERRUPT ":::AS$SL66350LY$"Y"İ2800:3200 3100:3110:3130:3300:CR1TC%:3310:LY$"Y"İ2700:322PEN HARDWARE,D1":gD$"READ HARDWARE":FT%:SL114:HW$(SL):SL:PS%(HW$(1)):ND%(HW$(14)):D$:D$"WRITE HARDWARE":FT%:SL114:HW$(SL):SL:D$:D$"CLOSE HARDWARE":<D$"CLOSE":83000=3500:3505B(SL6SF%4)(SL7SFD$"WRITE HATRANS,R"Z:Y05:TR$(Y):Y:D$:E D$"CLOSE HATRANS":fD$"OPEN HAPOINT,L11,D"ND%:D$"READ HAPOINT,R"X:PT$,TP%:D$:$D$"WRITE HAPOINT,R"Z:(PT$,4);"0":TP%:D$:.D$"CLOSE HAPOINT":D$"DELETE HARDWARE,D1"D$"O"OPEN HADATA,D"ND%:5 D$"OPEN HATRANS,L80,D"ND%:v D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV%|  D$"READ HATRANS,R"X:Y05:TR$(Y):Y:D$: D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:SF%2VC%CV% , ACT,R"100WC:X08:CK$(X):X:D$_ D$"WRITE CATACT,R"100WC:X08:CK$(X):X:1:D$:WC: D$"READ CATACT,R106":X012:IM%(X):X:D$: D$"WRITE CATACT,R106":X012:IM%(X):X:D$: D$"CLOSE CATACT":H D$"OPEN BUFFER,D"ND%R D$:D$:; D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$:S D$"CLOSE CATBUD":t D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:X012:AC(X):X:D$: D$"WRITE CATACT,R"CR:X012:(AC(X)100.5)100:X:D$:" WC1CB%:D$"READ CATTNAME":( D$"OPEN CATBUD,L84,D"ND%:K D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R"CR:X112:BA(CR,X):X:D$: D$"WRITE CATBUD,R0":TC%:D$: D$"WRITE CATBUD,R"CR:X112:CA(X):X:D$: D$"READ CATBUD,R101":SN$,MS%,YS%,FE%0)0 J ( D$"VERIFY HADATA,D"ND%:F D$"VERIFY HAPROG,D"ND%:b D$"VERIFY HAPROG,D1": D$"OPEN CATNAME,L27,D"ND%:& D$"READ CATNAME":X0TC%:CN$(X):X:D$:0 D$"WRITE CATNAME":X0100:((CN$(X)AS$,26):X:D$:: D$"CLOSE CA0M TLAC(0):XRM(MS%)RM(CM%):TLTLAC(MS(X)):CA(MS(X))(TL.5):X:2790n X112:CA(X)(AC(X).5):Xt  MS(0)FE%:RM(0)12FE%:RM(0)0RM(0)12 X112:RM(X)RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1 RM(X)13RM(X)1 X:MS(D$"CLOSE HARDWARE"##<D$"CLOSE":#TY$"":::11:SC$(0):20((QM$(SL))(QM$(0)))2::" "QM$(SL)" "QM$(0)" "::14:"CATEGORY#":SL1SL4Ģ3:24:TC%1#4::SL4Ė3:(65)#5:3:(66):#8:X6879:3:(X)::$8:X112:5:M9"D$"WRITE HAAUTOPOINT,R"RN:20000:1000Y100:D$:V"D$"CLOSE HAAUTOPOINT":r"D$"OPEN HARDWARE,D1":"D$"READ HARDWARE":FT%:X114:HW$(X):X:PS%(HW$(1)):ND%(HW$(14)):D$:"D$"WRITE HARDWARE":FT%:X114:HW$(X):X:D$:#HATRANS":+!D$"OPEN HAPOINT,L11,D"ND%:Y!$D$"WRITE HAPOINT,R"RN:11111:1111:D$:r!.D$"CLOSE HAPOINT":!tD$"OPEN HAAUTO,L80,D"ND%:!D$"WRITE HAAUTO,R"RN:X05:TR$(X):X:D$:!D$"CLOSE HAAUTO":"D$"OPEN HAAUTOPOINT,L11,D"ND%:ACT": H D$"OPEN BUFFER,D"ND%< R D$"OPEN HADATA,D"ND%:] D$"OPEN HATRANS,L80,D"ND%: D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV% D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:SF%2VC%CV% ! D$"CLOSE X012:CA(X):X:D$:I D$"WRITE CATACT,R"CR:X012:CA(X):X:D$: D$"READ CATACT,R"100WC:X09:CK$(WC,X):X:D$: D$"WRITE CATACT,R"100WC:X09:CK$(WC,X):X:D$: D$"WRITE CATACT,R106":X012:IM%(X):X:D$:  D$"CLOSE CAT:CB(X):X:D$:^ D$"READ CATBUD,R101":X14:S6$(X):X:FE%(S6$(4)):BM%(S6$(2)):D$: D$"WRITE CATBUD,R101":X14:S6$(X):X:FE%(S6$(4)):BM%(S6$(2)):D$: D$"CLOSE CATBUD": D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:$"WRITE CATNAME,R"CR:(CN$(CR)BL$,26):D$:F: D$"CLOSE CATNAME":f D$"OPEN CATBUD,L84,D"ND%: D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R"CR:X112:CB(X):X:D$: D$"WRITE CATBUD,R0":TC%:D$: D$"WRITE CATBUD,R"CR:X112"VERIFY HADATA,D"ND%:4 D$"VERIFY HAPROG,D"ND%:P D$"VERIFY HAPROG,D1": 3900::10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1" D$"OPEN CATNAME,L27,D"ND%:& D$"READ CATNAME":X0TC%:CN$(X):X:D$:-0 D(X)1 X:MS(0)0: TACA(0):TBCB(0):TD0:XRM(BM%)12:TBTBCB(MS(X)):XRM(CM%)C2(MS(X))CA(MS(X)):TATAC2(MS(X)) X:TDTATB:TBS(TB):TAR(TA):TDS(TDFC((TY$)))T X112:DF(MS(X))S((C2(MS(X))CB(MS(X)))FC((TY$))):X: D$$):XXXY:(XY)1000000NG1# : TY5TY$"5"2800 TLCA(0):XRM(BM%)RM(CM%):TLTLCA(MS(X)):C2(MS(X))R(TL):X:2900 MS(0)FE%:RM(0)12FE%:RM(0)0RM(0)12 X112:RM(X)RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1 RM(X)13RM,7);PM$(F1(F1));:"` NG0:DP0e Y1(XX$):((XX$,Y,1)"0"(XX$,Y,1)"9")(XX$,Y,1)"."(XX$,Y,1)"-"(XX$,Y,1)"+"NG1:Y(XX$):2410g (XX$,Y,1)"."DPDP1:VX(XX$)Y:DP1VX2NG1:Y(XX$)j Y:(NG1)12415,2490o XY(XX$));(BL$,6):TY$"2"Ģ4:10:(TY$)2" (1-5)"4F2700:5100::5:11:CN$:3:24:TC%1:10:(BL$,8);TP$(TY);(BL$,6):SL1Ģ4:10:YT$" (1-5)"(BL$((F1))AD$(((R((F1)((F1)))))),10);PM$(F1(F1));:4(BL$((F1))V2(CH):(UL$,U2(CH));:1:"";S6$(CH):(S6$(CH))U2(CH)1599qT(CH2CH4)((S6$(CH))12(S6$(CH))1)1599YCH1(S6$(CH))21599^CH3(S6$(CH))11599:.TY$(CN$(CR),1)::5:11:(CN$(CR),2):3:24:CR:10:(BL$,8);TP$((TYHW)).5):CH0PF$(1)PF$(1)(CH)\)\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):n)fPS%(HW$(1)){)X(0):$PF$(1)P$(1):)fPS%(HW$(1)))X(0):((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)d(\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):v(fPS%(HW$(1))(X(0):VN$"2.01":X":L$P$(1)(RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)#)WHW:HW913:CH((HW$(3830'3900_'HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010'MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)'RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)+(WHW:HW913:CH(CR1):AF13<FT%3FT%4J3FAF1CB%CB%1:3900:3500:3515:3530`3PCF1İ3300:3324|3U3200:3215:3900:64003c3CF0:4600:3200:FT%2İ3222:CH14:5600:CH:66103CF1:CH14:1600:5600:CH4423:28:(95);:28:CH$:(CH$$"A"CH$"G")CH$"R"CH$"P"CH$"X"ĺBE$;:6410K2CH$:CH(CH$)64b2CH$"P"İ80:6410t2CH$"X"64002CH8İ1400:5400:CF1:6410 32FT%3WC$"A"TY2:CN$"CHECKBOOK #"(WC):6000:TY1:CN$"CASH ACCOUNT #"(WC):6010:CF1:CK$(WC,0)400:WC$"A"āCH17:5400:CH11WC$"M"6499L1CB%0WC1:AF1:4400^1WC$"A"AF1121:10:SC$(3)" (A-G)":SC$(6);:27:SC$(4):12:SC$(2)1PS%0Ģ22:14:SC$(5)1AF1CF1:CH17:1400:5400:CH52 23:28:(95);:28:CH$:(CH9)"1":3324:WC:TC%0:3215:3224:3326:39000VRN0:3700:3750:TR$(5)"INACTIVE":Y15:Z15:RNRN1:TR$(2)"X"(Z):3720:3770:Z,Y:3900:RN00[3400:3900:FT%20`1AF0:3200:3222:3230:3300:3500:3505:3530:CB%0İ4500:WC$"M"İ4":::8:" PLEASE DO NOT INTERRUPT ":::AS$}/B3500:CT%0:CM%(S6$(2)):CV%1:SF%0:LD$"":CB%0:3515:3600:3620:3900/G3100:3200:3300:CR0:CN$(0)"0NO CATEGORY":3120:3320.0LCR1100:CN$(CR)(AS$,26):3120:3220:3320:CR:WC15:CK$(WC,@.:EL6202PK155ĺD$"VERIFY HADATA,D"ND%:EM1:32000:6202.;EL6203PK155ĺD$"VERIFY HAPROG,D"ND%:EM0:32000:6203.=PK1556240.>ET8ĺD$"VERIFY ZZ99Z,D"ND%.?EL6206ET6ET0:6202./@:8:AS$::7:"PREPARING NEW DATA DISKETTE]-20:868:TY5TY$"5"Ģ20:"TOTALS>>";:9:F1TB:2100:19:F1TA:2000:32:F1TD:2100:c- -:V4(CH):H4(CH):CK$(WC,CH):-:V2(CH):H2(CH):S6$(CH):-p3100:3200:3222:3300:3205-zSL600,700,800,900-.832000:PK1556240CB(MS(X))999999:5002D,CB(MS(X))99999CB(MS(X))99999:5002],F1CB(MS(X)):2100:,:7CH:19:F1CA(MS(CH)):2000:,:7:19:F1CA(0):2000,XRM(BM%)12:7X:9:F1CB(MS(X)):2100:19:F1C2(MS(X)):2000:32:F1DF(MS(X)):2100:X:ME: ";::"A"::S+ "STARTING MONTH/YEAR: (1-12) ";::"B";:34:"C";::" 19":|+"ENDING MONTH: (1-12) ";::"D"::+ 21:10:SC$(3)" (A-D)":SC$(6);:27:SC$(4):12:SC$(2)+*PS%0Ģ22:14:SC$(5)+H15:,:6VV:9:CB(MS(X))999999$"1"WC$(CB%))WC$"A"WC$"P"WC$"M"ĺBE$;:4535T*WC$:WC$"P"İ80:4535|*WC$"A"(CB%5TC%98)ĺBE$;:4535*WC$"A"WCCB%1:4560*WC(WC$)48**::5:10:SC$(0):18:SC$(1)::12:"SYSTEM INFORMATION":+"SYSTEM NA2):S6$(1)" "MN$(CM%)" 19"S6$(3)::13:"CHECKBOOK MENU"::U)"CHECKBOOK/NAME":{)X15:8X2:5:X". "CK$(X,1):)21:"(A)DD NEW CHECKBOOK EDIT(1-"CB%") (M)ENU"::12:SC$(2))PS%0Ģ22:16:SC$(5))23:28:(95);:28:WC$8*(WC"B";::" ADDRESS":-(X:"C";::" CITY":G(b:"D";::" STATE":d(g:"E";::" ZIP CODE":}(l:"F";::" BANK":(v:"G";::" ACCOUNT#":((3300:FT%2āWC1CB%:3322:WC=)::10:SC$(0):18:SC$(1):S6$(1)""Ė16((S6$(1))5 '1080:'0::10:SC$(0):18:SC$(1):S6$(1)""Ė16((S6$(1))2):S6$(1)" "MN$(CM%)" 19"S6$(3):13::" CHECKBOOK# "WC" ":':5:CK$(WC,0)""ĺ"CATEGORY#/NAME"::5:CK$(WC,0)" >> "(CN$((CK$(WC,0))),2):'D7::"A";::" NAME":(N:"A"(TY$"1"TY$"2"TY$"4")ĺBE$;:4035[&CH(CH$)64:CH1200,1000:XCH3:CH34060u&CH3VV0:CH0:4055&XRM(BM%)ĺBE$;:4035&VVCH2:1100:4060&CHRM(CM%)İ1300:4060&BE$;:4035&CH2CH$(15)İ2700:5100'403:14:SC$(5)%&%CN$"END"4099%:24:28:(95);:28:CH$:CH$(4)CH$(15)SL2CH(CH$)3:XCH:(CHRM(BM%))14055,4047%(CH$"A"CH$"P")CH$"R"CH$"X"ĺBE$;:4035%CH$;:CH$"R"CH$"X"4099%CH$"P"İ80:4035*&CH$N$(MS(X)):X:X0Q$4:5:"TYPE ":((SL2SL3)TY2)SL1Ģ4:12:"(1-5)"t$5:5:"TITLE":6:16:"BEG";:$21:"ACTUAL";:30:"DIFFERENCE":9:"BUDGET":7:18::"C": %22:10:SC$(3)" (A-O)":SC$(6);:27:SC$(4):12:SC$(2);:PS%0Ģ23700:2500:ZN50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2200ZZ2RN(1)RN(2)Č198:DR1:12:14::"ALREADY SELECTED":K11000:::ZZZZ1ZZ3(RN(1)RN(2)RN(1)RN(3)RN(2)RN(3))Č198:DR1:12:14:::"ALREADY SELECTED":K0:Z13-DR0:500:CN$"GRAPH"Z3:2260ACN$"END"2000iZZZ:RN(Z)CR:Z1İ2290:DR122323310:1900:1400:Z1AMMA:IMMI:2260MAAMAMMAMIIMIMMI MAAM:MIIM:1470:4000:2170:Z1ZZ:CRRN(Z):3310:1900:2 ACCOUNTANT **"::14::" LINE-GRAPH ":::13:"ACTUAL ACTIVITY":12:2:"CATEGORY >> "14:7:"1. ENTER FROM 1 TO 3 CATEGORIES"::7:"2. ENTER ";::"GRAPH";::" TO DISPLAY GRAPH"18:7:"3. ENTER ";::"END";::" TO RETURN TO MENU"ZZа1000:2180=zNG(1)0:NG(3)0:RJ157RG:RJ157İ1100:2179V{RJ85RJ115İ1105n|RJ37RJ85İ1110}RJ115İ1115~RJ37İ11201200:50::::X112:AC(MO(X))0::X112:CB(MO(X))0::21002180Y:3:10:"** HOME3rrX1,(157RG)YX1,157RG:X2X1:X1X18:X1,(157RG)YX1,157RG:X3X1:X1X113:X3,(157RG)YX2,(157RG)YytX uY2025:205,Y225,Y::X0223:Y018:M$" = BUDGET":K6:1000:205,28225,28225,34205,34205,28:X0223:Y027:K6:M$" = ACTUAL":$P$(0):P$(1)PL$P$(1)P>RHW48:CHS((HW$(HW))):CH0PF$(0)PF$(0)(CH)>WHW:HW913:CHS((HW$(HW))):CH0PF$(1)PF$(1)(CH)>\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)>aX(0):P>aX(0):0=FT%161000=3000_=33000:3200:3205:3222:3500:3505:3900:FE%(S6$(4)):2710u=3100:3110:3130=HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010>MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL,14:X17:V4(X),H4(X),U4(X):r< CASH,CHECKBOOK,ASSET,CREDIT CARD,LIABILITY,INCOME,EXPENSE:X17:TP$(X):< 1,1,1,-1,-1,1,-1:X17:FC(X):< BUDGET CATEGORIES,ADD,EDIT,REPLACE,ADD CHECKBOOK:X04:QM$(X):=3005:3800:3810:383:X17:MU$(X):X:X06:SC$(X):Xv;SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY."; 10,16,23,12,31,2,12,38,2,14,24,2:X14:V2(X),H2(X),U2(X):< 7,12,24,9,12,24,11,12,24,13,12,2,15,12,5,17,12,19,19,12Y,JUN,JUL,AUG,SEP,OCT,NOV,DEC,ADD CATEGORIES,EDIT CATEGORIES,REPLACE CATEGORIES,CHECKBOOKS,SYSTEM INFORMATION,START NEW SYSTEM,MAIN MENU:~ ** HOME ACCOUNTANT **,BUDGET,ENTER SELECTION,LETTER TO EDIT,R(RECORD),P(PRINT),X(CANCEL)$;X112:MN$(X):XeX038:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::PM$(0)"-":PM$(1)" "9jR(X)(X100.5)100:AD$(1)".00":AD$(2)"0":AD$(3)"":S(X)(X.5)9oNU$(0)(0)9tFT$(1)"6":FT$(2)"5":FT$(3)"4":y JAN,FEB,MAR,APR,MANY DISK FROM DRIVE #"ND%:4:"AND INSERT BLANK INITIALIZED DISK":9:(SM$(2),13)::4:"PRESS <> TO ABORT PROCEDURE"::AS$8 }100:8耗:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:8`D$(4):3900:BE$(7)_92),13)::AS$:100:7|y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::" OR PRESS TO RETURN TO MAIN MENU"::AS$:1007yPK1555007y8}BE$::8:AS$::6:"REMOVE A5İ31000:%6buET9EL3000İ31100:@6luEL6206ET8İ32000:O6vuEL6206Ħ6yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:7yBE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT HOME ACCOUNTANT PROGRAM DISK":8:(SM$(3515:39005_5XCH0:1300:XRM(BM%)12:VVX1:1100:X:X112:CA(X)0:X:2700:5100:5CRTC%1:TC%CR:CN$(CR)((TY)CN$BL$,26)53120:3220:3320:50uET(222):EL(218)(219)2565DuEL6202EL6203Ħ5NuET255Ħ 6XuET9EL300"A"CH$"D")CH$"R"CH$"P"CH$"X"ĺBE$;:6610i4CH$:CH(CH$)64:FT%5(CH2CH4)ĺBE$;:66104CH$"P"İ80:66104CH$"X"66004CH5İ1600:5600:CF1:66104CF1İ3224:32304FT%2FT%3:2710 5FT%5İ3500:3505:CM%BM%::UL$UL$(95)::BE$(7):MN$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"`+e3005:3800:3810:3830+hCA(12),CB(12),TY(100),TA(7,12),TB(7,12),MO(12),CN$(100),AC(12),RM(12)+jD$;"BLOAD NORM.ST,A$6000,D1":232,00:233,96+q3000:3500:3505:3530M,r:12)::" OR PRESS TO RETURN TO MAIN MENU"::AS$:50K*yPK1552400Q*y*`SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY.":D$(4):MA%(0)37:MA%(4)153D+dEQ$"= ":MO$"JFMAMJJASOND":X139:AS$AS$"*":BL$BL$" "E FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::AS$x)cyPK(16384):PK12731075)hy16368,0::*|y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),ACCOUNTANT PROGRAM DISK":8:(SM$(2),13)::AS$:50:(JyBE$:::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #"ND%:" INSERT A BLANK INITIALIZED DISK":8:(SM$(2),13):(Oy8:"PRESS <> TO ABORT"::AS$:Y)^y:8:BE$AS$::" REMOVE ANY DISKETT8:'?uEL380İ31070:&'NuET255ĦA'XuET9EL3005İ31000:\'buET9EL3000İ31100:r'luET133MA.005:'yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:6(yBE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT HOME ::Y027:K6:M$" = TREND ":7:1000:&.70911Z1Ē1:H08:0,H10,H::M$EQ$((CN$(CR),2,10)):K6:7:X013:Y01:1000:1:&0uET(222):EL(218)(219)256&5uEL315ET8İ31070:&7uEL315Ħ&8uEL307Ħ&:uEL310Ħ'%29,Y279,Y:Y:7:M$"**** HOME ACCOUNTANT ****":X015:Y0176:K10:1000:X03LOSE CATACT":/# D$"OPEN HATRANS,L80,D"ND%:p# D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV%v# # D$"CLOSE HATRANS":#D$"OPEN HARDWARE,D1":#D$"READ HARDWARE":FT%:X113:XX$:X:ND%:D$:#D$"CLOSE HARDWARE" $<%:" D$"CLOSE CATBUD":<" D$"OPEN CATACT,L130,D"ND%:m" D$"READ CATACT,R"CR:X012:CA(X):X:D$:" TY(CR)6CA(CR,X)CA(CR,X)CA(CR,X1):TA(TY(CR),X)TA(TY(CR),X)CA(CR,X1):3314" TA(TY(CR),X)TA(TY(CR),X)CA(CR,X)" X,CR:# D$"CE,L27,D"ND%:M!& D$"READ CATNAME":X0TC%:CN$(X):TY(X)((CN$(X),1))::f!: D$"CLOSE CATNAME":! D$"OPEN CATBUD,L84,D"ND%:! D$"READ CATBUD,R0":TC%:! D$"READ CATBUD,R"CR:X112:CB(X):X:D$:" D$"READ CATBUD,R101":SN$,BM%,YS%,FE0:5:Z 2:H08:186,H194,H::M$EQ$((CN$(CR),2,10)):K6:7:X0197:Y01:1000:2:x D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1": 3900::10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1" ! D$"OPEN CATNAMMRM(BM%)BF BP(MA)MABP1K EP(MA)MAEPBP PBMIMIBPSU EPMIMIEPYZ  Z1Ē1:H08:0,H10,H::M$EQ$((CN$(CR),2,10)):K6:7:X013:Y01:1000:1: Z2Ē5:H08:93,H102,H::M$EQ$((CN$(CR),2,10)):K6:7:X0105:Y01:100& X11,(156RG)Y1X01,(156RG)Y5 X1X0:Y1Y; S( XY0:SX0:X20:SY02 XRM(BM%)RM(CM%):XYXYAC(X)X:SXSXX:SYSYAC(X):X2X2X2:X7 NRM(CM%)RM(BM%)1:AXSXN:AYSYN< VAX2NAX2:M(XYNAXAY)VA:BAYMAX A EPM12B:BPBP120((MI)MA)= 1:(3821(RM(BM%)1)),RJPB269,RJPEG 50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2300` 3005:3010 XRM(BM%)RM(CM%):1310 Y0YY3 X03821(X1):XRM(BM%)2540 X1,(157RG)Y1X0,(157RG)Y11000:::ZZZZ1::3:10:"** HOME ACCOUNTANT **"::14::" LINE-GRAPH "::14:" TREND LINE "::12:2:"CATEGORY >> ":500:CN$"END"2000 3310:1900:1400:2600:DFMAMI:1470:4000:4050:2170:5:2500 PEEP120((MI)MA):PB&F&(TR$(WO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG1L&V&BE$;& MO%(TR$(WO)):MO%1MO%12NG1:7290&*IM%(MO%)0NG1:7290&1EB%07230&4BRIM%(MO%):5100:EB%1:ERBRNG1:EB%0&97290'>OM%MO%1:OM%13OM%L SOFTWARE":A$(2)"11223 S. HINDRY":A$(3)"LOS ANGELES,CA 90045"T%(7600:85:6405Z%Z%::9:HA$:20(TI$(SL))2::TI$(SL)::15(CK$(WC,1))2:CK$(WC,1)" "MM$(CM%)" 19"YS%:%XSI$"H":SV15:SJ$"I":HC$"":H$"":GH$"G":6900&vCH1:6300:6403$PA0:YN$"Y"PA1]$:8:AS$:12:AS$:10:"DO YOU WANT A TEST CHECK (Y/N)? ";$ TZ$:TZ$"Y"TZ$"N"ĺBE$;:6410$TZ$"N"6490@%TR$(1)LD$:TR$(2)"1001":TR$(3)"CHUCK SMALL":TR$(4)"3001.27":TR$(5)"TEST CHECK":A$(1)"CONTINENTA,20:83:768:(12):856#WO$"A"WO$SJ$ČBE:6330Y#WO(WO$)64:1100:MD%26380h#WO96370r#5100|#6330#MD%0:#3600#PF1::8:AS$:12:AS$:10:"DO YOU WANT TO INSERT ADDRESSES (Y/N)? ";$YN$:YN$"Y"YN$"N"ĺBE$;6900"6300"6000"/" GOSUB 3500]"EB%0:MD%0:SA0:TL0:C0:MF0:BF1:4100m"7300:4200"23:28:WO$:WO$"X"6302"WO$"S"ĺ:BF0:7400:85:6900:6302"WO$"M"İ900:MD%26380"MF1MF0:6310#WO$"P"ĺ:PF1:8SI$"I":SJ$"J":SV16:H$"H":HC$"CLEARED":GH$"H":6900:26:(CK$(WC,6),14):::::X13:3:" "X" "MU$(SL,X):::::6:"ENTER SELECTION(1-3) ";!zCH$:CH$"1"CH$"3"(CH$"2"SF%0)ČBE:6010!CH$"3"6050"CH$:CH(CH$):CH2İ6400:6(WO2SL2TR$(WO)"")ĺ(CN$((TR$(WO))),2):5190O WO1TR$(WO)""5190 WO1ĺ(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2):5190 WO7WO8ĺNY$((TR$(WO))):5190 WO9ĺ("0"TR$(WO),2)" "AR$(EB%):5190 <TR$(WO) F pCH0!u"1"WC$(CB%1)ČBE:4535<WC$:WC(WC$):WCCB%1WC6J40190,WCPvVPWO7:HT13:SL1WO7VP6WOEB%1WO9HTHT5PA1TR$(0)""VPVPX1:HT:VPWO8SL15190WO6(TR$(WO))1ĺ"SPLIT":51905 WO 3)END"N:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"TDdCB%14590SL5:6900:CK$(CB%1,1)"ALL"8:8:"CHECKBOOK/NAME":X1CB%1:8X2:5:X". "CK$(X,1):::8:"SELECT (1-"CB%1") ";WC$:WC$$(SL,CH)::21:28:SJ$:22:868:1:"(X)CANCEL (S)SEARCH (M)MODE (P)PRINT"|CM$("0"(CM%),2):SV:SI$" MO "("0"(MI%),2)"->"CM$" "CM$" ->"CM$:BRIM%(CM%):ERCT%:SJ$" TR#->"CT%0MD%0Ģ6:"MODE 1)";::CH$(SL,0);::" 2)"CH$(SL,1)" E":"B "DN$(SL,MD%):"C "PY$(SL,MD%)L"D AMOUNT":"E MEMO":"F CATEGORY"h"G TAX(Y/N)":H$" "HC$"21:9:"LETTER TO CHANGE(A-"GH$")":2:"(X)CANCEL (P)PRINT (R)RECORD (M)MODE":12:"ENTER SELECTION "^Lh4:868:20(MU$(SL,CH))2::MU1)::D$:".D$"CLOSE HAPOINT":>D$"OPEN HARDWARE,D1":D$"READ HARDWARE":FT%:X114:HW$(X):X:D$:ND%(HW$(14)):PS%(HW$(1)):D$"CLOSE HARDWARE":<D$"CLOSE":1:6:958:MD%1MD%04400$:"A DATE";:22:"(M)MODANS,R0":CT%,CM%,CV%,SF%,LD$,CB%* D$:\ D$"READ HATRANS,R"RN:X05:TR$(X):X:D$:u D$"CLOSE HATRANS":D$"OPEN HAPOINT,L11,D"ND%:D$"READ HAPOINT":X0CT%:PT%(X,0),PT%(X,1):X:D$: $D$"WRITE HAPOINT,R"RN:PT%(RN,0):PT%(RN,ND%:J WC1CB%:D$"READ CATACT,R"100WC:X09:CK$(WC,X):X,WC:D$: D$"READ CATACT,R"106:MI%CM%:X012:IM%(X):X:X112:IM%(X)0ĭIM%(X)IM%(MI%)MI%X X:D$: D$"CLOSE CATACT": D$"OPEN HATRANS,L80,D"ND%:  D$"READ HATRAME,L27,D"ND%:?& D$"READ CATNAME":X0TC%:CN$(X):X:D$:X: D$"CLOSE CATNAME":x D$"OPEN CATBUD,L84,D"ND%: D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R101":SN$,MS%,YS%,FE%:D$: D$"CLOSE CATBUD": D$"OPEN CATACT,L130,D"VVVV1:VX2VV12640F X1IH (AM$)1000000(AM$)1000002640SK 2645\P NG1bU  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1": :10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1" D$"OPEN CATN$(3),HW$(14),HL(1,12),HD$(4,11),AR$(1),CH$(4,1),CK$(6,9),D$(8),DN$(4,1),NN$(3,2),NY$(2),P$(1),PF$(1),PK%(8),PY$(4,1),SP(8),ST(8),TI$(5),TK$(8),TY$(3),UL(10)7eBE1052:BE$(7):X139:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::SN$(0VE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$5~ySL7Ģ14:" OR PRESS TO RETURN TO MAIN MENU "::AS$5yX(16384):X127311105yX155Ĺ16368,0:505y16368,0:6`MM$(12),TR$(11),PT%(1100,1),IM%(12),EM22):EL(218)(219)256@4DuET9EL3000EM2:M1%ND%:31100:f4NuET9EL3005EM3:M1%1:31100:y4XuET9İ31200:4buET255Ħ4yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:M5|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRI""ĺ(HD$(ST,Z)BL$,HL(PF,Z)1);03 Z:H2$(WC)`3#Z111:HD$(ST,Z)""ĺ(MI$,HL(PF,Z))" ";3%Z:H2$(WC)""ĺ(MI$,3);3(:3n3xX1LP:" ":X:3@EM2:M1%ND%:31100:3000:3500:3505:3600:3610:3300:3328:30uD$"PR#0"4:uET(236,HH(PF,1)(TI$(ST))2:TI$(ST)" TRANSACTIONS":36,HH(PF,2)(CH$(ST,MD%))2:CH$(ST,MD%)" ACTIVITY REPORT"236,HH(PF,3)(CK$(WC,1))2:"FOR "CK$(WC,1):36,HH(PF,4)2:MM$(((LD$,2)))" "((LD$,3,2))", 19"(LD$,2) 3" ":" ":Z111:HD$(ST,Z)P2:7800:36,3:"MEMO : "TR$(5)>1LP2:7800:36,72:TR$(2)1LP3:7800:36,3:"DATE : "(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2):36,3:"MEMO : "TR$(5)136,3:"AMT. : $"TD$"."TC$:36,3:"PAYEE: "TR$(3)1LP12:78001 1C0ĺ(12)m27800:36,72:TR$(2).0LP2:7800:36,8:TT$M0LP1:7800:36,15:TR$(3);036,50:(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2);:36,66:(AS$TR$(4),10)"**"0PA1LP1:7800:36,15:TR$(3):X13:36,15:A$(X)" ":X:" ":76500LP6:7800 1L:X+/16:1:"IS THIS CORRECT (Y/N)? ";S/YN$:YN$"Y"YN$"N"ĺBE$;:7605r/:TR$(3)TN$:YN$"N"7602/85:87:83:LT(TR$(4)):TD$(TR$(4),LT3):TC$(TR$(4),2)/TT$"THE SUM"(AS$TD$"**",10)"DOLLARS AND **"TC$"**CENTS"0LP4:ST4ĺ(NN$(LS,P%(7))BL$,4);5.ST4ĺTY$(LS)" ";D.WC6ĺCW;M." "S.g. CHECK PRINTER~.PA0TZ$"Y"7610/85::8:1:"CHECK# "TR$(2):"PAID TO "TR$(3):TN$TR$(3):WO3:X13:9X:1:"ADDRESS"X:1100:5100:A$(X)TR$(WO):tLS2TR$(2)(CN$((TR$(2))),2)-vZ23:(TR$(Z)BL$,HL(PF,Z1))" ";:Z:(BL$TR$(4),9)" ";(TR$(5)BL$,HL(PF,6))" ";((CN$(P%(1)),2)BL$,HL(PF,7))" ";(NY$(P%(2))BL$,4);-yNN$(LS,P%(3))""ST4ĺ(NN$(LS,P%(3))BL$,4);.~NN$(LS,P%(7))""600:P%(7)1:2010:3620:75907,XP%(1)1P%(1)TC%1O,`C40(C40)İ7700,b(TR$(5),5)"SPLIT"P%(1)PK%TR$(4)"*"TR$(4):SA1:7535,jTLTL((TR$(4))HU%.5)HU%,oCC1:(BL$(RN),4)" ";(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2)" ";"-ER: ";:Q1CB%:Q". "CK$(Q,1)" ";:Q:" "h+@SA1ĺ(BL$,23HL(PF,4))"*AMOUNT IS NOT PART OF TOTAL"s+A(12)+BSL6SL4+D+L+Q(WCCWWC6)(SLLSSL6)7590+SPK(16384):PK155ČBE:16368,0:MD%2:7590,VSL1CH2PF1:7F1*X:EF17480*7500L*8PK(16384):PK155ČBE:16368,0:MD%2]*:MD%2RNER*;RN:CH2C1ĺ" ":XX$(TL):2500:(BL$,21HL(PF,4))(MI$,10):(BL$,15HL(PF,4))" TOTAL"XS$:(BL$,21HL(PF,4))(EQ$,10)*=C07490,+?WC6ĺ" ":" PM%(MI%)BR1 )RNBRER:2100C)CH2(P%(3)0P%(7)0)7480T)EF0:X1PCu)PK%(X)P%(SP(X))XPC:EF1) X:EF17480)3510:TC07455)X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450*TK$(X)(TR$(ST(X)),(TK$(X)))XTC:E<(TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)B((PK%999:2000:PC0:X13:TR$(X5)""PCPC1:SP(PC)X:PK%(PC)P%(X):X1PK%P%(X)(:SL4SL6:P%(5)6(X46:P%(X)6PCPC1:SP(PC)X:PK%(PC)P%(X) ):TR$(8)"0"BRI1$'HERIM%(OM%)1:MO%CM%ERCT%:'RERBRNG1:7290D'T5100N'WEB%0T'zm'X010:TR$(X)"":Xs''PF0:CH2EC1PF1'80:'STSL:CT%IM%(0)7490'CH7350,87:TR$(10)""7405'RN(TR$(10)):2100(3510:7500:749000.5)= XX$SN$((XY)1)(WX)"."(("0"(DX),2)"0",2)S XS$(BL$XX$,10)Y b( NG0s- AM$""26452 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640< (AM$,X1,1)"."VXLXX1:%(5)(N1%P%(4)TH%)HU%:P%(6)(N1%P%(4)TH%P%(5)HU%)TE%:P%(7)N1%P%(4)TH%P%(5)HU%P%(6)TE%CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)H XY(100(XX$).5)100:YX(XY):WX(YX):DX((YXWX)1%:P%(7)CP::PT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)lPT%(RN,1)P%(4)TH%P%(5)HU%P%(6)TE%P%(7)r4N0%PT%(RN,0):N1%PT%(RN,1)9P%(1)N0%HU%:P%(2)(N0%P%(1)HU%)TE%:P%(3)N0%P%(1)HU%P%(2)TE%:P%(1)P%(1)TW%d>P%(4)N1%TH%:P1:35,VP#V1:VP:(UL$,UL(WO));7^WO2WO81130J`1:"";TR$(WO)fb(TR$(WO))UL(WO)1099jWO100,200,300,400,500,600,700,800,7200,7100lNG11099~P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8)) P%(4)WC:P%(5)SL:P%(6)MDMD%MF0:950 :MD%(MD$)17MD%2İ400:4100OGOMD%1:CH2GO3UeKBE$;:1104LVPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5OPA1TR$(0)""VPVPX1PWO11130RNG0:32,HT1:33,UL(WO)1:34,VPWO)"Y"NY1TR$(WO)(NY)$4 1:TR$(WO)g"TR$(WO)"Y"TR$(WO)"N"TR$(WO)(13)NG1*NY0:TR$(WO)"Y"TR$(WO)(13)NY14TR$(WO)(NY)>6:6:BE$;MD$:MD$"1"MD$"3"910CH2MD$"2"910 MF1:(MD$)1R),2,(CT$))640"vCR:NG1:690WCC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630kCC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630TR$(WO)(CR)TR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1 NY0:TR$(G1450%XX$AM$:2500:TR$(WO)XX$+j(TR$(5),5)"SPLIT"BF0TR$(8)"1":4000:WO8:5100:WO5pNXNG0:NF0:CT$TR$(WO):CR(CT$)ZTR$(6)"SPLIT"TR$(6)"-1":690bCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT$(CN$(C(MM4MM6MM9MM11)DD30994MM2DD2999UMM2YY4(YY4)DD2899yTR$(WO)MM$DD$YY$:LD$TR$(WO) 1:"";TR$(WO)(TR$(WO))UL(WO)NG1:290SL2TR$(WO)""İ600",SB0:AM$TR$(WO):2600:N DZ$(13)1551 DZ$"0"DZ$"9"ĺBE$;:115T DZ$;:D$(Z)DZ$:ZZ1:Z9110~ HK$:HK$(8)HK$(13)ĺBE$;:145 HK$(8)125 MM$D$(1)D$(2):DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299!WO),3,2)"/"(TR$(WO),2);* iZ1:HT:WO7C nZ3Z6ĺ"/";:ZZ1l sWO7:DZ$:DZ$(21)DZ$D$(Z):135 xDZ$(8)Z1135 }ZZ1:HT1Z:Z6Z3ZZ1:HT1Z 115 Z1DZ$"M"İ900:GO100,100,180 Z1TR$(WO)""DZ$(13)180W:8:AS$::15::" PRINTING "::7:" PLEASE DO NOT INTERRUPT ":::13:" TO ABORT"::AS$:t ZCH2180 \:WO0:HT15:7:"REPORT DATE >>":100 cBE$; dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(NE ***! KEM0:3000:3500:3505' O P90:::8:BE$;BE$;AS$::1::" SET PAPER AND PRINTER TO TOP OF FORM "::7:" PRESS ANY KEY WHEN READY ":::AS$ QKP(16384):KP12781 R16368,0:87 SD$"PR#"PS% TPF$(PF): UD$"PR#0":f LECT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU"v ::" ENTER SELECTION(1-7) "; #SL$:SL$"1"SL$"7"ČBE:35 (SL$:SL(SL$):SL6000,7000,7000,7000,4500,8000:SL725 23005:3010 < *** END OF MAIN LI)8  ** PRINT ** 11.09.82,30000P D$(4):D$"NOMON I,O,C":60000dCB%1WC1:25tWC0İ4500PA0:SL0:6900:3900:3500::O " 1. CHECKBOOK/PRINT CHECKS"::" 2. CREDIT CARD"::" 3. CASH"::" 4. ALL (1-3)"::" 5. SE                              0gR3210:3310:1900:1400:1470:4000:2170:X130:X112:1300:(RJ40Y140)(RJ157Y1157)2140yTY10Y1Y13WK18:X1,(157RG)Y1X1,157RG:X1X11:K:X1X113\X:X140pX112:1300:(RJ40Y40)(RJ157Y157)2164qY0YY:(SL$"1"SL$"4")(BM%CM%(SL$"2"SL$"3"))Č198:2020RSL$:SL$"4"2400ySL(SL$):SL2100,2200,2300:20004:3:10:"** HOME ACCOUNTANT **"::16::" BAR-GRAPH ":::13:"BUDGET TO ACTUAL":12:2:"CATEGORY >> ":500:CN$"END"ė:200T **":12::" GRAPHING MODULE "::16((SN$)2):SN$" "(MN$,(CM%1)31,3)" 19"YS%9:6:"1. BAR-GRAPH (BUDGET TO ACTUAL)"::6:"2. LINE-GRAPH (ACTUAL EXPENSE)"::6:"3. TREND ANALYSIS"::6:"4. MENU":9:"ENTER SELECTION (1-4) ";;SL$RM(0)12FX112:MO(X)MO(X1)1:RM(X)RM(X1)1:MO(X)13MO(X)1\RM(X)13RM(X)1eX:xlTY(CR)51920vTLCA(0):XRM(BM%)RM(CM%):TLTLCA(MO(X)):AC(MO(X))TL:X:1950X012:AC(X)CA(X):XU:5:10:"** HOME ACCOUNTANAC(X)AC(X)MIMIAC(X)0X:SL11465ICB(1)(MA)MACB(1)`CB(1)MIMICB(1)lX111CB(X1)(MA)MACB(X1)CB(X1)MIMICB(X1)XDFMAMI:RG((MI)((MI)MA)120):MO(0)FE%:RM(0)12FE%:RM(0)0Ă:X01:Y018:M$"SCALE = X"(10((FLAG4)(FLAG5))):1000:1230RJ157M$"AMOUNTS BELOW LINE ARE NEGATIVE":X01:Y027:1000Y1(CB(MO(X))120((MI)MA))Y(AC(MO(X))120((MI)MA))(xMI0:MAAC(0):X112AC(X)(MA)MA)97:MA%(3)127:MM(0)0:MM(1)((MI.25)):MM(2)((MI.5)):MM(3)((MI.75)):MM(4)((MI)):FLAG((MM(0))):(MM(4))(MM(0))FLAG(((MM(4))))K6:X04M$((MM(X)10((FLAG4)(FLAG5)).5))NG(X)1ĂAX01:Y0MA%(X):900:(MI3)):MM(3)((MI23)):MM(4)((MI)):MA%(1)MA%(0)10NG(1)1IX[MA%(1)(37((RJ40)3)):MA%(2)(37(RJ40)23):MA%(3)RJ3:MM(0)(MA):MM(3)0:MM(2)(MA3):MM(1)(MA23):MM(4)((MI)):MA%(4)MA%(3)10NG(3)1]``MA%(1)67:MA%(2):MM(3)(MA.25):MM(4)0:QMA%(1)(37(RJ3))2:MA%(2)RJ3:MA%(3)(157(RJ3))2:MM(0)(MA):MM(1)(MA.5):MM(2)0:MM(3)((MI.5)):MM(4)((MI)):CVMA%(1)RJ3:MA%(2)(RJ(157RJ3)3):MA%(3)(RJ(157RJ3)23):MM(0)(MA):MM(1)0:MM(2)((13)665  1 12:14:(CN$(CR),2):J M$(BL$M$,4):1000k J1(M$):A((M$,J,1))31u 1010 J1(M$):A((M$,J,1))31 AX0,Y0:X0X0K :LMA%(1)67:MA%(2)97:MA%(3)127:MM(0)(MA):MM(1)(MA.75):MM(2)(MA.5APH"SL2)5809 CN(CN$):(CN$)ULCN$""CNTC%499L &650:NF1500v DCNCR:19:10:NAME$(CN$(CN),2,18): NF0:CN0CNTC%CRCN:700:680 CR1TC%:CN$(CN$(CR),2,(CN$))İ700:670 CR:NF1:680 CXCRĢ12:13:HR$:HR$ INTERRUPT"::11::" NOW SAVING GRAPH ":::AS$:D$"BSAVE ";(BB$,10);",A$4000,L$2000,D";ND%t r31070:16368,0 |D$"VERIFY HADATA,D"ND%  BE$; UL25:32,13:33,26:34,11:35,12:1:12:868:(UL$,UL);:1:"";CN$::CN$"END"(CN$"GR310ĺD$"VERIFY HADATA,D";ND%:198:EF%1:300O ;ET8ĺD$"VERIFY XYZXYZ,D"ND%d =EL315ET6307 @:12:5:"NAME TO SAVE / OR ENTER 'NONE'"::5:"ENTER NAME ";(UL$,11) B14:16:16368,0:"";BB$ EBB$"NONE"370_ J:8:AS$::12:"DO NOT60:X0X021:278,37278,160::279,37279,160:Y037:Y15:28,Y0278,Y0:Y0Y031:Y h ,EF%0:EL0 .PICFLAG0:31050:16368,0 1PK(16384):PK127305 2PK155Ĺ16368,0:390 3EL307ĺD$"VERIFY HAPROG,D";ND%:198:EF%1:300- 6ELϏ$" ** GRAPHS * 12.03.82. 30000928457J60000:2000v2PK(16384):PK199İ200:16368,0:505PK211İ300:607PK12750<16368,0:X038:GD((1)7)1:GD4GD5GDS X112:X0,37X0,160:X01,37X01,1               CR:NF1:TY$""::3:24:" ":4:10:868:1580\"CXCRĢ5:10:HR$:HR$(13)1565,(SL2SL3)CH$"B"CN$(CN$(CR),2):TY$(CN$(CR),1):NC$CN$:TQ$TY$.?BE$;@16368,0:32,H2(CH)1:33,U2(CH)1:34,V2(CH)1:35,V2(CH)>J1:YCR((SL1SL4)(CN$(Y),2)(CN$BL$,25))ĉ:5:11:BE$;(BL$,26);:11:"** DUPLICATE TITLE **":DL1500:DL:NF1:1549Y MF1İ1500:1580NF0:CN0CNTC%CRCN:1700:1580CR1TC%:CN$(CN$(CR),2,(CN$))İ1700:15703L$,U4(CH));:1:"";CK$(WC,CH):(CK$(WC,CH))U4(CH)1399PCK$(WC,CH)""1499`CH51499X15:(CK$(WC,5),X,1)"0"(CK$(WC,5),X,1)"9"1399X:NF0:TC%01549CN0NF1:1549Y1TC%}(CN$BL$,25)(CN$(Y),2)BE$;_:32,19:33,11:34,6CH:35,7CH:1:7CH:(UL$,9)" ";:1:"";XX$:XX$""XX$"0"t(2400:NG112992CA(MS(CH))R(XY):5005:wBE$;(BL$,U4(CH)1);x16368,0:32,H4(CH)1:33,U4(CH)1:34,V4(CH)1:35,V4(CH)81:V4(CH):(Uj&TY0:4:10:(95)" (1-5)";[10:YT$:(YT$"1"YT$"5")YT$"E"ĺBE$;:1210eYT$;HK$:HK$(13)HK$(8)Č1052:1213:HK$(8)1200YT$"E"CH$"":1230TY(YT$)2:TY$(TY)4:18:TP$(TY);(BL$,8) ";:1:"";XX$:XX$""XX$"0"7X(XX$)6NG1:1099[XRM(BM%)XX$"SAME"XXX1:XXX12:CB(MS(X))CB(MS(XX)):VV1X:5000:X:X12:1130]XRM(BM%)(XX$,1)"F"XXX1:200:1127`2400:NG11099eCB(MS(X))S(XY):5000gNG11099 (CN$)ULCN$""CNTC%999FRF1CN$(CR)TY$CN$:1700:1080bSL1500,1550,1550,1500q$NF11000.CH$"B"CN$(CR)TY$CN$:SL1750,1700,1700,1750819:10::KBE$;LXX0:FY0:32,9:33,8:34,5VV:35,6VV:1:6VV:(UL$,6)"0004035:CH$"X"900$7100*0:BE$;RUL25:TY$"4"UL632,10:33,26:34,4:35,5:1:5:868:(UL$,UL);:1:"";CN$::(CN$"END"SL4)CN$"SPLIT"CN$"GRAPH"999CN$"END"CH$"":1080CN(CN$):CN0CH$"B"9990%*RF1:CXCR:1000:CN$"END"890A/1500:NF1Č1052:810K47000xH4035:CH$"X"İ795:CN$(CR)TQ$NC$:800MCN$"END"CX0:MF0:890OTY$"4"CN$(CN$,6)RCN$(CR)TY$CN$:7110:800z3900:4000:TY$(TY)17507CN$"END"790" CXCR:795:1710T MF1:4035:CH$"X"İ795:CN$(CR)TQ$NC$:700r CN$"END"CX0:MF0:790 TY$"4"CN$(CN$,6) CN$(CR)TY$CN$:7110:700 3900: CXCR:3210:3310: RF0:4000:CX0:MF0%1000:CN$"END"890,6200:400. 3005:FT%5İ3800:3820:38308 3010I XTC%100690f Z4000:1200:YT$"E"690 ]1000:CN$"END"690 _1750 v7000 4035:CH$"X"600 CN$"END":690 7100:600 3215:3900: 4000:CX0:MF0 1000:"6. "MU$(6):2 FT%2Ė10:13::"5. "MU$(5):V FT%3Ė10:12::"4. "MU$(4): 18:35:SL$:SL$"1"SL$"7"(SL$"6"FT%1)ĺBE$;:430 FT%3440 SL$FT$(FT%)ĺBE$;:430 SL$:SL(SL$)48:SL7500 SL6000,6000,6000,6400,660:5000:X "X12:< MF0:RF0:CR0:CM%0CM%(S6$(2)) ::5:10:SC$(0):17::" "SC$(1)" "::S6$(1)""Ė16((S6$(1))2):S6$(1)" "MN$(CM%)" 19"S6$(3) 9:X17:10:X". "MU$(X):X ::13:SC$(2)" (1-7) "(95); FT%1Ė10:14::" _$ dPK(16384):PK1271004 n16368,0:a YF1:FY0:NG0:(((XX$,2))).999YF2 XXX112:FYFY1:YF215,220 CB(MS(X))CB(MS(XX))(1((XX$,2)))FY:230 CB(MS(X))CB(MS(XX))((XX$,2))FY VV1X:CB(MS(X))S(CB(MS(X)))6 ** BUDGET ** 8.16.82)30000 MN$(12),IM%(12),CB(12),CK$(5,9),CA(12),DF(12),CN$(101),MS(12),C2(12),RM(12),HW$(14),AD$(3),FC(7),QM$(4)60000:D$"NOMON I,O,C":400PPS%0ĺBE$;:95R8,20UD$"PR#"PS%:PF$(1):768 ZD$"PR#0                        Z1:14Z1220,DZ$(13)Z11288NDZ$"0"DZ$"9"Č1052:1225rDZ$;:D$(Z)DZ$:ZZ1:Z91220HK$:HK$(13)HK$(8)Č1052:1260HK$(8)Z8:14Z:1225*MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$(7)DRT DATE>>":V310RZ1:V3:15:DA$""ĺ(UL$,2);"/";(UL$,2);"/";(UL$,2):1215V3:15:(DA$,2);"/";(DA$,3,2);"/";(DA$,2)15Z3Z6ĺ"/";:ZZ1V3:DZ$:DZ$(21)DZ$D$(Z):1250DZ$(8)Z11245 ZZ1:14Z:Z6Z3ZP50CRTC%PNPN1:1290:1480)WCRF\TY:890:(12):90:800LfZzTY6899p~2200:TY8İ2250TY8PNPN1:1290:1480B10B11EP3:CH1EP1B20B21B1HU%B1:B2HU%B2::16368,010:"REPO,MS(F)):B2B2TS(2,MS(F)):F:B1B1ST(2,0)(XMS%):847FLCH1847`MCH3YY1:Y0Y12NB2ST(2,Y):CH2B2TS(2,Y)OYD2CH3B2B1ST(2,EM)!R900:310:1202:80:85:1300:1480:TY67:890:1400:CR1TC%:(TY)(CN$(CR),1)İ2100:LU$P$(0)PF$(0)PF$(1):EC1(@aX(0):1:@aX(0):$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)u?RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)?WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)?\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)@^EC0:PF$(0)NCARD,CASH>X13:TY$(X):XJ> NN$(1,1)"Y":NN$(1,0)"N":NN$(1,2)"?"h> 60,58,64,62,34,32,38,36>X01:Y14:HH(X,Y):Y,X>9WC(40190)>HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010:?MP$(0)P9$"132N":PPEn=H2$(6)"PER": HD$(1,9) = "CLR":HD$(4,9) = "CLR":HD$(1,10) = "PTD":HD$(4,10) = "PTD":HD$(4,11) = "TYPE"=X111:Y14:HD$(Y,X):Y,X= 4,8,6,24,9,27,25,3,3,3,4,3= 4,8,6,7,9,10,8,3,3,3,4,3=Y01:X112:HL(Y,X):X,Y > CHCK,,1,1,2,4"8lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DIЍ΍ (@YD2F10:FRM(X)RM(Y):F1F1CB(CR,MS(F)):F:CH3F10:FRM(X)RM(Y1):F1F1CA(CR,MS(F)):F:F1F1CA(CR,0)(XMS%)(H36,40:PL7:40:36,48:F3F1:F1F1B2:60)M36,54:PL7:F1(FC(TY)(F2F3).5):40:36,62:F10:F30F1FC(TY)(F2F3)1000'" ":NI(1)0:NI(2)0-'LPLP3:250:]'4F10:F20:F30:30:36,26:YD1F1CA(CR,X)'9YD2āFRM(X)RM(Y):F1F1CA(CR,MS(F)):F:F1F1CA(CR,0)(XMS%)'<PL7:40:36,34:F2F1:F1F1B1:60:CH12130'>YD1F1CB(CR,X):CH3F1CA(CR,Y)|):CH3F1ST(RT,Y)Y&{NI(2)NI(2)F1FC:36,34:40:36,42:F1(FC(TY1)(F2F1).5):40b&" "}&RTRT1:LPLP3:250:&TL0:Z0:NI$(NI);:36,26:F1(NI(1).5):PL7:40&CH11965'F1NI(2):PL7:36,34:40:36,42:F1((NI(1)NI(2)).5):4F1:F1TB(TY,X):CH3F1TA(TY,Y)S%F36,34:40:36,42:F1(FC(TY)(F2F1).5):40\%I" "o%N" ":LPLP3:%l150:"TOTAL ";:1750%qFC1:RT1RT3FC1%vTL0:36,26:F1(ST(RT,X).5):PL7:40:NI(1)NI(1)F1FC:CH11920&xF2F1:F1TS(RT,XRT$(RT);:9$30:36,26:F1CA(CR,X):PL7:40:CH11830a$F2F1:F1CB(CR,X):CH3F1CA(CR,Y)$36,34:40:36,42:F1(FC(TY)(F2F1).5):40$&" ":LPLP1:$:150:"TOTAL "TP$(TY);$?TL0:36,26:F1((TA(TY,X).5)):PL7:40:CH11865!%BF23FC1b#TL0:Z0:XRM(MS%)12:36,26(Z8):F1(TS(RT,MS(X)).5):CH3F1(ST(RT,MS(X)).5)#PL7:40:ZZ1:TLTLF1:NI(MS(X))NI(MS(X))F1FC:X#TY6TLTLST(RT,0)(CH3):NI(0)NI(0)ST(RT,0)FC:50#""#RTRT1:LPLP3:200: $^" ":LPLP3:"rTY8NI1m"tTL0:Z0:NI$(NI);:XRM(MS%)12:36,26(Z8):F1(NI(MS(X)).5):PL7:40"wZZ1:TLTLF1:NI(MS(X))0:X"|TY6TLTLNI(0)(CH3):50""":NI(0)0"LPLP3:200:"100:"TOTAL ";:1750#FC1:RT1RTX:TY5TLTLCA(CR,0)(CH3):50*!""8!6LPLP1:S!@100:"TOTAL "TP$(TY);!JTL0:Z0:XRM(MS%)12:36,26(Z8):F1((TB(TY,MS(X)).5)):CH3F1((TA(TY,MS(X)).5))!LPL7:40:ZZ1:TLTLF1:X!OTY6TLTLTA(TY,0)(CH3):50!T" ""1484& 36,41:(MU$(1),6)" PCT.";B 36,54:"DIFFER. PCT."f (MI$,25);:160:" ":LPLP3: CH2İ30:36,28:(BL$(CR),4):1590 TL0:Z0:30:XRM(MS%)12:36,26(Z8):F1CB(CR,MS(X)):CH3F1CA(CR,MS(X))"!PL7:40:TLTLF1:ZZ1:(MI$,25);:150:" ":LPLP3:Z0:36,13(RT$(RT))2:1750:36,26:YD1ĺ(MN$,1(X1)3,3);" '"PA%" PCT. ";:CH1ĺ" ":1490YD2ĺ(MN$,1(Y1)3,3);" '"PB%" PCT. ";:CH1ĺ" ":1490 36,40:CH3ĺ(MN$,1(EM2)3,3);" '"PB%" PCT.";:xTY6(SL1CH2)ĺTP$(TY):(MI$,(TP$(TY))):" ":LPLP3BZ0:36,13(RT$(RT))2:1750:36,26:(MN$,1(RP1)3,3);" '"PA%;:CH1ĺ" ":147036,34:CH3ĺ(MN$,1(Y1)3,3);" '"PB%;:146436,35:(MU$(1),6);36,42:"DIFFER."!:PCH1CH3Z0:36,13(RT$(RT))2:1750:XRM(MS%)12:36,28(Z8):(MN$,1(MS(X)1)3,3);:ZZ1:X:TY5ĺ(BL$,5)"TOTAL"QTY5ĺ" "RCH1CH3ĺ(MI$,25);:100:1380T36,28:"CAT#";U" "Z36,28:"----";d" ":LPLP3:<236,56RF(BA$((CH3)))2:BA$((CH3))" FOR"#SL3Ĺ36,46RF:PE%" MONTH(S) ENDED "(MN$,1(EM1)3,3)" 19"PB%:LPLP1(36,58RF(S6$(1))2:S6$(1)2"PAGE "PN;:36,52RF:MM0ĺ(MN$,1(MM1)3,3)" "(DD)", 19"YY$;F" ":" ":LPLP6$(8):YY(YY$):DD1DD31MM1MM121200Q(MM4MM6MM9MM11)DD301200fMM2DD291200MM2YY4(YY4)DD281200DA$MM$DD$YY$D$: (12)LP0" ":" "SL1Ĺ36,56RF(MU$(SL))2:MU$(SL)" FOR":1315BHHH$H%H$% G& 0I@ ( h%h$hhh`DARE YOU SURE YOU WANT TO DO THIS? ";MSN$:SN$"Y"SN$"N"Č1052:1215dSN$:SN$"N"129012:BE$"DO YOU HAVE AN INITIALIZED DISK? ";SN$:SN$"Y"SN$"N"Č1052:1230SN$:SN$"Y"FT%0:EF1  TL0:(CN$(CR),1)"5"271W%2NG1:1190<j:HT(SL):VT(SL):(HW$(SL)BL$,FL(SL))B:5::7:" REFER TO PAGE 8 IN MANUAL "::8:AS$:14:AS$:9:BE$;BE$:"DO YOU WISH TO START A NEW SYSTEM? ";SN$:SN$"Y"SN$"N"Č1052:1205SN$:SN$"N"1290$BE$":11903QSL2HW$(2)"S"HW$(2)"P"NG1:1190`VSL3HW$(3)"Y"HW$(3)"N"NG1:1190[(SL3SL14)āZ13:((HW$(SL),Z,1)"0"(HW$(SL),Z,1)"9")(HW$(SL),Z,1)""NG1:Z3:]SL3SL14ĂZ:NG11190`SL14HW%(HW$(14)):HW%1H(2);:PS%0Ģ21:14:SC$(5)" ?22:28:(95);:28:SL$\SL$"R"SL$"X"ĺ:1090uSL$"P"ĺ:80:1040SL$"A"SL$"N"ĺBE$;:1040DL1200:DL$SL$:SL(SL$)64:900:61000:1040BLNG0:SL1HW$(1)"0"HW$(1)"7"NG1AT "::1:X15:5(X1)6:(67X);:X::j14::2:" ASCII CODE(S) FOR 80-COLUMN FORMAT ":::X15:5(X1)6:(72X);:X::18::"N";::" NUMBER OF DRIVES IN SYSTEM": 20:10:SC$(3)" (A-N)":SC$(6);:27:SC$(4):12:SC$:_:2:10:SC$(0):8::" HARDWARE CONFIGURATION "::7:"REFER TO PAGE 10 IN MANUAL"::"A";::" PRINTER SLOT#"::"B";::" S)ERIAL OR P)ARALLEL CARD?":"C";::" SUPPRESS LINE FEED? (Y/N)"::2::" ASCII CODE(S) FOR 132-COLUMN FORM8SL213:HW$(SL)"0":SL:SL114:1130:SL:BBE$;16368,0:EF1:32,HT(SL)1:33,FL(SL)1:34,VT(SL)1:35,VT(SL)VT(SL):1:(UL$,FL(SL));:1:"";HW$(SL):HW$(SL)""HW$(SL)"0"(HW$(SL))FL(SL)8991100:NG1899 AMOUNTS"::3:"WITH LAST YEAR'S ACTIVITY? (Y/N) ";\LY$:LY$"Y"LY$"N"Č1052:747eLY$o6200u EF0:1200%1000:SL114:1130:SL,FT%0FT%1R1040:SL$"X"İ3800:3810:3830:805\EF0895z3795:3820:3830%:8:(SM$(2),13):31110:8:AS$::14:AS$:10:7:BE$"UNRECONCILED CHECKS CARRIED"::7:"OVER TO THE NEW DISK? (Y/N) ";UR$:UR$"Y"UR$"N"Č1052:734UR$SL67504:8:AS$::14:AS$:10:3:BE$"REPLACE LAST YEAR'S BUDGETDED":HT4:SL7M1$" START NEW YEAR":HT3 :8:AS$::16:AS$:10:4:BE$"DO YOU HAVE A COPY OF THE CURRENT":HT:"DATA DISK TO"M1$"? (Y/N) ";: YN$:YN$"Y"YN$"N"Č1052:710 YN$:YN$"N"79013:7:BE$"INSERT THE COPY IN DRIVE "ND$::"BE SURE TO COPY MOST CURRENT DATA DISK.":6:"USE THE COPYA PROGRAM ON YOUR":9:"DOS 3.3 MASTER DISKETTE"::AS$: X:8:AS$:14:AS$:10:14::NL$::20(MU$(SL))2:" "MU$(SL)" "::20 l(4)"RUN"(MU$(SL),6)",D1" * M1$" BE EXTEN500) 8SL:4::(48SL)". "MU$(SL):c 19:868:"PRESS 'R' TO RUN OR 'X' TO CANCEL "(95); 35:HK$:HK$"R"HK$"X"448 HK$:HK$"X"Ģ8SL:4:(48SL)". "MU$(SL):420 SL600,600,600,600,600,700,700,800:400 3005y :8:AS$(1):M 19:29:SL$:SL$"1"SL$"9"((SL$"3"SL$"4")PS%0)ĺBE$;:430d FT%4SL$"9"440 (FT%0SL$FT$(FT%))(FT%0FT%4SL$FT$(1)SL$FT$(0))ĺBE$;:430 FT%4(SL$"1"SL$"5"SL$"8")ĺBE$;:430 SL$:SL(SL$)48:SL90 16368,0:K ::5:10:SC$(0):18:"V "VN$:15::" "SC$(1)" ":p 9:X19:4:X". "MU$(X):X:: 19:868:7:SC$(2)" (1-9) "(95); FT%0Ė4:16::"8. "MU$(8): FT%0FT%4Ė4:13::"5. "MU$(5): FT%4Ė4:9::"1. "MU ! ** HAMENU ** 01.18.83-30000| IM%(12),CN$(100),AC(12),VT(14),HT(14),FL(14),HW$(14),CA(12),RM(12),MS(12)60000:D$"NOMON I,O,C":400PPS%0Č1052:90R8,19:D$"PR#"PS%:PF$(1)U768ZD$"PR#0": (16384)12720           )):XR8FX012:TA(((CN$(CR),1)),X)TA(((CN$(CR),1)),X)CA(CR,X):X,CR:33308K 1,3,4,5,6,6,7,7:TS03:SP(TS),EP(TS):TS8TS03:TYSP(TS)EP(TS):X0(TS2)12:TS(TS,X)TS(TS,X)TB(TY,X):ST(TS,X)ST(TS,X)TA(TY,X):X,TY,TS&9T 1,1,1RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1B7RM(X)13RM(X)1I7X]7RM(0)0:MS(0)0q7(3300:CR1TC%723310:(CN$(CR),1)"5"602257 TO RETURN TO MAIN MENU"::AS$:952yPK1555002y2`D$(4):3900:BE$(7)3e9EL3005İ31000:-1buET9EL3000İ31100:E1luEL6206ET831200T1vuEL6206Ħ1yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:2yBE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT HOME ACCOUNTANT PROGRAM DISK":8:0 D$"CLOSE HATRANS":40D$"OPEN HARDWARE,D1":0D$"READ HARDWARE":FT%:X114:HW$(X):X:PS%(HW$(1)):ND%(HW$(14)):D$:0D$"CLOSE HARDWARE"0<D$"CLOSE":00uET(222):EL(218)(219)2560DuEL6200EL6205Ħ0NuET255Ħ1XuET,CY%,FE%:D$:&/ D$"CLOSE CATBUD":G/ D$"OPEN CATACT,L130,D"ND%:/ D$"READ CATACT,R"CR:X012:C2(X):C2(X)(C2(X).5)/ X:D$:/ D$"CLOSE CATACT":/ D$"OPEN HATRANS,L80,D"ND%:/ D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:D$:CN$(X):X:D$:).: D$"CLOSE CATNAME":I. D$"OPEN CATBUD,L84,D"ND%:l. D$"READ CATBUD,R0":TC%:D$:. D$"READ CATBUD,R"CR:X112:CB(CR,X). TB(((CN$(CR),1)),X)TB(((CN$(CR),1)),X)CB(CR,X):X:D$:/ D$"READ CATBUD,R101":S6$(1):MS%-60-" "3-LPLP3:260:NI(1)0:NI(2)0:Q- D$"VERIFY HADATA,D"ND%:m- D$"VERIFY HAPROG,D1":- :10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1"- D$"OPEN CATNAME,L27,D"ND%:.& D$"READ CATNAME":X0TC%: ," "$,RTRT1:LPLP3:260:,F10:F20:F30:NI1:NI$(NI);:36,26:F1(NI(1).5):PL7:40:36,34:F2F1:F1F1B1:60:CH12265,F1NI(2):PL7:36,40:40:F3F1:36,48:F1F1B2:60:36,54:PL7:F1F2F3:40:36,62:F10:F30F1(F2F3)100F3:CH3F1ST(RT,Y)\+YD2F10:FRM(X)RM(Y):F1F1TS(RT,MS(F)):F:CH3F1F4ST(RT,EM)+36,40:PL7:40:NI(2)NI(2)F1FC:36,48:F3F1:F1F1B2:60+36,54:PL7:F1(FC(TY1)(F2F3).5):40:36,62:F10:F30F1FC(TY1)(F2F3)100F3,60:"TOTAL ";:1750+*FC1:RT1RT3FC1H*36,26:YD1F1ST(RT,X)*YD2āFRM(X)RM(Y):F1F1ST(RT,MS(F)):F:F1F1ST(RT,0)(XMS%):F4F1*F1(F1.5):PL7:NI(1)NI(1)F1FC(TY1):40:36,34:F2F1:F1F1B1:60:CH12230+YD1F1TS(RT,X)F3 )O60)R" ":LPLP1:8)f160:"TOTAL "TP$(TY);p)kTL0:36,26:F1((TA(TY,X).5)):PL7:40:CH12170)nF2F1:F1TB(TY,X):CH3F1TA(TY,Y))r36,34:40:36,42:F1(FC(TY1)(F2F1).5):40)u" ")z" ":LPLP3:*F10:F20:F30:160z#@??    HŠ 5ĮԠ GԠ  Š5ϠͮԠîϠ"J..  2.01 01/18/83ĮԠ ՠ#Р Š Ԡ8 Ӡ& Ԡ:Ǡ@@8ppp|p@?`pp`xxpC@p|pp@>@pp|p@``@``@ c0@``@?@ppp|x@?`pp~?~pC`p|p|?@>`p`p`p@pp`p|Cax@``a0 ``@0`@`ppp|><@?x`ppCpp|p~@>`0p`0@a0na~`PEL(218)(219)256:ET(222)3ZíET254)).5):CH0PF$(1)PF$(1)(CH)Y;\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)f;aX(0)::(0)(CH)I:WHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH):\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1):aX(0):FX(0):((1):RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)!;WHW:HW913:CH((HW$(HW,-1,-1,1,-1,1:FC18:FC(FC):FC:FC0}9H3900:PF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"610109MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1) :RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$SC$(2)" (1-3) "(95);UE17:26:CH$:CH$"1"CH$"3"(CH$"3"CM%MS%)ĺBE$;:800kFCH$:CH(CH$)48HYD1İ340:XRP:YRP:EMRP:BMRP:843J350:XBM:YEM8KPE%RM(EM)RM(BM)1:B1ST(2,X):B2TS(2,Y):YD2B10:B20:FRM(X)RM(Y):B1B1ST(2:"2. PRINT RANGE OF MONTHS"::"3. MENU":I/4:SC$(2)" (1-3) "(95);v417:26:YD$:YD$"1"YD$"3"ĺBE$;:820>YD$:YD(YD$)48:YD3870C300:305::"1. PRINT PERIOD ONLY"::"2. COMPARE TO BUDGET"::"3. COMPARE TO LAST MONTH":D4:)İ1800:LP50CRTC%PNPN1:1290:14609CR:1850VTY:790:(12):90:700\oTY4TY57991900:TY6İ1950TY6PNPN1:1290:1460 RF24:CF0:NI0:LP0:RT2:PF1:Z0:PN1:PE%1:300+*305::"1. PRINT MONTH":4:SC$(2)" (1-4) "(95);[19:26:CH$:CH$"1"CH$"4"(CH$"3"CM%MS%)ĺBE$;:720{CH$:CH(CH$)48:CH4770CH1EP3340:XRP:YRP1:Y0Y12310:1200:80:85:1300:1460+TY15:790:1400:CR1TC%:(TY)(CN$(CR),10TY4TY5CH2699:1700:TY6TY8İ1650YTY8PNPN1:1290:1360_RF31:EP1:CF0:NI0:LP0:RT0:PF1:Z0:PN1:300305::"1. PRINT MONTH ONLY"::"2. COMPARE TO BUDGET"::"3. COMPARE TO LAST MONTH"::"4. MENU":BE$;:614)lCH$:CH(CH$)48:CH46858qCH2PF1Vv1200:80:85:1300:1360TY17:690:1400:CR1TC%:(TY)(CN$(CR),1)İ1500:LP50CRTC%PNPN1:1290:1360CR:TY6(CH1CH3)İ1600CH2ĺ" "TY:690:(12):90:60SL600,700,800:400!3005+3010`XTY0:RF0:CF0:NI0:RT0:PF0:LP0:Z0:PN1:300b305::"1. PRINT BUDGET"::"2. PRINT CATEGORY NAMES ONLY"::"3. ACTUAL"::"4. MENU":d4:SC$(2)" (1-4) "(95); f19:26:CH$:CH$"1"CH$"4"ĺ(EM$):RM(EM)RM(BM)RM(EM)RM(CM%)(RM(EM)RM(MS%)CH3)Č1052:365Zo:8:22:EM:mTY0:PF0:3009:X14:5:X". "MU$(X):" ":X8:SC$(2)" (1-4) "(95);17:30:SL$:SL$"1"SL$"4"ĺBE$;:430SL$:SL(SL$)48:SL4500> ";Kc32,23:33,3:34,5:35,6:6:1:MS%;:1:"";BM$:BM$""BM$(MS%)eBM(BM$):RM(BM)RM(MS%)RM(BM)RM(CM%)Č1052:355h:6:24:BM:8:"ENTER ENDING MONTH>> ";m32,21:33,3:34,7:35,8:8:1:CM%;:1:"";EM$:EM$""EM$(CM%)GnEM% @4 T16368,0::8:"ENTER REPORT MONTH>> ";{ Y32,21:33,3:34,7:35,8:8:1:CM%;:1:"";RP$:RP$""RP$(CM%) ZRP(RP$):RM(RP)RM(MS%)RM(RP)RM(CM%)(RPMS%CH3)Č1052:345 [:8:22:RP:^16368,0::6:"ENTER STARTING MONTH>,26:Q1EP:"======= ===== ";:Q:" ": ,::5:10:SC$(0)::12:" "SC$(1)" "::S6$(1)""Ė16((S6$(1))2):S6$(1)" "(MN$,1(CM%1)3,3)" 19"CY%: 19:19(MU$(SL))2::" "MU$(SL)" ":: 6PA%CY%:PB%CY%:YCM%PB%PB%1 ;XCM%PA%PBQ:RT1ĺ"--------":110 i""& nP 36,26:Q1EP:"------- ";:Q:" ": 36,26:Q1EP:"------- ----- ";:Q:" ": 36,26:QRM(MS%)12:"======= ";:Q:TY6ĺ"========":210 "" 36,26:Q1EP:"======= ";:Q:" ":( 36FORM "::6:" "(SM$(2),13)" ":::AS$0 Q95 S:8:AS$::11::" PRINTING REPORT "::11:" DO NOT INTERRUPT ":::AS$ UD$"PR#"PS%:PF$(PF): ZD$"PR#0": _PK(16384):PK12795 a16368,0: d36,26:QRM(MS%)12:"------- ";:(CN$(CR),2);:> ((BL$(((F1.5))),PL);NS$(F1(F1));:Y 2F1(TL.5):PL8:40:t <F1(F110.5)10:PL5 FZR$"":F1(F1)ZR$".0" K(BL$((F1))ZR$,PL);NS$(F1(F1));:( P:8:BE$;BE$;AS$::1::" SET PAPER AND PRINTER TO TOP OF 2 ** PRINTE * 07.22.82*30000 MS(12),C2(12),RM(12),NS$(1),NI(12),NI$(1),RT$(3),TB(7,12),TA(7,12),TS(3,12),SP(3),EP(3),ST(3,12),MU$(4),SC$(6),HW$(14),FC(8),BA$(1)60000:D$"NOMON I,O,C":400CN$(TC%),CA(TC%,12),CB(TC%,12):                      ):WX(YX):DX((YXWX)100.5)V XX$SN$((XY)1)(WX)"."(("0"(DX),2)"0",2)l XS$(BL$XX$,10)r {( NG0- AM$""26452 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")26400< )TW%}>P%(4)N1%TH%:P%(5)(N1%P%(4)TH%)HU%:P%(6)(N1%P%(4)TH%P%(5)HU%)TE%:P%(7)N1%P%(4)TH%P%(5)HU%P%(6)TE%CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)H XY(100(XX$).5)100:YX(XY%(4)WC:P%(5)SL:P%(6)MD%:P%(7)CP:SPT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)PT%(RN,1)P%(4)TH%P%(5)HU%P%(6)TE%P%(7)4N0%PT%(RN,0):N1%PT%(RN,1)9P%(1)N0%HU%:P%(2)(N0%P%(1)HU%)TE%:P%(3)N0%P%(1)HU%P%(2)TE%:P%(1)P%(1`00`000b0``@@@8ppp|@?`p`?p`~?ppp````008b0|`@? #1 AND":2:"INSERT HOME ACCOUNTANT PROGRAM DISK.":8:"PRESS ANY KEY WHEN READY"::AS$_ }EET4İ32000:30030- Nu(16384)12730030= Xu16368,0: yBE$::8:AS$::3:"REMOVE WRITE PROTECT TAB FROM DISK":6:"AND RE-INSERT IT IN DRIVE #1.":8:"PRESS ANY KEY WHEN READY"::AS$ "yY }BE$::8:AS$::4:"REMOVE ANY DISK FROM DRIVE16304,0:16300,0# V16368,0:14 XX15000:X~ `::40190,0:10:AS$:14:AS$::12:11:" LOADING MAIN MENU "::20 bPRINT D$"BLOAD GC" jD$"BLOAD DMP":D$"RUN HAMENU" 0uEL(218)(219)256:ET(222) :uEL100ET4İ31000 DuEL100CCOMPANYING":6:"MANUAL IS STRICTLY FORBIDDEN" 14::15:"WRITTEN BY "::11:"ROBERT SCHOENBURG ":11:" STEPHEN POLLACK ":12:" LARRY GRODIN " 23:5:"CONTINENTAL SOFTWARE (C) 1981" D$;"BLOAD PIC.LOGO,A$2000,D1" 16297,0:16302,0:` ** HELLO ** 10.12VBE$(7):AS$"***************************************"b 30000nD$(4)dD$"VERIFY HAPROG"::4:18:"THE":::11:" HOME ACCOUNTANT ":/ ::6:"UNAUTHORIZED REPRODUCTION OF":4:"THIS PROGRAM OR ITS A    173188:0,Y279,Y::Y175186:4:10,Y270,Y:k7:X2628:X,40X,160::Y157RG160RG:29,Y279,Y:YM$"**** HOME ACCOUNTANT ****":X015:Y0176:K10:1000X035:Y0162:X112:MMO(X)M$(MO$,M,1)7:K0:1000:X0X021:),X)CA(CR,X) X,CR:. D$"CLOSE CATACT":O D$"OPEN HATRANS,L80,D"ND%: D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV% CM%11:: REMOVE CM%=11 D$"CLOSE HATRANS": DRAW HISTOGRAM:16302,0:7:1:0-Y$"READ CATBUD,R101":SN$,MS%,YS%,FE%:; D$"CLOSE CATBUD":\ D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:X012:CA(X):X:D$: TY(CR)6CA(CR,X)CA(CR,X)CA(CR,X1):TA(TY(CR),X)TA(TY(CR),X)CA(CR,X1):3314  TA(TY(CR),X)TA(TY(CR ) ;  )   )  ; )   ) ;   -    ??)--??)--??  ??)--??)--?? ----- CATBUD,R0":TC%: D$"READ CATBUD,R"CR:X112:CB(X):X:D$:# D; )  --  -  )    ); ); )- ) ) ;; )  ) ))))  ) );; ) ;;) )  ); )? ); )--; ) ;)-- ; )   ; );; - ;; ) ? )  )  -  ) ))))))  - ; ); )  ) ; ); )   - ; );? ;  - ;) ;? ?  -? ;   --  )-; ; )- ; ;?) ; --  ) ; --; )  ; )) -  )   ) ; )? ); ; ;? ); )   )  -  ; ; ;  )  )  ?? ); ) ;) ?? ) ; ) ; ) ?? -? -? -??        ?? ; ) ;    - ; - ;; -- ; ;? );)- )  ;?) )) )) ? ;?) ))- )  ;?) ) - ) );? ?? )  )  )  ) )) )) );? ) )) )  ) ))))) - ) );; ) ;;) ) ) );; ?? ) ))--) ) ;? )  )  ) ;?  ) )) );? ) ) )  ) ) ) ?? ) -)))) ) ) );)))?) ) ;?) )) )) );? ;?) ))-  ;?) ); )   ;?) )))-;) ??  ) )??) ) ;?) ))- ) );? ;?) )) ) );? ;?) )) )) );? ??) )- ) ?? ??) )- )  ??) ) ?) ) )- ) );? ?? ); ) ; ; ;?) ) - ) );? ;?) ) -- ?        ) ; ; ) ;) ; ) ;  ?? ??  ; ) ; ); ) ; )--       ); ) ;)  ;?) )?)));) );?  -  )  ) ;? ;?) ) ) ;) ?? ?? ); ) ) );? ; ) ;;) ?? ; ??) ;? )) );? ? )-  ;) ); ) ;) -? ;))  ) ?  )     )     )  )));? ) ;?)))  ) )-- )     ) ;  (;;x &C`}+He0Mj5Ro:Wt"?\y       )  )   ;; ;;   ;; ?? ?? ;;  -- -      ;;[;;[;;@(7[7Ђ=[7 ′=[7{;;[;;[;;Ԃ[[7=[7=[7 ( =;;;;;;;;;;;;;;;;;;]]]]]]]]]]]]]]]]]];[;;  [;;Ģ[[7[7[7[7[7[7[7[7[7m[m[m[m[m[m[m[m[m[[=[7 =[7Ԁň=]w=]w=]w\w\w\w\wn;n;]w\wn;n;n;n;n;n;n;www7[[7[[7[7[7[7[7[[m[m7[7[[m[m[m[m[m[m[mmvmvm]wЂ=]w=]w P {7[[7[[7[6]w=]w=]wՊ=7[[7[[7[ ( []w\w\w\w\w\w\w\w\wn;n;n;n;n;n;n;n;n;]g<]w (=]wՈ=7[7[7[7[7[7[7[7[7[[m[m[m[m[m[m[m[m[m7[7[ [7[Р[mlfmlfmlllllllll6666mlll66666666666666mlU*Tfmlfmlllllllll6666mlll66666666666666mlfmlfml@ MmlfmlfmlMmlfmlfmlfmlfmlfml ( fmlllllllllllllllll666666666666666666mlfml QP fmlfmlllllllllllllllll666666666666666666mlfml ကfmlfmlЊРUfmlfmlMml fmlfmlllllllll6666mlll66666666666666mlfmlfml  fmlfml∀fmlMmlllllllllllllllll666666666666666666mlfmlကfmlfmlfmlfmlU  f,VP1:35,VP'V1:VP:(UL$,UL(WO));;^WO2WO81130N`1:"";TR$(WO)jb(TR$(WO))UL(WO)1099jWO100,200,300,400,500,600,700,800,7200,7100lNG1WOWO(WO7SL1):1099~P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8))%PMD$"3"900,MF1:(MD$)1MD%MF0:950?:MD%(MD$)1VMD%2İ400:4100nGOMD%1:CH2GO3t~KBE$;L16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5PWO11130 RNG0:32,HT1:33,UL(WO)1:34"N"NG1#NY0:TR$(WO)"Y"NY15TR$(WO)(NY);K 1:TR$(WO)~"TR$(WO)"Y"TR$(WO)"N"TR$(WO)(13)NG1*NY0:TR$(WO)"Y"TR$(WO)(13)NY1,(TR$(5),5)"SPLIT"NY14TR$(WO)(NY)z6:6:BE$; MD$:MD$"1""4"CC1:NF1630'CC1NG1:690e:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630wTR$(WO)(CR)WO2SL2CH2RN0690WO2SL2ARCR:BF0:4128:CH2BAOAPM%(SL,OD%):4050TR$(WO)""TR$(WO)"Y"TR$(WO)),5)"SPLIT"İ400N;XNG0:NF0:CT$TR$(WO):CR(CT$)uZTR$(6)"SPLIT"(TR$(5),5)"SPLIT"TR$(6)"-1":690bCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640vCR:NG1:690CC0:SL2WO2(CN$(CR),1)B2SB:CS14BAXYPM%(SL,MD%)SB:4000:CS1450S(TR$(5),5)"SPLIT"İ4000Y(TR$(5),5)"SPLIT"TR$(6)"-1"NG1:590((TR$(5),5)"SPLIT"CH1BF0)(OM1(TR$(5),5)"SPLIT")TR$(8)"1":4000:WO8:5100:WO5:590OM1(TR$(5X"S,(TR$(WO),1)"*"TR$(WO)(TR$(WO),2):600:NG0TR$(WO)(CN$(CR),2)Y}SB0:AM$TR$(4):2600:NG1450XX$AM$:2500:TR$(4)XX$BF1450 CS0:(CH2(SL1CH3))(OM1WO5)SBOAPM%(SL,OD%):OM0(TR$(5),5)"SPLIT"S1:NX;1:"";TR$(WO):(TR$(WO))UL(WO)NG1:290cSL1MD%0TR$(WO)""TR$(WO)(NX)SL2TR$(WO)"END"MD%2:290SL2İ600XC0:(SL1MD%0CH1)290XC1:X1(TR$(WO)):(TR$(WO),X,1)"9"(TR$(WO),X,1)"0"XC0MM2DD29992MM2YY4(YY4)DD2899VTR$(WO)MM$DD$YY$:LD$TR$(WO)\MM$D$(1)D$(2):WO6:HT:" ":(MM$)CM%ĢWO6:HT::BE$;BE$"WRONG MONTH":WO7:HT8:(SL1CH1MD%0)2201:NX(CK$(WC,8))Z$"0"DZ$"9"ĺBE$;:115< DZ$;:D$(Z)DZ$:ZZ1:Z9110k 182:HK$:HK$(8)HK$(13)ĺBE$;:145} HK$(8)125 DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299 (MM4MM6MM9MM11)DD3099$(21)DZ$D$(Z):135- xDZ$(8)Z1135V }ZZ1:HT1Z:Z6Z3ZZ1:HT1Z_ 115 Z1DZ$"M"İ900:GO100,100,180 Z1TR$(WO)""(DZ$(13)DZ$"S")D$(1)(TR$(WO),1):D$(2)(TR$(WO),2,1):182:180 DZ$(13)İ182:155 D PPS%0ĺBE$;:909 R8,20:;:D$"PR#"PS%:PF$(1):768I ZD$"PR#0":S cBE$;t dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2); iZ1:HT:WO7 nZ3Z6ĺ"/";:ZZ1 sWO7:DZ$:DZ9000,4500,8000:SL7252 -77:MS1:3000:10000B /3300:3320] 2SF%1SF%2SF%SF%2 73500:3515:3900:3005:HF1İ3800:3820 93010 < *** END OF MAIN LINE *** KEM0:3000:3500:3505 MSF%3EM1:M1%ND%:3900:31100:75 OELECT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU{ FT%4Ģ12:3::"4. START NEW MONTH": 20::" ENTER SELECTION(1-7) "; #SL$:SL$"1"SL$"7"(FT%4SL$"4")Č1052:35 (SL$:SL(SL$):SL6000,7000,7000,H! ** TRANSA ** 01.18.83-30000Q D$(4):D$"NOMON I,O,C":60000mCB%1WC1:WC$"1":25}WC0İ4500WC$(WC):SL0:6900:3900O ::" 1. CHECKBOOK"::" 2. CREDIT CARD"::" 3. CASH"::" 4. START NEW MONTH"::" 5. S                        16:H$"H":HC$"CLEARED":GH$"H":6900:26:(CK$(WC,6),14)::::X15:3:" "X". "MU$(1,X):::" ENTER SELECTION(1-5) ";)zCH$:CH$"1"CH$"5"Č1052:6010)CH$:CH(CH$):CH6100,6300,6500,6700)CH56000)3300:3324:3330*(CN$((TR$(WO))),2):51904(WO1TR$(WO)""5190r(WO1ĺ(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2):5190( WO7WO8ĺNY$((TR$(WO))):5190(WO9ĺ("0"TR$(WO),2)" "AR$(EB%):5190(<TR$(WO)(F(p3500:3600)uSI$"I":SJ$"J":SVECT (1-"CB%") ";:'WC$:WC$"1"WC$(CB%)Č1052:4535M'WC$:WC(WC$)['40190,WCa''VPWO7:HT13:SL1WO7VP6WO'EB%1WO9HTHT5':HT:VP'WO8SL15190'WO6(TR$(6))1ĺ"SPLIT":5190(WO6(WO2SL2)ĺ:CH$(SL,0);::" 2)"CH$(SL,1)" 3)END"p&:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"v&D&CB%14590&TI$(5)"SELECT PERSON":6900&10:8:"CHECKBOOK/NAME":&X1CB%:10X2:5:X". "CK$(X,1):'::8:"SEL"(X)CANCEL (S)SEARCH (M)ODE"%|CM$("0"(CM%),2):SV:SI$" MO "("0"(MI%),2)"->"CM$" "CM$" ->"CM$:BRIM%(CM%):ERCT%:SJ$" TR#->"CT%%%4:14::" AUTOMATIC "::%4:14::" RECONCILE ":%6:868%)&0MD%0Ģ6:"MODE 1)";:"5$ BF1Ģ17:22:"BALANCE ";:OD%MD%CH1İ4000$"21:9:"LETTER TO CHANGE(A-"GH$")":2:"(X)CANCEL (P)PRINT (R)RECORD (M)MODE":12:"ENTER SELECTION "$$CH3Ģ20:16::"(S)SKIP":$^%h4:14::"SEARCH/EDIT"::21:28:SJ$:22:868:5:Y:XX$(BA):2500#BA0ğ6#VB:HB:XS$:BA0:<#Y#1:6:958:MD%1MD%0c#4400#:"A DATE";:22:"(M)MODE":"B "DN$(SL,MD%):"C "PY$(SL,MD%)#"D AMOUNT":"E MEMO":"F CATEGORY"$"G TAX(Y/N)":H$" "HC$:CH1SL1Ė13:15:"NW$(14)):PS%(HW$(1)):M"D$"WRITE HARDWARE":FT%:X114:HW$(X):X:D$:g"D$"CLOSE HARDWARE":x"<D$"CLOSE":":SL1AR(CK$(WC,0))"VB17:HB31:RR1VB15:HB23"SL3AR(CK$(WC,0))1"SL$"3"4090#Y012:BABACA(AR,Y):HAAUTOPOINT,L11,D"ND%:P!D$"READ HAAUTOPOINT,R"ZZ:PT%(RN,0),PT%(RN,1):D$:!D$"WRITE HAAUTOPOINT,R"ZZ:PT%(RN,0):PT%(RN,1):D$:!D$"CLOSE HAAUTOPOINT":!D$"OPEN HARDWARE,D1":"D$"READ HARDWARE":FT%:X114:HW$(X):X::D$:ND%(H0 > $D$"WRITE HAPOINT,R"RN:PT%(RN,0):PT%(RN,1):D$:W .D$"CLOSE HAPOINT":w tD$"OPEN HAAUTO,L80,D"ND%: ~D$"READ HAAUTO,R"ZZ:X05:TR$(X):X:D$: D$"WRITE HAAUTO,R"ZZ:X05:TR$(X):X:D$: D$"CLOSE HAAUTO":!D$"OPEN ATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:D$:a D$"WRITE HATRANS,R"RN:X05:TR$(X):X:D$:z D$"CLOSE HATRANS":D$"OPEN HAPOINT,L11,D"ND%:RP13614 MS0:10000:D$"READ HAPOINT":X0CT%:PT%(X,0),PT%(X,1):X:D$:RP1:SL4İ690M%(X)0ĭIM%(X)IM%(MI%)MI%X+ X:D$:C D$"CLOSE CATACT":aH D$"DELETE BUFFER,D"ND%: D$"OPEN HATRANS,L80,D"ND%: D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB% D$: D$"READ HATRANS,R"RN:X05:TR$(X):X:D$:. D$"WRITE HU%:X,CR:D$:S WC1CB%:D$"READ CATACT,R"100WC:X09:CK$(WC,X):X,WC:D$: D$"WRITE CATACT,R"100WC:X09:CK$(WC,X):X:D$: D$"WRITE CATACT,R"106:X012:IM%(X):X:D$: D$"READ CATACT,R"106:MI%CM%:X012:IM%(X):X:X112:I%,YS%,FE%:D$:D D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$:\ D$"CLOSE CATBUD":} D$"OPEN CATACT,L130,D"ND%: CR0TC%:D$"READ CATACT,R"CR:X012:CA(CR,X):X,CR:D$: CR0TC%:D$"WRITE CATACT,R"CR:X012:(CA(CR,X)HU%.5)HENU,D1"( D$"OPEN CATNAME,L27,D"ND%:X& D$"READ CATNAME":X0TC%:CN$(X):X:D$:0 D$"WRITE CATNAME,R"CR:CN$(CR):D$:: D$"CLOSE CATNAME": D$"OPEN CATBUD,L84,D"ND%: D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R101":SN$,MS(AM$,X1,1)"."VXLXX1:VVVV1:VX2VV126408F X1bH (AM$)1000000(AM$)1000002640lK 2645uP NG1{U  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1": :10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMT":PK(16384):PK155RNER:BE$;:16368,039D9 SEARCH KEYY9TR$(10)""7405q9RN(TR$(10)):210093510:7500:74909TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)9 :2000:PC0:X13:TR$(X5)""PCPC1:SP(PC)X:P%07230784BRIM%(MO%):5100:EB%1:ERBRNG1:EB%0A897290]8>OM%MO%1:OM%13OM%18HERIM%(OM%)1:MO%CM%ERCT%8RERBRNG1:72908T51008WEB%08z8X110:TR$(X)"":X8-919:8::"**SEARCHING**";::" TO ABOR ";*7bCH$:CH$"1"CH$"3"Č1052:7010K7vCH$:CH(CH$):CH6100,6300[7CH37000a77(TR$(WO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG177BE$;7 MO%(TR$(WO)):MO%1MO%12NG1:72907*IM%(MO%)0NG1:7290 81EB,1)"4"(CN$(AC),1)"6"TM%1O6DCA(AC,EM%)CA(AC,EM%)(TR$(4))MP%(TM%,MD%)q6N4050:3520:2000:2010:3620w6S7X3500:3600:SI$"H":SV15:SJ$"I":HC$"":H$"":GH$"G":6900:::::X13:3:" "X" "MU$(SL,X):::::6:"ENTER SELECTION(1-3)R$(0)(CM%):6960"5*CF16995750TR$(8)"2"6990I51EM%(TR$(0))i52XC1CH1CK$(WC,8)TR$(2)z55CH1İ770057(TR$(5),5)"SPLIT"69725:CA(AR,EM%)CA(AR,EM%)(TR$(4))PM%(SL,MD%)5;TR$(6)"-1"69906<AC(TR$(6)):TM%0:(CN$(AC)K43730:378844::9:HA$:20(TI$(SL))2::TI$(SL)::15(CK$(WC,1))2:CK$(WC,1)" ";:FT%5ĺMM$(CM%)" 19"YS%;4:4&19::SL1TR$(8)"1":69524'TR$(8)"0"RN0RN(CK$(WC,9))CK$(WC,9)(RN)5(CH1CT%CT%1:RNCT%:T67073EWO$"P"ĺ:80:6720@3JWO$"M"İ900:MD%2K5:6780h3OWO$"M"MF1Ģ19::MF0:CF1:67103TWO$"R"ĺ:SL1:2000:2010:3720:3770:67803YWO$"A"WO$GH$SF%0ČBE:67203^CF1:WO(WO$)64:1100:MD%2K5:67803c5100:67204|F%0İ31210:6792Z2/GH$"H":H$"H":HC$"CLEARED":SL1:6900:BF1:4240:3900:3700:3750z21K15:RN0:ZZK(5(WC1))233710:3760:210026410028TR$(1)""TR$(1)("0"(CM%),2)"01"(YS%)2;WO18:5100:WO3@23:28:WO$:WO$"X"ĺ:I1OS%0:ERCT%:BR(CK$(WC,9)):BF0:OT(0)0:OT(1)0:RNBRER:2100i1P%(3)0LS1CWWC6680s135101WO$"S"İ7500:MD%2RNER:66881TR$(8)"0"OT(MD%)OT(MD%)(TR$(4)):OS%0OS%1:CK$(WC,9)(RN)173501 RN1"2,S:"YOUR CHECKBOOK:":FR1ĺ"RECONCILES....CONGRATULATIONS":6550}0"DOES NOT RECONCILE BY ";:XS$:"IN "BF$(FR)" FAVOR":022:10:"(P)PRINT (R)RETURN":12:"ENTER SELECTION ";:8680OK$:OK$"P"OK$"R"65550OK$:OK$"P"İ80:65501/s:"OUTSTANDING DEPOSITS ";:XX$(OT(1)):2500:XS$"(+)":AS$:"NET BALANCE ";:NB(SB$)OT(0)OT(1):XX$(NB):2500:XS$:MI$/x"CHECKBOOK BALANCE ":RR1:4000:RR0:AS$/}DFNBXY:(DF).01DF0/XX$(DF):2500:FR(DF)1B0RECT(Y/N) (E)EXIT ";:OK$::OK$"Y"OK$"E"Č1052:6500M.hOK$"E"6590z.iSB$TR$(4):7350:7300:6600:MD%26590.n6:958:25:"$AMOUNTS":"STATEMENT BALANCE ";:XX$SB$:2500:XS$::"OUTSTANDING CHECKS ";:XX$(OT(0)):2500:XS$"(-)"WO96370-5100-6330)-MD%0:H-dWO$"":SF%0İ31210:6590-f3610:BF1:4300:6:958:16:"ENTER BANK CHARGES OR CREDITS":"FROM CHECKBOOK":11:3:"BALANCE":8;.g"ENTER ENDING BALANCE FROM STATEMENT":WO4:1100:5100:13:"IS THIS COR0)CT%63806,3610:RN0:EB%0:MD%0:MF0:BF1:4100F,7300:4200e,23:28:WO$:WO$"X"6302,WO$"S"ĺ:BF0:7400:6302,WO$"M"İ900:MD%26380,MF1MF0:6310,WO$"A"WO$SJ$ČBE:6330,WO(WO$)64:1100:MD%26380 -80#+23:28:WO$::WO$"X"6104<+WO$"R"İ6950:6104M+WO$"P"İ80k+WO$"M"İ900:MD%26180+WO$"M"MF1MF0:6110+WO$"A"WO$GH$Č1052:6130+CF1:WO(WO$)64:1100:MD%26180+5100+6130+$3515+. ,IM%(*SF%0İ31210:61901*BF0:OM0:SL2BF1\*T2$TR$(2):T3$TR$(3):7300:4100:BF0y*1:17:"TRANS#>> "CT%1*WO17:1100*WO1DZ$"S"TR$(2)T2$:TR$(3)T3$:Z23:WOZ:5100:Z:6125*MD%2WO7:6125*5100+WO:MD%261:MI$MI$"-":AS$AS$"*"::SN$(0)"-"IjTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"S2$"/"S2$:NY$(0)"N":NY$(1)"Y":NY$(2)"Y":BF$(2)"YOUR":BF$(0)"THE BANK'S":AR$(0)"->":NU$(0)(0)JlEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INS12),BF$(2),OT(1),HW$(14),MS$(1),DF$(4),UL(10),AR$(1),CH$(3,1),D$(8),EM$(3),MP%(1,1),MU$(3,5),NY$(2),P$(1),P%(7),PF$(1),PK%(8),PM%(3,1),PY$(3,1),SP(8),ST(8),TK$(8),CK$(5,9),SN$(2)%IeBE1052:PE%16384:CS%16368:BE$(7):X139:BL$BL$" ":UL$UL$(95)14:AS$:10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT"Gy3600:3610:3500:3515:RN1CT%:2100:P%(3)031240GyP%(3)2:2010:3620GzRNG zTA%0SF%1YN$"C"CM%TT%:3300:3310:3330G zH`MM$(12),TR$(11),PT%(1100,1),IM%(NU TO DO THIS.":TA%0Ė9:"NEW MONTH NOT STARTED":3:"NO AUTOMATIC TRANSACTIONS RECORDED"FyET9TA%0Ė5:"LAST TRANSACTION NOT RECORDED"Fy8:"HIT ANY KEY TO CONTINUE."::AS$FyX(PE%):X12731215FyCS%,0:ET931245DGyET0::8:AS$:yX(PE%):X12731110"EyCS%,0>EySL6X155İ3005:3010DEy]EyTA%0CT%CT%TA%1gEySF%1Ey:8:AS$:::15:BE$;DF$(SF%)::3:BE$"NO NEW TRANSACTIONS MAY BE RECORDED"[Fy"UNTIL A NEW DATA DISK HAS BEEN STARTED.":5:"RETURN TO MAIN MEPR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:D|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$D~ySL6Ģ14:" OR PRESS TO RETURN TO MAIN MENU "::AS$E:13::MS$(MS)" FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:SC0uD$"PR#0"vC:uET(222):EL(218)(219)256CDuET9EL3000EM2:M1%ND%:31100:CNuET9EL3005EM3:M1%1:31100:CXuET9İ3400:CT%CT%1:31200:25CbuET255Ħ9DyD$"9047fBP#TA%TA%1:3750:3760:2100:WCCW:AR(CK$(WC,0)):TR$(1)("0"(CM%),2)(TR$(1),3,2)(YS%)BU#3788:3500:3600:6950:35303630BW#ZZ:3730BZ#3300:3326:3330:CY%1İ3200:3224:3230Bn#3500:3515B'TA%0:WC(WC$):EC':8:AS$:RKING "::FT%4FT%5:HF1:9025LA>#CM%FE%SF%2:TA%1:ET9:31210:9990~A?#CY%0:CM%CM%1:CM%13CM%1:YS%YS%1:CY%1AA#IM%(CM%)CT%1:HF19030AB#3300:3320:3330AF#3700:CH1:SL1:TA%0:ZZ1CB%5:RN0BK#3710:(TR$(5),8)"INACTIVE"Ė28:YN$:YN$"A"YN$"M"YN$"S"YN$"C"Č1052:9012\@6#YN$;:HK$::HK$(13)9012u@7#YN$"A"İ6700:9000@8#YN$"M"9990@:#3900:3600:3610:3630@;#YN$"C"CT%0ET9:TA%1:31202:9990!A<#TT%CM%:::8:AS$:12:AS$:10:15::" WOTART NEW MONTH AND ALL AUTOMATIC":5:"TRANSACTIONS WILL BE RECORDED"::AS$:?2#7:"(S)START NEW MONTH (M)MENU":4:"(A)AUTOMATIC TRANSACTIONS REVIEW "::2:CT%" TRANSACTIONS ARE ON THIS DISK":10:"(C)CLOSE DATA DISK"::12:"ENTER SELECTION ";:@4#M%)CA(OC,EM%)OAPM%(SL,OD%)#>n`>@EM2:M1%ND%:31100:3000:3500:3505:RP0:3300:3328:x>(#SF%0İ31210:9990>*#:FT%5Ģ3:8::"<< CURRENT MONTH : "MM$(CM%)" >>":>,#5:BE$;BE$;BE$:AS$::CB%1Ė9:"ALL "CB%" CHECKBOOKS WILL"N?.#3:"S7590=bWO$"S"CH37590:=jWO$"A"WO$GH$ČBE:7510b=tCF1:WO(WO$)64:1100:MD%27590l=~5100v=7510|==OB17720=TM%0:(CN$(OB),1)"4"(CN$(OB),1)"6"TM%1=CA(OB,EM%)CA(OB,EM%)OAMP%(TM%,OD%):OM17790>(CA(OC,ECAR:OA(TR$(4)):OB(TR$(6)):OM((TR$(5),5)"SPLIT")O> "RN7:X46:PCPC1:SP(PC)X:PK%(PC)P%(X):Z:TR$(8)"0"BRMI%BR1n:RNBRER:2100:EF0:X1PC:PK%(X)P%(SP(X))XPC:EF1: X:EF17480:3510:TC07455:X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450XY)1)(WX)"."(("0"(DX),2)"0",2)> XS$(BL$XX$,10)D M( NG0^- AM$""2645q2 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640< (AM$,X1,1)"."VXLXX1:VVVV1:VX2VV126HU%:P%(6)(N1%P%(4)TH%P%(5)HU%)TE%:P%(7)N1%P%(4)TH%P%(5)HU%P%(6)TE%CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)H XY(100(XX$).5)100:YX(XY):WX(YX):DX((YXWX)100.5)( XX$SN$((RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)WPT%(RN,1)P%(4)TH%P%(5)HU%P%(6)TE%P%(7)]}4N0%PT%(RN,0):N1%PT%(RN,1)9P%(1)N0%HU%:P%(2)(N0%P%(1)HU%)TE%:P%(3)N0%P%(1)HU%P%(2)TE%:P%(1)P%(1)TW%O>P%(4)N1%TH%:P%(5)(N1%P%(4)TH%)(UL$,UL(WO));"^WO2WO811305`1:"";TR$(WO)Qb(TR$(WO))UL(WO)1099jWO100,200,300,400,500,600,700,800,7200,7100lNG11099~P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8))P%(4)WC:P%(5)SL:P%(6)MD%:P%(7)CP:%PT%(D%(MD$)1"MD%2İ400:4100:GOMD%1:CH2GO3@PKBE$;:1104~LVPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5OPA1TR$(0)""VPVPX1PWO11130RNG0:32,HT1:33,UL(WO)1:34,VP1:35,VPV1:VP:WO)(NY) 1:TR$(WO)R"TR$(WO)"Y"TR$(WO)"N"TR$(WO)(13)NG1{*NY0:TR$(WO)"Y"TR$(WO)(13)NY14TR$(WO)(NY)>6:6:BE$;MD$:MD$"1"MD$"3"910CH2MD$"2"910MF1:(MD$)1MD%MF0:950 :MCR:NG1:690BCC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630VCC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630TR$(WO)(CR)TR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1NY0:TR$(WO)"Y"NY1 TR$(2500:TR$(WO)XX$U(TR$(5),5)"SPLIT"BF0TR$(8)"1":4000:WO8:5100:WO5[NXNG0:NF0:CT$TR$(WO):CR(CT$)ZTR$(6)"SPLIT"TR$(6)"-1":690bCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640 vЍ΍132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)|ORHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)OWHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)O\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)PaX(0):,,,ENTER PAYMENTS/RECEIPTS,SEARCH/EDIT,MENU,, ONX13:Y15:MU$(X,Y):Y,XnN 6,6,24,9,27,25,1,1,2,4NX110:UL(X):XNWC(40190):WC6WC0NHPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010AOMP$(0)P9$"OCT,NOV,DEC"MX112:MM$(X):XiM TRANSACTIONS,CHECKBOOK,CREDIT CARDS,CASH,** HOME ACCOUNTANT **MX03:TI$(X)::HA$.N ENTER CHECKS/DEPOSITS,SEARCH/EDIT,RECONCILE BANK,AUTOMATIC TRANSACTIONS,MENU,ENTER PURCHASES/RETURNS,SEARCH/EDIT,MENU,PAYMENT,RECEIPT`pp`00a0px``0ppx0` @pxpO|p|sx@?`p@pA8pCpp|pp@>`pp``00 c0``@800@x `~@xp`p`@`A8pCpp|p@>``p00b03``@0`00`08x`xpp`p@`A8pgpp|y@?`@p `        1052:1215"SN$:SN$"N"1290S12:BE$"DO YOU HAVE AN INITIALIZED DISK? ";|SN$:SN$"Y"SN$"N"Č1052:1230SN$:SN$"Y"FT%0:EF1  TL0:(CN$(CR),1)"5"2710  TLAC(0):XRM(MS%)RM(CM%):TLTLAC(MS(X)):CA(MS(X))(TL.t:5::7:" REFER TO PAGE 8 IN MANUAL "::8:AS$:14:AS$:9:BE$;BE$:"DO YOU WISH TO START A NEW SYSTEM? ";SN$:SN$"Y"SN$"N"Č1052:1205SN$:SN$"N"1290BE$"ARE YOU SURE YOU WANT TO DO THIS? "; SN$:SN$"Y"SN$"N"Č3)"Y"HW$(3)"N"NG1:1190}[(SL3SL14)āZ13:((HW$(SL),Z,1)"0"(HW$(SL),Z,1)"9")(HW$(SL),Z,1)""NG1:Z3:]SL3SL14ĂZ:NG11190`SL14HW%(HW$(14)):HW%1HW%2NG1:1190j:HT(SL):VT(SL):(HW$(SL)BL$,FL(SL))SL$"R"SL$"X"ĺ:10903SL$"P"ĺ:80:1040TSL$"A"SL$"N"ĺBE$;:1040fDL1200:DL$SL$:SL(SL$)64:900:61000:1040BLNG0:SL1HW$(1)"0"HW$(1)"7"NG1:1190QSL2HW$(2)"S"HW$(2)"P"NG1:1190VSL3HW$(ASCII CODE(S) FOR 80-COLUMN FORMAT "::Q:X15:5(X1)6:(72X);:X::18::"N";::" NUMBER OF DRIVES IN SYSTEM": 20:10:SC$(3)" (A-N)":SC$(6);:27:SC$(4):12:SC$(2);:PS%0Ģ21:14:SC$(5) 22:28:(95);:28:SL$REFER TO PAGE 10 IN MANUAL":f:"A";::" PRINTER SLOT#"::"B";::" S)ERIAL OR P)ARALLEL CARD?":"C";::" SUPPRESS LINE FEED? (Y/N)"::2::" ASCII CODE(S) FOR 132-COLUMN FORMAT ":::X15:5(X1)6:(67X);:X::(14::2:" E16368,0:EF1:32,HT(SL)1:33,FL(SL)1:34,VT(SL)1:35,VT(SL)VT(SL):1:(UL$,FL(SL));:1:"";HW$(SL):HW$(SL)""HW$(SL)"0"(HW$(SL))FL(SL)8991100:NG1899::2:10:SC$(0):8::" HARDWARE CONFIGURATION "::7:"FT%0āSL114:1130:SL:850R*FT%1:LS2:SL1:900:HW$(1)"0"LS14:897:850p4SLLS14:900:SL:61000R1040:SL$"X"İ3800:3810:3830:805\EF0895z3795:3820:3830SL213:HW$(SL)"0":SL:SL114:1130:SL:BE$;DRIVE "ND%:8:(SM$(2),13):311100SL6750:8:AS$::14:AS$:10:3:BE$"REPLACE LAST YEAR'S BUDGET AMOUNTS"::3:"WITH LAST YEAR'S ACTIVITY? (Y/N) ";LY$:LY$"Y"LY$"N"Č1052:747LY$6200 EF0:1200%1000:EXTENDED":HT4:SL7M1$" START NEW YEAR":HT3 :8:AS$::16:AS$:10:2:BE$"DO YOU HAVE YOU A COPY OF THE CURRENT":HT:"DATA DISK TO"M1$"? (Y/N) ";: YN$:YN$"Y"YN$"N"Č1052:710 YN$:YN$"N"790"13:7:BE$"INSERT THE COPY IN 8:AS$::"BE SURE TO COPY MOST CURRENT DATA DISK.":6:"USE THE COPYA PROGRAM ON YOUR":9:"DOS 3.3 MASTER DISKETTE"::AS$: X:8:AS$:14:AS$:10:14::NL$::20(MU$(SL))2:" "MU$(SL)" "::20 l(4)"RUN"(MU$(SL),6)",D1" / M1$" BE SL9500. 8SL:4::(48SL)". "MU$(SL):h 19:868:"PRESS 'R' TO RUN OR 'X' TO CANCEL "(95); 35:HK$:HK$"R"HK$"X"448 HK$:HK$"X"Ģ8SL:4:(48SL)". "MU$(SL):420 SL600,600,600,600,600,700,700,800:400 3005~ :. "MU$(1):R 19:29:SL$:SL$"1"SL$"9"((SL$"3"SL$"4")PS%0)ĺBE$;:430i FT%4SL$"9"440 (FT%0SL$FT$(FT%))(FT%0FT%4SL$FT$(1)SL$FT$(0))ĺBE$;:430 FT%4(SL$"1"SL$"5"SL$"8")ĺBE$;:430 SL$:SL(SL$)48:27200 16368,0:P ::5:10:SC$(0):18:"V "VN$:15::" "SC$(1)" ":u 9:X19:4:X". "MU$(X):X:: 19:868:7:SC$(2)" (1-9) "(95); FT%0Ė4:16::"8. "MU$(8): FT%0FT%4Ė4:13::"5. "MU$(5): FT%4Ė4:9::"1P [( 0I@ ( `L"LĠͮ`173188:0,Y279,Y::Y175186:4:10,Y270,Y:k7:X2628:X,40X,160::Y157RG160RG:29,Y279,Y:YM$"**** HOME ACCOUNTANT ****":X015:Y0176:K10:1000X035:Y0162:X112:MMO(X)M$(MO$,M,1)7:K0:1000:X0X021:),X)CA(CR,X) X,CR:. D$"CLOSE CATACT":O D$"OPEN HATRANS,L80,D"ND%: D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV% CM%11:: REMOVE CM%=11 D$"CLOSE HATRANS": DRAW HISTOGRAM:16302,0:7:1:0-Y- ????) );????? ----- D$"CLOSE CATBUD":\ D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:X012:CA(X):X:D$: TY(CR)6CA(CR,X)CA(CR,X)CA(CR,X1):TA(TY(CR),X)TA(TY(CR),X)CA(CR,X1):3314  TA(TY(CR),X)TA(TY(CR) )- -;? )- -;;??))- -);;)) ));?;? - - ??)) ));;)) ));;) -- );?; --)--;?? )) ; )) ;? -  ?????) )???? --- -? - ? - ? )) ));;)) ));;)) ));;)) ));;?) )- -?;? ) - ??? )-  ??)) ));;)) ));;)) ));??))-)-);??))-)-);??) );????? ----- ??)) ));;)) ));;; ----- ?????) );???? --)--; )) ; )) ; )) ; )) ;? -  ??)) ));;)) ));;)) ));;)) ));;)) ));???) );????? ----- ??;)) -);;??) );???? )----5; ????) ;??))---);;)) ));;??) -;???))---);;)) ));?;? - - ?????) );????))----))----;)----);???? ));????) );?????;)) ));;)) ));;)) ));;??) -????? )---  ?????) );???))---);;)) ));;??) -????))--- ;)) ;? -  ??? ;??))---);;)) ));;)) ));?????) );??))-)-);??))-)-);??))---);??;)) ));;)) ));?;? - - ????) ;??))---);;)) ));;)) ));;)) ));;)) ));?;? - - ??? ;??))---);;????? ----- ??)) ));;)) );?;))- )-;?))- ) ???)) ) );?;)) ));?;? - - ?)) ;)) ;)) ;)) ;)) ;???) -????? ----- -);???)) ));;)) ));?;? - - ? )) ; )) ; )) ; )) ; )) ; )) ;? -  ? )); )); ));)- ));;)) ));???) )----;))-- ;))-- ;??)) ;)) ;? -  ;????) -????))----;)) ??;)) ) );?;)) -);???) );????? ----- ??)) ));;)) ));;))---);))-- ????) ;??))---);;)) ));;)) ));;)) -);;??) -????? ----  ;????) -????))----;))-- ;))-- ;??)) ;???) -????? ----- ;????) -????)))) ));?;? - - ????) ;??))---);;))---);?))---)???)) ));;??) -????? ----  ;????) -????))----;)) ;)) ;)) ;???) -????? -----1:"";TR$(WO)+b(TR$(WO))UL(WO)1099]jWO100,200,300,400,500,600,700,800,7200,7100llNG11099r~P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8))P%(4)WC:P%(5)SL:P%(6)MD%:P%(7)CP:PT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)MD%2İ400:4100)GOMD%1:CH2GO3/?KBE$;:1104wL16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5PWO11130RNG0:32,HT1:33,UL(WO)1:34,VP1:35,VPV1:VP:(UL$,UL(WO));^WO2WO81130`R$(WO)9"TR$(WO)"Y"TR$(WO)"N"TR$(WO)(13)NG1b*NY0:TR$(WO)"Y"TR$(WO)(13)NY1,(TR$(5),5)"SPLIT"NY14TR$(WO)(NY)z6:6:BE$;MD$:MD$"1"MD$"3"900MF1:(MD$)1MD%MF0:950:MD%(MD$)1NF1ĖHT1:HR$:HR$(13)6302TR$(WO)(CR)OWO2SL2CH2RN0690WO2SL2ARCR:BF0:4128:CH2BAOAPM%(SL,OD%):4050TR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1NY0:TR$(WO)"Y"NY1TR$(WO)(NY) 1:T):CR(CT$)0ZTR$(6)"SPLIT"TR$(6)"-1":690WbCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640vCR:NG1:690CC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630CC1NG1:690 :HT:VP:(CN$(CR),2);:2SB:CS13BAXYPM%(SL,MD%)SB:4000:CS1450R(TR$(5),5)"SPLIT"İ4000X((TR$(5),5)"SPLIT"CH1BF0)(OM1(TR$(5),5)"SPLIT")TR$(8)"1":4000:WO8:5100:WO5:590OM1(TR$(5),5)"SPLIT"İ400N XNG0:NF0:CT$TR$(WOX"R,(TR$(WO),1)"*"TR$(WO)(TR$(WO),2):600:NG0TR$(WO)(CN$(CR),2)X|SB0:AM$TR$(4):2600:NG1450XX$AM$:2500:TR$(4)XX$BF1450 CS0:(CH2(SL1CH3))(OM1WO5)SBOAPM%(SL,OD%):OM0(TR$(5),5)"SPLIT"SB:NX;1:"";TR$(WO)9(TR$(WO))UL(WO)NG1:290bSL1MD%0TR$(WO)""TR$(WO)(NX)SL2TR$(WO)"END"MD%2:290SL2İ600XC0:(SL1MD%0CH1)290XC1:X1(TR$(WO)):(TR$(WO),X,1)"9"(TR$(WO),X,1)"0"XC0MM2DD29991MM2YY4(YY4)DD2899UTR$(WO)MM$DD$YY$:LD$TR$(WO)[MM$D$(1)D$(2):WO6:HT:" ":(MM$)CM%ĢWO6:HT::BE$;BE$"WRONG MONTH":WO7:HT8:(SL1CH1MD%0)2201:NX(CK$(WC,8))1$"0"DZ$"9"ĺBE$;:115; DZ$;:D$(Z)DZ$:ZZ1:Z9110j 182:HK$:HK$(8)HK$(13)ĺBE$;:145| HK$(8)125 DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299 (MM4MM6MM9MM11)DD3099Z$(21)DZ$D$(Z):135. xDZ$(8)Z1135W }ZZ1:HT1Z:Z6Z3ZZ1:HT1Z` 115 Z1DZ$"M"İ900:GO100,100,180 Z1TR$(WO)""DZ$(13)DZ$"S"D$(1)(TR$(WO),1):D$(2)(TR$(WO),2,1):182:180 DZ$(13)İ182:155 DZ PPS%0ĺBE$;:90: R8,20:;:D$"PR#"PS%:PF$(1):768J ZD$"PR#0":T cBE$;u dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2); iZ1:HT:WO7 nZ3Z6ĺ"/";:ZZ1 sWO7:DZ$:D,9000,4500,8000:SL7253 -77:MS1:3000:10000C /3300:3320^ 2SF%1SF%2SF%SF%2 73500:3515:3900:3005:HF1İ3800:3820 93010 < *** END OF MAIN LINE *** KEM0:3000:3500:3505 MSF%3EM1:M1%ND%:3900:31100:75 OSELECT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU| FT%4Ģ12:3::"4. START NEW MONTH": 20::" ENTER SELECTION(1-7) "; #SL$:SL$"1"SL$"7"(FT%4SL$"4")Č1052:35 (SL$:SL(SL$):SL6000,7000,7000G" ** TRANSA ** 6.24.82 .30000R D$(4):D$"NOMON I,O,C":60000nCB%1WC1:WC$"1":25~WC0İ4500WC$(WC):SL0:6900:3900P ::" 1. CHECKBOOK"::" 2. CREDIT CARD"::" 3. CASH"::" 4. START NEW MONTH"::" 5. 8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$,t3200:3205:3222:3100:3110:3130:3300:1500,X(0):A(5)(N1%P%(4)TH%)HU%:P%(6)(N1%P%(4)TH%P%(5)HU%)TE%:P%(7)N1%P%(4)TH%P%(5)HU%P%(6)TE%CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)H XY(XX$):YX(XY):YX(YX100.5)100:XX$(YX):YX1YX:P%(7)CP:9PT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)kPT%(RN,1)P%(4)TH%P%(5)HU%P%(6)TE%P%(7)q4N0%PT%(RN,0):N1%PT%(RN,1)9P%(1)N0%HU%:P%(2)(N0%P%(1)HU%)TE%:P%(3)N0%P%(1)HU%P%(2)TE%:P%(1)P%(1)TW%c>P%(4)N1%TH%:P%:35,VP"V1:VP:(UL$,UL(WO));6^WO2WO81130I`1:"";TR$(WO)eb(TR$(WO))UL(WO)1099jWO100,200,300,400,500,600,700,800,7200,7100lNG11099~P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8)) P%(4)WC:P%(5)SL:P%(6)MD%!MF1:(MD$)1MD%MF0:9504:MD%(MD$)1KMD%2İ400:4100cGOMD%1:CH2GO3iyKBE$;:1104L16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5PWO11130RNG0:32,HT1:33,UL(WO)1:34,VP1NY0:TR$(WO)"Y"NY1*TR$(WO)(NY)0@ 1:TR$(WO)s"TR$(WO)"Y"TR$(WO)"N"TR$(WO)(13)NG1*NY0:TR$(WO)"Y"TR$(WO)(13)NY1,(TR$(5),5)"SPLIT"NY14TR$(WO)(NY)z6:6:BE$;MD$:MD$"1"MD$"3"900NG1:690>CC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630RCC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630TR$(WO)(CR)WO2SL2CH1ARCR:BF0:4128TR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1SPLIT"İ4000Q(TR$(5),5)"SPLIT"BF0TR$(8)"1":4000:WO8:5100:WO5WN{XNG0:NF0:CT$TR$(WO):CR(CT$)ZTR$(6)"SPLIT"TR$(6)"-1":690bCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640 vCR:XC1:X1(TR$(WO)):(TR$(WO),X,1)"9"(TR$(WO),X,1)"0"XC0IXO"U,zSB0:AM$TR$(WO):2600:NG1450XX$AM$:2500:TR$(WO)XX$BF1450CH2(SL1CH3)SBOAPM%(SL,OD%)BAXYPM%(SL,MD%)SB:4000 (TR$(5),5)"$:LD$TR$(WO)/(SL1CH1MD%0)220M1:NX(CK$(WC,8))1:NX;`1:"";TR$(WO)(TR$(WO))UL(WO)NG1:290SL1MD%0TR$(WO)""TR$(WO)(NX)SL2TR$(WO)"END"MD%2:290SL2İ600XC0:(SL1MD%0CH1)290B(13)ĺBE$;:145$ HK$(8)125 MM$D$(1)D$(2):DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299 (MM4MM6MM9MM11)DD3099 MM2DD2999 MM2YY4(YY4)DD2899 TR$(WO)MM$DD$YY #1 AND":2:"INSERT HOME ACCOUNTANT PROGRAM DISK.":8:"PRESS ANY KEY WHEN READY"::AS$_ }EET4İ32000:30030- Nu(16384)12730030= Xu16368,0: yBE$::8:AS$::3:"REMOVE WRITE PROTECT TAB FROM DISK":6:"AND RE-INSERT IT IN DRIVE #1.":8:"PRESS ANY KEY WHEN READY"::AS$ "yY }BE$::8:AS$::4:"REMOVE ANY DISK FROM DRIVE16304,0:16300,0# V16368,0:14 XX15000:X~ `::40190,0:10:AS$:14:AS$::12:11:" LOADING MAIN MENU "::20 bPRINT D$"BLOAD GC" jD$"BLOAD DMP":D$"RUN HAMENU" 0uEL(218)(219)256:ET(222) :uEL100ET4İ31000 DuEL100CCOMPANYING":6:"MANUAL IS STRICTLY FORBIDDEN" 14::15:"WRITTEN BY "::11:"ROBERT SCHOENBURG ":11:" STEPHEN POLLACK ":12:" LARRY GRODIN " 23:5:"CONTINENTAL SOFTWARE (C) 1981" D$;"BLOAD PIC.LOGO,A$2000,D1" 16297,0:16302,0: 173188:0,Y279,Y::Y175186:4:10,Y270,Y:k7:X2628:X,40X,160::Y157RG160RG:29,Y279,Y:YM$"**** HOME ACCOUNTANT ****":X015:Y0176:K10:1000X035:Y0162:X112:MMO(X)M$(MO$,M,1)7:K0:1000:X0X021:),X)CA(CR,X) X,CR:. D$"CLOSE CATACT":O D$"OPEN HATRANS,L80,D"ND%: D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV% CM%11:: REMOVE CM%=11 D$"CLOSE HATRANS": DRAW HISTOGRAM:16302,0:7:1:0-Y$"READ CATBUD,R101":SN$,MS%,YS%,FE%:; D$"CLOSE CATBUD":\ D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:X012:CA(X):X:D$: TY(CR)6CA(CR,X)CA(CR,X)CA(CR,X1):TA(TY(CR),X)TA(TY(CR),X)CA(CR,X1):3314  TA(TY(CR),X)TA(TY(CR ) ;  )   )  ; )   ) ;   -    ??)--??)--??  ??)--??)--?? ----- CATBUD,R0":TC%: D$"READ CATBUD,R"CR:X112:CB(X):X:D$:# D; )  --  -  )    ); ); )- ) ) ;; )  ) ))))  ) );; ) ;;) )  ); )? ); )--; ) ;)-- ; )   ; );; - ;; ) ? )  )  -  ) ))))))  - ; ); )  ) ; ); )   - ; );? ;  - ;) ;? ?  -? ;   --  )-; ; )- ; ;?) ; --  ) ; --; )  ; )) -  )   ) ; )? ); ; ;? ); )   )  -  ; ; ;  )  )  ?? ); ) ;) ?? ) ; ) ; ) ?? -? -? -??        ?? ; ) ;    - ; - ;; -- ; ;? );)- )  ;?) )) )) ? ;?) ))- )  ;?) ) - ) );? ?? )  )  )  ) )) )) );? ) )) )  ) ))))) - ) );; ) ;;) ) ) );; ?? ) ))--) ) ;? )  )  ) ;?  ) )) );? ) ) )  ) ) ) ?? ) -)))) ) ) );)))?) ) ;?) )) )) );? ;?) ))-  ;?) ); )   ;?) )))-;) ??  ) )??) ) ;?) ))- ) );? ;?) )) ) );? ;?) )) )) );? ??) )- ) ?? ??) )- )  ??) ) ?) ) )- ) );? ?? ); ) ; ; ;?) ) - ) );? ;?) ) -- ?        ) ; ; ) ;) ; ) ;  ?? ??  ; ) ; ); ) ; )--       ); ) ;)  ;?) )?)));) );?  -  )  ) ;? ;?) ) ) ;) ?? ?? ); ) ) );? ; ) ;;) ?? ; ??) ;? )) );? ? )-  ;) ); ) ;) -? ;))  ) ?  )     )     )  )));? ) ;?)))  ) )-- )     ) ;  N!;;[;;[;;@(7[7Ђ=[7 ′=[7{;;[;;[;;Ԃ[[7=[7=[7 ( =;;;;;;;;;;;;;;;;;;]]]]]]]]]]]]]]]]]];[;;  [;;Ģ[[7[7[7[7[7[7[7[7[7m[m[m[m[m[m[m[m[m[[=[7 =[7Ԁň=]w=]w=]w\w\w\w\wn;n;]w\wn;n;n;n;n;n;n;www7[[7[[7[7[7[7[7[[m[m7[7[[m[m[m[m[m[m[mmvmvm]wЂ=]w=]w P {7[[7[[7[6]w=]w=]wՊ=7[[7[[7[ ( []w\w\w\w\w\w\w\w\wn;n;n;n;n;n;n;n;n;]g<]w (=]wՈ=7[7[7[7[7[7[7[7[7[[m[m[m[m[m[m[m[m[m7[7[ [7[Р[mlfmlfmlllllllll6666mlll66666666666666mlU*Tfmlfmlllllllll6666mlll66666666666666mlfmlfml@ MmlfmlfmlMmlfmlfmlfmlfmlfml ( fmlllllllllllllllll666666666666666666mlfml QP fmlfmlllllllllllllllll666666666666666666mlfml ကfmlfmlЊРUfmlfmlMml fmlfmlllllllll6666mlll66666666666666mlfmlfml  fmlfml∀fmlMmlllllllllllllllll666666666666666666mlfmlကfmlfmlfmlfmlU  f"