; TKA Script for Window
;
proc main

 waitfor "ogon:"
 transmit "%"
 transmit $USERID
 transmit "^M"

 waitfor "sword:"
 transmit $PASSWORD
 transmit "^M"

endproc