home *** CD-ROM | disk | FTP | other *** search
/ Spel 4 / Spel4.iso / os2 / actie / bemdemo / clntcom.rrx < prev    next >
Encoding:
Text File  |  1996-05-15  |  983 b   |  48 lines
  1. /* RhinoCom Script - Start a Client BEM */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. /* get the phone number from the user */
  7. 'RQUERY phone-number'
  8. num = rc
  9. 'ENTRYFIELD "Enter phone number to dial" "Enter Number" "'||num||'"'
  10. num = rc
  11. if num = '' then signal quit
  12. 'RSET phone-number' num
  13.  
  14. 'UNLOADSPLICE BEMSPL'
  15.  
  16. /* get the comport number from the user */
  17. 'RQUERY comport'
  18. port = rc
  19. 'ENTRYFIELD "Enter COM port" "Enter Port" "'||port||'"'
  20. port = rc
  21. if port = '' then signal quit
  22. 'RSET comport' port
  23.  
  24.  
  25. address CMD     /* command environment to OS/2 CMD.EXE */
  26. 'SET BEMTMP=.'
  27. file = SysSearchPath( BEMTMP, 'bem.cfg' )
  28. if file = '' then do
  29.   'config'
  30. end
  31. 'start pld'
  32.  
  33. address  /* return command environment to RhinoCom */
  34.  
  35. 'response 1 match /CONNECT/ /RESPONSE 1 CANCEL/ /LOADSPLICE BEMSPL/'
  36.  
  37. call SysSleep 5
  38. 'Dial ONCE WAIT'
  39. exit
  40.  
  41. /* if user aborts, close YAK */
  42.  
  43. quit:
  44. 'menuaction ExitProgram'
  45. exit
  46.  
  47.  
  48.