Rocksolid Light

Welcome to Rocksolid Light

mail  files  register  newsreader  groups  login

Message-ID:  

Calm down, it's *____only* ones and zeroes.

devel / comp.lang.forth / Re: Toad

SubjectAuthor
* ToadS Jack
`* Re: ToadZbig
 `- Re: ToadS Jack

1
Toad

<198f5c89-85a8-46b7-8321-0ac5e0dd833cn@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=24114&group=comp.lang.forth#24114

  copy link   Newsgroups: comp.lang.forth
X-Received: by 2002:ad4:59cf:0:b0:635:f34b:c1a5 with SMTP id el15-20020ad459cf000000b00635f34bc1a5mr1086qvb.3.1690316429259;
Tue, 25 Jul 2023 13:20:29 -0700 (PDT)
X-Received: by 2002:a05:6830:1315:b0:6b9:7220:4cbb with SMTP id
p21-20020a056830131500b006b972204cbbmr217121otq.1.1690316428814; Tue, 25 Jul
2023 13:20:28 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder8.news.weretis.net!proxad.net!feeder1-2.proxad.net!209.85.160.216.MISMATCH!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Tue, 25 Jul 2023 13:20:28 -0700 (PDT)
Injection-Info: google-groups.googlegroups.com; posting-host=2600:1700:3f7a:20d0:2d9a:4e1f:1479:3c8f;
posting-account=V5nGoQoAAAC_P2U0qnxm2kC0s1jNJXJa
NNTP-Posting-Host: 2600:1700:3f7a:20d0:2d9a:4e1f:1479:3c8f
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <198f5c89-85a8-46b7-8321-0ac5e0dd833cn@googlegroups.com>
Subject: Toad
From: sdwjack69@gmail.com (S Jack)
Injection-Date: Tue, 25 Jul 2023 20:20:29 +0000
Content-Type: text/plain; charset="UTF-8"
 by: S Jack - Tue, 25 Jul 2023 20:20 UTC

Built '79 vintage FigForth, 32-bits to run on Linux.
Assembled with GAS using AT&T syntax.
Bare bones, no enhancements.

Toad extends FigForth making it usable and
friendlier; however, it doesn't attempt to change
Fig characteristics but retains its "warts".
It's a retro Forth that approaches the future.
--
me

Re: Toad

<a9172342-037a-4d33-9013-5a9b677c7a87n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=24115&group=comp.lang.forth#24115

  copy link   Newsgroups: comp.lang.forth
X-Received: by 2002:a37:93c4:0:b0:768:3ae0:c178 with SMTP id v187-20020a3793c4000000b007683ae0c178mr3740qkd.1.1690366305227;
Wed, 26 Jul 2023 03:11:45 -0700 (PDT)
X-Received: by 2002:a05:6808:1818:b0:3a4:88e1:de37 with SMTP id
bh24-20020a056808181800b003a488e1de37mr3795226oib.1.1690366305057; Wed, 26
Jul 2023 03:11:45 -0700 (PDT)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border-2.nntp.ord.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Wed, 26 Jul 2023 03:11:44 -0700 (PDT)
In-Reply-To: <198f5c89-85a8-46b7-8321-0ac5e0dd833cn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=217.97.122.79; posting-account=cxuXKwoAAABQpPOMD55A9IPz7pPrw6ml
NNTP-Posting-Host: 217.97.122.79
References: <198f5c89-85a8-46b7-8321-0ac5e0dd833cn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a9172342-037a-4d33-9013-5a9b677c7a87n@googlegroups.com>
Subject: Re: Toad
From: zbigniew2011@gmail.com (Zbig)
Injection-Date: Wed, 26 Jul 2023 10:11:45 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
Lines: 1
 by: Zbig - Wed, 26 Jul 2023 10:11 UTC

Is it „Toad Forth”? Where is its web-page to take a look at?

Re: Toad

<9148e061-dbc3-4962-9541-c08a98975f73n@googlegroups.com>

  copy mid

https://news.novabbs.org/devel/article-flat.php?id=24120&group=comp.lang.forth#24120

  copy link   Newsgroups: comp.lang.forth
