Diferencias

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

--- eliza.bas [2022/08/03 18:32] – 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
@@ 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 "PEDES ","PUEDO ","TU ERES ","USTED ES ","YO NO ","YO SIENTO "
+DATA "PUEDE ","PUEDO ","TU ERES ","USTED ES ","YO NO ","YO SIENTO "
 DATA "PORQUE USTED NO ","PORQUE NO PUEDO ","ES USTED ","YO NO PUEDO ","YO SOY ","SOY "
 DATA "USTED ","YO QUIERO ","QUE ","COMO ","QUIEN ","DONDE ","CUANDO ","PORQUE "
@@ Línea 94: / Línea 94: @@
 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 "TAL VEZ USTED QUERRIA SER COMO YO*"
 DATA "USTED QUIERE QUE SEA CAPAZ DE*"
 DATA "TAL VEZ USTED NO QUIERE*"
-DATA "QUIERE SER CAPAZA DE*"
+DATA "QUIERE SER CAPAZ DE*"
 DATA "QUE LO HACE PENSAR QUE SOY*"
 DATA "LE AGRADA PENSAR QUE SOY*"
@@ Línea 123: / Línea 123: @@
 DATA "PORQUE ESTA USTED INTERESADO EN SI YO SOY O NO*"
 DATA "PREFERIRIA QUE NO FUESE*"
-DATA "TAL VEZ EN SUS FANTASIAS YO SOY*"
+DATA "TAL VEZ USTED FANTASEA QUE YO SOY*"
 DATA "COMO SABE USTED QUE NO PUEDE*"
-DATA "HA USTED INTENTADO?"
+DATA "HA USTED INTENTADO*"
 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 "USTED PARECE BASTANTE POSITIVO."
 DATA "ESTA USTED COMPLETAMENTE SEGURO?"

Texto-Plano

Herramientas de usuario

Diferencias