'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                              COMPROBADOR EFECTO MOIR
SCREEN 12
  
FOR v = 0 TO 480 STEP 2
   FOR h = 0 TO 640 STEP 2
      c1 = INT(h / 40)
      c2 = INT(v / 30)
      LINE (h, v)-(h + 1, v + 1), c2
      LINE (h + 1, v)-(h, v + 1), c1
   NEXT
NEXT
SLEEP