home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Spezial
/
SPEZIAL2_97.zip
/
SPEZIAL2_97.iso
/
ANWEND
/
ONLINE
/
TE2_134T
/
te2inst.003
/
FaxWorks.scr
< prev
next >
Wrap
Text File
|
1997-07-03
|
2KB
|
47 lines
/* -------------------------------------------------------------------- */
/* FaxWorks.scr -- TE/2 - REXX syntax script */
/* Copyright (c) 1994, Oberon Software */
/* All rights reserved */
/* */
/* Usage: run("FaxWorks", "[ON|OFF]") */
/* */
/* -------------------------------------------------------------------- */
FxRcv = 'D:\Comm\PMfax\FxRcv' /* <-- Replace this as appropriate */
MnuTitle = 'FaxWorks Actions'
MnuItem. = ''
MnuItem.0 = 3
MnuItem.1 = 'Receive calls'
MnuItem.2 = 'Off line'
MnuItem.3 = 'Exit script'
MnuTop = 5
MnuLeft = 20
MnuAttr = 0x1f
MnuHiAttr = 0x71
MnuDelim = '!'
parse arg parm stuff
if length(parm) = 0 then
do
MnuBuf = ''
do i = 1 to MnuItem.0
MnuBuf = MnuBuf||MnuDelim||MnuItem.i
end
MnuBuf = MnuBuf||MnuDelim
'PopupMenu("'MnuTitle'", "'MnuBuf'", 'mnuTop', 'mnuLeft', 'mnuAttr', 'mnuHiAttr', 1)'
i = rc
select
when i = 1 then parm = 'ON'
when i = 2 then parm = 'OFF'
otherwise parm = ''
end
end
if length(parm) = 0 then exit 0
select
when parm = 'ON' then address CMD FxRcv '-on'
when parm = 'OFF' then address CMD FxRcv '-off'
otherwise say 'Illegal parameter "'parm'", use "ON" or "OFF"'
end
exit 0