let's review a part of setup1 routine

Code:
setup1:
          if eecon1.3 = 0 then ; if write ok shows 888
             x = 888
             for demora = 1 to 30
                 gosub display
             next
          endif

          if eecon1.3 = 1 then ; if write not ok shows 111
             x = 111
             for demora = 1 to 30
                 gosub display
             next
          endif 
          return ; si se apreta el segundo boton vuelve a main
          enable
       endif 
       goto setup1
i'll prefer using something like that
Code:
While EECON1.3 == 0 'while eeprom write is not finish
     x=111   
    gosub display
wend
that way you'll monitor WRERR as long the write is not finish. OR, you can also include the WRERR test in your interrupt routine too if you enable EEIE bit in INTCON.

if nothing is working, let me know, i'll give a try in real world with this issue.