STORE ' ' TO PLINE
STORE COL() TO COL
DO WHILE .T.
PRESSED = INKEY() 
IF PRESSED = 0
 LOOP
ELSE
 STORE PLINE + STR(PRESSED,3,0) TO PLINE
 IF PRESSED = 13
  EXIT
 ENDIF
 @ ROW(),COL SAY CHR(PRESSED)
 STORE COL+1 TO COL
 LOOP
ENDIF
ENDDO
STORE LTRIM(PLINE) TO PLINE
DO WHILE .T.
STORE CHR(VAL(SUBSTR(PLINE,1,3))) TO QQ
STORE SUBSTR(PLINE,4,9999) TO PLINE
IF LEN(TRIM(PLINE)) < 3
 EXIT
ENDIF
ENDDO
RETURN