10 lines
276 B
Text
10 lines
276 B
Text
|
;;; Setup item reader
|
||
|
|
lvars itemrep = incharitem(charin);
|
||
|
|
lvars s, c, j = 0;
|
||
|
|
;;; read chars up to a newline and put them on the stack
|
||
|
|
while (charin() ->> c) /= `\n` do j + 1 -> j ; c endwhile;
|
||
|
|
;;; build the string
|
||
|
|
consstring(j) -> s;
|
||
|
|
;;; read the integer
|
||
|
|
lvars i = itemrep();
|