\START92\
\COMMENT=
\NAME=setdateq
\FILE=SETDATEQ.89P
(y,m,d)
Prgm
\(C)\y,m,d:Prgm
Local  t1
getType(t1)\->\t1
Dialog
Title  localize("WARNING!","ATTENTION!","WARNUNG!","ATTENZIONE!")
Text  localize("Changing the date won't change organizer","Le changement de la date ne changera pas","Das Aendern des Datums wird die","Il cambio della data non cambiera' i dati")
Text  localize("data with it.","les donn\e'\es de l'organizer.","Organizer-Daten nicht aendern.","dell'organizer.")
Text  localize("This may mess it up!","Ceci pourrait les d\e'\sordonner!","Dies koennte sie durcheinanderbringen!","Questo potrebbe disordinarli!")
Text  localize("Proceed anyway?","Continuer quand-m\e^\me?","Trotzdem fortfahren?","Procedere lo stesso?")
EndDlog
If  ok=0:Return  
If  getType(orgdate)=t1:1\->\orgdate
Unarchiv  orgdate
dateserl(y,m,d)\->\orgdate
Archive  orgdate
If  getType(orgweekd)=t1:0\->\orgweekd
Unarchiv  orgweekd
weekday(y,m,d)-1\->\orgweekd
Archive  orgweekd
EndPrgm

\STOP92\