Colour Changing 2

[mike200015]

Hey i got it to work, thanx to whoever helped me.

My program draws shapes. When u press up it increses the colour by 1. When you press down it decreases by 1. The only thing is when u draw 1 shape, it stops and waits for input from the keyboard, i dont want it to. i want it to be able so you can press up or down anytime while you are drawing shapes. This is a part of my program. What do i need to do in this portion so it will draw the filled box while u pres the buttons?

code:

procedure colchange     getch (key)     if key = KEY_UP_ARROW then         col := col + 1     elsif key = KEY_DOWN_ARROW then         col := col - 1     end if     if col > 255 then         col := 0     elsif col < 0 then         col := 255     end if end colchange procedure mike     loop         buttonwait ("down", x1, y1, b1, b2)         x2 := x1         y2 := y1         drawfillbox (x1, y1, x2, y2, col)         loop             mousewhere (x, y, b1)             exit when b1 = 0             if x not= x2 or y not= y2 then                 drawfillbox (x1, y1, x2, y2, col)                 x2 := x                 y2 := y                 drawfillbox (x1, y1, x2, y2, col)             end if         end loop     end loop end mike

[eNc]

Hey ok check this out I think it may help you here but i'm not entirely sure.

code:

setscreen ("nocursor") var col : int var key : string (1) procedure colchange col := 0     loop         getch (key)         if key = KEY_UP_ARROW then             if col < 255 then                 col := col + 1             elsif col = 255 then                 col := col - 1             end if         elsif key = KEY_DOWN_ARROW then             if col not= 0 then                 col := col - 1             elsif col = 1 then                 col := col + 1             end if         end if         %Drawing stuff         drawfillbox (20, 20, 300, 300, col)         locate (15, 40)         put col         delay (200)     end loop end colchange colchange

Press up/Down to begin