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
--- SoupGate-Win32 v1.05
* Origin: fsxNet Usenet Gateway (21:1/5)