Home   Easy-Code    Forum  Updater 
Twitter Facebook



Program on name using pascal graphics

Critics Rating:

Users Rating:

(* NAME *)

program graphics;

uses crt,graph;

var

gd,gm:integer;

s:set of char;

c,i:integer;

begin

clrscr;

gd:=detect;

initgraph(gd,gm," ");

for i:=1 to 50 do

begin

settextstyle(1,0,1*i);

cleardevice;

outtextxy(10,20+5*i,"KISHORE");

delay(1000);

end;

for i:=1 to 50 do

begin

settextstyle(1,0,1*i);

cleardevice;

outtextxy(500-10*i,20+5*i,"KISHORE");

delay(1000);

end;

for i:=1 to 60 do

begin

settextstyle(1,0,1*i);

cleardevice;

outtextxy(10,400-5*i,"KISHORE");

delay(1000);

end;

for i:=1 to 80 do

begin

settextstyle(1,0,1*i);

cleardevice;

outtextxy(450-5*i,400-5*i,"KISHORE");

delay(1000);

end;

repeat until keypressed;

end.

Courtesy, Source, References & Regards: Kishore AVGK

While using this site, you agree to have read and accepted our terms of use and privacy policy.
Copyright@2009-2011 by KuGuNi.com. All Rights Reserved.