home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / VPR_DATA / MIDI / KORG / VTERM / OTHER.KR_ / OTHER.KR
Text File  |  1996-05-08  |  1KB  |  68 lines
  1. /*--------------------------------------------------------------
  2.  
  3.   OTHER.KRU
  4.   Copyright(C)1995 ZEAL Corp.
  5.  
  6. --------------------------------------------------------------*/
  7.  
  8. void main()
  9. {
  10.   if(==(checkcd(),0))
  11.   {
  12.     messagebox("オフラインです.");
  13.     return();  
  14.   }
  15.  
  16.   /* 待ち時間 */
  17.   settime("@W");
  18.   clearvtxflag("初期化します") ;
  19.  
  20.   /* ＤＦセンターの切り替え ＠Ｃは電話番号の下位５桁 */
  21.   sendpi("$@C#","ＤＦセンターの切替");
  22.  
  23.   /* ＰＴ */
  24.   if(==(0,checkpiptsub()))
  25.   {
  26.     if(!=(0,strlensub(0)))
  27.     {
  28.       sendpt("@i","ＩＤの送信です.");
  29.       if(!=(0,strlen(1)))
  30.       {
  31.         sendpt("@p","パスワードの送信です.");
  32.       }
  33.       waitpt("","...");
  34.     }
  35.   }
  36.  
  37.   /* ＰＥ */
  38.   if(==(2,checkpiptsub()))
  39.   {
  40.         if(ansistrstr("@C","77100"))
  41.         {
  42.       wait("ID","ホストＩＤの送信です.");
  43.       sendpt("IOS^m","ホストＩＤの送信です.");
  44.         }
  45.     if(!=(0,strlensub(0)))
  46.     {
  47.       wait("@a","ＩＤの送信です.");
  48.       sendpt("@i^m","ＩＤの送信です.");
  49.       if(!=(0,strlensub(1)))
  50.       {
  51.         wait("@b","パスワードの送信です.");
  52.         sendpt("@p^m","パスワードの送信です.");
  53.       }
  54.       waitpt("","...");
  55.     }
  56.   }
  57.  
  58.   /* ＰＩ */
  59.   if(==(1,checkpiptsub()))
  60.   {
  61.     if(!=(0,strlensub(0)))
  62.     {
  63.       waitpi("","データの区切りを待っています.");
  64.       sendpi("@i","切り替え情報の送信です.");
  65.     }
  66.   }
  67. }
  68.