paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-05 00:26:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed the warning

Browse Source
This commit is contained in:
alex 2000-02-22 03:14:17 +00:00
parent f3618e1424
commit da4fbd9ec1
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
install/demo/blackbox.pp
View File

@ -148,6 +148,7 @@ begin
Writeln ('Beam exited at : (',x-dx,',',y-dy,',',z-dz,')'); Writeln ('Beam exited at : (',x-dx,',',y-dy,',',z-dz,')');
end; end;
{
Procedure DumpCube ; Procedure DumpCube ;
Var x,y,z : longint; Var x,y,z : longint;
@ -159,6 +160,7 @@ begin
if Cube[x,y,z]<>0 then if Cube[x,y,z]<>0 then
writeln ('Atom at (',x,',',y,',',z,')'); writeln ('Atom at (',x,',',y,',',z,')');
end; end;
}
begin begin
FillCube; FillCube;
@ -187,7 +189,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 1998-09-11 10:55:20 peter Revision 1.3 2000-02-22 03:14:17 alex
fixed the warning
Revision 1.2 1998/09/11 10:55:20 peter
+ header+log + header+log
} }