1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
!set anstype=yes
!set anstyle=mc
!set ans_require=
!if $wims_read_parm=def
!exit
!endif
!set input_rg=!rows2lines $(replygood$i)
!set input_rg=!line 2 to -1 of $input_rg
!set input_icnt=!itemcnt $input_rg
!if $input_icnt<2
!exit
!endif
!if $wims_read_parm!=noprompt
<tr><td><label for="reply$i">$(replyname$i)</label></td><td>
!endif
!bound inputsize between integer 1 and 100 default $
!if $inputsize!=$empty and $inputsize<=$input_icnt
!set menuitem=!item $inputsize of $input_rg
!default prompt_=$menuitem
!set prompt_=!imgrename $prompt_
!href cmd=reply&reply$i=~$inputsize $prompt_
!else
!! option=shuffle
!set itemlist=!makelist x for x = 1 to $input_icnt
!if shuffle iswordof $(replyoption$i)
!set itemlist=!shuffle $itemlist
!endif
!for i_=1 to $input_icnt
!set ii_=!item $i_ of $itemlist
!set l_=!item $ii_ of $input_rg
!set l_=!imgrename $l_
!href cmd=reply&reply$i=~$ii_ $l_
!if $i_<$input_icnt
,
!endif
!next i_
!endif
!reset inputsize
!if $wims_read_parm!=noprompt
</td></tr>
!endif
!set oef_formnosubmit=yes
|
