pro cnvt2semic,infile,outfile
;+
; NAME:
;   CNVT2SEMIC
; PURPOSE:
;   This procedure converts any file to one that begins with a ';+', has
;   as ';' at the begnning over every line and ends with ';-' so that is
;   becomes usable in the help facility.
; CALLING SEQEUNCE:
;  cnvt2semic,infile,outfile
;-

  openr,1,infile
  openw,2,outfile

  printf,2,';+'
  printf,2,';'

  lin=''

  while not EOF(1) do begin
    readf,1,lin
    if (strmid(lin,0,1) eq '-') then lin=' '+lin
    printf,2,';'+lin
    endwhile

  printf,2,';'
  printf,2,';-'

  close,/all
  return
end