![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to errore.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to errore.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.1, 1997/05/21 20:40:14 | version 1.2, 1997/09/13 12:05:51 |
|---|---|
| Line 43 decimal | Line 43 decimal |
| IF 2 cells + count type drop exit THEN | IF 2 cells + count type drop exit THEN |
| REPEAT | REPEAT |
| drop | drop |
| [ has-os [IF] ] | [ has? os [IF] ] |
| dup -511 -255 within | dup -511 -255 within |
| IF | IF |
| 256 + negate strsignal type exit | 256 + negate strsignal type exit |