home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1991 / 06 / cgatr / bgi2bin.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-08  |  1.7 KB  |  48 lines
  1. (* ------------------------------------------------------ *)
  2. (*                    BGI2BIN.PAS                         *)
  3. (* Borland Graphics Interface to                          *)
  4. (*                            Binary Code File Converter  *)
  5. (*                                                        *)
  6. (* Konvertierungsprogramm, um aus einer BGI-Datei         *)
  7. (* eine Binär-Code-Datei zu erzeugen, die sich dann       *)
  8. (* einfacher mit einem Debugger oder (noch besser) einem  *)
  9. (* Disassembler analysieren läßt.                         *)
  10. (*                                                        *)
  11. (* Die Kopierroutine entspricht teilweise dem             *)
  12. (* Programmbeispiel im amerikanischen Handbuch            *)
  13. (* zur Routine "BlockRead" (Version 4.0: Owner's          *)
  14. (* Handbook, Seite 381; Version 5.0: Reference Guide,     *)
  15. (* Seite 231).                                            *)
  16. (*      (c) 1991 Hanno-Ekkehard Müller & TOOLBOX          *)
  17. (* ------------------------------------------------------ *)
  18. PROGRAM BGI2BIN;
  19.  
  20. CONST
  21.   BGIName = 'CGA';
  22.  
  23. VAR
  24.   fr,fw        : FILE;
  25.   buff         : ARRAY [1..1024] OF BYTE;
  26.   ch           : CHAR;
  27.   nr, nw,
  28.   BGICodeStart : WORD;
  29.  
  30. BEGIN
  31.   Assign(fr, BGIName + '.BGI');
  32.   Reset(fr, 1);
  33.   REPEAT
  34.     BlockRead(fr, ch, SizeOf(CHAR));
  35.   UNTIL ch = #$1A;
  36.   BlockRead(fr, BGICodeStart, SizeOf(WORD));
  37.   Seek(fr, BGICodeStart);
  38.   Assign(fw, BGIName + '.BIN');
  39.   Rewrite(fw, 1);
  40.   REPEAT
  41.     BlockRead(fr, buff, SizeOf(buff), nr);
  42.     BlockWrite(fw, buff, nr, nw);
  43.   UNTIL nr = 0;
  44.   Close(fw);
  45.   Close(fr);
  46. END.
  47. (* ------------------------------------------------------ *)
  48. (*                Ende von BGI2BIN.PAS                    *)