10 crtmod(65,1)
   20 for v=0 to 31
   30   for h=0 to 191
   40     fill(4*h,16*v,4*h+3,16*v+15,hsv(h,31,v))
   50   next
   60 next
   70 end