version 1.20, 1998/11/27 21:13:43
|
version 1.22, 1999/02/16 06:32:30
|
Line 72 DEFER nlcount ' noop IS nlcount
|
Line 72 DEFER nlcount ' noop IS nlcount
|
nlflag @ IF (nl) nlflag off THEN |
nlflag @ IF (nl) nlflag off THEN |
XPos @ over + cols u>= IF (nl) THEN ; |
XPos @ over + cols u>= IF (nl) THEN ; |
|
|
: c-to-upper |
: c-to-upper ( c1 -- c2 ) \ gforth |
dup [char] a >= over [char] z <= and if bl - then ; |
\ nac05feb1999 there is a primitive, toupper, with this function |
|
dup [char] a >= over [char] z <= and if bl - then ; |
|
|
: ctype ( adr len -- ) |
: ctype ( adr len -- ) |
warp? dup XPos +! C-Output @ |
warp? dup XPos +! C-Output @ |
Line 616 IS discode
|
Line 617 IS discode
|
then |
then |
rdrop drop ; |
rdrop drop ; |
|
|
: see ( "name" -- ) \ tools |
: see ( "<spaces>name" -- ) \ tools |
|
\G Locate @var{name} using the current search order. Display the |
|
\G definition of @var{name}. Since this is achieved by decompiling |
|
\G the definition, the formatting is mechanised and some source |
|
\G information (comments, interpreted sequences within definitions |
|
\G etc.) is lost. |
name find-name dup 0= |
name find-name dup 0= |
IF |
IF |
drop -&13 bounce |
drop -&13 bounce |