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

made it compile under win32

Browse Source
This commit is contained in:
alex 2000-03-09 02:35:22 +00:00
parent 84d2db4fe3
commit 9a4ddcd957
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
install/demo/quad.pp
View File

@ -425,7 +425,11 @@ Begin
IF I<>0 THEN
BEGIN
ShowHighScore;
{$IFDEF USEGRAPHICS}
GrInputStr(S,20,21-I,16,12,10,FALSE,AlfaBeta);
{$ELSE}
InputStr(S,20,21-I,10,FALSE,AlfaBeta);
{$ENDIF}
IF Length(S)<12 THEN
BEGIN
str(time.a_min,m);