... FUNCTION APRICOM( oDlg, oGet ) LOCAL nCom, cDcb BEGIN SEQUENCE nCom = OPENCOMM( "COM4", 1,1 ) IF nCom < 0 ? "Error de Apertura de Puerto de Comunicaciones." BREAK ENDIF BUILDCOMMDCB( "COM4:9600,N,8,1", @cDcb ) IF !SETCOMMSTATE( nCom, cDcb ) ? "Errore di impostazione della porta di comunicazione." ...