ADDITIONAL_NAME(PASCALCOMPILE,PASCAL)
ADDITIONAL_NAME(PASCALCOMPILE,PA)
PERFORM