home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / mop_data / suterus / atlgin2.plt < prev   
Text File  |  1980-01-02  |  3KB  |  71 lines
  1. /***********************************************************************
  2. *
  3. *              <<<     ＡＴＬＧＩＮ２．ＰＬＴ     >>>  
  4. *
  5. *
  6. *     Nifty ServeにＦＥＮＩＣＳ　ＲＯＡＤ２経由で接続する処理です｡ 
  7. *
  8. *      この場を借りて素晴らしいＭＯＰＴＥＲＭをお作りになった
  9. *      モップさんに感謝します。
  10. *                                                    ステルス (GCA00213)
  11. *
  12. ***********************************************************************/
  13.  
  14. /***********************************************************************
  15. *
  16. *        各入力項目の設定処理  
  17. *
  18. ***********************************************************************/
  19.  
  20.  
  21. %TELNO  {ATD########};          /* 最寄りのアクセスポイントの電話番号*/ 
  22.                                 /* ダイヤル回線は   ATDP XXXXXXXX    */  
  23.                                 /* プッシュ回線は   ATDT XXXXXXXX    */
  24.  
  25. %ID     {########};             /* ユーザＩＤを設定してください。    */ 
  26.  
  27. %PASSWORD {########};           /* パスワードを設定してください。    */ 
  28.  
  29. /***********************************************************************
  30. *
  31. *              FENICS_ROAD2経由の接続で@Pを入力する処理  
  32. *
  33. ***********************************************************************/
  34.  
  35. %type00 {
  36.     wait({4});                 /* 4秒待つ｡ホスト側のMNPの判別のため */
  37.     type({@P\n});              /* @Pを入力                          */
  38.     wait({20},    type00,      /* 20秒待って，なにもこないなら，@P  */
  39.              {HOST NAME?},     /* HOST NAME?なら 終わり             */
  40.         );
  41. };
  42. /**********************************************************************
  43. *
  44. *               HOST NAME?の後にC NIFと入力する処理
  45. *
  46. ***********************************************************************/
  47.  
  48. %type11 {
  49.     type({C NIF\n});           /* C NIFを入力                       */
  50.     wait({20},    type11,      /* 20秒待って，なにもこないなら，再度*/
  51.              {Enter Connection-ID  --->},  /* Enter C.. なら 終わり */
  52.         );
  53. };
  54.  
  55. /***********************************************************************
  56. *
  57. *         メイン処理(電話を掛け,各処理を呼び出す)       
  58. *
  59. ***********************************************************************/
  60.  
  61. dial(TELNO);       /* 電話回線で, アクセスポイントに電話を掛ける。 */
  62. type00;            /* FENICS-ROAD2に対して,Niftyへの接続を依頼する */
  63. type11;
  64. type({SVC\n});
  65. wait({20},{stop},{Enter User-ID  --->},);
  66. type(ID);          /* 設定したユーザIDを入力する             */
  67. type({\n});
  68. wait({20},{stop},{Enter Password --->},);
  69. type(PASSWORD);    /* 設定したパスワードを入力する           */
  70. type({\n});
  71.