home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
miscpas.zip
/
RANDDOT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1984-05-16
|
2KB
|
76 lines
program RandDot;
{ This program displays on the graphics screen random dots at a very high
{ high speed. 20,000 dots are displayed in a few seconds.
{
{ The program was written for Turbo Pascal by Jeff Firestone.
{
{ NOTE -- This program uses the external assembly language procedure
{ POINT.INV which must be on the default drive inorder to compile.}
type
varX = record
varL,varH: Byte;
end;
TimeRec = record
AX,BX: varX;
Min,Hour,Msec,Sec: byte;
BP,SI,DI,DS,ES,FLAGS: integer;
end;
RecPack = record
AX: varX;
BX,CX,DX,BP,SI,DI,DS,ES,FLAGS: Integer;
end;
var
intparm : RecPack;
i,j : integer;
rx,ry : integer;
procedure GraphicsOn;
begin
with IntParm do
begin
AX.varH := $00;
AX.varL := $06;
Intr($10,intparm);
end;
end;
procedure GraphicsOff;
begin
with IntParm do
begin
AX.varH := $00;
AX.varL := $02;
Intr($10,intparm);
end;
end;
procedure Dot(x,y: integer);
begin
with IntParm do
begin
AX.varH := 12;
AX.varL := $81;
CX := x;
DX := y;
Intr($10,intparm);
end;
end;
Procedure Point(x,y,color:integer); External 'point.inv';
begin
GraphicsOn;
for i:= 1 to 20000 do
begin
rx:= random(639);
ry:= random(199);
point(rx,ry,1);
end;
write(' '+chr(13));
writeln(' Hit RETURN');
readln;
GraphicsOff;
end.