home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / makeplt4 / smplvan.plt < prev   
Text File  |  1980-01-02  |  3KB  |  60 lines
  1. /***********************************************************************
  2. * auto pilot sample program           by mop(pff00570) 
  3. *
  4. *  PC-VANに接続する処理です｡ 
  5. *
  6. *  このサンプルについては，著作権を破棄します。自由に，流用，変更，配付
  7. *    してかまいません。
  8. *
  9. *  MAKEPLTで使用するオ－トパイロットファイルです.(AIH) Thanks to Mr.mop!
  10. ***********************************************************************/
  11. /***********************************************************************
  12. *
  13. *        VANPCNEC02を繰り返し入力する処理  
  14. *
  15. ***********************************************************************/
  16. %type00 {
  17.                                /* VANPCNEC02を送信する. */
  18.     type({VANPCNEC02\n});
  19.                                /* 20秒待つ.何も来ないなら%type00へ戻る. */
  20.     wait({20},    type00,
  21.                                /* NOT CONNECTEDなら %type00へ           */
  22.          {NOT CONNECTED}, type00,
  23.                                /* FAIRUREなら %TYPE00へ                 */
  24.          {FAIRURE},type00,
  25.                                /* <<< PC-VAN >>>なら,%type00は終わり    */
  26.          {<<< PC-VAN >>>},
  27.         );
  28. };
  29.  
  30.  
  31. /***********************************************************************
  32. *
  33. *         メイン処理(回線の設定を行い,電話を掛け,各処理を呼び出す)       
  34. *
  35. ***********************************************************************/
  36.                /* タウンズの回線のボーレートを1200にする */
  37. baud({1200});
  38.                /* X-制御による,フロー制御を 行う         */
  39. xon({Yes});
  40.                /* ダイヤル回線で XXX-XXX-XXXXに電話を掛ける。 */
  41.                /* プッシュ回線は ATDT XXX-XXX-XXXXに変更する. */
  42. dial({ATDP XXX-XXX-XXXX});                                                     
  43.                /* PC-VANにLOGINする. */
  44. type00;
  45.                /* IDを尋ねてきたか? */
  46. wait({20},{stop},{USER_ID:},);
  47.                /* IDを送る */
  48. type({AAA00000\n});                                                            
  49.                /* PASSWORDを尋ねてきたか? */
  50. wait({20},{stop},{PASSWORD:},);
  51.                /* PASSWORDを送る */
  52. type({PASSWORD\n});                                                            
  53.                /* *ﾌﾟﾛﾌｧｲﾙ ｦ ｼｭｳｾｲ ｼﾏｽｶ(Y,N,GW)=に N を入力する. */
  54. wait({20},{stop},{=},);
  55. type({N\n});                                                                   
  56.                /* お知らせを表示しますか(Y,N)= に Y を入力する. */
  57. wait({20},{stop},{=},);
  58. type({Y\n});                                                                   
  59.                                             
  60.