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