' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]E˵B̵CõDĵEµµBD ĵ ⵭µLj` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 ᷈LɍL巬 췌`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,&" ۰!õĵ񷮻ʊֵ׵ Rĵ µL  !"#$%&'()*+,-./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:-,,-6,,-+0-;9-#0-,31-*(E(B;+4! h8+3 10PX !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌` L ۰L8õ浍õĵBD`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ťܥm2<(-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 켍ٶ׶ L{ BH [ h`Lo õ ڬL 켍׶ٶ 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볩쳢8DH 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뷭鷭  Lª 뷰` Lk ݵܵߵ޵ ^`8ܵ i B8` 9L%ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵BֵO G굎뵎쵬 뵎쵌`` ַ յյ`@ +õm浍õĵ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 ~(`F d֠ĭz#ϠԠϠŠɭӠϠ ŠӠޠîΠϠ"Fzz` u`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:1000:1:&0uET(222):EL(218)(219)256&5uEL315ET8İ31070:&7uEL315Ħ&8uEL307Ħ':uEL310Ħ5: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$"'S' = SAVE":1000:%5:Y2025:205,Y225,Y::X0223:Y018:M$" = ACTUAL":K6:7:1000>&X0223:Y018:D$"CLOSE HARDWARE"#$<D$"CLOSE":`$:16302,0:7:1:0:X01:Y00:K15:SL2M$NAME$:950$2:Y173188:0,Y279,Y::Y175186:4:10,Y270,Y::7:X2628:X,37X,160::Y157RG160RGV%29,Y279,Y:Y:7:M$"**** HOME ACCOUNTANT ****":X01X)# X,CR:&# D$"CLOSE CATACT":G# D$"OPEN HATRANS,L80,D"ND%:# D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%CV%# # D$"CLOSE HATRANS":#D$"OPEN HARDWARE,D1":#D$"READ HARDWARE":FT%:X113:XX$:X:ND%:D$:$UD,R101":SN$,BM%,YS%,FE%:3" D$"CLOSE CATBUD":T" 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),X)CA(CR,,D1"%! D$"OPEN CATNAME,L27,D"ND%:e!& D$"READ CATNAME":X0TC%:CN$(X):TY(X)((CN$(X),1))::~!: 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 CATB:K6:7:X0105:Y01:1000:5:r 2:H08:186,H194,H::M$EQ$((CN$(CR),2,10)):K6:7:X0197:Y01:1000:2: D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1":! 3900::10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENUYMAX#A EPM12B:BPMRM(BM%)B6F BP(MA)MABPIK EP(MA)MAEPZP PBMIMIBPkU EPMIMIEPqZ  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))157RG)Y1X0,(157RG)Y> X11,(156RG)Y1X01,(156RG)YM X1X0:Y1YS k( 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:BAPEEP120((MI)MA):PBBP120((MI)MA)U 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,(:"ALREADY SELECTED":K11000:::ZZZZ11::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) :CRRN(Z):3310:1900:2700:2500:Zf50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2200ZZ2RN(1)RN(2)Č198:DR1:12:14::"ALREADY SELECTED":K11000:::ZZZZ1+ZZ3(RN(1)RN(2)RN(1)RN(3)RN(2)RN(3))Č198:DR1:12:14::" TO RETURN TO MENU"%ZZ0:Z13EDR0:500:CN$"GRAPH"2270YCN$"END"2000ZZZ:RN(Z)CR:Z1İ2290:DR122323310:1900:1400:Z1AMMA:IMMI:2260MAAMAMMAMIIMIMMI$MAAM:MIIM:1470:4000:2170:Z1ZZ2180v:3:10:"** HOME 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";::223:Y027:K6:M$" = ACTUAL":1000:2180ZzNG(1)0:NG(3)0:RJ157RG:RJ157İ1100:2179s{RJ85RJ115İ1105|RJ37RJ85İ1110}RJ115İ1115~RJ37İ11201200:50::::X112:AC(MO(X))0::X112:CB(MO(X))0::2100157Y157)2164qY0YY3rX1,(157RG)YX1,157RG:X2X1:X1X18:X1,(157RG)YX1,157RG:X3X1:X1X113:X3,(157RG)YX2,(157RG)YtX(uY2025:205,Y225,Y::X0223:Y018:M$" = BUDGET":K6:1000:205,28225,28225,34205,34205,28:X0Y >> ":500:CN$"END"ė:2000R3210:3310:1900:1400:1470:4000:2170:X130:X112:1300:(RJ40Y140)(RJ157Y1157)2140TY10Y1Y13WK18:X1,(157RG)Y1X1,157RG:X1X11:K:X1X113\X:X140pX112:1300:(RJ40Y40)(RJR SELECTION (1-4) ";XSL$:(SL$"1"SL$"4")(BM%CM%(SL$"2"SL$"3"))Č198:2020oSL$:SL$"4"2400SL(SL$):SL2100,2200,2300:20004:3:10:"** HOME ACCOUNTANT **"::16::" BAR-GRAPH ":::13:"BUDGET TO ACTUAL":12:2:"CATEGOR:5:10:"** HOME ACCOUNTANT **":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:"ENTE0)FE%:RM(0)12FE%:RM(0)0RM(0)12cX112:MO(X)MO(X1)1:RM(X)RM(X1)1:MO(X)13MO(X)1yRM(X)13RM(X)1X:lTY(CR)51920vTLCA(0):XRM(BM%)RM(CM%):TLTLCA(MO(X)):AC(MO(X))TL:X:1950X012:AC(X)CA(X):Xr0):X112#AC(X)(MA)MAAC(X):AC(X)MIMIAC(X)MX:SL11465fCB(1)(MA)MACB(1)}CB(1)MIMICB(1)X111CB(X1)(MA)MACB(X1)CB(X1)MIMICB(X1)XDFMAMI:RG((MI)((MI)MA)120):%MO(1Ă^X01:Y0MA%(X):900::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()1 ]}`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))):(MM(4))(MM(0))FLAG(((MM(4))))K6:X04M$((MM(X)10((FLAG4)(FLAG5)).5))NG(X)MM(0)(MA):MM(1)0:MM(2)((MI3)):MM(3)((MI23)):MM(4)((MI)):MA%(1)MA%(0)10NG(1)1fX[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(3MM(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(2)0:MM(3)((MI.5)):MM(4)((MI)):`VMA%(1)RJ3:MA%(2)(RJ(157RJ3)3):MA%(3)(RJ(157RJ3)23):CXCRĢ12:13:HR$:HR$(13)665, 2 N 12:14:(CN$(CR),2):g M$(BL$M$,4):1000 J1(M$):A((M$,J,1))31 1010 J1(M$):A((M$,J,1))31 AX0,Y0:X0X0K :8LMA%(1)67:MA%(2)97:MA%(3)127:MM(0)(MA):"";CN$::CN$"END"(CN$"GRAPH"SL2)580V CN(CN$):(CN$)ULCN$""CNTC%499i &650:NF1500 DCNCR:19:10:NAME$(CN$(CN),2,18): NF0:CN0CNTC%CRCN:700:680 CR1TC%:CN$(CN$(CR),2,(CN$))İ700:670 CR:NF1:680& INTERRUPT"::11::" NOW SAVING GRAPH ":::AS$:D$"BSAVE ";(BB$,10);",A$4000,L$2000,D";ND%s r31070:16368,0 wPK(16384):PK127375 |D$"VERIFY HADATA,D"ND%"  BE$;+ UL25:32,13:33,26:34,11:35,12:1:12:868:(UL$,UL);:1:10ĺD$"VERIFY HADATA,D";ND%:198:EF%1:300N ;ET8ĺD$"VERIFY XYZXYZ,D"ND%c =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 NOT 0:X0X021:278,37278,160::279,37279,160:Y037:Y15:28,Y0278,Y0:Y0Y031:X g ,EF%O:EL0 .PICFLAG0:31050:16368,0 1PK(16384):PK127305 2PK155Ĺ16368,0:390 3EL307ĺD$"VERIFY HAPROG,D";ND%:198:EF%1:300, 6EL3$! ** GRAPHS ** 11.15.82- 30000828457I60000:2000u2PK(16384):PK199İ200:16368,0:505PK211İ300:607PK12750<16368,0:X038:GD((1)7)1:GD4GD5GDR X112:X0,37X0,160:X01,37X01,16             ))XTC:EF1*X:EF17480(*7500U*8PK(16384):PK155ČBE:16368,0:MD%2f*: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)*=C074904+?WC6"0"BRIM%(MI%)BR1))RNBRER:2100L)CH2(P%(3)0P%(7)0)7480])EF0:X1PC~)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)500:7490E(TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)K((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)M%13OM%1-'HERIM%(OM%)1:MO%CM%ERCT%C'RERBRNG1:7290M'T5100W'WEB%0]'zv'X010:TR$(X)"":X|''PF0:CH2EC1PF1'80:'STSL:CT%IM%(0)7490'CH7350,87:TR$(10)""7405'RN(TR$(10)):2100 (3510:7H1:6300&O&(TR$(WO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG1U&_&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:OONTINENTAL SOFTWARE":A$(2)"11223 S. HINDRY":A$(3)"LOS ANGELES,CA 90045"]%(7600:85:6405c%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 &vC"N"ĺBE$;:6403&$PA0:YN$"Y"PA1f$:8:AS$:12:AS$:10:"DO YOU WANT A TEST CHECK (Y/N)? ";$ TZ$:TZ$"Y"TZ$"N"ĺBE$;:6410$TZ$"N"6490I%TR$(1)LD$:TR$(2)"1001":TR$(3)"CHUCK SMALL":TR$(4)"3001.27":TR$(5)"TEST CHECK":A$(1)"C:PF1:8,20:83:768:(12):85?#WO$"A"WO$SJ$ČBE:6330b#WO(WO$)64:1100:MD%26380q#WO96370{#5100#6330#MD%0:#3600#PF1::8:AS$:12:AS$:10:"DO YOU WANT TO INSERT ADDRESSES (Y/N)? ";$YN$:YN$"Y"YN$2İ6400:6900"6300!"6000'"8" GOSUB 3500f"EB%0:MD%0:SA0:TL0:C0:MF0:BF1:4100v"7300:4200"23:28:WO$:WO$"X"6302"WO$"S"ĺ:BF0:7400:85:6900:6302"WO$"M"İ900:MD%26380"MF1MF0:6310 #WO$"P"CH0!uSI$"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$):CH> WO6(WO2SL2TR$(WO)"")ĺ(CN$((TR$(WO))),2):5190X 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!pWC$:WC$"1"WC$(CB%1)ČBE:4535EWC$:WC(WC$):WCCB%1WC6S40190,WCYVPWO7:HT13:SL1WO7VP6WOEB%1WO9HTHT5PA1TR$(0)""VPVPX1:HT:VPWO8SL15190 WO6(TR$(WO))1ĺ"SPLIT":5190$(SL,1)" 3)END"W:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"]DmCB%14590SL5:6900:CK$(CB%1,1)"ALL"8:8:"CHECKBOOK/NAME":X1CB%1:8X2:5:X". "CK$(X,1):::8:"SELECT (1-"CB%1") ";#HW)).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)PL$P$(1)I(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):(fPS%(HW$(1))(X(0):VN$"2.01 AUSTRALIA":(HW$(,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):b'3800:3810:3830l'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):PNTER SELECTION,LETTER TO EDIT,(R)RECORD,(P)PRINT,(X)CANCELb&X19:MU$(X):X:X06:SC$(X):X&SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY."L' 6,17,1,7,30,1,8,29,1,12,7,3,12,13,3,12,19,3,12,25,3,12,31,3%%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 NEW YEAR,HARDWARE/START NEW SYSTEM,EXIT:&~ ** HOME ACCOUNTANT **,MAIN MENU,E:7:(SM$(2),12)::AS$#$Nz200:$}:8:AS$::6:BE$"WRONG DATA DISK FOR FUNCTION":20(MU$(SL))2:MU$(SL):7:(SM$(2),12)::AS$$ }200:$`X038:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*"::D$(4):3900:3005:BE$(7):#|yBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::AS$#y200:$DzBE$::8:AS$::2:"REMOVE ANY DISKETTE FROM DRIVE # 1 AND":3:"INSERT HOME ACCOUNTANT PROGRAM DISK."7İ3200:3224:3230:3005:3795:3820:38302"U"0uET(222):EL(218)(219)256l"DuEL6200EL6205Ħz"NuET255Ħ"XuET9(EL3005EL620EL610)İ31300:"buET9EL3000İ31100:#yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0S%:FT%4:6500!CV%CV%12!dZ0:UR$"N"6560B!n3500:3600U!xX1CT%:3610m!(PT$,1)"2"6550!ZZ1:3620:3510:3520!X!3900!CT%Z:SF%0:IM%(CM%)CT%1:IM%(0)CT%:3500:3515:3300:3326:3322:3900!3400:3900,"SL6350 LY$"Y"İ2800:3200^ 3100:3110:3130:3300:CR1TC%:3310:LY$"Y"İ2700:3220 (CN$(CR),1)"5"āX012:AC(X)0:X:6335 X112:AC(0)AC(0)AC(X):AC(X)0:X 3320:CR:3900 CV%1:MS%FE%1:MS%13MS%1:YS%YS%1!CM%MD$"CLOSE HARDWARE":(<D$"CLOSE":283000B=3500:3505zB(SL6SF%4)(SL7SF%3)SF%1İ32000:3900:65903200:3205:3222:3900:8:AS$::7:"PREPARING NEW DATA DISKETTE":::8:" PLEASE DO NOT INTERRUPT ":::AS$ SL6T,R"Z:(PT$,4);"0":TP%:D$:7.D$"CLOSE HAPOINT":SD$"DELETE HARDWARE,D1"oD$"OPEN HARDWARE,D1":D$"READ HARDWARE":FT%:SL114:HW$(SL):SL:PS%(HW$(1)):ND%(HW$(14)):D$:D$"WRITE HARDWARE":FT%:SL114:HW$(SL):SL:D$:):Y:D$:Q D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:SF%2VC%CV%W  D$"WRITE HATRANS,R"Z:Y05:TR$(Y):Y:D$: D$"CLOSE HATRANS":D$"OPEN HAPOINT,L11,D"ND%:D$"READ HAPOINT,R"X:PT$,TP%:D$:$D$"WRITE HAPOINTACT,R106":X012:IM%(X):X:D$:; D$"CLOSE CATACT":UH D$"OPEN BUFFER,D"ND%qR 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$"READ HATRANS,R"X:Y05:TR$(Y:B 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:X08:CK$(X):X:1:D$:WC: D$"READ CATACT,R106":X012:IM%(X):X:D$:# D$"WRITE CA2 D$"WRITE CATBUD,R"CR:X112:CA(X):X:D$:c D$"READ CATBUD,R101":SN$,MS%,YS%,FE%:D$: D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$: D$"CLOSE CATBUD": D$"OPEN CATACT,L130,D"ND%: D$"READ CATACT,R"CR:X012:AC(X):X:D$CN$(X):X:D$:L0 D$"WRITE CATNAME":X0100:((CN$(X)AS$,26):X:D$:e: D$"CLOSE CATNAME": D$"OPEN CATBUD,L84,D"ND%: D$"READ CATBUD,R0":TC%:D$: D$"READ CATBUD,R"CR:X112:BA(CR,X):X:D$: D$"WRITE CATBUD,R0":TC%:D$: X112:RM(X)RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1R RM(X)13RM(X)1a X:MS(0)0gJ  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D"ND%: D$"VERIFY HAPROG,D1": D$"OPEN CATNAME,L27,D"ND%:& D$"READ CATNAME":X0TC%:"Y"SN$"N"Č1052:12308SN$:SN$"Y"FT%0:EF1> ^ TL0:(CN$(CR),1)"5"2710 TLAC(0):XRM(MS%)RM(CM%):TLTLAC(MS(X)):CA(MS(X))(TL.5):X:2790 X112:CA(X)(AC(X).5):X  MS(0)FE%:RM(0)12FE%:RM(0)0RM(0)12"CM$" "CM$" ->"CM$:BRIM%(CM%):ERCT%:SJ$" TR#->"CT%0MD%0Ģ6:"MODE 1)";::CH$(SL,0);::" 2)"CH11,D"ND%:B"D$"WRITE HAAUTOPOINT,R"RN:20000:1000Y100:D$:_"D$"CLOSE HAAUTOPOINT":{"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:DD$"CLOSE HATRANS":4!D$"OPEN HAPOINT,L11,D"ND%:b!$D$"WRITE HAPOINT,R"RN:11111:1111:D$:{!.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,LCLOSE CATACT":) H D$"OPEN BUFFER,D"ND%E R D$"OPEN HADATA,D"ND%:f 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% ! ACT,R"CR:X012:CA(X):X:D$:R 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$"R:X112:CB(X):X:D$:g 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 CAT:60 D$"WRITE CATNAME,R"CR:(CN$(CR)BL$,26):D$:O: D$"CLOSE CATNAME":o 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"C D$"VERIFY HADATA,D"ND%:= D$"VERIFY HAPROG,D"ND%:Y 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$(X)13RM(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:o XY(XX$):XXXY:(XY)1000000NG1, C 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((F1)),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,2490&:"(M)MODE":"B "DN$(SL,MD%):"C "PY$(SL,MD%)U"D AMOUNT":"E MEMO":"F CATEGORY"q"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 "^Uh4:868:20(MU$(SL,CH)FMAMJJASOND":X139:AS$AS$"*":BL$BL$" ":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,0T MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::" OR PRESS TO RETURN TO MAIN MENU"::AS$:50w*yPK1552400}*y*`SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY.":D$(4):MA%(0)37:MA%(4)153p+dEQ$"= ":MO$"J)^y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERT MOST CURRENT DATA DISKETTE.":7:(SM$(2),12)::AS$:)cyPK(16384):PK12731075)hy16368,0:f*|y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":4:"INSERANY 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):)Oy8:"PRESS <> TO ABORT"::AS$::PT%(RN,1)::D$:+.D$"CLOSE HAPOINT":GD$"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";:22READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%3 D$:e 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)T,L130,D"ND%:S 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$"OPEN CATNAME,L27,D"ND%:H& D$"READ CATNAME":X0TC%:CN$(X):X:D$:a: D$"CLOSE CATNAME": 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 CATACVXLXX1:VVVV1:VX2VV12640(F X1RH (AM$)1000000(AM$)1000002640\K 2645eP NG1kU  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1": :10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1" D$"(YXWX)100.5)F XX$SN$((XY)1)(WX)"."(("0"(DX),2)"0",2)\ XS$(BL$XX$,10)b k( NG0|- AM$""26452 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640 < (AM$,X1,1)"."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):WX(YX):DX(:P%(6)MD%:P%(7)CP:CPT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)uPT%(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%m>P%(4)1:34,VP1:35,VP,V1:VP:(UL$,UL(WO));@^WO2WO81130S`1:"";TR$(WO)ob(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(MD$)1MD%MF0:950):MD%(MD$)1@MD%2İ400:4100XGOMD%1:CH2GO3^nKBE$;:1104LVPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5OPA1TR$(0)""VPVPX1PWO11130RNG0:32,HT1:33,UL(WO)Y0:TR$(WO)"Y"NY1'TR$(WO)(NY)-= 1:TR$(WO)p"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:;TP$((TY$));(BL$,6):TY$"2"Ģ4:10:(TY$)2" (1-5)"=O2700: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$)GJ1:V2(CH):(UL$,U2(CH));:1:"";S6$(CH):(S6$(CH))U2(CH)1599zT(CH2CH4)((S6$(CH))12(S6$(CH))1)1599YCH1(S6$(CH))21599^CH3(S6$(CH))11599:7TY$(CN$(CR),1)::5:11:(CN$(CR),2):3:24:CR:10:(BL$,8)`0@a0na~``p@a0 ```00`000b0``@@@8ppp|@?`p`?p`~?ppp````008b0|`@?@@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;;[;;[;;Ԃ[[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Ѝ΍ PEL(218)(219)256:ET(222)3ZíET254173188: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       )  )   ;; ;;   ;; ?? ?? ;;  -- -           1570<CR:NF1:TY$""::3:24:" ":4:10:868:1580e"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(CHCN$(Y),2)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:(CH):(UL$,U4(CH));:1:"";CK$(WC,CH):(CK$(WC,CH))U4(CH)1399YCK$(WC,CH)""1499iCH51499X14:(CK$(WC,5),X,1)"0"(CK$(WC,5),X,1)"9"1399X:NF0:TC%01549CN0NF1:1549Y1TC%(CN$BL$,25)(BE$;h:32,19:33,11:34,6CH:35,7CH:1:7CH:(UL$,9)" ";:1:"";XX$:XX$""XX$"0"}(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)A1:V4NG11099j/TY0:4:10:(95)" (1-5)";d10:YT$:(YT$"1"YT$"5")YT$"E"ĺBE$;:1210nYT$;HK$:HK$(13)HK$(8)Č1052:1213:HK$(8)1200YT$"E"CH$"":1230TY(YT$)2:TY$(TY)4:18:TP$(TY);(BL$,8)(UL$,6)" ";:1:"";XX$:XX$""XX$"0"@X(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):5000 g"B"999)(CN$)ULCN$""CNTC%999ORF1CN$(CR)TY$CN$:1700:1080kSL1500,1550,1550,1500z$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:50 7000#4035:CH$"X"900-710039CBE$;[UL25: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$"END"890.*RF1:CXCR:1000:CN$"END"890J/1500:NF1Č1052:810T47000H4035: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)171000:CN$"END"790+ CXCR:795:1710] MF1:4035:CH$"X"İ795:CN$(CR)TQ$NC$:700{ 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$,6400,6600,6200:4007 3005:FT%5İ3800:3820:3830A 3010R XTC%100690o 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 10:14::"6. "MU$(6):; FT%2Ė10:13::"5. "MU$(5):_ 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,6000B(MS(X))):5000:X "X12:E 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ĖD$"PR#0" _- dPK(16384):PK127100= n16368,0:j 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(C6& ** BUDGET ** 8.16.82 AUSTRALIA230000 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 Z                 -);???)) ));;)) ));?;? - - ? )) ; )) ; )) ; )) ; )) ; )) ;? -  ? )); )); ));)- ));;)) ));???) )----;))-- ;))-- ;??)) ;)) ;? -  ;????) -????))----;)) ??;)) ) );?;)) -);???) );????? ----- ??)) ));;)) ));;))---);))-- ????) ;??))---);;)) ));;)) ));;)) -);;??) -????? ----  ;????) -????))----;))-- ;))-- ;??)) ;???) -????? ----- ;????) -????))Ѝ΍PF$(0)NU$P$(0)PF$(0)PF$(1):EC10@aX(0):X1B@aX(0):BHHH$H%H$% G& 0I@ ( h%h$hhh`)).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)::F$(0)PF$(0)(CH)R: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):U((1):RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)!;WHW:HW913:CH((HW$(HW 1,1,1,-1,-1,1,-1,1:FC18:FC(FC):FC:FC09H3900: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):CH0P)C2(MS(X)):X[8FX012: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 12:RM(X)RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1K7RM(X)13RM(X)1R7Xf7RM(0)0:MS(0)0z7(3300:CR1TC%723310:(CN$(CR),1)"5"6022574yMN$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC": BUDGET/ACSK":8:(SM$(2),13)::AS$:95:2|y:8:BE$AS$::" REMOVE ANY DISKETTE FROM DRIVE #"ND%" AND":" INSERT HOME ACCOUNTANT DATA DISKETTE.":7:(SM$(2),12)::" OR PRESS TO RETURN TO MAIN MENU"::AS$:952yPK1555002y3`D$(4):3900:BE$1XuET9EL3005İ31000:61buET9EL3000İ31100:N1luEL6206ET831200]1vuEL6206Ħ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 DIB%:D$:!0 D$"CLOSE HATRANS":=0D$"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Ħ1NuET255Ħ$(1):MS%,CY%,FE%:D$:// D$"CLOSE CATBUD":P/ 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%:0 D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CX0TC%:CN$(X):X:D$:2.: D$"CLOSE CATNAME":R. D$"OPEN CATBUD,L84,D"ND%:u. 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)100F3-60-" "<-LPLP3:260:NI(1)0:NI(2)0:Z- D$"VERIFY HADATA,D"ND%:v- 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":3 ,60," "-,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(F2F3TS(RT,X):CH3F1ST(RT,Y)e+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)100FF30:160:"TOTAL ";:17504*FC1:RT1RT3FC1Q*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+YD1F1F3)100F3)O60&)R" ":LPLP1:A)f160:"TOTAL "TP$(TY);y)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:A(CR,Y)(@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)(F2)).5):40#'" ":NI(1)0:NI(2)06'LPLP3:250:f'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):CH3F1C1TS(RT,X):CH3F1ST(RT,Y)b&{NI(2)NI(2)F1FC:36,34:40:36,42:F1(FC(TY1)(F2F1).5):40k&" "&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(265*%BF2F1:F1TB(TY,X):CH3F1TA(TY,Y)\%F36,34:40:36,42:F1(FC(TY)(F2F1).5):40e%I" "x%N" ":LPLP3:%l150:"TOTAL ";:1750%qFC1:RT1RT3FC1%vTL0:36,26:F1(ST(RT,X).5):PL7:40:NI(1)NI(1)F1FC:CH11920&xF2F1:F0:$RT$(RT);:B$30:36,26:F1CA(CR,X):PL7:40:CH11830j$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:CH118:RT1RT3FC1k#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:20T" ""^" ":LPLP3:("rTY8NI1v"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#FC1F1:ZZ1:X:TY5TLTLCA(CR,0)(CH3):503!""A!6LPLP1:\!@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" PCT.";:1484/ 36,41:(MU$(1),6)" PCT.";K 36,54:"DIFFER. PCT."o (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:TLTLFFER."*(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%"LP3:ExTY6(SL1CH2)ĺTP$(TY):(MI$,(TP$(TY))):" ":LPLP3KZ0: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:"DI":LPLP6: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" ":LPOR":1315;36,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" ":" $D$(7)D$(8):YY(YY$):DD1DD31MM1MM121200Z(MM4MM6MM9MM11)DD301200oMM2DD291200MM2YY4(YY4)DD281200DA$DD$MM$YY$D$: (12)LP0" ":" " SL1Ĺ36,56RF(MU$(SL))2:MU$(SL)" FZ6Z3ZZ1:14Z12205DZ$(13)Z11288WDZ$"0"DZ$"9"Č1052:1225{DZ$;:D$(Z)DZ$:ZZ1:Z91220HK$:HK$(13)HK$(8)Č1052:1260HK$(8)Z8:14Z:12253MM$D$(4)D$(5):DD$D$(1)D$(2):MM(MM$):DD(DD$):YY10:"REPORT DATE>>":V310[Z1: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)Z11245ZZ1:14Z:İ2100:LP50CRTC%PNPN1:1290:14802WCRO\TY:890:(12):90:800UfczTY6899y~2200:TY8İ2250TY8PNPN1:1290:1480B10B11EP3:CH1EP1B20B21B1HU%B1:B2HU%B2::16368,01B1ST(2,MS(F)):B2B2TS(2,MS(F)):F:B1B1ST(2,0)(XMS%):847OLCH1847iMCH3YY1:Y0Y12NB2ST(2,Y):CH2B2TS(2,Y)OYD2CH3B2B1ST(2,EM)*R900:310:1202:80:85:1300:1480:TY67:890:1400:CR1TC%:(TY)(CN$(CR),1)D4:SC$(2)" (1-3) "(95);^E17:26:CH$:CH$"1"CH$"3"(CH$"3"CM%MS%)ĺBE$;:800tFCH$:CH(CH$)48HYD1İ340:XRP:YRP:EMRP:BMRP:843J350:XBM:YEMAKPE%RM(EM)RM(BM)1:B1ST(2,X):B2TS(2,Y):YD2B10:B20:FRM(X)RM(Y):B MONTH"::"2. PRINT RANGE OF MONTHS"::"3. MENU":R/4:SC$(2)" (1-3) "(95);417: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":z #         Ԡ8 Š5ĮԠ H Ԡ  I"Ϡ Ԡ8 îϠ" ͮԠ ȠԠîϠ "    .2.01 12/14/82Р Š" Ԡ:Ӡ&ՠ#ǠCN$(CR),1)İ1800:LP50CRTC%PNPN1:1290:1460BCR:1850_TY:790:(12):90:700exTY4TY57991900:TY6İ1950TY6PNPN1:1290:1460 RF24:CF0:NI0:LP0:RT2:PF1:Z0:PN1:PE%1:3004*305::"1. PRINTMENU":%4:SC$(2)" (1-4) "(95);d19:26:CH$:CH$"1"CH$"4"(CH$"3"CM%MS%)ĺBE$;:720CH$:CH(CH$)48:CH4770CH1EP3340:XRP:YRP1:Y0Y12310:1200:80:85:1300:14604TY15:790:1400:CR1TC%:(TY)():90:600(TY4TY5CH2699C1700:TY6TY8İ1650bTY8PNPN1:1290:1360hRF31:EP1:CF0:NI0:LP0:RT0:PF1:Z0:PN1:300305::"1. PRINT MONTH ONLY"::"2. COMPARE TO BUDGET"::"3. COMPARE TO LAST MONTH"::"4. CH$"4"ĺBE$;:6142lCH$:CH(CH$)48:CH4685AqCH2PF1_v1200:80:85:1300:1360TY17:690:1400:CR1TC%:(TY)(CN$(CR),1)İ1500:LP50CRTC%PNPN1:1290:1360CR:TY6(CH1CH3)İ1600CH2ĺ" " TY:690:(12L4500 SL600,700,800:400*300543010iXTY0: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"%)PnEM(EM$):RM(EM)RM(BM)RM(EM)RM(CM%)(RM(EM)RM(MS%)CH3)Č1052:365co:8:22:EM:vTY0: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:SNG MONTH>> ";Tc32,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$(CMM%PA%PB% @= 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 STARTI1 36,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 ;XC---- ";:Q:RT1ĺ"--------":110) i""/ nY 36,26:Q1EP:"------- ";:Q:" ": 36,26:Q1EP:"------- ----- ";:Q:" ": 36,26:QRM(MS%)12:"======= ";:Q:TY6ĺ"========":210 ""  36,26:Q1EP:"======= ";:Q:" ":O TOP OF FORM "::6:" "(SM$(2),13)" ":::AS$9 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);:G ((BL$(((F1.5))),PL);NS$(F1(F1));:b 2F1(TL.5):PL8:40:} <F1(F110.5)10:PL5 FZR$"":F1(F1)ZR$".0" K(BL$((F1))ZR$,PL);NS$(F1(F1));:1 P:8:BE$;BE$;AS$::1::" SET PAPER AND PRINTER T2' ** PRINTE ** 7.22.82 AUSTRALIA330000 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":400 CN$(TC%),CA(TC%,12),CB(TC%,12                    " ":" PER: ";:Q1CB%:Q". "CK$(Q,1)" ";:Q:" "p+@SA1ĺ(BL$,23HL(PF,4))"*AMOUNT IS NOT PART OF TOTAL"{+A(12)+BSL6SL4+D+L+Q(WCCWWC6)(SLLSSL6)7590+SPK(16384):PK155ČBE:16368,0:MD%2:7590%,VSL1CH2'> "EL:"ERROR CODE >> "ET:216,0:`(yBE$::8:AS$::6:"REMOVE KS,CHECKBOOK,CREDIT CARDS,CASH,ALL,SELECT PERSON/CHECKBOOK,** HOME ACCOUNTANT ** l;X05:TI$(X)::HA$; CHECK ACTIVITY REPORT,PRINT CHECKS,MENU,CREDIT CARD ACTIVITY,,,CASH ACTIVITY,,,ALL ACTIVITY,,;X14:Y13:MU$(X,Y):Y,X< 6,6,24,MERCHANT,MERCHANT,PAID TO,SOURCE,NAME,NAMEL:X14:Y01:CH$(X,Y):Y,Xm:X14:Y01:DN$(X,Y):Y,X:X14:Y01:PY$(X,Y):Y,X: JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC:X112:MM$(X):XR; ACTIVITY REPORT/PRINT CHEC0%9CN$(TC%1):CN$(TC%1)"0SPLIT";93100:3110:3130W93300:3322:3328:3330g93600:36109 CHECK,DEPOSIT,PURCHASE,RETURN,PAYMENT,RECEIPT,CREDIT,DEBIT9 CHECK #,DEPOSIT#,CARD,CARD,CODE,CODE,REFERENCE,REFERENCE+: PAID TO,SOURCEOGRAM DISK":CK$(6,1)"ALL"I8t3900:3800:3810:3830:D$"BLOAD DMP":758vDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):X8y:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$9~3200:3205:3222:323::SN$(0)"-"57gX139:BL$BL$" "::NU$(0)(0)7jTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"S2$"/"S2$:NY$(0)"N":NY$(1)"Y":NY$(2)"Y":AR$(0)"->"8lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PR%(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$(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$"*"FROM DRIVE #"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:uET(222):EL(218)(219)256H4DuET9EL3000EM2:M1%ND%:31100:n4NuET9EL3005EM3:M1%1:31100:4XuET9İ31200:4buET255Ħ4yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:U5|yBE$::8:AS$::2:"REMOVE ANY DISKETTE (ST,Z)""ĺ(HD$(ST,Z)BL$,HL(PF,Z)1);83 Z:H2$(WC)h3#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" 42)u236,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$,3,2)))" "((LD$,2))", 19"(LD$,2)(3" ":" ":Z111:HD$00(1LP2:7800:36,3:"MEM0 : "TR$(5)F1LP2: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 2C0ĺ(10LP4:7800:36,72:TR$(2)60LP2:7800:36,8:TT$U0LP1: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:" ":76501LP6:78TR$(WO)::X3/16:1:"IS THIS CORRECT (Y/N)? ";[/YN$:YN$"Y"YN$"N"ĺBE$;:7605z/: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"(7))""ST4ĺ(NN$(LS,P%(7))BL$,4);=.ST4ĺTY$(LS)" ";L.WC6ĺCW;U." "[.o. 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))" ";*-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%PF1:7600:P%(7)1:2010:3620:7590?,XP%(1)1P%(1)TC%1W,`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),27CR: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)BJ),2)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:1570(UL$,U4(CH));:1:"";CK$(WC,CH):(CK$(WC,CH))U4(CH)1399TCK$(WC,CH)""1499dCH51499X15:(CK$(WC,5),X,1)"0"(CK$(WC,5),X,1)"9"1399X:NF0:TC%01549CN0NF1:1549Y1TC%(CN$BL$,25)(CN$(Y BE$;c:32,19:33,11:34,6CH:35,7CH:1:7CH:(UL$,9)" ";:1:"";XX$:XX$""XX$"0"x(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):1099 j*TY0:4:10:(95)" (1-5)";_10:YT$:(YT$"1"YT$"5")YT$"E"ĺBE$;:1210iYT$;HK$:HK$(13)HK$(8)Č1052:1213:HK$(8)1200YT$"E"CH$"":1230TY(YT$)2:TY$(TY)4:18:TP$(TY);(BL$,8),6)" ";:1:"";XX$:XX$""XX$"0";X(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):5000gNG1999$(CN$)ULCN$""CNTC%999JRF1CN$(CR)TY$CN$:1700:1080fSL1500,1550,1550,1500u$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$70004035:CH$"X"900(7100.4>BE$;VUL25: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""890)*RF1:CXCR:1000:CN$"END"890E/1500:NF1Č1052:810O47000|H4035: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)175000:CN$"END"790& CXCR:795:1710X MF1:4035:CH$"X"İ795:CN$(CR)TQ$NC$:700v 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,6600,6200:4002 3005:FT%5İ3800:3820:3830< 3010M XTC%100690j 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 104::"6. "MU$(6):6 FT%2Ė10:13::"5. "MU$(5):Z 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,6400X))):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:1PR#0" _( dPK(16384):PK1271008 n16368,0:e 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(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$"                    CH$"A"(TY$"1"TY$"2"TY$"4")ĺBE$;:4035_&CH(CH$)64:CH1200,1000:XCH3:CH34060y&CH3VV0:CH0:4055&XRM(BM%)ĺBE$;:4035&VVCH2:1100:4060&CHRM(CM%)İ1300:4060&BE$;:4035&CH2CH$(15)İ2700:5100'Ģ23: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.&5:MN$(MS(X)):X:X0U$4:5:"TYPE ":((SL2SL3)TY2)SL1Ģ4:12:"(1-5)"x$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:ND%:="D$"WRITE HAAUTOPOINT,R"RN:20000:1000Y100:D$:Z"D$"CLOSE HAAUTOPOINT":v"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$:OSE HATRANS":/!D$"OPEN HAPOINT,L11,D"ND%:]!$D$"WRITE HAPOINT,R"RN:11111:1111:D$:v!.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" CATACT":$ H D$"OPEN BUFFER,D"ND%@ R D$"OPEN HADATA,D"ND%:a 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$"CL"CR:X012:CA(X):X:D$:M 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$"CLOSE112:CB(X):X:D$:b 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,R0 D$"WRITE CATNAME,R"CR:(CN$(CR)BL$,26):D$:J: D$"CLOSE CATNAME":j 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:X D$"VERIFY HADATA,D"ND%:8 D$"VERIFY HAPROG,D"ND%:T 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$:13RM(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)1F1)),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,2490!o XY(TY$));(BL$,6):TY$"2"Ģ4:10:(TY$)2" (1-5)"8J2700: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$((1:V2(CH):(UL$,U2(CH));:1:"";S6$(CH):(S6$(CH))U2(CH)1599uT(CH2CH4)((S6$(CH))12(S6$(CH))1)1599YCH1(S6$(CH))21599^CH3(S6$(CH))11599:2TY$(CN$(CR),1)::5:11:(CN$(CR),2):3:24:CR:10:(BL$,8);TP$(3005İ31000:)6buET9EL3000İ31100:D6luEL6206ET8İ32000:S6vuEL6206Ħ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:(BM%:3515:39005c5XCH0: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Ħ6XuET9EL(CH$"A"CH$"D")CH$"R"CH$"P"CH$"X"ĺBE$;:6610m4CH$:CH(CH$)64:FT%5(CH2CH4)ĺBE$;:66104CH$"P"İ80:66104CH$"X"66004CH5İ1600:5600:CF1:66104CF1İ3224:32304FT%2FT%3:27105FT%5İ3500:3505:CM%C,0)(CR1):AF1"3<FT%3FT%4N3FAF1CB%CB%1:3900:3500:3515:3530d3PCF1İ3300:33243U3200:3215:3900:64003c3CF0:4600:3200:FT%2İ3222:CH14:5600:CH:66103CF1:CH14:1600:5600:CH8423:28:(95);:28:CH$:(CH$"A"CH$"G")CH$"R"CH$"P"CH$"X"ĺBE$;:6410O2CH$:CH(CH$)64f2CH$"P"İ80:6410x2CH$"X"64002CH8İ1400:5400:CF1:641032FT%3WC$"A"TY2:CN$"CHECKBOOK #"(WC):6000:TY1:CN$"CASH ACCOUNT #"(WC):6010:CF1:CK$(W"İ4400:WC$"A"āCH17:5400:CH51WC$"M"6499P1CB%0WC1:AF1:4400b1WC$"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:CH92 23:28:(95);:28:CH$:(WC,9)"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$"METTE":::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:332020LCR1100:CN$(CR)(AS$,26):3120:3220:3320:CR:WC15:CK$6240D.: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:62022/@:8:AS$::7:"PREPARING NEW DATA DISKX:a-20:868:TY5TY$"5"Ģ20:"TOTALS>>";:9:F1TB:2100:19:F1TA:2000:32:F1TD:2100:g- -:V4(CH):H4(CH):CK$(WC,CH):-:V2(CH):H2(CH):S6$(CH):-p3100:3200:3222:3300:3205-zSL600,700,800,900-.832000:PK1559999CB(MS(X))999999:5002H,CB(MS(X))99999CB(MS(X))99999:5002a,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:M NAME: ";::"A"::W+ "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))99(WC$"1"WC$(CB%))WC$"A"WC$"P"WC$"M"ĺBE$;:4535X*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":+"SYSTE(1))2):S6$(1)" "MN$(CM%)" 19"S6$(3)::13:"CHECKBOOK MENU"::Y)"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":1(X:"C";::" CITY":K(b:"D";::" STATE":h(g:"E";::" ZIP CODE":(l:"F";::" BANK":(v:"G";::" ACCOUNT#":((3300:FT%2āWC1CB%:3322:WCA)::10:SC$(0):18:SC$(1):S6$(1)""Ė16((S6$4035'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(S6$(1))2):S6$(1)" "MN$(CM%)" 19"S6$(3)::13:"CHECKBOOK MENU"::^)"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$(N:"B";::" ADDRESS":6(X:"C";::" CITY":P(b:"D";::" STATE":m(g:"E";::" ZIP CODE":(l:"F";::" BANK":(v:"G";::" ACCOUNT#":((3300:FT%2āWC1CB%:3322:WCF)::10:SC$(0):18:SC$(1):S6$(1)""Ė16( '4035'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":3&CH$"A"(TY$"1"TY$"2"TY$"4")ĺBE$;:4035d&CH(CH$)64:CH1200,1000:XCH3:CH34060~&CH3VV0:CH0:4055&XRM(BM%)ĺBE$;:4035&VVCH2:1100:4060&CHRM(CM%)İ1300:4060&BE$;:4035'CH2CH$(15)İ2700:5100S%0Ģ23: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:403512:5:MN$(MS(X)):X:X0Z$4:5:"TYPE ":((SL2SL3)TY2)SL1Ģ4:12:"(1-5)"}$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);:P$:#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:X1,9,27,25,1,1,2,4&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):(0):3830=FT%161000 =3000c=33000:3200:3205:3222:3500:3505:3900:FE%(S6$(4)):2710y=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$(09,12,14:X17:V4(X),H4(X),U4(X):v< 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:):X:X17:MU$(X):X:X06:SC$(X):Xz;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,1R,MAY,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)c9eX038: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,APVE ANY 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$:9`D$(4):3900:BE$(7SM$(2),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:"REMOO)1:34,VP1:35,VP/V1:VP:(UL$,UL(WO));C^WO2WO81130V`1:"";TR$(WO)rb(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)MD$"1"MD$"3"9004MF1:(MD$)1MD%MF0:950G:MD%(MD$)1^MD%2İ400:4100vGOMD%1:CH2GO3|KBE$;L16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WONEB%1WO9HTHT5PWO11130RNG0:32,HT1:33,UL(WR$(WO)"N"NG1+NY0:TR$(WO)"Y"NY1=TR$(WO)(NY)CS 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$:(CR),1)"4"CC1:NF1630/CC1NG1:690m:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630TR$(WO)(CR)WO2SL2CH2RN0690WO2SL2ARCR:BF0:4128:CH2BAOAPM%(SL,OD%):4050TR$(WO)""TR$(WO)"Y"T(TR$(5),5)"SPLIT"İ400NCXNG0:NF0:CT$TR$(WO):CR(CT$)}ZTR$(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$SPLIT"SB2SB:CS1<BAXYPM%(SL,MD%)SB:4000:CS1450[(TR$(5),5)"SPLIT"İ4000a(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:590OM1C0 X"[,(TR$(WO),1)"*"TR$(WO)(TR$(WO),2):600:NG0TR$(WO)(CN$(CR),2)aSB0:AM$TR$(4):2600:NG1450XX$AM$:2500:TR$(4)XX$BF1450CS0:(CH2(SL1CH3))(OM1WO5)SBOAPM%(SL,OD%):OM0(TR$(5),5)"(WC,8))1:NX;!1:"";TR$(WO)B(TR$(WO))UL(WO)NG1:290kSL1MD%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"X3099MM2DD2999:MM2YY4(YY4)DD2899^TR$(WO)DD$MM$YY$:LD$TR$(WO)dMM$D$(4)D$(5):WO6:HT:" ":(MM$)CM%ĢWO6:HT::BE$;BE$"WRONG MONTH":WO7:HT8:(SL1CH1MD%0)2201:NX(CK$5! DZ$"0"DZ$"9"ĺBE$;:115D DZ$;:D$(Z)DZ$:ZZ1:Z9110s 182:HK$:HK$(8)HK$(13)ĺBE$;:145 HK$(8)125 DD$D$(1)D$(2):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299(MM4MM6MM9MM11)DDDZ$:DZ$(21)DZ$D$(Z):1355 xDZ$(8)Z1135^ }ZZ1:HT1Z:Z6Z3ZZ1:HT1Zg 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:15 O PPS%0ĺBE$;:90A R8,20:;:D$"PR#"PS%:PF$(1):768Q ZD$"PR#0":[ cBE$;| 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:00,7000,9000,4500,8000:SL725: -77:MS1:3000:10000J /3300:3320e 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" 5. SELECT 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,70G) ** TRANSA ** 11.16.82:AUSTRALIA530000Y D$(4):D$"NOMON I,O,C":60000uCB%1WC1:WC$"1":25WC0İ4500WC$(WC):SL0:6900:3900W ::" 1. CHECKBOOK"::" 2. CREDIT CARD"::" 3. CASH"::" 4. START NEW MONTH"::                         !::" 2)"CH$(SL,1)" 3)END"c&:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"i&Dy&CB%14590&TI$(5)"SELECT PERSON":6900&10:8:"CHECKBOOK/NAME":&X1CB%:10X2:5:X". "CK$(X,1):'::8:"SELECT (1-"CB%")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)";::CH$(SL,0);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:"(X)CANCEL (2500#BA0ğ)#VB:HB:XS$:BA0:/#L#1:6:958:MD%1MD%0V#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:"N"($ BF1(HW$(1)):@"D$"WRITE HARDWARE":FT%:X114:HW$(X):X:D$:Z"D$"CLOSE HARDWARE":k"<D$"CLOSE":":SL1AR(CK$(WC,0))"VB17:HB31:RR1VB15:HB23"SL3AR(CK$(WC,0))1"SL$"3"4090#Y012:BABACA(AR,Y):Y:XX$(BA):11,D"ND%:C!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%(HW$(14)):PS%D$"WRITE HAPOINT,R"RN:PT%(RN,0):PT%(RN,1):D$:J .D$"CLOSE HAPOINT":j 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 HAAUTOPOINT,LT%:CM%:CV%:SF%:LD$:CB%:D$:T D$"WRITE HATRANS,R"RN:X05:TR$(X):X:D$:m D$"CLOSE HATRANS":D$"OPEN HAPOINT,L11,D"ND%:RP13614MS0:10000:D$"READ HAPOINT":X0CT%:PT%(X,0),PT%(X,1):X:D$:RP1:SL4İ69001 $X)IM%(MI%)MI%X X:D$:6 D$"CLOSE CATACT":TH D$"DELETE BUFFER,D"ND%:u 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 HATRANS,R0":CF 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:IM%(X)0ĭIM%(:7 D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$:O D$"CLOSE CATBUD":p 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)HU%:X,CR:D$:D$"OPEN CATNAME,L27,D"ND%:K& D$"READ CATNAME":X0TC%:CN$(X):X:D$:u0 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%,YS%,FE%:D$."VXLXX1:VVVV1:VX2VV12640+F X1UH (AM$)1000000(AM$)1000002640_K 2645hP NG1nU  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1": :10:AS$:14:AS$:12::11:" LOADING MAIN MENU "::20:D$"RUN HAMENU,D1" ((YXWX)100.5)I XX$SN$((XY)1)(WX)"."(("0"(DX),2)"0",2)_ XS$(BL$XX$,10)e n( NG0- AM$""26452 LX(AM$):VV07 X11LX:(AM$,X1,1)"9"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640#< (AM$,X1,1)"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):WX(YX):DXSL:P%(6)MD%:P%(7)CP:FPT%(RN,0)(P%(1)TW%)HU%P%(2)TE%P%(3)xPT%(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%p>P%((AC),1)"6"TM%1B6DCA(AC,EM%)CA(AC,EM%)(TR$(4))MP%(TM%,MD%)d6N4050:3520:2000:2010:3620j6S6X3500:3600:SI$"H":SV15:SJ$"I":HC$"":H$"":GH$"G":6900:::::X13:3:" "X" "MU$(SL,X):::::6:"ENTER SELECTION(1-3) ";7bCH$:69605*CF16995*50TR$(8)"2"6990<51EM%(TR$(0))\52XC1CH1CK$(WC,8)TR$(2)m55CH1İ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),1)"4"(CN$:3788 4w4::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%:TR$(0)(CM%):"P"ĺ:80:672033JWO$"M"İ900:MD%2K5:6780[3OWO$"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:67203|K437306792M2/GH$"H":H$"H":HC$"CLEARED":SL1:6900:BF1:4240:3900:3700:3750m21K15:RN0:ZZK(5(WC1))233710:3760:210026410028TR$(1)""TR$(1)"01"("0"(CM%),2)(YS%)2;WO18:5100:WO2@23:28:WO$:WO$"X"ĺ:67073EWO$:ERCT%:BR(CK$(WC,9)):BF0:OT(0)0:OT(1)0:RNBRER:2100\1P%(3)0LS1CWWC6680f135101WO$"S"İ7500:MD%2RNER:66881TR$(8)"0"OT(MD%)OT(MD%)(TR$(4)):OS%0OS%1:CK$(WC,9)(RN)173501 RN1"2,SF%0İ31210:CKBOOK:":FR1ĺ"RECONCILES....CONGRATULATIONS":6550p0"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:65500<1OS%0ANDING 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)150:"YOUR CHEEXIT ";:OK$::OK$"Y"OK$"E"Č1052:6500@.hOK$"E"6590m.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$"(-)"/s:"OUTST5100-6330-MD%0:;-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 CORRECT(Y/N) (E),3610:RN0:EB%0:MD%0:MF0:BF1:41009,7300:4200X,23:28:WO$:WO$"X"6302x,WO$"S"ĺ:BF0:7400:6302,WO$"M"İ900:MD%26380,MF1MF0:6310,WO$"A"WO$SJ$ČBE:6330,WO(WO$)64:1100:MD%26380,WO96370-8:WO$::WO$"X"6104/+WO$"R"İ6950:6104@+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+6130+$3515+.+IM%(0)CT%6380)31210:6190$*BF0:OM0:SL2BF1O*T2$TR$(2):T3$TR$(3):7300:4100:BF0l*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%26180+23:2"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) *SF%0İO))),2):5190'(WO1TR$(WO)""5190e(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:3600u)uSI$"I":SJ$"J":SV16:H$"H":HC$ ";-'WC$:WC$"1"WC$(CB%)Č1052:4535@'WC$:WC(WC$)N'40190,WCT'z'VPWO7:HT13:SL1WO7VP6WO'EB%1WO9HTHT5':HT:VP'WO8SL15190'WO6(TR$(6))1ĺ"SPLIT":5190 (WO6(WO2SL2)ĺ(CN$((TR$(W 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:ET931245> "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$EyX(PE%$(MS)" FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:IC0uD$"PR#0"lC:uET(222):EL(218)(219)256CDuET9EL3000EM2:M1%ND%:31100:CNuET9EL3005EM3:M1%1:31100:CXuET9İ3400:CT%CT%1:31200:25CbuET255Ħ/DyD$"PR#0":"ER#TA%TA%1:3750:3760:2100:WCCW:AR(CK$(WC,0)):TR$(1)(TR$(1),2)("0"(CM%),2)(YS%)BU#3788:3500:3600:6950:35303630BW#ZZ:3730BZ#3300:3326:3330:CY%1İ3200:3224:3230Bn#3500:3515B'TA%0:WC(WC$):;C':8:AS$::13::MS:FT%4FT%5:HF1:9025DA>#CM%FE%SF%2:TA%1:ET9:31210:9990vA?#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:RN0AK#3710:(TR$(5),8)"INACTIVE"9047\BP"A"YN$"M"YN$"S"YN$"C"Č1052:9012O@6#YN$;:HK$::HK$(13)9012h@7#YN$"A"İ6700:9000z@8#YN$"M"9990@:#HF0:3900:3600:3610:3630@;#YN$"C"CT%0ET9:TA%1:31202:9990A<#TT%CM%:::8:AS$:12:AS$:10:15::" WORKING ":H 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#28:YN$:YN$)OAPM%(SL,OD%)>nS>@EM2:M1%ND%:31100:3000:3500:3505:RP0:3300:3328:k>(#SF%0İ31210:9990>*#:FT%5Ģ3:8::"<< CURRENT MONTH : "MM$(CM%)" >>":>,#5:BE$;BE$;BE$:AS$::CB%1Ė9:"ALL "CB%" CHECKBOOKS WILL"A?.#3:"START NEW MONT"S"CH37590-=jWO$"A"WO$GH$ČBE:7510U=tCF1:WO(WO$)64:1100:MD%27590_=~5100i=7510o==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,EM%)CA(OC,EM%(4)):OB(TR$(6)):OM((TR$(5),5)"SPLIT")B> "RN*OM%MO%1:OM%13OM%1r8HERIM%(OM%)1:MO%CM%ERCT%8RERBRNG1:72908T51008WEB%08z8X110:TR$(X)"":X8 919:8::"**SEARCHING**";::" TO ABORT":PK(1638CH$"1"CH$"3"Č1052:7010>7vCH$:CH(CH$):CH6100,6300N7CH37000T77(TR$(WO))1(TR$(WO))CT%(TR$(WO))((TR$(WO)))NG177BE$;7 MO%(TR$(WO)):MO%1MO%12NG1:72907*IM%(MO%)0NG1:729071EB%07230*84$"M"İ4400:WC$"A"āCH17:5400:CH:1WC$"M"6499U1CB%0WC1:AF1:4400g1WC$"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:CH>2 23:28:(95);:28:5:CK$(WC,9)"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 DISKETTE":::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:332070LCR1100:CN$(CR)(AS$,26):3120:3220:3320:CR:WC11556240I.: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:62027/@:8:AS$::7:"PREPARING NEW DATA100:X:f-20:868:TY5TY$"5"Ģ20:"TOTALS>>";:9:F1TB:2100:19:F1TA:2000:32:F1TD:2100:l- -:V4(CH):H4(CH):CK$(WC,CH):-:V2(CH):H2(CH):S6$(CH):-p3100:3200:3222:3300:3205-zSL600,700,800,900- .832000:PK))999999CB(MS(X))999999:5002M,CB(MS(X))99999CB(MS(X))99999:5002f,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)):2SYSTEM NAME: ";::"A"::\+ "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(XA*(WC$"1"WC$(CB%))WC$"A"WC$"P"WC$"M"ĺBE$;:4535]*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":+" PAYMENTS/RECEIPTS,SEARCH/EDIT,MENU,, GNX13:Y15:MU$(X,Y):Y,XfN 6,6,24,9,27,25,1,1,2,4|NX110:UL(X):XNWC(40190):WC6WC0NHPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"610109OMP$(0)P9$"132N":P$DECMX112:MM$(X):XaM 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,,,ENTER,RECEIPT4L CHECK #,DEPOSIT#,CARD,CARD,CODE,CODEjL PAID TO,SOURCE,MERCHANT,MERCHANT,PAID TO,SOURCELX13:Y01:CH$(X,Y):Y,XLX13:Y01:DN$(X,Y):Y,XLX13:Y01:PY$(X,Y):Y,XM JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,800:3810:3830:75[KvDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):XKyMS0:10000:3200:3205:3222:3230K~CN$(TC%),CA(TC%,12)K3100:3110:3130K3300:3310:3322:3328:3330L CHECK,DEPOSIT,PURCHASE,RETURN,PAYMENT 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)1:MP%(1,0)1:MP%(0,1)1:MP%(1,1)1Kt3900:3"-":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)"INSERT DATA2),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):MI$MI$10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT"xGy3600: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%(12),BF$(:TA%1:31202:9990e?<#TT%CM%:::8:AS$:12:AS$:10:15::" WORKING "::FT%4FT%5:HF1:9025?>#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:3330!@F#3700DISK":10:"(C)CLOSE DATA DISK"::12:"ENTER SELECTION ";y>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%0ET9E$;BE$:AS$::CB%1Ė9:"ALL "CB%" CHECKBOOKS WILL"=.#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 0)PL$P$(0):P$(1)PL$P$(1)U>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):C:3830=FT%161000!=3000d=33000:3200:3205:3222:3500:3505:3900:FE%(S6$(4)):2710z=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$(19,12,14:X17:V4(X),H4(X),U4(X):w< 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:3810MN$(X):X:X17:MU$(X):X:X06:SC$(X):X;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,3,15,12,4,17,12,19,AR,APR,MAY,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:$(7)h9eX038: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,M"REMOVE ANY 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$:9`D$(4):3900:BE8:(SM$(2),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:9EL3005İ31000:.6buET9EL3000İ31100:I6luEL6206ET8İ32000:X6vuEL6206Ħ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"::CM%BM%:3515:39005h5XCH0: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Ħ6XuETCH$:(CH$"A"CH$"D")CH$"R"CH$"P"CH$"X"ĺBE$;:6610r4CH$:CH(CH$)64:FT%5(CH2CH4)ĺBE$;:66104CH$"P"İ80:66104CH$"X"66004CH5İ1600:5600:CF1:66104CF1İ3224:32304FT%2FT%3:27105FT%5İ3500:3505CK$(WC,0)(CR1):AF1'3<FT%3FT%4S3FAF1CB%CB%1:3900:3500:3515:3530i3PCF1İ3300:33243U3200:3215:3900:64003c3CF0:4600:3200:FT%2İ3222:CH14:5600:CH:66103CF1:CH14:1600:5600:CH=423:28:(95);:28:CH$:(CH$"A"CH$"G")CH$"R"CH$"P"CH$"X"ĺBE$;:6410T2CH$:CH(CH$)64k2CH$"P"İ80:6410}2CH$"X"64002CH8İ1400:5400:CF1:641032FT%3WC$"A"TY2:CN$"CHECKBOOK #"(WC):6000:TY1:CN$"CASH ACCOUNT #"(WC):6010:CF1:)PRINT (R)RETURN":12:"ENTER SELECTION ";:868S/OK$:OK$"P"OK$"R"6555o/OK$:OK$"P"İ80:6550u//OS%0:ERCT%:BR(CK$(WC,9)):BF0:OT(0)0:OT(1)0:RNBRER:2100/P%(3)0LS1CWWC6680/3510:7500:MD%2RNER:6688E2.x"CHECKBOOK BALANCE ":RR1:4000:RR0:AS$O.}DFNBXY:(DF).01DF0n.XX$(DF):2500:FR(DF)1.:"YOUR CHECKBOOK:":FR1ĺ"RECONCILES....CONGRATULATIONS":6550."DOES NOT RECONCILE BY ";:XS$:"IN "BF$(FR)" FAVOR":2/22:10:"(P$AMOUNTS":"STATEMENT BALANCE ";:XX$SB$:2500:XS$::"OUTSTANDING CHECKS ";:XX$(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$FROM CHECKBOOK":11:3:"BALANCE":8,g"ENTER ENDING BALANCE FROM STATEMENT":WO4:1100:5100:13:"IS THIS CORRECT(Y/N) (E)EXIT ";:OK$::OK$"Y"OK$"E"Č1052:6500,hOK$"E"6590,iSB$TR$(4):7350:7300:6600:MD%26590q-n6:958:25:"+WO$"M"İ900:MD%263801+MF1MF0:6310P+WO$"A"WO$SJ$ČBE:6330s+WO(WO$)64:1100:MD%26380+WO96370+5100+6330+MD%0:+dSF%0İ31210:6590$,f3610:BF1:4300:6:958:16:"ENTER BANK CHARGES OR CREDITS":"M"MF1MF0:61104*WO$"A"WO$GH$Č1052:6130\*CF1:WO(WO$)64:1100:MD%26180f*5100p*6130z*$3515*.*3610*RN0:EB%0:MD%0:MF0:BF1:4100*7300:4200*23:28:WO$:WO$"X"6302*WO$"S"ĺ:BF0:7400:6302SF%0İ31210:6190+)BF0:OM0:SL2BF1@)7300:4100:BF0F)X)WO17:1100n)MD%2WO7:6125x)5100)WO:MD%26180)23:28:WO$::WO$"X"6104)WO$"R"İ6950:6104)WO$"P"İ80)WO$"M"İ900:MD%26180*WO$""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()(TR$(WO))),2):5190.'WO1TR$(WO)""5190l'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":SV16:H$"CB%") ";3&WC$:WC$"1"WC$(CB%)Č1052:4535F&WC$:WC(WC$)T&40190,WCZ&&VPWO7:HT13:SL1WO7VP6WO&EB%1WO9HTHT5&:HT:VP&WO8SL15190&WO6(TR$(WO))1ĺ"SPLIT":5190'WO6(WO2SL2)ĺ(CN$(SL,0);::" 2)"CH$(SL,1)" 3)END"i%:MD%1Ģ6:"MODE 1)"CH$(SL,0)" 2)";::CH$(SL,1);::" 3)END"o%D%CB%14590%TI$(5)"SELECT PERSON":6900%10:8:"CHECKBOOK/NAME":%X1CB%:10X2:5:X". "CK$(X,1): &::8:"SELECT (1-NCEL (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)";::CH$(HC$:CH1SL1Ė13:15:"N"O# 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 "#^$h4:14::"SEARCH/EDIT"::21:28:SJ$:22:868:5:"(X)CA0:233,96%,q3000:3500:3505:3530y,r:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$,t3200:3205:3222:3100:3110:3130:3300:1500,X(0):):Ѝ΍1):X:D$:RP1:SL4İ6900!X$D$"WRITE HAPOINT,R"RN:PT%(RN,0):PT%(RN,1):D$:q.D$"CLOSE HAPOINT":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$"CLO):X:D$:H D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:D$:{ D$"WRITE HATRANS,R"RN:X05:TR$(X):X:D$: D$"CLOSE HATRANS":D$"OPEN HAPOINT,L11,D"ND%:RP13614MS0:10000:D$"READ HAPOINT":X0CT%:PT%(X,0),PT%(X,012:IM%(X):X:X112:IM%(X)0ĭIM%(X)IM%(MI%)MI%XE X:D$:] D$"CLOSE CATACT":{H 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$(X012:(CA(CR,X)HU%.5)HU%:X,CR:D$:m 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$:8 D$"READ CATACT,R"106:MI%CM%:X"READ CATBUD,R101":SN$,MS%,YS%,FE%:D$:^ D$"WRITE CATBUD,R101":SN$:MS%:YS%:FE%:D$:v 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:XN MENU "::20:D$"RUN HAMENU,D1"B D$"OPEN CATNAME,L27,D"ND%:r& 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$"(AM$,X1,1)"-"(AM$,X1,1)"/"(X11(AM$,X1,1)"-")2640t< (AM$,X1,1)"."VXLXX1:VVVV1:VX2VV12640|F X1K 2645P NG1U  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D1":! :10:AS$:14:AS$:12::11:" LOADING MAI(5):MD%P%(6):CPP%(7)HQ XY(XX$):YX(XY):WX(YX):DX((YXWX)100.5) XX$SN$((XY)1)(WX)"."((DX)"0",2) XS$(BL$XX$,10) ( NG0- AM$""26452 LX(AM$):VV0:LX9(AM$)10000002640>7 X11LX:(AM$,X1,1)"9(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%P%(6)TE%CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%~:P%(1)(TR$(6)):P%(2)(TR$(7)):P%(3)(TR$(8))eP%(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%P%(6)TE%P%(7)4N0%PT%(RN,0):N1%PT%(RN,1)E9P%(1)N0%HU%:P%O1:VP6WO#NEB%1WO9HTHT52PWO11130aRNG0:32,HT1:33,UL(WO)1:34,VP1:35,VP|V1:VP:(UL$,UL(WO));^WO2WO81130`1:"";TR$(WO)b(TR$(WO))UL(WO)1099jWO100,200,300,400,500,600,700,800,7200,7100lNG11099$(5),5)"SPLIT"NY1&4TR$(WO)(NY),z<6:6:BE$;ZMD$:MD$"1"MD$"3"900{MF1:(MD$)1MD%MF0:950:MD%(MD$)1MD%2İ400:4100GOMD%1:CH2GO3KBE$;:1104 L16368,0:VPWO7:HT13:SL1WO7WOW CHCK,CARD,CASH'>X13:TY$(X):XR> NN$(1,1)"Y":NN$(1,0)"N":NN$(1,2)"?"p> 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"61010B?MP$(0)P9$TD,,,,TYPEv=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>@`~po|p|{|@?xp@xpCpp|pp@>`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 `                     "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$(1)NU$PF$(1)P$(1)#@^EC0:W 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$"CLOSE CATACT": D$"OPEN HATRANS,L80,D"ND%:! D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%:SF%2VC%D$"OPEN CATBUD,L84,D"ND%:9 D$"READ CATBUD,R0":TC%:j 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$:DATA,D"ND%:( 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):TY(X)((CN$(X),1))::: D$"CLOSE CATNAME": 13:CH((HW$(HW)).5):CH0PF$(1)PF$(1)(CH)j<\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)<^EC0:PF$(0)P$(0)PF$(0)PF$(1):EC1"4lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PROGRAM DISK":CK$(6,1)"ALL"4t3900:3800:3810:3830:D$"BLOAD DMP":755vDZ$(LD$,2)"/"(LD$,3,2)"/"(LD$,2):X18:D$(X)(DZ$,X,1):X8),TI$(5),TK$(8),TY$(3),UL(10)|3eBE1052:BE$(7):X139:BL$BL$" ":UL$UL$(95):EQ$EQ$"=":MI$MI$"-":AS$AS$"*":3gX139:BL$BL$" "::NU$(0)(0)4jTW%200:TH%1000:HU%100:TE%10:S2$(95)(95):DF$S2$"/"S2$"/"S2$:NY$(0)"N":NY$(Ѝ΍! (1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)tORHW48: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)OaX(0)::$(CN$(CR),2,(CT$))640+vCR:NG1:690`CC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630tCC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630TR$(WO)(CR)TR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1N:2600:NG1450.XX$AM$:2500:TR$(WO)XX$4s(TR$(5),5)"SPLIT"BF0TR$(8)"1":4000:WO8:5100:WO5yNXNG0:NF0:CT$TR$(WO):CR(CT$)ZTR$(6)"SPLIT"TR$(6)"-1":690bCT$""CT$"0"(CR0CRTC%)640lNF1:CR1TC%:CT1299*(MM4MM6MM9MM11)DD3099=MM2DD2999^MM2YY4(YY4)DD2899TR$(WO)DD$MM$YY$:LD$TR$(WO) 1:"";TR$(WO)(TR$(WO))UL(WO)NG1:290SL2TR$(WO)""İ600",SB0:AM$TR$(WO)13)180 DZ$(13)155: DZ$"0"DZ$"9"ĺBE$;:115] DZ$;:D$(Z)DZ$:ZZ1:Z9110 HK$:HK$(8)HK$(13)ĺBE$;:145 HK$(8)125MM$D$(4)D$(5):DD$D$(1)D$(2):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM"/"(TR$(WO),3,2)"/"(TR$(WO),2);3 iZ1:HT:WO7L nZ3Z6ĺ"/";:ZZ1u 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$(R#0":o W:8:AS$::15::" PRINTING "::7:" PLEASE DO NOT INTERRUPT ":::13:" TO ABORT"::AS$:} ZCH2180 \:WO0:HT15:7:"REPORT DATE >>":100 cBE$; dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105! h(TR$(WO),2)F MAIN LINE **** KEM0:3000:3500:35050 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$"P" 5. SELECT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU" ::" ENTER SELECTION(1-7) "; #SL$:SL$"1"SL$"7"ČBE:35 (SL$:SL(SL$):SL6000,7000,7000,7000,4500,8000:SL725 23005:3010 < *** END O18) ** PRINT ** 11.08.82 AUSTRALIA530000Y D$(4):D$"NOMON I,O,C":60000mCB%1WC1:25}WC0İ4500PA0:SL0:6900:3900:3500::X " 1. CHECKBOOK/PRINT CHECKS"::" 2. CREDIT CARD"::" 3. CASH"::" 4. ALL (1-3)"::"""""""""                     #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""" " " "