home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / TE2SC121.ZIP / XonXoff.Scr < prev   
Text File  |  1992-07-21  |  595b  |  21 lines
  1. global integer usrmnuItems  = 4
  2. global integer usrmnuSelect = 1
  3. global string  usrmnuTitle  = "Xon/Xoff Settings"
  4. global string  usrmnuItem1  = "None             "
  5. global string  usrmnuItem2  = "Transmit only    "
  6. global string  usrmnuItem3  = "Receive only     "
  7. global string  usrmnuItem4  = "Both Xmit & Recv "
  8. global integer usrmnuTop    = 10
  9. global integer usrmnuLeft   = 20
  10. global integer usrmnuAttr   = 0x1f
  11. global integer usrmnuHiAttr = 0x71
  12.  
  13.  
  14. program
  15.   run("UserMenu")
  16.   if (usrmnuSelect >= 1) AND (usrmnuSelect <= 4)
  17.     setxonxoff(usrmnuSelect - 1)
  18.   endif
  19.   end
  20.  
  21.