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

  • ANN: DX-Forth 4.64

    From dxf@dxforth@gmail.com to comp.lang.forth,comp.os.cpm on Mon May 25 15:32:23 2026
    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 Hans Bezemer@the.beez.speaks@gmail.com to comp.lang.forth,comp.os.cpm on Sat Jun 6 16:35:07 2026
    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 dxf@dxforth@gmail.com to comp.lang.forth on Sun Jun 7 12:29:36 2026
    From Newsgroup: comp.lang.forth

    On 7/06/2026 12:35 am, Hans Bezemer wrote:
    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")?

    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 Hans Bezemer@the.beez.speaks@gmail.com to comp.lang.forth on Sun Jun 7 14:14:29 2026
    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 dxf@dxforth@gmail.com to comp.lang.forth on Mon Jun 8 12:59:49 2026
    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