home *** CD-ROM | disk | FTP | other *** search
-
- REM $option k100
- REM $option !gy
-
- DEFINT a-z
-
- LIBRARY "gemaes"
-
- SUB va_send (to$,commline$)
- STATIC a$,a&,c$,c&,i,junk
-
- a$=SPACE$(16) : a&=VARPTR(a$)
- 'c$="H:\MODS\INTRO.MOD"+CHR$(0) : c&=VARPTR(c$)
- c$=commline$+CHR$(0) : c&=VARPTR(c$)
-
- i=appl_find(to$)
-
- IF i=-1 THEN junk=form_alert (1,"[1][ VA server not found! ][ OK ]")
-
- IF i<>-1 THEN
- POKEW a&,&H4711
- POKEW a&+2,PEEKW(PEEKL(GB+4)+4)
- POKEW a&+4,0
- POKEL a&+6,c&
- POKEW a&+10,0
- appl_write i,16,a&
- END IF
- END SUB
-
- CALL va_send ("EXEC2","Hello!")
- STOP -1