2020-05-02 21:47:32 -04:00
|
|
|
( Initializes the readln subsystem )
|
|
|
|
|
: RDLN$
|
2020-05-14 14:26:56 -04:00
|
|
|
H@ 0x32 ( IN(* ) RAM+ !
|
2020-05-13 09:28:32 -04:00
|
|
|
( plus 2 for extra bytes after buffer: 1 for
|
2020-05-02 21:47:32 -04:00
|
|
|
the last typed 0x0a and one for the following NULL. )
|
2020-05-14 14:26:56 -04:00
|
|
|
IN) IN( - ALLOT
|
2020-05-02 21:47:32 -04:00
|
|
|
(infl)
|
2020-05-13 14:19:54 -04:00
|
|
|
['] RDLN< 0x0c RAM+ !
|
2020-05-02 21:47:32 -04:00
|
|
|
1 0x06 RAM+ ! ( 06 == C<? )
|
|
|
|
|
;
|
|
|
|
|
|
