home *** CD-ROM | disk | FTP | other *** search
/ Mac Expert 1995 Winter / Mac Expert - Winter 95.iso / Les fichiers / Communications / Divers / Minitel⁄Mac 1.20a ƒ / logon.mt < prev    next >
Encoding:
Text File  |  1993-03-11  |  793 b   |  23 lines  |  [TEXT/EDIT]
  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 '^Q'          { wait for cursor on command }
  15.                         type service SEND
  16.                     failure
  17.                         message 'Service prompt not received'
  18.                 endwait
  19.             endif
  20.         endif
  21.     endif
  22.     end
  23.