home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / mop_data / nac / login.plm next >
Text File  |  1980-01-02  |  2KB  |  85 lines
  1. /***  Nifty Autopilot Commands v1.20  for MOPTERM･v0.97j  ***/
  2.  
  3.  /*****  ↓↓↓ ＬＯＧＩＮコマンド ↓↓↓  *****/
  4.  
  5. %LOGIN  /***  Calling "LOGOUT"  ***/
  6.  {[Telno,Idno,Pswd]
  7.   %Login1
  8.    {
  9.     %Login2
  10.      {
  11.       %Login3
  12.        {
  13.         wait({10},{discon;stop},
  14.              {User-ID Error},{Login2},
  15.              {Password --->},
  16.              {type(Pswd);type({\n});
  17.               wait({20},{LOGOUT},{Password ERROR},{Login3},
  18.                    {ようこそＮＩＦＴＹ－Ｓｅｒｖｅへ},
  19.                   );
  20.              }
  21.             );
  22.        };
  23.       wait({10},{discon;stop},
  24.            {INPUT Error},{Login1},
  25.            {User-ID  --->},{type(Idno);type({\n})}
  26.           );
  27.       Login3;
  28.      };
  29.     wait({10},{discon;stop},{Connection-ID  --->},,);
  30.     type({SVC/99\n});
  31.     Login2;
  32.    };
  33.   %TypeCN
  34.    {
  35.     type({C NIF\n});
  36.     wait({4},{discon;stop},{COM},{Login1},
  37.          {NP},{discon;stop},{DER},{discon;stop},
  38.          {NA},{TypeCN},{DTE},{TypeCN},{OCC},{TypeCN},
  39.          {NC},{TypeCN},{RPE},{TypeCN}
  40.         );
  41.    };
  42.   %Type00
  43.    {
  44.     type({.00+\n});
  45.     wait({4},{discon;stop},{COM},{Login1},
  46.          {41+},{discon;stop},{46+},{discon;stop},
  47.          {ERR INC},{Type00},{00+},{Type00},{21+},{Type00},{22+},{Type00},
  48.          {24+},{Type00},{25+},{Type00},{43+},{Type00},{71+},{Type00}
  49.         );
  50.    };
  51.   dial(Telno);
  52.   wait({4},{type({.00+\n})});
  53.   wait({1},{type({@P\n})});
  54.   wait({10},{Type00},{COM},{Login1},
  55.        {ERR INC},{Type00},{HOST NAME?\n*},{TypeCN}
  56.       );
  57.  };
  58.  
  59.  /*****  ↑↑↑ ＬＯＧＩＮコマンド ↑↑↑  *****/
  60.  
  61.  /*****  ↓↓↓ ＬＯＧＯＵＴコマンド ↓↓↓  *****/
  62.  
  63. %LOGOUT  /***  Not calling  ***/
  64.  {
  65.   %Logout1
  66.    {
  67.     type({OFF\n});
  68.     wait({20},{discon},
  69.          {HOST NAME?\n*},{type({OFF\n});discon},{01+},{discon}
  70.         );
  71.    };
  72.   type({OFF\n});
  73.   wait({20},{Logout1},
  74.        {HOST NAME?\n*},{type({OFF\n});discon},{01+},{discon}
  75.       );
  76.  };
  77.  
  78.  /*****  ↑↑↑ ＬＯＧＯＵＴコマンド ↑↑↑  *****/
  79.  
  80. /***  ＮＡＣ , written by Ｄａｎｔｅ 90.01/10 , public domain  ***/
  81.  
  82. /***  ＮＡＣファイル  ***/
  83.  
  84. LOGIN(TEL1,ID1,PS1);
  85.