CLS
LOCATE 16, 4: COLOR 13: PRINT "Buenas, soy A-Kristo."
LOCATE 17, 4: COLOR 13: PRINT "Nos conocemos¨?"
LOCATE 18, 4: COLOR 13: PRINT "Presentate porfavor..."


inicio:
LOCATE 2, 22: PRINT "()))))()"
LOCATE 3, 22: PRINT "()))((()"
LOCATE 4, 22: PRINT "()(())()"
LOCATE 5, 22: PRINT "()()()()"
LOCATE 6, 22: PRINT "()((((()"
666 : LOCATE 21, 1: COLOR 9: INPUT "    ", anti$




ak$ = LCASE$(anti$)








IF ak$ = "hola" OR ak$ = "hi" OR ak$ = "hiz" OR ak$ = "Buenas" OR ak$ = "buenos dias" OR ak$ = "hello" THEN
RANDOMIZE TIMER
a = INT(RND * 14) + 1
IF a = 1 THEN CLS : LOCATE 16, 4: PRINT "Hola­!­!": GOTO 666
IF a = 2 THEN CLS : LOCATE 16, 4: PRINT "Hola­!": GOTO 666
IF a = 3 THEN CLS : LOCATE 16, 4: PRINT "Hola...": GOTO 666
IF a = 4 THEN CLS : LOCATE 16, 4: PRINT "Hola, hola, hola, hola.....": GOTO 666
IF a = 5 THEN CLS : LOCATE 16, 4: PRINT "Te mola saludarme, eh¨?": GOTO 666
IF a = 6 THEN CLS : LOCATE 16, 4:  PRINT "HOLAAAAA­!­!, nos conocemos¨?": GOTO 666
IF a = 7 THEN CLS : LOCATE 16, 4:  PRINT "Me da la fria impresion de haber pasado ya por esto...": GOTO 666
IF a = 8 THEN CLS : LOCATE 16, 4: PRINT "Hola¨?": GOTO 666
IF a = 9 THEN CLS : LOCATE 16, 4: PRINT "Tierra llamando a marte... me reciben¨?": GOTO 666
IF a = 10 THEN CLS : LOCATE 16, 4: PRINT "|-|{}|_@": GOTO 666
IF a = 11 THEN CLS : LOCATE 16, 4: PRINT "Hiz...": GOTO 666
IF a = 12 THEN CLS : LOCATE 16, 4: PRINT "Hello¨?": GOTO 666
IF a = 13 THEN CLS : LOCATE 16, 4: PRINT "Tu hablar espa¤ol¨?": GOTO 666
IF a = 14 THEN CLS : LOCATE 16, 4: PRINT "No sabes decir nada mas¨?": GOTO 666
IF a > 14 THEN CLS : LOCATE 16, 4: PRINT "Hola, buenas, ke tal, algun tema interesante¨?": GOTO 666
END IF





