//
// check the Date() formats               Christian Ziemski 09.05.2004
//                                                          10.05.2004
//
// To help playing around with
//   Config(U_DATE_FORM, ...) 
//   Config(U_DATE_SEP, ...)
//


EoF

Ins_Newline(1)
Ins_Text("-------------------------------------------------------------------------------")
Ins_Newline(1)
#103=Config(U_DATE_FORM)
#104=Config(U_DATE_SEP)


Out_Ins()

Version
Message("Windows-Version: ") 
Num_Type(Is_Windows)
Type_Newline(1)


Message("Config(U_DATE_FORM) = ")
Num_Type(#103, NOCR)
Message("        (0=country-specific ; 1=mm-dd-yyyy ; 2=dd-mm-yyyy ; 3=yyyy-mm-dd)\n")

Message("Config(U_DATE_SEP)  = ")
Num_Type(#104, NOCR)
Message("  = '")
Char_Dump(#104, NOCR)
Message("'\n\n")



Message("Date()          ")

Date(NOCR+NOMSG)
if (#103==0) {
  Message("  # should be like LOCAL    ; (Config(U_DATE_FORM)=0 : country specific\n") 
} else {
if (#103==1) {
  Message("  # should be  mm")
  Char_Dump(#104, NOCR)
  Message("dd")
  Char_Dump(#104, NOCR)
  Message("yyyy   ; (Config(U_DATE_FORM)=1; Config(U_DATE_SEP))\n") 
} else {
if (#103==2) {
  Message("  # should be  dd")
  Char_Dump(#104, NOCR)
  Message("mm")
  Char_Dump(#104, NOCR)
  Message("yyyy   ; (Config(U_DATE_FORM)=2; Config(U_DATE_SEP))\n") 
} else {
if (#103==3) {
  Message("  # should be  yyyy")
  Char_Dump(#104, NOCR)
  Message("mm")
  Char_Dump(#104, NOCR)
  Message("dd   ; (Config(U_DATE_FORM)=3; Config(U_DATE_SEP))\n") 
}
}}}


Message("Date(LOCAL)     ")

Date(LOCAL+NOCR+NOMSG)
Message("  #                           (uses current system date (country-specific format))\n")


Message("Date(NORMAL)    ")

Date(NORMAL+NOCR+NOMSG)
Message("  # should be  mm")
Char_Dump(#104, NOCR)
Message("dd")
Char_Dump(#104, NOCR)
Message("yyyy   ; (Config(U_DATE_SEP)\n") 


Message("Date(BEGIN)     ")

Date(BEGIN+NOCR+NOMSG)
Message("  # should be  dd")
Char_Dump(#104, NOCR)
Message("mm")
Char_Dump(#104, NOCR)
Message("yyyy   ; (Config(U_DATE_SEP)\n")


Message("Date(REVERSE)   ")

Date(REVERSE+NOCR+NOMSG)
Message("  # should be  yyyy")
Char_Dump(#104, NOCR)
Message("mm")
Char_Dump(#104, NOCR)
Message("dd   ; (Config(U_DATE_SEP)\n")

Out_Ins(CLEAR)