'DECLARE SUB ToBuffer (KeyStroke$)
'DEFINT A-Z


CALL ToBuffer("Testing!!!")
CLS

PRINT "This shows what had been sent to the keybuffer:"
COLOR 15
DO
  KeyIn$ = INKEY$
  PRINT KeyIn$;
LOOP UNTIL LEN(KeyIn$) = 0

'
SUB ToBuffer (KeyStroke$)
  ' routine found in the public domain

  stff$=LEFT$(KeyStroke$,15)                ' 15 characters at most
  length = LEN(stff$)

  DEF SEG = 64                             ' keyboard segment
  POKE &H1A, &H1E                          ' buffer head
  POKE &H1C, &H1E + length * &H2           ' buffer tail

  FOR count = 1 TO length                  ' POKE each char one by one
    POKE &H1C + count * &H2, ASC(MID$(stff$, count))
  NEXT
  DEF SEG                                  ' restore default segment
END SUB