# $language = "VBScript"

# $interface = "1.0"

Sub Main

    'Dim i As Integer

    For i = 1 To 10000

        crt.Screen.Send "AT+CGMI" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGMR" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGMM" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGSN" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CIMI" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CFUN?" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGREG=2" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGREG?" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+COPS?" & Chr(13)

        crt.Sleep 500

        crt.Screen.Send "AT+CGATT?" & Chr(13)

        crt.Sleep 500

    Next

End Sub

set tabstop=4

set softtabstop=4 "backspace len

set shiftwidth=4 "equal to backspace len

set noexpandtab  "using tab as indent

set nu

set autoindent

set cindent  "c style indent