Diferencias

Muestra las diferencias entre dos versiones de la página.

--- eliza.bas [2022/08/03 18:17] – creado peron
+++ eliza.bas [2026/04/21 16:06] (actual) – editor externo 127.0.0.1
@@ Línea 1: / Línea 1: @@
-<code freebasic>
+<code freebasic eliza.bas>
 PRINT TAB(16);"**************************"
 PRINT TAB(26);"ELIZA"
 PRINT TAB(20);"CREATIVE COMPUTING"
 PRINT TAB(18);"MORRISTOWN, NEW JERSEY":PRINT
-PRINT TAB(19);"ADAPTED FOR IBM PC BY"
+PRINT TAB(19);"ADAPTADO PARA IBM PC POR"
-PRINT TAB(20);"PATRICIA DANIELSON AND PAUL HASHFIELD"
+PRINT TAB(20);"PATRICIA DANIELSON, PAUL HASHFIELD Y PERON"
-PRINT TAB(21);"BE SURE THAT THE CAPS LOCK IS ON"
+PRINT TAB(21);"ASEGURESE QUE CAPS LOCK ESTA ENCENDIDO"
-PRINT:PRINT TAB(16);"PLEASE DON'T USE COMMAS OR PERIODS IN YOUR INPUTS":PRINT
+PRINT:PRINT TAB(16);"POR FAVOR NO USE COMAS O PUNTOS EN LO QUE ESCRIBA":PRINT
 PRINT TAB(16);"*************************"
 PRINT :PRINT :PRINT
@@ Línea 20: / Línea 20: @@
 READ S(X),L:R(X)=S(X):N(X)=S(X)+L-1
 NEXT X
-PRINT "HI! I'M ELIZA. WHAT'S YOUR PROBLEM?"
+PRINT "HOLA! SOY ELIZA. QUE LO AQUEJA?"
 REM ***********************************
 REM *******USER INPUT SECTION**********
@@ Línea 30: / Línea 30: @@
 REM IF MID$(I$,L,1)="'" THEN I$=LEFT$(I$,L-1)+RIGHT$(I$,LEN(I$)-L):GOTO 230
 IF L+4>LEN(I$) THEN 250
-IF MID$(I$,L,4) <> "SHUT" THEN 250
+IF MID$(I$,L,4) <> "CALLATE" THEN 250
-PRINT "O.K. IF YOU FEEL THAT WAY I'LL SHUT UP...."
+PRINT "O.K. SI SE SIENTE ASI YO NO DIRE NADA...."
 END
 NEXT L
-IF I$=P$ THEN PRINT "PLEASE DON'T REPEAT YOURSELF!":GOTO 170
+IF I$=P$ THEN PRINT "POR FAVOR NO SE REPITA!":GOTO 170
 REM ***********************************
 REM ********FIND KEYWORD IN I$*********
@@ Línea 76: / Línea 76: @@
 IF RIGHT$(F$,1)<>"*" THEN PRINT F$:P$=I$:GOTO 170
 IF C$<>"   " THEN 630
-PRINT "YOU WILL HAVE TO ELABORATE MORE FOR ME TO HELP YOU"
+PRINT "USTED TENDRA QUE ELABORAR MAS PARA QUE PUEDA AYUDAR"
 GOTO 170
 PRINT LEFT$(F$,LEN(F$)-1);C$
@@ Línea 85: / Línea 85: @@
 REM *********KEYWORDS**************
 REM *******************************
