paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* range check error fix

Browse Source
This commit is contained in:
carl 2002-02-22 21:40:45 +00:00
parent 31e2cbaea7
commit ce5b7530fa
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
demo/graph/mandel.pp
View File

@ -271,7 +271,7 @@ const
gmdefault = m640x480;
begin
gm:=$ffff;
gm:=-1;
if paramcount>0 then
begin
val(paramstr(1),gm,error);
@ -348,7 +348,10 @@ begin
end.
{
$Log$
Revision 1.2 2001-11-11 21:09:49 marco
Revision 1.3 2002-02-22 21:40:45 carl
* range check error fix
Revision 1.2 2001/11/11 21:09:49 marco
* Gameunit, Fpctris and samegame fixed for win32 GUI
Revision 1.1 2001/05/03 21:39:33 peter

7
demo/graph/samegame.pp
View File

@ -562,7 +562,7 @@ BEGIN
Writeln('No mouse found. A mouse is required!');
HALT;
END;
FOR I:=1 TO 10 DO
FOR I:=0 TO 9 DO
HighScore[I].Score:=I*1500;
LoadHighScore(FileName);
InitMouse;
@ -594,7 +594,10 @@ BEGIN
END.
{
$Log$
Revision 1.2 2001-11-11 21:09:50 marco
Revision 1.3 2002-02-22 21:41:22 carl
* range check error fix
Revision 1.2 2001/11/11 21:09:50 marco
* Gameunit, Fpctris and samegame fixed for win32 GUI
Revision 1.1 2001/05/03 21:39:33 peter