5 print "Write to EEPROM" 10 p=0:rem EEPROM page number 20 l=0:rem starting EEPROM location 30 d=rnd(1) 35 print p,l,d 40 put(p,l,d) 50 l=l+1:if l<11 then 30 60 print:print "Read from EEPROM" 70 p=0 80 l=0 90 print p,l,get(p,l) 100 l=l+1:if l<11 then 90