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