home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / ONLINE / TE2_134T / te2inst.003 / XonXoff.scr < prev   
Text File  |  1997-07-03  |  1KB  |  37 lines
  1. ;; -------------------------------------------------------------------------
  2. ;;
  3. ;; XonXoff.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
  4. ;;                Author: Brady Flowers
  5. ;;
  6. ;; Usage: run("XonXoff", "[TRUE|FALSE]")
  7. ;;
  8. ;; -------------------------------------------------------------------------
  9.  
  10. global integer usrmnuItems  = 4
  11. global integer usrmnuSelect = 1
  12. global string  usrmnuTitle  = "Xon/Xoff Settings"
  13. global string  usrmnuItem1  = "None             "
  14. global string  usrmnuItem2  = "Transmit only    "
  15. global string  usrmnuItem3  = "Receive only     "
  16. global string  usrmnuItem4  = "Both Xmit & Recv "
  17. global integer usrmnuTop    = 10
  18. global integer usrmnuLeft   = 20
  19. global integer usrmnuAttr   = 0x1f
  20. global integer usrmnuHiAttr = 0x71
  21.  
  22.  
  23. program
  24.   if stricmp(ScriptArgs, "TRUE") == 0
  25.     usrmnuSelect = 4
  26.   elseif stricmp(ScriptArgs, "FALSE") == 0
  27.     usrmnuSelect = 1
  28.   else
  29.     run("UserMenu")
  30.   endif
  31.  
  32.   if (usrmnuSelect >= 1) AND (usrmnuSelect <= 4)
  33.     setxonxoff(usrmnuSelect - 1)
  34.   endif
  35.   end
  36.  
  37.