Do
if event=1 then
MyVar=2
MyDate$=Date$
MyTime$=time$
var save MyVar, MyDate$, MyTime$
endif


MyVar=0
MyDate$=""
MyTime$=""

...

...

var restore

if MyVar=2 then

print MyDate$, MyTime$, "Event 1 happened"

endif


Loop

'********************************************
'********************************************
' for 24V32 (32kBit EEPROM) on DS3231
' MMBasic 4.5 for Maximite/Duinomite
'
' eeWriteS: writes a string to address
' eeWriteN: writes a number (1 byte) to address
' eeReadN: reads a number (1 byte) from address
' address may be between 0 to 4095
'
' eeErase: deletes the whole eeprom
' eeDump: shows content of eeprom
'
'
' EEPROM-Collection
' by twofingers 08-2014
' with parts from MMBasic Library
' (should be public domain)
'
'********************************************
'********************************************

Option base 0

T$="The BackShed eeprom test "


'eeErase
eeWriteS 70, t$

'eeWriteN 364, 70
'Print eeReadN(364)

eeDump

End


'******************************
Sub eeWriteN (address, Number)
' Write a number to AT24C32
'******************************

I2CADDR=&H57 ' 24C32-DS3231

I2C open 100,100 'ENABLE I2C
msb=Int(address/256) 'MSB
lsb=address Mod 256 'LSB

I2C write I2CADDR, 0, 3, msb, lsb, Number
If MM.I2C <>0 Then Print "Error! 1=NAK 2=TIMEOUT"; MM.I2C: End Sub
I2C close

Print Number;" written into EEPROM."
End Sub


'******************************
Function eeReadN (address)
' Read a number from AT24C32
'******************************

I2CADDR=&H57 ' 24C32-DS3231

I2C open 100,100 'ENABLE I2C
msb=Int(address/256) 'MSB
lsb=address Mod 256 'LSB

I2C write I2CADDR, 0,2,msb,lsb
I2C read I2CADDR, 0,1,eeReadN

If MM.I2C <>0 Then Print "ERROR! 1=NAK 2=TIMEOUT"; MM.I2C:eeReadN=-1:End:EndIf
I2C close

End Function


'******************************
Sub eeWriteS (address, text$)
' Writes a string to AT24C32
'******************************

I2CADDR=&H57 ' 24C32-DS3231
a=0

If Len(text$)+address>4095 Then Print "Error: Address to high!":End

I2C open 100,100 'ENABLE I2C
For x= address To address+Len(text$)
a=a+1
msb=Int(x/256) 'MSB
lsb=x Mod 256 'LSB

I2C write I2CADDR, 0, 3, msb, lsb, Asc(Mid$(text$,a,1))

If MM.I2C <>0 Then Print "Error! 1=NAK 2=TIMEOUT"; MM.I2C: End Sub
Pause 5
Next
I2C close

Print "At"address" string "+Chr$(34)+text$+Chr$(34)+"is written into EEPROM."
End Sub


'**************************************
' ERASE WHOLE EEPROM (fill with zero)
'**************************************
Sub eeErase
I2CADDR=&H57 ' 24C32-DS3231
K=&H00 'zero value

Print "Erasing ..."
I2C open 100,100 'ENABLE I2C
For J=&h0 To &hF 'MSB
For I=&h0 To &hFF 'LSB
I2C write I2CADDR, 0,3,j,i,k
Pause 2 ' or Pause 5? Write needs some time ...
If MM.I2C <>0 Then Print "1=NAK 2=TIMEOUT"; MM.I2C,j,i:End:EndIf
Next i
L=(j*256+I)
Print "Byte ";L, " ";Chr$(13);
Next j
I2C close
Print "EEPROM HAS BEEN ERASED "

End Sub



'**************************************
' EEPROM komplett LESEN
' Shows content from AT24C32
'**************************************
Sub eedump

Dim RTCBUFF(4096)
I2CADDR=&H57 ' 24C32-DS3231

For I=0 To 4095
RTCBUFF(I)=&H0
Next I
Print " Reading buffer in ..."

I2C open 100,100 'ENABLE I2C
For J=&H0 To &HF
For I=&h0 To &hFF
L=(j*256+I)

I2C write I2CADDR, 0,2,J,I
I2C read I2CADDR, 0,1,RTCBUFF(L)

If MM.I2C <>0 Then Print "ERROR! 1=NAK 2=TIMEOUT"; MM.I2C,j,i:End:EndIf
Next I
Next J

I2C close

Print " Show buffer (Press any key!) ..."

For I=0 To 4095 Step 16
Print "Byte ";Format$(I,"%4g");" ||";
For y = 0 To 15
Print Right$("0"+Hex$(RTCBUFF(I+y)),2);"|";
Next y
Print "|";
For y = 0 To 15
If RTCBUFF(I+y) >=32 And RTCBUFF(I+y)<=126 Then ' show ascii only
C$=Chr$(RTCBUFF(I+y))
Else
C$=" "
EndIf
Print C$;
Next y
Print "|"
wait
Next I

End Sub


' wait for any key
Sub wait
Do While Inkey$="":Loop
End Sub