EEPROM storage of Single variable

Dim eep As Byte  'eeprom address
Dim data As Byte
Dim floater As Single @ 0x30
Dim addr As Word  'ram address
addr  = 0x30
floater = 123.456
main:
   For eep = 0 To 3
     data = Pointer(addr)
     Write eep, data
     addr =addr + 1
   Next eep
   floater = 0
   addr = 0x30
   For eep = 0 To 3
     Read eep, data
     Pointer(addr) = data
     addr = addr + 1
   Next eep     
     
Goto main  'go again