'===========================================================================
' 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