PicoMite MMBasic Version 5.07.08b6
Copyright 2011-2023 Geoff Graham
Copyright 2016-2023 Peter Mather

> option list
PicoMite MMBasic Version 5.07.08b6
OPTION SYSTEM I2C GP14,GP15
OPTION COLOURCODE ON
OPTION DISPLAY 43, 120
OPTION LCDPANEL SSD1306I2C, LANDSCAPE, 2
OPTION RTC AUTO ENABLE
> text 0,0,"This is line 1"
> ?date$,time$
01-01-2000      00:00:37
> rtc settime "23/06/23 14:57"
> ?date$,time$
23-06-2023      14:57:03
> run
    0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F
00:
[12] I2C write addr, 0, 1, &H00  ' write zero to that adress
Error : Pin not set for I2C
> list
' i2cdetect like program

' Prep table
Print "     0  1  2  3  4  5  6  7  8  9  A  B  C  D  E  F"

' loop col/row
For y=0 To 7
Print Hex$(y,2);": ";
For x=0 To 15
 addr = y*16+x               ' calc address
 I2C write addr, 0, 1, &H00  ' write zero to that adress
 If MM.I2C=0 Then            ' check for errors
   Print Hex$(addr,2);" ";   ' found one!
Else
  Print "-- ";               ' nothing here..
EndIf
Next x
Print
Next y