SET WINDOW 3,100,3,100
FOR j=0 TO 200 STEP 0.2
   LET C=MOD(j,3)
   SET DRAW mode hidden       ! ちらつき防止
   CLEAR
   SET AREA COLOR 24
   FOR i=0 TO 100 STEP 3
      PLOT AREA: i+C,0;i+1.2+C,0;i+1.2+C,100;i+C,100
   NEXT i
   WAIT DELAY 0.001
   SET DRAW mode explicit   ! ちらつき防止
NEXT j
END