TRANSMIT "disc^M"
PAUSE 3
HANGUP
PAUSE 1
QUIT
ENDPROC
PROC NEWS1
STRPARM SYMB
LOG OPEN "\RSA2\NOTES\SYMB.NOT"
TRANSMIT ".SYMB 01^M"
WAITFOR "^S^Q"
LOG CLOSE
ENDPROC