WriteComm on file

[Maurizio]

Can I write to Com1 as a file ?
Maurizio

[MarcoBoschi]

Maurizio,
do you mean this?

Code: Select all  Expand view  RUN

FUNCTION MAIN()
LOCAL nHandle
LOCAL cBuf
LOCAL nLen
nHandle  := FOPEN( "COM1" , 1 )

? nHandle

cBuf := "ATDT161"
nLen := LEN( cBuf )



? FWRITE( nHandle , @cBuf , nLen )

FCLOSE( nHandle )              
? nHandle

RETURN NIL