home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 35 Internet
/
35-Internet.zip
/
ircii30.zip
/
script
/
repeat
< prev
next >
Wrap
Text File
|
1994-07-30
|
298b
|
21 lines
# Use a simply while loop to repeat a command.
alias repeat {
@ rep.cnt = [$0]
while ( rep.cnt > 0 )
{
$1-
@rep.cnt = rep.cnt - 1
}
^assign -rep.cnt
}
# Do the samn thing with recursion See.. SET MAX_RECURSIONS
alias recrepeat {
if ([$0] > 0)
{
$1-
recrepeat ${[$0] -1} $1-
}
}