home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 7 Games / 07-Games.zip / bemalph0.zip / srvrcom.rrx < prev    next >
Text File  |  1996-02-29  |  868b  |  49 lines
  1. /* RhinoCom Script */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. CR = '0d'x
  7.  
  8. /* get the comport number from the user */
  9. 'RQUERY comport'
  10. port = rc
  11. 'ENTRYFIELD "Enter COM port" "Enter Port" "'||port||'"'
  12. port = rc
  13. if port = '' then signal quit
  14. 'RSET comport' port
  15.  
  16. 'UNLOADSPLICE BEMSPL'
  17. call SysSleep 2
  18.  
  19. 'opencomm'
  20. call SysSleep 5
  21. /*
  22. 'RQUERY @Host Mode'
  23. cmd = rc
  24. say 'host mode' cmd
  25. */
  26. cmd = 'AT S0=1'||CR
  27. 'Send' cmd
  28. say 'send rc' rc
  29.  
  30. /*  -- this fast technique would sometimes crash on slow server machines
  31. 'response 1 match /CONNECT/ /RESPONSE 1 CANCEL/ /LOADSPLICE BEMSPL/'
  32. */
  33.  
  34. 'response 1 match /CONNECT/'
  35. done = 'false'
  36. do until done == 'true'
  37.   call SysSleep 1
  38.   response 1 query
  39.   if ( rc > 0 ) then done = 'true'
  40. end
  41. 'response 1 cancel'
  42. call SysSleep 5
  43. 'loadsplice BEMSPL'
  44.  
  45.  
  46.  
  47.  
  48.  
  49.