: 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........