1. Forum
  2. USENET
  3. comp.lang.forth

  • Simple demonstration of coroutines.

    From albert@albert@spenarnc.xs4all.nl to comp.lang.forth on Sun Sep 6 12:17:19 2026
    From Newsgroup: comp.lang.forth

    Sans paroles ...

    : TOKYO
    ." HERE TOKYO OVER" CR CO
    ." WHAT GIVES? OVER" CR CO
    ." YES, MORE? OVER" CR CO
    ." OVER AND OUT" CR
    ;

    : AMSTERDAM
    TOKYO
    ." HERE ASTERDAM OVER" CR CO
    ." HAS IT ARRIVED OVER" CR CO
    ." NO. OVER AND OUT" CR
    ;

    ---------------------------------------------------

    ." EXPECT SENSIBLE CONVERSATION:" CR AMSTERDAM

    EXPECT SENSIBLE CONVERSATION:
    HERE TOKYO OVER
    HERE ASTERDAM OVER
    WHAT GIVES? OVER
    HAS IT ARRIVED OVER
    YES, MORE? OVER
    NO. OVER AND OUT
    OVER AND OUT


    TOKYO cannot be optimised.
    Obviously AMSTERDAM can.
    But why and how?

    Groetjes Albert
    --
    The Chinese government is satisfied with its military superiority over USA.
    The next 5 year plan has as primary goal to advance life expectancy
    over 80 years, like Western Europe.
    --- Synchronet 3.22a-Linux NewsLink 1.2
  • From Hans Bezemer@the.beez.speaks@gmail.com to comp.lang.forth on Sun Sep 6 14:55:46 2026
    From Newsgroup: comp.lang.forth

    On 06-09-2026 12:17, albert@spenarnc.xs4all.nl wrote:
    Sans paroles ...

    : TOKYO
    ." HERE TOKYO OVER" CR CO
    ." WHAT GIVES? OVER" CR CO
    ." YES, MORE? OVER" CR CO
    ." OVER AND OUT" CR
    ;

    : AMSTERDAM
    TOKYO
    ." HERE ASTERDAM OVER" CR CO
    ." HAS IT ARRIVED OVER" CR CO
    ." NO. OVER AND OUT" CR
    ;

    ---------------------------------------------------

    ." EXPECT SENSIBLE CONVERSATION:" CR AMSTERDAM

    EXPECT SENSIBLE CONVERSATION:
    HERE TOKYO OVER
    HERE ASTERDAM OVER
    WHAT GIVES? OVER
    HAS IT ARRIVED OVER
    YES, MORE? OVER
    NO. OVER AND OUT
    OVER AND OUT


    TOKYO cannot be optimised.
    Obviously AMSTERDAM can.
    But why and how?

    Groetjes Albert
    Works here with minor 4tH changes! ;-)

    Hans Bezemer

    --- Synchronet 3.22a-Linux NewsLink 1.2