IF ak$ = "adios" OR ak$ = "bye" OR ak$ = "hasta luego" OR ak$ = "nos vemos" OR ak$ = "byez" THEN
RANDOMIZE TIMER
b = INT(RND * 22) + 1
IF b = 1 THEN CLS : LOCATE 16, 4: PRINT "No te vayas ahora...": GOTO 666
IF b = 2 THEN CLS : LOCATE 16, 4: PRINT "Me dejas solito¨?": GOTO 666
IF b = 3 THEN CLS : LOCATE 16, 4: PRINT "Porque me abandonas¨?": GOTO 666
IF b = 4 THEN CLS : LOCATE 16, 4: PRINT "Te vas... ya no me quieres¨?": GOTO 666
IF b = 5 THEN CLS : LOCATE 16, 4: PRINT "No porfavor... no me cierres­!": GOTO 666
IF b = 6 THEN CLS : LOCATE 16, 4:  PRINT "Estas cansado de hablar conmigo, eh¨?": GOTO 666
IF b = 7 THEN CLS : LOCATE 16, 4:  PRINT "Tan pesado soy¨?": GOTO 666
IF b = 8 THEN CLS : LOCATE 16, 4: PRINT "Tu tambien te vas de mi ladito¨?": GOTO 666
IF b = 9 THEN CLS : LOCATE 16, 4: PRINT "No me dejes solito, tio...": GOTO 666
IF b = 10 THEN CLS : LOCATE 16, 4: PRINT "Bueno... Adios kolega": GOTO 666
IF b = 11 THEN CLS : LOCATE 16, 4: PRINT "Yo tambien te quiero, adios     :*": GOTO 666
IF b = 12 THEN CLS : LOCATE 16, 4: PRINT "Byez": GOTO 666
IF b = 13 THEN CLS : LOCATE 16, 4: PRINT "Ale, me voy ha dormir...": GOTO 666
IF b = 14 THEN CLS : LOCATE 16, 4: PRINT "Te vas¨?, bueno, pos... FORMAT C:\    /U": GOTO 666
IF b = 13 THEN CLS : LOCATE 16, 4: PRINT "A+D+I+O+S": GOTO 666
IF b = 14 THEN CLS : LOCATE 16, 4: PRINT "Bueno, pos ya nos veremos... BUAAAAAAA­!, snif snif...": GOTO 666
IF b = 15 THEN CLS : LOCATE 16, 4: PRINT "Konke me dejas solo, eh¨?, hijo de perra­!": GOTO 666
IF b = 16 THEN CLS : LOCATE 16, 4: PRINT "Pues vete, a la mierda...": GOTO 666
IF b = 17 THEN CLS : LOCATE 16, 4: PRINT "Adios, LAMER...": GOTO 666
IF b = 18 THEN CLS : LOCATE 16, 4: PRINT "Eres un lamer, mira ke dejarme aki...": GOTO 666
IF b = 19 THEN CLS : LOCATE 16, 4: PRINT "Ahora que te iba ha kontar lo de...": GOTO 666
IF b = 20 THEN CLS : LOCATE 16, 4: PRINT "Adios amorcito, te quiero...": GOTO 666
IF b = 21 THEN CLS : LOCATE 16, 4: PRINT "Hasta luego... piensa ke la memoria se me deskarga al irte...": GOTO 666
IF b < 21 THEN CLS : LOCATE 16, 4: PRINT "Adios­!": GOTO 666
END IF



IF ak$ = "que tal¨?" OR ak$ = "que tal?" OR ak$ = "¨que tal?" OR ak$ = "¨ke tal?" OR ak$ = "ke tal¨?" OR ak$ = "ke tal?" OR ak$ = "komo estamos" OR ak$ = "komo estamos¨?" OR ak$ = "komo estamos?" OR ak$ = "ke tal" OR ak$ = "como estamos¨?" OR ak$ = "como estamos?" OR ak$ = "que tal" OR ak$ = "ke tal" THEN
RANDOMIZE TIMER
c = INT(RND * 14) + 1
IF c = 1 THEN CLS : LOCATE 16, 4: PRINT "Perfektamente": GOTO 666
IF c = 2 THEN CLS : LOCATE 16, 4: PRINT "Estupendamente": GOTO 666
IF c = 3 THEN CLS : LOCATE 16, 4: PRINT "Maravillosamente": GOTO 666
IF c = 4 THEN CLS : LOCATE 16, 4: PRINT "Ke te kagas de bien": GOTO 666
IF c = 5 THEN CLS : LOCATE 16, 4: PRINT "Super Bien": GOTO 666
IF c = 6 THEN CLS : LOCATE 16, 4:  PRINT "SuperUltraMegaHiperReketekontraHiperMegaloPlastikamenteTurboPlus BIEEEEEN   (especial edition)": GOTO 666
IF c = 7 THEN CLS : LOCATE 16, 4:  PRINT "Yo muy bien, y tu¨?": GOTO 666
IF c = 8 THEN CLS : LOCATE 16, 4: PRINT "Bien, bien, muuy bien­!": GOTO 666
IF c = 9 THEN CLS : LOCATE 16, 4: PRINT "Antes mal, ahora kon el nuevo sistema de inteligencia artificial, perfektamente": GOTO 666
IF c = 10 THEN CLS : LOCATE 16, 4: PRINT "Bien, estupendamente. No ves ke puedo hablar kon la gente sin estar konektado¨?": GOTO 666
IF c = 11 THEN CLS : LOCATE 16, 4: PRINT "Pos asi asi...": GOTO 666
IF c = 12 THEN CLS : LOCATE 16, 4: PRINT "Fatal...": GOTO 666
IF c = 13 THEN CLS : LOCATE 16, 4: PRINT "Bien, hasta ke tu llegastes...": GOTO 666
IF c > 13 THEN CLS : LOCATE 16, 4: PRINT "Bien... de momento­!": GOTO 666
END IF

