version 1.15, 1997/01/29 21:32:38
|
version 1.16, 1997/05/21 20:39:39
|
Line 468 c-extender !
|
Line 468 c-extender !
|
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 - @ . \ ABORT" SEE: Bua!" |
IF look 0= IF drop dup 1 cells - @ . \ ABORT" SEE: Bua!" |
ELSE dup cell+ count 31 and rot wordinfo .string THEN bl cemit |
ELSE |
|
dup cell+ count dup immediate-mask and |
|
IF bl cemit ." POSTPONE " THEN |
|
31 and rot wordinfo .string THEN bl cemit |
ELSE drop |
ELSE drop |
THEN ; |
THEN ; |
|
|