\ query: QUERY ( -- ) \ accept a line of input from the user to TIBTIB DUP MAXSTRING ACCEPT (SOURCE) 2!>IN OFF0 TO SOURCE-ID 0 TO SOURCE-POSITION ;0 value f];: _c[ begin bl word count s" ];" str= if -1 to f]; else 0 to f]; then >in @ #TIB @ = f]; or until ;: c[cr begin query _c[ cr f]; until;輸入 c[ ...... ]; 如下 測試
c[ int main(){printf("hello, word!");return 0;}]; ok