استفاده از Crt32 در دلفی

[maisam_ok]

سورس کد زیر جهت استفاده crt32 در دلفی ارائه شده است.


Uses
crt32;

Var
Lyd,X1,Y1,X2,Y2,Front,Back,Count2:Integer;
Begin
MaximizeConsole;
Randomize;
ClrScr;
CursorOff;
Count2:=0;
While (Not(KeyPressed)) Do Begin
X1:=Random(80);
Y1:=Random(25);
X2:=Random(80)+X1+1;
If X2>79 Then X2:=79;
Y2:=Random(25)+Y1+1;
If Y2>24 Then Y2:=24;
Front:=Random(16);
Back:=Random(16);
Lyd:=Random(7500)+10;
If Odd(X1) Then
SingleFrame(Front,Back,X1+1,Y1+1,X2+1,Y2+1)
Else
DoubleFrame(Front,Back,X1+1,Y1+1,X2+1,Y2+1);
If Count2=0 Then If(Not(IsNT)) Then Sound(Lyd);
Inc(Count2);
If Count2=125 then Count2:=0;
End;
CursorOn;
NoSound;
end.
:mrgreen: