;;;autolib="\\sistemas\\cadastro\\bibliot"
c=0
while true

   @ 10,10 ?? " Cor N§ = "+StrVal(C)+Fill(" ",5-Len(Strval(C)))
   @ 12,10 ?? "  Texto  "+Chr(220)+Chr(220)+Chr(220)+Chr(220)+"  "
   paintcanvas attribute c 12, 10, 12, 24

   x=getchar()
   if x=27 then quitloop endif
   if x=-77 then c=c+1 endif
   if x=-75 then c=c-1 endif

   if c<0 then c=255 endif
   if c>255 then c=0 endif

endwhile
clearAll
release vars all

