i fixed your color program(my first post)

[Genisis]

this is a modified pick a shape and fill it program

%Choose a square or circle
%Choose a colour

put "What object you would like to use"

%See choice of square or circle
drawbox (400, 300, 300, 200, 7)
drawoval (350, 100, 50, 50, 7)


%Use shape as a varibale
var shape : int

%Show text of choices with 1 being Square and 2 being Circle
put "Square - 1 or Circle - 2?"
%Get response
get shape

%clear screen
Draw.Cls

%If square is chosen draw square
if shape = 1 then
drawbox (400, 300, 300, 200, 7)

%if square is not choosen draw circle
else
drawoval (350, 100, 50, 50, 7)
end if

%Pick your colour

var c : int

%Show text of colour choices
if shape = 1 then
put"Choose colour to fill shape 1 - Red 2 - Blue 3 - Random"
end if
if shape = 2 then
put "Choose colour to fill shape 4 - Red 5 - Blue 6 - Random"
end if

%Get answer
get c

%If red- 1 draw redbox
if c = 1 then
drawfillbox (400, 300, 300, 200, 12)

end if

%if blue -2 draw bluebox
if c = 2 then
drawfillbox (400, 300, 300, 200, 1)
end if

%if random -3 draw randombox
if c = 3 then
%loop through colors 1-15
loop
for i : 1..15
color (i)
drawfillbox (400, 300, 300, 200, i)
delay (750)
end for

end loop
end if

% if 4 or 5 it will fill it with red or blue
if c = 4 then
drawfilloval (350, 100, 50, 50,12)
elsif c = 5 then
drawfilloval (350, 100, 50, 50,1)
end if
% if 6 then it will fill the oval with colors 1-15
if c = 6 then
loop
for i :1..15
color (1)
drawfilloval (350, 100, 50, 50,i)
delay (750)
end for

end loop
end if