\* This script provided without warranty
\* Example script reads data file and groups search terms


=> DEL HIS Y
=> FILE REGISTRY

_maxRNs = 15
_innerCount = 0
_storeSearch = "S "
_storeFinal = "S "

ECHO "OPEN Solvent RN file"
OPEN <SOLVENTRNS> /R

@MAINLOOP
  READ _searchterm
  ECHO "Read _searchterm"

IF _searchterm = "*****" THEN   
 GOTO @FINALSEARCH

 _join = ""
IF _innercount > 0 _join = " OR "
_storeSearch = _storeSearch + _join
_storeSearch = _storeSearch + _searchterm
_storeSearch = _storeSearch + "/RN"

 _innerCount = _innerCount + 1

IF _innerCount = _maxRNs THEN
BEGIN
  => _storeSearch

  _innerCount = 0
  _storeSearch = "S "

  IF _storeFinal <> "S " THEN
  BEGIN
  _storeFinal = _storeFinal + " OR "
  END

  _storeFinal = _storeFinal + _$LNUM
END

GOTO @MAINLOOP
  
@FINALSEARCH
 IF _storeSearch <> "S " THEN
 BEGIN
   => _storeSearch

   IF _storeFinal <> "S " THEN
   BEGIN
   _storeFinal = _storeFinal + " OR "
   END

   _storeFinal = _storeFinal + _$LNUM
 END

 => _storeFinal

 => DISPLAY IDE 

 CLOSE
 EXIT