CLS
DO
Y = VAL(MID$(DATE$, 7, 4))
M = VAL(MID$(DATE$, 1, 2))
EM$ = "TH"
IF M = 1 THEN EM$ = "ST"
IF M = 2 THEN EM$ = "ND"
IF M = 3 THEN EM$ = "RD"
M$ = STR$(M) + EM$
FOR K = 1 TO M
READ MO$
NEXT
D = VAL(MID$(DATE$, 4, 2))
ED$ = "TH"
IF D = 1 THEN EM$ = "ST"
IF D = 2 THEN EM$ = "ND"
IF D = 3 THEN EM$ = "RD"
D$ = STR$(D) + ED$
H = INT(VAL(MID$(TIME$, 1, 2)) / 2) - 1
HH = VAL(MID$(TIME$, 1, 2))
IF HH < 12 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " A.M."
IF HH > 11 THEN T$ = STR$(H) + MID$(TIME$, 3, 8) + " P.M."
RESTORE
LOCATE 5, 1
PRINT "THE YEAR IS"; Y
PRINT "IT'S "; MO$
PRINT "WHICH IS THE"; M$; " MONTH"
PRINT "IT'S THE"; D$
PRINT "AND THE TIME IS"; T$
PRINT "THE MILITARY TIME IS "; TIME$
LOOP UNTIL INKEY$ <> ""
DATA "JANUARY","FEBRUARY","MARCH","APRIL","MAY","JUNE","JULY","AUGUST","SEPTEMBER","OCTOBER","NOVEMBER","DECEMBER"