home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / BOUNCE.INC < prev    next >
Text File  |  1989-07-17  |  2KB  |  76 lines
  1. '************************************************************
  2. '* File Name:   Bounce.INC
  3. '*
  4. '* Description: INCLUDE file for Bounce.BAS.
  5. '*
  6. '*              This file sets up the FUNCTIONs, TYPEs and CONSTants
  7. '*              for Bounce.BAS. This file is separated to clean up
  8. '*              the code for Bounce.BAS.
  9. '*
  10. '*              Notice that the DECLAREs for many of the individual
  11. '*              FUNCTIONs have been extracted in this file.  This is
  12. '*              due to BASIC's limited compiler workspace.
  13. '************************************************************
  14. REM $INCLUDE: 'PMBase.BI'
  15. REM $INCLUDE: 'WinMisc.BI'
  16. REM $INCLUDE: 'WinDialg.BI'
  17. TYPE POINTL
  18.   x AS LONG
  19.   y AS LONG
  20. END TYPE
  21. DECLARE FUNCTION RegBas1&
  22. DECLARE FUNCTION RegBas2&
  23. DECLARE FUNCTION RegBas3&
  24. DECLARE FUNCTION RegBas4&
  25. DECLARE FUNCTION WinInvalidateRect%( BYVAL hwnd AS LONG,_
  26.                                      BYVAL pwrc AS LONG,_
  27.                                      BYVAL fIncludeChildren AS INTEGER)
  28. DECLARE FUNCTION GpiErase% (BYVAL hps AS LONG)
  29. DECLARE FUNCTION GpiMove% (BYVAL hps AS LONG,_
  30.                            BYVAL pptl AS LONG)
  31. DECLARE FUNCTION GpiSetColor% (BYVAL hps AS LONG,_
  32.                                BYVAL col AS LONG)
  33. DECLARE FUNCTION  GpiFullArc&( BYVAL HPS AS LONG,_
  34.                    BYVAL ALONG AS LONG,_
  35.                    BYVAL FIXED AS LONG)
  36. DECLARE FUNCTION DosBeep% (BYVAL freq AS INTEGER,_
  37.                            BYVAL dur AS INTEGER)
  38.  
  39. CONST BMSETCHECK         = &H0125
  40.  
  41. CONST PI = 3.1416                'Trigonometric constants
  42. CONST Degree = PI / 180
  43.  
  44. CONST IDTIMER      = 1           'RESOURCE CONSTANTS
  45. CONST IDMENU       = 1
  46. CONST IDACCEL      = 1
  47. CONST IDMCONTROL   = 2
  48. CONST IDMOPTIONS   = 3
  49. CONST IDMCSTART    = 4
  50. CONST IDMCSTOP     = 5
  51. CONST IDMCPAUSE    = 6
  52. CONST IDMCCONT     = 7
  53. CONST IDMCEXIT     = 8
  54. CONST IDMOSOUND    = 9
  55. CONST IDMOSIZE     = 10
  56. CONST IDMOVELOCITY = 11
  57. CONST IDMOPOS      = 12
  58. CONST IDMOTRAIL    = 13
  59. CONST IDMOANGLE    = 14
  60. CONST IDMOSRAND    = 16
  61. CONST IDMOSSCROLL  = 17
  62. CONST IDMOSCURRENT = 18
  63. CONST IDMOSOK      = 19
  64. CONST IDMOVSCROLL  = 21
  65. CONST IDMOVCURRENT = 22
  66. CONST IDMOVOK      = 23
  67. CONST IDMOPVSCROLL = 25
  68. CONST IDMOPHSCROLL = 26
  69. CONST IDMOPRECT    = 27
  70. CONST IDMOPX       = 28
  71. CONST IDMOPY       = 29
  72. CONST IDMOPOK      = 30
  73. CONST IDMOASCROLL  = 32
  74. CONST IDMOACURRENT = 33
  75. CONST IDMOAOK      = 34
  76.