From Newsgroup: comp.lang.forth

DX-Forth is a Forth language compiler and development system
for MS-DOS and CP/M-80 operating systems. It is intended to
be a complete, easy to use, programming tool for the creation
of turnkey applications.

What's new:

+ added - removed * fixed ! changed = updated

v4.64 2026-05-25

+ -CHAR ?FREE
+ Key codes (KEYS.SCR)
+ Quad number package (QUAD.SCR)
+ Double number package (DOUBLE.SCR)
+ Floating point locals (FLOCALS.SCR)
+ Forth Inc punctuation (PUNCT.SCR)

+ Support for low TPA systems (see README.1ST) (CP/M)

Download:

DXCPM464.ZIP (CP/M-80)
DXDOS464.ZIP (MS-DOS)

https://drive.google.com/drive/folders/1kh2WcPUc3hQpLcz7TQ-YQiowrozvxfGw

* Cross-posted to comp.lang.forth, comp.os.cpm
--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.forth

On 25-05-2026 07:32, dxf wrote:

+ -CHAR ?FREE
+ Key codes (KEYS.SCR)
+ Quad number package (QUAD.SCR)
+ Double number package (DOUBLE.SCR)
+ Floating point locals (FLOCALS.SCR)
+ Forth Inc punctuation (PUNCT.SCR)

I bet your "END" equals my ";THEN" (aka "THEN EXIT")?

Hans Bezemer

--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.forth

On 7/06/2026 12:35 am, Hans Bezemer wrote:

On 25-05-2026 07:32, dxf wrote:

+-a -CHAR ?FREE
+-a Key codes (KEYS.SCR)
+-a Quad number package (QUAD.SCR)
+-a Double number package (DOUBLE.SCR)
+-a Floating point locals (FLOCALS.SCR)
+-a Forth Inc punctuation (PUNCT.SCR)

I bet your "END" equals my ";THEN" (aka "THEN EXIT")?

If you mean "EXIT THEN" then yes :)

I've had END for about 10 years ago and it's been used a lot. Moore
realized most use of 'ELSE' was in fact redundant - why branch to the
end of a definition when one can simply EXIT? While 'EXIT THEN' has
been around forever and one sees it used occasionally, it's a bit of
a mouthful. I chose the name 'END' as a) it fits and b) it hadn't
been used in forth since the mid/late 70's. END was the original
name for UNTIL .

--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.forth

On 07-06-2026 04:29, dxf wrote:

I bet your "END" equals my ";THEN" (aka "THEN EXIT")?

If you mean "EXIT THEN" then yes :)

Yeah - a case of brain fog. I'm getting older. It happens :(

I've had END for about 10 years ago and it's been used a lot. Moore
realized most use of 'ELSE' was in fact redundant - why branch to the
end of a definition when one can simply EXIT?

In my case it was a neat way to do "tail call recursion". If the last
word of the "IF" part could be replaced by a "BRANCH" it was faster and tighter. I added it on June 8th, 2017. Not quite 10 years, but close
enough ;-)

While 'EXIT THEN' has
been around forever and one sees it used occasionally, it's a bit of
a mouthful. I chose the name 'END' as a) it fits and b) it hadn't
been used in forth since the mid/late 70's. END was the original
name for UNTIL .

I supported "END" as well. Can't say in what capacity because I removed
it November 1st, 1997 -- along with "ENDIF" and "R". ;-)

BTW, ported parts of QUAD.SCR to 4tH. And wrote a TTESTER file for it
(if you're interested). Hope you don't mind. Of course -- full credits
in the source.

But that's why the "END" question came up!

Hans Bezemer

--- Synchronet 3.22a-Linux NewsLink 1.2

From Newsgroup: comp.lang.forth

On 7/06/2026 10:14 pm, Hans Bezemer wrote:

...
BTW, ported parts of QUAD.SCR to 4tH. And wrote a TTESTER file for it (if you're interested). Hope you don't mind. Of course -- full credits in the source.

But that's why the "END" question came up!

I was curious as to the connection :) Thanks for the tester! While I do
some tests, getting me to do formal testing is a bit like herding cats. I figure I'll find bugs - sooner if I use the thing. While I didn't expect
to use QUAD anytime soon, I did spot a typo/bug whose fixing led to various improvements elsewhere in the distribution. Silver linings and all that...

--- Synchronet 3.22a-Linux NewsLink 1.2