$ Form_Fld_Abstract = "AltaVista.,gives you.,access to the.,largest Web index" 
$ show sym Form_Fld_Abstract
$! CR[0,8] = %D13
$ space = " "
$ CR = "."
$ c = 1
$ form_fld = ""
$ startpos = 0
$ text1:
$ newfield'c' = "" 
$ crloc = f$loc(CR,Form_Fld_Abstract) - startpos
$ newfield'c' = f$extract(startpos,crloc,Form_Fld_Abstract)
$ form_fld = form_fld + newfield'c' + " "
$ savestart = startpos
$ if crloc+savestart .ge. f$len(Form_Fld_Abstract) then goto flag1
$ startpos = f$loc(CR,Form_Fld_Abstract) + 2
$ Form_Fld_Abstract[crloc+savestart,1] := 'space'
$ c = c + 1
$ if c .ge. 100 then goto flag1
$ goto text1
$ flag1:
$ Form_Fld_Abstract = form_fld
$ show sym Form_Fld_Abstract
$ exit

