home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / ac15disk / hbasic / exec2app.bas < prev    next >
Encoding:
BASIC Source File  |  1999-08-20  |  507 b   |  31 lines
  1.  
  2. REM $option k100
  3. REM $option !gy
  4.  
  5. DEFINT a-z
  6.  
  7. LIBRARY "gemaes"
  8.  
  9. SUB va_send (to$,commline$)
  10. STATIC a$,a&,c$,c&,i,junk
  11.  
  12. a$=SPACE$(16) : a&=VARPTR(a$)
  13. 'c$="H:\MODS\INTRO.MOD"+CHR$(0) : c&=VARPTR(c$)
  14. c$=commline$+CHR$(0) : c&=VARPTR(c$)
  15.  
  16. i=appl_find(to$)
  17.  
  18. IF i=-1 THEN junk=form_alert (1,"[1][ VA server not found! ][ OK ]")
  19.  
  20. IF i<>-1 THEN
  21.     POKEW a&,&H4711
  22.     POKEW a&+2,PEEKW(PEEKL(GB+4)+4)
  23.     POKEW a&+4,0
  24.     POKEL a&+6,c&
  25.     POKEW a&+10,0
  26.     appl_write i,16,a&
  27. END IF
  28. END SUB
  29.  
  30. CALL va_send ("EXEC2","Hello!")
  31. STOP -1