home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / turbo3 / automsg.pas < prev    next >
Pascal/Delphi Source File  |  1988-02-13  |  607b  |  24 lines
  1. program AutoMsg;{ für Turbo-Pascal 3.01A }
  2.  
  3.  
  4.     (*  Turbo-Patch, um TURBO.MSG automatisch zu laden.  *)
  5.     (*  Achtung, nur mit Kopie von TURBO.COM verwenden!  *)
  6.     (* Hinweise siehe DOS-International Heft 1/88 S. 141 *)
  7.  
  8. const adr: integer = $2E7D;
  9. (* Konstante » adr « nur für Turbo 3.01A / für Version 3.02A ändern in $2E53 *)
  10.      nop : byte = $90;
  11.      eins : byte = 1;
  12.      ora : byte = $0C;
  13.      TurboPascal = 'turbo.com';
  14.  
  15. var turbo: file of byte;
  16.  
  17. begin
  18.  assign(turbo, Turbopascal);
  19.  reset (turbo);
  20.  seek(turbo, adr);
  21.  write(turbo, ora, eins, nop);
  22.  close(turbo);
  23.  end.
  24.