-defConst("TIB", TIB)
-NUMTIB, NUMTIB_CFA = defNewVar("#TIB", 0)
-TOIN, TOIN_CFA = defNewVar(">IN", 0)
-EOF = defConst("EOF", 4)
-
-KEY = defPrimWord("KEY", () -> begin
- if mem[TOIN] >= mem[NUMTIB]
- mem[TOIN] = 0
-
- if !eof(currentSource())
- line = readline(currentSource())
- mem[NUMTIB] = length(line)
- putString(line, TIB)
- else
- mem[NUMTIB] = 1
- mem[TIB] = EOF
- end