version 1.32, 2000/10/29 08:37:45
|
version 1.33, 2000/11/13 22:10:30
|
Line 492 c-extender !
|
Line 492 c-extender !
|
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 - @ . \ ABORT" SEE: Bua!" |
IF look 0= IF drop dup 1 cells - @ ." <" 0 .r ." >" |
ELSE |
ELSE |
dup cell+ count dup immediate-mask and |
dup cell+ count dup immediate-mask and |
IF bl cemit ." POSTPONE " THEN |
IF bl cemit ." POSTPONE " THEN |