... nTry=0 do while nTry<10 // can remove this nTry if not applicable if ( nBytes := readComm( gnComm, @cBlock) ) > 0 msgwait('Cedula ha sido Leida , espere'+str(nTry,5),'',.5) exit else nTry++ msgwait('Leyendo Cedula ... Ahora.. '+str(nTry,5),'',1) endif if nTry==10 Quit endif enddo MemoWrit( ...