home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / extra18 / pastrick / setver / chver.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-12-06  |  1.3 KB  |  46 lines
  1. (* ------------------------------------------------- *)
  2. (*                   CHVER.PAS                       *)
  3. (*    Globale Änderung der DOS-Version via INT 60    *)
  4. (*      (c) 1991 Jürgen Schlottke & DMV-Verlag       *)
  5. (* ------------------------------------------------- *)
  6. (*             Sprache: Turbo Pascal 6.0             *)
  7. (* ------------------------------------------------- *)
  8. PROGRAM ChangeVer;
  9.  
  10. {$S-}
  11.  
  12. USES Dos;
  13.  
  14. VAR
  15.   Vec60                   : Pointer;
  16.   Version, HiVers, LoVers : STRING;
  17.   Count                   : INTEGER;
  18.   Major, Minor            : BYTE;
  19.  
  20.   PROCEDURE Usage;
  21.   BEGIN
  22.     WriteLn('Syntax: CHVER <DosVersion>');
  23.     Halt(1);
  24.   END;
  25.  
  26. BEGIN
  27.   IF ParamCount <> 1 THEN Usage;
  28.   Version := ParamStr(1);
  29.   Count   := Pos('.', Version);
  30.   IF Count = 0 THEN Usage;
  31.  
  32.   HiVers := Copy(Version, 1, Count-1);
  33.   LoVers := Copy(Version, Count+1, Length(Version));
  34.   Val(HiVers, Major, Count);
  35.   Val(LoVers, Minor, Count);
  36.  
  37.   Mem[0:$0240] := Major;   (* (IntVec 60)   *)
  38.   Mem[0:$0241] := Minor;   (* (IntVec 60)+1 *)
  39.  
  40.   WriteLn('DOS-Version geändert!', #13, #10,
  41.           '(c) Jürgen Schlottke & DMV-Verlag');
  42. END.
  43. (* ------------------------------------------------- *)
  44. (*              Ende von ChVER.PAS                   *)
  45.  
  46.