home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Curio City 9
/
CURIO9.bin
/
pc
/
internet
/
win
/
w95nim
/
program
/
data.z
/
SINFONET.SCR
< prev
next >
Wrap
Text File
|
1997-09-10
|
2KB
|
95 lines
!
! Copyright (c) 1996
! by NIFTY Corporation, Tokyo, Japan
! by CompuServe Incorporated, Columbus, Ohio
!
! The information in this software is subject to change without
! notice and should not be construed as a commitment by CompuServe.
!
! Infonet:
! Connect to Infonet
! Success: returns %Success
! Failure: saves error msg in %FailureMsg and returns %Failure
!
!+V
! "3.5"
!-V
guide "Infonet に接続されました";
Tries = 5;
wait until 50;
Wait_HOST:
if Tries = 0 goto Return_Failure;
Tries = Tries - 1;
send %CR;
wait until 20;
send %CR;
wait until 20;
send %CR;
wait until 20;
send %CR;
wait until 20;
send %CR;
send "C" & %CR;
wait
":" goto Send_NIF,
%mdm_Failure goto Return_Failure
until 150;
goto Wait_HOST;
Send_NIF:
send "NIF" & %CR;
Tries = 5;
Wait_infonet:
if Tries = 0 goto Return_Failure;
Tries = Tries - 1;
wait
"Enter Connection-ID" goto Send_infonet_Host,
%mdm_Failure goto Return_Failure
until 80;
goto Wait_infonet;
Send_infonet_Host:
wait until 10;
guide "サインアップを開始します";
send "PSG" & %CR;
Tries = 5;
Wait_ENQ:
if Tries = 0 goto Return_Failure;
Tries = Tries - 1;
wait
%ENQ goto Send_SIGNUP,
%NAK goto Return_Failure
%mdm_Failure goto Return_Failure
until 80;
goto Wait_ENQ;
Send_SIGNUP:
wait until 10;
guide "登録データを送信しています";
signup : Result;
guide "登録データの送信が終了しました";
if Result = %Success goto Return_Success;
if Result = %Cancel goto Return_Cancel;
Return_Failure:
define %FailureMsg = "Infonet が反応しません";
%ErrorCode = 2050;
exit %ErrorCode;
! exit %Failure;
Return_Cancel:
exit %Cancel;
Return_Success:
wait until 10;
exit %Success;