teclado

Inicio

Mandar ceros a los renglones

Leer las columnas

Columnas en !'s

Contador de renglón a 0

RI<-0

Inicializar rastreo de renglones

Sean <- 11111110

Rastreo de Renglon

PtoC<- Sean

Columnas en 1'S

Leer las Columnas

columna 0=0 ?

columna 1=0 ?

columna 2=0

columna 3=0 ?

Ri <. Ri+1

col <- 0

col <- 1

col <- 2

col <--3

Desplaza Scan

A la izquierda

Toda <_ 4 Ri+col

Ri = 4?

ret

No

Si

ret

Si

No