\ --- morse/morse1.fs -----------------------
\ 2011-10-26  EW
\ 2011-11-02  CS
\ arduino duemilanove + danger shield
\ morse code stuff
\ (Potsdam/Augsburg/Oberhausen)

marker --morse--

: _A  kurz lang Zend ;
: _B  lang kurz kurz kurz Zend ;
: _C  lang kurz lang kurz ;
: _D  lang kurz kurz Zend ;
: _E  kurz Zend ;
: _F  kurz kurz lang kurz Zend ;
: _G  lang lang kurz Zend ;
: _H  kurz kurz kurz kurz Zend ;
: _I  kurz kurz Zend ;
: _J  kurz lang lang lang Zend ;
: _K  lang kurz lang Zend ;
: _L  kurz lang kurz kurz Zend ;
: _M  lang lang Zend ;
: _N  lang kurz Zend ;
: _O  lang lang lang Zend ;
: _P  kurz lang lang kurz Zend ;
: _Q  lang lang kurz lang Zend ;
: _R  kurz lang kurz Zend ;
: _S  kurz kurz kurz Zend ;
: _T  lang Zend ;
: _U  kurz kurz lang Zend ;
: _V  kurz kurz kurz lang Zend ;
: _W  kurz lang lang Zend ;
: _X  lang kurz kurz lang Zend ;
: _Y  lang kurz lang lang Zend ;
: _Z  lang lang kurz kurz Zend ;

: SOS _S _O _S  Wend ;

variable o-emit

: morseemit ( key -- )
  dup o-emit @ execute
  dup [char] a = if _A then
  dup [char] b = if _B then
  dup [char] c = if _C then
  dup [char] d = if _D then
  dup [char] e = if _E then
  dup [char] f = if _F then
  dup [char] g = if _G then
  dup [char] h = if _H then
  dup [char] i = if _I then
  dup [char] j = if _J then
  dup [char] k = if _K then
  dup [char] l = if _L then
  dup [char] m = if _M then
  dup [char] n = if _N then
  dup [char] o = if _O then
  dup [char] p = if _P then
  dup [char] q = if _Q then
  dup [char] r = if _R then
  dup [char] s = if _S then
  dup [char] t = if _T then
  dup [char] u = if _U then
  dup [char] v = if _V then
  dup [char] w = if _W then
  dup [char] x = if _X then
  dup [char] y = if _Y then
  dup [char] z = if _Z then
  drop
  Wend
;

: morse
  ['] emit defer@ o-emit !
  ['] morseemit is emit
;

: endmorse
  o-emit @ is emit 
;