home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N3.ZIP / MOSAIC.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-05-14  |  450 b   |  31 lines
  1. { Listing 1 - The MOSAIC program itself }
  2.  
  3. PROGRAM Mosaic;
  4.  
  5. USES DOS, CRT, GRAPH, Tiles;
  6.  
  7. VAR
  8.    Ptrn : Pattern;
  9.    AnyFile : TEXT;
  10.    Name : String[80];
  11.  
  12. PROCEDURE PtrnStuff;
  13. BEGIN
  14.    Ptrn.Init('');
  15.  
  16.    ASSIGN(AnyFile,'MOSAIC.PAT');
  17.    RESET(AnyFile);
  18.    READLN(AnyFile,Name);
  19.    Ptrn.Import(AnyFile);
  20.    CLOSE(AnyFile);
  21.  
  22.    SetScale(10);
  23.    Ptrn.Draw;
  24. END;
  25.  
  26. BEGIN
  27.    InitGraphics;
  28.    PtrnStuff;
  29.    DoneGraphics;
  30. END.
  31.