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