bacforth macroopt

public text v1 · immutable

#329368

·published 2007-01-26 18:25 UTC

STARTLOG

~ac/lib/str4.f
~profit/lib/bac4th-str.f    
~ygrek/lib/neilbawd/mersenne.f
\ ~ygrek/lib/typestr.f
~ygrek/lib/strtype.f

: ON-RECEIVE
  2DROP ;

0 SGENRAND

: a 20 0 DO 10 GENRANDMAX 1 + SPACES 10 0 DO 32 GENRANDMAX 32 + EMIT LOOP CR LOOP ;

\ : generate ['] a TYPE>STR ;
: generate "" STR{ a }STR ;

: RECEIVE    
  generate
  STR@
    byRows split notEmpty 
    DUP STR@ 
    ON-RECEIVE ;

:NONAME    
   BEGIN
     ." !"
     RECEIVE
   AGAIN ; TASK: tester

tester START