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