Rev 20 | Rev 4349 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 20 | Rev 4158 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | slib_title=Randomly selects a number of (different) objects |
- | |
5 | slib_parms=3\ |
- | |
6 | 1,number of objects to select\ |
- | |
7 | item,type of objects (item, row, line, word)\ |
- | |
8 | ,input data\ |
4 | |
9 | slib_author=Gang Xiao |
5 | slib_author=Gang Xiao |
10 | slib_out=the randomly select objects |
- | |
- | 6 | ||
11 | !exit |
7 | !exit |
12 | 8 | ||
13 | :proc |
9 | :proc |
14 | !distribute items $wims_read_parm into slib_n, slib_type |
10 | !distribute items $wims_read_parm into slib_n, slib_type |
15 | slib_data=!item 3 to -1 of $wims_read_parm |
11 | slib_data=!item 3 to -1 of $wims_read_parm |