home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / telecomm / stkr_302.zoo / bplus.bts < prev    next >
Text File  |  1992-05-23  |  2KB  |  61 lines
  1. //  B-Plus interface script for STalker
  2. //
  3. //  Copyright (c) 1992, Eric Rosenquist, Strata Software
  4. //  All rights reserved.
  5. //
  6. //  Exclusive worldwide marketing and distributing by Gribnif Software.
  7. //
  8. //  This file is for the exclusive use of registered STalkerâ„¢ owners
  9. //  and may not be distributed, in whole or in part, without the express
  10. //  written permission of Strata Software.
  11.  
  12.  
  13. include "stalker.bth"
  14.  
  15. string  bplus_program[128];
  16. string  dir[128];
  17. string  params[128];
  18.  
  19. function main() returns int
  20.     int     error;
  21.     string  s;
  22.  
  23.     // Get the script directory
  24.     get_string_param(PATH_PARAM, PATH_SCRIPT, bplus_program, sizeof(bplus_program));
  25.     // Now strip off the trailing \*.* and change it to \BPLUS.TTP
  26.     if (s = strrchr(bplus_program, '\\')) != NULL then
  27.         strcpy(s, "\\BPLUS.TTP");
  28.     endif
  29.  
  30.     get_string_param(PATH_PARAM, PATH_DOWNLOAD, dir, sizeof(dir));
  31.     // Strip off the trailing \*.*
  32.     if (s = strrchr(dir, '\\')) != NULL then
  33.         s[0] = 0;
  34.     endif
  35.  
  36.     sprintf(params, "%s %d %d %d %d %d %d 0", dir,
  37.             get_port(), get_baud(), get_flow_control(), get_word_length(),
  38.             get_stop_bits(), get_parity());
  39.  
  40.     if not file_exists(bplus_program) then
  41.         printf("The file '%s' was not found.\r\nPlease install the BPLUS.TTP program in your script directory.\r\n",
  42.                bplus_program);
  43.         exit -33;
  44.     endif
  45.  
  46.     if (error = run_program(bplus_program, params, FALSE)) then
  47.         if error == 1 then
  48.             ;   // Do nothing - just typing UNDO causes error 1
  49.         elseif error == -39 then
  50.             printf("There is not enough memory to execute the BPLUS.TTP utility.\r\n");
  51.         elseif error == -31006 then
  52.             printf("For STalker to execute an external program in accessory mode,\r\nyou must be running either MiNT or NeoDesk.\r\n");
  53.         else
  54.             printf("Error %d running '%s'\r\nPlease consult Appendix G of the STalker manual for an explanation\r\nof the error codes.\r\n",
  55.                    error, bplus_program);
  56.         endif
  57.     endif
  58.  
  59.     return error;
  60. endfunction
  61.