SUB MAIN
  DIM I AS INTEGER
  GRAPHICS
  FOR I=1 TO 20
    SETCOLOR RND(256),RND(256),RND(256)
    CLS
    REPAINT
    SLEEP 500
  END FOR
END SUB