home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / mopt97l / sample3.plt < prev   
Text File  |  1980-01-02  |  5KB  |  194 lines
  1.  
  2. /***********************************************************************
  3. * auto pilot sample program           by モップ(pff00570)
  4. *                                        チビゴリラ(PFA00104)が修正 
  5. *                                        さらにそれをモップが修正
  6. *  FENICS-ROAD 2 を使ってNifty Serveに接続する処理です｡ 
  7. *
  8. *  このサンプルについては，著作権を破棄します。自由に，流用，変更，配付
  9. *    してかまいません。
  10. ***********************************************************************/
  11.  
  12.  
  13. /***********************************************************************
  14. *
  15. *         メイン処理(回線の設定を行い,電話を掛け,各処理を呼び出す)       
  16. *
  17. ***********************************************************************/
  18.  
  19. /* auto pilot sample program           by mop(pff00570) */
  20.  
  21. /***********************************************************************
  22. *
  23. *               type .00+ and retry  
  24. *
  25. ***********************************************************************/
  26. %type00 {
  27.     type({.00+});
  28.     wait({20},    type00,  /* 20秒待って，なにもこないなら，00+ */
  29.              {46+},   type00,  /* 46+ なら 00+                      */
  30.              {+\n00+},type00,  /* 00+ なら 00+                      */
  31.              {Enter},  /* Enter C.. なら 終わり */
  32.         );
  33. };
  34.  
  35. /***********************************************************************
  36. *
  37. *              一つのフォーラムの指定された番号以降の会議室を見る｡ 
  38. *
  39. ***********************************************************************/
  40. /* down all message */
  41. %readall2{
  42.         type({\n});
  43.         wait({60},{stop},{これ以上の発言はありません－},,
  44.                          {－会議室},,
  45.                          {改行のみ: 読む},readall2,
  46.                          {（改行で表示},readall2
  47.             )
  48. };
  49.  
  50. %readall{
  51.         readall2;
  52.         test({1},{stop},{これ以上の発言はありません－},,
  53.              {－会議室},{ wait({60},{stop},{改行のみ: 読む},readall)
  54.                          }
  55.             )
  56.         
  57. };
  58.  
  59. /* down forum from first boad number to last */
  60. %Forum { [ firstboad , filename ]
  61.         wait({30},{stop},{\n＞},);
  62.         type({3\n});
  63.         wait({30},{stop},{\n＞},);
  64.         received(filename);
  65.         type(firstboad);      /* type first boad number */
  66.         type({\n});
  67.         wait({30},{stop},{\n＞},);
  68.         readall;
  69.         stoprec;
  70.         wait({30},{stop},{\n＞},);
  71. };
  72.  
  73.  
  74. /***********************************************************************
  75. *
  76. *              未読のメールをみんな見る
  77. *
  78. ***********************************************************************/
  79. /* Down all text of one mail */
  80. %AllText {
  81.     type({\n});
  82.     wait({20},{stop},{受信後 (1:削除},,{\n＞},AllText);
  83. };
  84.  
  85. /* Down th Number mail and next receive menu */
  86. %OneMail {[Num]
  87.     wait({20},{stop},{\n＞},);
  88.     type(Num);
  89.     type({\n});
  90.     wait({20},{stop},{受信後 (1:削除},,{\n＞},AllText);
  91.     type({2\n});
  92.     wait({20},{stop},{電子メール（1:受信},);
  93.     type({1\n});
  94.     Mail2
  95. };
  96.  
  97. %Mail2 {
  98.     wait({30},{stop},{番号},);
  99.     wait({10},{stop},
  100.     {  1  },{OneMail({1})},
  101.     {  2  },{OneMail({2})},
  102.     {  3  },{OneMail({3})},
  103.     {  4  },{OneMail({4})},
  104.     {  5  },{OneMail({5})},
  105.     {  6  },{OneMail({6})},
  106.     {  7  },{OneMail({7})},
  107.     {  8  },{OneMail({8})},
  108.     {  9  },{OneMail({9})},
  109.     {\n＞},);
  110. };
  111.  
  112.  
  113. %MailDown {
  114.     wait({20},{stop},{\n＞},);
  115.     type({MAIL\n});
  116.     wait({20},{stop},{\n＞},);
  117.     type({1\n});
  118.     received({a:mail});
  119.     Mail2;
  120.     stoprec;
  121. };
  122.  
  123. /* skip top message */
  124. %ReadTop {
  125. type({\n});
  126. wait({30},    {stop},
  127.      {\n＞},ReadTop,
  128.      {未読分},MailDown,
  129.      {NIFTY-Serve     TOP},{wait({30},{stop},{\n＞},)}
  130.     );
  131. };
  132.  
  133. %Road2p {
  134.     wait({4},);
  135.     type({@P\n});
  136.     wait({20},{stop},{*},);    /* *を待つ */
  137.     type({C NIF\n});
  138. };
  139. %callrd1 {
  140.     display({ＲＯＡＤ１に電話をかけます\n});
  141.     dialone({AT\N3\V1\Q3\J0DP 0559246646},type00,callrd2);
  142. };
  143. %callrd2 {
  144.     display({ＲＯＡＤ２に電話をかけます\n});
  145.     dialone({AT\N3\V1\Q3\J0DP 0559253121},Road2p,callrd1);
  146. };
  147. /***********************************************************************
  148. *
  149. * メイン処理       Call Telephone and Send Id ,Password
  150. *
  151. ***********************************************************************/
  152. baud({9600});
  153. stopbit({1});
  154. xon({Yes});
  155. rscs({Yes});
  156. callrd2;
  157. wait({20},{stop},{Connection-ID  --->},);
  158. type({SVC\n});
  159. wait({20},{stop},{Enter User-ID  --->},);
  160. type({AAA00000\n});     /* AAA00000は貴方のユーザIDに変更して下さい */
  161. wait({20},{stop},{Enter Password --->},);
  162. type({PASSWORD\n});     /* PASSWORDは貴方のパスワードに変更して下さい */
  163.  
  164.                     /* read mail  */
  165. wait({30},    {stop},
  166.      {\n＞},  ReadTop,
  167.      {未読分},MailDown,
  168.      {NIFTY-Serve     TOP},{wait({30},{stop},{\n＞},)}
  169.     );
  170.  
  171.                            /* Read TOWNS forum */
  172. type({GO FTOWNS1\n});
  173. Forum({1},{a:FTOWNS1});
  174.                            /* Read TOWNS2 forum */
  175. type({GO FTOWNS2\n});
  176. Forum({1},{a:FTOWNS2});
  177.                            /* Read FM3 forum */ 
  178. type({GO FFM3\n});
  179. Forum({2},{a:ffm3});
  180.  
  181. /*  Ajust Clock of Towns  From Nifty Clock   90.09.09 By モップ */
  182. type({TIME\n});
  183. wait({10},{stop},{) });
  184. receive({work.dat});
  185. wait({10},{stop},{\n});
  186. stoprec;
  187. wait({5},{stop},{＞});
  188. command({time <work.dat});
  189. command({del work.dat});
  190.  
  191. type({bye\n});
  192. wait({3});
  193. discon
  194.