CLS
PRINT "TRIVIA DE POKEMON?"
PRINT "REGLAS: PARA QUE LA TRIVIA FUNCIONES TIENES QUE ESCRIBIR LA RESPUESTA IGUAL A COMO ESTA ESCRITA!!!"
COLOR 9.9
PRINT "LAS PREGUNTAS VAN DE ESTE COLOR"
COLOR 6.9
PRINT "Y LAS OPCIONES DE ESTE"
COLOR 9.9
PRINT "COMO SE LLAMA EL PRIMER POKEMON DE ASH?"
COLOR 6.9
PRINT "PIRATU"
PRINT "COROTU"
PRINT "PIKACHU"
COLOR 3.1
INPUT "", A$
IF A$ = "PIKACHU" THEN A = 1
COLOR 9.9
PRINT "NOMBRE DE LA AMIGA DE ASH DE PELO NARANJA?"
COLOR 6.9
PRINT "MOSTAZA"
PRINT "MISTY"
PRINT "MISTIC"
COLOR 3.1
INPUT "", B$
IF B$ = "MISTY" THEN B = 1
COLOR 9.9
PRINT "COMO SE LLAMA EL AMIGO DE ASH DE HOJOS CHINOS?"
COLOR 6.9
PRINT "BROCK"
PRINT "BRUCK"
PRINT "ROCA"
COLOR 3.1
INPUT "", C$
IF C$ = "BROCK" THEN C = 1
COLOR 9.9
PRINT "DONDE VIVEN LOS POKEMONES CUANDO LOS ATRAPA UN ENTRENADOR?"
COLOR 6.9
PRINT "EN UNA MANSION"
PRINT "EN UNA CASITA DE VERANO CON UN MAYORDOMO"
PRINT "EN UNA POKEBOLA"
COLOR 3.1
INPUT "", D$
IF D$ = "EN UNA POKEBOLA" THEN D = 1
COLOR 9.9
PRINT "CUAL ES EL APELLIDO DE ASH?"
COLOR 6.9
PRINT "KETCHUP"
PRINT "CATSUP"
PRINT "KETCHUMP"
COLOR 3.1
INPUT "", E$
IF E$ = "KETCHUMP" THEN E = 1
COLOR 9.9
PRINT "COMO SE LLAMA EL PUEBLO DONDE VIVE ASH?"
COLOR 6.9
PRINT "RASPAO"
PRINT "PALETA"
PRINT "HELADO"
COLOR 3.1
INPUT "", F$
IF F$ = "PALETA" THEN F = 1
COLOR 9.9
PRINT "COMO SE LLAMA EL POKEMON QUE DICE -BULBASAUR-?"
COLOR 6.9
PRINT "PIDGEY"
PRINT "CHARMANDER"
PRINT "BULBASAUR"
COLOR 3.1
INPUT "", G$
IF G$ = "BULBASAUR" THEN G = 1
COLOR 9.9
PRINT "Y EL QUE DICE -TURUTUTU-?"
COLOR 6.9
PRINT "TURUTUMON"
PRINT "NINGUNO"
PRINT "UN POKEMON RARO"
COLOR 3.1
INPUT "", H$
IF H$ = "NINGUNO" THEN H = 1
COLOR 9.9
PRINT "DIME EL POKEMON NUMERO 25"
COLOR 6.9
PRINT "PIKACHU"
PRINT "NATOMONGA"
PRINT "RATATA"
COLOR 3.1
INPUT "", I$
IF I$ = "PIKACHU" THEN I = 1
COLOR 9.9
PRINT "CUANTAS PREGUNTAS VAN?"
COLOR 6.9
PRINT "10"
PRINT "30"
PRINT "5"
COLOR 3.1
INPUT "", J$
IF J$ = "10" THEN J = 1
COLOR 9.9
PRINT "Y AORA CUANTAS PREGUNTAS VAN?"
COLOR 6.9
PRINT "11"
PRINT "31"
PRINT "6"
COLOR 3.1
INPUT "", K$
IF K$ = "11" THEN K = 1
COLOR 9.9
PRINT "QUE NUMERO DE POKEMON ES PIKACHU?"
COLOR 6.9
PRINT "23"
PRINT "24"
PRINT "25"
COLOR 3.1
INPUT "", L$
IF L$ = "25" THEN L = 1
COLOR 9.9
PRINT "COMO SE LLAMA EL MAN QUE CUIDA LOS POKEMONES DE ASH EN UN LABORATORIO?"
COLOR 6.9
PRINT "PROF. OAKS"
PRINT "PROF. OUKS"
PRINT "FACEY"
COLOR 3.1
INPUT "", M$
IF M$ = "PROF. OAKS" THEN M = 1
COLOR 9.9
PRINT "NOMBRE DEL RIVAL DE ASH?"
COLOR 6.9
PRINT "GAVY"
PRINT "GARY"
PRINT "GATY"
COLOR 3.1
INPUT "", N$
IF N$ = "GARY" THEN N = 1
COLOR 9.9
PRINT "CUAL ERA LA PREGUNTA DE ARRIBA?"
COLOR 6.9
PRINT "NOMBRE DEL RIVAL DE ASH?"
PRINT "NOMBRE DE ASH?"
PRINT "HABIA UNA PREGUNTA?"
COLOR 3.1
INPUT "", O$
IF O$ = "NOMBRE DEL RIVAL DE ASH?" THEN O = 1
COLOR 9.9
PRINT "QUE MARCA DE BOXERS USA ASH?"
COLOR 6.9
PRINT "PARKER"
PRINT "QUICKSILVER"
PRINT "GALLITO"
COLOR 3.1
INPUT "", P$
IF P$ = "GALLITO" THEN P = 1
COLOR 9.9
PRINT "CUANTO ES 2+2?"
COLOR 6.9
PRINT "4"
PRINT "5"
PRINT "PEZ"
COLOR 3.1
INPUT "", Q$
IF Q$ = "4" THEN Q = 1
COLOR 9.9
PRINT "ENTRE 2?"
COLOR 6.9
PRINT "MEDIO PEZ"
PRINT "2"
PRINT "4"
COLOR 3.1
INPUT "", R$
IF R$ = "2" THEN R = 1
COLOR 9.9
PRINT "ESTO NO ERA UN TRIVIA ACERCA DE POKEMON?"
COLOR 6.9
PRINT "SI"
PRINT "NO"
PRINT "NO SE"
COLOR 3.1
INPUT "", S$
IF S$ = "SI" THEN S = 1
COLOR 9.9
PRINT "TE GUSTO MI TRIVIA?"
COLOR 6.9
PRINT "SI"
PRINT "NO"
PRINT "NO SE"
COLOR 3.1
INPUT "", T$
IF T$ = "SI" THEN T = 1
LET W = (A + B + C + D + E + F + G + H + I + J + K + L + M + N + O + P + Q + R + S + T)
PRINT "TU PUNTAJE ES:", W; "DE 20 PREGUNTAS"
PRINT "Espero te hayas divertido haciendo esta trivia"
END