BW.INV KS'$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.INVLCOPYDISKR ' &@,INVMENU.PROG.*,MODMENU.PROGQ!*PARTS.PROG,#G.PARTSLIST.PROG?45,INVLIST.PROGN5-PARTSINQ.PROG]% !'PO.PROGe+5*POINQ.PROG| !*POREC.PROG A8-POREPORT.PROG 5-INVTRANS.PROG+"!+PHYINV.PROG5.PHYUPDATE.PROG*5-INVCLOSE.PROG H,PLEVELS.PROG!-GPCHANGE.PROG A!)COGS.PROG~ .INVCREATE.PROG!*INVAW.PROG ,INVAWSS.PROG,INVAWDB.PROG+-INVSTOCK.PROG85+INVOHD.PROGF5.INVMARGIN.PROGW 5+INVABC.PROGg~5,INVPERF.PROGu .INVDETAIL.PROGX5+INVREG.PROGHk/INVREPORTS.PROG5-INVFLASH.PROG#(INV.HELP1_^)INVR.HELP0]^INVISAM.FILE+!,INVDATA.FILE- !-INVTRANS.FILE38!POISAM.FILE8!POHEAD.FILE92!+FINDER.DATA?PR pR ? 7000 5000:HL,HF$<2RD,6,MT:MT1MTMXMT1p<M1MT1:LV2M1(MT6):1:80,N:XC,LV,MT$(MT)FFTĢ10LV2:OP,"Please wait":2000:FT0dXC,LV:I1I(MT):OXI(MT1)I1:I1OX:OP$(I)O$(I1I): nN1:HL,0:MS,LV,OX,OP$,1(MT6),1(OX6),1,N:Nİ6000:110) pN0200Y xP$P$(I1N):M1įBT,PW,N,I:IįER,71:110z M(P$):M1M9įSD,6,M:50 500 MT1MT15(MT6):SD,6,MT:50 ,BT,IN,4,0:SD,19,IN:FC:ES:XC,LV:MM,LV,"Main Menu":RU,MM$ (P$,1)"/"550 :<G UGįER,"CANNOT USE OPTION, GENERAL LEDGER NOT AVAILABLE":100V P$(P$,2) &XF0:SC0:HR(P$,1)"?":HRP$(P$,2) 0(P$,1)"#"SC((P$,2,1)):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$790G WP,2,N:ND2:9500:750a 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:8500 *XC,LV:62LV:BL$;:OP,122:::OP,P$:::OP,123:::OP,PF$::::OP,103:WS= 4XF100F >300h RRMįWP,1,N:ND1:9500:800 SD,8,0:SD,10,SC:SD,12,0:SD,17,SUUG:SS,11,MT$(MT):SS,12,PF$"INVMENU.PROG":SS,13,S$:RS,IX,A$:SS,14,A$:RS,ID,A$:SS,15,A$:RS,IT,A$:SS,16,A$* RM1įSS,199,PF$"TEMPSORT.FILE": HRįHL,HR$R ES:FC:D$"RUN"PP$e GO,1,24:CL: SC0:RMįOL,2,A$:A$DP$İ9100:ES12000,300 EF1:EFįFV,IX:EF0:FC:2200n4LV2:XC,LV,MT$(1):GO,12,12:BL:WB,55,4," No Data Available ":"No "S$" data files (i.e., list of parts,":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,107:YN,"OK to create "S$" data now",N:1000:N0300+pSC1:2320UFO,IX,F:NK1:EF2:EFįIS,O,F,NK,NDFO,ID,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU:NP(NKND)RB1RB2400BW,QI,0,#NP,#RB:KPJLV2:XC,LV,MT$(1):HL,108:ER,"Error detected in "S$" Data !",1,"A data rebuild is recommended, OK to rebuild now",N:N0300T SC2 P$"INVCREATE.PROG":PP$PF$P$:XF1::600` BT,IN,4,N:NUG2500j BR,QI,0,A#A:32,A$PL$:3,#N,#N,A#CG:20:FO,163,QG:IS,O,QG,N,N:FO,164,QAWt I116:A0:CCG(I):C0įIS,F,QG,C,A:A0įBR,QA,A,#N,#TY,$DS$:OD,16,CHU,A$:A$(A$,5,7)" - "DS$rv A0A$"Not Defined"~ A$(" "(I),2)". "A$:SS,139I,A$::BT,IN,4,1:SD,19,IN:FC,163:FC,164 SUUGLV42600 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 Inventory":GO,H:"Control SETUP mode. While you're in this SETUP mode, Inventory"f GO,H:"Control transactions will NOT be posted to the General Ledger.":GO,H:"You should use this mode ONLY to enter your part information":GO,H:"and on-hand quantities.":LV3ĺ GO,H:" Use the Maintain Parts and Inventory Transaction options":GO,H:"to enter your Inventory Control information. You should also" GO,H:"use the reporting features of the Inventory Control System to":GO,H:"verify that you have correctly entered part information and":GO,H:"on-hand quantities." 1000:HL,109:YN,1,"OK to remain in Inventory Control SETUP mode",N:N0300 N2600T 1000:OP,"Please confirm by typing !O!K: ":HL,103:KI,0,A$:A$ES$2520 UC,A$:A$"OK"įER,"REQUEST CANCELLED, still in SETUP mode":2520 SU0:BW,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU( FC:D$(4):ES$(27):BL$(7)(7)mS$"Inventory Control":AS$S$" System":AO$"Provides additional options to ":MU$"Main Menu":FT1:HU100 RD,0,RM:RD,18,UG:RD,19,IN:RD,24,PW:RS,3,CN$:RS,20,MP$:RS,28,PF$:RS,29,DP$:DD2(RM2):IX178:ID179:IT180:HF$PF$"INV.HELP":HR$PF$"INVR.HELP"DMM$MP$"MAINMENU.PROG":RM1MM$PF$"MODMENU.PROG"O$(40),P$(40),I(8),MT$(8),OP$(14),A(32),PL$(3),CG(20):I0:N1:I(N)0:MX0O$:O$"/"NN1:MXMX1:I(N)I:5070O$"//"5080P$:M(P$):M1M9MTM:MT$(M)O$.II1:SB,N5,"Print ",1,O$,O$(I):P$(I)P$:5070qMT$(1)S$:MT$(6)"Inventory Reports":MT$(7)"Analysis Reports"{FC:pHL,S::"Help for "MT$(MT):OX,80,"=":GO,1,23:OX,80,"-":GO,1,3:I1zGS,6000MT100ES,MT$(MT):1000:OP,103:WS:HL,R:SS22:6800:AO$"enter and update":T)"part information, to list your parts on the screen":T)"or printer, and to quickly examine part status":D6800:AO$"enter and generate":T)"purchase orders, examine existing purchase orders,":T)"receive items ordered, and list open purchase order"T)"information":6800:"Record inventory receipts & issues (sales), adjust":T)"on-hand quantities, and change on-order quantities":T6800:AO$"generate a worksheet"T)"to help take a physical inventory and to update the"T)"inventory records after taking the physical count":6800:"Post a summary of inventory transactions to the"T)"General Ledger. Use this option only if you want":T)"to generate up-to-the-minute financial statements":T)"before the end of month"SS23:6900:6800:"Close the "AS$" and post to the"T)"General Ledger at the end of each month or the end"T)"of the year":-6800:AO$"enter information":T)"about your price levels, make global price changes"T)"(e.g., increase price 10% for a single product"T)"group), and define additional cost of goods sold":T)"accounts in the General Ledger":O$"Create & Rebuild Files":6810:"Create your company's "S$" data files"T)"and rebuild the data files in case of error":$O$"Convert to AppleWorks":6810:"Convert your "S$" data to spreadsheet"T)"or data base files that can be used by AppleWorks":9.6800:"Transfer to the "S$" Reports Menu,":T)"from which you can select from the many available":T)"reports to help analyze and control your inventory":8:SS24:6800:"Enter, edit, and/or examine the part information":T)"contained in your "AS$:B6800:"List your part information on the display screen":T)"or your line printer":b L6800:"Produce a report that lists current unit cost":T)"or unit prices for each inventory part": V6800:"Determine the current status of any part in your":T)AS$:!:SS29:6800:"Enter information about inventory items":T)"being ordered and generate purchase orders":!6800:"Determine the current status of":T)"any purchase order on file and optionally":T)"cancel either an entire purchase order or":T)"an individual ordered item": "6800:"Receive items previously ordered using the":T)"purchase order option":"6800:"Produce a list of open purchase orders":T)"(i.e., purchase orders tha have one or more":T)"items that have not been received) on the":T)"screen or printer":`#:SS17:6800:::T)"Print a worksheet to help you take a physical inventory."T)"The worksheet can be sorted by either product group or"#T)"bin/location to help simplify the count and provides a":T)"space for you to write down the results"::^$ 6800:::T)"Enter the results of your physical inventory count. Your"T)"inventory information will be updated as a result of the";$ T)"count and a Physical Inventory Analysis Report will be":T)"printed indicating all items whose physical count varied"T)"from the book quantity":%d:SS26:6800:"Enter information concerning the three levels":T)"of pricing available in the "S$:T)"System. You can assign a description to each"&fT)"price level (for example, RETAIL, DISCOUNT,":T)"etc.) and a price factor to the 2nd and 3rd":T)"levels":a&n6800:"Globally (i.e., to some or all parts) adjust":T)"inventory prices":'x6800:"Identify up to 16 cost of goods sold":T)"accounts from your General Ledger. This option";:T)"allows you to expand upon the one cost of goods";/'zT)"sold account in the posting table":':SS27:6800:"Produce a report that shows on-hand & on-order"T)"quantities, unit cost, unit prices and stock":T)"value for each inventory part":n(6800:"Produce a detailed report of current on-hand":T)"quantities. This report is especially useful":T)"if you are using LIFO or FIFO costing methods":)6800:"Produce a report that shows both month-"T)"to-date & year-to-date inventory performance, "T)"gross profit, and inventory turnover":a)6800:"Produce a report that is useful in analyzing":T)"and setting inventory margins":)6800:"This report analyzes your inventory and helps "T)"identify critical those parts that require":T)"your attention":6900*:6800:"Generate a report that lists all inventory"T)"transactions (issues, receipts & adjustments)":T)"for the current month. This report is arranged"T)"by part number":d+6800:"Generate a report that lists all current month"T)"inventory transactions. The report is arranged"T)"by transaction type and date (i.e., all issues"T)"listed together in date order)":,6800:"Generate a report that lists all parts that":T)"need to be ordered (parts with on-hand plus":T)"on-order quantity less than the order point)":,6800:"Produce a report that lists all parts that are"T)"currently on order and optionally lists the":T)"specific purchase orders for each part":6900'-:SS28:6800:"Generate reports that list parts that are":T)"currently overstocked or are nearing their":T)"order point":-"6800:"Generate a concise summary report that shows":T)"your inventory activity and helps identify":T)"your critical parts":-O$O$(I1I)-SSS:TS7:(O$)SS(O$).PU,I2,I,L". ",SS,O$,L" - ":II1:q.ES,MT$(MT):1000:RS,103,A$:OP,"More HELP - "A$:WS,A$:1000:A$ES$:GO,1,3:CW,80,20:GO,1,3:.::HL,R:.XER(222):(EFER6)(EF2ER101)EF0:XO:.bPX.(#A$PF$:D1:S44:9200/#A$"Company data disk for "CN$:DDD:S60/#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$:/%HL,S:EJ,D:ES,104:GO,5LV3,7LV2:BL:WB,55,102D," Important ":XY,HG0&%D2ĺ"Your company data disk (in drive "DD") is write protected.":953010%"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."1:%: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)."1D%GO,H13:OP,103:WS,A$:HL,R:A$ES$ġ:ES,MU$:1001N%2'"Parts",2,"Purchase Ordering",3,"Inventory Transactions",INVTRANS,"Physical Inventory",4,"Post to the General Ledger",/#2INVCLOSE,"Close Inventory Control",#1INVCLOSE33'"Inventory Utilities",5,"Create and Rebuild Inventory Control Data Files",INVCREATE,"Convert Inventory Control Data to AppleWorks",?INVAW,"Inventory Control Reports",6,/3."Maintain Parts",PARTS,"Print Master Parts List",?PARTSLIST,"Print Cost or Price List",?INVLIST,"Inventory Parts Inquiry",PARTSINQ,/n42"Enter and Print Purchase Orders",PO,"Purchase Order Inquiry an 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%] 'Genera 7000 5000:5100P1:80:ST,"Maintain Parts":GO,1,22:OX,80,"-"|(L10:L214:360:L118:L2LX:360:LP$""2OL,2,A$,AB,TB:TBTBTB:ABHUABTBC5:IS,S,QX,NK,ND:FF(NKND)MP_ dSH0:GO,48,7:WB,30,3," Status ":PL,L" Number of Parts:",I5,NP:GO,50:PL,L"Disk Status :",I4,AB,L"% Avail":GO,50:"Costing Method : "CM$(CM) nDD0:L10:L214:3500:L118:L2LX:3500:NXNP0:SB,1,"part number",NX,", !Next, !Previous,",1," or [RETURN] only to quit",P$(0) PN$"":QF0:L0:ED0:ES+-./0123456789:;<=,11:2010:QF1609 3010:9000:PN$A$:ESA$""150L ESPN$""200d A$PN$:380:N180 NXİ320:IS,F,QX,LP$,R:400 ER,"NO PARTS DEFINED, Can't use NEXT or PREVIOUS":150 E$""ĭPN$SP$İ320:390:500 E$""E$XP$ ER,E$:150 % ES:330::5200:FC7 MM,11:RU,12J ,SHįHL,R:SH0P .d 0SHįHL,S:SH1j 2 6GO,H1,V:HG,16: @300:330:ES:GO,45,4:CW,35,7:L115:L217:DD0:360:3500:L0:350 JGO,1,23:CS:4 TSB,T2," or !None",L6UG," or !? to see list",P1$:330:OP,"Enter "P$(L)P1$:p VNPĢ24:OP,"(Use !? to display a list of your parts)"v X ^TT(L):SS(L):XX(L):OHL7:HH(L):VV(L):H1H4:H2H21: hLL1L2:GO,H(L),V(L):LįPU,I2,L,L"-" jGO,H(L)4:OS,15,N$(L):":"::5 rA$SP$ĭ(A$,1)SP$A$(A$,(A$)1):370; te |E$"":SQ,A$,"NEXT","PREVIOUS",N:Nı ~SQ,(A$,1),"*","!","$",I:IE$VP$"begin with *, !, or $": (A$)8E$XP$", can't exceed 8 characters"  PN$(S8$PN$,8):N1İ450:R0įIS,F,QX,"",R:400CN2İ460:R0įIS,F,QX,EN$,R:400kRNR:EP1:PN$(A$S8$,8):300:600IS,N,QX,A$,R:IS,P,QX,A$,R:300:3100:IS,F,QX,PN$,RN:EPRN0:EP700X5300:PN$PS$(1)5400bL10:L2LX:DD1:3500:UP0:OP1:PCPQ(1):CC0LP$PN$:KDEP(PQ(6)PQ(7)DL):330:"What do you want to do with this part? ";:KDįHL,41:KW,AC$,ED$,RN$,DL$,OP,NKDįHL,40:KW,AC$,ED$,RN$,OP,NN1OP1:GT,1400N100330:EP670 OP,"Please wait, adding new part":AVLRLR1:RNLR:6668RNAV:BR,QI,AV,#AVXIS,I,QX,PN$,RN,ST:ST5400NPNP1:5200:UP1:PQ(11)PQ(6):PQ(6)LFİ6000UPİ6100:5350:KP:50100LL0:FL,"",3,PS$:FL,0,16,PQ:FL,0,3,LY:PS$(1)PN$:PQ(9)HU:DL0:SL0:LQ0\L1:330:BL:HL,30:YN,1,"Part number not on file, OK to add this part",N:N0100pFFįER,84:150EDLLL:L20ĭCM1PQ(6)7502000ESLL1:L1740,100LL1:LLLLLLLLX740V330:GO,55:"(Enter No to make changes)";:GO,1,23:HL,114:YN,1,"OK to accept this information",N:N0LLX:740l OP2:GT,65010NES,104:330:OP,106:HL,111:KI,0,A$:ES:UC,A$:A$ES$650A$"DELETE"įER,85:650/330:EPįIS,D,QX,PN$:A$"":FL,0,3,PG%:BW,QI,RN,#AV,A@PG%:3,3SL,3LQ,$A$:AVRN:NPNP1:5200750jLFFįER,"FILE FULL, UNABLE TO DO RENAME":650V330:342:GO,1,23:"Enter new part number: ";:XY,H:OX,8,FC$:GO,H:HL,38:KI,9,A$:370:A$ES$A$""1160XA$SP$įER,XP$:1110`UC,A$:(A$,1)Q$İ9000:1110Lb380:NįER,VP$"use NEXT or PREVIOUS":1110edE$""įER,E$:1110jA$(S8$A$,8):IS,F,QX,A$,N:N0A$PN$įER,"PART NUMBER ALREADY EXISTS":1110tEPįIS,D,QX,PN$:IS,I,QX,A$,RN,ST:ST5400 ~PN$A$:PS$(1)A$:EPİ5350+300:L0:350:DD1:3000:650i330:HL,S:FL,1,LX,K:EPK(7)0:K(8)0:I1219:K(I)0:CM1ĭEPPQ(6)K(20)01300:330:GO,1:"Only ";:OP,!"highlighted":" lines can be edited, enter line number or [RETURN] only: ";:HL,112:NI,0,ST,L:ST2įHL,R:650<L1LLXSTįER,76:1210nK(L)įER,"THAT LINE CANNOT BE EDITED":1210HL,R:ED1:2000:UP1:1200I1LX:K(I)įGO,H(I),V(I):HG,2:SH0350:EDDD(L3PS$(4)SP$)(T1T6):3000 340:Lİ342)310:GO,H1:HG,16:GO,H2NQF0:HL10L:DD1:GT,2000T100dDDED:3000:2020 310:LI,A$:ESA$ES$:ESġ:2070A$""ġ:3000QF(A$,1)Q$:T1T6ıST1ĭT2įLI,A$:SQ,A$,"NONE",N:NN0:ST0QF(A$,1)"?":T2ĭN0ST1IST1ĭT2įLI,A$:SQ,A$,"NONE",N:NN0:ST0O_ DDED:30004EDįPU,LPS$(X),XS(PS$(X)),FC$:GO,H2>HL,HL:LįKI,S,A$:2120@KI,9,A$H2060:370:LįUC,A$:QFPN$A$RT1PS$(X)A$:3000 \A$SP$N0:2150+^DT,A$,N:NįER,78:2050=fLY(X)N:3000RHL,HL:L62250nNI,4,ST,N:2060:MX99N0NMXSTįER,"INVALID, must be 1 to "(MX)" or None":2050PG%(X)N:3000NI,(12UG)4,ST,N:2060:UGQFMX16:2220g3100:HL,S:GO,40,5:WB,38,17," Cost of Goods Sold Accounts ":" None":I116:GO,40:OP,139I::330:OP,121:N1PG%(X):HL,115:PI,44,5,34,17,N,ST:HL,R:ST02050NN1:2230HL33CM:L20HL55:L21HLL9 HL,HL:D3,S,ST,N:2060:ST0N0įER,74:2050, ST2NN10a N1E8įER,"MUST NOT EXCEED $999,999.999":2050p L202350 EPL22LLL2380 F2PQ(4)(10(F2N)C5)10 F3PQ(5)(10(F3N)C5)10$ 2380. EPCM123708 CCPCNPQ(6)0:CC2380: HL,113:ER,"CHANGING STANDARD COST WITH PARTS ON HAND","Will change your inventory value, OK to continue",I:I02050B EPLL21PQ(2)NL PQ(X)N:3000'` MUX(L16L17):HL,HL:DI,S,ST,N:2060:NMNUXST0įER,"INVALID QUANTITY, must be "(M)" TO 999999.99":20509j PQ(X)N:3000s HL,HL:DI,S,ST,N:2060:(N)1E9ST0įER,74:2050 PQ(X)N:3000( 2110 DD3100 GO,H21,V:T6ĺ" MM/DD/YY": PU,B1,XS,FC$,B1:T2ĺ4)  GO,H2,V:LįOS,S1,PN$: GT,3100T10(& OS,S,PS$(X):B0 NPG%(X):NĺN" ":Q2 "None";:i: OD,40,PQ(X),3,10:D GO,H21:OD,8,PQ(X),2,10:OHĭPQ(X)LFPQ(1)0:GO,H245,V(20):OX,10,SP$F N OD,8,PQ(X),2,10:X LY(X)įOY,LY(X):Z OX,S,SP$: LL1L2:350:3000::ES$(27):EN$(255):SP$" ":AC$"Accept":ED$"Edit":DL$"Delete":RN$"Rename":S8$" "H21:LX24:C5.5:HU100:UX99999999:Z0:Z%0:Z$"":XP$"INVALID PART NUMBER":VP$XP$", can't ":RF$"Initial O/H":Q$"?"S RD,7,BQ:RD,17,NG:RD,18,UG:RD,40,MP:RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,12,MP$ H(LX),V(LX),S(LX),T(LX),X(LX),N$(LX),P$(LX),K(LX) I0LX:H(I),V,S(I),T(I),X(I),N$(I),P$:V(I)V5:P$""P$N$(I) P$(I)P$:!PS$(4),PG%(3),PQ(16),LY(3),CM$(4),IT(4),PA(24),PL$(3).!I14:CM$(I):8!FC:!FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24,A$PL$:3,#F2,#F3:CM1CM4CM1!LFCM2:FO,16,QT:BR,QT,0,A#IT:47"I13:SB,1,"item unit price for level ",1,(64I),PL$(I)SP$," ("PL$(I)")",P$(21I)::r"PBW,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24:KP:"RW$"BR""@RW$,QI,RN,#DL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3LY:3:"RW$"BW":5320"RB1:5200:ER,107:200A#p6500:BW,QT,DL,#LK,@Z%,@Z%,#PQ(6),#PQ(6),#PQ(1),#PQ(1),#Z,#Z,3TD,3BQ,$RF$,@Z%:P#CCEPı#6500:CCPQ(1)PC:T%99:BW,QT,DL,#LK,@Z%,@T%,#PQ(6),#Z,#CC,#CC,#Z,#Z,3TD,3BQ,$Z$,@Z%#NGCC(CCPQ(6)HU):PA(21)PA(21)CC:PA(23)PA(23)CC#"$dLQBQ:LKDL:IT(1)IT(2)IT(2)1:DLIT(2):6520@$nDLIT(1):BR,QT,DL,#IT(1)^$xIT(4)1:BW,QT,0,A#IT:4:$XER(222):EFĭER6ER8EF0:XO:$bPX$(#NPįER,97:ES1:$2#A$(S8$(A$,1,(A$)1),8):330:304:SX13:NPSXSXNP:A$""7%4#HS43:VS7:GO,HS,7:WB,34,SX," Parts ":IS,F,QX,A$,I:450:R0I0İ460`%<#460:I1SX:450:R0İ9200:VSVS1o%>#R0ISX%@#:ES,92:23:OP,129:I1%F#HL,105:PI,HS,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:ST0:330&P#IS,F,QX,A$,R:GS,455ST5:R0įBL:90304&Z#GO,HS,7:SW,34,SX,ST:9200:9030|&#BR,QI,R,#N,@I%,@I%,@I%,3N,3N,$A$,$N$:GO,HS,VS:PU,B1,S10,A$,LN$: ''1,0,8,1,1,"Part Number"," ",1,2,22,1,2,"Description","part description",1,3,12,1,3,"Mfg Part Number","manufacturer's part number",1,4,2,1,4,"Unit of Measure",''1,5,2,2,1,"Product Group","product group (1-99)",1,6,2,2,2,"Bin/Location","bin number or location (1-99)",1,7,2,2,3,"Cost of Goods #","cost of goods sold account number (1-16)"Z($'1,8,9,4,6,"On-Hand Qty","on-hand quantity",1,9,9,4,7,"On-Order Qty","on-order quantity",1,10,9,4,8,"Order Point","order point"(.'1,11,9,4,9,"Minimum Order","minimum order quantity",1,12,9,4,10,"Max Stock Level","maximum stocking level"z)8'1,14,8,6,1,"Last Recpt Date","date of last receipt",1,15,8,6,2,"Last Issue Date","date of last issue (shipment)",1,16,8,6,3,"Last Order Date","date of last purchase order*B'46,4,9,4,12,"YTD Receipts","year-to-date receipts",46,5,9,4,13,"YTD Issues","year-to-date issues",46,6,9,4,14,"YTD Adjustments","year-to-date adjustments"*L'46,8,10,5,15,"YTD Sales $","year-to-date sales, in dollars",46,9,10,5,16,"YTD COG's $","year-to-date Cost of Goods, in dollars"h+V'46,11,10,3,1,"Unit Cost","item unit cost",46,12,10,3,2,"Last Cost Paid","last cost paid for this part",46,14,10,3,3,"Unit Price, #A",,46,15,10,3,4,"Unit Price, #B",,46,16,10,3,5,"Unit Price, #C",+ N"Standard","Average",LIFO,FIFO 7000 5000:5100[2HD$"Master Parts List":1:80,N:XC,LV,"Print Parts List"id2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,1:YN,N,"Print report as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10 3000 + 1::FCL ES:XC,LV:MM,LV,11:RU,12{ ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300 . 6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESı 8N1N0:$ @330:"Enter "PB$(PB>@ABCDEFGHIJKL)" (1-99): ";:XY,H:DFĺDF;:GO,HF BHL,HL1:NI,2,S,N:S3310Y DS2NDF:S0 FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320 H JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `? hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390V jA$""A$(DF$,1)d l300:390 r392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S8,P1$,L" to ",S8,P2$:H41N12 tGO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES3701 xA$""A$(S8$A$,8)N z350:GO,H,24:OS,8,A$:f GO,14,13:CW,4,9: 390:GO,14,V:"--->": V21:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: CPEP24::470l XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$(HD$,1):UC,HU$:PN0:PF1:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570-0CPLNLN2:SP$:"***** LISTING CANCELLED....."F2AC$"cancelled":500R:PO:50~X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550CPė:FFĺ(FF):*LLLNOL:SP$::fPNPN1:LN7:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 " Part # Description/General Info Quantities Year-to-Date History":"PL,X8,Q$,B2,X24,Q$,B1,X21,Q$,B1,X21,Q$:0SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading parts list (in reverse order)":GO,30,17:"Part Number:":19:OP,86:ES,100L(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RN%630:IS,P,QX,PN$,RN:RN0PN$P1$S11:S20:v$GO,43,17:OS,8,PN$:BR,QI,RN,#TL,A@PG%:3,3SL:1600:LPG%(SF):L99OK1050.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050LIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RNVSF1400 IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı(1500:PN$PS$(1)53008(1600:OKıB21300^xS2RNS2:1500:S2SL:yS1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3IY:3:@OK0:PGĭPGPG%(1)ıJBLĭBLPG%(2)ıTOK1:gSH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFP1$"":P2$"":2080330:N1:DF$P1$:HL3:370:ES2000P1$A$ N2:DF$P2$:HL4:370:ES2050P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 2600K4V17:392:HL5:DFPG:PB1:310:ES2000Z>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630NSPG0BL0:NSSF0:2300(SF1PG0)(SF2BL0)SF0:WG0:2640V19:392:330:"What type of additional sorting? ";RPGBLįHL,9:KW,NO$,PB$(1),PB$(2),SF1,N:2240HL,10BL:KW,NO$,PB$(1BL),2SF,N:NN(N2BL)N02150SFN1:2640:SFWG0:2300330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200WGN:2640;400:ESįGT,220050NSE 2650 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":J GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :":GO,19:"Should report be sorted:"::GO,19:"Produce report on what device:" AF1:P1$"":P2$"":PG0:BL0:SF0:WG0:RD,39,CP:PF0( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::26202 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$&< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";YF GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "T SFĺ30)Z GO,50,21:OS,8,SP$(CP):  AFH2$"":P1$"":P2$(255):3100d H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255) H3$"":PGH3$PB$(1)" # "(PG)& BL40000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL)LS1:SD,39,CP:1000:4501200:EF4300SF4100'PG%(SF)LS4100HWGĭLS0ĭLNL1NL0:600LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "PG%(SF):SP$:LNLN1NL8CP:600:CPLNLNTF:TFĺDL$I13:PG$(I)"":PG%(I)PG$(I)(PG%(I))KPL,S11,PS$(1),S25,PS$(2),L"On-Hand :",D8,PQ(6),3,10,L" Receipts:",D8,PQ(12),3,9"PL,B11,L"Mfg: ",S20,PS$(3),L"On-Order :",D8,PQ(7),3,10,L" Issues :",D8,PQ(13),3,9,PL,B11,L"U/M: ",S6,PS$(4),L"COG: ",S9,PG$(3),L"Order Pnt:",D8,PQ(8),3,10,L" Adjusts :",D8,PQ(14),3,9{6PL,B11,L"P/G: ",S6,PG$(1),L"B/L: ",S9,PG$(2),L"Min Order:",D8,PQ(9),3,10,L" Sales $s:",D8,PQ(15),2,10@PL,B11,L"Unit Cost:",D40,PQ(1),2,11,B4,L"Max Level:",D8,PQ(10),3,10,L" COGs $s :",D8,PQ(16),2,10VJA$"Prices":I13:PU,B11,S7,A$,L"#"(64I),L":",D40,PQ(2I),2,11,B26,L"Last ",LIY$(I),L": ":IY(I)įOY,IY(I)dL:A$"":TCPĭLN20NL1:600:SP$h4050AC$"complete":500:570ES$(27):SP$" "7LV4:HU100:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":I139:DL$DL$" -":`RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LPPC$(2),PG%(3),PG$(3),PS$(4),PQ(16),IY(3),IY$(3),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99)hYN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":SP$(0)"Screen":SP$(1)"Printer":PB$(1)"Product Group":PB$(2)"Bin/Location"IY$(1)"Rec":IY$(2)"Iss":IY$(3)"P/O"FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP:RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0 ER,107:200 XPX0 (#NPįER,97:ES1:w 2#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$"" 4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400 <#9400:I1SX:9300:R0İ9200:VSVS1 >#R0ISX!@#:ES,92:24:OP,129:I1m!F#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:!P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030!Z#GO,43,7:SW,34,SX,ST:9200:9030 "#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:"T$IS,N,QX,A$,R:3"$IS,P,QX,A$,R: 7000 5000:5100K21:80,N:XC,LV,"Print Cost or Price List"]d2700:ES200vnXC,LV,TL$:2500:N0xES:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,17:YN,N,"Print report as shown above",N:330:N050 NįES:2000:N1:GT,120ES10" 3000( 5 1::FCV ES:XC,LV:MM,LV,11:RU,12 ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300 . 6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESı 8N1N0:. @330:"EntMOPQRSTUVWXYZ[er "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,HP BHL,HL1:NI,2,S,N:S3310c DS2NDF:S0 FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320 H JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `I hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390` jA$""A$(DF$,1)n l300:390 r392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S8,P1$,L" to ",S8,P2$:H41N12 tGO,H:S8:360:ESı vUC,A$:(A$,1)"?"İ9000:ES370; xA$""A$(S8$A$,8)X z350:GO,H,24:OS,8,A$:p GO,14,13:CW,4,9: 390:GO,14,V:"--->": V21:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: CPEP24::470v XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS PN0:PF1:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570"0CPLNLN2:SP$:"***** LISTING CANCELLED.....";2AC$"cancelled":500G:PO:50sX630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550CPė:FFĺ(FF):LLLNOL:SP$::_PNPN1:LN7CL:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1|H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 ALįPL,BTS43,S10,PL$(1),S10,PL$(2),S10,PL$(3)*SPįPL,BTS43,LPL$(SP) 4TS)" Part # Description UM PG BL "T1$:3PL,BTS,LT2$:ASF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading parts list (in reverse order)":GO,30,17:"Part Number:":19:OP,86:ES,100L(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RN6630:IS,P,QX,PN$,RN:RN0PN$P1$S11:S20:$GO,43,17:OS,8,PN$:BR,QI,RN,#TL,A@PG%:3,3SL:1600:LPG%(SF):L99OK1050.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050LIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RNVSF1400IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı91500:PN$PS$(1)5300I(1600:OKıS21300oxS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:5:@OK0:PGĭPGPG%(1)ıJBLĭBLPG%(2)ı TOK1:pSH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFP1$"":P2$"":2080330:N1:DF$P1$:HL3:370:ES2000P1$A$ N2:DF$P2$:HL4:370:ES2050P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$( 2600T4V17:392:HL5:DFPG:PB1:310:ES2000c>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630NSPG0BL0:NSSF0:2300(SF1PG0)(SF2BL0)SF0:WG0:2640%V19:392:330:"What type of additional sorting? ";[PGBLįHL,9:KW,NO$,PB$(1),PB$(2),SF1,N:2240HL,10BL:KW,NO$,PB$(1BL),2SF,N:NN(N2BL)N02150SFN1:2640:SFWG0:2300330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200(WGN:2640D400:ESįGT,220050NSN 2650 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":S GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :":GO,19:"Should report be sorted:"::GO,19:"Produce report on what device:" AF1:P1$"":P2$"":PG0:BL0:SF0:WG0:RD,39,CP:PF0( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::26202 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$/< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";bF GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "T SFĺ30)Z GO,50,21:OS,8,SP$(CP):: N1:XC,LV:HL,16:MS,LV,5,OP$,0,2,1,N:ESN0:ESıu TL$(OP$(N),24):CLN1:PLCL:ALN2:SP(N2)(N2): AFH2$"":P1$"":P2$(255):3100 H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255) H3$"":PGH3$PB$(1)" # "(PG)& BL3200/0 H3$""H3$H3$" / "N: H3$H3$PB$(2)" # "(BL) T2$"======== ====================== == == == =========":CLT1$"Unit Cost":HU$"COST LIST":3300 HU$"PRICE LIST":SPT1$" Level "(64SP):33002 T2$T2$" ========= =========":T1$" Level A Level B Level C"J TS((80(T2$))2)iLS1:SD,39,CP:1000:450|1200:EF4300SF4100PG%(SF)LS4100WGĭLS0ĭLNL1NL0:600LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "PG%(SF):SP$:LNLN19NL2CP:600:CPLNLNTF:TFĺSP$pI12:PG$(I)"":PG%(I)PG$(I)(SP$(PG%(I)),2)vPU,BTS,S9,PS$(1),S23,PS$(2),S3,PS$(4),S3,PG$(1),S4,PG$(2):CLSPįPL,D40,PQ(1SP(SP0)),4,10:4050"I35:OD,40,PQ(I),4,10:::4050h4050-AC$"complete":500:5703IES$(27):SP$" "LV4:HU100:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":I139:DL$DL$" -":RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LPAOP$(5),PC$(2),PG%(3),PG$(2),PS$(4),PQ(5),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99),PL$(3)YN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":SP$(0)"Screen":SP$(1)"Printer":PB$(1)"Product Group":PB$(2)"Bin/Location"I15:A$:OP$(I)"Print "A$:FC:\FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,A#L:31,A$PL$:3I13:PL$(I)""OP$(I2)OP$(I2)" ("PL$(I)")"PL$(I)(S8$,1,(9(PL$(I)))2)PL$(I)::RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0 ER,107:200 XPX! (#NPįER,97:ES1:h 2#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$"" 4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400 <#9400:I1SX:9300:R0İ9200:VSVS1 >#R0ISX !@#:ES,92:24:OP,129:I1^!F#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:!P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030!Z#GO,43,7:SW,34,SX,ST:9200:9030!#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:"T$IS,N,QX,A$,R:$"$IS,P,QX,A$,R:"'"Cost List","Full Price List","Level A Price List","Level B Price List","Level C Price List" 7000 5000:5100Y1:80:ST,"Inventory Parts Inquiry":GO,1,22:OX,80,"-"NPįER,"NO PARTS DEFINED IN THE INVENTORY SYSTEM":20024000:4100:GO,56,5:"Number Parts : "NP:PN$""dSH0:HL39t nES,11:320:OP,"Enter part number, !Next, !Previous, !?, or [RETURN] only to quit":24:OP,"(Use !? to see a list of your parts)":GO,1,5:HG,14 pGO,H1,5:PU,X8,FC$,B1:GO,H1:HL,HL:KI,9,A$:UC,A$:GO,1,5:HG,14 rA$SP$A$ES$200 t(A$,1)SP$A$(A$,(A$)1):114. x\^_`abc(A$,1)Q$įGO,H1,5:OX,9,SP$:9000:ES110u z(A$)8įER,"INVALID PART NUMBER, can't exceed 8 characters":110 SQ,A$,"NEXT","PREVIOUS",N:NįIS,F,QX,PN$,R:400 A$(S8$A$,8):IS,F,QX,A$,RN:RN01000 ER,127:HL87:110  320:1::FC MM,11:RU,124 @GO,1,23:CS:GO,12:H TSHįHL,S:SH1N Va ^SHįHL,R:SH0g ` N1İ450:R0įIS,F,QX,"",R:400 N2İ460:R0įIS,F,QX,EN$,R:400 RNR:1000 IS,N,QX,A$,R: IS,P,QX,A$,R: 350:ES:320:HL,S:PN$A$W BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3IY:3:PN$PS$(1)5400n LGO,H1,5:OS,8,PN$ VI13:GO,H1,6I:PS$(I1);:GO,H3:PG%(I)ĺPG%(I) X `I15:GO,H11,10I:OF,6,PQ(I5): jI13:GO,H21,10I:OD,8,PQ(I11),2,10:. tI12:GO,H21,13I:OD,0,PQ(I14):V ~I13:GO,H3,10I:IY(I)įOY,IY(I)\  GO,H11,17:CPQ(1):OD,40,C,3,10:GO,H21:OD,0,(PQ(6)CHU.5)I13:GO,H11,18I:PPQ(I2):OD,40,P,3,10:PįGO,H2:PU,D8,HU((PC)PHU.05),5,6,L"%"F24:RS,103,A$:OP,"Inquiry complete, "A$:WS:HL,R:100mGO,1,5:PL,L"Part Number :",B9:PL,L"Description :",B41,L"Product Group:",B4PL,L"Mfg Part No :",B41,L"Bin/Location :",B4PL,L"Unit Measure :",B41,L"Cost Goods # :",B4:PPL,L"On-Hand Qty :",B14,L"YTD Receipts:",B14,L"Last Rec Date:",B9PL,L"On-Order Qty :",B14,L"YTD Issues :",B14,L"Last Iss Date:",B9PL,L"Order Point :",B14,L"YTD Adjusts :",B14,L"Last P/O Date:",B9PL,L"Minimum Order:",B14,L"YTD Sales $s:",B14HPL,L"Max Stock Lvl:",B14,L"YTD COGs $s :",B14:}PL,L"Unit Cost :",B14,L"Stock Value :",B14:PL,L"Unit Price #A:",B14,L"Gross Margin:",B12PL,B11,L"#B:",B24,L"#B:",B12:PL,B11,L"#C:",B24,L"#C:",B12:I13:PL$(I)įGO,56,18I:"("PL$(I)")"':-UES$(27):EN$(255):SP$" ":Q$"?"H116:H243:H371:HU100:S8$" "RS,2,FC$PG%(3),PS$(4),PQ(16),IY(3),PA(24),PL$(3)FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,A#PQ:7,A#PA:24,A$PL$:3:@RB1:BW,QI,0,#NP,#RB:KP:ER,107:200HXPXN(#2#A$(S8$(A$,1,(A$)1),8):320:340:SX13:NPSXSXNP:A$""4#HS43:VS7:GO,HS,7:WB,34,SX," Parts ":IS,F,QX,A$,I:450:R0I0İ460<#460:I1SX:450:R0İ9200:VSVS1>#R0ISX5@#:ES,92:24:OP,129:I1F#HL,105:PI,HS,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTįES:ST0:320P#IS,F,QX,A$,R:GS,455ST5:R0įBL:9030Z#GO,HS,7:SW,34,SX,ST:9200:9030$#BR,QI,R,#N,@I%,@I%,@I%,3N,3N,$A$,$N$:GO,HS,VS:PU,B1,S10,A$,LN$: 7000" 5000:5100:8500221900:4900dFL,"",HX,I$:I15:I$(I6)CN$(I)::I$(14)Y$(1):I$(16)Y$(2):TC0:E0:VI0:LL0:L11:L2HX:1950nLL1:ES0xTT(L):1000:ES140LL1:LL1ĴE150,150L11EL15VI Eĭ(L2VI)L7L12 L1100+ LL2120Z EHL89:P$"Header":4800:N500,160,100~ E0:HL90:L11:T0:400:ES150 L1N9:L2L1:N3L15N3:L2L14 E1:110 350:1::FC ES:MM,11:RU,12 ,VV(L):HH(L):SS(L):TT(L) .GOdfghijklmnopqrstuvwxyz,H,V: 0GO,HG(L)1,V:5 2304:G(L)įHG,G(L); 4Z 6302:EI$(L)""LLL320q 8T3ĺ"MM/DD/YY": :OX,S,U$:T5įGO,56,V1:CL < @T3įOY,I$(L): BT5įOS,S,I$(L): DGO,56,V1:I$(L);:CL:302:TCĺ"None": FTC;:CL:! ^GO,1,22(P2)2P:CS:= h350:OP,"Enter "P$:P rSHįHL,R:SH0V tj vSHįHL,S:SH1p x |OD,8,X,43(XHU(XHU)),8: ~OD,40,X,4(X(X)),9: A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):390 % 350:"Enter line number to edit (1-"L")";:TįOP," or !Add"S ": ";:HL,HL:NI,0,ST,N:ESSTM2:ESıg N0NLSTı TįLI,A$:SQ,A$,"ADD",N:NNL1: ER,76:400p P2:ET0:GO,1,4:CS:GO,1,22:OX,80,"-":GO,5,5:"Ln Part # Description Quantity Unit Cost Ext. Cost":GO,5:"-- -------- ------------------------------ -------- --------- ---------" LET1:E0:2000:N530 ET540 1900:E1:1950:4950:E0:150 ETEX510 HL91:P$PO$:4800:N600,550,500&LET:TETEX:HL92T:400:ES54010LN:ELET:2000:550TXP$"post":700:6000:KP:3500mbPOPO1:POXIPO1{l5200:50350:24:OP,!" Please wait, "P$"ing "PO$" ":1::SH0SEE:300ES0:P$P$(L):GS,1000100T:370:ES310 E1:310:ESE:LL1:LLLLLL&7:310:1010{LHL(L)68UV:1800:P$" Vendors ":FQP:QDQV:XNV:1150:N1050VN01130`UVįHL,56:ER,"Vendor '"A$"' is not on file","OK to use this vendor",N:N01050bVI0:1140BjVIN:BR,QV,N,#VP,A$I$:6,$C$,$C$,@TC%:TC%0TC%9TCTC%:RS,40TC,I$(15)kl370:E1:L26:300:310::L1:300ztLL0:1250~390:UC,A$:C$A$:A$SP$N0:N(UVP2)((A$,1)Q$):NA$(A$,1,(A$)1)P2A$(S8$A$,8)NĴP310,2800:9000:A$SP$N0:%P1ĭUVN1:8IS,F,F,A$,N:N1800:L161250xSQ,A$,Y$(2),Y$(3),N:NįER,72:1200A$Y$(N1)I$(L)A$:A$I$(L):A$""A$CY$P$P$" or [RETURN] only for "(A$,2)"/"(A$,3,2)"/"(A$,2)1800:A$""A$CY$#(DT,A$,N:N125042ER,78:1050kx1850:YN,I$(L)Y$(1),"",ST:1830:I$(L)Y$(ST):374:1860:GO,1,5:CW,46,13:GO,8,7:WB,27,10," Terms Codes ":" None":I19:GO,8:PL,I1,I,L". ",S24,40I:C350:OP,121:N1TC:HL,HL(L):PI,11,7,24,10,N,ST:1830:TCN1:I$(L)"":TCįRS,40TC,I$(L)I@1850:302:HL,HL(L):KW,Y$(2),"Dest",1(I$(L)Y$(3)),ST:1830:I$(L)Y$(1ST):1850:T3įPU,LI$(L),XS(I$(L)),U$:302HL,HL(L):KI,X,A$:390:ESA$ES$:A$""A$I$(L):A$""L1ES11840*&ESSTM3D0306:350:STM2ESġJ2:XS:360:L1ĭUVĢ24:OP,"(use !? to see a list of your vendors)":XSD304:G(L)įHG,G(L)N302:HL,HL(L):ES0:ST0:lP1:80:ST,TL$:GO,1,21:OX,80,"-"vGO,1,5:PL,L" Vendor ID :",B34,L"P/O Number:"::PL,L" 1- Vendor Name :",B31,L"3- Req'd Date:":PL,L" Address :",B31,L"4- Buyer Code:"GO,49:"5- Taxable ? :":GO,49:"6- Terms Code:"::DPL,L" 2- Ship To Name:",B31,L"7- F.O.B. :":PL,L" Address :",B31,L"8- Ship Via :":GO,49:"9- Freight :"~19:PL,L"10- Remarks :",B30,L"11- Confirm To:":L1HX:300:OX,S,SP$:310::SH0:V6L:SEE:T0:ES0:EāI02:Z$(0,I)Z$(L,I)::I04:Z(0,I)Z(L,I):@GO,4,V:OI,2,L:EįCL:Z$(L,0)"":Z$(L,1)"":L1EP0:GO,1,LX:CW,80,2NSZ(L,3):CFZ(L,3)0:CFĭT1Z(I,T2)0:GO,50,V:CL:2060GS,2100T100 ES:370:TT12ES:T02080T325002050, 370:EāI02:Z$(L,I)Z$(0,I)::I04:Z(L,I)Z(0,I)::CFZ(L,3)0:T03:2800::2500O*GO,1,V:CL:ETL1:2600:N0:Y4HL94>P$"part number, !! for a comment, or [RETURN] only":2900:A$""ġ:2080@ST2800B(A$,1)"!"A$"!Comment":C$"":RN1:Q(4)0:2140HP$" Parts ":FQX:QDQI:XNP:1150:N2110*JN02150WL(C$)8įER,"INVALID PART NUMBER":2110RHL,57:ER,"Part number '"A$"' is not on file","OK to use this part",N:N02110TC$A$:RN0:Q(4)HU\C(2)0:A$Z$(L,0)Z$(L,1)""^2160 fRNN:5300:Z$(L,1)C$(2):C$C$(12PM)spZ$(L,0)A$:Z$(L,2)C$:Z(L,0)Q(4):Z(L,1)C(2):Z(L,3)RN:Z(L,4)Q(4):370:2800Z(L,3)0EESįSB,CF,"part description",CF,"comment text",P$:HL95NS2CF:2900:Z$(L,1)A$:28002800yES,"Change description":P$"order quantity (0 to 99999.99)":HL98:2900:ST0N0N1E7įER,"INVALID QUANTITY, must be 0 to 99999.99":2300 NSĭQ(2)NXOįER,"INVALID, ON ORDER QUANTITY WILL EXCEED 999999.99":2300c NĭNZ(L,4)İ350:XN:302:380:HL,99:ER,"LESS THAN THE MINIMUM ORDER QUANTITY OF "(Z(L,4)HU),"OK to accept this order quantity",X:X02300v Z(L,0)N:2800` P$"unit cost":HL100:2900:N0N1E8įER,"INVALID COST":2400j Z(L,1)N:2800 Z(L,2)(Z(L,0)Z(L,1)HUC1):T4:2800:350:ESE:LETETL  2600:E2550e 350:HL,101:YN,1,"OK to accept this entry",N:ESN0:ES2060 NETET1:2600:2000 N1:( EP0:ETāI1ET:EPEPZ(I,2):2 GO,67,LX:OX,9,"-"::GO,57:PL,L"Total = ",D0,EP: HTH(T):STS(T):302:T2įPU,SS,Z$(L,T),B1:( CFįCL:A XZ(L,T2):T2ī380J 382T ESE:2800:360:TĢ24:OP,"(Use !? to see a list of your parts)"^ 302:T22950` HL,HL:D3,S,ST,N:ESSTM3:ES2990h ST2ST1:T3NN10:ST0 r STM2NZ(L,T2):ST0| g Z$Z$(L,T):PU,LZ$,XS(Z$),U$:302:HL,HL:KI,S17T,A$:390:ESA$ES$:ES2990~ STA$"":STA$Z$  2800:: AF0 I5105:I$(I)I$(I)SP$I$(I1):I$(I1)SP$I$(I1)I$(I):I$(I)""  P$"print":700:PW,PS:P$"":4000d AFāI15:4300:"******** ******** ***** Alignment Test ****"::3800 I1ET:4300:CFZ(I,3)0:CFĺ8):3620 XZ(I,0):380 $PU,B3,S12,Z$(I,2):CFĺZ$(I,1):3650!.OS,33,Z$(I,1):XZ(I,1):382:PL,B3,D8,Z(I,2),1,11 !B !4100:PW,0:AFı!350:24:OP,"--- Printing complete, press [SPACE BAR] to continue or [ESC] to reprint ---":HL,102:WS,A$:350::A$ES$3550!!I14:7):I2I4ĺCH$(I):4020!OS,59,CH$(I):I1ĺPN$P$:4020"I$(1)":I17:SP$:I"I25:PL,B7,S43,I$(I),LI$(I5)::I15:SP$:"AFįPL,B1,YCY$,L" U.P.S.":SP$:PL,S25," BUYER",YCY$:4060#PL,B1,YCY$,B2,S19,I$(17),S18,I$(16),LI$(15):SP$:PL,B1,S10,I$(13),S14,I$(18),YI$(12),B3,S20,I$(20),S22,I$(19),S1,I$(14)%#SP$:L25:SSĺSP$:LL1+#<#FFĺ(FF):Q#LL66:SP$::v#hLN60İ4100:P$" (Cont)":4000#rLLN:#N2SS:4200:SSĺSP$#$350:P$" complete, what do you want to do? ";:HL,HL:KW,"Accept","Edit","Reject",1,N:N0N3$!$$POįRD,38,PO6$.PO1POXIPO1$8ES,11:350:"Enter new "PO$" number (use [ESC] when done): ";:XY,H:PO;:GO,H:HL,67:NI,5,S,N:SM3200$:SM2NPO:S0%BSN1NXIįER,"INVALID PURCHASE ORDER NUMBER, must be 1 to 99999":4920c%LPN$(S8$(N),5):IS,F,QU,PN$,R:R0įER,"PURCHASE ORDER NUMBER ALREADY ON FILE":4920u%NES:350:PON%VGO,66,5:PN$:%%ES$(27):SP$" ":S8$" ":PO$"Purchase Order":PS$PO$"s":TL$"Enter "PS$:Q$"?"A&LV4:C1.5:M22:M33:Z0:Z%0:HX20:EX13:LXEX7:HU100:XI99999:XO99999999&RS,0,CY$:DT,CY$,CY:RS,1,CO$:RS,2,U$:RD,1,PS:RD,2,FF:RD,7,BQ:RD,35,PH'ID(6),PG%(3),C$(4),C(5),Q(11),Y(3),V(HX),H(HX),S(HX),T(HX),G(HX),HL(HX),P$(HX),I$(HX),Z$(EX,2),Z(EX,4),TH(4),TS(4),CN$(5),CH$(5),Y$(3)'I15:RS,2I,CN$(I)::PHāI15:CH$(I)CN$(I)::CH$(4)CH$(4)SP$CH$(5):CH$(3)SP$CH$(3)CH$(4):CH$(4)""'I1HX:V(I),H(I),S(I),T(I),G(I),HL(I),P$(I):'I03:Y$(I):'I04:TH(I),TS(I):'FC:^(FO,14,QX:IS,O,QX,N,N:FO,15,QI:BR,QI,0,A#ID:6:NPID(1):POID(6):FO,181,QU:IS,O,QU,N,N}(EF1:UV0:EFįFV,171:UV1(EF0:UVįFO,171,QP:IS,O,QP,N,N:FO,172,QV:BR,QV,0,#NV( (PID(6)PO:BW,QI,0,A#ID:6:KP:(R$"BR".)@R$,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$C$:4,A#C:5,A#Q:11,A3Y:3:@)R$"BW":5320`)ID(2)1:5200:ER,107:200k)pETı{)zUVįFC,172)F16:6600:LL0:N0)LET11:QZ(L,0):RNZ(L,3):Q0RN06150&*5300:6500:T%100:BW,QT,A,#TL,@Z%,@T%,#LL,#RN,#Q,#Z,#Z,#Z(L,1),3CY,3BQ,$PN$,@Z%:TLA:LLAU*NN1:Y(3)CY:Q(2)Q(2)Q:Q(2)XOQ(2)XO_*5350u*:6700:LL6300*8F182:6600:6500:IS,I,QU,PN$,A,ST:ST5400*BSTN:BW,QT,A,#LL,$PN$,$I$(1),$I$(2),3CY,3N,3ST:6700*UVįFO,172,QV*+dAVLRLR1:ALR:*+nAAV:BR,QT,A,#AV:J+FO,F,QT:BR,QT,0,#AV,#LR:g+,BW,QT,0,#AV,#LR:FC,F:+XEFER(222):ER6ER8EF0:XO:+bPX+4!1:80,N:XC,LV,TL$:PSįER,70:200,6!P1$"Print manufacturer's part number":P2$"Use single spacing":PM0:SS0:P0:8810:N0,>!ES,11:350:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,63:YN,N,"Enter purchases orders as shown above",N:350:N0200,@!ES:N8550,H!V14:8800:HL,64:YN,PM,P1$" on "PO$,N:8850:N08500>-R!PMN:V16:8800:HL,65:YN,SS,P2$" on "PS$,N:8850:N08520W-\!SSN:8810:N1:8510-f!HL,S:ES,104:16:WB,48,3," Load Printer ":OP,"Please load "PS$" in the printer":::OP,103:WS,A$:HL,R:A$ES$8500#.p!350:HL,66:YN,"Do you want to print an alignment test",N:N08500p.z!NPN$"*****":I$(1)"VEND ID":I$(2)CN$(1):I$(7)I$(2):AF1:3550:8560v.!.`"GO,14,V:"--->".j"GO,19,14:P1$": "Y$(PM)" "::GO,19:P2$": "Y$(SS)" ":350."GO,14,14:CW,4,6:.(#XįER,932P:A$"":'/2#350:374:SX11P:XSXSXX:A$""i/4#VS7:GO,43,7:WB,34,SX,P$:IS,F,F,A$,I:9500:R0I0İ9600/<#9600:I1SX:9500:R0İ9200:VSVS1/>#R0ISX/@#:ES,92:24:OP,129:I10F#HL,107P:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:STM3STįSB,ST,A$,A$:ES:F0P#IS,F,F,A$,R:GS,9550ST50:R0įBL:9030l0Z#GO,43,7:SW,34,SX,ST:9200:90300#P2įBR,QD,R,#N,@T%,@T%,@T%,3N,3N,$A$,$N$0#P1įBR,QD,R,#N,$A$,$N$0$GO,43,VS:PU,B1,S10,A$,LN$:0%IS,N,F,A$,R:1%IS,P,F,A$,R:1'5,19,8,1,13,69,Vendor ID,7,19,22,2,13,70,vendor name,8,19,22,2,13,71,address line #1,9,19,22,2,0,71,address line #2,10,19,20,2,0,72,city & state,11,19,10,2,0,73,ZIP CodeK2'13,19,24,2,13,74,'ship to' name,14,19,24,2,13,75,address line #1,15,19,24,2,0,75,address line #2,16,19,20,2,0,76,city & state,17,19,10,2,0,77,ZIP Code2'7,64,8,3,11,78,required date,8,64,8,2,11,79,name or code of buyer,9,64,9,4,11,80,taxable (Y/N),10,64,4,5,11,81,""N3'13,64,15,6,11,82,F.O.B. point (!Origin or !Destination),14,64,14,2,11,83,method of shipment,15,64,12,2,11,84,method of freight payment3'19,19,20,2,13,85,any special instructions,19,64,16,2,11,86,name of person who confirmed P/O3*No,Yes,Origin,Destination3.8,8,17,30,48,5,57,9,67,9 7000 5000:5100_1:80:ST,"Purchase Order Inquiry":GO,1,23:OX,80,"-":PU$""NUįER,"NO PURCHASE ORDERS ON FILE":20024000dSH0:HL81 nES,11:330:OP,"Enter P/O number, !Next, !Previous, !?, or [RETURN] only to quit":GO,1,5:HG,11g pGO,H1,5:PU,X5,FC$,B1:GO,H1:HL,HL:NI,6,S,PO:LI,A$:GO,1,5:HG,11:S2200 x(A$,1)Q$įGO,H1,5:OX,6,SP$:9000:ES110 SQ,A$,"NEXT","PREVIOUS",N:NįIS,F,QX,PU$,R:400 SPO1PO99999įER,"INVALID PURCHASE ORDER NU{}~MBER, must be 1 to 99999":110K A$(S5$A$,5):IS,F,QX,A$,R:R01000 ER,"P/O NOT ON FILE, Use ? for list (see HELP)":HL82:110 330:1::FC MM,11:RU,12 JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `* hGO,H21,L1LN:OD,8,CQ(LN),2,10:GO,H2:C rGO,7,L1LN:HG,62:m |XNCQ:CQN:CQ(LN)N:360:5450:Xı ~5200:PQ(7)PQ(7)X:PQ(7)0PQ(7)0 5250 N1İ450:R0įIS,F,QX,"",R:400 N2İ460:R0įIS,F,QX,EN$,R:400 1000 IS,N,QX,A$,R:! IS,P,QX,A$,R:@ 350:ES:330:HL,S:PU$A$e PU$(PU$,5):5300:P$PU$5500 GO,H1,5:OS,6,PU$:GO,30:OS,8,VI$:GO,63:OY,PD:GO,30,6:OS,22,VN$:GO,63:OS,9,ST$(PS) NI0:LLLK LLL:LNILX1100D $NINI1:L(NI)L:5400:Q(NI)OQRQ:CQ(NI)CQ:BR,QI,PR,#N,@X%,@X%,@X%,3N,3N,$PN$,$DS$ .GO,3,L1NI:PL,I2,NI,L". ",S9,PN$,S22,DS$,D8,OQ,2,10,D8,RQ,2,10,D40,LC,3,10,D8,CQ,1,11:1050LPS1Ģ24:OP,"P/O has been "ST$(PS)". Inquiry complete, press [SPACE BAR] to continue":WS:1500lLN1:ES:330:HL,83:YN,"Do you want to cancel any portion of this P/O",N:N01500330:"What part of the P/O do you want to cancel? ";:HL,84:KW,"Specific part","All",1,N:N01200N11300V330:OP,"Please confirm request to cancel entire P/O by typing !C!A!N!C!E!L: ":HL,85:KI,0,A$:A$ES$1210UC,A$:A$"CANCEL"įER,"REQUEST TO CANCEL P/O HAS BEEN CANCELLED":1210LN1NI:LL(LN):5400:NQ(LN):380:PS2:5350:1500=ES,"Finished with cancellations":330:OP,121:HL,86:PI,7,L11,33,NI,LN,S:S1200cLL(LN):5400:GO,7,L1LN:HG,62(ES:330:OP,"Enter total quantity cancelled for this part":360:HL,87:DI,9,S,N:S2İ360:370:13002S0N0įER,"INVALID QUANTITY ENTERED":1320C<NQ(LN)įER,"EXCEEDS OUTSTANDING QUANTITY FOR PART":1320LF380PPS1:I1NI:PSPS(CQ(I)Q(I))::GO,63,6:OS,9,ST$(PS):5350:370:1300HL,R:100GO,1,5:PL,L"P/O Number:",B10,L"Vendor:",B26,L"Date :",B9PL,B23,L"Name:",B26,L"Status:",B9:j" Line Part # Description Order Qty Recvd Qty Last Cost Cancel Qty"" ==== ======== ====================== ========= ========= ========= =========="GO,1,L11:CW,80,LX: ES$(27):EN$(255):SP$" ":Q$"?"8L19:LX13:H113:H271:HU100:S5$" "FRS,2,FC$L(LX),Q(LX),CQ(LX),ST$(2),PG%(3),PS$(4),PQ(16),IY(3)I02:ST$(I):FC:FO,181,QX:IS,O,QX,NK,ND:NUNKND:FO,182,QH:FO,15,QI:BR,QI,0,#NP:FO,16,QT:PRW$"BR">d@RW$,QI,PR,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3IY:3:QRW$"BW":5220^RW$"BR"@RW$,QH,R,#LK,$P$,$VI$,$VN$,3PD,3NI,3PS:PS0PS2PS0RW$"BW":5320RW$"BR",@RW$,QT,L,#TL,@R%,@T%,#LL,#PR,#OQ,#RQ,#CQ,#LC,3TD,3TQ,$PO$,@PM%:JRW$"BW":5420G|RB1:BW,QI,0,#NP,#RB:KP:ER,107:200OXPXU(#2#A$(S5$(A$,1,(A$)1),5):330:340:SX11:NUSXSXNU:A$""C4#HS43:VS9:GO,HS,7:WB,35,SX2," Purchase Orders ":" P/O # Vendor Date Status":GO,HS:" ===== ======== ======== =========":IS,F,QX,A$,I:450:R0I0İ460l<#460:I1SX:450:R0İ9200:VSVS1{>#R0ISX@#:ES,92:24:OP,129:I1F#HL,109:PI,HS,9,7,SX,I,S:XY,VS,VS:RT,5,A$:PO(A$):ESS3:ESSįES:S0:330P#IS,F,QX,A$,R:GS,455S5:R0įBL:9030BZ#GO,HS,9:SW,34,SX,S:9200:9030~#5300:GO,HS,VS:PU,B1,S6,P$,S9,VI$,YPD,B1,S9,ST$(PS):'"Open","Closed","Cancelled" 7000" 5000:5100:5600l1:80:ST,"Enter Purchase Order Receipts":GO,1,23:OX,80,"-":PU$""NUįER,"NO PURCHASE ORDERS ON FILE":20024000dSH0:HL94 nES,11:330:OP,"Enter P/O number, !Next, !Previous, !?, or [RETURN] only to quit":GO,1,4:HG,11t pGO,H1,4:PU,X5,FC$,B1:GO,H1:HL,HL:NI,6,S,PO:LI,A$:GO,1,4:HG,11:S2200 x(A$,1)Q$įGO,H1,4:OX,6,SP$:9000:ES110 SQ,A$,"NEXT","PREVIOUS",N:NįIS,F,QX,PU$,RH:400. SPO1PO99999įER,"INVALID PURCHASE ORDER NUMBER, must be 1 to 99999":110[ A$(S5$A$,5):IS,F,QX,A$,RH:RH02000 ER,"P/O NOT ON FILE, Use ? for list (see HELP)":HL82:110 HL,R:100 330:1::FC MM,11:RU,12 JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `X hGO,H21,L1LN:OD,40,C(LN),4,9:R(LN)įOD,8,R(LN),3,9:b jCL:{ rGO,7,L1LN:HG,58: |CL1:OK0:LN1NI:OKOK(R(LN)0):CLCL(R(LN)Q(LN)):: N1İ450:RH0įIS,F,QX,"",RH:400 N2İ460:RH0įIS,F,QX,EN$,RH:400 2000- IS,N,QX,A$,RH:B IS,P,QX,A$,RH: RQ0:LQBQ:AQC:PQPQ(1)PC(1):IY(1)TD:PC(2)C:PQ(1)PQ(1)Q:PQ(7)PQ(7)Q:PQ(2)PQ(2)OO:PQ(2)0PQ(2)0 CM1010,1020,1030,1030 ICPC(1):P1(QICHUC1) P2(AHUC1):S PC(1)(T((PQA)PQ(1))C1)T:P1((PC(1)PQ(1)PQ)HUC1):ICHUP1Q:1012 RQQ:ICC:PC(1)(PQA)PQ(1):P1(AHUC1):P2P1: 350:ES:330:HL,S:PU$A$ PU$(PU$,5):5300:P$PU$5500.GO,H1,4:OS,6,PU$:GO,30:OS,8,VI$:GO,63:OY,PD:GO,30,5:OS,22,VN$:GO,63:OS,9,ST$(PS)hPSįER,"P/O "ST$(PS)", NO RECEIPTS POSSIBLE":170wNI0:LLLKLLL:LNILX2100 NINI1:L(NI)L:5400:Q(NI)OQRQCQ:R(NI)0:C(NI)LC:BR,QI,PR,#N,@X%,@X%,@X%,3N,3N,$PN$,$DS$[GO,1,L1NI:PU,I2,NI,L" ",S9,PN$,S21,DS$,D8,OQ,3,9,D8,RQ,3,9,D8,CQ,3,9:GO,H21:OD,40,LC,4,9:20504330:HL,95:YN,1,"OK to receive parts on this P/O",N:N0170 >330:"What portion of P/O do you want to receive? ";:HL,96:KW,"Specific parts","All",1,N:N02100;HLN1:N2āLN1NI:R(LN)Q(LN):360::2300aE$"Finished with receipts":3000380:OKįER,"NO PARTS RECIEVED":2100` 330:"What do you want to do? ";:HL,100:KW,"Accept","Edit","Reject",1,N:N0N3įER,"P/O Receipt has been cancelled":170@j N2E$"Finished with Edits":3000:2300X AB10įER,89:170 330:OP,"Please wait, posting this receipt":380:RF$"P/O #"PU$( LN1NI:QR(LN):Q26502 LL(LN):CC(LN):5400:RQRQQ:LCC:5450< OOQ:OOQ(LN)OOQ(LN)TF 5200:1000:XPPA(21)PA(21)P1:PA(22)PA(22)P2:PA(23)PA(23)(P1P2)dP 6000:5250Z :5300:PSCL:5350:5150:KP:5600 170 LN1 ES,E$:330:OP,121:HL,97:PI,3,L11,32,NI,LN,S:ES:Sı GO,3,L1LN:HG,58:3100:370:3010 SVC(LN)& 330:OP,"Enter unit cost of the items received for this part":GO,H2,L1LN:HL,98:D3,8,S,N:S3C(LN)SV:3600 S2S0:NC(LN): S0N0įER,"INVALID UNIT COST":3110< S2NN10D C(LN)N:360W 360:330:OP,"Enter quantity received for this part":GO,H3,L1LN:HL,99:DI,8,S,Q:S3İ360:3110m S2S0:QR(LN) S0Q0įER,"INVALID QUANTITY ENTERED":3200  QQ(LN)įHL,101:ER,"EXCEEDS OUTSTANDING QUANTITY FOR PART","OK to receive this quantity",N:N03200 R(LN)Q:360^GO,1,4:PL,L"P/O Number:",B10,L"Vendor:",B26,L"Date :",B9PL,B23,L"Name:",B26,L"Status:",B9: 34)"Quantity Recv'd Quantity"12)"QuantityLn Part # Description Ordered So Far Cancelld Cost Received";d"== ======== ===================== ======== ======== ======== ======== ========"I1LX:GO,H22,L1I:"|";:GO,1,L11:CW,H23,LX:GO,H21,L11:CW,82H2,LX:ES$(27):EN$(255):SP$" ":Q$"?".L19:LX13:H113:H264:H373:HU100:T10:Z0:Z%0:S5$" "dRS,0,TD$:DT,TD$,TD:RS,2,FC$:RD,7,BQ:RD,17,XPL(LX),C(LX),Q(LX),R(LX),ST$(2),PG%(3),PS$(4),PC(5),PQ(11),IY(3),ID(8),PA(24)I02:ST$(I):FC:`FO,181,QX:IS,O,QX,NK,ND:NUNKND:FO,182,QH:FO,15,QI:BR,QI,0,A#ID:8,A#PA:24:NPID(1):CMID(5):FO,16,QT:BR,QT,0,#AV,#LR,#RR,#UT:BW,QI,0,A#ID:8,A#PA:24:BW,QT,0,#AV,#LR,#RR,#UT:PRW$"BR"d@RW$,QI,PR,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#PQ:11,A3IY:3:RW$"BW":5220RW$"BR"F@RW$,QH,RH,#LK,$P$,$VI$,$VN$,3PD,3NI,3PS:PS0PS2PS0L_RW$"BW":5320lRW$"BR",@RW$,QT,L,#TL,@R%,@T%,#LL,#PR,#OQ,#RQ,#CQ,#LC,3TD,3TQ,$PO$,@PM%:JRW$"BW":5420|RB1:BW,QI,0,#NP,#RB:KP:ER,107:200OL,2,A$,AB,TB:#pAVLRLR1:ALR:6020:zAAV:BR,QT,AV,#AV_LPTL:CM4LPLTL:TLA:6050~BR,QT,LP,#L:LLPL:6030LA:BW,QT,LP,#L:L0BW,QT,A,#L,@Z%,@Z%,#Q,#RQ,#C,#IC,#Z,#Z,3TD,3BQ,$RF$,@Z%UT1:5150XPX(#42#A$(S5$(A$,1,(A$)1),5):330:340:SX11:NUSXSXNU:A$""4#HS43:VS9:GO,HS,7:WB,35,SX2," Purchase Orders ":" P/O # Vendor Date Status":GO,HS:" ===== ======== ======== =========":IS,F,QX,A$,I:450:RH0I0İ460 <#460:I1SX:450:RH0İ9200:VSVS1>#RH0ISX8@#:ES,92:24:OP,129:I1F#HL,109:PI,HS,9,7,SX,I,S:XY,VS,VS:RT,5,A$:PO(A$):ESS3:ESSįES:S0:330P#IS,F,QX,A$,RH:GS,455S5:RH0įBL:9030Z#GO,HS,9:SW,34,SX,S:9200:9030#5300:GO,HS,VS:PU,B1,S6,P$,S9,VI$,YPD,B1,S9,ST$(PS):@'"Open","Closed","Cancelled" 7000 5000:5100P2HD$"Purchase Order Report":1:80,N:XC,LV,HD$^d2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,102:YN,N,"Print report as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10 3000 " 1::FCC ES:XC,LV:MM,LV,11:RU,12r ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300x . JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 ` hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESĐ350:390" jA$""A$(DF$,1)0 l300:390 r392:GO,1,24:OP,"Enter range of P/O's to be included or use !?: from ":PU,S5,P1$,L" to ",S5,P2$:H44N9:GO,H:S5:360:ESı tUC,A$:(A$,1)"?"İ9000:ES370G vA$SP$A$(S8$A$,5):X(A$):X1X99999X(X)įER,"INVALID P/O NUMBER, must be 1 to 99999":370d x350:GO,H,24:OS,5,A$:} GO,14,12:CW,4,10: 390:GO,14,V:"--->": V21:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2:( CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS SB,DS,"SUMMARY ",OF,"OPEN ",1,(HD$,1),HU$:UC,HU$:PN0:PF1:700 900:CPİ650:PW,0:# 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:0 &PF570e 0CPLNLN2:SP$:"***** LISTING CANCELLED....."~ 2AC$"cancelled":500 :PO:50 X630:TFLNL1:LNNLEPLNLNNL: b900:CPĢ24:OP,130:WS,A$:A$ES$570 l650:700:600v(KB)SBĹKS,0:(KB)(ES$)550 -CPė:>FFĺ(FF):ULLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:9005 60)"Original Open":" P/O # Date Vendor Vendor's Name Status # Value Value":" ===== ======== ======== ====================== ====== == ========= =========":SH0:V12:392:330:"Include which purchase orders? ";:HL,103:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı AFN1:AFP1$"":P2$"":2080J330:N1:DF$P1$:HL104:370:ES2000UP1$A$z N2:DF$P2$:HL105:370:ES2050P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 2600 4V16:392:330:HL,106:YN,V$"","Include P/O's from all vendors",N:N02000(>N1V$"":2620:2200mf330:"Enter vendor ID: ";:XY,H:HL107:S8:DF$V$:360:ES2100pUC,A$:A$SP$įER,"INVALID VENDOR ID":2150zV$(S8$A$,8):2620!V18:392:330:"What type of P/O report do you want? ";:HL,110:KW,DS$(1),DS$(0),2DS,N:N021002DSN1:2630V19:392:330:HL,108:YN,OF,"Do you want to include only 'open' purchase orders",N:N02200 OFN:2630` 400:ES2300j 26400 GO,19,12:"Range of P/O's to be included:":GO,29:"Starting P/O number:":GO,31:"Ending P/O number:": GO,19:"Include P/O's for all vendors:"::GO,19:"Detailed or summary report:":GO,19:"Include only open P/O's :"::GO,19:"Produce report on what device:"  AF1:P1$"":P2$"":V$"":DS1:OF1:RD,39,CP:PF0S( GO,50,12:OS,10,AS$(AF)::AFāI12:GO,50:PL,S5,"n/a"::2620{2 GO,50:PL,S5,P1$:GO,50:PL,S5,P2$< GO,50,16:YN$(V$"")15(V$"")):V$""ĺ", "V$" only"F GO,47,18:PL,S8,DS$(DS):GO,47:OS,3,YN$(OF0) P GO,50,21:OS,8,SP$(CP):(Z GO,50,21:OS,8,SP$(CP):O AFH2$"":P1$"":P2$(255):3100 H2$"(Purchase Orders: "P1$" thru "P2$")":P2$SP$P2$"99999" IS,F,QX,P1$,R:R0įIS,P,QX,PO$,RRT0:SD,39,CP:450 IS,N,QX,PO$,R:PO$(PO$SP$,5):R0PO$P2$4200#5300:OFST4100EV$""ĭV$(S8$VI$,8)4100XNI0:OV0:RV0f"LL4150,BR,QT,LL,#LK,@R%,@T%,#LL,#PR,#OQ,#RQ,#CQ,#LC:T%HU4130.NINI1:RQOQRQCQ:OQ(NI)OQ:RQ(NI)RQ:C(NI)LC:OVOV(OQLCHUC1):RVRV(RQLCHUC1)F0BR,QI,PR,#LK,@R%,@R%,@R%,3N,3N,$PN$(NI),$PD$(NI):NILX41306RTRTRV:NL22DSCPDS(4NI):600:NLCP:LNLNTF(1DS):TFĺSP$:DSĺEX$:SP$@PL,B2,S6,PO$,YPD,B1,S9,VI$,S23,VN$,S7,ST$(ST),I2,NI,D8,OV,2,10,D8,RV,2,10:DS4100JLL0:600:SP$:600:9)" Part # Description OrderQty Open Qty Unit Cost OpenValue":600:9)"-------- ---------------------- -------- -------- --------- ---------"TLLLL1:LLNIİ600:SP$:4100E^600:PL,B9,S9,PN$(LL),S22,PD$(LL),D8,OQ(LL),3,9,D8,RQ(LL),3,9,D40,C(LL),3,10,D8,(RQ(LL)C(LL)HUC1),2,10:4180|hNL2:600:SP$:PL,B54,L"REPORT TOTAL:",D8,RT,1,11AC$"complete":500:570NL2:600:PL,BSS57OO9HD8LF(P$),LP$,L":",D8,T,1,11:SP$:\SFĭLS0TGT:P$PB$(SF)" TOTAL":UC,P$:QF1:4600:GT0$f*@ES$(27):SP$" "LV4:LX13:HU100:SB128:C1.5:KB16384:KS16368:NO$"None":S8$" ":EX$"":I139:EX$EX$" -":RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP+OP$(2),YN$(1),AS$(1),SP$(1),DS$(1),ST$(2),PN$(LX),PD$(LX),OQ(LX),RQ(LX),C(LX)YN$(0)"No":YN$(1)"Yes":AS$(0)"All":AS$(1)"Selective":SP$(0)"Screen":SP$(1)"Printer":DS$(0)"Summary":DS$(1)"Detailed":ST$(0)"Open":ST$(1)"Closed":ST$(2)"Cancel"FC:,FO,15,QI:FO,16,QT:FO,181,QX:IS,O,QX,NK,ND:NUNKND:FO,182,QH:gBR,QH,R,#LL,$A$,$VI$,$VN$,3PD,3NI,3ST:ST0ST2ST0muXPX(#NUįER,"NO PURCHASE ORDERS TO SHOW":ES1:2#A$(S5$(A$,1,(A$)1),5):330:340:SX11:NUSXSXNU:A$""4#HS43:VS9:GO,HS,7:WB,35,SX2," Purchase Orders ":" P/O # Vendor Date Status":GO,HS:" ===== ======== ======== =========":IS,F,QX,A$,I:9500:R0I0İ9600<#9600:I1SX:9500:R0İ9200:VSVS1>#R0ISX@#:ES,92:24:OP,129:I1FF#HL,109:PI,HS,9,7,SX,I,S:XY,VS,VS:RT,5,A$:PO(A$):ESS3:ESSįES:S0:330uP#IS,F,QX,A$,R:GS,9550S50:R0įBL:9030Z#GO,HS,9:SW,34,SX,S:9200:9030#5300:GO,HS,VS:PU,B1,S6,A$,S9,VI$,YPD,B1,S9,ST$(ST):%IS,N,QX,A$,R:%IS,P,QX,A$,R: 7000 5000:5100n21:80,N:XC,LV,TL$:NPįER,"NO PARTS ON FILE IN THE INVENTORY SYSTEM":200<TX1:ES,11:HL,0:MS,LV,5,OP$,0,2,TX,TX:ES:TX0200>TXİ8000:60FST,OP$(TX):AJTX4:OFTX5 d392:4900:SH0:HL42:TX5ĭAB6įER,89:50 nES,TL$:320:OP,"Enter part number, !?, or [RETURN] only when done":24:OP,"(Use !? to see a list of your parts)":GO,1,5:HG,16 pGO,H1,5:PU,X8,FC$,B1:GO,H1:HL,HL:KI,9,A$:UC,A$:370:GO,1,5:HG,16:A$SP$A$ES$50. x(A$,1)Q$įGO,H1,5:PU,X8,FC$,B1:9000:ES110u z(A$)8įER,"INVALID PART NUMBER, can't exceed 8 characters":110 PN$(S8$A$,8):IS,F,QX,PN$,RN:RN0įER,127:HL87:110 ES:360:320:5300:4800:500 GO,1,24:CL:1::FC ES:XC,LV:MM,LV,11:RU,12$ ,RW$"BR"[ .@RW$,QT,LP,#LK,@RK%,@X%,#QQ,#QR,#QA,#QC,#QP,#CC:m 6RW$"BW":302 @GO,1,23:CS: J320:OP,"Enter "P$ TGO,H,V: VGO,HW1,V: ^SHįHL,S:SH1 ` hSHįHL,R:SH0 j rA$SP$ĭ(A$,1)SP$A$(A$,(A$)1):370" t: GO,40,4:CW,40,7:R GO,1,V1:CW,80,2: 392:3800:3700:L1:LX0:EF0:Q0:RF$"":ACPC(PP):UP(K(4)1)PC(3):CGCG%CG% &EDLLX:2000:ES580 0LL1:LĴEF1100,600 :GT,55010K(L) DLLXLXL:L2LX5" NL5LL1:550 X320:"Transaction complete, what do you want to do? ";:HL,116:KW,"Accept","Edit","Reject",1,N:N0N3500 bN2EF1:L1:550 320:OFPQ(2)PQ(2)Q:900 OP,"Please wait, posting transaction":S(TX1)(TX3)(AJQ0):SS1<*Q(Q):PQPQ(1):PQ(1)PQSQ^4A222:TX1000,1200,1200,1400>TX2TX3PQ(10)PQ(10)S(QUPHUC1):PQ(11)PQ(11)P2RXPPA(21)PA(21)P1:PA(A2)PA(A2)P2:PA(23)PA(23)(P1P2)\AJS0QQf6000:LQBQ:TX3IY(TX)TD-5350:KP:5500:320:100hT%0:UP0:PQ(7)PQ(7)Q:PQ(2)PQ(2)Q:PQ(2)0PQ(2)0{TX1PC(2)ACRQ0:PQPQPC(1):AQAC:CM1030,1040,1050,1050ICPC(1):P1S(QICHUC1)P2S(QACHUC1)::PC(1)(T((PQA)PQ(1))C1)T:P1((PC(1)PQ(1)PQ)HUC1):ICHUP1Q:1032uRQQ:ICAC:PC(1)(PQA)PQ(1):P1S(AHUC1):P2P1:T%CG20(TX3):PQ(8)PQ(8)SQ:A2CG:TX31010CM1220,1220,1240,1240RQ0:ACPC(1):1030P20:RQQ:PQ0:A0:LKTLLPLK:LP1280.300:NQR:X%98N01250<RQ1270KNRQNRQQRQRN:RQRQN:P1(QA(QQQR)HUC1):P2P2P1CC:CCP1:310PQPQQR:AAQRQA:1250RQįER,"REQUIRED ON-HAND QUANTITY NOT FOUND":QQRQ:ID(2)1$ P1P2:ICHUP2Q:ACIC:RQ0:PC(1)0:PQPC(1)APQ* bxT%98:UP0:PQ(9)PQ(9)SQ:A224:(S0)11010,1210z3900:SSS:K(L)ı342:HG,W:340DDED:GS,2000100L:360:342:HG,W:DD1:ESDDED3000:DDED:3000:20004EDįES,"Cancel part selection"K>P$TX$(TX)" quantity":A$"DI":DFQ:HL42TX:2150:ESı^@IN:TX2IIBST0N(TX4N0)A$"INVALID "P$:UC,A$:ER,A$:2050HXPQ(1OF)I:X0įER,"EXCEEDS CURRENT ON-"TH$(TX)" QUANTITY":20502JXUXįER,"INVALID, ON-"TH$(TX)" QUANTITY WILL EXCEED "(UXHU):2050RQN:TX1ĭNPQ(2)NDFDD1:3000:320:HL,48:ER,"EXCEEDS CURRENT ON-ORDER QUANTITY",1,"OK to accept receipt quantity",N:N0QDF::2000\AJı^L3:3900:KQ0:GO,H,V:KįOS,S(3),"n/a" `KK(3)DDLLXEF:30005bK(L)K:L1:3900Sf3000:EDİ340:OX,S,FC$p330:HL,HL:@A$,SS,ST,N:320:ESST3:ST2ST0:NDFzES:P$"transaction reference":330:PU,LRF$,XS(RF$),FC$:340:HL,49:KI,S,A$:370:330:ESA$ES$:ESıA$""RF$A$sP$"actual unit cost of these parts":E$"COST":DFAC:HL49CM(CM4):2350:ACN:. A$"D3":2150:ESġ:8 ST2NN10B L4ĭST0įLI,A$:UC,A$:I(A$SP$)64:I0I4ST0:NPC(I2)-L ST0N0N1E8įER,"INVALID "E$", must be 0 to 999999.999"::20503V ` P$"actual unit price of these parts (or !A, !B, or !C)":E$"PRICE":DFUP:HL58:2350:UPN: SB,1,"cost of goods sold account number (1-16)",UG," or !? to see a list",P$:A$"NI":DFCG:HL53UG:SSS:2150:ESı6 ST0UGįLI,A$:(A$,1)"?"2550x N1N16STįER,"INVALID COST OF GOODS ACCOUNT NUMBER":2050 CGN: 3000:350:GO,4,5:WB,40,16," Cost of Goods Sold Accounts ":GO,1,22:OX,80,"-":5:I116:GO,4:OP,139I::4 320:OP,121:NCG:HL,117:PI,8,5,36,16,N,ST:ST02500? CGN:Y 340:DDįOX,S,SP$:k GT,310010L}& OD,8,Q,3,9:0 OS,S,RF$:: OD,40,AC,3,10:D OD,40,UP,3,10:N CG" ":tA$TF$(TX):I15:N((A$,1)):NOFįGO,H(I),V(I):"n/a"~K(I)N:A$(A$,2)::GO,6,V1:"Quantity :";:OFįPL,B14,L"Reference :":GO,6:PL,L"Unit Cost:",B14,L"Unit Price:",B16,L"COG #:"<SS(L):HH(L):VV(L):WW(L):HSHW2:,4950:GO,H1,5:PL,S8,PN$,B1:7:I13:GO,H1:PS$(I1);:GO,H2:PL,D8,PQ(I6),3,9::PG%įGO,27,9:PG%CBL%įGO,36,9:BL%11:I15:GO,H11:PU,F6,PQ(I):GO,H2:PL,D40,PC(I),3,10:I2ĺ:$390:GO,48,7:WB,30,2," Status ":PL,L" Disk Status :",I4,AB,L"% Avail":GO,50:"Costing Method: "CM$(CM).GO,1,5:PL,L"Part Number :",B10::PL,L"Description :",B24:PL,L"Mfg Part Number:",B24:PL,L"Unit of Measure: PG: BL: " 8GO,1,11:PL,L"On-Hand Qty :",B28,L"Unit Cost :",B12:PL,L"On-Order Qty :",B28,L"Last Cost Paid :",B12:BPL,L"Order Point :",B28,L"Unit Price, #A :",B12:PL,L"Minimum Order :",B28,L"Unit Price, #B :",B12:PL,L"Max Stock Level:",B28,L"Unit Price, #C :",B12LGO,5,V12:OX,72,"_":GO,1,22:OX,80,"-":7V390:GO,45,7:"YTD Receipts :":GO,45:"YTD Issues :":GO,45:"YTD Adjustments:":=LV3:TL$"Inventory Transactions":ES$(27):S8$" ":SP$" ":Q$"?":H118:H262:V119:UX99999999:C1.5:HU100:T10:Z%0:Z0RD,7,BQ:RD,17,XP:RD,18,UG:RS,0,TD$:DT,TD$,TD:RS,2,FC$lID(8),CM$(4),OP$(5),TX$(5),TF$(5),TH$(5),PA(24),PS$(4),PC(5),PQ(11),IY(3),K(5),S(5),H(5),L(5),W(5)I14:CM$(I):I15:TX$(I),OP$(I),TF$(I),TH$(I):I15:S(I),H(I),V,W(I):V(I)VV1:FC:? FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,A#ID:8,A#PA:24:NPID(1):CMID(5):CM1CM4CM1f FO,16,QT:BR,QT,0,#AV,#LR,#RR,#UTz LFCM2:PP1LF 5500 PBW,QI,0,A#ID:8,A#PA:24:BW,QT,0,#AV,#LR,#RR,#UT: RW$"BR"!@RW$,QI,RN,#TL,@PG%,@BL%,@CG%,3SL,3LQ,A$PS$:4,A#PC:5,A#PQ:11,A3IY:3:&!RW$"BW":5320T!|OL,2,A$,AB,TB:TBTBTB:ABHUABTBC1:p!pAVLRLR1:ALR:6020!zAAV:BR,QT,AV,#AV!LPTL:CM4LPLKTL:TLA:6050!BR,QT,LP,#LK:LKLPLK:6030!LKA:BW,QT,LP,#LK:LK0+"BW,QT,A,#LK,@Z%,@T%,#Q,#RQ,#AC,#IC,#UP,#Z,3TD,3BQ,$RF$,@Z%D"RRRR1:UT1:5200:L"XPX"@HL,S::"Help for "TL$:OX,80,"=":GO,1,23:OX,80,"-":GO,1,2:I03#J8500:"Used to record the receipt of inventory parts. You will be"SS)"prompted to enter the quantity received, reference, and the"SS)"actual unit cost"#T8500:"Used when you issue parts from your inventory (i.e., record"SS)"a sale). You'll enter the quantity issued, reference, unit"SS)"price, and the cost of goods sold account to be used"$^8500:"Used to record the return of previously issued "SS)"(sold) parts. You'll enter the information required for":SS)"both a receipt and issue transaction"b%h8500:"Used to adjust your on-hand quantity so your books "SS)"accurately reflect your actual inventory. Do NOT use this "SS)"transaction to record the results of a physical count. Use";%jSS)"the Physical Inventory option for this type of adjustment"g&r8500:"Used to adjust the on-order quantity of a part.":SS)"This transaction should only be used when you are not using"SS)"the Purchase Order feature of the Inventory Control System"&ES,TL$:24:OP,103:WS:HL,R:&4!:II1:A$OP$(I):S(A$):S15S15&>!PU,I1,I,L". ",SS,OP$(I),L" - ":SS21:&(#.'2#A$(S8$(A$,1,(A$)1),8):ES:320:350:SX13:NPSXSXNP:A$""x'4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400'<#9400:I1SX:9300:R0İ9200:VSVS1'>#R0ISX'@#:ES,92:24:OP,129:I1 (F#HL,105:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ320:ES:P(P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030v(Z#GO,43,7:SW,34,SX,ST:9200:9030(#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:(T$IS,N,QX,A$,R:($IS,P,QX,A$,R: )'"Standard","Average",LIFO,FIFO)'"receipt","Receipt","11100",HAND,"issue","Issue (or Sale)","11011",HAND,"return","Return (Undo Previous Sale)","11111",HAND,"adjustment","Adjust On-Hand Quantity","11000",HAND,"order","Adjust On-Order Quantity","10000",ORDER)**9,17,0,10,12,42,0,11,10,17,1,10,10,42,1,11,2,64,1,6 7000 5000:5100B21:80,N:XC,LV,"Print Worksheet"X<PSįER,70:200fd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,36:YN,N,"Print worksheet as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10% 400:ESN0:110/ 30005 B 1::FCc ES:XC,LV:MM,LV,11:RU,12 ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300 . 6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESı 8N1N0:; @330:"Enter "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,H] BHL,HL1:NI,2,S,N:S3310p DS2NDF:S0 FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320 H JGO,1,24:CL: TSHįHL,S:SH1 V ^SHįHL,R:SH0 `V hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390m jA$""A$(DF$,1){ l300:390 r392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S8,P1$,L" to ",S8,P2$:H41N12 tGO,H:S8:360:ESı- vUC,A$:(A$,1)"?"İ9000:ES370H xA$""A$(S8$A$,8)e z350:GO,H,24:OS,8,A$:} GO,14,13:CW,4,9: 390:GO,14,V:"--->":) HL,S:XC,LV:ES,104:15:WB,46,4," Prepare Line Printer ":OP,"The Physical Inventory Worksheet"::OP,"will be listed on your printer"U 18:OP,109:WS,A$:ESA$ES$:ESįHL,R[  XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$"PHYSICAL INVENTORY WORKSHEET":PN0:PF1:700900:650:PW,0:&PF570E0LNLN2:SP$:"***** LISTING CANCELLED.....":500Q:PO:50}X630:TFLNL1:NLĭLNNLEPLNLNNL:b900l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550FFĺ(FF):LLLNOL:SP$::3PNPN1:LN7:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1PH3$""įOC,H3$:LNLN1iL1LN:SP$:800:900 TS)" Part # Mfg's Part # Description UM PG BL "T1$" Actual Qty":TS)T2$:SF1100^XC,LV:15:WB,40,5," Please Wait ":OP,"Reading parts list (in reverse order)":GO,30,17:"Part Number:":19:OP,86:ES,100L(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RN630:IS,P,QX,PN$,RN:RN0PN$P1$S11:S20: $GO,43,17:OS,8,PN$:BR,QI,RN,#TL,A@PG%:3,3SL:1600:LPG%(SF):L99OK1050N.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050xLIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN~VSF1400IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı1500:PN$PS$(1)5300(1600:OKı21300xS2RNS2:1500:S2SL:#S1S11:EFS199:EFı6S2L(S1):1400iBR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:6:@OK0:PGĭPGPG%(1)ıJBLĭBLPG%(2)ıTOK1: SH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı,AFN1:AFP1$"":P2$"":2080T330:N1:DF$P1$:HL3:370:ES2000_P1$A$ N2:DF$P2$:HL4:370:ES2050P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620(fV18:392:HL7:DFBL:PB2:310:ES21007pBLN:2630WNSPG0BL0:NSSF0:2300(SF1PG0)(SF2BL0)SF0:WG0:2640V19:392:330:"What type of additional sorting? ";PGBLįHL,9:KW,NO$,PB$(1),PB$(2),SF1,N:2240,HL,10BL:KW,NO$,PB$(1BL),2SF,N:NN(N2BL):N02150[SFN1:2640:SFWG0:2300330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200WGN:26400V21:392:330:HL,37:YN,BQ,"Do you want to include the current on-hand quantity",N:N0įGT,220050NSD BQN:390:2650 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":L GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :":GO,19:"Should report be sorted:"::GO,19:"Include current on-hand quantity:" AF1:P1$"":P2$"":PG0:BL0:SF0:WG0:BQ1:PF0( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::26202 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$#< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";VF GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "T SFĺ30)Z GO,53,21:OS,3,YN$(BQ0):  AFH2$"":P1$"":P2$(255):3100d H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255) H3$"":PGH3$PB$(1)" # "(PG)& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL)G T1$"":T2$"======== ============ ====================== == == == ":BQT1$" Book Qty ":T2$T2$"========= "t T2$T2$"==========":TS((80(T2$))2)LS1:1000:4501200:EF4300SF4100PG%(SF)LS4100WGĭLS0ĭLNL1NL0:600(LSPG%(SF):LSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1INL2:600:TFNL1:600:SP$PU,BTS,S9,PS$(1),S13,PS$(3),S23,PS$(2),S2,PS$(4)I12:3PG%(I)):PG%(I)įOI,3,PG%(I)"1):BQįPU,B1,F6,PQ(6),PL,B1,X10,"_":SP$:4050500:570ES$(27):SP$" "qLV4:HU100:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None"RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LPPC$(2),PG%(3),PG$(3),PS$(4),PQ(16),YN$(1),AL$(1),AS$(1),PB$(2),L(99)mYN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":PB$(1)"Product Group":PB$(2)"Bin/Location"wFC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP:RB1:BW,QI,0,#NP,#RB:KP:PFįPW,0ER,107:200XPX(#NPįER,97:ES1:N2#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$""4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400<#9400:I1SX:9300:R0İ9200:VSVS1>#R0ISX@#:ES,92:24:OP,129:I1DF#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:tP#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030Z#GO,43,7:SW,34,SX,ST:9200:9030#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:T$IS,N,QX,A$,R: $IS,P,QX,A$,R: ' "Stock Status Report"," On On Unit Cost Stock","UM PG BL Order Hand Unit Price Value","== == == ====== ====== ========== ==========" 7000 5000:5100](HD$PI$" Analysis":1:80,N:XC,LV,"Enter Physical Results"2ABįER,"INSUFFICIENT DISK SPACE AVAILABLE":200<PSįER,"UNABLE TO CONTINUE, no printer available":200F2700dXC,LV:2500:N0t nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,73:YN,N,"Enter results as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10Z ES:XC,LV:GO,15,12:"During the physical inventory update process, the system will":GO,15:"display your inventory parts, in the order you selected (e.g.,":GO,15:"by product group).": GO,15:"As each part is displayed, enter the actual quantity if it":GO,15:"differs from the current book quantity. If the book quantity"m GO,15:"is correct, then just press [RETURN]. A "PI$:GO,15:"Analysis Report will be printed after you enter the results." GO,15:"This report will itemize the changes to inventory quantities":GO,15:"as a result of the physical inventory." 330:OP,103:WS,A$:A$ES$100 XC,LV:GO,15,12:"Be careful when entering the physical quantities, as they are":GO,15:"immediately recorded in your inventory system. To insure"w GO,15:"accuracy, the system will ask that you confirm any physical":GO,15:"quantity that differs by more than 10% from the current book":GO,15:"quantity or any dollar variance exceeding $50.00.":GO,15:"If you discover any entry errors after entering the physical":GO,15:"quantities, you can correct these quantities by entering"^GO,15:"adjustment transactions using the Inventory Transactions":GO,15:"option."330:OP,103:WS,A$:330:A$ES$15030001::FC:FX,199ES:XC,LV:MM,LV,11:RU,12,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300.\6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESık8N1N0:@330:"Enter "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,HBHL,HL1:NI,2,S,N:S3310DS2NDF:S0(FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320.HAJGO,1,24:CL:TLGO,1,22:CS:hTSHįHL,S:SH1nV^SHįHL,R:SH0`hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390jA$""A$(DF$,1)l300:390kr392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S8,P1$,L" to ",S8,P2$:H41N12tGO,H:S8:360:ESıvUC,A$:(A$,1)"?"İ9000:ES370xA$""A$(S8$A$,8)z350:GO,H,24:OS,8,A$:GO,14,13:CW,4,9:390:GO,14,V:"--->":XC,LV,"Print Analysis Report":ES:15:WB,46,4," Prepare Line Printer ":OP,PI$" Analysis Report"::OP,"will be listed on your printer":18:OP,109:WSXC,LV:16:WB,32,1," Please Wait ":OP,101$HU$(HD$,1):UC,HU$:OLLL:EPOL6:PN0:PW,PS:700:760:650:PW,0:G:PO:200eXNLĭLNNLEPLNLNNL:b760:650:700:NLī600lFFĺ(FF):LLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1 L1LN:SP$:750:76037)"Book Physical Variance Unit Dollar":" Part # Description PG BL Quantity Quantity Quantity Cost Variance":"======== =================== == == ======== ======== ======== ======== ========": SF850~"XC,LV:15:WB,40,3," Please Wait ":OP,"Reading and sorting your parts list":GO,30,17:"Part Number:"*L(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RN4IS,P,QX,PN$,RN:RN0PN$P1$S11:S20:5>GO,43,17:OS,8,PN$:BR,QI,RN,#TL,A@PG%:3:950:LPG%(SF):L99OK820bHBW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:820RIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN\SF920IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı5300:PN$PS$(1)5500950:OKı910S2RNS2:5300:S2SL:4S1S11:EFS199:EFıFS2L(S1):920aOK0:PGĭPGPG%(1)ıwBLĭBLPG%(2)ıOK1:RQ0:AQAC:Q01200ICAC:LFRQQ:PC(1)((PQ(1)Q)PC(1)A)PQ(1)A1(AHUC1):A2A1:LF1050RQ(Q):A20:PQ0:A0:LKTL,LPLK:LP1270L5400:NQR:X%98N01220ZRQ1260iNRQNRQQRQRN:RQRQN:A1(QA(QQQR)HUC1):A2A2A1CC:CCA1:5450PQPQQR:AAQRQA:1220 RQįER,"REQUIRED ON HAND QUANTITY NOT FOUND":ID(2)1:QQRQFA1A2:IC(HUA2Q):ACIC:RQ0:PC(1)0:PQPC(1)APQL SH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESıAFN1:AFP1$"":P2$"":2080330:N1:DF$P1$:HL3:370:ES2000P1$A$) N2:DF$P2$:HL4:370:ES20509P2$A$:AF0^P2$SP$ĭP2$P1$P2$P1$:P1$A$h 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630NSPG0BL0:NSSF0:2300+(SF1PG0)(SF2BL0)SF0:WG0:2640eV20:392:330:"What type of additional sorting? ";PGBLįHL,9:KW,NO$,PB$(1),PB$(2),SF1,N:2240HL,10BL:KW,NO$,PB$(1BL),2SF,N:NN(N2BL)N02150SFN1:2640:SFWG0:2300Y330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200hWGN:2640q390 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":M GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :"::GO,19:"Should report be sorted:"} AF1:P1$"":P2$"":PG0:BL0:SF0:WG0:PF0( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::26202 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";RF GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,20:PGBLįOS,32,"n/a":SF0:WG0:2650R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "T SFĺ30)Z x XC,LV:GO,15,13:"This option is used to enter the results of a physical count.":GO,15:"In order to simplify the process of entering the results, you" GO,15:"should set the specifications for this option just the same":GO,15:"as you did when printing the "PI$" Worksheet" GO,15:"(e.g., sorted by product group, etc.). This will guarantee":GO,15:"that the system will display the parts to you (and on the" GO,15:PI$" Analysis Report) in the same order as they":GO,15:"appear on the worksheet."I! 330:HL,72:YN,1,"OK to continue with physical inventory results entry",N:XC,LV:N0200O! v! AFH2$"":P1$"":P2$(255):3100! H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)! H3$"":PGH3$PB$(1)" # "(PG)"& BLįSB,H3$""," / ",1,PB$(2)" # "(BL),H3$4" PX0:800:3900:3500:4000F" 900:EF3750" OHPQ(1):ACPC(CX):GO,H1,6:PL,S8,PS$(1)::I24:GO,H1:PL,S22,PS$(I)::" I12:GO,H1:2):GO,H1:PG%(I)įOI,2,PG%(I)" GO,55:PL,D40,PC(I),3,10::# GO,H1:OD,8,OH,3,9# 332:OP,"Enter physical quantity or [RETURN] only if book quantity is OK":24:OP,"(enter !Quit to end physical inventory entry)"$ GO,H1,17:OX,9,FC$:GO,H2:CL:GO,H1:HL,74:DI,9,S,PQ:S3įER,"CANNOT USE [ESC] DURING PHYSICAL INVENTORY ENTRY":3550"$ S2S0:PQOH=$ S0PQ0PQMQ3600`$LI,A$:SQ,A$,"QUIT",N:N3750$ER,"INVALID QUANTITY ENTERED, must be 0 to 999999.99":3550$QPQOH:GO,H1,17:OD,8,PQ,3,9:GO,H21:OD,8,Q,3,9$%332:HL,75:YN,1,"OK to accept this physical quantity",N:N03550Q%332:(OH1000PQ1000)(Q).1OH3630%$E$"Variance exceeds 10% of current on-hand quantity":HL,76:3640%.(QPC(2)HU)DV3650%0E$"Dollar variance exceeds $50.00":HL,77&8ER,E$,"OK to accept this quantity",N:N03610&&:N35508&B332:Q3690O&LAB5įER,89:3550&VPQ(1)PQ(1)Q:1000:PQ(9)PQ(9)Q:LQBQ:XPPA(21)PA(21)A1:PA(24)PA(24)A2:PA(23)PA(23)(A1A2)&`6000:3700:5350:3950'jGO,H11,6:CW,24,12:GO,55,15:CW,12,2:3500&'tBW,QS,PX,#RN,#A:PXPX2:9'RN0:A0:3700h'BR,QS,PX,#RN,#LP:PXPX2:EFRNLP:EFıx'5300:5400'<80:ST,"Enter "PI$" Results":GO,1,21:OX,80,"-"(FGO,1,6:"Part Number :"::"Description :":"Mfg Part Number:":"Unit of Measure:":(PPL,L"Product Group :",B28,L"Unit Cost:":PL,L"Bin/Location :",B28,L"Last Cost:"::"Book Quantity :"::PL,L"Phy. Quantity :",B28,L"Variance Qty:":)nOL,2,A$,AB,TB:GO,48,7:WB,30,2," Status ":PL,L" Disk Status :",I4,HUAB(TBTB)C1,L"% Avail":GO,50:"Costing Method: "CM$(CM):X)400:RT0:GT0:LS1:PX0k)3800:EF4300)PG%(SF)LSSF4100)LS0İ4150)WGĭLS0ĭLNL1NL0:600*LSPG%(SF):LS0NL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN11*NL1:600:PQPQ(1):OHPQQQ:A(QQQAHUC1)w*PU,S9,PS$(1),S19,PS$(2):I12:3PG%(I)):PG%(I)įOI,3,PG%(I)*:PL,D8,OH,3,9,D8,PQ,3,9,D8,QQ,3,9,D40,QA,4,9,D8,A,3,9:RTRTA:GTGTA:4010*6P$(PB$(SF),1):UC,P$:4500:GT0:+SFĭLSİ4150+P$"REPORT":GTRT:4500-+0500:570y+NL3:600:PL,B71,X8,"-":PL,B61(P$),LP$,L" TOTAL:",D8,GT,1,11:SP$:++ES$(27):SP$" "),Q$"=":S8$" ":Z$"ZZZZZZZZ":RF$"Physical Inv":PI$RF$"entory":NO$"None":LV4:HU100:TT1E4:MQ1E8:C1.5:H118:H260:Z0:Z%0:DV5000,RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,28,PP$:RD,0,RM:RD,1,PS:RD,2,FF:RD,3,LL:RD,7,BQ:RD,14RM,FY:RD,17,XP,ID(8),PG%(3),PS$(4),PC(5),PQ(11),IY(5),Q(8),PA(24),CM$(4),YN$(1),AL$(1),AS$(1),PB$(2),L(99)-YN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":PB$(1)"Product Group":PB$(2)"Bin/Location"-I14:CM$(I):-FC:.FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,A#ID:8,A#PA:24:NPID(1):CMID(5):CM1CM4CM1.LFCM2:CX1LFN.FO,16,QT:BR,QT,0,#AV,#LR,#RR,#UT:FO,199,QS,5x. OL,FY,A$,AB,TB:AB512(AB2)10NP:.PBW,QI,0,A#ID:8,A#PA:24:BW,QT,0,#AV,#LR,#RR,#UT:.RW$"BR"/@RW$,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#PQ:11,A3IY:3:/RW$"BW":5320 /RW$"BR"W/,@RW$,QT,LP,#LK,@RK%,@X%,#QQ,#QR,#QA,#QC,#QP,#CC:j/JRW$"BW":5420/|ID(2)1:BW,QI,0,A#ID:2:KP:CPįPW,0/ER,107:200/pAVLRLR1:ALR:6020/zAAV:BR,QT,AV,#AV/LPTL:CM4LPLKTL:TLA:6050!0BR,QT,LP,#LK:LKLPLK:6030=0LKA:BW,QT,LP,#LK:LK00X%98:BW,QT,A,#LK,@Z%,@X%,#Q,#RQ,#AC,#IC,#Z,#Z,3TD,3BQ,$RF$,@Z%:UT1:5200:0XPX0(#NPįER,97:ES1:02#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$""@14#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400k1<#9400:I1SX:9300:R0İ9200:VSVS1z1>#R0ISX1@#:ES,92:24:OP,129:I11F#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:2P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030B2Z#GO,43,7:SW,34,SX,ST:9200:90302#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:2T$IS,N,QX,A$,R:2$IS,P,QX,A$,R:2'"Standard","Average",LIFO,FIFO 7000& 5000:5100:CFİ5500SB,CF,"Close Inventory System",PF,"Post to General Ledger",TL$:1:80,N:XC,LV,TL$:CF100< 2GO,12,11:"This option is used to post financial information from the":GO,12:"Inventory Control System to the General Ledger System before":GO,12:"the end of the month.": 4GO,12:"When you use this option, the system posts all transactions":GO,12:"entered during the month (or since you last used this option)":GO,12:"to the Inventory Journal in the General Ledger.": 6GO,12:"Later when you perform an end of month or end of year, the":GO,12:"system posts only those transactions that have not previously":GO,12:"been posted.": <330:HL,59:YN,1,"OK to post to the General Ledger",N:330:N0200 FRM0:600 dES,13:XC,LV:GO,9,18:OX,65,"-":GO,12,19:"Note: An "RM$(2)" is just like an "RM$(1):GO,18:"except it also resets the year-to-date totals (issues,":GO,18:"receipts, etc.) for all parts." nRM1:HL,60:MS,LV,2,RM$,1,2,RM,RM:RM0200k x330:OP,"Confirm close request by typing !C!L!O!S!E: ":HL,61:KI,0,A$:330:UC,A$:A$ES$100 A$"CLOSE"įER,"Inventory Control Close option cancelled":100 EYRM2:500 1::FC ES:XC,LV:MM,LV,11:RU,12 JGO,1,24:CL: hCCU1 jGO,37,18:OD,8,CT,6,5:> rU1:360Y L0LLLL(L)1900_  UTįHL,62:ER,"FINAL AUDIT TRAIL NOT PRINTED THIS MONTH","OK to continue with "RM$(RM),N:N0100X3000:XC,LV:16PF:WB,36,12CF," Please Wait ":OP,RM$(RM)" in progress"dbCFįGO,29,18:"Status: 0.0% Complete":C0:T(82(APLRLH))TTqPF1500FX,14:370:D$OP$IX$",L256":370:FO,14,QX:370:BW,QX,0,A@Z%:256:IS,O,QX,NK,ND:370)FX,181:370:D$OP$PX$",L256":370:FO,181,QP:370:BW,QP,0,A@Z%:256:IS,O,QP,NK,ND:370@U2:R1:AH0:4000eU2:P11:R2:NP0:AV0:RR0:RB0tLRLR1400VBR,QI,R,#TL,A@PG%:3,3SL,3LQ,$PN$:TL0TL(TL)PN$SP$įBW,QI,R,#AV,A@PG%:3,3SL,3LQ,$Z$:AVR:1350`5400:IS,I,QX,PN$,R,ST:ST1900HjNPNP1:LTL:400:TLL:LKL:UP0:OH0:QC0:EYāI711:Q(I)0:V~LK1300PPLK:5300:LLK:400:LKL:NLL:T%HU1190RQ0T%98LF1200OHOHRQ:QCQCRQICUPPP:PM%1:5350:1150BW,QT,PP,#AL,@Z%:ALPP:UPTLNL:LKNL:1150*PPUP:5300:LKNL:5350:1150RLFQ(1)OH:PC(1)0:OHPC(1)QCOH\5450qF360:RR2:1100xP1P10:R3:1100UT0:BW,QT,0,#AL,#LL,#RR,#UT:5200:KP2000:PFNGįER,"NO INVENTORY ACTIVITY TO POST TO THE G/L"@200 lRS,107,E$RB1:BW,QI,0,#NP,#RB:KP:330:OP,"Inventory Control close has been cancelled - data rebuild required":ER,E$:200NGıFO,164,QA:N%AP:T%31:A$"Inv. Transactions":P$"SUMMARY":FFN%APBW,QJ,JR1,%N%,#TD,$A$,$P$,@T%:JRJR3:JVJV1:N%01I124:NPA(I):N2060eJEJE1:JRJR1:N%N%1:BW,QJ,JR,#AN(I),#N,@N%FFįBR,QA,AA(I),#AN,#TY,$A$,A#D:16:X2(N0):D(X)D(X)N:BW,QA,AA(I),#AN,#TY,$A$,A#D:16CFU2:360 4BW,QJ,0,3JV,3JE,3JR,3XR:FL,0,24,PA:5200:KP: NGı XC,LV:17:WB,36,1," Please Wait ":OP,"Verifying your posting table":FO,163,QG:IS,O,QG,NK,ND I124:PA(I)įIS,F,QG,AN(I),RN:AA(I)RN:AN(I)0RN03500  FC,163:FO,165,QJ:BR,QJ,0,3JV,3JE,3JR,3XR& JR16XRİ3600:ER,88:200F0 OL,2,A$,AB,TB:AB5İ3600:ER,89:200LN  3600:NI19:N1N1:CG(I)įER,"IN COST OF GOODS SOLD ACCOUNTS, check entry #"(I):200 ER,"ERROR IN POSTING TABLE, check inventory entry #"(N):200"330:OP,!" Unable to perform "RM$(RM)" ":1RLH4600nBR,QH,R,#TL,$PO$:TL0TL(TL)PO$SP$(PO$)14400BR,QH,R,#TL,$PO$,$VI$,$VN$,3PD,3NI,3PS:PS4300hIS,I,QP,PO$,R,ST:ST1900r4500LTL:400*LLKL:BR,QT,LK,#TL,@R%,@T%,#L:400:T%101:BW,QT,LK,#TL,@R%,@T%,#L:4310D0BW,QH,R,#AH,$Z$:AHRY360:RR1:4000BW,QH,0,#AH,#LH:FC,181:FC,182:D$(4):ES$(27):SP$" ":OP$"OPEN"LV3:HU100:TT1E4:Z%0:Z$""!RS,0,A$:DT,A$,TD:RS,14,IX$:RS,15,ID$:RS,29,DP$:RS,181,PX$:RS,182,PH$cRD,10,N:RD,16,JM:RD,18,UG:RD,97,CG:CFN1:PFCF:FFTDJMD(16),PA(24),AN(24),AA(24),CG(20),PL$(3),PM(2),RM$(2),PG%(3),PS$(4),PC(5),Q(11),Y(3),Z%(256) RM$(0)"General Ledger Posting":RM$(1)"End-of-Month Close":RM$(2)"End-of-Year Close"*FC:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24,A$PL$:3,#N,#N,A#CG:20:LFCM2CFįFO,16,QT:BR,QT,0,#AL,#LL,#RR,#UT:FO,182,QH:BR,QH,0,#AH,#LH X0:I124:N(PA(I)):PA(I)N:XXN::XPA(21)PA(21)XG AP0:I124:APAP(PA(I)0)::NGAP2UG:NGAP0:gI120:ANCG(I):ANANCGAN(I)AN::I2124:RD,77I,AN(I)::PBW,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24:RW$"BR"@RW$,QT,PP,#LK,@R%,@T%,#OQ,#RQ,#AC,#IC,#IP,#CC,3DT,3TQ,$R$,@PM%:0RW$"BW":5320=RW$"BR"~,@RW$,QI,R,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#Q:11,A3Y:3:JRW$"BW":5420|N0:LR0:FD$(ID$,(DP$)1):LH0:FH$(PH$,(DP$)1):D$OP$DP$",TDIR"5500D$"READ"DP$A$$(A$,2,(FD$))FD$İ5600:LRRLH(A$,2,(FH$))FH$İ5600:LHRLVN25530a7000mFC,DP$u20BS512((A$,24,5)):FS((A$,64)):RL((A$,76)):FSBSFSBSRLRL(FSRL)NN1:XPX 7000 5000:510092SL1:1:80,N:XC,LV,TL$ <GO,16,12:"BusinessWorks supports three price levels (A, B & C). Price":GO,16:"factors can be set for levels B and C to have these prices":GO,16:"automatically calculated from price level A."d FGO,35,16:" Level Price":GO,35:"Description Factor":GO,35:"----------- ------"v PL13:300: dES,11:330:"Select price level. Type letter, or use arrows, then press [RETURN] ";:XY,H:C$"":LSL5 n310:GO,H,24:" "(8)C$;:HL,18:GK,A$:UC,A$:FD,(A$),9,K,N:N0įBL:110f x312:N200,1000,130,130,130,140,140,150,150z C$""įBL:110 LN2:C$(64L):110 LL(N6)(N7):L3L1 L1L3 C$"":110 330:1::5150:FC ES:XC,LV:MM,LV,11:RU,12N ,GO,25,18L:PU,B6,L(64L),S5,".",S11,PL$(L):L1ĺ" n/a":c .OF,3,PF(L)HU:} 6GO,34,18L:HG,21: 8GO,34,18L:HG,21: JGO,1,24:CL: SLL:ES:GO,26,18L:"--->":SL$PL$(L)S L330:"Enter price level description: ";:XY,H:PU,LPL$(L),X8(PL$(L)),FC$:GO,H:HL,19:KI,8,A$:A$ES$PL$(L)SL$:80j VA$SP$A$PL$(L) `PL$(L)A$:300:L11300 330:"Enter price level factor: ";:XY,H:302:HL,20:GO,H:NI,6,ST,N:ST31100 ST2NPF(L):ST0D ST0N0N999.99įER,"INVALID PRICE FACTOR, must be 0 to 999.99":1200T PF(L)N:80Z p ES$(27):SP$" " LV4:HU100:TL$"Maintain Price Levels" RS,2,FC$ PA(24),PL$(3),PF(3),CG(20),K(9) I19:K(I): FC:FO,15,QI:RW$"BR"Z@RW$,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24,A$PL$:3,#PF(2),#PF(3),A#CG:20:mRW$"BW":5120uXPX'27,13,65,66,67,10,11,8,127B 7000 5000:5100G21:80,N:XC,LV,"Global Price Changes"Ud2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,25:YN,N,"Make price changes as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10F CM(1)CM(2)CM(3)įER,"NO PRICE CHANGES SPECIFIED":N0:110P 3000V c 1::FC ES:XC,LV:MM,LV,11:RU,12 ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300 . 6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESı! 8N1N0:\ @330:"Enter "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,H~ BHL,HL1:NI,2,S,N:S3310 DS2NDF:S0 FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320 H JGO,1,24:CL: TSHįHL,S:SH1 V$ ^SHįHL,R:SH0* `w hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390 jA$""A$(DF$,1) l300:390 r392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S8,P1$,L" to ",S8,P2$:H41N12( tGO,H:S8:360:ESıN vUC,A$:(A$,1)"?"İ9000:ES370i xA$""A$(S8$A$,8) z350:GO,H,24:OS,8,A$: GO,14,12:CW,4,10: 390:GO,14,V:"--->":< V18L:392:330:"What type of price change for level "(64L)"? ";:HL,33:KW,CM$(0),CM$(1),CM$(2),CM(L)1,N:ESN0:ESıN N1X0:450n DN3:DFCA(L):CM(L)DF0 P$"percentage":DP$"dollar" 330:"Enter "P$" amount (use negative to reduce price): ";:XY,H:DFįOD,8,DF,5D,7DGO,H:HL,32N:DI,7D,S,X:S3400)S2XDF:S0S0(X)1E6(DX1E4)E$"INVALID "P$" AMOUNT SPECIFIED":UC,E$:ER,E$:420CM(L)N1:CA(L)X:2640IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı1500:PN$PS$(1)53001600:OKı(12009BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3IY:3:tBW,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3IY:3:@OK0:PGĭPGPG%(1)ıJBLĭBLPG%(2)ıTOK1:SH0:V12:392:330:"Include which parts? ";:HL,26:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı8AFN1:AFP1$"":P2$"":2080a330:N1:DF$P1$:HL27:370:ES2000lP1$A$ N2:DF$P2$:HL28:370:ES2050P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 26004V16:392:HL29:DFPG:PB1:310:ES2000 >PGN:26208fV17:392:HL31:DFBL:PB2:310:ES2100GpBLN:2630]L1:400:ES2150sL2:400:ES2200L3:400:ES2210390: GO,19,12:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":M GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :": I13:GO,19:"Changes for Price Level "(64I)":": AF1:P1$"":P2$"":PG0:BL0:FL,0,3,CM:FL,0,3,CA( GO,50,12:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::2620-2 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$`< GO,49,16:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,17:AL$(BL0)15BL):BLĺ", # "BL" ";P I13:GO,46,18I:NCM(I):NįPL,S24,CM$(0):2650R PL,LCM$(N),L":",D8,CA(I),6N,6N,SN1,"%",B4Z :o XC,LV:16:WB,36,3," Please Wait ":OP,"Making Global Price Changes":GO,30,18:"Part Number:":ES AFP1$"":P2$""& P2$SP$P2$(255) IS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN1200:EF4300GO,43,18:OS,8,PN$L13:MCM(L):M4200%PPQ(L2):ACA(L)9M1PPAPTTHM2PPAU"P0P0d,PPXPPXy6PQ(L2)(PG)Gh:1550:4000XC,LV:24:OP,"Global price changes complete. Press [SPACE BAR] to continue":WS:330:50ES$(27):SP$" "ULV4:TT1E4:SB128:PX99999999.9:S8$" ":Z$"ZZZZZZZZ":NO$"None"]G1kRS,2,FC$PC$(2),PG%(3),PS$(4),PQ(16),IY(3),YN$(1),AL$(1),AS$(1),PB$(2),PA(24),PL$(3),CM(3),CA(3),CM$(3)XYN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":PB$(1)"Product Group":PB$(2)"Bin/Location"CM$(0)"No Change":CM$(1)"Percentage":CM$(2)"Dollar Amount"FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,A#PQ:7,A#PA:24,A$PL$:3:RB1:BW,QI,0,#NP,#RB:KP:ER,107:200%XPX=(#NPįER,97:ES1:2#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$""4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400<#9400:I1SX:9300:R0İ9200:VSVS1>#R0ISX&@#:ES,92:24:OP,129:I1zF#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:P#IS,F,QX,A$,R:GS,9350ST50:R0įBL:9030Z#GO,43,7:SW,34,SX,ST:9200:9030#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:,T$IS,N,QX,A$,R:@$IS,P,QX,A$,R: 7000 5000:5100421:80,N:XC,LV,TL$Jd6000:A$ES$200Yn2000:500_}ES:330:XC,LV:5200:FC330:ES:MM,LV,11:RU,12JGO,1,24:CS:TSHįHL,S:SH1V^SHįHL,R:SH0`|OKTY50: 380:OKı9 ER,"WRONG ACC'T TYPE, must be Cost of Goods Sold": ES,11:330:OP,"Enter line number (1-"(NP)"), !All, or [RETURN] only when finished: ":HL,21:NI,0,ST,LN:1:ST2200 LN0LNNPSTAL0:600:500 LI,A$:SQ,A$,"ALL",N:N900 ER,76:500* XES:2200:"--->":SH0 bSB,1,"Enter G/L account number",AL,",",AL," or",1," !? to see a list of valid accounts",AL,", or !Quit",P$:330:OP,P$:": ";:XY,HS:PT(LN)įOF,4,PT(LN)HU lGO,HS:HL,22:NI,7,ST,AC:ESST3:ST28000 vLI,A$:SQ,A$,"QUIT",N:N1ALAL0:800T x(A$,1)"?"İ8000:ES:AC610z ST0AC0AC9999.99įER,81:610 AC700 5300:RN0įER,"ACCOUNT NUMBER NOT ON FILE":610 390:OK6101 350:330:HL,S:GO,832(H40),VB:WB,34,1," Account ":PL,B12(DS$)2,F4,ACHU,L" ",LDS$~ 330:HL,23:YN,1,"OK to accept this account number",N:HL,R:N0610 PT(LN)AC:BT,IN,4,1:SD,19,IN 350:2300: LN1:AL1 600:ESLNLN1:LN1910,500 ALLNLN1:LNNP910 500 XC,LV:GO,20,V12:" # G/L Account"15)"# G/L Account":GO,20:PL,L"--- ",X13,"-",B13,L"--- ",X13,"-":LN1NP:2300:: 4ACPT(LN):ACĺ"";: >OF,4,ACHU: H16:VLNV11:LN8HH30:VV8 VBV:VB19VB19GO,H,V:,2200:PU,B4,I2,LN,L". ":21002HSP$" ":ES$(27)H1$"Line Category Acct No":H2$"---- ----------------------- -------":S1$"Acct No Description ":S2$"------- ------------------------")LV4:HU100:NP16:V114:TL$"Cost of Goods Accounts"ERD,19,IN:GX163:GD164kID(8),PA(24),PL$(3),PM(2),PT(20)uFC:FO,GX,FR:IS,O,FR,NK,ND:FO,GD,QA:BR,QA,0,#NCFO,15,QI:BR,QI,0,A#ID:8,A#PA:24,A$PL$:3,A#PM:2,A#PT:20:!PBW,QI,0,A#ID:8,A#PA:24,A$PL$:3,A#PM:2,A#PT:20:KP:5IS,F,FR,AC,RNVRN0įBR,QA,RN,#AN,#TY,$DS$\upXC,LV:H15:GO,H,13Az"Use this option if you want to post to more than one Cost of":GO,H:"Goods Sold account in your General Ledger. This option allows":GO,H:"you to define up to 16 Cost of Goods Sold accounts. ":GO,H:"When parts are issued from inventory (sold), you can assign":GO,H:"the transaction to one of 16 Cost of Goods Sold accounts.":GO,H:"If you use a Cost of Goods Sold account that has not been"GO,H:"assigned with this option, then BusinessWorks will use the":GO,H:"Cost of Goods Sold account you defined in the posting table."ES,11:330:OP,103:WS,A$:330:XEFĭ(222)6įXO:EF0:bPX@ST0:NCįER,94:AC0:.J330:340:SX13:NCSXSXNC:A$""LHS438(H40):VS6:GO,HS,VS:WB,35,SX2," Accounts ":GO,HS,VSSX:OX,35,"-":GO,HS6,VSSX1:"(OK = Acceptable Account)":IS,F,FR,(A$),I:8300:RN0I0İ8400T8400:I1SX:8300:RN0ISX:8024V8200:VSVS12X:ES,92:24:OP,129:I1}^HL,24:PI,HS2,6,9,SX,I,ST:XY,VS,VS:RT,9,A$:N(A$):(ST)18100hIS,F,FR,N,RN:GS,8350ST50:RN0įBL:8030rGO,HS,6:SW,36,SX,ST:8200:8030ST0AC0:ACN:5300:390:OKı 8030S 5310:380:GO,HS,VS:SB,OK,"OK",A$:PU,S3,A$,F4,NHU,B1,S22,DS$:hl IS,N,FR,N,RN:} IS,P,FR,N,RN: 7000 50008NMOP0:NMN(OP):LV2:150D2NM200ad1:80,N:LV3:XC,LV,TL$nN1:HL,5:MS,LV,2,OP$,2,2,N,N:N0200ES:LVLV1:GT,N10001::FCES:XC,LV:MM,LV,11:RU,12JGO,1,24:CL: TXC,LV,P$:H23LV:V52LV:GO,H,V:> ^GO,24,V6:OX,32,SP$:OP,P$:S hCC1:CTCCTCx jGO,41,V6:OD,8,TT(CTC),6,5: rP0PLLP(P)P0 t F$F$".FILE":P$"Creating file: "F$:350 F$DP$F$:FO,F$,QF:FC,F$:FX,F$:D$OP$F$",L"S:FO,F$ ,QF:' P$"Create Data Files":340 "This option is used to create the data files that are used by":GO,H:"the "SS$". These files are used to maintain":GO,H:"parts, inventory transactions (issues, receipts, etc.) and" GO,H:"other information used by the "SS$".": GO,H:"WARNING: Any existing BusinessWorks "S$" data will":GO,H9:"be destroyed. However, if you are using the multiple":GO,H9:"companies feature, only the "S$" data for" GO,H9:"the currently active company will be destroyed."] 330:HL,6:YN,1,"OK to continue with the create option",N:330:N050 LES:XC,LV:GO,H10,V3:WB,36,4," Inventory Costing Methods ":I14:GO,H12:I". "CM$(I): VCM1:330:"Select costing method. ";:OP,121:HL,7:PI,H15,V3,30,4,CM,S:S01000X `XC,LV:GO,H28(CM$(CM))2,V:IV:" "CM$(CM)" "::1700 j330:OP,"Confirm your request by typing !C!R!E!A!T!E: ":HL,8:KI,0,A$:330:A$ES$1100 lUC,A$:A$"CREATE"įER,"CREATE option has been cancelled":50?tOL,2,A$:(A$)3įER,"NO DISK LOADED OR DISK I/O ERROR":1130~OL,2,A$,AV,TB:AV10įER,"UNABLE TO CREATE - INSUFFICIENT DISK SPACE":50RMįWP,2,N:NįEJ,2:ER,"COMPANY DATA DISK IS WRITE PROTECTED":1120EX0:EF1:EFįFV,IX:EX1dEF0:EXįHL,110:ER,"INVENTORY DATA FILES ALREADY EXIST","OK to delete existing data files",N:N050ES:XC,LV:GO,H1,V1:OP,"Please wait, "S$" Data file creation in progress":V6:WB,36,1," Status "FL,0,256,Z%:FL,0,24,PA:FL,0,20,CG:I13:PL$(I)"Price "(64I):NF$"INVISAM":S256:390:BW,QF,0,A@Z%:256:FC(F$"INVDATA":S148:390:LR1:SUUG:BW,QF,0,#Z,#Z,#LR,#Z,#CM,#Z,#SU,#Z,A#PA:24,A$PL$:3,#Z,#Z,A#CG:20:FC2F$"INVTRANS":S56:390:BW,QF,0,#Z,#Z,#Z,#Z:FC!<F$"POISAM":S256:390:BW,QF,0,A@Z%:256:FCQFF$"POHEAD":S50:390:BW,QF,0,#Z,#Z,#Z:FC_SU1600rXC,LV:GO,H,V<OP,!" Important Note: ":" For your convenience, the "S$:GO,H:"System has initially been placed in the SETUP mode. While in":GO,H:"this mode you will be able to enter inventory transactions"GO,H:"(receipts, issues, etc.) without having the information posted":GO,H:"to your General Ledger System. This mode allows you to enter"GO,H:"all your current on-hand quantities and costs. Once you have":GO,H:"entered all of your initial inventory information, you can":GO,H:"then leave the SETUP mode and use the "SS$GO,H:"in the normal fa