Incompatibilidad entre el tipo de operador

Tengo este problema de incompatibilidad entre el tipo de operador y el tipo de operando en el case A=1 de ante mano te doy las gracias por ayudarme
use estudiante
mod=" "
do while mod <> "N" and mod <> "n"
 clear
 cod=0
 @5,5 say " Ingrese el numero de la matricula del estudiante " get cod
 read
 locate for id_estudia=cod
 if found()
  A=1
  do while A>=1 and A<=5
   @7,5 say " 1.- Domicilio "
   @8,5 say " 2.- Teléfono "
   @9,5 say " 3.- Sector "
   @10,5 say " 4.- Representante "
   @11,5 say " 5.- Salir "
   A=" "
   @12,5 say " Elija un numero entre 1 y 5 " get A
   read
   do case A
    case A=1
     dom=space(30)
     @13,5 say " Ingrese el nuevo domicilio " get dom
     read
     replace domicilio with dom
    endcase
    case A=2
     tel=0
     @14,5 say " Ingrese el nuevo numero de telefono " get tel
     read
     replace telefono with tel
    endcase
    case A=3
     sect=space(20)
     @15,5 say " Ingrese el nuevo sector " get sect
     read
     replace sector with sect
    endcase
    case A=4
     rep=space(20)
     @16,5 say " Ingrese el nuevo nombre del representante " get rep
     read
     replace nombre_r with rep
    endcase
    case A=5
     A=0
    Endcase
   enddo
  enddo
 else
@17,5 say " Registro no existe "
Endif
 @18,5 say " Otro estudiante S=si N=no " get mod 
 read
enddo