[Back to ARCHIVES SWAG index] [Back to Main SWAG index] [Original]

    {FILE_ID.DIZ importer for RA 2.xx, exec from ramgr.exe
     dizzy.exe @ C:\PK\ C:\RA }
    {$A+,B-,D+,E+,F-,G+,I+,L+,N+,O-,P-,Q-,R-,S+,T-,V+,X+}
    {$M 4384,0,4045}
    uses dos, Crt, mytoolbx;
    Var iii : byte;
    Begin
         Clrscr;
         Writeln(' fileid.DIZzy eXtractor v.1.0 by: Chris Evans (c) 1995 ');
         Writeln(' For RAMGR.EXE; A remoteAccess utility! ');
         for iii := 1 to 80 do Write(#196);
         If Paramcount = 0 then Err('syntax :',Paramstr(0) +
         ' <archive.zip> <path to pkunzip.exe> <ra home dir> ',11,15,254);
         Write('Working...');
         If fileexist(ParamStr(2) + 'PKUNZIP.EXE') = false then
            err('þ','cannot find archiver.',12,15,1);
         If fileexist(ParamStr(1)) = true then
         begin
    swapvectors;
    Exec(ParamStr(2) + 'PKUNZIP.EXE',ParamStr(1) + ' File_id.diz ' + ParamStr(3));
    swapvectors;
    If fileexist(ParamStr(3) + 'RAMGRBUF.$00') = true then
       deletefile(ParamStr(3) + 'RAMGRBUF.$00');
    RenameFile(ParamStr(3) + 'FILE_ID.DIZ', ParamStr(3) + 'RAMGRBUF.$00');
         end
         else
         begin
              Err('þ','target not found failure.',12,15,2);
         end;
        Writeln('Done!');
    end.

[Back to ARCHIVES SWAG index] [Back to Main SWAG index] [Original]