proc main
integer iDay, iMonth, iYear, iMin, iHour, iSec
string sSend
ltimeints $LTIME iYear iMonth iDay iHour iMin iSec
strfmt sSend "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec
set txpace 20
transmit "****^M"
pause 1
transmit "john^M"
pause 1
transmit "logi john^M" ;script stops for pwd
waitfor ">" forever
transmit "ld 2^M"
waitfor "."
transmit "TTAD^M"
waitfor "."
transmit sSend
transmit "^M"
waitfor "."
mspause 20
transmit "TTAD^M"
waitfor "."
mspause 20
transmit "****^M"
endproc