Rev 23 | Go to most recent revision | 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 |
||
| 3 | ask= |
||
| 4 | !exit |
||
| 5 | !endif |
||
| 6 | |||
| 7 | comment= |
||
| 8 | !read $deffile info |
||
| 9 | !if $(weight$ask)<0 |
||
| 10 | badask=yes |
||
| 11 | badname=!line 1 of $(parm$ask) |
||
| 12 | !default comment=!line 4 of $(parm$ask) |
||
| 13 | ask= |
||
| 14 | !exit |
||
| 15 | !endif |
||
| 16 | |||
| 17 | gotlist=!append item $ask to $gotlist |
||
| 18 | remlist=!listcomplement $ask in $remlist |
||
| 19 | ask= |
||
| 20 |