The code worked. Here is the output. I see, that we would need to remove lots of bad functions:

* Functions Definitions in C:\MMVISCOLLECT\PROGS\VISCOLLECT_UTILITY.PRG
FUNCTION VisDateList	
LPARAMETERS tdDate, taDateArray, tnFirstDOW, tnLastDOW	
FUNCTION ADDRESS_REPLACE	
PARAMETERS tcString1, tcString2, tcStreet	
FUNCTION Address_NotASaint	
LPARAMETERS tcStreet	
FUNCTION ADDRESS_FixNdTh	
PARAMETERS tcString1	
FUNCTION Instantiate_FoxAudit_Object	
FUNCTION LOOKUP_UPIN_NUMBER	
LPARAMETERS tcUpinNumber	
#INCLUDE \MMVISCOLLECT\INCLUDE\FOXPRO.H	
FUNCTION LOOKUP_SLIC_NUMBER	
LPARAMETERS tcSLicNumber	
#INCLUDE \MMVISCOLLECT\INCLUDE\FOXPRO.H	
FUNCTION secondstotime()	
LPARAMETERS tnSeconds	
ENDFUNC	
FUNCTION VisCodesLookup	
LPARAMETERS txCodeValue, tcCategory, tcSubCategory, tcDepartment_Code, tcWhich_Action	
#INCLUDE \MMVISCOLLECT\INCLUDE\FOXPRO.H	
FUNCTION Get_System_USGRLink	
#INCLUDE \MMVISCOLLECT\INCLUDE\FOXPRO.H	
FUNCTION Create_Phone_Record	
LPARAMETERS tcPhone_Number, tcSourceTable, tcPhoneTable, tcPK, tcPhone_Type_Code	
#INCLUDE C:\MMVISCOLLECT\INCLUDES\FOXPRO.H	
FUNCTION Literal_String	
LPARAMETERS tcCode_Value, tcCharacter_String	
#INCLUDE C:\MMVISCOLLECT\INCLUDES\FOXPRO.H	
FUNCTION Create_Name_Record	
LPARAMETERS tcF_Name, tcL_Name, tcM_Initial, tcSourceTable, tcPK, tcPrefix, tcPostfix, tiAliasFlag, tcName_Type_Code, ;	
	tcAlias_Type_Code, tcAlias_Name_PK	
#INCLUDE C:\MMVISCOLLECT\INCLUDES\FOXPRO.H	
FUNCTION Create_Address_Record	
LPARAMETERS tcSourceTable, tcPK, tcCountry_Code, tcStreet1, tcStreet2, tcStreet3, tcCity, tcState_Code, tcZip_Code, ;	
	tcNYS_County_Code, tcAddress_Type_Code, tiBad_Address_Flag, ttStart_Date, ttEnding_Date, tiTemp_Address_Flag	
#INCLUDE C:\MMVISCOLLECT\INCLUDES\FOXPRO.H	
FUNCTION Load_BoxCodes	
#INCLUDE C:\MMVISCOLLECT\INCLUDES\FOXPRO.H	
FUNCTION LOAD_CHILD_ARRAY	
PARAMETERS tcSpecial_Handling_Memo, gaChildArray	
FUNCTION Load_Child_Table	
PARAMETERS gaChildArray	
FUNCTION Cleanup_Guars_In_TransOld	
FUNCTION GUID	
ENDFUNC	
PROCEDURE BINTOHEX	
LPARAMETERS lcBIN	
ENDPROC	
PROCEDURE HEXTOCHAR	
LPARAMETERS lnHex	
ENDPROC	
FUNCTION UUID	
ENDFUNC	
FUNCTION NewID(tcAlias)	
ENDFUNC	
FUNCTION IncrementBase62(tcValue)	
#DEFINE NINE		57		&& ASC('9')	
#DEFINE CAP_Z		90		&& ASC('Z')	
#DEFINE LOW_Z		122		&& ASC('z')	
ENDFUNC	
FUNCTION IncrementBase10(tcValue)	
ENDFUNC	
FUNCTION GetUpdateStatus	
LPARAMETERS tcFieldName, tcAliasName	
FUNCTION BuildTagName	
LPARAMETERS tcFieldName	
FUNCTION VFENewKey	
LPARAMETERS tcField	
ENDFUNC	
FUNCTION VFEGetBlankValue	
LPARAMETERS tcDataType	
FUNCTION BaseIncrement	
LPARAMETERS ;	
	tcValue	
