| Here's a straight forward one for a single site. proc main integer iDay, iMonth, iYear, iMin, iHour, iSec string sSetTD set txpace 75 transmit "****^M" pause 3 transmit "LD 2^M" pause 3 transmit "TTAD^M" waitfor "." pause 1 ltimeints $LTIME iYear iMonth iDay iHour iMin iSec strfmt sSetTD "STAD %02d %02d %d %02d %02d %02d" iDay iMonth iYear iHour iMin iSec mspause 250 transmit sSetTD pause 2 transmit "^M" waitfor "." mspause 500 transmit "TTAD^M" waitfor "." mspause 250 waitfor "." transmit "****^M" endproc __________________ Dogs rollover Phones hunt |