Могу предложить начать писать Форт с ШК на Си или Паскале. Тишина пропадет.

: READ-FILE(std) \ addr kv h -- size err|0
   2/(33x3^4R<)34120 ReadFile API-ERR
   R> SWAP

;

: INCLUDE-FILE \ ADDR U -- ?? -1|0
   MOVE->R \ addr u -- (p) 0 str |p D: addr1 u
   2DUP FILE-EXIST
   IF   TRANSLATE-FILE

   ELSE    S" DEVEL/"   
      1/(2#R0-)1R0
      0/(2^0^)0
      MOVE
      0/(3#30+2#1R<2^)013
      2DUP FILE-EXIST
      IF   3/10   TRANSLATE-FILE

      ELSE   2DROP
         1/(2#R1<2^)10
         S" SCRIPT/"
         1/(2#R0-)1R0
         0/(2^0^)0
         MOVE
         0/(3#30+2#1R<2^)013
         2DUP FILE-EXIST

         IF   3/10   TRANSLATE-FILE

         ELSE 2DROP 2DROP 0 0/(R#) EXIT
         THEN
      THEN
   THEN
   -1 0/(R#)

;

{$D+,U-}

module forth;

use iostd, putnum, math;

{$U-}

var
  first_word;

sub ''
  inline(
    0x83, 0xC5, 0x0A  { add bp, 10 }     
)ret

sub TRUE 0xFFFF ret
sub FALSE 0x000 ret


sub BYE
  inline(
    0xCD, 0x20
)ret

sub NOT var x*;
  if x==0 then
    TRUE
  else
    FALSE
  fi
ret


sub GEA var A*;
  @A=A+5;
  while byte(A) do inc(@A) wend
  A+1
ret

sub WORDS var pt;
  @pt = first_word;
  while pt<>0 do
    puthex(word(pt));bl;
    putword(byte(pt+2));bl;
    putword(byte(pt+3));bl;
    putword(byte(pt+4));bl;
    putchar(34);putstring(pt+5);putchar(34);cr;
    @pt=word(pt)
  wend
ret

vect FIND var pos,name*,ofs*;
  @pos = first_word
  while pos<>0 do
    if strequal(name,pos+5) then
      ofs = pos
      exit
    fi     
    @pos = word(pos)
  wend
  ofs = 0
ret
     
var
  state<0>,
  tib[80],
  _tib<tib>,
  here,
  base<16>; 


sub STATE
  @state
ret

sub BASE
  @base
ret

sub HERE
  here
ret
 

sub EXECUTE
  inline(
    0x8B, 0xD8,    { mov bx, ax   }
    0x58,      { pop ax   }
    0xFF, 0xD3     { call bx   }
)ret


sub isBLANK var b;
  @b=byte(_tib);
  b == 32 | b==10 | b==13
ret

vect WORD
  while isBLANK do inc(@_tib) wend
  _tib;
  if byte(_tib) then
    while NOT(isBLANK) do inc(@_tib) wend
    _tib letb 0;
    inc(@_tib);
  fi
ret
 

sub '.'
  puthex;
  bl
ret

vect NUMBER var a*,w<0>,d;
  while byte(a) do
    @d=byte(a)-48
    if d<0 then FALSE exit fi
    if d>9 then
      @d=d-7
      if d>0xF | d<0xA | d>base-1 then FALSE exit fi
    fi
    @w=w*base+d;
    inc(@a)
  wend
  w;
  TRUE 
ret


sub ALLOT var len*;
  @here=here+len
ret

sub cbyte var b*;
  here letb b;
  ALLOT(1)
ret

sub cword var w*;
  cbyte(lo(w));
  cbyte(hi(w));
ret

vect CREATE var w,i;
  @w=WORD;
  cword(first_word);
  @first_word=here-2;
  cbyte(27);cbyte(0);cbyte(0);
  @w=w-1;
  repeat
    inc(@w);
    cbyte(byte(w));
  until byte(w)==0 loop
ret


sub IMMEDIATE var aw*;
  aw+3 letb 1
ret

vect INTERPRET var w, ofs, oldofs;
  do
    @w=WORD;
    FIND(w,@ofs);
    if ofs==0 then
      if NOT(NUMBER(w)) then
        putstring('??? ');
        putstring(w);
        cr
      elsif state then
        cbyte(0x50);
        cbyte(0xB8);
        cword;
      fi
    else
      @oldofs=ofs;
      @ofs=GEA(ofs)
      if state & byte(oldofs+3)<>1 then
        cbyte(0xE8);
        cword(ofs-here-2);
      else
        EXECUTE(ofs)
      fi
    fi 
    if strequal(w,'') then exit fi
  loop 
ret

sub ','
  cbyte
ret

sub main
  @first_word = @main - 10;
  @here = @main + 0xF0;
  do
    putstring('Forth-D2>');
    @_tib = @tib;
    getstring(_tib);
    INTERPRET
    if state then
      putstring('ERROR');
    else
      putstring('Ok')
    fi cr
  loop
ret

end

CALL: WndProc
  ( lParam wParam Msg hWnd -- ... n )
  OVER
  CASE
    WM_DESTROY OF 0 PostQuitMessage ( DROP ) 0 EXIT ENDOF
    WM_COMMAND OF
                 DROP DROP
                 CASE
                   ID_OPEN OF MENU-OPEN ENDOF
                   ID_SAVE OF MENU-SAVE ENDOF
                   ID_EXIT OF 0 PostQuitMessage ( DROP ) ENDOF
                   DUP 10 U<
                   IF
                     >R
                     0 0 BM_GETCHECK R hCheck @ SendMessageA
                     0= R GroupKey-ON/OFF
                     IF
                       0 >H R hGroup @ SetWindowTextA DROP
                       ZKEY R hKey   @ SetWindowTextA DROP
                     THEN
                     R>
                   THEN
                 ENDCASE
                 0 EXIT
               ENDOF
  ENDCASE
  DefWindowProcA
;