/** $VER: Maus_User.term 1.0 (12.3.93)
 **
 ** Fuehrt einen Auto-Login in die 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_User
 **
 ** 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
SEND 'J'


WAIT 'Ihr Name'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Den Benutzernamen abschicken, einen Zeilenruecklauf
         * hinzugeben.
         */
SEND '\u\r'


        /* Auf die Frage nach dem Benutzerkennwort warten. */
WAIT 'Ihr Password'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Eine Sekunde warten... */
DELAY 1
        /* Das Benutzerkennwort abschicken, einen Zeilenruecklauf
         * hinzugeben.
         */
SEND '\p\r'


        /* Auf die Aufforderung die Leertaste zu druecken warten. */
TIMEOUT 20
WAIT '- Weiter mit Leertaste -'
        /* Ist der Text angekommen? Wenn nicht, sofort abbrechen. */
IF rc ~= 0 THEN EXIT
        /* Den ASCII Wert 32 (SPACE) abschicken */
SEND byte 32