IF ak$ = "deacuerdo" OR ak$ = "ok" OR ak$ = "vale" OR ak$ = "bueno" OR ak$ = "exacto" OR ak$ = "exakto" OR ak$ = "deakuerdo" OR ak$ = "" OR ak$ = "precisamente" OR ak$ = "esta bien" OR ak$ = "bueno vale deakuerdo" OR ak$ = "bueno vale deacuerdo" OR ak$ = "bueno, vale, deakuerdo" OR ak$ = "bueno, vale, deacuerdo..." OR ak$ = "okiz" OR ak$ = "okz" OR ak$ = "bien" OR ak$ = "afirmativo" OR ak$ = "positivo" OR ak$ = "si" OR ak$ = "yes" OR ak$ = "ke si" OR ak$ = "que si" OR ak$ = "te he dicho ke si" THEN
RANDOMIZE TIMER
d = INT(RND * 11) + 1
IF d = 1 THEN CLS : LOCATE 16, 4: PRINT "Ok": GOTO 666
IF d = 2 THEN CLS : LOCATE 16, 4: PRINT "Bueno, vale, deakuerdoooo...": GOTO 666
IF d = 3 THEN CLS : LOCATE 16, 4: PRINT "Asi me gusta": GOTO 666
IF d = 4 THEN CLS : LOCATE 16, 4: PRINT "Deakuerdo": GOTO 666
IF d = 5 THEN CLS : LOCATE 16, 4: PRINT "Bueno": GOTO 666
IF d = 6 THEN CLS : LOCATE 16, 4:  PRINT "Bien": GOTO 666
IF d = 7 THEN CLS : LOCATE 16, 4:  PRINT "Vale": GOTO 666
IF d = 8 THEN CLS : LOCATE 16, 4: PRINT "Esta bien...": GOTO 666
IF d = 9 THEN CLS : LOCATE 16, 4: PRINT "Okiz": GOTO 666
IF d = 10 THEN CLS : LOCATE 16, 4: PRINT "Eso, asi me gusta, ke me des la razon!": GOTO 666
IF d > 10 THEN CLS : LOCATE 16, 4: PRINT "Eso, yo siempre tengo la razon": GOTO 666
END IF



IF ak$ = "ke mal" OR ak$ = "que mal" OR ak$ = "no" OR ak$ = "mal" OR ak$ = "fatal" OR ak$ = "de ninguna manera" OR ak$ = "ni lo sue¤es" OR ak$ = "ni hablar de eso" OR ak$ = "ni hablar" OR ak$ = "de eso nada" OR ak$ = "de eso ni hablar" OR ak$ = "negativo" OR ak$ = "no se¤or" OR ak$ = "nor" OR ak$ = "ke no" OR ak$ = "que no" OR ak$ = "te he dicho ke no" OR ak$ = "te he dicho que no" OR ak$ = "he dicho ke no" OR ak$ = "he dicho que no" THEN
RANDOMIZE TIMER
e = INT(RND * 11) + 1
IF e = 1 THEN CLS : LOCATE 16, 4: PRINT "Ok": GOTO 666
IF e = 2 THEN CLS : LOCATE 16, 4: PRINT "Buenoo, valeeeee, deakuerdoooo...": GOTO 666
IF e = 3 THEN CLS : LOCATE 16, 4: PRINT "De ninguna manera­!": GOTO 666
IF e = 4 THEN CLS : LOCATE 16, 4: PRINT "Negativo": GOTO 666
IF e = 5 THEN CLS : LOCATE 16, 4: PRINT "No se¤or": GOTO 666
IF e = 6 THEN CLS : LOCATE 16, 4:  PRINT "Ni lo sue¤es...": GOTO 666
IF e = 7 THEN CLS : LOCATE 16, 4:  PRINT "Vale": GOTO 666
IF e = 8 THEN CLS : LOCATE 16, 4: PRINT "Tu mismo": GOTO 666
IF e = 9 THEN CLS : LOCATE 16, 4: PRINT "Okiz": GOTO 666
IF e = 10 THEN CLS : LOCATE 16, 4: PRINT "Deakueeeerdo­!": GOTO 666
IF e > 10 THEN CLS : LOCATE 16, 4: PRINT "Esta bieeeeen...": GOTO 666
END IF



