# -*- pf -*- load-image load-blit : ruis ` bitgrid/1/256/256 bitgrid:random bitgrid:image ; : tv begin ruis blit again ; tv