%Externalroutine pdate
   printstring("Today");newline
%End