home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac15disk / hbasic / exec2acc.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-20  |  1.2 KB  |  69 lines
  1.  
  2. DEFINT a-z
  3. REM $option y+,v+,u+,#,[
  4. REM $option j10
  5.  
  6. LIBRARY "GEMAES"
  7. REM $include gemaes.bh
  8.  
  9. CONST va_start=&H4711
  10. COMMON SHARED junk
  11.  
  12.  
  13. SUB disp
  14. STATIC mess&,id,addr&,addr2&,a,file$,b
  15. SHARED mess(1)
  16.  
  17. REM mess0+1=&H4711
  18. REM mess2+3=sent from (id)
  19. REM mess4+5+6+7=address of string of mod file
  20. REM mess9-16=blank
  21.  
  22. file$=""
  23.  
  24. mess&=VARPTR(mess(0))
  25. id=SPEEKW(mess&+2)
  26. addr&=SPEEKL(mess&+6)
  27. addr2&=addr&
  28.  
  29. DO
  30.     a=PEEKB (addr&)
  31.     IF a<>0 THEN file$=file$+CHR$(a)
  32.     INCR addr&
  33. LOOP UNTIL a=0
  34.  
  35. b=form_alert (1,"[1][ From ID:"+STR$(id)+" | Message: | "+file$+" ][ Ok ]")
  36.  
  37. END SUB
  38.  
  39. SUB do_message
  40. STATIC cur_front,MessageType,title,item
  41. SHARED exit_item,Finished_Flag,Mess(1),AlreadyOpen
  42.     MessageType=Mess(0)
  43.     junk=wind_get(Mess(3),WF_TOP,cur_front,junk,junk,junk)
  44.      SELECT CASE MessageType
  45.     CASE AC_OPEN:
  46.         WINDOW SYSTEM
  47.      CASE WM_CLOSED: 
  48.         WINDOW STOP
  49.     CASE va_start
  50.         CALL disp
  51.     END SELECT
  52. END SUB
  53.  
  54. SUB StartAccessory(daname$)
  55. SHARED WindX,WindY,WindW,WindH
  56. SHARED Mess(1)
  57. STATIC id,mpos
  58. DIM Mess(16)
  59. id=PEEKW(PEEKL(GB+4)+4)
  60. mpos=menu_register(id,daname$)
  61. junk=wind_get(0,WF_WORKXYWH,WindX,WindY,WindW,WindH)
  62.  
  63. DO
  64.     evnt_mesag VARPTR(mess(0))
  65.     do_message
  66. LOOP
  67. END SUB
  68.  
  69. StartAccessory ("  VA_START test 1")