X-Received: by 2002:ad4:55c9:0:b0:63c:f38d:e0d5 with SMTP id bt9-20020ad455c9000000b0063cf38de0d5mr11499qvb.0.1690445346878;
Thu, 27 Jul 2023 01:09:06 -0700 (PDT)
X-Received: by 2002:a9d:7555:0:b0:6b8:8894:e4ac with SMTP id
b21-20020a9d7555000000b006b88894e4acmr6812247otl.3.1690445346673; Thu, 27 Jul
2023 01:09:06 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!diablo1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Thu, 27 Jul 2023 01:09:06 -0700 (PDT)
In-Reply-To: <a9172342-037a-4d33-9013-5a9b677c7a87n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=2600:1700:3f7a:20d0:35ef:834a:e8f7:13ca;
posting-account=V5nGoQoAAAC_P2U0qnxm2kC0s1jNJXJa
NNTP-Posting-Host: 2600:1700:3f7a:20d0:35ef:834a:e8f7:13ca
References: <198f5c89-85a8-46b7-8321-0ac5e0dd833cn@googlegroups.com> <a9172342-037a-4d33-9013-5a9b677c7a87n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <9148e061-dbc3-4962-9541-c08a98975f73n@googlegroups.com>
Subject: Re: Toad
From: sdwjack69@gmail.com (S Jack)
Injection-Date: Thu, 27 Jul 2023 08:09:06 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 3965
 by: S Jack - Thu, 27 Jul 2023 08:09 UTC

On Wednesday, July 26, 2023 at 5:11:46 AM UTC-5, Zbig wrote:
> Is it „Toad Forth”? Where is its web-page to take a look at?

:) toad

Toad-Forth 1.0
VLIST

TASK VLIST WHILE ELSE IF REPEAT AGAIN END UNTIL
+LOOP LOOP DO THEN ENDIF BEGIN BACK BLOCK-WRITE BLOCK-READ
BLKWRT BLKRD BLKSECTOR ?BLK ?BFOPEN EOF USING /USING
TRIAD INDEX LIST --> LOAD R/W MESSAGE .LINE (LINE)
BLOCK BUFFER DR0 EMPTY-BUFFERS FLUSH UPDATE +BUF @BLKRD
@BLKWRT DISK_ERROR PREV USE BLK_MAX BFID ALIGN ALIGNED
BYE CELL+ CELL U. . ? .R D. D.R #S # SIGN
#> <# SPACES FORGET ' M/MOD */ */MOD MOD / /MOD
* M/ M* MAX MIN DABS ABS D+- +- S->D ABORT
QUIT ( DEFINITIONS FORTH VOCABULARY IMMEDIATE INTERPRET
?STACK DLITERAL LITERAL [COMPILE] CREATE ID. ERROR
(ABORT) -FIND NUMBER (NUMBER) WORD PAD HOLD BLANKS
ERASE FILL QUERY EXPECT ." (.") -TRAILING TYPE
COUNT DOES> <BUILDS ;CODE (;CODE) DECIMAL HEX SMUDGE
] [ COMPILE ?LOADING ?CSP ?PAIRS ?EXEC ?COMP ?ERROR
!CSP PFA NFA CFA LFA LATEST TRAVERSE -DUP SPACE
ROT > < = - C, , ALLOT HERE 2+ 1+ ; : HLD
R# CSP DPL BASE STATE CURRENT CONTEXT OFFSET SCR
OUT IN BLK VOC-LINK DP FENCE WARNING WIDTH TIB
R0 S0 B/SCR B/BUF LIMIT FIRST C/L BL THREE TWO
ONE ZERO USER VARIABLE CONSTANT +ORIG C! ! C@ @
TOGGLE PICK +! DUP DROP SWAP OVER DMINUS MINUS
D+ + 0< 0= R R> >R LEAVE - ;S RP! RP@ SP!
SP@ XOR OR AND U/ U* CMOVE CR KEY EMIT ENCLOSE
(FIND) DIGIT I (DO) (+LOOP) (LOOP) 0BRANCH BRANCH
EXECUTE LIT ?TERMINAL HREPOS HWRITE HREAD ?HCLOSE HCLOSE
FCREATE FOPEN ?IOR SZPAD SYSBRK (HREPOS) (HWRITE) (HREAD)
(HCLOSE) (FCREAT) (FOPEN) SYSCALL1 COLD OK
USING fb/main.scr
OK
12 LOAD
R MSG # 4 I MSG # 4 OK
24 LOAD
OK
26 LIST

SCR # 26
0 : Z PAD 1+ DUP 128 EXPECT ;
1 : ZS 0 PAD C! 128 0 DO
2 DUP C@ IF 1+ ELSE I PAD C! LEAVE THEN
3 LOOP DROP PAD ;
4 : S TEXT PAD ;
5 : S* 1 S ;
6 : TELL COUNT TYPE ;
7 : ZTELL 128 O+S DO I C@ -DUP IF EMIT ELSE LEAVE THEN LOOP ;
8
( snipped )

OK
S* HELLO Y'LL, WELCOME TO THE "TOAD"
OK
TELL
HELLO Y'LL, WELCOME TO THE "TOAD" OK
--
me

1
server_pubkey.txt

rocksolid light 0.9.81
clearnet tor