From: sjack@dontemail.me   
      
   mc:) cat /tmp/foo   
   :) toad -q go   
      
   XYZZY WORK   TOAD FORTH  Working disk   
   fload f/ipc.f  OK   
   "ipc" /demo   
   ..   
   CURRENT and CONTEXT are WRK    PREVOC is WRK  BASE: 10   
   Latest: DEMOJOB  HERE : 134591928  UNUSED : 12952   
   S?: empty   
   ---   
      
                                  Demo IPC   
      
   [r] Support   
      
   \ : IPC_PRINT  3 hi( CR I. TYPE ) ;   
   : IPC_PUSH_GSTRING  SS .G@ ;   
   : IPC_PUT_MM  '= SPLIT MMV .PUT ;   
      
   IPC_PRINT is a default action already defined in the   
   IPC vocabulary. The two above actions are intentionally   
   defined in the current WRK vocabulary to be disposed of   
   when new jobs are run; IPC_PRINT remains with the IPC   
   vocabulary.   
      
      
   [r] Start IPC   
      
   FCB1   
   FCB .H @ 0= [IF]   
   "IPC0" IPC .OPEN   
   [THEN]   
      
   IPC   
   ' IPC_PRINT .IS_ACTION   
   .SND echo IPC channel up and running   
   .GET   
    --> IPC channel up and running   
      
      
   [r] Fetch directory from system   
      
   s( (ls -BC|tr "\t" " ") ) ./TRX   
    --> app  d    f   h     job  Makefile  README  s_old  u   
    --> b    demo  fb  IPC0  lib  pad     s     t    vault   
      
      
   [r] Push IPC lines to string stack   
      
   SS  .CLEAR   
   IPC ' IPC_PUSH_GSTRING .IS_ACTION   
   s( (grep -i brown /etc/X11/rgb.txt|tr "\t" " ") ) ./TRX   
   SS .?   
    0: 139  35  35  brown4   
    1: 205  51  51  brown3   
    2: 238  59  59  brown2   
    3: 255  64  64  brown1   
    4: 139 105 105  RosyBrown4   
    5: 205 155 155  RosyBrown3   
    6: 238 180 180  RosyBrown2   
    7: 255 193 193  RosyBrown1   
    8: 165  42  42  brown   
    9: 244 164  96  SandyBrown   
   10: 244 164  96  sandy brown   
   11: 139  69  19  SaddleBrown   
   12: 139  69  19  saddle brown   
   13: 188 143 143  RosyBrown   
   14: 188 143 143  rosy brown   
      
   i.   .P@ TELL --> 139  35  35  brown4   
   i.   .S1 TELL --> 205  51  51  brown3   
   i.   .S2 TELL --> 238  59  59  brown2   
   i. 3 .SN TELL --> 255  64  64  brown1   
      
      
   [r] Put IPC lines in local macro map   
      
   IPC ' IPC_PUT_MM .IS_ACTION   
   OP SMPAD                                           '( +C   
   "grep -i brown /etc/X11/rgb.txt"                      +S   
   "|sed -e 's/\(^.*\)\(\t\)\([[:alnum:]].*$\)/\3=\1/' " +S   
   "-e 's/\([[:alnum:]]\) \([[:alnum:]]\)/\1_\2/'"       +S   
   '|tr "\t" " "'                                        +S   
                                                      ') +C   
   OP SM MPAD C!   
   --   
   -- === FYI   
   i. MPAD COUNT d2. --> 138359809 140   
   i. CR MPAD TELL -->   
   (grep -i brown /etc/X11/rgb.txt|sed -e 's/\(^.*\)\(\t\)\([[:alnum:]].*$\)   
   /\3=\1/' -e 's/\([[:alnum:]]\) \([[:alnum:]]\)/\1_\2/'|tr "\t" " ")   
   -- ===   
   --   
   MMV .CLEAR   
   MPAD DUP COUNT + MPADV .SET    \ fence string   
        IPC ./TRX   
   MM?   
   brown4=139  35  35   
   brown3=205  51  51   
   brown2=238  59  59   
   brown1=255  64  64   
   RosyBrown4=139_105 105   
   RosyBrown3=205_155 155   
   RosyBrown2=238_180 180   
   RosyBrown1=255_193 193   
   brown=165  42  42   
   SandyBrown=244_164  96   
   sandy_brown=244 164  96   
   SaddleBrown=139  69  19   
   saddle_brown=139  69  19   
   RosyBrown=188_143 143   
   rosy_brown=188 143 143   
      
   i. mm sandy_brown swap rot . . . --> 244 164 96   
      
   -fin-   
   Vocabulary list:   
   134589928  SS   
   134589212  IPC   
   134588044  FCB   
   134574756  RTC   
   134573048  VOC_SET   
   134569532  SCRKEY   
   134568500  DIRV   
   134565184  DECOMP   
   134557796  MPADV   
   134557092  FILES   
   134555596  MMV   
   134552668  FIO   
   134539232  WRK   
   134539204  OP   
   134539176  COMMON   
   134539120  TOAD   
   134537440  SYSTEM   
   134534812  BUFS   
   134533884  BUF   
   134529728  EDITOR   
   134521100  FORTH  OK   
      
   --   
   me   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)