'===========================================================================
' Subject: DISPLAY MONTH AND DAY NAMES       Date: 06-01-99 (15:43)       
' Author:  Dave Navarro, Jr.                 Code: PBCC                   
' Origin:  dave@powerbasic.com             Packet: PBCC.ABC
'===========================================================================
'Display month and day names from Windows international settings:


$INCLUDE "WIN32API.INC"

GLOBAL i AS LONG
GLOBAL s AS STRING

FUNCTION EnumCalendarProc(c AS ASCIIZ) AS LONG
  s = c
END FUNCTION

FUNCTION PbMain() AS LONG

  PRINT "Month names"
  FOR i = 0 TO 11
    EnumCalendarInfo CODEPTR(EnumCalendarProc), %LOCALE_SYSTEM_DEFAULT, 1, %CAL_SMONTHNAME1 + i
    PRINT "  "; s
  NEXT

  PRINT "Day names"
  FOR i = 0 TO 6
    EnumCalendarInfo CODEPTR(EnumCalendarProc), %LOCALE_SYSTEM_DEFAULT, 1, %CAL_SDAYNAME1 + i
    PRINT "  ";s
  NEXT

END FUNCTION