IF ak$ = "como te llamas" OR ak$ = "komo te llamas" OR ak$ = "como te llamas?" OR ak$ = "komo te llamas?" OR ak$ = "como te llamas¨?" OR ak$ = "komo te llamas¨?" OR ak$ = "¨como te llamas?" OR ak$ = "¨komo te llamas?" OR ak$ = "dime tu nombre" OR ak$ = "cual es tu nombre¨?" OR ak$ = "¨cual es tu nombre?" OR ak$ = "cual es tu nombre?" OR ak$ = "kual es tu nombre¨?" OR ak$ = "kual es tu nombre?" OR ak$ = "¨kual es tu nombre?" OR ak$ = "whats your name?" OR ak$ = "whats your name¨?" OR ak$ = "y tu nombre¨?" OR ak$ = "y tu nombre?" OR ak$ = "¨y tu nombre?" THEN
RANDOMIZE TIMER
f = INT(RND * 8) + 1
IF f = 1 THEN CLS : LOCATE 16, 4: PRINT "Ok. Me llamo A-Kristo, Anti pa los friends": GOTO 666
IF f = 2 THEN CLS : LOCATE 16, 4: PRINT "Hi, my name is A-Kristo, Anti for the friends": GOTO 666
IF f = 3 THEN CLS : LOCATE 16, 4: PRINT "Me llamo A-Kristo, Anti para mis amigos...": GOTO 666
IF f = 4 THEN CLS : LOCATE 16, 4: PRINT "Pero bueno, es ke aun no sabes mi nombre¨?, me llamo A-Kristo­!, anti para los amigos­!": GOTO 666
IF f = 5 THEN CLS : LOCATE 16, 4: PRINT "Me llamo Anti, tio... A-Kristo pa los fifis...": GOTO 666
IF f = 6 THEN CLS : LOCATE 16, 4:  PRINT "Me llamo A-Kristooooooo... lo pillas (bueno kon una sola 'o'), y mis amigotes me llaman Anti­!": GOTO 666
IF f = 7 THEN CLS : LOCATE 16, 4:  PRINT "Mi nombre es Anti, Antikristo, A-Kristo....": GOTO 666
IF f > 7 THEN CLS : LOCATE 16, 4: PRINT "Esta bieeeeen... me llamo A-Kristo, ya lo tendrias ke saber...": GOTO 666
END IF

IF ak$ = "maricon" OR ak$ = "marikon" OR ak$ = "puta" OR ak$ = "puto" OR ak$ = "hijo de perra" OR ak$ = "hijo de puta" OR ak$ = "kabron" OR ak$ = "cabron" OR ak$ = "lamer" OR ak$ = "lamerz" OR ak$ = "lammer" OR ak$ = "lammerz" OR ak$ = "idiota" OR ak$ = "imbecil" OR ak$ = "kapullo" OR ak$ = "capullo" OR ak$ = "asqueroso" OR ak$ = "askeroso" OR ak$ = "idiota" OR ak$ = "estupido" OR ak$ = "burro" OR ak$ = "burra" OR ak$ = "loco" OR ak$ = "loko" OR ak$ = "cabeza de chorlito" OR ak$ = "kabza de chorlito" OR ak$ = "kabeza de alkornoke" OR ak$ = "cabeza de alcornoque" OR ak$ = "cazurro" OR ak$ = "kazurro" OR ak$ = "kapifusti" OR ak$ = "capifusti" OR ak$ = "mediomurpfhy" OR ak$ = "mediomurfy" OR ak$ = "fistro" OR ak$ = "pecador" OR ak$ = "pekador" OR ak$ = "medio murfy" OR ak$ = "medio murphy" OR ak$ = "gay" OR ak$ = "lesbiana" OR ak$ = "lesbi" OR ak$ = "energumeno" OR ak$ = "experimento" OR ak$ = "demente" OR ak$ = "incordio" OR ak$ = "inkordio" OR ak$ = "tonto" OR ak$ = "tontito" OR ak$ = "tormento" OR ak$ = "torpedo" OR ak$ = "pesado" OR ak$ = "pesada" OR ak$ = "pesao" OR ak$ = "pesaa" OR ak$ = "korko" OR ak$ = "korki" OR ak$ = "korky" OR ak$ = "perro" OR ak$ = "perra" OR ak$ = "zorro" OR ak$ = "zorra" THEN
RANDOMIZE TIMER
f = INT(RND * 8) + 1
IF f = 1 THEN CLS : LOCATE 16, 4: PRINT "Lo mismo te digooo...": GOTO 666
IF f = 2 THEN CLS : LOCATE 16, 4: PRINT "Y tu tambien": GOTO 666
IF f = 3 THEN CLS : LOCATE 16, 4: PRINT "Eso lo sera tu madre": GOTO 666
IF f = 4 THEN CLS : LOCATE 16, 4: PRINT "Eres un #ú%¨@­": GOTO 666
IF f = 5 THEN CLS : LOCATE 16, 4: PRINT "Eso no lo soy yo...": GOTO 666
IF f = 6 THEN CLS : LOCATE 16, 4: PRINT "Me parece ke yo no soy el uniko...": GOTO 666
IF f = 7 THEN CLS : LOCATE 16, 4: PRINT "No estoy solo, sabes¨?": GOTO 666
IF f > 7 THEN CLS : LOCATE 16, 4: PRINT "Gracias, solemos ir en grupo... por eso estas aki, no¨?": GOTO 666
END IF

