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

Text File | 1999-10-26 | 5.4 KB | 344 lines

!--------------------------------------------------------
!
!     Script General Modem Siam et Minitel
!
!     AdaptÈ pour PC et Kiosque Micro
!
!     (C) Computer Answer Line 1996
!
!--------------------------------------------------------
!
!     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
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 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 900
DsplyPic 300
Wait 4600
Jump 54
!
-Label 4
!
DsplyPic 400
Jumpif 14 "~TERM~"="MINI"
SetTries 0
MatchStr 1 6 "du service"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 11 "SIAM GO"
MatchStr 4 7 "\279{"
MatchStr 5 10 "Ser?"
MatchStr 6 6 "\27 !!0"
DsplyMsg "Page d'accueil..."
Wait 3600
Jump 57
!
-Label 5
!
DsplyPic 600
DsplyMsg "Appel de ^2..."
MatchStr 3 11 "SIAM GO"
Xmit "\19E"
Xmit "^2\19A"
Wait 3600
Jump 57

!
-Label 6
!
DsplyPic 600
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 7
!
Xmit "\01Cv1\04"
Wait 3600
Jump 57

!
-Label 9
!
Pause 120
Xmit "\19E^2\19A"
Wait 600
IncTries
IfTries 5 56
Jump 9
!
-Label 10
! 1∞ version on envoie 2 fois le code (identification et Serv?)
!Xmit "^2\13"
!Wait 3600
!Jump 57

! 2∞ version on envoie ANNULATION avant d'envoyer le code
IfTries 0 30
IncTries
Xmit "\19E"
Jump 12

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

-Label 12
Xmit "^2\13"
Wait 3600
Jump 57


-Label 14
!
Xmit "\01Cv1\04"
DsplyPic 400
IsEmpty 18 ^2
MatchStr 1 15 "du service:"
MatchStr 2 15 "du service"
MatchStr 3 18 "ros d'urgence"
MatchStr 4 11 "NO CARRIER"
MatchStr 5 15 "bli"
MatchStr 6 17 "\279{"
MatchStr 7 15 "3611"
DsplyMsg "Page d'accueil TÈlÈtel."
Wait 3600
Jump 57
!

-Label 15
!
DsplyPic 600
MatchStr 1 15 "$$$"
Wait 150
DsplyMsg "Appel de ^2."
Xmit "\19E"
Xmit "^2\19A"
Exit 1

!
-Label 16
!
DsplyPic 600
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 240
Exit 1

!
-Label 17
!
Xmit "\1Cv1\4"
Wait 3600
Jump 57
!
-Label 18
!
Exit 1
!
-Label 53
Alert 63 "Echec en numÈrotation ! Votre modem m'empÍche de numÈroter (Liste rouge). 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..."
!ShowPrice "Palier de tarification ~XPRICE~"
ShowPrice "Tarif du service ~XPRICE~"
Jump 4
!