home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 3 / CDASC03.ISO / sorties / 2078 / onlysel.kex < prev    next >
Text File  |  1993-04-01  |  653b  |  17 lines
  1. *┌───────────────────────────────────────────────────────────────────────┐
  2. *│ generalized ALL > target (..) SELect1 target                                  │
  3. *└───────────────────────────────────────────────────────────────────────┘
  4. 'all';
  5. if ARG() then
  6.     do
  7.     'top'; 'preserve'; 'set wrap OFF'; 'set stay OFF'; 'set scope ALL';
  8.     do forever
  9.         'extract /LINE'; 'nomsg locate' ARG(1); if RC \= 0 then leave;
  10.         if LINE.1() <= LINE.1 then 'locate :'LINE.1+1; if FOCUSEOF() then leave;
  11.     end
  12.     'restore';
  13.     end
  14. 'set display' SELECT.2(); 'top'; 'locate 1'; S = NBSCOPE.1()
  15. if S = SIZE.1() then 'emsg ONLYSEL nothing excluded';
  16. else 'msg ONLYSEL' S 'line(s) in scope';
  17.