... msgwait('Leyendo Cedula ... Ahora.. '+str(nTry,5),'',1) endif if nTry==10 Quit endif enddo MemoWrit( "ced.txt",cBlock) --: grabamos la lectura binaria en un archivo .TXT Lector() */* Lueog lo procesamos. if FlushComm( gnComm, 0 ) != 0 nError = GetCommError( gnComm ) Msgwait( 'Error Limpiando ...