home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rdebug21.zip / TELL.CMD < prev    next >
OS/2 REXX Batch file  |  1993-03-25  |  1KB  |  41 lines
  1. /* TELL.KEX 10-21-91 17:45 */
  2.  /*      test seperately
  3.  signal on error
  4.  signal on halt
  5.  signal on syntax
  6.  */
  7.  Parse source sys .
  8.  if      sys='OS/2'  then sys='OS2'
  9.  else if sys='PCDOS' then sys='DOS'
  10.  if (sys='DOS') + (sys='OS2')>0 then pc?=1
  11.  me='tell'
  12.  If arg(1)=? Then Exit tell(me)
  13.  trace o?r  /*T*/
  14.  Parse Arg t
  15.  Parse Var t t , tformat , sample , message
  16.  If tformat<>'' Then Exit tellold(t, tformat, sample, message)
  17.  If (stype='REX')+(stype='CMD')+(stype='EXEC')>0
  18.  Then type='E'; Else type='M'
  19.  If type='M' Then noscreen=''
  20.  If type='M'
  21.  Then class='MACRO'
  22.  else class='PROC'
  23.  if type='E'
  24.  then say  'Tell help not available yet'
  25.  else 'EMSG Tell help not available yet'
  26.  exit 0
  27.  /*
  28.  if sys='DOS' then if dosenv('USERID')='Gil' then    /*T*/
  29.  file = "c:\doc\G"class".DOC"; else do               /*T*/
  30.  */
  31.    If pc? Then file = "\rdebug\R"class".DOC"
  32.    Else file = "R"class "DOC"
  33.  /*
  34.  end                                                 /*T*/
  35.  */
  36.  Push 'MACRO TELLSRCH' t type
  37.       'X' file '(NOPROFILE' noscreen
  38.  Exit 999
  39.  Push 'X' file '(NOPROFILE' noscreen
  40.  exit 0
  41.