Re: Q: uBasic/4tH

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> (permalink)
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

Show key headers only | View raw

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

Thread

Q: uBasic/4tH "Zong" <zong@didong.invalid> - 2026-08-16 19:21 +0200
  Re: Q: uBasic/4tH Hans Bezemer <the.beez.speaks@gmail.com> - 2026-08-17 13:09 +0200
    Re: Q: uBasic/4tH "Zong" <zong@didong.invalid> - 2026-08-18 12:14 +0200
      Re: Q: uBasic/4tH Hans Bezemer <the.beez.speaks@gmail.com> - 2026-08-18 15:42 +0200
        Re: Q: uBasic/4tH "Zong" <zong@didong.invalid> - 2026-08-19 03:20 +0200
          Re: Q: uBasic/4tH Hans Bezemer <the.beez.speaks@gmail.com> - 2026-08-21 17:10 +0200

csiph-web