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