example by IchigoJam BASIC

* 0x21
- 数値123を送信する
    10 IoT.OUT 123
    (!) IoTコマンドで送信できるのは2byte

- 数値0x12345678を送信する
    10 POKE #700,#21,0,0,0,#78,#56,#34,#12
    20 R=I2CW(#4F, #700, 8)

* 0x22
- 数値0x12345678を送信する（LTE通信完了を待たない）
    10 POKE #700,#22,0,0,0,#78,#56,#34,#12
    20 R=I2CW(#4F, #700, 8)

* 0x20
- 送信キューに{1,2,3,4,5,6,7,8}をためる
    10 POKE #700,#20,0,0,0,1,2,3,4,5,6,7,8
    20 R=I2CW(#4F,#700,12)

* 0x24
- 送信キューの中身を全て送信する
    10 POKE #700,#24
    20 R=I2CW(#4F,#700,1)

* 0x25
- 送信キューの中身を全て送信する（LTE通信完了を待たない）
    10 POKE #700,#25
    20 R=I2CW(#4F,#700,1)

* 0x20 & 0x24
- 送信キューに値をため、即時に送信キューの中身を全て送信する
    10 POKE #700,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16
    20 IoT.OUT #700,16

* 0x30
- 4byteのデータを1つ取得する
    10 ?IoT.IN()
    (!) IoTコマンドを使用した場合、取得できるのは4byteのデータの下位2byte

- 4byteのデータを1つ取得する
    10 POKE #700,#30
    20 R=I2CR(#4F,#700,1,#710,8)
    30 IF PEEK(#710)==1 ?PEEK(#714):?PEEK(#715):?PEEK(#716):?PEEK(#717)

* 0x34
- データを取得する（MAX: 128byte）
    10 POKE #700,#34
    20 R=I2CR(#4F,#700,1,#710,130)
    30 IF PEEK(#710)!=1 OR PEEK(#711)==0 END
    40 I=0
    50 ?PEEK(#712+I):I=I+1
    60 IF I<PEEK(#711) GOTO50

* 0xc0
- GPS位置情報を取得する
    10 POKE #700,#C0
    20 R=I2CR(#4F,#700,1,#710,29)
    30 IF PEEK(#710)!=1 END
    40 ?"MONTH:";PEEK(#734)
    50 ?"DAY:";PEEK(#735)

* 0xc1
- GPSをONにする
    10 POKE #700,#C1,1
    20 R=I2CW(#4F,#700,2)

* 0xd0
- ICCIDを取得する
    10 POKE #700,#D0
    20 R=I2CR(#4F,#700,1,#710,10)
    30 I=0
    40 ?HEX$(PEEK(#719-I),2);
    50 I=I+1
    60 IF I<8 GOTO40

* 0xd1
- IMEIを取得する
    10 POKE #700,#D1
    20 R=I2CR(#4F,#700,1,#710,10)
    30 I=0
    40 ?HEX$(PEEK(#719-I),2);
    50 I=I+1
    60 IF I<8 GOTO40

* 0xd2
- 通信量の上限を10MB(0x00A00000)に設定する
    10 POKE #700,#D2,#00,#00,#A0,#00
    20 R=I2CW(#4F,#700,5)

* 0xd3
- 通信可能なバイト数を取得する
    10 POKE #700,#D3
    20 R=I2CR(#4F,#700,1,#710,6)
    30 I=0
    40 ?HEX$(PEEK(#715-I),2);
    50 I=I+1
    60 IF I<4 GOTO40

* 0xd4
- PLMNをSoftBank(44020==0xABF4)に設定する
    10 POKE #700,#D4,#F4,#AB
    20 R=I2CR(#4F,#700,3,#710,2)
    30 IF PEEK(#710)==1 ?"OK" ELSE ?"NG"

- PLMNをKDDI(44051==0xAC13)に設定する
    10 POKE #700,#D4,#13,#AC
    20 R=I2CR(#4F,#700,3,#710,2)
    30 IF PEEK(#710)==1 ?"OK" ELSE ?"NG"

- PLMNをNTT DOCOMO(44010==0xABEA)に設定する
    10 POKE #700,#D4,#EA,#AB
    20 R=I2CR(#4F,#700,3,#710,2)
    30 IF PEEK(#710)==1 ?"OK" ELSE ?"NG"

* 0xd5
- PLMNを取得する
    10 POKE #700,#D5
    20 R=I2CR(#4F,#700,1,#710,4)
    30 ?HEX$(PEEK(#713),2);HEX$(PEEK(#712),2)

* 0xd6
- 接続状況を取得する
    10 POKE #700,#D6
    20 R=I2CR(#4F,#700,1,#710,1)
    30 IF PEEK(#710)==1 ?"Connect!"

* 0xff
- MixSodaのバージョンを取得する
    10 POKE #700,#FF
    20 R=I2CR(#4F,#700,1,#710,1)
    30 ?"VER:";PEEK(#710)

* 0xfe
- ascii文字をuart送信する
    10 A=" MS VER"
    20 B="        "
    30 POKE A,#FE
    40 R=I2CR(#4F,A,LEN(A),B,LEN(B))
    50 ?STR$(B)