t:WEBPRICE/BAS REV 28.00 2/22/07 FOR SETSP THAT INCLUDES 9 AND 10Ą:FINDS FILE ON SYSTEM IF EXISTS, copies down from incoming folder co=2000:doesn't yet check for duplicates 1/11/058 : "POSITRAK SCRATCH FILE ARCHIVER";) ` (P,):headings, program namej AZr WPU$():MC$"":PL$"":MAX (SVC,2 p ˅7   :DISPLAY THE LINES<:get jobbers line code for this lineF "Enter Line Code for file to be moved: or F1 enter to exit.";K$: F$: : MC (F$) (): "Invalid MFG Code": K ':: FPL$"SF000/DAT"†ZM$(MC):M$(M$,):L(M$)܆_(L$,L,L)M$:K$L$%dP$"DIR USING SF*/DAT:8 TO DIR/TXT:0": list all scratchfiles on :8.n P$Cx"I",,"DIR/TXT"Q #,A$ (A$,K$) SZ((A$,2,)): A$ : ()  Ç SZ "File is missing or empty": : code to search file file here,P$"DIR USING "L$" TO DIR/TXT:0":string to search for file5 P$BEXISTSW"I",,"DIR/TXT"f #, A$ (A$,"Drive:") Q$(A$,,):SP((A$,1)): Q$"8"  (A$,L$) Q$"8" EXISTS:USED ((A$,2)): A$ : ()   Q EXISTS "THIS FILE EXISTS ON DRIVE:";Q$;" "; : X :NEWk "Checking sizes..."ۉ "New file requires";SZ;"bytes of space. ": SP;"bytes available on drive": USED;"Bytes used by old file"$ SZff(SPUSED) "Sorry, won't fit":A$"KILL "L$: A$: XD "Overwrite (Y/N)? ";YN$V YN$"N" o "REPLACING ":;L$:copy the file onto the system, then run matrixO$"COPY "K$":8 "L$":"Q$" ,K,E;FPRICE "F$:PRINT O$'copy to correct drive" :"O",,"COPYIT/TXT:1": #, O$(`:PRINT"INSTALLING: ";K$;" AS ";L$;" ON DRIVE:";Q$r "DO COPYIT"x "Line ";F$;" is now installed on your server. Step one is complete.": "Step two is updating your existing inventory.": "Hit ENTER to go to the next step."0P$"FPRICE "F$8 RA P$H cX:FILE DOES NOT EXIST]"THIS IS A NEW FILE - SEARCHING FOR AVAILABLE SPACE..."Ќ_"This file requires";SZ;"kbytes of space."b "FREE TO DIR/TXT:0"l"I",,"DIR/TXT" q #,A$:SKIPPING DRIVE :0Gr #,A$:SKIPPING PROGRAM VOLUMErv #,A$: A$: (A$,,)"8" vNF((A$,),)):AV((A$,1,)): NF, AV, SZ؍ (AVSZff) (NF) () vQ$(A$,,): (Q$,,)" " Q$(Q$,):HANDLE 9 AND 10I AVSZ A$: :it should fit herey "Sorry, no room available - call support" :DISPLAY THE ACTUAL LINES ON :8% "THE FOLLOWING LINES ARE AVAILABLE FOR PRICE UPDATING:" *P$"DIR USING SF*/DAT:8 TO DIR/TXT"4 P$*>"I",,"DIR/TXT"7H #,A$bRK(A$,"/DAT"): K () H\ K MC((A$,,)): : SS$;MC;;" ";:COUNTCOUNTf () Hk COUNT;" Total lines available."p :: p"R",,"CONFIG/DAT"z ,  AS YY$C I : ,I=:MF$(I)YY$:QA$()eF%: SVC(F%)oF% I :(A$,,)MF$(I): SVC(F%,A$): : Ő (F$,)() F:X$" "F$:Z: SVC(F,X$,Z):MCZ:(F:SS$():ZMC: SVC(F,Z,SS$):SS$(SS$,):