Eigentlich steht ja alles in der Beschreibung des SRF08, aber hier mal einen Stück kommentierter Code:

Ultraschall:
I2cstart 'Messung auslösen
I2cwbyte 0 '0 Adresse für alle Bausteine (Broadcastadresse)
I2cwbyte 0 'Register 0 - Befehlsregister
I2cwbyte 81 'Befehl 81 - Messung in cm
I2cstop

Waitms 65 'delay 65mS auf Ergebnis warten

I2cstart
I2cwbyte 224 'E0 Addresse vom 1. US
I2cwbyte 2 'Register 2 (+3) = 1. Entfernung

I2cstart
I2cwbyte 225 'Leseadresse (E1)
I2crbyte Msb , Ack 'Register 2 lesen
I2crbyte Lsb , Nack 'Register 3 lesen
I2cstop
Entfernungus = Makeint(lsb , Msb) 'Word als Ergebnis von 2 Bytes bauen
Print "Entfernung: " + Str(entfernungus)

Return