demo6.th

来自「1984-1993模糊 C 源代码竞赛.zip 非常的好,不过这是DOS格式,」· TH 代码 · 共 19 行

: foobar
  2
  [ 2 ,		  ( '[' turns the compiler off, allowing us to execute code )
    1 1 1 + + ,   ( and we compile in-line a 2 and a three )
		  ( the '2' means 'push the number following this' )
  ]
  + . cr
;

foobar

: 'foobar ' foobar ;    ( ' can only be run inside the compiler )
			( ' leaves the address of the following word
			    on the stack )

'foobar . cr

'foobar dump