Hi all,

I've been playing around with this little serial utillity for a few
hours. It's a little scripting tool that allows you to integrate a PC
with something (PIC?) on the serial port.

The scripting looks like this

:Action1                ; if active do this when something comes in on serial po
rt
  TextOutInString(0)    ; write 1st char of data to PC screen
  ResetInstring         ; reset PC buffer
  WriteString(1,2,3,4)  ; write numeric data out
  Action1(False)        ; cancel this routine
                        ; exit

:Action2                ; else, if active do this when something comes in on ser
ial
port
  IfInstring(>15)       ; do rest of routine if incoming data string is > 15
chars
    TextOutInstring(All); write entire in buffer to PC screen
    ResetInString       ; reset PC buffer
    Count+              ; add 1 to a counter
    IfCount(512)        ; do next line if true
      Action2(False)
    WriteString('R')    ; write char 'R' to serial port
                        ; exit

:Initiate1              ; routine connected to a button #1 on PC screen
  WriteString('Poke')   ; get things rolling with this string
                        ; exit


It may make things easier when writing programs that interact with a PC,
which can be a real pain at times. I don't know how far it will go, but
it will be available on my web site soon.

--
Best regards

Tony

http://www.picnpoke.com
Email sales@picnpoke.com