home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
30TURUTL
/
DEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-02-18
|
2KB
|
61 lines
{$I Vars.incs}
{$I Writelin.inc}
{$I Writexy.inc}
var in_string,st: string[80];
xx : integer;
ch : char;
ok : boolean;
Begin {Video_demo}
line_pos:=0;
textcolor(15);
writeln('Writelin and Writexy Demo Program');
write('Enter your Name: ');
readln(in_string);
clrscr;
Write('Here is a little demo with the standard Pascal Procedures, hit a key...');
repeat until keypressed;
read(kbd,ch);
gotoxy(19,24);
textcolor(white+blink);
write('Hit Any key to Advance, may take more than once..');
ok:=false;
repeat
if keypressed then ok:=true;
gotoxy(random(80),random(22));
if keypressed then ok:=true;
textcolor(random(15));
if keypressed then ok:=true;
write(in_string);
until ok or keypressed;
clrscr;
textcolor(15);
writeln('Now here is the same demo with the new WRITEXY Procedure, hit a key...');
repeat until keypressed;
read(kbd,ch);
writexy('Hit Any key to Advance',27,24,(15+128));
repeat
writexy(in_string,random(80),random(22),random(15));
until keypressed;
read(kbd, ch);
clrscr;
textcolor(15);
writeln('Now I will Print your name 300 times using the Writeln Procedures..');
repeat until keypressed;
read(kbd,ch);
for xx:=1 to 300 do writeln(xx:3,': ',in_string);
writeln;writeln('Now using the new WRITELIN Procedure...');
repeat until keypressed;
read(kbd,ch);
for xx:=1 to 300 do
begin
str(xx,st);
writelin(st+': '+in_string,11);
end;
writeln;writeln('Hit anu key to end..');
repeat until keypressed
end.