' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` `ii`>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0 piϠ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠iz# iu`72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:5+;+PH+ZRW$"BR"h+d@RW$,IX$,0,#NP,#XP,#XE,#RL+f@RW$,IT$,0,#AV,#LR,#NR,#XR,#AF:+RW$"BW":5220+XEC(222):EFĭEC6EC8EF0:XO:+1::D$CL$:PXK,'"Standard Costing","Weighted (I):NN2:''3'OSĺD$CL$:EA,K$,A%,L%]'D$OP$IX$DV$",L32":D$OP$ID$DV$",L82"' BR,IX$,0,#NP:K$(NP),A%(NP),L%(NP):NPįBR,IX$,1,A!K$:NP,A%A%:NP'BR,ID$,0,#PU,#CM:LFCM2'D$OP$IT$D2$",L28":BR,IT$,0,#AV,#LR,#RR,#MR,#UT:OS1:%(368%D$(4):ES$(27)A%UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"%IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IT$"INVTRANS.FILE":IC$"INVENTORY CONTROL"%Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"%HU100:TT10000:C1.5=&Rost of Goods Sold:"a#V0:I18:XCG(I):VVX:PL,SS," Account # "(I),B13,D0,X,B14,D0,X:z#NL4:600:SP$:4892#PL,SS,"*** Inventory Totals",D0,PTV1,B1,D0,V,B1,D0,AJV2,B1,D0,PTV1VAJV2#$28)" Receipts Issues Adjustme8,XHU,2,7,L"> ":R(4)R(4)R(I)::SP$:SP$b"NL2:600:PL,SS,"Purchases",D0,PT,B27,D0,PT:SP$"NL2:600:PL,SS,"Purchase Price Variances",D0,V1,B14,D0,V2,B1,D0,V1V2:SP$"NL2:600:PL,SS,"Adjustments",B26,D0,AJ,B1,D0,AJ:SP$#NL9:600:"C":500:570< NL2:QFNLNL(X(1)0)(X(2)0)(X(3)0) 600:PL,B34(P$),LP$,L" TOTAL =",D8,(X(1)X(2)X(3))HU,2,7,B19,D8,X(4),1,11:QF4630 I13:XX(I):I2X(X) XįPL,B33,S8,Y$(I)"s",L":",D8,XHU,2,7  SP$:?!\SGĭL):OQ0XWQ:390/XIC:390:OD,8,V,2,10:W6X(T)X(T)OQ:X(4)X(4)V:OQ04170@X(OQWQC1):VVX:T%AJAJX:V2V2V:4040BPTPTX:V1V1V:4040JISCG(T%)CG(T%)V:4040LAJAJV:40400hPOLGPG%:I14:XX(I):R(I)R(I)X:S(IPG4250DL%4200SBR,IT$,DL%,@T%,%DL%,3OQ,#WQ,3TD,#IC,$R$,@PM%:PM%4040`PO4100mSU4090SGPG%LG40804700:WGĭLG0NL0:600:720PG%CPNL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1"NL4:600:PL,S9G0āI14:X(I)G(I)::P$"PRODUCT GROUP":QF1:4600:FL,0,4,GE!f!NL6:600:18)"Financial Summary of Inventory Transactions":SP$:SP$:4890!S28:NL2:600:OS,S1,"Transaction Quantities"!R(4)0:I14:XR(I):I2X(X),"PU,L" <",D)S(I)X:G(I)G(I)X::SUQF0:P$"PART":46006ESUİ4700CPĭP11P2NPPGUT0:BW,IT$,0,#AV,#LR,#RR,#MR,#UT:KPAS36000SU4450:I14:X(I)R(I)::P$"REPORT":QF1:4600DNL0:600:SU1:720b4800 lAC$"complete,K$(Q),S23,S$,S3,U$,I2,PG%:LNLN35PO1:FL,0,4,XbIST%0T%10:T1IS2(T%9):ISOQOQpLFWQICV(OQICC1):SU4150NL1:600:FJ,TD,A$PU,B12,S9,Y$(T),YA$,B2,S8,R$,B4IS:ISįPU,L" #",I1,T%PU,D8,OQHU,3,6,B10(OQ0ATA SET":QF1:4600$ASNS44006$ASAS1:3010<nFL,0,4,S:FL,0,4,G:NP(P2P1)(P1NP)4300LG1:SGİ4900PP1P2:540:QP:SGQL%(P)BR,ID$,A%(Q),@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,A3Q:8:DL%4250PO0:PGĭPG%XEFER(222):ER6ER8EF0:XO:-(bPXM('"Receipt","Issue","Adjust"tt",S,0,TD$:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,18,I2$:RS,99,FC$f&RD,1,PS:RD,2,FF:RD,3,LP:RD,52,NS&PC(3),Q(8),R(4),S(4),G(4),X(4),CG(8),Y$(3)&I13:Y$(I): 'RD,0,UF:MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$nts Totals"G$PL,B28,X11,Q$,B2,X11,Q$,B2,X11,Q$,B2,X11,Q$:SP$:M$$_$.EA,K$:Z(NP)$8N0:QP1P2:540:BR,ID$,A%(Q),@PG%:NN1:Z(N)PG%TTN:L%(N)Q:$BP11:P2N:SR,Z,L%,N:EA,Z$LK$(NP):BR,IX$,1,A!K$:NP:$%KB16384:KS16NP,K$,P2:P1(P1):P2(P2)(P20)2 P2NPP2NPa H2$"(Part Numbers: "P1$" thru "P2$")" H3$"":PGH3$"Product Group # "(PG) CPPNė PNNL0:600 720:4000 AS3610 WD,IC$" DATA"::0I14:X(I)S(I)::P$"D:FL,0,8,CG:V10:V20:AJ0:PT0? ASDV$I1$(AS):D2$I2$(AS)d EF1:EFĺD$UL$IX$DV$:EF0:3040n 3500x 5100 DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":P11:P2NP:3100! FS,P1$,NP,K$,P1:FS,(P2$Z$,8),CV1:330:YN," Sort listing by product group",N:N02162TSGN:WG0:SG2300`CVCV1330:YN," Start a new page for each product group",N:N0İ344:CVCV1:2210WGN350:V3CV 330:OP,"Print !All or !Selective parts: ":S060*EF1:EFĺD$UL$IX$I1$(N):EF0:2080ZER,"DATA SET # "(N)" NOT CREATED":2060{ CSN:DV$I1$(CS):D2$I2$(CS)*3504V2CV>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020HSQ,A$,"ALL",N:N2200===== === ===== ========= ========= =========":6kV0CV2MS:CVV0:AS0:DV$I1$:D2$I2$:MS2100vMSıFS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:H$""ĺ(OW(H$))2)H$:LNLN1'9 SULNLN2:*33)"Ref. Txn Actual Inventory Inventory":" Part # Description/Txn Date UM PG COG Qty Unit Cost Unit Cost Ext Cost":SUĺSP$:0"======== ===================== ===4&CPLNLN2:SP$:"***** LISTING ABORTED....."K0AC$"aborted":500c:SS,98,"another ":lX540lNLĭLNNLEPLNLNNL:v900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600:X9X9X;:U330:OP,"Select !Console or !Printer: ":S0:360:ESıSQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS: 2000:ES100 3000! 1 1::D$CL$; 250j MM,IC$" REPORTS":D$"RUNINVMENU.PROG"IP$ WD,IC$" PROGRAMS":230 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V XVCV1:340 ZVCV2:340 ^CVCGC:CPė:FFĺ(FF):5LLNOL:SP$::;D650ePNPN1:LN8:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$ASSUDS$""H$DS$:790:H$H2$:790:H$H3$:790SP$:800:900!OLLP:EPOL6:PW,PS:HU$(HD$,1):UC,HU$:OW80:PN0:p310:12:OP,"Report generation in progress"::v900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:(KB)SBıKS,0:(KB)(ES$)V2:330- hKI,S,A$:ER:ESA$ES$:ESİ3303 j rCVCV1:330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESı vUC,A$:A$""A$(S8$A$,8) xGO,H,CV:OS,S,A$: OD,8,X,3,9:X(X):X(10(X(X)).5)N 7000 5000:80:OS0X 2RD,6,N:SUN2:AQ$"":A$"Register":SUA$"Summary"| 4HD$"Inventory Transaction "A$ <1:OP,IC$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 xRS,98,A$:330:YN,"Print "A$HD$,N:N0200:360:ES2162/ SQ,A$,"ALL",N:NAF1:2400Z SQ,A$,"SELECTIVE",N:NįER,IR$:2310z. P$"start":370:ESES23600 VV3:340:23108 P1$A$:P$"end":370:ESCVCV2:2350: P2$A$:AF0`  350:400:ESİ346:2352(  FL,0,4,R'JSQ,A$,"SINGLE",N:NįER,IR$:21103fCVCV1p330:" Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170rVV2:340:2100zST%N1N99įER,"INVALID PRODUCT GROUP":2160PGN:SG0:WG0:2300PG0<N0:SUCVSQ,A$,"CURRENT",N:N2090:SQ,A$,"ALL",N:NAS1:2090dSQ,A$,"SPECIFIC",N:NįER,IR$:2030pCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":20          ,#PU,#CM,A#P:12:CM1CM4CM15-LFCM2:CX12LFo-D$OP$IT$D2$",L28":BR,IT$,0,#AV,#LR,#RR,#MR,#UT:OS1-(MSįFS,DV$,NS,I1$,N:4:OP,"(Using Data Set "(N)" of "(NS)")"-2GO,H2,7:CM$(CM):.PBW,ID$,0,#PU,#CM,A#P:12:BW,IT$,0,#AV,#L14:CM$(I):n,RD,0,UF:MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:t,z,,OSĺD$CL$:EA,L%,T%,D$OP$IX$DV$",L2":D$OP$ID$DV$",L82", BR,IX$,0,#NP:L%(NP),T%(NP), R112:R2154NP-BR,ID$,0RESPONSE":Z$"ZZZZZZZZ":RF$"Phy. Inv"Y+DV5000:HU100:TT10000:C1.5:H118:H261:Z%0+RS,0,TD$:DT,TD$,TD:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,18,I2$:RS,99,FC$+RD,1,PS:RD,2,FF:RD,3,LL:RD,47,NG:RD,52,NS+PC(3),Q(8),P(12),CM$(4) ,IEF0:XO:#bPXPXOXKI2$(I):NN2:""6"OSĺD$CL$:EA,K$,A%,L%`"D$OP$IX$DV$",L32":D$OP$ID$DV$",L82"" BR,IX$,0,#NP:K$(NP),A%(NP),L%(NP):NPįBR,IX$,1,A!K$:NP,A%A%:NP"BR,ID$,0,#PU,#CM:LFCM2"D$OP$IT$D2$",L28":OS1: #XEFER(222):ER6ER8$(27)/ UL$"UNLOCK":CL$"CLOSE":OP$"OPEN" IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IT$"INVTRANS.FILE":IC$"INVENTORY CONTROL" Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ" HU100:TT10000:C1.5:SB1282!RS,0,TD$:RS50AhLGPG%:I13:XX(I):R(I)R(I)X:S(I)S(I)X:G(I)G(I)X:GZ4700:AS36000I13:G(I)R(I)::P$"REPORT":4600bAC$"complete":500:570NL3:600:SP$:PL,B37LF6(P$),LP$,L" TOTALS =",D8,G(1)HU,2,7,B9,D8,G(2),1,11:SP$:/SGPG%LG410084700:WGĭLG0NL0:600:720}PG%CPNL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1NL1:600:X(1)OH:X(2)SV:PU,BSK,S9,K$(Q),S23,S$,BLF,S3,U$,I2,PG%,BLF16,D8,OHHU,2LF,7LF LFXPC(1):390:PL,D8,SV,,1,CO$:RS,16,IP$:RS,17,I1$:RS,18,I2$:RS,99,FC$[!RD,1,PS:RD,2,FF:RD,3,LP:RD,52,NS!PC(3),Q(8),R(3),S(3),G(3),X(3),Y$(1)!Y$(0)"Receipt ":Y$(1)"Adjust ""RD,0,UF:MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,\SGĭLG0P$"PRODUCT GROUP":4600:FL,0,3,G5f;$M.EA,K$:Z(NP)8N0:QP1P2:540:BR,ID$,A%(Q),@PG%:NN1:Z(N)PG%TTN:L%(N)Q:BP11:P2N:SR,Z,L%,N:EA,ZLK$(NP):BR,IX$,1,A!K$:NP:KB16384:KS16368 D$(4):ES2,10:4200!PL,B10,D8,SV,2,10@6DL%NL1:600:SP$:4200m@BR,IT$,DL%,@TY%,%DL%,3OQ,#WQ,3TD,#X,$S$B(TY%0TY%10)WQ4150JNL1:600:FJ,TD,A$:PU,B20,LY$(TY%0),YA$,B1,S8,S$,D8,OQHU,3,6,D8,WQHU,2,7:390:PL,D8,(XWQC1),2,10T41$ASAS1:3010HFL,0,3,S:FL,0,3,G:NP(P2P1)(P1NP)4300\LG1:SGİ4900~PP1P2:540:QP:SGQL%(P)BR,ID$,A%(Q),@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,A3Q:8:OHQ(1)AQ:SV(PC(1)OHC1)OH04250PGĭPG%PG4250PA(12),CM$(4):I14:CM$(I):d*RS,0,TD$:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,18,I2$:RS,28,VV$*RD,0,UF:RD,48,UG:RD,52,NS*UFįFF,I1$,DV$:DD$"Diskette":5070*SQ,VV$,"VOLUME",VA:DD$VV$"s"*MSUF(NS1)/+MSĆI1$(NS),I2$(NS):NOP$"OPEN":UL$"UNLOCK"h)IX$"INVINDEX.FILE":L132:ID$"INVDATA.FILE":L282:IT$"INVTRANS.FILE":L328)IC$"INVENTORY CONTROL":I$"Inventory Control":VD$IC$" DATA DISKETTE":SP$" ":IN$"Initializing: ")SZ256:CZ120:PX1500:RX9999:TT10000 *cost of goods will reflect the costs paid for your oldest parts. The current value of your inventory is determined by multiplying"(0"the quantity of each part by the costs of that part.":((D$(4):BL$(7)(7):ES$(27))CL$"CLOSE"::PGH3$"Product Group # "(PG)l& SK8LF:T1$"":T2$"":LFT1$" Orig ":T2$" Ref. Qty "{ CPPNė PNNL0:600 720:4000 AS3610 WD,IC$" DATA"::0I13:G(I)S(I)::P$"DATA SET":4600ASNS440000  5100N DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Data Set # "(N)")"n AFH2$"":P11:P2NP:3100 FS,P1$,NP,K$,P1:FS,(P2$Z$,8),NP,K$,P2:P1(P1):P2(P2)(P20) P2NPP2NP H2$"(Part Numbers: "P1$" thru "P2$")"! H3$"":SG2300CVCV1b330:YN," Start a new page for each product group",N:N0İ344:2210kWGNz350:V3CV 330:OP,"Print !All or !Selective parts: ":S0:360:ES2162 SQ,A$,"ALL",N:NAF1:2400 SQ,A$,"SELECTIVE",N:NįER,I(N)" NOT CREATED":2060: CSN:DV$I1$(CS):D2$I2$(CS)C*350M4V2CV>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020HSQ,A$,"ALL",N:N2200JSQ,A$,"SINGLE",N:NįER,IR$:2110fCVCV1Dp330:" 2MS:CVV0:AS0:DV$I1$:D2$I2$:MS21005MSıLFS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090#S Stock":SK)" Part # Description "LF)"UM PG"T2$" Qty Cost Value":PK)"======== ======================";:PFĺ" == == ======== ===== ====== ========= =========":"= == == ====== ========= =========":*V0CV:500:SS,98,"another ":&X540DlNLĭLNNLEPLNLNNL:v900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650er: ":S0:360:ESıESQ,A$,"CONSOLE",N:NCP0:EP23::490:480mSQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:/3 2509 MM,IC$" REPORTS":D$"RUNINVMENU.PROG"IP$V WD,IC$" PROGRAMS":230j 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V XVCV1:340 ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 jA rCVCV1:PNPN1:LN8:L(OW(CO$))2PPU,L"As of: ",YTD$:L15)CO$L8)"Page "PNh(OW(HU$))2)HU$H$DS$:790:H$H2$:790:H$H3$:790SP$:800:900H$""ĺ(OW(H$))2)H$:LNLN1] PFLF:PKSK:38SKLF)T1$"OnHand Unit 10:12:OP,"Report generation in progress"::5P900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:1:(KB)SBıKS,0:(KB)(ES$)ı&CPLNLN2:SP$:"***** LISTING ABORTED....."0AC$"aborted"330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$Z tGO,H:S8:360:ESı| vUC,A$:A$""A$(S8$A$,8) xGO,H,CV:OS,S,A$: OD,8,X,3,9:T(X):T(10(T(T)).5):T9T9 T;: 330:OP,"Select !Console or !Print 7000 5000:80K (OS0:AQ$"":HD$"Stock Status Detail Report" 21:OP,IC$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 xRS,98,A$:330:YN,"Print "A$HD$,N:N0200 2000:ES100 3000 1::D$CL$R$:2310(. P$"start":370:ESES2360<0 VV3:340:2310g8 P1$A$:P$"end":370:ESCVCV2:2350w: P2$A$:AF0}`  350:400:ESİ344:344:2352(  FL,0,3,R ASDV$I1$(AS):D2$I2$(AS) EF1:EFĺD$UL$IX$DV$:EF0:3040 35Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170XrVV2:340:2100zST%N1N99įER,"INVALID PRODUCT GROUP":2160PGN:SG0:WG0:2300PG0:CVCV1330:YN," Sort listing by product group",N:N02162 SGN:WG0Q,A$,"SPECIFIC",N:NįER,IR$:2030/CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:EFĺD$UL$IX$I1$(N):EF0:2080ER,"DATA SET # "        "of each part by the actual costs of that part.":',OP,"When using FIFO costing (!First !In, !First !Out), parts are received and issued at"::"their actual cost and the oldest items in your inventory are assumed to be"(."issued first. Thus your d at"::"their actual cost and the newest items in your inventory are assumed to be"&$"issued first. Thus your cost of goods will reflect the most recent costs paid. The current value of your inventory is determined by multiplying the quantity"2'&OSĺD$CL$:EA,K$,A%,L%C%D$OP$IX$DV$",L32":D$OP$ID$DV$",L82"k% BR,IX$,0,#NP:K$(NP),A%(NP),L%(NP)%NPįBR,IX$,1,A!K$:NP,A%A%:NP%OS1:%XEFER(222):ER6ER8EF0:XO:%bPX8EF0:XO:%bPX8EF0:XO:%bPXF0:XD$(4):ES$(27)9#UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"|#IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"#Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":PD$" Part # Description " $HU100:TT10000:SBB"8N0:V0:QP1P2:540:SGįBR,ID$,A%(Q),@PG%:XPG%TTN:4924Y":300:XQ(6)PC(1)"<PG(PGPG%)NN1:Z(N)X:L%(N)Q:VVX">"BP11:P2N:SR,Z,L%,N:EA,Z:ABR(1)N:R(2)V"LK$(NP):BR,IX$,1,A!K$:NP:""KB16384:KS16368#4700:AS36008 0I13:G(I)R(I)::P$"REPORT":4600U bAC$"complete":500:570_ ABı SSNL3:600:PL,B44(P$),LP$,L" TOTALS: Value (Cost ) =",D8,G(1),1,11:PL,B53,L"Value (Price) =",D8,G(2),1,11:SP$:$! NL4:600:SP$:PL,B38(P$),LP$N2:390:PC(1)PC(2)įOD,8,TT(1PC(1)PC(2)),5,6:4130A6)~"PU,D8,OHHU,2,7,D8,SV,2,10,B1:Q(8)įFJ,Q(8),A$:OY,A$$:X(3)SV:42406V(Q(6)PC(1)C1):S(1)S(1)1:S(2)S(2)V@OD,8,Q(6)HU,2,7:N1:390:OD,8,V,2,10:N1:4800:OD,8,S(0:600 720:4000# AS3610< WD,IC$" DATA"::0gI13:G(I)S(I)::P$"DATA SET":4600xASNS4400$ASAS1:3010FL,0,3,S:FL,0,3,G:NP(P2P1)(P1NP)4300LG1:SGABİ4900PP1P2:540:QP:SGABQL%(P)6,L" TOTALS: On Hand Value =",D0,G(3)E!X0:G(1)G(2)X1G(1)G(2)!PL,B45,L" Average Margin =",D8,TTX,1,11,L"%":SP$:!\SGĭLG0P$"PRODUCT GROUP":4600:FL,0,3,G!f!R(N)ĺ6):!OD,8,TTS(N)R(N)5,5,6:!$".EA,K$:Z(NP)2),2,10:N2:4800::4250uhNL3:600:PU,S9,K$(Q),S23,S$,S3,U$,D8,Q(5)HU,2,7,D8,Q(6)HU,1,8,D8,OHHU,2,7:N1:380rPU,B32,I2,PG%,D8,Q(7)HU,1,8,D8,Q(2)HU,1,8,B7:N2:380:SP$LGPG%:I13:XX(I):R(I)R(I)X:S(I)S(I)X:G(I)G(I)X: 300:OHQ(1)AQ:SV(PC(1)OHC1):PGĭPG%PG4250KSGPG%LG4100o4700:WGĭLG0NL0:600:720PG%(CPSS)NL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1SS4200NL1:600:PU,S9,K$(Q),S21,S$:AB41508N1:390:ta Set # "(N)")"3 AFH2$"":P11:P2NP:3100z FS,P1$,NP,K$,P1:FS,(P2$Z$,8),NP,K$,P2:P1(P1):P2(P2)(P20) P2NPP2NP H2$"(Part Numbers: "P1$" thru "P2$")" H3$"":PGH3$"Product Group # "(PG) CPPNė PNNLresult is the average unit cost. The current value of your inventory is determined by"%"multiplying the quantity of each part by its current average unit cost.":U&"OP,"When using LIFO costing (!Last !In, !First !Out), parts are received and issueO: #bPXN128:C1.5C$RS,0,TD$:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,99,FC$$RD,1,PS:RD,2,FF:RD,3,LP:RD,6,N:SSN1:IYN1:ABN3:RD,52,NS$PC(3),Q(8),R(3),S(3),G(3),X(3)$RD,0,UF:MSUF(NS1):MSĆI1$(NS):I1NS:RS,702I,I1$(I):$$%0 VV3:340:2310=8 P1$A$:P$"end":370:ESCVCV2:2350M: P2$A$:AF0S` p 350:400:ESİ346:2352v(  FL,0,3,R ASDV$I1$(AS) EF1:EFĺD$UL$IX$DV$:EF0:3040 3500 5100 DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Daart a new page for each product group",N:N0İ344:2210AWGNP350:V3CV 330:OP,"Print !All or !Selective parts: ":S0:360:ES2162 SQ,A$,"ALL",N:NAF1:2400 SQ,A$,"SELECTIVE",N:NįER,IR$:2310. P$"start":370:ESES2360CS) *350 4V2CV:SG0:WG0v>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020HSQ,A$,"ALL",N:N2200JSQ,A$,"SINGLE",N:NįER,IR$:2110fCVCV1p330:" Enter product group number (1-99): ";:NI,0, MSı!FS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVit Price Value":*ABĺ33)"YTD Unit YTD Cum % Cumulatve Cum %":PD$"Issues Cost Value Items Value Value":4PL,B32,L" Unit Unit",B11,L"On Stock Last":PD$" Cost Price Margn Hand Value Txn":: ",YTD$:L15)CO$L8)"Page "PN9(OW(HU$))2)HU$aH$DS$:790:H$H2$:790:H$H3$:790tSP$:800:900H$""ĺ(OW(H$))2)H$:LNLN1 SSĺ32)"UM YTD Rec YTD Iss Unit Cost Stock":PD$" PG YTD Adj OnOrder OnHand Un!900:CPİ650:PW,1:a24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:1:q(KB)SBıKS,0:(KB)(ES$)ı&CPLNLN2:SP$:"***** LISTING ABORTED....."0AC$"aborted":500:SS,98,"another ":X540lNL""A$(S8$A$,8))xGO,H,CV:OS,S,A$:I|SP$;:390:OD,8,X,1,11::XPC(N):OD,8,X,3,9:T(X):T(10(T(T))C1):T9T9T;:X(XOH.5):X(N)X:330:OP,"Select !Console or !Printer: ":S0:360:ESıSQ,A$,"CONSOLE",N:NA$HD$,N:N0200% 2000:ES100/ 30005 E 1::D$CL$O 250~ MM,IC$" REPORTS":D$"RUNINVMENU.PROG"IP$ WD,IC$" PROGRAMS":230 ,BR,ID$,A%(Q),@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,A3Q:8: 6CV9:330:CS: JGO,1,CV:CLLNNLEPLNLNNL:vv900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:LN8:L(OW(CO$))2!PU,L"As ofCP0:EP23::490:480>SQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress":::GO,12:% T330:CVVCVCV1:340+ V; XVCV1:340K ZVCV2:340\ ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j rCVCV1:330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESıvUC,A$:A$ 7000 5000:80L (OS0:AQ$"":SSHD$"Stock Status Report":50k *HD$"Margin":ABHD$"ABC" ,HD$"Inventory "HD$" Analysis" 21:OP,IC$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 xRS,98,A$:330:YN,"Print "ST%,N:ER:ST%32170+rVV2:340:2100_zST%N1N99įER,"INVALID PRODUCT GROUP":2160nPGN:2300PG0:AB2300CVCV1330:YN," Sort listing by product group",N:N02162SGN:WG0:SG2300CVCV18330:YN," StCV1` 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:EFĺD$UL$IX$I1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN:DV$I1$(RPU,X8,Q$,B1,X21,Q$:SSĺ"= == ======= ======= ====== ========== ==========":ABĺ" ====== ========= ========= ===== ========= =====":" ========= ========= ===== ====== ========= =====":V0CV2MS:CVV0:AS0:DV$I1$:MS2100         s,System Utilities,System Setup and Configuration,Change Today's Date,System Status Reports10,14,"Quantity",6,38,"Ref",8,52,"Cost",10,70,"COG#",1,707RS,8,G1$:RS,16,IP$:RS,17,I1$:RS,18,I2$CP$(12),SC(12),PA(12)IqXER(222):EFĭER6ER8EF0:XO:ybPXP0:XO:bPXS$(27)UL$"UNLOCK"wIC$"INVENTORY CONTROL ":S$"Inventory Control ":PG$IC$"PROGRAMS":GL$"GENERAL LEDGER "IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IT$"INVTRANS.FILE":GX$"GLINDEX.FILE")RD,0,NV:RD,48,UG:RD,74,PW:RS,1,CO$:RS,6,SV$::CS:YN,1,"OK to remain in "S$"SETUP mode",N:N0ġ:30HhN2180pGO,12,22:CL:OP,"Please confirm by typing !O!K: ":KI,0,A$:UC,A$:A$"OK"2150zSU0:BW,ID$,0,#PU,#CM,A#PA:12,#SU:D$CL$NPUGSU:D$(4):BL$(7)(7):E6,2,11,name of person who confirmed P/OY8*No,Yes,Origin,Destination,EDIT,REJECT,ACCEPTDcosting assumes that each part in your inventory has been assigned a cost (called its 'Standard Cost') which may be different than its actual cost."$"The current value of your inventory is calculated by multiplying the quantity ofeach part by its stPlease verify your selected costing method, after the inventory data files have been created you cannot change the costing method.":"GO,12:YN,"OK to accept this costing method",N:N04000""GO,1,14:CM4110,4120,4130,4140#"Standard 1^ 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:3030 ST%N1NNSįER,"INVALID DATA SET NUMBER":3060  CSN:I1$I1$(N):I2$I2$(N):  !310:GO,12,10:"The following inventory costing methods are avaU,I6,NP,L" Parts ",I10,XP,L" Parts ":NNP:XXP:2550: GO,28:PU,I6,NR,L" Records ",I10,XR,L" Records ":NNR:XXR:2550  XXNX PL,B7,D8,XTT,6,5,L"%":  AS0:RS,17,I1$:FS,I1$,NS,I1$,CS= SB,1,P$,1," !Current (#"XE)2):MPXP:500:XRMR(*5250:2500;4CV22:UF2200>CV:OP,"--- No adjustments allowed, press [SPACE BAR] to continue ---":WS,A$:100 GO,3,V2:HG,22:330:YN,"Want to change maximum number of parts",N:N0100 MRLR:ilable:":8!I14:GO,20:"< "I" > - "CM$(I)::CV17!330:"Enter costing method (1-4): ";:NI,0,ST%,CM:ER:ESST%3:ESı!ST%CM1CM4įER,"INVALID COSTING METHOD, MUST BE 1 to 4":4030!GO,1,12:CS:OP,!" "CM$(CM)" ":4100":"(CS)")",AF,", !All,",1," or !Specific data set",AF,"s",P$p 330:OP,P$": ":KI,0,A$:ER:ESA$ES$:ESı SQ,A$,"CURRENT",N:NNCS:3100 SQ,A$,"ALL",N:NAFAS1:N1:3100 SQ,A$,"SPECIFIC",N:NįER,"INVALID RESPONSE":3030 CVCV600:MNXE:MN1MN1& MNMPMNMPp 330:"Enter maximum number of parts ("MN"-"MP"): ";:NI,0,ST%,N:ER ST%32300$ ST%NMPNMNįER,"INVALID NUMBER OF PARTS":2330. MPN:500:XPMP:XRMR8 5250:2500:2300 < GO,28,V2:PGO,3:"List of Parts":>GO,3:"Inventory Transactions"Df D$OP$IX$I1$",L"L1:370:X1SXD$OP$IT$I2$",L"L3:370:X2SX5200UFİ600:XPMPMPXP:500:MRXR2090 MRXRXRMR:2090"MRLR:600:MPXE2090$XP((MPA$PN$9100#n#PN$A$JN1:90503x#IN1:9050J#D$CL$IX$:N9020a#380:DSSS:5100:'Standard,Average,LIFO,FIFOIFOD2):ER6ER8EF0:XO:%b1::PX+(#Z2#SSDS:P$"global search in progress ":382w<#GS1:SSSS1:SSNSSS1>#SSDSN0:F#NSS:5500:ES9020P#D$OP$IX$I1$(N)",L8":BR,IX$,0,#J:I1Z#IJN0:9100 d#N((IJ)2):BR,IX$,3N,$A$:andard cost.":$"When using average costing, a new unit cost is calculated each time parts are received into inventory. The cost of the new units is added to the value of"W%"stock on hand. This sum is divided by the total number of units; the Data Set "(CS)" of "(NS)")"GGO,20,7:BX,40,22MS:V132MSGO,3,V:" Type of Data Current Maximum % in Use"GO,3:"====================== ================= ================= ============"then leave the SETUP mode and use the Inventory Control System in the normal fashion.":rOP,"--- Creation process complete, press [SPACE BAR] to continue ---":WS,A$:1003109:OP,"Status of "I$" Files""MSĢ11:OP,"(UsingSCS1:1250@USĢ22:1650J310:10:OP,!" I M P O R T A N T ":::"For your convenience, the Inventory Control System has initially been placed in"BT"the SETUP mode. While in the SETUP mode you will be able to enter Inventory transactio:BX,38,22AScASVCV:P$"Creating Data Set "(CS)" of "(NS):352:I1$I1$(CS):I2$I2$(CS)|UFP$IN$DD$:1280380:P$IN$VV$" # "(V1)V$I1$:360:X1SX:X2SX:UF1300 P$IN$VV$" # "(V2):V$I2$:360:X2SXMP700:UFİ,A$:a8:OP,!" WARNING: ":" Any existing data or programs on the "DD$" will be destroyed !"rB::XY,X,CVL330:OP,"Confirm your request by typing !C!R!E!A!T!E: ":KI,0,A$:A$ES$ĴMS11000,1020VUC,A$:A$"CREATE"100`310:UF120tte located in "DV$".":10805380:MSĺDV$:1080aASĺ"Data Set #"CS", using "DV$:1080$OP,"!A!L!L data sets, using the following ":DD$":"&A$"":I1NS:I1$I1$(I):I2$I2$(I):384:A$A$(V1)", "(V2)", ":.A$(A$,(A$)2)::OPSXX1:NL3(MR1):5506vMP((SZ(SX7))(10L2))1GMPPXMPPXMSe4000:ES100310:OP,"*** I M P O R T A N T ***":::"This option is used to create the data files used by the "I$'"System. These files are used to maint:GO,12:^VCV2ASD`GO,22,V:OX,38,SP$:GO,41(P$)2:P$:qh350:D$"INIT TEMP"V$:D$"DELETE TEMP"V$rSX((46063)4)(46064):|UFı~384:DV$DD$" "(V1)" and "(V2):N63VA:V1((I1$,N)):V2((I2$,N)):P$"CreatGO,20:"< 2 > - View / Adjust Data File Sizes": xCV18:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,OP:ER:ST%2200 ST%OP1OP2įER,"INVALID SELECTION":120 OP11000 MSCVCV2:P$"Use":AF0:3000:ESİ330:1ain your parts, inventory transactions"x"(issues, receipts, etc.), and other information used by the "I$:"System.":XY,X,VMSCVV:P$"Create":AF1:3000:ES1000GO,1,V:CS:"These data files will be created on ";:UFĺ"a blank diskeing file: "F$:350*D$OP$F$",L"S;V$:0DUFSXX2:530^SXX1:N10MPL1:550s NL2(MP1):550MR(SZ(SX2(SXCZ))L3)MR0MR0MRRXMRRX&N((N255)SZ):SXSXN1(NCZ):XbUFSXX2:630l20 380:GO,1,18:CS= EF1:EFĺD$UL$IX$I1$:EF0:2000p A$VD$" NOT FOUND ON "DV$:UC,A$:ER,A$:120v GO,1,1::D$CL$ 250 MM,IC$:D$"RUNINVMENU.PROG"IP$ WD,IC$" PROGRAMS":230 6CV8:GO,12,CV:CS: JGO,1,CV:CLM! 7000 5000:804 1:OP,IC$" SYSTEM"n 3:OP,"*** Create and Adjust "I$" Data Files ***" 5:OP,CO$: d nGO,1,7:CS:GO,12,10:"The following options are available:":: pGO,20:"< 1 > - Create "I$" Data Files":1 rns (receipts, issues, etc.) without having the data posted to the"^"General Ledger System. This mode allows you to enter all your currently on handquantities and costs. Once you have entered all of your initial inventory"[h"information, you can 600!500:XPMP:XRMR:Z0:US0[xV$I1$:F$IX$:SL1:390:BW,F$,0,#Z,#XP,#Z,#L2:D$CL$V$I1$:F$ID$:SL2:390:SUUG:BW,F$,0,#Z,#CM,A#PA:12,#SU:D$CL$:SUĭMSCS1US1V$I2$:F$IT$:SL3:390:BW,F$,0,#Z,#Z,#Z,#XR,#Z:D$CL$ ASĭCSNSC03~CV12:330:OP,"Please load "DD$" in "DV$::OP,"--- Press [SPACE BAR] to continue, press [ESC] to abort request ---":WS,A$:A$ES$10031012:OP,"Please wait, "I$" Data file creation in progress"CV16:GO,21,CV2                     Parts on file =",I5,NPZ2MSįSS,17,I1$:SS,18,I2$:GO,54,3:"Using Data Set "DS" of "NSy<GO,62,6:CM$(CM);:CL::|ES0:1::MSıEF1:EFĺD$UL$IX$I1$(N):EF0:ES1:GSE$"DATA SET #"(N)" NOT CREATED"XEFER(22D$CL$:EA,KY$,PA%2MSI1$I1$(DS):I2$I2$(DS)\D$OP$IX$I1$",L32":D$OP$ID$I1$",L82" BR,IX$,0,#NP:KY$(NP),PA%(NP)NPįBR,IX$,1,A!KY$:NP,A%PA%:NPBR,ID$,0,#PU,#CM:CM1CM4CM1 D$CL$IX$:OS1(GO,2621MS,3:PU,L"Number of "#HU100:SP$" ":S8$" "HRS,16,IP$:RS,17,I1$:RS,99,FC$_RD,0,UF:RD,52,NS~PS$(3),PC(3),PQ(7),CM$(4)I14:CM$(I):MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:OSwing diskette:"< FF,DV$,P$:14:OP,!" "P$": "A$SP$ SB,1,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",P$ 18:OP,P$:WS,P$::ES(P$ES$)ES0 GO,1,8:CS:(222):ER6ER8EF0:XO:/b1::D$CL$:PX>lEF0:2070D@OJUFıxTA$GL$" DATA":DV$IP$:UF3DV$G1$^ES1:8100:ES220hEF1:EFĺD$UL$GX$DV$:EF0:G1$DV$:G2$DV$:rWD,A$::0 GO,1,7:CS:12:OP,"Please load the follozMSı%SVCV:FS,I1$,NS,I1$,CS330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":KI,0,A$:ER:A$ES$ġ:50SQ,A$,"CURRENT",N:NAS0:DSCS:SQ,A$,"ALL",N:NAS1:DS1:SQ,A$,"SPECIFIC",N:NįER,IR$:6030 RW$"BR"H,@RW$,ID$,A%,@PG%,@CG%,3AQ,A$P$:3,%DL%,A#PC:3,A3PQ:7,3LT:[JRW$"BW":5420aLR0:RR0:MR0MR(MR)MRRXİ5700:MRXRA%(MR):LFAV0LAV:400:AVLLıNL:BR,IT$,L,#L:400:LįBW,IT$,N,#L5640DMSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:KQOSĺD$CL$IX$:D$CL$ID$:D$CL$IT$:CFįEA,A%D$OP$IX$I1$",L2":D$OP$ID$I1$",L82":390:X1SX BR,IX$,0,#NP,#MP:BR,ID$,0,#PU,#CM,A#P:12,#SU:LFCM2I112:Q(CVCV1e330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:6030ST%N1NNSįER,"INVALID DATA SET NUMBER":6110EF1:EFĺD$UL$IX$I1$(N):EF0:DSN:ER,"DATA SET #"(N)" NOT CREATED":6110XEFER8NSXX2:UF2SXX1:N10MPR1:5750:NR2(MP1):5750XXXR(SZ(SX2(SXCZ))R3)glXR0XR0xnXRRXXRRX~pvN((N255)SZ):SXSXN1(NCZ):LRıFD,0,LR,A%,N:N0ıBW,IT$,N,#AV:AVN:A%(N)1:5820pI)Q(I)P(I):JD$OP$IT$I2$",L28":BR,IT$,0,#AV,#LR,#RR,#MR:390:X2SX(OS1:MSįGO,29,132CF:"(Using Data Set "DS" of "NS")"2CFİ5600<RW$"BR"@RW$,IT$,PP,@T%,%LK%,3OQ,#WQ,3DT,#IC,$R$,@PM%:RW$"BW":5320 "6,IP$:RS,17,I1$:RS,18,I2$HRD,0,UF:RD,6,N:CFN1:GFCF:RD,52,NSVRD,48,UGP(12),Q(12),G(12),X(12),RM$(2),D(16),P$(3),PC(3),PQ(7)RM$(0)"General Ledger Posting":RM$(1)"End-of-Month Close":RM$(2)"End-of-Year Close"EMSUF(NS1):"Unit Cost :",B28,L"Unit Price :",B14fPL,L"Stock Value :",B28,L"Stock Value :",B14lrD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"Last Txn Date :",B12:OPL,L"On-Hand Qty :",B28,L"YTD Receipts :",B8PL,L"On-Order Qty :",B28,L"YTD Issues :",B8PL,L"Order Point :",B28,L"YTD Adjustments:",B8PL,L"Minimum Order :",B28,L"Net YTD Change :",B8:.PL,Lto continue ---":WS,A$:(4000:100.:GO,1,6pPL,L"Part Number :",B28,L"Costing Method :":PL,L"Description :",B28,L"Product Group :",B4PL,L"Mfg Part Number:",B28,L"Cost of Goods #:",B2PL,L"Unit of Measure:",B28,LFILE":GX$"GLINDEX.FILE":GD$"GLDATA.FILE"oIC$"INVENTORY CONTROL":GL$"GENERAL LEDGER":PP$IC$" PROGRAMS"SP$" ":IR$"INVALID RESPONSE"HU100:R132:R282:R328:SZ256:CZ120:RX9999RS,0,A$:DT,A$,TD:RS,1,CO$:RS,8,G1$:RS,9,G2$:RS,1't perform "RM$(RM)", G/L Journal is full":270L: RD,9,N:N0įSD,9,JR%]N FL,0,12,Q:cD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IT$"INVTRANS.FILE"*JF$"JOURNAL.,@N%NBR,GD$,X(I),$A$,A#D:16:X2(N0):D(X)D(X)N:BW,GD$,X(I),$A$,A#D:16T |4BW,JF$,0,%JV%,%JE%,%JR%,%XR%:KP:  UGG1$"":3150 8000 1::D$OP$GX$G1$",L16":BR,GX$,0,#NC:A(NC),A%(NC) NCįBR,GX$,1,A#A:NC,A%A%:NC xCFUT0:BW,IT$,0,#AV,#LR,#RR,#MR,#UTXFL,0,12,P:BW,ID$,0,#PU,#CM,A#P:12,#SU:KPdAS8002000:GFNJE$"NO INVENTORY ACTIVITY TO POST TO THE GENERAL LEDGER":270@200UGıA0:I112:AAQ(I)::Q(11)Q(11)A'N%0:GO,1,19:CS:5100.NPGF1400CR116:R2R14NP}LP1NP:BR,IX$,R1,$K$:BR,IX$,R2,%A%:R1R14:R2R21V5400:GO,43,13:OS,8,K$:`LFDL%0jLDL%:400:DL%L:LK%L:UP0:OH0:EYPQ(5)0:PQ(6)0:PQ(7)0~LK%1300D:UTP$P$(I)", "":X950CV19:330:BL$"WARNING: Final audit trail (Transaction Register) has not been"27)"printed this month.";ASĺ" (Data Sets: ";(P$,(P$)2)")"CVCV3:330:YN,"OK to continue with "RM$(RM),N:N050 r found in Inventory files, rebuilding files during close "J FE1:L0:P  3000:310:11:OP,"Please wait, "RM$(RM)" in progress" CFV113:GO,30,V1:"Part Number:" GO,14,9:BX,52,22CF2MS::FE0 XMSI1$I1$(DS):I2$I2$(DS)"irm selection by typing !C!L!O!S!E: ":KI,0,A$:UC,A$:A$ES$170^ CVSV:330:CS:MS50g 140{ A$"CLOSE"50 500 1::D$CL$:G1$IP$DV$IP$:A$PP$:ES0:8100 250 MM,IC$:D$"RUNINVMENU.PROG"IP$ WD,PP$:230+ :500 dK n"Available options to close the Inventory System are:"::w pI12:GO,20:"< "I" > - "RM$(I):::" rGO,6:"Note: An "RM$(2)" is just like an "RM$(1)" except it also resets the Year-to-Date Issues, Receipts, and AdjustbEF1:EFĺD$UL$IX$I1$:EF0:900@ASįWD,IC$" DATA"::0Q DSNS1500b*DSDS1:600qOSGF950A$I2$:P$"":X0:N1:ASNNSI1N:ASA$I2$(I)EF1:EFĺD$UL$IT$A$:D$OP$IT$A$:BR,IT$,0,#AV,#LR,#NR,#RR,#UT:XXUT:D$CL$IT$310:12:BL$;:OP,E$:15:ES0:8120:200F 6CV8:312:CVCV2GF:U 8330:CS:o JGO,1,CV:CL:GO,12: SX((46063)4)(46064): L0LMRL(L)450 LĭA%(L)450 LLRLRL A%(L)1:; FEĢ22:BL$;:OP,!" WARNING: Erroments for all parts."1 v:XY,H,CV xSVCV:330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,RM:ER:ST%2200 zST%RM1RM2įER,IR$:120 GO,27,92RM:HG,20:312:EYRM2 6000:CVCV2MSC 330:OP,"Conf 7000 5000:80`HD$"Close Inventory System":GFHD$"Post to the General Ledger"(1:OP,IC$" SYSTEM":3:OP,"*** "HD$" ***":5:OP,CO$2310:CF100<330:YN,"OK to post to the General Ledger",N:N0200 FCVCV2:6000D$CL$M I112:RD,28I,A:FD,A,NC,A,X:A0X0G(I)A:X(I)A%(X)::3100 E$"Error in G/L Posting Table, Entry # "(I)" is invalid":270 EA,A,A%& D$OP$GD$G1$",L102":D$OP$JF$G2$",L9":BR,JF$,0,%JV%,%JE%,%JR%,%XR%10 JR%16XR%E$"CanI112:N%N%(Q(I)0)::NJN%2:NJıUT%31:A$"Inv. Transactions":P$"SUMMARY"BW,JF$,JR%1,%N%,#TD,$A$,$P$,@T%:JR%JR%4:JV%JV%1N%0:I112:NQ(I):N2080 JE%JE%1:JR%JR%1:N%N%1:A%G(I)HU:D%G(I)A%HU:BW,JF$,JR%,%A%,@D%,#NPPLK%:5300:LLK%:400:LK%L:NPL:WQ(WQ):(T%0T%10)WQ01200qRRRR1:OHOHWQ:UPPP:PM%1:5350:1150wBW,IT$,PP,#AV:AVPPUPDL%NP:LK%NP:1150PPUP:5300:LK%NP:5350:1150LFPQ(1)OH(5450:F5800(                ,LT,A$:OY,A$LtV12:H18:I17:GO,H,V:OD,8,PQ(I)HU,3,6:I4H62:V11XvVV1:~GO,H,V:OD,8,(PQ(5)PQ(6)PQ(7))HU,3,6VV2:H18:I12:XPC(I):GO,H,V:390:GO,H,V1:OD,12,(XPQ(1).5),2,12:H62:22:OP,"--- Press [SPACE BAR] 50ES0:ER,E$:DSSS:110#1PPN:320qBR,ID$,PA%(N),@PG%,@CG%,3AQ,A$PS$:3,%DL%,A#PC:3,A3PQ:7,3LT$PQ(1)PQ(1)AQLGO,18,6:OS,8,PN$VGO,18,8:PS$(1);:GO,62:PG%`GO,18:PS$(2);:GO,62:CG% jGO,18:PS$(3);:LTįGO,62:FJY,DF$:CL:GO,X:KI,8,A$:ER:ESA$ES$:ESı? A$""A$DF${ DT,A$,JD:JDįER,"INVALID DATE ENTERED":GO,1,Y:3010 SS,0,A$:GO,1,Y:CL:GO,32:PL,L"Date set: ",YA$:D$(4):BL$(7)(7):ES$(27)UL$"UNLOCK":OP$"OPEN":CL$"C when ready or use [ESC] to abort ---"?WS,A$:(A$)27300E d*MM:SD,5,0:SD,69,OS:EF14EFĺD$"RUN"P$".PROG"PV$WD,DK$:50DK$"SYSTEM MANAGER":RS,6,PV$:SC0:DK$"GENERAL LEDGER PROGRAMS":RS,7,PV$:SC1:*DK$"ACXP$"STATUS":1010MPV$""įER,"SYSTEM MODULE NOT AVAILABLE":330`NVSCMM800GO,1,8:CS:GO,1,12:OP,"Please load the following diskette:"GO,1,15:FF,PV$,A$:OP,!" "A$": "DK$" "&GO,1,20:OP,"--- Press [SPACE BAR]:ER,A$" NOT AVAILABLE":330nCF(OS8OS9)įER,"SYSTEM NOT CONFIGURED YET --- USE OPTION # 8":330OS510,520,530,540,550,560,570,580,590,600P$"GLMENU":1020:700P$"APMENU":1030:700P$"ARMENU":1040:700 P$"INVMENU"S:YN,"OK to quit",N:N0300H rSS,0,"":SD,4,1:1::D$CL$:216,0 |:8:OP,"You have sucessfully exited The Business Accountant":11:OP,"You may now turn off your computer"8~13:OP,"-- or --":15:OP,"Press [SPACE BAR] to reboot from th[ 7000 5000l 2:80:OP,"Manzanita Software Systems":3:OP,"<<< The Business Accountant >>>"r d RD,4,CF:GO,1,4:CS:CFįRS,1,CO$:CO$""įOP,"for":5:OP,CO$:300 5:OP,!" SYSTEM NOT CONFIGURED YET "$ ,GO,1,8:CS:GO,12:1050:700'&P$"PAYMENU":1060:700F0P$"LABELSMENU":1010:700a:P$"UTMENU":1010:700DP$"CONFIGURE":1010:700NRS,0,DF$:GO,12,Y0:CS:3000:ES330PGO,1,Y02:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:GO,1,Y0:CS:330e disk in slot # "(BV$,3,1):GO,1,1:WS,A$:A$ES$380k(27)(17):D$"PR#0"::49152256((BV$,3))ST%OS1OSOXįER,"INVALID SELECTION":330BT,PW,OS,N:NįER,"SECURITY VIOLATION":330OS6įBT,SA,OS,N:NA$(S$(OS),1):UC,A$:"Available options are:"::OX10:r @I1OX:S$(I):GO,20:PL,L"<",I3,I,L" > - "S$(I):::XY,X,Y0:RD,70,PW JGO,12,Y0:CL:"Enter option number (1 to "OX") or [RETURN] only to quit: "; TNI,0,ST%,OS:ER:ST%2400 ^QUIT hGO,12,Y0:C   ets "0~320:22:OP,!" Please wait, "P$::fOD,12,X,2,12:T(X):T(10(T(T)).5):T9T9pT;:(N0KN)(N0KP)190NPPN:PN$KY$(N):1000MS190320:360:ES100NKNDS1:NNSN15500:ESİ380:DSN:LOSE"9RD,0,NV:RD,4,CF:RD,49,SA:RD,69,MM:RS,5,BV$ES$(12)KQXybER(222):EFĭER6ER8EF0:XO:lPX'General Ledger System,Accounts Payable System,Accounts Receivable System,Inventory Control SystemZ'Payroll,Labels PluCOUNTS PAYABLE PROGRAMS":RS,10,PV$:SC2:cDK$"ACCOUNTS RECEIVABLE PROGRAMS":RS,13,PV$:SC3:DK$"INVENTORY CONTROL PROGRAMS":RS,16,PV$:SC4:$DK$"PAYROLL PROGRAMS":RS,20,PV$:SC5: DATE- GO,26:"Enter today's date: ";:XY,X,Y:O:!*BP11:P2N:SR,Z,L%,N:EA,Z'*L-*Q*D$(4):ES$(27):BL$(7)(7)y*UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"*IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IT$"INVTRANS.FILE":IC$"INVENTORY CONTROL"&+Q$"=":SP$" ":S8$" ":IR$"INVALID T:P$"REPORT":46000)bAC$"complete":500:570n)NL2:600:SP$:PL,B60(P$),LP$,L" TOTAL =",D8,GT,1,11:)\SGĭLG0P$"PRODUCT GROUP":4600:GT0)f)$).Z(NP)*8N0:PP1P2:BR,IX$,R2P,%A%:BR,ID$,A%,@PG%:NN1:Z(N)PG%TTN:L%(N)P exceeds 10% of on hand"U':CVCV2:330:BL$;:YN,E$", OK to accept",N:N04110_'<4170'@(QPC(3))DVE$"Dollar variance exceeds $50.00":4154'JCV20:312:Q4200(TAVLRMRįER,"UNABLE TO POST, INVENTORY TRANSACTION FILE IS FULL":,6%CV20:312:OP,"Enter physical quantity or [RETURN] only if book quantity is OK":22:OP,"(enter !Quit to end physical inventory entry)"%GO,H1,15:OX,6,FC$:GO,H2:CL:GO,H1:NI,6,ST%,PQ:ER:ST%2ST%0:PQOH%ST%PQ04130&LI,A$#OHQ(1)AQ:UP41002#5400:SGPG%LG4060V#4700:WGĭLG0NL0:600:720#PG%NL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1#NL1:600:PQOH:OHOHQ1$NL1:600:PU,S9,K$,S23,S$,S3,U$,I2,PG%,D8,OHHU,2,7,D8,PQHU,2,7,D8,QT0:NP(P2P1)(P1NP)43004"LG1:SGUPİ4900Q"PP1P2:LP:SGLL%(P)m"UPLPT%(L):LP4250"BR,IX$,R14L,$K$:AF4040"K$P1$P1P1:4250"K$P2$4040"NP:PP2:P2N1:4250"BR,IX$,R2L,%A%:5300:PGĭPG%PG4250UP1:4000 PNNL0:600+ 720:40008 AS3610Q WD,IC$" DATA"::0y 450:GTST:P$"DATA SET":4600:490 ASNS4400 $ASAS1:3010 <80:2:OP,TL$:GO,1,5:OX,80,"_" >GO,1,7:"Part Number :"28)"Costing Method:"+!FPLerror after" "entering the physical quantities, you can correct the quantities by entering adjustments with the Inventory Transactions option.": OP,"Press [SPACE BAR] to continue":WS,A$:1:: PN0:PF0:QF0:RT0 ASDV$I1$(AS):D2$]. A" "Physical Inventory Analysis Report will be printed after you enter the results. This report will itemize all changes to inventory quantities as a result of the physical inventory":g " Be careful when entering the quantities, as they ar,L"Description :",B28,L"Product Group :"`!PPL,L"Unit of Measure:",B28,L"Last Txn Date :":!ZPL,L"Unit Cost :",B28,L"Last Cost :"::"Book Quantity :"::PL,L"Phy. Quantity :",B28,L"Variance Qty :"!d:OX,80,"_"::!"ST0:GI2$(AS)- EF1:EFĺD$UL$IX$DV$:EF0:30407 3500G 3900:5100 DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Data Set # "(N)")" P11:P2NP:H2$"":AFH2$"(Part Numbers: "P1$" thru "P2$")" H3$"":PGH3$"Product Group # "(PG) e immediately recorded inthe inventory system. To insure accuracy, the system will ask you to confirm"  "any physical quantity that differs by more than 10% from the book quantity or if the dollar variance exceeds $50.00. If you discover any entry system will display your inventory parts, in the order you have selected (e.g., by product group).": " As each part is displayed, enter the actual quantity if it differs from the book quantity. If the book qunatity is correct, just press [RETURN4140(^1000:Q4200T(`Q(7)Q(7)Q:Q(1)Q(1)Q:NGP(9)P(9)A1:P(12)P(12)A2t(b6000:T%(L)A:Q(8)TD:5350(hLGPG%:UPRTRTX:STSTX:GTGTX((UP4350(400:PNNL0:600(720:UP0:4000(4700:ASQF3600)0450:GTR:SQ,A$,"QUIT",N:NQF1:4036G&ER,"INVALID QUANTITY ENTERED":4120&"QPQOH:GO,H1,15:OD,8,PQHU,3,6:GO,H21:OD,8,QHU,2,7:312&,330:YN,"OK to accept this physical quantity",N:N04110&6(OH10PQ10)(Q).1OH4160'8E$"Variance1HU,2,77$XC:390:X(CQ1C1):OD,8,X,1,11::4200}$ACPC(CX):GO,H1,7:OS,8,K$::GO,H1:OS,22,S$:GO,H2:OI,2,PG%:$GO,H1:OS,2,U$:GO,H2:CL:Q(8)įFJ,Q(8),A$:OY,A$$GO,H1,11:XPC(1):390:GO,H2:XPC(3):390% GO,H1,13:OD,8,OHHU,3A$,"ALL",N:NAF1:2400C SQ,A$,"SELECTIVE",N:NįER,IR$:2310c. P$"start":370:ESES2360w0 VV3:340:23108 P1$A$:P$"end":370:ESCVCV2:2350: P2$A$:AF0` f 310:GO,1:" During the physical inventory update process, the listing by product group",N:N02162=SGN:WG0:SG2300ICVCV1330:YN," Start a new page for each product group",N:N0İ344:CVCV1:2210WGN350:V3CV 330:OP,"Print !All or !Selective parts: ":S0:360:ES2162 SQ,FĺD$UL$IX$I1$(N):EF0:2080LER,"DATA SET # "(N)" NOT CREATED":2060m CSN:DV$I1$(CS):D2$I2$(CS)v*3504V2CV>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020HSQ,A$,"ALL",N:N2200JSQ,A$,"SI%:1810":PC(1)0:PQPC(1)APQ(D.]V013:CVV0:AS0:DV$I1$:D2$I2$:MS2100hMSıFS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340: SQ,A$,"CURRENTon/Txn Date UM PG COG Qty Unit Cost Unit Cost Ext Cost":"======== ====================== == == ====== ====== ====== ========= ==========":Q01200WQAC:LFWQQ:1800A1(QACC1):A2A1:WQ0:LF1050PQ0:900,H$""ĺ(OW(H$))2)H$:LNLN12 39)"Book Phy Var"14)"Dollar":" Part # Description UM PG Qty Qty Qty Unit Cost Variance":?*33)"Ref. Txn Actual Inventory Inventory":" Part # Descripti"Printing "HD$A$:AHU$(HD$,1):UC,HU$:OW80:OLLL:EPOL6VPFįPW,PS:PF1\oPFįPW,0:PF0u{900:650:PW,1:&0AC$"aborted":500:590D:580N7000P200XbNLĭLNNLEPLNLNNL:lV1:340VXVCV1:340.ZVCV2:340?^CVCV2:330dhKI,S,A$:ER:ESA$ES$:ESİ330jjrCVCV1:330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$tGO,H:S8:360:ESıvUC,A$:A$""A$(S8$A$,8) xGO,H,CThe following prompts determine the order in which your inventory parts will be displayed and listed in the Physical Inventory Analysis Report (e.g., sorted by"= p"product group). To simplify the entry process, you should display the parts in the same 900:NLİ700:600*FFĺ(FF):@LLNOL:SP$::FO650pPNPN1:LN8:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$ASSUDS$""H$DS$:790:H$H2$:790:H$H3$:790SP$:80V:OS,S,A$:@OD,8,X,3,9:X(X):X(10(X(X)).5):X9X9JX;:P{A$"":ASA$", for Data Set # "(AS)CV5:312:12:OP,"Ready to Print "HD$A$:14:OP,"--- Press [SPACE BAR] to print report ---":WS,U$CV12:312:13:OP,order that they appear on your Physical Inventory Worksheet."O x2000:ES100Y 3000_ o 1::D$CL$y 250 MM,IC$:D$"RUNINVMENU.PROG"IP$ WD,IC$" PROGRAMS":230 6CV8 8330:CS: JGO,1,CV:CL:GO,12:T330:CVVCVC1% 7000 5000:80t (OS0:HD$"Physical Inventory Analysis":TL$"*** Enter Physical Inventory Results ***" 21:OP,IC$" SYSTEM":3:OP,TL$:5:OP,CO$ d310:330:YN,"OK to enter physical inventory results",N:N0200 n310:GO,1:"NGLE",N:NįER,IR$:2110%fCVCV1wp330:" Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170rVV2:340:2100zST%N1N99įER,"INVALID PRODUCT GROUP":2160PGN:SG0:WG0:2300PG0%CVCV1:330:YN," Sort ",N:N2090,SQ,A$,"ALL",N:NAS1:2090VSQ,A$,"SPECIFIC",N:NįER,IR$:2030bCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:E(Q):A20:LK%DL%/LPLK%:LPQPQQ:1280I5400:NQ2:N01250XNPQNPQ|Q2Q2N:PQPQN:A2A2(NCC1)5450:PQ12501800:A1A2:AC(A2Q):PQWQ:AWQAC:LPDL%LP18505400:Q20PQPQQ2:AAQ2C&LPLK            iz #/    ̮ǠҮǠӮǠ ˆ ƮǠ! ծǠ  ӮǠ !֮ǠŮǠ' ԮǠ ŮǠ#"ѮǠ̮Ǡ󍠠ϠծǠӮǠԮǠѮǠϮǠ/LI,A$:(A$,1)"%"N(A$):N02450X ER,"INVALID QUANTITY OR PERCENTAGE (%)":2410f LQN:350 400:ESİ346:LS12352,2410(  R0 ASDV$I1$(AS) EF1:EFĺD$UL$IX$DV$:EF0:3040 3500 5100% DS$"":MSįFS,DV$,NS,IGN:WG0:SG2300CVCV1j330:YN," Start a new page for each product group",N:N0İ344:2210sWGN350:V3CV 330:OP,"Print !All or !Selective parts: ":S0:360:ES2162 SQ,A$,"ALL",N:NAF1:2400 SQ,A$,"SELECTIVE",N:ER,"DATA SET # "(N)" NOT CREATED":2060B CSN:DV$I1$(CS)K*350U4V2CV>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020HSQ,A$,"ALL",N:N2200JSQ,A$,"SINGLE",N:NįER,IR$:2110fCVCV1Lp========":>V0CV2MS:CVV0:AS0:DV$I1$:MS2100IMSı`FS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090 SQ,A$,"ALL",N:LNLN1 _ RT1ĺ40)"Last Order On On Qty":T2$" Hand Order Req'd Ext Cost":*40)C$" Order Min On On "T1$(RT):T2$"Order Hand Order "T2$(RT): "======== ====================== == == ======== ===== ===== ===== ===== P$:"***** LISTING ABORTED....."70AC$"aborted":500O:SS,98,"another ":XX540vlNLĭLNNLEPLNLNNL:v900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė: A330:OP,"Select !Console or !Printer: ":S0:360:ESırSQ,A$,"CONSOLE",N:NCP0:EP23::490:480SQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PS  1::D$CL$ 250N MM,IC$" REPORTS":D$"RUNINVMENU.PROG"IP$k WD,IC$" PROGRAMS":230 6CV9:330:CS: JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V XVCV1:340 ZVCV2:340 ^CVCV2:330 hKI,S,A$:ER:EFFĺ(FF):!LLNOL:SP$::'0650QPNPN1:LN8:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$H$H1$:790:H$DS$:790:H$H2$:790:H$H3$:790SP$:800:900H$""ĺ(OW(H$))2)H$:&HU$(HD$,1):UC,HU$:OW80:PN0:\310:12:OP,"Report generation in progress"::b}900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:GO,1,1:(KB)SBıKS,0:(KB)(ES$)ı &CPLNLN2:SSA$ES$:ESİ330 jf rCVCV1:330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$ tGO,H:S8:360:ESı vUC,A$:A$""A$(S8$A$,8) xGO,H,CV:OS,S,A$: NPC(N):OD,8,N,4,8:N(N):N(10(N(N)).5):N9N9 N;:9 7000 5000:80` (OS0:LSRT4:AQ$"":HD$RT$(RT)" Report":C$"Last":LSC$"Unit" 21:OP,IC$" SYSTEM":3:OP,"*** Print "HD$" ***":5:OP,CO$ d310 xRS,98,A$:330:YN,"Print "A$HD$,N:N0200 2000:ES100 3000NįER,IR$:23100. P$"start":370:ESES2360D0 VV3:340:2310o8 P1$A$:P$"end":370:ESCVCV2:2350: P2$A$:AF0` 350:LS2500j 330:"Enter low stock quantity or percentage: ";:NI,0,ST%,N:ER:ST%32352t ST%N02450%~ 330:" Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170`rVV2:340:2100zST%N1N99įER,"INVALID PRODUCT GROUP":2160PGN:SG0:WG0:2300PG0:CVCV1330:YN," Sort listing by product group",N:N02162SNAS1:20907SQ,A$,"SPECIFIC",N:NįER,IR$:2030CCVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:EFĺD$UL$IX$I1$(N):EF0:2080-        1:ALR:6030$/AAV:BR,IT$,AV,#AVN/LPDL%:CM4LPLK%DL%:DL%A:6050x/BR,IT$,LP,@X%,%LK%:LK%LPLK%:6040/5400:LK%A:5450:LK%0/X%10:BW,IT$,A,@X%,%LK%,3Q,#WQ,3TD,#AC,$RF$,@Z%/RRRR1:UT1:52000XEFER(222):ER6ER8EFer","Surplus"," Value","Low Stock","Date of","Last Txn"x"XRS,17,I1$:RS,99,FC$F"RD,1,PS:RD,2,FF:RD,3,LP:RD,6,RT:RD,52,NSk"PC(3),Q(8),RT$(4),T1$(4),T2$(4)"I14:RT$(I),T1$(I),T2$(I):"RD,0,UF:MSUF(NS1):MSĆI1$(NS):I1NS:RS,702I,I1$(I):"""OSĺD$CL$:EA,K$,A%,L%$#X$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"!Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":T2$" Part # Description UM PG Cost Point "!HU100:TT10000:SB128"RS,0,TD$:RS,1,CO$:RS,16,IP$:570LSıKNL2:600:PL,B60(P$),LP$,L" TOTAL =",D8,G,1,11:SP$:w\SGĭLG0P$"PRODUCT GROUP":4600:G0}fRT4810,4820,4830,4840VOPOHOO:V0ĭVMOVMOVOO:VOO(OHOP):VLQ:V0VPQOP VOHV:PG%LG4100/4700:WGĭLG0NL0:600:720tPG%CPNL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1NL1:600:PU,S9,K$(Q),S23,S$,S3,U$,I2,PG%:X(VLC.5):RT14120N3:390:PL,D8,OPHU,3,6,D8,OHHU,3,6,D8,OOHU,3,6,D8,VHU,3,6,"":LS3200?0 A$"":LQ0A$"% of Order Point":PQ(LQHU)j2 H1$"On Hand Quantity <= "((LQ))A$y CPPNė PNNL0:600 720:4000 AS3610 WD,IC$" DATA"::0GS:P$"DATA SET":4600ASNS4400$ASAS1:3010 $ .EA,K$:Z(NP)_ 8N0:QP1P2:540:BR,ID$,A%(Q),@PG%:NN1:Z(N)PG%TTN:L%(N)Q:~ BP11:P2N:SR,Z,L%,N:EA,Z LK$(NP):BR,IX$,1,A!K$:NP:  KB16384:KS16368 D$(4):ES$(27) UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"=!ID8,X,3,9:4200pN32LS:390:PU,D8,OPHU,3,6,D8,MOHU,3,6,D8,OHHU,3,6,D8,OOHU,3,6:LSįPL,D8,X,3,9:4200"Q(8)įFJ,Q(8),A$:PU,B1,YA$$hLGPG%:RRX:SSX:GGX4700:AS36000GR:P$"REPORT":4600bAC$"complete":500:+S0:G0:NP(P2P1)(P1NP)4300?LG1:SGİ4900aPP1P2:540:QP:SGQL%(P)BR,ID$,A%(Q),@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,A3Q:8:PGĭPG%PG4250OHQ(1)AQ:OOQ(2):OPQ(3):MOQ(4):LCPC(3)4800:V04250 SG1$,N:N0DS$"(Data Set # "(N)")"E AFH2$"":P11:P2NP:3100 FS,P1$,NP,K$,P1:FS,(P2$Z$,8),NP,K$,P2:P1(P1):P2(P2)(P20) P2NPP2NP H2$"(Part Numbers: "P1$" thru "P2$")" H3$"":PGH3$"Product Group # "(PG) & H1$R,#RR,#MR,#UT:8.ZBW,IT$,0,#AV,#LR,#RR,#MR,#UT:OS1:E.RW$"BR".@RW$,ID$,A%,@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,A3Q:8:.RW$"BW":5310.RW$"BR"."@RW$,IT$,LP,@X%,%LK%,3Q1,#Q2,3DT,#C,$R$,@M%:.JRW$"BW":5410.p /zAVLRLRAverage Costing","LIFO (Last In, First Out)","FIFO (First In, First Out)"BF"BFD$OP$IX$DV$",L32":D$OP$ID$DV$",L82"L# BR,IX$,0,#NP:K$(NP),A%(NP),L%(NP)n#NPįBR,IX$,1,A!K$:NP,A%A%:NPy#OS1:#XEFER(222):ER6ER8EF0:XO:#bPX8$'"Order Recommendations",,,"Inventory On Order"," Order"," Value","Surplus On Ord 1) Load ";::" SYSTEM MANAGER ";::" Diskette"\ :" 2) Press any key when ready...";d A$w :(47081)16  COPYRIGHT 1984 MANZANITA SOFTWARE SYSTEMSD8 D$(4):BL$(7)4 :(27)(17):D$"PR#0":: dq n3:3::" INVENTORY CONTROL PROGRAMS DISKETTE ": x:BL$BL$ "The Business Accountant System cannot be started up from this diskette" : "To start up the system:"1 :" 0:XO:0bPX00'Standard,Average,LIFO,FIFO rice,1,13,8,5,1,Last Txn Date,date of last transactionV' NStandard,Average,LIFO,FIFOD           "" You are still in the "S$"SETUP mode.";>"While you are in this mode, "S$"transactions will NOT be posted tothe General Ledger. You should use this mode ONLY to enter your initial part information and on hand quantities.":~H" Use the Parts Mlable options are:"bOPOP1:GO,20,9OP:PL,L"<",I3,OP,L" > - ",LO$:P$(OP)P$:SC(OP)SC:SC0:1300:GO,1,10:OP,"Please load the following diskette(s):":V12:DK$""įFF,DV$,A$:GO,24,V:OP,!" "A$": "DK$" ":VV2XGO,1,V3:00 NPUG:WF0:PF$"":GF$""8DK$IC$"DATA":1:\EF1:EFĺD$UL$IX$I1$:EF0:550tPF$DK$:NVWF900&NV5800EF1:EFĺD$UL$IT$I2$:EF0:5802900DPF$""İ2000XNV2SC0700bDK$GL$"DATA":EF1:EFĺD$UL$GX$G1$:EFION":210SM400.RMRM:SD,5,RM:504,>@350gJMM,"MAIN"::D$"RUNMODMENU.PROG"IP$x^WD,IR$:300RMN7500UGįER,"CANNOT POST, General Ledger System not available":2101::SCSC(N):P$P$(N)".PROG":SC28:P$"INVREPORTS":1000ZO$"Print Inventory On Order Report":SC2:P$"INVREPORTS":1000O$"Print Surplus On Order Report":SC3:P$"INVREPORTS":1000O$"Print Low Stock Report":SC4:P$"INVREPORTS":1000R$""=GO,12,12OP:CL:OP- Transfer to "S$"Reports Menu":R$", !Reports,":200rO$"Print Stock Status Report":SC1:P$"INVANAL":1000O$"Print Stock Status Detail Report":SC1:P$"INVDETAIL":1000O$"Print Inventory Margin Analysis Report":SC2:P$"INVANAL":1000Cnt List of Parts":P$"PARTSLIST":1000\ |O$" Inventory Parts Inquiry":P$"PARTINQ":1000 ~O$"Purchase Ordering":P$"PO":1000 O$"Inventory Transactions":P$"INVTRANS":1000 O$"Physical Inventory System":P$"PHYINV":1000+ O$"Post to t,"Enter option number (1-"(OP)")"R$" or [RETURN] only: "jNI,0,ST%,N:ER:ST%2ĴRM1280,300LI,A$:SQ,A$,"REPORTS",SM:SMSMRM:SMNOP1SMĭST%N1NOPįER,"INVALID SELECTION":210 RMįBT,PW,N,I:IįER,"SECURITY VIOLATO$"Print Inventory ABC Analysis Report":SC3:P$"INVANAL":1000O$"Print Inventory Transaction Register":SC1:P$"INVREGISTER":1000O$"Print Inventory Transaction Summary":SC2:P$"INVREGISTER":1000O$"Print Order Recommendations":SC1he General Ledger":P$"INVRESET":SC2:1000d O$"Close Inventory System":P$"INVRESET":SC1:1000 O$"Create and Adjust "S$"Data Files":P$"INVCREATE":SC2:1000 O$"Convert Inventory Data to DIF":P$"INVDIF":10007GO,19,10OP:"REPORTS z 7000 1:5000! 80. 2RD,5,RMQ 4MT$"SYSTEM":RMMT$"REPORTS" <:1:OP,"<<< The Business Accountant >>>" >3:OP,IC$MT$" MENU" @5:OP,CO$ d nOP0:SC0:RM150 xO$"Maintain Parts":P$"PARTS":1000& zO$" Priaintenance and Inventory Transaction options to enter your":S$"information. You should also use the many reporting features"R"of the "S$"System to verify that you have correctly entered your":"part information and on hand quantities."<fGO,12,20OP,"--- Press [SPACE BAR] when ready or use [ESC] to abort ---":WS,A$:(A$)27ġ:50`:rGO,1,8:CS:}UGıD$"OPEN"ID$I1$:BR,ID$,0,#PU,#CM,A#PA:12,#SU:SUı'41300:OP,!" I M P O R T A N T ":::" Just a friendly reminder:0:700lGF$DK$:NVWF9005PF$""GF$""800k1200:DK$GF$:DV$G1$:1220:DK$PF$:DV$I1$:12201250:WF1:520 MM:SD,6,SC:SD,7,0:SD,47,NP:SS,98,"":DK$PG$*EF1:EFĺD$"RUN"P$IP$WD,DK$:80:50OPįGO,12,8:CS:"Avai       ELįER,"INVALID LINE NUMBER":1210UK(L)įER,"THAT LINE CANNOT BE EDITED":1210t320:ED1:2000:UP1:1200I1LX:K(I)įIVGO,H(I),V(I):OI,2,I:::350:EDDDL3T2:3000Lİ330:340310:GO,H1:HG,16:GO,H2:GO,H:KI,8,PN$:ER:PN$ES$PN$""650PXUC,PN$:380:NPN$SP$İ300:1110`390:FS,PN$,NP,KY$,N:N0įER,"PART NUMBER ALREADY EXISTS":1110jAPA%(IW):370tFS,PN$,NP,KY$,IW:IW(IW):360:5200:L0:350:DD1:3000:6503FL,1,LX, LL100140GNPXPįER,"NO ROOM, PARTS FILE IS FULL":140LFĭAVLRMRįER,"NO ROOM, TRANSACTION FILE IS FULL":140330:L1EDLLL:L13ĭCM1PQ(1)7442000ES760LL1:L740720LL1:LLLLLL KDEP(PQ(1)PQ(2)DL%)wSB,1,"Enter !Edit, !Rename,",KD," !Delete,",1," or [RETURN] only: ",P$:330:OP,P$KI,0,A$:ER:A$ES$ĴEP1650,100A$""680EPCP(3)CP(1):PQ(1)LFİ6000UPİ5350KP:100 SQ,A$,"EDITĺD$UL$IX$I1$(N):EF0:330:OP,!" Please wait, switching data sets "::I1$I1$(N):I2$I2$(N):50D$OP$IX$I1$(CS)",L32":ER,"DATA SET # "(N)" NOT CREATED":140320:3000:FS,PN$,NP,KY$,IW:EPIW0:EPIW(IW):700X5300:3500:PPIW:UP0įMV,N,KY$(IW):MV,N,PA%(IW)1vPPIW1:XU1:O|SQ,PN$,"NEXT",N:NN1:n~SQ,PN$,"PREV",N:NN1:PN$"DATASET"N2:A$(PN$,1):A$"*"A$"!"N2:N0:PN$(S8$PN$,8):(N0KN)(N0KP)190IWPPN:PN$KY$(GRAMS":230M,E$(VP$,1):(N)1E$E$", can't use NEXT, PREV or DATASET"y.N2E$E$", can't begin with * or !"0ER,E$:6GO,H1,V:HG,16:@35,23:GO,1,21:CS:35,24:GO,20,21:JGO,1,22:CL:GO,12:TQ$"":T2Q$" or !None"S,3:PU,L"Number of Parts =",I5,NP,L" (",D8,TTNPXP,6,5,L"% full)Q pDD0:3500` xPP0PP0q zPPNPPPNP KNPPNP:KPPP1 SB,1,"Enter part number",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:OP,P$5 MSIW):EP1:320:600$320:MS190330:OP,"Enter data set number (1-"(NS)") or !Next: ":NI,0,ST%,N:ER:ST%3140ST%N0NNS490LI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATASET NUMBER":460NCS1:NNSN1a5200:EF1:EF!V330:OP,"Enter "P$(L)Q$:A^TT(L):SS(L):XX(L):OHL6d`HH(L):VV(L):H1H4:H2H21:}hNPNP1:NPXEXENPjNNPIW:N0įMV,N,KY$(IW):MV,N,PA%(IW)lPA%(IW)A:KY$(IW)PN$:US%(A)1nPPIW:UP1:XU1:rNNPIW:NPNP1tN023:OP,"(enter !D!A!T!A!S!E!T to switch data sets)"` PN$"":L0:ED0:2000:ESPN$SP$200u 380:(N)1400 N2450 Nİ390:500 300:140 320::5200:D$CL$ 250 MM,IC$:D$"RUNINVMENU.PROG"IP$ WD,IC$" PROW 7000 5000:80:CS0A OP,"*** Maintain Parts ***"X GO,1,4:OX,80,"_" (N0:L0LX:352:GO,H,V:LLELNN1:PU,I2,N,L"-" *GO,H1:OS,15,N$(L):":": 25100:GO,50,6:"Costing Method : "CM$(CM);:CL:PP0 dB nGO,2219MK:EPK(6)0:K(7)0:K(10)0:K(11)0:K(12)0:K(15)0PCM1ĭEPPQ(1)K(13)01300:330:GO,1:"Only ";:OP,!"highlighted":" items can be edited, enter line number or [RETURN] only: ";:NI,0,ST%,L:ER:ST%2įFL,0,LX,K:1300:650#ST%L1LLLX740/ FD,0,XP,US%,A:US%(A)1:3608650>GO,12,23:OP,"Confirm by typing !D!E!L!E!T!E: ":KI,0,A$:UC,A$:A$DL$İ320:650US%((PA%(IW)))0:3705200:KP:100L)V330:"Enter new part number: ";:XY,H:OX,8,FC$",N:N1200)SQ,A$,"RENAME",N:N1100ESQ,A$,DL$,N:NKD1000eER,"INVALID RESPONSE":650kLL0:FL,"",2,PS$:FL,0,7,PQ:PQ(4)1:FL,0,3,CP:AQ0:LT0:DL%0330:BL$;:YN,"Part number not on file, want to add this part",N:N0730         ER":150A EF1:EFĺD$UL$IX$I1$(N):EF0:I1$I1$(N):L1$"":180p ER,"DATA SET # "(N)" NOT CREATED":150| CVCV8 5200 NR0:NC0:FL,0,NP,L%:FL,0,CX,CD 1000 1::D$CL$:LFĭDF$PV$İ8000:ES100 250MM,IC$:D 7000 5000# 80:390: 2OS0:L1$"":AQ$""@ d n332:CV9:330:YN,"Want to convert "AQ$"Inventory Control data",N:1::N0200 xCVCV2:MS180 330:OP,"Use !Current (#"(CS)") or !Specific data set: ":KI,0,A$:ER:Are,""{%'46,2,2,2,1,Product Group,product group (1-99),46,3,1,2,2,Cost of Goods #,cost of goods sold account number (1-8)!&$'1,6,6,4,1,On-Hand Qty,on-hand quantity,1,7,6,4,2,On-Order Qty,on order quantity,1,8,6,4,3,Order Point,order point,1,9,6,4,4,Min%PA%:NP#dKP:XU0:#)#RW$"BR"l#@RW$,ID$,PA%(IW),A@PG%:2,3AQ,A$PS$:3,%DL%,A#CP:3,A3PQ:7,3LT:#RW$"BW":5320#p#zAVLRLR1:DL%LR:6030#DL%AV:BR,IT$,AV,#AV#ST%1:BW,IT$,DL%,@Z%,%Z%,3PQ(1),#PQ(1),3TD,#CP(1),$RF$,@ST%/1CM4CM1"LFCM2M"D$OP$IT$I2$",L28":BR,IT$,0,#AV,#LR,#RR,#MR,#UT"CS1:MSįFS,I1$,NS,I1$,CS:GO,49,3:"Using Data Set number "CS" of "NS:SS,17,I1$(CS):SS,18,I2$(CS)"(XU0:"P#ZXUįBW,IX$,0,#NP,#XP,#XE:NPįBW,IX$,1,A!KY$:NP,A$& RD,0,UF:RD,52,NS:MSUF(NS1)] 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)V6:P$""P$N$(I) P$(I)P$: PS$(3),PG%(2),CP(3),PQ(7),CM$(4) I14:CM$(I):6!MSĆI1$(NS),I2OD,8,NHU,3,6:OHĭNLFCP(1)0:GO,H2,V(13):OX,10,SP$>F YN LTįFJ,LT,A$:OY,A$:iP OX,S,SP$: L0LX:350:3000::D$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"IX$"INVINDEX.FILE":ID$"INVDATA.FILE1(X1))2050 PG%(X)N:3000GD3,S,ST%,N:2060:ST%0N02050Y ST%2NN10k CP(X)N:3000` MXQ(L12):NI,S,ST%,N:2060:ST%NMNXQE$"QUANTITY ENTERED, MUST BE "(M)" TO 999999":2052j PQ(X)N:3000  GO,H2,V:DD3$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:EDĭT1įPU,L:P2(P2)(P20)! P2NPP2NPP H2$"(Part Numbers: "P1$" thru "P2$")"| H3$"":PGH3$"Product Group # "(PG)& T2$"======== =========== ====================== == == ======= ========":T1$" Part # Mfg Part # Description UM PGESCVCV2:2350!: P2$A$:AF0*` 350j 330:OP,"Print !Cost or !Price, [RETURN] only for none: ":360:ESVV3:340:2310t A$""PC0:2500~ SQ,A$,"COST",N:NPC1:2500 SQ,A$,"PRICE",N:NPC2:2500 ER,IR$:2410  350:400:E340:2100>zST%N1N99įER,"INVALID PRODUCT GROUP":2160WPGN:SG0:WG0:2300hPG0:CVCV1330:YN," Sort listing by product group",N:N02162SGN:WG0:SG2300CVCV1330:YN," Start a new page for each product grou data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030ST%N1NNSįER,"INVALID DATA SET NUMBER":2060EF1:EFĺD$UL$IX$I1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN:DV$I1$(CS)*3504V2CVNS,I1$,CSwAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data sets: ":S0:360:ESVV0:340:SQ,A$,"CURRENT",N:N2090SQ,A$,"ALL",N:NAS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1I 330:" EnterS,98,"another ":X5408lNLĭLNNLEPLNLNNL:v900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to stop":WS,A$:A$ES$570NLİ700:600GC:CPė:FFĺ(FF):LLNOL:SP$::650PNPN1:L60:ESı9SQ,A$,"CONSOLE",N:NCP0:EP23::490:480aSQ,A$,"PRINTER",N:NįER,IR$:420490:15:OP,"Listing may be aborted by pressing the [ESC] key":CPPS:OLLP:EPOL6:PW,PSHU$(HD$,1):UC,HU$:OW80:PN0:#310:12:OP,$ 250/ MM,IC$:D$"RUNINVMENU.PROG"IP$L WD,IC$" PROGRAMS":230` 6CV9:330:CS:z JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V XVCV1:340 ZVCV2:340 ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 jG rCVN7:L(OW(CO$))2DPU,L"As of: ",YTD$:L15)CO$L8)"Page "PN\(OW(HU$))2)HU$H$DS$:390:H$H2$:390:H$H3$:390SP$:800:900 LS)T1$:LS)T2$:V0CV2MS:CVV0:AS0:DV$I1$:MS2100MSı FS,I1$,"Report generation in progress"::)D900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:1:(KB)SBıKS,0:(KB)(ES$)ı&CPLNLN2:SP$:"***** LISTING ABORTED....."0AC$"aborted":500:SCV1:330:OS,28," Enter "P$"ing part number":": ";:XY,H:OX,8,FC$` tGO,H:S8:360:ESı vUC,A$:A$""A$(S8$A$,8) xGO,H,CV:OS,S,A$: H$""ĺ(OW(H$))2)H$:LNLN1  330:OP,"Select !Console or !Printer: ":S0:3 7000 5000:80> (OS0:AQ$"":HD$"Parts Listing"X 21:OP,IC$" SYSTEM" 43:OP,"*** Print List of Parts ***" 65:OP,CO$ d310 xRS,98,A$:330:YN,"Print "A$HD$,N:N0200 2000:ES100 3000  1::D$CLSİ346:2410(  , ASDV$I1$(AS)Q EF1:EFĺD$UL$IX$DV$:EF0:3040[ 3500e 5100 DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":P11:P2NP:3100 FS,P1$,NP,KY$,P1:FS,(P2$Z$,8),NP,KY$,P2:P1(P1)p",N:N0İ344:2210WGN,350:V3CVn 330:OP,"Print !All or !Selective parts: ":S0:360:ES2162 SQ,A$,"ALL",N:NAF1:2400 SQ,A$,"SELECTIVE",N:NįER,IR$:2310. P$"start":370:ESVV3:340:23100 P1$A$8 P$"end":370:U>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020pHSQ,A$,"ALL",N:N2200JSQ,A$,"SINGLE",N:NįER,IR$:2110fCVCV1p330:" Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170 rVV2:        $?dA$(SS$A$,8):UC,A$:GO,H,CV:OS,8,A$:FS,A$,NP,KY$,I:Ex330:"Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%31100ST%N1N99įER,"INVALID PRODUCT GROUP":1410PGN:12001570:NR1530I1NP:L DE1280L%(I)ıfNRNXE$"TOO MANY "T$"S SELECTED, MAX="(NX):UC,E$:ER,E$::1100zL%(I)1:NRNR1GO,SH,10:OI,3,NR:L%(I)ıL%(I)0:NRNR1:NR0NR01270X$"":Z$"":P$"start":1350:ES1100 I selected "T$"s"8SO07LSOįGO,31,SOV11:HG,36[N1270:CVV18:330:35,23:CS:V330:"Enter option (1-7) or [RETURN] only: ";:NI,0,ST%,N:ER:ST%3100XST%21800`ST%N1N7įER,IR$:1110jSON:I1:XNP:DESO2SO4SO6l Data to DIF ***"&5:OP,CO$::,MN1:A$"Select "T$"s":334GO,25,8:BX,29,2:GO,30,10:"# selected "T$"s = ";:XY,SHV114CVV1:330:CS:GO,3:"Available options:";$GO,24:"< 1 > - Select all "T$"s"&GO,24:"< 2 >N0:}r330:CS:23:BL$;:UC,E$:OP,"--- NO "E$" SELECTED, Press [SPACE BAR] to return to previous step ---":WS,A$:|OP,"--- Press [SPACE BAR] to continue ---":WS,A$:1::1:OP,IC$" SYSTEM"3:OP,"*** Convert Inventory ControBR,IX$,0,#NP:KY$(NP),PA%(NP),L%(NP)J NPįBR,IX$,1,A!KY$:NP,A%PA%:NPU OS1:} XEFER(222):ER6ER8EF0:XO: bPXKbPX(CK":CL$"CLOSE":OP$"OPEN"]IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ"HU100:TT10000:SB128RS,0,TD$:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,99,FC$!RD600KPU,BLS,S9,KY$(Q),S12,PS$(2),S23,PS$(1),S2,PS$(3):PG%ĺ3):4120YOI,3,PG%PU,B2,D8,(OHAQ)HU,3,6,B3,D8,OOHU,3,6:PC4140"NPC(PC):OD,8,N,2,10:N(N):N(10(N(N)).5):N9N9$N;,LGPG%:SP$6hAS3600AC$"RUNINVMENU.PROG"PV$2WD,IC$" PROGRAMS":230LJGO,1,CV:CL:GO,12:iLCV6:330:CS:CV7:CV:N332:OP,!" Step # "(N)" --- "A$" ":TCVVİ330:CVCV1:340V^CVCV2:330h330:YN,"OK to proceed to the next step",N:ES,1,PS:RD,2,FF:RD,3,LP:RD,52,NS`PC$(2),PS$(3),PC(3):PC$(1)" Cost":PC$(2)" Price"{RD,0,UF:MSUF(NS1)MSĆI1$(NS):I1NS:RS,702I,I1$(I):OSĺD$CL$:EA,KY$,PA%,L%D$OP$IX$DV$",L32":D$OP$ID$DV$",L82"& $"complete":500:570"$5.EA,KY$:S(NP)}8N0:PP1P2:540:BR,ID$,PA%(P),@PG%:NN1:S(N)PG%TTN:L%(N)P:BP11:P2N:SR,S,L%,N:EA,SLKY$(NP):BR,IX$,1,A!KY$:NP:KB16384:KS16368D$(4):ES$(27)UL$"UNLOSGİ4900+PP1P2:540:QP:SGQL%(P)hBR,ID$,PA%(Q),@PG%,@CG%,3AQ,A$PS$:3,%DL%,A#PC:3,3OH,3OO~PGĭPG%PG4150SGPG%LG4100WGLG1NL0:600:720PG%CPNL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1NL1:1(I)L(CVCV1:X$A$:Z$"ZZZZZZZZ":P$"end":1350:ESİ330:CVCV1:1300`*XI:I0XI1o2II1:1200F330:" Enter "P$"ing "T$" Number"5(P$))": ";:OX,8,FC$:XY,H:HH8:GO,H:KI,8,A$:ER:ESA$ES$:ESıPA$""A$X$ZA$""A$Z8lDENRE$"NO "T$"S SELECTED":UC,E$:ER,E$:1110YtSO7įGO,31,V1SO1:HG,36~PG0:SO1200,1200,1300,1300,1400,1400,1500IX1100PG1230DEL%(I)1240BR,ID$,DA%(I),@PG%:PG%PG12401250II1:1210 - De-select all "T$"s"E(GO,24:"< 3 > - Select specific "T$"s"v*GO,24:"< 4 > - De-select specific "T$"s",GO,24:"< 5 > - Select specific product group".GO,24:"< 6 > - De-select specific product group"0GO,24:"< 7 > - Display On-Hand On-Order"@0 PCT2$T2$" ==========":T1$T1$PC$(PC)X: LS((OW(T2$))2)g CPPNėy PNNL0:600 720:4000 AS3600 WD,IC$" DATA"::0ASNS4300ASAS1:3000NP(P2P1)(P1NP)4200 LG1:PX(#72#SSDS:P$"global search in progress ":382T<#GS1:SSSS1:SSNSSS1e>#SSDSN0:}F#NSS:5500:ES9020P#D$OP$IX$I1$(N)",L8":BR,IX$,0,#J:I1Z#IJN0:9100d#N((IJ)2):BR,IX$,3N,$A$:A$PN$9100n#PN$A$JN1:9050DS):I2$I2$(DS)9D$OP$IX$I1$",L32":D$OP$ID$I1$",L82"\ BR,IX$,0,#NP:KY$(NP),PA%(NP)NPįBR,IX$,1,A!KY$:NP,A%PA%:NPBR,ID$,0,#PU,#CM:CM1CM4CM1 D$CL$IX$:OS1(GO,2621MS,3:PU,L"Number of Parts on file =",I5,NP72MSįSS, :",B14CPL,L"Stock Value :",B28,L"Stock Value :",B14IOsD$(4):BL$(7)(7):ES$(27)CL$"CLOSE":OP$"OPEN":UL$"UNLOCK"IX$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"HU100:SP$" ":S8$" ":100 GO,1,6MPL,L"Part Number :",B28,L"Costing Method :":PL,L"Description :",B28,L"Product Group :",B4PL,L"Mfg Part Number:",B28,L"Cost of Goods #:",B2PL,L"Unit of Measure:",B28,L"Last Txn Date :",B12:,PL,L"GO,H,V:OD,8,PQ(I)HU,3,6:I4H62:V115vVV1:b~GO,H,V:OD,8,(PQ(5)PQ(6)PQ(7))HU,3,6VV2:H18:I12:XPC(I):GO,H,V:390:GO,H,V1:OD,12,(XPQ(1).5),2,12:H62:22:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:4000ait, "P$::COD,12,X,2,12:T(X):T(10(T(T)).5):T9T9MT;:j(N0KN)(N0KP)190NPPN:PN$KY$(N):1000MS190320:360:ES100NKNDS1:NNSN15500:ESİ380:DSN:50ES0:ER,E$:DSSS:1109000:N1501923E$"INVALID PART NUMBER"CER,E$:110I[320::D$CL$e250MM,IC$:D$"RUNINVMENU.PROG"IP$WD,IC$" PROGRAMS":230@CV21:35,23:GO,1,CV:CS:35,24:GO,12,CV:JGO,1,CV:CL:GO,12:0h330:" ESB,1,"Enter part number",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:OP,P$ MSĢ22:OP,"(enter !D!A!T!A!S!E!T to switch data sets)" GO,18,6:OX,8,FC$:GO,18:KI,8,PN$:ER:UC,PN$:PN$SP$PN$ES$200 SQ,PPN:320NBR,ID$,PA%(N),@PG%,@CG%,3AQ,A$PS$:3,%DL%,A#PC:3,A3PQ:7,3LTa$PQ(1)PQ(1)AQxLGO,18,6:OS,8,PN$VGO,18,8:PS$(1);:GO,62:PG%`GO,18:PS$(2);:GO,62:CG%jGO,18:PS$(3);:LTįGO,62:FJ,LT,A$:OY,A$)tV12:H18:I17:nter data set number (1-"NS")";:OP," or !Next "\j": ";:NI,0,ST%,N:ER:ESST%3:ESıwlST%N0NNSNK0:nLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATA SET NUMBER":360pNK1:|P$"switching data sets " ~320:22:OP,!" Please wPN$,"NEXT",N:NN1:400: SQ,PN$,"PREV",N:NN1:400Q PN$"DATASET"450 PN$(S8$PN$,8):FS,PN$,NP,KY$,N:N01000 E$"PART NUMBER '"PN$"' NOT ON FILE":MS192 320:GO,8:BL$;:YN,0,E$", OK to do global search",N:N0100 _ 7000 5000:80H 1:OP,"*** Inventory Parts Inquiry ***"p GO,1,4:OX,80,"_":4000:OX,80,"_" (MSįFS,I1$,NS,I1$,DS 2NDS:5500:ESįWD,IC$" DATA"::0 <5100:PP0 d nPP0PP0 pPPNPPPNP xKNPPNP:KPPP1n 17,I1$:SS,18,I2$:GO,54,3:"Using Data Set "DS" of "NSV<GO,62,6:CM$(CM);:CL::\|qES0:1::MSıEF1:EFĺD$UL$IX$I1$(N):EF0:ES1:GSE$"DATA SET #"(N)" NOT CREATED"XEFER(222):ER6ER8EF0:XO:b1::%RS,16,IP$:RS,17,I1$:RS,99,FC$<RD,0,UF:RD,52,NS[PS$(3),PC(3),PQ(7),CM$(4)pI14:CM$(I):MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:OSĺD$CL$:EA,KY$,PA%MSI1$I1$(On-Hand Qty :",B28,L"YTD Receipts :",B8cPL,L"On-Order Qty :",B28,L"YTD Issues :",B8PL,L"Order Point :",B28,L"YTD Adjustments:",B8PL,L"Minimum Order :",B28,L"Net YTD Change :",B8: PL,L"Unit Cost :",B28,L"Unit Price     (4):BL$(7)(7):ES$(27)i%CL$"CLOSE":OP$"OPEN":UL$"UNLOCK":WR$"WRITE":IC$"INVENTORY CONTROL"%Q$(34):QQ$Q$Q$:BT$"BOT":OZ$"1,0":M1$"-1,0"%IX$"INVINDEX.FILE":ID$"INVDATA.FILE"&T$"part":SP$" ":SS$" ":IR$"INVALID SELOZ$:Q$A$Q$:#hD$.#rN1NP:L%(N)4290N#tD$:GO,H,14:OS,8,KY$(N):#vBR,ID$,DA%(N),@PG%,@CG%,3AQ,A$PS$:3,%DL%,A#PC:3,A3PQ:7#|D$WR$F$:M1$:BT$#T1NC:ICD(T):I34250#A$KY$(N):I1A$PS$(I1)#OZ$:Q$A$Q$:4280 $I4Vreplace",N:N0VV3:340:3060f! 350:YN,"OK to create the DIF data file",N:N0VV3:340:3060r!& N100x!!332:12:OP,"Please wait, creating DIF data file":GO,20,10:BX,40,4!GO,30,14:"Part Number: ";:XY,H:"ZFĺD$"INIT TEMN!I!T: ":KI,0,A$:UC,A$:A$"INIT"3054> VV2:340:3040K 350:CS V3CV:330:PU,L"Enter DIF file name: ",X20,FC$:XY,H:HH20:GO,H:KI,20,A$:ER:A$ES$3052 A$""3070 ER,"INVALID DIF FILE NAME":3060 UC,A$:I(A$):I65Ia diskette will destroy any programs or data currently saved on the diskette." 330:YN,"Initialize the DIF data diskette",ZF:ZF0İ330:CS:VV1:340:3020 ZF3054* ZFİ350:OP,"Diskette will be initialized, confirm by typing !I!CC 2400:2100 21005. DTDTI:DT1DTFXE8 DTFXDT1KB ` 2450:PU,L"Column #",I2,C,L": ":CNCįOS,22,CF$(CD(C))j  VV1CC2(CC2):H1136(CC2):GO,H,V:  NCE$"COLUMN DATA":370:1000 360:NES2100!i!g!h!l!i!g!h!t!e!d type":NjGO,2:OP,"[-->] - Highlight next data type"pDFCNC:DFįGO,42:"[DELETE] - Delete column";zCNCDTCD(C)IDT1:N(I4):VV2N:H418(I4N):GO,H,V:HG,17 GO,H,V:GK,A$:UC,A$:I(A$):HG,17:AV18:V2V18:V3V22:C1CX:2400:HGO,2,V22:BX,76,4:GO,4,V2~ I1FX:OS,18,CF$(I):4(I4)Iĺ:GO,4:V3V31DT14CVV3:330:CS:XNC1:XCXXCX >330:"Enter column number (1-"X") or [RETURN] only: ";:NI,0,ST%,C:ER: 3 N3:A$"Define final parameters":334:CV10 V1CV:330:YN,"Create the DIF data file with column titles",HD:HD02000 350 V2CV:ES1:DK$"DIF DATA DISKETTE":8100:ES100Y LF1:GO,5,CV6:OP,"! !N!o!t!e!: Initializing the DIF dat$ES$2310I3223002I8I10I1:2230KI21I11I1:2230`(I127)DF2250pBL$;:22002350:2200CNCāICNC1:CD(I)CD(I1):CD(NC)0:CCNC:DTCD(C):2400:NCNC1:DT1:2100CD(C)DT:I1:2350:CNCNST%31000@ST%22500PHST%C1CXįER,"INVALID COLUMN NUMBER":2110b\2450:HG,11f330:OP,"--- Select column data by pressing the following keys ---"hGO,2,V32:OP,"[<--] - Highlight previous data type [SPACE BAR] - Accept !h%(I)įOS,10,KY$(I):15502IV:" End ";:B1560:1050_(KB)155ĹKS,0::1532sXY,H,V:V22ı24:380"GO,1,V1:CS:NRE$T$"S":370:100360:NES1100N2:A$"Select data to appear in columns":334'PG%:4270&$I7VPC(I4)HU:4270C$VPQ(I6(I9))AQ(I7)S$"0,"V:"V"Y$_$l$D$WR$F$|$M1$:"EOD"$D$CL$F$$018:OP,"DIF data file creation is complete":20:380$:AQ$"more ":100$$KB16384:KS16368%D$P"DF$:D$"DELETE TEMP"DF$2"D$OP$F$DF$:D$WR$F$K""TABLE":"0,1":QQ$g""VECTORS":"0,"NC:QQ$""TUPLES":"0,"NSHD:QQ$""DATA":"0,0":QQ$"HD4200"M1$:BT$"V1NC:A$CT$(CD(V)):(A$)9A$(SS$,5(((A$)1)2))A$ #903064* N2(A$):(A$,N,1)","I09  :I3064a  F$A$:GO,H,CV:OS,20,F$::ZF3100  EF1:EFĺD$UL$F$DF$:EF0:3090 ER63100 ER,"DISKETTE ERROR OR WRITE PROTECTED":3060 ! 350:BL$;:YN,"DIF data file already exists, OK to x#IN1:9050'#D$CL$IX$:N9020>#380:DSSS:5100:^'Standard,Average,LIFO,FIFOE,2,L:EįCL:Z$(L,0)"":Z$(L,1)"":Z(L,2)0:L1EP0:GO,1,LX:CSQ$"":NSZ(L,3):CMZ$(L,0)CM$:T12100,2200,2300,2400 TT12ES:T02080T325002050 ET0:2500*GO,1,V:CL:ETL1:2600:N0:^4S8:H10:P$"part numbe1::OP,!SP$PO$"ing "::OX,80,"_"v4: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:"::mPL,L" 2-:IE$ER$:I$(L)A$:41800:A$""A$CY$IDT,A$,N:N1250a E$"INVALID DATE":yxNI$(L)Y$(1):1800A$Y$(N):1250310:1800:S%N0N9E$I$"TERMS CODE":TCN:I$(15)"":TCįRS,982N,I$(15)360:Q$""Ģ23endor ID":F1:1150:E$""ı*VN1100>`N0VI0:1140jVIN:BR,D$(1),A%,A$C$:5,%S%,$A$,%S%,@S%:NS%:1510:I15:I$(I1)C$(I):tI$(L)C$:LL0:~E$"":UC,A$:C$A$:P2A$(S8$A$,8)C$DS$1160NS(F)E$I$P$:UC,E$: ,!" Please wait, "P$"ing "PO$" "::/FSEE:300:Q1040ES0:E$"":P$P$(L):Q$"":T1100,1200,1300,1400,1500,,1200,1200E$""įER,E$:310:1000ES310E1:310:ESE:LL1:LLLLLL$LSB,NS(1),ED$,Q$:1800:P$"VER,ER$:420P2:ET0:GO,1,2:CS:GO,7,3:"Ln Part # Description Qty Unit Cost Ext. Cost":GO,7:"== ======== ============================== ===== ========= ========="LET1:E0:2000:N530 ET550 1900,U$:T5įGO,56,V1:CL<2@T3įOY,I$(L):TBT5ĺTC:GO,56:I$(L);:CL:fDOS,S,I$(L):tJ300:320TQ(T7VIE)(T8LL11):^35,23:GO,1,21:CS::GO,12,21(P2):h350:OP,"Enter "P$:|(S8$(X),5);:~X(X)L11EL15VI$ L7ĭEL123 LL2120> E170P 4800:N100] N0500s L11:420:ES160 L1N9:L2L1:N3L15N3:L2L14 E1:110 1::NS(0)CS(0)ĺD$CL$:D$OP$D$(0)D1$(0,1):5620 D$CL$:D1$(1,0)PV$A$PP$:D:E1:1950:4950:E0:1501CX(CX):ETEX520C&4800:N500P(N0600n0LET(ETEX):420:ES550:LN:LET520DE1:2000:560XbP$"post":700:6000v3500POPO1:POXIPO1NS(0)İ562050)350:22:OPįOD,8,X,3,9:BOD,8,X,4,8:X(X):X(10(X(X)).5):X9X9LX;:d394:394:I6İ394nI0:SQ,A$,Y$(I),N:NA$Y$(I)::II1:350:"Enter line number to edit (1-"L"): ";:NI,0,S%,N:ER:ESS%M2:ESı S%N1NLįV$PV$:ES0:8700:CV8:8100& 250J MM,IC$:D$"RUNINVMENU.PROG"PV$[ WD,PP$:230{ ,VV(L):HH(L):SS(L):TT(L) .GO,H,V: 0GO,HG(L)1,V: 2304:G(L)įHG,G(L) 4 6302:EI$(L)""LLL320 8302:T3ĺ"MM/DD/YY"::OX,SZ- 7000 5000:8500& 21900 dFL,"",HX,I$:I15:I$(I6)A$(I)::I$(14)Y$(1):I$(16)Y$(2):TC0:E0:LL0:VI0:L01UV:L1L0:L2HX:1950 f4900 nLL1:ES0 xTT(L):340:1000:ES140 LL1:LL0ĴLL150,102 LL1E150 Ship To Name:",B31,L"7- F.O.B. :":PL,L" Address :",B31,L"8- Ship Via :":GO,49:"9- Freight :"18:PL,L"10- Remarks :",B30,L"11- Confirm To:":OX,80,"_":LL0HX:300:310::5700V4L:H7:SEE:T0:ES0B302:OI:OP,Q$! 304:G(L)įHG,G(L)J302:T5įNI,S,S%,N:ESS%M3:1850nT4įYN,N,"",N:ESNM3:1850&T3įPU,LI$(L),XS(I$(L)),U$(302:KI,S,A$:S%0:ESA$ES$:A$""A$I$(L):A$""LL0ES1:ER:306:350:S%M2ESġD%lP5500:N0:9500:Nı@(C$,1)"*"ĭP2(C$)1N1:oQ$P$" '"A$"' NOT ON FILE":NS(F)1190350:GO,8:BL$;:N0:YN,N,Q$", Want to do global search",N:N0N0:9000:NıE$Q$:1800:L161250I2 390               :X52:5900:F1:X50:5900)C(3),Q(8),V(HX),H(HX),S(HX),T(HX),G(HX),P$(HX),I$(HX),Z$(EX,2),Z(EX,4),DS(EX),A$(5),H$(5),C$(5),Y$(6))I15:RS,282I,A$(I):PHH$(I)A$(I)):H$(5)SP$H$(4)H$(4)SP$H$(5)*I1HX:V(I),H(I),S(I),T(I),G(I),PNV":X$(0)"INVINDEX.FILE":D$(0)"INVDATA.FILE":F$(1)"A/P":X$(1)"VENDORINDEX.FILE":D$(1)"VENDORDATA.FILE"'IC$"INVENTORY CONTROL":PP$IC$" PROGRAMS":SP$" ":S8$" ":PO$"Purchase Order":CM$"!Comment"9(I$"INVALID ":ER$I$"RESPONSE":DS$"INI5:%ER,ER$:4800/%$POįRD,68,POD%&PO1POXIPO1~%.350:OP,!" Current "PO$" number is -- "(PO)SP$%8GO,12,23:CL:OP,"Enter [RETURN] only, or new "PO$" number, or !Quit: ":NI,0,S%,N:ER:S%M2NPO:4930&:S%N0NX #I$(1)#:I17:SP$:S#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),S282:PL,B3,D8,Z(I,2),1,11"B4"4100:PW,0:AFı"350:22:OP,"--- Printing complete, press [SPACE BAR] to continue or [ESC] to reprint ---":WS,A$:350::A$ES$3520""I14:7):I2I4ĺH$(I):4020"OS,59,H$(I):I1ĺPN$P$:4020:NN10" t S%M2NZ(L,T2):S%0( | q Z$Z$(L,T):PU,LZ$,XS(Z$),U$:302:KI,S,A$:ER:ESA$ES$:ES2990 S%A$"":S%A$Z$ 2800:: I5105:I$(I)I$(I)SP$I$(I1):I$(I1)SP$I$(I1)I$(I):I$(I)"" :AF0 ! P$~ Z(L,1)N:2800S Z(L,2)(Z(L,0)Z(L,1)C1):T4:H66:2800:350:ESE:LETETLe 2600:E2550 350:YN,"Accept this entry",N:ESN0:ES2060 NETET1:2600:2000 N1:( EP0:ETāI1ET:EPEPZ(I,2):2 GO,65,LX:OX,9,"="::G,1)A$28000S5:H50:GHU:CMN0:2340 P$"order quantity (1 to 99999)":2900:S%N1NXIįER,I$"QUANTITY":2300 NSĭQ(2)NXOįER,"INVALID, ON ORDER QUANTITY WILL EXCEED 999999":2300; NĭNZ(L,4)İ302:XN:380:350:BL$;:YN,"L"print":700(! 1::PW,PS:P$"":4000y! AFāI15:4300:" ***** ******** ***** Alignment Test ****"::3800!I1ET:4300:QZ(I,0):Qĺ10):3620!XQ:2):380:3)!$OS,13,Z$(I,2):QĺZ$(I,1):3650".OS,33,Z$(I,1):XZ(I,1):3O,55:PU,L"Total = ",D0,EP:: 302:T2įOS,S,Z$(L,T):H CMįCL:m XZ(L,T2):T2Z(L,0)įPU,BS:z T2380 382T ESE:2800:360:Q$""Ģ23:OP,Q$^ 302:T22950h D3,S,S%,N:ER:ESS%M3:ES2990 r NNG:S%2S%1(T3)ess than minimum order quantity, OK to accept",X:X02300N$ Z(L,0)N:2800e` S9:H56:G1:CMıj NZ(L,0):NP$"unit cost":2900:S%0N0N1E8įER,I$"COST":2400t EP(Z(L,0)NC1)Z(L,2)1E9įER,"PURCHASE ORDER TOTAL TOO LARGE":2400C(3)0:A$Z$(L,0)Z$(L,1)""(J2140SR5300:Z$(L,1)C$(1):C$A$:PMC$C$(2)\Z$(L,0)A$:Z$(L,2)C$:Z(L,0)Q(4):Z(L,1)C(3):Z(L,3)A%:Z(L,4)Q(4):DS(L)CS(0):2800S30:H19:CMNSEįSB,CM,"part description",CM,"comment text",P$:2900:Z$(LDATASET":ED$"(enter !D!A!T!A!S!E!T to switch data sets)"{(C1.5:M22:M33:HX20:EX14:LX19:HU100:XI99999:XO999999(RS,0,CY$:RS,1,CO$:RS,11,D1$(1,0):RS,16,PV$:RS,17,D1$(0,0):RS,99,U$:RD,1,PS:RD,2,FF:RD,65,PH:DT,CY$,CY)RD,0,UF:F0I4930/&<LI,A$:SQ,A$,"QUIT",N:NST%M3200A&>ER,ER$:4920`&BPON:PN$("0000"(PO),5)t&VGO,66,4:PN$:z&&D$(4):BL$(7)(7):ES$(27):OP$"OPEN":CL$"CLOSE":UL$"UNLOCK"&X$(1),D$(1),F$(1),NS(1),CS(1),N(1),D1$(1,8)k'F$(0)"I2,I$(19),S1,I$(14)1$SP$:L25:SS1ĺSP$:LL17$H$FFĺ(FF):]$LL66:SP$::$hLN60İ4100:P$" (Cont)":4000$rLLN:$NSS:4200:SS2ĺSP$$ %350:OP,"Do you want to !Accept, !Edit, or !Reject: ":KI,0,A$:ER:I4:390:r (!*=part not on file, !!=comment) or [RETURN] only":SB,NS(0),ED$,Q$:2900:A$SP$ġ:2080k6S%28008(A$,1)"!"A$CM$:C$"":2140>P$"PART NUMBER":F0:1150:E$""įER,E$:2100@N2100BN02130HA$C$:C$(A$,2):Q(4)1:A%0:MSĆI1$(NS):I1NS:RS,702I,I1$(I)::FS,I1$,NS,I1$,CSA'G'PU'ZOS5220h'\MSI1$L1$ı'^EA,KY$,DA%,L%:D$CL$'dD$OP$IX$I1$",L32"'fBR,IX$,0,#NP:KY$(NP),DA%(NP),L%(NP)'nNPįBR,IX$,1,A!KY$:NP,A%DA%:NP'xD$OP$ID$I1$",L82" code of buyer,8,64,3,4,11,taxable (Y/N),9,64,1,5,11,terms code (1-9) or 0 if none7'12,64,11,2,11,F.O.B. point (!Orig or !Dest),13,64,14,2,11,method of shipment,14,64,12,2,11,method of freight payment'8'18,19,20,2,14,any special instructions,18,64,1150%IJN0:B5:%N((IJ)2):BR,X$(F),12N4,$Z$:A$Z$9600Y5D%A$Z$JN1:9520i5N%IN1:95205%BR,X$(F),15JF4N,%A%:@6'4,19,8,1,13,Vendor ID or !* for vendor not on file,6,19,22,7,13,Vendor name,7,19,22,7,13,address line #1,8,19,22,7,V4:86003!SS2SS:CVCV2r3!GO,12,CV:CS:YN,"Do you want to print an alignment test",N:N0CVCV4:86103!NPN$"*****":I$(1)"VEND ID":I$(2)CO$:I$(7)CO$:AF1:3520:86203!4!80:1:OP,IC$" SYSTEM":3:OP,PO$"ing":5:OP,CO$::0:F1:5100A2f!1::NS(0)ĺD$OP$D$(0)D1$(0,1):5600:D$CL$D$(0)O2p!F0:51002!CVCV2:GO,12,CV:CS:YN,"Print manufacturer's part number on "PO$,PM:PM0ĴAP18510,8540 3!CVCV2:GO,12,CV:CS:YN,"Use single spacing on "PO$"s",SS:SS0CVC"P$": "A$SP$g0SB,1,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",P$0CV9:OP,P$:WS,P$::ES(P$ES$)ES00GO,1,CV3:CS:04!87000>!CV10:GO,12,CV:CS:YN,"OK to do "PO$"ing",N:N0200k1H!14:OPS(F)0.L1ET:NZ(L,0):A%Z(L,3):NA%6050^.DS(L)CS(F)D1$(F,0)D1$(F,DS(L)):5100.5300:Q(2)Q(2)N:Q(2)XOQ(2)XO.5350..CS(F)CSD1$(F,0)D1$(F,CS):5100..XEFER(222):ER6ER8EF0:XO:.b1::D$CL$:PX10,DCS(F)1!,DNS(F)D1Z,5550:NįER,"DATA SET # "(D)" NOT CREATED":5500,CS(F)D:D1$(F,0)D1$(F,D):350:OP,!" Please wait, switching data sets "::5100:5700,EF1:1::EFĺD$UL$X$(F)D1$(F,D):EF0:N0:,N1:,A$"BR"-,"Please load "PO$"s in the printer":::OP,"--- Press [SPACE BAR] when ready ---":WS,A$:A$ES$85101R!RD,49,AP:BT,AP,2,AP:UV0:AP85501\!APCV12:GO,12,CV:CS:YN,"Do you want to use your A/P vendor list",UV:UV08510 2^!UVĢ1::800/@/JUF8030\/TA$"ACCOUNTS PAYABLE DATA":RS,62(UF3),DV$:ES1:8100:ESġ:8500m/VD1$(1,0)DV$/^EF1:EFĺD$UL$X$(1)D1$(1,0):EF0:/hWD,A$::0/GO,1,CV3:CS:OP,"Please load the following diskette:"0FF,DV$,P$:::OP,!" @A$,D$(0),0,#PO:&-A$"BW":5610@-DGO,1,1:UVI1:5720Q-NGO,54,1:I0-XNS(I)ĺ"(Using "F$(I)" Data Set "CS(I)" of "NS(I)")"-b- RD,X,N:NS(F)N(N1)UF:NS(F)N4016(X50):I1NS(F):RS,N,D1$(F,I):NN2:--p.zF0:CSC"BR">+@R$,D$(0),A%,@PG%,@CG%,3AQ,A$C$:3,%DL%,A#C:3,A3Q:8:P+R$"BW":5320V+|+350:OP,"Enter "F$(F)" data set number (1-"(NS(F))") or !Next: ":NI,0,S%,D:ER:S%M3ı+S%D0DNS(F)5520,LI,A$:SQ,A$,"NEXT",N:NįER,ER$:55ECTION"-&CX10:C2CX2:FX12:NX250:HU100g&RS,1,CO$:RS,16,PV$:RS,17,I1$:RS,27,DF$:RS,99,FC$&RD,0,UF:RD,52,NS:MSUFNS1&PS$(3),PC(3),PQ(8),CD(CX),CF$(FX),CT$(FX),YN$(1)&I1FX:CF$(I),CT$(I):&YN$(0)"No ":YN$(1)"Yes";'0,address line #2,9,19,20,7,0,city & state,10,19,10,7,0,ZIP code6'12,19,22,8,13,'ship to' name,13,19,22,8,13,address line #1,14,19,22,8,0,address line #2,15,19,20,8,0,city & state,16,19,10,8,0,ZIP codeR7'6,64,8,3,11,required date,7,64,8,2,11,name or4`"GO,1,CV:CL:CVCV2:!4(#e42#DCS(F):350:OP,!" Please wait, global search in progress ":|4<#DD1:DNS(F)D14>#DCS(F)N0:51004F#5550:N90204P#D$OP$X$(F)D1$(F,D)",L2":BR,X$(F),0,#J:9510:N55404Z#90204%JN(F)5&%JFJ:I$(I):*I06:Y$(I): *&*I*CS(F)ĺD$CL$X$(F):D$CL$D$(F)*D1$D1$(F,0):D$OP$X$(F)D1$",L2":BR,X$(F),0,#N(F),#X,#X,#RL:D$OP$D$(F)D1$",L"RL* FĭNS(F)İ5600*NS(F)CS(F)1:*I1NS(F):D1$D1$(F,I)CS(F)I* :+R$X:OFTX4:AJTX3:\f332:PU,LDF$,XS(DF$),FC$:340:KI,S,A$:ER:330:ESA$ES$:ESġnpA$""A$DF$tzP$TX$(TX)" quantity":A$"NI":DFQ:2250IN:TX2IIST%N(TX3N0)E$"INVALID QUANTITY":(XD(1OF)I:X0E$"EXLP1850+300:Q20PQPQQ2:AAQ2C<&LPLK%:1810U:P(1)0:PQP(1)APQ[Dat3900:K(L)ı342:HG,W:340DDED:E$"":L2100,2200,2300,2400,2500E$""įER,E$:DDED:3000:2000342:HG,W:ESDDED:3000 DD:1800:P1(SQACC1):P2P1:&I6T%CG:A2CGWWQ0:CM1230,1230,1240,1240iACP(1):1030PQQ:P20:LK%DL%LPLK%:LP1300300:NQ2:N01250NPQNPQQ2Q2N:PQPQN:P2P2(NCC1)310:PQ1250 1800:P1, posting transaction"H4NTX4:D(N)D(N)Q:S(TX1)(AJQ0):SS1g>Q(Q):PQD(1):D(1)PQSQHA210:TX1000,1200,1400RNGA(9)A(9)P1:A(A2)A(A2)P2:A(11)A(11)(P1P2)\AJS0QQf6000:LTTDD(1)D(1)AQ:5350:KP1:550UX330:GO,12:OP,"Do you want to !Accept, !Edit, or !Reject: ":KI,0,A$:ERqbSQ,A$,"REJECT",N:N70dSQ,A$,"EDIT",N:NL2:550fSQ,A$,"ACCEPT",N:NįER,"INVALID REPONSE":600 320:OFD(2)D(2)Q:900*OP,"Please wait:360pNK1:.|P$"switching data sets "Y~320:22:OP,!" Please wait, "P$::OD,8,X,3,9:X(X):X(10(X(X)).5):X9X9X;:MS142320:360:ES100NKNDS1:NNSN15500:ESİ380:DSN:50 ES0:ER,E$20::5200:D$CL$250?MM,IC$:D$"RUNINVMENU.PROG"IP$\WD,IC$" PROGRAMS":230i,RW$"BR".@RW$,IT$,LP,@X%,%LK%,3Q1,#Q2,3DT,#C,$R$,@M%:6RW$"BW":302@CV20:35,23:GO,1,CV:CS:35,24:GO,12,CV:JGO,1,22:CL: L330:OP, number or [RETURN] only to quit":MSĢ22:OP,"(enter !D!A!T!A!S!E!T to switch data sets)" xGO,18,6:OX,8,FC$:GO,18:KI,8,PN$:ER:UC,PN$:PN$ES$PN$SP$200 zPN$"DATASET"400 |A$(PN$,1):A$"*"A$"!"142 ~PN$(S8$PN$,8):FS,PN$,NP:DSSS:110]320:K(1)1:I1:3800:CL:TX0:Q0:L1:LX0:ACP(PP):CGCG%CG%:RF$""x&EDLLX:2000:TX700ES580:LL1:L70<L1Ĵ(LX5)1500,600>K(L)570@550DL1İ3700NLLXLXL:LX3LX5PL5LL"Enter "P$TGO,H,CV:.VGO,HW2,CV:|hGO,1,CV:CL:GO,12:" Enter data set number (1-"NS")";:OP," or !Next "j": ";:NI,0,ST%,N:ER:ESST%3:ESılST%N0NNSNK0:nLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATA SET NUMBER",K$,N:N0150B E$"PART NUMBER '"PN$"' NOT ON FILE":MS140 320:GO,8:BL$;:YN,0,E$", OK to do global search",N:N0100 9000:N150 ER,E$:100 E$"INVALID PART NUMBER":140 IWN:5300:D(1)D(1)AQ:4800:500 3; 7000 5000:80G 1:OP,"*** Inventory Transactions ***" GO,1,4:OX,80,"_":GO,1,18:OX,80,"_":11:OP,"Please wait" (MSįFS,I1$,NS,I1$,DS 2NDS:5500:ESįWD,IC$" DATA"::0 <5100 F4900 d[ n320:OP,"Enter part1:3000]4P$"transaction: !Receipt, !Issue, !Adjustment, or !Order":DF$"":2150:A$""ı>X0:I14:SQ,A$,TX$(I),N:NXI:N4@:XE$"INVALID TRANSACTION TYPE":HX4ĭAVLRMRE$"NO ROOM, INVENTORY TRANSACTION FILE IS FULL":RTXP2:ICP2Q:iQQPQ:330:BL$:OP,"ERROR: Required On Hand quantity not found, only "(Q)" found"24:OP,"--- Press [SPACE BAR] to continue ---":WS,A$:330:ER:1::1280xAT%10:A212:(S0)11020,1220PQWQ:AWQAC:LPDL% 70 R-T%0:D(2)D(2)Q:D(2)0D(2)0CAJCM1P(3)ACeWQAC:CM1030,1040,1050,1050P1(SQP(1)C1):ICP(1)P2(SQACC1):PQPQP(1):P(1)(T((PQQAC)D(1))C1)TP1(P(1)D(1)PQC1):ICP1Q:1032WQQ:ICAC                (OS1:L1$I1$:>(XEFER(222):ER4ER6ER8EF0:XO:R(b1::D$CL$:PXX(@u(TDK$IC$" PROGRAMS":ES1(GO,1,CV:CS:CV2:OP,"Please load the following diskette:":A$"":UFįFF,PV$,A$:A$SP$A$":"M)CV4:OP,!A$SP$DK$SP$:SB,1FER(222):ER6ER8EF0:XO:.'b1::PX4'(#c'2#SSDS:P$"global search in progress ":382'<#GS1:SSSS1:SSNSSS1'>#SSDSN0:'F#NSS:5500:ES9020'P#D$OP$IX$I1$(N)",L8":BR,IX$,0,#J:I1'Z#IJN0:9100(d#N((IJ)2):BR,IX$,,0,#PU,#CM,A#A:12:BW,IT$,0,#AV,#LR,#RR,#MR,#UT:>%RW$"BR"%@RW$,ID$,A%(IW),@PG%,@CG%,3AQ,A$P$:3,%DL%,A#P:3,A3D:7,3LT:%RW$"BW":5310%|%ES0:1::MSı%EF1:EFĺD$UL$IX$I1$(N):EF0:&ES1:GSE$"DATA SET #"(N)" NOT CREAT##OSĺD$CL$:EA,K$,A%=#MSI1$I1$(DS):I2$I2$(DS)g#D$OP$IX$I1$",L32":D$OP$ID$I1$",L82"# BR,IX$,0,#NP:K$(NP),A%(NP):NPįBR,IX$,1,A!K$:NP,A%A%:NP#BR,ID$,0,#PU,#CM,A#A:12:CM1CM4CM1$D$OP$IT$I2$",L28":BR,IT$,0,#AV,#LR,#RRF$(4),TH$(4),P$(3),A(15),D(7),P(3),K(5),S$(5),S(5),H(5),W(5)Q"I14:CM$(I):t"I14:TX$(I),TF$(I),TH$(I):"I15:S$(I),S(I),H(I):W(I)(S$(I)):"MSUF(NS1):MSĆI1$(NS),I2$(NS):N72:I1NS:RS,N,I1$(I):RS,N1,I2$(I):NN2:"",B28,L"YTD Adjustments:",B8:X BPL,L"Minimum Order :",B28,L"Last Txn Date :",B10: LPL,LU$,L" Cost :",B28,L"Unit Price :",B14:  D$(4):BL$(7)(7):ES$(27) CL$"CLOSE":OP$"OPEN":UL$"UNLOCK";!IX$"INVINDEX.FILE":ID$8:P$(1);:GO,62:PG%:GO,18:P$(2);:GO,62:P$(3)pV11:H18:I17:GO,H,V:OD,8,D(I)HU,3,6:I4H62:V10VV1(I3):GO,62,15:LTįFJ,LT,A$:OY,A$GO,18,17:XP(PP):390:GO,62:XP(2):390:$GO,1,6:PL,L"Part Number :",B28,L"0N0N1E8E$"INVALID COST, MUST BE 0 to 999999.999":Et ACN: P$"cost of goods sold account number (1-8)":A$"NI":DFCG:2250 ST%N1N8E$"INVALID ACCOUNT NUMBER": CGN:  340:DDįOX,S,SP$: L3110,3120,3130,3140,"INVDATA.FILE":IT$"INVTRANS.FILE":IC$"INVENTORY CONTROL"V!S8$" ":SP$" "{!QX999999:C1.5:HU100:T10:Z%0!RS,0,TD$:DT,TD$,TD:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,18,I2$:RS,99,FC$!RD,0,UF:RD,47,NG:RD,52,NS<"CM$(4),TX$(4),TCosting Method :":.PL,L"Description :",B28,L"Product Group :",B4:PL,L"Mfg Part Number:",B28,L"Unit of Measure:",B3: 8PL,L"On-Hand Qty :",B28,L"YTD Receipts :",B8:PL,L"On-Order Qty :",B28,L"YTD Issues :",B8:PL,L"Order Point :3150& OS,S,TX$(TX):-0 OD,8,QHU,3,6:=: OS,S,RF$:KD XAC:390UN CG:tA$TF$(TX):I25:K(I)((A$,1)):3800:A$(A$,2)::GO,H(I)W(I)2,CV:K(I)ĺS$(I)":"<SS(L):HH(L):WW(L):HSHW2:2GO,18,6:OS,8,PN$:GO,18,Q0CM1:I4:3800:CL;3000:EDİ340:OX,S,FC$m332:@A$,S,ST%,N:ER:330:ESST%3:ESġ:ST%2ST%0:NDFP$"transaction reference":DF$RF$:2150:RF$A$:` P$"actual cost":A$"D3":DFAC:2250:ST%2NN10:j ST%3N,$A$:A$PN$9100,(n#PN$A$JN1:9050<(x#IN1:9050S(#D$CL$IX$:N9020j(#380:DSSS:5100:('"Standard","Average",LIFO,FIFO(' "Receipt","1110",HAND,"Issue","1101",HAND,"Adjustment","1100",HAND,"Order","1000",ORDER9)*"Transaction",ED" &&p+&zAVLRLR1:ALR:6030C&AAV:BR,IT$,AV,#AVm&LPDL%:CM4LPLK%DL%:DL%A:6050&BR,IT$,LP,@X%,%LK%:LK%LPLK%:6040&300:LK%A:310:LK%0&BW,IT$,A,@T%,%LK%,3Q,#WQ,3TD,#IC,$RF$,@Z%&RRRR1:UT1:5200:!'XE,#MR,#UTE$ D$CL$IX$:OS1:LFCM2:PP12LF:U$"Unit":LFU$"Last"$(GO,62,6:CM$(CM);:CL:MSįSS,17,I1$:SS,18,I2$:GO,58,3:"Using Data Set "DS" of "NS$2GO,2421MS,3:PU,L"(Inventory File Status:",I4,HURR(MRMR)C1,L"% full)":1%PBW,ID$CEEDS CURRENT ON "TH$(TX)" QUANTITY":mXQXE$"INVALID, ON "TH$(TX)" QUANTITY WILL EXCEED 999999":QN:TX1ĭND(2)NDFDD1:3000:330:BL$;:YN,"WARNING: Exceeds current on order quantity. OK to accept",N:N0QDF:2000AJK(4)(P1):P2(P2)(P20)& P2NPP2NPU H2$"(Part Numbers: "P1$" thru "P2$")" H3$"":PGH3$"Product Group # "(PG)& ABHU$"ABC "HU$0 T1$" Part # Description UM PG":T2$"======== ====================== == ==": PC31[RETURN] only for none: ":360:ESVV3:340:2310Gt PC0:A$""2450j~ I12:SQ,A$,PC$(I),N:NPCI :PCįER,IR$:2410 350 330:YN,"Print current book quantity",BQ:BQ0İ346:2410 350:YN,"OK to print "HD$,N:N0İ346:2460PG0:CVCV1L330:YN," Sort listing by product group",N:N02162dSGN:WG0:SG2300pCVCV1330:YN," Start a new page for each product group",N:N0İ344:2210WGN350:V3CV 330:OP,"Print !All or !Selective partNSįER,"INVALID DATA SET NUMBER":2060OEF1:EFĺD$UL$IX$I1$(N):EF0:2080ER,"DATA SET # "(N)" NOT CREATED":2060 CSN:DV$I1$(CS)*3504V2CV>330:OP,"Include !All or a !Single product group: ":S0:360:ESVV0:340:2020ets: ":S0:360:ESVV0:340:>SQ,A$,"CURRENT",N:N2090_SQ,A$,"ALL",N:NAS1:2090SQ,A$,"SPECIFIC",N:NįER,IR$:2030CVCV1 330:" Enter data set number (1-"NS"): ";:NI,0,ST%,N:ER:ST%3İ330:CVCV1:2030'ST%N1Np":WS,A$:A$ES$570'NLİ700:6008GC:CPė:IFFĺ(FF):_LLNOL:SP$::en650PNPN1:LN7:L(OW(CO$))2PU,L"As of: ",YTD$:L15)CO$L8)"Page "PN(OW(HU$))2)HU$H$DS$:790:H$H2$:790:H$H3$:790ing the [ESC] key":3CPPS:OLLP:EPOL6:PW,PSYHU$(HD$,1):UC,HU$:OW80:PN0:310:12:OP,"Report generation in progress"::900:CPİ650:PW,1:24:OP,"Listing "AC$" -- press [SPACE BAR]":WS,A$:1:#&CPLNLN2MM:D$"RUNPHYUPDATE.PROG"IP$: WD,IC$" PROGRAMS":230N 6CV8:330:CS:h JGO,1,CV:CL:GO,12: T330:CVVCVCV1:340 V XVCV1:340 ZVCV2:340 ^CVCV2:330 hKI,S,A$:ER:ESA$ES$:ESİ330 j5 rCVCV1:330:OS,28,"SP$:800:9009H$""ĺ(OW(H$))2)H$:LNLN1?N LS)T1$:]LS)T2$:cV0CV2MS:CVV0:AS0:DV$I1$:MS2100MSıFS,I1$,NS,I1$,CSAS0:CVV0:330:OP,"Use !Current (#"(CS)"), !Specific, or !All data s:SP$:"***** LISTING ABORTED.....":0AC$"aborted":500D:590OD:580ZN7000cP200zXL(KB):L128620bKS,0:L128(ES$)550lNLĭLNNLEPLNLNNL:v900:CPĢ24:OP,"Press [SPACE BAR] to continue -- press [ESC] to sto Enter "P$"ing part number":": ";:XY,H:OX,8,FC$N tGO,H:S8:360:ESıp vUC,A$:A$""A$(S8$A$,8) xGO,H,CV:OS,S,A$: OD,8,X,1,11:X(X):X(10(X(X))C1):X9X9 X;: 490:15:OP,"Listing may be aborted by press 7000 5000:80? (OS0:AQ$"":HD$PY$" Worksheet" 21:OP,IC$" SYSTEM":3:OP,"*** "PY$" System ***":5:OP,CO$ d6000:310 2000:ES100 3000 1::D$CL$ 250 GX1įMM,IC$:D$"RUNINVMENU.PROG"IP$  NES1:( 400: 3 ASDV$I1$(AS)X EF1:EFĺD$UL$IX$DV$:EF0:3040b 3500l 5100 DS$"":MSįFS,DV$,NS,I1$,N:N0DS$"(Data Set # "(N)")" AFH2$"":P11:P2NP:3100 FS,P1$,NP,K$,P1:FS,(P2$Z$,8),NP,K$,P2:P1s: ":S0:360:ES21627 SQ,A$,"ALL",N:NAF1:2400b SQ,A$,"SELECTIVE",N:NįER,IR$:2310. P$"start":370:ESES23600 VV3:340:23108 P1$A$:P$"end":370:ESCVCV2:2350: P2$A$:AF0` 3502j 330:OP,"Print !Cost or !Price, HSQ,A$,"ALL",N:N2200@JSQ,A$,"SINGLE",N:NįER,IR$:2110LfCVCV1p330:" Enter product group number (1-99): ";:NI,0,ST%,N:ER:ST%32170rVV2:340:2100zST%N1N99įER,"INVALID PRODUCT GROUP":2160PGN:SG0:WG0:2300! !! !! !!!!!!! !! !"" "" "" ""GO,1,CV:CL:GO,12:Sh330:" Enter data set number (1-"NS")";:OP," or !Next "j": ";:NI,0,ST%,N:ER:ESST%3:ESılST%N0NNSNK0:nLI,A$:SQ,A$,"NEXT",N:NįER,"INVALID DATA SET NUMBER":360pNK1:|P$"switching data so do global search",N:N010009000:N1509192VE$"INVALID PART NUMBER"fER,E$:110l~320::D$CL$250MM,IC$:D$"RUNINVMENU.PROG"IP$WD,IC$" PROGRAMS":230@CV21:35,23:GO,1,CV:CS:35,24:GO,12,CV:JPN$,"NEXT",N:NN1:400: SQ,PN$,"PREV",N:NN1:400Q PN$"DATASET"450t A$(PN$,1):A$"*"A$"!"190 PN$(S8$PN$,8):FS,PN$,NP,KY$,N:N01000 E$"PART NUMBER '"PN$"' NOT ON FILE":MS192320:GO,8:BL$;:YN,0,E$", OK tQuantity,On-Hand,On-Order Quantity,On-Order,Order Point,Order Pt*$'YTD Receipts,YTD Rec,YTD Issues,YTD Iss,YTD Adjustments,YTD AdjT,"--- Press [SPACE BAR] to continue",ES," or use [ESC] to abort",1," ---",A$)CV6:OP,A$:WS,A$::ESA$ES$:GO,1,CV:CS:)'Part Number,Part #,Description,Desc,Mfg Part #,Mfg #,Product Group,Prod Grp@*'Unit Cost,Cost,Unit Price,Price,On-Hand D$OP$IX$DV$",L32":D$OP$ID$DV$",L82"N BR,IX$,0,#NP:K$(NP),A%(NP),L%(NP)p NPįBR,IX$,1,A!K$:NP,A%A%:NP BR,ID$,0,#PU,#CM:LFCM2:OS1: p z310:GO,12,10:"Available "PY$" System options are:": |GO,20:"< 1 > - Print "HD$:+!~G(4):ES$(27)6UL$"UNLOCK":CL$"CLOSE":OP$"OPEN"yIX$"INVINDEX.FILE":ID$"INVDATA.FILE":IC$"INVENTORY CONTROL"Q$"=":SP$" ":S8$" ":IR$"INVALID RESPONSE":Z$"ZZZZZZZZ":PY$"Physical Inventory"GX1:HU100:TT10000:SB128:C1.5AQ:PGĭPG%PG4250*SGPG%LG4100HWGĭLG0NL0:600:720PG%NL4:600:SP$:"***** Product Group # "PG%:SP$:LNLN1NL2:600:PU,BLS,S9,K$(Q),S23,S$,S3,U$,I2,PG%PCXPC(PX):390BQįPU,B2,D8,OHHU,1,8"PL,B2,X8,"_O,20:"< 2 > - Enter "PY$" Results"::CV17!330:"Enter option (1-2) or [RETURN] only to quit: ";:NI,0,ST%,N:ER:ST%2200!ST%N1N2įER,IR$:6020!N2GX2::200!!XEFER(222):ER6ER8EF0:XO:!bPX:bPX8RS,0,TD$:RS,1,CO$:RS,16,IP$:RS,17,I1$:RS,99,FC$aRD,1,PS:RD,2,FF:RD,3,LP:RD,52,NSPC(3),PC$(2):PC$(1)"Cost":PC$(2)"Price"RD,0,UF:MSUF(NS1):MSĆI1$(NS):I1NS:RS,702I,I1$(I):OSĺD$CL$:EA,K$,A%,L%& ":SP$hLGPG%$AS3600A0AC$"complete":500:570G$Y.EA,K$:Z(NP)8N0:QP1P2:BR,ID$,A%(Q),@PG%:NN1:Z(N)PG%TTN:L%(N)Q:BP11:P2N:SR,Z,L%,N:EA,ZLK$(NP):BR,IX$,1,A!K$:NP:KB16384:KS16368D$:600 720:4000! AS3610: WD,IC$" DATA"::0@QASNS4400c$ASAS1:3010iNP(P2P1)(P1NP)4300LG1:SGABİ4900PP1P2:QP:SGABQL%(P)BR,ID$,A%(Q),@PG%,@CG%,3AQ,$S$,$M$,$U$,%DL%,A#PC:3,3OH:OHOHSB,1,"Enter part number",KN,", !Next",KP,", !Prev",KNKP,",",1," or [RETURN] only to quit",P$:320:OP,P$ MSĢ22:OP,"(enter !D!A!T!A!S!E!T to switch data sets)" GO,18,6:OX,8,FC$:GO,18:KI,8,PN$:ER:UC,PN$:PN$ES$PN$SP$200 SQ, 7000 5000:80H 1:OP,"*** Inventory Parts Inquiry ***"p GO,1,4:OX,80,"_":4000:OX,80,"_" (MSįFS,I1$,NS,I1$,DS 2NDS:5500:ESįWD,IC$" DATA"::0 <5100:PP0 d nPP0PP0 pPPNPPPNP xKNPPNP:KPPP1n " " """     408< PXPC:PC$" Unit ":LFPC1PC$" Last ":PX3u> PC$(PC$PC$(PC),12):T1$T1$PC$:T2$T2$" =========="D BQT1$T1$" Book Qty":T2$T2$" ========"N T1$T1$" Phy Qty":T2$T2$" ========":LS40(T2$)2 CPPNė PNNL0