M$ = "January;February;March;April;May;June;July;August;September;October;November;December;"

M = VAL(MID$(DATE$, 1, 2))
D$ = MID$(DATE$, 4, 2)
Y$ = MID$(DATE$, 7, 4)

P = 0
FOR A = 1 TO M
    S = P + 1
    P = INSTR(S, M$, ";")
NEXT A
M$ = MID$(M$, S, P - S)

CLS
PRINT "Today is "; M$; " "; D$; ", "; Y$; "."