// Minimal GET typing test
FUNCTION Main()
   LOCAL cName
   LOCAL GetList := {}

   cName := Space(10)

   CLS
   @ 2, 5 SAY "Type and press ESC:" GET cName
   ? ""
   ? "GetList len:", Len(GetList)

   // Manual read loop for debugging
   LOCAL oGet, nKey
   oGet := GetList[1]
   ? "Buffer:[" + oGet:cBuffer + "]"
   ? "DispLen:", oGet:nDispLen
   ? "Type:", oGet:cType
   ? "Press key to start edit..."
   Inkey(0)

   oGet:setFocus()

   DO WHILE .T.
      SetPos(oGet:nRow, oGet:nCol + oGet:nPos - 1)
      nKey := Inkey(0)

      ? "Key:", nKey

      IF nKey = 27
         EXIT
      ENDIF

      IF nKey >= 32 .AND. nKey <= 126
         oGet:overStrike(Chr(nKey))
         oGet:display()
         ? "Buf:[" + oGet:cBuffer + "] Pos:", oGet:nPos
      ENDIF
   ENDDO

   oGet:killFocus()
   ? ""
   ? "Result:[" + cName + "]"
   Inkey(0)
   RETURN NIL