Subversion Repositories wimsdev

Rev

Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7692 Rev 13586
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_parms=3\
 5 
slib_parms=3\
6 
  1,m\
 6 
  1,m\
7 
  ,[p1,p2,..pj]\
 7 
  ,[p1,p2,..pj]\
Line 34... Line 34...
34 
!next slib_i
 34 
!next slib_i
35 
slib_q=!append item 1 to $slib_q
 35 
slib_q=!append item 1 to $slib_q
36 
slib_U=!random 0,1 repeat $slib_m
 36 
slib_U=!random 0,1 repeat $slib_m
37 
 
 37 
 
38 
!for slib_i=1 to $slib_m
 38 
!for slib_i=1 to $slib_m
39 
 slib_pr=!item $slib_i of $slib_U
 39 
  slib_pr=!item $slib_i of $slib_U
40 
 slib_j=1
 40 
  slib_j=1
41 
:debut
 41 
  :debut
42 
 slib_a=!item $slib_j  of $slib_q
 42 
  slib_a=!item $slib_j  of $slib_q
43 
 !if $slib_pr >= $slib_a
 43 
  !if $slib_pr >= $slib_a
44 
  !advance slib_j
 44 
    !advance slib_j
45 
  !goto debut
 45 
    !goto debut
46 
 !endif
 46 
  !endif
47 
 
 47 
 
48 
slib_r= !item $slib_j of $slib_v
 48 
  slib_r= !item $slib_j of $slib_v
49 
slib_out=!append item $slib_r to $slib_out
 49 
  slib_out=!append item $slib_r to $slib_out
50 
!next slib_i
 50 
!next slib_i
51 
 
 51 
 
52 
slib_out =!trim $slib_out
 52 
slib_out =!trim $slib_out