home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
f
/
finet93a.zip
/
SCRIPTS.ZIP
/
FINET2.SLT
< prev
next >
Wrap
Text File
|
1993-01-01
|
3KB
|
81 lines
// Automatic SALT logon script for Freedom Infonet FIHUB door.
// FOR TELIX
// I am assuming NODE.rly and in.rly will go into c:\telix directory
// dial directory "dial ("19",0); command -- replace "19" with the
// name of dialing directory entries for Freedom Infonet.
// you can place two numbers in there... dial ("19 33".0);
// If you have a USR Dual Standard modem, you can take advantage of
// Freedom Infonet's two telephone lines. Line 1 is USR DS 16.8K and
// line 2 is HST 14.4K.
// you can change name of hub door or password in a line below...
// after the download, the script will try a few times, but with
// carrier dropped, it will after a few tries, exit TELIX
// invoke with batch file command: TELIX SFINET
// sample batch file provided as tttime.bat
str Protocol[60] = "C:\TELIX\DSZ.COM" ; // Complete path to DSZ
str Send_Command[64] = " port 1 ha slow sz -m C:\TELIX\nodeid.RLY";
//REPLACE NODEID.RLY WITH YOUR NODE or HUB ID IN FILE NAME *****^^^^^^
str Recv_Command[64] = " port 1 ha slow rz -m C:\TELIX\IN.RLY";
str failed[] = "Logon failed.";
int SendStatus = 1; // Used for send R/C from DSZ
int RecvStatus = 1; // Used for receive R/C from DSZ
main()
{
int stat;
dial ("19", 0); //19 and ?? represent the TELIX.FON entries.
//If your hub only has one number, only use
//one entry. OR USE BOTH: ("19 20", 0);
{
if (! waitfor("RST name?", 60))
{
prints(failed);
return;
}
delay(3);
cputs("FIRSTNAME;LASTNAME;PASSWORD;!;D;FIHUB;/G^M");
// you can change name of hub door or password as needed.
// the /G command logs you off rbbs automatically
clear_scr();
printsc( " in, opening door, wait " );
delay(2);
SendStatus = run( Protocol , Send_Command , 0 ) ;
// send('Z', "nodeid.RLY");
// ********** ^^^^^^ REPLACE WITH YOUR NODE or HUB ID FOR INTERNAL ZMODEM
printsc( "Uploaded packet... ");
delay(2);
RecvStatus = run( Protocol , Recv_command , 0 );
//receive('Z', "IN.RLY");
delay(20);
RecvStatus = run( Protocol , Recv_command , 0 );
//receive('Z', "IN.RLY");
// this second try is optional, if you normally have short packets
// meaning <500 kilobytes, you don't need all this delay.
// you may wish to use a safer script which test timing for connect,
// login, up and down load to prevent two hour long connect times!
// such is provided in this subpacket zip
printsc(" downloaded in.rly ");
exittelix(0, 1);
}
}