Kermit startup file for connecting to 4e4th (http://www.4e4th.eu/)

4e4th

#!/usr/bin/kermit +
# Kermit startup file for connecting to 4e4th (http://www.4e4th.eu/)
kermit -H -l /dev/ttyACM3 
set speed 9600
set reliable
fast
set carrier-watch off
set key \127 \8
set key \96 "\92 bye\4" 
set flow-control none 
set prefixing all
set file type text
set rec pack 4096
set send pack 4096
set window 5
# set transmit pause 100
set transmit echo on
set transmit prompt 17

define forth {
    echo ( -- Forth )
    output \13
    :interact
    connect /quietly /trigger:{{\4}{\32OK?\13\10\17}}
    if ( EQUAL \v(trigger) \32OK?\13\10\17 ) {
       ok
       goto :interact
    }
    echo Goodbye
    quit 
}

define load {
    xecho "loading \%1 ..."
    transmit \%1
    output \13
}

define ok {
   if not defined \m(workfile) {
     ask workfile {Workfile: }
   } 
   load \m(workfile)
}

forth