About writing word variables into the eeprom

[Jerson]

Since you're dealing with word variables, the size is known to be 2bytes on the PIC. So, something like this will work

SaveArray:
FOR ArrayPosition = 0 TO 20-1
    WRITE ArrayPosition*2,Array[ArrayPosition].Byte0,Array[ArrayPosition].Byte1
Next
return

ReadArray:
FOR ArrayPosition = 0 TO 20-1
    READ ArrayPosition*2,Array[ArrayPosition].Byte0,Array[ArrayPosition].Byte1
Next
return