Funcy Flashy Thingy

[Artimes]

Funcy flashy thingy I made. Simple, but effective!

code:

var x1, x2, y1, y2, button, col : int setscreen ("graphics:600;500,nobuttonbar") col := 56 colour (0) colourback (1) loop     Mouse.Where (x1, y1, button)     x2 := x1 - 10     y2 := y1 + 10     put " "     drawbox (x2 - 10, y2, x2 + 10, y2 + 40, col)     col := col + 1     if col = 103 then         col := 56     end if end loop

[Dan]

This gives credit to the line "It's not a bug it's a featuer".

Good to see some one is geting good use out of the graficks and text together problems in truing :p

Athougth it is probly not good progaming have some bits for a ceartive use of turings messed up text system

+bits

[Genesis]

Cool!

It reminds me of this program:

code:

View.Set ("graphics: 600;600, nobuttonbar") var x, y, z : int colourback (black) cls loop     Mouse.Where (x, y, z)     put ""     drawline (300, 10, x, y, white) end loop

That I accidently wrote last year...I can't remember what I was actually trying to do. But it reminds me of this thing we used in physics, that had a bunch of black rods on it, to demonstrate waves.

[Artimes]

That's sweet!