![]() ![]() | ![]() |
version 1.8, 1995/01/30 18:47:45 | version 1.9, 1995/04/20 09:42:50 |
---|---|
Line 120 decimal | Line 120 decimal |
variable span | variable span |
: expect ( c-addr +len -- ) | : expect ( c-addr +len -- ) |
0 rot over | 0 rot over |
BEGIN key decode >r 2over = r> or UNTIL | BEGIN ( maxlen span c-addr pos1 ) |
2drop nip span ! ; | key decode ( maxlen span c-addr pos2 flag ) |
>r 2over = r> or | |
UNTIL | |
type-rest drop | |
2drop nip span ! ; | |