-----------------------------------

Tank

Thu Mar 20, 2003 12:10 pm


colour picker

-----------------------------------

var Direction : string (1)
var I := 0

setscreen ("nocursor")

loop

    colourback (I)
    
    cls
    colourback (blue)
    colour (white)
    put "Colour #", I:4:0, "              "
    put "Press < or > (Q to quit)  " ..
    getch (Direction)

    if Direction = "