1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
opengt set com 115200n81 set comecho off set senddelay 0.02 waitquiet 0.2 0.2 flash 0.1 :start send "AT+CIMI^m" get 1 "^m" $s get 1 "^m" $s let x = len($s) if x<2 goto continue let $s = $right($s, x-1) print $s :continue exit 0