LOCAL laSet[1], laLines[1], lcFile, lcCmd lcFile = FORCEEXT(ADDBS(SYS(2023)) + SYS(2015),"TXT") lcCmd = 'SET > "' + m.lcFile + '"' RUN /N4 &lcCmd * may need a slight delay here lnLines = ALINES(laLines, FILETOSTR(m.lcFile)) ERASE (m.lcFile) DIMENSION laSet[m.lnLines, 2] FOR lnLine = 1 TO m.lnLines lcLine = laLines[m.lnLine] laSet[m.lnLine, 1] = GETWORDNUM(m.lcLine, 1, "=") laSet[m.lnLine, 2] = GETWORDNUM(m.lcLine, 2, "=") ENDFOR