CLEAR

m.cislo=SPACE(11)
m.delka=0
m.prodel=0
m.rok=""
m.mesic=""
m.den=""

@ 1,1 SAY "Zadejte rodné číslo:" GET m.cislo PICTURE "999999/9999"
READ
m.delka=LEN(STRTRAN(ALLTRIM(m.cislo),"/",""))
m.tr=val(SUBSTR(m.cislo,5,2))
m.sd=val(SUBSTR(m.cislo,3,2))

? M.TR
?M.SD
IF (M.TR<= 31 .and. m.sd<=62 .AND. m.delka=9 .OR. m.delka = 10)


DO CASE
   CASE m.delka=9

m.rok=SUBSTR(m.cislo,1,2)
m.mesic=SUBSTR(m.cislo,3,2)
m.den=SUBSTR(m.cislo,5,2)

nar=(m.den+"."+m.mesic+"."+m.rok)
datum=DTOC(CTOD(nar))
@ 2,1 SAY "Datum narozeni je:"+datum

IF (VAL(m.mesic)>12)
m.rok=SUBSTR(m.cislo,1,2)
m.mesic=SUBSTR(m.cislo,3,2)
m.den=SUBSTR(m.cislo,5,2)

nar=(m.den+"."+STR(VAL(m.mesic)-50)+"."+m.rok)
datum=DTOC(CTOD(nar))
@ 2,1 SAY "Datum narozeni je:"+datum

@ 3,1 SAY "Jste žena!"

ELSE
m.rok=SUBSTR(m.cislo,1,2)
m.mesic=SUBSTR(m.cislo,3,2)
m.den=SUBSTR(m.cislo,5,2)

nar=(m.den+"."+m.mesic+"."+m.rok)
datum=DTOC(CTOD(nar))
@ 2,1 SAY "Datum narozeni je:"+datum

@ 3,1 SAY "Jste muž!"
ENDIF


     CASE m.delka = 10
IF (VAL(STRTRAN(m.cislo,"/",""))%11=0)

m.rok=SUBSTR(m.cislo,1,2)V
m.mesic=SUBSTR(m.cislo,3,2)
m.den=SUBSTR(m.cislo,5,2)

nar=(m.den+"."+m.mesic+"."+m.rok)
datum=DTOC(CTOD(nar))
@ 2,1 SAY "Datum narozeni je:"+datum

IF (VAL(m.mesic)>12)@

@ 2,1 SAY "Jste žena!"

ELSE

@ 2,1 SAY "Jste muž!"
ENDIF
ELSE
@ 3,1 SAY "Bylo zadano neplatne r.c22"
ENDIF

ENDCASE

ELSE

@ 2,1 SAY "Bylo zadano neplatne r.c"


ENDIF