RELEASE ALL LIKE Zn*
LOCAL Zn10,Zn12,Zn13 

LOCAL i, lnCount, lcVarName
lnCount =  0 

CREATE CURSOR varlist (varcount I, varname C( 10 ))
FOR i= 1  TO  999 
	lcVarName = "Zn"+LTRIM(STR(m.i))
	IF TYPE(lcVarName) != "U"
		lnCount = m.lnCount +  1 
		INSERT INTO varlist (varcount,varname) ;
			VALUES (m.lnCount,m.lcVarName)		
	ENDIF
ENDFOR

BROWSE
CLOSE TABLES

RELEASE ALL LIKE Zn*
LOCAL Zn10,Zn12,Zn13,ZnBlaBla

LOCAL i,lcFileName,lcStr,lcVarName
lcFileName = FORCEEXT(ADDBS(SYS( 2023 ))+SYS( 2015 ),"TXT")

CREATE CURSOR varlist (varcount I, varname C( 10 ))

SET SAFETY OFF
DISPLAY MEMORY LIKE Zn* TO FILE (m.lcFileName) NOCONSOLE
lcStr = FILETOSTR(m.lcFileName)
ERASE (m.lcFileName)

FOR i= 1  TO OCCURS("ZN",m.lcStr)
	lcVarName = RTRIM(SUBSTR(m.lcStr, AT("ZN",m.lcStr,m.i), 10 ))
	INSERT INTO varlist (varcount,varname) ;
	VALUES (m.i,m.lcVarName)
ENDFOR

BROWSE
CLOSE TABLES