' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥ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- ( N 0@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` F d ֠z# u`x/|@0@~S p)@a<p<p@xp   ${` ۙ  "0 0 `0 ۩R۩ `ң L[ ?ц p`?2`H  qE + ]ꩀ ? ȹ.0Ș8 0)    ɩ ȩ h` ?ц ڥ ` Pх` `  ! ڥ { 0 ! Ҧꤥ)H)ꢠ) 뭀 ɠ)  ٤﹀ #Hɠ ٩ ٩h нh ) [` ?ц ?ц `0) ` ` Bц H SO X N X0/E D   D   ϊ`H hL Q Bъ ?хA@ ة cؤ `  `80 8` ؅D؅E , إB@CAL `@ `'d Q ٩ cؤ  ` م΢LLLפH h0)?) Ы ߥ R)0 L L L֤'{` ة ة ج{` ة L) ץ) @L :L֠  `!ʊ` a{` R `υ  BP,`"ɠɭɫȹ , ɮ  ְ ש ` ȹ ֐0 ѩ g ѥ b S^ X0 L5`8鰐 8` ׭{!ʊ Uҝ`!{ X &ɍ'uɛ"Ɉoɕ8ɋOɊTɉ*ɠ L׵µõ ĵ ŵ v`R թOթT M   lL  ` N յ ~L_ &) L[ L &ɠɛ` :L L[ѥL[Ѣ L7֦L7֨  ϩ P : ) H hɡb0^ L%ԩ L%ԩ ԥ* ԅ ԅ ԅ  DLԥ ? ] ԥ ԥ ԥ LGO,1,12:CS:7)BA$" requires a single floppy disk drive to perform":7)"certain functions such as the conversion of your accounting data to the":7)"Data Interchange Fo1$P$" code":ZDC:M1:XND:310:ESCF20507ESıX GF(NDC)CF:DCN:GFİ2950gDC12700 UDDC3:UF0:VD$"Volume":XXXV:UDVD$"Drive":XXXD"XX10A$"INSUFFICIENT NUMBER OF "VD$"S ON HARD DISK":UC,A$:ER,A$:2050*285024PEPEO:I18:PEPE(S$(I)"")::PE4050= "PE4050E 6N0_ hA$"":NN1:N34500 rGO,26,14:"Please enter password: ";:XY,X |GO,X,14:GK,K$:ER:(K$)13A$A$K$:4220 UC,A$!FS,A$,8,S$,I:I0A$""įER,"INVALID PASSWOR:ESı A$""A$DF$T DT,A$,JD:JDįER,"INVALID DATE ENTERED":GO,1,Y:3000 SS,0,A$:Y20įGO,1,Y:CL:GO,32:PL,L"Date set: ",YA$ CF14100I7079:SD,I,1::1::D$OP$CF$BV$",L32"BR,CF$,54,#PE,A$S$:8,A#PA:80/ ountant or until you perform a full system configuration.":24:2550` A2CĭNZĉ:80:12:OP,"Please wait":14:OP,"Configuring "BA$" for your Apple //c computer" GO,26:"Enter today's date: ";:XY,X,Y:OY,DF$:CL:GO,X:KI,8,A$:ER:ESA$ES$chased.":F "Use the System Status Report (#10) and the Setup and Configure (#8) options of the Main Menu to determine and change the configuration as needed.":DP "By the way, this message will appear the first 10 times you startup The BusinessAcclcome to "BA$::2 "Before using the many featues of "BA$" you should make sure that it has been properly configured for your specific computer system and the" < "Accounting Systems (e.g, General Ledger, Accounts Payable, etc.) that you have purm configuration. You should perform a system configuration using option number"r "8 of the main menu.":18 18:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:300 OP,"--- Press [SPACE BAR] to continue ---":WS,A$:300( 9:OP,"WeRD,9,J1:J10RCUG2400% 2400u. RS,9,G2$:D$UL$JF$G2$:D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%:D$CL$JF$8 SD,9,JR%` 7000j 50 10:BL$;:OP,!" W A R N I N G "::S "Your current disk installation does not match "BA$" Syster string, if any: ";:KI,8,A$:3410<1Z A$ES$İ350:3100^1b A$""LC$A$:A$" "LC$""1l 3300:GO,12,CV4:YN,"OK to accept this line printer configuration",N:N0İ350:31501n N30001v 414:1 GO,55,4L:L3310,3320,3330,33402 OIer",N:3410:N03070(0& FFN:FFFFFC200 33000N CV18:L4:3400:330:"To permit full 80 column output, some line printer control cards":GO,12:"must be initialized by outputing a string of special characters."%1X GO,12:" Enter special characte tests to determine Line Printer data",N:N03050E/ Nİ3500:3060/ CV14:L2:3400:P$"number of lines per page":ZLP:M20:X80:E1$P$:310:3410:ES3060/ LPN:33000 CV16:L3:3400:YN,(FF0),"Does your printer recognize Form-Feed charact:"Defaults:";:I14:GO,28:PL,S25,PP$(I),L":":E. L14:3300:. CV12:L1:3400:P$"line printer slot":GF1:ZPS:M1:X7:300:3410:ESCFı. ES3050. 360:E$""įER,E$:3050. PSN:PFN:33002/ CV14:330:YN,0,"Do you want to run- FL,0,4,NS:FL,0,3,S:FL,0,3,D:FL,"",3,DV$:FY$""I- FL,"",75,SD$:r- A$SD$(J):320:S(I)S:D(I)D:II1:x- - P$"Line Printer "CG$:390:A2CA$"Will use printer connected to port 1":4502. 400:410:PF0:GO,15,CV1:BX,50,5:GO,17,CV1)" ":2830,T GFDC0:2950Y,^ 12:OP,"Please wait, reading current configuration",h BR,CF$,0,#DC,#UF,#UD,$VD$,A#NS:4,A$SD$:75,$FY$:NS(5)SD$(15)"",r I1:J1:2990:J3:2990:J6:2990:DC1ı,| N93UD:I175:VD(I)((SD$(I),N))::29605+ FY$DV$(1):UF2DV$(3)DV$(2)G+ I1NF:SD$(I)DV$(FC(I))::2300M+ + GO,1,6:I1ND:GO,16:"< "I" > - ";:IDCįIV+ SP$DH$(I)SP$:+ GO,26:"(e.g., "DX$(I)", etc.)"::+ CV(37)3:GO,1,CV:CS: ," GO,1,3:CS::OP,!" "DH$(DC:E1$P$:310:ES2000/* UFN:UD0:CVCV2:I1* P$" drive #"(I):SS(I):DD(I):FY1:2450:ESII1:CVCV5:350:I12720,2700* A$SL$"0":FS,A$,I,DV$,N:N0NIįER,"DUPLICATE LOCATION":CVCV2:2720* DV$(I)A$:CVCV2:II1:IUF2720!2:) DDD2:2510F) NENE1:QD(NE)D:QS(NE)S:QX(NE)X:Q2(NE)Z:L)( g)2 ZQV(L):ZGFZVD(I))4 ZLVLVXXZLV1)6 ZįFD,Z,L1,QV,K:K0Z0)< GO,X,CV:ZįOI,3,Z:)F " ";:* 2850:350:P$"number of floppy drives":M2:X3:ZUF302:ESCVCV1:350:2460#( DNF( SL$",S"(S)",D"(D)",V":S( NE0:D0e( DD1:DNFı( SNDC(D):DYDY(D):D1ĭUS(SN)2510( S0:XD:N1:D2(DY)2:DY0S1:X20(SN1)16:NNS(SN)( I1N:Z0:2590:D2Z1:2590) SS1:XX1D:QV(L)N:GO,X,CV:OI,3,N:LVN:s' 330:GO,12:"Identify location of controller card for"P$":":CV(37)1(DC1)' P$"slot":ZS:M1:X7:SS$S6$:302:ESı' 362:E$""įER,E$:2460' SN:CVCV1:UDFY2480( P$"drive":ZD:M1:XXD:SS$S6$:A#NS:4,A$SD$:75,$FY$:D$CL$:*&V D$CL$:0&` d&j 2600:GO,X,CV:NI,3,ST%,N:ER:ESST%3:ESız&t ST%2NZ:ST%0&v ST%N1NXXįER,NV$E1$:2410&~ FD,N,L1,QV,Z:Z0įER,"DUPLICATE "E1$:2410& A$HL$(N):UDA$A$",V0" ' SD$(I)A$CVCVD2Q2(L):CVCECVCE:Q2(L)LL17%2250M%S1SD$(DD2)A$W%2240h%D20:CVCV2%:350:GO,12:YN,"OK to accept this disk configuration",N:N2000% N0İ330:CVCV1:1(UF0)2260,2700&. 400:BW,CF$,0,#DC,#UF,#UD,$VD$,"-------------------------------- ---------- ----------"T$CV(37):CECV:34,CV$GO,1,12:OP,"Please wait":2500:GO,1,12:CS$L0:LV0:E1$VD$NU$:UC,E1$$LL1:LNE2290$380:2400:ES2270$GO,1,CV:CL$LL1:Lĉ:2140-% mailing list (Labels Plus) Data, require two":" "VD$"s on your your hard disk. The two "VD$"s need not be consecutive."#::370:ES2140#FL,0,80,QV:2850:GO,12:PL,L" Diskette name 1st ",S8,VD$,L"2nd "VD$:$GO,12:"NOTE: You must copy all program diskettes (e.g., System Manager, General Ledger Programs, etc.) onto the selected disk "VD$"s. Use the copy program""" provided by the hard disk drive manufacturer.":#"NOTE: All data diskettes, except #5,4,Sales Account #6,4,Sales Account #7,4,Sales Account #8'1,Accounts Receivable,9,A/R Misc. Income,5,A/R Discounts,2,A/R Tax Collected,12,A/R Freight Charges,1,A/R Cash Received,8,A/R Finance Charges,10,A/R Credits/Debits$'6,Cost of Goods Sold UFD,AC,NC,AN,WH:WH0įBR,GD$,AA%(WH),$DS$:FD,AY%(WH),NY,TY,AY:AY0AY0[cXPX'2,Accounts Payable,1,A/P Cash Account,11,A/P Discounts<'4,Sales Account #1,4,Sales Account #2,4,Sales Account #3,4,Sales Account #4,4,Sales AccountD$CL$:?D$OP$GX$G1$",L16":D$OP$GD$G1$",L102"iBR,GX$,0,#NC:AN(NC),AA%(NC),AY%(NC)NCįBR,GX$,1,A#AN:NC,A%AA%:NC,A@AY%:NC D$OP$CF$SV$",L32":BR,CF$,36,A#PT:NP:PZBW,CF$,36,A#PT:NP:KPdI1NP:SD,9I,PT(I)::S,8,G1$:RS,99,FC$;RD,1,PS:RD,2,FF:RD,3,LP:RD,49,SAPG(NP),PC$(NP),PT(NP),GW(NG),GA$(NG),TY(NY),SY$(NS),L1(NS),L2(NS)I1NP:PG(I),PC$(I):I1NG:GW(I),GA$(I):I1NY:TY(I):I1NS:A$,L1(I),L2(I):SY$(I)A$" System":No":H2$"==== ======================= =======":S1$"Acct No Description ":S2$"======= ========================"NP31:NG12:NY14:NS3:AX999999TL$"Posting Table Maintenance":OH$"*** "TL$" ***"RS,0,TD$:RS,1,CO$:RS,6,SV$:RP$(I):&<AG(4):I14:AG(I)I30:<Z$(12),Z%(12),SD$(80),VD(80),DV$(3),S(3),D(3),V(3),NS(5),US(5),QD(80),QS(80),QX(80),Q2(80),QV(80),YN$(1)<YN$(0)"No ":YN$(1)"Yes"<":2 L$"":I1(LC$):A$(LC$,I,1):(A$)27L$L$"!":A$((A$)64)2 L$L$A$::OP,L$::2H GO,28,4L:HG,26:35,23:350::3302R GO,28,4L:HG,26:2 d3s"DMX$"MLINDEX.FILE":MD$"MLDATA.FILE":CF$"CONFIGURATION.FILE"LP$"LABELS PLUS":SP$" ":DL$"DELETE":IV$"INVALID ":VD$IV$"ID"H21:LX14:DX6:ELLX:AX999999:HU100:TT10000RS,1,CO$:RS,6,SC$:RS,19,LD$:RS,99,FC$ RD,0,ND:RD,5%įOI,3,AC%<2 AF1įGO,H26:PU,S3,TN$,L"-",S4,(TN$,4)B4 f: BT,SK,LN6,ST:OS,S,YN$(ST):o ALL LN0LX:350:3000::D$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"YN$(1):YN$(0)"No":YN$(1)"Ye100 T23050 TįCL:A OX,S,FC$:T4įGO,H1,V1:CLG Z AF1AC%3100z AF2įPU,L"(",X3,FC$,L") " GO,H26:PU,X3,FC$,L"-",X4,FC$: LNįOS,S,ID$: T3110,3120,3130& OS,S,NA$(LN): 0 GO,H21:PU,B3:GO,H21:ACL(A$):L2290 L72050>L8ĭ(A$,4,1)"-"2050VTN$(A$,3)(A$,4)eAF0:3000n380 BT,SK,LN6,ST GO,H2,V:YN,ST,"",YN:ESYN3 310:ES2070$ BT,SK,LN6,YN:  LNDXĭPN$(LN)""ı GO,H2,V:DD3A$:3000AF12250VPP$(LN)"Area Code":340:GO,H21,V:NI,3,ST%,N:ER:2060gST%22240ST%N0E$"AREA CODE":2052AC%NAF2:3000:2020PP$(LN)"Telephone Number":340:GO,H26,V:KI,8,A$:ER:310:A$ES$AF1:20302030- ER:310:ESST%3:ESġ:AF0:2070FST%2T2ġ:3000L\DDED:3000b4>ED(T1)įPU,LNA$(LN),XS(NA$(LN)),FC$:GO,H2@KI,S,A$:310:ER:ESA$ES$:ES2070B(A$"")ED3000HLNID$A$:UC,ID$:3000RNA$(LN) Keys,Create Filese"`'6,Company Info,Posting Table,Terms Codes,Customer Notes,Forms Table,Passwords"j'6,Full Setup,System Avail.,Disk Setup,Printer Setup,Clock Setup,Define Fill CharDt to DIF,Inv Reports Menu!L'9,Maint. & Reports,Payroll Process,Gov't Reports,Tax Deposits,Tax Tables,Post to G/L,Close Payroll,Verify Balances,Create Files"V'8,Maintain Names,Print Names,Print Telephone,Print Labels,Setup Labels,Merge Names,Selectioning,Misc. Posting,Invoice History,Print Statements,A/R Close,Create A/R Files,Convert to DIF,A/R Reports Menu!B'11,Maintain Parts,Parts Listing,Parts Inquiry,Purchase Orders,Inv Transactions,Phy. Inventory,Post to G/L,Close Inventory,Create Files,Convereate G/L Files,Convert to DIF,G/L Reports Menu.'10,Maintain Vendors,Print Vendors,A/P Entry,Payment Select,Print Checks,Handchecks,A/P Close,Create A/P Files,Convert to DIF,A/P Reports Menum 8'11,Maint. Customers,Print Customers,Credit Inquiry,InvoicAcc. Receivable,Inventory,Payroll,Labels Plus,System Utilities,System Setup,Change Date,Status Report.$'13,Maintain Acc'ts,Print Accounts,Initial Balances,Maintain Depts,Print Depts,Maintain B & C,Print B & C,Post to Journal,Recurring J/E's,G/L Close,CrST$(0)"Off":ST$(1)"On ":YN$(0)" No":YN$(1)"Yes"bI1MX:N:MI(I)N:J1N:MO$(I,J)::hn1::D$OP$CF$SV$",L32":RW$"BR"@RW$,CF$,54,#PW,A$PW$:8,A#PA:80:RW$"BW":5120XbPXe'10,General Ledger,Acc. Payable,):BL$(7)(7):SP$" "2CL$"CLOSE":OP$"OPEN"OCF$"CONFIGURATION.FILE"zES$(27):B8$"":I18:B8$B8$(8):MX9:OX13:XS$"INVALID SELECTION"RS,1,CO$:RS,6,SV$:RS,99,FC$PW$(8),PA(80),ST$(1),LW(10),YN$(1),MI(MX),MO$(MX,OX)6HG,6:GO,MH,4:HG,6:+OK0:NPıFI18:PW$(I)""4050|EN(I1)10:BT,PA(EN1),7,P1:BT,PA(EN8),6,P2OKOK(P1P2):OKıER,"CAN'T QUIT, NO PASSWORDS ARE DEFINED WITH ACCESS TO THIS OPTION":150D$(4 C I1OX:GO,1,V1I:MUįPU,L" Option #",I3,I,L" ":3020X OS,16,MO$(MU,I)` :f z& 350:GO,1,V110 I1MI(MU):3150::N GO,MH2,V1I:BT,LW(MU),I,N:YN$(N);: 350:GO,MH,3:HG,6:GO,MH,4:HG,6: 350:GO,MH,3:#1,6,Cost of Goods Sold #2,6,Cost of Goods Sold #3,6,Cost of Goods Sold #4,6,Cost of Goods Sold #5,6,Cost of Goods Sold #6,6,Cost of Goods Sold #7,6,Cost of Goods Sold #8 &'1,Inventory Account,3,Inv Purchase Receiving,7,Inv Purchase Price Var,7,Inventor,NSC$NA$(6),NB$(6),SK$(8),SC%(48),BM%(128),BM(32),OA$(2),GC$(2)$OA$(0)" or ":OA$(1)" and ":GC$(0)"Either ":GC$(1)"Both "$MSNV(NS1)$MSĆLD$(NS):I1NS:RS,87I,LD$(I):$$$OSĺD$CL$:EA,ID$,DA%,LK%%D$OP$MX$DV$",LILE":CF$"CONFIGURATION.FILE"3#LP$"LABELS PLUS"u#Q$"=":SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":S3$" "#SB128:MX1000#RS,0,TD$:RS,1,CO$:RS,6,SV$:RS,19,LD$:RS,99,FC$$RD,0,NV:RD,1,PS:RD,2,FF:RD,3,LP:RD,6,ML:MLML1:RD,53:"NL5(NANB):600D"\PL,S9,IB$,S31,NB$(1),S9,ID$,S30,NA$(1)t"fI2NL1:PL,B9,S31,NB$(I),B9,S30,NA$(I):"pSP$:""KB16384:KS16368"D$(4):ES$(27)"UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"#MX$"MLINDEX.FILE":MD$"MLDATA.FS3600#!AC$"complete":500:570)!L!C21:NN1N2:VN:ZSVLK%(N)[!ID$ID$(V)n!300:OKİ4600t!!C2ID$SP$:I15:NA$(I)SP$::4630!4300!!A2(NA$(3)):310:NAA2" C2C2:C2āI15:NB$(I)NA$(I)::NBNA:IB$ID$T,SK,I,ST:A$"":STA$SK$(I)8 ,OS,5(I8),A$::SP$Z 6I2NL1:PL,B9,S27,NA$(I):i @SP$:4290o h rNL1(CP0):600 |316:NA$(5)(NA$(5),6) PU,B(2(SF)13),S10,ID$(V),S26,NA$(1),S16,NA$(5):SFįPU,X24,"_" :CPĺ !A01OKNTNT1:LK%(NT)V:ZV(NT)(NA$(5))XVV7[SR,ZV,LK%,NT:N11:N2NT:EA,ZVlMLSF4500NN1N2:VN:ZSVLK%(N)300:OK4290ML4200A2NA$(3)"":NL5A2:600310 "PU,S9,ID$(V),S30,NA$(1):I18:B(AC):320' H2$""H2$"("H2$")"6 CPPNėH& PNNL0:600W0 720:4000] j AS3600 WD,LP$" DATA"::0ASNS4350$ASAS1:3000NT0:NN(N2N1)(N1NN)4300ZS4050ZV(NN)VN1N2:30D$,N:N0DS$"(Data Set # "(N)")"E H2$"":AFN11:N2NN:3080d FS,N1$,NN,ID$,N1:N1(N1) FS,(N2$Z$,8),NN,ID$,N2:N20N2(N2)1 N2NNN2NN H2$"IDs: "N1$" thru "N2$ ZLP$"ZIP Code: "ZC$:320  ACP$"Area Code: "B ZL(ZC$)` 1050:V6CVfj YN,"Should listing be sorted by ZIP code",ZS:ZS0VV5:1040:2360 1050:400:ESVV6:1040:2410   ASDV$LD$(AS) EF1:EFĺD$UL$MX$DV$:EF0:3040 3500 5100% DS$"":MSįFS,DV$,NS,L%,AC:ER:ST%3VV3:1040:22608 ST%2AC0:2350 ST%AC0AC999E$"INVALID AREA CODE, MUST BE 0 to 999":ER,E$:2310. 1050:V5CV8 1030:"Enter ZIP code for search, [RETURN] only for all: ";:KI,10,ZC$:ER:ZC$ES$VV4:1040:2310 ST%2SC0:SC$"":2300AST%SC0SC4E$IR$:ER,E$:2260~8000:SC$""įER,"SELECTION CRITERIA NOT DEFINED":2260CVCV1:GO,14,CV:OP,SC$:OP,MC$1050:V4CV! 1030:"Enter area code for search, [RETURN] only for all: ";:NI,3,ST$CL$:PXA$'1,0,8,1,0,"Identification"," ",1,2,22,1,0,"Name",""$'1,3,22,1,0,"Address, line 1","1st line of address",1,4,22,1,0,"Address, line 2","2nd line of address (optional)" %$'1,5,20,1,0,"City and State","City, State abbreviation",1,6,10,1,0,"NN#nKP:XU0:#$#RW$"BR"Z#@RW$,MD$,DA%(IW),A$NA$:5,%AC%,$TN$,@SK%:SKSK%:t#NA$(3)SP$NA$(3)""#RW$"BW":SK%SK:5320##"D$OP$CF$SC$",L32"#,BR,CF$,93,A$SK$:8,A$KD$:8:#XER(222):EFĭER6ER8EF0:XO:$b1::DD$(XV),DA%(XV),US%(XV)I"NNįBR,MX$,1,A!ID$:NN,A%DA%:NN:UA,NN,US%,DA%"CS1:MSįFS,LD$,NS,LD$,CS:GO,27,7:"Using Data Set number "CS" of "NS:SS,19,LD$(CS)"(XU0:"P"ZXU5230"dBW,MX$,0,#NN,#XV,#XE#fNNįBW,MX$,1,A!ID$:NN,A%DA%:4)65:PV(I)I7:PV(I4)I7:PT(I)3:PT(I4)3:PS(I)3:PS(I4)3:X!NA$(5),SK$(8),KD$(8)^!d!!D$OP$MX$LD$",L32":D$OP$MD$LD$",L112"!BR,MX$,0,#NN,#XV,#XE!XV(XV):XV1XV1!XE(XE):XENNXEXVXENN! CSįEA,ID$,DA%,US%" I3,NS:MSND(NS1)E MSĆLD$(NS):N88:I1NS:RS,N,LD$(I):NN1:} PH(LX),PV(LX),PS(LX),PT(LX),PX(LX),PN$(LX),PP$(LX) I0DX:PH(I),V,PS(I),PT(I),PX(I),PN$(I),P$:PV(I)V10:P$""P$PN$(I) PP$(I)P$:>!IDX1LX4:I4I4:PH(I)47:PH(IID$:NN,A%DA%:NN<&SCP(SC1)32:I132:BM(I)BM%(PI):G&(OS1:M&Pd&ZD$OP$CF$SV$",L32"&dBR,CF$,92,#LC,#LW,#LH,#SS,#LD&fTSLH5:BSLHTS4:TKTS&nBR,CF$,93,A$SK$:8:BR,CF$,100,A%SC%:48&xBR,CF$,104,A@BM%:128:&p,'zFX$FX$(OI),FV(I),NS(I),DS(I):+%I15:GT$(I):=%MSNV(NS1)h%MSĆLD$(NS):I1NS:RS,87I,LD$(I):n%t%%OSĺD$CL$:EA,ID$,DA%,LK%%D$OP$FX$FV$",L32":D$OP$FD$FV$RL$RL% BR,FX$,0,#NN,#XV:ID$(NN),DA%(NN),LK%(NN)&NNįBR,FX$,1,A!D,6,0>$DS$(8),SK$(8),SC%(48),BM%(128),BM(32),OA$(2),GC$(2)$OA$(0)" or ":OA$(1)" and ":GC$(0)"Either ":GC$(1)"Both "$LA$(4,5),NA$(5),GT$(5)$SY$(4),FX$(4),FD$(4),UN$(4),PV(4),FV(4),NS(4),DS(4)%I14:SY$(I),FX$(I),FD$(I),UN$(I),PV(INVALID RESPONSE":Z$"ZZZZZZZZ":S3$" ":PK$"--- Press [SPACE BAR] ":WR$PK$"when ready ":US$WR$"or use [ESC] to abort ---"#SB128:MX1000#RS,0,TD$:RS,1,CO$:RS,6,SV$:RS,19,LD$:RS,99,FC$$RD,0,NV:RD,1,PS:RD,2,FF:RD,3,LP:RD,49,SA:S)GT$(I):!"TF1:4100::ESı1"PW,0:45207"O"KB16384:KS16368s"D$(4):ES$(27):BL$(7)(7)"UL$"UNLOCK":CL$"CLOSE":OP$"OPEN""FL$".FILE":CF$"CONFIGURATION.FILE""RL$",L""LP$"LABELS PLUS"#Q$"=":SP$" ":IR$"BSIT:SP$:!CN0:c!1050:CV4:OP,"Please load labels in the printer":::OP,WR$"---"!WS,A$:1030:CS:ESA$ES$:ESı!1030:YN,"Want to print alignment test",N:ESN0:RUN1:N1ı!PW,PS!N2LC:CN0:N1N2 "I15:NA$(I 18:OP,WR$"---":WS,A$:GO,1,14:CS:ESA$ES$:ESNN2:NLML:CN0:W TFİ340g PW,PS:RN1t SD,6,RNz  TSāI1TS:SP$: I14IT:J1CN A$LA$(J,I):A$""A$SP$ JCNįOS,LW,A$:4340 A$ : !BSITāI1N$S3$,3),1,"-",1,(TN$,4),NA$(5):NA$(4)""NA$(4)NA$(5):NA$(5)""w6CNCN1:I14IT:LA$(CN,I)NA$(I)::CNLCıhSS4300rRD,6,RN:RNRN1:RNLD4280PW,0:1030:CS:16:OP,"Load the next sheet of mailing labels into the printer."IUND, NO LABELS PRINTED ***":UC,E$:12:BL$;:OP,E$:14:OP,PK$"to continue ---":WS,A$oAQ$"more ":100uNA$(4)NA$(4)SP$NA$(5)NA$(3)""NA$(3)NA$(4):NA$(4)""E"ITįSB,1," Tel: (",AC%," ",AC%,("000"(AC%),3),1,") ",1,(TV,LK%,NT:N11:N2NT:EA,ZV8NN1N2:VN:ZSVLK%(N)gXT(KB)SB:XT0ĹKS,0:XT27NN2:4080GS1300,310:OK40804100:ML1āNL2ML:4150:CNİ4200AS3600PW,1:80:330ZXNXTE$"*** NO"UN$(OP)"S FO4000   AS36004 WD,SY$(OP)" DATA"::0:KASNS4092]$ASAS1:3000cTF0:NT0:NN(N2N1)(N1NN)4090ZS4050ZV(NN)VN1N2GS1300,310:OKNTNT1:LK%(NT)V:ZV(NT)(NA$(5))XVVSR,ZF1:EFĺD$UL$FX$FV$:EF0:3040) 35003 5100u DS$"":MSįFS,FV$,NS,DS$,N:N0DS$"(Data Set # "(N)")" AFN11:N2NN:3100 FS,N1$,NN,ID$,N1:N1(N1) FS,(N2$Z$,8),NN,ID$,N2:N20N2(N2)1 N2NNN2NN & PW,PS:0:V7CVU 1030:YN,"Include telephone number on labels",IT:IT0VV6:1040:2510e( 1050:V8CV2 YN,"OK to print these labels",OK:OK0VV7:1040:TK12510,2570< 80:330Z OK140d 340 GO,1,1::  ASFV$DS$(AS) E)65SC$(SC$,58):MC$" + !m!o!r!e"*'rJ'PP1:A$"":OA$OA$(SC%(P))m'I14:PP1:ESC%(P):E8150'I1A$A$OA$'E0A$A$"Not "'A$A$SK$((E))':%:128:/&XEFER(222):ER6ER8EF0:XO:C&b1::D$CL$:PXI&@j&JPSC1211:SC%(P)SC$"":&TGCSC%(P11):G1:8100:GC2SC$A$:8040&^G1$A$:G2:8100:SC$GC$(GC)"("G1$")"OA$(GC)"("A$")"$'hSC$(SC$,76):H3$SC$:MC$"":(SC$32":D$OP$MD$DV$",L112"F% BR,MX$,0,#NN,#XV:ID$(NN),DA%(NN),LK%(NN)j%NNįBR,MX$,1,A!ID$:NN,A%DA%:NN%SCP(SC1)32:I132:BM(I)BM%(PI):%(OS1:%P%ZD$OP$CF$SV$",L32"%dBR,CF$,93,A$SK$:8:BR,CF$,100,A%SC%:48&nBR,CF$,104,A@BM$UL$FX$DS$(N):EF0:2080HER,"DATA SET # "(N)" NOT CREATED":2060] CSN:FV$DS$(CS)c*w4AD0:NR0:1050>V1CV:1030:OP,"Merge !All or !Selective"UN$"s: ":S0:1060:ESıHSQ,A$,"ALL",N:NAF1:2200 RSQ,A$,"SELECTIVE",N:Nį350:N12090,2030>SQ,A$,"SPECIFIC",N:NįER,IR$:2030JCVCV1 1030:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ1030:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060350:N2060EF1:EFĺDPP$:": ";:XY,H:OX,8,FC$40GO,H:S8:1060:ESıS2UC,A$:GO,H,CV:OS,S,A$:YRS,FV(OP),FV$:FS,FV$,NS,DS$,CS1050:CS1030:OP,SD$" !Current (#"(CS)") or !Specific data set: ":S0:1060:ESıSQ,A$,"CURRENT",N:NNCS: CV8:1030:CS:8GO,1,CV:CL:GO,12:V1030:CVVCVCV1:1040\nCVCV2:1030CVCV1:1030$KI,S,A$:ER:ESA$ES$:ESİ1030&.1030:SB,1," Enter "P$"ing",OP1,UN$,1," ID",PP$:OS,199(OP2)7(OP2),:1052:V0CVN]^OP1ĭNC1įER,"INVALID DATA SET, TWO UNIQUE DATA SETS REQUIRED":N0c`rRD1:SK%0:GSįBR,FD$,DA%,A$NA$:5,%AC%,$TN$:tBR,FD$,DA%,A$NA$:5,%AC%,$TN$,@SK%:SQ,A$,"NEXT",N:NįSQ,A$,"PREV",N:NĭA$"DATASET"N140,1903000D1::D$CL$:LFDK$SY$:6800:A$ES$100N250uMM,LP$:D$"RUNLABELSMENU.PROG"SV$WD,SY$:230J1:OP,LP$:3:OP,"*** Merge Names into Mailing List ***":5:OP,CO$: LOPİ1010:OP,!" Merge: "SO$(OP)" "::160"NS1:OP4įRD,NS(OP),NSpOP1įBT,SA,OP(OP3),N:NįER,SY$(OP)" SYSTEM IS NOT AVAILABLE":160NVĭNSįER,"NO DATA SETS DEFINED FOR "SY$(OP)" SYSTEM":160332:6000CVV0:MSSD$"Use":2000:ES1402100:ESĴMS11" > - "SO$(I):1052::1050 1030:"Enter source (1-4) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:GSOP1:ST%1100 ST%OP1OP4įER,"INVALID SOURCE":160NVĭN11OP1įER,"ONLY ONE MAILING LIST DATA SET DEFINED, NO MERGE POSSIBLE"OP),LD$:M1140G FS,LD$,N1,LD$,CS:I1N1:DS$(I)LD$(I)::FV$LD$~ OP0:NSN1:C10:SD$"Merge into the":2020:ES110 LD$FV$:C1CS 1010 XT0:XN0:H18:1050:"Select source of names to merge into list:" 1050:I14:GO,H:" < "I 7000 5000:807 (OS0:AQ$"":HD$"Labels"E 2OP0:330o <EF1:EFĺD$UL$CF$SV$:EF0:5200:100 FWD,SY$:50 dD$CL$ nES0:1010 x1050:YN,"Want to merge "AQ$"names into mailing list",N:N0200 OP1:FX$FX$(OP):RS,FV(              A," vendor",10,11,50,40[+$'ACCOUNTS RECEIVABLE,CUSTINDEX,CUSTDATA," customer",13,14,51,56+.'PAYROLL,EMPINDEX,EMPDATA," employee",20,23,0,0+** Label Alignment Test *++* Line Number 2 *+ +* Line Number 3 * ,+"* Line Number:MC$" + !m!o!r!e"*r8*PP1:A$"":OA$OA$(SC%(P))[*I14:PP1:ESC%(P):E8150n*I1A$A$OA$*E0A$A$"Not "*A$A$SK$((E))*:*'MAILING LIST,MLINDEX,MLDATA," name",6,19,53,88+'ACCOUNTS PAYABLE,VENDORINDEX,VENDORDAT))XEFER(222):ER6ER8EF0:XO:1)bPX7)@X)JPSC1211:SC%(P)SC$"":)TGCSC%(P11):G1:8100:GC2SC$A$:8040)^G1$A$:G2:8100:SC$GC$(GC)"("G1$")"OA$(GC)"("A$")"*hSC$(SC$,76):H3$SC$:MC$"":(SC$)65SC$(SC$,58)F0:6330(WD,DK$:60502(D$OP$FX$FV$",L32"P(BR,FX$,0,#MN,#MX,#XV,#RLY(190_((GO,1,8:CS:GO,1,10:OP,"Please load the following diskette:":V12(V:FF,FV$,A$:OP,!" "A$": "DK$" ":VV2(GO,1,V3:OP,US$)WS,A$::P)FL$:FD$FD$(OP)FL$:FLFL(OP):UN$UN$(OP)?'RS,FV(OP),FV$Q'MSNV(NS1)'MSSTDS(OP):IN1GS:N0:I1NS:RS,STN,DS$(I):NNIN:'DK$SY$(OP)" DATA"'NV6300''6800'(A$)27ė:330:140'EF1 (EFĺD$UL$FX$FV$:EER,IR$:2110>fCVCV1:P$"start":1070:ESVV1:1040:2110IhN1$A$vpCVCV1:P$"end":1070:ESCVCV2:2150zN2$A$:AF0GSV2V1:23001050:V2CV'1030:OP,"Enter selection criteria (1-4) for merge, [RETURN] only if none: ":NIage",12,0Hhe Page",12,0HJRW$"BW":5420X,b1::D$CL$:PX'"Number of Labels across the Page",1,0,"Label Width, in Characters",36,0,"Label Height, in Lines",4,0,"Using Single Sheet Labels (Yes or No)",0,1,"Number of Labels down the Page",12,0 f Labels down the PDELETE""IR$"INVALID RESPONSE"?CF$"CONFIGURATION.FILE"aRS,1,CO$:RS,3,LC$:RS,6,SV$nRD,1,PSDF$(5),SV(5),YN(5),DA(5)I15:DF$(I),SV(I),YN(I):D$OP$CF$SV$",L32":"RW$"BR",@RW$,CF$,92,A#DA:5:VSV:4500:GO,12,CV:Q$::XY,X,CVSGO,15,CV:YN,DA(L),P$,N:ESN3:ES4250]4230qGO,12,CV:CS:{INITHP61:HW39D$(4):BL$(7)(7):FC12:FF$(FC):SP$" ":ES$(27)OP$"OPEN":CL$"CLOSE":LK$"LOCK":UL$"UNLOCK":DL$"V:Q$::XY,X,CVl|GO,14,CV:"Enter "P$;:CL:XY,X:OI,2,DA(L):GO,X:NI,0,ST%,N:ER:ESST%3:ES4250~ST%2NDA(L):ST%0ST%NMNNMXE$"INVALID "X$:ER,E$:4220DA(L)N:4100GO,23,8L:HG,HW:#GO,23,8L:HG,HW:Caults:";:I15:GO,24:PL,S37,DF$(I),L":":GXY,X,Y:CVY3:SVCV:\L15:4100::bGO,HP2,8L:YN(L)4130L5ĭDA(4)ĺ"n/a":OI,3,DA(L):"DA(L)ĺ" Yes":$" No ":hrGO,23,8L:HG,HW:CVSV:4500:GO,12,C :PW,PS2 "***** Top of 1st Label *****":SP$g 9);"1 1 2 2 3 3 4 4 5" "1...5....0....5....0....5....0....5....0....5....0" SP$ I624:"Line # ";I: PW,0:GO,11,7:BX,58,6,GO,13,9:"Def0ı Nġ:100" DA(4)2250, 22002  4500:" Load labels in the line printer and position the":GO,15:"print head at the top of the first label on the page.": OP,"--- Press [SPACE BAR] when ready ---":WS,A$:A$ES$ġ:2000 ҭES2150L5:DA(4)2300Q$"For single sheets, indicate the number of labels down each page.":P$"number of labels down the page (1-24): "MN1:MX24:X$"NUMBER OF LABELS":4200:ES2200CVSV:4500:YN,"Accept mailing label setup",N:Nbel to the top of the next label.":P$"label height, in lines (4-24): "zpMN4:MX24:X$"NUMBER OF LINES":4200:ES2130Q$"Labels come in either continuous forms or single sheets."L4:P$"Will you be using single sheet labels":4300:L5:4100:e is more than one label across the page.":P$"label width, in characters (24-72): "\MN24:MX72:X$"NUMBER OF CHARACTERS":4200:ES2100GfL3:Q$"Label height is measured in lines. Measure the vertical distance from the top of one larms can have from 1 to 4 labels across each page.":P$"number of labels across the page (1-4): " >MN1:MX4:X$"NUMBER OF LABELS":4200:ES2000TRL2:Q$"Label width is measured in characters. Include the space between labels when ther50 END 1::D$CL$% 250V MM,"LABELS PLUS":D$"RUNLABELSMENU.PROG"SV$s WD,"SYSTEM MANGER":230 LABELS CVSV:4500:YN,0,"Do you want to run tests to determine label setup data",N:N0ġ:100 Nİ2500` 4L1:Q$"Label fo 7000 5000:5100o 280:OP,"LABELS PLUS":3:OP,"*** Setup and Define Labels ***":5:OP,CO$:y Z4000 d5400:I15:DA(I)DA(I)SV(I) f:4050 n4500:YN,"Do you want to setup and define labels",N:N0200 x2000 54          1050:V6CV{ 1030:"Enter number of labels each (1-99): ";:XY,X:1;:GO,X:NI,3,ST%,ML:ER:ST%3VV5:1040:2410 ST%2ML1:2550 ST%ML1ML99įER,"INVALID NUMBER OF LABELS, MUST BE 1 to 99":2510 ITTK:ITV7V6:2600 105DE, MUST BE 0 to 999":2310+. 1050:V4CV8 1030:"Enter ZIP code for search, [RETURN] only for all: ";:KI,10,ZC$:ER:ZC$ES$VV3:1040:2310B ZL(ZC$)` 1050:V5CVj YN,"Should labels be sorted by ZIP code",ZS:ZS0VV4:1040:2360 NOT DEFINED":22108CVCV1:GO,14,CV:OP,SC$:OP,MC$H1050:V3CV 1030:"Enter area code for search, [RETURN] only for all: ";:NI,3,ST%,AC:ER:ST%3VV2:1040:GS12210,2100 ST%2AC0:2350 ST%AC0AC999įER,"INVALID AREA CO0:23001050:V2CV1030:OP,"Enter selection criteria (1-4) for search, [RETURN] only if none: ":NI,0,ST%,SC:ER:ST%3VV1:1040:2100ST%2SC0:SC$"":2300ST%SC0SC4įER,IR$:22108000:SC$""įER,"SELECTION CRITERIA Enter: ";:XY,X:P$"Start":1080:ESVV1:1040:2100@TN1$A$k\XY,X:P$"End":1080:ESCVCV1:2130u^2170fCVCV1:P$"start":1070:ESVV1:1040:2100hN1$A$pCVCV1:P$"end":1070:ESCVCV2:2150zN2$A$:AF0GSV2V1:SC(N)" NOT CREATED":2060. CSN:FV$DS$(CS)8*10504V1CV:1030:OP,"Print !All or !Selective"UN$"s: ":S0:1060:ESVV0:1040:2020>SQ,A$,"ALL",N:NAF1:2200HSQ,A$,"SELECTIVE",N:NįER,IR$:2100JGS21505RCVCV1:1030:" SPECIFIC",N:NįER,IR$:2030)CVCV1 1030:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ1030:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1EFĺD$UL$FX$DS$(N):EF0:2080ER,"DATA SET # "A$: #V0CV:AS0:MS2100.MSıTRS,FV(OP),FV$:FS,FV$,NS,DS$,CSAS0:1030:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:1060:ESıSQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090SQ,A$,"030:SB,1," Enter "P$"ing",OP1,UN$,1," ID",PP$:OS,199(OP2)7(OP2),PP$:": ";:XY,H:OX,8,FC$0GO,H:S8:1060:ESı2UC,A$:GO,H,CV:OS,S,A$:8GO,X:P$"ing ID: ";:XY,H:OX,8,FC$:GO,H:S8:1060:ESı<UC,A$:GO,H,CV:OS,12,PT1010:12:OP,"Label printing may be aborted by pressing the [ESC] key":VkCV8:1030:CS:GO,1,CV:CL:GO,12:1030:CVVCVCV1:1040CVCV2:1030CVCV1:1030$KI,S,A$:ER:ESA$ES$:ESİ1030&g.1-.OKACACAC%:ZLOKOKZC$(NA$(5),ZL)a0SCK(SK8):BT,BM(K1),SK8K1,K1:OKOKK1p2XNXNOK:6BR,FD$,DA%(V),A$NA$:5,%AC%,$TN$:302@H2$H2$H2$", "BH2$H2$P$:J1:OP,LP$:3:OP,"*** Print Labels ***":5:OP,CO$::RD,NS(OP),NS:6000F:OP,"*** Setup"UN$(OP)" labels ***":CV4`2000:ESė:330:140j3000p1::D$CL$250MM,LP$:D$"RUNLABELSMENU.PROG"SV$WD,"SYSTEM MANAGER":230,BR,FD$,DA%(V),A$NA$:5,%AC%,$TN$,@SK%:SKSK%"Enter source (1-4) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:GSOP1:ESST%3:ES100l ST%2200 ST%OP1OP4įER,"INVALID SOURCE":160 OP1įBT,SA,OP(OP4),N:NįER,SY$(OP)" SYSTEM IS NOT AVAILABLE":160 OP4NS1:6000labels:"> 1050:GO,H:" < 1 > - Names from mailing list"t 1052:GO,H:" < 2 > - Vendors from A/P System" 1052:GO,H:" < 3 > - Customers from A/R System" 1052:GO,H:" < 4 > - Employees from Payroll System" CVCV3\ 1030: ! 7000 5000:807 (OS0:AQ$"":HD$"Labels"@ 2330J <5200P d_ nES0:1010 x1050:YN,"Want to print "AQ$"mailing labels",N:N0200 AQ$""İ4500:ES100 XT0:XN0:H18:1010:1050:"Select source of names for printing                    $"space for comments":MLP$"selection keys on the listing"nYN,"Include "P$,SF:SF0VV1:1040:2100~1050:V3CV1030:OP,"Enter selection criteria (1-4) for search, [RETURN] only if none: ":NI,0,ST%,SC:ER:ST%3VV2:1040:2210es: ":S0:1060:ESVV0:1040:2020E>SQ,A$,"ALL",N:NAF1:2200pHSQ,A$,"SELECTIVE",N:NįER,IR$:2100fCVCV1:P$"Start":1070:ESVV1:1040:2100hN1$A$pCVCV1:P$"End":1070:ESCVCV2:2150rN2$A$:AF01050:V2CV=PR:ST%3İ1030:CVCV1:2030SST%N1NNSįER,"INVALID DATA SET NUMBER":2060\EF1EFĺD$UL$MX$LD$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN:DV$LD$(CS)*1050$4V1CV:1030:OP,"Print !All or !Selective namse !Current (#"(CS)"), !Specific, or !All data sets: ":S0:1060:ESıhSQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1 1030:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:E:ER:ESA$ES$:ESİ1030&].1030:OS,19," Enter "P$"ing ID":": ";:XY,H:OX,8,FC$w0GO,H:S8:1060:ESı2UC,A$:GO,H,CV:OS,S,A$:V0CV:AS0:DV$LD$:MS2100MSıRS,19,LD$:FS,LD$,NS,LD$,CSIAS0:1030:OP,"U,X8,Q$,B1,X26,Q$,B4:I18:OS,5,"====":::oPU,B(2(SF)13),X8,Q$,B2,X24,Q$,B2,X14,Q$:SFįPU,B2,X24,Q$SP$:CPĺSP$CV8:1030:CS:GO,1,CV:CL:GO,12:1030:CVVCVCV1:1040CVCV2:1030$KI,S,A$930> H$" ID Name/Address/Telephone":SFĺH$8)H$:f*OS,39,H$:I18:OS,5,SK$(I):::>PU,B(5(SF)13),S17,"ID",S17,"Name",S19,"Telephone No.":SFįPU,S16,"Comments / Notes"@:PL,X8,Q$,B1,X26,Q$,B5,X8,Q$,B1,X26,Q$:-PU:LN6:L(OW(CO$))2FPU,L"As of: ",YTD$:L15)CO$L8)"Page "PN^(OW(HU$))2)HU$DS$""ĺ(OW(DS$))2);DS$:LNLN1H2$""ĺ(OW(H2$))2);H2$:LNLN1SCĺ(OW(H3$))2)H3$:LNLN1SP$:MLİ800:SF1900,910830:MLİ930xMLĴSF1900,9103zLNLN1:CP640~|24:OP,"Press [SPACE BAR] to contunue or use [ESC] to abort listing"~WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1WS,A$:GO,1,1:&N0CPLNLN2:SP$:"***** LISTING ABORTED....."e2AC$"aborted":500o:590zD:580N7000PAQ$"another "R80:50XbL(KB):L128620dKS,0:L128(ES$)550lNLĭLNNLEPLNLNNL: vC] key":(CPPS:OLLP:EPOL6:PW,PSNHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::LNLN1:MLİ930MLĴSF1900,910CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]"D$" ***":5:OP,CO$::]1030:OP,"Select !Console or !Printer: ":S0:1060:ESıSQ,A$,"CONSOLE",N:NCP0:EP23::350:490:480SQ,A$,"PRINTER",N:NįER,IR$:420 :350:490:15:OP,"Listing may be aborted by pressing the [ES$(4)SP$NA$(5):316C 8A2NA$(3)NA$(4):NA$(4)NA$(5):NA$(5)""I : <SB,1,"Tel: (",AC%," ",AC%,("000"(AC%),3),1,") ",1,(TN$S3$,3),1,"-",1,(TN$,4),NA$(5): @(H2$)H2$H2$", " BH2$H2$P$:^1:OP,LP$:3:OP,"*** Print "H1::D$CL$ 250< MM,LP$:D$"RUNLABELSMENU.PROG"SV$Z WD,"SYSTEM MANAGER":230 ,BR,MD$,DA%(V),A$NA$:5,%AC%,$TN$,@SK%:SKSK%:OKACACAC% .ZLOKOKZC$(NA$(5),ZL) 0SCK(SK8):BT,BM(K1),SK8K1,K1:OKOKK1 2 6NA$(4)NA 7000 5000:80` (OS0:AQ$"":HD$"Telephone / Contact List":MLHD$"Mailing List"i 2350s <5200y d n1010 x1030:YN,"Print "AQ$HD$,N:N0200 :OP,"*** Setup "HD$" ***":CV4 2000:ESė:50 3000                 1310<KF1200<FER,"NO SELECTION KEYS DEFINED":1210B[350:AFT2:T3000oEDDD0:3000LNİ330:T1İ340310:GO,H1:HG,511(LN7):GO,H2DD1:T2100,2200,2300E$(PP$(LN),1):UC,E$ER,IV$E$:DDED:3000:ELįER,IV$"LINE NUMBER":1210[LNDXPN$(LN)""įER,"SELECTION KEY NOT DEFINED":1210z320:ED1:2000:UP1:1200320:LNDX1:KF0ES0:ED1:PN$(LN)""İ2000:UP1:KF1 ES1330(LNLN1:LNDX1200*13102LNLN1:LNLXDA%(IW):370QtFS,ID$,NN,ID$,IW:IW(IW):360:5200:LN0:350:DD1:3000:650W330:OP,"Enter line number to edit (1-"(EL)"), !Keys, or [RETURN] only: "NI,0,ST%,LN:ER:ST%2650LI,A$:SQ,A$,"KEYS",N:N1300ST%LN1LNW)))0:3705200:KP:100$L{V330:"Enter new ID: ";:XY,H:OX,8,FC$:GO,H:KI,8,ID$:ER:ID$ES$ID$SP$650XUC,ID$:390:NįER,VD$", Can't use NEXT, PREV or DATASET":1110`FS,ID$,NN,ID$,N:N0įER,"ID ALREADY EXISTS":1110 jAV50EDLNLL:2000:ES7502LNLN1:LN740;720TLNLN1:LNLLLLLNdLNLX740FD,0,XV,US%,AV:US%(AV)1:360650GO,12,23:OP,"Confirm by typing !D!E!L!E!T!E: ":KI,0,A$:UC,A$:A$DL$İ320:650 US%((DA%(IIV$"RESPONSE":650NEW8LL0:AC%0:TN$"":SK%0330:BL$;:YN,"Name not on file, want to add this name",N:N0730LL100140NNXVįER,"NO ROOM, MAILING LIST IS FULL":140330:LN1:UP1:SK0LN6DD1:350:3000:7P$"Enter !Edit, !Rename, !Delete, or [RETURN] only: ":330:OP,P$cKI,0,A$:ER:A$ES$670pEVī100y650A$""680UPİ5350KP:100SQ,A$,"EDIT",N:N1200SQ,A$,"RENAME",N:N1100SQ,A$,DL$,N:N1000ER,15200:EF1oEFĺD$UL$MX$LD$(N):EF0:LD$LD$(N):330:OP,!" Please wait, switching data sets "::50ER,"DATA SET # "(N)" NOT CREATED":140ID320:FS,ID$,NN,ID$,IW:EVIW0:EVIW(IW):700Xb5300:3500:PVIW:UP0D190*IWPVN:ID$ID$(IW):EV1:320:6003D/SE320:MS190330:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,ST%,N:ER:ST%3140ST%N0NNS490LI,ID$:390:N1įER,IV$"DATASET NUMBER":470NCS1:NNSNNNIW:NNNN15tN0įMV,N,ID$(IW):MV,N,DA%(IW)HvPVIW1:XU1:|330:OP,"Use selection key '"PP$(LN)"' (Y/N)":SQ,ID$,"NEXT",N:NN1:SQ,ID$,"PREV",N:NN1:ID$"DATASET"N2:N0:(N0KN)(N0KP)įGO,1,21:CL:GO,12:6T330:OP,"Enter "PP$(LN):y^HPH(LN):VPV(LN):H1H4:H2H1011(LN7):TPT(LN):SPS(LN):hNNNN1:NNXEXENNjNNNIW:N0įMV,N,ID$(IW):MV,N,DA%(IW)lDA%(IW)AV:ID$(IW)ID$:US%(AV)1nPVIW:UP1:XU1:rNSP$200390:N2450%N4003320:500DER,VD$:140Jb320::5200:D$CL$l250MM,LP$:D$"RUNLABELSMENU.PROG"SC$WD,"SYSTEM MANAGER":2306GO,H1,V:HG,511(LN7):@35,23:GO,1,20:CS:35,24:GO,20,20:JPV0PV0 zPVNNPVNN1 KNPVNN:KPPV1 SB,1,"Enter ID",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:330:OP,P$ MSĢ23:OP,"(enter !D!A!T!A!S!E!T to switch data sets)"SWSW:LN0:ED0:2000:ESID$NN1:PU,I2,N,L"-"> HGO,H1:LNDXįOS,15,PN$(LN):":":80b JPN$(LN)""įOS,4,PN$(LN):":"h P ZGO,48,12:"------- Selection Keys -------" d nGO,23,6:PU,L"Number of Names =",I5,NN,L" (",D8,TTNNXV.5,6,5,L"% full) pDD0:3500 x/ 7000 5000:80# CS0V OP,"*** Maintain Names in Mailing List ***"k "GO,1,3:OP,CO$ (GO,19,4:BX,42,2MS: 25100:PV0 <5400:I18:NIDX:SK$(I)SP$PN$(N)SK$(I):PP$(N)KD$(I) > FN0:LN0LX:350:GO,H,V:LNT         !Yes, !No, or !Quit: ":KI,0,A$:ERF SQ,A$,"YES",N:Nİ1050:3280` SQ,A$,"NO",N:N3290 SQ,A$,"QUIT",N:NNAMN:3290 ER,IR$:3260 4000:ES3260   DNįBW,MX$,0,#DN,#DX,#DV,#DL:BW,MX$,1,A!ID$:DN,A%DA%:DN:KP  EA,I$,D1NA,%DA%:RD0:SI$ID$& AF32508 ID$N1$3290a ID$(N2$"ZZZZZZZZ",8)NAMN:3290o SC3260 370:SKSK%:K(SK8):BT,BM(K1),SK8K1,K1:K13290 ID$SI$:CVY3:GO,X,Y:OS,8,ID$:AU3280$ 1030:OP,"Ok to merge '"ID$"':0:BX,N6,42(SC0):: F$FD$:T$TD$:LRL:3600:FD$F$}& D$OP$MX$LD$RL$32:D$OP$MD$LD$RL$112:BR,MX$,0,#DN,#DX,#DV,#DL0 ID$(DX),DA%(DX),US%(DX)N DNįBR,MX$,1,A!ID$:DN,A%DA%:DN:UA,DN,US%,DA%  NA1MN BR,FX$,12NA4,$ID$:BR,FXc",AU,"Manual",1," selection of",AF," all",1,UN$(OP)"s ",P$:AFP$P$N1$" thru "N2$ N(P$):CV10:GO,1,CV:CS:1050:OP,P$:SCİ1050:OP,SC$:(SC$)NN(SC$) 1050:OP,"Now merging"UN$(OP)": ":XY,X,Y:XX8: GO,37N2,1040:2310Z OKES1:MS0, GO,1,1::2 W EF1:EFĺD$UL$FX$FV$:EF0:3030a 3500 F$FX$:T$TX$:L2:3600:FX$F$ BR,FX$,0,#MN,#MX,#XV,#RL:MNE$"NO"UN$(OP)"S ON FILE":UC,E$:1010:ER,E$:142 D1154MNZ SB,AU,"AutomatiCVg 1030:OP,"!Manual or !Automatic selection: ":KI,0,SL$:ER:SL$ES$VV2:1040:GS12210,2110 AU0:SQ,SL$,"MANUAL",N:N2600 AU1:SQ,SL$,"AUTOMATIC",N:NįER,IR$:2310( 1050 2 YN,"OK to merge these"UN$(OP)"s",OK:OK0VV3:1,0,ST%,SC:ER:ST%3VV1:1040:2110EST%2SC0:SC$"":2300fST%SC0SC4įER,IR$:22108000:SC$""įER,"SELECTION CRITERIA NOT DEFINED":2210CVCV1:GO,14,CV:OP,SC$:OP,MC$P(SC1)32:I132:BM(I)BM%(PI):1050:V3$"UNLOCK";SC$"SYSTEM MANAGER":ML$"MAILING LIST DATA"RMX$"MLINDEX.FILE"RD,0,NV:RD,76,PW:RS,1,CO$:RS,6,SV$:RS,19,MV$P$(12),SC(12)XlER(222):EFĭER6ER8EF0:XO:vPXOvPXS:GO,1,12:OP,"Please load the following diskette:"hFF,MV$,A$:GO,1,15:OP,!" "A$": "DK$" "GO,1,20:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---"WS,A$:(A$)27ġ:100D$(4):BL$(7)(7) UL0X-bMM:SD,6,SC:SD,7,0:DK$SC$:EF1ClEFĺD$"RUN"P$SV$SWD,DK$:30YOPįGO,1,8:CS:V18:GO,12,V1:"Available options are:"OPOP1:GO,20,V11OP:PL,L"<",I2,OP,L" > - ",LO$P$(OP)P$:SC(OP)SCSC0:5GO,1,8:CTY VIOLATION":210500!,+6330U@MM,"MAIN"::D$"RUNMAINMENU.PROG"SV$fJWD,SC$:300l^rLF0:SCSC(N):P$P$(N)".PROG"SC0600DK$ML$:EF1:1:EFĺD$UL$MX$MV$:EF0:600&NVLF7000DV2:1200:LF1:53GO,12,V13OP:CL:OP,"Enter option number (1-"(OP)") or [RETURN] only to quit: "zNI,0,ST%,N:ER:ST%2300ST%N1NOPįER,"INVALID SELECTION":210BT,PW,N,I:IįER,"SECURITY VIOLATION":210RMįBT,PW,N,I:IįER,"SECURI:1000= O$"Setup and Define Labels":P$"LABELSETUP":1000z O$"Merge Names into Mailing List":P$"MERGENAMES":1000 O$"Define Selection Keys":P$"SELECTKEYS":1000 O$"Create / View Mailing List Data Files":P$"MLCREATE":SC1:1000 Xin Menu ---":WS,A$::300 d. nOP0:SC0g xO$"Maintain Names in Mailing List":P$"NAMES":1000 zO$"Print Mailing List":P$"MAILLIST":SC1:1000 |O$"Print Telephone / Contact Lists":P$"MAILLIST":SC2:1000 ~O$"Print Labels":P$"LABELS" 7000 1:5000! 80u 2:OP,"<<< The Business Accountant >>>":3:OP,"LABELS PLUS MENU":5:OP,CO$ <MV$""100 F12:BL$;:OP,!" NO LABELS PLUS MAILING LIST DATA SETS DEFINED " H15:OP,"--- Press [SPACE BAR] to return to Ma     z #?   ӮǠ"ӮǠ!ŮǠήőР  !ŮǠ"ĮǠծǠ ӮǠԮǠ ӮǠ# ЮǠ ŮǠ7ӮǠծǠϮǠŮǠӮǠ ӮǠ 􍠠ӮŠ ӮŠϮΠ"ήŠ ծǠ 7000 1:5000& 280:360C PD$OP$CF$SV$",L32":5100M Z8000S d nGO,1,6:CS:GO,22,8:PL,L"Key # ID",B10,L"Description":GO,22:PL,L"----- ---- ",X22,"-" xLN1NK:V9LN:GO,24,V:LN;:2000:F CV20:AL0:350:OP,"Ent         14:PP1:ESC%(P):E8150/*I1A$A$OA$E*E0A$A$"Not "Y*A$A$SK$((E))a*:*'MAILING LIST,MLINDEX,MLDATA," name",6,19,53,88,"Names from another mailing list"+'ACCOUNTS PAYABLE,VENDORINDEX,VENDORDATA," vendor",10,11,50,40,"VendC1211:SC%(P)SC$"":G)TGCSC%(P11):G1:8100:GC2SC$A$:8040)^G1$A$:G2:8100:SC$GC$(GC)"("G1$")"OA$(GC)"("A$")")hSC$(SC$,76):H3$SC$:MC$"":(SC$)65SC$(SC$,58):MC$" + !m!o!r!e")r)PP1:A$"":OA$OA$(SC%(P))*IGO,1,14:OP,"Please load the following diskette:"b(16:FF,FV$,A$:OP,!" "A$": "DK$" "(18:OP,PK$"when ready or use [ESC] to abort ---"(WS,A$:GO,1,14:CS::(XEFER(222):ER6ER8EF0:XO:(b1::D$CL$:PX(@)JPS1NS:RS,STN,DS$(I):NNIN:6'DK$SY$(OP)" DATA"D'NV6300J'b'6800:(A$)27140n'LFNV2t''EF1:EFĺD$UL$FX$FV$:EF0:6330'WD,DK$:330:6050'PRINT D$OP$FX$FV$",L32"'& BR,FX$,0,#MN,#MX,#XV,#RL'190'4($(I): &&P)&ZD$OP$CF$SV$",L32"U&nBR,CF$,93,A$SK$:8:BR,CF$,100,A%SC%:48q&xBR,CF$,104,A@BM%:128:w&p&zFX$FX$(OP):FD$FD$(OP):FLFL(OP):UN$UN$(OP)&RS,FV(OP),FV$:NVįRS,5NV,FV$&MSNV(NS1)'MSSTDS(OP):IN1GS:N0:I(4),FX$(4),FD$(4),UN$(4),PV(4),FV(4),NS(4),DS(4),SO$(4),NA$(5)%I14:SY$(I),FX$(I),FD$(I),UN$(I),PV(I),FV(I),NS(I),DS(I),SO$(I)%FX$(I)FX$(I)FL$:FD$(I)FD$(I)FL$:%MX$FX$(1):MD$FD$(1)%M1NV(N11)&M1ĆLD$(N1):I1N1:RS,87I,LDess [SPACE BAR] "$$SB128:MX1000\$RS,0,DT$:RS,1,CO$:RS,6,SV$:RS,19,LD$:RS,99,FC$}$RD,0,NV:RD,49,SA:RD,53,N1$DS$(8),SK$(8),SC%(48),BM%(128),BM(32),OA$(2),GC$(2)$OA$(0)" or ":OA$(1)" and ":GC$(0)"Either ":GC$(1)"Both ">%SY$SE":OP$"OPEN":DL$"DELETE":RE$"RENAME"z#FL$".FILE":CF$"CONFIGURATION.FILE":TX$"TEMPINDEX.FILE":TD$"TEMPDATA.FILE"#RL$",L"#LP$"LABELS PLUS":SY$"SYSTEM MANAGER"$Q$"=":SP$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":S3$" ":PK$"--- PrV,N,ID$(IW):MV,N,DA%(IW)8",FD,0,DX,US%,AV:US%(AV)1S"6DA%(IW)AV:ID$(IW)ID$_"@ADAD1e"hs"rRDİ370"BW,MD$,DA%(IW),A$NA$:5,%AC%,$TN$,@SK%"""KB16384:KS16368"D$(4):ES$(27):BL$(7)(7)(#UL$"UNLOCK":CL$"CLO NEXT, PREV or DATASET":CVCV2:40600!ID$A$@!CVV1:4000V!CVV1:1030:CS:\!r!1030:DNDX4120!OP,"*** NO ROOM, MAILING LIST IS FULL ***":BL$::!OP,PK$"to continue ---":WS,A$:NAMN:!DNDN1:NDNIW:N04140""MQUIT",N:NNAMN:4080D SQ,A$,"REPLACE",N:Nİ4080:NRNR1:4200i SQ,A$,"ADD",N:NįER,IR$:4040 1050:PU,L"Enter new ID: ",X8,FC$:GO,26:KI,8,A$:ER:A$ES$VCV2:1040:4040 A$SP$4070%!UC,A$:390:NįER,"INVALID ID, Can't useV1CV:1030:CS:FS,ID$,DN,ID$,IW:IW0IW(IW):4100J1030:BL$;1030:OP,"ID '"ID$"' ALREADY EXISTS: !Add, !Replace, !Bypass, or !Quit: ":KI,0,A$:ER:A$ES$4050AU4040ES1:1030:SQ,A$,"BYPASS",N:N4080 SQ,A$," CVCV3:1030:OP,PK$"to continue ---":WS,A$::AQ$"more ":100I f WD,SY$(OP)" DATA"::0lOP1ĺD$RE$F$","T$FV$:A$F$:F$T$$D$OP$F$FV$RL$L:OP1ı.N45(66)256(67):I(N):N,1608D$RE$T$","A$FV$:N,IBES0:D$,DA%,US%= CVV0:1030:CS:1050:OP,"Merge is complete"{* 1050:GO,24:PL,S26,"Number of names added",L" = ",I4,AD, 1052:GO,24:PL,S26,"Number of names replaced",L" = ",I4,NR. 1050:GO,24:PL,S26,"Number of names in list",L" = ",I4,DNC4GO1:3350 ER,ER$:3330) SC(P)GO/H IR 4260:4510:G23500S\ GG1z 4500:352:YN,SC(8)0,"Do you want to define a second group",N:4510:NLK(G)0:4600:4260:GC2:3600 N03150 GG1:4500:KLK(G):K1ES1:3210 3 Nİ4410:KK1:3200 A 4410:LK(G)K:4600:LK(G)23400y K0:4300:4320:IV1:4260:DF$("ANYALL",3GO1,3) P$"Do selection based on !A!N!Y key or !A!L!L keys: ":370:ESİ4260:KLK(G):3210 UC,A$:A$"ANY"GO0:3350  A$"ALL":G3900,3450/ NF(A$,1)"-":NFA$(A$,2) UC,A$:FS,A$,NK,SK$,N:N0įER,"SELECTION KEY '"A$"' NOT DEFINED":3220 EN:NFEE SC(P)E:4250:K43300 352:YN,SC(P1)0,"Any more Selection Keys in this group",N:N03200ey:": 6 : 4200D G1,N K1:45005 ES0E 4300:4400] DF$"":E0DF$"-"v EDF$DF$SK$((E)) P$"Enter "NU$(K)" Selection Key ID for Group "(G)" (prefix with !- for NOT): ":370:ES3250 4410:KK1:K3210  4510irm by typing !D!E!L!E!T!E: ":KI,0,A$:UC,A$:A$"DELETE"İ390:350:CVCV2:3072f SC(1)0:3800l & CV15:GO,1,CV:CS( GO,13,13:BX,28,6:GO,50,13:BX,28,60 G12:H2437(G2)2 GO,H9,CV:"Group "G":";4 I14:GO,H:NU$(I)" K60 CVCV2c EDP$ED$:350:"Enter "SE$" to "P$" (1-"NC"): ";:NI,0,ST%,LN:ER:ST%33050 ST%LN1LNNCįER,IS$:3072 4100:EDĭSC(1)A$SE$" NOT DEFINED":UC,A$:ER,A$:3072 GO,1,8LN:HG,3:ED3100T CVCV2:350:OP,"Conf:4100:4000:GO,2,V:LN" ";:OP,SC$:G CV13:GO,1,CV:CS:CVCV2 350:OP,"Enter !Edit, !Delete, or [RETURN] only to quit: ":KI,0,A$:ER:A$""A$ES$İ360:8100 SQ,A$,ED$,N:NP$ED$:3070 SQ,A$,DL$,N:NP$DL$:3070 ER,IS$:308:SK$(I)" "3020+ A$""A$A$", "< A$A$SK$(I)o :A$""įER,"NO SELECTION KEYS DEFINED":8120 A$"Available Keys: "A$::3:OP,A$:N(A$)4:GO,40N2,1:BX,N,2 GO,1,7:" #";:GO,26:SE$:PL,L"--- ",X75,"-"( LN1NC:V8LNLN1$1000:ES15302LN1150DLNLN1:1520VQUQU0:150oLNLN1:LNNK1520x150~GO,30,V:PL,S8,SK$(LN),S22,KD$(LN):4GO,30,V:OS,4,SK$(LN)FL$:GO,38,V:OS,22,KD$(LN)FL$:  A$"":I10UC,A$:SK$(LN)A$22020:GO,30,8:HG,4:PSK$(LN)SP$A$"":1250P$"Enter Selection Key Description":350:OP,P$GO,43,8:HG,132200:GO,38:KI,22,A$:ER:ESA$ES$:ES(A$"")1280KD$(LN)A$2020:GO,43,8:HG,13:1160,ER,"DUPLICATE SELECTION KEY":1130VSK$"KEY"(LN)SK$SP$SK$A$1180GO,30,V:OS,4,A$:350:BL$"WARNING: Selection Key # "LN" already defined as '"SK$"'":GO,12:YN,"OK to change Selection Key to '"A$"'",N:350:CS:N0110Enter Selection Key ID",AL," or !Quit",P$;V350:OP,P$O`GO,30,8:HG,4j2100:GO,30:KI,4,A$:ER:ESA$ES$:ES(A$"")1190tSQ,A$,"QUIT",QU:QUAL1190vQUįER,ER$:1130~UC,A$:SK$(LN)"":FS,A$,8,SK$,N:SK$(LN)SK$:A$SP$N0A$""A$DF$tESA$ES$:3GO,1,8LN:HG,3:9C1050[1100:ESQU1030q(ESAL)QU1040LN110401040:LNLN1:10501200:ESES0:1020GO,23,V:HG,3:UP1:V9LN:GO,23,V:HG,3:*LSK$SK$(LN):SB,1," PLUS"::D$"RUNLABELSMENU.PROG"SV$A WD,"SYSTEM MANAGER":230[ ^GO,1,CV:CL:GO,12:u `GO,6,22:CL:GO,14: h:OP,"LABELS PLUS":3:OP,"*** Define Selection Keys ***":5:OP,CO$:: rGO,6,22:CL:OP,P$:XY,X:DF$;:GO,X:KI,0,A$:ER:er key number to edit (1-"(NK)"), !All, or [RETURN] only to quit: "q NI,0,ST%,LN:ER:ST%2İ5150:8100 ST%LN0LNNKİ1000:150 ST%1įLI,A$:SQ,A$,"ALL",AL:AL1500 ER,IS$:150 5150:D$CL$ 250# MM,"LABELS:GC$(1)"Both "G#NU$(1)"1st":NU$(2)"2nd":NU$(3)"3rd":NU$(4)"4th"M#S#`#RW$"BR"#@RW$,CF$,93,A$SK$:8,A$KD$:8#@RW$,CF$,100,A%SC%:48:#UPRW$"BW":5120#(UP0:#p#zGOGC1:I112:N(I)SC(I)0:E(I)(SC(I)):$GO,NK8:NC4:CH100255W"RD,0,NV:RD,76,PW:RS,1,CO$:RS,6,SV$:RS,19,MV$:RS,99,FL$p"I15:FL$FL$FL$:"SK$(NK),KD$(NK),SC%(48),SC(12),E(12),N(12),OA$(2),GC$(2),NU$(4),LK(2),BM(32),BM%(32)"OA$(0)" or ":OA$(1)" and "#GC$(0)"Either "K4KK1:4300:E0:SC(P)E:4250:46100! 6!Z!D$(4):BL$(7)(7):ES$(27)!OP$"OPEN":ER$"INVALID RESPONSE":IS$"INVALID SELECTION"!CF$"CONFIGURATION.FILE"!DL$"delete":ED$"edit":SP$" ":SE$"Selection Criteria Definition""3 GO,6,CV:OS,6,GC$(GC):GO,44:OS,4,OA$(GC):V VCVK1:H3337(G2):GO,H,Vn P5G3K:ESC(P): P5G3:GOSC(P): 0GO,H9,V:HG,8: :GO,H9,V:HG,8: GO,1537(G2),CV:HG,8: GO,1537(G2),CV:HG,8: KLK(G)*!G12:K14:4300:4250::IV0:4260::LGO,H,V:OX,8," ":GO,H:Eı^E0ĺ"Not ";pSK$((E));:VCVNC:GO,H15,V:OX,24," ":GO,H9:K2:4310:E4268IVįIVK0:4310:"(Include if ";:Eĺ"All)";Eĺ"Any)" :IV0:A$(GO)(I14:PP1:ESC(P):E4080;I1A$A$OA$QE0A$A$"Not "eA$A$SK$((E))m:P12(LN1):I112:SC(I)SC%(PI)::GCSC(12):GC2SC(1)SC(8)GC26P12(LN1):I112:SC%(PI)SC(I)::UP1:h*r4270:32# 4000:GO,6,8LN:CL:OP,SC$2<390:30508XSC(1)SC$"Not Defined":yG1:4050:GC2SC$A$:4040G1$A$:G2:4050:SC$GC$(GC)"("G1$")"OA$(GC)"("A$")"(SC$)74SC$(SC$,68)" + !m!o!r!e"4320:A$"":OA$OSC(1)1:SC(12)GC:4270HB352:YN,"Accept this "SE$,N:N3900eLN0Ĵ1(GC2)3500,3450t352:OP,!" Please wait, evaluating "SE$" "~6000SC(3)SC(1)0SC(1)įFL,0,12,SC:FL,0,32,BM4150:5150:BW,CF$,103LN,A@BM%:320  ; DF$"":SC(12)2DF$("EITHERBOTH",6GC1,6) P$"Does selection require !Either or !Both groups: ":370:ES3550 KLK(G):4300:4400:3210 SQ,A$,"EITHER",N:NGC0:3600 SQ,A$,"BOTH",N:NGC1:3600 ER,ER$:3520" ERROR # "(ER)" ON LINE # "(EA)6 tE2$"":7100e @E$"PROGRAM WILL NOT RUN ON THIS COMPUTER" JS1E2$"MUST BE APPLE IIE OR IIC":7100 TS2E2$"MUST HAVE 80-COLUMN DISPLAY":7100 ' '3.00,"10/01/84"' COPSING" E2$F$" :1273,0::D BL$BL$:12:21(E$)2:E$:m E2$""Ė20(E2$)2::" "E2$" ": 18:"UNABLE TO CONTINUE EXECUTION...." D$"FP": L V(27)(17) `EA(218)(219)256:E$"APPLESOFT":ER16E$"DOS"% jE$E$9239,0:49232,0:49237,0: 8 KB16384:KS16368S OP$"OPEN":CL$"CLOSE" CF$"CONFIGURATION.FILE":MM$"MAINMENU.PROG" V$,VD$  X bER(222):WPER4:NEĭER6WP210 lER67500 E$"THE FOLLOWING PROGRAM OR FILE IS MIS49164,0:49152,0:1020:2009 I08:SD,I,0::SD,9,1K SD,4,CF:NE0l ,SS,0,"":SS,4,V$:SS,39,VD$ BV$",S"((47081)16)",D"((47096))",V"((47094)) SS,5,BV$ F$MM$:D$"RUN"F$ D$"BLOAD LOGO.SCREEN,A$4000" 49234,0:4$",A$D000"& 207,8:LI,A$:SS,98,A$S NE1:CF0:WP0:1::D$"UNLOCK"CF$:CF1` WP250 :80:(7)(7);:10:OP,!" SYSTEM MANAGER DISKETTE IS WRITE PROTECTED ":12:OP,"Remove write protect tab & press [SPACE BAR] when ready":WS,A$ :(?(104)11Ĺ104,11:2816,0:2817,0:2818,0:(4)"RUN BA"J 7000s(4)"NOMON C,I,O":(4)"MAXFILES 5"D$(4):BL$(7)(7)(:5000:10002dF$"LINKS.CODE"::D$"BRUN"F$",A$800"nS(6):S8000 xF$"MSS.CODE":D$"BLOAD"F     n , ` O@J DuFDv@` O@&A&B&C8BDCEBC@`BC/D ^@ 8/` u ? X 8 Lii8쨥 j됓 `L {ii`08`` && `eeuȥu`HhHh` {Bq<ȥCq=8m>mȥn?ors from A/P System"t+$'ACCOUNTS RECEIVABLE,CUSTINDEX,CUSTDATA," customer",13,14,51,56,"Customers from A/R System"+.'PAYROLL,EMPINDEX,EMPDATA," employee",20,23,0,0,"Employees from Payroll System" 2YRIGHT 1984 MANZANITA SOFTWARE SYSTEMSD MANZANITA SOFTWARE SYSTEMSE SYSTEMSO䠥ǠŠĠ庠Šݠ堣堣奢 R R ?ц LDf j 8 j@ee  u $` ɥɤ ȱ)$ L e q Ѱ^`)``ҠŠĭϭӥԥ͠Ġ٠ԠҠ̭åˠɯϠҠĤŠӠŠĤŠӠ̤Πٺ` - View Mailing List Data File Size": xCV18:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER zST%2200 ST%OP1OP2įER,"INVALID SELECTION":120 OP11000& MSCV; 7000 MLCREATE.PROG- 5000:80G 1:OP,"LABELS PLUS" 3:OP,"*** Create / View Mailing List Data Files ***" 5:OP,CO$: d nGO,1,7:CS:GO,12,10:"The following options are available:":: pGO,20:"< 1 > - Create Maptions are:":=)GO,20:" < 1 > - Define Selection Keys":{)GO,20:" < 2 > - Define Labels/Lists Selection Criteria")GO,12,18:CL:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,N:ER:ST%2200)ST%N1N3įER,IS$:8120*G: To prevent incorrect selections, you should never change or replace a selection key that is currently in use."(24:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:A$ES$200(GO,1,7:CS)GO,12,10:"Available Selection Keys oO'j" Key #2 = DEAL (Dealer) Key #4 = IBM (IBM Products)"'r:"Using the above keys, you can select names that include; all Dealers (Key #2), IBM Dealers (Keys #2 and #4), Apple Distributors (Keys #1 and #3), etc.."}(|:"WARNIN keys"&^"may be used when printing labels and mailing lists to determine which names should be included. Consider the following example of use of selection keys:":&h" Key #1 = DIST (Distributor) Key #3 = APPL (Apple Products)"xHNNK%HNNK %:(%XPX.%@c%JGO,1,8:CS:OP,"*** I M P O R T A N T ***"::&T" LABELS PLUS has eight Selection Keys that are used to identify specific features that each name in your mailing list may have. The selection32,24:"( 0% Complete )";0$W1:B1:C0255S$G1:6500:N1N:GC2G2:6500i$KN1N:GOKN1N$BT,BM(W),B,K:BB1:B9BM%(W)BM(W):WW1:B1$GO,34:OI,3,CCH::$dP5G3:NSC(P):HN:I1LK(G):PP1$nBT,C,E(P),K:N(P)KK %8 Dealer Demoϩ=C? ``ލLo,,`z# >66nk( T L8 T L8 U`C==C , h8`>66nk( T L8 T L8 U`C==C , h8`>66nk( T L8 T L8 U`C==C , h8`><@y(@` @q<p~>BR,CF$,35,A#PH:6:I16:SD,62I,PH(I):HBR,CF$,36,A#PA:32:I132:SD,9I,PA(I):ERF$,30,%CK%,$LY$,A#LP:3,$LC$,$FC$A2CāI119:SD$(I)",S6,D"(FD$,I,1)",V0"::NV2:VD$"Volume":FY$SD$(1):FL,0,4,NS:CK%0:PS1:FF12:LP66:LC$"" SD,0,NV:SS,27,FY$:SS,28,VD$:RC(BV$,8)(SD$(1),8)I14:SD,49I,NS(I):0 I119:S@DF$"MMDDYY":RS,0,A$:NZA$"":RD,4,CF:CF02200A2CĭNZĉ:80:12:OP,"Please wait":14:OP,"Configuring "BA$" for your Apple //c computer"1::D$OP$CF$BV$",L32"BR,CF$,0,#DC,#NV,#UD,$VD$,A#NS:4,A$SD$:75,$FY$ BR,CMANAGER":RS,6,PV$:BDK$"GENERAL LEDGER PROGRAMS":RS,7,PV$:sDK$"ACCOUNTS PAYABLE PROGRAMS":RS,10,PV$:DK$"ACCOUNTS RECEIVABLE PROGRAMS":RS,13,PV$:DK$"INVENTORY CONTROL PROGRAMS":RS,16,PV$:$DK$"PAYROLL PROGRAMS":RS,20,PV$::"5GO,1,15:FF,PV$,A$:OP,!" "A$": "DK$" "GO,1,20:OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---"WS,A$:(A$)27300 MM:SD,5,0:SD,69,OS:EF1*EFĺD$"RUN"P$".PROG"PV$WD,DK$:20DK$"SYSTEM :3000:ES330cPGO,1,Y02:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:GO,1,Y0:CS:330xXP$"STATUS":800~PV$""įER,"SYSTEM MODULE NOT AVAILABLE":330NV800GO,1,8:CS:GO,1,12:OP,"Please load the following diskette0,590,600$P$"GLMENU":1020:700?P$"APMENU":1030:700ZP$"ARMENU":1040:700vP$"INVMENU":1050:700&P$"PAYMENU":1060:7000P$"LABELSMENU":1010:800:P$"UTMENU":1010:800DP$"CONFIGURE":800NRS,0,DF$:GO,12,Y0:CS,OS,N:NįER,"SECURITY VIOLATION":330vOS6įBT,SA,OS,N:NA$(S$(OS),1):UC,A$:ER,A$" NOT AVAILABLE":330CF(OS8OS9)įER,"SYSTEM NOT CONFIGURED YET --- USE OPTION # 8":3301010:PV$BV$ OS510,520,530,540,550,560,570,58:SD,4,1:1::D$CL$:216,0|:FF,BV$,A$:GO,16,10:"TO REBOOT: Insert diskette in "A$:GO,28,12:"Press [SPACE BAR] when ready ";:WS,A$:(27)(17):D$"PR#0"::49152256((BV$,3))ST%OS1OSOXįER,"INVALID SELECTION":330(BT,PW<",I3,I,L" > - "S$(I):'B:XY,X,Y05DRD,70,PWFF24:OP,CR$JGO,12,Y0:CL:"Enter option number (1 to "OX") or [RETURN] only to quit: ";TNI,0,ST%,OS:ER:ST%2400^QUIThGO,12,Y0:CS:YN,"OK to quit",N:N0300rSS,0,""D,4,CF:GO,1,4:CS:CF250I RS,1,CO$:CO$""įOP,"for":5:OP,CO$\ RCİ2500:300p NZBC0İ2600y 300 5:OP,!" SYSTEM NOT CONFIGURED YET " ,GO,1,8:CS:GO,12:"Available options are:"::OX10:@I1OX:S$(I):GO,20:PL,L" "BA$" will accept either MMDDYY or MM/DD/YY format. Thus, July 4th 1984 can be entered as 070484 or 7/4/84" z22:OP,CR$ CK0įER,"NO CLOCK CARD FOUND IN SLOT # "((CK)) GO,1,17:3000:ES150 CKįBW,CF$,30,%CK%,$A$:D$CL$ S 7000 5000 2000M 2:80:OP,MS$:3:OP,"<<< "BA$" >>>"Y dNZ200 n5:OP,"(Version "V$" --- "DT$")" pRS,98,A$:10:OP,"System Serial Number: "A$:GO,20,8:BX,39,2 r4000r xGO,1,14:"NOTE: When you enter dates,           YN$(N);:@GO,24,I7: xP$"Disk Configuration":390:A2CA$"Will use the Built-in & External drives":450GFCF:400:2900:420:GO,1,4:CS:OP,BA$" can support the following disk configurations: "::2800-P$"disk configuration":EI61100KSA0įER,"WARNING: You have no accounting systems available"CV18:330:YN,"OK to accept this system availability",N:N0İ330:I5:1100(N10002424:D$CL$: BT,SA,I,N:1600:A$SY$(I1(I5))" System":OS,26,A$::" "e which systems you have purchased.";I15:1500::I1LIV:1500:GO,1,18:CL:OP,"If you purchased the "A$" enter Y, otherwise enter N":1600:GO,52:YN,N,"",N:1600:HG,28:N01200VII1:ICFIII:1100` BT,SA,I,N:II1:00,A%Z%:12,A%Z%:12,A%Z%:12,A%Z%:12tXMD$"Define":CF0:DC0:1000:2000:3000:4000:CF1:SD,4,CF:420:BC0:424:zP$"Indicate Systems in Use":392:400:420$GO,1,4:BA$" supports the following accounting systems. You should now indicat#Z,#Z,A$SD$:9,A#VD:9,A#Z:9,A#Z:9T:BW,CF$,54,#Z,A$Z$:8,A#SD:80:BW,CF$,69,A$Z$:12k<BW,CF$,69,A$Z$:12DLW40:LH6:LD0:BW,CF$,92,#N,#LW,#LH,#LD,#ZNI18:Z$(I)"KEY"(I):SD$(I)"Selection Key #"(I):"PBW,CF$,93,A$Z$:8,A$SD$:8:BW,CF$,1$"":FC$".":414_(A$"Your Company Name":BW,CF$,31,$A$,A$Z$:4:BW,CF$,35,#N,#N,#N,#N,#N,#N*BW,CF$,36,A#SD:31:SA0:BC10:BT,SA,1,1:4240SD$(1)"C.O.D.":VD(1)0:SD$(2)"Prepaid":VD(2)0:I39:SD$(I)"Net 30 days":VD(I)30: 2BW,CF$,43,#Z,ple //c":12:OP,A$:20:370:CFįGO,1,CV:CS:ER,"SYSTEM ALREADY CONFIGURED":GO,12,CV1:YN,"OK to re-do the configuration",N:N0ġ:100CF600400Z0:N1:FL,0,80,SD:FL,0,12,Z%:FL,"",12,Z$&CK%0:LY$TD$:PS1:FFFC:LP66:LCV:3XY,X,CV:1::D$OP$CF$BV$",L32":GO,X,CV:@RW$"BR"s@RW$,CF$,30,%CK%,$LY$,#PS,#FF,#LP,$LC$,$FC$:RW$"BW":412RW$"BR"@RW$,CF$,41,#SA,#BC:RW$"BW":42210:OP,BA$" has been automatically configured for your Ap,A$:GO,1:CL:ESA$ES$:c|DQD(L):SQS(L):D2Q2(L):IQX(L)D2:P$DN$(D):SP$P$", set #"(S)~D2CVCV1:CV20CV20:(23);GO,12,CV:D2įCLOS,32,P$DO$:X4912D2:P$MD$" "P$:OP,"*** "P$" ***":CV4:CECV:GO,1,CJGO,1,CV:CL:GO,12:)T330:OP,P$:8^330:CS:hA49152N256:K0:A0(A):I15:KK(A0(A))::K(A0255)E$"NO CARD IN THAT SLOT":jN3E$"CANNOT USE SLOT NUMBER 3":lE$"":rOP,"--- Press [SPACE BAR] to continue ---":WS$"Enter "P$" ("(M)"-"(X)"): ":SS$"":H(P$)13:H45H45Z8340:GFįGO,H:Z;:GO,H:NI,3,ST%,N:ER:ESST%3:ST%1NZ:ST%0:ESı<ST%NMNXE$NV$E1$:UC,E$:ER,E$:312>GO,H,CV:N;:CL:@S((A$,3)):D((A$,6)):1504MD$"Change":N500,1000,2000,3000,4000,4500TRD,4,CF:CF(CF):SD,4,CF^194i:192t7000|501:D$CL$250MM,"MAIN":D$"RUN"MM$BV$WD,"SYSTEM MANAGER":230,SS$"".P$P$NU$:E1$P$C6P$SS P$"Enter option number (1-6) or [RETURN] only to quit: ":340:NI,0,ST%,N:ER:ST%2200 ST%N1N6įER,NV$"SELECTION ":150 N1CFįER,"SYSTEM NOT CONFIGURED YET --- USE OPTION # 1":150BT,PW,N,I:IįER,"SECURITY VIOLATION":em "CG$7 zGO,20:"< 2 > - Indicate Systems in Use"_ |GO,20:"< 3 > - Change Disk "CG$ ~GO,20:"< 4 > - Change Line Printer "CG$ GO,20:"< 5 > - Change Clock "CG$ GO,20:"< 6 > - Define Input Fill Character"::XY,X,CV:RD,4,CF_,5 7000 5000) 1::D$UL$CF$ 280:OP,"Manzanita Software Systems":3:OP,"<<< "BA$" >>>":5:OP," *** SYSTEM SETUP & CONFIGURATION ***" d nGO,1,8:CS:GO,12,10:"Available options are:": xGO,20:"< 1 > - Perform Full Syst                ! WS,A$:A$ES$100~310 f12:OP,"Please wait, Labels Plus Data file creation in progress"CV16:GO,21,CV2:BX,38,22ASASVCV:P$"Creating Data Set "(CS)" of "(NS):352:LD$LD$(CS)UFP$IN$DD$:1280380:P$Im your request by typing !C!R!E!A!T!E: ":KI,0,A$]XUC,A$:A$"CREATE"įGO,1,V:CS:1030p`310:UF1200jCV12:330:OP,"Please load a blank diskette in "DV$t::OP,"--- Press [SPACE BAR] to continue, press [ESC] to abort request ---":6),YN$(1)&YN$(0)"No":YN$(1)"Yes";I13:DC$(I):VI16:SY$(I),SS(I):\b~1::D$OP$CF$BV$",L32"BR,CF$,0,#DC,#UF,#UD,$VD$,A#NS:4 BR,CF$,54,#PW:XbPX '"Floppy","Hard Disk, Volume Access","Hard Disk, Driata":N1P$P$", set "(I)B V12216P2I:V2V11:3100::HtD$(4):BL$(7)(7):ES$(27):SP$" "CL$"CLOSE":OP$"OPEN"CF$"CONFIGURATION.FILE"HU100RD,48,UG:RD,49,SA:RS,1,CO$:RS,5,BV$ NS(4),DC$(3),SY$(6),SS(2įRS,V2,A$:V2((A$,K))1& NLLL2:C1:3200K0 CC1:C3LL1:CC1r GO,C2726,L:PU,S15,P$,I5V2,V1 V2ĺ"/"V2; V20:NL0:  BT,SA,P1,I:NNS(P):NIı C11(N7):P$M$" Programs":V173P:3000 I1N:P$M$" D2700A2 C11:NL1:I1N:P$"Labels Data":N1P$P$", #"(I)U< V187I:3100: GO,1,24:OP,"--- Press [SPACE BAR] to return to Main Menu, [ESC] for previous page ---":WS,A$:A$ES$200 80:50 NL1:V20 RS,V1,A$:V1((A$,K)):V500M$"A/R":P2:35001` M$"Inv":P3:3500Z BT,SA,5,I:RS,20,A$:A$""I2600 C12:P$"Payroll Program":V120:3000 P$"Payroll Maint.":V121:3100:P$"Payroll Proc.":V122:3100 P$"Payroll Data ":V123:V224:3100( NNS(4):Nme ",S10,VD$:oGO,1,2:"--------------- --------- --------------- --------- --------------- ---------"C11:L1:K63UD4P$"System Manager":V16:3000>UGP$"G/L Programs":V17:3100:P$"G/L Data":V18:V29:3100M$"A/P":P1:3NFYNNSSS(I):NSĭNS(NS)ĺ" (# Sets = "NS(NS)")";ZTYY1:FYI3YY3:X58:S17d^::jOP,"--- Press [SPACE BAR] for Hard Disk "VD$" allocation, [ESC] to quit ---":WS,A$:A$ES$200GO,1,1:CSI13:PU,L" Diskette NaGO,1,24:FY2000jGO,1,24:OP,"--- Press [SPACE BAR] to return to Main Menu ---":WS,A$:200@GO,9:"System Availability:";:XY,X,Y:X30:S19JI16:BT,SA,I,N:I6N1:FYNNS(SS(I))0LGO,X,Y:PU,SS,SY$(I),L": ",LYN$(N0)8*GO,54:"Control String: ";:OP,A$:`RD,8,N::GO,9:PU,S19,"Clock Slot Number",L": "vNĺ"None":1300(N);:N0ĺ" (No clock in that slot)";:GO,9:PU,S19,"Password Status",L": " PWĺ"On ":1500""Off"r Data",L": "ZRD,1,N:GO,30:"Slot Number : "N;:GO,54:"Form-Feed ? : "YN$(N0)RD,3,N:GO,30:"Lines per Page: "N;RS,3,LC$:LC$""A$"":1240A$"":I1(LC$):C$(LC$,I,1):(C$)27A$A$"!":C$((C$)64)A$A$C$: / Disk : Apple //"EC$", "DC$(DC);:FYDC1:FY1100] RS,6,A$:" (Slot # "(A$,3,1)")"o $:1600:1200 L" ("UF" Drives)": VI1UF:GO,32:RS,6I2(I3),A$:FF,A$,A$:"Drive # "I": "A$: `:1600  :GO,9:PU,S19,"Line PrinteJGO,12,22:CL:+ T320:GO,28:HG,16:D V320:GO,28:HG,16:J  RS,4,A$:RS,39,DT$:GO,9,6:PU,S19,"System Version #",L": ",LA$,L" -- ",LDT$ RS,0,A$:GO,54:PL,L"Today's Date: ",YA$ EC$"e":(64448)EC$"c"6 :GO,9:"Computer 7000" 5000:5100::80[ 21:OP,"The Business Accountant -- Status Report"k 43:OP,CO$u d1000{ 1::D$;CL$ 250 MM,"MAIN":D$"RUNMAINMENU.PROG"BV$ WD,"SYSTEM MANAGER":230 @V9L4(L3):H45:GO,H,V:       bEC(222):EFĭEC6EC8EF0:XO:91::D$CL$:PXBDT10000?RS,0,TD$:RS,1,CO$:RS,6,SV$:RS,19,LD$:RS,28,VV$VRD,0,UF:RD,53,NSUFįFF,LD$,DV$:DD$"diskette":VV$DD$:5070SQ,VV$,"VOLUME",VA:DD$VV$"s"MSUF(NS1)MSĆLD$(NS):N88:I1NS:RS,N,LD$(I):NN1:X%:,D$(4):BL$(7)(7):ES$(27)TCL$"CLOSE":OP$"OPEN":UL$"UNLOCK"MX$"MLINDEX.FILE":L132:MD$"MLDATA.FILE":L2112SC$"SYSTEM MANAGER":AD$"MAILING LIST DATA DISKETTE":SP$" "IN$"Initializing: "SZ256:MX1200:RLL2:T:NAFAS1:N1:3100N SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":3030Z CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:3030 ST%N1NNSįER,"INVALID DATA SET NUMBER":3060 CSN:LD$LD$(N).5,6,5,L"%": : AS0:RS,19,LD$:FS,LD$,NS,LD$,CS SB,1,P$,1," !Current (#"(CS)")",AF,", !All,",1," or !Specific data set",AF,"s",P$ 330:OP,P$": ":KI,0,A$:ER:ESA$ES$:ESı SQ,A$,"CURRENT",N:NNCS:3100 SQ,A$,"ALL",N00(4P$"No adjustments allowed":1700>CV:OP,"--- No adjustments for Hard Disks, press [SPACE BAR] to continue ---":WS,A$:100  GO,31,V2:PU,I6,NN,L" Names ",I8,MV,L" Names ":NNN:XMV:2550:  XXNX  PL,B5,D8,XTTrrent Maximum % in Use"|GO,6:"====================== ============== ============== ============"GO,6:"List of Names": D$OP$MX$LD$",L"L1:370BR,MX$,0,#NN,#MV,#XE600:BW,MX$,0,#NN,#MV,#XE:KP 25 press [SPACE BAR] to continue ---":WS,A$31009B310r9:OP,"Status of Mailing List Data Files"MSĢ11:OP,"(Using Data Set "(CS)" of "(NS)")"GO,20,7:BX,40,22MS:V132MS'GO,6,V:" Type of Data CuN$VV$" # "(V1)"V$LD$:360(1(6007x}V$LD$:F$MX$:SL1:NN0:XE0:390:BW,F$,0,#NN,#MV,#XE,#L2:D$CL$V$LD$:F$MD$:SL2:390:D$CL$ASĭCSNSCSCS1:1250@P$"Creation process complete"*22:OP,"--- "P$",C$:RS,8,G1$ PG$(12),PF(12)&,XTbER(222):EFĭER6ER8EF0:XO:\lPX'Update Company Information,INFO,0 $'Update Posting Table,PTABLE,1.'Update Terms Codes,TERMS,08'Update Customer Notes,NOTES,0"B'Update PreprinteA$:(A$)27100DLF1:520'X1:<bMM:DK$SM$:EF1^lEFĺD$"RUN"PG$(OS)".PROG"SC$nWD,DK$:50tD$(4):BL$(7)(7)UL$"UNLOCK":CL$"CLOSE"GX$"GLINDEX.FILE":SM$"SYSTEM MANAGER" RD,0,NV:RD,48,UG:RS,1,CO$:RS,6,SEFĺD$UL$GX$G1$:EF0:600+NVLF700n&GO,1,8:CS:GO,1,10:OP,"Please load the following diskette"(GO,1,12:FF,G1$,A$:OP,!" "A$": "DK$" "0GO,1,15:OP,"--- Press [SPACE BAR] when ready, to abort option press [ESC] ---":WS,E, POSTING TABLE NOT REQUIRED":150V BT,PW,OS,N:NįER,"SECURITY VIOLATION":150_ 500e 1::D$CL$:MM,"MAIN" 250 D$"RUNMAINMENU.PROG"SC$ WD,SM$:230  LF0:PF(OS)600 DK$"GENERAL LEDGER DATA":1::EF1 "A$:PG$(OX),PF(OX):1303 :XY,X,CV:RD,77,PW GO,12,CV:CL:"Enter option number (1-"OX") or [RETURN] only to quit: "; NI,0,ST%,OS:ER:ST%2200 ST%OS1OSOXįER,"INVALID SELECTION":150# OS2UGįER,"G/L SYSTEM NOT AVAILABLP 7000 :1:5000# 280Q 41:OP,"<<< The Business Accountant >>>"u 63:OP,"SYSTEM UTILITIES MENU" 85:OP,CO$ d nGO,1,8:CS:GO,12:"Available options are:":: xOX0: A$:A$""OXOX1:GO,20:PL,L"<",I2,OX,L" > -     !ӧ̂ҞԽ7ʟRgјƾ%āk҇  ]`  &`H hH  !hȥoȥp `H h`E D E `ѥ`хх``  ɢ `H8h`L L 8  _b v`aЍBйbЍCL MѠ ȱ LиZɥɺɶijɫˀӍ(z Эc#8)V?̜BӣҦ*Ejӄ֒K           4 "," *" ZIP Code","".%.'1,8,0,2,0,"Telephone No.",""Deivable Programs,Accounts Receivable Data, t?6Inventory Control Programs,Inventory Control Data,,Labels Plus Data?6Payroll Programs,Payroll Maintenance,Payroll Processing,Payroll Data,""+@0uLine printer slot number,Number of lines per page,Recognior SALES ADJ.,5120,COST OF GOODS or OTHER INCOME & EXPENSEL!4N6144,EXPENSE{!0u10,11,12,20,21,22,30,31,40,41,50,60,70,80!JAccounts Payable,1,3!TAccounts Receivable,4,19!^Inventory,20,31eDy Adjustmentsz N1,CURRENT ASSET,8,CURRENT LIABILITY,56,LIABILITY,256,SALES,512,SALES ADJUSTMENT,1024,COST OF GOODS SOLD:!*N3072,COST OF GOODS SOLD or EXPENSE,4096,OTHER INCOME & EXPENSE,4352,SALES or OTHER INCOME & EXPENSE,4608,OTHER INCOME & EXPENSE D ENTERED":42007!II109:N09:SD,70N,PA(IN):J!GO,1,14:CS:!:11:BL$;:IV:GO,8:PL,B66:GO,8:" A C C E S S D E N I E D, I N V A L I D P A S S W O R D S ":GO,8:PL,B66:!4550!!RD,4,N:N24550"D$(4):BL$б XPX8'"Company name","company or business name"g'"Address, line 1","first line of address"'"Address, line 2","second line of address (optional)"'"City, State","city name and state abbreviation"'"Zip Code","zip code",!2200:GO,1,V10:CL:GO,12:'KD$(4):BL$(7)(7):ES$(27)OP$"OPEN":CL$"CLOSE":CF$"CONFIGURATION.FILE"H20RS,1,CO$:RS,6,SC$:RS,99,FC$I122:UN$UN$FC$:CI$(5),CH$(5),CP$(5)I15:CH$(I),CP$(I): company information",N:2300:GO,1,V8:CL:N0L5:1110GN1000^BW,CF$,31,A$CI$:5SS,1,CI$(1):I15:SS,28I2,CI$(I):xS2414(L5):GO,H,VL:4A$CI$(L):NWA$A$UN$>2000:GO,X:OS,S,A$:GO,1,V8:CL:GO,H:er "CP$(L)G b2000:GO,X:KI,S,A$:ER:2000:HG,16:A$""A$CI$(L)Y jA$ES$1140{ lA$CI$(L):2110:LL1:L1110 n1030 tA$" "L1įER,"COMPANY NAME IS REQUIRED":2100:1110 ~2110:CI$(L)A$ LL1:L61110:2300:YN,"Accept BR,CF$,31,A$CI$:5:V9= NWNA$(1)"Your Company Name"q L15:2000:PU,S15,CH$(L),L": ":XY,X:2100: 2300:YN,"Want to change the company information",N:2300:N0200 LL1 V2000:HG,16:GO,X:OS,S,CI$(L)UN$ `2200:OP,"Ent 7000 :1:5000w 280:1:OP,"SYSTEM UTILITIES":3:OP,"*** Update Company Information ***":5:OP,CO$ d:D$OP$CF$SC$",L32":1000 1::D$CL$:MM,"SYSTEM UTILITIES" 250 D$"RUNUTMENU.PROG"SC$ WD,"SYSTEM MANAGER":230     GO,1,24:OP,"Press [SPACE BAR] to continue":WS,A$:A$ES$ıJ220PnD$(4):SP$" ":ES$(27)GX$"GLINDEX.FILE":GD$"GLDATA.FILE":CF$"CONFIGURATION.FILE":CL$"CLOSE":OP$"OPEN":VF$"VERIFY"|H1$"Line Category Acct great deal of flexibility in setting up your Chart of Accounts while retaining the advantages of an accounting system that posts""quickly and automatically.":"See section 7 of the Owner's Manual for more information on the Posting Table."Ants Receivable Sales":GO,24:"Inventory Cost of Goods Sold":" The Posting Table Maintenance Option allows you to define accounts in your Chart of Accounts to be used for these transaction functions. As a result,""you are provided with a l Ledger System's Chart of Accounts.":" There are "NP" entries in the Posting Table that define specific types of accounting transactions. Examples are provided below:":<GO,24:"Accounts Payable Cash for writing checks":GO,24:"Accou:OP,OH$:GO,1,3" The Posting Table is a unique feature of The Business Accountant. The table serves as a go-between, permitting the various other accounting systems"&"(for example; Accounts Payable) to directly access the Genera:2300::4GO,H29,V9fACPT(L):ACĺ"";:HpOF,4,AC:tLLNL11:H1:V4LN:LNN2H41:VVN2VCVCVVGO,H,V:2200 PU,I3,LN,L" ",S24,PC$(L):2150` L1L1(S):L2L2(S):NLL2L11:N2((NL1)2):80FILE"DS$;:/x1600:PW,0:N(LCNN)(LP6)LCLCNN:d1600:1550:1500PNPN1:PL,L"As of: ",YTD$,B26(CO$)2,LCO$:34)"POSTING TABLE":SP$:LC3:@FFĺ(FF):JLCLC1LP:SP$:: CV12:GO,1,5:CS:LN1NLS1NS:2400VNN6NL:1500:SP$:SP$:36(SY$(S))2)"*** "SY$(S)" *** ":SP$:T)H1$" Account Description":T)H2$" ======================"LN1NL:LLNL11:ACPT(L):ACİ5300T):2310:SP$;:AC1250WH0DS$"**** ACCT NOT ON C,L"= ",LDS$::GO,12:YN,"OK to accept this account number",N:N0İ330:CS:610`PT(L)AC 2100:GO,H,V:HG,28:330:CS:LN1:AL1600:ESLNLN1:LN1910,500ALLNLN1:LNNL910500PW,PS:PN0:T9:1550 L$:SQ,A$,"QUIT",N:NALAL0:800GER,"INVALID ACCOUNT NUMBER":620TAC7005300:WH0įER,"ACCOUNT NUMBER NOT ON FILE":620BT,GW,AY,N:NįER,"WRONG ACC'T TYPE, must be "GA$(G):620SGO,H29,V:2160:330:CS:PL,L"Account ",F4,APG(L):GWGW(G)ilSB,1,"Enter General Ledger System account number",AL," or !Quit",P$:330:CL:OP,P$nGO,H29,V:PT(L)įOX,7,UN$:626pOF,4,PT(L)rGO,H29,V:DI,7,ST%,AC:ER:ESST%3:ST%2800vST%0(AC0ACAX)650!LI,A:GO,12:|CV20:330:OP,"Enter line number (1-"(NL)"), !All, or [RETURN] only: ":NI,0,ST%,LN:ER:ST%250ST%LN0LNNLAL0:600:500LI,A$:SQ,A$,"ALL",N:N900ER,"INVALID LINE NUMBER":500Xb2200:HG,28:GCVCV2:1201 2400::OP,TL$" --- "SY$(S)a GO,1,3:H1$;:GO,41:H1$:H2$;:GO,41:H2$~ 2000:CV7N2(S4):500 5200:D$CL$ 250 MM,"SYSTEM UTILITIES":D$"RUNUTMENU.PROG"SV$ WD,"SYSTEM MANAGER":220 JGO,1,CV:CL, or [RETURN] only to quit: ":NI,0,ST%,S:ER:ST%2200S ST%S0SNS140| LI,A$:SQ,A$,"LIST",N:Nİ1000:120 ER,"INVALID RESPONSE":120 BT,SA,S1,N:NCVCV2:330:BL$;:YN,SY$(S)" not available, OK to continue",N:N0İ330: 7000" 5000:5100:4000Z 280:OP,"SYSTEM UTILITIES":3:OP,OH$:5:OP,CO$` d nGO,12,8:CS:"Select posting table entries for:": pI1NS:GO,20:"< "I" > - "SY$(I)::; xCV17:330:OP,"Enter option number (1-"(NS)"), !List     ,SA:RS,4,V$:RS,5,BV$:RS,39,DT$U#NS(4),SD$(80),LP(3),PH(6),PA(80),NA$(5),S$(12)s#FD$"1122122122122211122"y##X#bER(222):EFĭER6ER8EF0:XO:#lPX$'General Ledger System,Accounts Payable System,Accounts Receivable System,In(7)(7):ES$(27);"UL$"UNLOCK":OP$"OPEN":CL$"CLOSE""CF$"CONFIGURATION.FILE":JF$"JOURNAL.FILE":BA$"The Business Accountant":MS$"Manzanita Software Systems":CR$"Copyright 1984 by "MS$"A2C(64448)!#RD,0,NV:RD,4,CF:RD,48,UG:RD,49:I19:SS,98I2,TC$(I):.(RW$"BW":51206XPXXD0:DF$" (default="4RS,0,TD$:RS,1,CO$:RS,6,SV$SRD,1,PS:RD,2,FF:RD,3,LPqND(9),DR(9),DP(9),TC$(9)w}1::D$OP$CF$SV$",L32":RW$"BR"@RW$,CF$,43,#FC,#MF,#GP,A$TC$:9,A#ND:9,A#DR:9,A#DP:9:SD,60,FC:SD,61,MF:SD,62,GPVALID MINIMUM CHARGE, MUST BE 0.00 thru 999.99":3220;  330:P$": ";:XY,X:OS,S,DF$:GO,X:@IN$,S,ST%,X:ER:ESST%3:ESġ: ST%2XD:ST%0 D$(4):SP$" "CL$"CLOSE":OP$"OPEN"CF$"CONFIGURATION.FILE"HU1000ı, ER,"INVALID PERCENTAGE RATE":30202 ?& DF$(D)l0 IN$"NI":3300:ST%X0X100(X)Xı: ER,"INVALID NUMBER OF DAYS, MUST BE 0 thru 99":3120  OD,16,D,A$:DF$(A$,6,6) IN$"DI":3300:ST%0X0X10000ı5 ER,"IN "(GP),3)" days"-TįGO,2,8:OP,T$:C40(T$)2)T$:I` [j TįGO,26,10t T)"Code Terms":TįGO,26~ T)"==== ======================":  XD:2100:DF$A$ IN$"NI":3300:ST%0(X(XFM.001)FM)X0X1):XFM10:2100:C$A$"%-"(SP$(DP(C)),2)" / "C$<B4l>OD,16,XHU,A$:A$(A$,7,4(FMHU)):rXFC:FMHU:2100:T$"Finance Charge = "A$"%"OD,16,MF,A$:T$T$" Minimum Charge ="(A$,6,6)T$T$" Grace Period ="("LIST"/`PL,L"As of: ",YTD$,B25(CO$)2,LCO$Ej40(HD$)2)HD$n~T26:SP$:SP$:2200:SP$:SP$:2400C19:T2);C" "TC$(C):FFĺ(FF):1320I19LP:SP$:(PW,0:500C$"Net "(SP$(ND(C)),2)" days"6XDR(Cble":DDP(C):3100:ES730&DP(C)XzP$"Enter number of days before payment is due":DND(C):3100:ESND(C)X:760DR(C)7407302000:TC$(C)C$352:GO,32:OS,28,TC$(C):700330:1::PW,PSLVHD$"TERMS CODES 0:352:500:ST%C1C9įER,"INVALID TERMS CODE":700mC3įER,"CANNOT EDIT TERMS CODES 1 OR 2":700}V11C:350P$"Enter discount percentage rate":DDR(C):FM10:3000:ES770DR(C)XXP$"Enter number of days discount is availat":DMF:S6:3200:342:ES600-nMFX:2200tvH54:340:P$"Enter grace period, in days":DGP:3100:342:ES620xGPX:2200V10:350330:"Enter terms code (3-9) or [RETURN] only: ";:NI,0,ST%,C:ER:ST%3V10:352:630 ST%2V1 SQ,A$,"EDIT",N:N6005 SQ,A$,"LIST",N:N1000V ER,"INVALID SELECTION":510\ X bT0:H2:340:P$"Enter monthly finance charge percentage":DFC:S6:FMHU:3000:342:ES500 dFCX:2200lH28:340:P$"Enter minimum finance charge amounTMENU.PROG"SV$, WD,"SYSTEM MANAGER":230@ JGO,12,22:CL:V TGO,H,8:HG,23:k VGO,H,8:HG,23: ^GO,26,V:HG,28: `GO,26,V:HG,28:  330:OP,"Enter !Edit, !List, or [RETURN] only to quit: ":KI,0,A$:ER:A$SP$A$ES$2007 7000 5000:5100m 280:OP,"SYSTEM UTILITIES":3:OP,"*** Update Terms Codes ***":5:OP,CO$ PT0:2200:2400 ZC19:GO,26,11C:" "C" "TC$(C): d500 1::5150:D$;CL$ 250 MM,"SYSTEM UTILITIES":D$"RUNU      ze Form-Feed (Y/N),Special character stringDcognize Form-Feed (Y/N),Special character stringDUP0:N100,3000DApple Disk II, DuoFile, U-Sci"]=$'"Hard Disk Drive, Volume access","CORVUS, Corona, Davong"=.'"Hard Disk Drive, Drive access","Santa Clara Systems"=*1,1,2,2,1,3,3,1,3,3,1,3,3,3,1,1,1,3,3=.0,0,0,0,1,1,1,2,2,2,3,3,3,4,5,5,5,5,5>.0,0,-2,-2,0,ve Access"'"General Ledger",0,"Accounts Payable",1,"Accounts Receivable",2,"Inventory Control",3,"Payroll",0,"Labels Plus",4D",4Lventory Control System$'Payroll,Labels Plus,System Utilities,System Setup and Configuration,Change Today's Date,System Status ReportDo120(I1)4,CN$(I):'(RW$"BW":5120-X5bPXR'" 1-30","31-60","61-up"D"D$" -- not used --" SP$" "MRS,0,TD$:RS,1,CO$:RS,6,SV$:RS,99,FC$lRD,1,PS:RD,2,FF:RD,3,LPNL60:NN12:NG10CN$(NN),DM$(3):I13:DM$(I):D$OP$CF$SV$",L32":RW$"BR"@RW$,CF$,69,A$CN$:NN:I1NN:SS,PW,0:500,PL,L" ==== ",XNL,"=":2WDNNTNG:VVTNT2DN:H128DNeGO,H,V:k4u>2020HCN$(NT)""įCL:UN$:ROS,NL,CN$(NT):D$(4):BL$(7)(7)CL$"CLOSE":OP$"OPEN"CF$"CONFIGURATION.FILE":UNe contents"1500:LN6'NT1NNoNTNGLNLN2:SP$:"***** Dunning Note: ( "DM$(NTNG1)" days )"A$CN$(NT):A$""A$UN$LNLN2:SP$:PL,I10,NT,L" ",LA$LNLN2:SP$:1500:FFĺ(FF):1320LNLPāILNLP:SP$: ($7500330:YN,"Accept new note",N:N0610;N800QCN$(NT)SS$:2100_ 342:550ez330:1::PW,PSLVHD$"CUSTOMER NOTE LISTING"`PL,L"As of: ",YTD$,B25(CO$)2,LCO$j40(HD$)2)HD$~SP$ 7)"Note"24)"NotT1NTNNįER,"INVALID NOTE NUMBER":5508XSS$CN$(NT)Gb2000:340ql2020:PU,LCN$(NT),XNL(CN$(NT)),FC$v330:OP,"Enter note text"2020:KI,NL,A$:A$""ĭ(A$)27750A$""CN$(NT)A$:A$SP$CN$(NT)""2100CN$(NT)SSonly to quit: "5 KI,0,A$:ER:A$SP$A$ES$200P SQ,A$,"EDIT",N:N550l SQ,A$,"LIST",N:N1000 ER,"INVALID SELECTION":500 &330:"Enter note number to edit (1-";NN;") or [RETURN] only: "; 0NI,0,ST%,NT:ER:ST%2500(:ST%N":":2100: d500 0 1::5150:D$CL$: 250l MM,"SYSTEM UTILITIES":D$"RUNUTMENU.PROG"SV$ WD,"SYSTEM MANAGER":230 JGO,12,22:CL: TGO,2,V:HG,H3: VGO,2,V:HG,H3:  330:OP,"Enter !Edit, !List, or [RETURN] S 7000 5000:5100p 280:OP,"SYSTEM UTILITIES":3:OP,"*** Update Customer Notes ***":5:OP,CO$y <VT6 FNT1NN:A$"":NTNGA$" ("DM$(NTNG1)")":NTNGİ2000:GO,1,V1:"Dunning Notes:" H2000:GO,2:PL,L"Note #",I2,NT,LA$,L    ) H hɡb0^ L%ԩ L%ԩ ԥ* ԅ ԅ ԅ  DLԥ ? ] ԥ ԥ ԥ L2General Ledger,Accounts Payable,Accounts Receivable,Inventory Control,Labels Plus,Payroll>6System Manager,General Ledger Programs,General Ledger Data,+?6Accounts Payable Programs,Accounts Payable Data,,Accounts Recd Forms Control Table,FORMSTABLE,0GL'Password Maintenance,PASSWORD,0Os'""DI,PH(I):SD,65I,SN(I):+(RW$"BW":51201X9bPX'Invoices,Statements,Purchase Orders,A/P Checks,Invoices,Purchase OrdersDOrdersDN"CF$"CONFIGURATION.FILE"*HU100MRS,1,CO$:RS,6,SV$:RS,99,UN$lPH(3),SN(3),HD$(6),YN$(1)YN$(0)" No":YN$(1)"Yes":I16:HD$(I):1::D$OP$CF$SV$",L32":RW$"BR"@RW$,CF$,35,A#PH:3,A#SN:3:I13:SD,62ȯGO,X:NI,5,ST%,N:ER:ST%2İ342:500lST%N1N99999įER,"INVALID NUMBER, MUST BE 1 to 99999":700SN(L3)N:620320:L4ĺYN$(PH(L)0):OD,8,SN(L3)HU,4,5:D$(4):BL$(7)(7):SP$" "CL$"CLOSE":OP$"OPEL1L6įER,"INVALID LINE NUMBER":5108&340:L3700X330:YN,PH(L),"Print company heading on "HD$(L),N:342:N0500bPH(L)Nl2000:342:500330:"Enter starting number for "HD$(L)": ";:XY,X:SN(L3)įOX,5,UN$:7102020)V$ WD,"SYSTEM MANAGER":230A @V9L4(L3):H45:GO,H,V:U JGO,12,22:CL:o T320:GO,28:HG,16: V320:GO,28:HG,16:  330:OP,"Enter line number to edit (1-6) or [RETURN] only to quit: ":NI,0,ST%,L:ER:ST%2200&ST%L),L":":" xGO,10,13:OX,60,"_"T GO,12,15:"Starting Preprinted Form Number:" L46:GO,24,L13:PL,I1,L,L" - ",S15,HD$(L),L":": L16:2000: 500 1::5150:D$;CL$ 250 MM,"SYSTEM UTILITIES":D$"RUNUTMENU.PROG"S 7000 5000:5100< I13:SN(I)SN(I)SN(I): 280:OP,"SYSTEM UTILITIES":3:OP,"*** Update Preprinted Forms Control Table ***":5:OP,CO$ d nGO,12,8:"Print Company Heading on:" pL13:GO,24,L9:PL,I1,L,L" - ",S15,HD$(!! ! ! ! ! !OP1:OP2320 2210' A$""2310B SQ,A$,"YES",N:N2350a SQ,A$,"NO",N:NNO:2350 SQ,A$,"QUIT",N:Nİ3100:2210$ ER,"INVALID RESPONSE":2320. BT,LW(MU),OP,N:IOP:3150:2310  3250:I110:PA(IEN)LW(I): :50)N:3100:2220*350:GO,1,19:CS:OP0GO,1,22:OP,"For each menu option enter either !Yes, !No, !Quit, or [RETURN] only" OPOP1:OPMI(MU)2210 IOP:3150:GO,1:HG,16:GO,MH2:KI,3,A$:ER GO,1,V1OP:HG,16:A$ES$2330  OPMEMU:3000GO,1,19:CSoGO,20,20:CL:OP,"Enter !All, !None, !Edit, or [RETURN] only: ":KI,0,A$:ERA$""A$ES$2050SQ,A$,"EDIT",N:N2300SQ,A$,"ALL",N:NN1:2250SQ,A$,"NONE",N:NN0:2250ER,XS$:2220LW(MUht next menu [RETURN] - Quit (return to Password Menu)";Hf|p3200:GO,MH,4:GK,A$:N(A$):A$ES$N132500rN322200tN8N1:2180vN21N1:2180zBL$;:21603250:MUMUN:MU1MUMXMUMXMU12160 ME1:V15:MU1MX:3100:0MU0:3000:MUME64>GO,1,20:CS:OP,"--- Select menu by pressing the following keys ---":XY,X,Y@GO,2,22:"[<--] - Highlight previous menu [SPACE BAR] - Process the selected Menu"BBGO,2:"[-->] - Highligrd: "PW$(EX):GO,1,3MGO,18:" Master"29)" Pay- Labels System System";" Menu Option Menu G/L A/P A/R Inv Roll Plus Utils Setup";OX,16,"=":GO,18:I1MX:" ======";:EN(EX1)10:I110:LW(I)PA(IEN):P$"press [SPACE BAR] to continue ---":WS,A$:3709{GO,12,8:"Passwords:";:GO,26:OX,44,SP$::GO,26:OX,44,SP$GO,26,8:NPĺ" ":&I18:A$PW$(I):A$""įOS,8,A$:XY,X:GO,X4:X60ĺ:GO,260::OP,"PasswoY320:GO,12,V2:"Confirm by retyping the password: ";:XY,H:KI,0,A$:A$ES$170UC,A$:GO,H,V2:OS,8,A$:A$EX$PW$(EX)"":P$"Password deleted, ":310:1650P$"Deletion cancelled, ":BL$;:1660@r18003|GO,1,24:OP,"--- "tus changed, ":16600EX0:330:ES370SEX0:I811:PW$(I)""EXIb:EX100PW$(EX)NW$:N(EX1)10:I110:PA(NI)1:2000320:2000x320:330:ES170PW$(EX)NW$:P$"Password renamed, ":16508:GO,H:KI,8,A$:ER?VUC,A$:NUA$SP$:ESA$ES$:NUESıgXFS,A$,8,PW$,N:GO,H,V1:OS,8,A$:x^MH12MU7:hGO,31,13OS:HG,24:r310:GO,1,V:CS:360:150|GO,1,21:CS:LVPWPW:310:GO,12,6:HG,16`P$"Password staX$A$:EXN:EX03808DER,"PASSWORD NOT DEFINED":320`JV1V2O2:P$"new":340:NUġ:370jLESıNNW$A$:NWN:NW0NWEXıPER,"PASSWORD ALREADY DEFINED":330TGO,12,V1:CL:PU,S185O2,"Enter "P$" password",L": ",X8,FC$:XY,H:HH2506MM,"SYSTEM UTILITIES":D$"RUNUTMENU.PROG"SV$TWD,"SYSTEM MANAGER":230Z68NP0:I18:NPNP(PW$(I)"")::GO,12,6:"Password Status: "ST$(PW0);:GO,48:"Number of Passwords: "NP:@V1V:P$"existing":340:NUESġ:370BES5įER,XS$:150H OS2NPįER,"NO PASSWORDS CURRENTLY DEFINED":150 OS2NP8įER,"NO ROOM, ALL PASSWORDS DEFINED":150 O2OS2:GO,1,V:CS OS6İ360:GO,31:HG,24 OS1100,1200,1300,1400,1500 4000:1::5150:D$CL$- ~GO,24:"< 3 > - Change Password Access"S GO,24:"< 4 > - Rename Password"y GO,24:"< 5 > - Delete Password" :XY,H,V GO,12,V:CL:"Enter option number (1-5) or [RETURN] only to quit: ";:NI,0,ST%,OS:ER:ST%2200 ST%OS1O 7000 5000:5100T 280:OP,"*** Password Maintenance ***":3:OP,CO$Z ds nGO,9,4:CS:BX,65,5 p310:1800 xGO,12,12:"Available options are:": zGO,24:"< 1 > - Change Password Status" |GO,24:"< 2 > - Add New Password""" " " " " """""""""