¿Cómo puedo optimizar este procedimiento?

Este es un procedimiento que estoy haciendo pero la maestra lo quiere optimizado, dice que esta muy extenso, hay alguna manera. Gracias
esto se trata de que en una fecha de nacimiento con 8 digitos  26011989 (26 de enero de 1989) se extraigan para al dale enter diga: tu naciste el 26 de enero de 1989
PROCEDURE MUESTRAFECHA
CLEAR
M=SUBS(F,3,2)
D=SUBS(F,1,2)
A=SUBS(F,5,4)
DO CASE
 CASE M="01"
  @12,12 SAY D + " DE " + "ENERO " + "DE " + A
 CASE M="02"
  @12,12 SAY D + " DE " + "FEBRERO " + "DE " + A
 CASE M="03"
  @12,12 SAY D + " DE " + "MARZO " + "DE " + A
 CASE M="04"
  @12,12 SAY D + " DE " + "ABRIL " + "DE " + A
 CASE M="05"
  @12,12 SAY D + " DE " + "MAYO " + "DE " + A
 CASE M="06"
  @12,12 SAY D + " DE " + "JUNIO " + "DE " + A
 CASE M="07"
  @12,12 SAY D + " DE " + "JULIO " + "DE " + A
 CASE M="08"
  @12,12 SAY D + " DE " + "AGOSTO " + "DE " + A
 CASE M="09"
  @12,12 SAY D + " DE " + "SEPTIEMBRE " + "DE " + A
 CASE M="10"
  @12,12 SAY D + " DE " + "OCTUBRE " + "DE " + A
 CASE M="11"
  @12,12 SAY D + " DE " + "NOBIENBRE " + "DE " + A
 CASE M="12"
  @12,12 SAY D + " DE " + "DICIEMBRE " + "DE " + A
ENDCASE
INKEY(0)
RETURN