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")

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)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET