home *** CD-ROM | disk | FTP | other *** search
/ FreeWare Collection 2 / FreeSoftwareCollection2pd199x-jp.img / mopterm / sample2.plt < prev   
Text File  |  1990-06-14  |  5KB  |  156 lines
  1. /***********************************************************************
  2. * auto pilot sample program           by mop(pff00570) 
  3. *
  4. *  Nifty Serveに接続し, Mailと,会議室の未読をダウロードする処理です｡ 
  5. *
  6. *  このサンプルについては，著作権を破棄します。自由に，流用，変更，配付
  7. *    してかまいません。
  8. ***********************************************************************/
  9.  
  10. /***********************************************************************
  11. *
  12. *        FENICS経由の接続でビジーが返る時に, .00+を繰り返し入力する処理  
  13. *
  14. ***********************************************************************/
  15. %type00 {
  16.     type({.00+});
  17.     wait({20},    type00,      /* 20秒待って，なにもこないなら，00+ */
  18.              {46+},   type00,  /* 46+ なら 00+                      */
  19.              {+\n00+},type00,  /* 00+ なら 00+                      */
  20.              {Enter Connection-ID  --->},  /* Enter C.. なら 終わり */
  21.         );
  22. };
  23.  
  24. /***********************************************************************
  25. *
  26. *         一つのフォーラムの指定された番号以降の会議室を見る｡ 
  27. *
  28. ***********************************************************************/
  29. /* down all message */
  30. %readall{
  31.     type({\n});
  32.     wait({20},{stop},{これ以上の発言はありません－},,
  33.                          {改行のみ: 読む},readall,
  34.                          {（改行で表示},readall
  35.             )
  36. };
  37.  
  38. /* down forum from first boad number to last */
  39. %Forum { [firstboad]
  40.     type({3\n});
  41.     wait({30},{stop},{\n＞},);
  42.     type(firstboad);      /* type first boad number */
  43.     type({\n});
  44.     wait({30},{stop},{\n＞},);
  45.     readall;
  46.     stoprec;
  47.     wait({30},{stop},{\n＞},);
  48. };
  49.  
  50.  
  51. /***********************************************************************
  52. *
  53. *         未読のメールを見る｡
  54. *
  55. ***********************************************************************/
  56. /* Down all text of one mail */
  57. %AllText {
  58.     type({\n});
  59.     wait({20},{stop},{受信後 (1:削除},,{\n＞},AllText);
  60. };
  61.  
  62. /* Down th Number mail and next receive menu */
  63. %OneMail {[Num]
  64.     wait({20},{stop},{\n＞},);
  65.     type(Num);
  66.     type({\n});
  67.     wait({20},{stop},{受信後 (1:削除},,{\n＞},AllText);
  68.     type({2\n});
  69.     wait({20},{stop},{電子メール（1:受信},);
  70.     type({1\n});
  71.     Mail2
  72. };
  73.  
  74. %Mail2 {
  75.     wait({30},{stop},{番号},);
  76.     wait({10},{stop},
  77.     {  1  },{OneMail({1})},
  78.     {  2  },{OneMail({2})},
  79.     {  3  },{OneMail({3})},
  80.     {  4  },{OneMail({4})},
  81.     {  5  },{OneMail({5})},
  82.     {  6  },{OneMail({6})},
  83.     {  7  },{OneMail({7})},
  84.     {  8  },{OneMail({8})},
  85.     {  9  },{OneMail({9})},
  86.     {\n＞},);
  87. };
  88.  
  89.  
  90. %MailDown {
  91.     wait({20},{stop},{\n＞},);
  92.     type({MAIL\n});
  93.     wait({20},{stop},{\n＞},);
  94.     type({1\n});
  95.     received({a:mail});
  96.     Mail2;
  97.     stoprec;
  98. };
  99.  
  100. /* skip top message */
  101. %ReadTop {
  102. type({\n});
  103. wait({30},    {stop},
  104.      {\n＞},ReadTop,
  105.      {未読分},MailDown,
  106.      {NIFTY-Serve     TOP},{wait({30},{stop},{\n＞},)}
  107.     );
  108. };
  109.  
  110. /***********************************************************************
  111. *
  112. *         メイン処理(回線の設定を行い,電話を掛け,各処理を呼び出す)       
  113. *
  114. ***********************************************************************/
  115. baud({1200});     /* タウンズの回線のボーレートを1200にする */
  116. xon({Yes});       /* X-制御による,フロー制御を 行う         */
  117. dial({ATDP 0559235038});   /* ダイヤル回線で, 0559235038に電話を掛ける。
  118.                             お近くの，アクセスポイントに変更して下さい
  119.                             また，プッシュ回線の場合は，ATDT xxxxに変更
  120.                             して下さい  */
  121. type00;           /* FENICSに対して,Niftyへの接続を依頼する */
  122. type({SVC\n});
  123. wait({20},{stop},{Enter User-ID  --->},);
  124. type({AAA00000\n});     /* AAA00000は貴方のユーザIDに変更して下さい */
  125. wait({20},{stop},{Enter Password --->},);
  126. type({PASSWORD\n});     /* PASSWORDは貴方のパスワードに変更して下さい */
  127.  
  128.                   /* 未読のメールをファイルに落とす */
  129. wait({30},    {stop},
  130.      {\n＞},  ReadTop,
  131.      {未読分},MailDown,
  132.      {NIFTY-Serve     TOP},{wait({30},{stop},{\n＞},)}
  133.     );
  134.  
  135.                   /* FTOWNS1フォーラムの内容を，Aフロッピー内に
  136.                       FTOWNS1.日付 というファイルを作成し,そこに落とす */
  137. type({GO FTOWNS1\n});
  138. received({a:FTOWNS1});
  139. wait({30},{stop},{\n＞},);
  140. Forum({1});                         /* 1番会議室から最後まで,読み込む */
  141.  
  142.                   /* FTONWS2フォーラムの内容を落とす */
  143. type({GO FTOWNS2\n});
  144. received({a:FTOWNS2});
  145. wait({30},{stop},{\n＞},);
  146. Forum({1});
  147.                   /* FFM3フォーラムの5番以降の会議室を落とす */ 
  148. type({GO FFM3\n});
  149. received({a:ffm3});
  150. wait({30},{stop},{\n＞},);
  151. Forum({5});
  152.                   /* Niftyを終了する                  */
  153. type({bye\n});
  154. wait({30},{stop},{01+},);
  155. discon
  156.