home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / TOYS / DB4K.ZIP / DB4K / SOURCE / FIXDBD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-07  |  616 b   |  39 lines
  1. program fixdbd;
  2.  
  3. uses
  4.   dos;
  5.   
  6. var
  7.   SF,DF:file;
  8.   buf: packed array[0..401] of byte;
  9.   sbuf: array[0..3] of word;
  10.   sn,dn: string[80];
  11.   dummy: integer;
  12.   obj: integer;
  13.   
  14. begin
  15.   if paramcount<>1 then halt(0);
  16.   
  17.   sn:=paramstr(1);
  18.   dn:='level.dbd';
  19.   
  20.   reset(SF,sn);
  21.   rewrite(DF,dn);
  22.   
  23.   blockread(SF,buf[0],402,dummy);
  24.   blockwrite(DF,buf[0],402,dummy);
  25.   
  26.   obj:=-1;
  27.   repeat
  28.     obj:=obj+1;
  29.     blockread(SF,sbuf[0],8,dummy);
  30.     blockwrite(DF,sbuf[0],8,dummy);
  31.   until sbuf[0]=0;
  32.  
  33.   close(SF);
  34.   close(DF);
  35.  
  36.   writeln(obj,' objekt');
  37.   repeat until keypressed;
  38.  
  39. end.