CLS
PRINT "TRIVIA PARA TODO PUBLICO"
PRINT "Como se llama la mascota de Bob esponja"
PRINT " 1.Calamar 2. Samy 3. Gary"
INPUT "Pulse el numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT " Como se llama la pelicula del pinguino que baila"
PRINT "1. Craizy dancing 2.Happy feet 3. Pinguino bailar¡n"
INPUT "Pulse el numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Cual es el enemigo de Harry en Harry Potter y la c mara secreta"
PRINT "1.Dragones 2. Perro de tres cabezas 3. Basilisco"
INPUT "Pulse el numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"; ""
LET TM = TM + 1
END IF

PRINT "En que pelicula de Harry Potter reviven a Lord Voldemort"
PRINT " 1.El c liz de fuego 2.La orden de F‚nix 3. El prisionero de azkaban"
INPUT " Pulse el numero y enter", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Cual es el nombre del nuevo director t‚cnico del Barcelona"
PRINT "1.Frank Rijkaard 2. Jose Guardiola 3.Fabio Capello"
INPUT "Pulse el numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "En que lugar queda east high academy DE high school musical"
PRINT "1.California 2. Nuevo Mexico 3. Florida"
INPUT "Pulse el numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Que equipo gan¢ el campeonato nacional de beisbol este a¤o"
PRINT "1.P.Metro 2.Los Santos 3. Chiriqu¡"
INPUT "Pulse el numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Que equipo gan¢ la copa confederaciones este a¤o"
PRINT "1.Brasil 2. USA 3. Espa¤a"
INPUT " Pulse el numero y enter", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT " Que equipo gano la copa de naciones este a¤o"
PRINT " 1.Costa Rica 2. Panam  3.Honduras"
INPUT "Pulse el numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Qui‚n es el nuevo presidente de la rep£blica"
PRINT " 1. Endara 2. Balbina 3. Martinelli"
INPUT "Pulse nel numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT " incorrecto"
LET TM = TM + 1
END IF

PRINT "En que mes de este a¤o fueron las elecciones de Panam "
PRINT "1.Abril 2.Marzo 3. Mayo"
INPUT "Pulse el numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Qui‚n fue la ganadora de latin american idol"
PRINT " 1. Margarita 2. Mar¡a Jos‚ 3. Anne Lorainne"
INPUT "Pulsa el numero y enter", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF


PRINT " Qu‚ d¡a se celebra se celebra la navidad"
PRINT " 1. 31 de diciembre 2. 1 de enero 3. 25 de diciembre"
INPUT "Pulsa el numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Que dia se celebra la separaci¢n de Panam  de Colombia"
PRINT " 1.4 de noviembre 2. 3 de noviembre 3. 3 de mayo"
INPUT " Pulse un numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT " Qui‚n fue el primer presidente de Panam "
PRINT "1 Manuel A. Guerrerro 2. Arnulfo A.Madrid 3. Rem¢n Cantera"
INPUT "Pulse un numero y enter ", R
IF R = 1 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Cu l fue el primer paname¤o que gan¢ una medalla de oro en las olimpiads"
PRINT " 1. Bayano kamani 2. Irving Saladino 2. Blas Per‚z"
INPUT "Pulse un numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Qui‚n gan¢ la NBA este a¤o"
PRINT " 1.Celtics 2. Lakers 3. Denver"
INPUT "Pulse un numero y enter", R
IF R = 2 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Que equipo gano el beisbol de las grandes ligas"
PRINT "1.Yankes 2. Boston 3.Philies"
INPUT "Pulse un numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "En que d¡a rsucito Jesuscristo"
PRINT "1. Jueves 2.Sabado 3.Domingo"
INPUT "Pulse un numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF

PRINT "Qui‚n descubri¢ Am‚rica"
PRINT " 1. Rodrigo Bastidas 2.Americo Vespucio 3. Cristobal Col¢n"
INPUT "Pulse un numero y enter", R
IF R = 3 THEN
PRINT "correcto"
LET TB = TB + 1
ELSE
PRINT "incorrecto"
LET TM = TM + 1
END IF