In article <667547b4$1@news.ausics.net>, dxf   wrote:   
   >On 20/06/2024 8:10 pm, albert@spenarnc.xs4all.nl wrote:   
   >> ...   
   >> CREATE CRCTable   
   >> 100 0 DO   I 8 0 DO   
   >>     DUP >R   1 RSHIFT   R> 1 AND IF CRC64_POLYNOMIAL XOR THEN   
   >> LOOP ,   LOOP   
   >> This IMO is the most useful application.   
   >   
   >One hopes not since ...   
   >   
   >CREATE CRCTable  100 CELLS ALLOT   
   >   
   >: !CRC ( -- )  CRCTable  100 0 DO   I 8 0 DO   
   >    DUP >R   1 RSHIFT   R> 1 AND IF CRC64_POLYNOMIAL XOR THEN   
   >  LOOP  OVER !  CELL+  LOOP  DROP ;  !CRC  FORGET !CRC   
   >   
      
   A political correct versies for gforth would be   
      
   "   
       CREATE CRCTable  100 CELLS ALLOT   
       MARKER FORGET-MARKER   
      
       :NONAME CRCTable  100 0 DO   I 8 0 DO   
           DUP >R   1 RSHIFT   R> 1 AND IF CRC64_POLYNOMIAL XOR THEN   
         LOOP  OVER !  CELL+  LOOP  DROP ; EXECUTE   
      
       FORGET-MARKER   
   "   
      
   ( FORGET is no longer in gforth.)   
      
   Groetjes Albert   
   --   
   Don't praise the day before the evening. One swallow doesn't make spring.   
   You must not say "hey" before you have crossed the bridge. Don't sell the   
   hide of the bear until you shot it. Better one bird in the hand than ten in   
   the air. First gain is a cat purring.            - the Wise from Antrim -   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)