home *** CD-ROM | disk | FTP | other *** search
/ Telecom / 1996-04-telecom-walnutcreek.iso / minitel / logon.mt < prev    next >
Text File  |  1989-02-27  |  779b  |  23 lines
  1.     { logon.mt - script program to dial INFONET then logon to the network }
  2.  
  3.     dial            { dial INFONET - uses config modem type & number }
  4.     pause 20        { let modem and network get ready }
  5.     dopf 4          { invoke netlogon.mto }
  6.  
  7.     { see if a particular SERVICE was requested }
  8.     if service then
  9.         { can't request a service unless the userid and password were sent }
  10.         if password then
  11.             if userid then
  12.                 { wait for service prompt }
  13.                 wait 600
  14.                     case '^_TO^Q'
  15.                         type service SEND
  16.                     failure
  17.                         message 'Service prompt not received'
  18.                 endwait
  19.             endif
  20.         endif
  21.     endif
  22.     end
  23.