home *** CD-ROM | disk | FTP | other *** search
- local i n=width*height-1 m k j=0
- onintr goto finis
- echo -n "\e[0 p"
- repeat n 'k=j/width+1,i=j%width+1,j++,m=char(max(ran(127),0x20));echo -n "\e[$k;${i}H$m"
- label finis
- echo -n "\e[ p"
- ## mess - makes a mess of the console window.
- #
- # mess is provided as is for entertainment purposes only; no warantee is
- # either expressed or implied as to its suitability or fitness for any
- # purpose whatsoever. You assume all the risk for all damage, even if
- # caused by a defect in the software, no matter how awful.
-