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

 Paso:
IF eof()
      Exit
Else
      Skip
ENDIF