Paso 4: bonificación:
'---------------------------------------------------------------------------------------------------
REM **************************************************************************
REM * programa: oracle pc
REM * Nota: elegir al azar de la respuesta a una pregunta.
REM * programador: Computothought
REM * última actualización: 10/03/11
REM *------------------------------------------------------------------------
RESTAURAR odata
ANCHO 80, 25
CLS
RANDOMIZE TIMER
DIM x$(64)
Rem To.sound = 1
PARA x = 0 a 63
LEER x$(x)
SIGUIENTE x
m$ = "No hecho"
pagar = 0
MIENTRAS m$ = "No hecho"
pagar = pay + 1
CLS
UBICAR 4, 1
IMPRIMIR "T H E O R A C L E!"
LOCALIZAR 5, 1
Imprimir "Computothought 2009"
PARA x = 1 a 1500
SIGUIENTE x
UBICAR 7, 1
ENTRADA de línea "por favor introduzca su pregunta:", q$
SELECT CASE LEFT$ ($q, 1)
CASO CHR$(248)
Rem To.sound = 1
CASO CHR$(255)
Rem To.sound = 0
FINAL SELECCIONE
LOCALIZAR 10, 1
Imprimir "el oráculo te mostrará es pensamientos, luego convocar a su respuesta."
LOCALIZAR 12, 1
Imprimir "así que por favor sea paciente!"
UBICAR 15, 1
IMPRESIÓN de "<" + STRING$ (76, "=") + ">"
LOCALIZAR 16, 1
IMPRESIÓN de "<"; TAB(78); ">"
LOCALIZAR 17, 1
IMPRESIÓN de "<" + STRING$ (76, "=") + ">"
PARA Z = 1 A 1000
LOCALIZAR 16, 3
IMPRIMIR CADENA$ (75, "");
LOCALIZAR 16, 3
IMPRIMIR x$(RND(1) * 63);
Rem si To.sound = 1 THEN
JUEGO de REM "l16" + CHR$(INT(RND(1) * 7) + 65)
Rem END IF
SIGUIENTE Z
PARA x = 1 a 5
IMPRIMIR
SIGUIENTE x
ENTRADA "estás hecho (s/n)"; d$
IF UCASE$(d$) <> "N" entonces
m$ = "Hecho"
END IF
VENDO
IMPRIMIR
Imprimir "Preste al cajero"; pagar * 5; "dólares!"
ZZ$ = ""
ZZ$ = INPUT$(1)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob:
VER IMPRIMIR
UBICAR 25, 1
IMPRIMIR CADENA$ (79, "");
UBICAR 24, 1
Rem EXIT SUB
FINAL
OData:
DATOS "Sí, si eres creativo".
DATOS "Sí, si estás receptivo".
DATOS "todo es posible, pero usted tendrá un difícil comienzo".
DATOS "Lo que un joven locura pedir!"
DATOS "debe esperar y volver a preguntar."
DATOS "sólo conflicto vendrá del resultado, por favor oren."
DATOS "tomará muchos de los que se organizan para llevar a cabo su petición."
DATOS "Sí, si lo mantienes juntos".
DATOS "Sean mansos y obtendrá su respuesta".
DATOS "tienes suerte de conseguirlo ahora!"
DATOS "Debe tener la comunión de los hombres".
DATOS "en"gran medida voluntad el resultado de la posesión.
DATOS "uno debe ser moderada para lograr su objetivo."
DATOS "hará bien tener entusiasmo para su misión".
DATOS "Que alguien lidere a su búsqueda".
DATOS "Expiación para lo que ha sido estropeado, entonces reask su pregunta."
DATOS "Está demasiado lejos obtener la respuesta".
DATOS "Meditación le llevará a su respuesta."
DATOS "Mordedura a través a su objetivo."
DATOS "Si manejas la vida con gracia!"
DATOS "Hay que venir para destino a realizarse".
DATOS "Todo debe volver a lo que es".
DATOS de "No saber que la respuesta verdadera será mejor".
DATOS "Debe dominar la potencia de los grandes."
DATOS "ver las esquinas de la boca".
DATOS de "la mayor preponderancia será destino."
DATOS "será abysmals, lo siento!"
DATOS "usted será afortunado para aferrarse a lo que tienes."
DATOS "Influencia será el remojo piedra a su búsqueda."
DATOS "simplemente ser paciente por un tiempo".
DATOS "es un momento para conseguir lejos."
DATOS de "el poder de los grandes es sobre vosotros".
DATOS "Sí, es una progresión que debe alcanzarse".
DATOS de "la bola de crytal es perder la luz y no hay respuesta se puede lograr ahora.
DATOS "Todo el mundo cerca será parte de su respuesta".
DATOS "No, hay demasiada oposición."
DATOS "No es probables, hay obstáculos en el camino."
DATOS "Sí, liberación vendrá."
DATOS "no tanto como es posible que como se supone."
DATOS "sí y más que fue planeado."
DATOS "Sí, si hay un avance".
DATOS "Tal vez si vienes a cumplir."
DATOS "Ahora es el momento de reunirse para la respuesta".
DATOS "Sí, sólo si hay un empuje hacia arriba".
DATOS "No, opresión detendrá su búsqueda."
DATOS "sí, no y tal vez..."
DATOS "Lo que el oráculo dice es opuesta a la respuesta verdadera."
DATOS "la respuesta tomará más tiempo y tendrá que pagar por la espera.
DATOS "sólo a través de un despertar!"
DATOS "no es momento para un movimiento, debe mantener todavía.
DATOS «Que suerte desarrollar como».
DATOS "Se debe ver el casarse con la doncella primero."
DATOS "Más de lo imaginado."
DATOS "puede preguntarse y pasear, pero es tiempo de pasar".
DATOS "sólo si actúas con cuidado."
DATOS "Sí, con gran alegría!"
DATOS No, así que usted debe dejar ir de que extienda."
DATOS "sólo con limitaciones."
DATOS «mira dentro de ti y encontrarás la respuesta.
DATOS "sólo con"preponderancia de lo pequeño.
DATOS "llegará a ser después de la terminación."
DATOS "sólo antes de la terminación."
DATOS "Me encanta a Elizabeth!"
DATOS "solo Dios sabe..."
