home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / sendbub.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-29  |  628 b   |  25 lines
  1. DEFINT a-x
  2. LIBRARY "GEMAES"
  3.  
  4. c$=SPACE$(16) : c&=VARPTR(c$)
  5. ad$="This is a demo of how to use BubbleGEM. As you can see it brings 
  6. a bubble up on the screen!"
  7. ad$=ad$+" This is useful for help functions in programs, but only if 
  8. the dialog is non-modal. The"
  9. ad$=ad$+" call to access it is a combination of things with a 
  10. appl_write at the end"+CHR$(0) : ad&=VARPTR(ad$)
  11.  
  12. IF LEN(ad$)>255 THEN STOP -1
  13.  
  14. i=appl_find("BUBBLE  ")
  15. IF i=-1 THEN BEEP : STOP-1 
  16.  
  17. POKEW c&,&HBABB
  18. POKEW c&+2,PEEKW(PEEKL(GB+4)+4)
  19. POKEW c&+4,0
  20. POKEW c&+6,MOUSE(0)
  21. POKEW c&+8,MOUSE(1)
  22. POKEL c&+10,ad&
  23. POKEW c&+14,0
  24.  
  25. appl_write i,16,c&