paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-08 15:06: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:19:42 +00:00
parent da4fbd9ec1
commit 25c328e1de
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
install/demo/quad.pp
View File

@ -79,6 +79,7 @@ Var b : array[1..nox,1..noy] Of card;
bgidirec : string; bgidirec : string;
time : time_record; time : time_record;
{
Procedure fatal(fcall:String); Procedure fatal(fcall:String);
Begin Begin
textmode(CO80); textmode(CO80);
@ -90,6 +91,7 @@ Begin
readln; readln;
halt; halt;
End; End;
}
Procedure ginit640x480x16(direc:String); Procedure ginit640x480x16(direc:String);