test.f

: test_OK

CR

." 將指定字串填到輸入流並執行之。。。OK"

CR 

;

s" 2 dup 3 3 4 5 6 7 8 9 0 test_OK " temp$ place

CRLF$ count temp$ +place

: 字串命令執行 ( -- ) 

temp$ count tib swap move

LEN-PREV +TO SOURCE-POSITION

temp$ c@ 

DUP 2 + TO LEN-PREV (SOURCE) !

>IN OFF

.REFILL

;

字串命令執行

\s

FLOAD 'D:\Project\Forth\Win32Forth\Fload\test.f' 

.REFILL

^^^^^^^

Warning(-4101): .REFILL is a system word in an application word in file D:\PROJECT\FORTH\WIN32FORTH\FLOAD\TEST.F at line 16 

將指定字串填到輸入流並執行之。。。OK

ok........

.s [11] 3 4 5 6 7 8 9 0 ok........