PASCAL'S SUBSLUT