image IMG1
IMG1 := RealImage ("New", 4, 100, 100)
IMG1 = tert(mod(icol,10)==0 || mod(irow,10)==0, 1, 0)
ShowImage(IMG1)
