Program JoyStickTester;

{ohjelma vaatii toimiakseen AT-tasoisen koneen, koska
 PC/XT koneista ei l”ydy tarvittavaa BIOS-rutiinia}

Uses Dos,Crt,Binary;

Var x1,y1,x2,y2:word;

Function ButtonStates:byte;
Var reg:registers;
Begin
   reg.AH:=$84;
   reg.DX:=$00;
   Intr($15,reg);
   ButtonStates:=reg.AL;
End;

Procedure Potentiometers(var x1,y1,x2,y2:word);
Var reg:registers;
Begin
   reg.AH:=$84;
   reg.DX:=$01;
   Intr($15,reg);
   x1:=reg.AX;
   y1:=reg.BX;
   x2:=reg.CX;
   y2:=reg.DX;
End;

Begin
   ClrScr;
   Repeat
      GotoXY(1,1);
      Writeln('Joystick Test Program  ver 0.1');
      Writeln('(C) 1991 by Tomi Engdahl');
      Writeln;
      Writeln('Buttons = ',ByteBin(ButtonStates));
      Writeln;
      Potentiometers(x1,y1,x2,y2);
      Writeln('Joystick 1');
      Writeln('X = ',x1,'     ');
      Writeln('Y = ',y1,'     ');
      Writeln;
      Writeln('Joystick 2');
      Writeln('X = ',x2,'     ');
      Writeln('Y = ',y2,'     ');
      Writeln;
      Writeln('Press any key to exit.');
   Until KeyPressed;
End.