paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:49:20 +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; GameUnit;
CONST CONST
{$IFDEF UseGraphics}
GrFieldX = 10; {X topleft of playfield} GrFieldX = 10; {X topleft of playfield}
GrFieldY = 70; {Y topleft of playfield} GrFieldY = 70; {Y topleft of playfield}
ScalerX = 22; {ScalerX x Scaler y dots ScalerX = 22; {ScalerX x Scaler y dots
must be approx a square} must be approx a square}
ScalerY = 20; ScalerY = 20;
{$ENDIF}
FieldX = 10; {Top left playfield FieldX = 10; {Top left playfield
coordinates in squares(textmode)} coordinates in squares(textmode)}
FieldY = 3; {Top left playfield coordinates} FieldY = 3; {Top left playfield coordinates}
PlayFieldXDimension = 20; {Dimensions of playfield} PlayFieldXDimension = 20; {Dimensions of playfield}
PlayFieldYDimension = 15; PlayFieldYDimension = 15;
{$IFDEF UseGraphics}
RowDispl = 15; RowDispl = 15;
MenuX = 480; MenuX = 480;
MenuY = 120; MenuY = 120;
grNewGameLine = 'NEW GAME'; grNewGameLine = 'NEW GAME';
grHelpLine = 'HELP'; grHelpLine = 'HELP';
grEndGame = 'END GAME'; grEndGame = 'END GAME';
{$ENDIF}
{Used colors. Colors[0..2] are the colors used on the playfield, Colors[3] {Used colors. Colors[0..2] are the colors used on the playfield, Colors[3]
@ -547,7 +551,10 @@ BEGIN
END. END.
{ {
$Log$ $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 * remove unused vars
* renamed to .pp * renamed to .pp