home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MODEM / BONEZ.ZIP / BONE$.WAS < prev    next >
Text File  |  1993-11-23  |  4KB  |  124 lines
  1. ;*****************************************************************************
  2. ;
  3. ;   SCRIPT TO USE BEAR BONE$ WITH PROCOMM FOR WINDOWS
  4. ;
  5. ;   Function of the script is to "fetch" the current port settings and 
  6. ;   then pass them to BEAR BONE$, using the /BDR= and /BTS= options.
  7. ;   These options force BEAR BONE$ to open the port at the desired
  8. ;   baud rate and bit settings.
  9. ;
  10. ;*****************************************************************************
  11.  
  12. proc main
  13.  
  14. string boneparm                         ; store parameter input line
  15.  
  16. ;vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
  17. ;
  18. ;    Change the following line to reference your BONE$.EXE program if you
  19. ;    have installed BEAR BONE$ to a different path.
  20.  
  21. string bonecommandline="c:\bone$\bone$.exe "    ; start of command line
  22.  
  23. ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
  24.  
  25. string setbts=" /BTS="                  ; command line options for BEAR BONE$
  26. string setbdr=" /BDR="
  27.  
  28. string dabaud                           ; store baud rate
  29. string dabit                            ; store data bits
  30. string dasbit                           ; store stop bits
  31. string daparity                         ; store parity
  32.  
  33. long bb_baud                            ; port baud rate to be fetched
  34. integer bb_databit                      ; port data bits to be fetched
  35. integer bb_parity                       ; port parity to be fetched
  36. integer bb_stopbit                      ; port stop bits to be fetched
  37.  
  38. ;*****************************************************************************
  39. ;
  40. ;   Fetch commands to get current port settings that will be
  41. ;   passed to Bear Bone$.
  42. ;
  43.  
  44. fetch baudrate bb_baud                  ; fetches baud rate
  45. fetch port databits bb_databit          ; fetches data bits
  46. fetch port stopbits bb_stopbit          ; fetches stop bits
  47. fetch port parity bb_parity             ; fetches parity
  48.  
  49. ;*****************************************************************************
  50. ;
  51. ;   Convert fetched values to strings.
  52. ;
  53.  
  54. ltoa bb_baud dabaud         
  55. itoa bb_databit dabit
  56. itoa bb_stopbit dasbit
  57.  
  58. ;*****************************************************************************
  59. ;
  60. ;   Gives the number returned by the "fetch port parity" command
  61. ;   the corresponding alpha value.
  62. ;
  63.  
  64. switch bb_parity
  65.     case 0
  66.        daparity="N"
  67.     endcase
  68.     case 1
  69.        daparity="O" 
  70.     endcase
  71.     case 2
  72.        daparity="E"
  73.     endcase
  74.     case 3
  75.        daparity="M"
  76.     endcase
  77.     default
  78.        daparity="S"
  79.     endcase
  80. endswitch
  81.  
  82. ;******************************************************************************
  83. ;
  84. ;   concatenate the strings to implement /BDR= and /BTS= options.
  85. ;
  86.  
  87. strcat setbdr dabaud
  88. strcat setbts dabit
  89. strcat setbts daparity
  90. strcat setbts dasbit
  91.  
  92. ;******************************************************************************
  93. ;
  94. ;   User inputs the startup string with out having to enter
  95. ;   /BDR and /BTS options.
  96. ;
  97. ;   Here's what user will need to type at the prompt:
  98. ;
  99. ;       <parm-file> PUT|GET <pc-file> <mf-file> <mf-options>
  100. ;
  101.  
  102. sdlginput "Parameter Entry" "Enter Parameters" boneparm
  103.  
  104. ;******************************************************************************
  105. ;
  106. ;   Concatenate the strings for the final parameter line
  107. ;
  108.  
  109. strcat bonecommandline boneparm
  110. strcat bonecommandline setbdr
  111. strcat bonecommandline setbts
  112.  
  113. ;******************************************************************************
  114. ;
  115. ;   Go ahead and invoke BEAR BONE$.  
  116. ;
  117. ;   *   Make sure that the device contention is set to "never warn"
  118. ;       in the 386 Enhanced options of Window's control panel.
  119. ;
  120.  
  121. dos bonecommandline
  122.  
  123. endproc                                 ; end of script
  124.