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

Text File | 1999-10-26 | 4.7 KB | 302 lines

!--------------------------------------------------------
!
!     Script General Modem France Explorer et Minitel
!
!     AdaptÈ pour PC et Kiosque Micro
!
!     (C) France Multimedia 1996-1998
!
!--------------------------------------------------------
!
!     sÈquence de dÈconnexion
!     -----------------------
!


*Pause 90
*Xmit "\19I"
*Pause 30
*Xmit "\19I"
*Pause 180
*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~"

Jumpif 80 "~REROOT~"="80"
Jumpif 90 "~REROOT~"="90"
!
Display 2
! mise en place du fond de la boite de connexion
SetBkPict 30000
DsplyPic 100
DsplyMsg "Teste le Modem..."
!
!Alert 64 "Terminal : ^3 "
!
CanBtn 63
SetTries 0
Transport 9 ~TRANSPORT~
ESet 10 1
ESet 11 5
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
DsplyPic 200
MatchStr 1 3 "OK"
MatchStr 2 3 "ERR"
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
DsplyMsg "~MSGMANU/AUTO~"
MatchStr 1 59 "No Carrier"
MatchStr 2 4 "CONNECT"
MatchStr 3 54 "NO DIAL"
MatchStr 4 53 "DELAYED"
MatchStr 5 53 "FORBID"
MatchStr 6 53 "BLACKLIST"
MatchStr 7 59 "BUSY"
! dans la ligne suivante ^1 est inclus dans ~IMP/MULTF~ en numÈrotation automatique uniquement
Pause 120
Xmit "~IMP/MULTF~\13"
Wait 900
DsplyPic 300
Wait 4600
Jump 54
!
-Label 4
!
DsplyPic 400
Jumpif 14 "~TERM~"="MINI"
SetTries 0
MatchStr 1 6 "Ser?"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 11 "SIAM GO"
DsplyMsg "Page d'accueil..."
Wait 3600
Jump 57

!
-Label 6
!
IsEmpty 11 ^2
IfTries 0 7
IncTries
!
-Label 7
!
Xmit "^2\13"
Wait 3600
Jump 57


!
-Label 11
!
DsplyPic 500
Pause 60
Exit 0
!


-Label 14
!
DsplyPic 400
MatchStr 1 11 "SIAM GO"
MatchStr 2 16 "du service"
MatchStr 3 19 "ros d'urgence"
MatchStr 4 61 "NO CARRIER"
MatchStr 5 17 "\279{"
MatchStr 6 16 "3601"
MatchStr 7 16 "\27 !!0"
MatchStr 8 18 "Ser?"
DsplyMsg "Page d'accueil TÈlÈtel."
Wait 3600
Jump 57
!

!
-Label 16
!
DsplyPic 600
IsEmpty 19 ^2
DsplyMsg "Appel de ^2..."
Xmit "\19E"
Xmit "^2\19A"
!MatchStr 1 58 "LIB"
!MatchStr 2 61 "NO CARRIER"
!MatchStr 3 11 "SIAM GO"
!Wait 240
Exit 1

!
!
-Label 17
!
DsplyPic 600
Xmit "\01Cv1\04"
Jumpif 19 "^2"=""
DsplyMsg "Appel de ^2..."
Wait 3600
Jump 57

-Label 18
!
Xmit "^2\13"
!
-Label 19
!
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

!-Label 80
!Pause 90
!Xmit "\19I"
!Pause 130
!Jump 4



!
!--------------------------------------------------------
!
!     séquence de re-connexion ou rerootage
!

-Label 80
!
Display 2
! mise en place du fond de la boite de connexion
SetBkPict 30000
DsplyPic 100
DsplyMsg "Reconnexion..."
CanBtn 63
Pause 90
Xmit "+++"
Pause 180
Xmit "ATH0\13"
MatchStr 1 2 "OK"
!
-Label 81
!
Wait 200
Xmit "+++"
Wait 200
Xmit "ATH0\13"
Wait 200
IncTries
IfTries 2 60
Jump 81
!
-Label 90
Xmit "\19I\13"
! mise en place du fond de la boite de connexion
Display 2
SetBkPict 30000
DsplyMsg "Reroutage en cours..."
Jumpif 91 "~XPRICE~"=""
!ShowPrice "Palier de tarification ~XPRICE~"
ShowPrice "Tarif du service ~XPRICE~"
Jump 91

!
-Label 91
!
Jump 4
!