home *** CD-ROM | disk | FTP | other *** search
/ Spel 4 / Spel4.iso / os2 / actie / bemdemo / server.rrx < prev    next >
Encoding:
Text File  |  1996-05-15  |  433 b   |  25 lines
  1. /* RhinoCom Script */
  2.  
  3. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  4. call SysLoadFuncs
  5.  
  6. /* get the port number */
  7. 'RQUERY tcpip-server-port'
  8. curport = rc
  9. 'ENTRYFIELD "Enter Port Number" "Enter Port Number" "'||curport||'"'
  10. newport = rc
  11. if newport = '' then signal quit
  12.  
  13. 'RSET tcpip-server-port' newport
  14.  
  15. 'opencomm'
  16. exit
  17.  
  18. /* if user aborts, terminate YAK */
  19.  
  20. quit:
  21. 'menuaction ExitProgram'
  22. exit
  23.  
  24.  
  25.