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
Wrap
Text File
|
1997-07-03
|
1KB
|
37 lines
;; -------------------------------------------------------------------------
;;
;; XonXoff.Scr -- Copyright (c) 1993-94, Oberon Software, Mankato Mn
;; Author: Brady Flowers
;;
;; Usage: run("XonXoff", "[TRUE|FALSE]")
;;
;; -------------------------------------------------------------------------
global integer usrmnuItems = 4
global integer usrmnuSelect = 1
global string usrmnuTitle = "Xon/Xoff Settings"
global string usrmnuItem1 = "None "
global string usrmnuItem2 = "Transmit only "
global string usrmnuItem3 = "Receive only "
global string usrmnuItem4 = "Both Xmit & Recv "
global integer usrmnuTop = 10
global integer usrmnuLeft = 20
global integer usrmnuAttr = 0x1f
global integer usrmnuHiAttr = 0x71
program
if stricmp(ScriptArgs, "TRUE") == 0
usrmnuSelect = 4
elseif stricmp(ScriptArgs, "FALSE") == 0
usrmnuSelect = 1
else
run("UserMenu")
endif
if (usrmnuSelect >= 1) AND (usrmnuSelect <= 4)
setxonxoff(usrmnuSelect - 1)
endif
end