\START92\
\COMMENT=
\NAME=setdate
\FILE=SETDATE.89P
()
Prgm
\(C)\Interactive Prgm, no args
Local  l,y,m,d,t1
getType(t1)\->\t1
If  getType(orgdate)=t1:1\->\orgdate
Archive  orgdate
datelist(orgdate)\->\l
string(l[1])\->\y
string(l[2])\->\m
string(l[3])\->\d
Loop
Dialog
Title  localize("Set current date","R\e`\gler la date actuelle","Aktuelles Datum einstellen","Regolare la data attuale")
Request  localize("Year","Ann\e'\e","Jahr","Anno"),y
Request  localize("Month","Mois","Monat","Mese"),m
Request  localize("Day","Jour","Tag","Giorno"),d
EndDlog
If  ok=0:Return  
Dialog
Title  localize("Set current date","R\e`\gler la date actuelle","Aktuelles Datum einstellen","Regolare la data attuale")
Text  localize("Year","Ann\e'\e","Jahr","Anno")&": "&y
Text  localize("Month","Mois","Monat","Mese")&": "&m
Text  localize("Day","Jour","Tag","Giorno")&": "&d
Text  localize("Weekday","Jour de semaine","Wochentag","Giorno di settimana")&": "&string(weekday(expr(y),expr(m),expr(d)))
Text  ""
Text  localize("Is this o.k.?","Est-ceci o.k.?","Ist dies o.k.?","E' questo o.k.?")
EndDlog
If  ok=1:Exit
EndLoop
setdateq(expr(y),expr(m),expr(d))
EndPrgm

\STOP92\