home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / FLOPPIES / FDFORM16.ZIP / GETBOOT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-10-26  |  324 b   |  21 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.   Reset(f);
  12.   Rewrite(g);
  13.   FOR i:=1 TO 512 DO BEGIN
  14.     Read(f,c);
  15.     Write(g,'$',hexf(c,2),',');
  16.     IF i MOD 16=0 THEN WriteLn(g);
  17.   END;
  18.   Close(f);
  19.   Close(g);
  20. END.
  21.