Print "09-08-2018 fram menu"
Do
Print
Print "Select operation"
Print "1. I2CScanner must be done 1st"
Print "2. Framsize"
Print "3. Erase Fram"
Print "4. Write to Fram"
Print "5. Dump Fram"
Print "6. Exit"
Print:Print ">>";

k$=""
Do While k$=""
k$=Inkey$
Loop

Print

Select Case k$
Case "1"
I2CScanner
Case "2"
FramSize
Case "3"
FramErase
Case "4"
FramWrite
Case "5"
FramDump
Case "6"
End
End Select
Loop

'====================
Sub I2CScanner
Local found, i,h$, temp
found=0
Print
Print "I2C-Scanner from Adr. 8-119":Print
For i = &h08 To &h77 ' gueltige I2C-Adressen von 8-119
I2C open 100, 1000 ' i2c enable 100kHz, 1000ms timeout
I2C read i, 0, 1, temp
If MM.I2C = 0 Then
Print "Found I2C-Address at "; i; " (&H";Hex$(i);")"
found=1
EndIf
I2C close ' i2c disable
Next i
If found = 0 Then Print "NO I2C-Address found!"
If found = 1 Then
Input "Fram I2C address &H",h$
fa=Val("&H"+h$)
EndIf
End Sub

Sub FramDump
Local a,b,c,d,da$
Print
Print "Dumping Fram. ESC to exit "
a=getadr()
I2C open 100,100
DA$=Chr$(A\256) + Chr$(A Mod 256)
I2C write fa,0,2,da$ 'opt 0, lenght 2, memadr as a string

Do
Print " [======+==================================================+==================]"
For d=1 To 16
d1$=""

Print " | ";Hex$(a,4);" | ";
For c=1 To 16
I2C read fa,1,1,B 'opt 1, lenght 1, b gets data
A=A+1
If a=framsz Then a=0

Print Hex$(b,2);" ";
b=b And &H7F ' mask out upper bit
If b=>&h21 And b<=&H7E Then
d1$=d1$+Chr$(b)
Else
d1$=d1$+"."
End If
Next c
Print " | ";d1$;" |"
Next d

If esckey() Then Exit Do
Loop
End Sub

Function esckey()
Local k$
k$=""
Do While k$=""
k$=Inkey$
esckey=0
If k$=Chr$(&H1B) Then esckey=1
Loop
End Function

Function getadr()
Local i$,a
Input "Fram address =&H", i$
a=Val("&H"+i$)
If (a<0 Or a >framsz) Then a=0
a=a And &HFFF0
getadr=a
End Function

Sub FramErase 'erasing in 16 byte blocks
Local x
Print "Erasing ";framsz;" bytes, press ESC to abort"
If esckey() Then Exit Sub
Print "Erasing .";
I2C open 100,100
For X=0 To framsz-1 Step 16
I2C write fa,0,18,X\256, X Mod 256,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 '
If Not (x Mod 256) Then Print ".";
Next
I2C Close
End Sub

Sub FramWrite
Local d$,da$,db$
Print "Writing to Fram "
a=getadr()
Print Hex$(a,4);" ";
Input "-> ",v$
DA$=Chr$(A\256) + Chr$(A Mod 256)
D$=DA$ + v$
I2C open 100,100
I2C write fa,0,Len(D$),D$
I2C Close
A=A+Len(D$)-2
If a=framsz Then a=0
End Sub

Sub FramSize
Local x,d$,r$,s$
Print: Print "FramSize": Print "Sizing"
I2C open 100,100

D$=Chr$(0) + Chr$(0)
I2C write fa,0,Len(D$),D$
I2C read fa,0,4,s$

D$=Chr$(0) + Chr$(0) + "Here"
I2C write fa,0,Len(D$),D$
D$=Chr$(0) + Chr$(4)
I2C write fa,0,2,D$

Do
I2C read fa,1,4,r$ 'opt 1, lenght 4
If x Mod 512=0 Then Print ".";
x=x+4
If r$="Here" Then Exit Do
Loop

Print: Print "Fram Size ";x;", &H";Hex$(x,4);" bytes"
framsz=x
D$=Chr$(0) + Chr$(0) + s$
I2C open 100,100
I2C write fa,0,Len(D$),D$
I2C Close
End Sub