/*
   $VER: Autologin-rzstud1.term 1.1 (17.2.94)

   written by Tobias Ferber & Harald Kunze
   based on Autologin.term by Olaf `Olsen' Barthel


     ------------------------------------------
     Bitte waehlen Sie den gewuenschten Dienst:

     1) tn3270  zur IBM 3090     (MVS)
     2) tn3270  zu anderen Rechnern
     3) IBM 3090 via 7171 (OPAC/Kermit Dialog/Filetransfer)
     4) SNI S600/20 (UXP/M)
     5) Studenten-Workstation
     6) Informationssystem des RZ (Zeilenmodus)
     t) Telnet zu anderen Rechnern
     a) Akademische Software Kooperation (ASK)
     i) Informationen zu den Diensten
     q) Quit

     ------------------------------------------

   >>>>
*/

TIMEOUT 5

say 'waiting for menu'
WAIT '>>>>'
IF rc ~= 0 THEN DO
  SEND '\r'
  WAIT '>>>>'
  IF rc ~= 0 THEN EXIT
  END

TIMEOUT 20

say 'selecting "5" for "Studenten-Workstation"'
DELAY 1
SEND '5\r'

say 'waiting for login prompt'

/* 'rzstud1 login:'*/

WAIT 'login:'
IF rc ~= 0 THEN EXIT

/* »»» Term 3.4 (25.7.93) bleibt hier h"angen ! ««« */

DELAY 1
say 'sending username'
SEND '\u\r'

say 'waiting for password prompt'
WAIT 'Password:'
IF rc ~= 0 THEN EXIT

DELAY 1
say 'sending password'
SEND '\p\r'

exit