home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
100 Smash Win 95 Games
/
100SMASH.iso.7z
/
100SMASH.iso
/
compsrv
/
scripts.lib
/
DATEXJ.SCR
< prev
next >
Wrap
Text File
|
1996-09-23
|
2KB
|
92 lines
!
! Copyright (c) 1996
! 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.
!
! Datex-J (BTX):
! Success: returns %Success
! Failure: saves error msg in %FailureMsg and returns %Failure
!
!+V
! "3.9.1"
!-V
Tries = 5;
count = 0;
Second_Time = %FALSE;
on cancel goto Return_Cancel;
show "Connecting to Datex-J";
Resend_Response:
wait until 10;
send "." & %CR;
Wait_DatexJ:
if Tries = 0 goto DatexJ_Failure;
Tries = Tries - 1;
wait
"^@" goto Send_Response,
"^E" goto Send_Response,
"CET" goto Send_Response,
"AA" goto Send_Response,
"000000" goto Send_Kennung,
%mdm_Failure goto DatexJ_Failure
until 200;
Send_Response:
wait until 10;
send "." & %CR;
Wait_Kennung:
wait
"000000" goto Send_Kennung
until 200;
Send_Kennung:
wait until 10;
send "000255975978";
show "Sending Datex-J User ID";
Send_CR:
count = 0;
wait
"DM" goto Send_Pound,
"Host Name:" goto Match_Host_Name
until 300;
if Second_Time = %TRUE goto DatexJ_Failure;
Send_Pound:
wait
%mdm_Failure goto DatexJ_Failure,
"User ID:" goto Match_Host_Name,
"Host Name:" goto Match_Host_Name
until 10;
send %CR;
count = count + 1;
if count < 3 goto Send_Pound;
Second_Time = %TRUE;
goto Send_CR;
DatexJ_Failure:
define %FailureMsg = "Datex-J not responding";
exit %Failure;
Return_Cancel:
exit %Cancel;
Match_Host_Name:
wait
"Host Name:" goto Match_Host_Name
until 10;
Return_Success:
send %CR;
wait until 10;
exit %Success;