home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703B.ISO / terminal / niftyman / w95nim / program / data.z / NIFROAD.SCR < prev    next >
Text File  |  1996-11-19  |  7KB  |  241 lines
  1. #
  2. #  Copyright (c) 1995 by NIFTY Corporation
  3. #
  4. #  The information in this software is subject to change without
  5. #  notice and should not be construed as a commitment by NIFTY Corporation.
  6. #
  7. #  NIFTY: Connect to NIFTY-ROAD
  8. #    %UserID        : LOGIN ID
  9. #    %Password     : Login Password
  10. #    ROAD        : NIFTY-ROAD Name (String)
  11. #
  12. WaitMsg = "\x0Dしばらくしてからやりなおしてください";
  13. CR = "\x0D";
  14.  
  15. show "NIFTY" & ROAD & "に接続開始";
  16.  
  17. Tries = 8;
  18. Wait_FENICS:
  19.     if Tries == 0 goto Return_Failure;
  20.     Tries = Tries - 1;
  21.     wait
  22. #        "*"            goto Send_C_NIM_Host,
  23.         "HOST NAME?"        goto Send_C_NIM_Host1,
  24.         "Connection-ID  --->"    goto Send_SHC_Host,
  25.         "User-ID  --->"        goto Start_LOGIN,
  26.         "Clear DTE"        goto Send_C_NIM_Host2,
  27.         "Clear OCC"        goto Return_Failure_OCC,
  28.         "Clear PAD"        goto Send_C_NIM_Host2,
  29.         "Clear NA"        goto Return_Failure_NA,
  30.         "Clear NP"        goto Return_Failure_NP,
  31.         "Clear NC"        goto Return_Failure_NC,
  32.         "Clear DER"        goto Return_Failure_DER,
  33.         "Clear RPE"        goto Return_Failure_RPE,
  34.  
  35.         "ogin:"            goto Send_C_NIM_Host7,
  36.         "assword:"        goto Send_C_NIM_Host8,
  37.         "Bad Password"        goto Send_C_NIM_Host2,
  38.     until 80;
  39.     goto Wait_FENICS;
  40.  
  41. Send_C_NIM_Host7:
  42.     show "サービス識別子送信中...";
  43.     wait until 10;
  44.     send "NIFNIM" & CR; 
  45.     goto Wait_FENICS;
  46. Send_C_NIM_Host8:
  47.     show "リターン送信中...";
  48.     wait until 10;
  49.     send CR; 
  50.     goto Wait_FENICS;
  51.  
  52. Send_C_NIM_Host:
  53.     show "ホストネーム送信中...";
  54.     wait until 10;
  55.     send "C NIM" & CR; 
  56.     goto Wait_FENICS;
  57. Send_C_NIM_Host1:
  58.     wait until 10;
  59.     goto Wait_FENICS;
  60. Send_C_NIM_Host2:
  61.     show "センターホストに再接続中...";
  62.     wait until 10;
  63.     goto Wait_FENICS;
  64. Send_SHC_Host:
  65.     show "コネクションＩＤ送出中...";
  66.     wait until 10;
  67.     send "SHC" & CR;
  68.     goto Wait_FENICS;
  69.     
  70. Start_LOGIN:
  71. UID = %UserID;
  72. Tries = 5;
  73. Send_UID:
  74.     show "ユーザＩＤ送出中...";
  75.     wait until 10;
  76.     send UID & CR;
  77. Wait_LOGIN:
  78.     if Tries == 0 goto Return_Failure;
  79.     Tries = Tries - 1;
  80.     wait
  81.         "User-ID  --->"            goto Send_UID,
  82.         "User-ID Error"            goto Enter_UID,
  83.         "Password --->"            goto Start_PSW,
  84.         "◆あなたのIDは一時的に"    goto Return_ID_NG_1,
  85.         "Clear DTE"            goto Return_Failure_DTE,
  86.         "Clear PAD"            goto Return_Failure_PAD,
  87.         "Clear NC"            goto Return_Failure_NC,
  88.     until 80;
  89.     goto Wait_LOGIN;
  90.  
  91. Enter_UID:
  92.     input "正しいユーザＩＤを入力して下さい" UID EON 1200;
  93.     if UID goto Wait_LOGIN;
  94.     errexit "ユーザＩＤ入力タイムアウト";
  95.  
  96. Start_PSW:
  97.     PWD = %Password;
  98.     Tries = 5;
  99. Send_PSW:
  100.     show "パスワード送出中...";
  101.     wait until 10;
  102.     send PWD & CR;
  103. Wait_PASSWORD:
  104.     if Tries == 0 goto Return_Failure;
  105.     Tries = Tries - 1;
  106.     wait
  107.         "Password --->"            goto Send_PSW,
  108.         "Password ERROR"        goto Enter_PSW,
  109.         %ESC & "I"            goto Return_Success,
  110.         "大変混雑"            goto Return_BUSY,
  111.         "◆あなたのIDは一時的に"    goto Return_ID_NG_1,
  112.         "登録内容の確認作業中"        goto Return_ID_NG_2,
  113.         "登録内容の確認が終了以前に"    goto Return_ID_NG_3,
  114.         "定期保守"            goto Return_MENTE,
  115.         "◆只今の時間はご利用"        goto Return_MHA,
  116.         "◆二重ログイン"        goto Return_LOGIN,
  117.         "「CHN」"            goto Return_CARD_1,
  118.         "承認中のため"            goto Return_CARD_2,
  119.         "決済へのお手続き中"        goto Return_CARD_3,
  120.         "変更ご申請の"            goto Return_CARD_4,
  121.         "親IDの都合"            goto Return_CARD_5,
  122.         "Clear DTE"            goto Return_Failure_DTE,
  123.         "Clear PAD"            goto Return_Failure_PAD,
  124.         "Clear NC"            goto Return_Failure_NC,
  125.     until 80;
  126.     goto Wait_PASSWORD;
  127.  
  128. Enter_PSW:
  129.     input "正しいパスワードを入力して下さい" PWD EOFF 1200;
  130.     if PWD goto Wait_PASSWORD;
  131.     errexit "パスワード入力タイムアウト";
  132.  
  133. Return_Success:
  134.   show "NIFTY" & ROAD & "に接続しました";
  135.   exit;
  136.  
  137. Return_Failure:
  138.   errexit "NIFTY" & ROAD & "に接続できません";
  139.  
  140. Return_Failure_DTE:
  141.   errexit "ホストから着信が拒否されました。"
  142.       & WaitMsg;
  143.  
  144. Return_Failure_OCC:
  145.   errexit "ホストビジー(ホストの論理回線がすべて使用中です)";
  146.  
  147. Return_Failure_PAD:
  148.   errexit "ホストからの解放要求により通信を切断した。"
  149.           & WaitMsg;
  150.  
  151. Return_Failure_NA:
  152.   errexit "接続規制(当該ホストへの接続が禁止されています)";
  153.  
  154. Return_Failure_NP:
  155.   errexit "欠番(当該ホストのセンターアドレスは存在しません)";
  156.  
  157. Return_Failure_NC:
  158.   errexit "接続回線が一時的に込み合っていて、ご使用できません"
  159.           & WaitMsg;
  160. Return_Failure_DER:
  161.   errexit "接続不可(当該ホストは定期メンテナンス、あるいは障害中です)"
  162.           & WaitMsg;
  163. Return_Failure_RPE:
  164.   errexit "ホストの手順エラーによる切断(リモート手順誤り)"
  165.           & WaitMsg;
  166. Return_BUSY:
  167.   errexit "◆現在、サ－ビスは大変混雑しております... ◆";
  168.  
  169. Return_ID_NG_1:
  170.   errexit 
  171.   "◆あなたのIDは一時的にご利用頂けません。" &
  172.   "カスタマーサポートへご連絡ください◆" &
  173.   CR &
  174.   "  フリーダイヤル 0120-22-1200  (平日 9時～19時、土曜日 9時～17時45分)";
  175.  
  176. Return_ID_NG_2:
  177.   errexit 
  178.   "現在あなたがお使いの利用者ＩＤは、ご登録内容の確認作業中です。" &
  179.   CR &
  180.   "恐れ入りますが今暫くお待ちください。詳しくはフリーダイヤル0120-22-1200" &
  181.   "（メンバサービス部）までお問い合わせ下さい。";
  182.  
  183. Return_ID_NG_3:
  184.   errexit 
  185.   "現在あなたがお使いの利用者ＩＤは、ご登録内容の確認が終了以前に所定の" &
  186.   CR &
  187.   "無料使用権を使いきりましたので、一時的にご利用できなくなっております。" &
  188.   "恐れ入りますが、ご登録内容の確認が終了するまで、今暫くお待ちください。" &
  189.   "詳しくはフリーダイヤル0120-22-1200（メンバサービス部）までお問い合わせ下さい。";
  190.  
  191. Return_MENTE:
  192.   errexit 
  193.   "只今の時間、定期保守をしております。";
  194.  
  195. Return_MHA:
  196.   errexit "◆只今の時間はご利用になれません◆";
  197.  
  198. Return_LOGIN:
  199.   errexit "◆二重ログインです◆";
  200.  
  201. Return_CARD_1:
  202.   errexit
  203.   "NIFTY-Serve にご登録のクレジットカード番号が更新前の旧番号及び無効番" &
  204.   "号のため、ご利用不可との連絡をカード会社より受けております。そのため、" &
  205.   "お客様のIDは、現在サービスの利用を停止させていただいております。" &
  206.   CR &
  207.   "つきましては、再度ログインのうえ、Enter Connection IDにて「CHN」と入" &
  208.   "力して、決済方法の変更手続きを行ってください。";
  209.  
  210. Return_CARD_2:
  211.   errexit 
  212.   "お客様のIDは、クレジットカード承認中のため、サービスの利用を停止させ" &
  213.   "ていただいております。"&
  214.   CR &
  215.   "サービスがご利用可能となりますのは、カード承認後１～２日後となります" &
  216.   "ので、ご了承ください。";
  217.  
  218. Return_CARD_3:
  219.   errexit 
  220.   "お客様のIDは、預金口座自動振替決済へのお手続き中のため、サービスの利" &
  221.   "用を停止させていただいております。" &
  222.   CR &
  223.   "サービスがご利用可能となりますのは、所定の用紙によるお手続き完了後と" &
  224.   "なりますので、ご了承ください。";
  225.  
  226. Return_CARD_4:
  227.   errexit 
  228.   "NIFTY-Serve にご登録のクレジットカード番号が更新前の旧番号及び無効" &
  229.   "番号のため、ご利用不可との連絡をカード会社より受けております。その" &
  230.   "ため、お客様のIDは、現在サービスの利用を停止させていただいておりま" &
  231.   "す。" &
  232.   CR &
  233.   "サービスがご利用可となりますのは、変更ご申請の２～３日後となります" &
  234.   "ので、ご了承ください。";
  235.  
  236. Return_CARD_5:
  237.   errexit 
  238.   "お客様のIDは、親IDの都合により、現在サービスの利用を停止させていただ" &
  239.   "いております。";
  240.  
  241.