Code: Select all
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL nCom := OPENCOMM( "COM1", 16384, 16384 )
LOCAL cDcb
BUILDCOMMDCB( "COM1:57600,N,8,1", @cDcb )
SETCOMMSTATE( nCom, cDcb )
? WRITECOMM( nCom, SPACE( 32767 ) )
CLOSECOMM( nCom )
RETURN NIL