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