! Universelles PPP-Skript fŸr CIS-/UUNet-Einwahlknoten. ©adb/se ! @ANSWER @HANGUP EXIT 0 ! @ORIGINATE CHRDELAY 1 ! NOTE "Knoten weckenÉ" PAUSE 1 WRITE "\13" ! @LABEL 10 NOTE "PrŸfen, ob CompuServe- oder UUNet-KnotenÉ" MATCHCLR MATCHSTR 1 11 "Login:" MATCHSTR 2 17 "Name:" MATCHREAD 500 EXIT -6002 "Unbekannter Einwahlknoten." ! @LABEL 11 PAUSE 1 WRITE "cisv1\13" ! NOTE "Warten auf UUNet-Pa§wortÉ" MATCHCLR MATCHSTR 1 13 "Password:" MATCHREAD 300 EXIT -6002 "Pa§wort-Aufforderung nicht erhalten." ! @LABEL 13 PAUSE 1 WRITE "classic\13" ! NOTE "Warten auf UUNet-HOST-IDÉ" MATCHCLR MATCHSTR 1 15 "ID:" MATCHREAD 300 EXIT -6002 "HOST-Aufforderung nicht erhalten." ! @LABEL 15 PAUSE 1 WRITE "/HOST\13" ! NOTE "Warten auf CIS-HostnameÉ" MATCHCLR MATCHSTR 1 17 "Name:" MATCHREAD 300 EXIT -6002 "Hostname-Aufforderung nicht erhalten." ! @LABEL 17 PAUSE 1 WRITE "CIS\13" ! NOTE "Warten auf CompuServe-Benutzer-IDÉ" MATCHCLR MATCHSTR 1 19 "ID:" MATCHREAD 300 EXIT -6002 "CIS-ID-Aufforderung nicht erhalten." ! @LABEL 19 PAUSE 1 WRITE "^U/NOINT/GO:PPPCONNECT\13" ! NOTE "Warten auf CompuServe-Pa§wortÉ" MATCHCLR MATCHSTR 1 21 "Password:" MATCHREAD 300 EXIT -6002 "CIS-Pa§wort-Aufforderung nicht erhalten." ! @LABEL 21 IFSTR 12 22 "" PAUSE 1 WRITE "^P\13" JUMP 23 ! @LABEL 22 ASK 1 "Geben Sie Ihr CompuServe-Pa§wort ein:" 96 WRITE "^*\13" ! @LABEL 23 NOTE "Warten auf PPP-VerbindungÉ" MATCHCLR MATCHSTR 1 97 "PPP" MATCHREAD 300 ! @LABEL 96 EXIT -6002 "Fehler: PPP-Verbindung nicht mšglich." ! @LABEL 97 PAUSE 5 EXIT 0