|
version 1.1, 1997/05/21 20:40:19
|
version 1.4, 1999/05/17 13:52:18
|
|
Line 2
|
Line 2
|
| |
|
| \ 1-3MAY93 Jens A. Wilke |
\ 1-3MAY93 Jens A. Wilke |
| \ This program is public domain |
\ This program is public domain |
| \ Not for commercial usage! |
|
| |
|
| DECIMAL |
DECIMAL |
| |
|
|
Line 33 VARIABLE PNT Names PNT !
|
Line 32 VARIABLE PNT Names PNT !
|
| PNT @ + ALIGNED DUP PNT ! |
PNT @ + ALIGNED DUP PNT ! |
| DUP 0 SWAP ! CELL+ 0 SWAP ! ; |
DUP 0 SWAP ! CELL+ 0 SWAP ! ; |
| |
|
| S" wordsets.fs" INCLUDED |
S" ./../wordsets.fs" INCLUDED |
| |
|
| : END |
: END |
| CR CR ." Wordset: Status: Words:" CR |
CR CR ." Wordset: Status: Words:" CR |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to checkans.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / test