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

sub elevant2
  set leht=StarDesktop.CurrentComponent.sheets(0)
  vastus=inputbox("Osta elevant ära!")
  arv=1 'Mitmendat korda küsiti
  do until vastus="elevant" or arv>5
    leht.getCellByPosition(0, arv).String=vastus
    vastus=inputbox("Kõik ütlevad, et " & vastus & ", aga osta ikkagi elevant ära!")
    arv=arv+1
    if vastus="mis maksab" then
      msgbox "Hinnas pole küsimus"
    end if
    if instr(vastus, "ei")>0 then 'kui lauses on sees ei
      msgbox "Ära jonni"
    end if
  loop 
  msgbox "Tänan, et minuga rääkisid. Arvamise kordi: " & arv
end sub

sub elevant1
  vastus=inputbox("Osta elevant ära!")
  arv=1 'Mitmendat korda küsiti
  do until vastus="elevant" or arv>5
    vastus=inputbox("Kõik ütlevad, et " & vastus & ", aga osta ikkagi elevant ära!")
    arv=arv+1
    if vastus="mis maksab" then
      msgbox "Hinnas pole küsimus"
    end if
    if instr(vastus, "ei")>0 then 'kui lauses on sees ei
      msgbox "Ära jonni"
    end if
  loop 
  msgbox "Tänan, et minuga rääkisid. Arvamise kordi: " & arv
end sub