home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TP_ADV.ZIP / LIST0101.PAS next >
Encoding:
Pascal/Delphi Source File  |  1989-11-20  |  388 b   |  25 lines
  1. Program EnvBlockCursor;
  2. var
  3.   F : file of byte;
  4.   B : byte;
  5. begin
  6.   Assign(F,'TURBO.EXE');
  7.   Reset(F);
  8.   if FileSize(F) = 156321 then
  9.   begin
  10.     Seek(F,$E085);
  11.     B := $EB;
  12.     Write(F,B);
  13.   end
  14.   else
  15.   if FileSize(F) = 149793 then
  16.   begin
  17.     Seek(F,$DB0A);
  18.     B := $EB;
  19.     Write(F,B);
  20.   end
  21.   else
  22.     Writeln('Unknown version of Turbo');
  23.   Close(F);
  24. end.
  25.