variable __pcalendar

\ ---------------
\ module CALENDAR
\ ---------------

>fom set_calendar,calendar

: MOD_CALENDAR
   17 >include "D:\PARX.SYS\FORTH\CALENDAR.FOM"
;

MOD_CALENDAR __pcalendar ! 1 __pcalendar modload

\ if flag 10 set, then verbose mode

\ if verbose and french

10 15 >ifflag2

      dup 0= if
         ." Module CALENDAR ok"
         cr cr
         " Mots disponibles :" swap
      else
         ." Module CALENDAR : **ERREUR**"
      then

>endf

\ if verbose and english

10 -15 >ifflag2

      dup 0= if
         ." CALENDAR Module ok"
         cr cr
         " Available words :" swap
      else
         ." CALENDAR Module : **ERROR**"
      then

>endf

\ if verbose
10 >ifflag

   0= if
      cr
      0 __pcalendar modlname type cr
      type cr
      __pcalendar modtype dup 0= + 3 + 1 do
         i __pcalendar modlname type space
      loop
      cr cr
   then

>endf

\ if flag 10 not set, just drop modload value

-10 >ifflag
   drop
>endf

>comp



