Path: ...!weretis.net!feeder9.news.weretis.net!i2pn.org!i2pn2.org!.POSTED!not-for-mail
From: melahi_ahmed@yahoo.fr (ahmed)
Newsgroups: comp.lang.forth
Subject: Re: Back & Forth - Co-routines
Date: Fri, 31 Jan 2025 23:21:19 +0000
Organization: novaBBS
Message-ID: <5659a7f678a314198e62e94b37d08c20@www.novabbs.com>
References: <nnd$2fb29a8e$298ef3f8@23fe4f00fa62d734> <9c16141dfe3c785e316678770e965566@www.novabbs.com> <87plk2y6yf.fsf@nightsong.com> <bd580f4ed3fccbf685ac1955fcdcd356@www.novabbs.com>
MIME-Version: 1.0
Content-Type: text/plain; charset=utf-8; format=flowed
Content-Transfer-Encoding: 8bit
Injection-Info: i2pn2.org;
	logging-data="2094148"; mail-complaints-to="usenet@i2pn2.org";
	posting-account="t+/9LUKLIiUqIe6reyFE7me/EcA/Gr17dRXgwnADesE";
User-Agent: Rocksolid Light
X-Rslight-Site: $2y$10$lPxWcrcF0ZnkUjg1tclAluSw540N8JgG8esY7rhydnUMBJunEAxe2
X-Rslight-Posting-User: 5f6b2e70af503e44dad56966aa15d35bdef29623
X-Spam-Checker-Version: SpamAssassin 4.0.0
Bytes: 1186
Lines: 8

Here is another one:

: blend { b x a -- } 100 x a - b a - */ ;
: tri_mf3.2 { x a b c -- }
   b x a blend b x c blend min 0 max ;

Ahmed

--