PROC main()
  COP2LCH := {coplist}
  INTENA := $4000
  MOUSE
  ENDMOUSE
ENDPROC

CHIPSTRUCT coplist
  CMOVE $fff,COLOR00
  CWAIT 80,$01
  CMOVE $f00,COLOR00
  CSTOP
ENDCHIPSTRUCT