\ selfemit2": FORTH : code rewritten / adapted to run in WinForth
\ ( ugly as nice code 'goto NameFieldAddres' not quickly found in WinForth )
: selfemit2": here 4 + CREATE , DOES> @ swap 2* + dup @ emit 1+ @ emit ;
\ Example
selfemit2": MoTuWeThFrSaSu \ Self emitting text
1 MoTuWeThFrSaSu \ Emits Mo
2 MoTuWeThFrSaSu \ Emits Tu
\ ..
7 MoTuWeThFrSaSu \ Emits Su
\ Also generic selfemit": can be made for use as
\ 3 selfemit": MonTueWedThuFriSatSun
\ 2 selfemit": MoTuWeThFrSaSu
\
\ or a complex flexible lenght that splits words at the capital in
\ selfemitF": MondayTuesdayWednesdayThursdayFridaySaturdaySunday
\
\ For other Forth's or more/less characters BE CREATIVE
\ (Code does not work if complete defined string is not stored.
\ I have seen Forth's that only store some characters and a checksum )
\
\ JanJeronimus 29MAR2021
