Rev 15353 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 15353 | Rev 17057 | ||
---|---|---|---|
Line 1... | Line -... | ||
1 | - | ||
2 | !for i=1 to $parmcnt |
1 | !for i=1 to $parmcnt |
3 | asklist=$asklist $i |
2 | asklist=$asklist $i |
4 | p=!line 2 of $(parm$i) |
3 | p=!line 2 of $(parm$i) |
5 | p=!translate , to ; in $p |
4 | p=!translate , to ; in $p |
6 | promptlist=!append item $p? to $promptlist |
5 | promptlist=!append item $p? to $promptlist |
7 | parm$i=!replace ?? by $(val$i) in $(parm$i) |
6 | parm$i=!replace ?? by $(val$i) in $(parm$i) |
8 | !next i |
7 | !next i |
9 | 8 | ||
10 | !for i in $storename |
9 | !for i in $storename |
11 | storeval=!append line $($i) to $storeval |
10 | storeval=!append line $($i) to $storeval |
12 | !next i |
11 | !next i |
13 | 12 | ||
14 | remlist=!words2items $asklist |
13 | remlist=!words2items $asklist |
15 |
|
14 | !!!reset gotlist ans1 ans2 ans3 ans4 ans5 ans6 ans7 ans8 ans9 ans10 |
- | 15 | !reset gotlist ans[10] |
|
- | 16 | ||
16 | !bound precision between integer 20 and 100000000 default 10000 |
17 | !bound precision between integer 20 and 100000000 default 10000 |
17 | wims_compare_precision=$precision |
18 | wims_compare_precision=$precision |
18 | thisscore=0 |
19 | thisscore=0 |
19 | status=waiting |
20 | status=waiting |
20 | - |