#
set date=(`date '+%d %m %y'`)

start:
echo Letztes Datum\: $date[1]/$date[2]/$date[3]

while (1)
    # inquire new date
    echo -n '\nNeues Datum TT/MM/JJ (oder <return>) ? '
    set ndate=(`gets`)

    if ( $#ndate == 0 ) then
	echo -n 'Bleibt das Datum wirklich' $date[1]/$date[2]/$date[3] '? (j/n) '
	set ndate=($date)
	goto confirm
    endif

    if ( $#ndate > 1 ) then
	echo 'Datum bitte im Format TT/MM/JJ'
	continue
    endif
    if ( `expr length $ndate` != 8 ) then
	echo 'Datum bitte im Format TT/MM/JJ'
	continue
    endif

    set ndate=(`expr substr $ndate 1 2` `expr substr $ndate 4 2` \
	`expr substr $ndate 7 2`)

    # check year
    if ( $ndate[3] != $date[3] ) then
	echo -n "Gestern war noch 19$date[3] und heute ist 19$ndate[3], ganz sicher ? "
	goto confirm
    endif

    # check month
    set month=(Januar Februar Maerz April Mai Juni Juli August September Oktober November Dezember)
    if ( ( $ndate[2] > 12 ) || ( $ndate[2] < 1 ) ) then
	echo Quatsch
	continue
    endif

    if ( $ndate[2] != $date[2] ) then
	echo -n "Gestern war noch $month[$date[2]] und heute ist $month[$ndate[2]], ganz sicher ? "
	goto confirm
    endif

    break

    confirm:
    set answer=(`gets y`)

    if ( ( "$answer" == y ) || ( "$answer" == j ) ) break
end

# Zeit erfragen

while (1)
    echo -n '\nZeit jetzt ? '
    set tim=(`gets`)

    if ( $#tim == 0 ) then
	echo 'Zeit muss angegeben werden \!'
	continue
    endif

    if ( $#tim > 1 ) then
	echo 'Zeit bitte in der Form SS:MM'
	continue
    endif

    if ( `expr length $tim` != 5 ) then
	echo 'Zeit bitte in der Form SS:MM'
	continue
    endif

    set tim=( `expr substr $tim 1 2` `expr substr $tim 4 2`)
    break
end

date $ndate[2]$ndate[1]$tim[1]$tim[2]$ndate[3]

if ( $status ) then
    echo '\nDatum/Zeit war falsch \!\n'
    goto start
endif
