' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#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 < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # 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:"A(3):TN$TR$(3):WO3:X13:9X:1:"ADDRESS "X:1100:5100:A$(X)TR$(WO)::Xu.16:1:"IS THIS CORRECT (Y/N)? ";.YN$:YN$"Y"YN$"N"ĺBE$;:7605.:TR$(3)TN$:YN$"N"7602.85:87:83:LT(TR$(4)):TD$(TR$(4),LT3):TC$(TR$(4),2)@/(NY$(P%(2))BL$,4);H-yNN$(LS,P%(3))""ST4ĺ(NN$(LS,P%(3))BL$,4);}-~NN$(LS,P%(7))""ST4ĺ(NN$(LS,P%(7))BL$,4);-ST4ĺTY$(LS)" ";-WC6ĺCW;-" "-- CHECK PRINTER-PA0TZ$"Y"7610N.85::9:1:"PAID TO "TR$$(4))HU%.5)HU%\,oCC1:(BL$(RN),4)" ";(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2)" ";,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))" ";SLLSSL6)7590E+SPK(16384):PK155ČBE:16368,0:MD%2:7590y+VSL1CH2PF1:7600:P%(7)1:2010:3620:7590+XP%(1)1P%(1)TC%1+`C40(C40)İ7700+b(TR$(5),5)"SPLIT"P%(1)PK%(1)TR$(4)"*"TR$(4):SA1:7535,jTLTL((TR))" TOTAL"XS$:(BL$,23HL(PF,4))(EQ$,8)7*=C07490*?WC6ĺ" ":(BL$,17HL(PF,4))"PER: ";:Q1CB%:Q". "CK$(Q,1)" ";:Q:" "*@SA1ĺ(BL$,23HL(PF,4))"*AMOUNT IS NOT PART OF TOTAL"*A(12)*BSL6SL4*D*L+Q(WCCWWC6)(7480)3510:TC07455R)X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450)TK$(X)(TR$(ST(X)),(TK$(X)))XTC:EF1)X:EF17480)7500:MD%2RNER)*8RN:CH2C1ĺ" ":XX$(TL):2500:(BL$,23HL(PF,4))(MI$,8):(BL$,16HL(PF,4C1:SP(PC)X:PK%(PC)P%(X)3(:SL4SL6:P%(5)6g(X46:P%(X)6PCPC1:SP(PC)X:PK%(PC)P%(X)(:TR$(8)"0"BRIM%(MI%)BR1(RNBRER:2100(CH2(P%(3)0P%(7)0)7480(EF0:X1PC(PK%(X)P%(SP(X))XPC:EF1) X:EF1X'!'PF0:CH2EC1PF1+'80:F'STSL:CT%IM%(0)7490g'CH7350,87:TR$(10)""7405'RN(TR$(10)):2100'3510:7500:7490'TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)'(2000:PC0:X13:TR$(X5)""PCPMO%1MO%12NG1:72902&*IM%(MO%)0NG1:7290C&1EB%07230q&4BRIM%(MO%):5100:EB%1:ERBRNG1:EB%0{&97290&>OM%MO%1:OM%13OM%1&HERIM%(OM%)1:MO%CM%ERCT%&RERBRNG1:7290&T5100&WEB%0&z'X010:TR$(X)"":405 %Zk%::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%%(TR$(WO))1(TR$(WO))CT%NG1%%BE$;& MO%(TR$(WO)):$"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":X13:A$(X)" ":X%(7600:85:6: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$(WO0)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$(1)NU$PF$(1)P$(1)+?^X,Y= CHCK,CARD,CASH.=X13:TY$(X):XY= NN$(1,1)"Y":NN$(1,0)"N":NN$(1,2)"?"w= 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"61010I>MP$(PTD,,,PTD,,,,TYPE}"7lEM$(1)"INSERT CURRENT DATA DISK":EM$(2)"INSERT DATA DISK":EM$(3)"INSERT PM%(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)6eBE1052: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$4~ySL7Ģ14:" OR PRESS TO RETURN TO MAIN MENU "::AS$4yX(16384):X127311104yX155Ĺ16368,0:504y16368,0:5`MM$(12),TR$(11),PT%(1100,1),I3:uET(222):EL(218)(219)256I3DuET9EL3000EM2:M1%ND%:31100:o3NuET9EL3005EM3:M1%1:31100:3XuET9İ31200:3buET255Ħ3yD$"PR#0":"ERROR ON LINE >> "EL:"ERROR CODE >> "ET:216,0:V4|yBE$::8:AS$::2:"REMOVE ANY DISKETTE$(ST,Z)""ĺ(HD$(ST,Z)BL$,HL(PF,Z)1);92 Z:H2$(WC)i2#Z111:HD$(ST,Z)""ĺ(MI$,HL(PF,Z))" ";2%Z:H2$(WC)""ĺ(MI$,3);2(:2n2xX1LP:" ":X:2@EM2:M1%ND%:31100:3000:3500:3505:3600:3610:3300:3328:20uD$"PR#0"!12)v136,HH(PF,1)(TI$(ST))2:TI$(ST)" TRANSACTIONS":36,HH(PF,2)(CH$(ST,MD%))2:CH$(ST,MD%)" ACTIVITY REPORT"136,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:HD5:TR$(3)90PA1āX13:36,15:A$(X)" ":X:" ":7650H0LP4:7800c036,3:"MEM0 : "TR$(5)0LP3:7800:36,72:TR$(2)0LP3:7800:36,3:"MEMO : "TR$(5)036,3:"AMT. : $"TD$"."TC$:36,3:"PAYEE: "TR$(3)0LP13:78000 1C0ĺ(TT$"THE SUM"(AS$TD$"**",10)"DOLLARS AND **"TC$"**CENTS"^/LP4:7800:36,72:TR$(2)x/LP2:7800:36,8:TT$/LP1:7800:36,15:TR$(3);/36,50:(TR$(1),2)"/"(TR$(1),3,2)"/"(TR$(1),2);:36,66:(AS$TR$(4),10)"**" 0LP2:7800:36,1"'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 }EC0:PF$(0)NU$PS$(0)PF$(0)PF$(1):EC18?aX(0): S%1 CM%MS%:FT%4:6500* CV%CV%12 dZ0B 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,!SLAS$SL66350+LY$"Y"İ2800:3200l3100:3110:3130:3300:CR1TC%:3310:LY$"Y"İ2700:3220(CN$(CR),1)"5"āX012:AC(X)0:X:6335X112:AC(0)AC(0)AC(X):AC(X)0:X3320:CR:3900 CV%1:MS%FE%1:MS%13MS%1:YS%Y):SL:D$:%D$"CLOSE HARDWARE":6<D$"CLOSE":@83000P=3500:3505B(SL6SF%4)(SL7SF%3)SF%1İ32000:3900:65903200:3205:3222:3900:8:AS$::7:"PREPARING NEW DATA DISKETTE":::8:" PLEASE DO NOT INTERRUPT ":::$"WRITE HAPOINT,R"Z:(PT$,4);"0":TP%:D$:E.D$"CLOSE HAPOINT":aD$"DELETE HARDWARE,D1"}D$"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:Y05:TR$(Y):Y:D$:_ D$"WRITE HATRANS,R0":CT%:CM%:CV%:SF%:LD$:CB%:SF%2VC%CV%e  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 D$"WRITE CATACT,R106":X012:IM%(X):X:D$:I D$"CLOSE CATACT":cH 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$"READ HATRANS,R"X:AC(X):X:D$:P 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$:1R0":TC%:D$:@ D$"WRITE CATBUD,R"CR:X112:CA(X):X:D$:q 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:X012AME":X0TC%:CN$(X):X:D$:Z0 D$"WRITE CATNAME":X0100:((CN$(X)AS$,26):X:D$:s: 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,)0RM(0)12J X112:RM(X)RM(X1)1:MS(X)MS(X1)1:MS(X)13MS(X)1` RM(X)13RM(X)1o X:MS(0)0uJ  D$"VERIFY HADATA,D"ND%: D$"VERIFY HAPROG,D"ND%: D$"VERIFY HAPROG,D1": D$"OPEN CATNAME,L27,D"ND%:& D$"READ CATN+r:8:AS$::13::" READING FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$+t3200:3205:3222:3100:3110:3130:3300:1500+X(0):S0)::$" ":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 >> "ET9:CK$(WC,X):X:D$:J 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 HATRANSD"ND%:H 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:X0N$(CR):D$:%: D$"CLOSE CATNAME":E D$"OPEN CATBUD,L84,D"ND%:h 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,L130,U # 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:C 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%`CTR$(6)(P%(1)):TR$(7)(P%(2)):TR$(8)(P%(3)):CWP%(4):LSP%(5):MD%P%(6):CPP%(7)fH 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)54N0%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%P%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):)NU$PF$(1)P$(1):%(fPS%(HW$(1))<(X(0):VN$"2.0":1)"":HW$(2)"S"61010(MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$(1)PL$P$(1)(RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)#)WHW:HW913:CH((HW$((1)PL$P$(1)H'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.0":"2.0":0):PF$(116,7,3,16,13,3,16,19,3,16,25,3,16,31,3,18,30,1:X114:VT(X),HT(X),FL(X):a&3800:3810:3830k&3900&HPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010 'MP$(0)P9$"132N":P$(1)P9$"80N":HW$(3)"Y"P$(0)PL$P$(0):P$TER SELECTION,LETTER TO EDIT,R(RECORD),P(PRINT),X(CANCEL)a%X19:MU$(X):X:X06:SC$(X):X%SM$(0)"PROGRAM":SM$(1)"DATA":SM$(2)" DISKETTE. PRESS ANY KEY WHEN READY."K& 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,EXIT9%~ ** HOME ACCOUNTANT **,MAIN MENU,EN: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,0100:5100:13:"IS THIS CORRECT(Y/N) (E)EXIT ";:OK$::OK$"Y"OK$"E"Č1052:6500h-hOK$"E"6590-iSB$TR$(4):7350:7300:6600:MD%26590.n6:958:25:"$AMOUNTS":"STATEMENT BALANCE ";:XX$SB$:2500:XS$::"OUTSTANDING CHECKS ";:XX64:1100:MD%26380$,WO96370.,51008,6330D,MD%0:c,dWO$"":SF%0İ31210:6590,f3610:BF1:4300:6:958:16:"ENTER BANK CHARGES OR CREDITS":"FROM CHECKBOOK":11:3:"BALANCE":8V-g"ENTER ENDING BALANCE FROM STATEMENT":WO4:10 +$3515+.&+IM%(0)CT%6380Q+3610:RN0:EB%0:MD%0:MF0:BF1:4100a+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"6104W*WO$"R"İ6950:6104h*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+613CTION(1-5) ";4)zCH$:CH$"1"CH$"5"Č1052:6010_)CH$:CH(CH$):CH6100,6300,6500,6700o)CH56000)3300:3324:3330))SF%0İ31210:6190)BF0:OM0:SL2BF1)7300:4100:BF0))WO17:1100)MD%2WO7:6125 WO7WO8ĺNY$((TR$(WO))):5190P(WO9ĺ("0"TR$(WO),2)" "AR$(EB%):5190](<TR$(WO)c(Fs(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 SELEL1WO7VP6WO)'EB%1WO9HTHT57':HT:VPL'WO8SL15190s'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%145901&TI$(5)"SELECT PERSON":6900P&10:8:"CHECKBOOK/NAME":y&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:SRCT%:SJ$" TR#->"CT%%;%4:14::" AUTOMATIC "::Y%4:14::" RECONCILE ":f%6:868l%%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 "K$$CH3Ģ20:16::"(S)SKIP":Q$^$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%):E22:"(M)MODE":"B "DN$(SL,MD%):"C "PY$(SL,MD%)W#"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))@"VB17:HB31:RR1VB15:HB23\"SL3AR(CK$(WC,0))1n"SL$"3"4090"Y012:BABACA(AR,Y):Y:XX$(BA):2500"BA0ğ"VB:HB:XS$:BA0:""1:6:958:MD%1MD%0"4400/#:"A DATE";:N,0):PT%(RN,1):D$:2!D$"CLOSE HAAUTOPOINT":N!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"2 ~D$"READ HAAUTO,R"ZZ:X05:TR$(X):X:D$:d 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%(RS":%D$"OPEN HAPOINT,L11,D"ND%:4RP13614MS0: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%:,L80,D"ND%:> D$"READ HATRANS,R0":CT%,CM%,CV%,SF%,LD$,CB%H D$:z 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 HATRAN,EM%)CA(OC,EM%)OAPM%(SL,OD%)%=ni=@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:"ALL "CB%" CHECKBOOKS WILL"W:7590> "RN9;QWO18:5100:WOC)P%(X)9:9X46:PCPC1:SP(PC)X:PK%(PC)P%(X):V9TR$(8)"0"BRMI%BR1j9RNBRER:2100{9EF0:X1PC9PK%(X)P%(SP(X))XPC:EF19 X:EF1748093510:TC074559X1TC:ST(X)2TK$(X)TR$(ST(X))XTC:EF1:7450*:K(16384):PK155RNER:BE$;:16368,0/8@8 SEARCH KEYU8TR$(10)""7405m8RN(TR$(10)):210083510:7500:74908TC0:X15:TR$(X)""TCTC1:ST(TC)X:TK$(TC)TR$(X)892000:PC0:X13:TR$(X5)""PCPC1:SP(PC)X:PK%(P7230374BRIM%(MO%):5100:EB%1:ERBRNG1:EB%0=797290Y7>OM%MO%1:OM%13OM%1{7HERIM%(OM%)1:MO%CM%ERCT%7RERBRNG1:72907T51007WEB%07z7X110:TR$(X)"":X7)819:8::"**SEARCHING**";::" TO ABORT":P"ENTER SELECTION(1-3) ";@6bCH$:CH$"1"CH$"3"Č1052:7010a6vCH$:CH(CH$):CH6100,6300q6CH37000w66(TR$(WO))1(TR$(WO))CT%NG166BE$;6 MO%(TR$(WO)):MO%1MO%12NG1:72906*IM%(MO%)0NG1:729071EB%0$(6)):TM%0:(CN$(AC),1)"4"(CN$(AC),1)"6"TM%1e5DCA(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*CF16995R40TR$(8)"2"6990d41EM%(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"699045<AC(TR5:67803c5100:67203|K.33730:3788433::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)-@23:28:WO$:WO$"X"ĺ:670782EWO$"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:6792u1/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:WO2OK$:OK$"P"İ80:65500d0OS%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"65550$(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/XX$T,MENU,,,ENTER PAYMENTS/RECEIPTS,SEARCH/EDIT,MENU,, UMX13:Y15:MU$(X,Y):Y,XtM 6,6,24,9,27,25,1,1,2,4MX110:UL(X):XMWC(40190):WC6WC0MHPF$(0)"":PF$(1)"":P9$(9):PL$P9$"K":P$(0)"":P$(1)"":HW$(2)"S"61010GNMP$(0)G,SEP,OCT,NOV,DEC(LX112:MM$(X):XoL TRANSACTIONS,CHECKBOOK,CREDIT CARDS,CASH,** HOME ACCOUNTANT **LX03:TI$(X)::HA$4M ENTER CHECKS/DEPOSITS,SEARCH/EDIT,RECONCILE BANK,AUTOMATIC TRANSACTIONS,MENU,ENTER PURCHASES/RETURNS,SEARCH/EDIRETURN,PAYMENT,RECEIPTBK CHECK #,DEPOSIT#,CARD,CARD,CODE,CODExK PAID TO,SOURCE,MERCHANT,MERCHANT,PAID TO,SOURCEKX13:Y01:CH$(X,Y):Y,XKX13:Y01:DN$(X,Y):Y,XKX13:Y01:PY$(X,Y):Y,XL JAN,FEB,MAR,APR,MAY,JUN,JUL,AU1!Jt3900:3800:3810:3830:75iJvDZ$(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:3130J3300:3310:3322:3328:3330K CHECK,DEPOSIT,PURCHASE,)"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)1:MP%(1,0)1:MP%(0,1)1:MP%(1,1)(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)IlEM$(1)"INSERT CURRENT DATA DISK":EM$(2),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)+HeBE1052:PE%16384:CS%16368:BE$(7):X139:BL$BL$" ":UL$UL$ET0::8:AS$:14:AS$:10:14::"** WORKING **":::9:"PLEASE DO NOT INTERRUPT":3600:3500:3515:RN1CT%:2100:P%(3)031240FyP%(3)2:2010:3620FzRNF zTA%0SF%1YN$"C"CM%TT%:3300:3310:3330F zG`MM$(12),TR$(11),PT%(1100,1ETURN 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%):X12731215EyCS%,0:ET931245FyENU "::AS$&DyX(PE%):X127311101DyCS%,0NDySL7X155İ3005:3010TDymDyTA%0CT%CT%TA%1wDySF%1Dy:8:AS$:::15:BE$;DF$(SF%)::3:BE$"NO NEW TRANSACTIONS MAY BE RECORDED"kEy"UNTIL A NEW DATA DISK HAS BEEN STARTED.":5:"R255ĦGCyD$"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 PRESS TO RETURN TO MAIN MB':8:AS$::13::MS$(MS)" FILES "::8:" PLEASE DO NOT INTERRUPT ":::AS$:aB0uD$"PR#0"B:uET(222):EL(218)(219)256BDuET9EL3000EM2:M1%ND%:31100:BNuET9EL3005EM3:M1%1:31100:BXuET9İ3400:CT%CT%1:31200:25CbuET8)"INACTIVE"9047tAP#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:3230An#3500:3515A'TA%0:WC(WC$):S10:15::" WORKING "::FT%4FT%5:HF1:9025Z@>#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#3700:CH1:SL1:TA%0:ZZ1CB%5:RN0AK#3710:(TR$(5),N ";C?4#28:YN$:YN$"A"YN$"M"YN$"S"YN$"C"Č1052:9012e?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:9990/@<#TT%CM%:::8:AS$:12:AS$:>.#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 DISK"::12:"ENTER SELECTIO[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(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)N\HW:PF$(0)NU$PF$(0)P$(0):PF$(1)NU$PF$(1)P$(1)OaX5TLTLCA(CR,0)(CH3):50$!""2!6LPLP1:M!@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" " "^" " 36,41:(MU$(1),6)" PCT.";< 36,54:"DIFFER. PCT."` (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:X:TYI$,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ĺ" ":149036,40:CH3ĺ(MN$,1(EM2)3,3);" '"PB%" PCT.";:14846(SL1CH2)ĺTP$(TY):(MI$,(TP$(TY))):" ":LPLP3<Z0: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."(MCH1CH3Z0: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:6xTY5336,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" ":" ":LPLP6:}P(7)D$(8):YY(YY$):DD1DD31MM1MM121200V(MM4MM6MM9MM11)DD301200kMM2DD291200MM2YY4(YY4)DD281200DA$MM$DD$YY$:D$: (12)LP0" ":" "SL1Ĺ36,56RF(MU$(SL))2:MU$(SL)" FOR":1311:14Z12201DZ$(13)Z1DA$""1287SDZ$"0"DZ$"9"Č1052:1225wDZ$;:D$(Z)DZ$:ZZ1:Z91220HK$:HK$(13)HK$(8)Č1052:1260HK$(8)Z8:14Z:1225/MM$D$(1)D$(2):DD$D$(4)D$(5):MM(MM$):DD(DD$):YY$D$DATE>>":V310OZ1: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:Z6Z3ZZ50CRTC%PNPN1:1290:1480&WCRC\TY:890:(12):90:800IfWzTY6899m~2200:TY8İ2250TY8PNPN1:1290:1480B10B11EP3:CH1EP1B20B21B1HU%B1:B2HU%B2::16368,0 10:"REPORT (F)):B2B2TS(2,MS(F)):F:B1B1ST(2,0)(XMS%):847CLCH1847]MCH3YY1:Y0Y12}NB2ST(2,Y):CH2B2TS(2,Y)OYD2CH3B2B1ST(2,EM)R900:310:1202:80:85:1300:1480:TY67:890:1400:CR1TC%:(TY)(CN$(CR),1)İ2100:LP 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ՀЀ=005İ31000:'1buET9EL3000İ31100:?1luEL6206ET831200N1vuEL6206Ħ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:(SM$(2$"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Ħ0NuET255Ħ 1XuET9EL3E%:D$: / D$"CLOSE CATBUD":A/ 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$:0 D):X:D$:#.: D$"CLOSE CATNAME":C. D$"OPEN CATBUD,L84,D"ND%:f. 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%,CY%,F0 -" "--LPLP3:260:NI(1)0:NI(2)0:K- D$"VERIFY HADATA,D"ND%:g- 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" ",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-6F1ST(RT,Y)V+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,AL ";:1750%*FC1:RT1RT3FC1B*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):CH360)R" ":LPLP1:2)f160:"TOTAL "TP$(TY);j)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:"TOT2F10: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)100F3)O" ":NI(1)0:NI(2)0''LPLP3:250:W'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)v(@YD3F1ST(RT,Y)S&{NI(2)NI(2)F1FC:36,34:40:36,42:F1(FC(TY1)(F2F1).5):40\&" "w&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):40'TB(TY,X):CH3F1TA(TY,Y)M%F36,34:40:36,42:F1(FC(TY)(F2F1).5):40V%I" "i%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,X):CH);:3$30:36,26:F1CA(CR,X):PL7:40:CH11830[$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%BF2F1:F11\#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:$RT$(RT:LPLP3:"rTY8NI1g"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:RT1RT3FCz#???     ǠIͮԠîϠ"Š5ϠԠ8РŠԠ9Ӡ%ՠ#)).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)::CH)C: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):)1):aX(0):((1):RHW48:CH((HW$(HW)).5):CH0PF$(0)PF$(0)(CH)!;WHW:HW913:CH((HW$(HW,1,-1,1:FC18:FC(FC):FC:FC0w9H3900: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$(0)(L8FX012:TA(((CN$(CR),1)),X)TA(((CN$(CR),1)),X)CA(CR,X):X,CR:3330}8K 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,1,-1,-11)1:MS(X)MS(X1)1:MS(X)13MS(X)1<7RM(X)13RM(X)1C7XW7RM(0)0:MS(0)0k7(3300:CR1TC%723310:(CN$(CR),1)"5"602257 TO RETURN TO MAIN MENU"::AS$:952yPK1555002y2`D$(4):3900:BE$(7)3eX0' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 I|˘Mil0бLQTQdI7878Ԁ?8>1I@i@AA 8 4S B? 6_ BA B@)*++`EF8`0($ p,&"A>;852/,)&#  5B@0DB0B+ D6+ qeDD`ݽL0ٽLL9eDDɰݽ8+`,,0Ѕ-,,,-ɍIG,P,R,T,W HGɩh*Hh787I8L8`P00ɭ1$82*%25E16182߽82*%21Ў`+n+>@OA@`L-xع  { { 'J9?8>PQ+JJJJ7]6=TWRP x =I(9=l6  ȅ`22JJJJ><& <&3* 600000000&>&&7wo&&2N&7w&7w7L:+L"k@ ( `J`@&&& [` ]}UR]] fA$ ULd 5}hlU-]湭: ORbOOO`РH`HhhHPP8H800Px0XLP00x (HPhhP  @P`0(Xp((`((8x@( `@@p (0`8@HPX0@x`@h@`h`px0PPP(00P`                              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                    BHHH$H%H$% G& 0I@ ( h%h$hhh`Ѝ΍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 LINE97 ** PRINT **5.26.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 ** 2.0 3/14* 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             )SN$:SN$"Y"SN$"N"Č1052:1230FSN$:SN$"Y"FT%0:EF1L l 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(0OU WISH TO START A NEW SYSTEM? ";JSN$:SN$"Y"SN$"N"Č1052:1205aSN$:SN$"N"1290BE$"ARE YOU SURE YOU WANT TO DO THIS? ";SN$:SN$"Y"SN$"N"Č1052:1215SN$:SN$"N"129012:BE$"DO YOU HAVE AN INITIALIZED DISK? ";SL),Z,1)"9")(HW$(SL),Z,1)""NG1:Z3:H]SL3SL14ĂZ:NG11190z`SL14HW%(HW$(14)):HW%1HW%2NG1:1190j:HT(SL):VT(SL):(HW$(SL)BL$,FL(SL))!:5::7:" REFER TO PAGE 8 IN MANUAL "::8:AS$:14:AS$:9:BE$;BE$:"DO Y0DL1200:DL;$SL$:SL(SL$)64:900:61000:1040ABqLNG0:SL1HW$(1)"0"HW$(1)"7"NG1:1190QSL2HW$(2)"S"HW$(2)"P"NG1:1190VSL3HW$(3)"Y"HW$(3)"N"NG1:1190*[(SL3SL14)āZ13:((HW$(SL),Z,1)"0"(HW$(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$SL$"R"SL$"X"ĺ:1090SL$"P"ĺ:80:1040SL$"A"SL$"N"ĺBE$;:104OR P)ARALLEL CARD?"s:"C";::" SUPPRESS LINE FEED? (Y/N)"::2::" ASCII CODE(S) FOR 132-COLUMN FORMAT ":::X15:5(X1)6:(67X);:X::14::2:" ASCII CODE(S) FOR 80-COLUMN FORMAT ":::X15:5(X1)6:(72X);:X::11:(UL$,FL(SL));:1:"";HW$(SL):HW$(SL)""HW$(SL)"0"S(HW$(SL))FL(SL)899g1100:NG1899o::2:10:SC$(0):8::" HARDWARE CONFIGURATION "::7:"REFER TO PAGE 10 IN MANUAL"::"A";::" PRINTER SLOT#"::"B";::" S)ERIAL 14:1130:SL,FT%0FT%1GR1040:SL$"X"İ3800:3810:3830:805U\EF0895kz3795:3820:3830qSL213:HW$(SL)"0":SL:SL114:1130:SL:BE$;16368,0:EF1:32,HT(SL)1:33,FL(SL)1:34,VT(SL)1:35,VT(SL)8VT(SL): "ND%:8:(SM$(2),13):31110+SL6750: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:SL1DED":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"79013:7:BE$"INSERT THE COPY IN DRIVE$::"BE SURE TO COPY MOST CURRENT DATA DISK.":6:"USE THE COPYA PROGRAM ON YOUR":9:"DOS 3.3 MASTER DISKETTE"::AS$: X:8:AS$:14:AS$:10:14::NL$::20(MU$(SL))2:" "MU$(SL)" "::20 l(4)"RUN"(MU$(SL),6)",D1" * M1$" BE EXTEN500) 8SL:4::(48SL)". "MU$(SL):c 19:868:"PRESS 'R' TO RUN OR 'X' TO CANCEL "(95); 35:HK$:HK$"R"HK$"X"448 HK$:HK$"X"Ģ8SL:4:(48SL)". "MU$(SL):420 SL600,600,600,600,600,700,700,800:400 3005y :8:AS$(1):M 19:29:SL$:SL$"1"SL$"9"((SL$"3"SL$"4")PS%0)ĺBE$;:430d FT%4SL$"9"440 (FT%0SL$FT$(FT%))(FT%0FT%4SL$FT$(1)SL$FT$(0))ĺBE$;:430 FT%4(SL$"1"SL$"5"SL$"8")ĺBE$;:430 SL$:SL(SL$)48:SL90 16368,0:K ::5:10:SC$(0):18:"V "VN$:15::" "SC$(1)" ":p 9:X19:4:X". "MU$(X):X:: 19:868:7:SC$(2)" (1-9) "(95); FT%0Ė4:16::"8. "MU$(8): FT%0FT%4Ė4:13::"5. "MU$(5): FT%4Ė4:9::"1. "MU!** HAMENU ** 2.26.82 V2.0-30000| IM%(12),CN$(100),AC(12),VT(14),HT(14),FL(14),HW$(14),CA(12),RM(12),MS(12)60000:D$"NOMON I,O,C":400PPS%0Č1052:90R8,19:D$"PR#"PS%:PF$(1)U768ZD$"PR#0": (16384)12720                 (WO)1099;jWO100,200,300,400,500,600,700,800,7200,7100JlNG11099P~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%2GO3 KBE$;:1104UL16368,0:VPWO7:HT13:SL1WO7WOWO1:VP6WOmNEB%1WO9HTHT5|PWO11130RNG0:32,HT1:33,UL(WO)1:34,VP1:35,VPV1:VP:(UL$,UL(WO));^WO2WO81130`1:"";TR$(WO) b(TR$(WO))UL"N"TR$(WO)(13)NG1@*NY0:TR$(WO)"Y"TR$(WO)(13)NY1^,(TR$(5),5)"SPLIT"NY1p4TR$(WO)(NY)vz6:6:BE$;MD$:MD$"1"MD$"3"900MF1:(MD$)1MD%MF0:950:MD%(MD$)1MD%2İ400:4100GOMD%1:CHTR$(WO)(CR)-WO2SL2CH2RN0690kWO2SL2ARCR:BF0:4128:CH2BAOAPM%(SL,OD%):4050qTR$(WO)""TR$(WO)"Y"TR$(WO)"N"NG1NY0:TR$(WO)"Y"NY1TR$(WO)(NY) 1:TR$(WO)"TR$(WO)"Y"TR$(WO)$(6)"-1":6905bCT$""CT$"0"(CR0CRTC%)640elNF1:CR1TC%:CT$(CN$(CR),2,(CT$))640wvCR:NG1:690CC0:SL2WO2(CN$(CR),1)"4"CC1:NF1630CC1NG1:690:HT:VP:(CN$(CR),2);:NF1ĖHT1:HR$:HR$(13)630B:4000:CS14500(TR$(5),5)"SPLIT"İ40006((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"TRWO)(TR$(WO),2):600:NG0TR$(WO)(CN$(CR),2)6ZSB0:AM$TR$(4):2600:NG1450wXX$AM$:2500:TR$(4)XX$BF1450CS0:(CH2(SL1CH3))(OM1WO5)SBOAPM%(SL,OD%):OM0(TR$(5),5)"SPLIT"SB2SB:CS1BAXYPM%(SL,MD%)S$(WO))UL(WO)NG1:290@SL1MD%0TR$(WO)""TR$(WO)(NX)cSL2TR$(WO)"END"MD%2:290rSL2İ600XC0:(SL1MD%0CH1)290XC1:X1(TR$(WO)):(TR$(WO),X,1)"9"(TR$(WO),X,1)"0"XC0X"0,(TR$(WO),1)"*"TR$((YY4)DD28993TR$(WO)MM$DD$YY$:LD$TR$(WO)9MM$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)(TR:D$(Z)DZ$:ZZ1:Z9110H 182:HK$:HK$(8)HK$(13)ĺBE$;:145Z HK$(8)125 DD$D$(4)D$(5):YY$D$(7)D$(8):MM(MM$):DD(DD$):YY(YY$):DD1DD31MM1MM1299 (MM4MM6MM9MM11)DD3099 MM2DD2999MM2YY4$(21)DZ$D$(Z):135- xDZ$(8)Z1135V }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$;:909 R8,20:;:D$"PR#"PS%:PF$(1):768I ZD$"PR#0":S cBE$;t dWO7:HT:CH2TR$(WO)LD$ fTR$(WO)""ĺDF$;:105 h(TR$(WO),2)"/"(TR$(WO),3,2)"/"(TR$(WO),2); iZ1:HT:WO7 nZ3Z6ĺ"/";:ZZ1 sWO7:DZ$:DZ9000,4500,8000:SL7252 -77:MS1:3000:10000B /3300:3320] 2SF%1SF%2SF%SF%2 73500:3515:3900:3005:HF1İ3800:3820 93010 < *** END OF MAIN LINE *** KEM0:3000:3500:3505 MSF%3EM1:M1%ND%:3900:31100:75 OELECT PERSON/CHECKBOOK"::" 6. SELECT DIFFERENT DATA DISK"::" 7. MAIN MENU{ FT%4Ģ12:3::"4. START NEW MONTH": 20::" ENTER SELECTION(1-7) "; #SL$:SL$"1"SL$"7"(FT%4SL$"4")Č1052:35 (SL$:SL(SL$):SL6000,7000,7000,G! ** TRANSA ** 4.22.82 -30000Q D$(4):D$"NOMON I,O,C":60000mCB%1WC1:WC$"1":25}WC0İ4500WC$(WC):SL0:6900:3900O ::" 1. CHECKBOOK"::" 2. CREDIT CARD"::" 3. CASH"::" 4. START NEW MONTH"::" 5. S                                           #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            $(2)" (1-3) "(95);RE17:26:CH$:CH$"1"CH$"3"(CH$"3"CM%MS%)ĺBE$;:800hFCH$:CH(CH$)48HYD1İ340:XRP:YRP:EMRP:BMRP:843J350:XBM:YEM5KPE%RM(EM)RM(BM)1:B1ST(2,X):B2TS(2,Y):YD2B10:B20:FRM(X)RM(Y):B1B1ST(2,MS2. PRINT RANGE OF MONTHS"::"3. MENU":F/4:SC$(2)" (1-3) "(95);s417:26:YD$:YD$"1"YD$"3"ĺBE$;:820>YD$:YD(YD$)48:YD3870C300:305::"1. PRINT PERIOD ONLY"::"2. COMPARE TO BUDGET"::"3. COMPARE TO LAST MONTH":D4:SC1800:LP50CRTC%PNPN1:1290:14606CR:1850STY:790:(12):90:700YlTY4TY57991900:TY6İ1950TY6PNPN1:1290:1460 RF24:CF0:NI0:LP0:RT2:PF1:Z0:PN1:PE%1:300(*305::"1. PRINT MONTH"::"4:SC$(2)" (1-4) "(95);X19:26:CH$:CH$"1"CH$"4"(CH$"3"CM%MS%)ĺBE$;:720xCH$:CH(CH$)48:CH4770CH1EP3340:XRP:YRP1:Y0Y12310:1200:80:85:1300:1460(TY15:790:1400:CR1TC%:(TY)(CN$(CR),1)İTY4TY5CH269971700:TY6TY8İ1650VTY8PNPN1:1290:1360\RF31:EP1:CF0:NI0:LP0:RT0:PF1:Z0:PN1:300305::"1. PRINT MONTH ONLY"::"2. COMPARE TO BUDGET"::"3. COMPARE TO LAST MONTH"::"4. MENU":;:614&lCH$:CH(CH$)48:CH46855qCH2PF1Sv1200:80:85:1300:1360TY17:690:1400:CR1TC%:(TY)(CN$(CR),1)İ1500:LP50CRTC%PNPN1:1290:1360CR:TY6(CH1CH3)İ1600CH2ĺ" "TY:690:(12):90:600SL600,700,800:400#3005-3010]XRF0:CF0:NI0:RT0:PF0:LP0:Z0:PN1:300b305::"1. PRINT BUDGET"::"2. PRINT CATEGORY NAMES ONLY"::"3. ACTUAL"::"4. MENU":d4:SC$(2)" (1-4) "(95);f19:26:CH$:CH$"1"CH$"4"ĺBE$EM(EM$):RM(EM)RM(BM)RM(EM)RM(CM%)(RM(EM)RM(MS%)CH3)Č1052:365\o:8:22:EM:oTY0: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:SL4500H>> ";Mc32,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%)InPB% @6 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 MONT36,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""( nR 36,26:Q1EP:"------- ";:Q:" ": 36,26:Q1EP:"------- ----- ";:Q:" ": 36,26:QRM(MS%)12:"======= ";:Q:TY6ĺ"========":210 "" 36,26:Q1EP:"======= ";:Q:" ":* F FORM "::6:" "(SM$(2),13)" ":::AS$2 Q95 S:8:AS$::11::" PRINTING REPORT "::11:" DO NOT INTERRUPT ":::AS$ UD$"PR#"PS%:PF$(PF): ZD$"PR#0": _PK(16384):PK12795 a16368,0: d36,26:QRM(MS%)12:"------- ";(CN$(CR),2);:@ ((BL$(((F1.5))),PL);NS$(F1(F1));:[ 2F1(TL.5):PL8:40:v <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 O2  ** PRINTE ** 4.19.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):