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 fashion."@24:OP,S$" data file creation complete, press [SPACE BAR]":WS:50*330:GO,H,V2:CM1710,1720,1730,1740"Standard costing assumes that each part in your inventory has":GO,H:"been assigned a cost (called its 'Standard Cost') which may be":GO,H:"different than its actual cost. The current value of your"jGO,H:"inventory is calculated by multiplying the quantity of each":GO,H:"part by its standard cost.":>"When using average costing, a new unit cost is calculated each":GO,H:"time parts are received into inventory. The cost of the new":GO,H:"units is added to the value of stock on hand. The sum is then"GO,H:"divided by the total number of units now on hand; this result":GO,H:"is the average unit cost. The current value of your inventory":GO,H:"is determined by multiplying the quantity of each part by its"BGO,H:"current average unit cost.":OP,"When using the LIFO (!Last !In, !First !Out) costing method, parts"::GO,H:"are received and issued at their actual cost. The newest items":GO,H:"in inventory are assumed to be issued first. Thus your cost"GO,H:"of goods will reflect the most recent costs paid. The current":GO,H:"value of your inventory is determined by multiplying the":GO,H:"quantity of each part by the actual costs of that part.":OP,"When using FIFO (!First !In, !First !Out) costing, your parts are"::GO,H:"received and issued at their actual cost. The oldest items in":GO,H:"inventory are assumed to be issued first. Thus your cost of"GO,H:"goods will reflect the cost paid for your oldest parts. The":GO,H:"current value of your inventory is determined by multiplying":GO,H:"the quantity of each part by the actual costs of that part.":P$"Rebuid Data Files":340:NM2100"This option is used to rebuild your "S$" data":GO,H:"files (e.g., list of parts, etc.). This rebuild process will":GO,H:"attempt to reconstruct the data files and eliminate any errors"BGO,H:"that may be present."::GO,H:"You should use this option if you suspect that your Inventory":GO,H:"Control data files may have been corrupted by a power failure,"|GO,H:"hardware malfunction, software problem, etc."330:HL,9:YN,"OK to rebuild your "DF$,N:N0504330:ES:XC,LV:GO,H,V2:" Please wait, Rebuilding "DF$:V6:OP," One moment please">:FCrfN0:LD0:LT0:LP0:FD$(ID$,(DP$)1):FT$(IT$,(DP$)1):FP$(PH$,(DP$)1):330:D$OP$DP$",TDIR"2280D$"READ"DP$:A$:A$:A$A$(A$,2,(FD$))FD$İ3000:LDL(A$,2,(FT$))FT$İ3000:LTL%(A$,2,(FP$))FP$İ3000:LPL3N32230>7000FFCq5100:LFCM2:NP0:RB0:AV0:LDLRLDLR(LR):LR0LR0 FO,IT,QT:BR,QT,0,#AL,#LL,#NR,#UT:AL0:NR0:KL0:LTLLLT LL(LL):LL0LR0F FO,IX,QX:FC,IX:FX,IX:D$OP$IX$",L256":FO,IX,QX:FL,0,256,Z%:BW,QX,0,A@Z%:256:IS,O,QX,NK,NDt. FO,PH,QH:BR,QH,0,#AH,#LH:AH0:LPLHLP0 LH(LH):LH0LH08 FO,PX,QP:FC,PX:FX,PX:D$OP$PX$",L256":FO,PX,QP:FL,0,256,Z%:BW,QP,0,A@Z%:256:IS,O,QP,NK,ND4 ` GO,28,V6:WB,33,1," Status ":" Rebuild: 0.0% Complete"c C0:TC22LHLR2LL:RKRK1:RK255RK1q R1:4000~ R2:P11 RLR2750 BR,QI,R,#TL,A@PG%:3,3SL,3LQ,$PN$:TL0TL(TL)PN$Z$PN$RB$(PN$)82720! IS,F,QX,PN$,ST:ST02720[! BR,QI,R,#TL,A@PG%:3,3SL,3LQ,A$PD$:4,A#PC:5,A#QY:11,A3LY:3:IS,I,QX,PN$,R,ST:ST2950! NPNP1:PTL:370:TLP:OH0:QC0!( P2700!2 LPP:BR,QT,LP,#P,@RK%,@T%,A#TD:6,3TD,3TQ,$RF$,@PM%:370:T%100T%98!< TD(2)0TD(2)0"F T%99ĭLFOHOHTD(2):QCQCTD(2)TD(4)_"P RK%RK:BW,QT,LP,#P,@RK%,@T%,A#TD:6,3TD,3TQ,$RF$,@PM%:360:2600" LFQY(1)OH:PC(1)0:OHPC(1)QCOH" BW,QI,R,#TL,A@PG%:3,3SL,3LQ,A$PD$:4,A#PC:5,A#QY:11,A3LY:3:2730" BW,QI,R,#AV,A@PG%:3,3SL,3LQ,$Z$:AVR # 360:RR2:2500## P1P10:R3:25001# LL2900~# CTCLL1:I1LL:BR,QT,I,#P,@RK%:RK%RKRK%0:BW,QT,I,#AL,@RK%:ALI# 360:#T 5150:360:BW,QT,0,#AL,#LL,#NR,#UT:FC:360 $^ CTC:360:24:OP,"Rebuild complete, press [SPACE BAR] to continue":WS:50;$ ER,"ISAM File error during rebuild":2900$ L0:BS512((A$,24,5)):FS((A$,64)):RL((A$,76)):FSBSFSBS$ RLL(FSRL)$ NN1:$RLH4600$BR,QH,R,#TL,$PO$:TL0TL(TL)PO$SP$(PO$)14400 %IS,F,QP,PO$,ST:ST04400M%BR,QH,R,#TL,A$PD$:3,3PD,3NI,3PS:IS,I,QP,PO$,R,ST:ST2950z%"PTL:370:TLP:NI0:PP0:PS0PS2PS2%hP4300%rLPP:BR,QT,LP,#LK,@RK%,@T%,#P,A#TD:5,3TD,3TQ,$A$,@PM%:370:T%101T%HU.&|T%HURK%RK:BW,QT,LP,#LK,@RK%,@T%,#P,A#TD:5,3TD,3TQ,$PO$,@PM%:PPLP:NINI1:4200q&P0:PPįBR,QT,PP,#LK,@RK%,@T%:BW,QT,PP,#LK,@RK%,@T%,#P:4200&TLP:4200&BW,QH,R,#TL,A$PD$:3,3PD,3NI,3PS:4500&0BW,QH,R,#AH,$Z$:AHR&360:360:RR1:4000&BW,QH,0,#AH,#LH:&0'D$(4):ES$(27):SP$" ":RB$(127):OP$"OPEN"'TL$"Create and Rebuild":S$"Inventory Control":SS$S$" System":DF$SS$" Data Files":Z0:Z$"":HU100:TT1E4:IX14:ID15:IT16:PX181:PH182&(RD,0,RM:RD,10,OP:RD,18,UG:RS,IX,IX$:RS,ID,ID$:RS,IT,IT$:RS,29,DP$:RS,PX,PX$:RS,PH,PH$(OP$(2),Z%(256),PD$(4),PG%(3),PC(5),QY(11),LY(3),TD(6),PA(24),PL$(3),PF(2),CG(20),CM$(4)(OP$(1)"Create "DF$:OP$(2)"Rebuild "DF$(I14:CM$(I):(FC:(FO,ID,QI:RW$"BR"8)@RW$,QI,0,#NP,#RB,#LR,#AV,#CM,#PU,#SU,#RK,A#PA:24,A$PL$:3,A#PF:2,A#CG:20:K)RW$"BW":5120s)XER(222):EFĭER6ER8EF0:XO:{)bPX)'"Standard Costing","Weighted Average Costing","LIFO (Last In, First Out)","FIFO (First In, First Out)"B 7000 5000:5100921:80,N:LV3:XC,LV,T1$<OP$(1)"Define or Edit an AppleWorks Outline":OP$(2)"Create an AppleWorks Spreadsheet from an Outline":OP$(3)"Create an AppleWorks Data Base from an Outline" FES,11:HL,0:OP1:MS,LV,3,OP$,1,2,1,OP:OPİ6000:70& HOP0200< POP100,4000,4000F Z5150r dLV4:XC,LV,T2$:OF0:ADNFFX:NF2120 nOF4:GO,14,12:" This option is used to define or edit the outlines that you":GO,14:"may use at a later time to create AppleWorks file s from your" pGO,14:"Inventory Control information. To define a new outline, select":GO,14:"the 'Define a New Outline' option."; rNFOF5:" To change or delete an":GO,14:"existing outline, select the desired outline."" xSK99:I0:ADI1:OP$(I)"Define a New Outline":SK2T zNFāN1NF:II1:OP$(I)"Outline: "FF$(N): FF1:ES,T1$:HL,43NF2(NFFX):MS,LV,I,SK,OP$,OF,1,FF,FF:FF050 ADFFFF1 NWFF:NWFF$FF$(FF):FFFR(FF):5400:1000L ES:330:"Enter name of new outline: ";:XY,H:OX,16,FC$:GO,H:HL,46:KI,16,A$:A$ES$A$SP$100 NFįFS,A$,NF,FF$,I:I0įER,"OUTLINE NAME ALREADY EXISTS":160 FF$A$:FFAV:AS0:PG0:BL0:FL,0,CX,CD:1000 1::FC ES:XC,LV:MM,LV,11:RU,12 2700 1::FC:ES:XC,LV:MM,LV:D$"RUN"PP$PG$ XC,LV:12:BL$;:OP,122:14:OP,PG$:16:OP,123:18:OP,PP$:21:OP,103:WS:200 ,XC,LV,"Outline: "FF$?.XC,LV:GO,19,12:"Part numbers to include:":GO,19:"Specific product group or bin/location:"::GO,19:"Information to be included for each part:"|0I16:GO,21:PL,L"#",I1,I,S28,":",L"#",I2,I6,L":"::6GO,45,12:31):GO,45:AS$(AS);:ASı8", "P1$" to "P2$:@GO,59,13:PGBLįOS,12,YN$(0):BYN$(1)", "("P/GB/L",13(BL0),3)" #"PGBL" ":1JGO,1,24:CL:GTSHįHL,S:SH1:MVb^SHįHL,R:SH0:h`h380:OS,20,CF$(CD(C)):rGO,17,16:CW,3,6:GO,47,16:CW,3,6:|V15C6(C6):H2531(C6)~GO,H,V:GO,14,12:CW,5,6:390:GO,14,V:"--->":1310:320:C1CX:360::R330:300:400:OP1:NW1100ES,T2$:330:"What do you want to do with this outline? ";:HL,47:KW,"Accept","Edit","Delete",OP,N:ES:330:N21090OP1:N21100$330:OP,106:HL,48:KI,0,A$:UC,A$:A$ES$10507.A$"DELETE"įER,85:1050B8FF$""UB330:5450:90nLSH0:ES:NWįES,T2$VV12:392:330:"Include which parts? ";:HL,49:KW,AS$(0),AS$(1),AS1,N:330:ES:N0İ390:NW11050,90`N1AS0:1300ASP1$"":P2$""2330:H53:DF$P1$:HL50:1250:ES1100=P1$A$cH65:DF$P2$:HL51:1250:ES1210P2$A$:(A$Z$,8)P1$P2$P1$:P1$A$AS1:1300392:GO,1,24:OP,"Enter range of parts to be included or use !?: from ":PU,S9,P1$,L"to ",S8,P2$OGO,H:PU,LDF$,X8(DF$),FC$:GO,H:HL,HL:KI,9,A$:ESA$ES$:ES1270fA$""A$(DF$,1)UC,A$:(A$,1)"?"İ9000:ES1250A$(S8$A$,8):350:ESıGO,H,24:OS,8,A$:ES:350:390:310[V13:392:330:"Specific product group or bin/location? ";:HL,99:KW,PB$(0),PB$(1),PB$(2),1(PG0)2(BL0),N:N01100t(N1PG0:BL0:1500FP$PB$(N1):DFPG:N3DFBLPDFDF1x330:"Enter "P$" number (1-99): ";:XY,H:DF;:GO,H:HL,51N:NI,2,S,I:S31300S2S0:IDF^SI1I99A$"INVALID "P$" NUMBER, must be 1 to 99":UC,A$:ER,A$:1400qN2PGI:BL0N3PG0:BLI320SH0:DF2:V15:392 4330:"Enter information item number (1-"CX") or [RETURN] only: ";:HL,56:NI,2,S,C:S31300>S22500HHSC1CCXįER,"INVALID ITEM NUMBER":2100xR380:GO,H9(H40):"-->":NCD(C):NNDF\HS1044(H40):340:GO,HS,4:WB,22,18," Information Types ":GO,1,23:OX,80,"_":I10:(I118)NI1N18:N18^4:I118:GO,HS2:CF$(I1I):"f330:OP,129apEN(I118)IX:SB,EN,"____",EN,"more",A$:GO,HS9,22:A$zHL,57:PI,HS1,4,20,18,N,S:XY,VS,VS:S3İ350:370:2100Sİ350:370:2300(S0I1)(S0EN)įBL:2170$GO,HS,4:SW,22,18,S:I1I1S:GO,HS2,VS:OS,18,CF$(I1VS3):2160OCD(C)I1N:360:DFCD(C)1:DFIXDF2Y 2100m 330:390:2800{( NW1050 330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,58:YN,1,"OK to accept this new outline",N:N02000 N1090 OP2:1050. NX0:I1CX:CD(I)1NXIn :NXįER,"NO INFORMATION ITEMS INCLUDED IN THIS OUTLINE"t NFįER,"NO APPLEWORKS OUTLINES DEFINED YET":50NPįER,"NO PARTS DEFINED IN YOUR INVENTORY SYSTEM":50OP2PG$"SS":T$"Spreadsheet":4050.PG$"DB":T$"Data Base"\LV4:XC,LV,"Create "T$:NF1FF1:4200330:340:V17(NF2):GO,30,V:WB,22,NF," Outlines ":I1NF:GO,31:I". "FF$(I)::FF124:HL,59:OP,121:PI,34,V,18,NF,FF,S:350:S050/hFFFR(FF):5400:302:400:2800:NXĴ(NF1)14000,50ES,T1$:330:HL,60:YN,1,"OK to create an AppleWorks "T$" file from this outline",N:330:N0500SD,12,FF:PG$"INVAW"PG$".PROG":250D$(4):SP$" ":ES$(27):BL$(7),T1$"Convert to AppleWorks":T2$"Create/Edit Outline"^FX8:IX23:CX12:Z$"ZZZZZZZZ":S8$" "RD,0,RM:RS,2,FC$:RS,28,PP$:RS,28(RM2),A$:GF$A$"INVAWFORMS.FILE"OP$(FX),YN$(1),AS$(1),PB$(2),CD(CX),CF$(IX),FF$(FX),FR(FX)`YN$(0)"No":YN$(1)"Yes":AS$(0)"All":AS$(1)"Selective":PB$(0)"No":PB$(1)"Product Group":PB$(2)"Bin/Location"vI0IX:CF$(I):FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NPEF1:EFįFV,GF$:EF0:D$"UNLOCK"GF$:5130D$"OPEN"GF$",L128"  FO,GF$,QFJAV0:NF0:FL,0,FX,FR:I1FX:BR,QF,I,$A$:A$""ĭAVAVIq(A$""NFNF1:FF$(NF)A$:FR(NF)Iy2:RW$"BR",@RW$,QF,FF,$FF$,#AS,$P1$,$P2$,#PG,#BL,A#CD:CX:JRW$"BW":5420pHL,S:80:"Help for "T1$:OX,80,"=":GO,1,23:OX,80,"-":GO,1,3z" This option lets you convert Inventory Control information to an AppleWorks spreadsheet or data base file. The process of converting your Inventory Controlinformation consists of two steps:": "Defining an outline:":" An outline indicates what information you want to include in the spreadsheet or data base file. For example, you could include part number, unit cost,"B!" and on-hand quantity for each of your parts. You can define up to eight different outlines. Multiple outlines provide you with increased speed and""" flexibility in converting your Inventory Control information."::"Creating an AppleWorks spreadsheet or data base file":" Once you have defined at least one outline you can convert your Inventory""" Control information. You simply select the outline you want to use and where you want the file to be created (i.e., on your standard floppy, a specified"_#" pathname, etc.). You could use an AppleWorks spreadsheet file to analyze inventory activity, project economic order quantities, etc. An AppleWorks"#" data base file could be used to create inventory tag labels for an inventory count."#24:OP,103:WS:HL,R: $XEFER(222):ER3ER6ER8EF0:XO:$bPX*$(#NPįER,97:ES1:q$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:I1g%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:&'"","","Part Number","Description","Mfg's Part #","Product Group","Bin/Location","Unit Cost","Unit Price #A","Unit Price #B","Unit Price #C"z''"On-Hand Quantity","On-Order Quantity","Order Point","Max Stock Level","Month Beg. On-Hand","YTD Receipts","YTD Issues","YTD Adjustments","YTD Sales $'s","YTD COGs $'s"'$'"Last Receipt Date","Last Issue Date","Last P/O Date" 7000 5000:5100&d1000,G330:1::FC:ES:370rXC,LV:MM,LV:D$"RUN"PP$"INVAW.PROG"JGO,1,24:CL:rRM1ı1 tOL,1,A$:A$PP$įXC,LV:BL:EJ,1:14:WB,52,5," Load Disk ":OP,"Please load the following disk in Drive 1":16:OP,SP$PP$SP$:18:OP,103:WS:370S vWP,1,N:NįEJ,1:ER,WP$:370Y zl |GO,80,4:I$: GO,14,12:CW,4,9: 390:GO,14,V:"--->":330 4900:CW0:T1NX:CWCWW%(CD(T)): 1:80,N:XC,LV,TL$:HD1:BPRM:PF$"" GO,19 !"#$%&'()>,13:"Outline name: "FF$::GO,19:"Include column titles:"::GO,19:"Location of AppleWorks file:":GO,21:"Directory Pathname:"::GO,19:"AppleWorks file name:" LV15:392:HL,64:YN,HD,"Create the "AF$" with column titles",N:N0200 VHDN:GO,42,V:YN$(N) ES:RS,18,FY$:SL((FY$,3,1)):DR((FY$,6,1)):DD128(DR2)16SL:390:HL,S:GO,52,14:WB,20,1," Standard Disk ":" Slot "SL" / Drive "DR V17:392:"Create AppleWorks file where? ";:HL,65:KW,FP$(0),FP$(1),BP1,N:HL,R:330:N010107 BPN2:GO,48,V:PL,S24,FP$(BP):BP1400G DDF21330 GO,41:32):EJ,DD:HL,S:ES,104:12:WB,51,3," Load Disk ":OP,"Please load a ProDOS formatted diskette":14:OP,109 HL,66:GK,A$:SQ,A$,SP$,CR$,ES$,N:NįBL:1310 (HL,R:N31200: 2OL,DD,A$:ER(48911):ER(A$)31350Z <WP,DD,ER:ERPF$A$:1500 FER40įER,"NO FLOPPY DISK DRIVE CONNECTED":1200 PEJ,DD:ER43įER,WP$:1200 ZER87įER,"DUPLICATE VOLUME NAME":1200dER46įER,"COMPANY DATA DISK CANNOT BE REMOVED":1200LnER,"NO PRODOS FORMATTED DISK LOADED":1200uxFY$"":PF$""įRS,19,PF$:RMPF$""V18:392:"Enter directory pathname: ";:XY,H:OX,32,FC$:GO,H:PF$;:GO,H:HL,67:KI,32,A$:A$ES$1200UC,A$:A$""A$PF$(A$,1)"/"A$(PF$A$,32);(A$,1)"/"A$A$"/"]EF2:EFĺD$OP$A$",TDIR":ER0EF0:ER16įER,"INVALID DIRECTORY NAME":1410ERįER,"DIRECTORY NOT FOUND":1410FC,A$:WP,(48944),N:NįER,WP$:1410PF$A$GO,41,18:OS,32,A$O330:9500:WįER,"NOT ENOUGH SPACE TO CREATE APPLEWORKS FILE":1200r@390:V20:GO,41,V:15):HL,SJ392:"Enter "AF$;:OP," name (use !? to see a list of files): ":XY,H:OX,15,FC$:GO,H:HL,68:KI,15,A$:A$ES$įHL,R:1200TA$""A$SP$*^(A$,1)"?"įHL,R:9600:1610hUC,A$:I(A$):I65I90įER,"INVALID NAME, first character must be a letter":1610rF$A$:X0:I1(A$):N((A$,I,1)):XX(N46(N48N57)(N65N90)):tXįER,"INVALID NAME, must include only A-Z, 0-9, or .":1610>330:DF0:ER0:EF1:EFĺD$VF$PF$F$FY$REF0:ER61800_ER7100N(48824):N25N27įER,FE$", NOT APPLEWORKS":1610HL,69:ER,"APPLEWORKS "FE$,"OK to replace "F$,N:DFN0:DF1610HL,R:GO,41,V:OS,15,F$=330:HL,70:YN,1,"OK to create the "AF$,N:N01600JN1010s330:1::DFĺD$UL$PF$F$:FX,PF$F$ 330:XC,LV:16:WB,40,3," Please Wait ":OP,"Creating "AF$:18:OP,"One moment please":AS$PF$F$ D$"CREATE"AS$TA$ N1NX:H%(N4)W%(CD(N))::I0:N0FWH%(I5):(NW)76II1:NNW:3600^H%(157)I:H%(160)NtD$OP$AS$TA$:FO,AS$,QF,1:BW,QF,0,A@H%:302RN300:RW0:HD405018:OP,"Creating column titles":4750:N2%4:T1NX:A$CT$(CD(T)):4800::4700>4750:N2%4:T1NX:A$(Q$,W%(CD(T))1):4800::4700UASP1$"":P2$""PN$P1$:IS,F,QX,PN$,R:R0įIS,P,QX,PN$,RGO,29,18:28):GO,30:PU,L"Part Number:":P2$P2$(FF%)IS,N,QX,PN$,R:R0PN$P2$4300-RWXRįER,"REACHED MAXIMUM NUMBER OF ROWS IN SPREADSHEET":4300BR,QI,R,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#Q:11,A3IY:3:GO,43,18:OS,8,PN$:4750hT1NX:ICD(T):N2%1:N3%0:I2A$"":4800:4280rI5A$PS$(I1):4800:4280|I7VPG%(I4):N2%162:4270%I11VPC(I6(I7)):N3%3:4260aI19VQ(I10(I13))HU:N2%162:N3%2((V)V):4270I21VQ(I9):N3%2:4260VIY(I20):4600:4280VVHU:N2%163FP,V,V%:N1%10:BW,QF,RN,@N1%,@N2%,@N3%,A@V%:8:RNRN11:47004100!BW,QF,RN,@FF%,@FF%:FC,AS$g0XC,LV:15:OP,AF$" creation is complete":17:OP,103:WS:200A$"":V0įFJ,V,A$:A$(A$,1,2)"/"(A$,3,2)"/"(A$,5,2)N2%1:4800#\RWRW1:N2%(RWFF):N1%RWN2%FF:NBRNSR1:B2%(NBFF):B1%NBB2%FF:BW,QF,SR,@B1%,@B2%,@N1%,@N2%@fBW,QF,RN,@FF%:RNRN1:TSRRN:RNRN4:CD(T)1N1%129:BW,QF,RN,@N1%:RNRN1:A$SP$A$:N1%1(A$):BW,QF,RN,@N1%,@N2%,$A$:RNRNN1%:BR,QF,RN,@N1%:N1%N1%128:BW,QF,RN,@N1%:RNRN1:!$NX0:C1CX:ICD(C):I1IXTI1:CD(C)I/.I1NXC78:=D$(4):SP$" ":CR$(13):ES$(27):UL$"UNLOCK":PX$"PREFIX":VF$"VERIFY":OP$"OPEN",TL$"Create Spreadsheet":AF$"AppleWorks file":FE$"FILE ALREADY EXISTS":Q$"------------------------":TA$",TASP":WP$"DISK IS WRITE PROTECTED"^LV4:CX12:XT23:XR999:HU100:FF256:FF%255RD,0,RM:RD,12,OX:RD,15,F2:RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,28,PP$:RS,28(RM2),A$:AW$A$"INVAWFORMS.FILE"1PG%(3),PS$(4),PC(5),Q(11),IY(3),H%(302),CD(CX),CT$(XT),W%(XT),FP$(1),FT$(6),YN$(1),V%(8)xYN$(0)"No ":YN$(1)"Yes":FP$(0)"Standard Disk":FP$(1)"Pathname"I1XT:CT$(I),W%(I):I16:FT$(I):I5131:H%(I)9:N:NćH%(N):5082FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP`370:FO,AW$,QF:BR,QF,OX,$FF$,#AS,$P1$,$P2$,#PG,#BL,A#CD:CX:FC,AW$:XER(222):EFĭ(EF3(ER3ER6ER8))(EF2(ER13ER16))EF0:XO:bER9įFC:FX,AS$:ER,"DISK FULL, APPLEWORKS FILE CREATION CANCELLED":200PX6%330:OP,"Please wait, reading the directory"s&%NF0:D$OP$PF$",TDIR":D$"READ"PF$:380:DN$I$:380:3800%380:(I$,1)"B"9550:%FS,(I$,18,3),3,FT$,I:I0ĭNF55NFNF1:SS,200NF,(I$,2,15)SP$FT$(I3)D%9520 N%FC,PF$:W((I$,14))5:330'%VS15:NFVSVSNFNFi%I0:GO,60,6:WB,18,VS,SP$DN$SP$:NFįGO,64,6:" N O N E "r%VS6%INFı%II1:GO,60,VS:OP,200I:VSVS1:VS21INF9620%24:OP,108:WS,A$:GO,1,24:CL:A$ES$ı %GO,59,6:CW,20,15:9610 '" ",9,"Part #",9,"Description",23,"Mfg's Part #",13,"P/G",4,"B/L",4,"Unit Cost",11,"Price #A",11,"Price #B",11,"Price #C",11N!'"On-Hand",11,"On-Order",11,"Order Pt",11,"Max Level",11,"Beg OnHand",11,"YTD Rec",11,"YTD Issue",11,"YTD Adj",11,"YTD Sales $s",13,"YTD COGS $s",13,"Last Rec",10,"Last Iss",10,"Last P/O",10h!*AWP,ASP,ADB,WP,SS,DB".132,67,133,65,134,1,136,1,137,49,139,2,140,6,142,1,150,1,152,1,153,2,154,4,155,18,157,8,158,19,159,78,160,72,214,1,216,80,219,10,220,110,223,6,224,8 7000 5000:5100&d1000,G330:1::FC:ES:370rXC,LV:MM,LV:D$"RUN"PP$"INVAW.PROG"JGO,1,24:CL:rRM1ı1 tOL,1,A$:A$PP$įXC,LV:BL:EJ,1:14:WB,52,5," Load Disk ":OP,"Please load the following disk in Drive 1":16:OP,SP$PP$SP$:18:OP,103:WS:370S vWP,1,N:NįEJ,1:ER,WP$:370Y zl |GO,80,4:I$: GO,14,12:CW,4,9: 390:GO,14,V:"--->":330 N2%(NFF):N1%NN2%FF: H%(R114)140(T15):H%(R150)6I:H%(R186)T:RR1:) *,-./0123456;4900:CW0:T1NX:CWCW1W%(CD(T)):O 1:80,N:XC,LV,TL$:BPRM:PF$"" GO,19,15:"Outline name: "FF$::GO,19:"Location of AppleWorks file:":GO,21:"Directory Pathname:"::GO,19:"AppleWorks file name:" Lp RS,18,FY$:SL((FY$,3,1)):DR((FY$,6,1)):DD128(DR2)16SL:390:HL,S:GO,52,14:WB,20,1," Standard Disk ":" Slot "SL" / Drive "DR V17:392:"Create AppleWorks file where? ";:HL,65:KW,FP$(0),FP$(1),BP1,N:HL,R:330:N0200 ES:BPN2:GO,48,V:PL,S24,FP$(BP):BP1400 DDF21330 GO,41:32):EJ,DD:HL,S:ES,104:12:WB,51,3," Load Disk ":OP,"Please load a ProDOS formatted diskette":14:OP,109 HL,66:GK,A$:SQ,A$,SP$,CR$,ES$,N:NįBL:1310 (HL,R:N31200 2OL,DD,A$:ER(48911):ER(A$)31350) <WP,DD,ER:ERPF$A$:1500` FER40įER,"NO FLOPPY DISK DRIVE CONNECTED":1200 PEJ,DD:ER43įER,WP$:1200 ZER87įER,"DUPLICATE VOLUME NAME":1200 dER46įER,"COMPANY DATA DISK CANNOT BE REMOVED":1200nER,"NO PRODOS FORMATTED DISK LOADED":1200DxFY$"":PF$""įRS,19,PF$:RMPF$""V18:392:"Enter directory pathname: ";:XY,H:OX,32,FC$:GO,H:PF$;:GO,H:HL,67:KI,32,A$:A$ES$1200UC,A$:A$""A$PF$(A$,1)"/"A$(PF$A$,32) (A$,1)"/"A$A$"/",EF2:EFĺD$OP$A$",TDIR":ER0_EF0:ER16įER,"INVALID DIRECTORY NAME":1410ERįER,"DIRECTORY NOT FOUND":1410FC,A$:WP,(48944),N:NįER,WP$:1410PF$A$GO,41,18:OS,32,A$330:9500:WįER,"NOT ENOUGH SPACE TO CREATE APPLEWORKS FILE":1200A@390:V20:GO,41,V:15):HL,SJ392:"Enter "AF$;:OP," name (use !? to see a list of files): ":XY,H:OX,15,FC$:GO,H:HL,68:KI,15,A$:A$ES$įHL,R:1200TA$""A$SP$^(A$,1)"?"įHL,R:9600:1610RhUC,A$:I(A$):I65I90įER,"INVALID NAME, first character must be a letter":1610rF$A$:X0:I1(A$):N((A$,I,1)):XX(N46(N48N57)(N65N90)):tXįER,"INVALID NAME, must include only A-Z, 0-9, or .":1610 330:DF0:ER0:EF1:EFĺD$VF$PF$F$FY$!EF0:ER61800.ER7100iN(48824):N25N27įER,FE$", NOT APPLEWORKS":1610HL,69:ER,"APPLEWORKS "FE$,"OK to replace "F$,N:DFN0:DF1610HL,R:GO,41,V:OS,15,F$ 330:HL,71:YN,1,"OK to create the "AF$,N:N01600N1010B330:1::DFĺD$UL$PF$F$:FX,PF$F$ 330:XC,LV:16:WB,40,3," Please Wait ":OP,"Creating "AF$:18:OP,"One moment please":AS$PF$F$ D$"CREATE"AS$TA$ N35522NX:400:H%(1)N1%:H%(2)N2%:H%(36)NX:H%(223)NX:NNX:N15N15<R1:I1N:TI:410:TI15:TNXİ410nt:D$OP$AS$TA$:FO,AS$,QF,1:BW,QF,0,A@H%:356RN357:NR0:18:OP,"Adding Category Names ":T1NX:SRRN:A$CT$(CD(T)):4810:RNSR22::4850ASP1$"":P2$""PN$P1$:IS,F,QX,PN$,R:R0įIS,P,QX,PN$,RWGO,29,18:28):GO,30:PU,L"Part Number:":P2$P2$(FF%)}IS,N,QX,PN$,R:R0PN$P2$4300RWXRįER,"REACHED MAXIMUM NUMBER OF ITEMS IN DATA BASE":4300BR,QI,R,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#Q:11,A3IY:3:GO,43,18:OS,8,PN$:4750>hT1NX:ICD(T):I2A$"":4270YrI5A$PS$(I1):4270w|I7A$(PG%(I4)):4270I11VPC(I6(I7)):N31:4260I19A$(Q(I10(I13))HU):4270I21VQ(I9):N30:4260VIY(I20):4600:4280"OD,1632N3,V,A$:A$(A$,11N3)D(A$,1)SP$A$(A$,2):4262N4800Z:4700d4100{NRNRNR1:4850BW,QF,RN,@FF%,@FF%:NNR:400:BW,QF,36,@N1%,@N2%:FC,AS$0XC,LV:15:OP,AF$" creation is complete":17:OP,103:WS:200V0A$"":4800xFJ,V,A$:V((A$,2)):A$(A$,2)(64V)(A$,3,2):N1%6:N2%192:BW,QF,RN,@N1%,@N2%,$A$:4830\NRNR1:BW,QF,RN,@FF%:RNRN1:N1%RNSR2:BW,QF,SR,@N1%:SRRN:RNRN2:CD(T)1N1%129:BW,QF,RN,@N1%:RNRN1: A$SP$A$SP$.N1%(A$):BW,QF,RN,@N1%,$A$pRNRNN1%:BR,QF,RN,@N1%:N1%N1%128:BW,QF,RN,@N1%:RNRN1:N1%1:N2%0:BW,QF,RN,@N1%,@N2%,@FF%:RNRN3:$NX0:C1CX:ICD(C):I1IXTI1:CD(C)I.I1NXC8:HD$(4):SP$" ":CR$(13):ES$(27):UL$"UNLOCK":PX$"PREFIX":VF$"VERIFY":OP$"OPEN"TL$"Create Data Base":AF$"AppleWorks file":FE$"FILE ALREADY EXISTS":TA$",TADB":WP$"DISK IS WRITE PROTECTED"LV4:CX12:XT23:XR1350:HU100:FF256:FF%255eRD,0,RM:RD,12,OX:RD,15,F2:RS,0,TD$:DT,TD$,TD:RS,2,FC$:RS,28,PP$:RS,28(RM2),A$:AW$A$"INVAWFORMS.FILE"PG%(3),PS$(4),PC(5),Q(11),IY(3),H%(357),CD(CX),CT$(XT),W%(XT),FP$(1),FT$(6),V%(8)FP$(0)"Standard Disk":FP$(1)"Pathname"I1XT:CT$(I),W%(I):I16:FT$(I):II4372:H%(I)16::I79108:H%(I)I78:`N:NćH%(N):5082jFC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP370:FO,AW$,QF:BR,QF,OX,$FF$,#AS,$P1$,$P2$,#PG,#BL,A#CD:CX:FC,AW$:4XER(222):EFĭ(EF3(ER3ER6ER8))(EF2(ER13ER16))EF0:XO:bER9įFC:FX,AS$:ER,"DISK FULL, APPLEWORKS FILE CREATION CANCELLED":200PX%330:OP,"Please wait, reading the directory"&%NF0:D$OP$PF$",TDIR":D$"READ"PF$:380:DN$I$:380:3800%380:(I$,1)"B"9550j:%FS,(I$,18,3),3,FT$,I:I0ĭNF55NFNF1:SS,200NF,(I$,2,15)SP$FT$(I3)tD%9520N%FC,PF$:W((I$,14))5:330%VS15:NFVSVSNFNF%I0:GO,60,6:WB,18,VS,SP$DN$SP$:NFįGO,64,6:" N O N E "%VS6%INFı?%II1:GO,60,VS:OP,200I:VSVS1:VS21INF9620n%24:OP,108:WS,A$:GO,1,24:CL:A$ES$ı%GO,59,6:CW,20,15:9610 '"Blank",1,"Part #",8,"Description",22,"Mfg's Part #",12,"P/G",2,"B/L",2,"Unit Cost",8,"Price #A",8,"Price #B",8," 7000 5000:5100W2HD$"Stock Status Report":1:80,N:XC,LV,"Print "HD$ed2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,15:YN,N,"Print report as shown above",N:330:N0200 xNįES:2000:N1:GT,110ES10 3000 ( 1::FCI ES:XC,LV:MM,LV,11:RU,12x ,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)" 79:;<=>?@ABCD(1-99): ";:XY,H:DFĺDF;:GO,HC BHL,HL1:NI,2,S,N:S3310V 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:390S jA$""A$(DF$,1)a 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)K z350:GO,H,24:OS,8,A$:c 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::470i 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....."C2AC$"cancelled":500O: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$::cPNPN1:LN7:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 " Part # Description UM PG BL On-Order On-Hand Unit Cost StockValue":K"======== ====================== == == == ======== ======== ========= ==========":YSF1100XC,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$,RNN630: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$,RNV SF14005IS,N,QX,PN$,RN:EFRN0PN$P2$:EFıQ1500:PN$PS$(1)5300a(1600:OKık21300xS2RNS2:1500:S2SL:S1S11: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: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:ES2050P2$A$:AF0>P2$SP$ĭP2$P1$P2$P1$:P1$A$H 2600t4V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630NSPG0BL0:NSSF0:2300 (SF1PG0)(SF2BL0)SF0:WG0:2640EV19: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:23009330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200HWGN: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$O< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F 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):I AFH2$"":P1$"":P2$(255):3100 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:RT0:GT0:SD,39,CP:1000:45071200:EF4300ESF4100ZPG%(SF)LS4100pLS0İ4250:GT0WGĭLS0ĭLNL1NL0:600LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1NL2CP:600:CPLNLNTF:TFĺSP$,PU,S9,PS$(1),S23,PS$(2),S2,PS$(4)YI12:3PG%(I)):PG%(I)įOI,3,PG%(I)_"ICPQ(1):OHPQ(6):SV(ICOHHU.5):TSV:PL,D8,PQ(7),3,9,D8,OH,3,9,D40,IC,3,10,D8,SV,1,11,GTGTT:RTRTT:40506P$PB$(SF)" TOTAL":UC,P$:SFTGT: @TRT:n4150:S(P$):NL3:600:PL,B69,X10,"-":PL,B52S,SS,P$,L": Stock Value =",D8,T,1,11:SP$:|SFİ4250SF0:42500AC$"complete":500:570ES$(27):SP$" "LV4:HU100:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None"GRS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LPPC$(2),PG%(3),PG$(3),PS$(4),PQ(16),IY(3),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99)XYN$(0)"No":YN$(1)"Yes":AL$(0)"All":AL$(1)"Specific":AS$(0)"All":AS$(1)"Selective":SP$(0)"Screen":SP$(1)"Printer":PB$(O)"Report":PB$(1)"Product Group":PB$(2)"Bin/Location"bFC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP:RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0ER,107:200XPX(#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:I12 F#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:b 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: 7000 5000:5100m2SB,HD,"On Hand Detail Report",OO,"On Order Report",HD$:1:80,N:XC,LV,HD$d2700:ES200n2500:N0xES:HDįES,11% z330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,HL:YN,N,"Print report as shown above",N:330:N0ĴHD1100,200I NįES:2000:N1:GT,120ES10S 3000Y f 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(DEGHIJKLMNOPQRSTUF0),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- `z 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ıQ vUC,A$:(A$,1)"?"İ9000:ES370l xA$""A$(S8$A$,8) z350:GO,H,24:OS,8,A$: 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:4006 CPN2:L CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS SB,OOPO,"SUMMARY ",1,(HD$,1),HU$:UC,HU$:PN0:PF1:700900:CPİ650:PW,0:?24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:L&PF5700CPLNLN2:SP$:"***** LISTING CANCELLED....."2AC$"cancelled":500:PO:50X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nCv(KB)SBĹKS,0:(KB)(ES$)550IVCPė:gFFĺ(FF):~LLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 SS41)T1$:SS)SH$T2$:SS)T3$:+SF1100XC,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:H$GO,43,17:OS,8,PN$:OOİ1500:1070f&BR,QI,RN,#TL,A@PG%:3,3SL.1600:LPG%(SF):L99OK10508BW,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ı;1500:PN$PS$(1)5300K(1600:OKıU21300qxS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16,A3Y:3:@OK0:PGĭPGPG%(1)ı JBLĭBLPG%(2)ıTOOĭPQ(7)0ı)^OK1: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:ES2050P2$A$:AF0;P2$SP$ĭP2$P1$P2$P1$:P1$A$E 2600q4V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630NSPG0BL0:NSSF0:2300(SF1PG0)(SF2BL0)SF0:WG0:2640BV19:392:330:"What type of additional sorting? ";xPGBLįHL,9:KW,NO$,PB$(1),PB$(2),SF1,N:2240HL,10BL:KW,NO$,PB$(1BL),2SF,N:NN(N2BL)N02150SFN1:2640:SFWG0:23006330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200EWGN:2640a400:ESįGT,220050NSk 2650 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:":p 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$L< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F 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):4 HDES0:HL42:{ OP$(1)"Print Summary "HD$:OP$(2)"Print "HD$" with P/O Detail" N1:XC,LV:HL,88:MS,LV,2,OP$,1,2,1,N:ESN0:ESı PON2:XC,LV:HL89: AFH2$"":P1$"":P2$(255):31008 H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)^ H3$"":PGH3$PB$(1)" # "(PG)l& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL)= OOSS1:T1$" Last On-Order Last Order":T2$"P/O Date Quantity Cost Value":T3$SQ$"======== ======== ========= =========":4000 T3$SQ$:LFT3$T3$"======== ======== ======== =========":T2$"Quantity Quantity Cost Value":T1$"Original On-Hand Unit Stock"@ LFT3$T3$"======== ========= =========":T2$"Quantity Cost Value":T1$" On-Hand Unit Stock"V SS(40(T3$)2)LS1:RT0:GT0:SD,39,CP:1000:4501200:EF4400SF4100PG%(SF)LS41004700:WGĭLS0ĭLNL1NL0:600'LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1\NL1:600:PU,BSS,S9,PS$(1),S23,PS$(2),S2,PS$(4)I12:PG%(I)įOI,3,PG%(I):41143)CPQ(1OO):QPQ(6OO):SV(CQHUC1):OO4200"PU,BLF9,D8,Q,3,9:LFįPL,D40,C,3,10,D8,SV,2,10:4300,PL,B9,D8,SV,2,10+6TLİ4900:4300|@BR,QT,TL,#TL,@RK%,@T%,#OQ,#RQ,#AC,#IC,#UP,#CC,3TD,3TQ,$R$:T%98RQ04150J4800:A$"Receipt":T%A$"Return":T%98A$"Adjust"TPL,B11,S9,A$,YTD,B1,S12,R$,D8,OQ,3,9,D8,RQ,3,9,D40,IC,4,9,D8,(ICRQHUC1),2,10:41502h18Y(3)):Y(3)įOY,Y(3)crPL,D8,Q,3,9,D40,C,3,10,D8,SV,2,10:PO4300xTLİ4900:4300BR,QT,TL,#TL,@RK%,@T%,#LL,#P,#OQ,#RQ,#CQ,#C,3TD,3TQ,$PO$:T%HU4250QOQRQCQ:Q042505 4800:PL,B31,L"P/O #",S6,PO$,YTD,B1,D8,Q,4,8,D40,C,3,10,D8,(CQHUC1),2,10:4250\ LGPG%(SF):GTGTSV:RTRTSV:4050 04700:TRT:P$"REPORT TOTAL":4600 bAC$"complete":500:570 NL2:600:PL,BSS57OO9HD8LF(P$),LP$,L":",D8,T,1,11:SP$:%!\SFĭLS0TGT:P$PB$(SF)" TOTAL":UC,P$:QF1:4600:GT0+!fm!NL1:600:TFįPL,BSS,S9,PS$(1),S61,PS$(2),L"Con't":NL1:600s!!$NL1:600:NLNLTF:TFĺSP$!.!!ES$(27):SP$" "v"LV4:HU100:SB128:C1.5:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":SQ$"======== ====================== == == == ":SH$" Part # Description UM PG BL ""RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,N:HDN1:OOHD#OP$(2),PG%(3),PS$(4),PQ(16),Y(3),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99)#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$(O)"Report":PB$(1)"Product Group":PB$(2)"Bin/Location"#FC:!$FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM:LFCM2:FO,16,QT:L$RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0^$ER,107:200f$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:VSVS1I%>#R0ISXg%@#: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:9030Y&#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:m&T$IS,N,QX,A$,R:&$IS,P,QX,A$,R: 7000 5000:5100I21:80,N:XC,LV,"Margin Analysis Report"[d2700:ES200tnXC,LV,TL$:2500:N0xES:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,39:YN,N,"Print report as shown above",N:330:N050 NįES:2000:N1:GT,120ES10 3000& 3 1::FCT 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:"EnterVXYZ[\]^_`abcde "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,HN BHL,HL1:NI,2,S,N:S3310a 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 `G hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390^ jA$""A$(DF$,1)l 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:ES3709 xA$""A$(S8$A$,8)V z350:GO,H,24:OS,8,A$:n 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::470t XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$"INVENTORY MARGIN ANALYSIS":PN0:PF1:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1: &PF570@0CPLNLN2:SP$:"***** LISTING CANCELLED....."Y2AC$"cancelled":500e:PO:50X630: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$::yPNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900& 46)T1$10)"YTD COGS $ Actual":" Part # Description PG Unit Cost "T2$" Margin YTD Sales $ Margin":"======== ===================== == ========= ========= ====== =========== ======":SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading parts list (in reverse order)":GO,30,17:"Part Number:":19:OP,86:ES,100ML(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):L99OK1050.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050+LIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN1V>SF1400iIS,N,QX,PN$,RN:EFRN0PN$P2$:EFı1500:PN$PS$(1)5300(1600:OKı21300xS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PQ:16:8@OK0:PGĭPGPG%(1)ıNJBLĭBLPG%(2)ıYTOK1: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$6 N2:DF$P2$:HL4:370:ES2050FP2$A$:AF0kP2$SP$ĭP2$P1$P2$P1$:P1$A$u 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630 NSPG0BL0:NSSF0:23008(SF1PG0)(SF2BL0)SF0:WG0:2640rV19: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:2300f330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200uWGN:2640400:ESįGT,220050NS 2650  GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": 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"::2620I2 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$|< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650"R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "1T SFĺ30)OZ GO,50,21:OS,8,SP$(CP): N1:XC,LV:HL,38:MS,LV,4,OP$,0,2,1,N:ESN0:ESı ALN1:TL$"Margin Analysis: ":ALTL$TL$"All":SP1: SPN1:TL$TL$"Level "(64SP): AFH2$"":P1$"":P2$(255):3100U H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255){ H3$"":PGH3$PB$(1)" # "(PG)& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL) ALT1$"Prices":T2$" A/B/C":4000 T1$"Price ":T2$"Level "(64SP)HLS1:SD,39,CP:1000:450:FL,0,6,RT:FL,0,6,GT[1200:EF4300iSF4100~PG%(SF)LS4100LS0İ4500:FL,0,6,GTWGĭLS0ĭLNL1NL0:600LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1*NL3AL:600:LNLNTF:TFĺSP$FL,0,6,T:CPQ(1):OHPQ(6):YSPQ(15):YCPQ(16):T(1)(COHHUC1):T(5)YC:T(6)YS:PG$"":PG%(1)PG$(SP$(PG%(1)),2)PU,S9,PS$(1),S21,PS$(2),B1,S2,PG$,D40,C,3,10:LSP:4600:PU,B1,D8,YC,1,11:CCYC:PYS:4650:%"ALįPL,B61,D0,YS:4140X$L2:43):4600:PL,B1,D0,YS:L3:43):4600:,I16:GT(I)GT(I)T(I):RT(I)RT(I)T(I):64050SFİ4500I16:GT(I)RT(I)::T$"REPORT":45100AC$"complete":500:570T$(PB$(SF),1):UC,T$8NL3AL:600:PL,B54,L"------ ----------- ------"21(T$))T$" TOTALS: ";:LSP:4700:CCGT(5):PGT(6):PU,B1,D8,CC,1,11:4650:ALįPL,B61,D0,GT(6):L2:31):4700:PL,B1,D0,GT(6):L3:31):4700::CCC:PPQ(2L):OD,40,P,3,10:4650:T(1L)(POHHUC1):5*Pĺ" n/a ";:^4M(1CCP)HU.05:(M)MXM(M)MXs>OD,8,MHU,4,7:\CCGT(1):PGT(1L):"Level "(64L);:PU,S12,PL$(L),L": ":4650:ES$(27):SP$" "@ LV4:HU100:MX9999.9:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None"i RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP OP$(4),PC$(2),PG%(3),PS$(4),PQ(16),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99),PL$(3),RT(6),GT(6),T(6)|!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"!I14: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$:32"I13:A$"":PL$(I)""A$" ("PL$(I)")":OP$(I1)OP$(I1)A$D"PL$(I)A$::o"RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0"ER,107:200"XPX"(#NPįER,97:ES1:"2#A$(S8$(A$,1,(A$)1),8):ES:330:340:SX14:NPSXSXNP:A$""2#4#VS7:GO,43,7:WB,34,SX," Parts ":IS,F,QX,A$,I:9300:R0I0İ9400]#<#9400:I1SX:9300:R0İ9200:VSVS1l#>#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:90304$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:%' "Margin Analysis for All Price Levels","Level A Margin Analysis","Level B Margin Analysis","Level C Margin Analysis" 7000 5000:5100F21:80,N:XC,LV,"ABC Analysis Report"Td2500:N0nNSįER,"INSUFFICIENT DISK SPACE, cannot do ABC Analysis":200 xES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,62:YN,N,"Print report as shown above",N:330:N0200? ES:Nİ2000:N1:GT,120ES20v DQĆV(PZ),L(PZ),PV(PX),PL(PX),PK(PX),PX(PX):DQ1 3000 1::FC:FX,199 ES:XC,LV:MM,LV,11:RU,12 "RVZ1(PA1)5(X1):RRRVZ2: ,A$SP$ĭ(A$,1)SP$A$(A$,fhijklmnopqrs(A$)1):300 .n 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,HL56:NI,2,S,N:S3310 DS2NDF:S0; FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320A HT JGO,1,24:CL:h TSHįHL,S:SH1n 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) l300:390k 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) z350:GO,H,24:OS,8,A$: GO,14,13:CW,4,9: 390:GO,14,V:"--->":d V20:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: CPEP24::470XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS1HU$"INVENTORY ABC ANALYSIS":PN0:PF1:700K900:CPİ650:PW,0:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:&PF5700CPLNLN2:SP$:"***** LISTING CANCELLED....."2AC$"cancelled":500:PO:50X630:NLĭLNNLEPLNLNNL:@b900:CPĢ24:OP,130:WS,A$:A$ES$570Vl650:700:NL600\nv(KB)SBĹKS,0:(KB)(ES$)550CPė:FFĺ(FF):LLLNOL:SP$::PNPN1:LN9:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN10L1LN:SP$:800:900 58):"------Cumulative-----":44)" YTD % of Total % of % of":"Rank Part # Description PG BL COGS $'s Value Value Items Value":,"==== ======== ===================== == == ========= ===== ========= ===== =====":NG0:N0:TI0:CI0:XC,LV:15:WB,40,5," Please Wait ":OP,"Reading and sorting your parts list":GO,30,17:"Part Number:":19:OP,86:ES,100IS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN1300:EF1050NPZİ1100:N0XVC(Q(11)C1):NN1:V(N)1E10VC:L(N)RN:TITI1:VC0CICIVCb1020oNİ1100z$NEN:LSR,V,L,N:NGĭNPZıVNGNG1:PV(NG)V(1):PL(NG)L(1):PK(NG)1:PX(NG)N`PANG:X1:290:BW,QS,RV,A#V:PZ,A#L:PZ:)630:IS,N,QX,PN$,RN:EFRN0PN$P2$:EFıYGO,43,17:OS,8,PN$:1500:PN$PS$(1)5300i(1600:OKıs21300xS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#Q:11:@OK0:PGĭPGPG%(1)ı(JBLĭBLPG%(2)ı3TOK1:FNN1:NG1900XEFNNE:EFıjRNL(N):1500lSM,NG,PV,PA:EFPV(PA)IX:EFıvRNPL(PA):XPK(PA)1:PK(PA)X:XPX(PA)PV(PA)IX:1950290:BR,QS,RV,#PV(PA):BR,QS,RR,#PL(PA)1500fSH0: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$ 2600J4V17:392:HL5:DFPG:PB1:310:ES2000Y>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630400:ES21502640  GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :"::GO,19:"Produce report on what device:" AF1:P1$"":P2$"":PG0:BL0:RD,39,CP:PF0 ( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::262012 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$d< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,50,20:OS,8,SP$(CP): N1:XC,LV:HL,38:MS,LV,4,OP$,0,2,1,N:ESN0:ESı) ALN1:TL$"Margin Analysis: ":ALTL$TL$"All":SP1:P SPN1:TL$TL$"Level "(64SP):w AFH2$"":P1$"":P2$(255):3100 H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255) H3$"":PGH3$PB$(1)" # "(PG)& BL4000 0 H3$""H3$H3$" / "): H3$H3$PB$(2)" # "(BL)KSD,39,CP:1000:450:N0:TC0^1800:EF4300NL1:600:VC(Q(11)C1):OKVC0PU,I4,N,B1,S9,PS$(1),S21,PS$(2)I12:3PG%(I)):PG%(I)įOI,3,PG%(I)"OD,8,VC,2,10:P1VC:P2CIOK:4500M,TCTCVC:OD,8,TC,2,10:P1N:P2TI:4500:OKP1TC:P2CI:4500::4050`6" n/a":4050}AC$"complete":500:570P2įPU,B6:OD,8,(TTP1P2C0),5,6:ES$(27):SP$" ">LV4:HU100:TT1E4:IX1E20:C05:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None"aPZ500:PX100:Z110PZ:Z2Z12RS,2,FC$:RD,0,RM:RD,1,PS:RD,2,FF:RD,3,LP:RD,14RM,FYPG%(3),PS$(4),PC(5),Q(11),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2)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"FC:FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP:FO,199,QS,1OL,FY,A$,BA,BN:BNZ1(1((NP1)PZ)):BN(BN512)2:NSBNBA:HRB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0ZER,107:200bXPXz(#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İ94006<#9400:I1SX:9300:R0İ9200:VSVS1E>#R0ISXc@#:ES,92:24:OP,129:I1F#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:9030U #BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:i T$IS,N,QX,A$,R:} $IS,P,QX,A$,R: 7000 5000:5100J21:80,N:XC,LV,"Inv. Performance Report"Xd2500:N0nES,11:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,78:YN,N,"Print report as shown above",N:330:N0200 xES:NįES:2000:N1:GT,110ES10 3000  1::FC@ ES:XC,LV:MM,LV,11:RU,12o ,A$SP$ĭ(A$,1)SP$A$(A$,(A$)1):300u . 6330:"Include which "PB$(PB)"? ";:HL,HL:KW,AL$(0),AL$(1),1(DF0),N:ESN0:ESı 8N1N0: @330:"Enter "PB$(PB)" (1-99): "tvwxyz{|}~;:XY,H:DFĺDF;:GO,H: BHL,HL1:NI,2,S,N:S3310M 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 `3 hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390J jA$""A$(DF$,1)X 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)B z350:GO,H,24:OS,8,A$:c |TU0:AVTUAYAV:TU0TU0i ~ 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::470 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:&PF570H0CPLNLN2:SP$:"***** LISTING CANCELLED....."a2AC$"cancelled":500m:PO:50X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600n v(KB)SBĹKS,0:(KB)(ES$)550CPė:.FFĺ(FF):ELLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 " Part # Performance: M-T-D Y-T-D Stock Value Turnover Information":i"======== =================== ========= ================ ====================":ALDL(CP0):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,100EL(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RNz630:IS,P,QX,PN$,RN:RN0PN$P1$S11:S20:$GO,43,17:OS,8,PN$:BR,QI,RN,#TL,A@PG%:3,3SL,3LQ:1600:LPG%(SF):L99OK1050.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050'LIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN-V:SF1400eIS,N,QX,PN$,RN:EFRN0PN$P2$:EFı1500:PN$PS$(1)5300(1600:OKı21300xS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400 BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#PQ:11:7@OK0:DLĭLQBQıMJPGĭPGPG%(1)ıcTBLĭBLPG%(2)ın^OK1: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:ES2000(P1$A$K N2:DF$P2$:HL4:370:ES2050[P2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630 NSPG0BL0:NSSF0:2300M(SF1PG0)(SF2BL0)SF0:WG0:2640V19: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)N02150$SFN1:2640:SFWG0:2300{330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200WGN:2640400:ESįGT,220050NS 2650  GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": 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:PF06( GO,50,13: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,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:26507R YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "FT SFĺ30)dZ GO,50,21:OS,8,SP$(CP): AFH2$"":P1$"":P2$(255):3100 H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255) H3$"":PGH3$PB$(1)" # "(PG)& BL32000 H3$""H3$H3$" / "=: H3$H3$PB$(2)" # "(BL)r LFT1$"":T2$" Description / Txn":T3$"":4000 T1$"Actual":T2$"Txn Type":T3$"Unit Cost "LS1:SD,39,CP:1000:450:FL,0,7,GT:FL,0,7,RTFL,0,11,X:1200:EF4300TL4050W630:BR,QT,TL,#TL,@K%,@T%,#Q,#R,#A,#I,#P,#CC,3TD,3TQ,$R$,@PM%:PM%T%984020rT%X(7)X(7)Q:4020T%98X(9)X(9)Q:4020S12(T%20):X(8)X(8)SQ:X(10)X(10)S(QPHUC1):X(11)X(11)S(QAHUC1):4020PG%(SF)LSSF4100LS0İ47006WGĭLS0ĭLNL1NL0:600LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1T1:NL10:600:LNLNTF:TFĺSP$I12:PG$(I)"":PG%(I)PG$(I)(SP$(PG%(I)),2);:PL,S10,PS$(1),S31,PS$(2),L"(UM=",S2,PS$(4),L", PG=",S2,PG$(1),L", BL=",S2,PG$(2),L")"T1:CPC(1):OHPQ(1):VOHCHU:T(5)V:AV(OHPQ(6))2:YIPQ(8):AYYCYI:380T(6)(AVCHUC1):T(7)(AYCHUC1)"4500:PL,L"O/H :",D8,OH,3,9,L" Avg OnHand:",D8,AV,3,92$4500:PL,L"Cost :",D40,C,3,10,L" YTD Issues:",D8,YI,3,9o&4500:PL,L"Value:",D8,V,2,10,L" Annualized:",D8,AY,3,9,4500:PL,B18,L"Turns/Year:",D8,HUTU,5,7.4500:PU,B18,L"Days/Turn :":TU.01ĺ" n/a":41500PL,D8,HU365TU,2,7 6PQ(12)PQ(10)PQ(11):X(12)X(10)X(11):4500:r@PU,B10,S8,T$(7),L":":CX(11):PX(10):T1:4550:CPQ(11):PPQ(10):T3:4550:JPU,B10,L"Av Price:":IX(8):PX(10):4560:IPQ(8):PPQ(10):4560:TI17:TT(I):GT(I)GT(I)T:RT(I)RT(I)T:h40104700( I17:GT(I)RT(I)::P$"REPORT":4600E 0AC$"complete":500:570 I2(T4):PU,B10,S8,T$(T),L":",D8,X(T6),I,10,D8,PQ(T6),I,10,B2:TT1: T(T)P:T(T1)C:PĺNA$;: PU,D8,TT(1CP),2,9,L"%": IĺNA$;: OD,40,HUPI,3,10:!NL7:600:PL,B20,L"--------- ---------",B9,L"---------",B11,L"-----------":PL,B12(P$),LP$,L" TOTAL:":AVGT(6):AYGT(7):380!PL,B10,S8,T$(4),L":",D8,GT(1),2,10,D8,GT(3),2,10,L" Value:",D8,GT(5),3,10,L" Avg O/H$:",D8,AV,1,11=" PL,B10,S8,T$(5),L":",D8,GT(2),2,10,D8,GT(4),2,10,B20,L"Annual'd:",D8,AY,1,11"PL,B10,S8,T$(6),L":",D8,GT(1)GT(2),2,10,D8,GT(3)GT(4),2,10,B20,L"Turns/Yr:",D8,HUTU,5,7# PU,B10,S8,T$(7),L":":CGT(2):PGT(1):T0:4550:CGT(4):PGT(3):4550:PU,B20,L"Day/Turn:":TU.01ĺ" n/a":4650+#"PL,D8,HU365TU,2,76#*SP$:m#\SFĭLS0P$(PB$(SF),1):UC,P$:4600:FL,0,7,GTs#fy##ES$(27):SP$" "*$LV4:HU100:TT1E4:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":HD$"Inventory Performance Report":NA$" n/a "f$RS,0,TD$:RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,7,BQ$A$"01/01/"(TD$,2):DT,A$,N:DT,TD$,YC:YC365(YC1N)%PG%(3),PG$(2),PS$(4),PC(5),PQ(12),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99),T(7),GT(7),RT(7),X(12),T$(7)%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"%I17:T$(I):%FC:&FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP:FO,16,QT:C&RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0U&ER,107:200]&XPXu&(#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İ94001'<#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:9030P(#BR,QI,R,#X,@I%,@I%,@I%,3X,3X,$A$,$N$:GO,43,VS:PU,B1,S10,A$,LN$:d(T$IS,N,QX,A$,R:x($IS,P,QX,A$,R:('"Receipts","Issues","Adjusts","Sales $s","COGS $s","Margin $","Margin %" 7000 5000:5100F21:80,N:XC,LV,"Print Detail Report"Xd2700:ES200qnXC,LV,TL$:2500:N0xES:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,41:YN,N,"Print report as shown above",N:330:N050 NįES:2000:N1:GT,120ES10 3000# 0 1::FCQ 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,HK 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 `D hPU,LDF$,X(S)(DF$),FC$:GO,H:HL,HL:KI,S,A$:ESA$ES$:ESİ350:390[ jA$""A$(DF$,1)i 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:ES3706 xA$""A$(S8$A$,8)S z350:GO,H,24:OS,8,A$:k 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::470q XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS HU$MD$(1DL)SP$HD$:UC,HU$:PN0:PF1:700 900:CPİ650:PW,0: 24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:&PF570;0CPLNLN2:SP$:"***** LISTING CANCELLED....."T2AC$"cancelled":500`:PO:50X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550CPė:!FFĺ(FF):8LLLNOL:SP$::tPNPN1:LN8:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900! PL,B52,S8,T1$,L"Inventory Inventory":" Part # "T2$" Date Reference CG Quantity "T3$"Unit Cost Ext. Cost":PL,L"======== ",X910LF,Q$,L" ===== ============ == ======== ",X9LF,Q$,BLF,L"========= =========":ALDL(CP0):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,100jL(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,3LQ:1600:LPG%(SF):L99OK1050".BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050LLIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RNRV_SF1400IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı1500:PN$PS$(1)5300(1600:OKı21300xS2RNS2:1500:S2SL:S1S11:EFS199:EFı S2L(S1):14006BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4:M@OK0:DLĭLQBQıcJPGĭPGPG%(1)ıyTBLĭBLPG%(2)ı^OK1:SH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı AFN1:AFP1$"":P2$"":20803330:N1:DF$P1$:HL3:370:ES2000>P1$A$a N2:DF$P2$:HL4:370:ES2050qP2$A$:AF0P2$SP$ĭP2$P1$P2$P1$:P1$A$ 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:26306NSPG0BL0:NSSF0:2300c(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:2640400:ESįGT,220050NS 26506 GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": 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:PF0L( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::2620t2 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" "; P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650MR YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "\T SFĺ30)zZ GO,50,21:OS,8,SP$(CP): N1:XC,LV:HL,40:MS,LV,2,OP$,1,2,1,N:ESN0:ESı DLN2:TL$MD$(N)" Detail Report": AFH2$"":P1$"":P2$(255):3100F H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)l H3$"":PGH3$PB$(1)" # "(PG)z& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL) LFT1$"":T2$" Description / Txn":T3$"":4000 T1$"Actual":T2$"Txn Type":T3$"Unit Cost "OLS1:SD,39,CP:1000:450:FL,0,6,RT:FL,0,6,GTgPO0:1200:EF4300uTL4200BR,QT,TL,#TL,@K%,@T%,#OQ,#RQ,#AC,#IC,#UP,#CC,3TD,3TQ,$R$,@PM%:T%99PM%(DLTQBQ)4020PO4100PG%(SF)LSSF4090LS0İ4700:FL,0,6,GT7WGĭLS0ĭLNL1NL0:600CPPG%(SF)NL4:600:SP$:"***** "PB$(SF)" # "PG%(SF):SP$:LNLN1NL4:600:LNLN3:I12:PG$(I)"":PG%(I)PG$(I)(SP$(PG%(I)),2):C$"":4850:FL,0,6,X:PO1TT(T%):CGT2T3:T2OQOQ#V(OQICHUC1)>T5R$"Std Cost Adj"NL1:4800:PU,B1010LF,S9,T$(T),YTD,B1,S13,R$,B2CG:CGįOI,2,T%20(T3)PU,D8,OQ,3,9:LFNOQ0ACIC:10N):NįOD,40,AC,3,10"PL,D40,IC,3,10,D8,V,2,106X(T)X(T)OQ:X(6)X(6)V:4020jhPOLSPG%(SF):I16:XX(I):RT(I)RT(I)X:GT(I)GT(I)X::QF0:P$"Part Total":4600t40104700:I16:X(I)RT(I)::P$"REPORT TOTAL":QF1:46000AC$"complete":500:570NL2:QFNLNL(X(1)0)(X(2)0)(X(3)0)(X(4)0)4800q PL,B3810LF(P$),LP$,L":",D8,(X(1)X(2)X(3)X(4)),2,10,B1910LF,D8,X(6),1,11:QF4640I14:XX(I):I2X(X)XįPL,B3010LF,S8,T$(I)"s",L":",D8,X,2,10 SP$:% \SFĭLS0āI16:X(I)GT(I)::P$PB$(SF)" TOTAL":UC,P$:QF1:4600:FL,0,6,GT+ f@ 600:(TF)QFıY NL1:600:C$"Con't" PU,S9,PS$(1),S24,PS$(2),L"(UM=",S2,PS$(4),L", PG=",S2,PG$(1),L", BL=",S2,PG$(2),L")":C$""įPU,B18,LC$ :  ES$(27):SP$" "t!LV4:HU100:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":HD$"Inventory Transaction Detail Report"!RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,7,BQ""OP$(2),PC$(2),PG%(3),PG$(2),PS$(4),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99),PL$(3),MD$(2),RT(6),GT(6),X(6),T(99),T$(5)S"FL,3,40,T:FL,2,20,T:T(0)1:T(98)4:T(99)5"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"I#MD$(1)"Monthly":MD$(2)"Daily":I12:OP$(I)"Print "MD$(I)SP$HD$:]#I15:T$(I):g#FC:#FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM:LFCM2#FO,16,QT:#RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0$ER,107:200$XPX $(#NPįER,97:ES1:g$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:W&'"Receipt","Issue","Return","Adjust","Cost Adj" 7000 5000:5100M21:80,N:XC,LV,"Print Transaction Register"_d2700:ES200fNSįER,"INSUFFICIENT DISK SPACE, cannot print register":200nXC,LV,TL$:2500:N09 xES:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,80:YN,N,"Print report as shown above",N:330:N050] NįES:2000:N1:GT,120ES10 DQĆV(PZ),L(PZ),PV(PX),PL(PX),PK(PX),PX(PX):DQ1 3000 1::FC ES:XC,LV:MM,LV,11:RU,12 "RVZ1(PA1)5(X1):RRRVZ2:% ,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:S0P FSN1N99A$"INVALID "PB$(PB):UC,A$:ER,A$", must be 1 to 99":320V Hi 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) 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) z350:GO,H,24:OS,8,A$:* |IRX2X3:RAX1X4:CCX5:XLIR(RALF):B GO,14,13:CW,4,9:^ 390:GO,14,V:"--->": V20:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: CPEP24::470HXC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PSwHU$MD$(DL)SP$HD$:UC,HU$:PN0:PF1:700900:CPİ650:PW,0:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:&PF5700750:CPLNLN2:SP$:"***** LISTING CANCELLED.....".2AC$"cancelled":500::PO:50HX750:630obTFLNL1:NLĭLNNLEPLNLNNL:d900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550CPė:FFĺ(FF):LLLNOL:SP$::WPNPN1:LN9:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1tH3$""įOC,H3$:LNLN1SP$:OT0:OTı800:900:OT1:L1LN: OC,T$(TT):SP$:T2$SP$įPL,B59SK,LT2$:LNLN1*PL,BSK,LT1$:PL,BSK,LTQ$:NG0:N0:TL0:XC,LV:15:WB,40,5," Please Wait ":OP,"Reading and sorting your transactions":GO,30,17:"Part Number:":19:OP,86:ES,100IS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RN1300:EF1050NPZİ1100:N0VTDD0:V0V0%NN1:V(N)TE8VE4RN:L(N)L:10202Nİ1100=$NEN:YLSR,V,L,N:NGĭNPZıVNGNG1:PV(NG)V(1):PL(NG)L(1):PK(NG)1:PX(NG)N`PANG:X1:290:BW,QS,RV,A#V:PZ,A#L:PZ:630:TL1350IS,N,QX,PN$,RN:EFRN0PN$P2$:EFı)(GO,43,17:OS,8,PN$:1500:PN$PS$(1)5300=21600:OK1310G<1300iFLTL:1550:P%TT1TT21300~PDLĭTQBQ1300ZBR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4:BR,QT,L,#TL,@R%,@T%,A#TQ:6,3TD,3TQ,$R$,@P%:TT%:T99THUTT(T):@OK0:PGĭPGPG%(1)ı.JBLĭBLPG%(2)ı@TDLĭLQBQıK^OK1:^NN1:NG1900pEFNNE:EFıVV(N):LL(N):1950lSM,NG,PV,PA:VPV(PA):EFVIX:EFıvLPL(PA):XPK(PA)1:PK(PA)X:XPX(PA)PV(PA)IX:1950290:BR,QS,RV,#PV(PA):BR,QS,RR,#PL(PA);RNV1E4(V1E4):1500:1550SH0: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:ES2050(P2$A$:AF0MP2$SP$ĭP2$P1$P2$P1$:P1$A$W 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630400:ES21502640Y GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :"::GO,19:"Produce report on what device:" AF1:P1$"":P2$"":PG0:BL0:RD,39,CP:PF0B( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::2620j2 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,50,20:OS,8,SP$(CP):) N1:XC,LV:HL,79:MS,LV,8,5,OP$,0,1,1,N:ESN0:ESıo ALN1:DLN4:NN4DL:T11:T25:N1T1N(N4):T2N(N2)(N4) TL$"Print "MD$(DL)" Register": AFH2$"":P1$"":P2$(255):3100 H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)' H3$"":PGH3$PB$(1)" # "(PG)5& BL4000P0 H3$""H3$H3$" / "u: H3$H3$PB$(2)" # "(BL):4000 LFT1$"":T2$" Description / Txn":T3$"":4000 T1$"Actual":T2$"Txn Type":T3$"Unit Cost "e XTT:380:SB,1,"======== ===================== ===== ============",IR," ==",1," ======== ======== ========",TQ$:SK((80(TQ$))2) SB,1," Part # Description Date Reference ",IR," CG",1," Quantity ",IR," Price ",RA,"UnitCost",CC," in Cost",1," Extended",T1$6 SB,IR," Cost/",RALF,"Act Cost",CC," Change",T2$:pSD,39,CP:1000:450:ALALAFCP:TT1:N0:FL,0,2,TT1800:EF4300TTT4100TT0İ4700:NL0:600TTT:3500XT:380:NL1XL:600:QTQ(1)'PU,BSK,S9,PS$(1),S21,PS$(2),B1,YTD,B1,S12,R$:IRįOI,3,T%20(T3)]OD,8,Q,3,9:I1:4150:XLĺ58SK3IR):I2:4150g"40506CTQ(2IIR):V(QCHUC1):TT(I)TT(I)V:PL,D40,C,4,9,D8,V,3,9:4700:TT0TTT1:3500:750ALįBR,QT,0,#AV,#LR,#RR:UT0:BW,QT,0,#AV,#LR,#RR,#UT:KP+0AC$"complete":500:570aXTT:380:NL2XL:600:SSK3IR:PL,B68S,X8,"-" PL,B64S(P$),LP$,L":",D8,TT(1),1,11:XLįPL,B65S,D8,TT(2),1,11\TT0P$"TOTAL FOR "T$(TT):UC,P$:4600:FL,0,2,TTf ES$(27):SP$" "LV4:HU100:E41E4:E81E8:IX1E20:D020000:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":HD$"Inventory Transaction Register"PZ500:PX100:Z110PZ:Z2Z12 RS,2,FC$:RD,0,RM:RD,1,PS:RD,2,FF:RD,3,LP:RD,7,BQ:RD,14RM,FYw OP$(8),PG%(3),PS$(4),TQ(6),YN$(1),AL$(1),AS$(1),PB$(2),SP$(1),MD$(1),TT(2),T(100),T$(5) FL,3,40,T:FL,2,20,T:T(0)1:T(98)4:T(99)5r!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":SP$(0)"Screen":SP$(1)"Printer":MD$(0)"Monthly":MD$(1)"Daily"!I15:T$(I):!M01:OP$(M41)"Print Full "MD$(M)SP$HD$:"I24:M01:OP$(I4M)"Print "MD$(M)" Register, "T$(I(I4))" Only"::"FC:{"FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM:LFCM2:FO,16,QT:FO,199,QS,1"OL,FY,A$,BA,N:NSBA200:"RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0"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:I14$F#HL,14:PI,43,7,10,SX,I,ST:XY,VS,VS:RT,8,A$:ESST3:ESSTİ330:300:ES:d$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:G%'"Receipts","Issues","Returns","Adjustments","Standard Cost Adjustments" 7000 5000:5100\2SB,EX,"Order Recommendations",EX,"Exception Reports",HD$d1:80,N:XC,LV,HD$:2700:ES200n2500:N0 xES,E$:330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,HL:YN,N,"Print report as shown above",N:330:N0ĴEX1200,100@ NįES:2000:N1:GT,120ES10J 3000P ] 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:V @330:"Enter "PB$(PB)" (1-99): ";:XY,H:DFĺDF;:GO,Hx 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$ `q 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ıH vUC,A$:(A$,1)"?"İ9000:ES370c xA$""A$(S8$A$,8) z350:GO,H,24:OS,8,A$: 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:C CPEP24::470 XC,LV:16:WB,32,3," Please Wait ":OP,101:18:OP,86:ES,100:OLLP:EPOL6:PW,PS UC,HU$:PN0:PF1:700 900:CPİ650:PW,0:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:&PF570R0CPLNLN2:SP$:"***** LISTING CANCELLED....."k2AC$"cancelled":500w:PO:50X630:TFLNL1:NLĭLNNLEPLNLNNL:b900:CPĢ24:OP,130:WS,A$:A$ES$570l650:700:NL600nv(KB)SBĹKS,0:(KB)(ES$)550'CPė:8FFĺ(FF):OLLLNOL:SP$::PNPN1:LN8:OC,3,PN:OC,HU$:H1$""įOC,H1$:LNLN1H2$""įOC,H2$:LNLN1H3$""įOC,H3$:LNLN1L1LN:SP$:800:900 32)"PG "T1$:" Part # Description BL "T2$:u"======== ====================== == ======== ======== ======== ======== ========":SF1100XC,LV:15:WB,40,5," Please Wait ":OP,"Reading parts list (in reverse order)":GO,30,17:"Part Number:":19:OP,86:ES,100CL(0)0:FL,0,99,L:IS,F,QX,P2$,RN:RN0įIS,N,QX,PN$,RNx630:IS,P,QX,PN$,RN:RN0PN$P1$S11:S20:$GO,43,17:OS,8,PN$:1500:1600:LPG%(SF):L99OK1050.BW,QI,RN,#TL,A@PG%:3,3L(L):L(L)RN:1050 LIS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RNV SF1400KIS,N,QX,PN$,RN:EFRN0PN$P2$:EFıg1500:PN$PS$(1)5300w(1600:OKı21300xS2RNS2:1500:S2SL:S1S11:EFS199:EFıS2L(S1):1400BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,#OH,#OO,#OP,#MQ,#XL:-@OK0:PGĭPGPG%(1)ıCJBLĭBLPG%(2)ıVTGT,164010RGhrOKOPOHOO:||OKOHXLXL0:OKOH((HULW)OPHUC1):SH0:V13:392:330:"Include which parts? ";:HL,2:KW,AS$(0),AS$(1),2AF,N:390:ESN0:ESı$AFN1:AFP1$"":P2$"":2080L330:N1:DF$P1$:HL3:370:ES2000WP1$A$z 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:ES2100/pBLN:2630ONSPG0BL0: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)2N02150SSFN1:2640:SFWG0:2300330:HL,13:YN,WG,"Do you want to start new page for each "PB$(SF),N:N02200WGN:2640400:ESįGT,220050NS 2650O GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": 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:PF0e( 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" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";%P GO,44,19:PGBLįOS,32,"n/a":SF0:WG0:2650fR YN$(SF0);:SFĺ", by "PB$(SF)12WG):WGĺ" (New Page) "uT SFĺ30)Z GO,50,21:OS,8,SP$(CP): EXES0:HL92:RG1:RS,11,E$:HU$(HD$,1):5 OP$(1)"Print Overstock Report":I14:OP$(I1)"Print Low Stock Report, "(LS(I))"% above Order Point":p N1:XC,LV:HL,90:MS,LV,5,2,OP$,1,1,1,N:ESN0:ESı RG2(N1):RG3LWLS(N1) SB,RG2,"Overstock Report",RG3,"Low Stock Report",HU$:XC,LV,HU$:HL91:E$HD$: AFH2$"":P1$"":P2$(255):3100R H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)x H3$"":PGH3$PB$(1)" # "(PG)& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL)  H1$"":RG3H1$"On Hand Quantity Within "(LW)"% of Order Point" SB,RG1,"OrderPt/ On Hand/ Required Last Extended",RG2,"MaxStock On Hand/ Over- Last OvrStock",RG3,"OrderPt/ Unit On Hand",T1$V SB,RG1,"MinOrder On Order Quantity Cost Cost",RG2,"Order Pt On Order Stock Cost Cost",RG3,"MinOrder On Order On Hand Cost Value",T2$LS1:RT0:GT0:SD,39,CP:1000:4501200:EF4400SF4100PG%(SF)LS41004700:WGĭLS0ĭLNL1NL0:600'LSPG%(SF):CPLSNL4:600:SP$:"***** "PB$(SF)" # "LS:SP$:LNLN1^I12:PG$(I)"":PG%(I)PG$(I)(SP$(PG%(I)),2)dCPC(2):Q2OH:GS,420010RG:V(CQHUC1)NL3:600:LNLNTF:TFĺSP$ 6PL,S9,PS$(1),S23,PS$(2),S2,PG$(1),D8,Q1,3,9,D8,Q2,3,9,D8,Q,3,9,D40,C,4,9,D8,V,3,9?@PU,B32,S2,PG$(2),D8,Q3,3,9:RG3įOD,8,OO,3,9fJ:LGPG%(SF):GTGTV:RTRTV:4050rQOPOHOO:QMQQMQtQ1OP:Q3MQ:|QOHXL:Q1XL:Q3OP:CPC(1):Q2OO:QOH:421204700:TRT:P$"REPORT TOTAL":4600 bAC$"complete":500:570C NL2:600:PL,B67(P$),LP$,L":",D8,T,1,11:SP$: \SFĭLS0TGT:P$PB$(SF)" TOTAL":UC,P$:QF1:4600:GT0 f NL1:600:TFįPL,BSS,S9,PS$(1),S61,PS$(2),L"Con't":NL1:600  $NL1:600:NLNLTF:TFĺSP$ . !ES$(27):SP$" "s!LV4:HU100:SB128:C1.5:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None"!RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP:RD,10,N:EXN1"OP$(5),PG%(3),PG$(2),PS$(4),PC(5),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),L(99),LS(4)"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$(O)"Report":PB$(1)"Product Group":PB$(2)"Bin/Location""I14:LS(I):"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,0M#ER,107:200U#XPXm#(#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:VSVS18$>#R0ISXV$@#: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:9030H%#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:p%$IS,P,QX,A$,R:%'10,25,50,100 7000V 5000:5100:NPįER,"NO PARTS ON FILE IN THE INVENTORY SYSTEM":200sNS(NP10):NS10NS10NS3NS3:NSNPNSNPN1NS12d1:80,N:XC,LV,HD$:2500:N0> n330:GO,55:"(Enter No to make changes";:2039,169:GO,1:HL,91:YN,N,"Print report as shown above",N:330:N0200b xES:Nİ2000:N1:GT,110ES10l 3000r  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:x @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:SH0F ` 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$:H41N12D tGO,H:S8:360:ESıj vUC,A$:(A$,1)"?"İ9000:ES370 xA$""A$(S8$A$,8) z350:GO,H,24:OS,8,A$: |PU,B10,S38,YD$(I)DO$:II1: ~PU,B10,S38,MD$(I)DO$: GO,14,13:CW,4,9: 390:GO,14,V:"--->":c V20:392:330:OP,102:HL,12:KW,SP$(0),SP$(1),CP1,N:390:ESN0:ESı PSN2įER,70:CP0:400 CPN2: CPEP24::470XC,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=CPİ650:PW,0:z24:OP,"Listing "AC$" -- press [SPACE BAR]":WS:1:&PF5700CPLNLN2:SP$:"***** LISTING CANCELLED....."2AC$"cancelled":500:PO:50 X630:TFLNL1:NLĭLNNLEPLNLNNL:6bCPĢ24:OP,130:WS,A$:A$ES$570Ll650:700:NL600Rnyv(KB)SBĹKS,0:(KB)(ES$)550CPė:FFĺ(FF):LLLNOL:SP$::PNPN1:LN4:OC,3,PN:OC,HU$:H2$""įOC,H2$:LNLN1 H3$""įOC,H3$:LNLN1L1LN:SP$:TP0:ED0:AV0:AY0:FL,0,11,YD:MD(0)0:FL,0,8,MD:FL,0,N1,VV:FL,0,N1,VL:FL,0,N1,CV:FL,0,N1,CL:FL,0,N1,PV:FL,0,N1,PL:FL,XL,N1,HV:FL,0,N1,HL:FL,ML,N1,LV:FL,0,N1,LL:FL,0,N1,OV:FL,0,N1,OLbXC,LV:15:WB,32,5," Please Wait ":OP,"Reading Inventory parts list":GO,30,17:"Part Number:":19:OP,86:ES,1001700:EDVL(N1)0:CL(N1)0:PL(N1)0:LL(N1)0:HL(N1)0:OL(N1)0:MD(2)MD(2):MD(4)MD(1)MD(2)MD(3):MD(5)YD(1):MD(0)MD(5)MD(4):OK1020rTPTP1:1550:YD(1)YD(1)VC:YD(8)YD(8)Q(11):YD(9)YD(9)Q(10):YD(11)YD(11)OV:AVAVIC(OHQ(6))2:AYAYICQ(8)I13:YD(2I)YD(2I)(PC(I2)OHHUC1):VVC:VVV(NS)VV(N1)V:VL(N1)RN:SR,VV,VL,N1VQ(11):VCV(NS)CV(N1)V:CL(N1)RN:SR,CV,CL,N1EVQ(10):VPV(NS)PV(N1)V:PL(N1)RN:SR,PV,PL,N1SIP1070$V(IPIC)IPHU:VLV(NS)LV(N1)V:LL(N1)RN:SR,LV,LL,N1&VV:VHV(NS)HV(N1)V:HL(N1)RN:SR,HV,HL,N1.VOV:VOV(NS)OV(N1)V:OL(N1)RN:SR,OV,OL,N1LTL1020GVBR,QT,TL,#TL,@R%,@T%,A#Q:6,3LD,3LQ,$A$,@PM%:PM%T%991100``Q(Q(1)Q(4)HUC1)}jT%MD(1)MD(1)Q:1100lT%40MD(3)MD(3)Q:1100tS12(T%20):MD(2)MD(2)SQ:MD(6)MD(6)SQ:MD(7)MD(7)(Q(1)Q(5)HUC1):1100-BR,QI,RN,#TL,A@PG%:3,3SL,3LQ,A$PS$:4,A#PC:5,A#Q:11:ICPC(1):LCPC(2):IPPC(3):OHQ(1):OOQ(2):VC(ICOHHUC1):VP(IPOHHUC1):OV(LCOOHUC1):@OK0:PGĭPGPG%(1)ıJBLĭBLPG%(2)ıTOK1:630:IS,N,QX,PN$,RN:RN0PN$P2$ED1:1500:PN$PS$(1)53009GO,43,17:OS,8,PN$:1600SH0: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:ES2050&P2$A$:AF0KP2$SP$ĭP2$P1$P2$P1$:P1$A$U 26004V17:392:HL5:DFPG:PB1:310:ES2000>PGN:2620fV18:392:HL7:DFBL:PB2:310:ES2100pBLN:2630400:ES21502640W GO,19,13:"Range of parts to be included:":GO,28:"Starting part number:":GO,30:"Ending part number:": GO,19:PB$(1)" to be included:":GO,19:PB$(2)" to be included :"::GO,19:"Produce report on what device:" AF1:P1$"":P2$"":PG0:BL0:RD,39,CP:PF0@( GO,50,13:OS,10,AS$(AF)::AFāI12:GO,50:PL,S8,"n/a"::2620h2 GO,50:PL,S8,P1$:GO,50:PL,S8,P2$< GO,49,17:AL$(PG0)15PG):PGĺ", # "PG" ";F GO,49,18:AL$(BL0)15BL):BLĺ", # "BL" ";P GO,50,20:OS,8,SP$(CP): AFH2$"":P1$"":P2$(255):3100W H2$"(Part Numbers: "P1$" thru "P2$")":P2$SP$P2$(255)} H3$"":PGH3$PB$(1)" # "(PG)& BL32000 H3$""H3$H3$" / ": H3$H3$PB$(2)" # "(BL) IS,F,QX,P1$,RN:RN0įIS,P,QX,PN$,RNSD,39,CP:1000:450_NL13:P$"":4700:I01:I1:4800:N13:4800:4810::I0I:4800:4800:4810:4800TU0:AVTUYCAYAV:TU0TU0380:PL,D8,TUHU,4,8:380:TU.01ĺ" n/a":4050PL,D8,HU365TU,1,8NL13:P$"Month-to-Date ":4700I07:4850:I0I4I5ĺSP$7I3ĺ49)"------------"\:CMD(6):PMD(7):I8:382:4820jTP4600FD,0,11,VL,N:NN1:N4200RT1:4750:I1N:RNVL(I):1500:1550:4900:PL,D8,OH,2,10,D40,IC,2,11,D8,VC,1,11:hFD,0,11,CL,N:NN1:N4250erRT2:4750:I1N:RNCL(I):1500:1550:4900:PL,D8,Q(8),2,10,D40,IC,2,11,D8,Q(11),1,11:FD,0,11,PL,N:NN1:N4300RT3:4750:I1N:RNCL(I):1500:1550:4900:PL,D8,Q(8),2,10,D40,IC,2,11,D8,Q(10),1,11:FD,0,11,HL,N:NN1:N4400kRT4:4750:I1N:RNHL(I):1500:1550:4900:PL,D8,HV(I)HU,2,9,L"%",D40,IC,2,11,D8,VC,1,11:0FD,0,11,LL,N:NN1:N4500:RT5:4750:I1N:RNLL(I):1500:1550:4900:PL,D8,LV(I)HU,2,9,L"%",D40,IC,2,11,D8,VC,1,11:FD,0,11,OL,N:NN1:N4600kRT6:4750:I1N:RNOL(I):1500:1550:4900:PL,D8,OO,2,10,D40,LC,2,11,D8,OV,1,11:AC$"complete":500:570\NLNL5:4790:I13X:SP$::" "P$"Inventory Summary":SP$: NL8N:4790:I13X:SP$::" Inventory Highlight, based on "RT$(RT):SP$X PL,B44,LT1$(RT):PL,B3,S41,T2$,LT2$(RT):PL,B3,LT3$:q X2CP:NLNLX:600 380:PL,D6,YD(I1): 380:PYD(I2):CYD(I0) Pĺ9)"n/a": PL,B2,D8,(PC)PTT,1,11,L"%": 382:PL,D6,MD(I):"!$PU,B3,S9,PS$(1),S23,PS$(2),S2,PS$(4)A!.J12:PG%(J)ĺ3):4920R!0OI,3,PG%(J)Z!8:`!%"ES$(27):SP$" ":T2$" Part # Description UM PG BL ":T3$"======== ====================== == == == ========= ========== ==========":DO$".........................................""LV4:HU100:TT1E4:IX1E20:ML101:C1.5:SB128:KB16384:KS16368:Q$"=":S8$" ":Z$"ZZZZZZZZ":NO$"None":HD$"Inventory Flash Report""RS,0,TD$:RS,2,FC$:RD,1,PS:RD,2,FF:RD,3,LP&#A$"0101"(TD$,2):DT,A$,N:DT,TD$,YC:YC365(YC1N)v#PG%(3),PS$(4),PC(5),Q(11),YN$(1),AL$(1),AS$(1),SP$(1),PB$(2),PL$(3),PA(24) $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"$N11:YD(11),YD$(13),MD(8),MD$(8),VV(N),VL(N),CV(N),CL(N),PV(N),PL(N),HV(N),HL(N),LV(N),LL(N),OV(N),OL(N),RT$(6),T1$(6),T2$(6):I16:RT$(I),T1$(I),T2$(I):I5T1$(5)T1$(4):T2$(5)T2$(4)$%I113:YD$(I)::I08:MD$(I):%FC:%FO,14,QX:IS,O,QX,NK,ND:FO,15,QI:BR,QI,0,#NP,#RB,#LR,#AV,#CM,#N,#N,#N,A#PA:24,A$PL$:3:LFCM2:FO,16,QT&I13:N2I:SB,1,"On Hand Value at Price #"(64I),PL$(I)SP$," ("PL$(I)")",YD$(N):YD$(N1)" Average Margin"::1&RB1:BW,QI,0,#NP,#RB:KP:CPPFįPW,0C&ER,107:200K&XPXc&(#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.'>#R0ISXL'@#: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$:R(T$IS,N,QX,A$,R:f($IS,P,QX,A$,R:('"On-Hand Value"," Current Stock"," On Hand Unit Cost Value"")'"Year-to-Date Cost of Goods Sold"," YTD Current YTD"," Issues Unit Cost COGS $'s"|)$'"Year-to-Date Sales"," YTD Current YTD"," Issues Unit Cost Sales $'s").'"High Margin (using Price A)"," Current Stock"," Margin % Unit Cost Value"*8'"Low Margin (using Price A)",,Y*B'"On-Order Value"," Last Order"," On Order Cost Value"+*"On Hand Value at Cost",,,,,,,"Y-T-D Cost of Goods Sold $'s","Y-T-D Sales $'s","Actual Margin","On Order Value","Inventory Turns per Year","Number of Days per Turn"+."Beginning On Hand Value"," Receipts"," Issues"," Adjustments"," Change in Inventory","Ending On Hand Value","M-T-D Cost of Goods Sold $'s","M-T-D Sales $'s","Actual Margin"qY = % ? v^!mLD}fK3" !"#$r%5&''()*m+K,1,-./0|1X2433456[7,889:;fd?S@4ABBCCDEOEFqFGHIJnKCL1M MNOVPDQQRSCTT TUVWxXdYYZ[\u]V^3_!NThe system will use the date you enter here as today's dateThis date is printed on reports, statements, invoices, etcIt is also used for posting and to determine aging. To leavthe current date unchanged, just press [RETURN] or [ESC]The system is warning you that the date you have entered ifar in the future. This is to prevent you from accidentallentering the wrong date or posting to a month that is morthan one year away. If you want to accept the date, enter YIf you want to leave The BusinessWorks System, enter YOtherwise, enter N (or use [ESC]). If you elect to exit thsystem, you will be shown the Exit Menu, from which yocan select the next application or program you want to useTo confirm your request to leave the Inventory Control SETUmode you must enter OK. Once you leave the SETUP mode yocannot enter it again. Please be certain you have completeall your inventory initialization before leaving SETUP mode"To create your Inventory Control data files (i.e., partstransaction file, etc.), select option 1. To rebuild youInventory data files when file errors are suspected, selecoption 2. Use [ESC] to return to the Inventory Menu"This option is used to create the data files used by thInventory Control System. You should read the message oyour display screen regarding the possible consequences tany existing data files. To continue the creation, enter YThe four available inventory costing methods are listed oyour screen. Type a number (from 1 to 4) or use the arrowto select the appropriate costing method. The system wilthen display a short description of the method you selectedA brief description of the costing method you've selected idisplayed on your screen. You must now confirm your costinmethod selection. If you've selected the correct costinmethod, enter the word CREATE. Otherwise, use [ESC]#The Inventory Control rebuild is used to correct errors thamay exist in the inventory data (e.g., due to hardwarerrors, power failures, etc.). If you want to rebuild youInventory Control data, enter Y. Otherwise, enter NEnter the part number (1 to 8 characters) for the part yowant to add, edit, or examine. To get the next or previoupart, enter N or P. Use ? to see a list of parts. To returto the Parts Menu, just press [RETURN] (or use [ESC])Enter the description of the part that you are adding oediting. The description may be up to 22 characters ilengthEnter the number or code (12 characters maximum) that thmanufacturer uses to identify this part. This informatiois only used when printing purchase ordersEnter a code that describes this item's unit of measure (characters maximum). For example, EA for each, DZ for dozenBX for box, etcEnter a number (1 to 99) that can be used to group similaproducts together (e.g., group 10 in the sample data is usefor bicycle accesories). To help analyze your inventoryall reports can sort information by product groupEnter a number (from 1 to 99) that can be used to identifthe location of this part (e.g., bin number, warehouse codeetc.). To help in analyzing your inventory, all inventorreports can sort information by locationEnter the cost of goods sold account number (1-16) that inormally debited when this item is sold (i.e. issued). Use to see a list of your accounts. When entering transactionsyou may override this selection and use any of the accountsEnter the quantity you have in stock of this part. Uscaution when entering the initial quantity because once yohave accepted the information, you cannot edit the quantityFrom now on the system will track your on-hand quantityEnter the quantity currently on order for this part. Thinumber should reflect only that quantity ordered but not yereceived. From now on the system will track your on-ordequantity for youEnter the minimum quantity of this part you want on handWhen the on-hand quantity plus any on-order quantity fallbelow this level, the part will be listed in the InventorOrder Recommendations ReportEnter the minimum number of units that may be ordered at ontime. This information is used during purchase ordering tinsure that you correctly follow vendor instructions abouorder quantitiesEnter the maximum quantity of this part that you want ohand. When the current on-hand quantity exceeds this levelthis inventory part will be included in the InventorException ReportEnter the date of the last receipt for this part. If thidate is not known, just press [RETURN]. From now on thInventory Control System will keep this information for youEnter the date of the last time this part was sold (i.e.issued from inventory). If this date is not known, juspress [RETURN]. From now on the Inventory Control Systewill keep this information for youEnter the date of the last time this part was ordered. Ithis date is not known, just press [RETURN]. From now othe Inventory Control System will keep this information foyouEnter the quantity of this part received so far this yearFrom now on the Inventory Control System will keep track othe total number of items received during the yearEnter the quantity of this part sold this year. From now othe Inventory Control System will keep track of the quantitsold (issued) during the yearEnter the total adjustments you have made this year treconcile your on-hand quantity with the quantity you shoulhave had according to your books (i.e., results of physicainventory)Enter the total dollar amount you have received for sales othis part this year. From now on the Inventory ControlSystem will keep track of this amount for youEnter the total dollar amount paid (i.e. your cost of goodsfor sales of this part this year. From now on the InventorControl System will keep track of this amount for youThe part number you have entered is not currently on file ithe Inventory Control System. If you want to add this parnumber, then enter Y. Otherwise, enter N (or use [ESC])Enter the standard amount you charge customers for this parYou can enter the price using three places after the decima(1.255, 0.005, etc.). When you first enter a part, thiprice will be used to determine the level B and C pricesEnter the second level amount you charge customers for thipart. You can enter the price using three places after thdecimal (1.255, 0.005, etc.). When you first enter a partthe price factor and level A price will set this priceEnter the third level amount you charge customers for thipart. You can enter the price using three places after thdecimal (1.255, 0.005, etc.). When you first enter a partthe price factor and level A price will set this priceEnter the standard cost of this item. All inventory transactions will use this cost. Any difference between thistandard cost and the actual cost paid will be posted as variance. You may use three places after the decimalEnter the average cost for this part. This cost should bthe average cost for the quantity you entered as the initiaon-hand quantity. You may enter the cost using three placeafter the decimal (for example, 1.255, 0.005, etc.)When using LIFO costing, inventory transactions are costeusing the actual cost paid for an inventory item. Enter thactual cost per unit paid for the current on-hand quantityYou may use 3 places after the decimal (for example, 1.255)When using FIFO costing, inventory transactions are costeusing the actual cost paid for an inventory item. Enter thactual cost per unit paid for the current on-hand quantityYou may use 3 places after the decimal (for example, 1.255)Enter the new part number that you want to assign to thipart. This new part number must not currently be assigneto any other part in the Inventory Control System. Use ? tsee a list of your parts To view the status of any part in your inventory, enter thpart number. To see the status of the next or previous partenter N or P. Use ? to see a list of parts. To return tthe Parts Menu, just press [RETURN] (or use [ESC])To modify any of the displayed information for this partenter E. To change the part number assigned to this partenter R. When you have finished changing or reviewing thipart, enter A (or use [ESC]). This part CANNOT be deletedTo change any of the displayed information for this partenter E. To change the part number assigned to this partenter R. To remove this part from your inventory, enter DWhen you've finished with this part, enter A (or use [ESC])This option is used to record receipts and issues of itemsand adjustments of on-hand & on-order quantities. To enter transaction, enter the part number. Use ? to see a list oparts. To return to the Inventory Menu, just press [RETURN]Enter the number of units of this part you received. Yowill be warned if you attempt to receive more units than arcurrently on order. The number of units will be added tthe on-hand quantity, which cannot exceed 999,999.99 unitsEnter the number of units of this part that you have issuedYou cannot issue more units than you currently have on handThe number of units issued will be subtracted from your onhand quantityEnter the number of units of this part that were returnedThe number of units returned will be added to your on-hanquantity, which cannot exceed 999,999.99 units. Use returtransactions to undo or correct prior issues (or sales)Enter the number of units that should be added to or subtracted from the on-hand quantity. To increase the on-hanquantity, enter a positive number. Entering a negativnumber (e.g., -5) will decrease the on-hand quantityEnter the number of units that should be added to or subtracted from the on-order quantity. To increase the on-ordequantity, enter a positive number. Entering a negativnumber (e.g., -5) will decrease the on-order quantityYou have entered a receipt quantity that exceeds the numbeof units currently on order. If the receipt quantity icorrect, enter Y. If the receipt quantity is incorrect anyou want to change it, enter NIf desired, enter a transaction reference number or remar(12 characters maximum) that will remind you of the reasofor this transaction. For example, use the purchase ordenumber when recording receiptsEnter the actual per unit cost of the items being added. Thstandard cost of this part is displayed and may be used bjust pressing [RETURN]. Any difference between the actuaand standard cost will be posted to the variance accountEnter the actual cost per unit of the items being addedThe current average cost for this part is displayed anmay be used by just pressing [RETURN]. If a different cosis entered, a new average cost will be calculatedEnter the actual cost per unit of the items being addedThe last cost paid for this part is displayed and may bused by just pressing [RETURN]. When issued, these itemwill be removed from inventory at the actual per unit costEnter the cost of goods sold account number (1 to 16) thashould be used for these items. To use the account numbethat was specified when this part was added to inventoryjust press [RETURN]Enter the cost of goods sold account number (1 to 16) thashould be used for these items. To use the account numbethat was specified when this part was added to inventoryjust press [RETURN]. Use ? to see a list of accountsEnter the last amount you paid for this part. This cosshould not be confused with the current unit cost of thpart. The last cost paid is used by the Purchase Ordeoption to determine the estimated cost of your order The vendor ID you entered is not on file in the AccountPayable System. If this is the wrong vendor ID, enter N anthen reenter the ID. If the vendor ID is correct and yowant to use it for this purchase order, enter Y The part number you entered is not on file in the InventorSystem. If this is the wrong part number, enter N and thereenter the correct part number. If you want to include thinon standard part on this purchase order, enter YEnter the unit price you charged your customer for thipart. Unit price A is initially displayed and can baccepted by just pressing [RETURN]. You can select anof the unit prices for this part by entering A, B or CThis option is used to post the results of current montinventory transactions to the General Ledger. If you wanto post to the General Ledger now, enter Y. Otherwise, treturn to the Inventory Control Menu, enter NThis option is used to close the Inventory Control System athe end of each month. A current month Inventory TransactioRegister should already have been printed. Select thappropriate close option by entering 1 or 2Before the Inventory Control System is actually closed fothe current month you must confirm your request by enterinthe full word CLOSE. If you enter anything else, the closrequest will be cancelledThe system is warning you that you have not printed a fulaudit trail of inventory transactions for the current mont(i.e., Inventory Transaction Register). If you want tcontinue with the close, enter Y. Otherwise, enter N If you want to enter purchase order information, as showabove, enter Y. If you want to enter P/O's, but need tchange one or more of the displayed specifications, enter NUse [ESC] to return to the Purchase Ordering Menu To print the manufacturer's part numbers instead of youpart numbers on the purchase orders, enter Y. Otherwise, iyou want your part numbers to appear on the purchase ordersenter N To print the line item information (i.e., the parts beinordered) on the P/O without inserting a blank space betweeeach line, enter Y. To have a blank line between each linon the purchase orders, enter N To print a sample purchase order so that you can make surthat your forms are correctly positioned in the printerenter Y. You should continue printing alignment tests untiyou are satisfied that the forms are correctly positioned Enter the number (1 to 99999) of the next purchase order yowant to enter. To accept the next purchase order numbe(displayed on the prompt line), just press [RETURN]. Whenyou finished entering purchase orders, press [ESC] You are not using the BusinessWorks Accounts Payable Systemso no list of vendors in available. Enter an ID (from 1 t8 characters) to identify the vendor to whom you are sendinthis purchase order Enter the ID of the appropriate vendor. If you want to usa vendor that is not in your A/P System, just enter an Ithat is not on file (you will be prompted for the vendor'name and address.) Use ? to see a list of your vendors Enter name of the vendor (22 characters maximum) to whom yoare sending this purchase order. If a vendor name alreadappears, you may leave the name unchanged by just pressin[RETURN] Enter the address of the vendor to whom you are sending thipurchase order. Two lines are provided for vendor addres(22 characters maximum). Use the 2nd address line only iyou can't fit the entire address on the 1st line Enter the city and state portion of the vendor's addressEnter the full city name, a comma, and then the statabbreviation (for example, Roseville, CA) Enter the ZIP Code portion of the vendor's address. Techaracters are provided to handle the new expanded U.S. ZICodes and the codes from foreign countries The system automatically enters your company name as thship to name. If this information is not correct, enter threquired ship to name (24 characters maximum). To accepthe displayed ship to name, just press [RETURN] The system automatically enters your company address as thship to address. If this information is not correct, entethe required address. Two address lines are provided. Usthe 2nd line only if the entire address can't fit on 1 line The system has automatically entered the city and statportion of your company's address. If this information inot correct, enter the required city and state portion othe ship to address. Otherwise, just press [RETURN] The system has automatically entered the ZIP Code portion oyour company's address. If this information is not correctenter the required ZIP Code (10 characters maximum). If thdisplayed ZIP Code is correct, just press [RETURN] Enter the date you need the items you are ordering (useeither MMDDYY or MM/DD/YY format). To accept the currentldisplayed date, just press [RETURN]. If no date is currentldisplayed, just press [RETURN] to enter today's date Enter the name, initials, or code of the person placinthe order (8 characters maximum). To accept the currentldisplayed buyer code, just press [RETURN] If the items that you are ordering on this purchase ordeare subject to sales tax, enter Y. Otherwise, enter N The system is displaying a list of your payment terms on thdisplay screen. Use the Up- and Down arrow keys to highlighthe desired payment terms, then press [RETURN]. If no payment terms should appear on the P/O, select 'none' If you are paying the freight charges to ship the items froyour vendor to you, enter O (for Origin). If the vendor ipaying the freight, enter D (for Destination) Enter the method of shipment you prefer for the items beinpurchased (14 characters maximum). Some examples of shipment methods are: UPS, Best Way, Air Freight, etc Enter the method that will be used to pay the freighcharges for the items being ordered (12 characters maximum)Some examples are: COD, Bill Vendor, Prepaid, etc You may use this space to enter any special instructionor remarks concerning this purchase order (20 charactermaximum) Enter the name of the person in your company who should bcontacted regarding the items on this purchase order (1characters maximum)You may want to use the 'Show Parts List' feature to helselect a part number. To see a list starting with your firspart number, enter ?. To start the list at a specific parnumber, enter the part number ending with ?You may want to use the 'Show Vendor List' feature to helselect a vendor. To see a list starting with your firsvendor, enter ?. To start the list at a specific alphabetiposition, enter an ID ending with ? (example: ST?) If the displayed information about the purchase order headeis correct, enter A. If you want to change some of theinformation, enter E. If you want to erase what you haveentered and start again, enter R Enter the line number (1-11) corresponding to the purchasorder information you want to edit. Lines 1 & 2 are used tedit the entire vendor and/or ship to name and addressWhen you are finished editing, just press [RETURN] If the purchase order information is correct, enter A tpost the information and print the purchase order. To edione or more of the lines, enter E. To erase all of thline items and start over again, enter R To edit one of the line items you have previously enterefor this P/O, enter the line number. When you have finisheediting, just press [RETURN] (or use [ESC]). Since you haventered the maximum of 13 lines, no new lines can be added To edit one of the line items you have previously enterefor this purchase order, enter the line number. To add aadditional line to the purchase order, enter A. When yohave finished editing, just press [RETURN] To order an inventory part, enter the part number. To ordea non-inventory part, enter a part number that is not ofile. To include a comment, enter an exclamation point (!)Use ? to see a list of parts. When done, just press [RETURN To change the description of the inventory part that yoare ordering, enter the part description (30 charactermaximum). To leave the displayed description unchangedjust press [RETURN] You are ordering a part that is not of file in the InventorSystem. Enter the part description that is to appear on thpurchase order (30 characters maximum) You are entering a comment that is to appear on the purchasorder. Enter the comment text (30 characters maximum). Thcomment will be printed in the description column of thpurchase order and all other columns on the line left blank Enter the quantity (1-99999.99) of this part you want toorder. If you enter a quantity that is less than the minimuorder quantity, the system will display a warning messagand ask you to confirm the order quantity The quantity that you have entered is less than the minimuorder quantity for this part. If you actually want to ordethis quantity, enter Y. If the quantity is not correctenter N Enter the amount you'll pay per unit for this part. You caenter the cost using up to 3 digits following the decimapoint (e.g., 1.005). If you are ordering a part that is ofile, the last cost paid for the part will be displayed If the information on this line is correct, enter Y. Ithis information is wrong, enter N and then enter thinformation again The system has completed the posting and printing of thpurchase order. To reprint this purchase order (e.g., thprinter jammed, ran out of paper, etc.) press [ESC]. If nreprint is needed, press [SPACE BAR]#10If you would like to enter additional transactions for thselected inventory part, enter Y. If you are finished witthe selected part, enter N (or just press [RETURN])Use the Up- and Down arrow keys to go forward or backwarthrough your part numbers. Press [RETURN] to select thhighlighted part. Press [ESC] to return to normal keyboarinput, the 'Show Parts' window will remain on your screenUse the Up- and Down arrow keys to go forward and backwarthrough your list of vendors. Press [RETURN] to select thhighlighted vendor. Use [ESC] to return to normal keyboarinput, the 'Show Vendors' window will remain on your screenNo Inventory Control data (e.g., list of parts, transactiofile, etc.) has been created. This data must be createbefore you can use any of the Inventory Control Systeoptions. To create this data now, enter YAn error has been detected in your Inventory Control datfiles. You cannot use the Inventory System until this errohas been fixed. A data rebuild option is available to helrestore your data files. To use this option now, enter YIf you want to remain in the Inventory Control SETUP modeenter Y. If you want to leave the SETUP mode and beginormal Inventory Control processing, enter N"Inventory Control data files already exist for this companyIf you continue with the creation option, the existing datfiles and any information contained in them will be lost. Iyou want to continue, enter Y. Otherwise, enter N or [ESC]To confirm your request to delete this part from thInventory Control Ssytem, you must enter the word DELETEIf you enter anything else the delete request will bcancelledEnter the line number (1 to 23) corresponding to the parinformation you want to edit. Note that only those linnumbers that are highlighted can be edited. When you arfinished editing, just press [RETURN] (or use [ESC])You have changed the standard cost of an inventory part thahas one or more items on hand. By changing the standard cosof this part you are changing the value of your inventoryIf you want to accept this change in standard cost, enter YIf you want to accept the information regarding this neinventory part, enter Y. If you want to change any of thdisplayed information, change the part number or if you wanto remove this part from your inventory, enter NSelect the cost of goods sold account that is normally usewith this part. Type a number or use the Up- & Down arrowto select the appropriate account, then press [RETURN]. Us[ESC] to return to normal keyboard inputIf the transaction information you have entered is correcand you want to record the transaction, enter A. If you wanto change any of the information, enter E. To delete whayou've entered and start over again, enter R (or use [ESC])Select the cost of goods sold account that should be usefor these items. Type a number or use the Up- & Down arrowto select the appropriate account, then press [RETURN]. Us[ESC] to return to normal keyboard inputU5 v 8 $ hR9 mP1Y 8!'""#$%&z';(#))*^+$+,-d.../01Q223345*56789t:B;;<=>h?Q@3AABCDE}FcG1GHIJK~LZMCN.OPPQRSTT*UUVWX|YdZ8[[\NTo print a list of your part information, as shown aboveenter Y. If you want to print a Master Parts List, but neeto change one or more of the specifications, enter N. Treturn to the Parts Menu, press [ESC]If you want the report to include all   !"#$%&'()*of the parts in youinventory, enter A. Otherwise, to include only a portion oyour parts, enter S. You will then be prompted to enter thfirst and last part numbers to be includedEnter the part number for the part you want the report tbegin with. To begin the report with the first part in youInventory System, just press [RETURN]Enter the part number for the part you want the report tend with. To end the report with the last part in youInventory System, just press [RETURN]. All parts from thstarting to the ending part number will be includedIf you want the report to include parts from all producgroups, enter A. If you want the report to include onlparts from a specific product group, enter S. You will thebe prompted to enter the product group numberYou have selected to include only those parts from a singlproduct group in the report. Enter the desired product grounumber (1 to 99). Since you are including only one producgroup, the report CANNOT be sorted by product groupIf you want the report to include parts from all your binlocations, enter A. If you want the report to include onlparts from a specific bin/location, enter S. You will thebe prompted to enter the bin/location numberYou have selected to include only those parts from a singlbin/location in the report. Enter the desired bin/locationumber (1 to 99). Since you are including only one binlocation, the report CANNOT be sorted by bin/locationIf you want the parts listed in part number order on threport, enter N. If you want the report sorted so that partin the same product group are listed together, enter P. Iyou want the report sorted by bin/location, enter BIf you want parts listed in part number order on the reportenter N. If you want the report sorted so that parts in thsame product group are listed together, enter P. The optioto sort the report by bin/location is not availableIf you want parts listed in part number order on the reportenter N. If you want the report sorted so that parts in thsame bin/location are listed together, enter B. The optioto sort the report by product group is not availableIf you want the report generated on your display screenenter S. Otherwise, enter P to have the report printed oyour printer (make sure that your printer is turned on anthat it is on line).You have selected to have the report sorted by product grouor bin/location. If you want each product group (or binlocation) to start on a new page to allow the report to beasily separated or analyzed, enter Y. Otherwise, enter N0Use the Up- and Down arrow keys to go forward or backwarthrough your part numbers. Press [RETURN] to select thhighlighted part. Press [ESC] to return to normal keyboarinput, the 'Show Parts' window will remain on your screen*To print an inventory Stock Status Report, as shown aboveenter Y. If you want to print the Stock Status Report, buneed to change one or more of the specifications, enter NTo return to the Inventory Reports Menu, press [ESC]This option is used to print an inventory list that includeunit cost or price levels. Use the Up- & Down arrows or typa number to select the appropriate cost or price list, thepress [RETURN]. Use [ESC] to return to the Parts MenuTo print the selected inventory cost or price list, as showabove, enter Y. If you want to print the cost or price listbut need to change one or more of the specifications, enteN. To cancel the selected cost or price list, press [ESC]Select the inventory price level you want to edit by entering appropriate letter (A, B, or C) or using the Up- anDown arrow keys, then press [RETURN]. Use [ESC] to returto the Inventory Utilities MenuEnter the description (8 characters maximum) you want tassign to the selected price level. To leave the currendescription unchanged, just press [RETURN]. Examples oprice level descriptions are: 'Retail', 'Discount', etcEnter the price factor (or multiplier) to be used for thselected price level. When entering a new part into youinventory, the price for levels B and C will be determineby multiplying their price factor times the level A price To edit one of the displayed inventory Cost of Goods Solaccounts, enter the appropriate line number (1 to 16). Tedit ALL of the displayed Cost of Goods Sold accounts, enteA. To return to the Inventory Utilities Menu, use [ESC] Enter the account number of the desired COST OF GOODS SOLaccount from your General Ledger System. This account wilbe debited when items are removed from inventry (i.e. sold)Use ? to see a list of your General Ledger accounts The account number you entered and its description are displayed on your screen. If this is the correct account tassign to the Cost of Goods Sold entry, enter Y. If thiis not the correct account, enter N (or use [ESC]) Use the Up- and Down Arrow keys to go forward and backwarthrough your Chart of Accounts. Press [RETURN] to select thhighlighted account. Use [ESC] to return to normal keyboarinput, the 'Show Account' window will remain on the screen If you want to change your inventory price levels, as showabove, enter Y. If you want to change the price levels, buneed to change one or more of the specifications, enter NTo return to the Inventory Utilities Menu, press [ESC] If you want to change the price levels for all of the partin your inventory, enter A. Otherwise, to change the pricefor a portion of your parts, enter S. You will then bprompted for the first and last part numbers to be included Enter the part number for the part you want to change thprices levels for. To begin the report with the first parin your Inventory System, just press [RETURN] Enter the part number for the last part you want to changthe prices for. To end with the last part in your InventorSystem, just press [RETURN]. All parts from the startinpart number to the ending part number will be included If you want to change the price levels for parts from alproduct groups, enter A. If you want to change the pricefor parts from a specific product group, enter S. You wilthen be prompted to enter the product group number You have selected to change the price levels for parts in specific product group. Enter the desired product grounumber (from 1 to 99). Only parts in the selected producgroup will be included in the global price change If you want to change the price levels for parts from albin/locations, enter A. If you want to change the pricefor parts from a specific bin/location group, enter S. Yowill then be prompted to enter the bin/location number You have selected to change the price levels for parts in specific bin/location. Enter the desired bin/location numbe(from 1 to 99). Only parts in the selected bin/location wilbe included in the global price change If you do not want to change the prices in this price levelenter N. If you want to make a percentage change to thiprice level (e.g., increase it 10%), enter P. If you want tadjust the price level by a fixed dollar amount, enter D Enter the percentage amount you want to increase or decreasthe prices in this price level. For example, enter 50 tincrease your price 50%; enter -10 to decrease the price10% Enter the dollar amount you want to increase or decrease althe prices in this price level. For example, enter 1.50 tincrease your prices by $1.50; enter -.75 to decrease althe prices 75 centsTo print a Physical Inventory Worksheet, as shown aboveenter Y. If you want to print the worksheet, but need tchange one or more of the specifications, enter N. TTo return to the Physical Inventory Menu, press [ESC]To have current on-hand quantity (i.e., the book quantityfor each part listed on the worksheet, enter Y. Otherwiseenter N. Sometimes a physical count is more accurate if thpeople doing the count don't know the current book quantity0Use the Up- & Down arrows or type a number to select thprices levels (either all levels or a specific price levelto be included in the Margin Analysis Report, then pres[RETURN]. Use [ESC] to return to the Inventory Reports Menu0To print the selected inventory margin analysis report, ashown above, enter Y. If you want to print the report, buneed to change one or more of the specifications, enter NTo cancel the selected margin analysis report, press [ESC]4Use the Up- & Down arrows or type a number to select eithea monthly or daily Inventory Detail Report (i.e., a listinof inventory transactions, sorted by part number), thepress [RETURN]. Use [ESC] to return to the Reports Menu4To print the selected Inventory Detail Report (monthly odaily), as shown above, enter Y. If you want to print threport, but need to change some of the specifications, enteN. To cancel the selected detail report, press [ESC],To print an Inventory On Hand Detail Report, as shown aboveenter Y. If you want to print the report, but need to changone or more of the specifications, enter N. To return tthe Inventory Reports Menu, press [ESC]$To create a new AppleWorks conversion outline, select th'Define a New Outline' option. To edit or delete an existinoutline, select the appropriate outline. Use [ESC] to returto the Convert to AppleWorks Menu%You currently do not have any Appleworks coversion outlinedefined. To create a new a outline, select the 'Define New Outline' option. Use [ESC] to return to the Convert tAppleWorks Menu%You have already defined the maximum number of AppleWorkoutlines (a maximum of 8 outlines is permitted). To edit odelete an existing outline, select the appropriate outlineUse [ESC] to return to the Convert to AppleWorks Menu%Enter the name you want to assign to the new AppleWorkoutline (16 characters maximum). Try to assign each outlina unique name that will easily remind you of the conversiobeing performed (for example 'Full Parts List')&To change any of the displayed information regarding thioutline, enter E. To delete this outline, enter D. Wheyou have finished editing or examining this outline, enter (or use [ESC]) To confirm the delete request, you must enter the full worDELETE followed by [RETURN]. If you enter anything elsethe delete request will be cancelled%To include all of your parts, enter A. To include only portion of your parts, enter S (you will then be prompteto enter the first and last part numbers to be included ithe conversion outline)%To specify the range of parts to be included in the filenter the part number of the first part to be included. Tbegin with the very first part in your Inventory Systemjust press [RETURN]%Enter the part number for the last part you want to includin the AppleWorks file. To end the with the very last parin your Inventory System, just press [RETURN]%If you want to include parts in all product groups and binlocations, enter N. If you want to select parts from aspecific product group, enter P. If you want to selecparts from a specific bin/location, enter B%You have selected to include only those parts from a singlproduct group in the AppleWorks file conversion outlineEnter the desired product group number (from 1 to 99)%You have selected to include only those parts from a singlbin/location in the AppleWorks file conversion outlineEnter the desired bin/location number (from 1 to 99)#5&Define what information you want to include for each of thselected parts (i.e., information to appear in spreadsheecolumns) by entering the item number (1-12). When you havfinished selecting the information, just press [RETURN]&Use the Up- and Down Arrows to highlight the type of parinformation to appear in the selected item (i.e., data bascategory or spreadsheet column). When you have highlightethe desired part information type, press [RETURN]&If you want to accept the information regarding this neAppleWorks file conversion outline, enter Y. If you want tchange any of the information or if you want to delete thioutline, enter N&Use the Up- and Down Arrow keys to highlight the outline yowant to use to create the AppleWorks spreadsheet or datbase file. When you have highlighted the desired outlinepress [RETURN]. Use [ESC] to cancel this option&The outline you selected (or the one outline you've definedis displayed on your screen. If this is the correct outlinand you want to create the AppleWorks file using this outline, enter Y. Otherwise, enter N (or use [ESC])2You have selected to include only those parts from a singlproduct group in the ABC Analysis Report. Enter the desireproduct group number (from 1 to 99)2To print an Inventory ABC Analysis Report, as shown aboveenter Y. If you want to print the report, but need to changone or more of the specifications, enter N. To return tthe Inventory Reports Menu, press [ESC]2You have selected to include only those parts from a singlbin/location in the ABC Analysis Report. Enter the desirebin/location number (from 1 to 99)&If you want the AppleWorks spreadsheet file to includheadings for the data columns you have selected, enter YIf you want the file to be created without column headingsenter N&If you want to create the AppleWorks file on a disk insertein your standard disk drive, enter S. If you want to creatthe AppleWorks file on a specified directory pathname (i.e.when using a hard disk drive), enter P'Load a ProDOS formatted diskette into your disk drive anpress [SPACE BAR] when ready. If you don't want to creatthe file on a floppy, press [ESC]. (An option is availablin the System Utilties Menu to format a blank disk.'Enter the pathname of the directory (usually a directory oyour hard disk) where you want to create the file. If yoenter a pathname that doesn't begin with a slash (/), thethe directory name will be appended to the current prefix'Enter the name you want to assign to the AppleWorks fileThe file name must be a valid ProDOS file name. The filwill be created with this name on the directory or floppdisk you selected. Use ? to see a list of AppleWorks files'A file already exists with the name you have selected. Iyou want to delete the existing file and create a new filwith this name, enter Y. If you want to change the filname you have selected, enter N'If you are satisfied with all the information you haventered regarding the AppleWorks spreadsheet file, enter and the system will create the file. Otherwise, enter N tstart over again(If you are satisfied with all the information you haventered regarding the AppleWorks data base file, enter and the system will create the file. Otherwise, enter N tstart over againThe system is displaying a message about the proper setufor entering your physical inventory results. If you wanto continue with this option and enter the results of youcount, enter Y. Otherwise, to cancel the option, enter NIf you want to enter your physical inventory results, ashown above, enter Y. If you want to enter the results, buneed to change one or more of the specifications, enter NUse [ESC] to return to the Physical Inventory MenuIf the number of units found on hand differs from the booquantity, enter the new quantity. If the quantity is thsame as the book quantity, just press [RETURN]. If you wanto stop updating inventory quantities, enter QIf the number displayed as the physical quantity is correctenter Y. If this quantity is not correct, enter N (or us[ESC]). The number displayed as the variance quantity ithe between the physical quantity and the book quantityThe difference between the physical quantity and the booquantity is greater than 10% of the current on hand. Tinsure the accuracy of your inventory, you must confirm thnew quantity. If this quantity is correct, enter YThe cost (based on the last cost paid for the part) of thquantity difference is greater than $50.00. To insure thaccuracy of your inventory information, you must confirm thnew quantity. If this quantity is correct, enter Y.To print an Inventory Performance Report, as shown aboveenter Y. If you want to print the report, but need to changone or more of the specifications, enter N. To return tthe Inventory Reports Menu, press [ESC]6Use the Up- and Down arrows or type a number to select thtype of inventory register (i.e., monthly or daily and thtype of transactions to be included), then press [RETURN]Use [ESC] to return to the Inventory Reports Menu6To print the selected Inventory Transaction Register, ashown above, enter Y. If you want to print the register, buneed to change one or more of the specifications, enter NTo cancel the selected transaction register, press [ESC] To view the status of a P/O on file in the inventory systementer the P/O number. To view the next or previous P/Oenter N or P. Use ? to see a list of P/O's. To return tthe Purchase Order Menu, just press [RETURN] (or use [ES]) You may want to use the 'Show Purchase Order List' featureto help select a P/O. To see a list starting with the firsP/O, enter ?. To start the list at a specific P/O numberenter the P/O number ending with ?If you are just viewing the status of this P/O and do nowant to cancel any part of it, enter N (or use [ESC]). Iyou want to cancel the entire P/O or cancel all or a portioof the quantity ordered for a specific part, enter YIf you want to cancel the entire purchase order, enter Y(Parts cannot be received for a cancelled purchase order.If you want to cancel all or a portion of the order quantitfor a specific part, enter SYou have requested that the entire purchase order be cancelled. You must confirm your request by typing the worCANCEL. If you enter anything else, the cancel request wilbe cancelledTo select the P/O line that you want to cancel, use the Upand Down Arrow keys to highlight the line or type the linnumber, then press [RETURN]. If you have finished and don'want to cancel anymore line items, press [ESC]Enter the quantity for the selected item that you want tcancel. This should be the total cancelled quantity and musinclude any previous quantities cancelled for the part. Thcancelled quantity cannot exceed the outstanding quantity:Use the Up- & Down arrows or type a number to select eithea Summary On Order Report or an On Order Report includinpurchase order detail for each part on order. Use [ESC] treturn to the Inventory Reports Menu:To print the selected On Order Report (summary or with P/detail), as shown above, enter Y. If you want to print threport, but need to change some of the specifications, enteN. To cancel the selected On Order Report, press [ESC]To print a concise report that summarizes your inventoractivity, as shown above, enter Y. If you want to print thFlash Report, but need to change some of the specificationsenter N. Use [ESC] to return to the Inventory Reports MenuTo receive parts for a P/O on file in the inventory systementer the P/O number. To view the next or previous P/Oenter N or P. Use ? to see a list of P/O's. To return tthe Purchase Order Menu, just press [RETURN] (or use [ES])The system is displaying the selected purchase order on youdisplay screen. If you want to receive parts into inventorthat were ordered on the P/O, enter Y. If this is not thcorrect P/O, enter N (or use [ESC])If you want to receive all outstanding items on this P/Oenter A (the system will set the received quantity to thcurrent outstanding quantity for each part). If you onlwant to receive specific parts or quantities, enter STo select the P/O line that you want to receive, use the Upand Down Arrow keys to highlight the line or type the linnumber, then press [RETURN]. If you have finished selectinor editing the parts to be received, press [ESC]Enter the unit cost for the quantity of the selected paryou are receiving. To use the displayed cost (which is thlast cost you paid for this part), just press [RETURN]Enter the quantity of the selected part that your are noreceiving. Entering zero will cancel any current receiptA warning message will be displayed if you attempt texceed the current outstanding P/O quantityIf you want to accept all the receipts for this P/O, enteA. If you want to edit and cost or quantities for any othe parts on this P/O, enter E. If you want to reject thireceipt, enter R (the P/O will stay on file unchanged)The receipt quantity you entered exceeds the current outstanding quantity (original ordered quantity less quantitiereceived already or cancelled) for this part on this P/OIf you want to accept this quantity, enter YTo print a report that lists purchase order information, ashown above, enter Y. If you want to print the PurchasOrder Report, but need to change some of the specificationsenter N. Use [ESC] to return to the Inventory Reports MenuIf you want the report to include all of the purchase orderon file, enter A. Otherwise, to include only a portion othe purchase orders, enter S. You will be prompted to entethe first and last purchase order numbers to be includedEnter the number for the purchase order you want the reporto begin with. To begin the report with the first purchasorder on file in the Inventory System, just press [RETURN]Enter the number for the purchase order you want the reporto end with. To end the report with the last purchase ordeon file, just press [RETURN]. All purchase orders, from thstarting to the ending P/O number will be includedIf you want to include purchase orders from all vendorsenter Y. If you want to include only those purchase orderfrom a single vendor, enter N. You will then be prompted tenter the ID of the desired vendorYou have selected to list only those purchase orders from single vendor. Enter the ID (up to 8 characters) of thdesired vendor. This vendor ID does not have to be on filin the Accounts Payable SystemIf you want this report to include only open purchase order(i.e., those purchases orders with one or more items thahave not yet been received), enter Y. To include all P/O'on file (open, closed, or cancelled), enter NUse the Up- and Down arrow keys to go forward or backwarthrough the purchase orders on file. Press [RETURN] tselect the highlighted P/O. Press [ESC] to return to normakeyboard input, the 'P/O' window will remain on your screenIf you want the Purchase Order Report to include completline item detail for each part ordered, enter D. If yowant a report that only includes summarry information (e.g.date, open amount, etc.) for each purchase order, enter S 1001 1002 1003028-0054076-0050201-0050305-2197396-1010 396-1040 396-1050 397-1005 397-1011 420-0020500-0150706-4005p@@p Xhl@RetaiDiscounJobbeL̀3333Z{Z{Z{Z{ 10026 inch BicyclGW-00103-2Ekb1zj`;$d @z@N@CP$-=yyy  10024 inch BicyclGW-00103-2E;;;,./01@%z+zZ@/'0!yyy 10020 inch BicyclGW-00103-2E@;@zZz@zj`A HV@s6yyy` 076-005ChaiW26-000Ea4H@z@; HRyyy 028-005KickstanVA-1-009E"""c8`@H@=aN@3&yyyP 201-005Formed Handleba173-JEzzkMTzH@H@Hzyyy`  305-219Peda8501.700EzzpRZzH@Z z4@yyyh  396-101Tire, 26 incAR-00135E//5@}N@@Hj`T;H,Dyyy  396-104Tire Tube, 26 incAT-01026E/// u @H@ Zg@D^JXyyy  396-105Spoke ReflectoAA-0037EpR;j`z@ ]6j0 yyyx  397-100SpokEHHH @j`z@!TCPpyyy 397-101Wheel, 26 incB9100-02Ezz aDaH@ H/]|Ryyy 420-002Standard Sea420-002E/// u@z@H@@z; yyy 500-015Welded FramEZZ aDHHHzHHHYZyyy 706-400Crank AssemblEpR zHj` @;"lyyyZZj`j`j`yInitial O//%;;; yInitial O/@@@yInitial O/;;ayInitial O/=8`"""syInitial O/aTzzzyInitial O/ZZzzyInitial O/TN@//5@/yInitial O/24567 ///yInitial O/ yInitial O/!T@HHH"yInitial O/;;zz yInitial O/@@///yInitial O/HZZ ZyInitial O/  yInitial O/zzzj`zyP/O #1231@H;;@;yP/O #1231@zzz zyVerbal OrdeHzz zyBike Repair`HZZ ZyBike Repair;;@ ySaleHzzj`zyRetail Sale;;; yRetail Sale(H;;@;yExchange ;/yP/O #1231@HzzzySaleHbyDamagebHHayPhysical Inb//5@yPhysical InXbyPhysical In0bHHHyPhysical InpbyPhysical In b"""yPhysical In@d;HH;yB12318d@z;yB12310d zzzzyB1231pd0;;yB1231Pd`z/yB123112313 12314 12315 @1231PROGateway Manufacturiny1231METFAB Metal Fab & Weldiny1231AMEAmerican Fasteneyd Cancellation",?POINQ,"Enter Purchase Order Receipts",?POREC,"Print Open Purchase Order Report",?POREPORT,/46"Print Physical Inventory Worksheet",?PHYINV,"Enter Physical Inventory Results",?PHYUPDATE,/M5:"Maintain Price Levels",?PLEVELS,"Enter Global Price Changes",?GPCHANGE,"Maintain Cost of Goods Sold Accounts",/?COGS,/5>"Stock Status Report",?INVSTOCK,"On Hand Detail Report",?#1INVOHD,"Inventory Performance Report",?INVPERF,"Margin Analysis Report",?INVMARGIN,"ABC Analysis Report",?INVABC6Price #C",8 '"On-Hand",8,"On-Order",8,"Order Point",8,"Max Level",8,"Beg On-Hand",8,"YTD Rec",8,"YTD Iss",8,"YTD Adj",8,"YTD Sales",8,"YTD COGS",8,"Last Rec",8,"Last Iss",8,"Last P/O",8 *AWP,ASP,ADB,WP,SS,DB .31,1,32,68,35,47,0>"Transaction Detail Report",?INVDETAIL,"Transaction Register",?INVREG,"Order Recommendations",?#1INVREPORTS,"On Order Report",?#2INVOHD6>"Exception Reports",?#2INVREPORTS,"Inventory Flash Report",?INVFLASH,/,//l 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,December3,240,1,301,255,302,255,0@A'gfd$%&*B INVMENU.PROGe MODMENU.PROG  PARTS.PROG5BPARTSLIST.PROG^5 INVLIST.PROG5 PARTSINQ.PROGcUBPO.PROGU POINQ.PROGU POREC.PROGZuB POREPORT.PROGu INVTRANS.PROGu PHYINV.PROGBPHYUPDATE.PROG INVCLOSE.PROG PLEVELS.PROGB GPCHANGE.PROG COGS.PROGeINVCREATE.PROGB INVAW.PROG INVAWSS.PROG INVAWDB.PROGB INVSTOCK.PROG INVOHD.PROGeINVMARGIN.PROG B INVABC.PROG  INVPERF.PROGMINVDETAIL.PROG5B INVREG.PROGU5INVREPORTS.PROG5 INVFLASH.PROGSUBINV.HELPrU INVR.HELPaU INVISAM.FILEeuB INVDATA.FILEu INVTRANS.FILEu POISAM.FILEB POHEAD.FILEi