scratch buffer

create asciiart 365 cells allot

: fill 32
39  80  56 100 111  98  56  89  96  32 111  56  56  56 111  32 111  56  56  56 111  32 111  56  56  56 111  32  39  80  56 100 111  98  56  89  96  32  32  32  39  80  56 100 111 111  98  56  56  56 111  32
56  56  56  32  32  32  56  56  56  32  32  56  56  56  32  32  32  56  56  56  32  32  32  56  56  56  32  32 111  46  32  32  32  32  56  56  56  32  39  56  56 100  32  32  32  32  32  56  56  56  32  32
56  56  56  32  32  32  56  56  56  32  32  56  56  56  32  32  32  56  56  56  32  32  32  56  56  56  32  32  56  56  56 111 111 111  56  56  56  32  56  56  56  32  32  32  32  32  32  56  56  56  32  32
98  56  56  96  32  39  56  56 100  32  32  98  56  56  89  34  80  98  56  56  89  34  80  56  56  56  96  32  98  56  56  96  32  39  56  56 100  32  56  56  56  32  32  32  32  32  32  56  56  56  32  32
32  46 111 111 111 111 111  46  32  32  32  32  46 111 111  46  32  32  46 111 111  46  32  46 111 111 111  32  32  46 111 111 111 111 111  46  32  32  56  56  56  32  32  32  32  32  32  56  56  56  32  32
32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  98  56  89  96  32  32  32  39  56  56  56  96  32
32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  32  46 111 111 111 111 111 111 111 111 111 111  32
365 0 ?do asciiart i cells + ! loop ;

: demo fill page 1500 1 ?do 2 ms 0 52 myrand 0 7 myrand 2dup at-xy 52 * + cells asciiart + @ emit loop
                 7 0 ?do 52 0 ?do 2 ms i j 2dup at-xy 52 * + cells asciiart + @ emit loop loop ;
demo