Path: csiph.com!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail
From: "Zong" <zong@didong.invalid>
Newsgroups: comp.lang.forth
Subject: Re: Q: uBasic/4tH
Date: Tue, 18 Aug 2026 12:14:00 +0200
Lines: 62
Message-ID: <HV6M8TlxXxB@zong>
References: <HUzM33rhXxB@zong> <115uq54$uda4$1@dont-email.me>
Mime-Version: 1.0
Content-Type: text/plain; charset=US-ASCII
X-Trace: individual.net D/BVhF8N/r4Kd5+5CwQNfAPYEQ1zRZ1PjY4iREmNjEtNIvcFn1
Cancel-Lock: sha1:teta/qFbCi3JtE2/zu/zl/D9SpI= sha256:hferlcAABGtwb4Leto1E5tm3JBW/qUwY9sR4N17yL0c=
Xref: csiph.com comp.lang.forth:135361

Hi Hans,

On Mo 17 Aug 26, 13:09 UTC+1, Hans Bezemer wrote:
 
> If I execute "grep -iF dup | wc -l", these are the numbers I get:

> v3.64.1: 197

I found a few more, for example, in epochnow.bas.

> You may have counted the instances instead of the lines, that's okay. :)

Yes, a rough estimate.

[...]

> What do you need to do to restore DUP() functionality? 4 lines.
> https://sourceforge.net/p/forth-4th/code/1811/

> BTW, if you want to sign up to 4tH Google groups, go there and make a
> post. You won't see it, but I see the post, I press the magical button
> and viola -- not only your message appears, you also can post forever. I
> see this happen regularly.

It doesn't seem possible to send a message without logging in.

[...]
> As far as Rosetta Code is concerned -- not all posts have strings. Now,
> I won't chase 200 posts, but if I happen to come along one -- or if
> someone makes me aware of an issue, I'll fix it. No trouble.

> I hope this is satisfactory, if not lemme know!

Thank you very much for your kind and thorough response.


> $ grep -iF dup *.bas
[...]

File: d:\4th\apps\basic\epochnow.bas
    21: @(0) = Dup ("Monday")
    22: @(1) = Dup ("Tuesday")
    23: @(2) = Dup ("Wednesday")
    24: @(3) = Dup ("Thursday")
    25: @(4) = Dup ("Friday")
    26: @(5) = Dup ("Saturday")
    27: @(6) = Dup ("Sunday")
    29: @(7) = Dup ("January")
    30: @(8) = Dup ("February")
    31: @(9) = Dup ("March")
    32: @(10) = Dup ("April")
    33: @(11) = Dup ("May")
    34: @(12) = Dup ("June")
    35: @(13) = Dup ("July")
    36: @(14) = Dup ("August")
    37: @(15) = Dup ("September")
    38: @(16) = Dup ("October")
    39: @(17) = Dup ("November")
    40: @(18) = Dup ("December")
-- 
Zong