' +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@H$"A"(TY$"1"TY$"2"TY$"4")ĺBE$;:4035]&CH(CH$)64:CH1200,1000:XCH3:CH34060w&CH3VV0:CH0:4055&XRM(BM%)ĺBE$;:4035&VVCH2:1100:4060&CHRM(CM%)İ1300:4060&BE$;:4035&CH2CH$(15)İ2700:5100'423: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,&CMN$(MS(X)):X:X0S$4:5:"TYPE ":((SL2SL3)TY2)SL1Ģ4:12:"(1-5)"v$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Ģ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:%:;"D$"WRITE HAAUTOPOINT,R"RN:20000:1000Y100:D$:X"D$"CLOSE HAAUTOPOINT":t"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$:#E HATRANS":-!D$"OPEN HAPOINT,L11,D"ND%:[!$D$"WRITE HAPOINT,R"RN:11111:1111:D$:t!.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"NDATACT":" 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$"CLOSR:X012:CA(X):X:D$:K 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 C12: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"CD$"WRITE CATNAME,R"CR:(CN$(CR)BL$,26):D$:H: D$"CLOSE CATNAME":h 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:X1D$"VERIFY HADATA,D"ND%:6 D$"VERIFY HAPROG,D"ND%:R 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 RM(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: XX$):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)13)),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(TY$));(BL$,6):TY$"2"Ģ4:10:(TY$)2" (1-5)"6H2700: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$((F11:V2(CH):(UL$,U2(CH));:1:"";S6$(CH):(S6$(CH))U2(CH)1599sT(CH2CH4)((S6$(CH))12(S6$(CH))1)1599YCH1(S6$(CH))21599^CH3(S6$(CH))11599:0TY$(CN$(CR),1)::5:11:(CN$(CR),2):3:24:CR:10:(BL$,8);TP$((1100:!6luEL6206ET8İ32000:06vuEL6206Ħr6yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:6yBE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT HOME ACCOUNTANT PROGRAM DISK":8:(SM$(2),13)::AS$:100:7|y:8:0:XRM(BM%)12:VVX1:1100:X:X112:CA(X)0:X:2700:5100:p5CRTC%1:TC%CR:CN$(CR)((TY)CN$BL$,26)53120:3220:3320:50uET(222):EL(218)(219)2565DuEL6202EL6205Ħ5NuET255Ħ5XuET9EL3005İ31000:6buET9EL3000İ3CH$"X"ĺBE$;:6610J4CH$:CH(CH$)64:FT%5(CH2CH4)ĺBE$;:6610a4CH$"P"İ80:6610s4CH$"X"66004CH5İ1600:5600:CF1:66104FT%2FT%3:27104CF1İ3224:32304FT%5İ3500:3505:CM%BM%:3515:39004@5XCH0:130+3FAF1CB%CB%1:3900:3500:3515:3530A3PCF1İ3300:3324]3U3200:3215:3900:6400c3c3CF0:4600:3200:FT%2İ3222:CH14:5600:CH:66103CF1:CH14:1600:5600:CH423:28:(95);:28:CH$:(CH$"A"CH$"D")CH$"R"CH$"P""CH$"X"ĺBE$;:6410,2CH$:CH(CH$)64C2CH$"P"İ80:6410U2CH$"X"6400v2CH8İ1400:5400:CF1:641022FT%3WC$"A"TY2:CN$"CHECKBOOK #"(WC):6000:TY1:CN$"CASH ACCOUNT #"(WC):6010:CF1:CK$(WC,0)(CR1):AF12<FT%3FT%41WC$"M"6499-1CB%0WC1:AF1:4400?1WC$"A"AF1|121:10:SC$(3)" (A-G)":SC$(6);:27:SC$(4):12:SC$(2)1PS%0Ģ22:14:SC$(5)1AF1CF1:CH17:1400:5400:CH2 23:28:(95);:28:CH$:(CH$"A"CH$"G")CH$"R"CH$"P224:3326:3900x0VRN0: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"İ4400:WC$"A"āCH17:5400:CHRUPT ":::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:33200LCR1100:CN$(CR)(AS$,26):3120:3220:3320:CR:WC15:CK$(WC,9)"1":3324:WC:TC%0:3215:340:.:EL6202ĺD$"VERIFY HADATA,D"ND%:EM1:32000:6202r.=EL6205ĺD$"VERIFY HAPROG,D"ND%:EM0:32000:6205.>ET8ĺD$"VERIFY ZZ99Z,D"ND%.?EL6206ET6ET0:6202/@:8:AS$::7:"PREPARING NEW DATA DISKETTE":::8:" PLEASE DO NOT INTER_-20:868:TY5TY$"5"Ģ20:"TOTALS>>";:9:F1TB:2100:19:F1TA:2000:32:F1TD:2100:e- -:V4(CH):H4(CH):CK$(WC,CH):-:V2(CH):H2(CH):S6$(CH):-p3100:3200:3222:3300:3205-zSL600,700,800,900-.832000:PK1556299CB(MS(X))999999:5002F,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:NAME: ";::"A"::U+ "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))9999WC$"1"WC$(CB%))WC$"A"WC$"P"WC$"M"ĺBE$;:4535V*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 ))2):S6$(1)" "MN$(CM%)" 19"S6$(3)::13:"CHECKBOOK MENU"::W)"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$:*(:"B";::" ADDRESS":/(X:"C";::" CITY":I(b:"D";::" STATE":f(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$(1035'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:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"?DOCB%14590qSL5:6900:CK$(CB%1,1)"ALL"10:8:"CHECKBOOK/NAME":X1CB%1:10X2:5:X". "CK$(X,1):::8:"SELECT (1-"CB%1") ";WC$:WC$"1"WC$(CB%1)ČBJ$: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)" 3)END"9:MD%1Ģ6"C "PY$(SL,MD%)7"D AMOUNT":"E MEMO":"F CATEGORY"S"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 "^7h4:868:20(MU$(SL,CH))2::MU$(SL,CH)::21:28:SSE 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)MODE":"B "DN$(SL,MD%):SF%,LD$,CB% D$:G D$"READ HATRANS,R"RN:X05:TR$(X):X:D$:` 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,1)::D$: .D$"CLOD$"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 HATRANS,R0":CT%,CM%,CV%,D$"READ CATNAME":X0TC%:CN$(X):X:D$:C: D$"CLOSE CATNAME":c 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"ND%:5 WC1CB%:40 F X14H (AM$)1000000(AM$)1000002640>K 2645GP NG1MU k 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 CATNAME,L27,D"ND%:*& 48:CHS((HW$(HW))):CH0PF$(0)PF$(0)(CH)o>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$(0):PF$(1)NU$PF$(1)P$(1)>aX(0):33000:3200:3205:3222:3500:3505:3900:FE%(S6$(4)):2710V=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$P$(0):P$(1)PL$P$(1)1>RHWS< 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:3830> TO ABORT PROCEDURE"::AS$m8 }100:8耗:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:8`D$(4):3900:BE$(7)@9eX038:BL$BL$" ":UL$UL$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$:1007yPK1555007yb8}BE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #"ND%:4:"ABL$,4);.ST4ĺTY$(LS)" ";..WC6ĺCW;7." "=.Q. CHECK PRINTERh.PA0TZ$"Y"7610.85::9:1:"PAID TO "TR$(3):TN$TR$(3):WO3:X13:9X:1:"ADDRESS "X:1100:5100:A$(X)TR$(WO)::X/16:1:"IS THIS CORRECT (Y/N)? ";(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))""ST4ĺ(NN$(LS,P%(7))7590,XP%(1)1P%(1)TC%16,`C40(C40)İ7700z,b(TR$(5),5)"SPLIT"P%(1)PK%(1)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)" "; -tLS2TR$(2)(CN$($(Q,1)" ";:Q:" "O+@SA1ĺ(BL$,23HL(PF,4))"*AMOUNT IS NOT PART OF TOTAL"Z+A(12)i+BSL6SL4o+Du+L+Q(WCCWWC6)(SLLSSL6)7590+SPK(16384):PK155ČBE:16368,0:MD%2:7590,VSL1CH2PF1:7600:P%(7)1:2010:3620:16384):PK155ČBE:16368,0:MD%23*: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ĺ" ":(BL$,17HL(PF,4))"PER: ";:Q1CB%:Q". "CK(P%(3)0P%(7)0)7480*)EF0:X1PCK)PK%(X)P%(SP(X))XPC:EF1]) X:EF17480r)3510:TC07455)X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450)TK$(X)(TR$(ST(X)),(TK$(X)))XTC:EF1)X:EF17480)7500"*8PK(R$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)/(r(2000:PC0:X13:TR$(X5)""PCPC1:SP(PC)X:PK%(PC)P%(X)(:SL4SL6:P%(5)6(X46:P%(X)6PCPC1:SP(PC)X:PK%(PC)P%(X)(:TR$(8)"0"BRIM%(MI%)BR1(RNBRER:2100)CH21:MO%CM%ERCT%''RERBRNG1:72901'T5100;'WEB%0A'zZ'X010:TR$(X)"":X`'y'PF0:CH2EC1PF1'80:'STSL:CT%IM%(0)7490'CH7350,87:TR$(10)""7405'RN(TR$(10)):2100'3510:7500:7490)(TC0:X15:TO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG19&C&BE$;o& 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%1'HERIM%(OM%)11223 S. HINDRY":A$(3)"LOS ANGELES,CA 90045"A%(7600:85:6405G%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%3&(TR$(W$"Y"PA1J$:8:AS$:12:AS$:10:"DO YOU WANT A TEST CHECK (Y/N)? ";r$ 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)"CONTINENTAL SOFTWARE":A$(2)":85##WO$"A"WO$SJ$ČBE:6330F#WO(WO$)64:1100:MD%26380U#WO96370_#5100i#6330u#MD%0:#3600#PF1::8:AS$:12:AS$:10:"DO YOU WANT TO INSERT ADDRESSES (Y/N)? ";#YN$:YN$"Y"YN$"N"ĺBE$;:6403 $PA0:YN6000 "" GOSUB 3500J"EB%0:MD%0:SA0:TL0:C0:MF0:BF1:4100Z"7300:4200y"23:28:WO$:WO$"X"6302"WO$"S"ĺ:BF0:7400:85:6900:6302"WO$"M"İ900:MD%26380"MF1MF0:6310#WO$"P"ĺ:PF1:8,20:83:768:(12)16: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:6900!6300")"")ĺ(CN$((TR$(WO))),2):5190< WO1TR$(WO)""5190z 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!uSI$"I":SJ$"J":SVE:4535)WC$:WC(WC$):WCCB%1WC6740190,WC=cVPWO7:HT13:SL1WO7VP6WO{EB%1WO9HTHT5PA1TR$(0)""VPVPX1:HT:VPWO8SL15190WO6(TR$(WO))1ĺ"SPLIT":5190" WO6(WO2SL2TR$(WO01:Y14:HH(X,Y):Y,X(>9WC(40190)y>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)=X111:Y14:HD$(Y,X):Y,XB= 4,8,6,24,9,27,25,3,3,3,4,3c= 4,8,6,7,9,10,8,3,3,3,4,3=Y01:X112:HL(Y,X):X,Y= CHCK,CARD,CASH=X13:TY$(X):X= NN$(1,1)"Y":NN$(1,0)"N":NN$(1,2)"?"= 60,58,64,62,34,32,38,36>XT,NAME,NAME,AMOUNT,AMOUNT,AMOUNT,AMOUNT,MEMO,MEMO,MEMO,MEMO,CATEGORY,CATEGORY,CATEGORY,CATEGORY,TAX,TAX,TAX,TAX < CLR,,,CLR,PTD,,,PTD,,,,TYPE"7lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DISK":CK$(6,1)"ALL"7t3900:3800:3810:3830:D$"BLOAD DMP":758vDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):4,1),SP(8),ST(8),TI$(5),TK$(8),TY$(3),UL(10)6eBE1052:BE$(7):X139:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::SN$(0)"-"6gX139:BL$BL$" "::NU$(0)(0)67jTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"S2O RETURN TO MAIN MENU "::AS$;5yX(16384):X12731110T5yX155Ĺ16368,0:50d5y16368,0:,6`MM$(12),TR$(11),PT%(1100,1),IM%(12),EM$(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$(İ31200:4buET255ĦY4yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:4|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$5~ySL7Ģ14:" OR PRESS T""ĺ(MI$,3);3(:3n33xX1LP:" ":X:w3@EM2:M1%ND%:31100:3000:3500:3505:3600:3610:3300:3328:30uD$"PR#0"3:uET(222):EL(218)(219)2563DuET9EL3000EM2:M1%ND%:31100:3NuET9EL3005EM3:M1%1:31100: 4XuET936,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)2" ":" ":Z111:HD$(ST,Z)""ĺ(HD$(ST,Z)BL$,HL(PF,Z)1);2 Z:H2$(WC)2#Z111:HD$(ST,Z)""ĺ(MI$,HL(PF,Z))" ";3%Z:H2$(WC):TR$(2).1LP3:7800:36,3:"MEMO : "TR$(5)d136,3:"AMT. : $"TD$"."TC$:36,3:"PAYEE: "TR$(3)t1LP13:7800z1 1C0ĺ(12)136,HH(PF,1)(TI$(ST))2:TI$(ST)" TRANSACTIONS":36,HH(PF,2)(CH$(ST,MD%))2:CH$(ST,MD%)" ACTIVITY REPORT"m2TT$"0LP1:7800:36,15:TR$(3);v036,50:(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2);:36,66:(AS$TR$(4),10)"**"0PA1LP2:7800:36,15:TR$(3):X13:36,15:A$(X)" ":X:" ":76500LP7:7800036,3:"MEM0 : "TR$(5)1LP3:7800:36,72(/YN$:YN$"Y"YN$"N"ĺBE$;:7605G/: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"/LP4:7800:36,72:TR$(2)0LP2:7800:36,8:"'S' = SAVE":1000:]%5:Y2025:205,Y225,Y::X0223:Y018:M$" = ACTUAL":K6:7:1000%X0223:Y018:1:Y2834:206,Y226,Y::Y027:K6:M$" = TREND ":7:1000:&.70911Z1Ē1:H08:0,H10,H::M$EQ$((CN$(CR),2,10)):K6:7:X013:Y01:1,Y270,Y::7:X2628:X,37X,160::Y157RG160RG$29,Y279,Y:Y:7:M$"**** HOME ACCOUNTANT ****":X015:Y0176:K10:1000:X035:Y0162:X112:MMO(X):M$(MO$,M,1):7:K0:1000:X0X021:%7:K6:X01:Y09:M$"'G' = GRID ":1000:X0205:Y09:M$ D$"CLOSE HATRANS":2#D$"OPEN HARDWARE,D1":i#D$"READ HARDWARE":FT%:X113:XX$:X:ND%:D$:#D$"CLOSE HARDWARE"#<D$"CLOSE":#:16302,0:7:1:0:X01:Y00:K15:SL2M$NAME$:9505$2:Y173188:0,Y279,Y::Y175186:4:106CA(CR,X)CA(CR,X)CA(CR,X1):TA(TY(CR),X)TA(TY(CR),X)CA(CR,X1):3314q" TA(TY(CR),X)TA(TY(CR),X)CA(CR,X)}" X,CR:" D$"CLOSE CATACT":" D$"OPEN HATRANS,L80,D"ND%:" D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV%" #D,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%,FE%:! D$"CLOSE CATBUD":! D$"OPEN CATACT,L130,D"ND%:! D$"READ CATACT,R"CR:X012:CA(X):X:D$:J" TY(CR) D$"VERIFY HAPROG,D1":s 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):TY(X)((CN$(X),1)):: : D$"CLOSE CATNAME": ! D$"OPEN CATBUM$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:1000:5: 2:H08:186,H194,H::M$EQ$((CN$(CR),2,10)):K6:7:X0197:Y01:1000:2: D$"VERIFY HADATA,D"ND%:SXSXX:SYSYAC(X):X2X2X2:XH7 NRM(CM%)RM(BM%)1:AXSXN:AYSYNu< VAX2NAX2:M(XYNAXAY)VA:BAYMAXA EPM12B:BPMRM(BM%)BF BP(MA)MABPK EP(MA)MAEPP PBMIMIBPU EPMIMIEPZ 5 Z1Ē1:H08:0,H10,H:::2300` 3005:30103 XRM(BM%)RM(CM%):1310B Y0YY3e X03821(X1):XRM(BM%)2540 X1,(157RG)Y1X0,(157RG)Y X11,(156RG)Y1X01,(156RG)Y X1X0:Y1Y ( XY0:SX0:X20:SY0 2 XRM(BM%)RM(CM%):XYXYAC(X)X:"CATEGORY >> ":500:CN$"END"2000j 3310:1900:1400:2600:DFMAMI:1470:4000:4050:2170:5:2500 PEEP120((MI)MA):PBBP120((MI)MA) 1:(3821(RM(BM%)1)),RJPB269,RJPEG 50::::X112:AC(MO(X))0::X112:CB(MO(X))0::"ALREADY SELECTED":K11000:::ZZZZ1ZZ3(RN(1)RN(2)RN(1)RN(3)RN(2)RN(3))Č198:DR1:12:14:::"ALREADY SELECTED":K11000:::ZZZZ1$::3:10:"** HOME ACCOUNTANT **"::14::" LINE-GRAPH "::14:" TREND LINE "::12:2::1400:Z1AMMA:IMMI:2260.MAAMAMMA?MIIMIMMIEMAAM:MIIM:1470:4000:2170:Z1ZZ:CRRN(Z):3310:1900:2700:2500:Z50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2200*ZZ2RN(1)RN(2)Č198:DR1:12:14: 1 TO 3 CATEGORIES"::7:"2. ENTER ";::"GRAPH";::" TO DISPLAY GRAPH"18:7:"3. ENTER ";::"END";::" TO RETURN TO MENU"ZZ0:Z13DR0:500:CN$"GRAPH"2270CN$"END"2000ZZZ:RN(Z)CR:Z1İ2290:DR122323310:1900RJ115İ1115~RJ37İ1120)1200:k50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2100u2180:3:10:"** HOME ACCOUNTANT **"::14::" LINE-GRAPH ":::13:"ACTUAL ACTIVITY":12:2:"CATEGORY >> "I14:7:"1. ENTER FROMtXuY2025:205,Y225,Y::X0223:Y018:M$" = BUDGET":K6:1000:205,28225,28225,34205,34205,28:X0223:Y027:K6:M$" = ACTUAL":1000:2180zNG(1)0:NG(3)0:RJ157RG:RJ157İ1100:2179{RJ85RJ115İ1105|RJ37RJ85İ1110 }(CH)E?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)NU$P$(0)PF$(0)PF$(1):EC1?aX(0):AC(0)AC(X):AC(X)0:X+ 3320:CR:3900W CV%1:MS%FE%1:MS%13MS%1:YS%YS%1o CM%MS%:FT%4:6500} CV%CV%1 dZ0 n3500:3600 xX1CT%:3610 (PT$,1)"2"6550 ZZ1:3620:3510:3520 X 3900;!CT%Z:SF%0:IM:AS$::7:"PREPARING NEW DATA DISKETTE":::8:" PLEASE DO NOT INTERRUPT ":::AS$eSL66350~LY$"Y"İ2800:32003100:3110:3130:3300:CR1TC%:3310:LY$"Y"İ2700:3220(CN$(CR),1)"5"āX012:AC(X)0:X:6335 X112:AC(0)SL:PS%(HW$(1)):ND%(HW$(14)):D$:^D$"WRITE HARDWARE":FT%:SL114:HW$(SL):SL:D$:xD$"CLOSE HARDWARE":<D$"CLOSE":83000=3500:3505B(SL6SF%4)(SL7SF%3)SF%1İ32000:3900:65903200:3205:3222:3900V:8":$D$"OPEN HAPOINT,L11,D"ND%:LD$"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$"OPEN HARDWARE,D1":%D$"READ HARDWARE":FT%:SL114:HW$(SL): HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV%: k D$"READ HATRANS,R"X:Y05:TR$(Y):Y:D$: D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:SF%2VC%CV%  D$"WRITE HATRANS,R"Z:Y05:TR$(Y):Y:D$: D$"CLOSE HATRANSX08:CK$(X):X:1:D$:WC:P 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$"OPEN HADATA,D"ND%: D$"OPEN HATRANS,L80,D"ND%:4 D$"READ$"CLOSE CATBUD":2 D$"OPEN CATACT,L130,D"ND%:c 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 CATACT,R"100WC:X08:CK$(X):X:D$ D$"WRITE CATACT,R"100WC:TC%:D$:= D$"READ CATBUD,R"CR:X112:BA(CR,X):X:D$:a D$"WRITE CATBUD,R0":TC%:D$: D$"WRITE CATBUD,R"CR:X112:CA(X):X:D$: D$"READ CATBUD,R101":SN$,MS%,YS%,FE%:D$: D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$: DD%:  D$"VERIFY HAPROG,D1":A D$"OPEN CATNAME,L27,D"ND%:q& D$"READ CATNAME":X0TC%:CN$(X):X:D$:0 D$"WRITE CATNAME":X0100:((CN$(X)AS$,26):X:D$:: D$"CLOSE CATNAME": D$"OPEN CATBUD,L84,D"ND%:  D$"READ CATBUD,R0":5):X:2790, X112:CA(X)(AC(X).5):X2 _ 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(0)0J  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D"N+r:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$+t3200:3205:3222:3100:3110:3130:3300:1500+X(0):X0)::$" ":UL$UL$(95)::BE$(7):MN$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC"e*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:3530R$(2),12)::" OR PRESS TO RETURN TO MAIN MENU"::AS$:50P)yPK1552400V)y)`SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY.":D$(4):MA%(0)37:MA%(4)153I*dEQ$"= ":MO$"JFMAMJJASOND":X139:AS$AS$"*":BL$BL::AS$:(^y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::AS$:?)|y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM:216,0:'yBE$::8:AS$::6:"REMOVE ANY DISK FROM DRIVE #1":"AND INSERT HOME 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)000:1:+&0uET(222):EL(218)(219)256F&:uEL310PICFLAG1:320V&?uEL380370m&DuEL6200EL6205Ħ{&NuET255Ħ&XuET9EL3005İ31000:&buET9EL3000İ31100:&luET133MA.005: 'yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET09:CK$(WC,X):X:D$:K D$"WRITE CATACT,R"106:X012:IM%(X):X: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":H D$"DELETE BUFFER,D"ND%:  D$"OPEN HATRAN,D"ND%:I 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)HU%:X,CR:D$: WC1CB%:D$"READ CATACT,R"100WC:X09:CK$(WC,X):X,WC:D$: D$"WRITE CATACT,R"100WC:XCN$(CR):D$:&: D$"CLOSE CATNAME":F D$"OPEN CATBUD,L84,D"ND%:i D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R101":SN$,MS%,YS%,FE%:D$: D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$: D$"CLOSE CATBUD": D$"OPEN CATACT,L130U $ 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 CATNAME,L27,D"ND%:& D$"READ CATNAME":X0TC%:CN$(X):X:D$: 0 D$"WRITE CATNAME,R"CR:( NG0- AM$""2645*2 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640< (AM$,X1,1)"."VXLXX1:VVVV1:VX2VV12640F X1H (AM$)1000000(AM$)1000002640K 2645P NG1%(6)TE%aCTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)gH XY(100(XX$).5)100:YX(XY):WX(YX):DX((YXWX)100.5) XX$SN$((XY)1)(WX)"."(("0"(DX),2)"0",2) XS$(BL$XX$,10) P%(6)TE%P%(7)64N0%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%>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%PHW)).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):(1)NU$PF$(1)P$(1):'(fPS%(HW$(1))?(X(0):VN$"2.01":""":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((HW$(HW$(2)"S"61010a'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((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)(\HW:PF$(0)NU$PF$(0)P$(0):PF$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:3830&3900'HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":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):X&SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::D$(4):3900:3005:BE$(7)x$jNL$" NOW LOADING ":NU$(0)(0)$tFT$(0)"8":FT$(1)"5"'%y TRANSACTIONS,GRAPHS,PRINTED REPORTS,PRINT CHECKS/ACTIVITY REPORT,BUDGET,EXTEND DATA DISK,START "REMOVE ANY DISKETTE FROM DRIVE # 1 AND":3:"INSERT HOME ACCOUNTANT PROGRAM DISK.":7:(SM$(2),12)::AS$v#Nz200:#}:8:AS$::6:BE$"WRONG DATA DISK FOR FUNCTION":20(MU$(SL))2:MU$(SL):7:(SM$(2),12)::AS$# }200:R$`X038:BL$BL$" 9EL3000İ31100:U"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 CURRENT DATA DISKETTE.":7:(SM$(2),12)::AS$"y200:k#DzBE$::8:AS$::2:%(CM%)CT%1:IM%(0)CT%:3500:3515:3300:3326:3322:3900K!3400:3900!SL7İ3200:3224:3230:3005:3795:3820:3830!!0uET(222):EL(218)(219)256!DuEL6200EL6205Ħ!NuET255Ħ!XuET9(EL3005EL620EL610)İ31300:"buET1100:5100:13:"IS THIS CORRECT(Y/N) (E)EXIT ";:OK$::OK$"Y"OK$"E"Č1052:6500i-hOK$"E"6590-iSB$TR$(4):7350:7300:6600:MD%26590.n6:958:25:"$AMOUNTS":"STATEMENT BALANCE ";:XX$SB$:2500:XS$::"OUTSTANDING CHECKS ";:X)64:1100:MD%26380%,WO96370/,51009,6330E,MD%0:d,dWO$"":SF%0İ31210:6590,f3610:BF1:4300:6:958:16:"ENTER BANK CHARGES OR CREDITS":"FROM CHECKBOOK":11:3:"BALANCE":8W-g"ENTER ENDING BALANCE FROM STATEMENT":WO4:30 +$3515+.'+IM%(0)CT%6380R+3610:RN0:EB%0:MD%0:MF0:BF1:4100b+7300:4200+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$ *5100*WO:MD%26180?*23:28:WO$::WO$"X"6104X*WO$"R"İ6950:6104i*WO$"P"İ80*WO$"M"İ900:MD%26180*WO$"M"MF1MF0:6110*WO$"A"WO$GH$Č1052:6130*CF1:WO(WO$)64:1100:MD%26180*5100+61ECTION(1-5) ";5)zCH$:CH$"1"CH$"5"Č1052:6010`)CH$:CH(CH$):CH6100,6300,6500,6700p)CH56000)3300:3324:3330))SF%0İ31210:6190)BF0:OM0:SL2BF1)7300:4100:BF0))WO17:1100*MD%2WO7:6125( WO7WO8ĺNY$((TR$(WO))):5190Q(WO9ĺ("0"TR$(WO),2)" "AR$(EB%):5190^(<TR$(WO)d(Ft(p3500:3600)uSI$"I":SJ$"J":SV16:H$"H":HC$"CLEARED":GH$"H":6900:26:(CK$(WC,6),14)::::X15:3:" "X". "MU$(1,X):::" ENTER SELSL1WO7VP6WO*'EB%1WO9HTHT58':HT:VPM'WO8SL15190t'WO6(TR$(WO))1ĺ"SPLIT":5190'WO6(WO2SL2)ĺ(CN$((TR$(WO))),2):5190'WO1TR$(WO)""5190'WO1ĺ(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2):5190$&CB%145902&TI$(5)"SELECT PERSON":6900Q&10:8:"CHECKBOOK/NAME":z&X1CB%:10X2:5:X". "CK$(X,1):&::8:"SELECT (1-"CB%") ";&WC$:WC$"1"WC$(CB%)Č1052:4535&WC$:WC(WC$)&40190,WC&'VPWO7:HT13:ERCT%:SJ$" TR#->"CT%%<%4:14::" AUTOMATIC "::Z%4:14::" RECONCILE ":g%6:868m%%0MD%0Ģ6:"MODE 1)";::CH$(SL,0);::" 2)"CH$(SL,1)" 3)END"%:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"&D (R)RECORD (M)MODE":12:"ENTER SELECTION "L$$CH3Ģ20:16::"(S)SKIP":R$^$h4:14::"SEARCH/EDIT"::21:28:SJ$:22:868:5:"(X)CANCEL (S)SEARCH (M)ODE"%|CM$("0"(CM%),2):SV:SI$" MO "("0"(MI%),2)"->"CM$" "CM$" ->"CM$:BRIM%(CM%):22:"(M)MODE":"B "DN$(SL,MD%):"C "PY$(SL,MD%)X#"D AMOUNT":"E MEMO":"F CATEGORY"#"G TAX(Y/N)":H$" "HC$:CH1SL1Ė13:15:"N"# BF1Ģ17:22:"BALANCE ";:OD%MD%CH1İ4000+$"21:9:"LETTER TO CHANGE(A-"GH$")":2:"(X)CANCEL (P)PRINT":":SL1AR(CK$(WC,0))A"VB17:HB31:RR1VB15:HB23]"SL3AR(CK$(WC,0))1o"SL$"3"4090"Y012:BABACA(AR,Y):Y:XX$(BA):2500"BA0ğ"VB:HB:XS$:BA0:""1:6:958:MD%1MD%0"44000#:"A DATE";:RN,0):PT%(RN,1):D$:3!D$"CLOSE HAAUTOPOINT":O!D$"OPEN HARDWARE,D1":!D$"READ HARDWARE":FT%:X114:HW$(X):X::D$:ND%(HW$(14)):PS%(HW$(1)):!D$"WRITE HARDWARE":FT%:X114:HW$(X):X:D$:!D$"CLOSE HARDWARE":"<D$"CLOSE:3 ~D$"READ HAAUTO,R"ZZ:X05:TR$(X):X:D$:e D$"WRITE HAAUTO,R"ZZ:X05:TR$(X):X:D$:} D$"CLOSE HAAUTO": D$"OPEN HAAUTOPOINT,L11,D"ND%: D$"READ HAAUTOPOINT,R"ZZ:PT%(RN,0),PT%(RN,1):D$:!D$"WRITE HAAUTOPOINT,R"ZZ:PT%(NS":&D$"OPEN HAPOINT,L11,D"ND%:5RP13614MS0:10000:D$"READ HAPOINT":X0CT%:PT%(X,0),PT%(X,1):X:D$:RP1:SL4İ6900$D$"WRITE HAPOINT,R"RN:PT%(RN,0):PT%(RN,1):D$:.D$"CLOSE HAPOINT": tD$"OPEN HAAUTO,L80,D"ND%S,L80,D"ND%:? D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%I D$:{ D$"READ HATRANS,R"RN:X05:TR$(X):X:D$: D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:D$: D$"WRITE HATRANS,R"RN:X05:TR$(X):X:D$: D$"CLOSE HATRA%,OD%):OM17790:=(CA(OC,EM%)CA(OC,EM%)OAPM%(SL,OD%)@=n=@EM2:M1%ND%:31100:3000:3500:3505:3600:3610:3300:3328:=(#SF%0İ31210:9990=*#:FT%5Ģ3:8::"<< CURRENT MONTH : "MM$(CM%)" >>":>,#5:BE$;BE$;BE$:AS$::CB%1Ė9:"A00:7505!<`WO$"R"İ6950:75908 "RNT;QWO18:5100:WO:OCAR:OA(TR$(4)):OB(TR$(6)):OM((TR$(5),5)"SPLIT")l;SCH3WO$GH$:7540;V23:28:WO$:WO$"X"ĺ:3510:2100:7500;XWO$"P"ĺ:807510;[WO$"M"İ900:MD%27590<]WO$"M"MF1Ģ19::MF0:CF1:3510:WO4:4ST(X))XTC:EF1:7450E:TK$(X)(TR$(ST(X)),(TK$(X)))XTC:EF1W:X:EF17480t:7500:MD%2RNER:7488~:87350:@RN:B:LCF0:WCCWLSSL7590:MTR$(8)"2"BF1:NOD%P%(6):SL2AR(TR$(2));O4100:CH2Ė1:17:"TRANS#>""PCPC1:SP(PC)X:PK%(PC)P%(X))9U9X46:PCPC1:SP(PC)X:PK%(PC)P%(X):q9TR$(8)"0"BRMI%BR19RNBRER:21009EF0:X1PC9PK%(X)P%(SP(X))XPC:EF19 X:EF1748093510:TC07455:X1TC:ST(X)2TK$(X)TR$(**";::" TO ABORT":PK(16384):PK155RNER:BE$;:16368,0J8[8 SEARCH KEYp8TR$(10)""74058RN(TR$(10)):210083510:7500:74908TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)8#92000:PC0:X13:TR$(X5)%)0NG1:7290 71EB%07230N74BRIM%(MO%):5100:EB%1:ERBRNG1:EB%0X797290t7>OM%MO%1:OM%13OM%17HERIM%(OM%)1:MO%CM%ERCT%7RERBRNG1:72907T51007WEB%07z7X110:TR$(X)"":X7D819:8::"**SEARCHING:"ENTER SELECTION(1-3) ";A6bCH$:CH$"1"CH$"3"Č1052:7010b6vCH$:CH(CH$):CH6100,6300r6CH37000x66(TR$(WO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG166BE$;6 MO%(TR$(WO)):MO%1MO%12NG1:72907*IM%(MOR$(6)):TM%0:(CN$(AC),1)"4"(CN$(AC),1)"6"TM%1f5DCA(AC,EM%)CA(AC,EM%)(TR$(4))MP%(TM%,MD%)5N4050:3520:2000:2010:36205S6X3500:3600:SI$"H":SV15:SJ$"I":HC$"":H$"":GH$"G":6900:::::X13:3:" "X" "MU$(SL,X):::::6.4(CH1CT%CT%1:RNCT%:TR$(0)(CM%):6960>4*CF16995S40TR$(8)"2"6990e41EM%(TR$(0))42XC1CK$(WC,8)TR$(2)45CH1İ770047(TR$(5),5)"SPLIT"69724:CA(AR,EM%)CA(AR,EM%)(TR$(4))PM%(SL,MD%)4;TR$(6)"-1"699055<AC(T5:67803c5100:67203|K/33730:3788533::9:HA$:20(TI$(SL))2::TI$(SL)::15(CK$(WC,1))2:CK$(WC,1)" ";:FT%5ĺMM$(CM%)" 19"YS%;3:3&19::SL1TR$(8)"1":69523'TR$(8)"0"RN0RN(CK$(WC,9))CK$(WC,9)(RN)2@23:28:WO$:WO$"X"ĺ:670792EWO$"P"ĺ:80:6720\2JWO$"M"İ900:MD%2K5:67802OWO$"M"MF1Ģ19::MF0:CF1:67102TWO$"R"ĺ:SL1:2000:2010:3720:3770:67802YWO$"A"WO$GH$SF%0ČBE:67203^CF1:WO(WO$)64:1100:MD%2K73501 RN1"-1,SF%0İ31210:6792v1/GH$"H":H$"H":HC$"CLEARED":SL1:6900:BF1:4240:3900:3700:375011K15:RN0:ZZK(5(WC1))133710:3760:210016410018TR$(1)""TR$(1)("0"(CM%),2)"01"(YS%)1;WO18:5100:WO OK$:OK$"P"İ80:65500e0OS%0:ERCT%:BR(CK$(WC,9)):BF0:OT(0)0:OT(1)0:RNBRER:21000P%(3)0LS1CWWC6680035100WO$"S"İ7500:MD%2RNER:66880TR$(8)"0"OT(MD%)OT(MD%)(TR$(4)):OS%0OS%1:CK$(WC,9)(RN)1$(DF):2500:FR(DF)1^/:"YOUR CHECKBOOK:":FR1ĺ"RECONCILES....CONGRATULATIONS":6550/"DOES NOT RECONCILE BY ";:XS$:"IN "BF$(FR)" FAVOR":/22:10:"(P)PRINT (R)RETURN":12:"ENTER SELECTION ";:868/OK$:OK$"P"OK$"R"65550X$(OT(0)):2500:XS$"(-)".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/XXNU,ENTER PURCHASES/RETURNS,SEARCH/EDIT,MENU,,,ENTER PAYMENTS/RECEIPTS,SEARCH/EDIT,MENU,, zMX13:Y15:MU$(X,Y):Y,XM 6,6,24,9,27,25,1,1,2,4MX110:UL(X):XMWC(40190):WC6WC0NHPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)""6L JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECMLX112:MM$(X):XL TRANSACTIONS,CHECKBOOK,CREDIT CARDS,CASH,** HOME ACCOUNTANT **LX03:TI$(X)::HA$YM ENTER CHECKS/DEPOSITS,SEARCH/EDIT,RECONCILE BANK,AUTOMATIC TRANSACTIONS,ME8:3330;K CHECK,DEPOSIT,PURCHASE,RETURN,PAYMENT,RECEIPTgK CHECK #,DEPOSIT#,CARD,CARD,CODE,CODEK PAID TO,SOURCE,MERCHANT,MERCHANT,PAID TO,SOURCEKX13:Y01:CH$(X,Y):Y,XKX13:Y01:DN$(X,Y):Y,XLX13:Y01:PY$(X,Y):Y,X)1:MP%(1,0)1:MP%(0,1)1:MP%(1,1)1FJt3900:3800:3810:3830:75JvDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):XJyMS0:10000:3200:3205:3222:3230J~CN$(TC%),CA(TC%,12)J3100:3110:3130K3300:3310:3322:332$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DISK":MS$(0)" READING":MS$(1)" WRITING":DF$(1)" DISK FULL ":DF$(2)" END OF YEAR ":DF$(3)DF$(1):DF$(4)DF$(2)&JoMD01:SL13:PM%(SL,MD)(1SL)(1MD):SL,MD:MP%(0,0:BE$(7):X139:BL$BL$" ":UL$UL$(95):MI$MI$"-":AS$AS$"*"::SN$(0)"-"HjTW%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)IlEMG zG`MM$(12),TR$(11),PT%(1100,1),IM%(12),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)PHeBE1052:PE%16384:CS%16368FyCS%,0:ET931245oFyET0::8:AS$:14:AS$:10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT"Fy3600:3610:3500:3515:RN1CT%:2100:P%(3)031240FyP%(3)2:2010:3620FzRNF zTA%0SF%1YN$"C"CM%TT%:3300:3310:3330K HAS BEEN STARTED.":5:"RETURN TO MAIN MENU TO DO THIS.":TA%0Ė9:"NEW MONTH NOT STARTED":3:"NO AUTOMATIC TRANSACTIONS RECORDED"EyET9TA%0Ė5:"LAST TRANSACTION NOT RECORDED"Ey8:"HIT ANY KEY TO CONTINUE."::AS$EyX(PE%):X12731215S TO RETURN TO MAIN MENU "::AS$ADyX(PE%):X12731110LDyCS%,0iDySL7X155İ3005:3010oDyDyTA%0CT%CT%TA%1DySF%1Dy:8:AS$:::15:BE$;DF$(SF%)::3:BE$"NO NEW TRANSACTIONS MAY BE RECORDED"Ey"UNTIL A NEW DATA DIS%CT%1:31200:25 CbuET255ĦbCyD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:C|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~ySL7Ģ14:" OR PRES515B'TA%0:WC(WC$):nB':8:AS$::13::MS$(MS)" FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:|B0uD$"PR#0"B:uET(222):EL(218)(219)256BDuET9EL3000EM2:M1%ND%:31100:BNuET9EL3005EM3:M1%1:31100:CXuET9İ3400:CT5:RN0-AK#3710:(TR$(5),8)"INACTIVE"9047AP#TA%TA%1:3750:3760:2100:WCCW:AR(CK$(WC,0)):TR$(1)("0"(CM%),2)(TR$(1),3,2)(YS%)AU#3788:3500:3600:6950:35303630AW#ZZ:3730AZ#3300:3326:3330:CY%1İ3200:3224:3230Bn#3500:3CM%:::8:AS$:12:AS$:10:15::" WORKING "::FT%4FT%5:HF1:9025u@>#CM%FE%SF%2:TA%1:ET9:31210:9990@?#CY%0:CM%CM%1:CM%13CM%1:YS%YS%1:CY%1@A#IM%(CM%)CT%1:HF19030@B#3300:3320:3330AF#3700:CH1:SL1:TA%0:ZZ1CB%ISK"::12:"ENTER SELECTION ";^?4#28:YN$:YN$"A"YN$"M"YN$"S"YN$"C"Č1052:9012?6#YN$;:HK$::HK$(13)9012?7#YN$"A"İ6700:9000?8#YN$"M"9990?:#HF0:3900:3600:3610:3630?;#YN$"C"CT%0ET9:TA%1:31202:9990J@<#TT%LL "CB%" CHECKBOOKS WILL"r>.#3:"START 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 D[7ЊԈT=[7=[7[7[7[7[7m[m[[7[7m[m[m[m[m[m[m[vmvmv;; [;;[;;;;;;;;;;]]]];;;;]]]]]]]]]]]]]]nnnnn[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=;;;;;;;;;;;;;;;;;;]]]]]]]]]]]]]]]]]];[;;[;;[mo@P~mo~mololololov7v7molov7v7v7v7v7v7v7{{{w\@*gw\gw\w\w\w\w\;n;nw\w\;n;n;n;n;n;n;nwwmoՊ~mo~mo}w\Հgw\gw\Nmo~mo~moԀ~w\gw\gw\gmololololololololov7v7v7v7v7v7v7v7v7mo~mo ~mo~w\w\w\w\w\w\w\w\w\;n;n;n;n;n;n;n;n;nwgw\P gw\gw\@gw\gw\w\w\w\w\;n;nw\w\;n;n;n;n;n;n;nwwmoP ~mo~mololololov7v7molov7v7v7v7v7v7v7{{{w\gw\gw\@ NmoЪ~mo~mo}w\gw\gw\ňЀgmo~mo~mo(U~w\w\w\w\w\w\w\w\w\;n;n;n;n;n;n;n;n;nwgw\  gw\Јgmololololololololov7v7v7v7v7v7v7v7v7mo~mo(~mo~;;@[;;[;;;;;;;;;;]]]];;;;]]]]]]]]]]]]]]nnnnn[7=[7=[7[7[7[7[7m[m[[7[7m[m[m[m[m[m[m[vmvmvPEL(218)(219)256:ET(222)3ZíET254)P$(0):PF$(1)NU$PF$(1)P$(1),OaX(0)::P$(1)"":HW$(2)"S"61010lNMP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)NRHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)NWHW:HW913:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)O\HW:PF$(0)NU$PF$(0X: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:<":1315936,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:(MN$,1(MM1)3,3)" "(DD)", 19"YY$;F" ":" ":LPLP6YY$D$(7)D$(8):YY(YY$):DD1DD31MM1MM121200\(MM4MM6MM9MM11)DD301200qMM2DD291200MM2YY4(YY4)DD281200DA$MM$DD$YY$:D$: (12)LP0" ":" "SL1Ĺ36,56RF(MU$(SL))2:MU$(SL)" FOR3ZZ1:14Z12207DZ$(13)Z1DA$""1287YDZ$"0"DZ$"9"Č1052:1225}DZ$;:D$(Z)DZ$:ZZ1:Z91220HK$:HK$(13)HK$(8)Č1052:1260HK$(8)Z8:14Z:12255MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):EPORT DATE>>":V310UZ1: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:Z6Z:LP50CRTC%PNPN1:1290:1480,WCRI\TY:890:(12):90:800Of]zTY6899s~2200:TY8İ2250TY8PNPN1:1290:1480B10B11EP3:CH1EP1B20B21B1HU%B1:B2HU%B2::16368,010:"RT(2,MS(F)):B2B2TS(2,MS(F)):F:B1B1ST(2,0)(XMS%):847ILCH1847cMCH3YY1: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 LN7[[7[[7[7[7[7[7[[m[m7[7[[m[m[m[m[m[m[mmvmvm]w =]w=]w\w\w\w\wn;n;]w\wn;n;n;n;n;n;n;www7[[7[́挀[7[6]wԢТP=]w𸀞ǃ=]w{7[[7[[7[Ԃ[]w=]w=]w@=7[7[7[7[7[7[7[7[7[[m[m[m[m[m[m[m[m[m7[7[[7[[]w\w\w\w\w\w\w\w\wn;n;n;n;n;n;n;n;n;]g<]w=]wՀЀ=9EL3005İ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:160(@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:RT1RTz#??    HŠ 5ĮԠ GԠ  IϠͮԠîϠ"Š5Ա 9ĮԠ Ԡ8Р ŠԠ9Ӡ%ՠ#Ǡ"C "PY$(SL,MD%)7"D AMOUNT":"E MEMO":"F CATEGORY"S"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 "^7h4:868:20(MU$(SL,CH))2::MU$(SL,CH)::21:28:SSE 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)MODE":"B "DN$(SL,MD%):SF%,LD$,CB% D$:G D$"READ HATRANS,R"RN:X05:TR$(X):X:D$:` 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,1)::D$: .D$"CLOD$"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 HATRANS,R0":CT%,CM%,CV%,Ѝ΍)).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):(X(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$)):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)3e7590,XP%(1)1P%(1)TC%16,`C40(C40)İ7700z,b(TR$(5),5)"SPLIT"P%(1)PK%(1)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)" "; -tLS2TR$(2)(CN$($(Q,1)" ";:Q:" "O+@SA1ĺ(BL$,23HL(PF,4))"*AMOUNT IS NOT PART OF TOTAL"Z+A(12)i+BSL6SL4o+Du+L+Q(WCCWWC6)(SLLSSL6)7590+SPK(16384):PK155ČBE:16368,0:MD%2:7590,VSL1CH2PF1:7600:P%(7)1:2010:3620:16384):PK155ČBE:16368,0:MD%23*: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ĺ" ":(BL$,17HL(PF,4))"PER: ";:Q1CB%:Q". "CK(P%(3)0P%(7)0)7480*)EF0:X1PCK)PK%(X)P%(SP(X))XPC:EF1]) X:EF17480r)3510:TC07455)X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450)TK$(X)(TR$(ST(X)),(TK$(X)))XTC:EF1)X:EF17480)7500"*8PK(R$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)/(r(2000:PC0:X13:TR$(X5)""PCPC1:SP(PC)X:PK%(PC)P%(X)(:SL4SL6:P%(5)6(X46:P%(X)6PCPC1:SP(PC)X:PK%(PC)P%(X)(:TR$(8)"0"BRIM%(MI%)BR1(RNBRER:2100)CH21:MO%CM%ERCT%''RERBRNG1:72901'T5100;'WEB%0A'zZ'X010:TR$(X)"":X`'y'PF0:CH2EC1PF1'80:'STSL:CT%IM%(0)7490'CH7350,87:TR$(10)""7405'RN(TR$(10)):2100'3510:7500:7490)(TC0:X15:TO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG19&C&BE$;o& 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%1'HERIM%(OM%)11223 S. HINDRY":A$(3)"LOS ANGELES,CA 90045"A%(7600:85:6405G%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%3&(TR$(W$"Y"PA1J$:8:AS$:12:AS$:10:"DO YOU WANT A TEST CHECK (Y/N)? ";r$ 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)"CONTINENTAL SOFTWARE":A$(2)":85##WO$"A"WO$SJ$ČBE:6330F#WO(WO$)64:1100:MD%26380U#WO96370_#5100i#6330u#MD%0:#3600#PF1::8:AS$:12:AS$:10:"DO YOU WANT TO INSERT ADDRESSES (Y/N)? ";#YN$:YN$"Y"YN$"N"ĺBE$;:6403 $PA0:YN6000 "" GOSUB 3500J"EB%0:MD%0:SA0:TL0:C0:MF0:BF1:4100Z"7300:4200y"23:28:WO$:WO$"X"6302"WO$"S"ĺ:BF0:7400:85:6900:6302"WO$"M"İ900:MD%26380"MF1MF0:6310#WO$"P"ĺ:PF1:8,20:83:768:(12)16: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:6900!6300")"")ĺ(CN$((TR$(WO))),2):5190< WO1TR$(WO)""5190z 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!uSI$"I":SJ$"J":SVE:4535)WC$:WC(WC$):WCCB%1WC6740190,WC=cVPWO7:HT13:SL1WO7VP6WO{EB%1WO9HTHT5PA1TR$(0)""VPVPX1:HT:VPWO8SL15190WO6(TR$(WO))1ĺ"SPLIT":5190" WO6(WO2SL2TR$(WOӍ΍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)@J2)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:15705(UL$,U4(CH));:1:"";CK$(WC,CH):(CK$(WC,CH))U4(CH)1399RCK$(WC,CH)""1499bCH51499X15:(CK$(WC,5),X,1)"0"(CK$(WC,5),X,1)"9"1399X:NF0:TC%01549CN0NF1:1549Y1TC%(CN$BL$,25)(CN$(Y), BE$;a:32,19:33,11:34,6CH:35,7CH:1:7CH:(UL$,9)" ";:1:"";XX$:XX$""XX$"0"v(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):1:V4(CH):99j(TY0:4:10:(95)" (1-5)";]10:YT$:(YT$"1"YT$"5")YT$"E"ĺBE$;:1210gYT$;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"9X(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):5000gNG1109"(CN$)ULCN$""CNTC%999HRF1CN$(CR)TY$CN$:1700:1080dSL1500,1550,1550,1500s$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$,670004035:CH$"X"900&7100,2<BE$;TUL25: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"99890'*RF1:CXCR:1000:CN$"END"890C/1500:NF1Č1052:810M47000zH4035: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)1750:CN$"END"790$ CXCR:795:1710V MF1:4035:CH$"X"İ795:CN$(CR)TQ$NC$:700t 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"600,6200:4000 3005:FT%5İ3800:3820:3830: 3010K XTC%100690h 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):4 FT%2Ė10:13::"5. "MU$(5):X 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,6)):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:#0" _& dPK(16384):PK1271006 n16368,0:c 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 ** 4.27.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                    4:Y01:PY$(X,Y):Y,XM: JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECd:X112:MM$(X):X: ACTIVITY REPORT/PRINT CHECKS,CHECKBOOK,CREDIT CARDS,CASH,ALL,SELECT PERSON/CHECKBOOK,** HOME ACCOUNTANT ** :X05:TI$(X)::HA$Y; CHECPOSIT,PURCHASE,RETURN,PAYMENT,RECEIPT,CREDIT,DEBITs9 CHECK #,DEPOSIT#,CARD,CARD,CODE,CODE,REFERENCE,REFERENCE9 PAID TO,SOURCE,MERCHANT,MERCHANT,PAID TO,SOURCE,NAME,NAME9X14:Y01:CH$(X,Y):Y,X9X14:Y01:DN$(X,Y):Y,X:X1X18:D$(X)(DZ$,X,1):Xn8y:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$8~3200:3205:3222:32308CN$(TC%1):CN$(TC%1)"0SPLIT"83100:3110:313083300:3322:3328:333083600:361029 CHECK,DE2$"/"S2$:NY$(0)"N":NY$(1)"Y":NY$(2)"Y":AR$(0)"->"7lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DISK":CK$(6,1)"ALL"7t3900:3800:3810:3830:D$"BLOAD DMP":758vDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):(4,1),SP(8),ST(8),TI$(5),TK$(8),TY$(3),UL(10)6eBE1052:BE$(7):X139:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::SN$(0)"-"6gX139:BL$BL$" "::NU$(0)(0)77jTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"STO RETURN TO MAIN MENU "::AS$<5yX(16384):X12731110U5yX155Ĺ16368,0:50e5y16368,0:-6`MM$(12),TR$(11),PT%(1100,1),IM%(12),EM$(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$9İ31200:4buET255ĦZ4yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:4|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$5~ySL7Ģ14:" OR PRESS )""ĺ(MI$,3);3(:3n43xX1LP:" ":X:x3@EM2:M1%ND%:31100:3000:3500:3505:3600:3610:3300:3328:30uD$"PR#0"3:uET(222):EL(218)(219)2563DuET9EL3000EM2:M1%ND%:31100:3NuET9EL3005EM3:M1%1:31100: 4XuET236,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)2" ":" ":Z111:HD$(ST,Z)""ĺ(HD$(ST,Z)BL$,HL(PF,Z)1);2 Z:H2$(WC)2#Z111:HD$(ST,Z)""ĺ(MI$,HL(PF,Z))" ";3%Z:H2$(WC2:TR$(2)/1LP3:7800:36,3:"MEMO : "TR$(5)e136,3:"AMT. : $"TD$"."TC$:36,3:"PAYEE: "TR$(3)u1LP13:7800{1 1C0ĺ(12)136,HH(PF,1)(TI$(ST))2:TI$(ST)" TRANSACTIONS":36,HH(PF,2)(CH$(ST,MD%))2:CH$(ST,MD%)" ACTIVITY REPORT"nTT$"0LP1:7800:36,15:TR$(3);v036,50:(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2);:36,66:(AS$TR$(4),10)"**"0PA1LP2:7800:36,15:TR$(3):X13:36,15:A$(X)" ":X:" ";:76500LP6:7800036,3:"MEM0 : "TR$(5) 1LP4:7800:36,7(/YN$:YN$"Y"YN$"N"ĺBE$;:7605G/: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"/LP4:7800:36,72:TR$(2)0LP2:7800:36,8:Ӎ΍ BHHH$H%H$% G& 0I@ ( h%h$hhh`DF$(1):DF$(4)DF$(2)yIoMD01:SL13:PM%(SL,MD)(1SL)(1MD):SL,MD:MP%(0,0)1:MP%(1,0)1:MP%(0,1)1:MP%(1,1)1It3900:3800:3810:3830:75IvDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):X JyMS0:10000:3200:3205:3)"Y":NY$(2)"Y":BF$(2)"YOUR":BF$(0)"THE BANK'S":AR$(0)"->":NU$(0)(0)IlEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DISK":MS$(0)" READING":MS$(1)" WRITING":DF$(1)" DISK FULL ":DF$(2)" END OF YEAR ":DF$(3)PF$(1),PK%(8),PM%(3,1),PY$(3,1),SP(8),ST(8),TK$(8),CK$(5,9)GeBE1052:PE%16384:CS%16368:BE$(7):X139:BL$BL$" ":UL$UL$(95):MI$MI$"-":AS$AS$"*":LHjTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"S2$"/"S2$:NY$(0)"N":NY$(1:P%(3)031240(FyP%(3)2:2010:36200FzRNdF zTA%0SF%1YN$"C"CM%TT%:3300:3310:3330jF z;G`MM$(12),TR$(11),PT%(1100,1),IM%(12),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),TA%0Ė5:"LAST TRANSACTION NOT RECORDED"SEy8:"HIT ANY KEY TO CONTINUE."::AS$mEyX(PE%):X12731215EyCS%,0:ET931245FyET0::8:AS$:14:AS$:10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT":3600:3500:3515:RN1CT%:21001TDy:8:AS$:::15:BE$;DF$(SF%)::3:BE$"NO NEW TRANSACTIONS MAY BE RECORDED"Dy"UNTIL A NEW DATA DISK HAS BEEN STARTED.":5:"RETURN TO MAIN MENU TO DO THIS.":TA%0Ė9:"NEW MONTH NOT STARTED":3:"NO AUTOMATIC TRANSACTIONS RECORDED")EyET9FROM DRIVE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$C~ySL7Ģ14:" OR PRESS TO RETURN TO MAIN MENU "::AS$CyX(PE%):X12731110CyCS%,0CySL7X155İ3005:3010CyCyTA%0CT%CT%TA%1DySF%(222):EL(218)(219)256DBDuET9EL3000EM2:M1%ND%:31100:jBNuET9EL3005EM3:M1%1:31100:BXuET9İ3400:CT%CT%1:31200:25ByD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:UC|yBE$::8:AS$::2:"REMOVE ANY DISKETTE ,3,2)(YS%)3AU#3788:3500:3600:6950:35303630AAW#ZZ:3730pAZ#3300:3326:3330:CY%1İ3200:3224:3230An#3500:3515A'TA%0:WC(WC$):A':8:AS$::13::MS$(MS)" FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:A0uD$"PR#0"B:uET(CH)F?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)NU$P$(0)PF$(0)PF$(1):EC1?aX(0):T01:Y14:HH(X,Y):Y,X)>9WC(40190)z>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)!=X111:Y14:HD$(Y,X):Y,XC= 4,8,6,24,9,27,25,3,3,3,4,3d= 4,8,6,7,9,10,8,3,3,3,4,3=Y01:X112:HL(Y,X):X,Y= CHCK,CARD,CASH=X13:TY$(X):X= NN$(1,1)"Y":NN$(1,0)"N":NN$(1,2)"?"= 60,58,64,62,34,32,38,36>XNT,NAME,NAME,AMOUNT,AMOUNT,AMOUNT,AMOUNT,MEMO,MEMO,MEMO,MEMO,CATEGORY,CATEGORY,CATEGORY,CATEGORY,TAX,TAX,TAX,TAX < CLR,,,CLR,PTD,,,PTD,,,,TYPE 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 v11)DD3099MM2DD2999@MM2YY4(YY4)DD2899dTR$(WO)MM$DD$YY$:LD$TR$(WO)jr 1:"";TR$(WO)(TR$(WO))UL(WO)NG1:290SL2TR$(WO)""İ600",SB0:AM$TR$(WO):2600:NG1450XX$AM$:DZ$"0"DZ$"9"ĺBE$;:115? DZ$;:D$(Z)DZ$:ZZ1:Z9110i 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 (MM4MM6MM9MM),3,2)"/"(TR$(WO),2);( iZ1:HT:WO7A nZ3Z6ĺ"/";:ZZ1j 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)180 :8:AS$::15::" PRINTING "::7:" PLEASE DO NOT INTERRUPT ":::13:" TO ABORT"::AS$:r ZCH2180 \:WO0:HT15:7:"REPORT DATE >>":100 cBE$; dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(WO *** 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":d WCT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU"t ::" 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 LINE7 ** PRINT ** 6.25.82 *30000N D$(4):D$"NOMON I,O,C":60000bCB%1WC1:25rWC0İ4500PA0:SL0:6900:3900:3500::M " 1. CHECKBOOK/PRINT CHECKS"::" 2. CREDIT CARD"::" 3. CASH"::" 4. ALL (1-3)"::" 5. SELE               Y13>WK18:X1,(157RG)Y1X1,157RG:X1X11:K:X1X113K\X:X140pX112:1300:(RJ40Y40)(RJ157Y157)2164qY0YY3rX1,(157RG)YX1,157RG:X2X1:X1X18:X1,(157RG)YX1,157RG:X3X1:X1X113:X3,(157RG)YX2,(157RG)Y20004:3:10:"** HOME ACCOUNTANT **"::16::" BAR-GRAPH ":::13:"BUDGET TO ACTUAL":12:2:"CATEGORY >> ":500:CN$"END"ė:2000R3210:3310:1900:1400:1470:4000:2170:X130:X112:1300:(RJ40Y140)(RJ157Y1157)2140TY10Y1ET TO ACTUAL)"::6:"2. LINE-GRAPH (ACTUAL EXPENSE)"::6:"3. TREND ANALYSIS"::6:"4. MENU":9:"ENTER SELECTION (1-4) ";SL$:(SL$"1"SL$"4")(BM%CM%(SL$"2"SL$"3"))Č198:2020SL$:SL$"4"2400SL(SL$):SL2100,2200,2300:1920JvTLCA(0):XRM(BM%)RM(CM%):TLTLCA(MO(X)):AC(MO(X))TL:X:1950eX012:AC(X)CA(X):Xk:5:10:"** HOME ACCOUNTANT **":12::" GRAPHING MODULE "::16((SN$)2):SN$" "(MN$,(CM%1)31,3)" 19"YS%_9:6:"1. BAR-GRAPH (BUDG(X1)(MA)MACB(X1)0CB(X1)MIMICB(X1)7XFDFMAMI:gRG((MI)((MI)MA)120):MO(0)FE%:RM(0)12FE%:RM(0)0RM(0)12X112:MO(X)MO(X1)1:RM(X)RM(X1)1:MO(X)13MO(X)1RM(X)13RM(X)1X:lTY(CR)5X01:Y027:10008Y1(CB(MO(X))120((MI)MA))YY(AC(MO(X))120((MI)MA))_(yxMI0:MAAC(0):X112AC(X)(MA)MAAC(X)AC(X)MIMIAC(X)X:SL11465CB(1)(MA)MACB(1)CB(1)MIMICB(1)X111CB):(MM(4))(MM(0))FLAG(((MM(4))))7K6:X04dM$((MM(X)10((FLAG4)(FLAG5)).5))sNG(X)1ĂX01:Y0MA%(X):900::X01:Y018:M$"SCALE = X"(10((FLAG4)(FLAG5))):1000:1230RJ157M$"AMOUNTS BELOW LINE ARE NEGATIVE":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)1x]`MA%(1)67:MA%(2)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))(2)0:MM(3)((MI.5)):MM(4)((MI)):VMA%(1)RJ3:MA%(2)(RJ(157RJ3)3):MA%(3)(RJ(157RJ3)23):MM(0)(MA):MM(1)0:MM(2)((MI3)):MM(3)((MI23)):MM(4)((MI)):MA%(1)MA%(0)10NG(1)1Xr[MA%(1)(37((RJ40)3)):MA%(2)(37(0" J1(M$):A((M$,J,1))317 AX0,Y0:X0X0K? : LMA%(1)67:MA%(2)97:MA%(3)127:MM(0)(MA):MM(1)(MA.75):MM(2)(MA.5):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:) NF0:CN0CNTC%CRCN:700:680Z CR1TC%:CN$(CN$(CR),2,(CN$))İ700:670l CR:NF1:680 CXCRĢ12:13:HR$:HR$(13)665   12:14:(CN$(CR),2): M$(BL$M$,4):1000 J1(M$):A((M$,J,1))31 101DATA,D"ND%"" SL2100,2200,2300, BE$; UL25:32,13:33,26:34,11:35,12:1:12:868:(UL$,UL);:1:"";CN$::CN$"END"(CN$"GRAPH"SL2)580 CN(CN$):(CN$)ULCN$""CNTC%499 &650:NF1500 DCNCR:19:10:NAME$(CN$(CN),2,18)ME ";(UL$,11), B14:16:16368,0:"";BB$@ EBB$"NONE"370 J:8:AS$::12:"DO NOT INTERRUPT"::11::" NOW SAVING GRAPH ":::AS$:D$"BSAVE ";(BB$,10);",A$4000,L$2000,D";ND% r31070:16368,0 wPK(16384):PK127375 |D$"VERIFY HA21:278,37278,160::279,37279,160:Y037:Y15:28,Y0278,Y0:Y0Y031:Q p ,PICFLAG0:31050:16368,0 1PK(16384):PK127305 6D$"VERIFY HADATA,D";ND%:PICFLAG1Č198:300 @:12:5:"NAME TO SAVE / OR ENTER 'NONE'"::5:"ENTER NA# ** GRAPHS ** 5.06.82* 30000528457F60000:2000r2PK(16384):PK199İ200:16368,0:505PK211ī3007PK12750<16368,0:X038:GD((1)7)1:GD4GD5GDK X112:X0,37X0,160:X01,37X01,160:X0X0             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::"1@ & ** HAMENU ** 8.20.82--V 2.1230000 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)1                 ARCH/EDIT,MENU,, 2LX13:Y15:MU$(X,Y):Y,XQL 6,6,24,9,27,25,1,1,2,4gLX110:UL(X):XLWC(40190):WC6WC0LHPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010$MMP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)X):XLK TRANSACTIONS,CHECKBOOK,CREDIT CARDS,CASH,** HOME ACCOUNTANT **fKX03:TI$(X)::HA$L ENTER CHECKS/DEPOSITS,SEARCH/EDIT,RECONCILE BANK,AUTOMATIC TRANSACTIONS,MENU,ENTER PURCHASES/RETURNS,SEARCH/EDIT,MENU,,,ENTER PAYMENTS/RECEIPTS,SE #,DEPOSIT#,CARD,CARD,CODE,CODEUJ PAID TO,SOURCE,MERCHANT,MERCHANT,PAID TO,SOURCEvJX13:Y01:CH$(X,Y):Y,XJX13:Y01:DN$(X,Y):Y,XJX13:Y01:PY$(X,Y):Y,XJ JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECKX112:MM$(IvDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):XnIyMS0:10000:3200:3205:3222:3230I~CN$(TC%),CA(TC%,12)I3100:3110:3130I3300:3310:3322:3328:3330I CHECK,DEPOSIT,PURCHASE,RETURN,PAYMENT,RECEIPTJ CHECK PROGRAM DISK":MS$(0)" READING":MS$(1)" WRITING":DF$(1)" DISK FULL ":DF$(2)" END OF YEAR ":DF$(3)DF$(1):DF$(4)DF$(2)HoMD01:SL13:PM%(SL,MD)(1SL)(1MD):SL,MD:MP%(0,0)1:MP%(1,0)1:MP%(0,1)1:MP%(1,1)1Ht3900:3800:3810:3830:75FS$"*":GjTW%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)zHlEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERTOT(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)GeBE1052:PE%16384:CS%16368:BE$(7):X139:BL$BL$" ":UL$UL$(95):MI$MI$"-":AS$A4:AS$:10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT":3600:3500:3515:RN1CT%:2100:P%(3)031240EyP%(3)2:2010:3620EzRNE zTA%0SF%1YN$"C"CM%TT%:3300:3310:3330E zF`MM$(12),TR$(11),PT%(1100,1),IM%(12),BF$(2),U TO DO THIS.":TA%0Ė9:"NEW MONTH NOT STARTED":3:"NO AUTOMATIC TRANSACTIONS RECORDED"DyET9TA%0Ė5:"LAST TRANSACTION NOT RECORDED"Dy8:"HIT ANY KEY TO CONTINUE."::AS$DyX(PE%):X12731215DyCS%,0:ET931245uEyET0::8:AS$:1X(PE%):X12731110 CyCS%,0=CySL7X155İ3005:3010CCy\CyTA%0CT%CT%TA%1fCySF%1Cy:8:AS$:::15:BE$;DF$(SF%)::3:BE$"NO NEW TRANSACTIONS MAY BE RECORDED"ZDy"UNTIL A NEW DATA DISK HAS BEEN STARTED.":5:"RETURN TO MAIN MEN0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:B|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"M1%" AND":20(EM$(EM))2:EM$(EM):9:"HIT ANY KEY TO CONTINUE"::AS$B~ySL7Ģ14:" OR PRESS TO RETURN TO MAIN MENU "::AS$Cy頩ť蠅Ӡ堦РӠƠ栠砐Π謠̠ɪق̠𬹠蠌ʠ栠砬Π謠ˠҠ砠𠠠٤٠РͮϠ٭Ҡ笠Р蠠ʠӍ΍ L(WO)1099<jWO100,200,300,400,500,600,700,800,7200,7100KlNG11099Q~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)PT%(RN,1)P%(4)TH%P%(5)HU%H2GO3KBE$;:1104VL16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WOnNEB%1WO9HTHT5}PWO11130RNG0:32,HT1:33,UL(WO)1:34,VP1:35,VPV1:VP:(UL$,UL(WO));^WO2WO81130`1:"";TR$(WO) b(TR$(WO))U"N"TR$(WO)(13)NG1A*NY0:TR$(WO)"Y"TR$(WO)(13)NY1_,(TR$(5),5)"SPLIT"NY1q4TR$(WO)(NY)wz6:6:BE$;MD$:MD$"1"MD$"3"900MF1:(MD$)1MD%MF0:950:MD%(MD$)1MD%2İ400:4100GOMD%1:CTR$(WO)(CR).WO2SL2CH2RN0690lWO2SL2ARCR:BF0:4128:CH2BAOAPM%(SL,OD%):4050rTR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1NY0:TR$(WO)"Y"NY1TR$(WO)(NY) 1:TR$(WO)"TR$(WO)"Y"TR$(WO)R$(6)"-1":6906bCT$""CT$"0"(CR0CRTC%)640flNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640xvCR:NG1:690CC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630CC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630SB:4000:CS14501(TR$(5),5)"SPLIT"İ40007((TR$(5),5)"SPLIT"CH1BF0)(OM1(TR$(5),5)"SPLIT")TR$(8)"1":4000:WO8:5100:WO5:590OM1(TR$(5),5)"SPLIT"İ400NXNG0:NF0:CT$TR$(WO):CR(CT$)ZTR$(6)"SPLIT"T(WO)(TR$(WO),2):600:NG0TR$(WO)(CN$(CR),2)7[SB0:AM$TR$(4):2600:NG1450xXX$AM$:2500:TR$(4)XX$BF1450CS0:(CH2(SL1CH3))(OM1WO5)SBOAPM%(SL,OD%):OM0(TR$(5),5)"SPLIT"SB2SB:CS1BAXYPM%(SL,MD%)R$(WO))UL(WO)NG1:290ASL1MD%0TR$(WO)""TR$(WO)(NX)dSL2TR$(WO)"END"MD%2:290sSL2İ600XC0:(SL1MD%0CH1)290XC1:X1(TR$(WO)):(TR$(WO),X,1)"9"(TR$(WO),X,1)"0"XC0X"1,(TR$(WO),1)"*"TR$(YY4)DD28994TR$(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:NX;1:"";TR$(WO)(T;:D$(Z)DZ$:ZZ1:Z9110I 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 MM2DD2999MM2YY4Z$(21)DZ$D$(Z):135. xDZ$(8)Z1135W }ZZ1:HT1Z:Z6Z3ZZ1:HT1Z` 115 Z1DZ$"M"İ900:GO100,100,180 Z1TR$(WO)""DZ$(13)D$(1)(TR$(WO),1):D$(2)(TR$(WO),2,1):182:180 DZ$"0"DZ$"9"ĺBE$;:115 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,7000-G" ** 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.                                           Y13>WK18:X1,(157RG)Y1X1,157RG:X1X11:K:X1X113K\X:X140pX112:1300:(RJ40Y40)(RJ157Y157)2164qY0YY3rX1,(157RG)YX1,157RG:X2X1:X1X18:X1,(157RG)YX1,157RG:X3X1:X1X113:X3,(157RG)YX2,(157RG)Y20004:3:10:"** HOME ACCOUNTANT **"::16::" BAR-GRAPH ":::13:"BUDGET TO ACTUAL":12:2:"CATEGORY >> ":500:CN$"END"ė:2000R3210:3310:1900:1400:1470:4000:2170:X130:X112:1300:(RJ40Y140)(RJ157Y1157)2140TY10Y1ET TO ACTUAL)"::6:"2. LINE-GRAPH (ACTUAL EXPENSE)"::6:"3. TREND ANALYSIS"::6:"4. MENU":9:"ENTER SELECTION (1-4) ";SL$:(SL$"1"SL$"4")(BM%CM%(SL$"2"SL$"3"))Č198:2020SL$:SL$"4"2400SL(SL$):SL2100,2200,2300:1920JvTLCA(0):XRM(BM%)RM(CM%):TLTLCA(MO(X)):AC(MO(X))TL:X:1950eX012:AC(X)CA(X):Xk:5:10:"** HOME ACCOUNTANT **":12::" GRAPHING MODULE "::16((SN$)2):SN$" "(MN$,(CM%1)31,3)" 19"YS%_9:6:"1. BAR-GRAPH (BUDG(X1)(MA)MACB(X1)0CB(X1)MIMICB(X1)7XFDFMAMI:gRG((MI)((MI)MA)120):MO(0)FE%:RM(0)12FE%:RM(0)0RM(0)12X112:MO(X)MO(X1)1:RM(X)RM(X1)1:MO(X)13MO(X)1RM(X)13RM(X)1X:lTY(CR)5X01:Y027:10008Y1(CB(MO(X))120((MI)MA))YY(AC(MO(X))120((MI)MA))_(yxMI0:MAAC(0):X112AC(X)(MA)MAAC(X)AC(X)MIMIAC(X)X:SL11465CB(1)(MA)MACB(1)CB(1)MIMICB(1)X111CB):(MM(4))(MM(0))FLAG(((MM(4))))7K6:X04dM$((MM(X)10((FLAG4)(FLAG5)).5))sNG(X)1ĂX01:Y0MA%(X):900::X01:Y018:M$"SCALE = X"(10((FLAG4)(FLAG5))):1000:1230RJ157M$"AMOUNTS BELOW LINE ARE NEGATIVE":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)1x]`MA%(1)67:MA%(2)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))Ӎ΍ #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 mlllllllll6666mlll66666666666666ml fmlf.mlllllllllllllllll666666666666666666mlfmlfmlf            4:SC$(2)" (1-3) "(95);XE17:26:CH$:CH$"1"CH$"3"(CH$"3"CM%MS%)ĺBE$;:800nFCH$:CH(CH$)48HYD1İ340:XRP:YRP:EMRP:BMRP:843J350:XBM:YEM;KPE%RM(EM)RM(BM)1:B1ST(2,X):B2TS(2,Y):YD2B10:B20:FRM(X)RM(Y):B1B1S"::"2. PRINT RANGE OF MONTHS"::"3. MENU":L/4:SC$(2)" (1-3) "(95);y417: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":D),1)İ1800:LP50CRTC%PNPN1:1290:1460<CR:1850YTY:790:(12):90:700_rTY4TY57991900:TY6İ1950TY6PNPN1:1290:1460 RF24:CF0:NI0:LP0:RT2:PF1:Z0:PN1:PE%1:300.*305::"1. PRINT MONTH4: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$(CR600 "TY4TY5CH2699=1700:TY6TY8İ1650\TY8PNPN1:1290:1360bRF31: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:CH4685;qCH2PF1Yv1200:80:85:1300:1360TY17:690:1400:CR1TC%:(TY)(CN$(CR),1)İ1500:LP50CRTC%PNPN1:1290:1360CR:TY6(CH1CH3)İ1600CH2ĺ" "TY:690:(12):90:0SL600,700,800:400$3005.3010cXTY0: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$"4EM(EM$):RM(EM)RM(BM)RM(EM)RM(CM%)(RM(EM)RM(MS%)CH3)Č1052:365]o:8:22:EM:pTY0: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:SL450TH>> ";Nc32,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%)JnPB% @7 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 MON36,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%;:Q:RT1ĺ"--------":110# i"") nS 36,26:Q1EP:"------- ";:Q:" ": 36,26:Q1EP:"------- ----- ";:Q:" ": 36,26:QRM(MS%)12:"======= ";:Q:TY6ĺ"========":210 "" 36,26:Q1EP:"======= ";:Q:" ":+ OF FORM "::6:" "(SM$(2),13)" ":::AS$3 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);:A ((BL$(((F1.5))),PL);NS$(F1(F1));:\ 2F1(TL.5):PL8:40:w <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 2! ** PRINTE ** 5.17.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):                  XY)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 v11)DD3099MM2DD2999@MM2YY4(YY4)DD2899dTR$(WO)MM$DD$YY$:LD$TR$(WO)jr 1:"";TR$(WO)(TR$(WO))UL(WO)NG1:290SL2TR$(WO)""İ600",SB0:AM$TR$(WO):2600:NG1450XX$AM$:DZ$"0"DZ$"9"ĺBE$;:115? DZ$;:D$(Z)DZ$:ZZ1:Z9110i 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 (MM4MM6MM9MM),3,2)"/"(TR$(WO),2);( iZ1:HT:WO7A nZ3Z6ĺ"/";:ZZ1j 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)180 :8:AS$::15::" PRINTING "::7:" PLEASE DO NOT INTERRUPT ":::13:" TO ABORT"::AS$:r ZCH2180 \:WO0:HT15:7:"REPORT DATE >>":100 cBE$; dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(WO *** 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":d WCT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU"t ::" 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 LINE7 ** PRINT ** 6.25.82 *30000N D$(4):D$"NOMON I,O,C":60000bCB%1WC1:25rWC0İ4500PA0:SL0:6900:3900:3500::M " 1. CHECKBOOK/PRINT CHECKS"::" 2. CREDIT CARD"::" 3. CASH"::" 4. ALL (1-3)"::" 5. SELE                         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; )  --  -  )    ); ); )- ) ) ;; )  ) ))))  ) );; ) ;;) )  ); )? ); )--; ) ;)-- ; )   ; );; - ;; ) ? )  )  -  ) ))))))  - ; ); )  ) ; ); )   - ; );? ;  - ;) ;? ?  -? ;   --  )-; ; )- ; ;?) ; --  ) ; --; )  ; )) -  )   ) ; )? ); ; ;? ); )   )  -  ; ; ;  )  )  ?? ); ) ;) ?? ) ; ) ; ) ?? -? -? -??        ?? ; ) ;    - ; - ;; -- ; ;? );)- )  ;?) )) )) ? ;?) ))- )  ;?) ) - ) );? ?? )  )  )  ) )) )) );? ) )) )  ) ))))) - ) );; ) ;;) ) ) );; ?? ) ))--) ) ;? )  )  ) ;?  ) )) );? ) ) )  ) ) ) ?? ) -)))) ) ) );)))?) ) ;?) )) )) );? ;?) ))-  ;?) ); )   ;?) )))-;) ??  ) )??) ) ;?) ))- ) );? ;?) )) ) );? ;?) )) )) );? ??) )- ) ?? ??) )- )  ??) ) ?) ) )- ) );? ?? ); ) ; ; ;?) ) - ) );? ;?) ) -- ?        ) ; ; ) ;) ; ) ;  ?? ??  ; ) ; ); ) ; )--       ); ) ;)  ;?) )?)));) );?  -  )  ) ;? ;?) ) ) ;) ?? ?? ); ) ) );? ; ) ;;) ?? ; ??) ;? )) );? ? )-  ;) ); ) ;) -? ;))  ) ?  )     )     )  )));? ) ;?)))  ) )-- )     ) ;  Ѝ΍!;;[;;[;;@(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Ѝ΍"