PC PowerPlay 61/CDPowerplay61Disc2.iso/OUTLINE/GAUDIO.SC_/GAUDIO.SC

Text File | 1994-03-11 | 3.3 KB | 214 lines

!--------------------------------------------------------
!
!     Script Modem Standard pour SIAM
!     Version Audiotel ou AccΦs directe
!     (C) Computer Answer Line 1994
!
!     version : 2.2
!
!--------------------------------------------------------
!
!     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 1
ShowPrice "Tarif: 8,76 F TTC α la connexion, puis 2,19 F TTC / Min"
DsplyMsg "Teste le Modem..."
CanBtn 63
SetTries 0
Transport 9 ~TRANSPORT~
MatchStr 1 2 "OK"
!
-Label 1
!
Xmit "~RESETSEQ~\13"
Wait 200
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"
DsplyMsg "Initialisation du Modem..."
Xmit "~INITSEQ~\13"
Wait 500
Jump 60
!
-Label 3
DsplyMsg "NumΘrotation en cours."
MatchStr 1 59 "No Carrier"
MatchStr 2 4 "Connect"
MatchStr 3 54 "NO DIALTONE"
MatchStr 4 53 "DELAYED"
MatchStr 5 53 "FORBID"
MatchStr 6 52 "BUSY"
MatchStr 7 20 "CARRIER"
MatchStr 8 12 "PROTOCOL"
Xmit "~IMP/MULTF~\13"
User 1 ""
User 3 ""
Wait 4000
Jump 54
!
-Label 4
!
MatchStr 1 31 "PASS:"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 11 "SIAM GO"
MatchStr 4 57 "LIB"
MatchStr 5 32 "kermit"
MatchStr 6 33 "ESCAPE="
MatchStr 7 11 "MWS GO"
Wait 3600
Jump 57
!
-Label 5
DsplyMsg "^1 - ^3"
Wait 3600
Jump 57
!
-Label 11
!
Exit 0
!
-Label 12
MatchStr 9 13 "NONE"
MatchStr 10 14 "LAPM"
MatchStr 11 15 "ALT"
MatchStr 12 14 "LAP-M"
Wait 500
Jump 5
!
-Label 13
User 1 "Compression : aucune"
Jump 5
!
-Label 14
User 1 "Compression : LAP-M"
Jump 5
!
-Label 15
User 1 "Compression : MNP"
Jump 5
!
-Label 20
MatchStr 9 21 "1200"
MatchStr 10 22 "2400"
MatchStr 11 23 "9600"
MatchStr 12 24 "14400"
Wait 500
Jump 5
!
-Label 21
User 3 "Connexion : 1200 bds"
Jump 5
!
-Label 22
User 3 "Connexion : 2400 bds"
Jump 5
!
-Label 23
User 3 "Connexion : 9600 bds"
Jump 5
!
-Label 24
User 3 "Connexion : 14400 bds"
Jump 5
!
-Label 31
Xmit "^2\13"
MatchStr 1 11 "SIAM GO"
MatchStr 2 61 "NO CARRIER"
MatchStr 3 57 "LIB"
MatchStr 4 32 "kermit"
MatchStr 5 33 "ESCAPE="
MatchStr 6 11 "MWS GO"
Wait 400
Jump 57
!
-Label 32
Xmit "c\13"
Wait 400
Jump 57
!
-Label 33
Xmit "\01l"
Wait 400
Jump 57
!
-Label 52
Alert 63 "Toutes les lignes sont occupΘes! Essayez plus tard!"
Jump 63
!
-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! (N'oubliez pas le 0 si vous passez par un standard!)"
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 l'accΦs. Essayez plus tard."
Jump 63
!
-Label 59
!
Alert 63 "Le ^1 est indisponible. Essayez plus tard."
exit -1
!
-Label 60
!
Alert 63 "Le modem ne rΘpond pas."
exit -1
!
-Label 61
!
Alert 63 "Je n'arrive pas α Θtablir la connexion."
exit -1
!
-Label 63
!
Pause 90
Xmit "+++"
Pause 180
Xmit "ATH\13"
exit -1
!
-Label 64
!
exit -1