Rev 13585 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 13585 | Rev 13594 | ||
|---|---|---|---|
| Line 12... | Line 12... | ||
| 12 | !endif |
12 | !endif |
| 13 | slib_fname=!items2words $wims_read_parm |
13 | slib_fname=!items2words $wims_read_parm |
| 14 | slib_fname=!word 1 of $slib_fname |
14 | slib_fname=!word 1 of $slib_fname |
| 15 | slib_out=!record 0 of $slib_fname |
15 | slib_out=!record 0 of $slib_fname |
| 16 | !if $slib_out=$empty |
16 | !if $slib_out=$empty |
| 17 | !exit |
17 | !exit |
| 18 | !endif |
18 | !endif |
| 19 | slib_out=!nonempty lines $slib_out |
19 | slib_out=!nonempty lines $slib_out |
| 20 | slib_n=!linecnt $slib_out |
20 | slib_n=!linecnt $slib_out |
| 21 | slib_n=!randint 1,$slib_n |
21 | slib_n=!randint 1,$slib_n |
| 22 | slib_out=!line $slib_n of $slib_out |
22 | slib_out=!line $slib_n of $slib_out |