![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to other.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to other.fs CVS log | Up to [gforth] / gforth |
| version 1.1, 1994/02/11 16:30:46 | version 1.2, 1994/07/21 10:52:47 |
|---|---|
| Line 10 | Line 10 |
| dup count chars bounds | dup count chars bounds |
| ?DO I c@ [char] a [char] { within | ?DO I c@ [char] a [char] { within |
| IF I c@ bl - I c! THEN 1 chars +LOOP ; | IF I c@ bl - I c! THEN 1 chars +LOOP ; |
| : name bl word capitalize ; | : name bl word ( capitalize ) ; |
| : on true swap ! ; | : on true swap ! ; |
| : off false swap ! ; | : off false swap ! ; |
| : place ( adr len adr ) | : place ( adr len adr ) |