Subversion Repositories wimsdev

!nocache

!reset replynames, replytypes, replyoptions, replystyles, replyweights,\

	choicenames, choicegoods, choicebads, choicelists, choiceitemss

!for i=1 to $replycnt

  !read oef/replytype.proc

  replystyle$i=$anstyle

  replynames=$replynames$(replyname$i)\

  replytypes=$replytypes$(replytype$i)\

  replystyles=$replystyles$anstyle\

  ro=!singlespace $(replyoption$i)

  replyoptions=$replyoptions$ro\

  replyweights=$replyweights$(replyweight$i)\

!next i

!for i=1 to $choicecnt

  !for n in name,good,bad,list,items,option,weight

    choice$(n)s=$(choice$(n)s)$(choice$n$i)\

  !next n

!next i

!if $vsavelist=$empty

  !for i=1 to $varcnt+1

    vsavelist=!append item $i to $vsavelist

  !next i

!endif

vsavelist=!nospace $vsavelist

vsave=

!for v in $vsavelist

  vv=!translate internal $\

$ to $	$ in $(val$v)

  vsave=$vsave$(vv)\

!next v