*--------------------------------------------------------------------*
*             Copyright Sirius Software Inc.  1996                   *
*             A L L  R I G H T S   R E S E R V E D                   *
*--------------------------------------------------------------------*
* System:           CALENDAR                                         *
* Procedure:        CALP_MAIN                                        *
* Description:      Main window for the Sirius Events Calendar app.  *
*--------------------------------------------------------------------*

Begin

       %DOW             IS FIXED   DP   0
       %LASTDAY         IS FIXED   DP   0
       %LEAP            IS FIXED   DP   0

       %I               IS FLOAT
       %DT              IS FLOAT
       %RC              IS FLOAT
       %T_NUM           IS FLOAT
       %X               IS FLOAT
       %Y               IS FLOAT

       %CFORM           IS STRING LEN  10
       %COMMAND         IS STRING LEN 100
       %NEXT_DATE       IS STRING LEN   6
       %OPTION          IS STRING LEN  30
       %OPTION_SEL      IS STRING LEN  30
       %PREV_DATE       IS STRING LEN   6
       %SCLSS           IS STRING LEN  10
       %TARGET          IS STRING LEN  14
       %T_DATE          IS STRING LEN   6
       %T_MONTH         IS STRING LEN   2
       %T_YEAR          IS STRING LEN   4
       %X_DATE          IS STRING LEN   6

       %MNUMS           IS STRING LEN 255
       %MONTHS          IS STRING LEN 255
       %NAME            IS STRING LEN  80
       %TDATE1          IS STRING LEN  10
       %TDATE2          IS STRING LEN  10
       %TDATE3          IS STRING LEN  10
       %URL             IS STRING LEN 255
       %USERID          IS STRING LEN  80
       %YEARS           IS STRING LEN 255

       IMAGE EVENT GLOBAL
            TAG         IS STRING LEN  50
            TYPE        IS STRING LEN  20
            DATE_START  IS STRING LEN   8
            DATE_END    IS STRING LEN   8
            DATE_POSTED IS STRING LEN  14
            LOCATION    IS STRING LEN  50
            USERID      IS STRING LEN  10
            TCPADDR     IS STRING LEN  50
       END IMAGE

       %DAY             IS STRING LEN 255 ARRAY (42)

*      %DT     = $WEB_DATE + (30 * 24 * 60 * 60)
       %RC     = $WEB_ON
       %RC     = $WEB_TYPE('TEXT/HTML')
       %RC     = $WEB_SUB('@@')
       %RC     = $WEB_EXPIRE($WEB_DATE - 1)
       %RC     = $SETG('NEXT','LOG')

       %T_YEAR     = $WEB_PARM('T_YEAR')
       %T_MONTH    = $WEB_PARM('T_MONTH')

* If the form was POST'd to us, store the record.

       IF $WEB_HDR_PARM('METHOD') EQ 'POST' THEN

* Pick up the form variables.

          PREPARE IMAGE EVENT
          %EVENT:TAG           = $WEB_FORM_PARM('TAG')
          IF %EVENT:TAG EQ '' THEN
             JUMP TO NOPOST
          END IF

          %EVENT:TYPE          = $WEB_FORM_PARM('TYPE')
          %EVENT:DATE_START    = $WEB_FORM_PARM('S_YEAR') WITH -
                                 $WEB_FORM_PARM('S_MONTH') WITH -
                                 $WEB_FORM_PARM('S_DAY')
          %EVENT:DATE_END      = $WEB_FORM_PARM('E_YEAR') WITH -
                                 $WEB_FORM_PARM('E_MONTH') WITH -
                                 $WEB_FORM_PARM('E_DAY')
          %EVENT:LOCATION      = $WEB_FORM_PARM('LOCATION')
          %EVENT:TCPADDR       = $WEB_FORM_PARM('TCPADDR')

