home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / TPASJOY.ZIP / JOYDEMO4.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-03-30  |  674 b   |  30 lines
  1. program JoyDemo4;
  2.  
  3. {
  4. Author:        David Howorth
  5. Last updated:  March 30, 1987
  6. Application:   A demonstration of function JoystickPresent.
  7. }
  8.  
  9. var
  10.   ch  :  char;
  11.  
  12. {$I JOYPRSNT.INC}
  13.  
  14. begin
  15.   clrscr;
  16.   writeln('                         JOYSTICK DEMONSTRATION NUMBER 4');
  17.   gotoxy(1,7);
  18.   writeln('This is just a test of the function JoystickPresent, which indicates,');
  19.   writeln('as you might guess, whether a joystick is present.');
  20.   writeln;
  21.   if JoystickPresent
  22.     then writeln('You have one.')
  23.     else writeln('You don''t have one attached.');
  24.   writeln;
  25.   writeln;
  26.   writeln('Press any key to end demo.');
  27.   read(kbd,ch);
  28.   clrscr;
  29. end.
  30.