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

braced some vars to avoid compiler warnings

Browse Source
This commit is contained in:
alex 2000-03-08 21:01:48 +00:00
parent 28888d15ae
commit 076613b1b8
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
install/demo/samegame.pp
View File

@ -30,22 +30,26 @@ Uses Crt,Dos,
GameUnit;
CONST
{$IFDEF UseGraphics}
GrFieldX = 10; {X topleft of playfield}
GrFieldY = 70; {Y topleft of playfield}
ScalerX = 22; {ScalerX x Scaler y dots
must be approx a square}
ScalerY = 20;
{$ENDIF}
FieldX = 10; {Top left playfield
coordinates in squares(textmode)}
FieldY = 3; {Top left playfield coordinates}
PlayFieldXDimension = 20; {Dimensions of playfield}
PlayFieldYDimension = 15;
{$IFDEF UseGraphics}
RowDispl = 15;
MenuX = 480;
MenuY = 120;
grNewGameLine = 'NEW GAME';
grHelpLine = 'HELP';
grEndGame = 'END GAME';
{$ENDIF}
{Used colors. Colors[0..2] are the colors used on the playfield, Colors[3]
@ -547,7 +551,10 @@ BEGIN
END.
{
$Log$
Revision 1.4 2000-01-21 00:44:51 peter
Revision 1.5 2000-03-08 21:01:48 alex
braced some vars to avoid compiler warnings
Revision 1.4 2000/01/21 00:44:51 peter
* remove unused vars
* renamed to .pp