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=!items2words $ro
 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