-DATA "CAN YOU ","CAN I ","YOU ARE ","YOU'RE ","I DON'T ","I FEEL "
+DATA "PUEDE ","PUEDO ","TU ERES ","USTED ES ","YO NO ","YO SIENTO "
-DATA "WHY DON'T YOU ","WHY CAN'T I ","ARE YOU ","I CAN'T ","I AM ","I'M "
+DATA "PORQUE USTED NO ","PORQUE NO PUEDO ","ES USTED ","YO NO PUEDO ","YO SOY ","SOY "
-DATA "YOU ","I WANT ","WHAT ","HOW ","WHO ","WHERE ","WHEN ","WHY "
+DATA "USTED ","YO QUIERO ","QUE ","COMO ","QUIEN ","DONDE ","CUANDO ","PORQUE "
-DATA "NAME ","CAUSE ","SORRY ","DREAM ","HELLO ","HI ","MAYBE "
+DATA "NOMBRE ","CAUSA ","PERDON ","SUENIO ","HOLA ","BUENAS ","TALVEZ "
-DATA "NO","YOUR ","ALWAYS ","THINK ","ALIKE ","YES ","FRIEND "
+DATA "NO","SU ","SIEMPRE ","PIENSO ","SIMILAR ","SI ","AMIGO "
-DATA "COMPUTER", "NOKEYFOUND"
+DATA "COMPUTADORA", "NOKEYFOUND"
 REM *********************************
 REM ***STRING DATA FOR CONJUGATIONS**
 REM *********************************
-DATA " ARE "," AM "," WERE "," WAS "," YOU "," I "," YOUR"," MY "
+DATA " ESTOY "," SOY "," ERAMOS "," FUE "," USTED "," YO "," SU"," MI "
-DATA " I'VE "," YOU'VE "," I'M "," YOU'RE "
+DATA " YO HE "," USTED HA "," YO ESTOY "," USTED ESTA "
-DATA " ME "," YOU "
+DATA " YO "," USTED "
 REM ******************************
 REM *********REPLIES**************
 REM ******************************
