: start

print "Titular del día"

select case random(6)
case 0
print "Se ha reabierto el estrecho de Hormuz. Sube la bolsa"
case 1
print "EE.UU. ha bombardeado algo iraní. Baja la bolsa"
case 2
print "Irán ha cerrado el estrecho de Hormuz. Baja la bolsa"
case 3
print "EE.UU. ha firmado la paz con Irán. Sube la bolsa"
case 4
print "Trump amenaza con destruir Irán. Baja la bolsa"
case 5
print "El congreso estadounidense prohibe a Trump atacar Irán. Sube la bolsa"
case 99
print "Acaba la guerra de Irán, nadie desarrolla nucleares, el comercio marítimo vuelve a ser el que era, Irán es ahora una democracia"
end select

goto :start