home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / TPASJOY.ZIP / JOYPRSNT.INC < prev    next >
Encoding:
Text File  |  1987-03-29  |  390 b   |  20 lines
  1. {JOYPRSNT.INC}
  2.  
  3. {
  4. Author:        David Howorth
  5. Last updated:  March 29, 1987
  6. Application:   Just a function to determine whether a joystick is present.
  7. }
  8.  
  9. function JoystickPresent : boolean;
  10.  
  11. var
  12.   Result : record
  13.              ax,bx,cx,dx,bp,si,di,ds,es,flags : integer;
  14.            end;
  15.  
  16. begin
  17.   intr($11,Result);
  18.   JoystickPresent := ((Result.ax and $1000) <> 0);
  19. end;
  20.