CHAIN to .bat????

 BBS: Inland Empire Archive
Date: 08-31-92 (17:16)             Number: 14
From: ZACK JONES                   Refer#: NONE
  To: WALTON DELL                   Recvd: NO  
Subj: CHAIN to .bat????              Conf: (2) Quik_Bas

 > P.S. I've heard of QBSwap and would like to know more about

No need for QBswap.  Try this.

Credit goes to David Poskie who originally posted it.

SUB PokeBuffer (Cmd$) STATIC
   '
   ' Limit the string to 14 characters plus <CR> and get its length
   Work$ = LEFT$(Cmd$, 14) + CHR$(13)
   Length% = LEN(Work$)
   '
   ' Set the segment for poking
   DEF SEG = 0
   '
   ' Define buffer's head & tail
   POKE 1050, 30
   POKE 1052, 30 + Length% * 2
   '
   ' Then poke each character.
   FOR Index% = 1 TO Length%
      POKE 1052 + Index% * 2, ASC(MID$(Work$, Index%))
   NEXT Index%
   '
END SUB ' PokeBuffer

It's quite easy to use.  Suppose you want to call Dell.bat -
 here's how you could do it.

Call PokeBuffer("Dell.bat")
end

what this will do is 'stuff' "Dell.BAT" into the keyboard
buffer - add a carriage return end and then run Dell.BAT -
the last line of Dell.BAT should be the name of the program
you want to return to.

Good Luck with it!

Take Care,
Zack Jones

---
 * Origin: Zack's Shack - San Antonio TX (1:387/905.1)