RDROYA01@ULKYVX.BITNET.UUCP (01/30/87)
File: shar.line 233 month = (date>>5)-change month = ((date>>5)&15)-1