int rootpage(){

char mtxt[128];
            
TCanvas *c= new TCanvas("c","c",210*3.5,297*3.5);
TPaveText *pt = new TPaveText(0,0.95,1,1);
pt->AddText( "Page Header @ CERN SPS");
pt->Draw();
c->cd();
TVirtualPad *main  = new TPad("man","Main", 0,0,1,0.95,10,1);
main->Draw();
main->Divide(2,3);
main->cd(1);

TF1 * gaus = new TF1("mygaus","gaus", 0, 10);
gaus->SetParameter(0,1);
gaus->SetParameter(1,1);
gaus->SetParameter(2,1);
gaus->Draw();

TFile *file = gDirectory->GetFile();
if (file) sprintf(mtxt,"File %s", gSystem->BaseName(->GetName()) );
else sprintf(mtxt,"No file selected");
pt->AddText(mtxt);

c->Modified();
c->Update();

return 0;
}