home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 16 / 16.iso / t / t161 / 1.img / GETBOOT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-07-21  |  402 b   |  25 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,ParamStr(2));
  11.   Reset(f);
  12.   Rewrite(g);
  13.   Seek(f,62);
  14.   FOR i:=63 TO 512 DO BEGIN
  15.     Read(f,c);
  16.     if i<>512 then
  17.       write(g,'$',hexf(c,2),',')
  18.     else
  19.       write(g,'$',hexf(c,2));
  20.     IF i MOD 16=0 THEN WriteLn(g);
  21.   END;
  22.   Close(f);
  23.   Close(g);
  24. END.
  25.