home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 3 / FreeSoftwareCollection3pd199x-jp.img / mop_data / moppilot / logout.plt < prev    next >
Text File  |  1980-01-02  |  3KB  |  101 lines
  1. /************************************************************************
  2. *                                    *
  3. *    Auto logout program for NIFTY    copy left (c) Fox labo.        *
  4. *                    ~~~~~~~~~            *
  5. *=======================================================================*
  6. *                                    *
  7. *    Ver./Level=0.0    at 1990 10/20    make by H.Ishihara        *
  8. *                    for crate            *
  9. *    Ver./Level=0.1    at 1990 10/26    update by H.Ishihara        *
  10. *                    for bug fix            *
  11. *    Ver./Level=0.2    at 1990 11/２    update by H.Ishihara        *
  12. *                    for append LIB            *
  13. *    Ver./Level=0.3    at 1990 11/４    update by H.Ishihara        *
  14. *                    for append MAIL            *
  15. *                                    *
  16. *************************************************************************/
  17.  
  18. /************************************************************************
  19. *
  20. *    ＦＥＮＩＣＳ 回線の切断処理
  21. */
  22.  
  23.  
  24. /************************************************************************
  25. *
  26. *    終了処理
  27. */
  28.  
  29. %WAITOFF    /*    コマンド状態時のＬＯＧＯＦＦ処理            */
  30.   { wait        /*    コマンド受付状態待ちとコマンドの送信    */
  31.       ( {60},       {stop},        /*                    */
  32.         {\n＞},     {type({BYE\n})},    /*    受付状態の場合、終了送信    */
  33.         {\nCCS(N)>},{type({BYE\n})},    /*    受付状態の場合、終了送信    */
  34.         {\nmore>},
  35.           { type({E\n});
  36.             wait({3},{type({BYE\n})});
  37.           },            /*            */
  38.         {\nFORUM>}, {type({BYE\n})},    /*    受付状態の場合、終了送信    */
  39.         {\nLIB>},   {type({BYE\n})}    /*    ライブラリーの場合    */
  40.       );
  41.   };
  42.  
  43. %ENDMAIL    /*                                */
  44.   { type({\n});        /*                            */
  45.     wait        /*    終了状態の検出                */
  46.       ( {60},       {stop},        /*                    */
  47.         {\nCCS(N)>},{type({BYE\n})},    /*                    */
  48.         {\n＞},     {type({BYE\n})},    /*                    */
  49.         {\nFORUM>}, {type({BYE\n})},    /*                    */
  50.         {◆番号又}, {WAITOFF},        /*                    */
  51.         {入力デ},   {WAITOFF}        /*                    */
  52.       );
  53.   };
  54.  
  55. %SENDE        /*                                */
  56.   { type({E\n});
  57.     wait        /*    終了状態の検出                */
  58.       ( {60},{stop},
  59.         {\nCCS(N)>},{type({BYE\n})},
  60.         {\n＞},{type({BYE\n})},
  61.         {\nFORUM>},{type({BYE\n})},
  62.         {◆番号又},{WAITOFF},
  63.         {入力デ},{ENDMAIL}
  64.       );
  65.   };
  66.  
  67. /************************************************************************
  68. *
  69. *    主処理
  70. */
  71.  
  72. display({\n切断処理を開始しました。\n\n});
  73. type({/E\n});
  74. wait        /*    現在の状態検出                    */
  75.   ( {60},{stop},
  76.     {\nCCS(N)>},{type({BYE\n})},
  77.     {\n＞},{type({BYE\n})},
  78.     {\nFORUM>},{type({BYE\n})},
  79.     {◆番号又},{WAITOFF},
  80.     {入力デ},{SENDE},
  81.     {◆正しい},{SENDE}
  82.   );
  83. wait        /*    モデム切断処理                    */
  84.   ( {60},{stop},
  85.     {\n01+},
  86.       { wait({2},);
  87.         type({+++});
  88.         wait({30},{stop},{OK},{wait({2},)});
  89.         type({ATH0\n});
  90.       },
  91.     {\n*},{type({OFF\n})}
  92.   );
  93. wait        /*    使用回線終了表示                    */
  94.   ( {20},{stop},
  95.     {\nNO CARRIER},{display({\n\nFENICS-ROAD2 の切断処理完了\n})},
  96.     {\nOK},{display({\n\nFENICS-ROAD1 の切断処理完了\n})}
  97.   );
  98. discon;
  99. display({\n切断処理を終了しました。\n\n});
  100. stop;
  101.