1 HGR2:FORN=1TO95:X=X+1:HCOLOR=RND(1)*8:HPLOT45+X,96TO140,XTO235-X,96TO140,192-XTO45+X,96:HPLOT45+X,XTO235-X,XTO235-X,192-XTO45+X,192-XTO45+X,X:IFX=190THENX=0
2 NEXT:FORZ=1TO3000:NEXT:FORN=1TO250:A=RND(1)*279:B=RND(1)*191:HCOLOR=RND(1)*7+1:HPLOT140,96TOA,B:NEXT:GOTO1