systemroutinespec  compile(string (255) s,string (32) entry,
                           integername  flag)
systemroutinespec  psysmes(integer  root,mess)
externalroutine  algol(string (255) s)
   integer  flag
      compile(s,"ICL9CEZALGOL",flag)
      if  flag#0 then  psysmes(48,flag)
end ;                                    !of algol
endoffile