1$!                                              21 November 2004.  SMS.
2$!
3$!    HLP_LIB_NEXT.COM
4$!
5$!    Find the next available HLP$LIBRARY[_*] logical name.
6$!
7$ base = "HLP$LIBRARY"
8$ candidate = base
9$ i = 0
10$!
11$ loop_top:
12$    if (i .gt. 0) then candidate = base+ "_"+ f$string( i)
13$    i = i+ 1
14$    if (f$trnlnm( candidate) .nes. "") then goto loop_top
15$!
16$ write sys$output candidate
17$!
18