CopyQ?

For i=2 to N
      aux=x(i)
      k=i-1
      sw=«falso»
      Do while (sw=«falso») and (k>=1)
            If aux<x(k)
                x(k+1)=x(k)
                k=k-1
            Else
                sw=«verdadero»
            Endif
      Endwhile
      x(k+1)=aux
Endfor

For i=1 to N-1
      aux=x(i)
      k=i
      For j=i+1 to N
            If x(j)<aux
                aux=x(j)
                k=j
            Endif
      Endfor
      x(k)=x(i)
      x(i)=aux
Endfor

For i=1 to N-1
      For j=1 to N-1
            If a(j)>a(j+1)
                mayor=a(j)
                a(j)=a(j+1)
                a(j+1)=mayor
            Endif
      Endfor
Endfor

Dato_ap_pat=space(10)
Input«Ingresa apellido paterno»;Dato_ap_pat
use Tabla.DBF
go top
inicial=recno()
go bottom
final=recno()
central=ENT((inicial+final)/2)
go central
Dato_central=ap_pat
Do while (Dato_ap_pat<>Dato_central) and (inicial<final)
      if Dato_central<Dato_ap_pat
            inicial=central+1
      else
            final=central-1
      endif
      central=ENT((inicial+final)/2)
      go central
      Dato_central=ap_pat
Endwhile
Do imprime

If Dato_ap_pat=Dato_central
      print cod_alu
      print ap_pat
Endif

I=0
Dato_ap_pat=space(10)
Input«Ingresa apellido paterno»;Dato_ap_pat
Use Tabla.DBF
Go Top
DO WHILE NOT EOF()
      IF Dato_ap_pat=ap_pat
            gotoxy(1+I,1); Print cod_alu
            gotoxy(1+I,10); Print ap_pat
            I=I+1
            Do Paso
      Else
            Do Paso
      ENDIF
ENDWHILE

IF eof()
      Exit
Else
      Skip
ENDIF

Dato_ap_pat=space(10)
Input«Ingresa apellido paterno»;Dato_ap_pat
Use Tabla.DBF
Go Top
DO WHILE NOT EOF()
      IF Dato_ap_pat=ap_pat
            Print cod_alu
            Print ap_pat
            Exit
      Else
            Skip
      ENDIF
ENDWHILE