home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / mop_data / moppilot / login.plt < prev    next >
Text File  |  1980-01-02  |  7KB  |  208 lines
  1. /************************************************************************
  2. *                                    *
  3. *    Auto login program for NIFTY    copy left (c) Fox labo.        *
  4. *                    ~~~~~~~~~            *
  5. *=======================================================================*
  6. *                                    *
  7. *    Ver./Level=0.0    at 1990 12/15    make by H.Ishihara        *
  8. *                    for crate from FULLAUTO.PLT    *
  9. *                                    *
  10. *=======================================================================*
  11. *                                    *
  12. *    未読メールのダウン部分はサンプル(モップ氏作成チビゴリラ氏/モップ    *
  13. *  氏修正版)を参考にしました。                        *
  14. *                                    *
  15. *************************************************************************/
  16.  
  17.  
  18. /************************************************************************
  19. *
  20. *    ID, PassWord, Dial type, Telephon number 及び会議室の設定
  21. */
  22.             /************************************************/
  23. %ID{********};        /*    ＩＤ番号の設定                */
  24. %PassWord{********};    /*    パス・ワードの設定            */
  25. %Telephone        /*    電話番号と接続種別の設定および呼出し順    *
  26.              *  を設定する。                *
  27.              *==============================================*
  28.              *        接続種別            *
  29.              *----------------------------------------------*
  30.              *  Link0：直通経由(10/17日以降はISDN用の予備)    *
  31.              *  Link1：FENICS ROAD 1 経由            *
  32.              *  Link2：FENICS ROAD 2 経由            *
  33.              ************************************************/
  34.  
  35.   { flyingx({Yes});            /*    フライングに設定        */
  36.                     /*  （ＭＮＰでない場合、削除）    */
  37.     display({\n東京 ROAD 2 (2400/MNP) にダイアル中です。\n\n});
  38.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 1回目    */
  39.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 2回目    */
  40.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 3回目    */
  41.     display({\n東京 ROAD 1 (2400/MNP) にダイアル中です。\n\n});
  42.     dialone({ATDP 3739-9120},Link1,);    /*    東京 ROAD1 2400/MNP 1回目    */
  43.     dialone({ATDP 3739-9120},Link1,);    /*    東京 ROAD1 2400/MNP 2回目    */
  44.     flyingx({No});            /*    フライング禁止に設定    */
  45.                     /*  （ＭＮＰの場合、削除）    */
  46.     display({東京 ROAD 1 (1200) にダイアル中です。\n});
  47.     dialone({ATDP 3739-9241D},Link1,);    /*    東京 ROAD1 1200        */
  48.     display({\n接続出来なかったので１分間休憩します。\n\n})
  49.     wait({60},);
  50.     Telephone;
  51.   };
  52.  
  53. /************************************************************************
  54. *
  55. *    初期設定
  56. */
  57.  
  58. %InitTerm    /*    本体の初期化処理                    */
  59.   { display({\n本体の初期化を開始しました\n});
  60.     nattou({No});    /*    納豆スクロールをＯＦＦに設定する        */
  61.     sendtype({Line});    /*    入力をライン単位に設定する        */
  62.     rscs({Yes});    /*    フロー制御を RS/CS に設定する        */
  63.     baud({9600});    /*    転送速度を 9600 [bps] に設定する        */
  64.     xon({No});        /*    Ｘフロー制御を行わないに設定する        */
  65.     flyline({2});    /*    メモ送信のフライング数を２に設定する    */
  66.     ctrl({Yes});    /*    制御文字を有効とする            */
  67.     esc({Yes});        /*    ANSIエスケープを有効とする        */
  68.     setoak({JZRH});    /*    ＯＡＫの設定（漢字，全角，ローマ字…）    */
  69.   };
  70.  
  71. %InitModem    /*    モデムの初期化処理                */
  72.   { display({\nモデムの初期化を開始しました\n\n});
  73.     type({ATZ\n});
  74.     wait
  75.       ( {5},{Abort({\nモデムが動作して無いよぉ～(;_;))\n})},
  76.         {\nOK},
  77.           { display({\n});
  78.             /************************************************
  79.              *        モデムの初期設定        *
  80.              *==============================================*
  81.              *  X3 ：ビジィ・トーン検出＋CONNECT/xxxx 表示    *
  82.              *  \N3：オート・リアイアブルで接続        *
  83.              *  \V2：接続時の MNP (9999/REL9) 表示        *
  84.              *  \Q2：MNP 時のフロー制御を RS/CS とする    *
  85.              *  %C0：MNP 時の圧縮を使用しない        *
  86.              *  &E0：モデム・ポートのスピードを表示        *
  87.              *  \J0：端末固定モードに設定する        *
  88.              ************************************************/
  89.             wait({1},{type({ATX3\\N3\\V2\\Q2%C0&E0\\J0\n})});
  90.           }
  91.       );
  92.     wait
  93.       ( {10},{Abort({\nモデムからの応答が無いよぉ～(;_;)\n})},
  94.         {OK},{wait({1},)},
  95.         {ERROR},{Abort({\nコマンドに誤りがあるよぉ～(;_;)\n})}
  96.       );
  97.   };
  98.  
  99. /************************************************************************
  100. *
  101. *    共通処理
  102. */
  103.  
  104. %WaitChar
  105.   { [Waitchr,WaitcmdC]
  106.     wait
  107.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  108.         Waitchr,WaitcmdC
  109.       )
  110.   };
  111.  
  112. /************************************************************************
  113. *
  114. *    終了処理
  115. */
  116.  
  117. %Abort        /*    異常を検出した場合の処理                */
  118.   { [CommentA]
  119.     display(CommentA);
  120.     display({\n正常に処理できなかったので終了します。(;_;)\n});
  121.     discon;
  122.     stop;
  123.   };
  124.  
  125. %ModemOff
  126.   { wait({2},{type({+++})});
  127.     wait
  128.       ( {10},{Abort({\nコマンド・モードに切り替わらないよぉ～(;_;)\n})},
  129.         {OK},{wait({2},{type({ATH0\n})})}
  130.       );
  131.   };
  132.  
  133. %AbortOff    /*    異常切断処理            */
  134.   { [CommentB]
  135.     display(CommentB);
  136.     display({\nうんがぁ～、モデムを直接切断します。(^_^;)\n});
  137.     ModemOff;
  138.     wait
  139.       ( {10},{Abort({\nありゃ?_?、モデムからの応答が無いよぉ～(^_^;)\n})},
  140.         {OK},{display({\nモデムを直接切断しました(^_^;)\n})},
  141.       );
  142.     discon;
  143.     stop;
  144.   };
  145.  
  146. /************************************************************************
  147. *
  148. *    接続処理
  149. */
  150.  
  151. %Connect
  152.   { type({SVC\n});
  153.     wait
  154.       ( {60},{AbortOff({\nホストの反応が可笑しいよぉ～(;_;)\n})},
  155.         {User-ID  --->},{type(ID)},
  156.         {\n INPUT Error},{AbortOff({\nあれぇ?_?『SVC』受け付けてくれない\n})}
  157.       );
  158.     type({\n});
  159.     wait
  160.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  161.         {Password --->},{type(PassWord)},
  162.         {\n User-ID Error},{AbortOff({\nＩＤ間違ってない？(^_^;)\n})}
  163.       );
  164.     type({\n});
  165.     wait
  166.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  167.         {\n Password ERROR},{AbortOff({\nパス・ワードが可笑しいよぉ(^_^;)\n})},
  168.         {\n＞}
  169.       );
  170.     display({\n自動接続を完了しました。\n});
  171.     stop;
  172.   };
  173.  
  174. %Link0
  175.   { wait
  176.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  177.         {Connection-ID  --->},{Connect},
  178.         {\n*},
  179.           { type({C NIF\n});
  180.             Link0;
  181.           },
  182.         {\n46+},{Link1},
  183.         {\n00+},{Link1},
  184.         {NO CARRIER},{wait({1},)}
  185.       );
  186.   };
  187.  
  188. %Link1
  189.   { wait({3},{type({.00+})});
  190.     Link0;
  191.   };
  192.  
  193. %Link2
  194.   { wait({3},{type({@P\n})});
  195.     Link0;
  196.   };
  197.  
  198. /************************************************************************
  199. *
  200. *    主処理
  201. */
  202. display({\nＮＩＦＴＹ－Ｓｅｒｖｅへの接続を開始しました。\n});
  203. wait({1},);    /*    イニシャライズ待機                */
  204. InitTerm;    /*    端末の初期処理                    */
  205. wait({1},);    /*    イニシャライズ待機                */
  206. InitModem;    /*    モデムの初期化処理                */
  207. Telephone;    /*    接続処理                        */
  208.