09488af869
git-svn-id: svn://kolibrios.org@4867 a494cfbc-eb01-0410-851d-a64ba20cac60
25 lines
360 B
Forth
25 lines
360 B
Forth
REQUIRE ACCEPTHistory ~micro/lib/key/accept.f
|
|
|
|
: REFILL ( -- flag ) \ 94 FILE EXT
|
|
SOURCE-ID IF
|
|
REFILL
|
|
ELSE
|
|
H-STDIN [ H-STDIN ] LITERAL <> IF
|
|
REFILL
|
|
ELSE
|
|
TIB 79 ACCEPT #TIB ! >IN 0! <PRE> -1 EXIT
|
|
THEN
|
|
THEN
|
|
;
|
|
|
|
: MAIN2 ( -- )
|
|
BEGIN
|
|
REFILL
|
|
WHILE
|
|
INTERPRET OK
|
|
REPEAT BYE
|
|
;
|
|
|
|
' MAIN2 TO <MAIN>
|
|
|