home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / games / sysslow.zip / SETDELAY.PAS < prev    next >
Pascal/Delphi Source File  |  1987-02-11  |  878b  |  52 lines
  1. Program Setdelay;
  2.  
  3. Type
  4.     Str4=String[4];
  5. Var
  6.    T:Integer;
  7.    A,B,I,J,K:Integer;
  8.    F:Str4;
  9.  
  10. Function HEXS(L:Integer):Str4;
  11. Var
  12.    N,Y,Z:Integer;
  13.    Ch:Char;
  14.    Ans:Str4;
  15.  
  16. begin
  17.    CH:=' ';
  18.    Ans:='';
  19.    For Y:=0 to 3 do
  20.    begin
  21.      N:=((l shr (y*4)) and $000f);
  22.      If N<10 then CH:=Chr(N+48) Else CH:=Chr(N+55);
  23.      Ans:=CH+Ans;
  24.    end;
  25.    HEXS:=Ans;
  26. end;
  27.  
  28.  
  29.  
  30. begin
  31.    I:=MEMW[0:$20];
  32.    If I<>$105 then
  33.    begin
  34.         Write('System Slower Not Installed.');
  35.         Halt;
  36.    end;
  37.    J:=MEMW[0:$22];
  38.    K:=MEMW[J:$107];
  39.    Writeln('Old time delay was : ',HEXS(K));
  40.    Write('Enter time delay (0001 <= Time <= FFFF [Hex]) : ');
  41.    Readln(F);
  42.    Val('$'+F,A,B);
  43.    If b<>0 then
  44.    begin
  45.         Write('Not a valid hex number-- delay not changed.');
  46.         Halt;
  47.    end;
  48.    If A=0 then A:=K;
  49.    MEMW[J:$107]:=a;
  50. end.
  51.  
  52.