Computer Music Interactif 7/cd.iso/pc/PC/Internet/Win3x/data1.cab/FexFiles/SCRIPTS/TELETEL.SCR

Text File | 1999-10-26 | 3.8 KB | 243 lines

!--------------------------------------------------------
!
!     Script General TÈlÈtel / TVR France Explorer ou minitel
!
!     (C) France Multimedia 1996-1998
!
!--------------------------------------------------------
!
!     sÈquence de dÈconnexion
!     -----------------------
!
*Pause 90
*Xmit "+++"
*Pause 180
*Xmit "ATH0\13"
*Pause 120
*Exit 0
!
!--------------------------------------------------------
!
!     sÈquence de connexion
!     ---------------------
!

-Label 0
~DEBUG~
CanBtn 64
User 1 "~PREF~~NBA~"
User 2 "~CODEA~"
Display 2
SetBkPict 30000
DsplyPic 100
DsplyMsg "Teste le Modem..."
Pause 30
CanBtn 63
SetTries 0
Transport 9 ~TRANSPORT~
Flush
MatchStr 1 2 "OK"
!
-Label 1
!
Xmit "~RESETSEQ~\13"
Wait 400
Xmit "+++"
Wait 200
Xmit "ATQ0\13"
Wait 200
IncTries
IfTries 2 60
Jump 1
!
-Label 2
!
Flush
MatchStr 1 3 "OK"
MatchStr 2 3 "ERR"
DsplyPic 200
DsplyMsg "Initialisation du Modem..."
Pause 60
Xmit "~INITSEQ~\13"
Wait 500
Jump 60
!
-Label 3
!ShowPrice "Palier de tarification ~XPRICE~"
ShowPrice "Tarif du service ~XPRICE~"
! Note : Ne pas modifier les 7 lignes suivantes:
! ----
! ~PROMPTMANU~=! en cas de mumÈrotation auto
! ~PROMPTMANU~=Prompt "NumÈrotez manuellement,puis attendez la tonalitÈ pour valider"
~PROMPTMANU~
! ~MSGMANU/AUTO~ = DsplyMsg "NumÈrotation du ^1." numerotation auto
! ~MSGMANU/AUTO~ = DsplyMsg "Connexion en cours.." numerotation manuelle
DsplyPic 300
DsplyMsg "~MSGMANU/AUTO~"
MatchStr 1 59 "No Carrier"
MatchStr 2 4 "CONNECT"
MatchStr 3 54 "NO DIAL TONE"
MatchStr 4 53 "DELAYED"
MatchStr 5 53 "FORBID"
! dans la ligne suivante ^1 est inclus dans ~IMP/MULTF~ en numÈrotation automatique uniquement
Pause 120
Xmit "~IMP/MULTF~\13"

Wait 3600
Jump 54
!
-Label 4
!
DsplyPic 400
Jumpif 14 "~TERM~"="MINI"
DsplyMsg "^1 connectÈ"
MatchStr 1 6 "du service"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 11 "SIAM GO"
MatchStr 4 5 "\27"
DsplyMsg "Page d'accueil TÈlÈtel."
Wait 3600
Jump 57
!
-Label 5
!
DsplyPic 500
DsplyMsg "Appel de ^2..."
MatchStr 3 11 "SIAM GO"
Xmit "\19E"
Xmit "^2\19A"
Wait 3600
Jump 57

!
-Label 6
!
DsplyPic 500
DsplyMsg "Appel de ^2..."
Xmit "\19E"
Xmit "^2\19A"
MatchStr 1 58 "LIB"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 9 "demande"
MatchStr 4 11 "SIAM GO"
Wait 3600
Jump 61
!
-Label 9
!
Pause 120
Xmit "\19E^2\19A"
Wait 600
IncTries
IfTries 5 56
Jump 9
!
-Label 11
!
DsplyPic 600
Pause 120
Exit 0
!

-Label 14
!
DsplyPic 400
IsEmpty 18 ^2
DsplyMsg "^1 connectÈ"
MatchStr 1 15 "du service:"
MatchStr 2 16 "ros d'urgence"
MatchStr 3 61 "NO CARRIER"
MatchStr 4 17 "\279{"
MatchStr 5 16 "3611"
DsplyMsg "Page d'accueil..."
Wait 1200
Exit 1
!
-Label 15
!
MatchStr 1 15 "$$$"
Wait 150
DsplyMsg "Appel de ^2."
Xmit "\19E"
Xmit "^2\19A"
Exit 1

!
-Label 16
!
DsplyPic 500
MatchStr 1 16 "$$$"
Wait 150
Exit 1

!
-Label 17
!
DsplyPic 500
Xmit "\1Cv1\4"
Wait 1200
Exit 1

!
-Label 18
!
Exit 1


-Label 53
Alert 63 "Echec en numÈrotation ! Votre modem m'empÍche de numÈroter (N∞ br˚lÈ). RÈinitialisez-le et recommencez !"
Jump 63
!
-Label 54
Alert 63 "ProblËme de numÈrotation! Essayez en mode impulsions !"
Jump 63
!
-Label 55
Alert 63 "Ce modem n'est pas totalement compatible Hayes !"
Jump 63
!
-Label 56
!
Alert 63 "Pas de synchronisation avec le serveur. Recommencez."
Jump 63
!
-Label 57
!
Alert 63 "ProblËme avec Transpac/TÈlÈtel. Essayez plus tard."
Jump 63
!
-Label 58
!
Alert 63 "Le ^2 est indisponible. Essayez plus tard."
Jump 63
!
-Label 59
!
Alert 63 "Le ^1 est indisponible. Essayez plus tard."
Jump 63
!
-Label 60
!
Alert 63 "Le modem ne rÈpond pas."
exit -1
!
-Label 61
!
Alert 63 "Je n'arrive pas ‡ Ètablir la connexion."
Jump 63
!
-Label 63
!
Pause 90
Xmit "+++"
Pause 90
Xmit "ATH\13"
Pause 120
exit -1
!
-Label 64
!
exit -1