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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
!set anstype=yes
!set anstyle=mc
!set ans_require=
!set name_choose_code=??????
!if $wims_read_parm=def
!exit
!endif
!set detag_check=!getopt detag in $(replyoption$i)
!if $detag_check!=$empty
!set replygood$i=!detag $(replygood$i)
!!set menulist=!detag $menulist
!endif
!set input_rg=!rows2lines $(replygood$i)
!set input_1=!line 1 of $input_rg
!set input_rg=!line 2 to -1 of $input_rg
!set input_icnt=!itemcnt $input_rg
!if $input_icnt<2
!exit
!endif
!if debug iswordof $m_oefenv and ?analyze notin $(replygood$i) \
and $(reply$i)=$empty
!set replydefaulted=yes
!if $oef_default=yes
!default reply$i=!item $input_1 of $input_rg
!endif
!endif
!if shuffle iswordof $(replyoption$i)
!default anstype_shuffle_$i=!shuffle $input_icnt
!set input_rg=!item $(anstype_shuffle_$i) of $input_rg
!endif
!if sort iswordof $(replyoption$i)
!set input_rg=!sort items $input_rg
!endif
!set input_rg2=!replace internal &# by &# in $input_rg
!if $replydefaulted=yes and $oef_default=yes
!set reply$i=!replace internal &# by &# in $(reply$i)
!endif
!if $wims_read_parm!=noprompt
<tr><td>$(replyname$i)</td><td>
!endif
!set select_multiple_check=!getopt multiple in $(replyoption$i)
!if $select_multiple_check !=
!set formselect_switch_back=$wims_formselect_switch
!bound select_multiple_check between integer 4 and 20 default 8
!set wims_formselect_switch=multiple size=$[min($input_icnt,$select_multiple_check)]
!formselect reply$i list $input_rg2 prompt $input_rg
!set wims_formselect_switch=$formselect_switch_back
!else
!formselect reply$i list $name_choose_code,$input_rg2 prompt $ch_choose,$input_rg
!endif
!if $wims_read_parm!=noprompt
</td></tr>
!endif
!set oef_answer_option$i=$(inputprompt$i)
|
