screenres 500, 600
dim as uinteger eingabe
do
  input "Anfangslaenge eingeben (in Minuten): ", eingabe
  if eingabe > 500 then print "Bitte einen kleineren Wert waehlen!" : print
loop until eingabe <= 500

dim as integer laenge(1 to 4) = {eingabe, eingabe, eingabe, eingabe}, rest

for advent as integer = 1 to 4
  cls
  print advent & ". Advent"
  for i as integer = 1 to 4
    line (i*100-20, 550)-step(40, -laenge(i)), 4, BF
    draw string (i*100-4*len(str(laenge(i))), 560), str(laenge(i))
  next
  sleep 1000, 1
  for min as integer = 1 to 60
    if laenge(1) = 0 then print "KERZEN ABGEBRANNT - SIMULATION ABGEBROCHEN!" : getkey : end
    for i as integer = 1 to advent
      laenge(i) -= 1
      screenlock
      line (i*100-20, 0)-step(40, 599), 0, BF
      line (i*100-20, 550)-step(40, -laenge(i)), 4, BF
      draw string (i*100-4*len(str(laenge(i))), 560), str(laenge(i))
      screenunlock
    next
    sleep 50
  next
  rest = laenge(1) + laenge(2) + laenge(3) + laenge(4)
  for i as integer = 1 to 4
    laenge(i) = rest/4
  next
  sleep 1000, 1
next
if laenge(1) = 0 then
  print "Kerzen abgebrannt - Simulation erfolgreich!"
else
  print "KERZEN NICHT ABGEBRANNT - SIMULATION GESCHEITERT!"
end if
getkey