Subversion Repositories wimsdev

!for i=1 to $parmcnt

  asklist=$asklist $i

  p=!line 2 of $(parm$i)

  p=!translate , to ; in $p

  promptlist=!append item $p? to $promptlist

  parm$i=!replace ?? by $(val$i) in $(parm$i)

!next i

!for i in $storename

  storeval=!append line $($i) to $storeval

!next i

remlist=!words2items $asklist

!!!reset gotlist ans1 ans2 ans3 ans4 ans5 ans6 ans7 ans8 ans9 ans10

!reset gotlist ans[10]

!bound precision between integer 20 and 100000000 default 10000

wims_compare_precision=$precision

thisscore=0

status=waiting