FUNCTION Base62Increment	
LPARAMETERS ;	
	tcValue	
ENDFUNC	
FUNCTION VFEIncrement	
LPARAMETERS ;	
	tcValue, ;	
	tnPos	
FUNCTION VFEGetDBCXObjectName	
LPARAMETERS ;	
	tcField	
FUNCTION GETUSERID	
FUNCTION GetPCName	
FUNCTION CHECK_REQUIRED_FIELDS	
LPARAMETERS tcAlias_Name, tcRequired_Column1, tcRequired_Column2, tcRequired_Column3, tcRequired_Column4,            ;	
	tcRequired_Column5, tcRequired_Column6, tcRequired_Column7, tcRequired_Column8, tcRequired_Column9,      ;	
	tcRequired_Column10, tcRequired_Column11, tcRequired_Column12, tcRequired_Column13, tcRequired_Column14, ;	
	tcRequired_Column15, tcRequired_Column16, tcRequired_Column17, tcRequired_Column18, tcRequired_Column19, ;	
	tcRequired_Column20, tcRequired_Column21, tcRequired_Column22, tcRequired_Column23, tcRequired_Column24, ;	
	tcRequired_Column25, tcRequired_Column26	
FUNCTION CHECK_REQUIRED_FIELD_VALUE	
LPARAMETERS tcAlias, tcColumnName, tcDataType, tcCheck_Expression	
FUNCTION OneAndOnlyOneItem	
LPARAMETERS tcAliasName, tcColumn1, tcColumn2, tcColumn3, tcColumn4, tcColumn5, tcColumn6, tcColumn7, tcColumn8,       ;	
	tcColumn9, tcColumn10, tcColumn11, tcColumn12, tcColumn13, tcColumn14, tcColumn15, tcColumn16, tcColumn17, ;	
	tcColumn18, tcColumn19, tcColumn20, tcColumn21, tcColumn22, tcColumn23, tcColumn24, tcColumn25, tcColumn26	
FUNCTION Check_Column_Dependency	
LPARAMETERS tcAliasName, tcColumn1, tcColumn2	
FUNCTION Check_At_Least_One_Item	
LPARAMETERS tcAliasName, tcColumn1, tcColumn2, tcColumn3, tcColumn4, tcColumn5, tcColumn6, tcColumn7, tcColumn8,       ;	
	tcColumn9, tcColumn10, tcColumn11, tcColumn12, tcColumn13, tcColumn14, tcColumn15, tcColumn16, tcColumn17, ;	
	tcColumn18, tcColumn19, tcColumn20, tcColumn21, tcColumn22, tcColumn23, tcColumn24, tcColumn25, tcColumn26	
FUNCTION CHECK_COLUMN_CODE_ITEM	
LPARAMETERS txCodeValue, tcCategory, tcSubCategory, tcDepartment_Code, tcWhich_Action	
FUNCTION CHECK_COLUMN_DATA_ITEM	
LPARAMETERS txCodeValue, tcTableName, tcColumnName, tcSeekTagName, tcWhich_Action	
FUNCTION Check_Or_Trigger_Wrapper	
LPARAMETERS tcProcName1, tcProcName2, tcProcName3, tcProcName4, tcProcName5, tcProcName6, tcProcName7, tcProcName8, ;	
	tcProcName9, tcProcName10, tcProcName11, tcProcName12, tcProcName13, tcProcName14, tcProcName15,        ;	
	tcProcName16, tcProcName17, tcProcName18, tcProcName19, tcProcName20, tcProcName21, tcProcName22,       ;	
	tcProcName23, tcProcName24, tcProcName25, tcProcName26, tcProcName27	