-DATA "DON'T YOU BELIEVE THAT I CAN*"
+DATA "NO CREE USTED QUE YO PUEDO*"
-DATA "PERHAPS YOU WOULD LIKE TO BE LIKE ME*"
+DATA "TAL VEZ USTED QUERRIA SER COMO YO*"
-DATA "YOU WANT ME TO BE ABLE TO*"
+DATA "USTED QUIERE QUE SEA CAPAZ DE*"
-DATA "PERHAPS YOU DON'T WANT TO*"
+DATA "TAL VEZ USTED NO QUIERE*"
-DATA "DO YOU WANT TO BE ABLE TO*"
+DATA "QUIERE SER CAPAZ DE*"
-DATA "WHAT MAKES YOU THINK I AM*"
+DATA "QUE LO HACE PENSAR QUE SOY*"
-DATA "DOES IT PLEASE YOU TO BELIEVE I AM*"
+DATA "LE AGRADA PENSAR QUE SOY*"
-DATA "PERHAPS YOU WOULD LIKE TO BE*"
+DATA "TALVEZ A USTED LE GUSTARIA SER*"
-DATA "DO YOU SOMETIMES WISH YOU WERE*"
+DATA "ALGUNA VEZ DESEARIA SER*"
-DATA "DON'T YOU REALLY*"
+DATA "REALMENTE NO*"
-DATA "WHY DON'T YOU*"
+DATA "PORQUE USTED NO*"
-DATA "DO YOU WISH TO BE ABLE TO*"
+DATA "DESEARIA SER CAPAZ DE*"
-DATA "DOES THAT TROUBLE YOU*"
+DATA "LE PREOCUPA*"
-DATA "DO YOU OFTEN FEEL*"
+DATA "A MENUDO SIENTE*"
-DATA "DO YOU OFTEN FEEL*"
+DATA "A MENUDO SE SIENTE*"
-DATA "DO YOU ENJOY FEELING*"
+DATA "DISFRUTA SENTIR*"
-DATA "DO YOU REALLY BELIEVE I DON'T*"
+DATA "REALMENTE CREE QUE YO NO*"
-DATA "PERHAPS IN GOOD TIME I WILL*"
+DATA "TALVEZ EN UN BUEN MOMENTO YO PODRIA*"
-DATA "DO YOU WANT ME TO*"
+DATA "DESEA QUE YO*"
-DATA "DO YOU THINK YOU SHOULD BE ABLE TO*"
+DATA "PIENSA QUE DEBERIA SER CAPAZ DE*"
-DATA "WHY CAN'T YOU*"
+DATA "PORQUE NO PUEDE USTED*"
-DATA "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*"
+DATA "PORQUE ESTA USTED INTERESADO EN SI YO SOY O NO*"
-DATA "WOULD YOU PREFER IF I WERE NOT*"
+DATA "PREFERIRIA QUE NO FUESE*"
-DATA "PERHAPS IN YOUR FANTASIES I AM*"
+DATA "TAL VEZ USTED FANTASEA QUE YO SOY*"
-DATA "HOW DO YOU KNOW YOU CAN'T*"
+DATA "COMO SABE USTED QUE NO PUEDE*"
-DATA "HAVE YOU TRIED?"
+DATA "HA USTED INTENTADO*"
-DATA "PERHAPS YOU CAN NOW*"
+DATA "TAL VEZ USTED PUEDE AHORA*"
-DATA "DID YOU COME TO ME BECAUSE YOU ARE*"
+DATA "VINO A MI PORQUE USTED ES*"
-DATA "HOW LONG HAVE YOU BEEN*"
+DATA "POR CUANTO TIEMPO USTED HA ESTADO*"
-DATA "DO YOU BELIEVE IT IS NORMAL TO BE*"
+DATA "USTED CREE QUE ES NORMAL SER*"
-DATA "DO YOU ENJOY BEING*"
+DATA "USTED DISFRUTA SER*"
-DATA "WE WERE DISCUSSING YOU--NOT ME."
+DATA "ESTAMOS DISCUTIENDO DE USTED, NO DE MI."
-DATA "OH, I*"
+DATA "OH, YO*"
-DATA "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"
+DATA "USTED NO ESTA REALMENTE HABLANDO DE MI, VERDAD?"
-DATA "WHAT WOULD IT MEAN TO YOU IF YOU GOT*"
+DATA "QUE SIGNIFICARIA PARA USTED SI USTED*"
-DATA "WHY DO YOU WANT*"
+DATA "PORQUE USTED DESEA*"
-DATA "SUPPOSE YOU SOON GOT*"
+DATA "SUPONGA QUE PRONTO ESTE*"
-DATA "WHAT IF YOU NEVER GOT*"
+DATA "QUE SUCEDERIA SI USTED NUNCA*"
-DATA "I SOMETIMES ALSO WANT*"
+DATA "A VECES YO TAMBIEN QUIERO*"
-DATA "WHY DO YOU ASK?"
+DATA "PORQUE LO PREGUNTA?"
-DATA "DOES THAT QUESTION INTEREST YOU?"
+DATA "ESA PREGUNTA LE INTERESA?"
-DATA "WHAT ANSWER WOULD PLEASE YOU THE MOST?"
+DATA "QUE RESPUESTA LE AGRADARIA MAS?"
-DATA "WHAT DO YOU THINK?"
+DATA "QUE PIENSA USTED?"
-DATA "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"
+DATA "ESTAN TALES PREGUNTAS A MENUDO EN SU MOENTE?"
-DATA "WHAT IS IT THAT YOU REALLY WANT TO KNOW?"
+DATA "QUE ES FINALMENTE LO QUE QUIERE SABER?"
-DATA "HAVE YOU ASKED ANYONE ELSE?"
+DATA "LE HA PREGUNTADO A ALGUIEN MAS?"
-DATA "HAVE YOU ASKED SUCH QUESTIONS BEFORE?"
+DATA "HA PREGUNTADO TAL COSA ANTERIORMENTE?"
-DATA "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?"
+DATA "QUE MAS LE VIENE A LA MENTE AL PREGUNTAR ESO?"
-DATA "NAMES DON'T INTEREST ME."
+DATA "LOS NOMBRES NO ME INTERESAN."
-DATA "I DON'T CARE ABOUT NAMES --PLEASE GO ON."
+DATA "NO ME IMPORTAN LOS NOMBRES -- POR FAVOR CONTINUE."
-DATA "IS THAT THE REAL REASON?"
+DATA "ES ESA UNA PERSONA REAL?"
-DATA "DON'T ANY OTHER REASONS COME TO MIND?"
+DATA "NO LE VIENEN A LA MENTE OTRAS RAZONES?"
-DATA "DOES THAT REASON EXPLAIN ANYTHING ELSE?"
+DATA "ESA RAZON EXPLICA ALGO MAS?"
-DATA "WHAT OTHER REASONS MIGHT THERE BE?"
+DATA "QUE OTRA RAZON PODRIA HABER?"
-DATA "PLEASE DON'T APOLOGIZE!"
+DATA "POR FAVOR NO SE DISCULPE!"
-DATA "APOLOGIES ARE NOT NECESSARY."
+DATA "LAS DISCULPAS NO SON NECESARIAS."
-DATA "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE?"
+DATA "QUE SENTIMIENTOS TIENE CUANDO SE DISCULPA?"
-DATA "DON'T BE SO DEFENSIVE!"
+DATA "NO SE PONGA A LA DEFENSIVA!"
-DATA "WHAT DOES THAT DREAM SUGGEST TO YOU?"
+DATA "QUE LE SUGIERE ESE SUEÑO?"
-DATA "DO YOU DREAM OFTEN?"
+DATA "SUEÑA A MENUDO?"
-DATA "WHAT PERSONS APPEAR IN YOUR DREAMS?"
+DATA "QUE PERSONAS APARECEN EN SU SUEÑO?"
-DATA "ARE YOU DISTURBED BY YOUR DREAMS?"
+DATA "ESTA PREOCUPADO POR SUS SUEÑOS?"
-DATA "HOW DO YOU DO ...PLEASE STATE YOUR PROBLEM."
+DATA "COMO ESTA... POR FAVOR INDIQUE SU PROBLEMA."
-DATA "YOU DON'T SEEM QUITE CERTAIN."
+DATA "NO PARECE DEMASIADO SEGURO."
-DATA "WHY THE UNCERTAIN TONE?"
+DATA "PORQUE EL TONO INSEGURO?"
-DATA "CAN'T YOU BE MORE POSITIVE?"
+DATA "NO PUEDE SER MAS POSITIVO?"
-DATA "YOU AREN'T SURE?"
+DATA "USTED NO ESTA SEGURO?"
-DATA "DON'T YOU KNOW?"
+DATA "NO LO SABE?"
-DATA "ARE YOU SAYING NO JUST TO BE NEGATIVE?"
+DATA "ESTA DICIENDO NO SOLO PARA SER NEGATIVO?"
-DATA "YOU ARE BEING A BIT NEGATIVE."
+DATA "ESTA SIENDO UN POCO NEGATIVO."
-DATA "WHY NOT?"
+DATA "PORQUE NO?"
-DATA "ARE YOU SURE?"
+DATA "ESTA SEGURO?"
-DATA "WHY NO?"
+DATA "PORQUE NO?"
-DATA "WHY ARE YOU CONCERNED ABOUT MY*"
+DATA "PORQUE ESTA PREOCUPADO SOBRE MI*"
-DATA "WHAT ABOUT YOUR OWN*"
+DATA "QUE HAY DE SU PROPIO*"
-DATA "CAN YOU THINK OF A SPECIFIC EXAMPLE?"
+DATA "PUEDE PENSAR UN EJEMPLO ESPECIFICO?"
-DATA "WHEN?"
+DATA "CUANDO?"
-DATA "WHAT ARE YOU THINKING OF?"
+DATA "SOBRE QUE ESTA PENSANDO?"
-DATA "REALLY, ALWAYS?"
+DATA "EN SERIO, SIEMPRE?"
-DATA "DO YOU REALLY THINK SO?"
+DATA "USTED REALMENTE PIENSA ESO?"
-DATA "BUT YOU ARE NOT SURE YOU*"
+DATA "PERO USTED NO ESTA SEGURO DE*"
-DATA "DO YOU DOUBT YOU*"
+DATA "USTED DUDA DE*"
-DATA "IN WHAT WAY?"
+DATA "EN QUE FORMA?"
-DATA "WHAT RESEMBLANCE DO YOU SEE?"
+DATA "QUE PARECIDO VE USTED?"
-DATA "WHAT DOES THE SIMILARITY SUGGEST TO YOU?"
+DATA "QUE LE SUGIERE LA SIMILITUD A USTED?"
-DATA "WHAT OTHER CONNECTIONS DO YOU SEE?"
+DATA "QUE OTRAS CONEXIONES VE USTED?"
-DATA "COULD THERE REALLY BE SOME CONNECTION?"
+DATA "PODRIA HABER REALMENTE ALGUNA CONEXION?"
-DATA "HOW?"
+DATA "COMO?"
-DATA "YOU SEEM QUITE POSITIVE."
+DATA "USTED PARECE BASTANTE POSITIVO."
-DATA "ARE YOU SURE?"
+DATA "ESTA USTED COMPLETAMENTE SEGURO?"
-DATA "I SEE."
+DATA "LO PERCIBO."
-DATA "I UNDERSTAND."
+DATA "ENTIENDO."
-DATA "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?"
+DATA "PORQUE TRAE EL TEMA DE AMIGOS?"
-DATA "DO YOUR FRIENDS WORRY YOU?"
+DATA "SUS AMIGOS LO PREOCUPAN?"
-DATA "DO YOUR FRIENDS PICK ON YOU?"
+DATA "SUS AMIGOS LO ESCOGEN?"
-DATA "ARE YOU SURE YOU HAVE ANY FRIENDS?"
+DATA "ESTA VERDADERAMENTE SEGURO QUE TIENE ALGUN AMIGO?"
-DATA "DO YOU IMPOSE ON YOUR FRIENDS?"
+DATA "SE IMPONE A SUS AMIGOS?"
-DATA "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU."
+DATA "TAL VEZ SU AMOR POR AMIGOS LE PREOCUPE A USTED."
-DATA "DO COMPUTERS WORRY YOU?"
+DATA "LAS COMPUTADORAS LE PREOCUPAN?"
-DATA "ARE YOU TALKING ABOUT ME IN PARTICULAR?"
+DATA "HABLA DE MI EN PARTICULAR?"
-DATA "ARE YOU FRIGHTENED BY MACHINES?"
+DATA "ESTA ATERRORIZADO POR LAS MAQUINAS?"
-DATA "WHY DO YOU MENTION COMPUTERS?"
+DATA "PORQUE MENCIONA LAS COMPUTADORAS?"
-DATA "WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?"
+DATA "QUE PIENSA QUE LAS MAQUINAS HAN HECHO CON SU PROBLEMA?"
-DATA "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?"
+DATA "NO PIENSA QUE LAS COMPUTADORAS PUEDEN AYUDAR AL PUEBLO?"
-DATA "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?"
+DATA "QUE ES LO QUE LE PREOCUPA DE LAS MAQUINAS?"
-DATA "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"
+DATA "DIGAMOS, USTED ESTA MUY MAL PSICOLOGICAMENTE?"
-DATA "WHAT DOES THAT SUGGEST TO YOU?"
+DATA "QUE LE SUGIERE ESTO A USTED?"
-DATA "I SEE."
+DATA "YA VEO."
-DATA "I'M NOT SURE I UNDERSTAND YOU FULLY."
+DATA "NO ESTOY SEGURA DE ENTENDERLO COMPLETAMENTE."
-DATA "COME COME ELUCIDATE YOUR THOUGHTS."
+DATA "VAMOS, VAMOS. ELUCIDE SUS PENSAMIENTOS."
-DATA "CAN YOU ELABORATE ON THAT?"
+DATA "PUEDE ELABORAR SOBRE ELLO?"
-DATA "THAT IS QUITE INTERESTING."
+DATA "ESO ES BASTANTE INTERESANTE."
 REM *************************
 REM *****DATA FOR FINDING RIGHT REPLIES

Texto-Plano

Herramientas de usuario

Diferencias