home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rdebug21.zip / RDBUIEXT.OS2 < prev    next >
Text File  |  1993-03-23  |  1KB  |  28 lines
  1.  /*!  m.7.A_=  ="'dup'"  */
  2.  m.7.C_A  ="'sos lineadd marginl'"
  3.  m.7.C_B  ="'mark box'"
  4.  m.7.C_C  ="'copy block'" /*!;if rc = 0 then 'reset block'*/
  5.  m.7.C_D  ="'sos linedel'"
  6.  m.7.C_F  =" Do forever;say 'Enter fill character';'readv key'",
  7.    "  if readv.2 \== '' then leave;end;'fill' readv.2"
  8.  m.7.C_G  ="'delete block'"
  9.  m.7.C_J  ="If \command() then 'join aligned'"
  10.  m.7.C_K  ="'copy block'"
  11.  m.7.C_L  ="'mark line'"
  12.  m.7.C_M  ="'move block';if rc = 0 then 'reset block'"
  13.  m.7.C_O  ="'overlaybox'"
  14.  m.7.C_R  ="'recover'"
  15.  m.7.C_S  =" If \command() then 'split aligned'"
  16.  m.7.C_U  ="'reset block';'reset thighlight'"        /*5*/
  17.  m.7.C_X  ="If \dir() | dirfileid.1()='' then exit",
  18.    "  if pos('<dir>',curline.3())=0 then 'k' dirfield.1() '(nodefext'",
  19.    "  else 'dir' dirfield.1()"
  20.  m.7.C_END ="'sos delend'"
  21.  m.7.C_PGDN="'bottom';'sos makecurr'"
  22.  m.7.C_PGUP="'top';'sos makecurr'"
  23.  m.7.S_F5  ="'uppercase block'"
  24.  m.7.S_F6  ="'lowercase block'"
  25.  m.7.S_F7  ="'shift left 1 block'"
  26.  m.7.S_F8  ="'shift right 1 block'"
  27.  return 0
  28.