From: sjack@dontemail.me   
      
                                    A FigForth MIX   
      
      
   ( support )   
   ( : i. ."  --> " ; )   
   ( Sample 'MIX'(ish) in high level FigForth )   
   Vocabulary MIX immediate   
   MIX definitions   
      
   : sto  ( n a -- )    ! ;   
   : add  ( n a -- )   +! ;   
   ( 'i:' starts inline definition )   
   i: mov  ( a1 a2 -- ) >r @ r> ! ;   
   i: xor  ( a1 a2 -- ) >r @ r @ forth xor r> ! ;   
   i: xchg ( a1 a2 -- ) dup >r @ over @ r> ! swap ! ;   
   ( some registers )   
   0 variable r1   
   0 variable r2   
      
   ( Test run )   
   MIX   
    1 r1 sto   
   r1 r2 mov   
    1 r2 add   
   i. r1 ? --> 1   
   i. r2 ? --> 2   
      
   r1 r2 xchg   
   i. r1 ? --> 2   
   i. r2 ? --> 1   
      
   r1 r2 xor r2 r1 xor r1 r2 xor   
   i. r1 ? --> 1   
   i. r2 ? --> 2   
      
   -fin-   
    OK   
      
   --- SoupGate-DOS v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)