多行字串輸入

\ query

: QUERY ( -- ) 

\ accept a line of input from the user to TIB

TIB DUP MAXSTRING ACCEPT (SOURCE) 2!

>IN OFF

0 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[ 

int main()

{

printf("hello, word!");

return 0;

}

];

 ok