Path: utzoo!utgpu!water!watmath!julian!uwovax!3021_4346
From: 3021_4346@uwovax.uwo.cdn (Greg Miller)
Newsgroups: comp.lang.postscript
Subject: Re: PostScript Calendar - Correction Required + VMS DCL production
Message-ID: <240@uwovax.uwo.cdn>
Date: 14 Apr 88 23:30:02 GMT
References: <8804112027.AA19801@decwrl.dec.com> <Apr.12.00.55.37.1988.2602@porthos.rutgers.edu>
Lines: 128
Organisation: University of Western Ontario, Canada


 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 6325