home *** CD-ROM | disk | FTP | other *** search
/ Curio City 9 / CURIO9.bin / pc / internet / win / w95nim / program / data.z / SNROAD7.SCR < prev    next >
Text File  |  1997-09-10  |  2KB  |  75 lines
  1. !
  2. !  Copyright (c) 1996-1997
  3. !  by NIFTY Corporation, Tokyo, Japan
  4. !  by CompuServe Incorporated, Columbus, Ohio
  5. !
  6. !  The information in this software is subject to change without
  7. !  notice and should not be construed as a commitment by CompuServe.
  8. !
  9. !  NIFTY-ROAD 7:
  10. !    Connect to NIFTY-ROAD 7
  11. !    Success:  returns %Success
  12. !    Failure:  saves error msg in %FailureMsg and returns %Failure
  13. !
  14. !+V
  15. ! "3.5"
  16. !-V
  17. guide "NIFTY-ROAD 7 に接続されました";
  18. Tries = 8;
  19.  
  20. Wait_HOST:
  21.     if Tries = 0 goto Return_Failure;
  22.     Tries = Tries - 1;
  23.  
  24.     wait
  25.         "ogin"            goto Send_NIF7,
  26.         "assword:"        goto Send_NIF7_Pass,
  27.         "Bad Password:"    goto Send_NIF7_Bad,
  28.         "Enter C"        goto Send_NIF7_Host,
  29.         %ENQ            goto Send_SIGNUP,
  30.         %NAK            goto Return_Failure
  31.         %mdm_Failure    goto Return_Failure
  32.     until 80;
  33.     goto Wait_HOST;
  34.  
  35. Send_NIF7:
  36.     wait until 10;
  37.     send "NIFTY" & %CR;
  38.     goto Wait_HOST;
  39.  
  40. Send_NIF7_Pass:
  41.     wait until 10;
  42.     send %CR;
  43.     goto Wait_HOST;
  44.  
  45. Send_NIF7_Bad:
  46.     wait until 10;
  47.     guide "ホストに再接続中";
  48.     goto Wait_HOST;
  49.  
  50. Send_NIF7_Host:
  51.     wait until 10;
  52.     guide "サインアップを開始します";
  53.     send "PSG" & %CR; 
  54.     goto Wait_HOST;
  55.  
  56. Send_SIGNUP:
  57.     wait until 10;
  58.     guide "登録データを送信しています";
  59.     signup : Result; 
  60.     guide "登録データの送信が終了しました";
  61.     if Result = %Success goto Return_Success;
  62.     if Result = %Cancel goto Return_Cancel;
  63.  
  64. Return_Failure:
  65.     define %FailureMsg = "NIFTY-ROAD 7 が反応しません";
  66.     %ErrorCode = 2050;
  67.     exit %ErrorCode;
  68.  
  69. Return_Cancel:
  70.     exit %Cancel;
  71.  
  72. Return_Success:
  73.     wait until 10;
  74.     exit %Success;
  75.