\START92\
\COMMENT=
\NAME=orgreset
\FILE=ORGRESET.89P
()
Prgm
\(C)\Interactive Prgm, no args
Local  wdl,t1
getType(t1)\->\t1
localize({"MO","TU","WE","TH","FR","SA","SU"},{"LU","MA","ME","JE","VE","SA","DI"},{"MO","DI","MI","DO","FR","SA","SO"},{"LU","MA","ME","GI","VE","SA","DO"})\->\wdl
If getType(orglist)\!=\t1 Then
Dialog
Title  localize("WARNING!","ATTENTION!","WARNUNG!","ATTENZIONE!")
Text  localize("This will erase all organizer data!","Ceci effacera toutes les donn\e'\es","Dies wird alle Organizer-Daten loeschen!","Questo cancellera' tutti i dati")
Text  localize("Proceed anyway?","de l'organizer! Continuer quand-m\e^\me?","Trotzdem fortfahren?","dell'organizer! Procedere lo stesso?")
EndDlog
If  ok=0:Return  
Unarchiv  orglist
EndIf
seq(wdl[mod(i,7)+1]&" "&localdat(orgdate-orgweekd+i+when(mod(i,7)<orgweekd,7,0))&":",i,0,13)\->\orglist
Archive  orglist
EndPrgm

\STOP92\