1 03/11/76   edit extract, edit ext
 2 
 3 Function:  The extract request deletes from the current file all but
 4 the line numbers specified as arguments.
 5 
 6 
 7 Syntax:  edit extract line1 { line2 ...lineN}
 8 
 9 
10 where each linei is either a single line number or a range of lines.
11 
12 
13 Example:
14 
15 !    new newfile
16      ready  1111
17 
18 !    10  do 100 item = 1,10
19 !    11  call r_$u(a_num)
20 !    12  namt = 1000*a_num+50
21 !    13  i = i+1
22 !    .
23 !    .
24 !    .
25 !    17  call r_$u(w_ch)
26 !    18  i = w_ch*9
27 
28 !    edit extract 10,14-15
29      ready  1111
30 
31 !    lisn
32 
33      10  do 100 item = 1,10
34      17  call r_$u(w_ch)
35      18  i = w_ch*9
36      ready  1112