BW.AR K>$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 a