home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PINBSRC.ZIP / _KEYS.PAS < prev    next >
Pascal/Delphi Source File  |  1995-05-24  |  654b  |  39 lines
  1.  
  2. procedure CTRL_Shift_Keys;
  3. var b:byte;
  4. begin
  5.   asm
  6.     sti
  7.     mov ah,2
  8.     int $16
  9.     mov b,al
  10.     cli
  11.   end;
  12.   if b and 2 = 2 then begin
  13.       if arm_links_status<5 then inc(arm_links_status)
  14.     end else
  15.       if arm_links_status>1 then dec(arm_links_status);
  16.   if b and 1 = 1 then begin
  17.       if arm_rechts_status<5 then inc(arm_rechts_status)
  18.     end else
  19.       if arm_rechts_status>1 then dec(arm_rechts_status);
  20. end;
  21.  
  22. procedure keyboard;
  23. var b:byte;
  24. begin
  25.   b:=0;
  26.   asm
  27.     sti
  28.     mov ah,1
  29.     int $16
  30.     jz @nokey
  31.       mov ah,0
  32.       int $16
  33.       mov b,al
  34.     @nokey:
  35.     cli
  36.   end;
  37.   ch:=chr(b);
  38. end;
  39.