Category : Miscellaneous Language Source Code
Archive   : FILESELE.ZIP
Filename : FS_CALL.PAS

{ Demo for FILESELE.EXE by Andy & Cow (1992), source coding }

{$M $4000,0,0}

uses dos;

var tmpstr:string;

function hex_word(w:word):string;
const hexstri:string='0123456789ABCDEF';
begin
hex_word[0]:=#4;
hex_word[1]:=hexstri[(hi(w) shr $4)+1];
hex_word[2]:=hexstri[(hi(w) and $F)+1];
hex_word[3]:=hexstri[(lo(w) shr $4)+1];
hex_word[4]:=hexstri[(lo(w) and $F)+1];
end;

function select(tmpstr:string):string;
var stmp:string;
begin
stmp:=tmpstr;
SwapVectors;
Exec('filesele.exe',hex_word(SSeg)+':'+hex_word(Ofs(stmp))+' /P');
Swapvectors;

if doserror<>0
then
begin
writeln('EXEC Selector failure, doserror=', doserror);
write('Enter file name:'); readln(stmp);
end;
select:=stmp;
end;

begin

{ Samples of usage }

write(select('*.*') ,' Press '); readln;
write(select('..\*.*'),' Press '); readln;
write(select('*.exe') ,' Press '); readln;

{ Sample for direct usage, without function select }


tmpstr:='f*.*';
SwapVectors;
Exec('filesele.exe',hex_word(DSeg)+':'+hex_word(Ofs(tmpstr))+' /P');
Swapvectors;

writeln(tmpstr);
end.