Accept both cases for FORMAT by using CHAR-UPCASE.