home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Curio City 9
/
CURIO9.bin
/
pc
/
internet
/
win
/
w95nim
/
program
/
data.z
/
FENICS.SCR
< prev
next >
Wrap
Text File
|
1997-09-10
|
4KB
|
164 lines
#
# FENICS-ROAD
#
WaitMsg = "\x0Dしばらくしてからやりなおしてください";
CR = "\x0D";
show "FENICS" & ROAD & "に接続開始";
Tries = 8;
Wait_FENICS:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"*" goto Send_C_NIM_Host,
"HOST NAME?" goto Send_C_NIM_Host1,
"Connection-ID --->" goto Send_SHP_Host,
"User-ID --->" goto Start_LOGIN,
"Clear DTE" goto Send_C_NIM_Host2,
"Clear OCC" goto Return_Failure_OCC,
"Clear PAD" goto Send_C_NIM_Host2,
"Clear NA" goto Return_Failure_NA,
"Clear NP" goto Return_Failure_NP,
"Clear NC" goto Return_Failure_NC,
"Clear DER" goto Return_Failure_DER,
"Clear RPE" goto Return_Failure_RPE,
until 80;
send CR;
goto Wait_FENICS;
Send_C_NIM_Host:
show "ホストネーム送信中...";
wait until 10;
send "C NIM" & CR;
goto Wait_FENICS;
Send_C_NIM_Host1:
wait until 10;
goto Wait_FENICS;
Send_C_NIM_Host2:
show "センターホストに再接続中...";
wait until 10;
goto Wait_FENICS;
Send_SHP_Host:
show "コネクションID送出中...";
wait until 10;
send "SHP" & CR;
goto Wait_FENICS;
Start_LOGIN:
UID = %UserID;
Tries = 5;
Send_UID:
show "ユーザーID送出中...";
wait until 10;
send UID & CR;
Wait_LOGIN:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"User-ID --->" goto Send_UID,
"User-ID Error" goto Enter_UID,
"Password --->" goto Start_PSW,
"◆あなたのIDは都合により" goto Return_ID_NG_1,
"保守作業の" goto Return_MENTE2,
"Clear DTE" goto Return_Failure_DTE,
"Clear PAD" goto Return_Failure_PAD,
"Clear NC" goto Return_Failure_NC,
until 80;
goto Wait_LOGIN;
Enter_UID:
input "正しいユーザーIDを入力して下さい" UID EON 1200;
if UID goto Wait_LOGIN;
errexit "ユーザーID入力タイムアウト";
Start_PSW:
PWD = %Password;
Tries = 5;
Send_PSW:
show "パスワード送出中...";
wait until 10;
send PWD & CR;
Wait_PASSWORD:
if Tries == 0 goto Return_Failure;
Tries = Tries - 1;
wait
"Password --->" goto Send_PSW,
"Password ERROR" goto Enter_PSW,
%ESC & "I" goto Return_Success,
"大変混雑" goto Return_BUSY,
"◆あなたのIDは都合により" goto Return_ID_NG_1,
"定期保守" goto Return_MENTE,
"Service is currently" goto Return_MENTE,
"◆只今の時間はご利用" goto Return_MHA,
"◆二重ログイン" goto Return_LOGIN,
"Clear DTE" goto Return_Failure_DTE,
"Clear PAD" goto Return_Failure_PAD,
"Clear NC" goto Return_Failure_NC,
until 80;
goto Wait_PASSWORD;
Enter_PSW:
input "正しいパスワードを入力して下さい" PWD EOFF 1200;
if PWD goto Wait_PASSWORD;
errexit "パスワード入力タイムアウト";
Return_Success:
show "FENICS" & ROAD & "に接続しました";
exit;
Return_Failure:
errexit "FENICS" & ROAD & "に接続できません";
Return_Failure_DTE:
errexit "ホストから着信が拒否されました。"
& WaitMsg;
Return_Failure_OCC:
errexit "ホストビジー(ホストの論理回線がすべて使用中です)";
Return_Failure_PAD:
errexit "ホストからの解放要求により通信を切断した。"
& WaitMsg;
Return_Failure_NA:
errexit "接続規制(当該ホストへの接続が禁止されています)";
Return_Failure_NP:
errexit "欠番(当該ホストのセンターアドレスは存在しません)";
Return_Failure_NC:
errexit "接続回線が一時的に込み合っていて、ご使用できません"
& WaitMsg;
Return_Failure_DER:
errexit "接続不可(当該ホストは定期メンテナンス、あるいは障害中です)"
& WaitMsg;
Return_Failure_RPE:
errexit "ホストの手順エラーによる切断(リモート手順誤り)"
& WaitMsg;
Return_BUSY:
errexit "◆現在、サ-ビスは大変混雑しております... ◆";
Return_ID_NG_1:
errexit
"◆あなたのIDは都合によりご利用頂けません。" &
"カスタマーサポートへご連絡ください◆" &
CR &
" フリーダイヤル 0120-22-1200 (平日 9時~19時、土曜日 9時~17時45分)";
Return_MENTE:
errexit
"只今の時間、定期保守をしております。";
Return_MENTE2:
errexit
"◆保守作業のためしばらくの間ご利用いただけません◆";
Return_MHA:
errexit "◆只今の時間はご利用になれません◆";
Return_LOGIN:
errexit "◆二重ログインです◆";