sub start()
  dim Erinnerung as string
  dim Honigbrot as boolean
  dim Münzen as boolean
  copy inhalt.hirn to Erinnerung
  if tugendhaftesleben = true then
  call Zerberus()
  else
  call Tartarus()
  end if
end sub

sub Zerberus()
  if Honigbrot = true then
  call Charon()
  else
  call Tartarus()
  end if
end sub

sub Charon()
  if Münzen = true then
  call Vorstufe()
  else
  call Tartarus()
  end if
end sub

sub Vorstufe()
  dim antwort as returnvalue
  antwort = msgbox("Um ins Elysium einzutreten, musst du Lehte
      Wasser des Vergessens trinken!", vbOKCancel, "Herzlich Willkommen")
  if antwort = Ok then
  call vergessen()
  else
  call Vorstufe()
  end if
end sub

sub vergessen()
  set Erinnerung to empty
  delete all memory
  reboot system now
  antwort = msgbox("Kannst du dich erinnern, daß du Lethe -
      Wasser des Vergessens getrunken hast?", vbinformation, buttons "Ja" and "Nein")
  if antwort = "Ja" then
  call vergessen()
  else
  call Vorstufe()
  end if
end sub

sub Tartarus()
  dim Steinhöhe as integer
  do while Steinhöhe < 100
  Steinhöhe = Steinhöhe + 1
  if Steinhöhe = 99 then
  Steinhöhe = 0
  end if
  loop
end sub