/
tpage.pas
42 lines (39 loc) · 1.07 KB
/
tpage.pas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
program tpage;
uses myio,
crt, dos;
procedure titlepage;
var x,y,col,col1:byte;
c:char;
begin
{rcg11172000 gay.}
{
clrscr; cursoron(FALSE);
textbackground(0); textcolor(0);
writeln;
writeln(' ÜÛÛÛÛÛÛÜÜ ÜÛÛÛÛÛÛÜÜ');
writeln(' Þ ßÛÛÛÛ Þ ßÛÛÛÛ');
writeln(' Þ ÜÛÛÛß Þ ÛÛÛÛ ÜÜ Ü');
writeln(' ÛÛÛÛÛÛÛÛ ÛÛÛÛÛÛÛÛÛÛ Üßßßß ÜÜ Û Û Ü Ü ßßßÜ ÜÜ ÜßßÜ');
writeln(' Þ ßÛÛÛÜ Þ ÛÛÛÛ ßßßßÜ Û Û Ûß Ûß Û Ü Û ÜßßÛ Û ÛÜß');
writeln(' Þ ÜÛÛÛÛ Þ ÛÛÛÛ ßßßßßßß ßß ß ßß ß ß ßßß ß ßßßßßßßßßßßßß');
writeln(' ßÛÛÛÛÛÛßß Þ __ÜÛÛÛß ßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßßß');
writeln;
writeln(' P r E s E n T s ! ! ! ! ! !');
col1:=0;
repeat
for x:=3 to 79 do begin
col1:=col1 mod 2+1;
case col1 of 1:col:=14; 2:col:=4; end;
for y:=2 to 8 do mem[vidseg:(160*(y-1)+2*(x-1))+1]:=col;
end;
delay(100);
until (keypressed);
c:=readkey;
textcolor(14);
clrscr; cursoron(TRUE);
}
end;
begin
checkvidseg;
titlepage;
end.