home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
magazine
/
pctchnqs
/
1990
/
number3
/
mosaic.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1990-05-14
|
450b
|
31 lines
{ Listing 1 - The MOSAIC program itself }
PROGRAM Mosaic;
USES DOS, CRT, GRAPH, Tiles;
VAR
Ptrn : Pattern;
AnyFile : TEXT;
Name : String[80];
PROCEDURE PtrnStuff;
BEGIN
Ptrn.Init('');
ASSIGN(AnyFile,'MOSAIC.PAT');
RESET(AnyFile);
READLN(AnyFile,Name);
Ptrn.Import(AnyFile);
CLOSE(AnyFile);
SetScale(10);
Ptrn.Draw;
END;
BEGIN
InitGraphics;
PtrnStuff;
DoneGraphics;
END.