#!/bin/sh
thursday=$(date -d thursday +'%Y/%m/%d')
friday=$(date -d friday +'%Y/%m/%d')
LANG=C
echo "$(date -d now +'%Y/%m/%d %H:%M#$B:#F|(B#$B8=:_(B')" |
(cat ;for every in 0 7 14
do
	echo "$(date -d $every' day '$thursday +'%Y/%m/%d 13:10-LDM@M301')"
	echo "$(date -d $every' day '$friday +'%Y/%m/%d 13:10-BS2$BDjNc2q(B@M304')"
done) |
(cat ;list=1 ycal "$*") |
while read line
do
	set $line
	echo $(date -d $1 +'%Y')"   "$(date -d $1 +'%m/%d %a ')$2
done |
	(cat ;scan -form scan.sched $(
		pick -from schedule +d 2>/dev/null) 2>/dev/null |
	(cat ;scan -form scan.sched $(2>/dev/null
		pick -from schedule +i 2>/dev/null) 2>/dev/null) |
	sed 's/+/ /g') |
	sort +1
