CP/M/CPM_CDROM.iso/mbug/mbug099.arc/JOYSTICK.I

Text File | 1979-12-31 | 768b | 40 lines

Function JoyStick : Byte;

var
  Test : Byte;

Begin
  Port[1] := 255;
  Test := Port[0];
  Test := Test Xor 255;
  JoyStick := Test And 143;
End;



Function Bit( BitCheck, Number : Byte ) : Boolean;
Begin
  Bit := Odd( Number Shr BitCheck );
End;



var
  JoyIn : Byte;

Begin
  Repeat
    begin
    JoyIn := JoyStick;
      if Bit(0,JoyIn) then Write('Up ');
      if Bit(1,JoyIn) then Write('Down ');
      if Bit(2,JoyIn) then Write('Left ');
      if Bit(3,JoyIn) then Write('Right ');
      if Bit(7,JoyIn) then Write('Fire ');
      if JoyIn = 0 then WriteLn('Nothing ',JoyIn)
    else
      WriteLn(JoyIn);
    end;
  until KeyPressed;
End.