Sub chkreg(unused As Byte)
Dim CMD0,CMD3 As String
CMD0="AT"
astream.Write2(CMD0,0,2).Write(EOL)
Delay(2000)
CMD3="AT+CREG?"
astream.Write2(CMD3,0,8).Write(EOL)
Delay(2000)
End Sub
Sub init(unused As Byte)
Dim CMD0,CMD1,CMD2 As String
CMD0="AT"
CMD1="AT+CMGF=1"
CMD2="AT+GPS=1"
astream.Write2(CMD0,0,2).Write(EOL)
Delay(2000)
astream.Write2(CMD0,0,2).Write(EOL)
Delay(2000)
astream.Write2(CMD0,0,2).Write(EOL)
Delay(2000)
astream.Write2(CMD1,0,9).Write(EOL)
Delay(2000)
astream.Write2(CMD2,0,8).Write(EOL)
Delay(2000)
End Sub