|
12345678910 |
- ( Initializes the readln subsystem )
- : RDLN$
- H@ 0x32 ( IN(* ) RAM+ !
- ( plus 2 for extra bytes after buffer: 1 for
- the last typed 0x0a and one for the following NULL. )
- IN) IN( - ALLOT
- (infl)
- ['] RDLN< 0x0c RAM+ !
- 1 0x06 RAM+ ! ( 06 == C<? )
- ;
|