home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / CMPLTPAS.ZIP / GAMEBORD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1988-08-01  |  1.3 KB  |  33 lines
  1. {--------------------------------------------------------------}
  2. {                          GAMEBORD                            }
  3. {                                                              }
  4. {            Machine-code joystick support unit                }
  5. {                                                              }
  6. {                             by Jeff Duntemann                }
  7. {                             Turbo Pascal V5.00               }
  8. {                             Last update 8/1/88               }
  9. {                                                              }
  10. { This is the unit body for a unit that actually consists of   }
  11. { the two assembly language routines in file GAMER.ASM.        }
  12. {                                                              }
  13. {     From: COMPLETE TURBO PASCAL 5.0  by Jeff Duntemann       }
  14. {    Scott, Foresman & Co., Inc. 1988   ISBN 0-673-38355-5     }
  15. {--------------------------------------------------------------}
  16.  
  17. UNIT GameBord;
  18.  
  19. INTERFACE
  20.  
  21. FUNCTION  Button(StickNumber,ButtonNumber : Integer) : Boolean;
  22.  
  23. PROCEDURE Stick(StickNumber : Integer;
  24.                 VAR X       : INTEGER;
  25.                 VAR Y       : INTEGER);
  26.  
  27. IMPLEMENTATION
  28.  
  29. {$L GAMER}
  30. FUNCTION Button; EXTERNAL;
  31. PROCEDURE Stick; EXTERNAL;
  32.  
  33. END.