REM  *****  BASIC  *****

function kuupaev(kood)
  kuupaev=mid(kood, 6, 2)
end function

function synnikuu1(kood)
   kuunr=val(mid(kood, 4, 2))
     'val teeb teksti arvuks
   if kuunr=1 then synnikuu1="jaanuar"
   if kuunr=2 then synnikuu1="veebruar"
   if kuunr=3 then synnikuu1="märts"
   if kuunr=4 then synnikuu1="aprill"
   if kuunr=5 then synnikuu1="mai"
   if kuunr=6 then synnikuu1="juuni"
   if kuunr=7 then synnikuu1="juuli"
   if kuunr=8 then synnikuu1="august"
   if kuunr=9 then synnikuu1="september"
   if kuunr=10 then synnikuu1="oktoober"
   if kuunr=11 then synnikuu1="november"
   if kuunr=12 then synnikuu1="detsember"
end function

function kuunimi(kuunr)
   kuud=Array("", "jaanuar", "veebruar", "märts", _
     "aprill", "mai", "juuni", _
     "juuli", "august", "september", _
     "oktoober", "november", "detsember" )
   kuunimi=kuud(kuunr)
end function

function synnikuu2(kood)
    kuunr=val(mid(kood, 4, 2))
    synnikuu2=kuunimi(kuunr)
end function

function synniaeg(kood)
   synniaeg=mid(kood, 6, 2) & "." & mid(kood, 4, 2) & _
     "." & mid(kood, 2, 2)
end function

function synniaasta1(kood)
  k=val(mid(kood, 1, 1))
  t=val(mid(kood, 2, 2))
  if (k=1) or (k=2) then synniaasta1=1800+t
  if (k=3) or (k=4) then synniaasta1=1900+t
  if (k=5) or (k=6) then synniaasta1=2000+t
end function

function synniaasta2(kood)
  k=val(mid(kood, 1, 1))
  t=val(mid(kood, 2, 2))
  sajand=1800+100*int((k-1)/2)
  synniaasta2=sajand + t
end function

function jaaginaide(jagatav, jagaja)
   jaaginaide=jagatav mod jagaja
end function

function koodikontroll1(kood)
   summa=0
   summa=summa+val(mid(kood, 1, 1))*1
   summa=summa+val(mid(kood, 2, 1))*2
   summa=summa+val(mid(kood, 3, 1))*3
   summa=summa+val(mid(kood, 4, 1))*4
   summa=summa+val(mid(kood, 5, 1))*5
   summa=summa+val(mid(kood, 6, 1))*6
   summa=summa+val(mid(kood, 7, 1))*7
   summa=summa+val(mid(kood, 8, 1))*8
   summa=summa+val(mid(kood, 9, 1))*9
   summa=summa+val(mid(kood,10, 1))*1
   jaak=summa mod 11
   if val(mid(kood, 11, 1))=jaak then
      koodikontroll1="korras"
   else
      koodikontroll1="ei tea"
   end if
end function

function koodikontroll2(kood)
   summa=0
   summa=summa+val(mid(kood, 1, 1))*1
   summa=summa+val(mid(kood, 2, 1))*2
   summa=summa+val(mid(kood, 3, 1))*3
   summa=summa+val(mid(kood, 4, 1))*4
   summa=summa+val(mid(kood, 5, 1))*5
   summa=summa+val(mid(kood, 6, 1))*6
   summa=summa+val(mid(kood, 7, 1))*7
   summa=summa+val(mid(kood, 8, 1))*8
   summa=summa+val(mid(kood, 9, 1))*9
   summa=summa+val(mid(kood,10, 1))*1
   jaak=summa mod 11
   if val(mid(kood, 11, 1))=jaak then
      koodikontroll2="korras"
   else
    if jaak=10 then
      summa=0
      summa=summa+val(mid(kood, 1, 1))*3
      summa=summa+val(mid(kood, 2, 1))*4
      summa=summa+val(mid(kood, 3, 1))*5
      summa=summa+val(mid(kood, 4, 1))*6
      summa=summa+val(mid(kood, 5, 1))*7
      summa=summa+val(mid(kood, 6, 1))*8
      summa=summa+val(mid(kood, 7, 1))*9
      summa=summa+val(mid(kood, 8, 1))*1
      summa=summa+val(mid(kood, 9, 1))*2
      summa=summa+val(mid(kood,10, 1))*3
      jaak=summa mod 11
      if  val(mid(kood, 11, 1))=jaak then
         koodikontroll2="korras"
      else 
         if jaak=10 and val(mid(kood, 11, 1))=0 then
            koodikontroll2="korras"
         else
            koodikontroll2="vigane"
         end if
      end if
    else
      koodikontroll2="vigane kood"
    end if
   end if
end function

Sub Main

End Sub