From: the.beez.speaks@gmail.com   
      
   On 26-07-2025 03:50, dxf wrote:   
      
   4tH   
     0 -> 0  1   
   10 -> 6  1   
     0 -> 0  1   
     1 -> 0  0   
      
   Note "TRUE" in 4tH is simply "1", not "-1". Obviously 4tH prioritizes   
   the first statement of the specification as well.   
      
   Changes to the program:   
   - Inclusion of the ANS FILE wordset;   
   - : page 27 emit ." [2J" ;   
      
   Hans Bezemer   
      
      
   > 0 value fid   
   >   
   > : print cr rot 2 .r ."  ->" swap 2 .r 3 .r ;   
   >   
   > : test   
   > s" foo.txt" r/w create-file throw to fid   
   > s" foobar" fid write-file throw   
   > fid close-file drop   
   >   
   > s" foo.txt" r/o open-file throw to fid   
   > page   
   > 0  pad over fid read-line throw print   
   > 10 pad over fid read-line throw print   
   > 0  pad over fid read-line throw print   
   > 1  pad over fid read-line throw print   
   > fid close-file drop cr   
   > ;   
   >   
   > test   
   >   
   > \\   
   >   
   > SwiftForth   
   >   0 -> 0 -1   
   > 10 -> 6 -1   
   >   0 -> 0  0   
   >   1 -> 0  0   
   >   
   > VFX   
   >   0 -> 0 -1   
   > 10 -> 6 -1   
   >   0 -> 0 -1   
   >   1 -> 0  0   
   >   
   > Gforth   
   >   0 -> 0 -1   
   > 10 -> 6 -1   
   >   0 -> 0 -1   
   >   1 -> 0  0   
   >   
   > NTF   
   >   0 -> 0 -1   
   > 10 -> 6 -1   
   >   0 -> 0 -1   
   >   1 -> 0  0   
   >   
   > Win32Forth   
   >   0 -> 0 -1   
   > 10 -> 6 -1   
   >   0 -> 0  0   
   >   1 -> 0  0   
   >   
   >   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)