| IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
IF 2drop ELSE XPos +! C-Output @ IF emit ELSE drop THEN |
| THEN ; |
THEN ; |
| |
|
| DEFER .string |
DEFER .string ( c-addr u n -- ) |
| |
|
| [IFDEF] Green |
[IFDEF] Green |
| VARIABLE Colors Colors on |
VARIABLE Colors Colors on |
| dup cell+ swap @ |
dup cell+ swap @ |
| dup >r DoTable r> swap IF drop EXIT THEN |
dup >r DoTable r> swap IF drop EXIT THEN |
| Display? |
Display? |
| IF look 0= IF drop dup 1 cells - @ ." <" 0 .r ." >" |
IF |
| |
look 0= IF |
| |
drop dup 1 cells - @ ." <" 0 .r ." >" |
| |
ELSE |
| |
dup cell+ @ immediate-mask and |
| |
IF |
| |
bl cemit ." POSTPONE " |
| |
THEN |
| |
dup name>string rot wordinfo .string |
| |
THEN |
| |
bl cemit |
| ELSE |
ELSE |
| dup cell+ count dup immediate-mask and |
drop |
| IF bl cemit ." POSTPONE " THEN |
|
| 31 and rot wordinfo .string THEN bl cemit |
|
| ELSE drop |
|
| THEN ; |
THEN ; |
| |
|
| : c-init |
: c-init |
