Procedure Main() LOCAL nKey LOCAL i LOCAL j CLS i := j := 0 DO WHILE j < 4 nKey := InKey(0) ? ++i, nKey, Chr(nKey) IF nKey == 27 ++j ENDIF ENDDO RETURN