IF ak$ = "bastrdo" OR ak$ = "koprofago" OR ak$ = "makabra" OR ak$ = "coprofago" OR ak$ = "macabra" OR ak$ = "macarra" OR ak$ = "makarra" OR ak$ = "dislexico" OR ak$ = "dislexiko" OR ak$ = "nekrofilo" OR ak$ = "necrofilo" OR ak$ = "nekrofilido" OR ak$ = "necrofilido" OR ak$ = "zoofilo" OR ak$ = "zoofilido" OR ak$ = "asesino" OR ak$ = "psicopata" OR ak$ = "psikopata" OR ak$ = "violador" OR ak$ = "cachondo" OR ak$ = "kachondo" THEN
RANDOMIZE TIMER
g = INT(RND * 8) + 1
IF g = 1 THEN CLS : LOCATE 16, 4: PRINT "Si. Y me enkanta": GOTO 666
IF g = 2 THEN CLS : LOCATE 16, 4: PRINT "Ese es mi HOBBYE": GOTO 666
IF g = 3 THEN CLS : LOCATE 16, 4: PRINT "Veo ke ya komprendes el signifikado de la vida...": GOTO 666
IF g = 4 THEN CLS : LOCATE 16, 4: PRINT "Me produce excitacion": GOTO 666
IF g = 5 THEN CLS : LOCATE 16, 4: PRINT "Si... te importa¨?": GOTO 666
IF g = 6 THEN CLS : LOCATE 16, 4: PRINT "Dices eso por el mero hecho de kererme OFENDER¨? jajajajaja, infeliz... pos lo soy": GOTO 666
IF g = 7 THEN CLS : LOCATE 16, 4: PRINT "Blup, blup­!": GOTO 666
IF g > 7 THEN CLS : LOCATE 16, 4: PRINT "Yo tambien te kiero...": GOTO 666
END IF
IF ak$ = "ya" THEN
RANDOMIZE TIMER
h = INT(RND * 3) + 1
IF h = 1 THEN CLS : LOCATE 16, 4: PRINT "yyyyyya­!": GOTO 666
IF h = 2 THEN CLS : LOCATE 16, 4: PRINT "Anda, komo los chinos­! (yaaaaah­!)": GOTO 666
IF h > 2 THEN CLS : LOCATE 16, 4: PRINT "Eso.": GOTO 666
END IF

IF ak$ = "format c:\" OR ak$ = "format d:\" OR ak$ = "format a:\" OR ak$ = "format c:" OR ak$ = "format d:" OR ak$ = "format a:" OR ak$ = "format b:\" OR ak$ = "format b:" THEN
CLS : LOCATE 16, 4: PRINT "Formateando HD......."
LOCATE 17, 4: PRINT "99% kompleto"
LOCATE 18, 4: PRINT "Error detektado"
LOCATE 19, 4: PRINT "Existe 1 programa en memoria."
LOCATE 20, 4: PRINT "Cierrelo y podra kompletar ese 1% ke le falta...": GOTO 666
END IF



