

week[0]=""
week[1]=""
week[2]=""
week[3]=""
week[4]=""
week[5]=""
week[6]="y"

for a=0 to 5

year=time.year
mon=time.mon
numfix mon
day=time.day
numfix day
hour=time.hour
numfix hour
min=time.min
numfix min
sec=time.sec
numfix sec

print year+"/"+mon+"/"+day+" "+week[time.week]+" "+hour+":"+min+":"+sec	

wait'1b̃EFCg

next a


@numfix st
	str st
	format "00",st
	eval #+"=format"
_@

