100 REM Moire
  110 HGR 
  120 FOR i = 1 TO 100 CYCLE 
  130   CLS 
  140   x = RND (GWIDTH)
  150   y = RND (GHEIGHT)
  160   FOR w = 0 TO GWIDTH - 1 STEP 3 CYCLE 
  170     LINE (x, y, w, 0)
  180     LINE (x, y, w, GHEIGHT - 1)
  190   REPEAT 
  200   FOR h = 0 TO GHEIGHT - 1 STEP 3 CYCLE 
  210     LINE (x, y, 0, h)
  220     LINE (x, y, GWIDTH - 1, h)
  230   REPEAT 
  231   WAIT (0)
  240 REPEAT 
  250 END