home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 3 Comm / 03-Comm.zip / te2pro21.zip / FAXWORKS.SCR next >
Text File  |  1997-01-13  |  748b  |  29 lines
  1. /* test pmfax fxrcv */
  2. signal on syntax
  3. FxRcv = 'D:\Comm\PMfax\FxRcv'
  4. pull FxParm
  5. FxParm = translate(FxParm)
  6. RxRcvParm = ''
  7. select
  8.   when FxParm = 'ON'  then FxRcvParm = '-on'
  9.   when FxParm = 'OFF' then FxRcvParm = '-off'
  10.   otherwise say 'Illegal parameter "'FxParm'", use "ON" or "OFF"'
  11. end
  12. if FxRcvParm \= '' then
  13.   do
  14.     say 'Execing:' FxRcv FxRcvParm
  15.     address CMD FxRcv FxRcvParm
  16.     say 'Return code:' rc
  17.   end
  18. exit 0
  19.  
  20. syntax:
  21.   syxRC = rc
  22.   msgbox.Text  = 'rc    =' syxRC||D2C(10)||,
  23.                  'line# =' sigl||D2C(10)||,
  24.                  'line  = ['sourceline(sigl)']'
  25.   msgbox.Title = 'Syntax Error!'
  26.   msgbox.Style = X2D('4046') /* MB_MOVEABLE|MB_CRITICAL|MB_CANCEL */
  27.   'messageboxv msgbox'
  28.   exit 1
  29.