$SET NOON
$!READ CALTIK.DAT IF IT EXISTS AND GET TODAY'S APPOINTMENTS
$! FOR NOTICE TO THE USER
$TODAY=F$TIME()
$FILE=F$SEARCH("SYS$LOGIN:CALTIK.DAT")
$IF FILE .EQS. "" THEN EXIT
$! NO TEST FOR P1 HAVING A DATE HERE...JUST WING IT.
$DTM=F$CVTIME(TODAY)
$OPEN/READ INFIL SYS$LOGIN:CALTIK.DAT
$PSWITCH="N"
$GETFIL:
$READ/END_OF_FILE=DONE INFIL RECORD
$C1=F$EXTRACT(0,1,RECORD)
$IF C1 .EQS. "-" THEN GOTO DTXT
$IF C1 .EQS. ">" THEN GOTO DDAT
$ GOTO GETFIL
$ DTXT:
$! PROCESS TEXT
$ IF PSWITCH.NES."N" THEN WRITE SYS$OUTPUT RECORD
$ GOTO GETFIL
$ DDAT:
$ PSWITCH="N"
$ LD=F$EXTRACT(4,22,RECORD)
$ HD=F$EXTRACT(29,22,RECORD)
$ IF DTM.GES.LD.AND.DTM.LES.HD THEN PSWITCH="Y"
$ GOTO GETFIL
$! THAT'S ALL THERE IS TO IT
$DONE:
$CLOSE INFIL