home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / OS2BAS.ZIP / WEL.BAS < prev    next >
BASIC Source File  |  1989-09-11  |  466b  |  18 lines
  1. '---------------------------------------------------
  2. ' WEL.BAS -- A Program that Creates a Message Queue
  3. '---------------------------------------------------
  4. REM $INCLUDE: 'PMBase.BI'
  5.  
  6. hab& = WinInitialize(0)
  7. hmq& = WinCreateMsgQueue(hab&, 0)
  8.  
  9. bool% = WinDestroyMsgQueue(hmq&)
  10. bool% = WinTerminate(hab&)
  11.  
  12. END
  13.  
  14.  
  15. '*** ClientWndProc needed to eliminate unresolved externals from REGBAS.LIB
  16. FUNCTION ClientWndProc&(hwnd&, msg%, mp1&, mp2&)
  17. END FUNCTION
  18.