Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. REQUIRE ACCEPTHistory ~micro/lib/key/accept.f
  2.  
  3. : REFILL ( -- flag ) \ 94 FILE EXT
  4.   SOURCE-ID IF
  5.     REFILL
  6.   ELSE
  7.     H-STDIN [ H-STDIN ] LITERAL <> IF
  8.       REFILL
  9.     ELSE
  10.       TIB 79 ACCEPT #TIB ! >IN 0! <PRE> -1 EXIT
  11.     THEN
  12.   THEN
  13. ;
  14.  
  15. : MAIN2 ( -- )
  16.   BEGIN
  17.     REFILL
  18.   WHILE
  19.     INTERPRET OK
  20.   REPEAT BYE
  21. ;
  22.  
  23. ' MAIN2 TO <MAIN>
  24.  
  25.