home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / TJDMACS.ZIP / GOTO.CMD < prev    next >
OS/2 REXX Batch file  |  1991-07-12  |  206b  |  14 lines
  1. /**/
  2.  
  3. parse arg row, col, .
  4. return Dogoto(row, col);
  5.  
  6. Dogoto:    PROCEDURE
  7.      parse arg row, col
  8.  
  9.      esc = d2c(27) || '[';
  10.  
  11.      stream = esc || row || ';' || col || 'f';
  12.      return stream;
  13.  
  14.