home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / JOYGA.ZIP / JOYDEM2.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-02-13  |  1.1 KB  |  33 lines
  1. program Joydem2;   { Demo to show use of JoyStkCal procedure in Turbo Pascal
  2.                      4.0 unit JoyStk. }
  3.                    { John Haluska, CIS 74000,1106 }
  4. uses JoyStk;
  5.  
  6. var
  7.   Num,I  : byte;
  8.   JoyXRge, JoyYRge : array[1..3] of integer;
  9.  
  10. begin
  11.   if not JoystkPresent then
  12.     begin
  13.       Writeln('Game Adapter not present in this computer.  Exit program.');
  14.       Exit;
  15.     end;
  16.   Writeln ('            JoyStick Calibration Demo');
  17.   Writeln;
  18.   repeat
  19.     Write ('Enter Joystick Number(0 or 1):  ');
  20.     Readln (Num);
  21.   until (Num = 0) or (Num = 1);
  22.   Writeln ('CENTER joystick. Then press any joystick button.');
  23.   JoyStkCal(Num,JoyXRge[2],JoyYRge[2]);
  24.   Writeln ('Move joytick full UP and LEFT. Then press any joystick button.');
  25.   JoyStkCal(Num,JoyXRge[1],JoyYRge[1]);
  26.   Writeln ('Move joystick full DOWN and RIGHT. Then press any button.');
  27.   JoyStkCal(Num,JoyXRge[3],JoyYRge[3]);
  28.   Writeln;
  29.   Writeln ('Joystick Calibration Values');
  30.     Writeln ('        X         Y');
  31.   for I := 1 to 3 do
  32.     Writeln ('       ',JoyXRge[I]:3,'       ',JoyYRge[I]:3);
  33. end.