$ SET NOON
$ IF P1 .EQS. "/NOSCHED" THEN $ GOTO NODTC
$ DTCPAR = "D"				! Before 1 PM, show today
$ HH = F$CVTIME(,,"HOUR")
$ IF HH .LE. 12 THEN GOTO SHODTC
$ DTCPAR = "+1D"			! After, tomorrow
$ DOW = F$CVTIME(,,"WEEKDAY")
$ IF DOW .NES. "Friday" THEN $ GOTO SHODTC
$ DTC 'DTCPAR
$ WAIT 0:0:5				! leave it there a while
$ DTCPAR = "+1W"			! Friday afternoon, show next week also
$ SHODTC: DTC 'DTCPAR			! Show tomorrow's schedule
$ ! sho sym/loc/all
$ WAIT 0:0:5				! leave it there a while
$ NODTC:				! Here if don't want it