85 lines
1.5 KiB
ObjectPascal
85 lines
1.5 KiB
ObjectPascal
|
{
|
||
|
|
Author : Francois B. (Makoto)
|
||
|
|
Licence : GPLv3
|
||
|
|
}
|
||
|
|
program matrix;
|
||
|
|
|
||
|
|
uses
|
||
|
|
crt;
|
||
|
|
var
|
||
|
|
i,j : integer;
|
||
|
|
str,schema : string;
|
||
|
|
|
||
|
|
begin
|
||
|
|
{ init }
|
||
|
|
ClrScr;
|
||
|
|
Randomize;
|
||
|
|
TextMode(2);
|
||
|
|
TextColor(2);
|
||
|
|
schema := 'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ&|@#§½!{}[]-()=~,;/?<>\*+0123456789%£';
|
||
|
|
window(1,1,ScreenWidth,ScreenHeight);
|
||
|
|
|
||
|
|
{ top border }
|
||
|
|
GotoXY(1,1);
|
||
|
|
write('+');
|
||
|
|
for i := 2 to ScreenWidth-1 do
|
||
|
|
begin
|
||
|
|
GotoXY(i,1);
|
||
|
|
write('-');
|
||
|
|
end;
|
||
|
|
GotoXY(ScreenWidth,1);
|
||
|
|
write('+');
|
||
|
|
|
||
|
|
{ bottom border }
|
||
|
|
GotoXY(1,ScreenHeight-1);
|
||
|
|
write('+');
|
||
|
|
for i := 2 to ScreenWidth-1 do
|
||
|
|
begin
|
||
|
|
GotoXY(i,ScreenHeight-1);
|
||
|
|
write('-');
|
||
|
|
end;
|
||
|
|
GotoXY(ScreenWidth,ScreenHeight-1);
|
||
|
|
write('+');
|
||
|
|
|
||
|
|
{ bottom text}
|
||
|
|
TextColor(10);
|
||
|
|
GotoXY(5,ScreenHeight-1);
|
||
|
|
write('[ Oldies just for fun ^^ - Makoto ]');
|
||
|
|
|
||
|
|
{ left border }
|
||
|
|
for i := 2 to ScreenHeight-2 do
|
||
|
|
begin
|
||
|
|
GotoXY(1,i);
|
||
|
|
write('|');
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ right border }
|
||
|
|
for i := 2 to ScreenHeight-2 do
|
||
|
|
begin
|
||
|
|
GotoXY(ScreenWidth,i);
|
||
|
|
write('|');
|
||
|
|
end;
|
||
|
|
|
||
|
|
{ main frame }
|
||
|
|
window(3,3,ScreenWidth-2,ScreenHeight-3);
|
||
|
|
|
||
|
|
{ main loop }
|
||
|
|
j := 0;
|
||
|
|
repeat
|
||
|
|
i := random(2);
|
||
|
|
if i = 0
|
||
|
|
then TextColor(2)
|
||
|
|
else TextColor(10);
|
||
|
|
str := schema[random(length(schema))+1];
|
||
|
|
write(str);
|
||
|
|
j := j+1;
|
||
|
|
if (j < ScreenWidth*ScreenHeight)
|
||
|
|
then delay(0)
|
||
|
|
else delay(1);
|
||
|
|
until keypressed;
|
||
|
|
|
||
|
|
{ revert back to normal window size }
|
||
|
|
window(1,1,ScreenWidth,ScreenHeight);
|
||
|
|
ClrScr;
|
||
|
|
end.
|