LOCAL lFlagused

CREATE TABLE New1 FREE (NEWQ C(10))

IF .NOT USED("ttable1")
   USE ttable1 IN 0
   lFlagused = .t.
ENDIF

SELECT ttable1
nCntFields = AFIELDS(aFlds)
FOR nCnt = 1 TO nCntFields
    IF LOWER(LEFT(aFlds[nCnt,1]),1) == "q" && I missed How many positions from LEFT to extract
       INSERT INTO New1 VALUES (aFlds[nCnt,1])
    ENDIF
NEXT

IF lFlagused
   USE IN SELECT("ttable1")
ENDIF