Rev 546 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 546 | Rev 15353 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | ask=!item 1 of $ask |
1 | ask=!item 1 of $ask |
| 2 | !if $ask notitemof $remlist |
2 | !if $ask notitemof $remlist |
| 3 | ask= |
3 | ask= |
| 4 | !exit |
4 | !exit |
| 5 | !endif |
5 | !endif |
| 6 | 6 | ||
| 7 | comment= |
7 | comment= |
| 8 | !read $deffile info |
8 | !read $deffile info |
| 9 | !if $(weight$ask)<0 |
9 | !if $(weight$ask)<0 |
| 10 | badask=yes |
10 | badask=yes |
| 11 | badname=!line 1 of $(parm$ask) |
11 | badname=!line 1 of $(parm$ask) |
| 12 | !default comment=!line 4 of $(parm$ask) |
12 | !default comment=!line 4 of $(parm$ask) |
| 13 | ask= |
13 | ask= |
| 14 | !exit |
14 | !exit |
| 15 | !endif |
15 | !endif |
| 16 | 16 | ||
| 17 | gotlist=!append item $ask to $gotlist |
17 | gotlist=!append item $ask to $gotlist |
| 18 | remlist=!listcomplement $ask in $remlist |
18 | remlist=!listcomplement $ask in $remlist |
| 19 | ask= |
19 | ask= |
| 20 | - | ||