L:ARCLEAR/BAS NEW 9/27/04]PU$(, )o F,I,K,K,W,Hy ` N:ARINIT/BAS>N: 0:K$"RE-INITIALIZING ACCOUNTS REC.": :CN@(,),"INITIALIZING ACCOUNT # ";HN:OPEN"R",1,"AR2R/DAT":CLOSE 1:KILL "AR2R/DAT"2RN"R",,"AR2R/DAT"L\N ,\ AS A$, AS B$bcN K () ldN ,KfN(B$,,J)(J,)hN:MID$(DR$,29,1)="N":MID$(DR$,30,1)="Y":MID$(DR$,167,1)="Y":MID$(DR$,168,1)="Y":MID$(DR$,169,1)="N":MID$(DR$,209,3)="MN "jN:MID$(DR$,133,15)=STRING$(15,255):MID$(DR$,148,15)=STRING$(15,100):MID$(DR$,163,1)=CHR$(2):MID$(DR$,164,1)=CHR$(100):MID$(DR$,170,15)=STRING$(15,2)ņlN:MID$(DR$,212,14)=STRING$(14,255)چN:PUT 1,ARCAP*2N:FOR K=1 TO LOF(1)-1N ,K:@(,2),((K));bN:K=K+1:'GET 1,K:LSET C$=STRING$(107,32):LSET D$=STRING$(149,0):PUT 1,KhNʇN:RD$=SPACE$(255):FOR X=1 TO 4:MID$(RD$,X*61+1,1)=CHR$(3):NEXT X:LSET DR$=RD$:PUT 1,LOF(1)-1ЇN釬N"CLEAR COMPLETE";:N `mSVC,:F%: SVC (F%): +HqSVC,:F%: SVC (F%): A0u:INIT INVENTORYm:u 0:K$"INITIALIZING INVENTORY": :bu: @, "FIGURING PRIME DIVISOR"luUINVCAP!:N%(U)vuPRIMEʈ{u PRIME߈uPRIME:N%N%u D% (N%)uSN%D%@u ((N%) ((N%)) (S) S ) D%(N%):PRIMEIu D%Vu@,N%\uu@S,"YOUR MAX BUCKET # IS ";N%u@,"BUILDING BUCKET #:";Չu@,"YOUR DATABASE WILL HANDLE";N%;" PARTS"u "R",,"INV120/DAT": : "INV120/DAT"u "R",,"INV120/DAT"=u , AS LB$, AS DB$: ,N%uXX$():XY$" ": DB$(,):(DB$,r,)XX$:(DB$,,)XX$:(DB$,,)XY$:(DB$,,)XY$ŠuT1$(,): X%N%Ҋu I% X%uFLI%: FLX% FL uBLI%: BL BL"u(T1$,,)(FL)9v(T1$,,)(BL)G v LB$T1$Wv @, I%;b v ,I%k*v I%y4v I >vHEAD(I):TAIL(I)Hv IRvHEAD():TAIL()X%\vT1$"" ̋fv I pvT1$T1$(HEAD(I))(TAIL(I))zv I v LB$(,"#")v DB$T1$'v ,X%/v _v ) "PARTS INVENTORY CAPACITY : ";N%:fv n@:E : Ԟ: MC :WP$".": J:@(,),"INSERTING HEAD RECORD # ";MC; G FULL @(,),"ERROR!! NOT ENOUGH ROOM FOR HEAD POINTERS..";();:I:5J `m: :FULL:EXISTSGTPI$WP$: xW^RNHI%:NFbh ,RNzrLINKS$LB$:DAT$DB$|AI  ,RN I 󍤜WV((DB$,xI)): WV NF NF:RN1RN:I1I:  : < MCWV UI$(DB$,xI, ): : PSO$USO$ EXISTS: HqD Iœ (AI) (NF) "BUCKET FULL WHEN SHOULDN'T BE": : RNRN1:II1: :̜ AI FULL: Hqю֜RN((LINKS$,AI,)) RN AIAI:  : NF RNRN1:II1: :꜍ - LU FULL: HqL(LINKS$,AI,)(LU)h LB$LINKS$: DB$DAT$s ,HI}RNLU&AI0 : ,RN:WII: DT1$DB$̏N(T1$,xI,x)RB$ڏX DB$T1$b ,RNl .v Hq:&RB$(x,):(RB$,,)" "0WVMCG(RB$,,)(WV)jPI$WP$: :(RB$,, )PO$PI$WD$((WD$), ) Ɲ(RB$,, )PO$Н(RB$,P,)(WH)אڝ(RB$,&,)(WR)(RB$,$,)(WS)(RB$,(,)(WO)WF *(RB$,0,)(WW!)C (RB$,4,)(WJ!)\(RB$,8,)(WS!)u (RB$,<,)(WD!)*(RB$,@,)(WU!)4(RB$,D,)(WL!)>(RB$,H,)(WC!) ّH(RB$,L,)(WM)R(RB$,T,)(WY) \(RB$,V,)(WQ)!f(RB$,f,)(WC)6p(RB$,!,)WX$Nz(RB$,.,)(WF)c(RB$,,)WC${(RB$,*,)(WU)(RB$,R,)(WN)(RB$,r,)()Œ(RB$,n,)()ݒ(RB$,^,)(WL)ʞ:4ԞWE:WD$DT$:WF:WM:WH:WS:WO:WW!:WJ!:WD!:WU!:WR~ޞWS!:WL!:WC!::WX$" ":WC$"N":WQ:WY::WP:WB:WK:WN:: BI LUHEAD(BI) LU LUMR Ɠ BIϓLUՓ$ݓ.:8CNT((LB$,,))B CNT "REC COUNTER BAD":BLNL((LB$,,)):BL((LB$,,))QVLINKS$LB$g`OTAILTAIL(CNT)j(LINKS$,,)(CNT)t(LINKS$,,)()~(LINKS$,,)(OTAIL)Ҕ LB$LINKS$: ,RN唒TAIL(CNT)RN HEAD(CNT) HEAD(CNT)RN OTAIL , ,OTAIL;LINKS$LB$Uğ(LINKS$,,)(RN)fΟ LB$LINKS$t؟ ,OTAIL|:쟋 HEAD(CNT)RN HEAD(CNT)NL: ( ,BLLINKS$LB$ؕ (LINKS$,,)(NL) LB$LINKS$ ,BL( NL TAIL(CNT)BL: d2 ,NL. H:P:BOINIT/BAS 10/27/87 INITIALIZES OPEN INVOICE FILEEZBLKldß:K$"INITIALIZE OPEN INVOICE FILE": 0: ::@(,),"ENTER SIZE OF CUSTOMER BACKORDER FILE :";: CMAXnË CMAX : "R",,"BOFILE/DAT":: "BOFILE/DAT"xÍ  :INITIALIZE BACKORDER FILEÎ2:INIT BOFILE/DATp: "R",,"ITEM/DAT", : , AS TA$: TA$(): ,:ÿ "R",,"BOFILE/DAT", , AS RS$, AS FL$, AS BL$,( AS AL$, AS IN$, AS NM$, AS WK$,E AS DUM$ , AS X$ X$(,): J k: ,J:? IN$(): WK$(): NM$( ):N RS$"U":tAZ$"": X :AZ$AZ$(): AL$AZ$ J l CMAXnÑ@(,F),JmFLINKJ: ˠBLINKJ: FL$(FLINK): BL$(BLINK) ,J"ă., ,CMAXn: FL$(m): ,CMAXnM6 ,n: BL$(l): ,n@: ,l: FL$(n): BL$(): RS$"C": NM$"B.O.S.": ,lݡJ ,m: FL$(): BL$(CMAXn): RS$"C": NM$"T.O.S.": ,mT: :INIT SALESMAN FILE SALESMAN/DAT<*˟:K$"INITIALIZE SALESMAN FILE": 0: :k/ˑ@(,),"Initializing Salesman File ...."4: "R",,"SALESMAN/DAT",@: , @ AS DR$> DR$(<,)âH˂ J d: ,J:R˝ ) "SALESMAN FILE CREATED SUCCESSFULLY !":: :`:SCREEN INITIALIZATIONjKS$"ABCDEFGHIJKLMNOPQRSTUVWXYZ,!#$%&'()*=-:<>?/"(")"abcdefghijklmnopqrstuvwxyz-. 0123456789-+":KT$()()()( )()( )( )""():HA$()()()" ""tKP$(_):K1$():K2$():K3$():K4$();~ C$(X)((X),)Y ();:KL:KZ:ZC_STKW:@KA,K1$;: ^: K2$;:ͤ^ KF KP:KIKI: ZI K$(KM(K$),KP$);: : (KM,KP$);:h KPKM KPKP: ();rA$: A$"" r. ((KS$,TP),A$)    K$(K$,KP)A$(K$,KP):KPKP: ZE KPKM KIKI: A$;:KP: A$;: h (KT$,A$)  r A$() KP KPKP: ();: h: h: back arrow\ A$() KP (K$) (KP)KM r : KPKP: ();: h : h: right arrow֦ A$() A$() A$() KI KIKI:KP: : r : KIKI:KP: KIKX KIKX:KW: : q A$( ) A$( ) A$( ) KIKL KIKIKL:KP: : KZ KI': : r : KIKIKL:KP: KIKX KZ : KIKIKL: : A$( ) KIKI:KP:ʧ A$"" @KA,(KM,KP$);:@KA,"";:K$"":KP: r A$"" KI:KF:@KA,"";: A$"" KIKI:KP:) A$"" KI':KP:X A$"" ZQ ZA:KI': : rm A$"" rw r:SCREEN HANDLER print errors, check limits, type & T: KF TP : (KP,);:D A$( ) A$( ) KP$N A$( ) KIKI::up BXKIKI::enter or downHb0@,"POSITRAK";:@P,(P,);:@,"Micro Specialist Inc.";::@,();:@(((K$)),K$;(((K$))," ");:TM$((( ) )):(TM$,,)"W":@A,TM$;:@E," ";;" ";:}$ ER ();:@2,(((L(FM$)))," ")FM$(((L(FM$)))," ");:ER: : @0,();: ZC " ZS |,,, ,,٪| 0:K$"INITIALIZE DATABASES": :D "R",,"CONFIG/DAT": , AS AA$: ,:CUSTOMER$(AA$,((AA$,()))): ,:RV$(AA$,,): NDT$v@,"CUSTOMER NAME :"@:,"CURRENT DATE / TIME :"ƫ@,"NUMBER OF TERMINALS :"@z,"SALESMAN NAME :"@,"HARD DISK SERIAL # :">@,"NUMBER OF ACCOUNTS :"f@Z,"NUMBER OF PARTS :"@,"INITIALIZED BY :"KX:KF:ZA:ZQ:USER$"AMY VAUGHN"ɬ KI  KI KM(:KA:K$CUSTOMER$: :CUSTOMER$K$1 KI KM:KAV:K$DT$: :DT$K$l KI KM:KA:K$TERMINALS$: :TERMINALS$K$ KI KM:KA:K$SALESMAN$: :SALESMAN$K$ۭ KI KM:KA6:K$SERIAL$: :SERIAL$K$ KI KM:KA:K$C$(ARCAP): :ARCAP(K$)S KI KM:KAv:K$C$(INVCAP!): :INVCAP!(K$) KI KM:KA:K$USER$: :USER$K$: KF KF:  : ZA @,"ARE YOU SURE YOU WANT TO INITIALIZE DATABASES ?"KF:KX:KM:ZQ:ZA:KA:K$"": 5 K$"YES" ZA: : [ 0:K$"CREATE DATABASES": :hR:C@(R,C),"SETUP OPTIONS:"@(R,C),"1 - INITIALIZE ALL DATABASE FILES "@(R,C),"2 - INITIALIZE TRANSACTION FILE (ITEM/DAT)"3@(R,C),"3 - INITIALIZE ACCOUNTS RECEIVABLE (AR2R/DAT)"o@(R,C),"4 - INITIALIZE PARTS DATABASE (INV120/DAT)"@(R,C),"5 - INSERT HEAD RECORDS INTO PARTS DATABASE"ܰ@(R,C),"6 - INITIALIZE OPEN INVOICE FILE" @(R,C),"7 - INITIALIZE SALESMAN FILE">@(R,C),"8 - INITIALIZE INVENTORY UPDATE FILE"k@(R ,C),"9 - INITIALIZE PO DIRECTORY"@(R ,C),"SELECTION :":@(R,C),"(PRESS ENTER TO SELECT LIGHTED OPTIONS)";:@(R,C),"(PRESS TO EXIT TO MSI DOS)";&CC30KF:KX:KM:KA(R )PC :ZQ:ZA:MK$"":K$""d: T:MK$MK$K$: ZA : A$( ) D K$"1" @(R,C),K3$;"1 - INITIALIZE ALL DATABASE FILES ";K4$;I K$"2" @(R,C),K3$;"2 - INITIALIZE TRANSACTION FILE (ITEM/DAT) ";K4$;YN K$"3" @(R,C),K3$;"3 - INITIALIZE ACCOUNTS RECEIVABLE (AR2R/DAT)";K4$;S K$"4" @(R,C),K3$;"4 - INITIALIZE PARTS DATABASE (INV120/DAT) ";K4$;X K$"5" @(R,C),K3$;"5 - INSERT HEAD RECORDS INTO PARTS DATABASE ";K4$;N] K$"6" @(R,C),K3$;"6 - INITIALIZE OPEN INVOICE FILE ";K4$;_ K$"7" @(R,C),K3$;"7 - INITIALIZE SALESMAN FILE ";K4$;a K$"8" @(R,C),K3$;"8 - INITIALIZE INVENTORY UPDATE FILE ";K4$;Bb K$"9" @(R ,C),K3$;"9 - INITIALIZE PO DIRECTORY ";K4$;Ll :n 0:K$"A/R CAPACITY": :@,"NUMBER OF ACCOUNTS : ";KX:KF:ZA:ZQ:KM:K$""ŵ KI  KI KA:ZE: T:ZE:ARCAP(K$): KF KF:  : > 0:K$"INV120/DAT CAPACITY": :d@,"APPROXIMATE # OF PARTS :";KX:KF:ZA:ZQ:KM:K$"" KI ˶% KI KA:ZE: T:ZE:INVCAP!(K$)*: KF KF:  : $ 0:K$"DETERMINE INVENTORY UPDATE FILE SIZES": :Q@(, ),"MAXIMUM NUMBER OF UPDATES :";~@(, ),"MAXIMUM UPDATE REPORT SIZE :";KX:KF:ZA:ZQ:KM: KI KXܷ! KI KA:K$C$(S1): T:S1(K$) & KI KAW:K$C$(S2): T:S2(K$)(0: KF KF:  : Q"QCINIT/BAS":"QCINIT/BAS saved!":