/** $VER: Maus_Gast.term 1.0 (11.3.93)
 **
 ** Fuehrt einen Auto-Login in eine beliebige Maus durch.
 **
 ** Geschrieben von Olaf Thyssen
 **       Internet: Olaf_Thyssen%kr.maus.de
 **
 ** Um dieses Programm zu verwenden, sollte man das
 ** Telefonbuch oeffnen, den Telefonbucheintrag anwaehlen,
 ** der dieses Programm benutzen soll, den Einstellungen
 ** `Commands...' oeffnen und unter `Startup-/Login macro'
 ** eintippen:
 **
 **    \a Maus_Gast
 **
 ** Nun bitte die `User/Password...' Einstellungen aendern,
 ** sodass der zu verwendende Benutzername und das Benutzer-
 ** kennwort korrekt eingetragen sind.
 **
 ** Jetzt die Telefonbuchdatei abspeichern und diese Datei
 ** in die Schublade "REXX:" kopieren.
 **/

        /* Die Wartezeit auf 50 Sekunden setzen. */
TIMEOUT 50


        /* Auf die Frage nach dem Benutzernamen warten. */
WAIT 'Sind Sie eingetragener Benutzer'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Frage mit NEIN beantworten */
SEND 'N'


WAIT 'Wollen Sie sich jetzt als Benutzer eintragen'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Frage mit NEIN beantworten */
SEND 'N'


        /* der Info-Text wird zum 1. mal angehalten */
        /* Auf die Aufforderung die Leertaste zu druecken warten. */
WAIT 'Weiter mit Leertaste'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Den ASCII Wert 32 (SPACE) abschicken */
SEND byte 32


        /* der Info-Text wird zum 2. mal angehalten */
        /* Auf die Aufforderung die Leertaste zu druecken warten. */
WAIT 'Weiter mit Leertaste'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Den ASCII Wert 32 (SPACE) abschicken */
SEND byte 32


        /* der Info-Text wird zum 3. mal angehalten */
        /* Auf die Aufforderung die Leertaste zu druecken warten. */
WAIT 'Weiter mit Leertaste'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Den ASCII Wert 32 (SPACE) abschicken */
SEND byte 32