home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG099.ARC / JOYSTICK.DOC < prev    next >
Text File  |  1979-12-31  |  896b  |  48 lines
  1.                               JoyStick Tester
  2.  
  3.                               B∙áSimoεáCarte≥
  4.  
  5.  
  6. Here is a short Pascal routine to test a joystick.
  7.  
  8.  
  9. Function JoyStick : Byte;
  10.  
  11. var
  12.   Test : Byte;
  13.  
  14. Begin
  15.   Port[1] := 255;
  16.   Test := Port[0];
  17.   Test := Test Xor 255;
  18.   JoyStick := Test And 143;
  19. End;
  20.  
  21.  
  22.  
  23. Function Bit( BitCheck, Number : Byte ) : Boolean;
  24. Begin
  25.   Bit := Odd( Number Shr BitCheck );
  26. End;
  27.  
  28.  
  29.  
  30. var
  31.   JoyIn : Byte;
  32.  
  33. Begin
  34.   Repeat
  35.     begin
  36.     JoyIn := JoyStick;
  37.       if Bit(0,JoyIn) then Write('Up ');
  38.       if Bit(1,JoyIn) then Write('Down ');
  39.       if Bit(2,JoyIn) then Write('Left ');
  40.       if Bit(3,JoyIn) then Write('Right ');
  41.       if Bit(7,JoyIn) then Write('Fire ');
  42.       if JoyIn = 0 then WriteLn('Nothing ',JoyIn)
  43.     else
  44.       WriteLn(JoyIn);
  45.     end;
  46.   until KeyPressed;
  47. End.
  48.