DUPE:     IN CALENDAR FDWOL EVENT TAG = %EVENT:TAG
          END FIND
          FR DUPE
             JUMP TO NOPOST
          END FOR

          %EVENT:DATE_POSTED=$DATECNV('YYYY-MM-DD','YYYYMMDD',$DATE(1))

          IF %EVENT:DATE_END EQ '' THEN
             %EVENT:DATE_END = %EVENT:DATE_START
          END IF

          IN FILE CALENDAR STORE RECORD
             EVENT TAG      = %EVENT:TAG
             LOCATION       = %EVENT:LOCATION
             EVENT TYPE     = %EVENT:TYPE
             DATE START     = %EVENT:DATE_START
             DATE END       = %EVENT:DATE_END
             DATE POSTED    = %EVENT:DATE_POSTED
             USERID         = %EVENT:USERID
             TCPADDR        = %EVENT:TCPADDR
          END STORE
          COMMIT
          %RC      = $WEB_REDIRECT('calendar?T_MONTH=' WITH -
                                   $WEB_FORM_PARM('S_MONTH) WITH -
                                   WITH '&T_YEAR=' WITH -
                                   $WEB_FORM_PARM('S_YEAR))
          STOP
       END IF

* Initialize the calendar.

NOPOST:

       %OPTION        = '<OPTION value="'
       %OPTION_SEL    = '<OPTION SELECTED value="'
       %URL           = $WEB_HDR_PARM('URL')

       %T_NUM = $SIR_DATE2ND(%T_YEAR WITH %T_MONTH, 'YYYYMM')
       IF %T_NUM LT $SIR_DATE2ND('199901', 'YYYYMM') THEN
          %T_DATE  = $SIR_DATE('YYYYMM')
          %T_YEAR  = $SUBSTR(%T_DATE, 1, 4)
          %T_MONTH = $SUBSTR(%T_DATE, 5, 2)
          %RC      = $WEB_REDIRECT('calendar?T_MONTH=' WITH %T_MONTH -
                                   WITH '&T_YEAR=' WITH %T_YEAR)
          STOP
       END IF

       %MNUMS     = ' 01 02 03 04 05 06 07 08 09 10 11 12'
       %MONTHS    = ' January February March April May June July' WITH -
                    ' August September October November December'

       %X         = $MIN(%T_YEAR, $SIR_DATE('YYYY'))
       FOR %I FROM %X TO (%X + 5)
          %YEARS  = %YEARS WITH ' ' WITH %I
       END FOR

       %PREV_DATE = $SIR_ND2DATE(%T_NUM - 1, 'YYYYMM')
       %NEXT_DATE = $SIR_ND2DATE(%T_NUM + 31, 'YYYYMM')

       %LASTDAY    = $SIR_DATE2ND(%NEXT_DATE, 'YYYYMM') - %T_NUM

       %DOW        = $MOD(%T_NUM + 1, 7)

* Search the database for items to post this month.

       %TARGET     = %T_DATE WITH '*'

FD_MON:
       IN CALENDAR FDWOL DATE START IS LIKE %TARGET OR -
                         DATE END   IS LIKE %TARGET
       END FIND
       PLACE RECORDS IN FD_MON ON LIST EVENTS

       IF $SCLASS NE 'SIRIUS' THEN
FD_PRIV:  FDWOL ON LIST EVENTS FOR WHICH EVENT TYPE = PRIVATE
          END FIND
          REMOVE RECORDS IN FD_PRIV FROM LIST EVENTS
          RELEASE RECORDS IN FD_PRIV
       END IF

FD_ANN:
       IN CALENDAR FDWOL EVENT TYPE = 'ANNUAL'
       END FIND
       FR FD_ANN
          IF $SUBSTR(DATE START,5,2) EQ %T_MONTH OR -
              $SUBSTR(DATE END,5,2) EQ %T_MONTH THEN
             PLACE RECORD ON LIST EVENTS
          END IF
       END FOR

* Now loop over the %DAY array, posting the found items.

       FOR %X FROM 1 TO %LASTDAY
          %Y = %X+%DOW
          %DAY(%Y) = '<b>' WITH %X WITH '</b>'
          %TARGET = %T_YEAR WITH %T_MONTH WITH $PAD(%X, '0', 2)

FD_DAY:   FDWOL ON LIST EVENTS FOR WHICH -
                 (DATE START IS LE %TARGET AND DATE END IS GE %TARGET) -
                 OR EVENT TYPE EQ 'ANNUAL'

          END FIND

          FR FD_DAY
             * For PUBLIC and PRIVATE events we already know we want to
             * post it here because the FIND did the work for us.
             IF EVENT TYPE NE 'ANNUAL' THEN
                %DAY(%Y) = %DAY(%Y) WITH ' ' WITH EVENT TAG
                IF LOCATION IS PRESENT THEN
                   %DAY(%Y) = %DAY(%Y) WITH ' (' WITH LOCATION WITH ') '
                END IF
             * For ANNUAL events we still don't know if we're on the
             * right day.
             ELSE
                %TDATE1 = $PAD(%T_MONTH,'0',2) WITH $PAD(%X,'0',2)
                %TDATE2 = $SUBSTR(DATE START,5,4)
                %TDATE3 = $SUBSTR(DATE END,5,4)
                IF (%TDATE1 GE %TDATE2) AND (%TDATE1 LE %TDATE3) THEN
                   %DAY(%Y) = %DAY(%Y) WITH ' ' WITH EVENT TAG
                   IF LOCATION IS PRESENT THEN
                      %DAY(%Y)=%DAY(%Y) WITH ' (' WITH LOCATION WITH ') '
                   END IF
                END IF
             END IF
          END FOR
       END FOR

       IDENTIFY EVENT

* Set the doc type and route terminal output to the user.

       %RC     = $WEB_TYPE('TEXT/HTML')
       %RC     = $WEB_ON

* Start the page:

       PRINT '<html>'
       PRINT '<head>'
       PRINT '<title>Sirius Software Events Calendar</title>'
       PRINT '</head>'

       PRINT '<body bgcolor="#ffffd8">'

       PRINT '<table cellpadding=2 cellspacing=4 border=0>'
       PRINT   '<tr>'
       PRINT   '<td valign=top halign=left>'
       PRINT   '<a href="http://sirius-software.com/">'
       PRINT   '<img src="/bin/sirhead2.gif"'
       PRINT   ' border=0 height=75 width=250></a>'
       PRINT   '</td>'
       PRINT   '<td valign=top halign=left>'
       PRINT   'The Calendar is open for anyone to'
       PRINT   '<a href="#sub">post events</a>'
       PRINT   'of interest to Sirius Software clients or to the Model'
       PRINT   '204 community in general.'

       PRINT   '</td>'


       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '<td>'
       PRINT   '</td>'
       PRINT   '<td valign=top halign=left>'

       PRINT '<table width=60% cellpadding=2 cellspacing=4 border=1>'

       PRINT '<td valign=top halign=left width=50%>'
       PRINT '<a href="calendar?T_MONTH=' WITH -
             $SUBSTR(%PREV_DATE, 5, 2) WITH '&T_YEAR=' WITH -
             $SUBSTR(%PREV_DATE, 1, 4) WITH '">Previous month</a>'
       PRINT '</td>'

       PRINT '<td valign=top halign=left width=50%>'
       PRINT '<a href="calendar?T_MONTH=' WITH -
             $SUBSTR(%NEXT_DATE, 5, 2) WITH '&T_YEAR=' WITH -
             $SUBSTR(%NEXT_DATE, 1, 4) WITH '">Next month</a>'
       PRINT '</td>'

       PRINT '</tr>'
       PRINT '</table>'

       PRINT '<table width=60% cellpadding=2 cellspacing=4 border=1>'
       PRINT   '<tr>'
       PRINT     '<form NAME="DFORM" METHOD="GET"'
       PRINT     'ACTION="' WITH %URL WITH '">'

       PRINT     '<td valign=top halign=left width=20%>'
       PRINT     '<SELECT NAME="T_MONTH">'
       %RC = $WEB_SELSP(%MNUMS, %MONTHS, 'T_MONTH')
       PRINT   '  </td>'

       PRINT   '  <td valign=top halign=left width=20%>'
       PRINT '    <SELECT NAME="T_YEAR">'
       %RC = $WEB_SELSP(%YEARS, ,'T_YEAR')

       PRINT   '  </td>'
       PRINT   '  <td valign=top halign=left width=20%>'
       PRINT   '    <INPUT TYPE="SUBMIT" VALUE="Go To Month">'
       PRINT   '  </td>'
       PRINT     '</form>'
       PRINT   '</tr>'

       PRINT '</table>'
       PRINT '</td>'
       PRINT '</tr>'
       PRINT '</table>'

       PRINT '<br>'

       PRINT '<center><h3>' WITH $WORD(%MONTHS, ' ', %T_MONTH) WITH -
             ' ' WITH %T_YEAR WITH '</h3></center>'

       PRINT '<table width=100% cellpadding=2 cellspacing=4 border=1>'

       PRINT   '<tr>'
       PRINT   '  <th valign=top halign=left width=14%>Sunday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Monday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Tuesday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Wednesday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Thursday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Friday</th>'
       PRINT   '  <th valign=top halign=left width=14%>Saturday</th>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(1) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(2) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(3) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(4) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(5) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(6) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(7) WITH '</td>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(8) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(9) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(10) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(11) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(12) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(13) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(14) WITH '</td>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(15) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(16) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(17) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(18) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(19) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(20) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(21) WITH '</td>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(22) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(23) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(24) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(25) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(26) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(27) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(28) WITH '</td>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(29) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(30) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(31) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(32) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(33) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(34) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(35) WITH '</td>'
       PRINT   '</tr>'

       PRINT   '<tr>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(36) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(37) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(38) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(39) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(40) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(41) WITH '</td>'
       PRINT   '  <td valign=top halign=left width=14%>' WITH %DAY(42) WITH '</td>'
       PRINT   '</tr>'

       PRINT '</table>'

* Submit new calendar entry.

       * Send the body of the form.

       PRINT '<form NAME="OFORM" METHOD="POST" ACTION="calendar">'
       PRINT '<table width=100% cellpadding=2 cellspacing=4 border=0>'

       PRINT '<tr>'
       PRINT   '<th valign=top halign=left colspan=2>'
       PRINT     '<a name="sub">Submit a calendar entry</a>'
       PRINT   '</th>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT   '<td valign=top halign=left>'
       PRINT     '<INPUT TYPE="TEXT" SIZE=30 NAME="TAG"'
       PRINT      'VALUE="' WITH %EVENT:TAG WITH '">'
       PRINT   '</td>'
       PRINT   '<td valign=top halign=left>'
       PRINT      'Enter a short description for the event.  This tag'
       PRINT      'will appear on each event day in the calendar.'
       PRINT   '</td>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT   '<td valign=top halign=left>'
       PRINT     '<INPUT TYPE="TEXT" SIZE=30 NAME="LOCATION"'
       PRINT      'VALUE="' WITH %EVENT:LOCATION WITH '">'
       PRINT   '</td>'
       PRINT   '<td valign=top halign=left>'
       PRINT     'Enter the place where the event will occur (optional).'
       PRINT   '</td>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT   '<td valign=top halign=left>'
       PRINT     '<SELECT NAME="TYPE">'
       PRINT        '<OPTION value="PUBLIC">PUBLIC'
       PRINT        '<OPTION value="ANNUAL">ANNUAL'
       IF $SCLASS EQ 'SIRIUS' THEN
          PRINT        '<OPTION value="PRIVATE">PRIVATE'
       END IF
       PRINT     '</SELECT>'
       PRINT   '</td>'
       PRINT   '<td valign=top halign=left>'
       PRINT      'Specify ANNUAL for events that occur every year on'
       PRINT      'the same day (4th of July, Cinco de Mayo, etc).'
       PRINT      'Specify PUBLIC for events that should appear on The'
       PRINT      'Calendar in a specific year.'
       PRINT      'All ANNUAL events are also public.'
       PRINT      'If you''re a Sirius employee or business partner with'
       PRINT      'an appropriate logon id you can also post PRIVATE'
       PRINT      'events, which only appear on The Calendar to other'
       PRINT      'Sirius employees.'
       PRINT   '</td>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT '  <td valign=top halign=left>'
       PRINT '    <SELECT NAME="S_MONTH">'
       %RC = $WEB_SELSP(%MNUMS, %MONTHS)
       PRINT '    <SELECT NAME="S_DAY">'
                     CALL PRINT_DAY_OPTIONS
       PRINT '    </SELECT>'
       PRINT '    <SELECT NAME="S_YEAR">'
       %RC = $WEB_SELS(%YEARS)
       PRINT '    </SELECT>'
       PRINT '  </td>'
       PRINT '  <td valign=top halign=left>'
       PRINT '     Specify an event start date.'
       PRINT '  </td>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT '  <td valign=top halign=left>'
       PRINT '    <SELECT NAME="E_MONTH">'
       %RC = $WEB_SELS(',,01,02,03,04,05,06,07,08,09,10,11,12', -
                       ',,January,February,March,April,May,June,July,August,September,October,November,December')
       PRINT '    <SELECT NAME="E_DAY">'
       PRINT '       <OPTION value="">'
                     CALL PRINT_DAY_OPTIONS
       PRINT '    </SELECT>'
       PRINT '    <SELECT NAME="E_YEAR">'
       PRINT '       <OPTION value="">'
                     CALL PRINT_YEAR_OPTIONS
       PRINT '    </SELECT>'
       PRINT '  </td>'
       PRINT '  <td valign=top halign=left>'
       PRINT '     Specify an event end date if it''s more than one day.'
       PRINT '  </td>'
       PRINT '</tr>'

       PRINT '<tr>'
       PRINT '  <td valign=top halign=left>'
       PRINT '    <INPUT TYPE="SUBMIT" VALUE="Post It">'
       PRINT '  </td>'
       PRINT '  <td>'
       PRINT '  </td>'
       PRINT '</tr>'
       PRINT '</table>'
       PRINT '</FORM>'

       PRINT '<p>'
       PRINT 'The Calendar is running in the Janus Web Server.'
       PRINT 'It consists of the'
       PRINT '<A HREF="/JANWEB_DEFINEC">Janus Web commands</A>'
       PRINT 'that define the server characteristics, an application'
       PRINT 'subsystem definition, and the'
       PRINT '<A HREF="/DEMO_CALP_MAIN">User Language program</A>'
       PRINT 'that generates this page. The Calendar is one of the'
       PRINT 'the sample applications you get when you purchase a'
       PRINT '<A HREF="/janweb.pdf">Janus Web Server</A>.'

       * Send the pre-defined pager footer from procedure 'HTML_FOOTER'.

       %RC = $WEB_PROCSEND(,'CALH_FOOTER')
       %RC = $WEB_DONE
       %RC = $SETG('NEXT','LOG')


PRINT_DAY_OPTIONS: SUBROUTINE
       PRINT '       <OPTION value="01">1'
       PRINT '       <OPTION value="02">2'
       PRINT '       <OPTION value="03">3'
       PRINT '       <OPTION value="04">4'
       PRINT '       <OPTION value="05">5'
       PRINT '       <OPTION value="06">6'
       PRINT '       <OPTION value="07">7'
       PRINT '       <OPTION value="08">8'
       PRINT '       <OPTION value="09">9'
       PRINT '       <OPTION value="10">10'
       PRINT '       <OPTION value="11">11'
       PRINT '       <OPTION value="12">12'
       PRINT '       <OPTION value="13">13'
       PRINT '       <OPTION value="14">14'
       PRINT '       <OPTION value="15">15'
       PRINT '       <OPTION value="16">16'
       PRINT '       <OPTION value="17">17'
       PRINT '       <OPTION value="18">18'
       PRINT '       <OPTION value="19">19'
       PRINT '       <OPTION value="20">20'
       PRINT '       <OPTION value="21">21'
       PRINT '       <OPTION value="22">22'
       PRINT '       <OPTION value="23">23'
       PRINT '       <OPTION value="24">24'
       PRINT '       <OPTION value="25">25'
       PRINT '       <OPTION value="26">26'
       PRINT '       <OPTION value="27">27'
       PRINT '       <OPTION value="28">28'
       PRINT '       <OPTION value="29">29'
       PRINT '       <OPTION value="30">30'
       PRINT '       <OPTION value="31">31'
END SUBROUTINE PRINT_DAY_OPTIONS

PRINT_YEAR_OPTIONS: SUBROUTINE
       PRINT '       <OPTION value="1998">1998'
       PRINT '       <OPTION value="1999">1999'
       PRINT '       <OPTION value="2000">2000'
       PRINT '       <OPTION value="2001">2001'
       PRINT '       <OPTION value="2002">2002'
       PRINT '       <OPTION value="2003">2003'
END SUBROUTINE PRINT_YEAR_OPTIONS

END