gforth/kernel/io.fs - diff

Return to io.fs CVS log

Up to [gforth] / gforth / kernel

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