home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / FLOPPIES / FDFORMAT.ZIP / SOURCE.ZIP / GETBOOT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-02  |  349 b   |  22 lines
  1. uses baseconv;
  2.  
  3. Var c: Byte;
  4.   f:   file of Byte;
  5.   g:   Text;
  6.   i:   Word;
  7.  
  8. begin
  9.   assign(f,paramstr(1));
  10.   assign(g,'BOOT.DAT');
  11.   Writeln(paramstr(0));
  12.   reset(f);
  13.   rewrite(g);
  14.   for i:=1 to 512 do begin
  15.     read(f,c);
  16.     write(g,'$',hexf(c,2),',');
  17.     if i mod 16=0 then writeln(g);
  18.   end;
  19.   close(f);
  20.   close(g);
  21. end.
  22.