#/bin/csh -f
set path = (/sbin /usr/sbin /usr/bin /usr/local/bin /afs/athena/contrib/graphics/bin .)
vidtomem -f/tmp/tmp
sgitopnm /tmp/tmp-00000.rgb | ppmnorm > /tmp/pic.ppm
date | pbmtext > /tmp/date.pbm
pnmpaste /tmp/date.pbm 0 0 /tmp/pic.ppm | cjpeg > $1 
rm /tmp/tmp-00000.rgb /tmp/pic.ppm /tmp/date.pbm