#INCLUDE ..\INCLUDES\FOXPRO.H	
FUNCTION CHECK_COLUMN_CODE_EMBEDDED	
LPARAMETERS tcCodeValue, tnCodeLength, tcCategory, tcSubCategory	
FUNCTION CHECK_COLUMN_CODE_EXCLUSIVE	
LPARAMETERS tcCodeValue, tcCategory, tcSubCategory, tcWhich_Action	
FUNCTION Check_Parent_Key	
LPARAMETERS tcAliasName, tcKeyValue, tcCheckedTableName	
#INCLUDE ..\INCLUDES\FOXPRO.H	
FUNCTION NonVisCodesLookup	
LPARAMETERS txCodeValue, tcTableName, tcColumnName, tcReturnColumnName, tcSeekTagName, tcWhich_Action	
FUNCTION SEEK_Parent_Key	
LPARAMETERS tcAliasName, tcKeyValue, tcCheckedTableName	
#INCLUDE ..\INCLUDES\FOXPRO.H	
FUNCTION Check_Date_Field	
LPARAMETERS tcDateTimeColumnName, tcAlias, tcWhich_Action	
#INCLUDE ..\INCLUDES\FOXPRO.H	
FUNCTION Get_Parent_Value	
LPARAMETERS tcColumnName, tcAlias, tcReturnColumnName, tcParentTableName, tcFKColumnName	
#INCLUDE ..\INCLUDES\FOXPRO.H	
FUNCTION FoxAudit	
LPARAMETERS ;	
	tcKey, ;	
	tcObject, ;	
	tcLogLocation, ;	
	tcTag	
PROCEDURE Stopit()	
ENDPROC	
PROCEDURE StopError()	
ENDPROC	
* Definition of age of relation	
define class age as relation	
	PROCEDURE CalcAge	
	LPARAMETERS tdBirth, tdTarget	
	ENDPROC	
ENDDEFINE	
FUNCTION GetFieldSize	
LPARAMETERS tcField, tcAlias	
#DEFINE CASE_INSENSITIVE_ROW_EXACT_ON 15	
FUNCTION xEMPTY()	
LPARAMETERS tuValue	
ENDFUNC	
FUNCTION RunSQL	
LPARAMETERS tcSql, tcHoldCursor, tcIntoClause	
ENDFUNC	
* Definition of cwebbrowser of custom	
define class cwebbrowser as custom	
	PROCEDURE olewebbrowser.Refresh	
	ENDPROC	
	PROCEDURE olewebbrowser.BeforeNavigate2	
	   LPARAMETERS pdisp, url, flags, targetframename, postdata, headers, cancel	
	ENDPROC	
	PROCEDURE olewebbrowser.NewWindow	
	LPARAMETERS ppdisp, cancel	
	ENDPROC	
	PROCEDURE olewebbrowser.NewWindow2	
	LPARAMETERS ppdisp, cancel	
	ENDPROC	
	PROCEDURE olewebbrowser.NewWindow3	
	LPARAMETERS ppdisp, cancel, dwflags, bstrurlcontext, bstrurl	
	ENDPROC	
	PROCEDURE olewebbrowser.ViewPDF	
function jumptoie(){	
	ENDPROC	
ENDDEFINE	

>Because I must go to sleep now :o)))))
>Of cource i must check for ";" not for comma.
>I made an update to my previous post, not for comma thing, but in that line:
>

>case inlist(lcFirstWord, '#', 'lparam','param','enddef','endp','endfu','proc','func','protect','hidden')
>

>
>I changed it to:
>

>case lcFirstWord == '#' OR ;
>     inlist(LEFT(lcFirstWord,4), 'lpar','para','endd','endp','endf','proc','func','prot','hidd')
>

>
>
>but I see now "endf stays for a ENDFOR :o(((