Program Demoport;

uses
    crt,necesari;

begin
     portada(1,'Demostracion de la Portada.');
end.

    Source: geocities.com/v.iniestra/apuntes/fesc

               ( geocities.com/v.iniestra/apuntes)                   ( geocities.com/v.iniestra)