6 HR=VAL(HR$):IFHR<12ORHR=24THENGR$="Good morning!":WS$="Have a good day!":TD$="AM"ELSEIFHR>11ANDHR<19THENGR$="Good afternoon!":WS$="Have a good evening!":TD$="PM"ELSEGR$="Good evening!":WS$="Pleasant dreams!":TD$="PM"
8 IFHR>12THENHR=HR-12
10 PRINT" ";GR$:HR$=STR$(HR)
12 READS$:READS1$:IFS$=DAY$THEN14ELSE12
14 READR$:READR1$:IFR$=LEFT$(DATE$,2)THEN16ELSE14
16 PRINT@80," Today is ";S1$;", ";R1$;" ";MID$(DATE$,4,2);", 19";RIGHT$(DATE$,2)
18 PRINT@164-LEN(HR$),"The time is";HR$;:PRINT@X-1,":";MID$(TIME$,4,5);" o'clock ";TD$