version 1.8, 1999/02/03 00:10:25
|
version 1.9, 1999/03/23 20:24:25
|
Line 42 has? os [IF]
|
Line 42 has? os [IF]
|
undef-words |
undef-words |
|
|
Defer type ( c-addr u -- ) \ core |
Defer type ( c-addr u -- ) \ core |
\G If u>0, display u characters from a string starting with the character |
\G If @var{u}>0, display @var{u} characters from a string starting |
\G stored at c-addr. |
\G with the character stored at @var{c-addr}. |
: (type) BEGIN dup WHILE |
: (type) BEGIN dup WHILE |
>r dup c@ (emit) 1+ r> 1- REPEAT 2drop ; |
>r dup c@ (emit) 1+ r> 1- REPEAT 2drop ; |
|
|
[IFDEF] (type) ' (type) IS Type [THEN] |
[IFDEF] (type) ' (type) IS Type [THEN] |
|
|
Line 107 has? ec [IF]
|
Line 107 has? ec [IF]
|
\ space spaces 21mar93py |
\ space spaces 21mar93py |
decimal |
decimal |
Create spaces ( u -- ) \ core |
Create spaces ( u -- ) \ core |
\G If n > 0, display n spaces. |
\G If @var{n} > 0, display @var{n} spaces. |
bl 80 times \ times from target compiler! 11may93jaw |
bl 80 times \ times from target compiler! 11may93jaw |
DOES> ( u -- ) |
DOES> ( u -- ) |
swap |
swap |