1 &version 2
 2 &-
 3 &- HISTORY COMMENTS:
 4 &-  1) change(87-07-27,GDixon), approve(87-07-27,MCR7679),
 5 &-     audit(87-07-27,Brunelle), install(87-08-04,MR12.1-1055):
 6 &-     Created.
 7 &-                                                      END HISTORY COMMENTS
 8 &-
 9 &set WDIR &[wd]
10 cwd &ec_dir
11 
12 &print Sort info segments in the directory.
13 l_set_ring_brackets ** 4 5 5
14 create_dir &!
15 move **.info &!>== -force
16 cwd &!
17 move ([sort_strings -asc [segments **]]) <== -force
18 cwd <
19 delete_dir &! -force
20 l_set_ring_brackets ** 1 5 5
21 
22 &print Relink the links in the directory.
23 unlink **.info -brief
24 do "link [dir &ec_dir]>login_info>&&1.info &&1.info;
25 &+  copy_names [dir &ec_dir]>login_info>&&1.info &&1.info"
26 &+ (hangup access_class echo hello modes noecho terminal_id terminal_type)
27 do "link >doc>subsystem>ssu.&&1.info &&1.info;
28 &+  addname &&1.info -brief
29 &+   [after ([status -names >doc>subsystem>ssu.&&1.info]) ssu.]"
30 &+ (help list_help list_requests)
31 cwd &(WDIR)
32 &quit