home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / seedump.zip / SAMPLES / INTEL.BAG < prev    next >
Text File  |  1995-07-27  |  328b  |  16 lines
  1. /*
  2.  * Author : a priori computer solutions GmbH
  3.  * Title  : Rexx-Utility
  4.  * Notice : Written 1995, the 27th of July
  5.  */
  6.  
  7. /* intel: procedure */
  8.   do k = 1 to arg(3)
  9.     j.k = substr(arg(1),arg(2)+k,1)
  10.   end
  11.   if arg(3) = 4 then
  12.     j = j.4 || j.3 || j.2 || j.1
  13.   if arg(3) = 2 then
  14.     j = j.2 || j.1
  15.   return j
  16.