home *** CD-ROM | disk | FTP | other *** search
/ Millennium Time Capsule / AC2000.BIN / disks / hbasic_1 / source / vasend.bas < prev    next >
Encoding:
BASIC Source File  |  1997-08-29  |  345 b   |  22 lines
  1. REM $option y+,v+,u+,#,[
  2.  
  3. LIBRARY "GEMAES"
  4. DEFINT a-z
  5.  
  6. a$=SPACE$(16) : a&=VARPTR(a$)
  7. c$="H:\MODS\INTRO.MOD"+CHR$(0) : c&=VARPTR(c$)
  8.  
  9. i=appl_find("VASTART test 1")
  10.  
  11. IF i=-1 THEN PRINT "Not here!"
  12.  
  13. IF i-1 THEN
  14.  
  15. POKEW a&,&H4711
  16. POKEW a&+2,PEEKW(PEEKL(GB+4)+4)
  17. POKEW a&+4,0
  18. POKEL a&+6,c&
  19. POKEW a&+10,0
  20.  
  21. appl_write i,16,a&
  22. END IF