ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/MAGAZINE/MISC/PCTV1N3.ZIP/TRACE.PAS

Pascal/Delphi Source File | 1990-05-14 | 247 b | 12 lines

{ Listing 6 - Trace example }

PROCEDURE Tile.Import(VAR PatFile : TEXT);
BEGIN
  READ(PatFile,Color,X,Y);
  IF TRACE THEN
    BEGIN
      Write(LST,'Read tile.');
      Write(LST,'  X,Y,Color=',X,', ',Y,', ',Color);
    END;{IF}
END;