>lparameters lcCode, lcPath
>
>*Open up our table of words
>lnWA = select()
>select 0
>use (iif(empty(lcPath), '', lcPath) + 'words')
>
>*Do some basic HTML intializing
>lcCode = strtran(lcCode, chr(9), space(5))
>lcCode = strtran(lcCode, '&', '&')
>lcCode = strtran(lcCode, 'lcCode = strtran(lcCode, '>', '>')
>
>*Create an array ouf of our strings.
>local laLines[1], lcReturn
>alines(laLines, lcCode)
>lcReturn = ''
>
>*Proccess each line
>for lnI = 1 to alen(laLines)
>
>     lcLine = laLines[lnI]
>
>     *Don't even bother the blank ones
>     if empty(alltrim(lcLine))
>          lcReturn = lcReturn + chr(13) + chr(10)
>          loop
>     endif
>
>     *Full Line Comments, first
>     if upper(alltrim(lcLine)) = '*' or;
>          upper(alltrim(lcLine)) = 'NOTE'
>          lcLine = '' + ;
>               lcLine + ''
>
>          *Print line here
>          lcReturn = lcReturn + chr(13) + chr(10) + lcLine
>          loop
>     endif
>
>     *Define vars ahead of time
>     *So they do not always need to be
>     *Calculated in the loops
>     local lcFormat, lnFormatLength, lcFL, ;
>          lcRW, lnRWLength, lnStartRW, lnOccurance
>     lcFormat = ''
>     lnFormatLength = len(lcFormat)
>     lcFL = ' '+ upper(trim(chrtran(lcLine, ':;./\+=-}]()#', space(15)))) + ' '
>
>     *Now end of the line comments
>     local lcDoubleAmp, lnStartComment
>     lcDoubleAmp = '&&' &&This is to test our function
>     lnStartComment = at(lcDoubleAmp, lcLine)
>     if lnStartComment > 0
>          lcLine = stuff(lcLine, lnStartComment, 0, '') + ;
>               ''
>     endif
>
>     *Look at every RW
>     scan
>          wait window nowait 'Line ' + alltrim(str(lnI)) + ;
>               '  RW ' + alltrim(str(recno()))
>          lcRW = ' ' + alltrim(REVWORD) + ' '
>          lnRWLength = len(lcRW) - 2
>
>          *For each occurance of an RW ...
>          lnOccurance = 1
>          lnStartRW = at(lcRW, lcFL, 1)
>          do while lnStartRW > 0 and (lnStartComment = 0 or lnStartRW 
>               *Put in the format tags
>               lcLine = stuff(lcLine, lnStartRW, 0, lcFormat)
>               lcLine = stuff(lcLine, lnStartRW + lnFormatLength + lnRWLength, 0, '')
>               lcFL = ' '+ upper(trim(chrtran(lcLine, ':;./\+=-}]()', space(14)))) + ' '
>
>               lnOccurance = lnOccurance + 1
>               lnStartRW = at(lcRW, lcFL, lnOccurance)
>          enddo
>     endscan
>
>     *Submit the process line
>     lcReturn = lcReturn  + chr(13) + chr(10) + lcLine &&Another InLine Test to use
>endfor
>lcReturn = lcReturn  + '

'
>
>use
>select (lnWA)
>
>return lcReturn