3021_4346@uwovax.uwo.cdn (Greg Miller) (04/15/88)
With regard to the revised PostScript monthly calendar, has
anybody noticed that it is producing incorrect calendars
for the months of April 1988 onwards?
Does anybody have the corrected version available yet?
For those on VMS with EDT who would like to "automate"
production of the calendar, save the file in MONCAL.PS,
strip off everything non-PostScript, and change the
following lines.
/month $month def ---> /month VARMONTH def
/year $year def ---> /year VARYEAR def
Then execute the following DCL procedure. If your POSTRSCRIPT queue
goes by another name, change the string POSTSCRIPT to that appropriate
to your site.
Greg Miller
---------------------------------------<CUT HERE>---------------------------
$ ! * MONCAL.COM * !
$ ! 88-01-11 JGM !
$ ON CONTROL_Y THEN EXIT
$ DEFINE TT SYS$OUTPUT
$ IMONTH = p1
$ IYEAR = p2
$ YEAR = F$STRING(p2)
$ WRITE TT "*******************************************************************"
$ WRITE TT ""
$ WRITE TT ""
$ WRITE TT " MONTHLY CALENDAR"
$ WRITE TT " ----------------"
$ IF (p2.EQS."") THEN GOTO START
$ WRITE TT ""
$ GOSUB MONTHCHECK
$ GOSUB YEARCHECK
$ GOTO PROCEED2
$ START:
$ QMONTH1:
$ WRITE TT ""
$ QMONTH2:
$ INQUIRE IMONTH " enter numeric representation of month (1-12) "
$ GOSUB MONTHCHECK
$ WRITE TT ""
$ WRITE TT " calendar required for the month of " + MONTH + " ?"
$ WRITE TT ""
$ VERIFY1:
$ INQUIRE DECISN " indicate if this is correct - 'Y' or 'N' "
$ IF (DECISN.EQS."Y") THEN GOTO QYEAR1
$ IF (DECISN.EQS."N") THEN GOTO QMONTH1
$ GOTO VERIFY1
$ QYEAR1:
$ WRITE TT ""
$ QYEAR2:
$ INQUIRE IYEAR " enter numeric representation of year (1800-2399) "
$ GOSUB YEARCHECK
$ WRITE TT ""
$ WRITE TT " calendar required for the month of " + MONTH + -
" in the year of " + YEAR + " ?"
$ WRITE TT ""
$ VERIFY2:
$ INQUIRE DECISN " indicate if this is correct - 'Y' or 'N' "
$ IF (DECISN.EQS."Y") THEN GOTO PROCEED1
$ IF (DECISN.EQS."N") THEN GOTO QYEAR1
$ GOTO VERIFY2
$ PROCEED1:
$ WRITE TT ""
$ PROCEED2:
$ NMONTH = F$STRING(IMONTH)
$ CALFIL = MONCAL.PS"
$ CALCTL = "CALCTL.COM;"
$ CALMON = MONTH + "." + YEAR + ";"
$ OPEN/WRITE CALCTL 'CALCTL'
$ WRITE CALCTL "$ DEFINE/USER_MODE SYS$OUTPUT NL:"
$ WRITE CALCTL "$ EDIT/NOCOMMAND " + CALFIL
$ WRITE CALCTL " SUBSTITUTE/VARMONTH/" + NMONTH + "/17"
$ WRITE CALCTL " SUBSTITUTE/VARYEAR/" + YEAR + "/18"
$ WRITE CALCTL " EXIT " + CALMON
$ WRITE CALCTL "$ PRINT/DELETE/NOIDENTIFY/QUEUE=POSTSCRIPT " + CALMON
$ WRITE CALCTL "$ DELETE " + CALCTL
$ WRITE CALCTL "$ EXIT"
$ CLOSE CALCTL
$ @'CALCTL'
$ WRITE TT ""
$ SHOW QUEUE POSTSCRIPT
$ WRITE TT ""
$ WRITE TT ""
$ WRITE TT "*******************************************************************"
$ WRITE TT ""
$ WRITE TT ""
$ DEASSIGN TT
$ EXIT
$ MONTHCHECK:
$ IF (IMONTH.LT.1.OR.IMONTH.GT.12) THEN GOTO QMONTH2
$ IF (IMONTH.EQ.1) THEN MONTH = "JANUARY"
$ IF (IMONTH.EQ.2) THEN MONTH = "FEBRUARY"
$ IF (IMONTH.EQ.3) THEN MONTH = "MARCH"
$ IF (IMONTH.EQ.4) THEN MONTH = "APRIL"
$ IF (IMONTH.EQ.5) THEN MONTH = "MAY"
$ IF (IMONTH.EQ.6) THEN MONTH = "JUNE"
$ IF (IMONTH.EQ.7) THEN MONTH = "JULY"
$ IF (IMONTH.EQ.8) THEN MONTH = "AUGUST"
$ IF (IMONTH.EQ.9) THEN MONTH = "SEPTEMBER"
$ IF (IMONTH.EQ.10) THEN MONTH = "OCTOBER"
$ IF (IMONTH.EQ.11) THEN MONTH = "NOVEMBER"
$ IF (IMONTH.EQ.12) THEN MONTH = "DECEMBER"
$ IF (MONTH.EQS."") THEN GOTO QMONTH2
$ RETURN
$ YEARCHECK:
$ IF (IYEAR.LT.1800.OR.IYEAR.GT.2399) THEN GOTO QYEAR2
$ YEAR = F$STRING(IYEAR)
$ IF (YEAR.EQS."") THEN GOTO QYEAR2
$ RETURN
--------------------------------------------<CUT HERE>------------------------
----
INTERnet: JGM@uwo.CA MAIL: Room 032, Chemistry Building
University of Western Ontario
NetNorth: A4346@UWOCC1.BITNET LONDON, Ontario, N6A 5B7
UUCP: JGM@julian.UUCP PHONE: (519) 679-2111 ext 6325fmr@cwi.nl (Frank Rahmani) (04/17/88)
> With regard to the revised PostScript monthly calendar, has > anybody noticed that it is producing incorrect calendars > for the months of April 1988 onwards? Say what?? I've printed out the whole of 1988 several times before I got startled by your message. Compared it to a 'real' calendar of 1988: no difference. Could you be more specific?? fmr@cwi.nl -- It is better never to have been born. But who among us has such luck? -------------------------------------------------------------------------- These opinions are solely mine and in no way reflect those of my employer.