Unit ProbaUnit; {Ennek a nvnek egyeznie kell a file nevvel}
-------------------------
Interface {Ide adhatk meg a vltozk ,kontsansok rtkei}
 Uses ...
 Const ...
 Type ...
 Var ...
 { Az eljsok fejlcei }
-------------------------
Implementation {Ez tartalmazza a teljes deklarcit, egyben a loklis
                deklarcit is.}
 Uses ...
 Label ...
 Const ...
 Type ...
 Var ...
 { Az eljsok fejlcei }
-------------------------
Begin {Inicalizls rsz}
 {Utastsok}
End.

Ime itt egy mkd plda r.
Unit Newwin;
Interface
 Procedure ujablak(v1,f1,v2,f2,tb,tc:byte); {Vltozk, procedurek megadsa}
Implementation
 Uses Crt;
 Procedure Ujablak(v1,f1,v2,f2,tb,tc:byte);  {Vltozk, procedurek teljes}
Begin
 Window(v1,f1,v2,f2);             {Ablak ltrehozsa}
 Textcolor(tc);                   {Szveg szin}
 Textbackground(tb);              {Httr szin}
 Clrscr;                          {Kperny trls, lthat lesz az ablak}
 End;
End.

Megadsa a kvetkez :
...
 Ujablak(v1,f1,v2,f2,tc,tb)
                     Httr szine
                   Karakter szine
                 Fggleges vgpont
               Vizszintes vgpont
             Fggleges kezdpont
           Vizszintes kezdpont
...

 Teht ezzel mr elrtk, hogy nem kell 10 sorban beadni a dolgokat hanem
 elg egy sorba.Igy ttekinthetbb a kd.
 A fenti programot megtalljtok NEWWIN.ARJ nven.
 Remlem sikerlt valamit elmagyarzni vele, szintn megmondva nem tudom
 hogy hoztam ezt is ssze.

 A newwin.pas-ban szerepl programot csak a szerz (Zozo) engedlyvel
 szabad mdostani, tovbb a newwin.arj-ben tallhat file is ugyanezen
 szerzi jogvdelem al esik!

 MolTi
