8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!) >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LBW.ARALCOPYDISKR ' (@+ARMENU.PROG0*,MODMENU.PROG"Q.CUSTOMERS.PROG0%!-CUSTLIST.PROGBC5.ARCUSTINQ.PROGP -ARINVINQ.PROGX/ARINVSETUP.PROGfP"8.ARINVOICE.PROGt38.ARINVPOST.PROG,-ARRECURR.PROG2$.ARRECLIST.PROG ,5.ARRETURNS.PROGs510/ARCASHPOST.PROG5'-ARADJUST.PROG+5,ARSTATE.PROG',ARCLOSE.PROGB.ARRECPOST.PROG /ARSALESTAX.PROG  ,ARSALES.PROG /ARSALESREP.PROG .ARREPLIST.PROG" 5-ARCREATE.PROG()ARAW.PROG8 5+ARAWSS.PROGIr+ARAWDB.PROGYb-ARDETAIL.PROGh5,ARAGING.PROGw$5.AROPENINV.PROG5+ARANAL.PROG5+ARWORK.PROG/5+ARREGS.PROG5,ARFLASH.PROG 'AR.HELP2`(ARR.HELP 2(ARX.HELP&6hCUSTISAM.FILET-CUSTDATA.FILEV+ARDATA.FILE[~ -SALESREP.FILEbj+FINDER.DATAɍR pR TEMPSORT.FILEgժժ 7000  5000:HL,H$(1)=2RD,6,MT:MT1MT5MT1j<M1MT1:LV2M1:1:80,N:XC,LV,MT$(MT)FFTĢ9LV2:OP,"Please wait":2000:FT0dXC,LV:I1I(MT):OXI(MT1)I1:I1OX:OP$(I)O$(I1I): nN1:HL,0:MS,LV,OX,OP$,1(OX10),1(OX6),1,N:Nİ6000:110# pN0200S xP$P$(I1N):M1įBT,PW,N,I:IįER,71:110t M(P$):M1M6įSD,6,M:50} 500 MT1MT1:SD,6,MT:50 ,BT,IN,3,0:SD,19,IN:FC:ES:XC,LV:MM,LV,MU$:RU,MM$ XF0:SC0:HH1(MT5)L (P$,1)"/"P  $(P$,2):UGįER,"CANNOT USE OPTION, GENERAL LEDGER NOT AVAILABLE":100v (P$,1)"?"HH((P$,2)):P$(P$,3) (P$,1)"#"SC((P$,2)):P$(P$,3) &P$P$".PROG":PP$PF$P$ XXC,LV:RM800 RM1įOL,1,A$:A$PF$İ9000:ES1700,820 OL,2,A$:A$DP$7909 WP,2,N:ND2:9500:750S ER0:EF1:EFįFV,160 ERįFO,160,QC:BR,QC,1,$A$:FC:A$CN$800 9100:ES1750,100 ES:MM,LV:EF1:EFįFV,PP$:EF0:850" *XC,LV:62LV:BL$;:OP,122:::OP,P$:::OP,123:::OP,PF$::::OP,103:WS/ 4XF1008 >300Z RRMįWP,1,N:ND1:9500:800 SD,8,0:SD,10,SC:SD,12,0:SD,17,NP:SS,11,MT$(MT):SS,12,PF$"ARMENU.PROG":SS,13,S$:RS,CX,A$:SS,14,A$:RS,CD,A$:SS,15,A$:RS,AF,A$:SS,16,A$ RM1įSS,199,PF$"TEMPSORT.FILE", HH1įHL,H$(HH)D ES:FC:D$"RUN"PP$W GO,1,24:CL: SC0:RMįOL,2,A$:A$DP$İ9100:ES12000,300 EF1:EFįFV,CX:EF0:FC:2200^4LV2:XC,LV,MT$(1):GO,12,12:BL:WB,56,4," No Data Available ":"No "S$" data files (list of customers,":GO,12:"transaction file, etc.) are available for this company.">GO,12:"Before you can use any of the "AS$:GO,12:"options, you must create these data files." f1000:HL,4:YN,"OK to create "S$" data now",N:1000:N0300pSC1:2320CFO,CX,F:NK1:EF2:EFįIS,O,F,NK,NDFO,CD,QC:BR,QC,0,#NC,#RB,#LR,#AV,#SF,#SU:NC(NKND)RB1RB2400BW,QC,0,#NC,#RB:KP2LV2:XC,LV,MT$(1):HL,5:ER,"Error detected in "S$" Data !",1,"A data rebuild is recommended, OK to rebuild now",N:N0300< SC2S P$"ARCREATE.PROG"n PP$PF$P$:XF1::600` BT,IN,3,N:N2500j 11LV2:OP,"(Preparing your "AS$")"kl " SD( 70- 78) - Sales Tax Info SD(160-170) - Posting Accts SD(171-177) - Sales Accts SS(140-155) - Sales Rep SS(156-159) - Sales Tax IDs SS(240-255) - Sales Accts Names" t FO,AF,Q:BR,Q,0,A#CD:5:CD(5)BQCD(4)0:CD(5)BQ:BW,Q,0,A#CD:5~ FC,AF:FO,SR,Q:I116:BR,Q,I,$A$:A$SP$A$ND$ SS,139I,A$::FC,SRa BR,QC,0,A#CD:7,A#SA:16,A#TI:9,A$TI$:3:I19:SD,69I,TI(I)::I13:SS,155I,TI$(I):o UG2490 FO,163,QG:IS,O,QG,N,N:FO,164,QA:TX0 I111:RD,85I,A:2700:SD,159I,X:I4I8ĭXTXTXX :RD,160,SX I164166:RD,I,X:XįSD,I,TX k I116:ASA(I):2700:XįBR,QA,X,#N,#N,$DS$:OD,16,AHU,A$:A$(A$,5,7)" - "DS$ XA$ND$:XSX SD,170I,X:SS,239I,A$: I19:RS,50I,A$:A$SP$įSS,50I,ND$ :BT,IN,3,1:SD,19,IN SUUG26004 H2LV3:XC,LV:4LV2:OP,!" I M P O R T A N T ":: GO,H:" Just a friendly reminder: You are still in the Accounts":GO,H:"Receivable SETUP mode. While you are in SETUP mode, Accounts"_ GO,H:OP,"Receivable transactions will ! !N!O!T! be posted to the General"::GO,H:"Ledger. You should use this mode ONLY to enter your initial" GO,H:"customer information, open invoices, and credit balances.":LV3ĺ* GO,H:" Use the Customer Maintenance, Invoicing, and Account":GO,H:"Adjustment options to enter your initial "S$ GO,H:"information. You should also use the reporting features of the":GO,H:AS$" to verify that you have correctly":GO,H:"entered the customer information and account balances."? 1000:HL,6:YN,1,"OK to remain in Accounts Receivable SETUP mode",N:1000:N0300K N2600 1000:OP,"Please confirm by typing !O!K: ":HL,7:KI,0,A$:A$ES$2520 UC,A$:A$"OK"įER,"REQUEST CANCELLED, still in SETUP mode":2530 1000:SU0:BW,QC,0,#NC,#RB,#LR,#AV,#XI,#SF,#SU'( FC:NPSUUGB2 EF1:EFįFV,198:2650H< ~Z FO,198,QT,1:BR,QT,0,#N:NNPįFC,198:FX,198:d HL,113:ER,"Most recent invoices have not been posted !",1,"OK to post these invoices to the G/L now",N:N0300n P$"ARINVPOST.PROG":2330: X0:A0įIS,F,QG,A,X:X0X0@ FrD$(4):ES$(27):BL$(7)(7):SP$" "S$"Accounts Receivable":AS$S$" System":FT1:HU100:MU$"Main Menu":EE$"Enter, edit, and/or examine ":ND$" Not Defined"yRD,0,RM:RD,7,BQ:RD,18,UG:RD,19,IN:RD,23,PW:RS,3,CN$:RS,20,MP$:RS,26,PF$:DD2(RM2):RS,27,DP$:CX174:CD175:AF176:SR177MM$MP$"MAINMENU.PROG":RM1MM$PF$"MODMENU.PROG"RS,CX,A$:SS,198,(A$,(A$)13)"TEMPINV.FILE"<H$(3),O$(40),P$(40),I(6),MT$(5),OP$(12),CD(7),SA(16),TI(9),TI$(3):I0:N1:I(N)0_O$:O$"/"NN1:I(N)I:5070qO$"//"5080P$:M(P$):M1M6MTM:MT$(M)(P$,2)II1:SB,N5,"Print ",1,O$,O$(I):P$(I)P$:5070 MT$(1)S$:H$(1)PF$"AR.HELP":H$(2)PF$"ARR.HELP":H$(3)PF$"ARX.HELP"*FC:upHL,S::"Help for "MT$(MT):OX,80,"=":GO,1,23:OX,80,"-":GO,1,4:I0zGS,6000MT100ES,MT$(MT):1000:OP,103:WS:HL,R:ySS29:6800:"Provides additional options to enter and":T)"update customer information, to list your":T)"customers on the screen or printer, and to":T)"quickly examine customer status":6800:"Enter customer invoice information and":T)"generate invoices on preprinted forms":36800:"Enter, update, or list repetitive Accounts":T)"Receivable transactions":6800:"Accept return of merchandise sold on earlier"T)"invoices (credits customer's account and":T)"returns inventory to stock)":6800:"Record customer payments":@6800:"Record credit memos, debit memos and apply":T)"customer open credits":69006600:"To calculate finance charges for customers with past due":T)"balances (and print a Finance Charge Report) and print":T)"customer statements":f 6600:"Close the "AS$" and perform necessary":T)"'housekeeping' duties at the end of each month or the end":T)"of the year": 6600:"Prodives additional options to maintain information for up":T)"to three sales tax jurisdictions, define additional sales"j!T)"accounts from your General Ledger, and maintain and list":T)"information about your sales representatives":6900!6600:"Create your company's "S$" data files or":T)"rebuild the "S$" data files in case of error":B"6600:"Convert your "S$" data to spreadsheet or":T)"data base files that can be used by AppleWorks":"$6600:"Transfer to the "S$" Reports Menu, where":T)"you can select from the many available reports to help"#&T)"control your receivables, improve your cash flow, and":T)"analyze your sales":[#8SS24::6800:EE$"customer information":T)"contained in your "AS$:#B6800:"List complete customer information on your":T)"display screen or line printer":?$L6800:"List customer name, address, contact name and":T)"telephone number on the display screen or your":T)"line printer":$V6800:"Determine current credit status of any customer":T)"in your "AS$:%`6800:"Examine "S$" transactions (e.g.,":T)"payments, credits, etc.) that have affected":T)"specific customer invoices":s%:6600:EE$"repetitive "S$:T)"invoices that are automatically posted at the end of each""&T)"month. Up to ten recurring invoices can be entered for":T)"each customer. This feature is very handy if you bill a":T)"customer the same amount every month":&6600:"List your repetitive "S$" invoices on your":T)"display screen or your line printer":7':SS23:6800:"Enter information for up to three sales tax"T)"jurisdictions. This information includes the tax":T)"rate, cutoff amount, freight taxable status, etc.":' 6800:"Identify up to 16 sales accounts from your General"T)"Ledger. This option allows you to expand upon the"T)"one sales account in the posting table":0(6800:EE$"information":T)"regarding any one of your 16 sales representatives"(6800:"List sales representative information":T)"on your display screen or line printer":(dSS25::6800:"Produce a detailed report of all":T)S$" transactions by customer":j)f6800:"Produce a report (either detailed":T)"or summary) that indicates which invoices are":T)"currently past due":)h6800:"Produce a report that itemizes each customer's":T)"open invoices and open credit balances":H*n6800:"Generate a report that projects your potential":T)"cash flow based on anticipated customer payments"*p6800:"Generate a report that analyzes current month":T)"sales (i.e., invoices) by customer or sales":T)"representative":6900+xSS25:6800:"Generate a report that lists customers' open":T)"credit balances. Use this report to determine":T)"any open credits that should be applied to":T)"customer balances":K,6800:"Produce a report that indicates which of your":T)"customers have used a specified percentage of":T)"their credit limit or to list credit limits for":T)"all customers":,6800:"Produce a worksheet to be used when collecting":T)"customer payments. The worksheet includes infor-"T)"mation required when contacting customers, such"--T)"as contact name, telephone, balance, and aging":-6800:"Generate a report that lists customers":T)"with past due accounts":6900.:6800:"Six options are available":T)"to produce daily or monthly regsiters for sales":T)"(invoices), cash receipts (payments, cash sales,";S.T)"etc.), and adjustments (credit memos, etc.)":.6800:"Generate a concise summary report":T)"that shows your "S$" activity":T)"and identifies critical customers":.SS14:6800:::T):/II1:O$O$(I1I):SSS:TS7:(O$)SS(O$)?/PU,I2,I,L". ",SS,O$,L" - ":/ES,MT$(MT):1000:RS,103,A$:OP,"More HELP - "A$:WS,A$:1000:A$ES$:GO,1,4:CW,80,19:GO,1,4:/::HL,R:/XER(222):(EFER6)(EF2ER101)EF0:XO:/bPX0(#A$PF$:D1:S44:9200<0#A$"Company data disk for "CN$:DDD:S600#EJ,D:HL,S:ES,104:BL:13:WB,S,5," Load Disk ":OP,"Please load the following disk in Drive "(D):15:OP,!" "A$" ":17:OP,109:WS,A$:HL,R:ESA$ES$:31%HL,S:EJ,D:ES,104:GO,5LV3,7LV2:BL:WB,55,102D," Important ":XY,H1&%D2ĺ"Your company data disk (in drive "DD") is write protected.":9530;20%"Your program disk (in drive 1) is write protected. This":GO,H:"disk must not be write protected since the system uses":GO,H:"this disk to store information in temporary files."2:%:GO,H:"Please write-enable your disk by sliding the tab toward":GO,H:"the center of the disk (covering the small hole in the":GO,H:"disk)." 3D%GO,H13:OP,103:WS,A$:HL,R:A$ES$ġ:ES,MU$:1003N%3'"Customers","2Customers","Invoicing",?3#1ARINVSETUP,"Recurring Accounts Receivable","3Recurring A/R","Return Merchandise Credits",?3#2ARINVSETUP,"Cash Posting",ARCASHPOST,"Account Adjustments",ARADJUSTc4'"Statements and Finance Charges",ARSTATE,"Close Accounts Receivable",ARCLOSE,"Accounts Receivable Utilities","4A/R Utilities" 5$' "Create and Rebuild Accounts Receivable Data Files",ARCREATE,"Convert Accounts Receivable Data to AppleWorks",?2ARAW,"Accounts Receivable Reports","5A/R Reports",/5 N"Maintain Customers",CUSTOMERS,"Print Customer Master List",?2#1CUSTLIST,"Print Customer Name list",?2#2CUSTLIST,"Customer Credit Inquiry",ARCUSTINQ,"Customer Invoice Inquiry",ARINVINQ,/K60u"Maintain Recurring Accounts Receivable Invoices",?3ARRECURR,"List Recurring Accounts Receivable Invoices",?2ARRECLIST,/7@"Maintain Sales Tax Information",?3ARSALESTAX,"Maintain Sales Accounts",/?3ARSALES,"Maintain Sales Representatives",?3ARSALESREP,"Print List of Sales Representatives",?2ARREPLIST,/7PÃ"Accounts Receivable Detail Report",ARDETAIL,"Accounts Receivable Aging Report",#1ARAGING,"Open Invoice Report",AROPENINV,"Cash Flow Report",#2ARAGINGG8ZÃ"Sales Analysis Report",ARANAL,"Open Credit Report",#1ARWORK,"Credit Limit Report",#2ARWORK,"Customer Worksheet",#3ARWORK,"Delinquent Accounts Report",#3ARAGING8dÃ"Accounts Receivable Transaction Registers",ARREGS,"Accounts Receivable Flash Report",ARFLASH,/,// 7000 5000:2000)21:80,N/d`SD,4,CF:RS,3,CO$:NCCO$" ":NCįSS,3," ",1:80,N:XC,1,MM$:NCįGO,1,1:OP,!" SYSTEM NOT CONFIGURED YET ":OS86XC,18OS1OSOXOS1 :ES:RD,20,PW:HL,0:MS,1,OX,OP$,0,1,OS,OS:OSİ6000:312 @OS0312& JOSOX400m ^OS1:GO,1,24:CL:HL,3:YN,"OK to quit",N:GO,1,24:CL:N0310 hP$"EXITMENU":I20:700 BT,PW,OS,N:NįER,71:310 NC(OS8OS9)įER,"SYSTEM NOT CONFIGURED YET, use option # 8":3103 I20:SC!#$%&'()*+,-.0:OS510,520,530,540,550,560,570,580,590,600,610M P$"GLMENU":I22:700g P$"APMENU":I24:700 P$"ARMENU":I26:700 P$"INVMENU":I28:700 &P$"PAYMENU":I30:700 0P$"LABELSMENU":700 :P$"UTMENU":700 DP$"CONFIGURE":700Y NRS,0,DF$:GO,1,22:CS:3000:ESĭOKįES,"Change date":24:OP,103:WS,A$:A$ES$590 PGO,1,22:CS:GO,1,23:OX,80,"_":OS1:310 XP$"STATUS":700 bP$"HDCOMPANY":RMP$"RMCOMPANY" ES:XC,1:P$P$".PROG":RS,I,PF$:PP$PF$P$:RS,3,CN$:RM800" OL,1,A$:A$PF$90005 OSOS11800P OL,2,A$:A$DP$9100j WP,2,N:Nİ9500:750 ER0:EF1:EFįFV,160 ERįFO,160,QC:BR,QC,1,$A$:FC:A$CN$800 9100 MM,1:RMOS5850 *EF1:EFįFV,PP$:EF0:900/ 4A$(OP$(OS),1):UC,A$:ER,A$" NOT INSTALLED":310N REF1:EFįFV,PP$:EF0:900 \XC,1:8:BL$;:OP,122:10:OP,P$:12:OP,123:14:OP,PF$:17:OP,103:WS:300 OS8İ2600SD,5,OS:SD,6,0:SD,10,SC:SS,11,MM$:SS,12,MF$"MAINMENU.PROG":SS,13,MM$ES:FC:D$"RUN"PP$7GO,1,2:OX,80,"=":=]2600:RD,9,J1:UGJ12400 EF1:EFįFV,JF:EF0:FO,JF,QJ:BR,QJ,0,3JV,3JE,3JR:FC,JF:SD,9,JR1` FC:( UG0:QA0:EF1:EFįFV,GD:EF0:UG12 RD,16,JM:JMJMUG:UG2640[< FO,GD,QA:BR,QA,0,A#GL:7,#MR,#MY:FC,GD:2700:OS$MS$(MR)"/"Y$:OL$ML$(MR)" 19"Y$:2700F A$("0"(MR),2)"01"Y$:DT,A$,JM:JMJM1P SD,18,UG:SD,16,JM: MRMR1:MR12MR1:MYMY1 Y$("0"(MY),2):& UGĢ24:OP,"(Current open month in the General Ledger is "OL$")" ES,MM$:GO,1,22:CL:GO,26:"Enter today's date: ";:XY,X,Y:OY,DF$:GO,X:HL,1:KI,8,JD$:ESJD$ES$:ESı JD$""JD$DF$ DT,JD$,JD:JDįER,78:3010 GO,X,Y:OY,JDe JMĭJD366JMįGO,X,Y:OY,JD$:HL,2:ER,"DATE IS 1 YEAR OR MORE BEYOND CURRENT G/L MONTH","OK to accept this date",N:N03010 OKJDJMJM:OKİ3200:3080 CM$MS$(((JD$,2)))"/"(JD$,2):3500:A$ES$3010 SS,0,JD$: GO,1,Y:CS:GO,32:PU,L"Date set: ",YJD$:@ HL,S:GO,1,3:CS:8:WB,74,11," I M P O R T A N T ":XY,H " The date you have entered (";:OY,JD:") is beyond the last day of the":GO,H:"current open month in the General Ledger ("OS$"). If you continue, any" GO,H:"activity posted to the General Ledger from any of the other systems (e.g.,":GO,H:"Accounts Payable, etc.) will be posted to "CM$". These entries will NOT"  GO,H:"appear on your General Ledger reports or financial statements until the":GO,H:"current open month is "CM$".": GO,H:" If this is the correct date and you have completed all postings for":GO,H:"the current month, you should now perform a General Ledger close. However,", GO,H:"you may postpone closing the General Ledger until you have entered any":GO,H:"required adjusting entries."f ES,"Change Today's Date":23:OP,103:WS,A$:HL,R:lD$(4):ES$(27):BL$(7)(7)ST$"BusinessWorks":MM$"Main Menu":GD164:JF165OX12:TT$" - Transfer to the ":SY$" System"$RD,0,RM:RD,4,CF:RS,20,MF$:RS,21,DP$GOP$(OX),ML$(12),MS$(12),GL(7)]I1OX:OP$(I):I112:ML$(I):MS$(I)(ML$(I),3):FC:pHL,S::"Help for "MM$:1000:GO,1,23:OX,80,"-":GO,1,4tz" 1. General Ledger"9)TT$"General Ledger"SY$::" 2. Accounts Payable"7)TT$"Accounts Payable"SY$::" 3. Accounts Receivable "TT$"Accounts Receivable"SY$:|" 4. Inventory Control "TT$"Inventory Control"SY$::" 5. Payroll"16)TT$"Payroll"SY$:V" 6. Labels Plus"12)" - Transfer to Labels Plus; used to print mailing":30)"labels and to maintain your mailing list":" 7. BusinessWorks Utilities - Use this option to perform utility functions such":30)"as entering your company's name & address, setting";30)"up your posting table, defining payment terms and":30)"customer notes, setting up your password security,";:30)"defining other applications that you use, and"30)"formatting ProDOS diskettes"?6200:" 8. Setup & Configuration - Select this option to tell the system about your":28)"peripherals (disk drive, printer)":" 9. Change Today's Date - Use this option if you need to change today's date":28)"(this date appears on all system listings, reports,":28)"forms, etc.)"b:"10. Status Report"9)"- Select this option to display a status report about":28)"the system and your equipment":"11. Multiple Companies - Use this option when you are using BusinessWorks":28)"with more than one company. You can create a new628)"company";:RMĺ" or switch from one company to another":6080", rename or delete an existing company, and":28)"switch from one company to another":"12. Quit"18)"- Use this option when you are ready to leave":28)ST$24:OP,103:WSHL,R:K8ES,MM$:24:RS,103,A$:OP,"More HELP. "A$:WS,A$:A$ES$ġ:6100xBGO,1,24:CL:GO,1,4:CW,80,19:GO,1,4:XER(222):EFER6EF0:XO:bPX(#A$PF$:D1:S44:9200#A$"Company data disk for "CN$:D2:S60 #ES,MM$:9300:ES1710,310~T$EJ,D:HL,S:12:WB,S,5," Load Disk ":OP,"Please load the following disk in Drive "(D):14:OP,!" "A$" "^$16:OP,109:WS,A$:HL,R:ESA$ES$:%HL,S:EJ,2:ES,104:GO,8,9:BL:WB,55,6," Important ":XY,H(&%"Your company data disk (in drive 2) is write protected."0%:GO,H:"Please write-enable your disk by sliding the tab toward":GO,H:"the center of the disk (covering the small hole in the":GO,H:"disk).":%GO,H13:OP,103:WS,A$:HL,R:A$ES$ġ:310D%] 'General Ledger System,Accounts Payable System,Accounts Receivable System,Inventory Control System 'Payroll System,Labels Plus,BusinessWorks Utilities,System Setup and Configuration,Change Today's Date,System Status Report,Multiple Companies,QuitP!*January,February,March,April,May,June,July,August,September,October,November,December 7000 5000:5100T1:80:ST,"Maintain Customers":GO,1,22:OX,80,"-"2GS3600:3200:LI$"":F%(6)1:F%(8)1:F%(11)1:F%(13)1POL,2,A$,AB,N:ABHUAB(NN).5:IS,S,QX,NK,ND:FF(NKND)MCM dSH0:370:GO,48,7:WB,30,2," Status ":PL,L" Number of Customers:",I5,NC:GO,50:PL,L"Disk Status:",I6,AB,L"% Avail" nDD0:GS3500:3200:NPNC0:330:SB,1,"customer ID",NP,", !Next, !Previous,",1," or [RETURN] only to quit",P$(0) QF0:LN0:ED0:ID$"":FL,"",9,I$:ES,11:2010:QF160& /123456789:;<=>?@3020:9000:ID$A$:ESA$SP$1509 ESID$""200T 390:N3įER,XC$:150` N180 NPİ320:IS,F,QX,LI$,R:400 ER,"NO CUSTOMERS DEFINED, can't use NEXT or PREVIOUS":150 ID$SP$İ320:500 ER,IC$:150  ES:330::5200:FC MM,11:RU,12I ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300O .e 6GO,H1,V:HG,16: @360:330:ES:370:L116:L220:DD0:3600:3500:LN0:350 JGO,1,23:CS: T330:T5įOP,P$(LN)"?":$ VP1$"":T6įSB,1," (1-16), or !None",L20UG," or !? to see a list",P1$C XOP,"Enter "P$(LN)P1$: ZNCĢ24:OP,"(Use !? to display a list of your customers)" \ ^HH(LN):VV(LN):H1H4:H2H21:TT(LN):SS(LN):XX(LN): hSHįHL,R:SH0 j lSHįHL,S:SH1 n rGO,45,4:CW,35,8:? SQ,A$,"NEXT","PREVIOUS",N:A$"CASH"N3E l N1İ450:R0įIS,F,QX,"",R:400 N2İ460:R0įIS,F,QX,EN$,R:400 RNR:ID$A$:500 IS,N,QX,A$,R: IS,P,QX,A$,R:ID$(ID$S8$,8):360:3100:IS,F,QX,ID$,RN:EVRN0:OP1:EV7002X5300:ID$I$(1)5400QbL10:L2LX:DD1:3500:UP0LI$ID$:KDD(1)D(2)(D(4)D(5))D(6)CP:330:"What do you want to do with this customer? ";:KDįHL,43:KW,AC$,ED$,RN$,"Delete",OP,NKDįHL,44:KW,AC$,ED$,RN$,OP,N(330:N1OP1:GT,1400100N4EV670}330:OP,"Please wait, adding new customer":AVLRLR1:RNLR:666RNAV:BR,QC,AV,#AVIS,I,QX,ID$,RN,ST:ST5400NCNC1:UP1:5200UPİ5350:KP:80100LL0:FL,0,12,D:FL,0,5,T3:I$(1)ID$:CP0vLN1:330:BL:HL,60:YN,1,"Customer not on file, OK to add this customer",N:N0100FFįER,84:150EDLNLL:2000:ESLNLN1:LN1740,100LNLN1:LNLLLLLNLNLX740Z330:GO,55:"(Enter No to make changes)";:GO,1,23:HL,42:YN,1,"OK to accept this information",N:N0LNLX:740p OP2:GT,65010N330:OP,106:HL,46:KI,0,A$:UC,A$:A$ES$650A$"DELETE"įER,85:650330:EVįIS,D,QX,ID$:ID$"":BW,QC,RN,#AV,$ID$:AVRN:NCNC1:5200:KP80KLFFįER,"FILE FULL, UNABLE TO DO RENAME":650V330:346:GO,1,23:"Enter new customer ID: ";:XY,H:OX,8,FC$:GO,H:HL,47:KI,8,A$:300:A$ES$A$""1160XUC,A$:(A$,1)Q$İ9000:1110`390:N3A$SP$įER,XC$:11108bNįER,IC$", can't use NEXT or PREVIOUS":1110jA$(A$S8$,8):IS,F,QX,A$,N:N0A$ID$įER,"CUSTOMER ID ALREADY EXISTS":1110t330:EVįIS,D,QX,ID$:IS,I,QX,A$,RN,ST:ST5400~ID$A$:I$(1)ID$:EVİ5350360:LN0:350:DD1:3000:650g330:"Enter line number to edit (1-"LX") or [RETURN] only: ";:HL,45:NI,0,ST,LN:ST2650LN1LNLXSTįER,76:1200330:ED1:2000:UP1:1200SH0350EDDDLN7LN22:3010330:T4İ340:LNİ3464310:GO,H1:HG,16:GO,H2:DD1:HLLN14:ST0:GT,2000100TBEDİ3010L2020w QF0:310:LI,A$:ESA$ES$:ESġ:2070A$""ġ:3000QF(A$,1)Q$:T6ĭST1QFįSQ,A$,"NONE",N:NN0:ST0DDED:30004EDįPU,LI$(X),XS(I$(X)),FC$:GO,H2'>HL,HL:LNįKI,S,A$:21206@KI,S,A$]H310:2060:300:LNįUC,A$:ID$A$uRT1I$(X)A$:3000TT92150\N0:A$""įDT,A$,N:NįER,78:2050^D(X)N:3000fUC,A$:N(A$SP$)PL:N1N3įER,"INVALID PRICE LEVEL, must be A, B, or C":2050'hF%(X)N:3000\HL,HL:KI,S,A$:310:2060:UC,A$:A$SP$3000T$"":I1(A$):C((A$,I)):(C47C58)(C64C91)T$T$(C)C$"":(T$)7C$(T$,3):T$(T$,4)(T$)7įER,90:2050C$""N(C$):N100N999įER,80:20505I$(7)C$:I$(8)T$:3000pHL,HL:DI,S,ST,N:2060:ST0N0N9999įER,77:2050 T3(X)N:3000` VS8:R9:3900:ES2070j F%(X)N:3000 HL,HL:YN,F%(X)0,"",N:310:ESN0:ESF%(X)N 3000V( QKLN21UG:HL,HL:NI,4(12QK),ST,N:2060:QFQKVS5:R16:HL48(LN21):3900:ST0:ES20502 N0N16STįER,"INVALID ENTRY, must be 1 to 16 or None":2050< 2410 HL,HL:DI,S,ST,N:2060:ST0N0įER,74:2050 D(X)N:3000 2110T 2110  LNİ360 DD3100. GO,H2,V:T23050E T8ĺ"MM/DD/YY":b PU,XS,FC$:T2T7ĺ8)} SS(LN)įGO,H1,V1:CL  PU,L"(",X3,FC$,L") ",X3,FC$,L"-",X4,FC$: GO,H2,V:GT,310010T& OS,S,I$(X):0 I$(7)""įPU,L"(",S3,I$(7),L") ".2 PU,S3,I$(8),L"-",S4,(I$(8),4),B8:J: PU,D8,T3(X),7,5,L"%":iD NF%(X):Nĺ"None";:3040F N" ":SS(LN)įGO,H16:OS,24,SS(LN)NH N OS,9,YN$(F%(X)0):X 3140b OD,0,D(X):l D(X)įOY,D(X):n OX,S,SP$: v (PLF%(X));:2 L10:L215:GS,GS:L121:L2LX:GT,GSO LNL1L2:350:3000::{LL1L2:GO,H(L),V(L):LįPU,I2,L,L"-"GO,H(L)4:PU,S15,N$(L),L":"::,<364:GS,395010(LN18):GO,1,VS4:CW,44,VS6:GO,HS,VS:WB,W,R1,SP$A$"s ":" None":I1R:GO,HS:PL,I2,I,L". ",SW6,SSI:F330:"Select "A$". ";:OP,121:NF%(X)1:HL,HL:PI,HS4,VS,W4,R1,N,ST:360:310:ESST0:NN1:nA$"Sales Account":HS4:W38:SS239:xA$"Customer Note":HS4:W40:SS50:A$"Terms Code":HS8:W28:SS40:4A$"Sales Rep":HS6:W30:SS139::ES$(27):EN$(255):SP$" ":S8$" ":AC$"Accept":ED$"Edit":RN$"Rename"H21:LX27:HU100:PL64:IC$"INVALID CUSTOMER ID":XC$"'CASH' IS NOT A VALID CUSTOMER ID":Q$"?":ND$"Not Defined"(RD,18,UG:RD,40,MC:RS,2,FC$YN$(1),H(LX),V(LX),S(LX),T(LX),X(LX),N$(LX),P$(LX),SS(LX),I$(9),T3(5),F%(13),D(12)I0LX:H(I),V,S(I),T(I),X(I),N$(I),P$:V(I)V4:P$""P$N$(I)P$(I)P$:( I1012:RS,146I,A$:P$(I)"Are sales in this jurisdiction ("A$") taxable":Z YN$(0)"No":YN$(1)"Yes":SS(20)40:SS(21)139d FC: FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC,#RB,#LR,#AV: PBW,QC,0,#NC,#RB,#LR,#AV:KP: RW$"BR" !@RW$,QC,RN,#CP,A$I$:9,A3T3:5,A@F%:13,A#D:12:!!I$(3)SP$I$(3)""4!RW$"BW":5320Q!RB1:5200:ER,107:200Y!XPXq!(#NCįER,96:ES1:!2#ES:330:364:SX13:NCSXSXNC:A$Q$!4#VS7:GO,44,7:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:450:R0I0İ460"<#460:I1SX:450:R0İ9200:VSVS1-">#R0ISXK"@#:ES,92:23:OP,129:I1"F#HL,50:PI,44,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:"P#IS,F,QX,A$,R:GS,455ST5:R0įBL:9030"Z#GO,44,7:SW,34,SX,ST:9200:9030##BR,QC,R,#N,$A$,$N$:GO,44,VS:PU,B1,S10,A$,LN$:#'1,0,8,1,1,"Customer ID","",1,2,22,1,2,"Customer Name","",1,3,22,1,3,"Address, line 1","1st line of address",1,4,22,1,4,"Address, line 2","2nd line of address (optional)"s$'1,5,20,1,5,"City and State","City, State abbreviation",1,6,10,1,6,"ZIP Code","",1,7,14,2,7,"Telephone No.","",1,8,22,1,9,"Contact Name","customer contact name" %$'1,10,3,5,1,"Finance Charges","Is customer subject to finance charges",1,11,3,5,2,"Dunning Notes","OK to print dunning messages for this customer"%.'1,12,3,5,3,"Sales Tax #1","",1,13,3,5,4,"Sales Tax #2","",1,14,3,5,5,"Sales Tax #3","",1,15,3,5,6,"Print Statements","Do you normally print statements for this customer"a&8'1,16,3,5,7,"Balance Forward","Do you want to use balance forward statements",1,17,3,5,8,"'Ship To' Same","Is 'Ship To' address normally same as 'Bill To' address"#'B'47,2,5,3,3,"Discount Rate","customer discount percentage",47,3,1,9,13,"Std Price Level","standard inventory price level (A, B, or C)",47,4,2,6,11,"Std Sales Acc't","standard sales account"'L' 47,5,1,4,9,"Std Note Number","standard note number",47,6,1,4,10,"Std Terms Code","standard terms code",47,8,2,6,12,"Std Sales Rep.","standard sales representative"i(V'47,11,12,7,7,"Credit Limit","customer credit limit",47,12,12,7,8,"Y-T-D Sales","year-to-date sales",47,13,12,7,9,"High Balance","highest balance ever"$)`'47,15,12,7,10,"Last Paid Amt.","amount of last customer payment",47,16,8,8,11,"Last Paid Date","date of last customer payment",47,17,8,8,12,"Last Stmt Date","date of last statement" 7000 5000:5100821:80,N:XC,LV,TL$(OP)Fd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,9ML:YN,N,"Print report as shown above",N:330:N0200xNįES:2000:N1:GT,110ES103000 1::FC1 330:ES:XC,LV:MM,LV,11:RU,12` 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310f 8y JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 ` hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) lACDEFGHIJKLMN310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: 350:GO,14,14:CW,4,8:! GO,14,V:"--->":m V20:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS@ HU$(TL$(OP),1):UC,HU$:PN0:PF1:700Z 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570 0CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500 :PO:50* X630:TFLNL1:NLĭLNNLEPLNLNNL:X b900:CPĢ24:OP,130:WS,A$:A$ES$570o l650:700:NLī600u n v(KB)SBĹKS,0:(KB)(ES$)550 x CPė: FFĺ(FF): LLNOL:SP$::PNPN1:LN7:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1+L1LN:SP$:800:900r MLĺ"Customer Name/Address/Telephone"15)"Customer Information":*PL,B4,L"Customer",B10,L"Address",B14,L"Contact Name",B8,L"Telephone No.":MLįPL,X8,Q$,B1,X22,Q$,B1,X47,Q$:PL,B4,X8,Q$,B2,X22,Q$,B2,X22,Q$,B2,X14,Q$:)SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading customer list (in reverse order)":GO,30,17:"Customer ID:":19:OP,86:ES,100L(0)0:FL,0,RX,L:IS,F,QX,C2$,R:R0įIS,N,QX,ID$,R630:IS,P,QX,ID$,R:R0ID$C1$S11:S20:W$GO,43,17:OS,8,ID$:BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13.LF%(12):LRXįBW,QC,R,#RP,A$I$:9,3L(L):L(L)R81050LIS,F,QX,C1$,R:R0įIS,P,QX,ID$,RVSF1400IS,N,QX,ID$,R:EFR0ID$C2$:EFı1500:ID$I$(1)5300(BxS2RS2:1500:ID$I$(1):S2T3(1):]S1S11:EFS1RX:EFıpS2L(S1):1400BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:SH0:V14:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı+AFN1:AFC1$"":C2$"":2080S330:N1:DF$C1$:HL4:370:ES2000^C1$A$ N2:DF$C2$:HL5:370:ES2050C2$A$:AF0(A$Z$,8)C1$C2$C1$:C1$A$ 2600-4V18:392:330:HL,6:YN,SF0,"Do you want to sort the report by sales representative",N:390:N02000E>SFN:NWG0:2200f392:330:HL,7:YN,WG0,"Do you want to start a new page for each sales representative",N:390:N02100pWGN2600:400:ES21002600U GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:": GO,19:"Should report be sorted by sales rep:"::GO,19:"Produce report on what device:":AF1:C1$"":C2$"":SF0:WG0:RD,39,CP:PF0'( GO,54,14:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::2620O2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$< GO,57,18:YN$(SF0)12(WGSF)):WGĺ" (New Page)"F GO,50,20:OS,8,SP$(CP): ES:AFH2$"":C1$"":C2$(255):4000 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8)'LS1:1000:450:1200:EF4300RF%(12)LSSF4100rWGĭLS0LNL1NL0:600LSF%(12):CPLSįRS,139LS,A$:NL4:600:SP$:OC,"Sales Representative #"(LS)": "A$:SP$:LNLN1ML4200&(I$(5)I$(6))22I$(5)I$(5)SP$I$(6):I$(6)"":4120:I$(6)SS$I$(6)bD(4)D(4)D(5)D(6):NL10:600:L11"L19:L8L7:4700:4800:4900:::SP$:4050hA2I$(4)SP$:NL4A2:600:NLNLTF:TFĺSP$rPU,B4,S10,ID$,S24,I$(2),S24,I$(9):4760:|PL,B14,LI$(3):A2įPL,B14,LI$(4)>PL,B14,LI$(5),B1,LI$(6):4050[AC$"complete":500:570p\OS,9,ID$:ID$""fL1L11:L14L16ĭI$(L1)SP$4710pL17įPU,S23,I$(L1):zL17įPU,S23,I$(9):L18ĺ2312L8):" Tel: ";3PU,L"(",S3,I$(7),L") ",S3,I$(8),L"-",S4,(I$(8),4),B2:xIF%(FX(L)):SS18:PU,LF$(L),L": ":L6įPU,S3,YN$(I0),B2:4850L6ĺ(PLI)4):4850IįOS,SS9L8,NO$:L8įOS,SS,(I):PU,S4,"#"(I),S23,I4099(L8):L1įPU,L"Disc:",D8,T3(3),7,5,L"% ":?L2ĺ"Note: ";:IF%(9):SS7:4820_L3įOS,13,"Sales Taxes":PU,B1,S4,152L,L": ",S6,YN$(F%(L1)0):$ID(DX(L)):PU,S9,D$(L),L":":L8įOD,8,I,2,10:.IįPU,B1,YI8KB16384:KS16368XES$(27):SP$" ":LV4:PL64:SB128:RX16:NO$"None":Q$"=":Z$"ZZZZZZZZ":SS$" "RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,OP:OP1(OP1):MLOP1TL$(2),I$(9),T3(5),F%(13),FX(9),F$(9),D(12),DX(9),D$(9),AS$(1),SP$(1),YN$(1),L(RX)TL$(1)"Customer Master List":TL$(2)"Customer Name List":YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective"I19:F$(I),FX(I)::I19:D$(I),DX(I):FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:*RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0<ER,107:200DXPX\(#NCįER,96:ES1:2#ES:340:330:SX14:NCSXSXNC:A$SP$4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400<#9400:I1SX:9300:R0İ9200:VSVS1>#R0ISX<@#:ES,92:24:OP,129:I1F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030Z#GO,42,7:SW,34,SX,ST:9200:9030#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:1T$IS,N,QX,A$,R:E$IS,P,QX,A$,R:'"Fin/Chg",1,"Dunning",2,"Stments",6,"Bal/Fwd",7,"Ship To",8,"PriceLv",13,"Acc't #",11,"Sales Rep ",12,"Terms Code",10B *"Balance",1,"Op Credit",2,"Fin Chrgs",4,"Cr Limit",7,"YTD Sales",8,"High Bal",9,"Last Paid",10,"Date Paid",11,"Stmt Date",12 7000 5000:5100Y1:80:ST,"Customer Credit Inquiry":GO,1,22:OX,80,"-"NCįER,"NO CUSTOMERS DEFINED IN THE A/R SYSTEM":20024000:GO,45,5:"# Customers: "NC:ID$""dSH0:HL52j nES,11:320:OP,"Enter customer ID, !Next, !Previous or [RETURN] only to quit":24:OP,"(Use !? to see a list of your customers)":GO,1,5:HG,12 pGO,14,5:OX,8,FC$:GO,14:HL,HL:KI,8,A$:UC,A$:GO,1,5:HG,12 rA$SP$A$ES$200 t(A$,1)SP$A$(A$,(A$)1):114 x(A$,1)Q$įGOQRSTUVO,14,5:OX,8,SP$:9000:ES110V SQ,A$,"NEXT","PREVIOUS",N:NįIS,F,QX,ID$,R:400r IS,F,QX,A$,R:R01000 ER,126:HL53:110 ES:320::FC MM,11:RU,12 @GO,1,23:CS: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `" N1İ450:R0įIS,F,QX,"",R:400M N2İ460:R0įIS,F,QX,(255),R:400W 1000k IS,N,QX,A$,R: IS,P,QX,A$,R: ES:ID$(A$S8$,8):350:320:340 BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:ID$I$(1)5400 LGO,14,5:OS,8,ID$5 VI$(5)I$(5)SP$I$(6):I$(4)""I$(4)I$(5):I$(5)""e `I25:GO,14,5I:I$(I)::GO,14,12:I$(9) jGO,15:PU,S3,I$(7),L") ",S3,I$(8),L"-",S4,(I$(8),4) t7:I14:GO,56:YN$(F%(I3(I2))0): ~8:I35:GO,75:YN$(F%(I)0):, GO,56,11:(PLF%(13)):GO,56:PL,D8,T3(3),7,5,L"%"N F%(12)įGO,56:OP,139F%(12){ A$"None":NF%(10):N0N10įRS,40N,A$ GO,56,14:A$ FCD(4)D(5)D(6):ARD(1)D(2)FC:CAD(7)AR:CA0CA0 P0:D(7)PTTARD(7):P0P04GO,17,16:OD,0,D(1):GO,44:OD,8,D(7),2,10:GO,70:OD,8,D(8),2,10{GO,17,17:OD,0,D(2):GO,44:OD,8,CA,2,10:GO,70:OD,8,D(10),2,10GO,17,18:OD,0,FC:GO,44:PU,D8,P,4,8,L"%":D(11)įGO,71:OY,D(11) GO,17,20:OD,0,AR:GO,44:OD,8,D(9),2,10:D(12)įGO,71:OY,D(12)8PTTįGO,33,21:OP,!" Over Credit Limit "]320:OP,103:WS,A$::350:100GO,1,5:PL,L"Customer ID: ",B8:PL,L"Name :",B32,L"Fin/Chrgs:",B12,L"Sales Taxes":PL,L"Address :",B32,L"Dunning :",B14,S4,156,L":"\PL,B44,L"Statemnts:",B14,S4,157,L":":PL,B44,L"Bal/Fwd :",B14,S4,158,L":":PL,B44,L"Price Lvl:"PL,L"Contact :",B32,L"Disc Rate:":PL,L"Telephone : ( )",B26,L"Sales Rep:":PL,B44,L"Pay Terms:":PL,L"Unpaid Invoices:",B14,L"Credit Limit:",B13,L"Y-T-D Sales :"VPL,L" - Open Credits:",B14,L"Credit Avail:",B13,L"Last Pd Amt :"PL,L" + Finance Chgs:",B14,L"% Credt Used:",B13,L"Last Pd Date:"PL,B18,X9,"-":PL,L"Current Net A/R:",B14,L"Highest Bal :",B13,L"Last Stmt On:":4ES$(27):SP$" ":Q$"?":S8$" ":TT10000:PL64BRS,2,FC$I$(9),T3(5),F%(13),D(12),YN$(1):YN$(0)"No":YN$(1)"Yes"FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:RB1:BW,QC,0,#NC,#RB:KP:ER,107:200XPX(#%2#ES:320:340:SX13:NCSXSXNC:A$Q$~4#VS7:GO,44,7:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:450:R0I0İ460<#460:I1SX:450:R0İ9200:VSVS1>#R0ISX@#:ES,92:23:OP,129:I1F#HL,50:PI,44,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:LP#IS,F,QX,A$,R:GS,455ST5:R0įBL:9030rZ#GO,44,7:SW,34,SX,ST:9200:9030#BR,QC,R,#N,$A$,$N$:GO,44,VS:PU,B1,S10,A$,LN$: 7000 5000:5100C1:80:ST,TL$:GO,1,22:OX,80,"-"NCįER,"NO CUSTOMERS DEFINED IN THE A/R SYSTEM":20024000:4100:GO,52,5:"# Customers: "NC:ID$""dSH0:HL61= nES,11:P$"customer ID, !Next, !Previous, or [RETURN] only to quit":P1$"your customers":H14:V5:G12:S8:300:ES200d xQFįGO,H,V:S):9000:N0:ES110 NįIS,F,QX,ID$,R:400 IS,F,QX,A$,R:R01000 ER,126:HL53:110 ES:330::FC MM,11:RU,12 ,330:P1$""Ģ24:OP,"(Use !? WYZ[\]^_`abcdto see a list of "P1$")" .23:OP,"Enter "P$:GO,HG1,V:HG,G:GO,H:OX,S,FC$:GO,H:HL,HL:NI,S,ST,X:LI,A$:330:GO,HG1,V:HG,G:A$SH$İ6000:300 0310:ESA$SP$A$ES$:ESı 2UC,A$:QF(A$,1)Q$:SQ,A$,"NEXT","PREVIOUS",N:* 6A$SP$ĭ(A$,1)SP$A$(A$,(ID$)1):3100 8C JGO,1,23:CS:V TSHįHL,R:SH0\ Vp ^SHįHL,S:SH1v ` hGO,13,V1:CW,58,LX: 330:OP,P$WS$:WS,A$: N1İ450:R0įIS,F,QX,"",R:400 N2İ460:R0įIS,F,QX,(255),R:400 1000 IS,N,QX,A$,R:2 IS,P,QX,A$,R:Y ES:340:360:330:ID$(A$S8$,8) BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:GO,14,5:OS,8,ID$:GO,26:I$(2):PV0 5400:NIįER,"NO INVOICES ON FILE FOR THIS CUSTOMER":1600 LSH0z VP$"invoice number, !Next, !Previous, !F!I!N, !O!P!E!N, or [RETURN] only":P1$"invoices":H12:V7:G10:S5:HL0:300:ES1600 `QFįGO,H,V:S):3000:ES11200,1110 jN1140 lNPV12(N2):N1NNI nNNIN1 p12002tA$"FIN"PO$"Fin Chg":BBD(4):MAD(5)D(6):IBBBMA:IU1:340:2000gvA$"OPEN"PO$"Open CR":IBD(2):IU0:340:2010~X0X99999STįER,"INVALID INVOICE NUMBER ENTERED":1110FD,X,NI,I,N:N0įER,"INVOICE NOT ON FILE":1110340:330:PVN:PIP(N):IUI(N):5300YGO,H1,7:OD,8,U(1)HU,4,5:GO,H1,9:PO$:GO,H1:PL,YU(2):GO,H1:OY,U(2)DD%DD(19)DD(19)DD(20)DD(21):DD(20)DD(22):TDD(23):I1720:TTDD(I)::DD(16)T7:I15:GO,H2:PL,D8,DD(15I),3,9:FGO,H3,7:PL,D8,A(1),3,9:GO,H3:PL,D8,A(4),3,9:GO,H3:OD,8,A(3),3,9:GO,H3,11:OD,8,A(1)A(4)A(3),3,9n360:TF0:N1:LV1:XLXT:IU01270IUPP%įGO,13,L:PL,S32,"Prepaid, cash",D0,ID(5):TF1:14001300BBįGO,13,L:PL,S45,"Balance Forward",D0,BB:LL1:TF1=D(6)įGO,13,L:PL,S45,"Current Finance Charges",D0,D(6):LL1:TF1VNNTPTP(N):1330dXL1400(PXL:BR,QR,P,#XL,@K%,@T%:T%2T%613102AI0:BR,QR,P,#PP,@K%,@T%,@ND%,$PO$,A3U:5,A#A:4,A3DI:11,A3DA:11,3X,A@D%:4:LKA(2):2100:AM1370<T%6IUAMA(1):AIDI(1):1370*FLK1390nPBR,QR,LK,#LK,@K%,@T%,@ND%,A3DI:20,A3DA:20:T%5:2100:AM1350ZD%(4)ĭIU01390\LV2İ330:OP,"More transactions"SE$:WS,A$:330:LV1:360:A$ES$1510dS213(T%3(T%6IU)):RF$"":U(1)RF$(Z0$(U(1)),5)\fGO,13,L:LL1:TF1:AIįPU,S15,TY$(T%),S7,RF$,YU(2),BS,D0,AM:1390hA$"FinChg":AI0A$"#"(Z0$(AI),5)jPU,S22,TY$(T%)", to "A$,YU(2),BS,D0,AMnNN1:1300xTFP$"Transaction summary complete, ":1500!P$"No transactions on file, ":1500*390?4010:360:1100S@340:4000:100GO,H3,7:PL,D8,BB,3,9:GO,H3:OD,8,MA,3,9GO,H1,7:OS,5,A$:GO,H1,8:PO$;:GO,H3,11:OD,8,IB,3,9:330:12504T%5ND%1:LK0>AM0:I1ND%:DI(I)IUAMAMDA(I)H:0 350:330:SX11:NISXSXNI GO,40,7:WB,37,2SX," Invoices ":" Inv # Reference Due Balance":GO,41:"----- ------------ ----- ---------":L11 I1SX:VS8I:3100::330:OP,129:I1+ ES,92:HL,62:PI,40,9,7,SX,I,S:XY,VS,VS:ESS3:ESSNL1VS9:ES:T (S0L11)(S0L1SXNI)įBL:3030 L1L1S:GO,40,9:SW,38,SX,S:3100:3030 PIP(L1I1):5300:GO,41,VS:PU,D8,U(1)HU,4,5,B2,S13,PO$,YU(2)DD%,D8,A(1)A(4)A(3),2,10: GO,1,5:"Customer ID:"38);:CLZGO,1,7:PL,L"Invoice #:",B15,L"Original Amt:",B13,L"Month Beg. Balance:",B9PL,B25,L"Misc Charges:",B13,L"+ Monthly Activity:",B9PL,L" P.O. # :",B15,L"Discounted :",B13,L"- Discounts Taken :",B9PL,L" Inv Date:",B15,L"Sales Tax :",B32,L" --------"ePL,L" Due Date:",B15,L"Freight Chgs:",B13,L"Current Balance :",B9:GO,10,12:BX,60,8:GO,13,14:" Transaction Ref # Date CR Amount DR Amount":GO,13:"------------- ----- -------- ----------- -----------": XES$(27):SH$(31):SP$" ":S4$" ":S8$" ":Q$"?":Z0$"0000"HU100:IX250:TX400:V116:LX5:V2V1LX1:H112:H239:H371:SE$", press [SPACE BAR] to continue or [ESC] to stop":TL$"Customer Invoice Inquiry" RS,2,FC$:RS,103,WS$TY$(6),I$(9),T3(5),F%(13),D(12),U(5),A(4),DD(23),DI(20),DA(20),YN$(1),I(IX),IP(IX),T(TX),TP(TX),D%(4):YN$(0)"No":YN$(1)"Yes"I26:TY$(I):FC:FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:6BR,QR,P,#PP,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,@DD%,@SD%,@PP%,@PM%:PRP:NI0:NT0:XT0:330:PĢ18:OP,"Please wait, collecting customer invoices""P5450,BR,QR,P,#PP,@K%,@T%,@S%,$A$,3IU,3ID:T%15430.NIIXNINI1:I(NI)IU:IP(NI)P05440&6NTTXNTNT1:T(NT)ID:TP(NT)P:544048XTXTPC@PPP:5410YJNI1įSR,I,IP,NIoLNT1įSR,T,TP,NTxT360|RB1:BW,QC,0,#NC,#RB:KP:ER,107:200p350:HL,S::"Help for "TL$:OX,80,"=":GO,1,23:OX,80,"-"zGO,1,4:"This option is used to examine transactions (e.g., payments, credits, etc.) thathave affected a specific customer invoice. This option is very handy when you""have questions regarding the current status of a customer's account.":::"To view the transactions, enter one of the following:":" Invoice Number - to examine transactions regarding a specific invoice"::" N or P - to examine the next or previous customer invoice on file,":19)"by invoice date":" OPEN - to examine transactions affecting the customer's open credit":19)"balance"::" FIN - to examine transactions affecting finance charges":" ? - to display a list of all invoices on file for this customer" ES,TL$:24:OP,103:WS,A$:HL,R: XPX (#@ 2#ES:330:350:SX13:NCSXSXNC:A$Q$ 4#VS7:GO,44,7:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:450:R0I0İ460 <#460:I1SX:450:R0İ9200:VSVS1 >#R0ISX @#:ES,92:23:OP,129:I19!F#HL,50:PI,44,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:g!P#IS,F,QX,A$,R:GS,455ST5:R0įBL:9030!Z#GO,44,7:SW,34,SX,ST:9200:9030!#BR,QC,R,#N,$A$,$N$:GO,44,VS:PU,B1,S10,A$,LN$:!'"Credit Memo","Debit Memo",,"Payment","Apply O/C" 7000 5000L1:80,N:XC,LV,TL$:14:OP,"One moment please."`25100:2000:ESd3000:I14:SS,65I,A$(I):nIVPFāI1HX:SD,450I,0:pIVPFİ1000xES03 "SD Data: 190-192: UI/PF/SS 201-229: V(L) 251-279: H(L) 301-329: S(L) 351-379: T(L) 401-429: G(L) "SS Data: 34- 39: Prompts/Errors 63- 65: '' 66- 69: Company Name 110-119: Screen image 131-139: Prompts 201-229: P$(L) 230-237: T$(l) 330:1::FC XC,LV:ESįMM,LV,eghijklmnopqropqr11:RU,12& MM,LV::D$"-"PF$PG$9 JGO,1,24:CL: rI1N:V,H,S,T,G,U:SD,200I,V:SD,250I,H:SD,300I,S:SD,350I,T:SD,400I,G:SD,450I,U: tI1N:A$:(A$,1)"/"A$"Enter "(A$,2) vSS,200I,A$:: GO,12,14:CW,4,6: 390:GO,12,V:"--->": XC,LV:GO,14,14:WB,55,6," Please Read ":"Some of the information you would normally enter for an":GO,14:"invoice is only required if you are printing invoices" GO,14:"(e.g., Order Date, Shipping Instructions, etc.). Since":GO,14:"you are not printing invoices, you will not be asked to":GO,14:"enter this information. The non-applicable information" GO,14:"will be identified on the screen with 'n/a'.":24:OP,103:WS: 2500:N0i ES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,HL:YN,N,"Do "T2$" as shown above",N:330:ESN0:ES200 NįES:2100:N1:GT,2010ES10 SS2SS:PF20800ES:HL,S:ES,104:16:WB,48,3," Load Printer ":OP,"Please load invoice forms in the printer":::OP,103:WS,A$:HL,R:A$ES$2000z 330:HL,50:YN,"Do you want to print an alignment test",N:N02000Nİ2700:2060 330:SD,190,UI:SD,191,PF:SD,192,SS: 4V14:392:330:HL,HL1:YN,PF0,"Do you want to print "T1$,N:ESN0:ESı*6PSNįER,70:PF0:21007>PFN:N2PFİ2600:V16:392:330:HL,HL2:YN,SS0,"Use single spacing on "T1$,N:N02100SSN:390:2600 XC,LV:GO,17,14:"Do you want to print "T1$":"::GO,17:"Use single spacing on "T1$":":PFPS0:SS2PSL( GO,486RC,14:YN$(PF0)::GO,496RC:YN$(SS): 330:OP,"Please wait, printing alignment test":1::PW,PS:4000 I15:4300:" ***** ***** *****"13)"***** Alignment Test": 4100:PW,0: GS,3100100RC5 SS,35,"CUSTOMER HAS MAXIMUM NUMBER OF TRANSACTIONS"[ SS,36,"Please wait, posting "T$ SS,37,"Please wait, printing "T$ SS,63," complete, what do you want to do? " SS,64,"(Use !? to see a list of your customers)"* SB,UI,"(Use !? to see a list of your parts)",A$:SS,65,A$ SS,134,"--- Printing complete, press [SPACE BAR] to continue or [ESC] to reprint ---" SS,135,"INVALID INVOICE NUMBER, must be 1 to 99999" SS,136,"INVOICE TOTAL TOO LARGE, cannot exceed $80,000.00"> SS,138,"INVALID NOTE NUMBER, must be 1-9, Special or None"{ SS,139,"INVENTORY PART MAY ONLY APPEAR ONCE ON INVOICE" SB,1,"Enter unit price",UI," (or use !A, !B, or !C for inventory items)",A$:SS,224,A$5 SB,1,"Enter sales account number (1 to 16)",UG,", or use !? to see list",A$:SS,226,A$; | SS,33,"CANNOT INVOICE THAT PART, HAS ZERO ON-HAND QUANTITY" SS,34,"CUSTOMER CREDIT LIMIT HAS BEEN EXCEEDED" SS,38,"Enter new invoice number or [RETURN] only (use [ESC] when done): "=" SS,39,"Enter invoice date or [RETURN] only for today: "m$ SS,40,"THAT INFORMATION IS NOT APPLICABLE"& SS,50,"CAN'T EDIT, 'CASH' TERMS ARE PREPAID"0 SS,110," Customer ID :"S3$" Invoice #: Date:"CR$2 SS,111,"1- Customer Name:"S3$" 3- Order Date:"N4 SS,112," Address :"S3$" 4- Cust PO # :"p6 SS,113,S2$" 5- F.O.B. :"8 SS,114,S2$" 6- Taxable :"CR$CR$: SS,115,"2- Ship to Name :"S3$" 7- Sales Rep.:"< SS,116," Address :"> SS,117,S2$" 8- Terms Code:"CR$CR$CR$T@ SS,118,"9- Ship Inst. :"S3$"10- Note :"D SS,131," Qty Qty Unit Unit Sale "F SS,132,"Ln Part # Description Order Shipd Price Discount Acct Tax?"qH SS,133,"-- -------- ------------------------ ------ ------ --------- --------- ---- ----"J SS,137,"INVALID SALES REP NUMBER, must be 1 to 16 or None"N  SS,33,"CASH CUSTUMER CANNOT BE USED" SS,34,"INVALID REFERENCE NUMBER, must be 1 to 99999"< SS,38,"INVOICE NOT ON FILE"x SS,39,"One moment please, opening required data files" SS,40,"(Use !? to see a list of customer invoices)" SS,50,"UNACCEPTABLE TRANSACTION, Credit total is zero"# SS,110,"Customer ID :"S3$"Reference Number:"Y SS,111," "S3$"Transaction Date:" SS,112," Name :"S3$"Taxable :" SS,113," Balance :"S3$"Invoice Number :" SS,114," Open Credits:"S3$"Current Balance :"V SS,115," _________________________________________________________________________" SS,116,"***************************" SS,117,"* *" SS,118,"* C R E D I T M E M O *" SS,119,"THAT INVOICE IS CLOSED"O SS,131," Qty Unit Unit Sale" SS,132," Ln Part # Description Return Price Discount Acct Tax?" SS,133," -- -------- ------------------------ ------ --------- --------- ---- ----"A SS,137,"INVALID CREDIT TOTAL, exceeds invoice balance" N5:370:I18:H:SD,250HXI,H::SD,200HX4,1:SD,350HX4,9999999 SS,201,"Enter Customer ID or [RETURN] only" SS,223,"Enter quantity being returned" SS,237,"Credit Total"  1I14:7):I2I4ĺA$(I):4020VOS,59,A$(I):I1ĺ"*****":4020e"CUST ID"y:I17:SP$:I14:PL,B7,S43,A$(I),LA$(I)::I15:SP$:PL,B1,YCY$:SP$:PL,S20," P.O. Number",YCY$SP$:L25:SS1ĺSP$:LL1FFĺ(FF):)LL66:SP$::5hLLN:ONSS:4200:SS2ĺSP$U[D$(4):CR$(13):ES$(27):SP$" ":LV3:HX19:NXHX8:HU100:S3$" ":S2$" "S3$l RD,1,PS:RD,2,FF:RD,10,N:IVN1:RCIV:RD,17,NP:RD,18,UG:RD,33,PH:RS,0,CY$:RS,25,DP$:RS,26,PF$:IT$DP$"TEMPINV.FILE":SS,198,IT$ IVTL$"Invoicing":T$"invoice":T1$"invoices":T2$"invoicing":PG$"ARINVOICE.PROG":HL47G!RCTL$"Return Merch. Credits":T$"return merchandise credit":T1$"return credits":T2$T1$:PG$"ARRETURNS.PROG":HL105!A$(5),GL(27),YN$(2):YN$(0)"No ":YN$(1)"Yes":YN$(2)"n/a"!PHāI15:RS,2I,A$(I)::A$(4)A$(4)SP$A$(5):A$(3)SP$A$(3)A$(4):A$(4)"""NNX:370:I07:A$:SS,230I,A 7000 5000:5100@80:ST,TL$:GO,1,22:OX,80,"-"U24700:4900:350dFL,"",HX,I$:FL,"",2,T$:FL,"",EX,P$:FL,"",EX,D$:I$(0)"INV"IU$:I$(12)CY$:LL0:E0:4750:I$(14)Y$(2):I$(15)Y$(1):I$(16)Y$(4):I$(19)Y$(4):SA1:L11:L2HX nLL1:ES0 x1000:ES1408 LL1:LL1įGT,50100EP L1(L11ST)100_ LL2120 EHL75:P$"Header":4800:N500,160,100 E0:HL76CI:L10:T0:420:ES150 L1N9:L2L1:N3L15N3:L2L14 RD,XUL1,U:UįER,40:160 suvwxyz{|}~nE1:110J 1::FC:XC,3,TL$:MM,3:RS,26,P$:RU,P$"ARINVPOST.PROG" ,RD,XVL,V:RD,XHL,H:RD,XSL,S:RD,XTL,T:RD,XGL,G:RD,XUL,U: 0GO,HG1,V: 6GO,H,V:UĭEL2CIįOS,5(U1)," n/a": 8I$(L)""LLL320 :OX,S,U$:T4įCL: <T5įGO,56,V1:CL" >7 @T3įOY,I$(L):h BOS,S,I$(L):T5įCL::GO,56:T$(L15);:CLu DT4įCL{ F JSHįHL,R:SH0 L NSHįHL,S:SH1 P TP2:352:GO,1,5:OP,131:OP,132:OP,133:L11: VV8LL1:H1:GO,H,V:OI,2,L: ^GO,1,23:CS:0 `GO,1,4:CW,80,18:F b350:24:OP,I:Y h304:GįHG,G_ jq l304:GįHG,Gz n350 rLI,A$:(A$,1)"%"U77:N(A$):N0NHUNQ(NZ):U0:X0 t |(S8$(XHU),6);: ~X(X)įOD,8,X,3,9: OD,40,X,4,9:7 A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):390K QF(A$,1)Q$:S IL XZ(I,2):DQ(XZ(I,4)):XQ(XZ(I,3))D: 350:"Enter line number to edit (1-"L")";:TįOP," or !Add" ": ";:HL,HL:NI,0,X,N:ESXM2:ESıLI,A$:SQ,A$,"ADD",I:ITNL1:1XN1NLįER,76:420PP1ĭN8CIįER,50:420VkZ(GTTZC1):TX(J)TX(J)Z:JJ1:TFI$(15)Y$(1):R%(I$(16)):TC(I$(17)):NN(I$(19))(I$(19)Y$(5)):ET0:340LET1:E0:2000:N530ET540$4700:E1:4750:4950:E0:1503ETEX510hHL80:P$"Line item detail":4800:N600,550,500&LET:TETEX:HL81T:420:ES5400LN:ELET:2000:550X3000:ESİ340:2860:RC1:2600:540bI36:354:6000vPFİ3500KP:50 HL52LWSEE:300:UNIT5T6:MX9:ET7(T7CI)(T8ST)įGS,1000100Th330:ES310E1:310:ESE:LL1:LLLLLL:310:1000L1900:UC,A$:A$SP$ES1: NA$"CASH"CI0:PL1:DR0:ST0:I13:TF(I)CT(I)::I$(L)A$:1140>VP$" Customers ":FQX:QTQC:XNC:1150:ES1050\XN0įER,126:HL74:1100`XCI:CIN:5300:T3(4)250T3(5)400įER,35:CIX:1050bI$(L)A$:I26:I$(I)C$(I):I$(I5)C$(I):&jDRT3(3):STF%(8):SAF%(11):PLF%(13):I$(15)Y$(F%(3)F%(4)F%(5)):I13:TF(I)F%(I2):vlNF%(12):L16:1570:NF%(10)F%(10):L17:1520:NF%(9):L19:1620:L1:300tLL0:~UC,A$:QFA$(A$,1,(A$)1):1180:9000:ESı1180:IS,F,F,A$,N:P1310A$(S8$A$,8):28001900I$(L)A$:ET7I$(L5)A$$<1900:A$""A$CY$QDT,A$,N:N1250b(ER,78:1050x1900:L14įKW,Y$(2),"Dest",1(I$(L)Y$(3)),XL15įYN,I$(L)Y$(1),"",XESXM3:1950:X0I$(L)Y$(X(L14))L161550.N2:CIVS8:HS24:X40:P$"Terms Code":1590:ESı7X40YNT$(L15)"":I$(L)Y$(4):I$(L)(N):RS,XN,A$:(A$,2)" N"A$""T$(L15)A$:MX16:1900:QFVS4:HS22:X139:HL78:P$"Sales Rep":1590:ES1550XįER,137:1050"X139:1530*6334:P1İ360:310:N(I$(L))w8GO,4,VS:WB,6HS,MX,SP$P$"s ":I1MX:GO,4:PL,I2,I,L". ",SHS,XI::350:"Select "P$". ";:OP,121:HL,HL:NNN:PI,8,VS,HS2,MX,N,X:ESXM3:@1900:QFVS8:HS36:X50:HL79:P$"Note":1590:ES1600.JXįSQ,A$,Y$(5),N:NA$Y$(5):1250FTA$Y$(4):NA$(N)P^1250Z1200d1200lES0:350:OP,200L:L1Ģ24:OP,64v360:NIİ310GO,H,V:HL,HL:T4ıNIįNI,S,X,N:ESXM3:1950T3įPU,LI$(L),XS(I$(L)),U$:GO,H!HL,HL:T1įKI,S,A$4T1įKI,S,A$k390:X0:ESA$ES$:A$""A$I$(L):A$""L1ES1364:XM2ESġ:NIıLI,A$:390:XM2ĭXN1NMXX1:SQ,A$,Y$(4),N:NN0:X0SEL:2850:LSE:EāI06:Z(0,I)Z(L,I)::P$(0)P$(L):D$(0)D$(L)K342:SEE:T0:OX0:ES0:RCEET2:Eİ400:OXXSHEįCL:I04:Z(L,I)0::Z(L,5)SASA:Z(L,6)TF:P$(L)"":D$(L)"":L1EP0:CX0:GO,1,20:CW,80,2HL84UI:2700:RD,XUI,U:GS,U:350 330:TT12ES:T02080TĭE2000T72500@Q0ĭT2T3(QM2T1)2060J2050 330:EāI06:Z(L,I)Z(0,I)::D$(L)D$(0):P$(L)P$(0):2880*GO,1,V:CL:ETL1:N0:42700:A$P$(L):X9(12UI):2750:A$SP$ġ:2080-6SQ,(A$,1),"$","!",N:NA$Y$(5N):IN1:Z(L,1)I:Z(L,2)IHU:NN:2140H8A$SP$įER,119:2100f>350:UIİ1180:N0:2140HP$" Parts ":FQV:QTQI:XID(1):1150:ES2100JN02130LHL,95:ER,"Part '"A$"' is not on file","OK to invoice this non-stock part",N:N02100NN0:2140FRETįFS,A$,ET,P$,I:I0ILįER,139:2100iTPIN:5400:P(1)įER,33:2100VP$(L)A$D$(L)PD$(2):Z(L,3)PC(2PL)\Z(L,0)N:P$(L)A$:330:GO,H,V:OS,S,A$: fA$D$(L):Q0EESHL86:XS:2750:D$(L)A$:Q0ĺ14):QM2įCLpES0:2800+T7ĭTF2800]HL85T:2900:T2ĭZ(L,2)Z(L,2)NZ(L,2)NyT4ĭNZ(L,4)Z(L,4)0T4İ400:EPXOXAXįER,136:2800::2050HL92UG:2900:QF2320 VS5:HS34:MX16:X239:HL94:P$"Sales Account":NZ(L,5):1590:ES23001 330:Z(L,5)N:28007 P 350:ESE:LETETLj 2600:CID(7)2530 EPD(1)D(2)D(7)CX0:2530 CXįER,34:CX1 RC1:E2550 350:HL,83:YN,1,"OK to accept this entry",N:ESN0:ES2060 NETET1:2600:2000 N1:D( KET:RCEP0:TX0:FL,0,24,U:K1R2 ET2640}< ETK10İ350:OP,"One moment please"F IKET:410:EPEPX:TXTXXZ(I,6):JZ(I,5):U(J)U(J)X:P 350:GO,52,20:OX,9,"-"::GO,33:PU,L"Extended Total = ",D0,EP:< 2740:RD,XVI,M:RD,XTI,Z:QZ(L,0):Z0ZZ(L,T2)B l ITH1:T1T1:RD,XHI,H:RD,XSI,S: 2780:PU,LA$,XS(A$),U$,B1:GO,H:HL,HL:KI,X,P$:ESP$ES$:ESĭP$""A$P$ 390:GO,H,V:PU,SS,A$,B1:ESġ  350:OP,200TH1:TĢ24:OP,65 GO,H,V:I T2įGO,4,V:PU,S9,P$(L),S24,D$(L):q XZ(L,T1):GO,H,V:XĭT2įPU,BS: T1380,380,382,382  T6įOI,2,X:  TFįOS,3,Y$(X):  "n/a": " VLL1:V0V12ı $ L1L5:L11L11!, GO,1,8:CW,80,12:L2L111:L2ETL2ET0!6 LL1L2:2880::X!@ 342:T0:2800:QZ(L,0):QM2įCL:|!B T42(Q0)7:2740:2800::!T GHU:ESE:2800!^ T6İ2780:HL,HL:D3,S,X,N:ESXM3:X2X1:T4NN10:X0"` T6İ2780:HL,HL:NI,2,X,N:ESXM3:G1:LI,A$:390:QFQFUG:QF2800Q"b T7İ350:OP,227:HL,91:YN,X,"",N:ESNM3c"h ESİ2800::{"j XM2NZ(L,T1):X0"l U0:X0U73:T5İ370"r UĭT4Q0įLI,A$:SQ,(A$,1),"A","B","C",N:N0NPC(2N):U0"t UįER,U:2970A#| T3NP(1)Q0įER,"CANNOT SHIP THAT MANY, only "(P(1)HU)" On-Hand":2970S#~ NMNZ2960p# Z(L,T1)N:E1:330:2800# ER,"INVALID ENTRY, must be "(MG)" to "(ZG)# 2800:2900~$ P3:352:GO,1,5:PL,L" Customer: ",S18,I$(1),L"Name : ",S26,I$(2),L"Invoice #: ",LIU$:PL,L" Taxable : ",S18,I$(15),L"Terms: ",LT$(2):PL,L" F.O.B : ",S18,I$(14),L"Ship : ",LI$(18):OX,80,"_"$ FL,0,7,M:M(0)EP:GDR:L2:3300:450:M(2)Z$ L03:3410::3350$ HL96:P$"Invoice":4800:ESı% L1:N3200,3100A% 350:HL,97:YN,"OK to reject entire invoice",N:N03050K% :50% LLL:V11L:SM(L):3410:RS,230L,P$:GO,23,V:HG,23:L33140%& 350:OP,"Enter "P$:GO,49,V:HL,97L:DI,9,X,N:XM23150&0 U74:370:3300:X0N0(L2NZ)įER,U:3100#&: M(L)(12(L2))N:3150e&D 350:HL,101:YN,TF(L3),P$" applicable",X:XTF(L3)XM2y&F XM2TF(L3)X&N 3410:LLLL12(XM3):XM2İ3350&X LLL:L3TF3050&b LL73100&l 3050& M(7)AXįER,136:3050' PFİ8000:ES3050U' I16:U(I17(I3))M(I)::U(23)M(3):I122:P(I)U(I(I16))::P(23)EP' AM0:I123:X(U(I)):AMAMX:U(I)X::U(177(TC2))AM:' Z0:I0L1:ZZM(I)::' FL,0,9,TX:TFXM(0)M(1):XX((1M(2)X)(TXM(1))C1)( L46:IL3:Z0:TF(I)TF3380U(* J3I2:RD,75I,N:ZXNM(3):460:RD,72I,N:NZNZNz(, 460:RD,69I,G:GGHU:450:460(4 M(L)Z:3410:(H L7:3300:M(L)Z:GO,48,18:OX,10,"-"(R GO,23,11L(L7):PU,B1,S23,230L:L4L7įOD,0,(M(L)): )T TFĺ7)"n/a":5)V OD,0,(M(L)):" ("Y$(TF(L3))") ":) I5105:I$(I)I$(I)SP$I$(I1):I10(I$(I))29I$(I)(I$(I),29)) I$(I1)SP$I$(I1)I$(I):I$(I)"") ) I37:354:PW,PS:P$"":4000)I1ET:4300:ZZ(I,0):PZ0>*31P):PXZ(I,1):380:XZ(I,2):380:XZ(I,1)X:380:PU,B2,S11,P$(I)Z*$OS,28,D$(I):ZM23650~*.9P):PXZ(I,3)Z(I,4):382*8410:OD,0,X*B:*tN2:I07:NN(M(I)0)::4200:SP$:SP$*~I07:XM(I):XįPL,B38,S30,230I,D0,X+:(N$,1)SP$N2:4200:SP$:13)N$Y+4100:PW,0:350:24:OP,134:WS,A$:350::A$ES$3550_++L14:RS,65L,A$:7):L2L4ĺA$:4020+OS,59,A$:L1ĺIU$P$:4020+I$(1)+:L17:SP$:,L25:PL,B7,S43,I$(L),LI$(L5)::L15:SP$:Z,PL,B1,YIY,B1,S22,I$(18),S19,I$(14),LT$(2):SP$:PL,B2,S18,I$(13),YI$(12),B3,LT$(1)y,SP$:L25:SS1ĺSP$:LL1,,FFĺ(FF):,LL66:SP$::,hLN60İ4100:P$" (Cont)":4000,rLLN:,NSS:4200:SS2ĺSP$,-\P1:352:5:I110118:OP,I:::I-L1HX:300:GO,H,V:OX,S,SP$:310::-350:P$;:OP,63:HL,HL:KW,"Accept","Edit","Reject",1,N:ESN0:ESN3-350-$OL,2,A$,N,I:N10įER,89:200-.IY0:NUįRD,37,NU-0NU1NUXINU1;.8ES,11:350:OP,38:XY,H:NU;:GO,H:HL,51:NI,5,S,N:350:ES:SM3200N.:SM2NNU:S0l.<SN1NXIįER,135:4920.>IUN:IU$("0000"(IU),5):4950.B350:OP,39:XY,H:OY,CY:GO,H:HL,52:KI,8,A$:A$ES$4920.DA$""A$CY$/FDT,A$,IY:IY0įER,78:4930+/VGO,60,5:IU$;:IYįGO,73:OY,IY1/X7//ES$(27):SP$" ":Q$"?":S8$" ":W$"BW":R$"BR":TL$"Invoicing" 0Z%0:C1.5:M22:M33:HX19:H120:EX40:HU100:XI99999:TT1E4:AX8E6:XV200:XH250:XS300:XT350:XG400:XU450:Q(X)(XHUC1)|0RS,0,CY$:DT,CY$,CY:RS,2,U$:RD,1,PS:RD,2,FF:RD,7,BQ:RD,17,NP:RD,18,UG:RD,190,UI:RD,191,PF:RD,192,SS1Y$(7),I$(HX),T$(2),P$(EX),D$(EX),Z(EX,6),C$(9),T3(5),F%(13),D(12),T(12),U(24),Y(24),M(7),ID(32),G%(3),PD$(4),PC(5),P(24),LY(3),TF(3),CT(3),TX(9)11FL,1,3,CT:I07:Y$(I):;1FC:1UIįFO,178,QV:IS,O,QV,N,N:FO,179,QI:BR,QI,0,A#ID:32:CMID(5)1FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:5200:FC,F:NUT(2):1PF16:QS121ZFO,F,QT:B$R$2\@B$,QT,0,#AV,#LR,#CC,#DK,A#T:QS:)2dB$W$:5212:FC,F:A2AVLRLR1:XLR:Z2XAV:BR,QT,AV,#AV:d2B$R$2@B$,QC,CI,#RP,A$C$:9,A3T3:5,A@F%:13,A#D:12:2B$W$:53202B$R$2,@B$,QI,PI,#TL,A@G%:3,3SL,3LQ,A$PD$:4,A#PC:5,A#P:11,A3LY:3:3JB$W$:54203p(4)"FRE":NP6200J3zFO,198,QT:BR,QT,0,#N,#L,#I,A#Y:24:NLIU3I124:Y(I)Y(I)U(I)::NN1:BW,QT,0,#N,#L,#IU,A#Y:24:FC,198385200:52504BT%1:Z0:N%TC2:MU(24):RD,40TC,N:D%N:RD,50TC,D:DQ(AMD):RD,60TC,N:A%N:CIRPCC]4LBW,QT,X,#RP,@Z%,@T%,@R%,$I$(13),3IU,3IY,3DK,3Z,3CI,#AM,#D,#Z,#M,A3P:23,@D%,@A%,@N%,@Z%4VDKX:CICCX:T(3)T(3)EP:I13:CT(I)TF(I)::63004jRPX:D(1)D(1)U(17):D(8)D(8)EP:T3(4)T3(4)1:T3(5)T3(5)1:D(1)D(9)D(9)D(1)4t5350-5I412:T(I)T(I)TX(I3)::NUIU1:NUXINU1F5T(2)NU:5220:UIıx5F0:I1ET:PIZ(I,0):QZ(I,2):PI0Q67005 FF180:QS3:521055400:CM3APC(1):TQ(QA):660052RQ:T0:N0:V0:KTL5dK6550 6nLK:B$R$:6900:XY(2):T%98X065006xXRXRf6XY(2)Y(2)X:RRX:PQ(Y(3)(Y(1)Y(2))):TTPY(6):Y(6)P:B$W$:69006NNY(2):VVY(2)Y(3):65006QQR:Q67006ATHUQ:PC(1)0:NPC(1)VN6PZ(I,3)Z(I,4):N%Z(I,5):N8N%:ID(N)ID(N)T:ID(29)ID(29)T$75250:LTL:CM4TLTLX:6650A7BR,QT,L,#N:NLN:6620U7BW,QT,L,#X:L07Z0:BW,QT,X,#L,@Z%,@N%,#Q,#Z,#A,#A,#P,#Z,3CY,3BQ,$I$(0),@Z%7LQBQ:P(1)P(1)Q:P(8)P(8)Q:P(10)P(10)Q(QP):P(11)P(11)T:LY(2)CY:P(1)0P(1)075450!8,:FįBW,QI,0,A#ID:32:DK1:5220'86H8@B$,QT,L,#K,@N%,@T%,A#Y:6:P8XPXf8@ES0:NNN$"":8JNN0įRS,50NN,N$:9350:HL,S:OP,"Enter special note, if any:":16:WB,60,1," Special note ":XY,H:PU,LS$,X60(S$),U$:GO,H:HL,102:KI,60,N$:ESN$ES$:ESįHL,R:+9N$""N$S$9N$""įGO,H,16:OS,60,N$:350:HL,103:YN,1,"OK to accept this note",N:N181009S$N$:HL,R:9(#XįER,95P:ES1:92#350:334:SX13:XSXSXX:A$"":4#VS7:GO,42,7:WB,34,SX,P$:IS,F,F,A$,I:zb{_ C m H %|B.U14 !"#$l%\&2&'()M**+,-u.1//01-2234567i8299:;k)??@ABgBCDEF1GHHIJKLiLMNyOGP PQRSTU`VLW8XYYZx[Q\1\]^_`gaVb+bcdeiffgN(To edit one of the displayed Accounts Receivable saleaccounts, enter the appropriate line number (1 to 16). Tedit ALL of the displayed sales accounts, enter A. To returto the Accounts Receivable Utilities Menu, use [ESC](Enter the account number 7000 5000:5100@21:80,N:XC,LV,TL$:NPEX200zdN%0:I124:X(A(I)):N%N%(X0):A(I)X::N%190nNI$(NI):I1$(Z0$(I1),5):I2$(Z0$(I2),5)F xXC,LV:15:WB,46,3," Please Wait ":OP,"Posting Invoices to the General Ledger":17:OP,"( "NI$" invoice(s), numbered "I1$" thru "I2$" )"y FO,164,QA:FO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3JX JR3N%JXįER,88:200 ER0:X171:I124:A(I)įRD,X,X(I):X(I)ĭERERI15(I16) XX1:I16X161 8 ERįER,"ERROR IN POSTING TABLE, Check A/R entry # "(ER):200B 6000V FC,198:FX,198\ m 1::FC:ES XC,LV:MM,LV,11:RU,12  SP$" ":ES$(27):TL$"Invoicing":Z0$"0000" LV3:C1.5:HU100:Z0:Z%0 RS,0,CY$:DT,CY$,CY:RD,16,JM:RD,17,NP$ A(24),X(24),D(16). FC:M EX0:EF1:EFįFV,198:EX1~ EXįFO,198,QT,1:BR,QT,0,#NI,#I1,#I2,A#A:24  pTR$"INVBATCH":TD$"Invoice #"I1$:NI1TD$"Invoices "I1$"-"I2$ zVT%27:CYJMN%N%" BW,QJ,JR1,%N%,#CY,$TD$,$TR$,@VT%:JRJR3:JVJV1:T%0= I124:AMA(I):XX(I) AMįBR,QA,X,#N:JEJE1:JRJR1:T%T%1:BW,QJ,JR,#N,#AM,@T%:N%0įBR,QA,X,#N,#T,$A$,A#D:16:J2(AM0):D(J)D(J)AM:BW,QA,X,#N,#T,$A$,A#D:16 :BW,QJ,0,3JV,3JE,3JR,3JX:FC,164:FC,165:# XER(222):EFER6EF0:XO:+ PX 7000" 5000:5100:5700,24400d4100:390:306:GO,17,5:38):GO,56,5:PL,L"Disk Status: ",I4,HUABTB.5,L"% Avail"nOP1:ID$"":L1:E(L)0:3000:ES200x3000:L2100zXK150|LLX120500 FL,1,LX,E:L3LX:400::2600:2700:UP0:600 2 330:1::FCH ES:MM,11:RU,12V ,GO,H,V:p .GO,HG2,V:HG,G1: 0GO,HG2,V:HG,G1: 2GO,58,10:CL: 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8 JGO,1,24:CL: T330:SHįHL,S:SH1 V ^SHįHL,R:SH0 `; h330:OP,"Enter "P$:` |SS(L):HH(L):VV(L):GG(L):300 L2LX:E(L)0:400::I$"": 380:E(L)įPU,XS,FC$,B3: LLXįOS,10,ST$(IS%0): GT,40010L OS,S,ID$: OS,S,I$: IUįPU,D8,IUHU,4,5,B3:" "Standard";:2 OS,S,RF$:A OF,5,AM:q SB,PD99,(PD),PD99,"Last",A$:OS,S,A$: DD" ";: SM%įOS,S,NO$:306 SM%;:CL:GO,58,10:OS,22,139SM%: EDįOS,S,NO$: OY,ED: FL,0,22,DA:F%(11)550q 330:HL,44:YN,1,"OK to distribute the invoice amount to the customer's sales account",N:N0LLX1:120 NDA(F%(11))AM:BA0:2700:600 BAAM:2700 &2000 XES:330:2500:BANW1650 bBA0įER,"INVOICE INCOMPLETE, AMOUNT NOT FULLY DISTRIBUTED":330:"Amount not fully distributed, what do you want to do? ";:HL,32:KW,"Edit","Delete",1,N:NN(N0):630 l330:"What do you want to do with this recurring A/R invoice? ";:HL,33:KW,"Accept","Edit","Delete",OP,NvOP1:N0N1:BA0600!N700,900,800330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,34:YN,1,"OK to accept this information",N:NW2:N0OP2:600330:NW730 OP,"Please wait, adding new recurring A/R invoice":SQ0:AVLRLR1:XKLR:720%XKAV:BR,QR,AV,#AVF5150:ART3(2):T3(2)XK:UP1SUP100hTY%8:K%0:52505350:KP:5700:100 330:OP,106:HL,35:KI,0,A$:UC,A$:A$ES$600*A$"DELETE"įER,85:6004330:NW100">5200:XAR:BW,QR,XK,#AV:AVXK:5150:XL1T3(2)X:750GHXKR(XL1):5200:ARX:5250:750330:"What do you want to edit? ";:HL,36:KW,"Header","Distribution","Status",1(BA0),N:N0600UP1:GT,900100NL33000:L3900LLX1010600 L2000:600LLX:3000:600'SH0SB,1,"Enter distribution line (1-22)",UG,", !?,",1," or !Taxes: ",A$:330:OP,A$:HL,37:NI,5,ST,N:ST2ıN0N23ST2070LI,A$:SQ,A$,"Taxes",N:Nİ2900:2010(A$,1)Q$UGįER,76:2010Z340:GO,39,5:WB,38,16," Sales Accounts ":I116:GO,39:PL,I2,I,L". ",S32,239I: 330:"Select Sales Account. ";:OP,121:NF%(11)F%(11):HL,38:PI,43,5,34,16,N,ST:350:ST02010DLN42300:DDA(DL)BAa>P$"amount to be distributed to this account":360:304:2400:GO,H:HL,39:DI,8,ST,N:ST3DA(DL)D:2400:302:2000zHST2NDA(DL):ST0RST0NMMįER,74:2110f302:2200:2000BABADN:DA(DL)N:2400:2800HDH(DL):VDV(DL):G413(DL16):DDA(DL):"` 300:DA(DL)įOD,8,DA(DL),4,8:-j 8):= 2600:2800_( BAAM:I122:BABADA(I):: I122:DA(I)įGO,DH(I),DV(I):OD,8,DA(I),4,8  GO,66,V2:OD,8,BA,3,9:/T 330:HL,46:ER,"Calculating sales taxes will adjust the invoice",1,"amount accordingly, OK to continue",N:N0ıN^ ST0:I117:STSTDA(I):zh I13:N0:DL18I:2300:F%(I2)2950r 2300:RD,69I,TR:RD,72I,CF:RD,75I,TF:AST(TF0)DA(18):CFĭACFACF| N(ATRHU) 2200::AMAMBA:BA0:GO,H(5),V(5):450:2800. SH0:HLL21:L2İ390:L2M 380:SLL:E$"":E(L)İ400~ GS,3000100L:ES:E$""įER,E$:400:3010 350:ESLSL1: E(SL)1:400:LSL1: 400::3010 360:304:XS:L3L8XS GO,H:HL,HL:IN$""į@IN$,X,ST,N:LI,A$:ESST3:30709 KI,X,A$:310:ESA$ES$c ES:ROA$""ES:REROE(L):302:ESġ QF(A$,1)Q$:L7įSQ,A$,NO$,NF:NFN0:ST0  300:PU,LA$,XS(A$),FC$:3050  ES,11:P$"customer ID or [RETURN] only"US$:A$ID$:3090:ROESE(L):4& UC,A$:QFİ300:402:9000:ES3040a( A$(A$S8$,8):IS,F,QX,A$,RN:RN03120z* ER,125:HL40:30400 5300:A$C$(1)5900: 350:5500:ID$A$:GO,27,5:OS,22,C$(2):  SB,1,"recurring invoice ID code",NR,US$,P$:A$I$:3090:ROA$I$< UC,A$:A$SP$E$"INVALID INVOICE ID CODE":] QFİ300:402:5600:ES3040t 5400:NWXK:XKı 350:300:OS,S,A$:330:BL:HL,45:YN,1,"Recurring invoice not on file, OK to add",N:N0I$"":3040 NRIXįER,84:3040 AB10įER,89:3040P I$A$:IU0:RF$"":AM0:PD1:DD0:IS%1:ED0:SM%F%(12): P$"invoice starting number or !Standard":IN$"NI":3050:ROı SQ,A$,"Standard",I:IN0:3350 N100N99999STE$"INVALID INVOICE NUMBER, must be 100 to 99999":M NHU(NHU)E$"INVALID INVOICE NUMBER, must be divisible by 100": NRįFD,N,NR,IU,I:I0ĭXKR(I)E$"INVOICE NUMBER ALREADY BEING USED": IUN: H P$"invoice reference (end with !! to have date added automatically)":A$RF$:3090:ROA$RF$TR (A$,1)"!"ĭ(A$)9E$"REFERENCE TOO LONG TO BE ABLE TO ADD DATE":a\ RF$A$: P$"recurring invoice amount":IN$"DI":3050:RONAM ST1N0N1E8įER,74:3040 NMME$"AMOUNT TOO LARGE, must be less than $80,000.00":  AMN:[P$"day of the month invoice is to be posted or !Last":IN$"NI":3050:ROıtN0N32STPDN:$SQ,A$,"Last",ST:STPD99:.E$"INVALID DAY OF THE MONTH, must be 1 to 31": tP$"number or days till invoice is due":IN$"NI":3050:ROı&~N0N99STDDN:XE$"INVALID DAYS TILL DUE, must be 0 to 99":oE(L)E(L)1:400P$"sales represenative (1-16) or !None"US$:IN$"NI":3050:ROıQFİ3850:ES3040 N0N16STE$"INVALID ENTRY, must be 1 to 16 or None":SM%N: 340:GO,1,1:CW,38,23:GO,6,5:WB,30,17," Sales Reps ":" None":I116:GO,6:PL,I2,I,L". ",S22,139I:330:"Select Sales Rep. ";:OP,121:NSM%1:HL,41:PI,10,5,26,17,N,ST:350:ESST0:NN1:* <P$"expiration date or !None":300:3050:ROA$SP$3930O FNFįDT,A$,N:N0įER,78:3040X PEDN ZIS%ED(EDTY):LLX:E(LX)1:400:L9: 304:330:"What is the status of the recurring invoice? ";:HL,HL:KW,ST$(0),ST$(1),IS%1,N:302:330:ESN0:ESı !IS%N2:Y!GO,11,V1:CW,10,8:GO,28,V1:CW,10,8:GO,67,V1:CW,10,6:GO,66,V2:9):!0ST,TL$:GO,1,5:" Customer ID:":7:"Recurring ID:";:GO,27:"Invoice Number :";:GO,56:"Reference:"W":GO,27:"Invoice Amount :";:GO,56:"Inv. Day :":GO,7:"Status:";:GO,27:"# Days Till Due:";:GO,56:"Sales Rep:":GO,27:"Expiration Date:""DGO,4,11:BX,35,10:GO,40,11:BX,36,10:GO,5,12:OX,72,"_":GO,40,12:"|":GO,14,12:OP,!" Sales Accounts ":GO,51:OP,!" Other Accounts "#NI116:GO,DH(I)5,DV(I):(" #"(I),3)".";:\#XI1722:GO,DH(I)23,DV(I):PU,I2,I,L". ",S16,DA$(I),L":":#bGO,66,V21:OX,9,"-":GO,45,V2:"Undistributed Amount:"#lGO,1,23:OX,80,"-":1:##ES$(27):SP$" ":S8$" ":Q$"?"a$LX10:IX10:V114:V2V17:HU100:MM8E6:TL$"Recurring Accounts Receivable":US$" (Use !? to see a list)":NO$"None"$RD,18,UG:RS,0,A$:DT,A$,TY:RS,2,FC$%H(LX),V(LX),G(LX),S(LX),E(LX),C$(9),T3(5),F%(13),DA(22),DH(22),DV(22),DA$(22),ST$(1),I$(IX),R$(IX),IU(IX),R(IX)'%ST$(0)"Inactive":ST$(1)"Active"J%I1LX:H(I),V(I),G(I),S(I):%I13:RS,155I,A$:DA$(18I)"Sales Tax ("(A$" ",4)")"::DA$(17)"Misc. Charges":DA$(18)"Discounts":DA$(22)"Freight Charges"&VV1:I18:DH(I)12:DV(I)V:DH(I8)29:DV(I8)V:VV1:>&VV1:I1722:DH(I)67:DV(I)V:VV1:H&FC:&FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:BR,QR,0,#AV,#LR:&BW,QR,0,#AV,#LR:&PRW$"BR" 'd@RW$,QR,XK,#AR,@K%,@TY%,@SM%,$I$,$RF$,#AM,#IU,#SQ,#PD,#DD,A3DA:22,@IS%,#ED: 'RW$"BW":5220-'RW$"BR"Y'@RW$,QC,RN,#RP,A$C$:9,A3T3:5,A@F%:13:l'RW$"BW":5320'FS,A$,NR,I$,XL'"XL0XKR(XL):5200:A$I$:',XK0:'|330:NR0:ART3(2)'XKAR:XKı(5200:NRIXNRNR1:I$(NR)I$:R$(NR)RF$:IU(NR)IU:R(NR)XK (5510b(330:NRįER,"NO RECURRING INVOICES ON FILE TO SHOW":ES1:(340:V0:GO,45,7:WB,33,NR2," Recurring ":" ID Reference Inv #":GO,46:"-------- ------------ --------"!)I1NR:GO,46:PU,S10,I$(I),S13,R$(I):IUIU(I):430:::9500W)HL,42:PI,45,9,10,NR,I,ST:ESST0:ES:A$I$(I):v)DOL,2,A$,AB,TB:TBTBTB:) N1:BW,QC,0,#NC,#N:KP:ER,107:200)XPX)(#NCįER,96:ES1:)2#ES:340:330:SX14:NCSXSXNC:A$SP$H*4#VS7:GO,44,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400s*<#9400:I1SX:9300:R0İ9200:VSVS1*>#R0ISX*@#:9500*F#HL,43:PI,44,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:+P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:90308+Z#GO,44,7:SW,34,SX,ST:9200:9030o+#BR,QC,R,#SK,$A$,$N$:GO,44,VS:PU,B1,S10,A$,LN$:+T$IS,N,QX,A$,R:+$IS,P,QX,A$,R:+%ES,92:24:OP,129:I1:+'15,5,11,8+'15,7,12,8,44,7,15,5,67,7,9,12+$'44,8,15,8,67,8,9,4,.'44,9,15,2,67,9,9,40,8'44,10,15,8,15,9,6,9 7000! 5000:5100:DQ0O21:80,N:XC,LV,"List Recurring Invoices"]d2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,39:YN,N,"Print report as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10 3000 1::FCA ES:XC,LV:MM,LV,11:RU,12 ,BR,QR,AR,#AR,@K%,@T%,@SM%,$IN$,$RF$,#AM,#IU,#SQ,#PD,#DD,A3DD:22,@IS%,#ED: 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8 JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `E hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390\ jA$""A$(DF$,1)j l310:390p n r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı6 vUC,A$:(A$,1)"?"İ9000:ES370S x350:GO,H,24:OS,8,A$:p 350:GO,14,14:CW,4,6: GO,14,V:"--->": V18:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP23::470z XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HD$"LIST OF RECURRING ACCOUNTS RECEIVABLE INVOICES":PN0:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:I &CPLNLN2:SP$:"***** LISTING CANCELLED....."b 0AC$"cancelled":500n :PO:50 XTFLNL1:630:LNNLEPLNLNNL: b900:CPĢ24:OP,130:WS,A$:A$ES$570 l650:700:600 v(KB)128ıKS,0:(KB)(ES$)550 CPė:(FFĺ(FF):>LLNOL:SP$::zPNPN1:LN7:OC,3,PN:OC,HD$:H2$""įOC,H2$:LNLN1L1LN:SP$:800:900 "Customer ID Ref / Status Invoice Information Account Distribution":Q$"="-PL,X8,Q$,B2,X8,Q$,B1,X13,Q$,B1,X20,Q$,B1,X25,Q$:6NR0QL630:RLįSR,V,R,NR:VARRL:BR,QR,RL,#RL,@K%,@T%,@SM%,$IN$,$RF$,#AM,#IU,#SQ,#PD:NRIXNRNR1:V(NR)PD:R(NR)AR`1100#SH0:V14:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıLAFN1:2600:AFC1$"":C2$"":2100t330:N1:DF$C1$:HL4:370:ES2000C1$A$ N2:DF$C2$:HL5:370:ES2050C2$A$:AF0(A$Z$,8)C1$C2$C1$:C1$A$ 26004400:ES20002600 GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:"::GO,19:"Produce report on what device:":AF1:C1$"":C2$"":RD,39,CP( GO,54,14:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::2620$2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$A< :GO,50:OS,8,SP$(CP):p AFH2$"":IS,F,QX,"",RN:C2$(255):4000 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8):IS,F,QX,C1$,RN:RN0įIS,P,QX,A$,RN450IS,N,QX,ID$,RN:RN0ID$C2$44007BR,QC,RN,#RP,A$C$:9,3TL,3RL:ID$C$(1)5300ERL4050Y1000:NR4050E0:NL3CP:600:LNLN(NL2)TF:TFĺSP$:CPQ$"-":910PL,S9,ID$,LC$(2):SP$EE1:ARR(E):300ND0:I122:DD(I)NDND1:L(ND)I :NL5:NDNLNLNDDSL0:SK(E1)(12CP):NLNLSK:NLEP2NL1SK:SL1X"4800:SK4150o,NPLNLNSK:4150.SP$:SK1ĺ10):I134:"- ";:::SP$6IU$"Standard":IUIU$(IU)8PD$"Last":PD99PD$(PD):SM$"None":SM%SM$(SM%)8hD0:PU,B10,S9,IN$,S14,RF$,L"Invoice No: ",S8,IU$:4700ir4900:PU,B33,L"Inv Amount:",D8,AM,3,9:4700|4900:PU,B19,L"Exp: ":EDįOS,8,"None":4224~OY,EDPU,L" Post Date : ",S8,PD$:4700 4900:PU,B19,S14,IA$(IS%0),L"# Days Due: ",S8,(DD):4700<4900:PU,B33,L"Sales Rep#: ",S8,SM$:4700^DNDİ4900:53):4700:4250mENR4100w40500AC$"complete":500:570\DD1:DNDĺ:fLL(D):PL,B1,S15,DD$(L),L":",D8,DD(L),3,9:"600:NPTF:NPĭID$""įPL,S9,ID$,S62,C$(2),L"Con't":SP$:NL2:600(:$SLNL1:600@.FpKB16384:KS16368:ES$(27):SP$" "LV4:HU100:SB128:IX10:Z$"ZZZZZZZZ"RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP I$(IX),R(IX),C$(9),DD(22),DD$(22),L(22),IA(1),YN$(1),AS$(1),SP$(1)IA$(0)"Inactive":IA$(1)"Active":YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective"I116:DD$(I)"Sales Acc't #"(" "(I),2):I13:RS,155I,A$:DD$(18I)"Sales Tax, "(A$" ",4):JDD$(17)"Misc. Charges":DD$(18)"Discounts":DD$(22)"Freight Charges"TFC:FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:RB1:BW,QC,0,#NC,#RB:KP:CPįPW,0ER,107:200XPX*@"Customer ID Ref / Status Invoice Information Account Distribution":B(#NCįER,96:ES1:n2#ES:340:330:SX14:NCSXSXNC:A$SP$4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400<#9400:I1SX:9300:R0İ9200:VSVS1>#R0ISX"@#:ES,92:24:OP,129:I1vF#HL,22:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030Z#GO,42,7:SW,34,SX,ST:9200:9030#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:T$IS,N,QX,A$,R:+$IS,P,QX,A$,R: 7000 5000:5100@80:ST,TL$:GO,1,22:OX,80,"-"i2352:P1:4:I110115:OP,I:CL::<OL,2,A$,N,I:N10įER,89:200>NPĭJR30JXįER,88:200, d5900:FL,"",HX,I$:FL,"",EX,P$:FL,"",EX,D$:LL0:E0:L1HX:300:GO,H,V:OX,S,SP$:310::I$(3)CY$:IYCY:I$(4)Y$(1):L11: nLL1:ES0M x1000:ES140j LL1:LL1įGT,20050Ew L1100 LHX120 HL75:P$"Header":N1:4800:N500,160,100 L12:E1:110 1::FC MM,11:RU,12 ,RD,XVL,V:RD,XHL,H: 7000 5000:5100Q320:4900:NCįER,"NO CUSTOMERS ON FILE":20025700:GO,59,5:PU,I4,HUABTBC1,L"% Avail"d330:CI0:E0n3000:CI200pESE100xESL5110500E0:L4:110ES:350:1::FC MM,11:RU,12< ,VV(L):HH(L):SS(L):TT(L):G172(L1)J .GO,H,V:\ 0GO,HG1,V: @1:80:ST,TL$:GO,1,22:OX,80,"-": JGO,1,V1:CW,80,XL2: ^GO,1,23:CS: h350:OP,"Enter "P$: rA$SP$ĭ(A$,1)SP$A$(A$,(A$)1):370 tQF(A$,1)Q$:. |IU0įFD,IU,ND,DI,DEI ~IU0įFD,IV,ND,DL,DEi DE0NDPA0:PD0:DE0: PADA(DE):PDDD(DE): SHįHL,R:SH0  SHįHL,S:SH1  RW$"BR":420:O(A(1)A(4)A(3)):IUU(1):IDU(2):= @RW$,QR,IV,#XR,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DS:23,@DD%,@SD%,@PP%,@PM%:O RW$"BW":420m AU0:ND0:EL1:UNAM:DT0 2000:EL2150 ARUN510 UN6006 XAU0:ES:350:UNįER,"TRANSACTION INCOMPLETE, AMOUNT NOT FULLY APPLIED":350:"Amount not fully applied"W$;:HL,67:KW,ED$,RJ$,1,N:NN(N0):620q b"Payment complete"W$;:HL,68:KW,"Accept",ED$,RJ$,1,N lN0ĴN800,700 350:HL,74:YN,"OK to reject this payment transaction",N:N1600 100/ 350:"What do you want to edit? ";:HL,93:KW,"Header","Distribution",1,N:N0600< N2510N E1:L2:PAAMe 3000:ESL5760 UNUNPAAM:2500:600 350:OP,!" Please wait, posting payment ":AM(1)AMDT:AM(2)DT:AM(3)AM:N%0:I13:N%N%(AM(I)0):*NPĭJR3N%JXįER,88:100&4AB10įER,89:100?R6000:KP:5700:100uSH0:ELXLāI13:GO,1,V1:SW,80,XL,1:ELEL1:OC0:FC0:DD0:VV1EL1:H4:302:SHįCLAUN0:2060?P$"invoice number, !O!L!D, !O!P!E!N, !F!I!N, or !A!U!T!O":360:24:OP,"(Use !? to see a list of invoices)":P$"":F%(7)P$"AUTO"302:OX,5,U$:GO,H:P$;:GO,H:HL,0:NI,5,S,N:LI,A$:370:UC,A$:350:A$SH$İ8000:2010A$""A$P$A$ES$A$""AR1:390:302:CL:QFİ302:5):4000:ES12062,2010A$"OLD"N0:20602A$"OPEN"OC1:2080GA$"AUTO"2050uUNįER,"NO AMOUNT LEFT TO APPLY":2020350:HL,69:YN,"AUTO MODE: OK to take available discounts",N:350:N02020*AU2N1:FCCF0:N0:390:350:OP,"Please wait, doing automatic distribution":GT,206020FC>A$"FIN"2056sCFįER,"CUSTOMER HAS NO FINANCE CHARGES":2020FC1:2080S0N1NXUįER,"INVALID INVOICE NUMBER":2020 5450I0IVL(I):400:380:ILIV:2070AUOC1:2080$ER,"INVOICE IS NOT ON FILE":2020KOįER,"INVOICE IS CLOSED":2020tXDA(2)A(3):XDXD(XD0):XDOXDOLDXD(IDSD%TD):DDXDLD(AU0):DD0DD0 390:OCOD(2):IU0:P$"OpenCr""FCOCF:IU1:P$"FinChg"'$302:IU0IL0:380:PL,S24,P$,D0,O,B7,S8,"n/a":2100f*PU,D8,IUHU,3,6,B1,YID,B1,YIDDD%,D0,O,D8,XD,2,11:LDįIV|,XDįOY,IDSD%:4DEĭNDDXįER,"UNABLE TO DISTRIBUTE ANYMORE":AU0:2000>T1:H57:A10:A20:NPA:AUDEIUNUNPA:IUDN:NODD:NDNDEHAUP$"amount of payment to apply":DN:HL70:2700:ES2000`RA1N:2760:IU02300H68:T0:DOA1:NPD:DEND:NDDNDDNDNDAUD2250DN:P$"discount amount":HL71:2700:ES2100 E$"":NXDE$"EXCEEDS AVAILABLE DISCOUNT"GLDNįSB,1,E$,E$""," & ",1,"PAST DISCOUNT DATE",E$E$""İ2760:350:HL,72:ER,E$,"OK to accept discount amount",I:I02200A2N:2760DEAUĭA1A2įER,"NO AMOUNT APPLIED":20009 AUİ350:HL,73:YN,1,"OK to accept this distribution entry",N:N0ĴN12100,2000[ UNUNPAA1:DTDTPDA2:2500r` DEDEND1:NDDEj DI(DE)IU:DL(DE)IL:DA(DE)A1:DD(DE)A2:ELEL1:AR0: GO,57,V1XL:OX,10,"-"::GO,31:PL,L"Unapplied Payment Amount:",D0,UN:7 ND:2760:360:GO,H,V:HL,HL:DI,10,S,N:ESS3:ESıI S2ND:S0h S0N0NAXįER,74:2700 OCĭOA1N0įER,"AMOUNT IS GREATER THAN CURRENT BALANCE":2700 TĭUNPAN0įHL,75:ER,"PAYMENT AMOUNT EXCEEDED","OK to accept this amount",I:I02700 0 302:CL:OD,8,N,2,10:P SEE:SH0:CIİ3700:ES,11 ES0:300:E$"":HL62L:GS,3000100L:ESĭL2LL1:3010 E$""įER,E$:3900:3010 390:ESı E1:3900:LLLLLL ESE:LL1: :3900:ESE:3010_ 360:XS:T1Ģ24:OP,"(Use !? to see a list of customers)":302:PU,LID$,XS(ID$),U$:XS 304:HG,G:GO,H:HL,HL:T2įDI,S,ST,N:LI,A$:T4NNHU T3įKI,X,A$:ST0:A$""T1A$ID$ ES:370:ESA$ES$:ST2ND:ST0 304:HG,G:ESġ  W ES,11:P$"Customer ID or [RETURN] only to quit":3050:A$SP$ES1: UC,A$:A$"CASH"E$"CASH CUSTOMER CANNOT BE USED":& QFİ3900:9000:ESA$""3040( A$(A$" ",8):IS,F,QX,A$,R:R0įER,126:HL53:31000 350:5300:A$C$(1)5900Z: T3(5)TXE$"CUSTOMER HAS MAXIMUM NUMBER OF TRANSACTIONS":3160}D VCĭVCRİ390:3700:E0:SE0F E1:CFD(4)D(5)D(6):390:3900:VCRİ5400H ID$A$:CIR:X CI0:F P$"customer check (or payment) number":DRF:3050:(N)NN1NXUE$"INVALID CHECK NUMBER, must be 1 to 99999":h RFN:RF$(Z0$(RF),5)SP$: P$"payment date":3050:A$""ı DT,A$,N:NįRS,78,E$: TDN:H P$"amount of payment":DAM:3050:N0NPXįRS,74,E$:R AMN::tE0:LL0:3800:TDCY:RF0:AM0:VC0:ID$"":IU$"":L1:OL14:3900::o<300:ELLLįGT,3900L10>T2ĺ"MM/DD/YY":@PU,XS,U$,B1:L1įGO,H,V1:CW,24,4B FOS,S,C$(1):GO,H,V1:C$(2):GO,H:PL,D0,D(1):GO,H:PL,D0,D(2):GO,H:OD,0,CF:PRF$:#ZOY,TD::dGO,H1:OD,0,AM:[350:394:SX11:OISXSXOI GO,40,7:WB,37,2SXOI," Invoices ":" Inv # Reference Due Balance":GO,41:"----- ------------ ----- ---------":L11:OIįGO,49:"No invoices to show":ES1:=I1SX:VS8I:4100::350:OP,129:I1:ES,92HL,62:PI,40,9,7,SX,I,S:XY,VS,VS:ESS3:ESSILI(L1VS9):ES:(S0L11)(S0L1SXOI)įBL:4030L1L1S:GO,40,9:SW,38,SX,S:4100:40303 IVL(LI(L1I1)):400:GO,41,VS:PU,D8,IUHU,4,5,B2,S13,PO$,YIDDD%,D8,O,2,10: $GO,1,5:"Customer ID :"28)"Disk Status :":" Name :":" Balance :"28)"Check Number :":" Open Credits:"28)"Payment Date :"!." Finance Chgs:"28)"Payment Amount:":GO,3:OX,76,"_"!8::" Inv No Inv Date Due Date Balance Disc Avail/Date Amount Discount":" ------ -------- -------- ---------- ---------------- ---------- ----------":!6"SP$" ":ES$(27):SH$(31):Q$"?":Z0$"0000":TL$"Cash Posting":W$", what do you want to do? ":ED$"Edit":RJ$"Reject""C1.5:HU100:XU1E5:PX1E8:AX8E6:IX250:TX400:DX50:XL6:V114:Z0:Z%0"RS,0,CY$:DT,CY$,CY:RS,2,U$:RD,16,JM:RD,17,NPB#V(4),H(4),S(4),T(4),C$(9),T3(5),F%(13),D(12),U(5),A(4),DS(23),P(3),X(3),AM(3),I(IX),LI(IX),L(IX),O(IX),DI(DX),DL(DX),DA(DX),DD(DX)d#I14:V(I),H(I),S(I),T(I):n#FC:#NPI1:X2:5150:X4:5150:X9:5150:FO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3JX:FC$FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:BR,QR,0,#AV,#LR,#CC,#DK:~$RD,85X,A:RD,159X,R:A0R0İ320:ER,"ERROR IN POSTING TABLE, check A/R entry # "(X):200$(P(I)A:X(I)R:II1:$RW$"BR"$@RW$,QC,R,#RP,A$C$:9,A3T3:5,A@F%:13,A#D:12:$RW$"BW":5320L%350:DU(IX):IVRP:OI0:IVĢ17:WB,32,1," Please wait ":OP,"Collecting customer invoices"s%"IVįSR,DU,LI,OI:EA,DU:VCR:330%,400:T%1OIIXOIOI1:I(OI)IU:LI(OI)OI:L(OI)IV:DU(OI)IDDD%:O(OI)O%6IVXR:5410%JNįFD,N,OI,I,I:.&TI0:NOINN1:ILI(N):IUI(I):IVL(I):380:(O(I)PAPD)54604&^S&DOL,2,A$,AB,TB:TBTBTB:}& N1:BW,QC,0,#NC,#N:KP:ER,107:200&pNP6100&zFC,16:FO,164,QA:FO,165,QJ:A$"CK"RF$:T%25:CYJMN%N%'|BW,QJ,JR1,%N%,#CY,$ID$,$A$,@T%:JRJR3:JVJV1:T%0'I13:XAM(I):XJEJE1:JRJR1:T%T%1:BW,QJ,JR,#P(I),#X,@T%:N%0įBR,QA,X(I),#N,#T,$A$,A#I:16:L2(X0):I(L)I(L)X:BW,QA,X(I),#N,#T,$A$,A#I:16':BW,QJ,0,3JV,3JE,3JR,3JX:FC,164:FC,165:FO,16,QR(I1ND:IUDI(I):XDA(I):IUD(2)D(2)X(IU0D(5)D(5)Xh(IU0IVDL(I):400:A(4)A(4)X:A(3)A(3)DD(I):450:D(1)D(1)XDD(I)n((86500:XRX:L0:N11:6300)BX11:N0:6600:T%5:A$" Payment":BW,QR,XR,#RP,@Z%,@T%,@N%,$A$,3RF,3TD,3DK,3Z,3CI,#AM,#L,#Z,#Z,A3I:11,A3L:11,3Z,@Z%,@Z%,@Z%,@Z%g)LRPXR:T3(5)T3(5)1:D(10)AM:D(11)TD:RCI:5350:DKXR:BW,QR,0,#AV,#LR,#CC,#DK:t)NNDı)X20:6600:6500:T%7:BW,QR,X,#L,@Z%,@T%,@N%,A3I:20,A3L:20:LX:6300)dAVLRLR1:XLR:)nXAV:BR,QR,AV,#AV: *I0:FL,0,20,I:FL,0,20,LB*II1:NN1:I(I)DI(N):L(I)DA(N):IXNND6610M*N%I:U*XPXw*@390:HL,S:GO,1,12:CW,80,10+JGO,1,12:"To apply all or a portion of the payment, enter one of the following (when you have finished with the distribution, just press [RETURN]):"+T" Invoice # - a specific customer invoice":" OLD - the oldest (based on due date) open invoice on file"+^" OPEN - customer's open credit balance":" FIN - finance charge balance, if any",h" AUTO - automatic payment distribution, with the payment applied first":15)"to finance charges and then to all the open invoices, starting":15)"with the oldest invoice on file"-r" ? - display a list of all invoices on file for the customer"-|24:OP,103:WS:HL,R:#-(#O-2#ES:394:350:SX13:NCSXSXNC:A$SP$-4#VS7:GO,44,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400-<#9400:I1SX:9300:R0İ9200:VSVS1->#R0ISX.@#:ES,92:24:OP,129:I1U.F#HL,50:PI,44,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:370:350.P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030.Z#GO,44,7:SW,34,SX,ST:9200:9030.#BR,QC,R,#SK,$A$,$N$:GO,44,VS:PU,B1,S10,A$,LN$:.T$IS,N,QX,A$,R: /$IS,P,QX,A$,R:4/'5,17,8,1,7,60,5,4,8,60,8,2,9,60,10,3 7000! 5000:5100:FT1O2320:NCįER,"NO CUSTOMERS ON FILE":200Y<4900td330:L1:E0:CI0:DF0n3000:CI(ESEL)50pL(E1)ĴE1120,100rESL6110xACİ2000 350:ACUNĺ"Transaction complete"W$;:HL,91:KW,"Accept",ED$,RJ$,1,N:150 ER,"TRANSACTION AMOUNT NOT FULLY DISTRIBUTED":350:"Amount not fully distributed"W$;:HL,90:KW,ED$,RJ$,1,N:NN(N0) N0ĴN500,170 350:HL,92:YN,"OK to reject this transaction",N:N1130 100] N1:ACNPİ350:"What do you want to edit? ";:HL,93:KW,"Header","Distribution",1,N:N0130q N2İ2100:130 330:E1:L2:110 350:1::FC:ES LVįXC,LV:MM,LV,11:RU,12 MM,11:RU,12 ,VV(L):HH(L):SS(L):TT(L):G172(L1) .GO,H,V:# 0GO,HG1,V:B @1:80,N:LV3:XC,LV,TL$:o JGO,4,10:OX,73,"_":GO,1,11:CW,80,12: LGO,11,V1:CW,10,9:GO,28,V1:CW,10,9:GO,67,V1:CW,10,9: TSHįHL,R:SH0 V XSHįHL,S:SH1 Z ^GO,1,24:CS: h350:OP,"Enter "P$:? rA$SP$ĭ(A$,1)SP$A$(A$,(A$)1):370T tQF(A$,1)"?":y |350:OP,!" Please wait, "P$: PL,B50,X27,"*": PL,B50,L"*",B25,L"*": RW$"BR":410:O(A(1)A(4)A(3)):" @RW$,QR,IV,#XR,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DS:23,@DD%,@SD%,@PP%,@PM%:4 RW$"BW":410W P$"posting transaction ":380 N%0:P(25)AM:I125:XP(I):XN%N%1:P(I)XTS :VT%21TY2AC XNPĭJR3N%JXįER,88:100 bAB10įER,89:100 6000:KP:AC8006350:HL,94:YN,"OK to print this "T$(TY),N:350:HL,S:N800LPSįER,70:800350:OP,"Enter special note, if any:":17:WB,60,1," Special note ":XY,H:OX,60,U$:GO,H:HL,95:KI,60,N$:N$ES$įHL,R:750)GO,H,17:OS,60,N$:N$SP$İ350:HL,98:YN,1,"OK to accept this note",N:N17609 HL,R:4000H 5700:100_UN0:ST0:DF2050FL,0,25,P:IU0P(23(IU0))AM:2050TASAM:I1723:TTDS(I)::T2040350:HL,86:YN,"Do you want to see the original invoice distribution",N:350:N120501I122:P(I)DS(I)::ST1U4960:2700:DFAM:UNST23004UNAMİ350:HL,99:YN,"Do you want to set all the distribution amounts to zero",N:N1įFL,0,25,P:332:2700F>SB,1,"Enter distribution line (1-24)",UG,", !?,",1," or [RETURN] only",A$:350:OP,A$": ":HL,87:NI,2,S,L:S2ı\HSL0L252200RLI,A$:370:UGQFįER,76:2110fHL,S:GO,39,5:WB,38,16," Sales Accounts ":I116:GO,39:PL,I2,I,L". ",S32,239I:Fp350:"Select sales account. ";:OP,121:LF%(11)F%(11):HL,88:PI,43,5,34,16,L,S:HL,R:S02110{HUH(L):VUV(L):G513(L16):DP(L):DP(L)UN350:OP,"Enter amount to apply to this account":304:HG,G:2900:GO,H:HL,89:DI,8,S,N:304:HG,G:S3P(L)D:2900:2110S2NP(L):S08S0(N)AXįER,74:2150:2230YUNUNDN:P(L)N:2900:2800fUN2110l  UNAM:L124:XP(L):XįGO,UH(L),UV(L):OD,8,X,4,8:UNUNX  GO,67,21:PU,D8,UN,4,8:T 302:P(L)įOD,8,P(L),4,8:^ 8): SEE:ES0:SH0:CIİ3700V 300:E$"":HL77:GS,3000100L:ESİ340:LL1:L13010t E$""įER,E$:3900:3010 340:ESı E1:3900:LLLLLL ESE:LL1: :300:3900:ESE:3010 T1įES,TL$:302:PU,LID$,XS(ID$),U$  XS:L1L4XSQ 360:304:HG,G:GO,H:HL,HL:T2įDI,X,ST,N:LI,A$:T4NNHU{ T3įKI,X,A$:ST0:A$""T1A$ID$ ES:370:ESA$ES$:ST2ND:ST0 304:HG,G:ESġ  P$"Customer ID, !?, or [RETURN] only":3050:A$SP$ES1:8 UC,A$:A$"CASH"E$"CASH CUSTOMER CANNOT BE USED":[& QFİ3900:9000:ESA$""3040( A$(A$" ",8):IS,F,QX,A$,R:R0įER,126:HL53:31000 350:5300:I15:I$(I)C$(I1)::A$C$(1)5900: ACD(2)E$"OPEN CREDITS":3150>< T3(5)TXE$"CUSTOMER HAS MAXIMUM NUMBER OF TRANSACTIONS":3160aD VCĭVCRİ340:3700:E0:SE0F E1:CFD(4)D(5)D(6):340:3900:VCRİ5400H ID$A$:CIR:N E$"CUSTOMER HAS NO "E$X CI0: ACRF$"Credit":b P$"transaction reference number":HL78:DRF:3050:(N)NN1NXUE$"INVALID REFERENCE NUMBER, must be 1 to 99999": RFN:RF$(Z0$(RF),5)SP$: P$"transaction date":HL79:3050:A$""ı DT,A$,N:NįRS,78,E$: TDN:YH SB,1,"invoice number, !O!L!D",AC,", !O!P!E!N",ND,", !F!I!N",1,", or !?",P$:HL79TY:3050:A$SP$A$IU$:N(A$):ST0J UC,A$:QFİ3900:4400:ES13450,3040R OC0:FC0:A$"OLD"N0:3440T A$"OPEN"AC3420V DBD(2)E$"CUSTOMER HAS NO OPEN CREDITS":X OC1:OD(2):PI$OC$:3460%\ A$"FIN"DB3430U^ CFE$"CUSTOMER HAS NO FINANCE CHARGES":q` FC1:OCF:PI$FC$:3460f ST0N1NXUE$"INVALID INVOICE NUMBER":p 5450:I0E$"INVOICE NOT ON FILE":z IVL(I):XKIV:400:IUU(1):A$(Z0$(IU),5):PI$"Invoice #"A$< IU$A$:ASDBND:TSAS:OCIU0:ASASJ FCIU1P d OASAM0AMO 302:3950:P$"transaction amount":DAM:HL82TY:3050:N0įRS,74,E$: NAXE$"TRANSACTION AMOUNT IS TOO LARGE": ACĭND(2)E$"EXCEEDS CUSTOMER'S OPEN CREDITS":V OASN0E$"AMOUNT IS GREATER THAN CURRENT BALANCE":o AMN:DFDF(DFAM):tE0:LL0:L15:300:3900::GO,62,7:12):GO,62,9:12)~TDCY:RF0:AM0:VC0:ID$"":IU$"":L1:300L15:300:3900::<ELLLİ302:GT,390010L4>302:T2ĺ"MM/DD/YY":]@PU,XS,U$,B1:L1įGO,H,V1:CW,22,5cBFOS,S,C$(1):GO,H,V2:C$(2):GO,H:PL,D0,D(1):GO,H:PL,D0,D(2):GO,H:OD,0,CF:PRF$:ZOY,TD:dIU$;:CL:#nGO,H1,7:OD,8,O,2,10:GO,H1,9:OD,8,OASAM,2,10:AM3902ApGO,H1,V:OD,8,AM,2,10:|I$(4)I$(4)SP$I$(5):I$(3)SP$I$(3)I$(4):I$(4)""P$"printing "T$(TY)SP$:380:1::PW,PSI14:7):I2I4ĺA$(I):4120OS,59,A$(I):I1ĺT$(TY):4120ID$@:390:392:PL,B50,L"* ",LH$(TY),L" M E M O *":392:390s"SP$:SP$:I14:PL,B7,LI$(I)::I15:SP$:,PL,B1,YTD:SP$:PL,B64,S6,T$(TY),L" #",LRF$:SP$:SP$ 6PL,B31,S37,PI$,D8,AM,1,11:PL,B70,X9,"-":PL,B46,S6DB,T$(TY),S16DB," Total",D8,AM,1,11/ @L28:N$""L30:SP$:13)N$? J4500:PW,0 h350:OP,"--- Printing complete, press [SPACE BAR] to continue or [ESC] to reprint ---":HL,97:WS,A$:350:A$ES$4010 r 0350:344:SX11:OISXSXOI!:GO,4,7:WB,37,2SXOI," Invoices ":" Inv # Reference Due Balance":GO,5:"----- ------------ ----- ---------":L11:OIįGO,13:"No invoices on file":ES1:!DI1SX:VS8I:4470::350:OP,129:I1:ES,92 "NHL,62:PI,4,9,7,SX,I,S:XY,VS,VS:ESS3:ESSILI(L1VS9):2"X(S0L11)(S0L1SXOI)įBL:4430^"bL1L1S:GO,4,9:SW,38,SX,S:4470:4430"vIVL(LI(L1I1)):400:GO,5,VS:PU,D8,U(1)HU,4,5,B2,S13,PO$,YU(2)DD%,D8,O,2,10:"FFĺ(FF):"LL66:SP$::#$PSFTĢ15:WB,50,4," Important ":XY,H:"If you plan to print credit memos or debit memos,":GO,H:"please load invoice forms in your printer now.":18:OP,103:WS,A$:FT0:A$ES$200#.XC,LV:5700:GO,46,15:WB,23,1," Status ":PU,L"Disk Status:",I4,HUABTBC1,L"% Avail"'$8TY1:HL,76:MS,LV,3,T$,2,2,1,TY:TY0200V$BDBTY2:NDDB:ACTY3:80:ST,T$(TY):LV0$LGO,1,4:"Customer ID :"28)"Reference Number:":GO,44:"Transaction Date:":" Name :"28)"Invoice Number :":" Balance :"28)"Current Balance :"f%V" "OC$":"28)"Transaction Amt :":" Finance Chgs:"28)"New Balance :":GO,1,23:OX,80,"-":330%`GO,3,10:BX,36,11:GO,40,10:BX,37,11:GO,4,11:OX,73,"_":GO,40,11:"|":GO,14,11:OP,!" Sales Accounts ":GO,51:OP,!" Other Accounts ")&jI116:GO,UH(I)5,UV(I):(" #"(I),3)".";:m&lI1724:GO,UH(I)23,UV(I):PU,I2,I,L". ",S16,D$(I16),L":":&tGO,45,21:"Undistributed Amount:":&9'SP$" ":ES$(27):TL$"Account Adjustments":Z0$"0000":ED$"Edit":RJ$"Reject":W$", what do you want to do? ":OC$"Open Credits":FC$"Finance Charges"u'V113:C1.5:HU100:XU1E5:AX8E6:IX250:TX400:Z0:Z%0'RS,0,CY$:DT,CY$,CY:RS,2,U$:RD,1,PS:RD,2,FF:RD,16,JM:RD,17,NP:RD,18,UG:RD,33,PHk(V(5),H(5),S(5),T(5),T$(3),R$(3),H$(3),C$(9),T3(5),F%(13),D(12),U(5),A(4),DS(23),TT(9),X(25),P(25),D$(8),UH(24),UV(24),I$(5),A$(5),I(IX),LI(IX),L(IX)(I15:V(I),H(I),S(I),T(I):(I13:T$(I),R$(I),H$(I):)D$(1)"Misc. Charges":D$(2)"Discounts":D$(6)"Freight Charges":D$(7)FC$:D$(8)"Sales Adjustment"U)I35:RS,153I,A$:D$(I)"Sales Tax ("(A$" ",4)")":)VV1:I18:UH(I)12:UV(I)V:UH(I8)29:UV(I8)V:VV1:)VV1:I1724:UH(I)67:UV(I)V:VV1:*PHāI15:RS,2I,A$(I)::A$(4)A$(4)SP$A$(5):A$(3)SP$A$(3)A$(4):A$(4)""*FC:f*FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:5200:NPı*N0:A$"Sales Acc't":A170:I116:5160::I38:5150::I10:5150:I11:5150:I2:5150:FO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3JX:FC,165: +A$"A/R entry":A159\+(RD,AI,X:X0İ320:ER,"ERROR IN POSTING TABLE, check "A$" # "(I):200o+2NN1:X(N)X:|+PRW$"BR"+d@RW$,QR,0,#AV,#LR,#CC,#DK,#DT,#XI,#YS,A#TT:9:+RW$"BW":5220+RW$"BR",@RW$,QC,R,#RP,A$C$:9,A3T3:5,A@F%:13,A#D:12:,RW$"BW":5320v,Q(IX):IVRP:OI0:IVİ350:17:WB,32,1," Please wait ":OP,"Collecting customer invoices","IVįSR,Q,LI,OI:EA,Q:VCR:330,,400:T%1OIIXOIOI1:I(OI)U(1):LI(OI)OI:L(OI)IV:Q(OI)U(2)DD%,6IVXR:5410 -JNįFD,N,OI,I,I:>-TI0:NOINN1:ILI(N):IVL(I):400:O5460D-^c-DOL,2,A$,AB,TB:TBTBTB:- N1:BW,CD$,0,#NC,#N:KP:ER,107:200-pACNP6200-zFC,16:FO,164,QA:FO,165,QJ:A$R$(TY)RF$:CYJMN%N%.BW,QJ,JR1,%N%,#CY,$ID$,$A$,@VT%:JRJR3:JVJV1:T%0.I125:GP(I):GXX(I):BR,QA,X,#N:JEJE1:JRJR1:T%T%1:BW,QJ,JR,#N,#G,@T%:N%0įBR,QA,X,#N,#T,$A$,A#I:16:K2(G0):I(K)I(K)G:BW,QA,X,#N,#T,$A$,A#I:16.:BW,QJ,0,3JV,3JE,3JR,3JX:FC,164:FC,165:FO,16,QR#/8S%0:IU0IVXK:400:A(4)A(4)TSAM:450?/BAVLRLR1:XLR:6230V/LXAV:BR,QR,AV,#AV/VFL,0,23,DS:DS(1)IU:DS(12)AM:T%VT%20:A$" "(T$(TY),6):ACA$A$"O/C"/`BW,QR,X,#RP,@Z%,@T%,@S%,$A$,3RF,3TD,3DK,3Z,3CI,#AM,#Z,#Z,#Z,A3DS:23,@Z%,@Z%,@Z%,@Z%#0jT3(5)T3(5)1:DKX:RPX:XASAM:0tOCACD(2)D(2)XN0vFCD(5)D(5)Xd0xIU0D(1)D(1)X}0~D(1)D(9)D(9)D(1)06300:5350:52500I13:XP(18I):X63300L3I2:RD,69I,A:A(HUXA):6400:RD,72I,G:GĭAGAG16400:AX:6400 1:*1TT(L)TT(L)ATS:LL1:21XPX81(#d12#ES:344:350:SX14:NCSXSXNC:A$SP$14#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ94001<#9400:I1SX:9300:R0İ9200:VSVS11>#R0ISX2@#:ES,92:24:OP,129:I1j2F#HL,50:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:370:3502P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:90302Z#GO,42,7:SW,34,SX,ST:9200:90302#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$: 3T$IS,N,QX,A$,R:3$IS,P,QX,A$,R:Q3'4,17,8,1,4,62,5,4,5,62,8,2,6,62,5,4,8,62,9,33*"Credit Memo",CR,C R E D I T,"Debit Memo",DR," D E B I T ","Apply Open Credits",,"" 7000 5000:5100L2LV3:1:80,N:XC,LV,"Statements / Finance"dXC,LV:GO,12,16:OX,60,"_":GO,12,18:"If you want finance charges and complete transaction detail":GO,12:"to appear on your customer statements, you must print your"{ fGO,12:"customer statements AFTER calculating finance charges and":GO,12:"BEFORE closing the Accounts Receivable System." nES,13:OP1:HL,100:MS,LV,2,OP$,1,2,OP,OP:OP0200 pES:PSįER,"UNABLE TO CONTINUE, no printer available":100 rCFOP1:PFCF:MD0:CFNPİ5160F xLV4:XC,LV,TL$(OP):2500:N0:ES50 330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,100OP:YN,N,Q$(OP)" as shown above",N:330:N050 ES:Nİ350:2000:N1:GT,13010ES 2700:ES50 3000  1::FC< ES:330:XC,LV:MM,LV,11:RU,12k 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310q 8 @LV3:1:80,N:XC,LV,"Statements / Finance": JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `" hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES3909 jA$""A$(DF$,1)G l310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370* x350:GO,H,24:OS,8,A$:G 350:GO,14,14:CW,4,8:^ GO,14,V:"--->":o PW,PS:PFı CP1:OLLP:EPOL6:HU$"FINANCE CHARGE CALCULATION SUMMARY REPORT":PN0:700 900:650:PW,0: XLNNLEPLNLNNL:b900:650:700:600FFĺ(FF):/LLNOL:SP$::jPNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1}SP$:800:900! 11)"Prior Past Due <---------- Finance Charges -----------> Applied":"Customer Balance Balance Prior Bal Calculated Charged Balance to O/C's":z"======== ========= ========= ========= ========== ========= ========= =========":PRP:NE0:BFD(3):BB0:PB0:CF1020D(2)NE1:V(1)0:L(1)0D(4)0NENE1:V(NE)1:L(NE)1P1100PPP:5400:T%5(T%1PM%)1020&T%11060KB(A(1)A(3)A(4)):PM%BBBBBXB1060DDTDU(2)DD%:G1:DD0G2((DD1)30):G5G5G(G)G(G)BDDGPPBPBB$PFĭFDPM%ĭNERXNENE1:V(NE)U(2):L(NE)PP.1020LCFıVBFFDNENE1:V(NE)1:L(NE)20`SR,V,L,NE:SH0:V14:392:330:HL,102OP:"Include which customers? ";:KW,S$(0),S$(1),2AF,N:390:ESN0:ESıAFN1:AFC1$"":C2$"":2100330:N1:DF$C1$:HL104OP:370:ES2000C1$A$ N2:DF$C2$:HL106OP:370:ES2050.C2$A$:AF0Q(A$Z$,8)C1$C2$C1$:C1$A$a42600:CFıV18:392:330:HL,109:"Which note do you want to include? ";:KW,S$(2),S$(3),S$(4),SN1,N:390:N02000N1SN0:2600392:N22300U330:PU,L"Enter note text: ",LSN$,X60(SN$),FC$:GO,18:HL,110:KI,60,A$:A$ES$2200gA$""A$SN$vSN2:2350340:7:WB,66,9," Customer Notes ":XY,H:I19:GO,H:PL,I2,I,L". ",S60,50I:3 330:"Select customer note. ";:OP,121:NNNNN:HL,111:PI,H4,7,62,9,N,S:350:330:S02100u RS,50N,A$:(A$SP$,1)SP$įER,"NOTE IS NOT DEFINED":2300 NNN:SN1. SN$A$:390:2600 ES0:MDCF2520V GO,17,15:WB,55,4," Important Message ":"To print a statement for a single customer who does not":GO,17:"usually receive a statement, use the Selective option" GO,17:"and then enter the customer's ID as both the starting":GO,17:"ID and ending ID.":330:OP,103:WS,A$:XC,LV:MD1:ESA$ES$:ESı GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:":PFįGO,19,18:"Type of note to use to be printed:" AF1:C1$"":C2$"":SN0:NN1:SN$"":( GO,54,14:OS,10,S$(AF)::AFāI12:GO,54:PL,S8,"n/a"::2620$2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$.< CFı[F GO,54,18:OS,8,S$(SN2):SN1ĺ", #"NN;{P 8):GO,21,19:SNĺ55):Z OS,55,SN$: PF2800 XC,LV:ES,104:GO,18,15:WB,52,4," Prepare Line Printer "| "During the calculation of finance charges the system":GO,18:"will print a 'Finance Charge Calculation Report'"::OP,109:WS,A$:XC,LV:ES:ESA$ES$:ESı 2900:OP,"Calculating Finance Charges":::OP,"***** DO NOT INTERRUPT *****":ES0:p HL,S:XC,LV:ES,104:16:WB,50,3," Load Printer ":OP,"Please load Statement Forms in the printer":::OP,103:WS,A$:ES:HL,R:ESA$ES$:ESı :330:HL,112:YN,"Do you want to print an alignment test",N:330:ESN0:ESı Nİ2850:2810M 2900:OP,"Statement printing in progress":::OP,"Press [ESC] to cancel statements":ES,"Cancel statements":" ID$"ALIGN":I15:N$(I)C$(I)::PG0:PX1:400:4800, X0:I14:PL,L"**/** ******** ",S29,"Alignment Test",L"0.00 0.00 ******* 0.00"::I118:SP$::PW,0:-T XC,LV:16:WB,36,3," Please Wait ":` SC0:AFH2$"":IS,F,QX,"",R:C2$(255):4000 H2$"(Customer IDs: "C1$" thru "C2$")":IS,F,QX,C1$,R:SC(C1$C2$)R0:R0įIS,P,QX,A$,R& SCC2$(C2$S8$,8)0 SCC2$(C2$Z$,8) GF0:FL,0,4,T:4002IS,N,QX,ID$,R:R0ID$C2$4400u5300:FBD(4)D(5)D(6):FL,0,5,G:G(1)FB:ST0:(KB)1284020KS,0:(KB)27PFAF0:4400CFF%(1)PB0:4030PFĭF%(6)SC4300CBD(1)D(2)FB:FDF%(7):1000:PF4100PB(PBD(2)):PB0PB0VOFD(6):KF0:NF0:PBKF(PBFPHU.5):NFKF:NFMCNF(MC)N(NFOF):D(6)NF:OC0:GFGFN:NBFBN:NB0OCNB:D(2)D(2)OC:D(5)D(5)OC:NB0PBKFNFOCOF43009NL2:600:PU,S8,ID$,D8,CB,2,10,D8,PB,2,10,D8,FB,2,10,D8,KF,1,11,D8,NF,2,10,D8,NB,2,10:OCįOD,8,OC,2,10D:SP$T(1)T(1)PB:T(2)T(2)KF:T(3)T(3)NF:T(4)T(4)OC:5350:4300(NECB)SC43004950:4900:PX((NENL(D(6)0)1)LX)1:PG0:LN0:NE4200E1NE:PL(E):A0:ID0="PI$" Credit":Y$"Unapplied Credit Bal.":BD(2):4180,P1I$F$:Y$"Prior Finance Charges":AD(4):BD(4)D(5):BB(B0):41806P2I$"Bal/Fwd":Y$"Balance Forward":ABF:BBB:4180 @5400:IDU(2):I$(S8$(U(1)),7):T%1Y$SP$Y$:AA(1):BAA(4)A(3):4180A JY$Y$(T%):AA(1):B0:T%2T%5AAM T4700:] hD(6)4220 rID0:I$F$:Y$"Current,"FP$"% / Month":AD(6):BA:ND(5)D(4):N0BBN t4700 |LNİ4800 NL4260 PGPXNLQ:4600:4800!N13(NL1):4600:N1$""ĺN1$:LNLN15!N2$""ĺN2$:LNLN1D!NLX:4600}!" Current 1-30 31-60 61-90 91+"!NG(1)1E7!PL,D8,G(1),4N,8N,B1N,D8,G(2),2,10,D8,G(3),1,11,D8,G(4),2,10,D8,G(5),3,9,D8,ST,2,10,B9,D8,ST,1,11"I14:SP$:"D(12)TD:5350%"4010W"0CFP$"REPORT TOTAL:":4500:500:6000:4450":PW,0:AFSF1:BW,QC,0,#NC,#RB,#LR,#AV,#SF"b50#CFNL3:600:PL,B19,X9,Q$,B11,X10,Q$,B1,X9,Q$,B12,X8,Q$:PL,B4,S14,P$,D8,T(1),2,10,B10,D8,T(2),1,11,D8,T(3),2,10,B11,D8,T(4),3,9:SP$!#A#LNNāILN1N:SP$::LNNG#c#\LNLXNLQ:4600:LN0r#fLNİ4800#pLNLN1:5ID):IDįOY,ID#zPU,B3,S8,I$,S23,Y$:10A):(A)įOD,8,A,2,10$BT%1įOD,8,B,2,10:BįPU,B2,S8,I$,D8,B,2,10:STSTB $:L$PGPG1:I14:7):I3įOS,39,A$(I):"Page "PG" of "PX:4810W$A$(I)$:I14:SP$:U$(I)I$(I1)::U$(4)U$(4)SP$I$(6):U$(3)SP$U$(3)U$(4):U$(4)"" %PL,B7,YTD,B2,S45,ID$,YTD,B1,LID$:SP$:SP$:I14:PL,B7,LU$(I)::I15:SP$::LN0:*%$N1$"":N2$"":SNN1$SN$D%.SNNF%(9):Nİ4940h%8GX1F%(2)NGX(GX4)8:4940%BNL(N1$"")(N2$""):%LRS,50N,A$:(A$,1)SP$A$""%NN1$""N1$A$:%PN2$A$:%VXD(2):G5&`XG(G)G(G)X:G1G(G)0X(G(G)):G(G)0:GG1:49603&jGX0:G15:G(G)0GXG;&l:A&k&KB16384:KS16368:ES$(27):SP$" "&S8$" ":Z$"ZZZZZZZZ":F$"Fin Chg":Q$"=":IM$" Important Note ":HU100:RX400:LX16:LQ22&RS,0,A$:DT,A$,TD:RS,1,CO$:RS,2,FC$u'RD,1,PS:RD,2,FF:RD,3,LP:RD,16,JM:RD,17,NP:RD,30,FP:RD,31,MC:RD,32,GP:RD,34,PH:OD,16,FPHU,A$:FP$(A$,7,5)'A$(5),C$(5),Y$(5),U$(5),I$(9),T3(5),F%(13),D(16),U(5),A(4),DD(23),G(5),V(RX1),L(RX1),AN(2),AR(2),T(4),OP$(2),TL$(2),Q$(2),S$(4)(I25:Y$(I):2(I12:OP$(I),TL$(I),Q$(I):F(I04:S$(I):(I15:RS,2I,C$(I)::PHāI15:A$(I)C$(I)::A$(4)A$(4)SP$A$(5):A$(3)SP$A$(3)A$(4):A$(4)""(FC: )NPįFO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3JX:PE0:N1:I2:5150:I10:5150:FCX)FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC,#RB,#LR,#AV,#SF:FO,16,QR:)RD,85I,A:RD,159I,R:A0R0ĭPEPEI) AN(N)A:AR(N)R:NN1:)(PEE$"ERROR IN POSTING TABLE, check A/R entry # "(PE):5190*2JR6JXįRS,88,E$:5190+*<OL,2,A$,A,N:A5įRS,89,E$:51901*>*F330:OP,!" *** UNABLE TO CALCULATE AND POST FINANCE CHARGES *** ":ER,E$:200*R$"BR"*@R$,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:*R$"BW":5320+BR,QR,P,#P,@K%,@T%,@S%,$Y$,A3U:5,A#A:4,A3DD:23,@DD%,@SD%,@PP%,@PM%:,+pNPGFı+zFO,164,QA:FO,165,QJ:T%26:A$"Finance Charges":P$"FIN CHRG":N%2:TDJMN%2+BW,QJ,JR1,%N%,#TD,$A$,$P$,@T%:JRJR3:JVJV1:AGFJ,I12:JEJE1:JRJR1:T%I:BW,QJ,JR,#AN(I),#A,@T%:N%0įBR,QA,AR(I),#N,#T,$A$,A#D:16:P2(A0):D(P)D(P)A:BW,QA,AR(I),#N,#T,$A$,A#D:16,AA::BW,QJ,0,3JV,3JE,3JR,3JX:FC,164:FC,165:KP:,XPX,(#NCįER,96:ES1:,2#ES:340:330:SX14:NCSXSXNC:A$SP$,-4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400W-<#9400:I1SX:9300:R0İ9200:VSVS1f->#R0ISX-@#:ES,92:24:OP,129:I1-F#HL,50:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:.P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030..Z#GO,42,7:SW,34,SX,ST:9200:9030e.#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:y.T$IS,N,QX,A$,R:.$IS,P,QX,A$,R:.'"**** Credit Memo ****","**** Debit Memo ****",,"**** Payment, Thank You"/* "Calculate Finance Charges and Print Report","Finance Charges","Calculate finance charges","Print Customer Statements","Print Statements","Print statements"/."All","Selective","Customer","Standard","User" 7000 5000:5100W1:80,N:XC,LV,TL$:15:OP,"One moment please":55002CM$M$(MR)" 19"(Z$(YR),2):LM$M$(MR1)" 19"(Z$(YR(MR1)),2)M <OP$(1)"End-of-Month Close for "CM$:OP$(2)"End-of-Year Close for "CM$:OP$(3)"Repeat End-of-Month Close for "LM$:OP$(4)"Change Current Accounts Receivable Month" dES,13:XC,LV:RM1:HL,0:MS,LV,4,OP$,1,2,RM,RM:RMİ6000:100 fRM0XR0:200 nRM44000 xES:XRRM3:EYRM22 330:OP,"Confirm close request by typing !C!L!O!S!E: ":HL,54:KI,0,A$:330:UC,A$:A$ES$100z A$"CLOSE"įER,"Accounts Receivable Close option cancelled":100 330:NGXR170 HL,55:ER,"ERROR IN POSTING TABLE, A/R ENTRY #"(NG)" NOT DEFINED","Unable to post any recurring A/R, OK to continue",N:N0100# XR0, 5002 ? 1::FCP RPXR250Z 250 SD,12,RP:RS,26,PP$:XC,LV:MM,LV:D$"RUN"PP$"ARRECPOST.PROG" ES:XC,LV:MM,LV,11:RU,12 ,GO,71,8I:MS$(MI)"/"Y((MI)12): 6M1MM12:YY1 8M12MM12:YY1 :/ JGO,1,24:CL:9 hCCUW jGO,37,18:OD,8,CT,6,5:d rU1:360 L0LLLL(L)1900  400:LįBR,QR,L,#LK:BW,QR,L,#AL,@Z%:ALL:LLK:450  SF600> HL,58:ER,"Customer statements were not printed this month","OK to proceed with A/R Close",N:N0100 XXC,LV:10:OP,!" Important note before starting the A/R Close "::bGO,11:" Normally when performing an end-of-month (or end-of-year)":GO,11:"close, the system will keep the detail for payments, credits,"dGO,11:"and debits that were applied to any invoice that is still open.":GO,11:"While saving this detail takes up some space on your disk, it"HfGO,11:"does allow you to view all transactions that have been applied":GO,11:"to an invoice (using the Invoice Transaction Inquiry option).":hGO,11:" If you don't want to keep this detail beyond the end of the":GO,11:"month or if you need the disk space, answer N to the following":GO,11:"question."=l330:HL,59:YN,1,"OK to keep detail for open invoices",KP:KP0100330:XC,LV:16:WB,39,3," Please Wait ":OP,"Accounts Receivable close in progress":GO,29,18:"Status: 0.0% Complete"C0:T(512FL)TTGFC,14:370:FX,14:370:D$OP$CX$",L256":370:FO,14,QX:370:FL,0,256,Z%:BW,QX,0,A@Z%:256:IS,O,QX,N,N:370^LCC:450:370:U2$P11:R1:NC0:RB0:AV0:SF0:CC0:DK0:DT0:RP0:EYYS0LRLR1400VBR,QC,R,#XP,$ID$:ID$SP$ID$"":BW,QC,R,#AV,$ID$:AVR:1350`5400:IS,I,QX,ID$,R,ST:ST1900CjNCNC1:LXP:400:XPL:CB0:NI0:NT0:T11RtCPXP:UP0`~CP1300PPCP:5300:LCP:400:CPL:NPL:T%11200T1UPPP:1150AM(A(1)A(4)A(3)):AMC51250CBCBAM:NINI1:I(NI)U(1):A(1)AM:A(2)A(2)A(3):A(3)0:A(4)0:A(2)0A(2)0PU(3)0:U(4)0:U(4)R:PM%1:5350:UPPP:1150m(T1KP)T%1T%61250T1UPPP:11502000:OKNTNT1:1192LA(2):T%5İ450BW,QR,PP,#AL,@Z%:ALPP:UPXPNP:CPNP:1150PPUP:5300:CPNP:5350:1150+U1KP:360:T1KPT10:1140~T3(4)NI:T3(5)NT:D(1)CB:D(3)CB:D(4)D(4)D(5)D(6):D(5)0:D(6)0:EYD(8)0(LT3(2):400:T3(2)L:T3(1)0:XRĭLT3(1)RP:RPR25450FRR2:1100xP1P10:R2:1100 XRMRMR1:MR12MR1:YRYR1$5200:CTTT:362:2003lRS,107,E$RB1:BW,QC,0,#NC,#RB:KP:330:OP,"Accounts Receivable close has been cancelled - data rebuild required":ER,E$:200OK0:ND%SM%:LA(2):T%5ND%1:L0I1ND%:DC(I)DD(I):2200:LOKı9BR,QR,L,#L,@N%,@N%,@ND%,A3DA:20,A3DC:20:2010lI1ND%:DC(I)0įFD,DC(I),NI,I,N:N0OK1t:HL,S:ES,TL$:GO,70,8:WB,8,12," Month ":M1:YYR:310!I011:300::330:"Use arrow keys to select current Accounts Receivable month, then press [RETURN]";:NMRVHL,56:PI,70,8,8,12,N,S:ESS3:ESįHL,R:100wSMMN1:310:HL,R:4100XY,H,V:XY12MS:X961X1189įBL:4020MMS:310:GO,70,8:SW,8,12,S:V:IV8:300:4020=ES:330:HL,57:YN,1,"OK to set current month to "M$(M)" 19"(Z$(Y),2),N:N04000Zh330:MRM:YRY:5200:50`D$(4):ES$(27):SP$" ":OP$"OPEN"LV3:HU100:TT1E4:IX500:C5.5:Z%0:TL$"Close Accounts Receivable"RD,18,UG:RS,14,CX$:RS,15,CD$:RS,27,DP$hTT(9),I$(9),T3(5),F%(13),D(12),U(5),A(4),DD(23),DA(20),DC(20),I(IX),Z%(256),OP$(4),M$(12),MS$(24)I112:M$(I),MS$(I):MS$(I12)MS$(I)::M$(0)M$(12)FC:4FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC,#RB,#LR,#AV,#SF,#SU,#RK:FO,16,QR:BR,QR,0,#AL,#LL,#CC,#DK,#DT,#XI,#YS,A#TT:9,#MR,#YRIMR1MR12MR1`YR80YR99YR80pNG0:UGı N15:5150::N8RD,159N,X:XĭNGNGN(PBW,QC,0,#NC,#RB,#LR,#AV,#SF,#SU,#RKZBW,QR,0,#AL,#LL,#CC,#DK,#DT,#XI,#YS,A#TT:9,#MR,#YR:RW$"BR"k@RW$,QR,PP,#CP,@K%,@T%,@SM%,$PO$,A3U:5,A#A:4,A3DD:23,@DD%,@SD%,@PP%,@PM%:~RW$"BW":5320RW$"BR",@RW$,QC,R,#XP,A$I$:9,A3T3:5,A@F%:13,A#D:12:JRW$"BW":5420|GO,1,24:FL0:F$(CD$,(DP$)1):D$OP$DP$",TDIR"5550"D$"READ"DP$BA$:(A$,2,(F$))F$5530BS512((A$,24,5)):FS((A$,64)):RL((A$,76)):FSBSFSBSRLFL(FSRL)7000FC,DP$:RLLRFL50pXC,LV:HL,S:80:"Help for "TL$:OX,80,"=":GO,1,23:OX,80,"-":GO,1,3:I1zP$"End-of-Month Close":6500:"at the end of each month, except the":S)"last month of your fiscal year, to perform housekeeping";|S)"duties and remove unnecessary transaction information":S)"(e.g., debit & credit memos for closed invoices, etc.).";|~S)"Additionally, all active recurring invoices will be":S)"posted for the next month.":P$"End-of-Year Close":6500:"at the end of the last month of your":S)"fiscal year to perform all End-of-Month duties and set"8S)"all customer year-to-date totals to zero.":P$"Repeat End-of-Month Close":6500:"to repeat the most recent End-":S)"of-Month close. It performs all usual End-of-Month"8 S):OP,"duties, however, it will ! !N!O!T! post your recurring"::S)"invoices (they have already been posted).": P$"Change Current A/R Month":6500:"to change the current A/R month.":S)"Make sure this month is correct, because it determines"4!S)"the next month used to post active recurring invoices":S)"when closing the Accounts Receivable System."Y!ES,TL$:24:OP,103:WS:HL,R:r!dS(P$)1:S20S20!nPU,I1,I,L". ",SS,P$,L"- Use this option ":S25:II1:!XPXA"'January,JAN,February,FEB,March,MAR,April,APR,May,MAY,June,JUN,July,JUL,August,AUG,September,SEP,October,OCT,November,NOV,December,DEC 7000" 5000:5100:57002XC,LV,TL$:ES:14:WB,36,4," Please Wait ":OP,"Posting Recurring Invoices":GO,32,16:"Customer:":GO,33:"Invoice:"dNPĭJR23XRįER,88:200nFL,0,23,AM:10001::FC ES:XC,LV:MM,LV,11:RU,12 RP1600o LRNRP:5300:ID$I$(1):GO,42,16:OS,8,ID$:GO,42,17:8):RPT3(1):RLT3(2):RL1000} RL1000 ARRL:5400:S%TY%8AM1200 GO,42,17:OS,8,IN$ PO$RF$:(RF$,1)"!"PO$(PO$,1,(PO$)1)M$:(PO$)10PO$PO$Y $ IUINIUSQ:13208 INXI:XIXI1:XIMIXI1R (IDJ1PD:PD99IDJLc *IDJLIDJL 2EDĭIDEDIS%0:5450:1200 FAB10įER,89:1600 PT3(4)IXT3(5)TXįER,"FILE FULL FOR "ID$", UNABLE TO POST":1000 xSA0:I122:ADD(I):AM(I)AM(I)A:I17SASAAR :DD(23)SA:AM(23)AM(23)AM:XASADD(17)DD(18)q I13:XDD(18I):X1480 RD,72I,CF:RD,75I,TF:TTXADD(22)(TF0):XTTT:CFĭXTCFXTCF JI32:TT(J)TT(J)TT:TT(J1)TT(J1)XT:TT(J2)TT(J2)X 3 6200:6400:SQSQ1:5450:5200:KP:5700:1200B @6000:200H ~ ES$(27):SP$" ":TL$"Close Accounts Receivable" LV3:HU100:IX250:TX400:MI99999:Z0:Z%0:TL$"Close Accounts Payable" RD,12,RP:RD,16,JM:RD,17,NP:RD,18,UG:RD,37,PO:RD,160,SXK I$(9),T3(5),F%(13),D(12),DD(23),AM(23),AA(23),E(16),TT(9)U FC: FO,14,QX:IS,O,QX,N,N:FO,15,QC:FO,16,QR:BR,QR,0,#AV,#LR,#CC,#DK,#DT,#XI,#YS,A#TT:9,#MR,#YR:XIXIPO:XIXIXI MMR:YYR:5150:J1N1:MM1:M12M1:YY1W5150:JLN1:M$("JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC",3MR2,3):Y$"/"(Y):NPı FO,163,QG:IS,O,QG,N,N:FO,164,QA:FO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3XRI116:RD,170I,AA(I)::I16:RD,161I,AA(16I)::RD,161,AA(23):A$(M)"01"("0"(Y),2):DT,A$,N:QPBW,QR,0,#AV,#LR,#CC,#DK,#DT,#XI,#YS,A#TT:9,#MR,#YR:^RW$"BR"@RW$,QC,RN,#CP,A$I$:9,A3T3:5,A@F%:13,A#D:12:RW$"BW":5320RW$"BR",@RW$,QR,AR,#RL,@X%,@TY%,@SM%,$IN$,$RF$,#AM,#IU,#SQ,#PD,#DD,A3DD:22,@S%,#ED:JRW$"BW":54205DOL,2,A$,AB,TB:TBTBTB:?pNPıjzN%0:I123:N%N%(AM(I)0)::N%ıTD$"Recurring A/R: "M$:TR$"RECURR":T%28:IDJ11:IDJMN%N%BW,QJ,JR1,%N%,#ID,$TD$,$TR$,@T%:JRJR3:JVJV1:T%0 I123:AMAM(I):AM6060QXAA(I):BR,QA,X,#AN:T%T%1:JEJE1:JRJR1:BW,QJ,JR,#AN,#AM,@T%N%0įBR,QA,X,#AN,#AY,$A$,A#E:16:N2(AM0):E(N)E(N)AM:BW,QA,X,#AN,#AY,$A$,A#E:16:BW,QJ,0,3JV,3JE,3JR:8AVLRLR1:XLR:6220BXAV:BR,QR,AV,#AVdLT%1:DD%DD:BW,QR,X,#CP,@Z%,@T%,@SM%,$PO$,3IN,3ID,3DK,3Z,3RN,#AM,#Z,#Z,#Z,A3DD:23,@DD%,@Z%,@Z%,@Z%zVCPX:DKX:5200:T3(4)T3(4)1:T3(5)T3(5)1:D(1)D(1)AM:D(8)D(8)SA:D(1)D(9)D(9)D(1) 5350:XPX 7000 5000:5100421:80,N:XC,LV,TL$<GO,14,12:"This option is used to enter & maintain sales tax information.":GO,14:"Three sales tax jurisdictions are provided to allow for state,":GO,14:"local and other sales taxes."8 dT13:OP$(T)"Sales Tax Jurisdiction #"(T)" ("TI$(T)")":v nTX1:ES,11:330:HL,14:MS,LV,3,OP$,3,2,TX,TX:TX0200 x500 330:1::5250:FC ES:XC,LV:MM,LV,11:RU,12 JGO,1,24:CL: h330:OP,"Enter "P$": ":XY,H:_ XC,LV 1,"Sales Tax #"(TX)" Info":V1:I18:SB,I5,"*",A$:GO,H12:PL,S2,A$,S19,H$(I),L":": & GO,57,V1 + 3: & OX,23,"_": PRINT : & GO,56: PRINT "|": & GO,56: PRINT "| Please note that the": & GO,56: PRINT "| items marked with an": & GO,56: PRINT "| '*' cannot be edited" GO,57,V15:WB,20,2," Please Note ":XY,H:"Items marked with an":GO,H:"'*' cannot be edited":GO,54,22:OX,26,"_" L15:410::470 GO,H2,V1L1 GT,41010L OS,4,TI$(TX): OS,18,TD$(TX): PU,D40,TR(TX)HU,7,6,L"%":1 TX(TX)įOS,9,"None":H OD,8,TX(TX),3,9:_ YN$(TF(TX)0);: N(TX1)3:I13:V15:I13:GO,H21:OD,0,TT(IN)::: 400:OP2/ XES,TL$:330:"What do you want to do with this sales tax? ";:HL,15:KW,"Accept","Edit","Reset Totals",OP,N:ES:330:N250A bOP1:N2700 330:OP,"Please confirm request to reset totals by typing !R!E!S!E!T: ":HL,16:KI,5,A$:A$ES$600 UC,A$:A$"RESET"įER,"RESET REQUEST HAS BEEN CANCELLED":600N(TX1)3:I13:TT(IN)0::470:600+2000:600|L1:P$"ID code used to identify this sales tax":DF$TI$(TX):S4:4000:ESı4L2:P$"sales tax desciption":DF$TD$(TX):S18:4000:ES2000L3:P$"sales tax rate percentage":4000:ES2100>L4:P$"maximum sales amount that is taxable or !None":4000:ES2200` L5:P$"Are freight charges taxable in this jurisdiction":4000:ES2300 GO,H15,V1L1:"--->":HL16L:L4100,4100,4200,4300,4400:GO,H15,V1L1:" ":ESı410?360:PU,LDF$,XS(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESıQA$""A$DF$gL2TD$(TX)A$:"A$SP$įER,"TAX ID CODE MUST BE ENTERED":4100,FS,A$,3,TI$,I:I0ITXįER,"DUPLICATE TAX ID CODE":41006TI$(TX)A$:$h360:412:GO,H:HL,HL:D3,6,S,N:ESS3:S1ı8rS2S0:NN10|S0N0N1E4įER,"INVALID SALES TAX RATE, must be 0 to 99.999":4200TR(TX)NHU:360:412:GO,H:HL,HL:DI,9,S,N:ESS3:S1ıLI,A$:SQ,A$,"None",I:IS0:N0@S0N0N1E8įER,"INVALID CUTOFF AMOUNT, must be 0 to 999999.99":4300OTX(TX)N:0330:HL,HL:YN,TF(TX)0,P$,N:ESN3:ESTF(TX)N:SP$" ":ES$(27):TL$"Maintain Sales Taxes"LV4:V114:H121:H242:HU100RS,2,FC$IOP$(3),H$(8),YN$(1),CD(7),SA(16),TR(3),TX(3),TF(3),TI$(3),TD$(3),AD(7),TT(9)gYN$(0)"No ":YN$(1)"Yes"{I18:H$(I):FC:FO,15,QC:FO,16,AFPRW$"BR"Z@RW$,QC,0,A#CD:7,A#SA:16,A#TR:3,A#TX:3,A#TF:3,A$TI$:3,A$TD$:3 d@RW$,AF,0,A#AD:7,A#TT:9:WI13:SD,69I,TR(I):SD,72I,TX(I):SD,75I,TF(I):SS,155I,TI$(I):jRW$"BW":5210rXPX '"Sales Tax ID Code","Description","Sales Tax Rate","Cutoff Amount","Freight Taxable?","Gross Taxable Sales","Net Taxable Sales","Total Tax Collected" 7000 5000:5100421:80,N:XC,LV,TL$Jd6000:A$ES$200Yn2000:500_}ES:330:XC,LV:5200:FC330:ES:MM,LV,11:RU,12JGO,1,24:CS:TSHįHL,S:SH1V^SHįHL,R:SH0`|OKTY40: 380:OKı. ER,"WRONG ACCOUNT TYPE, must be Sales": ES,11:330:OP,"Enter line number (1-"(NP)"), !All, or [RETURN] only when finished: ":HL,1:NI,0,ST,LN:1:ST2200 LN0LNNPSTAL0:600:500 LI,A$:SQ,A$,"ALL",N:N900 ER,76:500 XES:2200:"--->":SH0 bSB,1,"Enter G/L account number",AL,",",AL," or",1," !? to see a list of valid accounts",AL,", or !Quit",P$:330:OP,P$:": ";:XY,HS:SA(LN)įOF,4,SA(LN)HU lGO,HS:HL,2:NI,7,ST,AC:ESST3:ST2800# vLI,A$:SQ,A$,"QUIT",N:N1ALAL0:800G x(A$,1)"?"İ8000:ES:AC610m ST0AC0AC9999.99įER,81:610z AC700 5300:RN0įER,"ACCOUNT NUMBER NOT ON FILE":610 390:OK610$ 350:330:HL,S:GO,832(H40),VB:WB,34,1," Account ":PL,B12(DS$)2,F4,ACHU,L" ",LDS$p 330:HL,3:YN,1,"OK to accept this account number",N:HL,R:N0610 ACįOD,16,ACHU,A$:A$(A$,5,7)" - "DS$ ACRNSA:A$"Not Defined" SA(LN)AC:SD,170LN,RN:SS,239LN,A$:5200 350:2300: LN1:AL12 600:ESLNLN1:LN1910,500N ALLNLN1:LNNP910W 500 XC,LV:GO,20,V12:" # G/L Account"15)"# G/L Account":GO,20:PL,L"--- ",X13,"-",B13,L"--- ",X13,"-":LN1NP:2300:: 4ACSA(LN):ACĺ" ";: >OF,4,ACHU:3H16:VLNV11:LN8HH30:VV8IVBV:VB19VB19WGO,H,V:{2200:PU,B4,I2,LN,L". ":2100SP$" ":ES$(27)H1$"Line Category Acct No":H2$"---- ----------------------- -------"+LV4:HU100:NP16:V114:TL$"Maintain Sales Accounts"HRD,160,SA:GX163:GD164ZCD(8),SA(16)dFC:FO,GX,FR:IS,O,FR,NK,ND:FO,GD,QA:BR,QA,0,#NCFO,15,QC:BR,QC,0,A#CD:7,A#SA:16:PBW,QC,0,A#CD:7,A#SA:16:KP:IS,F,FR,AC,RNRN0įBR,QA,RN,#AN,#TY,$DS$6pXC,LV:H15:GO,H,13z"Use this option if you want to post to more than one sales":GO,H:"account in your General Ledger. This option allows you to":GO,H:"define up to 16 sales accounts.":wGO,H:"When using the invoicing option, you can assign each invoice":GO,H:"line item to one of the 16 sales accounts. If you use a sales":GO,H:"account that has not been assigned with this option, then":GO,H:"BusinessWorks will use the sales account you defined in the":GO,H:"posting table (see Posting Table Maintaince.)"aES,11:330:OP,103:WS,A$:330:~XEFĭ(222)6įXO:EF0:bPX@ST0:NCįER,94:AC0:J330:340:SX13:NCSXSXNC:A$""tLHS438(H40):VS6:GO,HS,VS:WB,35,SX2," Accounts ":GO,HS,VSSX:OX,35,"-":GO,HS6,VSSX1:"(OK = Acceptable Account)":IS,F,FR,(A$),I:8300:RN0I0İ8400T8400:I1SX:8300:RN0ISX:8024V8200:VSVS1X:ES,92:24:OP,129:I1^HL,4:PI,HS2,6,9,SX,I,ST:XY,VS,VS:RT,9,A$:N(A$):(ST)18100KhIS,F,FR,N,RN:GS,8350ST50:RN0įBL:8030qrGO,HS,6:SW,36,SX,ST:8200:8030ST0AC0:ACN:5300:390:OKı8030 5310:380:GO,HS,VS:SB,OK,"OK",A$:PU,S3,A$,F4,NHU,B1,S22,DS$:l IS,N,FR,N,RN: IS,P,FR,N,RN: 7000 5000:5100)21:80,kdXC,LV,TL$:GO,16,V11:H1$" "H1$:GO,16:H2$" "H2$nSN1SX:350:x330:"Enter sales representative number (1-"SX") or [RETURN] only when finished: ";:HL,5:NI,0,S,SN:S2200@ SSN1SNSXįER,"INVALID SALES REP NUMBER, must be 1 to "(SX):120{ 330:HL,S:XC,LV1,"Sales Rep #"(SN)" Information" 5300:NWSD$(1)SP$:L1LX:GO,H2,V2L:PU,S15,PT$(L),L":":3000::GT,600100NW 330:1::FC 330:ES:XC,LV:M M,LV,11:RU,12$ JGO,1,24:CL:L ^VV1SN:H13:SNS2VSNS2V1:H46 hGO,H,V:PU,B4,I2,SN,L". ":SR$(SN)SP$įOS,22," ": rOS,22,SR$(SN): L1 2000:ES540 LL1:L510 NW1600,810 LL1:LLX510p XES,TL$:330:"What do you want to do with this sales rep? ";:HL,6:KW,"Accept","Edit","Delete",OP,N:ES:N2800 bN2NW0:500 330:OP,106:HL,7:KI,0,A$:A$ES$600 UC,A$:A$"DELETE"įER,85:600 I17:SD$(I)"": 5350 *HL,R:350:1206 SS(L):VV2L:HH3:ES:L1NWįES,TL$[ 3000:GO,H2,V:HG,16:L62200v 42700:A$""A$SD$(L) >L1A$SP$įER,"SALES REPRESENTATIVE'S NAME IS REQUIRED":2010 HSD$(L)A$:3000 2700:UC,A$:A$SP$30004 T$"":I1(A$):C((A$,I)):(C47C58)(C64C91)T$T$(C): c C$"":(T$)7C$(T$,3):T$(T$,4)~ (T$)7įER,90:2010 C$""N(C$):N100įER,80:2010 SD$(6)C$:SD$(7)T$:3000 GO,H2,V:HG,16: ( 330:OP,"Enter "PP$(L):3 2600:GO,H,V:L6įPU,LSD$(L),XS(SD$(L)),FC$:2720} SD$(6)""SD$(7)""įGO,H,V:PU,L"(",X3,FC$,L") ",X3,FC$,L"-",X4,FC$ GO,H:HL,7L:KI,S,A$:2500:ESA$ES$:ESġ:3000  GO,H3,V2L:L6įOS,S(L),SD$(L):  SD$(6)""įPU,L"(",S3,SD$(6),L") "? SD$(7)""įPU,S3,SD$(7),L"-",S4,(SD$(7),4),B10E KaES$(27):SP$" "LV4:LX6:SX16:S2(SX2):V113:H220:V214:H337:TL$"Maintain Sales Reps":H1$" No. Sales Representative ":H2$"---- ----------------------"RS,2,FC$+SR$(SX),SD$(7),PT$(6),PP$(6),S(6)LI16:PT$(I),PP$(I),S(I):VFC:FO,177,QS:I1SX:BR,QS,I,$SR$(I)::RW$"BR"@RW$,QS,SN,A$SD$:7:RW$"BW":A$SD$(1):SR$(SN)A$:A$SP$A$" Not Defined"SS,139SN,A$:5320XPX' "Sales Rep Name","name of your sales representative",22,"Address, line 1","1st line of address",22,"Address, line 2","2nd line of address (optional)",22'"City and State","City, State abbreviation",20,"ZIP Code","ZIP Code",10,"Telephone No.","telephone number",14 7000 5000:5100421:80,N:XC,LV,TL$Bd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,2:YN,N,"Print report as shown above",N:N0200xNįES:2000:N1:GT,110ES103000 ES:330:1::FC% XC,LV:MM,LV,11:RU,128 JGO,1,24:CL:X rFL,"",5,NB$:IB$SP$:NB0:u |NA$(4)NA$(4)SP$NA$(5) ~TN$NA$(7):SB,1,"Tel: (",1,(NA$(6)" ",3),1,") ",1,(TN$S3$,3),1,"-",1,(TN$,4),NA$(5) A2NA$(3)NA$(4):NA$(4)NA$(5):NA$(5)!#$%&"" # GO,14,14:CW,4,6:: GO,14,V:"--->": 392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP23::470( XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PSK HU$(HD$,1):UC,HU$:PN0:700e 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &CPLNLN2:SP$:"***** LISTING CANCELLED....." 0AC$"aborted":500 :PO:50 X(KB)128610) ZKS,0:(KB)(ES$)550G bNLĭLNNLEPLNLNNL:u l900:CPĢ24:OP,130:WS,A$:A$ES$570 v650:700:NL600  CPė: FFĺ(FF): LLNOL:SP$:: PNPN1:LN7:OC,3,PN:OC,HU$:SP$:800:900 H$8)H$:3 PL,X6,Q$,B1,X28,Q$,B5,X6,Q$,B1,X28,Q$:G V14:400:2600 GO,19,14:"Produce report on what device:":RD,39,CP ( GO,50,14:OS,8,SP$(CP): 450:NSNL3:600:SP$:OC,"No Sales Representatives defined":SP$:SP$:4350)RP2((EPLN)6):NP1((NS1)RP):S1:P1EIS:ESRP1:ENSENS_NR((ES)2):C2NR1hI2IC2:I2NSSNSP(I2):5300:NBA2:IB$ID$:380:J15:NB$(J)NA$(J):rSNSP(I):5300:NAA2:IA$ID$:380|NL5(NANB):600:4400II1:I(SC2)4200$SI21:PNPNL0:600:PP1:PNP4100WAC$"complete":500:5700PL,S7,IA$,S33,NA$(1),S7,IB$,S30,NB$(1):J2NL1:PL,B9,S31,NA$(J),B9,S30,NB$(J):DSP$:370:KB16384:KS16368ES$(27):SP$" ":S3$" ":Q$"="LV4:LX6:SX16:S2(SX2):SM$"Sales Representative":HD$SM$" Information":TL$"Print List of Sales Reps":H$"Rep. # Name/Address/Telephone"RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LPSP(SX),SD$(7),NA$(7),NB$(7),SP$(1):SP$(0)"Screen":SP$(1)"Printer"FC:oFO,177,QS:NS0:FL,0,SX,SP:I1SX:RS,139I,A$:(A$,1,1)SP$NSNS1:SP(NS)Iw:BR,QS,SN,A$NA$:7:ID$(" "(SN),4)" ":A2(NA$(3)SP$):XPX 7000 50008NMOP0:NMN(OP):LV2:150D2NM200ad1:80,N:LV3:XC,LV,TL$nN1:HL,8:MS,LV,2,OP$,2,2,N,N:N0200ES:LVLV1:N1000,20001::FCES:XC,LV:MM,LV,11:RU,12 ,GO,71,8I:MS$(MI)"/"Y((MI)12): 6M1MM12:YY16 8M12MM12:YY1< :O JGO,1,24:CL:y TXC,LV,P$:H23LV:V52LV:GO,H,V: ^GO,22,V6:OX,38,SP$:OP,P$: hCC1:CTCCTC jGO,HS,V6:OD,8,TT(CTC),6,5: rP0PLLP(P)P0 t& F$F$')*+,-./0123456".FILE":P$"Creating file: "F$:350f F$DP$F$:FO,F$,QF:FC,F$:FX,F$:D$OP$F$",L"S:FO,F$,QF: P$"Create A/R Data Files":340@ "This option is used to create the data files that are used by":GO,H:"the "SS$". These files contain your":GO,H:"customer data, invoices, payments, credit and debit memos"x GO,H:"and other information used by the "SS$".":% GO,H:"WARNING: Any existing BusinessWorks "S$" data":GO,H9:"will be lost. However, if you are using the multiple":GO,H9:"companies feature, only the "S$" data"h GO,H9:"for the currently active company will be destroyed." 330:HL,9:YN,1,"OK to continue with create option",N:330:N050 ES:TMCM:TYCY:XC,LV:H1H2NM:V1VNM $GO,H1,V1:"A special feature provided by the "S$:GO,H1:"System allows you to define recurring invoices (i.e.,":GO,H1:"invoices that recur each month such as monthly"9&GO,H1:"service contracts, etc.)."::GO,H1:"At the end of each month, all recurring invoices for":GO,H1:"the next month are automatically posted. Thus, it is"(GO,H1:"important that the system know which month is being":GO,H1:"closed. As part of the creation process you must now":GO,H1:"indicate the currently open month for the A/R System.".1800:ES1000j8HL,S:GO,H,V1:CW,60,4:V12:WB,17,1," 1st Month ":OP,MN$(TM)" 19"("0"(TY),2)L330:OP,"Confirm your request by typing !C!R!E!A!T!E: ":HL,11:KI,0,A$:HL,R:330:A$ES$1050VUC,A$:A$"CREATE"įER,"CREATE option has been cancelled":50X`OL,2,A$:(A$)3įER,"NO DISK LOADED OR DISK I/O ERROR":1100jOL,2,A$,AV,TB:AV10įER,"UNABLE TO CREATE - INSUFFICIENT DISK SPACE":50tRMįWP,2,N:NįER,"COMPANY DATA DISK IS WRITE PROTECTED":1100 ~EX0:EF1:EFįFV,CX:EX1EF0:EXįHL,12:ER,"ACCOUNTS RECEIVABLE DATA FILES ALREADY EXIST","OK to delete existing data files",N:N050ES:XC,LV:GO,H1,V1:OP,"Please wait, "S$" Data file creation in progress":V6:WB,36,1," Status "Z0:FL,0,256,Z%6F$"CUSTISAM":S256:390:BW,QF,0,A@Z%:256:FC(F$"CUSTDATA":S230:390:SUUG:BW,QF,0,#Z,#Z,#Z,#Z,#Z,#SU,#Z,A#SA:16,A#TI:9,A$TI$:3,A$TD$:3:FC2F$"ARDATA":S128:390:BW,QF,0,#Z,#Z,#Z,#Z,#BQ,#Z,#Z,A#TI:9,#TM,#TY:FC&<F$"SALESREP":S106:390:A$"":I116:BW,QF,I,$A$::FC4SU1600IXC,LV:GO,H,V1OP,!" Important Note: ":" For your convenience, the "S$:GO,H:"System has initially been placed in the SETUP mode. While in":GO,H:"this mode you will be able to enter A/R transactions (invoices,"GO,H:"credit memos, etc.) without having the information posted to":GO,H:"the General Ledger System.":GO,H:"This mode allows you to enter all your currently open (i.e.,":GO,H:"unpaid) invoices and credit balances. Once you have entered"GO,H:"all of your inital A/R information you can leave the SETUP":GO,H:"mode and use the A/R System in the normal fashion."@RD,19,IN:BT,IN,3,0:SD,19,INJ24:OP,S$" data file creation complete, press [SPACE BAR]":WS,A$:330:50DHL,S:GO,70,8:WB,8,12," Month ":M1:YTY:310I011:300::330:OP,"Use arrow keys to select 1st "S$" month, then press [RETURN]":NTMHL,10:PI,70,8,8,12,N,S:ESS3:ESįHL,R:&SMMN1:310:TMM:TYY:HL,R:10XY,HS,VS:XY12MS:X961X1189įBL:1820j:MMS:310:GO,70,8:SW,8,12,S:VS:IVS8:300:1820P$"Rebuild A/R Data Files":340:NM2100Y"This option is used to rebuild your "S$" data":GO,H:"files (e.g., list of customers, etc.). This rebuild process":GO,H:"will attempt to reconstruct the data files and eliminate any"GO,H:"errors that may be present."::GO,H:"You should use this option if you suspect that your Accounts"OGO,H:"Receivable data files may have been corrupted by a hardware":GO,H:"malfunction, power failure, software problem, etc."330:HL,13:YN,"OK to rebuild your "DF$,N:N0İ330:504330:ES:XC,LV:V2:OP," Please wait, Rebuilding "DF$:V5:OP," One moment please">:FC2fN0:LD0:LF0:FD$(CD$,(DP$)1):FF$(AF$,(DP$)1)L330:D$OP$DP$",TDIR"W2300tD$"READ"DP$:A$:A$:A$|A$(A$,2,(FD$))FD$İ3000:LDL(A$,2,(FF$))FF$İ3000:LFLN222307000 FC:5100:NC0:RB0:AV0:LDLRLD LR(LR):LR0LR0m FO,AF,QR:BR,QR,0,#AL,#LL,#CC,#DK,#DT:PCC:370:CCP:AL0:DK0:DT0:LFLLLF LL(LL):LL0LR0. FO,CX,QX:FC,CX:FX,CX:D$OP$CX$",L256":FO,CX,QX:FL,0,256,Z%:BW,QX,0,A@Z%:256:IS,O,QX,NK,ND8` V6:WB,34,1," Status ":OP,"Rebuild: 0.0% Complete":XY,HS:HSHS15k P11:C0:R1:TC2LR2LL:RKRK1:RK255RK1 RK%RK:CCR0:TCTC1 RCPCC:2540 RLR2750 BR,QC,R,#CP,$ID$:CP0CP(CP)ID$SP$ID$RB$(ID$)82730 IS,F,QX,ID$,ST:ST02730 BR,QC,R,#CP,A$I$:9,3TL,3RL,3DR,3NI,3NT,A@F%:13,A#D:12:IS,I,QX,ID$,R,ST:STįER,"ISAM File error during rebuild":2900 NCNC1 PCP:370:CPP:CB0:BF0:NI0:NT0 P2650= LPP:BR,QR,LP,#P,@K%,@TY%,@SM%,$PO$,A3U:5,A#A:4,A3DD:23,A@ID%:4:370:U(3)0:U(4)0:U(5)R:TY%TY%6TY%2 NTNT1:TY%1NINI1:CBCBA(1)A(3)A(4):BFBFA(1)(ID%(4)0) TY%52620 SPP:PA(2):370:A(2)P( PPSP:26202 DPP:BR,QR,DP,#P:370:T%7:BW,QR,DP,#P,@RK%,@T%:360:2600P< BW,QR,LP,#P,@RK%,@TY%,@SM%,$PO$,A3U:5,A#A:4,A3DD:23,A@ID%:4:360:2550cZ PRL:370:PP0qd PPRLPf PPįBW,QR,PP,#Pn P2700x LPP:BR,QR,LP,#P,@K%,@TY%:370:TY%8įBW,QR,LP,#P,@RK%,@TY%:360:PPLP 2660 Rİ360:R1:2500$ D(1)CB:D(3)BF:D(2)0D(2)0J I113:F%(I)XF(I)F%(I)(I13)P BW,QC,R,#CP,A$I$:9,3TL,3RL,3DR,3NI,3NT,A@F%:13,A#D:12:2740 ID$"":BW,QC,R,#AV,$ID$:AVR 360:RR2:2500 P1P10:R2:2500 LL29006! CTCLL1:I1LL:BR,QR,I,#P,@K%:K%RKK%0:BW,QR,I,#AL,@K%:ALIA! 360:v!T 5150:360:BW,QR,0,#AL,#LL,#CC,#DK,#DT:FC:360!^ CTC:360:24:OP,"Rebuild complete, press [SPACE BAR] to continue":WS:50" L0:BS512((A$,24,5)):FS((A$,64)):RL((A$,76)):FSBSFSBS"" RLL(FSRL)." NN1:4"h"D$(4):ES$(27):SP$" ":RB$(127):OP$"OPEN""TL$"Create and Rebuild":S$"Accounts Receivable":SS$S$" System":DF$S$" Data Files":TT1E4:CX14:CD15:AF16H#RD,0,RM:RD,7,BQ:RD,10,OP:RD,18,UG:RS,0,TD$:DT,TD$,TD:RS,CX,CX$:RS,CD,CD$:RS,AF,AF$:RS,27,DP$j#CM((TD$,2)):CY((TD$,2))#OP$(2),MN$(12),MS$(24),Z%(256),SA(16),TI(9),TI$(3),TD$(3),I$(9),F%(13),XF(13),D(12),U(5),A(4),DD(23),ID%(4)?$OP$(1)"Create "DF$:OP$(2)"Rebuild "DF$:I13:TI$(I)"TAX"(I):TD$(I)"Sales Tax #"(I):m$I112:MN$(I),MS$(I):MS$(I12)MS$(I):$I113:XF(I):$FC:$FO,CD,QC:RW$"BR"$@RW$,QC,0,#NC,#RB,#LR,#AV,#SF,#SU,#RK:$RW$"BW":5120 %XER(222):EFĭER6ER8EF0:XO:%PX%'January,JAN,February,FEB,March,MAR,April,APR,May,MAY,June,JUN,July,JUL,August,AUG,September,SEP,October,OCT,November,NOV,December,DEC%*1,1,1,1,1,1,1,1,9,9,16,16,3B 7000 5000:5100921:80,N:LV3:XC,LV,T1$<OP$(1)"Define or Edit an AppleWorks Outline":OP$(2)"Create an AppleWorks Spreadsheet from an Outline":OP$(3)"Create an AppleWorks Data Base from an Outline" FES,11:HL,0:OP1:MS,LV,3,OP$,1,2,1,OP:OPİ6000:70& HOP0200< POP100,4000,4000F Z5150r dLV4:XC,LV,T2$:OF0:ADNFFX:NF2120 nOF4:GO,14,12:" This option is used to define or edit the outlines that you":GO,14:"may use at a later time to create AppleWorks file79:;<=>?@ABCDEFGs from your" pGO,14:"Accounts Receivable information. To define a new outline,":GO,14:"select the 'Define a New Outline' option."; rNFOF5:" To change or delete":GO,14:"an existing outline, select the desired outline."% xSK99:I0:ADI1:OP$(I)"Define a New Outline":SK2W zNFāN1NF:II1:OP$(I)"Outline: "FF$(N): FF1:ES,T1$:HL,15NF2(NFFX):MS,LV,I,SK,OP$,OF,1,FF,FF:FF050 ADFFFF1 NWFF:NWFF$FF$(FF):FFFR(FF):5400:1000O ES:330:"Enter name of new outline: ";:XY,H:OX,16,FC$:GO,H:HL,18:KI,16,A$:A$ES$A$SP$100 NFįFS,A$,NF,FF$,I:I0įER,"OUTLINE NAME ALREADY EXISTS":160 FF$A$:FFAV:AS0:AG0:FL,0,CX,CD:1000 1::FC ES:XC,LV:MM,LV,11:RU,12 270. 1::FC:ES:XC,LV:MM,LV:D$"RUN"PP$PG$ XC,LV:12:BL$;:OP,122:14:OP,PG$:16:OP,123:18:OP,PP$:21:OP,103:WS:200 ,XC,LV,"Outline: "FF$6.XC,LV:GO,19,12:"Customers to be included :":GO,19:"Select based on past due:"::GO,19:"Information to be included for each customer:"s0I16:GO,21:PL,L"#",I1,I,S28,":",L"#",I2,I6,L":"::6GO,45,12:31):GO,45:AS$(AS);:ASı8", "C1$" to "C2$:@GO,45,13:30):GO,45:YN$(AG0);:AGĺ", "AG$(AG)BJGO,1,24:CL:TSHįHL,S:SH1:$V9^SHįHL,R:SH0:?`\h380:OS,20,CF$(CD(C)):rGO,17,16:CW,3,6:GO,47,16:CW,3,6:|V15C6(C6):H2531(C6)~GO,H,V:GO,14,12:CW,5,4:390:GO,14,V:"--->":310:320:C1CX:360::)330:300:400:OP1:NW1100ES,T2$:330:"What do you want to do with this outline? ";:HL,19:KW,"Accept","Edit","Delete",OP,N:ES:330:N21090OP1:N21100$330:OP,106:HL,20:KI,0,A$:UC,A$:A$ES$1050.A$"DELETE"įER,85:10508FF$"",B330:5450:90ELSH0:ES:NWįES,T2$VV12:392:330:"Include which customers? ";:HL,21:KW,AS$(0),AS$(1),AS1,N:330:ES:N0İ390:NW11050,90`N1AS0:1300ASC1$"":C2$"" 330:H57:DF$C1$:HL22:1250:ES1100C1$A$>H69:DF$C2$:HL23:1250:ES1210hC2$A$:(A$Z$,8)C1$C2$C1$:C1$A$wAS1:1300392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S9,C1$,L"to ",S8,C2$.GO,H:PU,LDF$,X8(DF$),FC$:GO,H:HL,HL:KI,8,A$:ESA$ES$:ES1270EA$""A$(DF$,1)lUC,A$:(A$,1)"?"İ9000:ES1250{350:ESıGO,H,24:OS,8,A$:ES:350:390:310V13:392:340:GO,25,17:WB,25,5," Past Due Criteria ":GO,1,23:OX,80,"_":17:I04:GO,27:AG$(I):W(NAG1:24:OP,129:HL,24:PI,26,17,23,5,N,S:350:S01100g2AGN1:320SH0:DF2:V15:3924330:"Enter information item number (1-"CX") or [RETURN] only: ";:HL,25:NI,2,S,C:S31300>S22500"HSC1CCXįER,"INVALID ITEM NUMBER":2100RR380:GO,H9(H40):"-->":NCD(C):NNDF\HS1044(H40):340:GO,HS,4:WB,24,18," Information Types ":GO,1,23:OX,80,"_":I10:(I118)NI1N18:N18^4:I118:GO,HS2:CF$(I1I):f330:OP,129<pEN(I118)IX:SB,EN,"____",EN,"more",A$:GO,HS10,22:A$~zHL,26:PI,HS1,4,22,18,N,S:XY,VS,VS:S3İ350:370:2100Sİ350:370:2300(S0I1)(S0EN)įBL:2170GO,HS,4:SW,24,18,S:I1I1S:GO,HS2,VS:CF$(I1VS3):2160WNI1N:NIXįFD,N,CX,CD,I:I0NCD(C)įER,"CAN ONLY INCLUDE '"CF$(N)"' ONCE":2100{ CD(C)N:360:DFN1:DFIXDF2 2100 330:390:2800( NW1050  330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,27:YN,1,"OK to accept this new outline",N:N02000, N1090; OP2:1050Z NX0:I1CX:CD(I)1NXI :NXįER,"NO INFORMATION ITEMS INCLUDED IN THIS OUTLINE" NFįER,"NO APPLEWORKS OUTLINES DEFINED YET":50NCįER,"NO CUSTOMERS DEFINED IN YOUR A/R SYSTEM":50<OP2PG$"SS":T$"Spreadsheet":4050XPG$"DB":T$"Data Base"LV4:XC,LV,"Create "T$:NF1FF1:4200330:340:V17(NF2):GO,30,V:WB,22,NF," Outlines ":I1NF:GO,31:I". "FF$(I)::FF124:HL,28:OP,121:PI,34,V,18,NF,FF,S:350:S050YhFFFR(FF):5400:302:400:2800:NXĴ(NF1)14000,50ES,T1$:330:HL,29:YN,1,"OK to create an AppleWorks "T$" file from this outline",N:330:N0500SD,12,FF:PG$"ARAW"PG$".PROG":250D$(4):SP$" ":ES$(27):BL$(7)UT1$"Convert to AppleWorks":T2$"Create/Edit Outline"xFX8:IX21:CX12:Z$"ZZZZZZZZ"RD,0,RM:RS,2,FC$:RS,26,PP$:RS,26(RM2),A$:GF$A$"ARAWFORMS.FILE"OP$(FX),YN$(1),AS$(1),CD(CX),CF$(IX),FF$(FX),FR(FX),AG$(4)@YN$(0)"No":YN$(1)"Yes":AS$(0)"All":AS$(1)"Selective"VI0IX:CF$(I):kI04:AG$(I):uFC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NCEF1:EFįFV,GF$:EF0:D$"UNLOCK"GF$:5130D$"OPEN"GF$",L128" FO,GF$,QF?AV0:NF0:FL,0,FX,FR:I1FX:BR,QF,I,$A$:A$""ĭAVAVIf(A$""NFNF1:FF$(NF)A$:FR(NF)In2:{RW$"BR",@RW$,QF,FF,$FF$,#AS,$C1$,$C2$,#AG,A#CD:CX:JRW$"BW":5420pHL,S:80:"Help for "T1$:OX,80,"=":GO,1,23:OX,80,"-":GO,1,3z" This option lets you convert Accounts Receivable information to either an AppleWorks spreadsheet or data base file. The process of converting your Accounts Receivable information consists of two steps:":"Defining an outline:":" An outline indicates what information you want to include in the spreadsheet or data base file. For example, you could include ID, name, and the current"I " balance for each of your customers. You can define up to eight different outlines. Multiple outlines provide you increased speed and flexibility in"!" converting your Accounts Receivable information."::"Creating an AppleWorks spreadsheet or data base file":" Once you have defined at least one outline you can then convert your Accounts";!" Receivable information. You simply select the outline you want to use and where you want the file to be created (i.e., on your standard floppy, a"Y"" specified pathname, etc.). You could use an AppleWorks spreadsheet file to analyze sales, project cash flow, create new reports, etc. An AppleWorks""" data base file could be used to build specialized mailing lists and to create form letters (using a mail merge application program)."#24:OP,103:WS:HL,R:4#XEFER(222):ER3ER6ER8EF0:XO:<#bPXT#(#NCįER,95:ES1:#2#ES:340:330:SX14:NCSXSXNC:A$SP$#4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400$<#9400:I1SX:9300:R0İ9200:VSVS1$>#R0ISX4$@#:ES,92:24:OP,129:I1$F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:ES:$P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030$Z#GO,42,7:SW,34,SX,ST:9200:9030%#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:$%T$IS,N,QX,A$,R:8%$IS,P,QX,A$,R:%'"","","Customer ID","Customer Name","Address, Line #1","Address, line #2","City/State","ZIP Code","Telephone Number","Contact Name","Sales Representative"&'"Current Balance","Open Credits","Finance Charges","Credit Limit","Highest Balance","YTD Sales","MTD Sales","Last Paid Amount","Last Paid Date","Last Statement Date","Aged Totals" '*"None","Any past due balance","Over 30 days past due","Over 60 days past due","Over 90 days past due" 7000 5000:5100&d1000,G330:1::FC:ES:370qXC,LV:MM,LV:D$"RUN"PP$"ARAW.PROG"JGO,1,24:CL:rRM1ı0 tOL,1,A$:A$PP$įXC,LV:BL:EJ,1:14:WB,52,5," Load Disk ":OP,"Please load the following disk in Drive 1":16:OP,SP$PP$SP$:18:OP,103:WS:370R vWP,1,N:NįEJ,1:ER,WP$:370X zk |GO,80,4:I$: GO,14,12:CW,4,9: 390:GO,14,V:"--->":330 4900:CW0:T1NX:CWCWW%(X%(T)): 1:80,N:XC,LV,TL$:HD1:BPRM:PF$"" GO,19,HJKLMNOPQRSTUVW13:"Outline name: "FF$::GO,19:"Include column titles:"::GO,19:"Location of AppleWorks file:":GO,21:"Directory Pathname:"::GO,19:"AppleWorks file name:" LV15:392:HL,31:YN,HD,"Create the "AF$" with column titles",N:N0200 VHDN:GO,42,V:YN$(N) ES:RS,18,FY$:SL((FY$,3,1)):DR((FY$,6,1)):DD128(DR2)16SL:390:HL,S:GO,52,14:WB,20,1," Standard Disk ":" Slot "SL" / Drive "DR V17:392:"Create AppleWorks file where? ";:HL,32:KW,FP$(0),FP$(1),BP1,N:HL,R:330:N010106 BPN2:GO,48,V:PL,S24,FP$(BP):BP1400F DDF21330 GO,41:32):EJ,DD:HL,S:ES,104:12:WB,51,3," Load Disk ":OP,"Please load a ProDOS formatted diskette":14:OP,109 HL,33:GK,A$:SQ,A$,SP$,CR$,ES$,N:NįBL:1310 (HL,R:N312009 2OL,DD,A$:ER(48911):ER(A$)31350Y <WP,DD,ER:ERPF$A$:1500 FER40įER,"NO FLOPPY DISK DRIVE CONNECTED":1200 PEJ,DD:ER43įER,WP$:1200 ZER87įER,"DUPLICATE VOLUME NAME":1200dER46įER,"COMPANY DATA DISK CANNOT BE REMOVED":1200KnER,"NO PRODOS FORMATTED DISK LOADED":1200txFY$"":PF$""įRS,19,PF$:RMPF$""V18:392:"Enter directory pathname: ";:XY,H:OX,32,FC$:GO,H:PF$;:GO,H:HL,34:KI,32,A$:A$ES$1200UC,A$:A$""A$PF$(A$,1)"/"A$(PF$A$,32):(A$,1)"/"A$A$"/"\EF2:EFĺD$OP$A$",TDIR":ER0EF0:ER16įER,"INVALID DIRECTORY NAME":1410ERįER,"DIRECTORY NOT FOUND":1410FC,A$:WP,(48944),N:NįER,WP$:1410PF$A$GO,41,18:OS,32,A$N330:9500:WįER,"NOT ENOUGH SPACE TO CREATE APPLEWORKS FILE":1200q@390:V20:GO,41,V:15):HL,SJ392:"Enter "AF$;:OP," name (use !? to see a list of files): ":XY,H:OX,15,FC$:GO,H:HL,35:KI,15,A$:A$ES$įHL,R:1200TA$""A$SP$)^(A$,1)"?"įHL,R:9600:1610hUC,A$:I(A$):I65I90įER,"INVALID NAME, first character must be a letter":1610rF$A$:X0:I1(A$):N((A$,I,1)):XX(N46(N48N57)(N65N90)):tXįER,"INVALID NAME, must include only A-Z, 0-9, or .":1610=330:DF0:ER0:EF1:EFĺD$VF$PF$F$FY$QEF0:ER61800^ER7100N(48824):N25N27įER,FE$", NOT APPLEWORKS":1610HL,36:ER,"APPLEWORKS "FE$,"OK to replace "F$,N:DFN0:DF1610HL,R:GO,41,V:OS,15,F$<330:HL,37:YN,1,"OK to create the "AF$,N:N01600IN1010r330:1::DFĺD$UL$PF$F$:FX,PF$F$ 330:XC,LV:16:WB,40,3," Please Wait ":OP,"Creating "AF$:18:OP,"One moment please":AS$PF$F$ D$"CREATE"AS$TA$ N1NX:H%(N4)W%(X%(N))::I0:N0EWH%(I5):(NW)76II1:NNW:3600]H%(157)I:H%(160)NtD$OP$AS$TA$:FO,AS$,QF,1:BW,QF,0,A@H%:302RN300:RW0:HD405018:OP,"Creating column titles":4750:N2%4:T1NX:A$CT$(X%(T)):4800::4700=4750:N2%4:T1NX:A$(Q$,W%(X%(T))1):4800::4700TASC1$"":C2$""ID$C1$:IS,F,QX,ID$,R:R0įIS,P,QX,ID$,RGO,29,18:28):GO,32:PU,L"Customer:":C2$(C2$"ZZZZZZZZ",8)IS,N,QX,ID$,R:R0ID$C2$43002RWXRįER,"REACHED MAXIMUM NUMBER OF ROWS IN SPREADSHEET":4300tBR,QC,R,#TL,A$I$:9,A3T3:5,A@F%:13,A#D:12:GO,42,18:OS,8,ID$"AGCMİ6000:AGĭMXAG4100,47506D(3)MS:D(4)D(4)D(5)D(6):I$(10)"":F%(12)įRS,139F%(12),I$(10)RhT1NX:XX%(T):II%(X):N2%1:X8A$"("(I$(7)" ",3)") "(I$(8),3)"-"(I$(8),4):4800:4270qrX11A$I$(I):4800:4270|X19VD(I):4260X21VD(I):4600:4270VAG(I)FP,VHU,V%:N1%10:N2%163:N3%2:BW,QF,RN,@N1%,@N2%,@N3%,A@V%:8:RNRN11 :47004100=N1%255:BW,QF,RN,@N1%,@N1%:FC,AS$0XC,LV:15:OP,AF$" creation is complete":17:OP,103:WS:200A$"n/a":V0įFJ,V,A$:A$(A$,1,2)"/"(A$,3,2)"/"(A$,5,2)4800<\RWRW1:N2%(RWFF):N1%RWN2%FF:NBRNSR1:B2%(NBFF):B1%NBB2%FF:BW,QF,SR,@B1%,@B2%,@N1%,@N2%afN1%255:BW,QF,RN,@N1%:RNRN1:uSRRN:RNRN4:X%(T)1N1%129:BW,QF,RN,@N1%:RNRN1:A$SP$A$:N1%1(A$):BW,QF,RN,@N1%,@N2%,$A$:RNRNN1%:BR,QF,RN,@N1%:N1%N1%128:BW,QF,RN,@N1%:RNRN1::$N0:NX0:CM0:I1CX:CD(I)1NIF.:Nıg8C1N:ICD(C):I1IXTI1:IXTNXNX1:X%(NX)I:CMCMI17:4940BI04:NXNX1:X%(NX)XTI::CM1L:!D$(4):SP$" ":CR$(13):ES$(27):UL$"UNLOCK":PX$"PREFIX":VF$"VERIFY":OP$"OPEN"TL$"Create Spreadsheet":AF$"AppleWorks file":FE$"FILE ALREADY EXISTS":Q$"------------------------":TA$",TASP":WP$"DISK IS WRITE PROTECTED"LV4:CX12:XT21:TXXT4:XR999:HU100:FF256\RD,0,RM:RD,12,OX:RD,15,F2:RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,26,PP$:RS,26(RM2),A$:AW$A$"ARAWFORMS.FILE"I$(10),T3(5),F%(13),D(12),U(5),A(4),DD(23),S%(4),AG(5),H%(302),CD(CX),X%(CX4),CT$(TX),W%(TX),I%(TX),FP$(1),FT$(6),YN$(1),V%(8)(YN$(0)"No ":YN$(1)"Yes":FP$(0)"Standard Disk":FP$(1)"Pathname"JI1TX:CT$(I),W%(I),I%(I):_I16:FT$(I):vI5131:H%(I)9:N:NćH%(N):5082FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR370:FO,AW$,QF:BR,QF,OX,$FF$,#AS,$C1$,$C2$,#AG,A#CD:CX:FC,AW$::pPTL:FL,0,5,AG:MX0:MS0DzPınLPP:BR,QR,LP,#P,@K%,@T%:T%16010BR,QR,LP,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,A@S%:4CMĭS%(4)MSMSDD(23)AMA(1)A(3)A(4):TTDU(2)S%(1):A1:T0A((T59)30):A5A51AG(A)AG(A)AM:AMĭAMXMXA;6010XER(222):EFĭ(EF3(ER3ER6ER8))(EF2(ER13ER16))EF0:XO:bER9įFC:FX,AS$:ER,"DISK FULL, APPLEWORKS FILE CREATION CANCELLED":200PX %330:OP,"Please wait, reading the directory"N &%NF0:D$OP$PF$",TDIR":D$"READ"PF$:380:DN$I$:380:380i 0%380:(I$,1)"B"9550 :%FS,(I$,18,3),3,FT$,I:I0ĭNF55NFNF1:SS,200NF,(I$,2,15)SP$FT$(I3) D%9520 N%FC,PF$:W((I$,14))5:330!%VS15:NFVSVSNFNFD!%I0:GO,60,6:WB,18,VS,SP$DN$SP$:NFįGO,64,6:" N O N E "M!%VS6Z!%INFı!%II1:GO,60,VS:OP,200I:VSVS1:VS21INF9620!%24:OP,108:WS,A$:GO,1,24:CL:A$ES$ı!%GO,59,6:CW,20,15:9610"'" ",9,0,ID,9,1,"Customer Name",23,2,"Address, Line #1",23,3,"Address, line #2",23,4,"City/State",21,5,"ZIP Code",11,6,"Telephone",15,0,"Contact Name",23,9,"Sales Rep",23,10R#'"Balance",13,1,"Open Credits",13,2,"Fin Charges",13,4,"Credit Limit",13,7,"Highest Bal",13,9,"YTD Sales",13,8,"MTD Sales",13,3,"Amount Paid",13,10,"Data Paid",10,11,"Stmt Date",10,12#$'"Current",13,1,"1 to 30",13,2,"31 to 60",13,3,"61 to 90",13,4,"Over 90",13,5#*AWP,ASP,ADB,WP,SS,DBq$.132,67,133,65,134,1,136,1,137,49,139,2,140,6,142,1,150,1,152,1,153,2,154,4,155,18,157,8,158,19,159,78,160,72,214,1,216,80,219,10,220,110,223,6,224,83,240,1,301,255,302,255,0 7000 5000:5100&d1000,G330:1::FC:ES:370qXC,LV:MM,LV:D$"RUN"PP$"ARAW.PROG"JGO,1,24:CL:rRM1ı0 tOL,1,A$:A$PP$įXC,LV:BL:EJ,1:14:WB,52,5," Load Disk ":OP,"Please load the following disk in Drive 1":16:OP,SP$PP$SP$:18:OP,103:WS:370R vWP,1,N:NįEJ,1:ER,WP$:370X zk |GO,80,4:I$: GO,14,12:CW,4,9: 390:GO,14,V:"--->":330 N2%(NFF):N1%NN2%FF: H%(R114)140(T15):H%(R150)6I:H%(R186)T:RR1:( XZ[\]^_`abcdef4900:CW0:T1NX:CWCW1W%(X%(T)):N 1:80,N:XC,LV,TL$:BPRM:PF$"" GO,19,15:"Outline name: "FF$::GO,19:"Location of AppleWorks file:":GO,21:"Directory Pathname:"::GO,19:"AppleWorks file name:" Lo RS,18,FY$:SL((FY$,3,1)):DR((FY$,6,1)):DD128(DR2)16SL:390:HL,S:GO,52,14:WB,20,1," Standard Disk ":" Slot "SL" / Drive "DR V17:392:"Create AppleWorks file where? ";:HL,32:KW,FP$(0),FP$(1),BP1,N:HL,R:330:N0200 ES:BPN2:GO,48,V:PL,S24,FP$(BP):BP1400 DDF21330 GO,41:32):EJ,DD:HL,S:ES,104:12:WB,51,3," Load Disk ":OP,"Please load a ProDOS formatted diskette":14:OP,109 HL,33:GK,A$:SQ,A$,SP$,CR$,ES$,N:NįBL:1310 (HL,R:N31010 2OL,DD,A$:ER(48911):ER(A$)31350( <WP,DD,ER:ERPF$A$:1500_ FER40įER,"NO FLOPPY DISK DRIVE CONNECTED":1200 PEJ,DD:ER43įER,WP$:1200 ZER87įER,"DUPLICATE VOLUME NAME":1200 dER46įER,"COMPANY DATA DISK CANNOT BE REMOVED":1200nER,"NO PRODOS FORMATTED DISK LOADED":1200CxFY$"":PF$""įRS,19,PF$:RMPF$""V18:392:"Enter directory pathname: ";:XY,H:OX,32,FC$:GO,H:PF$;:GO,H:HL,34:KI,32,A$:A$ES$1010UC,A$:A$""A$PF$(A$,1)"/"A$(PF$A$,32) (A$,1)"/"A$A$"/"+EF2:EFĺD$OP$A$",TDIR":ER0^EF0:ER16įER,"INVALID DIRECTORY NAME":1410ERįER,"DIRECTORY NOT FOUND":1410FC,A$:WP,(48944),N:NįER,WP$:1410PF$A$GO,41,18:OS,32,A$330:9500:WįER,"NOT ENOUGH SPACE TO CREATE APPLEWORKS FILE":1010@@390:V20:GO,41,V:15):HL,SJ392:"Enter "AF$;:OP," name (use !? to see a list of files): ":XY,H:OX,15,FC$:GO,H:HL,35:KI,15,A$:A$ES$įHL,R:1010TA$""A$SP$^(A$,1)"?"įHL,R:9600:1610QhUC,A$:I(A$):I65I90įER,"INVALID NAME, first character must be a letter":1610rF$A$:X0:I1(A$):N((A$,I,1)):XX(N46(N48N57)(N65N90)):tXįER,"INVALID NAME, must include only A-Z, 0-9, or .":1610 330:DF0:ER0:EF1:EFĺD$VF$PF$F$FY$ EF0:ER61800-ER7100hN(48824):N25N27įER,FE$", NOT APPLEWORKS":1610HL,36:ER,"APPLEWORKS "FE$,"OK to replace "F$,N:DFN0:DF1610HL,R:GO,41,V:OS,15,F$ 330:HL,38:YN,1,"OK to create the "AF$,N:N01600N1010A330:1::DFĺD$UL$PF$F$:FX,PF$F$ 330:XC,LV:16:WB,40,3," Please Wait ":OP,"Creating "AF$:18:OP,"One moment please":AS$PF$F$ D$"CREATE"AS$TA$ N35522NX:400:H%(1)N1%:H%(2)N2%:H%(36)NX:H%(223)NX:NNX:N15N15;R1:I1N:TI:410:TI15:TNXİ410mt:D$OP$AS$TA$:FO,AS$,QF,1:BW,QF,0,A@H%:356RN357:NR0:18:OP,"Adding Category Names ":T1NX:SRRN:A$CT$(X%(T)):4810:RNSR22::4850ASC1$"":C2$""0C2$(C2$"ZZZZZZZZ",8):ID$C1$:IS,F,QX,ID$,R:R0įIS,P,QX,ID$,R[GO,29,18:28):GO,32,18:"Customer:"IS,N,QX,ID$,R:R0ID$C2$4300NRXRįER,"REACHED MAXIMUM NUMBER OR ITEMS IN DATA BASE":4300BR,QC,R,#TL,A$I$:9,A3T3:5,A@F%:13,A#D:12:GO,42,18:OS,8,ID$*"AGCMİ6000:AGĭMXAG41004,4750|6D(3)MS:D(4)D(4)D(5)D(6):I$(10)"":F%(12)įRS,139F%(12),I$(10)hT1NX:XX%(T):II%(X):X8A$"("(I$(7)" ",3)") "(I$(8),3)"-"(I$(8),4):4270rX11A$I$(I):4270 |X19VD(I):4250'X21VD(I):4600:42803VAG(I)OOD,16,V,A$:A$(A$,11)q(A$,1)SP$A$(A$,2):4260{4800:47004100NRNRNR1:4850BW,QF,RN,@FF%,@FF%:NNR:400:BW,QF,36,@N1%,@N2%:FC,AS$,0XC,LV:15:OP,AF$" creation is complete":17:OP,103:WS:200BV0A$"":4800FJ,V,A$:V((A$,2)):A$(A$,2)(64V)(A$,3,2):N1%6:N2%192:BW,QF,RN,@N1%,@N2%,$A$:4830\NRNR1:BW,QF,RN,@FF%:RNRN1:N1%RNSR2:BW,QF,SR,@N1%:SRRN:RNRN2:'X%(T)1N1%129:BW,QF,RN,@N1%:RNRN1::A$SP$A$SP$[N1%(A$):BW,QF,RN,@N1%,$A$RNRNN1%:BR,QF,RN,@N1%:N1%N1%128:BW,QF,RN,@N1%:RNRN1:N1%1:N2%0:BW,QF,RN,@N1%,@N2%,@FF%:RNRN3:$N0:NX0:CM0:I1CX:CD(I)1NI.:Nı$8C1N:ICD(C):I1IXTI1P:IXTNXNX1:X%(NX)I:CMCMI17:4940vBI04:NXNX1:X%(NX)XTI::CM1~L:D$(4):SP$" ":CR$(13):ES$(27):UL$"UNLOCK":PX$"PREFIX":VF$"VERIFY":OP$"OPEN"STL$"Create Data Base":AF$"AppleWorks file":FE$"FILE ALREADY EXISTS":TA$",TADB":WP$"DISK IS WRITE PROTECTED"LV4:CX12:XT21:TXXT4:XR1350:HU100:FF%255:FF256RD,0,RM:RD,12,OX:RD,15,F2:RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,26,PP$:RS,26(RM2),A$:AW$A$"ARAWFORMS.FILE"I$(10),T3(5),F%(13),D(12),U(5),A(4),DD(23),S%(4),AG(5),H%(357),CD(CX),X%(CX4),CT$(TX),W%(TX),I%(TX),FP$(1),FT$(6),V%(8)FP$(0)"Standard Disk":FP$(1)"Pathname"I1TX:CT$(I),W%(I),I%(I):I16:FT$(I):I4372:H%(I)16::I79108:H%(I)I78:*N:NćH%(N):50824FC:rFO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR370:FO,AW$,QF:BR,QF,OX,$FF$,#AS,$C1$,$C2$,#AG,A#CD:CX:FC,AW$:pPTL:FL,0,5,AG:MX0:MS0zPı LPP:BR,QR,LP,#P,@K%,@T%:T%16010HBR,QR,LP,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,A@S%:4eCMĭS%(4)MSMSDD(23)AMA(1)A(3)A(4):TTDU(2)S%(1):A1:T0A((T59)30):A5A5AG(A)AG(A)AM:AMĭAMXMXA6010#XER(222):EFĭ(EF3(ER3ER6ER8))(EF2(ER13ER16))EF0:XO:sbER9įFC:FX,AS$:ER,"DISK FULL, APPLEWORKS FILE CREATION CANCELLED":200{PX%330:OP,"Please wait, reading the directory"&%NF0:D$OP$PF$",TDIR":D$"READ"PF$:380:DN$I$:380:380 0%380:(I$,1)"B"9550Y :%FS,(I$,18,3),3,FT$,I:I0ĭNF55NFNF1:SS,200NF,(I$,2,15)SP$FT$(I3)c D%9520 N%FC,PF$:W((I$,14))5:330 %VS15:NFVSVSNFNF %I0:GO,60,6:WB,18,VS,SP$DN$SP$:NFįGO,64,6:" N O N E " %VS6 %INFı.!%II1:GO,60,VS:OP,200I:VSVS1:VS21INF9620]!%24:OP,108:WS,A$:GO,1,24:CL:A$ES$ız!%GO,59,6:CW,20,15:96100"'"Blank",1,0,ID,8,1,"Customer Name",22,2,"Address, Line #1",22,3,"Address, line #2",22,4,"City/State",20,5,"ZIP Code",10,6,"Telephone",15,0,"Contact Name",22,9,"Sales Rep",22,10"'"Balance",8,1,"Open Credits",8,2,"Fin Charges",8,4,"Credit Limit",8,7,"Highest Bal",8,9,"YTD Sales",8,8,"MTD Sales",8,3,"Amount Paid",8,10,"Data Paid",6,11,"Stmt Date",6,12/#$'"Current",8,1,"1 to 30",8,2,"31 to 60",8,3,"61 to 90",8,4,"Over 90",8,5I#*AWP,ASP,ADB,WP,SS,DBa#.31,1,32,68,35,47,0 7000 5000:5100421:80,N:XC,LV,TL$Bd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,48:YN,N,"Print report as shown above",N:330:N0200xNįES:2000:N1:GT,110ES10 DQĆIV(TX),IR(TX),TV(TX),TR(TX):DQ1 3000# 0 1::FCV 330:ES:XC,LV:MM,LV,11:RU,12 ,BR,QR,P,#P,@K%,@T%,@N%,$PO$,A3U:5,A#A:4,A3DI:11,A3DA:12,@DD%,@SD%,@PP%,@PM%:IUU(1):IDU(2): 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8 JGO,1,24:CL:gijklmnopqrstu TSHįHL,S:SH1 V. ^SHįHL,R:SH04 `m hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N122 tGO,H:OX,8,FC$:GO,H:S8:360:ESıX vUC,A$:(A$,1)"?"İ9000:ES370u x350:GO,H,24:OS,8,A$: 350:GO,14,14:CW,4,8: GO,14,V:"--->": V20:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400! CPN2:A SD,39,CP:CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$"ACCOUNTS RECEIVABLE DETAIL REPORT":PN0:PF1:700 900:CPİ650:PW,0:. 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:; &PF570p 0CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500 :PO:50 X630:TFLNL1:NLĭLNNLEPLNLNNL: b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NLī600 n3v(KB)SBĹKS,0:(KB)(ES$)5509xFCPė:WFFĺ(FF):mLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900x 12)"Txn"15)"Trans. Trans. Month Beg M-T-D Current":" Txn/Ref # Date Reference Invoice Amount Balance Activity Balance":"========== ===== ============ =======";:Q$"="PL,B1,X9,Q$,B1,X9,Q$,B1,X10,Q$,B1,X10,Q$:SF1100rXC,LV:15:WB,40,5," Please Wait ":OP,"Reading customer list (in reverse order)":GO,30,17:"Customer ID:":19:OP,86:ES,100L(0)0:FL,0,RX,L:IS,F,QX,C2$,R:R0įIS,N,QX,ID$,R630:IS,P,QX,ID$,R:R0ID$C1$S11:S20:$GO,43,17:OS,8,ID$:BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13N.LF%(12):LRXįBW,QC,R,#RP,A$I$:9,3L(L):L(L)RX81050LIS,F,QX,C1$,R:R0įIS,P,QX,ID$,RVSF1400IS,N,QX,ID$,R:EFR0ID$C2$:EFı1500:ID$I$(1)5300(xS2RS2:1500:ID$I$(1):S2T3(1):S1S11:EFS1RX:EFı2S2L(S1):1400bBR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:zlNI0:NT0:XL0:PRPv630:PįSR,IV,IR,NI:PPP:300:T%11950PM%T%2T%61910(T%5N%1)DI(1)01950NTTXNTNT1:TV(NT)DI(1):TR(NT)PP1910INITXNINI1:IV(NI)U(2):IR(NI)PP:1910WXLXLPa1910SH0:V14:392:330:HL,47:"Include which customers? ";:KW,AS$(0),AS$(1),AS$(2),RF1,N:390:ESN0:ESıN2RFN1:C1$"":C2$"":2080330:N1:DF$C1$:HL4:370:ES2000)C1$A$L N2:DF$C2$:HL5:370:ES2050{RF1:C2$A$:(A$Z$,8)C1$C2$C1$:C1$A$ 26004V18:392:330:HL,6:YN,SF0,"Do you want to sort the report by sales representative",N:390:N02000 >SFN:NWG0:2200}f392:330:HL,7:YN,WG0,"Do you want to start a new page for each sales representative",N:390:N02100pWGN2600:400:ES2100` 2600" GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:":X GO,19:"Should report be sorted by sales rep:": GO,19:"Produce report on what device:":RF0:C1$"":C2$"":SF0:WG0:RD,39,CP:PF0( GO,54,14:OS,10,AS$(RF)::RF1āI12:GO,54:PL,S8,"n/a"::2620"2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$^< GO,57,18:YN$(SF0)12(WGSF)):WGĺ" (New Page)";}P ::GO,50:OS,8,SP$(CP): ES:RFH2$"":C1$"":C2$(255):4000 RF2H2$"(Cash Customers)":4000 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8):LS1:1000:450:FL,0,5,ST:FL,0,5,RTRF1RPCC:CH1:FL,0,12,D:I$(1)"CASH":I$(2)"Cash Sales":40601200:CH0:EF4300FL,0,5,T:1900:OCD(2):FCD(4)D(5)D(6):OCFCNI4050CHF%(12)LSSF4090LS0İ4500:FL,0,5,ST/WGĭLS0LNL1NL0:600LSF%(12):CPLSįRS,139LS,A$:NL4:600:SP$:OC,"Sales Representative #"(LS)": "A$:SP$:LNLN1NL3:600:LNLN2:PL,S9,I$(1),LI$(2):FL,0,5,T:T(4)OC:T(5)FC:NI4200E1NI:PIR(E)300:T%1T%6(PM%T%1)4170?BA(1):Y$"":T%1Y$"Inv""4750:T%1MA(4)A(3):CBBM:PL,B17,D8,B,2,10,D8,M,1,11,D8,CB,1,11:T(1)T(1)B:T(2)T(2)M:T(3)T(3)CB:4800:4170,T%5N%1İ4610:41706PL,B7,D8,B,2,10:4600:MA(2)3@MįBR,QR,M,#M,@K%,@T%,@N%,A3DI:20,A3DA:20:4600:4160YJENIĭXLPXL:BR,QR,P,#XL:4110iT:NT4200^I1NT:TV(I)İ4900`hP$"Customer Total:":4510:I15:TT(I):RT(I)RT(I)T:ST(I)ST(I)T:4050SFİ4500)I15:T(I)RT(I)::P$"REPORT TOTAL:":QQ$"=":CT0:4520FAC$"complete":500:570CT0:P$"Sales Rep #"(LS)" Total:":I15:T(I)ST(I):QQ$"-"T1T(4)0:T2T(5)0:SUT1T2:NL4SU(2T1T2):4700:Q$QQ$:37):910:PU,B17,S30,P$%PL,D8,T(1),2,10,D8,T(2),1,11,D8,T(3),1,11:SU4560[T1įPL,B20,S48,"Less Open Credits",D8,T(4),1,11T2įPL,B20,S48,"Plus Finance Charges",D8,T(5),1,11AT(3)T(4)T(5):P$"Net Balance Due":A0P$"Net Open Credits"69)"----------":PL,B16,S52,P$,D8,A,1,11SP$:SP$:PK1N%:CT0:4650:4700:PL,B30,S7,I$,D8,A,2,10::tK1:4650:PL,S7,I$,D8,A,2,10:*IDI(K):ADA(K):II$"OpenCr":,I0I$"FinChg":.I$"#"(Z0$(I),5):\600:TFĭCTįPL,S9,I$(1),S63,I$(2),L"Con't":NL1:600 fNNL1:CT1:4700:PU,B1,S4,Y$,B6IU:IUįOS,6,(Z0$(IU),5)hPU,YID,B1,S13,PO$:yFUIU:NTıFD,FU,NT,TV,I:I0İ4900:4810$PTR(I):TV(I)0:300:Y$"":4750:4610:KB16384:KS16368] ES$(27):SP$" ":LV4:SB128:HU100:RX16:TX400:Q$"=":Z$"ZZZZZZZZ":Z0$"0000":TL$"A/R Detail Report" RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP I$(9),T3(5),F%(13),D(12),U(5),A(4),DI(20),DA(20),T(5),ST(5),RT(5),AS$(2),SP$(1),YN$(1),L(RX)T!YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective":AS$(2)"Cash"^!FC:!FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR:BR,QR,0,#AV,#LR,#CC:!RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0!ER,107:200!XPX"(#NCįER,96:ES1:<"2#ES:340:330:SX14:NCSXSXNC:A$SP$"4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400"<#9400:I1SX:9300:R0İ9200:VSVS1">#R0ISX"@#:ES,92:24:OP,129:I1D#F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:t#P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030#Z#GO,42,7:SW,34,SX,ST:9200:9030##BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:#T$IS,N,QX,A$,R:#$IS,P,QX,A$,R: 7000 5000:5100821:80,N:XC,LV,TL$(OP)Fd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,40OP:YN,N,"Print report as shown above",N:330:N0200xNįES:2000:N1:GT,110ES103000 1::FC2 330:ES:XC,LV:MM,LV,11:RU,12 ,BR,QR,PP,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,@DD%:DDU(2)DD%:OBA(1)A(3)A(4): 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8 JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0vxyz{|}~ `A hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390X jA$""A$(DF$,1)f l310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı, vUC,A$:(A$,1)"?"İ9000:ES370I x350:GO,H,24:OS,8,A$:f 350:GO,14,13:CW,4,9:} GO,14,V:"--->": V21:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP24::470p XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS PN0:PF1:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570 0CPLNLN2:SP$:"***** LISTING CANCELLED....."5 2AC$"cancelled":500A :PO:50m X630:TFLNL1:NLĭLNNLEPLNLNNL: b900:CPĢ24:OP,130:WS,A$:A$ES$570 l650:700:NLī600 n v(KB)SBĹKS,0:(KB)(ES$)550 x CPė:FFĺ(FF):LLNOL:SP$::XPNPN1:LN8AR:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1uH3$""įOC,H3$:LNLN1L1LN:SP$:800:900 CFĺ16)"Inv Due Ending Ending Ending Ending After":"Customer Inv # Date Date";:L15:PU,B2,YDT$(L):::*DQĺ12)"Current"18)"Aged":"Customer Balance Aging / Balance Last Pd Contact / Telephone":4DFĺ"Invoice # Due Date ";:8246"Customer ID / Name "; 8" Current 1 to 30 31 to 60 61 to 90 Over 90 Balance":?X$Q$:CFĺ"======== ===== ===== =====";:924zDQįPL,X8,X$,B2,X10,X$,B2,X22,X$,B2,X9,X$,B2,X22,X$:DFĺ"========= ========";:924OX,18,Q$I1TX:PU,B1,X9,Q$::"=":SF1100cXC,LV:15:WB,40,5," Please Wait ":OP,"Reading customer list (in reverse order)":GO,30,17:"Customer ID:":19:OP,86:ES,100L(0)0:FL,0,RX,L:IS,F,QX,C2$,R:R0įIS,N,QX,ID$,R630:IS,P,QX,ID$,R:R0ID$C1$X11:X20: $GO,43,17:OS,8,ID$:BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13?.LF%(12):LRXįBW,QC,R,#RP,A$I$:9,3L(L):L(L)RI81050pLIS,F,QX,C1$,R:R0įIS,P,QX,ID$,RvVSF1400IS,N,QX,ID$,R:EFR0ID$C2$:EFı1500:ID$I$(1)5300(xX2RX2:1500:ID$I$(1):X2T3(1):X1X11:EFX1RX:EFı#X2L(X1):1400SBR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:klFL,0,6,X:NI0:PRPv630:PNIIXįSR,V,R,NI:PPP:300:T%1OB1910NTDDD:CFNNB1:N0B1CF((N1)IP):B5B5+X(B)X(B)OB:X(6)X(6)OB:NINI1:V(NI)DD10B:R(NI)PP:1910SH0:V13:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFC1$"":C2$"":2080330:N1:DF$C1$:HL4:370:ES2000C1$A$  N2:DF$C2$:HL5:370:ES2050C2$A$:AF0?(A$Z$,8)C1$C2$C1$:C1$A$I 26004V17:392:330:HL,6:YN,SF0,"Do you want to sort the report by sales representative",N:390:N02000>SFN:NWG0:2200Af392:330:HL,7:YN,WG0,"Do you want to start a new page for each sales representative",N:390:N02100JpWGNr2600:V19:392:330:GT,2200OP10"What type of aging report? ";:HL,44:KW,DS$(0),DS$(1),2DF,N:390:N02100DFN1:2300G"Enter the number of days in each time period (1-99): ";:XY,H:IP;:GO,H:HL,45:NI,2,S,N:390:S32100ZS2NIP:S0SN1N99įER,"INVALID NUMBER OF DAYS, must be 1 to 99":2200IPN:2300HL,S:GO,60,15:WB,18,4," Criteria ":I14:GO,61:I". "AG$(I):U330:"Select delinquency. ";:OP,121:NAG:HL,46:PI,64,15,14,4,N,S:HL,R:390:S02100^AGNv2600:400:ES2200` 2600 GO,19,13:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:":E GO,19:"Should report be sorted by sales rep:"::GO,19:Q$(OP)": ";:XY,HQ GO,19,21:"Produce report on what device:":AF1:C1$"":C2$"":SF0:WG0:DF1:IP7:AG1:RD,39,CP:PF0( GO,54,13:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::26202 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$[< GO,57,17:YN$(SF0)12(WGSF)):WGĺ" (New Page)";xF GO,HQ,19:GS,270010OPP GO,50,21:OS,8,SP$(CP): OS,8,DS$(DF): IP" ": OS,12,AG$(AG): ES:AFH2$"":C1$"":C2$(255):32008 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8)j H3$"":HU$HD$(OP):ARDFHU$"SUMMARY "HU$ DQHU$HU$", "AG$(AG):AG4HU$HU$" OR MORE" UC,HU$ B127CF:S182CF:S26343CF:B38CF:TX6CF ARDF1 CFIP30:4000;H DDTD:I14:DDDDIP:FJ,DD,DT$(I)::FJ,DD,DT$(5)fLS1:1000:450:FL,0,8,ST:FL,0,8,RTy1200:EF43001900:OCD(2):FCD(4)D(5)D(6):OCFCNI4050DQİ4700:OK4050F%(12)LSSF4100LS0İ4500:FL,0,8,STWGĭLS0LNL1NL0:600LSF%(12):CPLSįRS,139LS,A$:NL4:600:SP$:OC,"Sales Representative #"(LS)": "A$:SP$:LNLN1I16:T(I)X(I)::T(7)OC:T(8)FC:DQİ4720:4050NL1:600:PL,S9,I$(1),LI$(2):NIDF4200E1NI:PPR(E):300:OB4160,"I$(Z0$(U(1)),5):4630a,NL1:CC1:4650:PU,BB1,SS1,I$:CFįOY,DD:4150x.PU,YU(2),B1,YDD6PU,B10(B1),BCF(B5),D8,OB,2,10:CFįPU,B10(5B),D8,OB,1,118@hI18:TT(I):ST(I)ST(I)T:RT(I)RT(I)T::P$"Customer Total:":CC1:4510#40500DQ4350>SFİ4500zI18:T(I)RT(I)::P$"REPORT TOTAL:":T$Q$:CC0:4520AC$"complete":500:570CC0:P$"Sales Rep #"(LS)":":I18:T(I)ST(I):SB,DF,"-",T$DQıQ PTAR(T(6)0):T1T(7)0:T2T(8)0:SUT1T2:NL2PT(T$"")CFSU(2T1T2):4650:T$""İ4610 PU,B3,S15B3,P$:X0:LCTX:I1LC:NT(I):4560:::4600:SU4550 T1įPL,B5,SS2,"Less Open Credits",D8,T(7),1,11!T2įPL,B5,SS2,"Plus Finance Charges",D8,T(8),1,11!CFİ4610:4550^!AT(6)T(7)T(8):P$"Net Balance Due":A0P$"Net Open Credits"!69)"----------":PL,B3,S65,P$,D8,A,1,11!CFįPU,B5,SS21,"Cumulative":N(SU)T(1)T(7)T(8):X0:PU,B10SU:LC5:I1SULC:NNT(I):4560::"SP$:."PU,BILC,D8,N,2X,10X(N0):XN0:f"PTĺ18):I15:PU,D8,TTT(I)T(6)5,2,9,L"%"::l""18B3):K1TX:PU,B1,X9,T$::T$:"BV(E):BB10(B10):"*600:TFĭCCįPL,S9DQ,I$(1),S62DQ,I$(2),L"Con't":NL1:600"46#\NOC:I511:NX(I)X(I)N:N0:X(I)0NX(I):X(I)0<#^n#fOK0:NGOC0:I15:BX(I):BNGNG1:OKIAGv#h:#pXL12CP:NL3:NG2NLNG1#rNLNLXL:600:LNLNXLTF:TFĺSP$:CPX$"-":910:SP$#zI1:PL,S10,I$(1),LI$(2)6$PU,B9,D0,T(6)OCFC:4900:10D(10)):D(10)įOD,8,D(10),2,10H$PL,B2,LI$(9)z$21):4900:10D(11)):D(11)įPU,B2,YD(11)$PL,L" (",S3,I$(7),L") ",L(I$(8),3),L"-",L(I$(8),4)$NG2āN3NG:21):4900::$NIıs%NL4:CC1:4650:LNLN1:SP$:30)"Inv # Due Date Reference Balance Comments":30)"----- -------- ------------ --------- ----------"%LB0:E1NI:4630:B24850%PPR(E):300:OB4850%A$"":BLBA$AG$(B1)":":LBNL1:4650:SP$>&LBB:NL1:4650:PL,B15,S15,A$,D8,U(1)HU,4,5,B1,YDD,B1,S12,PO$,D8,OB,2,10,B1,X10,"_"F&:Z&$II1:I54950j&.T(I)4900&8PU,B1,S12,AG$(I1)":",D8,T(I),2,10,B1:&VOCĺ23):&`PU,B1,L"Open Credits",D8,OC,2,10,B1:&&KB16384:KS16368V'ES$(27):SP$" ":LV4:SB128:HU100:TT1E4:E51E5:RX16:IX250:Q$"=":Z$"ZZZZZZZZ":Z0$"0000"'RS,0,A$:DT,A$,TD:RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,OP:OP1OP3OP1'AROP1:CFOP2:DQOP3V(I$(9),T3(5),F%(13),D(12),U(5),A(4),DD(23),X(8),T(8),ST(8),RT(8),TL$(3),HD$(3),Q$(3),AG$(4),AS$(1),SP$(1),YN$(1),DS$(1),L(RX),V(IX),R(IX)(YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective":DS$(0)"Detailed":DS$(1)"Summary"(I04:AG$(I):)I13:TL$(I),HD$(I),Q$(I):)FC:X)FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR:)RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0)ER,107:200)XPX)(#NCįER,96:ES1:)2#ES:340:330:SX14:NCSXSXNC:A$SP$=*4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400h*<#9400:I1SX:9300:R0İ9200:VSVS1w*>#R0ISX*@#:ES,92:24:OP,129:I1*F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:+P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030?+Z#GO,42,7:SW,34,SX,ST:9200:9030v+#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:+T$IS,N,QX,A$,R:+$IS,P,QX,A$,R:+'" Current"," 1-30 days","31-60 days","61-90 days","Over 90 days"=,*"A/R Aging Report","ACCOUNTS RECEIVABLE AGING REPORT","Detailed or summary aging",+"A/R Cash Flow Report","ACCOUNTS RECEIVABLE CASH FLOW REPORT","Length if each time period, in days", +"Delinquent Accounts Report","DELINQUENT ACCOUNTS REPORT","Delinquency criteria" 7000 5000:5100421:80,N:XC,LV,TL$Bd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,40:YN,N,"Print report as shown above",N:330:N0200xNįES:2000:N1:GT,110ES103000 1::FC+ 330:ES:XC,LV:MM,LV,11:RU,12Z 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310` 8s JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 ` hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:390z r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: 350:GO,14,14:CW,4,8: GO,14,V:"--->":g V20:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PSO HU$"ACCOUNTS RECEIVABLE OPEN INVOICE REPORT":PN0:PF1:700i 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570 0CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500 :PO:509 X630:TFLNL1:NLĭLNNLEPLNLNNL:g b900:CPĢ24:OP,130:WS,A$:A$ES$570~ l650:700:NLī600 n v(KB)SBĹKS,0:(KB)(ES$)550 x CPė: FFĺ(FF): LLNOL:SP$::!PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1>H3$""įOC,H3$:LNLN1WL1LN:SP$:800:900 27)"Due Disc Month Beg Discounts M-T-D Current":" Inv # Date Reference Date Date Balance Taken Activity Balance":Q$"=":"====== ===== ============ ===== =====";OPL,B1,X9,Q$,B1,X9,Q$,B1,X10,Q$,B1,X10,Q$:]SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading customer list (in reverse order)":GO,30,17:"Customer ID:":19:OP,86:ES,100L(0)0:FL,0,RX,L:IS,F,QX,C2$,R:R0įIS,N,QX,ID$,RP630:IS,P,QX,ID$,R:R0ID$C1$S11:S20:$GO,43,17:OS,8,ID$:BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13.LF%(12):LRXįBW,QC,R,#RP,A$I$:9,3L(L):L(L)R81050LIS,F,QX,C1$,R:R0įIS,P,QX,ID$,RVSF1400-IS,N,QX,ID$,R:EFR0ID$C2$:EFıH1500:ID$I$(1)5300N(vxS2RS2:1500:ID$I$(1):S2T3(1):S1S11:EFS1RX:EFıS2L(S1):1400BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:lNI0:PRPv630:PįSR,V,R,NI:QPPP:BR,QR,PP,#P,@K%,@T%,@S%,$PO$,3I,3ID:T%1ĭNIIXNINI1:V(NI)ID:R(NI)PP[1910SH0:V14:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFC1$"":C2$"":2080330:N1:DF$C1$:HL4:370:ES2000C1$A$< N2:DF$C2$:HL5:370:ES2050LC2$A$:AF0o(A$Z$,8)C1$C2$C1$:C1$A$y 26004V18:392:330:HL,6:YN,SF0,"Do you want to sort the report by sales representative",N:390:N02000>SFN:NWG0:2200qf392:330:HL,7:YN,WG0,"Do you want to start a new page for each sales representative",N:390:N02100zpWGN2600:400:ES2100` 2600 GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:":L GO,19:"Should report be sorted by sales rep:": GO,19:"Produce report on what device:":AF1:C1$"":C2$"":SF0:WG0:RD,39,CP:PF0( GO,54,14:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::26202 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$P< GO,57,18:YN$(SF0)12(WGSF)):WGĺ" (New Page)";oP ::GO,50:OS,8,SP$(CP): ES:AFH2$"":C1$"":C2$(255):3200 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8) H3$""LS1:1000:450:FL,0,6,ST:FL,0,6,RT"1200:EF4300X1900:OCD(2):FCD(4)D(5)D(6):OCFCNI4050pF%(12)LSSF4100LS0İ4500:FL,0,6,STWGĭLS0LNL1NL0:600LSF%(12):CPLSįRS,139LS,A$:NL4:600:SP$:OC,"Sales Representative #"(LS)": "A$:SP$:LNLN1[NL1:600:PL,S9,I$(1),LI$(2):FL,0,6,T:T(5)OC:T(6)FC:NI4200nE1NI:PR(E)BR,QR,P,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,@DD%,@SD%,@PP%,@PM%:T%14160"IDU(2):BA(1):MA(4):DA(3):CBBMD:DDIDDD%:SDIDSD%:I$(Z0$(U(1)),5):CB4160l,NL1:CC1:4700:PU,B1,S6,I$,YID,B1,S13,PO$,YDD,B15SD%:SD%įOY,SD6PL,D8,B,2,10,D8,D,2,10,D8,M,1,11,D8,CB,1,11:T(1)T(1)B:T(2)T(2)D:T(3)T(3)M:T(4)T(4)CB@$hP$"Customer Total:":CC1:4510:I16:TT(I):ST(I)ST(I)T:RT(I)RT(I)T:.r4050<SFİ4500zI16:T(I)RT(I)::P$"REPORT TOTAL:":QQ$"=":CC0:4520AC$"complete":500:570CC0:P$"Sales Rep #"(LS)" Total:":I16:T(I)ST(I):QQ$"-"=T1T(5)0:T2T(6)0:SUT1T2:NL4SU(2T1T2):4700:Q$QQ$:37):950:PU,B17,S20,P$PL,D8,T(1),2,10,D8,T(2),2,10,D8,T(3),1,11,D8,T(4),1,11:SU4550T1įPL,B20,S48,"Less Open Credits",D8,T(5),1,11T2įPL,B20,S48,"Plus Finance Charges",D8,T(6),1,116AT(4)T(5)T(6):P$"Net Balance Due":A0P$"Net Open Credits"e69)"----------":PL,B17,S51,P$,D8,A,1,11uSP$:SP$:\600:TFĭCCįPL,S9,I$(1),S62,I$(2),L"Con't":NL1:600fKB16384:KS16368HES$(27):SP$" ":LV4:SB128:HU100:RX16:IX250:Q$"=":Z$"ZZZZZZZZ":Z0$"0000":TL$"A/R Open Invoice Report"{RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,OPI$(9),T3(5),F%(13),D(12),U(5),A(4),DD(23),T(6),ST(6),RT(6),AS$(1),SP$(1),YN$(1),L(RX),V(IX),R(IX)@YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective"JFC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR:RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0ER,107:200XPX(#NCįER,96:ES1:2#ES:340:330:SX14:NCSXSXNC:A$SP$o4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400<#9400:I1SX:9300:R0İ9200:VSVS1>#R0ISX@#:ES,92:24:OP,129:I1 F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:K P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030q Z#GO,42,7:SW,34,SX,ST:9200:9030 #BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$: T$IS,N,QX,A$,R: $IS,P,QX,A$,R: 7000 5000:5100921:80,N:LV4:XC,LV,TL$Kd2700:ES200xnXC,LV,"Analysis, by "ST$(OP):2500:N0xES,TL$:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,56:YN,N,"Print report as shown above",N:330:N050 Nİ2000:N1:GT,12010ES5 DQĆV(IX),L(IX):DQ1? 3000E R 1::FCx 330:ES:XC,LV:MM,LV,11:RU,12 ,CMPM%:UST1CM:AM(T2T3T6)CM:AMAMAMD(1)0:AS1:T3AS1 . 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8 JGO,1,24:CL:% TSHįHL,S:SH1+ V> ^SHįHL,R:SH0D `} hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12B tGO,H:OX,8,FC$:GO,H:S8:360:ESıh vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: |PPP:BR,QR,P,#XR,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3D:23,@DD%,@SD%,@PP%,@PM%:PXR:TT%:OKT7:SS%:SRXS0 ~ 350:GO,16,16:CW,4,6:- GO,16,V:"--->":y VVC:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP24::470 XC,LV:17:WB,32,3," Please Wait ":OP,101:19:OP,86:ES,100:OLLP:EPOL6:PW,PSn A$(ST$(OP),1):UC,A$:HU$"SALES ANALYSIS REPORT, by "A$:PF1:PN0:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF5700CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500,:PO:50XX630:TPLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NLī600nv(KB)SBĹKS,0:(KB)(ES$)550xCPė:FFĺ(FF):LLNOL:SP$::@PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1YL1LN:SP$:800:900 22T2)"Invoice Misc, Tax,"*T1)T1$" Date PO Number Subtotal Discounts & Freight Total":T1)T2$" ===== ============";:Q$"="0PL,B1,X10,Q$,B1,X10,Q$,B1,X10,Q$,B1,X10,Q$:P0:ED0:FL,0,RX,B:FL,0,RX,E:FL,0,RX,MA:FL,0,RX,AD:B(0)0:E(0)0:MA(0)0:AD(0)0:BCıXC,LV:17:WB,34,3," Please Wait ":GO,30,17:"Customer ID:":19:OP,86:ES,1001500:EDıUSİ1700T1MA(S)MA(S)A(4):AMAD(S)AD(S)ASA(1)D$1020QBS1400`S101350AD0:PY0:S20:1550:EDı(630:P1340*380:OK13202300:CMĭPP%T5PYPYA(1)4AMADADASA(1)6USĭS2IXS2S21:V(S2)U(2):L(S2)PP81320<S213002>SR,V,L,S2:S10PFS1S11:S1S2S10:1300aPPL(S1):380}xS2PS2:380:S2U(4):S1S11:EDS1RX:EDıS2B(S1):1400630:Pİ1550:EDıP1500380:OK1500300CFPCC:ID$"CASH":CF0:R0:1580%RF2ED1:KIS,N,QX,A$,R:R0A$C2$ED1:n"BR,QC,R,#P,$ID$:A$ID$5400,BSįGO,43,17:OS,8,ID$6SRĭSRSıRPPP:U(4)0:1850:B(S)B(S)PP:E(S)PP:RPE(S):1800:U(4)PP:1850:E(S)PP:R$"BR"3@R$,QR,RP,#XR,@K%,@T%,@S%,$PO$,A3U:4:E:R$"BW":1820aV16:392:SH0:BS2100330:"Include which customers? ";:HL,47:KW,AS$(0),AS$(1),AS$(2),RF1,N:390:ESN0:ESıN2RFN1:C1$"":C2$"":2080 N2RFN1:C1$"":C2$"":20804330:N1:DF$C1$:HL4:370:ES2000?C1$A$b N2:DF$C2$:HL5:370:ES2050RF1:C2$A$:(A$Z$,8)C1$C2$C1$:C1$A$ 2600:2200,4340:GO,46,5:WB,30,RX1," Sales Reps ":GO,1,23:OX,80,"_":GO,46,5:" All Sales Reps":I1RX:GO,46:PL,I2,I,L". ",S24,SSI:>330:"Select sales rep. ";:OP,121:NSR1:HL,57:PI,50,5,26,RX1,N,ST:350:390:330:ST0ı(HN1įRS,SSN1,A$:(A$,1)SP$įHL,58:ER,"SALES REP # "(N1)" IS NOT DEFINED","OK to print sales analysis for this sales rep",I:I021003RSRN1P390:2600:400:ES2000Z2600 GO,21,16:BCĺ"Range of customers to be included:":GO,34:"Starting Customer ID:":GO,36:"Ending Customer ID:": BSĺ"Include which sales reps:":GO,31:"Sales rep name:":g GO,21:"Produce report on what device:":RF0:C1$"":C2$"":SR0:RD,39,CP:PF0t( BC26202 GO,47,16:SRĺ"All":GO,47:OS,22,"n/a":26304 "#"SR" ":GO,47:OS,22,SSSR:2630< GO,56,16:OS,10,AS$(RF)::RF1āI12:GO,56:PL,S8,"n/a"::2630@> GO,56:PL,S8,C1$:GO,56:OS,8,C2$^F GO,52,VC:OS,8,SP$(CP): N1:OP0:XC,LV:HL,55:MS,LV,2,OP$,1,2,1,OP:ESOP0:ESı BCOP1:BSBC:LVLV1:VC19BC: BCT1$"Inv # Rep":T2$"===== ===" BST1$"Customer Inv #":T2$"======== ====="8 T113BC:T2T1(T2$)w CFRF1:RFH2$"":IS,F,QX,"",R:C1$"":C2$(255):4000& CFH2$"(Cash Customers)":40000 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8):IS,F,QX,C1$,R:R0įIS,P,QX,A$,R9FL,0,11,RT:1000:450:ED0:S11:S20:LS1:LC1:RT0L1200:ED4200jNWU(5)LC:NH0:BS4150NHNW:NWİ4600:T(10)AD:T(11)PY:4800:H$ID$" / "CN$"41806NWİ4800@NHSLS:NH4180J4600:LSS:TP0:SH$"Unspecified Sales Representative"PLSįRS,SSS,H$:H$"Sales Representative #"(S)": "H$eTNHTP$"":4920u^4700:4100h4600:I111:T(I)RT(I)::P$"REPORT TOTAL:":RT1:X$"=":4510AC$"complete":500:570X$"-" NL3:I511:NLNL(T(I)0)::4900e19T2):Q$X$:910:PL,BT2,S19,P$,D8,T(1),1,11,D8,T(2),1,11,D8,T(3),1,11,D8,T(4),1,11I15:XT(I4):X0įPL,BT24,S37,MF$(I)" Total",D0,T(I4)T(10)0įPL,BT24,S48,"Adjustments this month",D8,T(10),1,110T(11)0įPL,BT24,S48,"Payments this month",D8,T(11),1,11VSP$:I111:RT(I)RT(I)T(I)::P$"":BCĭLC0P$"Customer Total:"BSĭLS0P$"Sales Rep Total":T(10)AD(LS):T(11)AD(LS)MA(LS) P$""İ4500FL,0,11,T:\NL1:4900}fX(1)D(23):X(2)D(18):X(3)D(17)D(19)D(20)D(21)D(22):X(4)A(1):T(5)T(5)D(17):I69:T(I)T(I)D(13I)::A$(Z0$(U(1)),5)pBSįPU,BT1,S9,CI$,S6,A$:CI$""zBCįPU,BT1,S6,A$,B4S:SįPU,I3,S,B1 PU,YU(2),B1,S12,PO$:I14:OD,8,X(I),1,11:T(I)T(I)X(I):::C LCU(5):LCID$"CASH":CN$"Cash Customers"b LCįBR,QC,LC,#P,$ID$,$CN$p CI$ID$: $600:TPRTı .TP$"Con't" 8NL2:600:H$;:TP$""įPU,B74T1(H$),LTP$ B:SP$:CI$ID$: ?!KB16384:KS16368:ES$(27):SP$" ":Z$"ZZZZZZZZ":Z0$"0000":TL$"Sales Analysis Reports"e!SB128:HU100:IX500:RX16:SS139!RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP!ST$(2),OP$(2),B(RX),E(RX),MA(RX),AD(RX),U(5),A(4),D(23),X(11),T(11),RT(11),MF$(5),AS$(2),SP$(1)"ST$(1)"Customer":ST$(2)"Sales Rep":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective":AS$(2)"Cash":MF$(1)"Misc. Charges":MF$(5)"Freight Charges""I24:RS,154I,A$:MF$(I)"Sales Tax #"(I1)" ("A$")":#I12:OP$(I)"Print Sales Analysis Report by "ST$(I):$#FC:w#FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC:FO,16,QR:BR,QR,0,#AV,#LR,#CC:#N1:BW,QC,0,#NC,#N:KP:PFCPįPW,0#"ER,107:200#XPX#(#NCįER,96:ES1:#2#ES:340:330:SX14:NCSXSXNC:A$SP$Z$4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400$<#9400:I1SX:9300:R0İ9200:VSVS1$>#R0ISX$@#:ES,92:24:OP,129:I1%F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:6%P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030\%Z#GO,42,7:SW,34,SX,ST:9200:9030%#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:%T$IS,N,QX,A$,R:%$IS,P,QX,A$,R: 7000 5000:5100A21:80,N:XC,LV,"Print "TL$(OP)Od2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,9OP:YN,N,"Print report as shown above",N:330:N0200xNįES:2000:N1:GT,110ES10 3000  1::FC: 330:ES:XC,LV:MM,LV,11:RU,12i 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310o 8 JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 ` hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:390 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12 tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: 350:GO,14,V0:CW,4,22V0:. GO,14,V:"--->":} V20CL:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: SD,39,CP:CPEP24::470$ XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PSP HU$(TL$(OP),1):UC,HU$:PN0:PF1:700j 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570 0CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500 :PO:50: X630:TFLNL1:NLĭLNNLEPLNLNNL:h b900:CPĢ24:OP,130:WS,A$:A$ES$570 l650:700:NLī600 n v(KB)SBĹKS,0:(KB)(ES$)550 x CPė: FFĺ(FF): LLNOL:SP$::"PNPN1:LN7:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1?H3$""įOC,H3$:LNLN1XL1LN:SP$:800:900 OCĺ"Customer Name / Contact Telephone No. Balance Fin Chrgs Op Credits":*CLĺ"Customer Balance Limit Available % Used High Bal Last Pd Amount Pd":]4"Customer Name/Contact/Telephone Acc'nt Information Comments":OCĺ"======== ====================== ============== ========= ========= ==========":CLĺ"======== ========== ========== ========== ======= ========== ======== =========":n"======== ====================== ================== ============================":|SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading customer list (in reverse order)":GO,30,17:"Customer ID:":19:OP,86:ES,100<L(0)0:FL,0,RX,L:IS,F,QX,C2$,R:R0įIS,N,QX,ID$,Ro630:IS,P,QX,ID$,R:R0ID$C1$S11:S20:$GO,43,17:OS,8,ID$:BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13.LF%(12):LRXįBW,QC,R,#RP,A$I$:9,3L(L):L(L)R81050LIS,F,QX,C1$,R:R0įIS,P,QX,ID$,RV#SF1400LIS,N,QX,ID$,R:EFR0ID$C2$:EFıg1500:ID$I$(1)5300m(xS2RS2:1500:ID$I$(1):S2T3(1):S1S11:EFS1RX:EFıS2L(S1):1400BR,QC,R,#RP,A$I$:9,A3T3:5,A@F%:13,A#D:12:[SH0:VV0:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı~AFN1:AFC1$"":C2$"":2080330:N1:DF$C1$:HL4:370:ES2000C1$A$ N2:DF$C2$:HL5:370:ES2050C2$A$:AF0(A$Z$,8)C1$C2$C1$:C1$A$ 26004VV04:392:330:HL,6:YN,SF0,"Do you want to sort the report by sales representative",N:390:N02000>SFN:NWG0:2200 f392:330:HL,7:YN,WG0,"Do you want to start a new page for each sales representative",N:390:N02100pWGN(2600:CL2300VV06:392:330:HL,13:YN,MP0,"Do you want to select customers based on % of credit used",N:390:N02100NMP0:2300330:"Enter minimum % of credit used: ";:XY,H:MPįOD,8,MPHU,6,6 GO,H:HL,14:NI,6,ST,N:N322005ST2NMP:ST0ST0N0N1000įER,"INVALID PERCENTAGE, must be .01 to 999.99":2250MPN2600:400:ESįGT,2100100CL` 2600, GO,19,V0:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:": GO,19:"Should report be sorted by sales rep:":CLĺ:GO,19:"Select based on % of credit used:" :GO,19:"Produce report on what device:":AF1:C1$"":C2$"":SF0:WG0:MP0:RD,39,CP:PF09( GO,54,V0:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::2620a2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$< GO,57,V04:YN$(SF0)12(WGSF)):WGĺ" (New Page)";F CLĺ::GO,53:YN$(MP0)12MP):MPįPU,L", >",D8,MPHU,6,6,L"%"P ::GO,50:OS,8,SP$(CP):1 ES:AFH2$"":C1$"":C2$(255):3200p H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8) H3$"":CLMPH3$"(Customers at or above "(MP)"% of their credit limit)"LS1:1000:4501200:EF4400)FCD(4)D(5)D(6):ARD(1)D(2)FC:GS,4000100OP:OK4050AF%(12)LSSF4090aWGĭLS0LNL1NL0:600LSF%(12):CPLSįRS,139LS,A$:NL4:600:SP$:OC,"Sales Representative #"(LS)": "A$:SP$:LNLN1GT,4010100OPOKD(2)0:XNL3:600:SP$:PU,S9,ID$,S23,I$(2):4800:PU,D8,D(1),2,10,D8,FC,2,10,D8,D(2),1,11:ARD(2)ĺ"**";r:PL,B9,LI$(9):4050hLMD(7):AVLMAR:AV0AV0jPU0:LMPUHUARLM:PU0PU0lOKMPPUMP:$rNL2:600:SP$:PU,S8,ID$,D8,AR,1,11,D8,LM,1,11,D8,AV,1,11,B8LM:LMįOD,8,HUPU,4,8V|OD,8,D(9),1,11:4700:D(10)įOD,8,D(10),2,10b:4050pOKAR0:NL5:600:SP$:PL,S9,ID$,S23,I$(2),L"Balance:",D8,AR,2,10,B1,X28,"_"PL,B9,S23,I$(9),L"Highest:",D8,D(9),2,108PU,B11,L"Tel: ":4800:PU,L" Last Pd:",B10D(10):D(10)įOD,8,D(10),2,10mPL,B1,X28,"_":PU,B32,L"Date Pd:":4700::40500AC$"complete":500:570\D(11)įPU,B1,YD(11):f9);:PU,L"(",S3,I$(7),L") ",S3,I$(8),L"-",S4,(I$(8),4): KB16384:KS16368aES$(27):SP$" ":LV4:SB128:HU100:RX16:Q$"=":Z$"ZZZZZZZZ":SS$" "RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,OP:OCOP1:CLOP2:WSOP3:V014CLTL$(3),I$(9),T3(5),F%(13),D(12),AS$(1),SP$(1),YN$(1),L(RX)TL$(1)"Open Credit Report":TL$(2)"Credit Limit Report":TL$(3)"Customer Worksheet":YN$(0)"No":YN$(1)"Yes":SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective"FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC: RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0% ER,107:200- XPXE (#NCįER,96:ES1:q 2#ES:340:330:SX14:NCSXSXNC:A$SP$ 4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400 <#9400:I1SX:9300:R0İ9200:VSVS1!>#R0ISX%!@#:ES,92:24:OP,129:I1y!F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:!P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030!Z#GO,42,7:SW,34,SX,ST:9200:9030"#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:"T$IS,N,QX,A$,R:."$IS,P,QX,A$,R: 7000 5000:5100921:80,N:LV4:XC,LV,TL$Kd2700:ES200snXC,LV,T$(OP)" Register":2500:N0xES,TL$:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,49OP:YN,N,"Print report as shown above",N:330:N050 NįES:2000:N1:GT,120ES10- NSDM150 XC,LV:BL:GO,20,17:WB,52,3," Warning ":"There is insufficient room on your disk to sort the":GO,20:"Accounts Receivable register in date order, however,":GO,20:"you may still list the register."J 330:HL,54:YN,"OK to list the A/R register without sorting",N:N050 DQĆV(PZ),L(PZ),PV(PX),PL(PX),PK(PX),PX(PX):DQ1 3000 1::FC:FX,199 330:ES:XC,LV:MM,LV,11:RU,12 ,RVSZ(PG1)X1: 6A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):310 8+ JGO,1,24:CL:? TSHįHL,S:SH1E VX ^SHįHL,R:SH0^ ` hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:3902 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12\ tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: |BR,QR,P,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3I:11,A3D:12,@DD%,@SD%,@PP%,@PM% ~IROKT%1 CROK(T%1PP%)T%53 AJOKT%2T%3T%6D OKOKPM%:a 350:GO,16,17:CW,4,5:x GO,16,V:"--->": VVC:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2:SD,39,CP:CPEP24::470kXC,LV:17:WB,32,3," Please Wait ":OP,101:19:OP,86:ES,100:OLLP:EPOL6:PW,PSHU$"ACCOUNTS RECEIVABLE "M$(DM)T$(OP)" REGISTER":UC,HU$:PF1:PN0:700900:CPİ650:PW,0:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570U0CPLNLN2:SP$:"***** LISTING CANCELLED....."n2AC$"cancelled":500z:PO:50X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NLī600nv(KB)SBĹKS,0:(KB)(ES$)550x+CPė:<FFĺ(FF):RLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900Y IRĺ19)"Inv"16)"Invoice Misc Total Sales Freight":"Inv # Customer SR Date PO Number Total Charges Discount Tax Charges":*CRĺ41)"----- D I S T R I B U T I O N -----":"Txn Ref # Customer Date Amount Inv # Amount Inv # Amount":&49)"Ref # Transaction Customer SR Date Amount Applied to":\IRĺQ1$" == ====="Q4$"=="Q3$Q2$"="Q3$Q2$"="Q3$:CRĺ"=== "Q1$Q3$Q4$"= "Q2$Q4$Q2$Q4$:9)Q1$"==="Q3$" =="Q3$Q4$Q4$"==":UX1IRDM:PDKDM:P11:EF0:NP0:N0:AM0:NSAM3:dXC,LV:SB,DM,"Customer ID:",DM,"Reference No:",P$:17:WB,34,3," Please Wait ":GO,30,17:P$:19:OP,86:ES,100w1500:EF1050NPZİ1100:N0NN1:V(N)U(UX):L(N)RKMPP:1020Nİ1100$NEN:AM1(NP1):P10:N0:LSR,V,L,N:NPĭNPZı2VNPNP1:PV(NP)V(1):PL(NP)L(1):PC(NP)1:PX(NP)N_`PGNP:X1:300:BW,QT,RV,A#V:PZ,A#L:PZ:sGT,1200100AMNN1:EFNNE:EFıPL(N):1450xSM,NP,PV,PG:EFPV(PG)VX:EFıPPL(PG):XPC(PG)1:PC(PG)X:XPX(PG)PV(PG)VX:1450,300:BR,QT,RV,#PV(PG):BR,QT,RVPZ,#PL(PG)cR(PKM):PPRKM:ID$"CASH":RįBR,QC,R,#PP,$ID${PPP:630:DM1600P1ĭP1550380:PPLROKı1500CFPCC:ID$"CASH":CF0:1580RF2EF1:IS,N,QX,A$,R:R0A$C2$EF1:)"BR,QC,R,#P,$ID$:A$ID$5400F,AMįGO,43,17:OS,8,ID$P61500c@P1ĭPEF1:J380:PU(3):RU(5):AMįGO,45,17:OD,8,U(1)HU,4,5TOK1500^AMID$"CASH":RįBR,QC,R,#PT,$ID$rSH0:DM2100LV17:392:330:"Include which customers? ";:AJįHL,41:KW,AS$(0),AS$(1),RF(RF2),N:2030wHL,47:KW,AS$(0),AS$(1),AS$(2),RF1,N390:ESN0:ESıN2RFN1:C1$"":C2$"":2080330:N1:DF$C1$:HL4:370:ES2000C1$A$ N2:DF$C2$:HL5:370:ES20507RF1:C2$A$:(A$Z$,8)C1$C2$C1$:C1$A$A 2600\42600:400:ESDM2000f2600  GO,21,15:"Type of report selected: "M$(DM)::DMįGO,21:"Range of customers to be included:":GO,34:"Starting Customer ID:":GO,36:"Ending Customer ID:":Z GO,21:"Produce report on what device:":RF0:C1$"":C2$"":RD,39,CP:PF0h( DM26302 GO,56,17:OS,10,AS$(RF)::RF1āI12:GO,56:PL,S8,"n/a"::2630< GO,56:PL,S8,C1$:GO,56:PL,S8,C2$F GO,52,VC:OS,8,SP$(CP):9 N1:OP0:XC,LV:HL,49:MS,LV,6,4,OP$,0,1,1,OP:ESOP0:ESı~ DMOP4:OPOP3DM:IROP1:CROP2:AJOP3:LVLV1:VC174DM: ES:CFRF1AJ:RFH2$"":IS,F,QX,"",R:C1$"":C2$(255):4000 RF2H2$"(Cash Customers)":4000M H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8):IS,F,QX,C1$,R:R0įIS,P,QX,A$,RlLS1:1000:450:FL,0,8,T1200:EF4400GT,4000100OPNL1:600:D(7)D(7):PU,S6,(Z0$(U(1)),5),S9,ID$,B2S%:S%įOI,2,S%DPL,B1,YU(2),B1,S12,PO$,D8,A(1),3,9,D8,D(6),4,8,D8,D(7),3,9,D8,D(8)D(9)D(10),4,8,D8,D(11),3,9wI27:T(I)T(I)D(4I)::T(1)T(1)A(1):4050hAA(1):LA(2):T(1)T(1)A:I$"Pay":T%5I$"Inv":L0rNL1:600:PU,S4,I$,S6,(Z0$(U(1)),5),S9,ID$,YU(2),B1,D0,A,B1|C1:EL0:T%54250Lĺ:4260HBR,QR,L,#L,@K%,@T%,@S%,A3I:20,A3D:20pJ1S%:II(J):AD(J):4600::4230ELNL1:600:SP$4050TT%12(T%6):AA(1):T2AAII(1):RF$"":U(1)RF$(Z0$(U(1)),5)I0A$"Finance Chgs"IA$"Open Credits";I0A$"Inv #"(Z0$(I),5)NL1:600:PU,B9,S6,RF$,S12,Y$(T),S9,ID$,B3S%:S%įPU,I2,S%,B1PL,YU(2),D0,A,LA$T(T)T(T)A:40500P$"REPORT TOTAL:":4500bAC$"complete":500:570GT,450010OPXNL3:T0:I46:TTT(I):NLNL(T(I)0)::600:36)Q3$Q2$"="Q3$Q2$"="Q3$:PU,B17,S19,P$PL,D8,T(1),3,9,D8,T(2),4,8,D8,T(3),3,9,D8,T,4,8,D8,T(7),3,9I46:T(I)0įPL,B20,L"Sales Tax #",I1,I3,L" (",S4,152I,S21,")",D0,T(I):SP$:3 NL3:600:PL,B28,X11,"=":PL,B11,S17,P$,D0,T(1):SP$: NL5:600:PL,B48,X10,"=":I13:PL,B17,S16,P$,S14,Y$(I)"s",D0,T(I):P$""::SP$: C2ĺ:NL1:600:41):C1:EL1 IA$"OpenCr":4620 I0A$"FinChg":4620 A$"#"(Z0$(I),5)! PU,S6,A$,D0,A:CC1:!7!KB16384:KS16368!ES$(27):SP$" ":Z$"ZZZZZZZZ":Z0$"0000":TL$"Transaction Registers":Q1$"===== ========":Q2$" ======":Q3$Q2$"==":Q4$Q3$"=="!SB128:HU100:PZ500:SZ2PZ:VX1E20("RS,2,FC$:RD,0,RM:RD,1,PS:RD,2,FF:RD,3,LP:RD,14RM,FYo"OP$(6),U(5),A(4),I(20),D(20),T(8),AS$(2),SP$(1),Y$(3),T$(3),M$(1)"SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective":AS$(2)"Cash":M$(0)"Monthly ":M$(1)"Daily "Y#Y$(1)"Credit Memo":Y$(2)"Debit Memo":Y$(3)"Apply O/C":T$(1)"Invoice":T$(2)"Cash Receipts":T$(3)"Adjustments"#I13:M01:OP$(I3M)"Print "M$(M)T$(I)" Register"::#FC:$FO,14,QX:IS,O,QX,NK,ND:FO,15,QC:BR,QC,0,#NC:FO,16,QR:BR,QR,0,#AV,#LR,#CC,#DK:KMLR1:FO,199,QT,5U$OL,FY,A$,A,N:PX1((LR1)PZ):N5SZPX:N(N512)2:NSNA:$RB1:BW,QC,0,#NC,#RB:KP:CPPFįPW,0$"ER,107:200$XPX$(#NCįER,96:ES1:$2#ES:340:330:SX14:NCSXSXNC:A$SP$:%4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400e%<#9400:I1SX:9300:R0İ9200:VSVS1t%>#R0ISX%@#:ES,92:24:OP,129:I1%F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:&P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030<&Z#GO,42,7:SW,34,SX,ST:9200:9030s&#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:&T$IS,N,QX,A$,R:&$IS,P,QX,A$,R: 7000 5000:5100XNCįER,"NO CUSTOMERS ON FILE IN THE A/R SYSTEM":200uNS(NC10):NS10NS10 NS3NS3:NSNCNSNC"N1NS121:80,N:XC,LV,"A/R Flash Report"d2500:N0T nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,53:YN,N,"Print report as shown above",N:330:N0200x xNįES:2000:N1:GT,110ES10 3000 1::FC 330:ES:XC,LV:MM,LV,11:RU,12 ,BR,QC,R,#P,A$I$:9,A3T3:5,A@F%:13,A#D:12: 6A$SP$ĭ(A$,1)SPm$A$(A$,(A$)1):310 82 JGO,1,24:CL:F TSHįHL,S:SH1L V_ ^SHįHL,R:SH0e ` hXY,X:DF$;:GO,X:HL,HL:KI,S,A$:ESA$ES$:ES390 jA$""A$(DF$,1) l310:3909 r392:GO,1,24:OP,"Enter range of customers to be included or use !?: from ":PU,S8,C1$,L" to ",S8,C2$:H45N12c tGO,H:OX,8,FC$:GO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370 x350:GO,H,24:OS,8,A$: 350:GO,14,14:CW,4,8: GO,14,V:"--->":& V18:392:330:OP,102:HL,1:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESıE PSN2įER,70:CP0:400R CPN2:r SD,39,CP:CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$"ACCOUNTS RECEIVABLE FLASH REPORT":PN0:PF0:700 CPİ650:PW,0:Y 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:f &PF570 0CPLNLN2:SP$:"***** LISTING CANCELLED....." 2AC$"cancelled":500 :PO:50 X630:NLĭLNNLEPLNLNNL: bCPĢ24:OP,130:WS,A$:A$ES$570#l650:700:NLī600)nPv(KB)SBĹKS,0:(KB)(ES$)550VxcCPė:tFFĺ(FF):LLNOL:SP$::PNPN1:LN4:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1SP$:WED0:P0:TC0:FL,0,4,Y:FL,0,5,G:M(0)0:FL,0,13,M:FL,0,NS,SV:FL,0,NS,BV:FL,0,NS,CV:FL,0,NS,DV:FL,0,16,AV:I116:AL(I)I:gFL,0,16,AAXC,LV:15:WB,34,5," Please Wait ":OP,"Reading Accounts Receivable data":GO,30,17:"Customer ID:":19:OP,86:ES,100AFA$"CASH":PCC:1520:D(8)YC:Y(1)YC:R0:1070Q1500:EDBV(N1)0:SV(N1)0:CV(N1)0:DV(N1)0:TCTC1:FCD(4)D(5)D(6):Y(1)Y(1)D(8):Y(2)Y(2)D(1):Y(3)Y(3)D(2):Y(4)Y(4)FC:M(11)M(11)D(6)VD(1)D(2)FC:VBV(NS)BV(N1)V:BL(N1)R:SR,BV,BL,N1,$VD(7):VCV(NS)CV(N1)V:CL(N1)R:SR,CV,CL,N1a.VD(8):VSV(NS)SV(N1)V:SL(N1)R:SR,SV,SL,N1j8DQ0wLP1400VBR,QR,P,#P,@K%,@T%,@S%,$PO$,A3U:5,A#A:4,A3DD:23,@DD%,@SD%,@PP%,@PM%:AA(1):TT%:PM%1200`S%16S%0jT6T1100tT11160v~M(1)M(1)DD(23):M(8)M(8)A:M(12)M(12)A(3):I27:M(I)M(I)DD(I15)::AV(S%)AV(S%)A:PP%M(11)M(11)A1300T6IT7(T5):M(I)M(I)AT2T6AAT5AA(S%)AA(S%)A1100T11100M(0)M(0)ABI1:AAA(3)A(4):NTDU(2)DD%:N0DQDQNA:I2((N1)AG):I5I5XG(I)G(I)A:1100xVDQ:V0ĭVDV(NS)DV(N1)V:DL(N1)R:SR,DV,DL,N11030630:IS,N,QX,A$,R:R0A$C2$ED1:300:A$I$(1)5300GO,43,17:OS,8,A$:_SH0:V14:392:330:HL,3:"Include which customers? ";:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFC1$"":C2$"":2100330:N1:DF$C1$:HL4:370:ES2000C1$A$ N2:DF$C2$:HL5:370:ES2050C2$A$:AF0 (A$Z$,8)C1$C2$C1$:C1$A$#42600:400:ES2000-2600 GO,19,14:"Range of customers to be included:":GO,32:"Starting Customer ID:":GO,34:"Ending Customer ID:": GO,19:"Produce report on what device:":AF1:C1$"":C2$"":RD,39,CP:PF07( GO,54,14:OS,10,AS$(AF)::AFāI12:GO,54:PL,S8,"n/a"::2620_2 GO,54:PL,S8,C1$:GO,54:PL,S8,C2$}< GO,50,18:OS,8,SP$(CP): ES:AFH2$"":C1$"":C2$(255):3200 H2$"(Customer IDs: "C1$" thru "C2$")":C2$(C2$Z$,8)  IS,F,QX,C1$,R:R0įIS,P,QX,A$,R1000:450@NL8:P$"Year":4900:Y(3)Y(3)sI14:PL,B10,S38,Y$(I)DO$,D4,Y(I):I1ĺSP$y"PL,B49,X12,"-":PL,B16,S32,"Current Net A/R Balance"DO$,D6,Y(2)Y(3)Y(4):SP$6NL7:600:SP$:10)"Aging Information:"L@I15:PU,B12,S36,G$(I)DO$,D4,G(I):Y(2)įPU,D8,(TTG(I)Y(2)5),4,7,L"%"TJ:ohNL17:P$"Month":4900rI013:PL,B10,S38,M$(I)DO$,D4,M(I):I0I8ĺSP$tI7įPL,B49,X12,"-"|NL9:600:SP$:SP$:" Current Period-to-Date Sales Tax Summary:":SP$9)" ID Description Total Sales Taxable Collected":PL,B9,L"==== ",X18,Q$,LQ2$,LQ2$,LQ2$I13:T3I:PL,B9,S5,TI$(I),S18,TD$(I),D12,TT(T2),1,13,D12,TT(T1),1,13,D12,TT(T),1,13:TC4700FD,0,11,SV,N:NN1:N4400P$"Yearly Sales":4910:40)"Yearly Current Credit":8)"ID Customer Name Sales Balance Limit":4950I1N:SL(I)I$(1)"Cash":I$(2)"Cash Sales":FL,0,12,D:D(8)YC:4340RSL(I):30034970:PL,D12,D(8),1,13,D12,B,1,13,D12,D(7),1,13:T0FD,0,11,BV,N:NN1:N4500:P$"Current Balance":4910:40)"Current Open Yearly":8)"ID Customer Name Balance Credits Sales":4950-DI1N:RBL(I):4960:PL,D12,B,1,13,D12,D(2),1,13,D12,D(8),1,13:NFD,0,11,DV,N:NN1:N4600P$"Account Delinquency":4910:38)"Avg Monthly Current Yearly":8)"ID Customer Name Delinquency Balance Sales":49502I1N:RDL(I):4960:PL,D12,DV(I)30,1,13,D12,B,1,13,D12,D(8),1,13:SFD,0,11,CV,N:NN1:N4700P$"Credit Limit":4910:40)"Credit Yearly Current":8)"ID Customer Name Limit Sales Balance":4950, I1N:RCL(I):4960:PL,D12,D(7),1,13,D12,D(8),1,13,D12,B,1,13:c\SR,AV,AL,16:N0:I116:NN(AV(I)0)::N4800wfCPĭN10N10pNL7NCP:600:I12CP:SP$::" Sales Representative Highlight":SP$:I1Ez5)"Number Sales Representative Monthly Sales Adjustments Rep Total":PL,B5,L"====== ",X24,Q$,LQ2$,LQ$,LQ2$,LQ2$X0:I116:XNįRS,139AL(I),A$:AV(I)0LAL(I):PL,B5,I4,L,B3,S25,A$,D12,AV(I),1,13,D12,AA(L),1,13,D12,AA(L)AV(I),1,13:XX1AC$"complete":500:570 $X3CP:NLNLX2:600:XāI1X:SP$:U &" "P$"-to-Date Accounts Receivable Summary:":SP$: .NL7NCP:600:I12CP:SP$::" Customer Highlight, based on "P$":":SP$: VPL,B5,X8,Q$,B1,X22,Q$,LQ2$,LQ2$,LQ2$: `300!jBD(1)D(2)D(4)D(5)D(6):PU,B5,S9,I$(1),S22,I$(2):!O!KB16384:KS16368:ES$(27):SP$" ":Q$"="!LV4:SB128:AG30:HU100:TT1E4:Z$"ZZZZZZZZ":DO$"........................................":Q2$" ============""RS,0,A$:DT,A$,TD:RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP"I$(9),T3(5),F%(13),D(12),U(5),A(4),DD(23),AS$(1),SP$(1),Y(4),Y$(4),G(5),G$(5),M(14),M$(13),SV(11),SL(11),BV(11),BL(11),CV(11),CL(11),DV(11),DL(11),AV(16),AL(16),AA(16),TT(9),TI$(3),TD$(3)#SP$(0)"Screen":SP$(1)"Printer":AS$(0)"All":AS$(1)"Selective"#I14:Y$(I):/#I013:M$(I):C#I15:G$(I):M#FC:#FO,14,QX:IS,O,QX,N,N:FO,15,QC:BR,QC,0,#NC,A#D:6,A#AA:16,A#TT:9,A$TI$:3,A$TD$:3:FO,16,QR:BR,QR,0,#N,#N,#CC,#N,#N,#N,#YC,A#TT:9$I13:M$(I3)" + Sales Tax #"(I)" ("TI$(I)")"::9$N1:BW,QC,0,#NC,#N:KP:CPįPW,0K$ER,107:200S$XPXk$(#NCįER,96:ES1:$2#ES:340:330:SX14:NCSXSXNC:A$SP$$4#VS7:GO,42,VS:WB,34,SX," Customers ":IS,F,QX,(A$,1,(A$)1),I:9300:R0I0İ9400%<#9400:I1SX:9300:R0İ9200:VSVS1-%>#R0ISXK%@#:ES,92:24:OP,129:I1%F#HL,30:PI,42,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:310:ES:%P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030%Z#GO,42,7:SW,34,SX,ST:9200:9030,&#BR,QC,R,#SK,$A$,$N$:GO,42,VS:PU,B1,S10,A$,LN$:@&T$IS,N,QX,A$,R:T&$IS,P,QX,A$,R:&'"Year-to-Date Sales","Current Outstanding Balance","Current Open Credit Balance","Finance Charges"F'*"Monthly Beginning Balance","Sales"," + Miscellaneous Charges"," - Discounts on Invoices",,,," + Freight Charges","Invoice Total"'+"Credit Memos","Debit Memos","Payments Received + Prepaid Invoices"," Early Payment Discounts","Finance Charges" (."Current","1 to 30 days","31 to 60 days","61 to 90 days","Over 2 u4A"z_D)fL2 !"f#@$$%&'{(()*+,-z.d/0 01234B5167 78Y9: :;<=>?I@9A+BBCD`EKF1GGHmIMJ4KLLMNOPhQJR RRSTUVWNXXYZ[n\O]2^^_NThe system will use the date you enter here as today's dateThis date is printed on reports, statements, invoices, etcIt is also used for posting and to determine aging. To leavthe current date unchanged, just press [RETURN] or [ESC]The system is  warning you that the date you have entered ifar in the future. This is to prevent you from accidentallentering the wrong date or posting to a month that is morthan one year away. If you want to accept the date, enter YIf you want to leave The BusinessWorks System, enter YOtherwise, enter N (or use [ESC]). If you elect to exit thsystem, you will be shown the Exit Menu, from which yocan select the next application or program you want to useNo Accounts Receivable data (e.g. list of Customers, Invoicfile, etc.) has been created. This data must be createbefore you can use any of the Accounts Receivable Systeoptions. To create this data now, enter YAn error has been detected in your Accounts Receivable datfiles. You cannot use the A/R System until this error habeen fixed. A data rebuild option is available to help restore your A/R data files. To use this option now, enter YIf you want to remain in the Accounts Receivable SETUP modeenter Y. If you want to leave the SETUP mode and beginormal Accounts Receivable processing, enter NTo confirm your request to leave the Accounts ReceivablSETUP mode you must enter OK. Once you leave the SETUP modeyou cannot enter it again. Please be certain that you havcompleted all your A/R setup before leaving SETUP mode*To create your A/R data files (i.e. customers, invoice fileetc.), select option 1. To rebuild your A/R data files whefile errors are suspected, select option 2. Press [ESC] treturn to the Accounts Receivable Menu*This option is used to create the data files used by thAccounts Receivable System. You should read the message oyour display screen regarding the possible consequences tany existing data files. To continue the creation, enter Y+Use the Up- and Down Arrows to highlight the month for whicyou'll begin entering transactions. The month correspondinto the current date has been initially highlighted. Whethe desired month has been highlighted, press [RETURN]+Before the system will create the Accounts Receivable datfiles you must confirm the create request by entering thword CREATE followed by [RETURN]. Entering anything elswill cancel the A/R data file creation request+Accounts Receivable data already exists for this companyIf you continue with the creation option, the existing datfiles and any information contained in them will be lost. Iyou want to continue, enter Y. Otherwise, enter N or [ESC],The Accounts Receivable rebuild is used to correct errorthat may exist in your A/R data files (e.g., due to hardwarerrors, power failures, etc.). If you want to rebuild youAccounts Receivable data files, enter Y. Otherwise, enter NEnter the ID (1 to 8 characters) of the customer you want tadd, edit, or examine. To get the next or previous customerenter N or P. Use ? to see a list of customers. To return tthe Accounts Receivable Menu, just press [RETURN] or [ESC]Enter the name of the customer you are adding or editingThe customer name may be up to 22 characters in length. Tleave the currently displayed name (if any) unchanged, juspress [RETURN]Enter the street or route address. Two lines are providefor the address (22 characters maximum may be entered foeach line). You should only use the second address line iyou cannot fit the entire address on the first lineEnter the street or route address. Two lines are providefor the address (22 characters maximum may be entered foeach line). You should only use the second address line iyou cannot fit the entire address on the first lineEnter the city and state portion of the address. Enter thfull city name, a comma, and then the state abbreviationExamples: San Jose, C Chicago, IEnter the ZIP Code portion of the customer's address. Techaracters are provided to handle the new expanded U.S. ZICodes and the codes from foreign countriesEnter the telephone number with or without the area codeOnly the numeric portion of the telephone number is usedYou may use other characters to make your entry clearerFor example: (916) 555-1212 916/555-1212 555 121Enter the name of the person you normally contact when yocommunicate with this customer (up to 22 characters.) Thiname will appear on reports that can be used when contactinyour customers concerning payments and past due accountsIf you want finance charges to be applied to this customer'past due invoices, enter Y. If you do not want any financcharges applied to this customer, enter NIf you want dunning messages to appear on this customer'statements when the customer's invoices are past due, enteY. If you do not want any dunning messages to be used witthis customer, enter NIf the goods or services sold to this customer are normallsubject to sales tax in your 1st sales tax jurisdictionenter Y. When invoicing you may override this choice anhave individual items be either taxable or non-taxableIf the goods or services sold to this customer are normallsubject to sales tax in your 2nd sales tax jurisdictionenter Y. When invoicing you may override this choice anhave individual items be either taxable or non-taxableIf the goods or services sold to this customer are normallsubject to sales tax in your 3rd sales tax jurisdictionenter Y. When invoicing you may override this choice anhave individual items be either taxable or non-taxableIf you want to print statements for this customer, enter YOtherwise, enter N. If you enter N, you can still printstatements for this customer, but only when you specificallselect this one customer during statement generationIf you want to use the 'Balance Forward' statement formatenter Y. Otherwise, enter N. If you use balance forwardyour statements to this customer will NOT itemize any priomonth invoicesIf the 'Ship To' address for this customer is normally thsame as his 'Bill To' address, enter Y. Otherwise, enter NWhen invoicing, you will then be automatically prompted tenter the appropriate 'Ship To' address for the invoiceEnter the rate of discount (0 to 99.99%) you normally granto this customer. If you enter a discount rate, the dollaamount will automatically be calculated during invoicing ancan be altered at that timeEnter the price level (A, B or C) from the Inventory ControSystem that you will normally use when goods are sold tthis customer. If you are not using the Inventory Systemjust press [RETURN] to accept price level AEnter the sales account number (1-16) that is normallcredited when this goods are sold to this customer. Use to see a list of your accounts. When entering invoices, yomay override this selection and use any of the accountsSelect one of the standard notes you want to normally appeaon invoices and statements prepared for this customer. Usthe Up- and Down arrows to select the appropriate note (o'None' if no note is desired), then press [RETURN]Select the payment terms that best describes your paymenagreement with this customer. Use the Up- & Down arrows thighlight the appropriate payment terms (or 'None' if yohave no standard payment terms), then press [RETURN]Enter the number of your sales representative (1-16) whis responsible for this customer. If you don't have a salerepresentative for this customer, enter N. If you want tsee a list of your sales representatives, enter ?Enter the maximum amount of credit to be extended to thicustomer. The system automatically checks the customer'credit limit when you enter invoice information. If you dnot want to do credit checks for this customer, enter 0If known, enter the dollar amount of goods you have sold tthis customer this year. DO NOT INCLUDE THE VALUE OF GOODON OUTSTANDING INVOICES. From now on the system will maintain this information for youEnter the customer's highest balance (lifetime, not justhis year.) From now on the system will adjust this amounas the customer's balance changes. This amount is usefuwhen evaluating the customer's credit historyEnter the amount of the last payment you received from thicustomer. If this amount is not known or the customer hanever paid you, just press [RETURN]. From now on the systewill maintain this information for youEnter the date of the last payment that you received frothe customer. If this date is not known or the customer hanever paid you, just press [RETURN]. From now on the systewill maintain this information for youEnter the date of the last statement that you sent to thicustomer. If this date is not known or you have never sena statement, just press [RETURN]. From now on the systewill maintain this information for youIf you want to accept the information regarding this necustomer, enter Y. If you want to edit any of the displayeinformation, change the ID assigned to the customer or iyou want to delete this customer, enter NTo change any of the displayed information for the customerenter E. To change the ID assigned to the customer, enter RTo remove the customer from the A/R System, enter D. Wheyou have finished with this customer, enter A or use [ESC]To modify any of the displayed information for the customerenter E. To change the ID assigned to the customer, enter RWhen you have finished changing or reviewing this customerenter A (or use [ESC]). This customer cannot be deletedEnter the line number (1-26) corresponding to the customeinformation you want to edit. When you have finished editing this customer, just press [RETURN] (or use [ESC])To confirm the delete request, you must enter the full worDELETE followed by [RETURN]. If you enter anything elsethe delete request will be cancelledEnter the new customer ID code that you want to assign tothis customer. This new customer ID must not currently bassigned to any other customer in your Accounts ReceivablSystem. Use ? to see a list of your customersSelect the sales account that is normally used when goodare sold to this customer. Type a number or use the Up- anDown arrows to select the appropriate account, then pres[RETURN]. Use [ESC] to return to normal keyboard inputSelect the sales representative that is normally responsiblfor this customer. Type a number or use the Up- and Dowarrows to select the appropriate sales rep, then pres[RETURN]. Use [ESC] to return to normal keyboard inputUse the Up- & Down arrows to go forward and backward througyour list of customers. Press [RETURN] to select the highlighted customer. Press [ESC] to return to normal keyboarinput, the 'Show Customer' window will remain on the screenUse the Up- and Down arrow keys to go forward or backwarthrough your part numbers. Press [RETURN] to select thhighlighted part. Press [ESC] to return to normal keyboarinput, the 'Show Parts' window will remain on your screenThis option is used to determine the current credit statuof a customer. To check a customer's credit, enter thcustomer's ID. Use ? to see a list of customers. When yoare finished, just press [RETURN] (or use [ESC])You may want to use the 'Show Customer List' feature to helselect a customer. To see a list starting with your firscustomer, enter ?. To start the list at a specific alphabetic position, enter an ID ending with ? (example: PR?)"Before your Accounts Receivable System is actually closedyou must confirm your request by typing the full word CLOSEIf you enter anything else, the close request will be cancelled$There is an error in your Accounts Receivable posting tableThe system will be unable to post the recurring A/R invoicefor the following month. If you still want to continue witthe A/R close, enter Y. To cancel the close, enter N$Use the Up- and Down Arrows to highlight the month you wanto be the current A/R month, then press [RETURN]. Propeselection of the current month will insure that recurrininvoices are correctly posted at the end of each month$Your selection of the current A/R month is displayed. Ithe selection is correct, enter Y. Otherwise, enter N (ouse [ESC]). Please verify your selection, it will insurthat your recurring invoices are properly posted#Customer statements have not been printed this month. If yoclose A/R before printing statements, the statements wilnot contain full detail of transactions. If you want tcontinue with the close, enter Y. Otherwise, enter N#If you want to keep the detail for adjustments (creditsetc.) and payments that were applied to invoices that arstill open, enter Y. If you want to delete the detail foall adjustment and payment transactions, enter NThe customer ID you have entered is not currently on file ithe Accounts Receivable System. If you want to add thicustomer then enter Y. Otherwise, enter N (or use [ESC]) To view A/R transactions (payments, etc.) that have affectea customer's invoices, enter the customer ID. Enter N or for the next or previous customer. Use ? to see a list ocustomers. When finished, just press [RETURN] or use [ESC]Use the Up- and Down arrow keys to go forward and backwarthrough the list of invoices. Press [RETURN] to select thhighlighted invoices. Press [ESC] to return to normal keyboard input, the 'Invoices' window will remain on the screeTo record a payment from a customer, enter the customer'ID. The system will display the customer name and currenbalance. If you are finished entering payments, just pres[RETURN] or [ESC] to return to the Accounts Receivable MenuEnter the number that appears on the customer's check. Thinumber is the audit trail for the payment and is importanif any questions arise in the future concerning how and whethe payment was appliedEnter the date of the payment (using MMDDYY or MM/DD/YYformat) or just press [RETURN] to enter today's date as thpayment dateEnter the total amount of the payment that you received frothe customer. You may apply this amount to one or more othe customer's invoices, to his finance charge balance, oto his open creditsYou have not fully applied the payment amount to one or morinvoices. To change either the header or distribution information, enter E. To erase the entire payment transactionenter R (you will be required to confirm your request)To modify any of the displayed information for this paymententer E. To erase the entire payment transaction and starover again, enter R (a confirmation will be required). Taccept the payment transaction and have it posted, enter AYou have selected the AUTO payment distribution option. Ifyou want the system to grant the customer any availabldiscounts as the payment is applied to each invoice, enteY. If you do not want any discounts granted, enter NEnter the amount of the payment (must not exceed $80,000.00you want to apply to the invoice (or finance charge balancor open credits). When applying to an invoice or financcharges, the amount cannot exceed the current balanceThe amount applied to the invoice is less than the currenbalance. If you want to grant the customer a discount othis invoice, enter the discount amount. You will be warneif you exceed the available discountThe discount amount entered exceeds the available discounor the discount is no longer available (i.e., the discoundate has passed). If you still wish to grant the discountenter Y. If you don't want to grant the discount, enter NIf the information concerning this payment distribution icorrect, enter Y to accept the distribution entry. Otherwise, if you want to re-enter this distribution entry, enteN (or use [ESC])You have requested that this payment transaction be rejecte(i.e., completely erased). Before the system actually erasethe payment information you must confirm your request. Iyou want to reject the payment, enter Y. Otherwise, enter NThe distribution amounts you have entered exceed the paymenamount. If the amount you just entered is incorrect and yowant to change it, enter N or [ESC]. If it is correct, enteenter Y (however, you will have to edit the payment amount)This option is used to record credit and debit memos and tapply open credits. To record one of these A/R transactionstype the corresponding number or use the Up- & Down arrowthen press [RETURN]. Use [ESC] to return to the A/R MenuEnter the ID for the appropriate Accounts Receivablcustomer. If you enter a valid customer ID, the systewill respond by displaying the customer name and currenbalance. Use ? to display a list of your customersEnter a transaction reference number (1 to 99999) that wilprovide an audit trail for the transaction you are enteringThis reference number will appear on the A/R Detail ReportAdjustments Register, and on customer statementsEnter the date of the transaction (using MMDDYY or MM/DD/Yformat) or just press [RETURN] to enter today's date as thtransaction dateTo credit a specific invoice, enter the invoice number. Tcredit the oldest invoice, enter OLD. To credit the financcharges, enter FIN. To credit the customer's open credibalance, enter OPEN. To see a list of invoices, enter ?To apply the debit to a specific invoice, enter the invoicnumber. To debit the oldest open invoice on file, enteOLD. To debit the customer's open credit balance, enteOPEN. To see a list of the customer's invoices, enter ?To apply the customer's open credit balance to a specifiinvoice, enter the invoice number. To apply it to the oldesinvoice, enter OLD. To apply it to the customer's financcharges, enter FIN. To see a list of invoices, enter ?Enter the amount of the credit. A credit applied to ainvoice must not exceed the current invoice balance. credit applied to the customer's finance charges must noexceed the current finance charge balanceEnter the amount of the debit. A debit applied to thcustomer's open credits must not exceed the current opecredit balanceEnter the amount of the customer's open credit balance yowant to apply. This amount must not exceed the current opecredit balance. The amount applied also must not exceed thcurrent invoice (or finance charge) balanceIf you would like to see the original account distributiofor the selected invoice, enter Y. Note that this originadistribution information will have to be edited to matcthe amount of the transaction before it can be acceptedEnter the line number (1 to 24) corresponding to the A/account you want to enter. Use ? to see a list of your saleaccounts. You must distribute the entire amount to one omore accounts before the transaction can be acceptedSelect the sales account you want to use to distribute alor a portion of the transaction amount. Type a number or usthe arrow keys to select the appropriate account, then pres[RETURN]. Use [ESC] to return to normal keyboard inputEnter the amount to distribute to the selected A/R accountNormally you will enter positive amounts. However, to alloproper distribution to discounts or to correct errors iprevious transactions, you may enter negative amountsYou have not fully distributed the transaction amount to onor more A/R accounts. To make changes to the distribution oor header portion of the transaction, enter E. To erase thentire transaction and start over again, enter RTo modify any of the displayed information for this transaction, enter E. To erase the entire transaction and starover again, enter R (a confirmation will be required). Taccept the transaction and have it posted, enter AYou have requested that this transaction be rejected (i.e.completely erased). Before the system actually erases thtransaction information you must confirm your request bentering Y. To cancel the request, enter N (or [ESC])To edit any of the header information (e.g., number, dateamount, etc.), enter H. To edit the distribution of thtransaction, enter D. When you have finished editing thtransaction, just press [ESC]If you want to print the credit or debit memo, enter YOtherwise, enter N. The memo will be printed on youpre-printed invoice forms. You may reprint the memo as mantimes as required (this will aid in aligning the forms)If you want a message or note to appear at the bottom of thmemo, enter the text of the message (60 characters maximum)This message can be used to indicate the reason for thcredit or debit#9The system has completed the posting and printing of thcredit or debit memo. To reprint this memo (e.g., ran ouof paper, printer jammed, forms not properly positionedetc.), press [ESC]. Otherwise, press [SPACE BAR]The note you have entered is displayed on your screen. Ithe note has been entered correctly and you are ready tprint the credit or debit memo, enter Y. If you want tre-enter the note, enter N (or use [ESC])You have the option of setting all the distribution amountto zero. This may be handy if it is necessary for you tmake several changes to the distribution amounts. To set althe amounts to zero, enter Y. Otherwise, enter N (or [ESC]To calculate finance charges for customers with past dubalances (and also print a Finance Charge Report), selecoption 1. To print statements for all or specific customersselect option 2. Press [ESC] to return to the A/R Menu If you want to calculate finance charges for customers witpast due balances, as shown above, enter Y. If you want tchange which customers will be included in the calculationenter N. Use [ESC] to return to the previous menu!If you want to print customer statements, as shown aboveenter Y. If you want to print statements, but need tchange one or more of the specifications, enter N. Us[ESC] to return to the previous menu If you want to calculate finance charges for all customerwith past due balances, enter A. Otherwise, to calculatfinance charges for just some of your customers with pasdue balances, enter S!To print statements for all customers who normally receivstatements, enter A. Otherwise, to print statements fojust some of your customers (or just one specific customer)enter S You can calculate finance charges for a range of customersTo specify the beginning of the range, enter the ID of thfirst customer to be included. To start with the firscustomer in your A/R System, just press [RETURN]!You can print statements for a range of your customers. Tspecify the beginning of the range, enter the ID of thfirst customer to be included. To start with the firscustomer in your A/R System, just press [RETURN] Now specify the end of the range by entering the ID of thlast customer to be included. To end with the last customein your A/R System, just press [RETURN]. Finance chargewill be calculated for customers in the specified range Now specify the end of the range by entering the ID of thlast customer to be included. To end with the last customein your A/R System, just press [RETURN]. Statements will bprinted for customers in the specified range!In addition to dunning messages, you can print a note oeach statement. To print the note defined for each customerenter C. To print one of the 9 standard notes, enter S. Tprint a special note that you enter now, enter U!Enter the text for a note, 60 characters maximum, that wilbe printed on each customer statement. In addition to thinote, any required dunning message for a customer with pasdue balances will also be printed on the statement!Use the Up- and Down arrow keys or type a number (1-9) tselect the standard note you want to appear on each customestatement. In addition to the selected note, any requirecustomer dunning notes will printed on the statements!To print a sample statement so that you can make sure thayour forms are correctly positioned in the printer, enter YYou should continue printing alignment tests until you arsatisfied that the forms are correctly positionedThe most recently generated invoices have NOT been posted tthe General Ledger System. These invoices must be postebefore you can continue using the Accounts ReceivablSystem. To post these invoices now, enter YoN o Z-q K-~e} ; !"#$%r&Q'9())*+,-.n/W0>1*1NIf you want the report generated on your display screenenter S. Otherwise, enter P to have the report printed oyour printer (make sure that your printer is turned on anthat it is on line))To print a list of your sales reps, as shown above, enter  !"#$%YIf you want to print a List of Sales Representatives, buneed to change the listing device, enter N. To return tthe Accounts Receivable Utilities Menu, press [ESC]If you want the report to include all customers in youAccounts Receivable System, enter A. Otherwise, to includonly a portion of your customers, enter S. You will then bprompted for the first and last customers to be includedEnter the ID for the customer you want the report to begiwith. To begin with the first customer in your A/R Systemjust press [RETURN]. To include an alphabetic range (i.e.A thru M), enter the starting letter here (A in the exampleEnter the ID of the customer you want the report to end witTo end the report with the last customer in your A/R Systemjust press [RETURN]. To include an alphabetic range (i.e.A thru M), enter the ending letter here (M in the example)If you want the report sorted so that all customers assigneto the same sales representative are listed together, enteY. Otherwise, if you want the customers listed in alphabetic ordered according to their ID, enter NYou have selected to have this report sorted by sales repIf you want each sales representative to start on a new pag(this allows the report to be easily separated or analyzed)enter Y. Otherwise, enter NTo print a list of customer information, as shown aboveenter Y. If you want to print a Customer Master List, buneed to change one or more of the specifications, enter NTo return to the Customer Menu, press [ESC]To print a list of customer names and addresses, as showabove enter Y. If you want to print a Customer Name Listbut need to change one or more of the specifications, enteN. To return to the Customer Menu, press [ESC]>To print a report that lists customers with open credibalances, as shown above, enter Y. If you want to print thireport, but need to change some of the specifications, enteN. To return to the A/R Reports Menu, press [ESC]@To print a report that shows what percentage of their credilimit each customer has used, as shown above, enter Y. Iyou want to print the report, but need to change some of thspecifications, enter N. Use [ESC] to return to the menuBTo print a report that is helpful when attempting to colleccustomer payments, as shown above, enter Y. If you want tprint the worksheet, but need to change one or more of thspecifications, enter N. Use [ESC] to return to the menuBIf you want to include only those customers who have usemore than a specified percentage of their credit limitenter Y. If you want to include all customers, regardlesof how much credit they have used, enter NBEnter the minimum credit percentage to be used for selectinthe customers to be included. For example, if you enter 75then only customers whose current unpaid balance exceeds 75of their credit limit will be included in the report.To create a new AppleWorks conversion outline, select th'Define a New Outline' option. To edit or delete an existinoutline, select the appropriate outline. Use [ESC] to returto the Accounts Receivable Menu.You currently do not have any Appleworks conversion outlinedefined. To create a new a outline, select the 'Define New Outline' option. Use [ESC] to return to the AccountReceivable Menu0You have already defined the maximum number of AppleWorkoutlines (a maximum of 8 outlines is permitted). To edit odelete an existing outline, select the appropriate outlineUse [ESC] to return to the Accounts Receivable Menu0Enter the name you want to assign to the new AppleWorkoutline (16 characters maximum). Try to assign each outlina unique name that will easily remind you of the conversiobeing performed (for example 'Past Due Accts')0To change any of the displayed information regarding thioutline, enter E. To delete this outline, enter D. Wheyou have finished editing or examining this outline, enter (or use [ESC])To confirm the delete request, you must enter the full worDELETE followed by [RETURN]. If you enter anything elsethe delete request will be cancelled0To include all of your customers, enter A. To include onla portion of your customers, enter S (you will be prompteto enter the first and last customer IDs to be included ithe outline)0Specify the range of customers to be included in the filby entering the ID of the first customer to be includedTo start with the very first customer in your AccountReceivable System, just press [RETURN]0Enter the ID for the last customer you want to include ithe AppleWorks file. To end the with the very last customein your Accounts Receivable System, just press [RETURN]0Use the Up- and Down Arrows to highlight the aging criteri(e.g., customers with balances 60 days past due) to be useto select which customers to include. When the desired agincriteria has been highlighted, press [RETURN]0Define what information you want to include for each of thselected customers (i.e., information to appear in spreadsheet columns) by entering the item number (1-12). When yohave finished selecting the information, just press [RETURN0Use the Up- & Down arrows to highlight the type of customeinformation to appear in the selected item (i.e., data bascategory or spreadsheet column). When you have highlightethe desired customer information type, press [RETURN]0If you want to accept the information regarding this neAppleWorks outline, enter Y. If you want to change any othe information or if you want to delete this outline, enteN1Use the Up- and Down Arrow keys to highlight the outline yowant to use to create the AppleWorks spreadsheet or datbase file. When you have highlighted the desired outlinepress [RETURN]. Use [ESC] to cancel this option1The outline you selected (or the one outline you've definedis displayed on your screen. If this is the correct outlinand you want to create the AppleWorks file using this outline, enter Y. Otherwise, enter N (or use [ESC])Use the Up- and Down arrow keys to go forward and backwarthrough your list of customers. Press [RETURN] to select thhighlighted customer. Press [ESC] to return to normal keyboard input, the 'Show Customer' window will remain1If you want the AppleWorks spreadsheet file to includheadings for the data columns you have selected, enter YIf you want the file to be created without column headingsenter N1If you want to create the AppleWorks file on a disk insertein your standard disk drive, enter S. If you want to creatthe AppleWorks file on a specified directory pathname (i.e.when using a hard disk drive), enter P1Load a ProDOS formatted diskette into your disk drive anpress [SPACE BAR] when ready. If you don't want to creatthe file on a floppy, press [ESC]. (An option is availablin the System Utilties Menu to format a blank disk.1Enter the pathname of the directory (usually a directory oyour hard disk) where you want to create the file. If yoenter a pathname that doesn't begin with a slash (/), thethe directory name will be appended to the current prefix2Enter the name you want to assign to the AppleWorks fileThe file name must be a valid ProDOS file name. The filwill be created with this name on the directory or floppdisk you selected. Use ? to see a list of AppleWorks files2A file already exists with the name you have selected. Iyou want to delete the existing file and create a new filwith this name, enter Y. If you want to change the filname you have selected, enter N2If you are satisfied with all the information you haventered regarding the AppleWorks spreadsheet file, enter and the system will create the file. Otherwise, enter N tstart over again2If you are satisfied with all the information you haventered regarding the AppleWorks data base file, enter and the system will create the file. Otherwise, enter N tstart over againIf you want to print a list of your recurring A/R invoicesas shown above, enter Y. If you want to print the reportbut need to change one or more of the specifications, enteY. Use [ESC] to return to the Recurring A/R Menu8To print a report listing all open customer invoices, ashown above, enter Y. If you want to print an Open InvoicReport, but need to change some of the specifications, enteN. Use [ESC] to return to the A/R Reports Menu6To print a Accounts Receivable Aging Report as shown aboveenter Y. If you want to print an Aging Report, but need tchange one or more of the specifications, enter N. To returto the Accounts Receivable Reports Menu, press [ESC]:To print an A/R Cash Flow Report that shows how much moneyou'll receive from your customers, as shown above, enter YIf you want to print the report, but need to change somspecifications, enter N. Use [ESC] to return to the A/R MenDTo print a report that details your past due accounts, ashown above, enter Y. If you want to print a DelinquenAccounts Reports, but need change some specifications, enteY. To return to the A/R Reports Menu, press [ESC]6A detailed aging report shows each invoice that is currentlopen. A summary aging report shows only the total due foeach customer. To request a detailed aging report, enter DTo request a summary aging report, enter S:The Cash Flow Report shows the amount of cash you'll receivin each of 5 time periods. The time periods are of equalength and the first begins today. Enter the length, idays, of each time period (e.g., 7 for weekly intervals)DSelect the minimum aging level from the displayed list (foexample, select 2 for 31-60 days). The report will includonly those customers who have unpaid balances that are aleast that old (e.g., enter 2 for 31 days or older)If you want the report to include all customers and cassales, enter A. To include only a portion of your customersenter S (you will then be asked to enter the first and lascustomer). To include only your cash sales, enter C4To print an Accounts Receivable Detail Report as showabove, enter Y. If you want to print an A/R Detail Reportbut need to change some of the specifications, enter N. Treturn to the Accounts Receivable Reports Menu, press [ESC]FUse the Up- and Down arrow keys or type a number to selecthe type of A/R transaction register (i.e., monthly invoicedaily cash receipts, etc.), then press [RETURN]. Use [ESCto return to the Accounts Receivable Reports MenuFTo print the selected Accounts Receivable Invoice Registeras shown above, enter Y. If you want to print the registerbut need to change one or more of the specifications, enteN. To cancel the selected A/R register, press [ESC]FTo print the selected Accounts Receivable Cash ReceiptRegister, as shown above, enter Y. If you want to print thregister, but need to change some of the specificationsenter N. To cancel the selected A/R register, press [ESC]FTo print the selected Accounts Receivable AdjustmentsRegister, as shown above, enter Y. If you want to print thregister, but need to change some of the specificationsenter N. To cancel the selected A/R register, press [ESC]HTo print a concise report that summarizes your A/R activityas shown above, enter Y. If you want to print the A/R FlasReport, but need to change some of the specifications, enteN. Use [ESC] to return to the A/R Reports MenuFThere is not enough room on your disk to sort the currenmonth A/R transactions so they can be listed in date orderIf you still want to list the A/R register (however, not idate oder), enter Y. Otherwise, enter N (or use [ESC])?@ABCDEFGHIJKLMNOPQRSfghijklof the desired SALES account froyour General Ledger Chart of Accounts. This account will bcredited when sales are made using the invoicing option. Us? to see a list of your General Ledger accounts(The account number you entered and its description are displayed on your screen. If this is the correct account tassign to the sales entry, enter Y. If this is not thcorrect sales account, enter N (or use [ESC])(Use the Up- and Down Arrow keys to go forward and backwarthrough your Chart of Accounts. Press [RETURN] to select thhighlighted account. Use [ESC] to return to normal keyboarinput, the 'Show Account' window will remain on the screen)To enter or edit information concerning one of your salerepresentatives, enter the number (1 to 16) correspondinto the sales representative. To return to the AccountReceivable Utilities Menu, just press [RETURN] or use [ESC])Enter E to change any of the information for the displayesales rep. Enter D to delete the sales rep (you will basked to confirm your request). When you are done examininor editing the sales rep, enter A (for Accept) or [ESC])To confirm the request to delete this sales representativyou must enter the word DELETE. If you enter anything elsethe delete request will be cancelled)Enter the name of the sales representative that you aradding or editing. The name may be up to 22 characters ilength)Enter the street or route address. Two lines are providefor the address (22 characters maximum may be entered foeach line). You should only use the second address line iyou cannot fit the entire address on the first line)Enter the street or route address. Two lines are providefor the address (22 characters maximum may be entered foeach line). You should only use the second address line iyou cannot fit the entire address on the first line)Enter the city and state portion of the address. Enter thfull city name, a comma, and then the state abbreviation Examples: San Jose, C Chicago, I)Enter the ZIP Code portion of the address. Ten characterare provided to handle both the new expanded U.S. ZIP Codeand the post codes from other countries)Enter the telephone number with or without the area codeOnly the numeric portion of the telephone number is usedYou may use other characters to make your entry clearerFor example: (916) 555-1212 916/555-1212 555 121&Use the Up- and Down arrow keys or enter the number corresponding to the sales tax jurisdiction information (e.g.tax rate, cutoff, etc) you want to edit. When finisheediting the sales tax information, press [ESC]&To edit the displayed sales tax information, enter E. Treset the tax totals (total sales, taxable sales and tacollected) to zero, enter R. When finished with this salesales tax jurisdiction, enter A (or use [ESC])(You must confirm the request to reset the tax totals fothis sales tax jurisdiction. To have these totals set tzero ($0.00), enter the full word RESET. If you enter anything else, then the reset request will be cancelled'Enter the ID code you want to use to identify this sales tajurisdiction. The code can be up to 4 characters and shoulbe selected so that it will easily remind you of the saletax jurisdiction (example: NYC for New York City sales tax)'Enter the description of this sales tax jursidiction, up t18 characters. This description should normally be used tidentify the name of the state, county, city or other taxinauthority (examples: California, New York City, etc.)'Enter the sales tax rate for this jurisdiction. You caenter up to three digits to the right of the decimal pointExample: if the sales tax rate is 4 and 3/8's percent, yo should enter 4.37'Some sales taxes are only applied to a portion of the totataxable sales. If this jurisdiction has such a limit (ocutoff), enter the maximum amount of a sale that is taxableIf the jurisdication has no limit, enter 0 (or None)'Freight charges are taxable in some jurisdictions and arnon-taxable in others. If freight charges are considered tbe part of the taxable total in this sales tax jurisdictionenter Y. If freight charges are non-taxable, enter NEnter the ID for the desired Acccounts Receivable customerIf the selected customer is on file, the system will responby displaying the customer's name. Use ? to display a lisof your customersEnter the ID (up to 8 characters) for the recurring invoicyou want to add, edit or examine. Try to use IDs that wileasily remind you of the item or service being invoicedUse ? to see a list of recurring invoices for this customerEnter S to use the next A/R System invoice number when thirecurring invoice is posted each month. To use a speciasequence of invoice numbers, enter the starting number. Thinumber must be divisible by 100. Examples: 3300, 99200, etcEnter the invoice reference (up to 12 characters), which cabe used to to enter any information you want regarding thinvoice. To have the current month added to the referencwhen the invoice is posted each month, end it with an !Enter the amount of the invoice. The invoice amount must bless than $80,000.00 (eighty thousand dollars). You may NOenter a negative invoice amountEnter the day of each month (1 to 31) that you want to posthis invoice. If you want the invoice posted the last day oeach month, enter L. Each month that this invoice is activeit will be posted using this specified invoice dayEnter the number of days, from the invoice date, that thiinvoice becomes due and payable. When this invoice is posteeach month, the due date will be determined by adding thivalue to the invoice dateEnter the sales representative (1 to 16) you want to assigto this invoice when it is posted each month. If you do nowant to assign any sales representative, enter N. Use ? tsee a list of your sales representativesIf you want this recurring invoice to automatically expir(go 'Inactive') on a certain date, enter the expiratiodate. If you do not want an expiration date for thirecurring invoice, enter NIf you want to post this recurring invoice each month, theenter A to set the status to active. If you want to keethe invoice on file but do not want it to be posted, enter for inactive. Only active invoices are posted each monthYou have not fully distributed the invoice amount to one omore A/R accounts. To make changes to either the header odistribution portion of the invoice, enter E. To delete thirecurring invoice, enter D (a confirmation will be requiredTo modify any of the displayed information for this recurring invoice, enter E. To remove this recurring invoice frothe system, enter D (a confirmation will be required). Wheyou have finished with this invoice, enter A (or use [ESC])If the information regarding this new recurring invoice icorrect and you want to accept it, enter Y. If you want tchange any of the displayed information or if you want tdelete this recurring invoice, enter NTo confirm the delete request, you must enter the full worDELETE followed by [RETURN]. If you enter anything elsethe delete request will be cancelledTo edit any of the header information (e.g., invoice numberamount, etc.), enter H. To edit the account distributioportion, enter D. To change the invoice status, enter SWhen you've finished editing, just press [ESC]Enter the line number (1 to 22) corresponding to the A/account you want to enter. Use ? to see a detailed list oyour sales accounts. Enter T to automatically calculate thsales taxes. When finished, just press [RETURN] or [ESC]Select the sales account you want to use to distribute alor a portion of the invoice amount. Type a number or use tharrow keys to select the appropriate account, then pres[RETURN]. Use [ESC] to return to normal keyboard inputEnter the amount of the recurring invoice you want tdistribute to the selected A/R account. Just press [RETURNto accept the displayed amount. You will not be allowed taccept the invoice until the entire amount is distributedYou may want to use the 'Show Customer' window to help yoselect a customer. To see a list starting with your firscustomer enter ?. To start the list at a specific alphabetiposition, enter an ID ending with ? (example: ST?)Select the sales representative you want assigned to thiinvoice when it is posted each month. Type a number or usthe arrow keys to select the appropriate sales rep, thepress [RETURN]. Use [ESC] to return to normal keyboard inpuUse the Up- & Down Arrows to go forward and backward througthe list of recurring invoices for this customer. Pres[RETURN] to select the highlighted invoice. Use [ESC] treturn to normal keyboard inputUse the Up- & Down arrows to go forward and backward througyour list of customers. Press [RETURN] to select the highlighted customer. Press [ESC] to return to normal keyboarinput, the 'Show Customer' window will remain on the screenIf you want the entire amount of the recurring invoice to bdistributed to the sales account assigned to this customerenter Y. However, if you want to distribute the invoicamount in some other method, enter NThe recurring invoice ID you have entered is not on file fothe selected customer. If you want to add this recurrininvoice, enter Y. Otherwise, enter N (or use [ESC])Enter Y to have the system will automatically calculate thsales taxes for this customer (the invoice balance will thebe adjusted accordingly). You should enter all the non saletax accounts first and then select this option If you want to enter customer invoice information, as showabove, enter Y. If you want to enter invoices, but need tchange one or more of the displayed specifications, enter NUse [ESC] to return to the Accounts Receivable Menu If you want to print each invoice after it's recorded, enteY. Otherwise, if you just want to enter invoice informatiowithout printing the invoices, enter N To print the line item information on the invoices withouinserting a blank line between each item, enter Y. To hava blank line inserted between each item on the invoiceenter N To print a sample invoice so that you can make sure thayour forms are correctly positioned in the printer, enter YYou should continue printing alignment tests until you arsatisfied that the invoice forms are properly positioned Enter the number (1 to 99999) of the next invoice you wanto enter. To accept the next available invoice numbe(displayed on the prompt line), just press [RETURN]. Wheyou have finished entering invoices, press [ESC] Enter the date of the invoice or just press [RETURN] tenter today's date. The aging of this invoice will be baseon this date and the selected payment terms, so make suryou enter the correct date Enter the ID code of the customer who will be receiving thiinvoice. If this is a cash sale to a customer that is noon file in the Accounts Receivable System, enter the fulword CASH. Use ? to see a list of your customers Enter the name of the customer (22 characters maximum) twhom you are sending this invoice. If a customer namalready appears, you may leave the name unchanged by juspressing [RETURN] Enter the address of the customer to whom you are sendinthis invoice. Two lines are provided for customer addres(22 characters maximum). Use the 2nd address line only iyou can't fit the entire address on the 1st line Enter the address of the customer to whom you are sendinthis invoice. Two lines are provided for customer addres(22 characters maximum). Use the 2nd address line only iyou can't fit the entire address on the 1st line Enter the city and state portion of the customer's addressEnter the full city name, a comma, and then the statabbreviation. For example: Dallas, T؀ Enter the ZIP Code portion of the customer's address. Techaracters are provided to handle the new expanded U.S. ZICodes and the codes from foreign countries The system has automatically entered the customer's name athe ship to name. If this information is not correct, entethe required ship to name (22 characters maximum). To accepthe displayed ship to name, just press [RETURN] The system has automatically entered the customer's addresas the ship to address. If this information is incorrectenter the required address. Two address line are providedUse the 2nd line only if the address can't fit on 1 line The system has automatically entered the customer's addresas the ship to address. If this information is incorrectenter the required address. Two address line are providedUse the 2nd line only if the address can't fit on 1 line The system has automatically entered the city and statportion of the customer's address. If this information inot correct, enter the required city and state portion othe ship to address. Otherwise, just press [RETURN] The system has automatically entered the ZIP Code portion othe customer's address. If this information is not correctenter the required ZIP Code (10 characters maximum). If thdisplayed ZIP Code is correct, just press [RETURN] Enter the date the customer ordered the items (use eitheMMDDYY or MM/DD/YY format). To accept a currently displayedate, just press [RETURN]. If no date is displayed, juspress [RETURN] to enter today's date If the customer gave you a purchase order number for thitems being ordered, enter the number (12 charactermaximum). Otherwise, just press [RETURN]. This purchasorder number will appear on A/R Detail and Invoice reports If the invoice items are F.O.B. origin, your customer wilpay the shipping costs. If the items are F.O.B. destinationyou will pay the shipping costs. Enter either O for originor D for destination If any of the items on the invoice are taxable, enter Y. Inone of the items are taxable, enter N. If you enter Y, yowill be able to specifiy taxable or non-taxable for eacinvoiced item. Otherwise, all items will be non-taxable Enter the number (1 to 16) of your sales representative thasold the customer these items. If you do not want to entea sales representative for this invoice, enter N. To see list of your sales representatives, enter ? The system is displaying a list of your payment terms on thdisplay screen Use the Up- and Down Arrow keys to highlighthe desired payment terms, then press [RETURN]. The standarterms for this customer will be initially highlighted Use this field to enter any special shipping instructions oto specify the preferred method of shipment (18 charactermaximum) To place a note on the invoice, enter the number of one oyour standard notes (1-9) or enter S if you want to entesome other note before the invoice is printed. If youdon't want a note, enter N. Use ? to see a list of notesUse the Up- and Down arrow keys to go forward and backwarthrough your list of customers Press [RETURN] to select thhighlighted customer. Use [ESC] to return to normal keyboarinput, the 'Show Customers' window will remain on the screeUse the Up- and Down arrow keys to go forward or backwarthrough your part numbers. Press [RETURN] to select thhighlighted part. Press [ESC] to return to normal keyboarinput, the 'Show Parts' window will remain on your screenYou may want to use the 'Show Customer List' feature to helselect a customer. To see a list starting with your firscustomer, enter ?. To start the list at a specific alphabetic position, enter an ID ending with ? (example: PR?) If the displayed information is correct, enter A to accepthe header information and begin entry of the line items. Iyou want to change some of the information, enter E. Terase what you've entered and start over again, enter R Enter the line number (1-10) corresponding to the invoicinformation you want to edit. Lines 1 & 2 are used to edithe entire customer and/or ship to name and address. Wheyou are finished editing, just press [RETURN] Enter the line number (1-10) corresponding to the invoicinformation you want to edit. Since this is a CASH sale, thterms are prepaid and cannot be edited. When you arfinished editing, just press [RETURN] Select the sales representative that sold these items to thcustomer. Type a number or use the Up- and Down arrow keyto select the appropriate sales representative, then pres[RETURN] Use the Up- and Down arrow keys or type a number (1-9) tselect the standard note you want to appear on this invoicethen press [RETURN]If the line item information you've entered is complete ancorrect, enter A. If you want to change some of the dislayed line item information, enter E. If you want to erasall the line item information and start over again, enter RTo edit one of the invoice line items you have previouslentered, enter the line number. When you have finisheediting, just press [RETURN] or [ESC]. Since 40 line itemhave already been entered, no additional lines may be addedTo edit one of the invoice line items you have previouslentered, enter the line number. To add an additional linto the invoice, enter A. When you have finished editingjust press [RETURN] (or use [ESC])In the information on the line you have just entered icorrect, enter Y. If this information is wrong, enter and then enter the information again Enter the part number of the item to be invoiced. To place miscellaneous charge (e.g., labor), enter a dollar sign ($)To print a comment on the invoice, enter an exclamatiopoint (!). When finished, just press [RETURN] Enter the part number of the item to be invoiced. To place miscellaneous charge (e.g., labor), enter a dollar sign ($)To print a comment, enter an exclamation point (!). Whefinished, just press [RETURN]. Use ? to see a list of parts Enter the description of the part or miscellaneous chargthat is being invoiced (or the text of the comment beinplaced on the invoice). To leave the displayed descriptioor comment unchanged, just press [RETURN] Enter the quantity of this part that the customer ordere(.01 to 99999.99). This is not necessarily the quantitshipped, however, you will NOT be able to enter a shippequantity that exceeds the ordered quantity Enter the actual shipped quantity (.01 to 99999.99). Thshipped quantity cannot exceed the ordered quantity (or thon-hand quantity when invoicing an inventory item). Juspress [RETURN] to enter the same quantity that was orderedEnter the unit price of the item (or the misc. charge). Yocan use up to three digits following the decimal poin(e.g., 1.125). When invoicing an inventory item, you caenter any of the three price levels by entering A, B, or CEnter the unit discount you are applying to this item. Yocan express the discount as a dollar amount or a percentagof the unit price (by placing a % after the discount rate)If no discount is being applied, just press [RETURN]If this item is taxable, enter Y. Otherwise, enter NAppropriate sales taxes will be calculated on the total oall taxable items being invoicedEnter the number (1 to 16) corresponding to the saleaccount that should be credited for this item. To accepthe displayed sales account number, just press [RETURN]Enter the number (1 to 16) corresponding to the saleaccount that should be credited for this item. To accepthe displayed sales account number, just press [RETURN]Use ? to see a list of your sales accountsSelect the sales account that should be credited for thsales amount of this invoice line item. Type a number or usthe Up- and Down arrow keys to select the appropriate saleaccount, then press [RETURN] The part number you entered is not on file in the InventorSystem. If this is the wrong part number, enter N or [ESCand then reenter the correct part number. If you want tinvoice this non standard part, enter YIf the displayed invoice summary information is correctenter A to accept and post the invoice. If you want tchange any of the displayed information, enter E. To erasthe entire invoice and start over again, enter RYou have requested that the entire invoice be erased. Tprevent accidental erasure of an invoice, you must confirthe reject request. If you really want to erase the entirinvoice, enter Y. Otherwise, enter N (or use [ESC])If you want to add additional charges that were not entereas line items, you can enter them here (they will be posteto the G/L using the 'Misc Income' posting table entry). Yomay enter either a dollar amount or a percentage (%)If the customer has a standard discount rate, a discounamount is automatically calculated. To accept the displayeamount, just press [RETURN]. Otherwise, you can enter a nediscount dollar amount or a percentage (%)If you want to include any freight charges, enter them hereYou can enter either a dollar amount or a percentage (%)The amount charged will be posted to the A/R Freight Chargeaccount defined in the posting tableIf this sales tax is applicable to the customer, the systehas calculated the sales tax amount. You may override thidecision. If you want this sales tax applied, enter Y. Ithis sales tax is not to be applied, enter NYou specified that you want to place a special note on thiinvoice. Enter the note to appear on the invoice now, usina maximum of 60 characters. If a previously entered note idisplayed, you can accept it by just pressing [RETURN] To examine A/R transactions (payments, credits, etc.) thahave affected a customer's invoices, enter the customer IDEnter N or P for the next or previous customer. Use ? to sea list of customers. When finished, just press [RETURN]The note you have entered is displayed on your screen. Ithe note has been entered correctly and you are ready tprint the customer's invoice (or credit), enter Y. If yowant to re-enter the note, enter N (or use [ESC])If you want to enter return merchandise credits, as showabove, enter Y. If you want to enter the credits, but neeto change one or more of the displayed specifications, enteN. Use [ESC] to return to the Accounts Receivable MenuIf you want to print each return merchandise credit afteit's recorded, enter Y. Otherwise, if you just want tenter the information without printing the credits, enter NTo print the line item information on the credits withouinserting a blank line between each item, enter Y. To hava blank line inserted between each item on the returmerchandise credit, enter NEnter the ID for the appropriate Accounts Receivablcustomer. If you enter a valid customer ID, the systewill respond by displaying the customer name and currenbalance. Use ? to display a list of your customersEnter a transaction reference number (1 to 99999) that wilprovide an audit trail for the credit you are enteringThis reference number will appear on the A/R Detail ReportETC GOLDEN IBS RODEBYKESTANS WHEEL @@;{;{;{;{@CSTAXCaliforniSan Francisco CitSales Tax #ETC Bikes Et Ceter357 Dundee AvenuElgin, I601431683268Martin Spence"f<7 fssWHEEL Wheelaway Cycle Cente402 E. Hamilton AUWXYveCampbell, C951340378665David A. Hamptot$>_srs|RODEBYKRodebyke Bic & Moped5887 Santa Teresa BlvSan Jose, C951240946495Susan Barne,CP6@/ [ss`STANS Stan's Cycler2356 Hawthorne BlvHawthorne, C919421371714Stanley Morri= t$ ``xpss IBS Inter. Bicycle Sale1238 Federal BldAvenue of the AmericaNew York, N115021567990Mr. Robert Yarmi )}`3?pss GOLDEN Golden Gate Rental8812 Haight StSan Francisco, C970041555224Dorothy Mead@@t$`j`ss P|@ S S@*SERVICService @1Fp'Verbayf<@99STANS/011y 3p!f!f Z\]^_`Service MAcxy@''Service JUcyy@''45yVT@+xT@La Verbay "'"359-664-3y=6A::359-665-7y4-(u '(@STANS/13y|! % 359-665-9y )"Pܦ P STANS/14y #s<s< 0359-666-5y  @@ Paymen7yxpP Paymen&yj`- @ Paymeny[YQp PaymenQy?pi ` Credi_y@  Debit_yZ Apply O/yJ@ Mark W. Harpe541 Rose AveBelmont, C981241555512Jeffrey P. Bernstei1227 Shattuck AvBerkeley, C990141959092Mildred Anthon9812 North 17th StApt 7San Francisco, C979141359691acdeAdjustments Register, and on customer statementsEnter the date (using MMDDYY or MM/DD/YY format) of threturn merchandise credit or just press [RETURN] to entetoday's date as the transaction dateIf any of the items being returned are taxable, enter Y. Inone of the items are taxable, enter N. If you enter Y, yowill be able to specifiy taxable or non-taxable for eacreturned item. Otherwise, all items will be non-taxableTo apply the credit to a specific invoice, enter the invoicnumber. To credit the oldest invoice on file, enter OLDTo apply the credit to the customer's open credit balanceenter OPEN. To see a list of invoices, enter ?Use the Up- and Down arrow keys to go forward and backwarthrough the list of invoices. Press [RETURN] to select thhighlighted invoices. Press [ESC] to return to normal keyboard input, the 'Invoices' window will remain on the screeEnter the part number of the item to be returned. To place miscellaneous charge (e.g., labor), enter a dollar sign ($)To print a comment on the credit form, enter an exclamatiopoint (!). When finished, just press [RETURN]Enter the part number of the item to be returned. To place miscellaneous charge (e.g., labor), enter a dollar sign ($)To print a comment, enter an exclamation point (!). Whefinished, just press [RETURN]. Use ? to see a list of partsEnter the description of the part or miscellaneous chargthat is being returned (or the text of the comment beinplaced on the form). To leave the displayed descriptioor comment unchanged, just press [RETURN]Enter then quantity of this item that is being returne(from .01 to 99999.99). If this is an inventory item, thon-hand quantity maintained in the Inventory Control Systewill be adjusted accordinglyEnter the unit price of the item (or the misc. charge). Yocan use up to three digits following the decimal poin(e.g., 1.125). When crediting an inventory item, you caenter any of the three price levels by entering A, B, or CEnter the unit discount you are applying to this item. Yocan express the discount as a dollar amount or a percentagof the unit price (by placing a % after the discount rate)If no discount is being applied, just press [RETURN]If the item being returned is taxable, enter Y. Otherwiseenter N. Appropriate sales taxes will be calculated on thtotal of all taxable items being returnedEnter the number (1 to 16) corresponding to the saleaccount that should be debited for this item. To accepthe displayed sales account number, just press [RETURN]If the displayed credit summary information is correctenter A to accept and post the credit. If you want tchange any of the displayed information, enter E. To erasthe entire credit and start over again, enter RYou have requested that the entire credit be erased. Tprevent accidental erasure of a credit, you must confirthe reject request. If you really want to erase the entircredit, enter Y. Otherwise, enter N (or use [ESC])If you want a message or note to appear at the bottom of thcredit form, enter the text of the message (60 charactermaximum). This message can be used to indicate the reasofor the credititt90 days"9500:R0I0İ9600A:<#9600:I1SX:9500:R0İ9200:VSVS1P:>#R0ISXn:@#:ES,92:24:OP,129:I1:F#HL,71P:PI,42,7,10,SX,I,X:XY,VS,VS:RT,8,A$:ESXM3:ESXįES:350:P#IS,F,F,A$,R:GS,9550X50:R0įBL:9030 ;Z#GO,42,7:SW,34,SX,X:9200:9030<;#P2įBR,QT,R,#N,@I%,@I%,@I%,3N,3N,$A$,$N$Y;#P1įBR,QT,R,#N,$A$,$N${;$GO,42,VS:PU,B1,S10,A$,LN$:;%IS,N,F,A$,R:;%IS,P,F,A$,R:;'No,Yes,Origin,Destination,None,Special,$Misc Ch,!Comment$:D"I13:RS,155I,A$:A$"Sales Tax ("A$")":SS,233I,A$:N"FC:"OL,2,A$,A,N:A10įER,"INSUFFICIENT DISK SPACE AVAILABLE":ES1:200"NPİ5200"EF1:UI0:EFįFV,178:UI1"GX0:RC5150" EF1:EFįFV,198:GX1" NP5150#GXĺD$"OPEN"IT$",L1"O#FO,198,GQ:FL,0,27,GL:BW,GQ,0,A#GL:27:FC,198:g#GXįFC,198:FX,198m# #PI18IV:5300:#ZA$"Sales Acc't":A170:I116:5310::#A$"A/R entry":A159#RD,AI,X:X0ı&$XC,LV:ER,"ERROR IN POSTING TABLE, check "A$" # "(I):ES1:200N$XEFER(222):ER6ER8EF0:XO:V$bPX$'5,19,8,1,14,0,7,19,22,7,14,2,8,19,22,7,14,1,9,19,22,7,0,2,10,19,20,7,0,2,11,19,10,7,0,2%'13,19,22,8,14,1,14,19,22,8,14,1,15,19,22,8,0,2,16,19,20,8,0,2,17,19,10,8,0,2E%'7,64,8,3,11,1,8,64,12,2,11,0,9,64,11,4,11,1,10,64,3,4,11,0%'13,64,4,5,11,0,15,64,1,5,11,0,19,19,18,2,14,1,19,64,7,6,11,1%',4,8,,,2100,,13,24,,,2150,1,38,6,9999999,,2200,,45,6,-1,,2200&',52,9,99999999,,2200,,62,9,-1,,2200,1,73,2,16,,2300,,78,3,1,,2200&*"/Customer ID or !C!A!S!H","/Customer name","/address line #1","/address line #2","/city & state","/ZIP code"&*"/'ship to' name","/address line #1","/address line #2","/city & state","/ZIP Code"l'*"/customer order date","/customer Purchase Order number","/F.O.B. point (!Origin or !Destination)","Is this invoice taxable? (Yes or No)" (*"/sales representative (1 to 16) or !None (use !? to see list)",,"/shipping instructions","/note number (1 to 9), !None or !Special (use !? to see list)"(+"/part number (use !! for a comment or !$ for a Misc. charge)","/description","/quantity ordered","/quantity being shipped",,"/unit discount amount or percentage",,"Is this line item taxable? ";)."Shipment SubTotal","Miscellaneous Charges","Discount Allowed","Freight Charges",,,,"Invoice Total") N4,17,8,1,15,,4,64,5,2,17,,5,64,8,3,17,,6,64,3,4,17,,7,64,5,5,17,5*R"/Customer ID","/return credit reference number (1 to 99999)","/transaction date","Are the items being returned taxable?","tuvwxyz{|}~RD,XSL,S:RD,XGL,G:* 0GO,HG1,V:I 6GO,H,V:I$(L)""LLL320_ 8OX,S,U$:L4įCL{ :L1įGO,H,V2:CW,22,3 <L5įGO,H,V1:CL > @L3įOY,I$(L): BOS,S,I$(L):L4įCL DL1įGO,H,V2:PL,S22,C$(2):GO,H:PL,D0,D(1):GO,H:OD,0,D(2)& FL5įGO,H,V1:OD,0,OB, H? JSHįHL,R:SH0E LY NSHįHL,S:SH1_ P TP2:352:GO,1,11:OP,131::OP,132::OP,133:L11: VV14LL1:H1:GO,H,V:OI,5,L: ^GO,1,23:CS: `GO,1,10:CW,80,12: b350:24:OP,I: h304:GįHG,G j) l304:GįHG,G2 n350t rLI,A$:(A$,1)"%"U77:N(A$):N0NHUNQ(NZ):U0:X0z t |(S8$(XHU),6);: ~X(X)įOD,8,X,3,9: OD,40,X,4,9: A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):390 QF(A$,1)Q$: IL: XZ(I,1):DQ(XZ(I,3)):XQ(XZ(I,2))D:{ 350:"Enter line number to edit (1-"L")";:TįOP," or !Add" ": ";:HL,HL:NI,0,X,N:ESXM2:ESı LI,A$:SQ,A$,"ADD",I:ITNL1: XN1NLįER,76:420P1ĭN8CIįER,50:420#Z(GTTZC1):=TX(J)TX(J)Z:JJ1:`5910:TFI$(4)Y$(1):ET0:340|LET1:E0:2000:N530ET540352:5900:150ETEX510HL80:P$"Line item detail":N1:4800:N600,550,500 &LET:TETEX:HL81T:420:ES540%0LN:ELET:2000:550NX3000:ESİ340:2860:RC1:2600:540lI36:354:6000:PFİ3500xKP:50HL107LSEE:300:NIL2L5:GS,1000100L:330:ES310E1:310:ESE:LL1:LLLLLL:310:1000$LES,11:1900:UC,A$:A$"CASH"įER,33:1100MVP$" Customers ":XNC:1150:ES1050kXN0įER,126:HL74:1100`XCI:CIN:5300:TVT3(4):TV250T3(5)400įER,35:CIX:1050bIDįEA,I,LI,R%dI(TV),LI(TV),R%(TV):ID1jI$(L)A$:330:E1:310:5500:I15:N$(I)C$(I1):jtDRT3(3):SAF%(11):PLF%(13):I$(4)Y$(F%(3)F%(4)F%(5)):I13:TF(I)F%(I2):uvLL0:~UC,A$:QFA$(A$,1,(A$)1):1180:9000:ESı1180:IS,F,QX,A$,N:P1310A$(S8$A$,8):28001900:(N)NN1NXIįER,34:1050<RFN:A$(Z0$A$,5):RF$"Credit "A$KI$(L)A$:c1900:A$""A$CY$~DT,A$,N:NIYN:1250(ER,78:1050x1900:1):HL,HL:YN,I$(L)Y$(1),"",X:364:ESXM3:ESI$(L)Y$(X) 1900:QFİ310:1600:ES11550,1050&OC0:A$"OLD"N0:1540eA$"OPEN"OC1:XK0:IU0:OBD(2):IU$"Open Credits":1250(N)NN1NXIįER,135:10505550:I0įER,38:1050IVR%(I):5800:OB0įER,119:1050XKIV:IUN(1):A$(Z0$(IU),5)"IU$"Invoice #"A$:12501@350:334:SX11:OISXSXOIJGO,4,7:WB,37,2SXOI," Invoices ":" Inv # Reference Due Balance":GO,5:"----- ------------ ----- ---------":L11:OIįGO,13:"No invoices on file":ES1:TI1SX:VS8I:1670::350:OP,129:I1:ES,92X^HL,113:PI,4,9,7,SX,I,X:XY,VS,VS:ESX3:ESXILI(L1VS9):h(X0L11)(X0L1SXOI)įBL:1630rL1L1X:GO,4,9:SW,38,SX,X:1670:1630IVR%(LI(L1I1)):5800:GO,5,VS:PU,D8,N(1)HU,4,5,B2,S13,PO$,YN(2)DD%,D8,OB,2,10:2lES0:350:OP,200L:L1Ģ24:OP,64GnL5Ģ24:OP,40Wv360:L4ıNIįGO,H,V:HL,HL:NI,S,X,N:LI,A$:UC,A$:390:ESA$ES$:1950GO,H,V:XS:L1įPU,LI$(L),XS(I$(L)),U$:GO,H:XS!HL,HL:KI,X,A$:390:X0:ESA$ES$:A$SP$A$I$(L):A$""L1ES1V364:ES:XM2ESA$I$(L):N(A$):X0:ESL1ġ\SEL:2850:LSE:EāI05:Z(0,I)Z(L,I)::P$(0)P$(L):D$(0)D$(L)342:SEE:T0:OX0:ES0:RCEET2:Eİ400:OXX=SHEįCL:I03:Z(L,I)0::Z(L,4)SASA:Z(L,5)TF:P$(L)"":D$(L)"":L1EP0:GO,1,20:CW,80,2gHL84UI:2700:RD,XUT2,U:GS,U:350 330:TT12ES:T02080TĭE2000T62500Q0ĭT2(QM2T1)20602050  330:EāI05:Z(L,I)Z(0,I)::D$(L)D$(0):P$(L)P$(0):2880**GO,1,V:CL:ETL1:N0:a42700:A$P$(L):X9(12UI):2750:A$SP$ġ:20806SQ,(A$,1),"$","!",N:NA$Y$(5N):IN1:Z(L,1)IHU:NN:2140>350:UIİ1180:N0:2140HP$" Parts ":XID(1):1150:ES2100JN02130[LHL,95:ER,"Part '"A$"' is not on file","OK to include this non-stock part",N:N02100iNN0:2140RPIN:5400:P$(L)A$D$(L)PD$(2):Z(L,2)PC(2PL)\Z(L,0)N:P$(L)A$:330:GO,H,V:OS,S,A$:fA$D$(L):Q0EESHL116:XS:2750:D$(L)A$:Q0ĺ14):QM2įCL$pES0:28007T6ĭTF2800bHL115T:2900:T3ĭNZ(L,3)Z(L,3)0T3İ400:EPXOXAXįER,136:2800::2050HL120:2900:QFı) 334:NZ(L,4):GO,4,5:WB,40,16," Sales Accounts ":GO,1,22:OX,50,"-":5:I116:GO,4:PL,I2,I,L". ",S34,239I: 350:"Select sales account. ";:OP,121:HL,94:NNN:PI,8,5,36,16,N,X:XM32300 330:Z(L,4)N:2800 350:ESE:LETETL 2600:RC1:E2550 350:HL,83:YN,1,"OK to accept this entry",N:ESN0:ES2060* NETET1:2600:20004 N1:Z( KET:RCEP0:TX0:FL,0,26,U:K1h2 ET2640< ETK10İ350:OP,"One moment please"F IKET:410:EPEPX:TXTXXZ(I,5):JZ(I,4)10:U(J)U(J)X:P 350:GO,48,20:OX,9,"-"::GO,29:PU,L"Extended Total = ",D0,EP:W 2740:RD,XVT2,M:RD,XTT2,Z:QZ(L,0):Z0ZZ(L,T2)]  ITH1:T1T1:T2I(T1):RD,XHT2,H:RD,XST2,S: 2780:PU,LA$,XS(A$),U$,B1:GO,H:HL,HL:KI,X,P$:ESP$ES$:ESĭP$""A$P$  390:GO,H,V:PU,SS,A$,B1:ESġ 7 350:OP,200T2:TĢ24:OP,65E GO,H,V:o T2įGO,7,V:PU,S9,P$(L),S24,D$(L): XZ(L,T1):GO,H,V:T1380,382,382 T5įOI,2,X: TFįOS,3,Y$(X): "n/a":" VLL1:V0V6ı$ L1L2:L11L11# , GO,1,14:CW,80,6:L2L15:L2ETL2ET: 6 LL1L2:2880::b @ 342:T0:2800:QZ(L,0):QM2įCL: B T3(Q0)6:2740:2800:: T GHU:ESE:2800 ^ T5İ2780:HL,HL:D3,S,X,N:ESXM3:X2X1:T3NN10:X0'!` T5İ2780:HL,HL:NI,2,X,N:ESXM3:G1:LI,A$:390:QFQFUG:QF2800Z!b T6İ350:OP,227:HL,120:YN,X,"",N:ESNM3l!h ESİ2800::!j XM2NZ(L,T1):X0!l U0:X0U73:T4İ370!r UĭT3Q0įLI,A$:SQ,(A$,1),"A","B","C",N:N0NPC(2N):U0!t UįER,U:2970 "| NMNZ2960&" Z(L,T1)N:E1:330:2800]" ER,"INVALID ENTRY, must be "(MG)" to "(ZG)m" 2800:2900" P3:352:FL,0,7,M:M(0)EP:GDR:L2:3300:450:M(2)Z:L03:3410::3350" N1" HL122:P$"Return Credit":4800:ESı# L1:N3200,3100I# 350:HL,123:YN,"OK to reject entire credit",N:350:N03050S# :50# LLL:V11L:SM(L):3410:RS,230L,P$:GO,23,V:HG,23:L33140#& 350:OP,"Enter "P$:GO,49,V:HL,97L:DI,9,X,N:XM23150$0 U74:370:3300:X0N0(L2NZ)įER,U:3100+$: M(L)(12(L2))N:3150m$D 350:HL,101:YN,TF(L3),P$" applicable",X:XTF(L3)XM2$F XM2TF(L3)X$N 3410:LLLL12(XM3):XM2İ3350$X LLL:L3TF3050$b LL73100$l 3050$ N2:AMM(7):AMAXįER,136:3060% OCĭAMOBįER,137:30602% AMįER,50:3060I% PFİ8000:ES3050p% I16:U(I(I4))M(I)::U(7)M(3)% N0:N%0:I226:XU(I):XNNX:N%N%1% :U(1)N:N%N%(N0):% Z0:I0L1:ZZM(I)::& FL,0,9,TX:TFXM(0)M(1):XX((1M(2)X)(TXM(1))C1)<& L46:IL3:Z0:TF(I)TF3380y&* J3I2:RD,75I,N:ZXNM(3):460:RD,72I,N:NZNZN&, 460:RD,69I,G:GGHU:450:460&4 M(L)Z:3410:&H L7:3300:M(L)Z:GO,48,18:OX,10,"-"'R GO,23,11L(L7):PU,B1,S23,230L:L4L7įOD,0,(M(L)):0'T TFĺ7)"n/a":Y'V OD,0,(M(L)):" ("Y$(TF(L3))") ":' N$(4)N$(4)SP$N$(5):N$(3)SP$N$(3)N$(4):N$(4)""' I37:354:PW,PS:P$"":4000'I1ET:4300:ZZ(I,0):PZ0 (31P):PXZ(I,1):380:12):PU,B2,S11,P$(I)(($OS,28,D$(I):ZM23650L(.9P):PXZ(I,2)Z(I,3):382](8410:OD,0,Xe(B:(tN2:I07:NN(M(I)0)::4200:SP$:SP$(~I07:XM(I):XįPL,B38,S30,230I,D0,X(:(N$,1)SP$N2:4200:SP$:13)N$')4100:PW,0:350:24:OP,134:WS,A$:350::A$ES$3550-)\)L14:RS,65L,A$:7):L2L4ĺA$:4020)OS,59,A$:L1ĺ"Credit "P$:4020)I$(1)):L13:PL,B50,S27,115L::PL,B50,S27,117:PL,B50,S27,116:SP$:SP$*L14:PL,B7,LN$(L)::L15:SP$:E*PL,B1,YI$(3),B40,L"Applied to ",LIU$:SP$:64)"Credit #"I$(2)d*SP$:L25:SS1ĺSP$:LL1j*{*FFĺ(FF):*LL66:SP$::*hLN60İ4100:P$" (Cont)":4000*rLLN:*NSS:4200:SS2ĺSP$*-+350:P$;:OP,63:HL,HL:KW,"Accept","Edit","Reject",N,N:ESN0:ESN36+350<++ES$(27):SP$" ":Q$"?":S8$" ":Z0$"00000":W$"BW":R$"BR":TL$"Return Merchandise Credits"0,Z%0:C1.5:M22:M33:HX5:H120:EX40:IX250:HU100:XI1E5:TT1E4:AX8E6:XV200:XH250:XS300:XT350:XG400:XU450:Q(X)(XHUC1),RS,0,CY$:DT,CY$,CY:RS,2,U$:RD,1,PS:RD,2,FF:RD,7,BQ:RD,16,JM:RD,17,NP:RD,18,UG:RD,190,UI:RD,191,PF:RD,192,SS@-Y$(7),I$(HX),N$(5),P$(EX),D$(EX),Z(EX,5),T(12),C$(9),T3(5),F%(13),D(12),N(5),A(4),U(26),Y(24),M(7),ID(32),G%(3),PD$(4),PC(5),P(24),TF(3),TX(9)T-I07:Y$(I):^-FC:-UIįFO,179,QD:BR,QD,0,A#ID:32:CMID(5)-NPįFO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3JX-FC:5900:BR,QD,0,#NC:-PB$R$.Z@B$,QT,0,#AV,#LR,#CC,#DK,A#T:QS:.dB$W$:5210..AVLRLR1:XLR:G.XAV:BR,QT,AV,#AV:Q.B$R$.@B$,QD,CI,#RP,A$C$:9,A3T3:5,A@F%:13,A#D:12:.B$W$:5320.B$R$.,@B$,QD,PI,#TL,A@G%:3,3SL,3LQ,A$PD$:4,A#PC:5,A#P:11:.JB$W$:5420C/|Q(TV):IVRP:OI0:IVĢ16:WB,32,1," Please wait ":OP,"Collecting customer invoices"c/IVįSR,Q,LI,OI:EA,Q:352/5800:T%1OITVOIOI1:I(OI)N(1):LI(OI)OI:R%(OI)IV:Q(OI)N(2)DD%/IVXR:5510/NįFD,N,OI,I,I: 0I0:NOINN1:ILI(N):IVR%(I):5800:OB556000B$R$n0@B$,QT,IV,#XR,@K%,@T%,@S%,$PO$,A3N:5,A#A:4,A3Y:23,@DD%:OB(A(1)A(4)A(3)):~0B$W$:58200 QS12:F14:59200UIı0QS3:F1780 FOFı0*Pİ350:OP,3904OFįFC,OF:FC,OF1:FC,OF211>FO,F,QX:IS,O,QX,N,N:FO,F1,QD:FO,F2,QT:OFF:5200:Pİ35071HX1pP0:(4)"FRE":NPN%262001zFO,164,QA:FO,165,QJ:A$"CR"I$(2):T%22:CYJMN%N%1BW,QJ,JR1,%N%,#CY,$I$(1),$A$,@T%:JRJR3:JVJV1:T%0x2I126:NU(I):NįRD,160I,X:BR,QA,X,#A:JEJE1:JRJR1:T%T%1:BW,QJ,JR,#A,#N,@T%:N%0įBR,QA,X,#A,#T,$A$,A#A:3:J2(N0):A(J)A(J)N:BW,QA,X,#A,#T,$A$,A#A:32:BW,QJ,0,3JV,3JE,3JR:FC,164:FC,16528S%0:5900:XKIVXK:5800:A(4)A(4)AM:58503B5250:Z0:T%2:A$" Credit":FL,0,23,Y:Y(1)IU:Y(12)AMi3LBW,QT,X,#RP,@Z%,@T%,@S%,$A$,3RF,3IY,3DK,3Z,3CI,#AM,#Z,#Z,#Z,A3Y:23,@Z%,@Z%,@Z%,@Z%3jDKX:RPX:T3(5)T3(5)1:OCD(2)D(2)AM3tOCD(1)D(1)AM:D(8)D(8)EP3~53503I412:T(I)T(I)TX(I3)::5220:UIı4I1ET:PIZ(I,0):QZ(I,1):PI0Q6700W4d5910:5400:R0:A(10PC(1))10:TQ(QA):CM2RQ4PZ(I,2)Z(I,3):N8Z(I,4):ID(N)ID(N)T:ID(29)ID(29)T45250:LTL:CM4LTLX:66504BR,QT,L,#N:NLN:66204BW,QT,L,#X:L055Z0:N%20Z(I,4):BW,QT,X,#L,@Z%,@N%,#Q,#R,#A,#A,#P,#Z,3CY,3BQ,$RF$,@Z%5LQBQ:P(1)P(1)Q:P(8)P(8)Q:P(10)P(10)Q(QP):P(11)P(11)T:P(1)0P(1)0554505,:F178įBW,QD,0,A#ID:32:DK1:5220565XPX|6@350:HL,S:OP,"Enter special note to appear on credit form, if any":16:WB,60,1," Special note ":XY,H:PU,LS$,X60(S$),U$:GO,H:HL,124:KI,60,N$:ESN$ES$:ESįHL,R:6JN$""N$S$6N$""įGO,H,16:OS,60,N$:350:HL,104:YN,1,"OK to accept this note",N:N180006S$N$:HL,R:7(#XįER,95P:ES1:672#350:334:SX13:XSXSXX:A$""y74#VS7:GO,42,7:WB,34,SX,P$:IS,F,QX,A$,I:9500:R0I0İ96007<#9600:I1SX:9500:R0İ9200:VSVS17>#R0ISX7@#:ES,92:24:OP,129:I18F#HL,71P:PI,42,7,10,SX,I,X:XY,VS,VS:RT,8,A$:ESXM3:ESXįES:350L8P#IS,F,QX,A$,R:GS,9550X50:R0įBL:9030q8Z#GO,42,7:SW,34,SX,X:9200:90308#P2įBR,QD,R,#N,@I%,@I%,@I%,3N,3N,$A$,$N$8#P1įBR,QD,R,#N,$A$,$N$8$GO,42,VS:PU,B1,S10,A$,LN$:8%IS,N,QX,A$,R:9%IS,P,QX,A$,R:49'No,Yes,,,None,Special,$Misc Ch,!Comment/invoice number to be credited, !O!L!D or !O!P!E!N"O*U7,16,,41,48,58,69,74'gfd$'j*B ARMENU.PROGp MODMENU.PROG CUSTOMERS.PROG5B CUSTLIST.PROG5ARCUSTINQ.PROG5 ARINVINQ.PROGcUBARINVSETUP.PROGSUARINVOICE.PROGUARINVPOST.PROGuB ARRECURR.PROGuARRECLIST.PROGuARRETURNS.PROGBARCASHPOST.PROG  ARADJUST.PROG ARSTATE.PROGB ARCLOSE.PROGARRECPOST.PROGARSALESTAX.PROGB ARSALES.PROGARSALESREP.PROGARREPLIST.PROGB ARCREATE.PROGs ARAW.PROG  ARAWSS.PROGB ARAWDB.PROG ARDETAIL.PROGU ARAGING.PROGV5BAROPENINV.PROGU5 ARANAL.PROGS5 ARWORK.PROG0UB ARREGS.PROGSU ARFLASH.PROGnUAR.HELPuBARR.HELPuARX.HELPu CUSTISAM.FILElB CUSTDATA.FILEo ARDATA.FILEv SALESREP.FILE 깬N`FWu&ElQXfo.=54&86SQhf@^?D 4|l:G :0kr #v>iVڜ_P||=b"`מm(@h|⾢*pJw]D^otRF*|V>X~'>"K"mPGkޚ1Tؾ]󠼯\ [>3Ӆgpg