Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  7
Language: PASCAL
Code:
uses CRT;
var a,x,y:integer;
begin
clrscr;
repeat
randomize;
a:=random(15);
x:=random(80000);
y:=random(250000);
gotoxy(x,y);
textbackground(a);
write('I cAn SeE yOu FrOm ShRiK');
delay(0);
unti keypressed;
end.          
Comments: