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