function pagetitle (ptitle,tpoint,papersize);

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% pagetitle.m                            %
% written 2/25/00 by benolding           %
% adds title to top of PostScript page   %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% Requires: al.m, setfont.m

% PS commands used --
% moveto : move to given x & y coordinates (in points)
% show   : display text

global PSText PSComment

setfont (tpoint,'Times-Roman');

al([num2str((papersize(1)-length(ptitle)*tpoint/2.5/72)/2),...
    ' inch ',num2str(papersize(2)-1.5*tpoint/72),' inch moveto']);
al (['(',ptitle,') show']);  
