version 1.94, 2003/01/26 20:56:38
|
version 1.95, 2003/02/01 14:28:08
|
Line 775 max-errors has? file [IF] 6 [ELSE] 4 [TH
|
Line 775 max-errors has? file [IF] 6 [ELSE] 4 [TH
|
\ !! not used... |
\ !! not used... |
[char] $ emit base @ swap hex u. base ! ; |
[char] $ emit base @ swap hex u. base ! ; |
|
|
: typewhite ( addr u -- ) \ gforth |
: typewhite ( addr n -- ) \ gforth |
\G Like type, but white space is printed instead of the characters. |
\G Like type, but white space is printed instead of the characters. |
bounds ?do |
\ bounds u+do |
|
0 max bounds ?do |
i c@ #tab = if \ check for tab |
i c@ #tab = if \ check for tab |
#tab |
#tab |
else |
else |