Leitura e gravação na porta serial -- 11188

Porta Serial
============

Utilize o seguinte conjunto de funcoes (4.06, 4.07, 5.07, 5.08):
(apos cada linha segue comentario)

cTexto := SPACE(50)
/* A quantidade de espacos variada de acordo com o buffer de dados recebido do periférico
*/

nHandle := LoadLibrary("SERIAL.DLL")
/* No Protheus (versoes 5.0x) nao e necessario existir o arquivo SERIAL.DLL, mas esse parametro foi mantido por questoes de compatibilidade com as versoes 4.0x
*/

MsOpenPort(nHandle,"COM1:9600,n,8,1")
/* Abre a porta serial. Os parametros passados entre aspas sao (na ordem da direita para a esquerda):
- Porta Serial
- Velocida de transmissao em bps
- Paridade s/n
- Quantidade de bits de dados
- Bits de parada
Essas informacoes dependem da configuracao do periferico, o padrao esta demonstrado no exempo acima.
*/

MsWrite(nHandle,"Comandos a serem enviados")
/* Envia informacoes para a porta
*/

MSRead(nHandle,cTexto)
/* Le informacoes da porta e coloca na variavel informada no segundo parametro (cTexto no exemplo)
*/

MsClosePort(nHandle)
/* Fecha a porta serial
*/

FreeLibrary(nHandle)
/* Libera o handle (controle) da porta serial
*/