!	
!	Drivers Motorola - GPRS
!	Modified by anatopeck - 03/19/04 
!
!	Thank to Nova :)
!	
!	Dialing number *99# or *99***1#
!	Login : mportail
!	Password : mib
!	
@ORIGINATE
@ANSWER
! 
ifstr 5 1 "0"
serreset 115200, 0, 8, 1
jump 2
!
@LABEL 1
serreset 115200, 0, 8, 1
!
@LABEL 2
hsreset 0 0 0 0 0 0
settries 0
!
matchclr
matchstr 1 3 "OK\13\10"
write "AT\13"
matchread 30
!
@LABEL 3
!
matchclr
matchstr 1 4   "OK\13\10"
matchstr 2 101 "ERROR\13\10"
write "AT&FE0S0=0\13"
matchread 30
inctries
iftries 3 101
!
!
DTRClear
pause 5
DTRSet
flush
jump 3
!
!
@LABEL 4
!
ifstr 4 5 "1"
ifstr 4 5 "2"
!
matchclr
matchstr 1 9 "OK\13\10"
write "AT\13"
matchread 30
jump 101
!
!
@LABEL 5
!
ifstr 5 9 "1"
!
matchclr
matchstr 1 9 "OK\13\10"
write "AT\13"
matchread 30
jump 101
!
!
@LABEL 9
!
ifstr 2 13 "1"
pause 5
matchclr
matchstr 1 13 "OK\13\10"
write "ATM0\13"
matchread 30
jump 101
!
!
@LABEL 13
ifANSWER 32
!
!
!
matchclr
matchstr 1 20 "OK\13\10"
write "AT+cgdcont=1,\34IP\34,\34orange-mib\34\13"
matchread 400
jump 101

@LABEL 20
matchclr
matchstr 1 21 "OK\13\10"
write "AT+cgqmin=1,0,0,3,0,0\13"
matchread 400
jump 101

@LABEL 21
write "ATD*99#\13"

!
!
@LABEL 32
matchclr
matchstr  2 102 "NO DIALTONE\13\10"
matchstr  3 103 "NO CARRIER"
matchstr  4 103 "ERROR\13\10"
matchstr  5 104 "BUSY\13\10"
matchstr  6 105 "NO ANSWER\13\10"
matchstr  7 33  "CONNECT"
matchstr  8 32  "CARRIER"
matchread 700
ifANSWER 32
jump 101
!
!
@LABEL 33

!
!
note "Communicating via GPRS" 2
CommunicatingAt 64000

!
!
@LABEL 70
!
HSReset 0 1 0 0 0 0
!

exit 0

!
!
! ---- Hang up and reset modem ----
!
@HANGUP
@LABEL 90
settries 0
HSReset 0 0 0 0 0 0
!
@LABEL 92
!
matchclr
matchstr 1 96 "OK\13\10"
write "+++"
matchread 20
!
@LABEL 94
!
matchclr
matchstr 1 98 "NO CARRIER\13\10"
matchstr 2 98 "OK\13\10"
matchstr 3 98 "ERROR\13\10"
matchstr 4 98 "0\13\10"
write "ATH\13"
matchread 30
! 
DTRClear
pause 5
DTRSet
flush
!
inctries
iftries 3 101
jump 92
!
@LABEL 96
!
pause 50
jump 94
!
!
@LABEL 98
!
pause 15
matchclr
matchstr 1 99 "OK\13\10"
write "AT&F\13"
matchread 30
jump 101
!
@LABEL 99
exit 0
!
! ---- Error messages -----
!
@LABEL 101
exit -6019
!
@LABEL 102
exit -6020
!
@LABEL 103
exit -6021
!
@LABEL 104
exit -6022
!
@LABEL 105
exit -6023
!
@LABEL 107
exit -6008