home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / mop_data / moppilot / fullauto.plt < prev    next >
Text File  |  1980-01-02  |  15KB  |  494 lines
  1. /************************************************************************
  2. *                                    *
  3. *    Auto login program for NIFTY    copy left (c) Fox labo.        *
  4. *                    ~~~~~~~~~            *
  5. *=======================================================================*
  6. *                                    *
  7. *    Ver./Level=0.0    at 1990 ９/23    make by H.Ishihara        *
  8. *                    for crate            *
  9. *    Ver./Level=0.1    at 1990 ９/25    update by H.Ishihara        *
  10. *                    for bug fix            *
  11. *    Ver./Level=0.2    at 1990 10/13    update by H.Ishihara        *
  12. *                    for direct is delet        *
  13. *    Ver./Level=1.0    at 1990 10/15    update by H.Ishihara        *
  14. *                    for program level up (0.96c)    *
  15. *    Ver./Level=1.1    at 1990 10/18    update by H.Ishihara        *
  16. *                    for mail and forum down routine    *
  17. *    Ver./Level=1.2    at 1990 10/26    update by H.Ishihara        *
  18. *                    for speed up            *
  19. *    Ver./Level=1.3    at 1990 10/27    update by H.Ishihara        *
  20. *                    for delete mail            *
  21. *    Ver./Level=1.5    at 1990 11/７    update by H.Ishihara        *
  22. *                    for program level up (0.96h)    *
  23. *    Ver./Level=1.6    at 1990 12/11    update by H.Ishihara        *
  24. *                    for bug fix and level up    *
  25. *    Ver./Level=1.7    at 1991 01/12    update by H.Ishihara        *
  26. *                    for bug fix            *
  27. *                                    *
  28. *=======================================================================*
  29. *                                    *
  30. *    未読メールのダウン部分はサンプル(モップ氏作成チビゴリラ氏/モップ    *
  31. *  氏修正版)を参考にしました。                        *
  32. *                                    *
  33. *************************************************************************/
  34.  
  35.  
  36. /************************************************************************
  37. *
  38. *    ID, PassWord, Dial type, Telephon number 及び会議室の設定
  39. */
  40.             /************************************************/
  41. %ID{********};        /*    ＩＤ番号の設定                */
  42. %PassWord{********};    /*    パス・ワードの設定            */
  43. %Telephone        /*    電話番号と接続種別の設定および呼出し順    *
  44.              *  を設定する。                *
  45.              *==============================================*
  46.              *        接続種別            *
  47.              *----------------------------------------------*
  48.              *  Link0：直通経由(10/17日以降はISDN用の予備)    *
  49.              *  Link1：FENICS ROAD 1 経由            *
  50.              *  Link2：FENICS ROAD 2 経由            *
  51.              ************************************************/
  52.  
  53.   { flyingx({Yes});            /*    フライングに設定        */
  54.                     /*  （ＭＮＰでない場合、削除）    */
  55.     display({\n東京 ROAD 2 (2400/MNP) にダイアル中です。\n\n});
  56.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 1回目    */
  57.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 2回目    */
  58.     dialone({ATDP 5703-0222},Link2,);    /*    東京 ROAD2 2400/MNP 3回目    */
  59.     display({\n東京 ROAD 1 (2400/MNP) にダイアル中です。\n\n});
  60.     dialone({ATDP 3739-9120},Link1,);    /*    東京 ROAD1 2400/MNP 1回目    */
  61.     dialone({ATDP 3739-9120},Link1,);    /*    東京 ROAD1 2400/MNP 2回目    */
  62.     flyingx({No});            /*    フライング禁止に設定    */
  63.                     /*  （ＭＮＰの場合、削除）    */
  64.     display({東京 ROAD 1 (1200) にダイアル中です。\n});
  65.     dialone({ATDP 3739-9241D},Link1,);    /*    東京 ROAD1 1200        */
  66.     display({\n接続出来なかったので１分間休憩します。\n\n})
  67.     wait({60},);
  68.     Telephone;
  69.   };
  70.  
  71. %DownForum    /*    ダウンする各フォーラム等の設定            */
  72.   { DownF1({FMODEM});    /*    ＦＭＯＤＥＭ                */
  73.     DownF1({FDEVICE});    /*    ＦＤＥＶＩＣＥ                */
  74.     DownF1({FFM1});    /*    ＦＦＭ１                    */
  75.     DownF1({FFM2});    /*    ＦＦＭ２                    */
  76.     DownF1({FFM3});    /*    ＦＦＭ３                    */
  77.   };
  78.  
  79. /************************************************************************
  80. *
  81. *    初期設定
  82. */
  83.  
  84. %InitTerm    /*    本体の初期化処理                    */
  85.   { display({\n本体の初期化を開始しました\n});
  86.     nattou({No});    /*    納豆スクロールをＯＦＦに設定する        */
  87.     sendtype({Line});    /*    入力をライン単位に設定する        */
  88.     rscs({Yes});    /*    フロー制御を RS/CS に設定する        */
  89.     baud({9600});    /*    転送速度を 9600 [bps] に設定する        */
  90.     xon({No});        /*    Ｘフロー制御を行わないに設定する        */
  91.     flyline({2});    /*    メモ送信のフライング数を２に設定する    */
  92.     ctrl({Yes});    /*    制御文字を有効とする            */
  93.     esc({Yes});        /*    ANSIエスケープを有効とする        */
  94.     setoak({JZRH});    /*    ＯＡＫの設定（漢字，全角，ローマ字…）    */
  95.   };
  96.  
  97. %InitModem    /*    モデムの初期化処理                */
  98.   { display({\nモデムの初期化を開始しました\n\n});
  99.     type({ATZ\n});
  100.     wait
  101.       ( {5},{Abort({\nモデムが動作して無いよぉ～(;_;))\n})},
  102.         {\nOK},
  103.           { display({\n});
  104.             /************************************************
  105.              *        モデムの初期設定        *
  106.              *==============================================*
  107.              *  X3 ：ビジィ・トーン検出＋CONNECT/xxxx 表示    *
  108.              *  \N3：オート・リアイアブルで接続        *
  109.              *  \V2：接続時の MNP (9999/REL9) 表示        *
  110.              *  \Q2：MNP 時のフロー制御を RS/CS とする    *
  111.              *  %C0：MNP 時の圧縮を使用しない        *
  112.              *  &E0：モデム・ポートのスピードを表示        *
  113.              *  \J0：端末固定モードに設定する        *
  114.              ************************************************/
  115.             wait({1},{type({ATX3\\N3\\V2\\Q2%C0&E0\\J0\n})});
  116.           }
  117.       );
  118.     wait
  119.       ( {10},{Abort({\nモデムからの応答が無いよぉ～(;_;)\n})},
  120.         {OK},{wait({1},)},
  121.         {ERROR},{Abort({\nコマンドに誤りがあるよぉ～(;_;)\n})}
  122.       );
  123.   };
  124.  
  125. /************************************************************************
  126. *
  127. *    共通処理
  128. */
  129.  
  130. %WaitChar
  131.   { [Waitchr,WaitcmdC]
  132.     wait
  133.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  134.         Waitchr,WaitcmdC
  135.       )
  136.   };
  137.  
  138. /************************************************************************
  139. *
  140. *    終了処理
  141. */
  142.  
  143. %Abort        /*    異常を検出した場合の処理                */
  144.   { [CommentA]
  145.     display(CommentA);
  146.     display({\n正常に処理できなかったので終了します。(;_;)\n});
  147.     discon;
  148.     stop;
  149.   };
  150.  
  151. %ModemOff
  152.   { wait({2},{type({+++})});
  153.     wait
  154.       ( {10},{Abort({\nコマンド・モードに切り替わらないよぉ～(;_;)\n})},
  155.         {OK},{wait({2},{type({ATH0\n})})}
  156.       );
  157.   };
  158.  
  159. %AbortOff    /*    異常切断処理            */
  160.   { [CommentB]
  161.     display(CommentB);
  162.     display({\nうんがぁ～、モデムを直接切断します。(^_^;)\n});
  163.     ModemOff;
  164.     wait
  165.       ( {10},{Abort({\nありゃ?_?、モデムからの応答が無いよぉ～(^_^;)\n})},
  166.         {OK},{display({\nモデムを直接切断しました(^_^;)\n})},
  167.       );
  168.     discon;
  169.     stop;
  170.   };
  171.  
  172. %LogOff
  173.   { display({\n切断処理を開始しました。\n\n});
  174.     type({BYE\n});
  175.     wait        /*    切断処理                    */
  176.       ( {60},{AbortOff({\nありゃ、ホストが受け付けてくれないよぉ～(;_;)\n})},
  177.         {\n01+},{ModemOff},
  178.         {\n*},{type({OFF\n})}
  179.       );
  180.     wait        /*    切断終了表示処理                */
  181.       ( {10},{AbortOff({\nありゃ、回線が切れないよぉ～(;_;)\n})},
  182.         {NO CARRIER},{display({\n\nFENICS-ROAD2 の切断処理完了\n})},
  183.         {OK},{display({\n\nFENICS-ROAD1 の切断処理完了\n})}
  184.       );
  185.     discon;
  186.   };
  187.  
  188. /************************************************************************
  189. *
  190. *    未読メールのダウンと読み込み済メールの削除
  191. */
  192.  
  193. %DownM2        /*    １通のメール受信処理                */
  194.   { [MailNo]
  195.     WaitChar({\n＞},{type(MailNo)});
  196.     received(ID);
  197.     wait
  198.       ( {500},{AbortOff({\nホストの送信が遅いよぉ～(;_;)\n})},
  199.         {\n受信後 (1:削除  2:保存},{WaitChar({\n：},{type({2\n})})},
  200.         {はバイナリーのため、表示出来ません},
  201.           { display({\n処理が続行できませんので終了します｡\n});
  202.             LogOff;
  203.             stoprec;
  204.             stop;
  205.           },
  206.       );
  207.     stoprec;
  208.     WaitChar({\n＞},{DownM1});
  209.   };
  210.  
  211. %DownM1        /*    未読の検出と実行                    */
  212.   { type({1\n});
  213.     wait
  214.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  215.         {\n  1 },{DownM2({1\n})},
  216.         {\n  2 },{DownM2({2\n})},
  217.         {\n  3 },{DownM2({3\n})},
  218.         {\n  4 },{DownM2({4\n})},
  219.         {\n  5 },{DownM2({5\n})},
  220.         {\n  6 },{DownM2({6\n})},
  221.         {\n  7 },{DownM2({7\n})},
  222.         {\n  8 },{DownM2({8\n})},
  223.         {\n  9 },{DownM2({9\n})},
  224.         {\n 10 },{DownM2({10\n})},
  225.         {\n 11 },{DownM2({11\n})},
  226.         {\n 12 },{DownM2({12\n})},
  227.         {\n 13 },{DownM2({13\n})},
  228.         {\n 14 },{DownM2({14\n})},
  229.         {\n 15 },{DownM2({15\n})},
  230.         {\n 16 },{DownM2({16\n})},
  231.         {\n＞},
  232.       );
  233.   };
  234.  
  235. %DltM2        /*    読み込み済電文の削除処理                */
  236.   { [DltN2]
  237.     WaitChar({\n＞},{type(DltN2)});
  238.     WaitChar({\n：},{type({1\n})});
  239.     WaitChar({\n＞},{DltM1});
  240.   };
  241.  
  242. %DltM1        /*    未読の検出と実行                    */
  243.   { type({0\n});
  244.     WaitChar({\n＞},{type({6\n})});
  245.     wait
  246.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  247.         {\n*13  },{DltM2({13\n})},
  248.         {\n*14  },{DltM2({14\n})},
  249.         {\n*15  },{DltM2({15\n})},
  250.         {\n*16  },{DltM2({16\n})},
  251.         {\n*17  },{DltM2({17\n})},
  252.         {\n*18  },{DltM2({18\n})},
  253.         {\n*19  },{DltM2({19\n})},
  254.         {\n*20  },{DltM2({20\n})},
  255.         {\n＞},
  256.       );
  257.   };
  258.  
  259. %DownMail    /*    メール処理の主処理                */
  260.   { type({MAIL\n});
  261.     WaitChar({\n＞},{type({SET PAGE OFF\n})});
  262.     WaitChar
  263.       ( {\n＞},
  264.           { display({\n読み込み済メールの削除開始\n＞});
  265.             DltM1;
  266.             type({E\n});
  267.           }
  268.       );
  269.     WaitChar
  270.       ( {\n＞},
  271.           { display({\n読み込み済メールの削除終了\n});
  272.             display({\n未読メールの受信開始\n＞});
  273.             DownM1;
  274.             type({E\n});
  275.           }
  276.       );
  277.     WaitChar
  278.       ( {\n＞},
  279.           { display({\n未読メールの受信終了\n＞});
  280.             type({SET PAGE ON\n});
  281.           }
  282.       );
  283.     WaitChar({\n＞},{wait({1},)});
  284.   };
  285.  
  286. /************************************************************************
  287. *
  288. *    未読会議室のダウン
  289. */
  290.  
  291. %WaitMesC
  292.   { [WaitMe]
  293.     wait
  294.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  295.         {CCS(N)>},WaitMe,
  296.         {電子会議},{WaitChar({\n＞},WaitMe)}
  297.       );
  298.   };
  299.  
  300. %DownF7
  301.   { wait
  302.       ( {600},DownF7,
  303.         {\n－ダウンロード終了－},
  304.       );
  305.   };
  306.  
  307. %DownF6        /*    記録の開始，ダウンおよび終了処理            */
  308.   { [ForumN6]
  309.     wait
  310.       ( {120},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  311.         {＊},{DownF6(ForumN6)},
  312.         {\n：},{type({1\n})}
  313.       );
  314.     WaitChar({開始－},{wait({1},)});
  315.     received(ForumN6);
  316.     DownF7;
  317.     stoprec;
  318.   };
  319.  
  320. %DownF5
  321.   { [ForumN5]
  322.     type({DOWN NEW PROT:NON\n});
  323.     wait
  324.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  325.         {\n只今作業中です},{DownF6(ForumN5)},
  326.         {◆現在未読の発言},
  327.       );
  328.     WaitMesC({type({\n})});
  329.     wait
  330.       ( {30},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  331.         {\n－これ以上の発言},{WaitMesC({wait({1},)})},
  332.         {\n電子会議},{WaitChar({\n＞},{DownF5(ForumN5)})},
  333.         {\nCCS(N)>},{DownF5(ForumN5)}
  334.       );
  335.   };
  336.  
  337. %DownF4    /*    ダウンの実行                */
  338.   { [ForumN4,DownN4]
  339.     wait
  340.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  341.         {\n＞},
  342.           { display({フォーラム（});
  343.             display(ForumN4);
  344.             display({）のダウン開始\n＞});
  345.             type(DownN4);
  346.             WaitMesC({DownF5(ForumN4)});
  347.             display({フォーラム（});
  348.             display(ForumN4);
  349.             display({）のダウン終了\n＞});
  350.           },
  351.         {\n現在、サービス},
  352.           { WaitChar({\n＞},{})
  353.           }
  354.       )
  355.   };
  356.  
  357. %DownF3    /*    ダウンの準備と実行                */
  358.   { [ForumN3]
  359.     type({SEND OFF\n});    /*    ＳＥＮＤを受け付けなくするコマンドを送信    */
  360.     wait
  361.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  362.         {\nFORUM>},{type({SET PAGE OFF\n})},
  363.         {\n＞},{type({SET PAGE OFF\n})}
  364.       );
  365.     wait
  366.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  367.         {\nFORUM>},{type({MES\n})},
  368.         {\n＞},{type({MES\n})},
  369.       );
  370.     wait
  371.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  372.         {\n 1     },{DownF4(ForumN3,{1\n})},
  373.         {\n 2     },{DownF4(ForumN3,{2\n})},
  374.         {\n 3     },{DownF4(ForumN3,{3\n})},
  375.         {\n 4     },{DownF4(ForumN3,{4\n})},
  376.         {\n 5     },{DownF4(ForumN3,{5\n})},
  377.         {\n 6     },{DownF4(ForumN3,{6\n})},
  378.         {\n 7     },{DownF4(ForumN3,{7\n})},
  379.         {\n 8     },{DownF4(ForumN3,{8\n})},
  380.         {\n 9     },{DownF4(ForumN3,{9\n})},
  381.         {\n10     },{DownF4(ForumN3,{10\n})},
  382.         {\n11     },{DownF4(ForumN3,{11\n})},
  383.         {\n12     },{DownF4(ForumN3,{12\n})},
  384.         {\n13     },{DownF4(ForumN3,{13\n})},
  385.         {\n14     },{DownF4(ForumN3,{14\n})},
  386.         {\n15     },{DownF4(ForumN3,{15\n})},
  387.         {\n16     },{DownF4(ForumN3,{16\n})},
  388.         {\n17     },{DownF4(ForumN3,{17\n})},
  389.         {\n18     },{DownF4(ForumN3,{18\n})},
  390.         {\n19     },{DownF4(ForumN3,{19\n})},
  391.         {\n20     },{DownF4(ForumN3,{20\n})}
  392.       );
  393.     type({SEND ON\n});    /*    ＳＥＮＤを許可する（ダウン中は禁止状態）    */
  394.     WaitMesC({wait({1},)});
  395.   };
  396.  
  397. %DownF2        /*    フォーラム移動とダウン処理            */
  398.   { [ForumN2]
  399.     type({\n});        /*    実行送信                    */
  400.     wait        /*    目的フォーラムへの移動確認        */
  401.       ( {60},               {AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  402.         {\nmore>},          {DownF2(ForumN2)},
  403.         {\nFORUM>},         {DownF3(ForumN2)},
  404.         {\n＞},             {DownF3(ForumN2)},
  405.         {\n1:フォーラム},   {WaitChar({\n＞},{})},
  406.         {\n◆番号又は},     {WaitChar({\n＞},{})},
  407.         {\n現在、サービス}, {WaitChar({\n＞},{})}
  408.       );
  409.   };
  410.  
  411. %DownF1        /*    フォーラム移動とダウン処理            */
  412.   { [ForumN1]
  413.     type({GO });    /*    フォーラムへの移動コマンド送信        */
  414.     type(ForumN1);    /*    目的フォーラム名の送信            */
  415.     DownF2(ForumN1);
  416.   };
  417.  
  418. /************************************************************************
  419. *
  420. *    接続処理
  421. */
  422.  
  423. %Connect
  424.   { type({SVC\n});
  425.     wait
  426.       ( {60},{AbortOff({\nホストの反応が可笑しいよぉ～(;_;)\n})},
  427.         {User-ID  --->},{type(ID)},
  428.         {\n INPUT Error},{AbortOff({\nあれぇ?_?『SVC』受け付けてくれない\n})}
  429.       );
  430.     type({\n});
  431.     wait
  432.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  433.         {Password --->},{type(PassWord)},
  434.         {\n User-ID Error},{AbortOff({\nＩＤ間違ってない？(^_^;)\n})}
  435.       );
  436.     type({\n});
  437.     wait
  438.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  439.         {未読分},
  440.           { wait
  441.               ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  442.                 {\n＞},);
  443.             command({cd NIFTY});
  444.             display({＞});
  445.             DownMail;
  446.           },
  447.         {\n＞},
  448.           { command({cd NIFTY});
  449.             display({＞});
  450.           },
  451.         {\n Password ERROR},{AbortOff({\nパス・ワードが可笑しいよぉ(^_^;)\n})}
  452.       );
  453.     DownForum;
  454.     command({cd ..});
  455.     LogOff;
  456.     display({\n自動運転を完了しました。\n});
  457.     stop;
  458.   };
  459.  
  460. %Link0
  461.   { wait
  462.       ( {60},{AbortOff({\nホストの反応が鈍いよぉ～(;_;)\n})},
  463.         {Connection-ID  --->},{Connect},
  464.         {\n*},
  465.           { type({C NIF\n});
  466.             Link0;
  467.           },
  468.         {\n46+},{Link1},
  469.         {\n00+},{Link1},
  470.         {NO CARRIER},{wait({1},)}
  471.       );
  472.   };
  473.  
  474. %Link1
  475.   { wait({3},{type({.00+})});
  476.     Link0;
  477.   };
  478.  
  479. %Link2
  480.   { wait({3},{type({@P\n})});
  481.     Link0;
  482.   };
  483.  
  484. /************************************************************************
  485. *
  486. *    主処理
  487. */
  488. display({\nＮＩＦＴＹ－Ｓｅｒｖｅへの接続を開始しました。\n});
  489. wait({1},);    /*    イニシャライズ待機                */
  490. InitTerm;    /*    端末の初期処理                    */
  491. wait({1},);    /*    イニシャライズ待機                */
  492. InitModem;    /*    モデムの初期化処理                */
  493. Telephone;    /*    接続処理                        */
  494.