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 >
Text File  |  1993-01-01  |  3KB  |  81 lines
  1. //  Automatic SALT logon script for Freedom Infonet FIHUB door.
  2. // FOR TELIX
  3.  
  4. // I am assuming NODE.rly and in.rly will go into c:\telix directory
  5. // dial directory "dial ("19",0); command -- replace "19" with the
  6. // name of dialing directory entries for Freedom Infonet.
  7. // you can place two numbers in there... dial ("19 33".0);
  8. // If you have a USR Dual Standard modem, you can take advantage of
  9. // Freedom Infonet's two telephone lines.  Line 1 is USR DS 16.8K and
  10. // line 2 is HST 14.4K.
  11.  
  12. // you can change name of hub door or password in a line below...
  13.  
  14. //  after the download, the script will try a few times, but with
  15. //  carrier dropped, it will after a few tries, exit TELIX
  16.  
  17. // invoke with batch file command:   TELIX SFINET
  18. // sample batch file provided as tttime.bat
  19.  
  20.  
  21.  str Protocol[60] = "C:\TELIX\DSZ.COM" ;     // Complete path to DSZ
  22.  str Send_Command[64] = " port 1 ha slow sz -m C:\TELIX\nodeid.RLY";
  23.  
  24.  //REPLACE NODEID.RLY WITH YOUR NODE or HUB ID IN FILE NAME *****^^^^^^
  25.  
  26.  str Recv_Command[64] = " port 1 ha slow rz -m C:\TELIX\IN.RLY";
  27.  str       failed[] = "Logon failed.";
  28.    int SendStatus = 1;                       // Used for send R/C from DSZ
  29.    int RecvStatus = 1;                       // Used for receive R/C from DSZ
  30.  
  31. main()
  32. {
  33.  int stat;
  34.  dial ("19", 0);         //19 and ?? represent the TELIX.FON entries.
  35.                             //If your hub only has one number, only use
  36.                             //one entry. OR USE BOTH:  ("19 20", 0);
  37.  
  38. {
  39.  
  40.   if (! waitfor("RST name?", 60))
  41.   {
  42.     prints(failed);
  43.     return;
  44.   }
  45.   delay(3);
  46.   cputs("FIRSTNAME;LASTNAME;PASSWORD;!;D;FIHUB;/G^M");
  47.  
  48. // you can change name of hub door or password as needed.
  49. // the /G command logs you off rbbs automatically
  50.  
  51. clear_scr();
  52. printsc( " in, opening door, wait  " );
  53.  
  54. delay(2);
  55.     SendStatus = run( Protocol , Send_Command , 0 ) ;
  56. // send('Z', "nodeid.RLY");
  57. // ********** ^^^^^^ REPLACE WITH YOUR NODE or HUB ID FOR INTERNAL ZMODEM
  58.  
  59. printsc( "Uploaded packet... ");
  60.  
  61. delay(2);
  62.          RecvStatus = run( Protocol , Recv_command , 0 );
  63. //receive('Z', "IN.RLY");
  64. delay(20);
  65.          RecvStatus = run( Protocol , Recv_command , 0 );
  66. //receive('Z', "IN.RLY");
  67.  
  68.  
  69. // this second try is optional, if you normally have short packets
  70. // meaning <500 kilobytes, you don't need all this delay.
  71. // you may wish to use a safer script which test timing for connect,
  72. //  login, up and down load to prevent two hour long connect times!
  73. // such is provided in this subpacket zip
  74.  
  75.  
  76. printsc(" downloaded in.rly ");
  77. exittelix(0, 1);
  78. }
  79. }
  80.  
  81.