[quote=needs_help;295228]{this makes a great deal of colors}
[code]
program lights;
uses crt;
var a,b:integer;
label 1;
begin
textbackground(white);
clrscr;
for a:=1 to 1000000 do inc b;*
randomize;
1:
a:=random(4)+1;
if a=1 then textbackground(blue);
if a=2 then textbackground(red);
if a=3 then textbackground(green);
if a=4 then textbackground(yellow);
write(' ');
goto 1;
end.
where you find this * there is trouble. I will show you the error the program is telling me.
* Error 88 : "(" expected.