home *** CD-ROM | disk | FTP | other *** search
/ Spel 4 / Spel4.iso / os2 / actie / bemdemo / srvrdir.rrx < prev    next >
Encoding:
Text File  |  1996-05-15  |  468 b   |  31 lines
  1. /* RhinoCom Script */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. 'UNLOADSPLICE BEMSPL'
  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. 'opencomm'
  17. call SysSleep 2
  18. 'loadsplice BEMSPL'
  19. exit
  20.  
  21. /* if user aborts, close YAK */
  22.  
  23. quit:
  24. 'menuaction ExitProgram'
  25. exit
  26.  
  27.  
  28.  
  29.  
  30.  
  31.