El Amiga me Encanta - Commodore Amiga World Nº1


	Revistas en papel Commodore Amiga World Nº1 - Jul/Ago 1989

El Amiga Me Encanta ha conseguido el permiso por escrito de IDG Comunications España
para ofrecer los artículos de la revista Amiga World España.

$Amiga World$

	El popular juego de la LOTO reparte semanalmente muchos millones de pesetas. Aun sin profundos conocimientos de matemáticas se puede sacar más rendimiento a las apuestas, con programas como el de este artículo.

Por Fernando Marcos y Alvarez Ibáñez

Es probable que muchas veces hayas oído frases como "combinaciones de la Loto", "reducciones de las quinielas" o "probabilidades de acierto"... estos conceptos, de carácter matemático, se utilizan habitualmente para hacer apuestas de Loto o quinielas futbolísticas. No es necesario saber mucho de matemáticas para rellenar quinielas de este tipo, si se tienen las fórmulas apropiadas. Todo consiste en sustituir los números elegidos por los que correspondan en las combinaciones de las fórmulas.

La aplicación más práctica de estos sistemas es apostar a una gran cantidad de números con pocos boletos. Esto no hace aumentar las probabilidades de acierto, pero disminuye considerablemente la cantidad de dinero que se juega. Así, por ejemplo, se pueden jugar 19 números por el precio de 28 apuestas. Naturalmente, esto no quiere decir que si los seis números de la combinación ganadora están entre tus 19 aciertos obligatoriamente, como ahora se explicará.

Si estas interesado en teclear el programa, introducir los números y que el ordenador te imprima los boletos, puedes pasar directamente al apartado "instrucciones". A continuación, se explicará el fondo del programa, es decir, la teoría, para que comprendas por qué funciona y puedas modificarlo a tu gusto.

Combinaciones, reducciones, probabilidades.

Hay tres conceptos importantes a tener en cuenta si quieres saber cómo "funciona" este invento de la Loto por ordenador. Combinación, Reducción y Probabilidad. Los dos primeros son necesarios para realizar los cálculos, y el tercero es un buen indicador de las probabilidades que tienes de acertar.

Las combinaciones son la forma de distribuir varios números en agrupaciones de cierto número de elementos. Así, por ejemplo, existen tres formas distintas de agrupar tres números en parejas de dos: AB, BC y AC. Cuatro números en grupos de dos forman seis combinaciones distintas: AB, AC, AD, BC, BD, CD, y así sucesivamente. En los cálculos combinatorios utilizados en la Loto ha de tenerse en cuenta que no influye el orden de los factores, pues AB es lo mismo que BA, y que no se admiten repeticiones: AA o BB no son combinaciones válidas. Este tipo de combinaciones, llamadas en el argot matemático "combinaciones sin repetición", tienen una fórmula general que es:

La fórmula se lee "A sobre B" e indica el número de combinaciones sin repetición de A números tomados de B en B. El signo "!" representa la operación factorial, es decir, un número multiplicado por los dos números naturales anteriores a él, hasta el 1 (por ejemplo, 9! 9 x 8 x / x ... x 3 x 2 x 1=3.62.880). Como ejemplo práctico se puede calcular el número de todas las combinaciones posibles de la Loto. Sería 49 sobre 6, es decir, todas las combinaciones de los cuarenta y nueve números tomados de seis en seis. Este valor es: 49!/6!*(49-6)!), es decir, 13.983.816. Si alguien hiciera estos casi 14 millones de apuestas, acertaría los 6 con total seguridad... ¡pero se gastaría 1.400 millones de pesetas en hacerlas!

Los valores para menos números aumentan espectacularmente. Para 6 sólo hay 1 (evidente), para 7 hay 6, para 8, 28; para 9, 84; para 10, 210; para 11, 482... A partir de aquí, hacer todas las combinaciones posibles resulta extremadamente costoso. Este es el método que en los boletos se indica como "apuestas múltiples". Por esta razón se suelen emplear un método llamado reducción que elimina algunas apuestas.

Se puede reducir una combinación en función de cualquier criterio. El más utilizado es la repetición de números y los resultados esperados. Supón que quieres hacer unas combinaciones de varios números (diez, por ejemplo) de forma que te garanticen que vas a acertar, al menos, una de 3. Simbolizando cada número elegido con una letra, si la primera apuesta es ABCDEF, no es necesario que la segunda sea ABCDEG. Esto se debe a que si la combinación ganadora fuera ABCxxx, ya habrías acertado tres números, que era tu objetivo. Por lo tanto, ABCDEG no es una apuesta necesaria para tus propósitos. La base para reducir una combinación a un acierto es eliminar todas aquellas combinaciones redundantes con las anteriores.

Si reduces combinaciones al 3, puedes eliminar todas aquellas combinaciones en las que coinciden tres o más números (comparándolas unas con otras). Al reducir al 4, puedes eliminar todas las que tengan cuatro o más números iguales, y así sucesivamente. Reducir al 6 significaría obtener todas las combinaciones posibles, pues nunca se van a repetir los seis números.

Naturalmente, al eliminar combinaciones con el método de reducción, se pierden posibilidades de acertar los "premios gordos". Si entre ABCDEF y ABCDEG eliminas ABCDEG, y resulta ser la combinación ganadora... ¡la habrás perdido! El sistema sólo garantiza que acertarás el correspondiente a la reducción (por ejemplo, 3). Por lo tanto existe sólo cierta probabilidad de que aciertes premios mayores. Ésto depende de cada reducción y es un valor que se puede calcular de antemano.

Tal vez un ejemplo práctico lo aclare mejor. Jugar todas las combinaciones posibles de 19 números supondría hacer 27.132 apuestas (2,7 millones de pesetas). Pero la reducción al 3 de estos 19 números supone sólo 28 apuestas (2.800 pesetas). Naturalmente, la probabilidad también se reduce: Si entre tus 19 números están los 6 de la combinación ganadora (siempre hay que tener esto en cuenta) hay 1 probabilidad entre 969 de acertar 6, 1 entre 171 de acertar 5, 1 entre 19 de acertar tres. Si compruebas los cálculos, verás que la probabilidad es exactamente la misma que si hicieras 28 apuestas cualesquiera (28 entre 14 millones). La ventaja de reducir combinaciones es que eres tu mismo el que controlas la cantidad de números que vas a seleccionar y, en cierto modo, los tienes "delimitados".

Filtros para todos los gustos


	Hacer la LOTO por ordenador permite apro- vechar más eficientemen- te las apues- tas.

Existe una forma aún más drástica de reducir combinaciones. Aparte de las reducciones, o como complemento se puede crear una serie de "filtros" que eliminen aún más combinaciones no deseadas. Un nuevo ejemplo: normalmente no aparecen más de tres números en una misma decena. Si entre tus apuestas se encuentra una combinación de este tipo (por ejemplo 4-10-12-13-17-42) la puedes eliminar por considerarla "poco probable". Lo mismo puedes hacer si no te gusta que aparezcan demasiados números pares, o muy bajos, o muy altos... Todos estos filtros puedes crearlos a tu gusto. El programa de este artículo incluye algunos filtros de demostración.

Entre los filtros más utilizados se encuentran la cantidad de números pares e impares que aparecen, que la suma de todos los números se encuentra dentro de ciertos valores (por ejemplo 120 y 180), que no haya más de tres números en la misma decena, que no haya dos números seguidos, que no se encuentren varios en la misma fila o columna...

Para ser justos hay que decir que los filtros no son un sistema "mágico" para reducir apuestas. Son algo subjetivo y sin sentido matemático. La combinación 10-12-22-35-37-45 tiene exactamente la misma probabilidad de aparecer que la 1-2-3-4-5-6. Si salen pocas veces seis números seguidos es porque sólo hay 44 combinaciones de este tipo entre los 14 millones posibles, no porque 1-2-3-4-5-6 sea "menos probable" que las demás. De hecho, casi todas las combinaciones tienen algún detalle que las hace poco "vulgares" en el sentido de ser demasiado regulares o normales. Es la mente humana la que decide qué series de números son "raras". Las bolas del bombo no atienden a rarezas.

Las peñas o clubes encon- trarán cómodo obtener las largas listas de apuestas sin tener que preocuparse por los cálcu- los.

Filtrar es, en algunos casos, recomendable. El número de apuestas suele bajar considerablemente, y puedes hacerte la ilusión de jugar más números. Pero ten siempre en cuenta que en estos casos, para acertar, la combinación ganadora debe cumplir siempre todas las condiciones de los filtros.

Instrucciones del programa

El programa Loto corre sobre cualquier modelo de ordenador Amiga. Está escrito en AmigaBasic e incluye una rutina en C para acelerar el proceso de generación de apuestas reducidas. Teclea y graba los listados 1 y 2 en disco, con los nombres "LOtoRead.bas" y "Loto-C.gen". Utiliza siempre el corrector "Lister" para comprobar las sumas de control. Este programa lo puedes encontrar en las últimas páginas de la revista.

Una vez que hayas tecleado los listados, debes ejecutar el listado 2, que creará un fichero ejecutable llamado LOTO en el disco. Si todo va bien, desde ese momento podrás comenzar a trabajar con el programa. Al principio del listado se indica la forma de arrancarlo. Tras la presentación, aparece la pantalla principal, con la cuadrícula con los 49 números. El programa se controla enteramente con el ratón, desde los menús pull-down y seleccionando los números con la flecha indicadora. Tan sólo hay que introducir algunos datos desde el teclado.

Librerías de reducciones

Cuando vas a hacer una reducción, necesitas en primer lugar generarla, es decir, indicarle al ordenador cuantos números deseas jugar y cómo quieres reducir las combinaciones. Con ello estarás creando poco a poco lo que el programa llama "librería de reducciónes". Como el proceso de generación para muchos números es un tanto lento, estas librerías se pueden grabar en disco para su futura utilización. Así, si un día generas la librería de 24 números al 4, la próxima vez que quieras apostar 24 al 4 no tendrás que generarla de nuevo.

COMO HACER APUESTAS REDUCIDAS

Básicamente, el proceso consiste en:

1. MARCAR cualquier cantidad de números con el ratón.
2. Seleccionar la REDUCCION deseada en el menú.
3. Seleccionar los FILTROS (opcional).
4. Seleccionar GENERAR APUESTAS,
a. Si la librería de reducciones no existe, el ordenador lo indica y se puede generar antes de seguir.
b. Si la reducción existe, las apuestas quedan preparadas.

5. El resultado de la operación se grabará a disco para un posterior escrutinio. Puedes introducir el nombre que desees.
6. Se pueden estudiar las PROBABILIDADES.
7. Las apuestas se pueden VER por pantalla o IMPRIMIR.

NO ES TAN FACIL...

"No es oro todo lo que reluce" sería una frase muy apropiada para todos aquellos que todavía creen que existen "sistemas" para ganar a los juegos de azar. Ni siquiera con las más modernas computadoras se puede variar el curso de los acontecimientos aleatorios, siempre que el juego sea verdaderamente aleatorio. En todo juego de azar del tipo apuestas-premio existe una relación entre las apuestas, los premios y las probabilidades llamada esperanza matemática (EM). Este valor indica si un juego es "justo" o "injusto", entendiendo por "justo" que sea equitativo para las dos partes. Este valor se calcula mediante la formula:

E. M. =

Probabilidad

Apuestas / Premio

Si el valor de la EM es 1, el juego es justo para ambas partes. Si es mayor que 1, el juego es ventajoso para el que apuesta y si es menor que 1 es ventajoso para el que da los premios. Por ejemplo, jugar al "cara o cruz" apostando 5 pesetas seria un juego justo si el premio fueran 10 pesetas. En este caso. EM=(1/2)/(5/10)=1. Si el premio fueran sólo 8 pesetas, sería claramente injusto EM=(1/2)/(5/8)=0,8. Si en cambio el premio fueran 25 pesetas, sería muy ventajoso: EM=(1/2)/(5/25)=2,5.

En la vida real, todos los juegos de azar tienen una esperanza matemática menor que 1. Así por ejemplo, en la ruleta los premios se pagan en relación 36 a 1, pero la probabilidad de acierto es de 1 en 37 (si sale el 0 gana la banca). La EM es en este caso 0,972... acertable para pasar un buen rato. En otros juegos, como la lotería nacional, las quinielas o la Loto, los cálculos se complican: hay diversos premios, muchos jugadores, el premio depende de lo apostado por todos, etc., pero la esperanza matemática nunca es mayor que 1, por la sencilla razón de que "la banca" siempre se lleva un porcentaje de los premios.

En resumen: ningún juego de azar en el que la esperanza matemática sea menor que uno resulta favorable, y por lo tanto no existe ningún "sistema" para ganar. Pero también es cierto que aunque la esperanza matemática sea pequeña... ¡nadie dejará de jugar 100 pesetas si existe la posibilidad de ganar 300 millones!

En el menú APUESTAS de la parte izquierda hay dos opciones relacionadas con las librerías de reducciones:

Generar reducción
Permite crear cualquier librería de reducciones. debes seleccionar esta opción antes de generar las apuestas, a menos que la librería correspondiente a las apuestas que vayas a hacer ya exista. Los datos necesarios para generar una reducción son la cantidad de números que se juegan y la reducción.

Lista de reducciones
Esta opción muestra la lista de todas las librerías que se encuentran en el disco en el directorio actual. A medida que crees tus propias librerías esta lista irá aumentando.

Las librerías se almacenan en el disco en un fichero llamado "XX-Y", donde XX es la cantidad de números (por ejemplo, 19, 22 ó 09) e Y la reducción (3, 4, 5 ó 6).

Si intentas generar apuestas con tus propios números, y la librería necesaria no existe, el ordenador te lo indicará, ofreciéndote opciones para generar la librería o cambiar la cantidad de números.

Apuestas
Este es el principal atractivo del programa. Cuando quieras generar tus apuestas debes seguir los siguientes pasos:

Marca los números
Marca con el ratón todos los números que quieres jugar, en la reticula de la pantalla principal. Si te equivocas en alguno, puedes borrarlo marcándolo de nuevo. En la parte de la derecha de la pantalla aparecerá la cantidad total de números que has introducido. Puedes introducir números al azar marcando el icono "números al azar".

Reducción
Esta opción indica a cuántos números quieres reducir las combinaciones 3, 4, 5 ò 6. El valor seleccionado aparecerá con una marca a la izquierda. Los valores 1 y 2 no se pueden seleccionar pues no tienen sentido, aunque en el programa está prevista la posibilidad de desbloquearlos (ver "Programa a Medida"). Reducir a 6 significa obtener todas las combinaciones posibles, es decir, no reducir, sino obtener apuestas múltiples.

Si quieres realizar algún filtro además de la reducción, selecciona antes de seguir los valores en el menú FILTRO. (Ver "Filtros".)

Generar apuestas
Si todo va bien, tras seleccionar esta opción aparecerá un mensaje indicando que se ha cargado la librería de reducciones y a continuación se convertirán los números que has introducido en apuestas. Si la librería de reducciones no existe, aparecerá un mensaje indicándolo y el ordenador te ofrecerá la posibilidad de generarla. (Ver "Librerías de Reducciones".)

Ver apuestas
Una vez que las apuestas están listas, puedes obtener los resultados seleccionando VER APUESTAS POR PANTALLA o VER APUESTAS POR IMPRESORA en el menú APUESTAS.

Grabación de las apuestas
Las apuestas se graban en disco, con el nombre que tú elijas. De este modo, posteriormente se puede realizar el escrutinio. El nombre del fichero por defecto es USRRED. Si quieres tener varios ficheros de apuestas, dale a cada uno un nombre distinto cambiando el valor por defecto con el teclado.

Filtros

Cuando vas a generar las apuestas, puedes indicar uno o varios filtros que reduzcan aún más el número de apuestas resultantes. En el menú FILTROS se pueden seleccionar o deseleccionar todos los filtros. Cuando FILTROS está activado, hay varias opciones disponibles. Todas se pueden activar o desactivar marcándolas con el ratón.

Pares permite indicar el máximo y el mínimo número de pares de la combinación; Suma limita los valores máximos y mínimo de la suma de todos los números; Decena cuál es la cantidad máxima de números en la misma decena; Terminación, el máximo de números con la misma terminación y, Filas/Columnas, el máximo de números en la misma fila o columna. Los tres filtros restantes (así como muchos más) son programables por el usuario. (Ver "Programa a Medida".)

Para que el filtro actúe, se deben generar las apuestas, partiendo de una reducción cualquiera. Si tras este proceso de "filtrado" no queda ninguna apuesta, el ordenador lo indicará. Prueba a "aligerar" un poco las condiciones de los filtros, o a eliminar alguno de ellos.

Miscelánea

Estas son el resto de las opciones del menú APUESTAS:

Probabilidades
Esta opción carga una librería en función de los números marcados y la reducción elegida, para indicar cuales son las probabilidades de acierto de cada categoría. Recuerda que estas probabilidades son significativas sólo si la combinación ganadora (los seis números de cada sorteo) se encuentran entre los que tú has seleccionado. Si utilizas filtros, las condiciones de los filtros deben cumplirse para que estas probabilidades sean correctas. La probabilidad "total" indica la probabilidad exacta de que aciertes una Loto de seis, en función de las apuestas jugadas.

Ejemplo: al jugar 19 números al 3, si los seis primeros ganadores se encuentran entre tus 19, tienes un 100% de acertar 3 (seguridad absoluta, naturalmente). una entre 171 de acertar 5 (0,5%) y una entre 969 de acertar los seis (0,1%).

Directorio
Permite cambiar el directorio de trabajo, es decir, el directorio o la unidad de discos en la que se van a almacenar los ficheros de reducciones y apuestas.

Salir del programa
Termina el programa.

Sobre el programa
Informa sobre la versión actual del programa.

Algunos problemas...

Este programa es muy "glotón" en cuanto a memoria se refiere, y en ordenadores con 512K puede tener problemas. Por tanto, es recomendable ejecutarlo con el ordenador completamente "limpio", sin haber cargado antes nada, y con el menor número posible de ventanas activas. Tampoco es nada recomendable el uso del disco RAM para generar apuestas, ya que el programa también lo utiliza y puede acabar llenándose.

Un programa a medida

Este programa se diseñó con la idea de que el usuario pudiese modificarlo fácilmente, en caso de que no le guste la forma en que opera.

Reducciones: Como se dijo en otro punto del artículo, el programa no permite efectuar reducciones al 1 ó al 2. Si un usuario desea por cualquier motivo efectuar reducciones al 1 ó al 2. sólo tiene que desbloquear las opciones del menú en los subprogramas destinados a inicializarlos. Para ello, sustituye el tercer dígito que aparece a la izquierda de la opción por un uno.

Filtros: El programa permite la inclusión de tres módulos adicionales de filtrado por parte del usuario. Para incluirlos, desbloquea las opciones Usuario 1, Usuario 2 y Usuario 3 del menú correspondiente, y coloca el nombre de las rutinas de filtrado en la instrucción ON GOSUB que aparece en el bloque ActFil. Se pueden incluir más añadiendo nuevos menús.

También se pueden incluir todo tipo de "detallitos" adicionales, como menús de re-filtrado, carga y grabación independiente de apuestas en cualquier momento, ordenación de los números, etc. Es posible que en los próximo números de Amiga World, así como en el disco puedas encontrar nuevas mejoras. Por lo demás ya sabes: haz tus apuestas por ordenador... ¡tal vez mejore tu suerte!

LOTO - LISTADOS
Programa: LotoRead.bas
' LOTO Version 1.01           (14/3/89)                         .290
' (c)1989 by F. Marcos & A. Ibanez                              .23
' (c)1989 by Commodore World                                    .456
' Amiga 500/1000/2000, 512K                                     .846
' (Unidad externa y 1Mb MUY recomendados)                       .415
' Atencion!!!                                                   .573
' Para que este programa funcione, NO se debe                   .649
' cargar el AmigaBasic desde el Workbench,                      .165
' sino desde el CLI.                                            .204
' Para hacerlo, teclea lo siguiente:                            .969
'                                                               .273
' 1. Abre un CLI                                                .732
' 2. Extras:AmigaBasic    - Cargar el Basic                     .569
' 3. Load "lotoread.bas"  - Cargar LotoRead                     .178
' 4. Run                  - Ejecutarlo                          .536
'                                                               .273
' Si es necesario, cambia de directorio                         .274
' en el CLI (CD) o en el Basic (CHDIR)                          .718
' para situarte en tu disco de trabajo.                         .143
' El programa LOTO ejecutable (el generado                      . 68
' por LOTO-C.gen) debe estar en el mismo                        .892
' directorio que el CLI.                                        .869
' Inicializacion                                                . 80
IF FRE(1)<25000 THEN CLEAR ,30000&                              .227
RANDOMIZE TIMER                                                 . 96
' si te falta memoria, cierra ventanas y                        .533
' otras tareas. Desconecta la unidad externa.                   .424
' Se necesitan unos 100K de RAM libres                          .218
' desde el Workbench para LOTO.C funcione                       .591
' Definicion de Funciones                                       . 58
DECLARE FUNCTION execute& LIBRARY                               .213
DECLARE FUNCTION xOpen& LIBRARY                                 .334
LIBRARY "Extras:Basicdemos/dos.library"                         .432
' Si copias la "dos.bmap" en tu disco de                        . 91
' trabajo y quitas el "Extras:Basicdemos/"                      .276
' no tendras que cambiar tanto de disco                         .118
' Definicion de Variables                                       .191
DIM nu%(5,500),n(49),Flag%(49),F1|F%(9)                         .726
' Se puede aumentar el nu%(5,500) si tienes                     .846
' mas memoria, y tambien el CLEAR ,35000&                       .279
Path$=""     'Directorio por defecto                            .182
maxrep=3     'Reduccion                                         .799
numeros%=0   'Cantidad de numeros escogidos                     . 11
' Valores por defecto para los filtros                          .930
Filtros%=0    'Flag para los filtros                            .421
MinPa  = 2    'Minimo de pares                                  . 24
MaxPa  = 4    'Maximo de pares                                  .519
SMin   = 120  'Suma minima                                      .451
SMax   = 180  'Suma maxima                                      .938
MaxDec = 4    'Numeros por decena                               .291
MaxTer = 4    'Terminaciones                                    .421
MaxFil = 4    'Filas                                            .862
MaxCol = 4    'Columnas                                         .823
SUB invert(Sel) STATIC                                          .375
x=((Sel-1)\7)+1:y=(Sel-(7*(x-1)))                               .659
cx=(24*x)-13:cy=(24*y)-13                                       .565
AREA (cx,cy):AREA STEP (24,0)                                   .983
AREA STEP (0,16):AREA STEP (-24,0)                              . 26
AREAFILL 1                                                      .333
END SUB                                                         .214
SUB accept (char%,num%) STATIC                                  .220
SHARED te$                                                      .799
IF num%=1 THEN te$=STR$(VAL(te$)):IF te$=" 0"                   .566
    THEN te$=""
IF num%=1 AND LEN(te$)>1 THEN te$=RIGHT$(te$,                   .717
    LEN(te$)-1)
te$=LEFT$(te$,char%)                                            .617
x%=POS(0):y%=CSRLIN                                             .848
PRINT SPACE$(num%);                                             .571
getakey: LOCATE y%,x%:PRINT te$;:COLOR 0,3:PR                   . 30
   INT " ";:COLOR 3,0:PRINT " ";:COLOR 1,0
a$="":WHILE a$="":a$=UCASE$(INKEY$):WEND                        .433
IF a$=CHR$(13) THEN GOTO endacc                                 .  7
IF a$=CHR$(8) THEN GOTO Delt                                    .260
IF num%=1 THEN IF a$<"0" OR a$>"9" THEN getak                   .842
   ey
IF a$<" " OR a$>"Z" THEN getakey                                .959
IF LEN(te$)=> char% THEN getakey                                .699
te$=te$+a$:GOTO getakey                                         .104
Delt: IF LEN(te$)=0 THEN GOTO getakey                           . 61
te$=LEFT$(te$,LEN(te$)-1)                                       .976
GOTO getakey                                                    .725
endacc: LOCATE y%,x%:PRINT te$;"    "                           .747
END SUB                                                         .214
SUB Exec(a$) STATIC                                             .469
a$=a$+CHR$(0)                                                   . 48
x=execute$(SADD(a$),0,0)                                        .588
END SUB                                                         .214
SUB Gen(nu%,Re%) STATIC                                         .739
SHARED Path$,Ex%,FIL$,Co$                                       .954
a1$=CHR$(nu%+64)                                                .808
a2$=CHR$(Re%+64)                                                . 21
nu$=RIGHT$("00"+MID$(STR$(nu%),2),2)                            .983
Re$=STR$(-Re%)                                                  . 11
FIL$=Path$+nu$+Re$                                              .666
Exist FIL$                                                      .455
IF NOT Ex% THEN                                                 .619
PRINT "Generando."                                              .210
Co$="LOTO >"+Path$+nu$+Re$+" "+a1$+" "+a2$                      .406
Exec Co$                                                        .134
ELSE                                                            .483
PRINT "La combinacion ya existe."                               .331
END IF                                                          .654
END SUB                                                         .214
SUB Exist(File$) STATIC                                         .136
SHARED Ex%                                                      .601
File$=File$+CHR$(0)                                             .466
fHandle&=xOpen&(SADD(File$),1005)                               .102
IF fHandle&=0 THEN Ex%=0 ELSE Ex%=-1                            .767
xClose&(fHandle&)                                               .683
END SUB                                                         .214
SUB MakeMenu STATIC                                             .119
MENU 1,0,1,"APUESTAS"                                           .809
MENU 1, 1,1,"Generar Apuestas           "                       .406
MENU 1, 2,1,"Ver Apuestas por Pantalla  "                       .821
MENU 1, 3,1,"Ver Apuestas por Impresora "                       .871
MENU 1, 4,1,"Escrutar                   "                       .810
MENU 1, 5,0,"                           "                       .660
MENU 1, 6,1,"Generar Reduccion          "                       .969
MENU 1, 7,1,"Probabilidades             "                       .150
MENU 1, 8,1,"Lista de Reducciones       "                       .54
MENU 1, 9,0,"  "                                                .779
MENU 1,10,1,"Directorio                 "                       .749
MENU 1,11,0,"                           "                       .838
MENU 1,12,1,"Salir del Programa         "                       .193
MENU 1,13,1,"...Sobre el Programa       "                       . 81
MENU 2,0,1,"REDUCCION"                                          .486
MENU 2,1,0,"    al 1 "                                          . 99
MENU 2,2,0,"    al 2 "                                          .209
MENU 2,3,2,"    al 3 "                                          .126
MENU 2,4,1,"    al 4 "                                          .832
MENU 2,5,1,"    al 5 "                                          .942
MENU 2,6,1,"    Todas"                                          .822
MENU 3,0,1,"FILTROS"                                            . 63
MENU 3, 1,1,"  Filtrar     "                                    .443
MENU 3, 2,0,"              "                                    .423
MENU 3, 3,0,"  Pares       "                                    .741
MENU 3, 4,0,"  Suma        "                                    .511
MENU 3, 5,0,"  Decenas     "                                    .275
MENU 3, 6,0,"  Terminacion "                                    .545
MENU 3, 7,0,"  Filas       "                                    .328
MENU 3, 8,0,"  Columnas    "                                    .464
MENU 3, 9,0,"  Usuario 1   "                                    .103
MENU 3,10,0,"  Usuario 2   "                                    .322
MENU 3,11,0,"  Usuario 3   "                                    .195
MENU 4,0,0," "                                                  .790
END SUB                                                         .214
SUB BOX (x1%,y1%,x2%,y2%,t%) STATIC                             .670
IF t%=1 HTEN c1=3:c2=1 ELSE c1=1:c2=3                           .214
LINE (x1%,y1%)-(x2%,y2%),2,bf                                   .709
LINE (x1%,y2%-1)-(x1%,y1%),c1                                   .248
LINE -(x2%-1,y1%),c1                                            .223
LINE (x1%+1,y2%)-(x2%,y2%),c2                                   .117
LINE -(x2%,y1%+1),c2                                            .579
END SUB                                                         .214
SUB BLOCK (x1%,y1%,x2%,y2%,t%) STATIC                           .884
IF t%=1 THEN c1=3:c2=1 ELSE c1=1:c2=3                           .214
LINE (x1%,y2%-1)-(x1%,y1%),c1                                   .248
LINE -(x2%-1,y1%),c1                                            .223
LINE (x1%+1,y2%)-(x2%,y2%),c2                                   .117
LINE -(x2%,y1%+1),c2                                            .579
END SUB                                                         .214
SUB PAUSE (n%) STATIC                                           . 55
c=0                                                             .319
Pl:                                                             .171
c=c+1:IF c=n% THEN GOTO Pe                                      .413
IF INKEY$<>"" OR MOUSE(0)<>0 THEN GOTO Pe                       .675
GOTO Pl                                                         .395
Pe:                                                             .827
END SUB                                                         .214
SUB INVERTRANDOM STATIC                                         .565
AREA (192,110):AREA (297,110)                                   .401
AREA (297,169):AREA (192,169)                                   .843
AREAFILL 1                                                      .333
END SUB                                                         .214
' Presentacion                                                  .118
LOTO:                                                           .601
SCREEN 2,320,255,2,1                                            .993
WINDOW 2,"LOTO   Commodore Amiga World   (C)1                   .  9
   989",(0,0)-(311,241),16,2
WIDTH 255                                                       .583
PALETTE 0,0,0,.3                                                .887
PÀLETTE 1,0,0,.3                                                .459
PÀLETTE 2,0,0,.3                                                . 31
PALETTE 3,0,0,.3                                                .602
MakeMenu                                                        .850
LINE (15,40)-(35,140),1,bf                                      .275
LINE (36,125)-(75,140),1,bf                                     .349
CIRCLE (115,90),52,1,,,1.3                                      .948
CIRCLE (115,90),36,1,,,1.7                                      .966
PAINT (115,50),1                                                .393
LINE (155,40)-(216,55),1,bf                                     .538
LINE (178,56)-(196,140),1,bf                                    .850
CIRCLE (255,90),52,1,,,1.3                                      .236
CIRCLE (255,90),36,1,,,1.7                                      .254
PAINT (255,50),1                                                .880
LOCATE 20:COLOR 2                                               .820
PRINT TAB(13);"Programación:"                                   . 97
PRINT:cOLOR 1                                                   .523
PRINT TAB(12);"Fernando Marcos"                                 .948
PRINT TAB(13);"Alvaro Ibanez"                                   .902
PRINT                                                           .463
PRINT:COLOR 2                                                   .530
PRINT TAB(13);"Presentacion:"                                   .175
PRINT:COLOR 1                                                   .523
PRINT TAB(10);"Juan Carlos Marcos"                              .410
PRINT                                                           .463
PRINT PTAB(84)"Pulse una tecla";                                .369
PALETTE 1,.8,.7,.6                                              .221
PALETTE 2,.6,.5,.4                                              .672
PALETTE 3,.4,.3,.2                                              .124
PAUSE 3000                                                      .714
FOR a=1 TO 94:                                                  .690
SCROLL (15,35)-(310,238),0,1                                    .208
NEXT                                                            . 61
FOR a=1 TO 54                                                   .130
SCROLL (15,130+a)-(310,238-a),0,1                               .996
FOR r=1 TO 3:NEXT                                               .770
NEXT                                                            . 61
COLOR 3,2                                                       .197
BOX 5,5,306,178,0                                               .317
BOX 9,9,182,174,0                                               .854
BOX 187,9,302,174,0                                             .195
BOX 191,13,298,33,1:LOCATE 3                                    . 40
PRINT PTAB (194);"Reduccion"                                    .846
COLOR 1,2:LOCATE 4,37:PRINT "3"                                 .834
BOX 191,37,298,105,1:LOCATE 6:COLOR 3,2                         .517
PRINT PTAB (194);"Numeros":COLOR 1,2                            .695
LOCATE 13,36:PRINT " 0"                                         . 21
BOX 191,109,298,170,0:LOCATE 15                                 .290
COLOR 3,2:PRINT PTAB(194);"Numeros"                             .743
PRINT PTAB(194);"al azar"                                       .581
FOR x=0 TO 6                                                    .638
FOR y=0 TO 6                                                    .210
LOCATE 3+(y*3),3+(3*x)                                          .447
PRINT USING "##";X*7+Y+1                                        .354
NEXT                                                            . 61
NEXT                                                            . 61
' Programa principal                                            .657
Main:                                                           .417
ON MENU GOSUB MenuHandle                                        .357
MENU ON                                                         .150
ON MOUSE GOSUB MouseHandle                                      .639
MOUSE ON                                                        .828
WHILE 1:WEND                                                    .626
' Pulsaciones del raton                                         .929
MouseHandle:                                                    .774
Mm:                                                             .190
bt=MOUSE(0):mx=MOUSE(1):my=MOUSE(2)                             .447
IF mx>191 AND my>109 THEN GOTO CheckRND                         . 90
IF mx<9 OR mx>178 THEN RETURN                                   . 55
IF my<9 OR my>174 THEN RETURN                                   .380
mx=(mx-11)\24                                                   .556
my=((my-9)\24)+1                                                . 66
n=(mx*7)+my                                                     .260
SelNum:                                                         .297
invert n                                                        .266
Flag%(n)=1-Flag%(n)                                             .293
IF Flag%(n)=1 THEN                                              .500
numeros%=numeros%+1                                             .932
ELSE                                                            .483
numeros%=numeros%-1                                             . 31
END IF                                                          .654
LOCATE 13,36:COLOR 1,2                                          .215
PRINT USING "##";numeros%                                       .524
RETURN                                                          .387
' Numeros aleatorios                                            .153
CheckRND:                                                       .275
IF mx>298 OR my>170 OR numeros%=49 THEN RETUR                   .807
   N
BLOCK 191,109,298,170,1                                         .593
nRan=0                                                          .124
WHILE nRan=0                                                    .308
nRan=INT(RND*49)+1                                              . 53
IF Plag%(nRan)=1 THEN nRan=0                                    .831
WEND                                                            . 89
n=nRan                                                          .654
GOSUB SelNum:                                                   . 86
wHILE MOUSE(0)<>0:WEND                                          .435
BLOCK 191,109,298,170,0                                         .586
RETURN                                                          .357
' Gestion de menus                                              .339
MenuHandle:                                                     .697
Mh:                                                             .944
MENU OFF                                                        .149
MOUSE OFF                                                       .899
Body%=MENU(0)                                                   .508
Choice%=MENU(1)                                                 .512
ON Body% GOSUB Apuestas,Reducc,Filtros                          .614
WIDTH 255                                                       .563
MENU ON                                                         .150
MOUSE ON                                                        .828
RETURN                                                          .357
' Primer Cuerpo de Menus                                        .846
Apuestas:                                                       .392
ON Choice% GOSUB Gen,SeeS,SeeP,Escrut,DUMMY,G                   .500
   enR,ProD,LisR,DUMMY,Dir,DUMMY,Quit,Info
RETURN                                                          .357
DUMMY:                                                          .436
RETURN                                                          .357
' Lista de reducciones                                          .244
LisR:                                                           .880
Co$="sys:c/dir >ram:tdir "+Path$+"??-?"                         .610
WINDOW 3,"LIBRERIAS PRESENTES:",(20,30)-210,                    .362
   136),0,2
Exec Co$                                                        .134
Exist "ram:tdir"                                                .745
IF Ex%=0 THEN WINDOW CLOSE 3:BEEP:RETURN                        .759
OPEN "ram:tdir" FOR INPUT AS 1                                  .483
lin=0                                                           .426
WHILE NOT EOF(1)                                                .271
LINE INPUT#1,a$                                                 .806
a1$=LEFT$(a$,10)                                                . 45
a2$=RIGHT$(a$,10)                                               .402
PRINT a1$;a2$                                                   .601
lin=lin+1                                                       .856
IF lin=11 THEN GOSUB Tecla:lin=0:CLS                            .540
WEND                                                            . 89
CLOSE                                                           .533
GOSUB Tecla                                                     .398
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Cambiar de directorio                                         . 62
Dir:                                                            .480
WINDOW 3,"CAMBIO DE DIRECTORIO",(20,30)-(210,                   . 89
   136),0,2
PRINT "Directorio de Trabajo:"                                  .786
PRINT Path$                                                     .766
PRINT                                                           .463
LOCATE 4                                                        .893
te$=Path$                                                       . 60
accept 23,0                                                     .906
IF RIGHT$(te$,1)<>"/" AND RIGHT$(te$,1)<>":"                    .965
   THEN
te$=te$+"/"                                                     .578
END IF                                                          .654
Path$=te$                                                       .180
IF Path$="/" THEN Path$=""                                      .312
MENU 1,10,1,"Directorio "+Path$                                 .740
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Generacion de reducciones                                     .781
GenR:                                                           .431
WINDOW 3,"GENERACION DE REDUCCIONES",(20,30)-                   .244
   (300,136),0,2
GenREntry:                                                      .400
PRINT "Esta libreria se anadira en el"                          .489
PRINT "directorio de trabajo especificado."                     .515
PRINT "Cuantos numeros? (7-49) "                                .791
1 te$="":accept 2,1:nu=VAL(te$)                                 .580
IF te$="" THEN WINDOW CLOSE 3:RETURN                            . 29
IF nu<7 OR nu>49 THEN LOCATE CSRLIN-1:GOTO 1                    . 53
PRINT "Que reduccion? (3-6) "                                   .531
2 te$="";accept 1,1:Re-VAL(te$)                                 .731
IF te$="" THEN CLS:GOTO GenREntry                               .434
IF Re<1 OR Re>6 THEN LOCATE CSRLIN-1:GOTO 2                     .622
PRINT "Generando..."                                            .914
nu$=MID$(STR$(nu),2)                                            .785
Re$=STR$(-Re)                                                   .274
Co$="LOTO >"+Path$+nu$+Re$+" "+CHR$(64+nu)+"                    .651
   "+CHR$(64+Re)
Exec Co$                                                        .134
PRINT "Terminado"                                               .792
GOSUB Tecla                                                     .398
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Sobre el programa                                             .235
Info:                                                           .385
WINDOW 3,"...Sobre el programa",(20,30)-(210,                   .245
   170),0,2
COLOR 1,3:CLS                                                   .270
PRINT "        LOTO 1.0"                                        .316
PRINT:PRINT "Programacion:"                                     . 19
PRINT "  Pernando Marcos"                                       .597
PRINT "  Alvaro Ibanez"                                         .955
PRINT:PRINT "Presentacion:"                                     . 97
PRINT "  Juan Carlos Marcos"                                    .544
PRINT:PRINT "Algoritmos:"                                       .330
PRINT "  Diego Romero"                                          .476
PRINT "  Alvaro Ibanez"                                         .955
PRINT "  Fernando Marcos"                                       .597
PRINT:GOSUB Tecla:wINDOW CLOSE 3:RETURN                         .448
' Seleccion de reducciones                                      .658
Reducc:                                                         .401
MENU 2:maxrep,1                                                 . 62
MENU 2,Choice%,2                                                .802
maxrep=Choice%                                                  .768
COLOR 1,2                                                       .510
LOCATE 4,37                                                     .599
PRINT USING "#";maxrep                                          .505
RETURN                                                          .357
' Seleccion de filtros                                          .464
Filtros:                                                        .104
IF Choice%>1 THEN ActFilt                                       .981
IF Filtros%=1 THEN                                              .922
MENU 3,1,1                                                      . 44
FOR a=3 TO 8                                                    .806
MENU 3,a,0                                                      .517
NEXT                                                            . 61
Filtros%=0                                                      .219
ELSE                                                            .483
MENU 3,1,2                                                      . 51
FOR a=3 TO 8                                                    .806
IF FilF%(a)=0 THEN MENU 3,a,1 ELSE MENU 3,a,2                   .436
NEXT                                                            . 61
Filtros%=1                                                      .226
END IF                                                          .654
RETURN                                                          .357
actFilt:                                                        .668
FilF%(Choice%)=1-FilF%(Choice%)                                 .422
MENU 3,Choice%,FilF%(Choice%) + 1                               .819
IF FilF%(Choice%)=1 THEN                                        .200
ON Choice%-2 GOSUB Pares,Suma,Decenas,Term,Fi                   .986
   las,Colum
END IF                                                          .654
RETURN                                                          .357
' Filtro de Pares                                               .753
Pares:                                                          .964
WINDOW 3,"PARES",(20,30)-(216,136),0,2                          . 62
PRINT "Introduce el numero maximo "                             .994
PRINT "y minimo de pares por "                                  .482
PRINT "combinacion."                                            .704
PRINT "En blanco para anular."                                  .590
PRINT
PRINT "Minimo: ";:te$=STR$(MinPa)                               .208
x1=POS(0);y1=CSRLIN                                             .719
PRINT:PRINT                                                     .948
PRINT "Maximo: ";                                               .908
x2=POS(0):y2=CSRLIN                                             .292
RepEntry1:                                                      .290
LOCATE y1,x1                                                    .186
accept 1,1                                                      .144
IF te$="" THEN WINDOW CLOSE 3:MENU 3,3,1,:FilF                  .144
   %(3)=0:RETURN
MinPa=VAL(te$)                                                  . 11
IF MinPa<1 OR MinPa>6 THEN LOCATE y1,x1:GOTO                    . 54
   RepEntry1
te$=STR$(MaxPa)                                                 .503
RepEntry2:                                                      .339
LOCATE y2,x2                                                    .596
accept 1,1                                                      .144
IF te$="" THEN RepEntry1                                        .790
MaxPa=VAL(te$)                                                  .217
IF MaxPa6 THEN LOCATE y2,x2:G                   .367
   OTO RepEntry2
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Filtro Suma                                                   .332
Suma:                                                           .164
WINDOW 3,"SUMA",(20,30)-(216,136),0,2                           .515
PRINT "Introduce la suma maxima "                               .  2
PRINT "y minima de los numeros"                                 .791
PRINT "de una combinacion."                                     .171
PRINT "En blanco para anular."                                  .590
PRINT                                                           .463
PRINT "Minima: ";:te$=STR$(SMin)                                .169
x1=POS(0):y1=CSRLIN                                             .719
PRINT:PRINT                                                     .948
PRINT "Maxima: ";                                               .375
x2=POS(0):y2=CSRLIN                                             .292
RepEntry3:                                                      .388
LOCATE y1,x1                                                    .186
accept 4,1                                                      .174
IF te$="" THEN WINDOW CLOSE 3:FilF%(4)=0:MENU                   .338
   3,4,1:RETURN
SMin=VAL(te$)                                                   .688
IF SMin<28 OR SMin>1225 THEN LOCATE y1,x1:GOT                   .319
   O RepEntry3
te$=STR$(SMax)                                                  .  7
RepEntry4:                                                      .437
LOCATE y2,x2                                                    .596
accept 4,1                                                      .174
IF te$="" THEN RepEntry3                                        .804
SMax=VAL(te$)                                                   .366
IF SMax1225 THEN LOCATE y2,x2:G                   .955
   OTO RepEntry4
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Filtro de Decenas                                             . 82
Decenas:                                                        .812
WINDOW 3,"DECENAS",(20,30)-(216,136),0,2                        .878
PRINT "Introduce el maximo"                                     .859
PRINT "de numeros por decena."                                  .  3
PRINT "En blanco para anular."                                  .590
PRINT                                                           .463
PRINT "Maximo: ";:x=POS(0):y=CSRLIN                             .924
te$=STR$(MaxDec)                                                .189
RepEntry5:                                                      .486
LOCATE y,x                                                      .490
accept 1,1                                                      .144
IF te$="" THEN WINDOW CLOSE 3:FilF%(5)=0:MENU                   .748
   3,5,1:RETURN
IF VAL(te$)<1 OR VAL(te$)>6 THEN GOTO RepEntr                   .262
   y5
MaxDec=VAL(te$)                                                 .203
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Filtro de Terminaciones                                       .650
Term:                                                           .638
WINDOW 3,"TERMINACIONES",(20,30)-(216,136),0,                   .780
   2
PRINT "Introduce el maximo"                                     .859
PRINT "de numeros con la"                                       .344
PRINT "misma terminacion."                                      .895
PRINT "En blanco para anular."                                  .590
PRINT                                                           .463
PRINT "Numeros: ";:x=POS(0):y=CSRLIN                            . 54
te$=STR$(MaxTer)                                                .379
RepEntry6:                                                      .535
LOCATE y,x                                                      .490
accept 1,1                                                      .144
IF te$="" THEN WINDOW CLOSE 3:FilF%(6)=0:MENU                   .159
   3,6,1:RETURN
IF VAL(te$)<1 OR VAL(te$)>6 THEN GOTO RepEntr                   .269
   y6
MaxTer=VAL(te$)                                                 .801
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Filtro de Filas                                               .486
Filas:                                                          . 94
WINDOW 3,"FILAS",(20,30)-(216,136),0,2                          .101
PRINT "Introduce el maximo"                                     .859
PRINT "de numeros en la"                                        .943
PRINT "misma fila."                                             .274
PRINT "En blanco para anular."                                  .590
PRINT                                                           .463
PRINT "Numeros: ";:x=POS(0):y=CSRLIN                            . 54
te$=STR$(MaxFil)                                                .810
RepEntry7:                                                      .584
LOCATE y,x                                                      .490
accept 1,1                                                      .144
IF te$="" THEN WINDOW CLOSE 3:FilF%(7)=0:MENU                   .589
   3,7,1:RETURN
IF VAL(te$)<1 OR VAL(te$)>6 THEN GOTO RepEntr                   .269
   y6
MaxFil=VAL(te$)                                                 .149
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Filtro de COlumnas                                            .741
Colum:                                                          .309
WINDOW 3,"COLUMNAS",(20,30)-(216,136),0,2                       .719
PRINT "Introduce el maximo"                                     .859
PRINT "de numeros en la"                                        .943
PRINT "misma Columna."                                          .164
PRINT "En blanco para anular."                                  .590
PRINT                                                           .483
PRINT "Numeros: ";:x=POS(0):y=CSRLIN                            . 54
te$=STR$(MaxCol)                                                .660
RepEntry8:                                                      .633
LOCATE y,x                                                      .490
accept 1,1                                                      .144
IF te$="" THEN WINDOW CLOSE 3:FilF%(8)=0:MENU                   .979
   3,8,1:RETURN
IF VAL(te$)<1 OR VAL(te$)>6 THEN GOTO RepEntr                   .269
   y6
MaxCol=VAL(te$)                                                 .413
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Aqui puedes colocar tus propios filtros                       .705
' Generacion de apuestas                                        .863
Gen:                                                            .121
q1:                                                             .607
IF numero% < 7 OR numeros > 49 THEN BEEP:GOT                    .521
   O Panic
maxnum = numeros% - 2                                           .995
q2:                                                             .656
GOSUB OpenLibrary                                               .412
IF Er=1 THEN WINDOW CLOSE 3:WINDOW CLOSE 4:GO                   .977
   TO Panic
WINDOW 3,"Generando...",(3,30)-(288,200),0,2                    .186
WIDTH 37                                                        .804
pt1=0                                                           .215
FOR a=1 TO 49                                                   .116
IF Flag%(a)=1 THEN n(pt1)=a:pt1=pt1+1                           .242
NEXT                                                            . 61
PRINT "NUmeros elegidos : "                                     .500
FOR i = 0 TO numeros% - 1: PRINT USING "##,";                   .581
    n(1);: NEXT: PRINT
GOSUB Ok                                                        .506
CLS                                                             .313
' Convertir reduccion a numeros de usuario                      . 61
PRINT "Convirtiendo los numeros..."                             .984
FOR I = 1 TO num: FOR j = 0 TO 5                                .970
nu%(j, i) = n(nu%(j, i))                                        .950
NEXT j: NEXT i                                                  .961
PRINT "Ok."                                                     .660
IF Filtros% = 0 THEN GOTO GrabarApuestas                        .601
CLS                                                             .313
PRINT "REDUCCIONES"                                             . 39
PRINT                                                           .463
PRINT "Filtros:"                                                .484
IF Filtros%=0 THEN PRINT "Desactivados.":GOTO                   .992
    GoOn
IF FilF%(3) THEN                                                .903
PRINT "Minimo mumero de pares:"; MinPa                          .857
PRINT "Maximo numero de pares:"; MaxPa                          .807
END IF                                                          .654
IF FilF%(4) THEN                                                .271
PRINT "Suma Minima:           "; SMin                           .182
PRINT "Suma Maxima:           "; SMax                           .963
END IF                                                          .654
IF FilF%(5) THEN                                                .638
PRINT "Numeros por decena:    "; MaxDec                         . 12
END IF                                                          .654
IF FilF%(6) THEN                                                .  6
PRINT "Misma Terminacion:     "; MaxTer                         .103
END IF                                                          .654
IF FilF%(7) THEN                                                .373
PRINT "Numeros por Fila:      "; MaxFil                         .874
END IF                                                          .654
IF FilF%(8= THEN                                                .740
PRINT "Numeros por Columna:   "; MaxCol                         . 46
END IF                                                          .654
GoOn:                                                           .195
PRINT                                                           .463
PRINT "Filtrando..."                                            .891
PRINT "Combinaciones aceptadas: "                               .134
' Aqui comienzan los filtros para cada combin                   .256
   acion
FOR i = 1 TO num                                                .265
' Borrar todas las variables utilizadas para                    .643
   los calculos
numpa = 0: Suma = 0: totdec = 0: totter = 0:                    .395
   totool = 0: totfil = 0
FOR h = 0 TO 9: dec(h) = 0: ter(h) = 0: FIL(h                   .134
   ) = 0: col(h) = 0: NEXT
' Calculo de los filtros                                        .465
FOR j = 0 TO 5                                                  .774
numpa = numpa + (nu%(j, i) AND i)                               .679
Suma = Suma + nu%(j, i)                                         .530
d = INT(nu%(j, i) / 10): dec(d) = dec(d) + 1:                   .415
    IF dec(d) > totdec THEN totdec = dec(d)
t = nu%(j, i) - INT(nu%(j, i) / 10) * 10: ter                   .638
   (t) = ter(t) + 1: IF ter(t) > totter THEN
   totter = ter(t)
c = INT(nu%(j, i) / 7): col(c) = col(c) + 1:                    .434
   IF col(c) > totool THEN totool = col(c)
f = nu%(j, i) - INT(nu%(j, i) / 7) * 7: FIL(f                   .916
   ) = FIL(f) + 1: IF FIL(f) > totfil THEN to
   tfil = FIL(f)
' Aqui debes calcular tus propios filtros                       .158
NEXT j                                                          .304
' Paso final por los filtros                                    .640
IF FilF%(3)=1 AND (numpa < MinPa OR numpa > M                   .838
   axPa) THEN GOTO Eliminar
IF FilF%(4)=1 AND (Suma < SMin OR Suma > SMax                   . 22
   ) THEN GOTO Eliminar
IF FilF%(5)=1 AND (totdec > MaxDec) THEN GOTO                   .299
   Eliminar
IF FilF%(6)=1 AND (totter > MaxTer) THEN GOTO                   .962
   Eliminar
IF FilF%(7)=1 AND (totcol > MaxCol) THEN GOTO                   .901
   Eliminar
IF FilF%(8)=1 AND (totfil > MaxFil) THEN GOTO                   .  5
   Eliminar
' Aqui puedes chequear tu filtro                                .823
' Combinacion aceptada                                          .178
PRINT "*";                                                      . 10
GOTO Siguiente                                                  .359
Eliminar:                                                       .128
FOR q = 0 TO 5: nu%(q, i) = 0: NEXT                             .754
Siguiente: Next i                                               .926
PRINT                                                           .463
' Ahora se eliminan las no aceptadas                            .762
PRINT                                                           .463
PRINT "Comprimiendo..."                                         .896
PRINT                                                           .463
skip = 0: 1 = 1                                                 .714
bucle2: IF nu%(5, i + skip) = 0 THEN skip = s                   .462
   kip + 1: GOTO bucle3
FOR J = 0 TO 5: nu%(j, i) = nu%(j, i + skip):                   .951
   NEXT j: i = i + 1
bucle3: IF i + skip <= num THEN FOTO bucle2                     .671
num = num - skip                                                .217
' Fin de los filtros                                            .903
IF num = 0 THEN                                                 .179
PRINT "No hay apuestas tras el Filtrado"                        .420
PRINT "Prueba co otros filtros."                                .915
GOSUB Ok                                                        .506
GOTO EndOfProgram                                               .627
END IF                                                          .654
' Grabar el fichero de apuestas                                 .583
GrabarApuestas:                                                 . 83
PRINT "Nombre del fichero de usuario:"                          .541
PRINT;:x=POS(0):y=CSRLIN                                        .673
te$="USRRED"                                                    .293
accept 20,0:n$=te$                                              .764
IF n$ = "" THEN n$ = "USRRED"                                   .183
PRINT "Grabando..."                                             . 74
GOSUB SaveLotoFile                                              .257
GOSUB Ok                                                        .506
GOTO EndOfProgram                                               .627
' Escrutinio                                                    .352
Escrut:                                                         .340
WINDOW 3,"ESCRUTINIO",(20,30)-(216,136),0,2                     .615
WIDTH 25                                                        .741
PRINT "Teclea los seis"                                         .766
PRINT "numeros de la semana:"                                   .708
PRINT                                                           .463
PRINT "   1er. Numero: ";:x=POS(0):y=CSRLIN:P                   .382
   RINT
PRINT "   2O.  NUmero: "                                        .495
PRINT "   3er. Numero: "                                        .319
PRINT "   4O.  NUmero: "                                        .143
PRINT "   5o.  Numero: "                                        .966
PRINT "   6o.  Numero: "                                        .790
PRINT "COmplementario: "                                        .180
cp=1                                                            .726
WHILE cp<8                                                      .322
tsw=0:wint=0                                                    .383
WHILE wint=0 AND tsw=0                                          .760
te$=""                                                          .523
LOCATE y-1+cp,x                                                 .415
accept 2,1                                                      .487
IF te$="" THEN tsw=1                                            .763
wint=VAL(te$)                                                   .112
IF wint<1 OR wint>49 THEN wint=0                                . 13
WEND                                                            . 89
IF te%<>"" THEN                                                 .542
sw=0                                                            .577
FOR a=1 TO cp-1                                                 . 84
IF wint=Win(a) THEN sw=1                                        .419
NEXT                                                            . 61
IF sw=0 THEN                                                    .967
Win(cp)=wint                                                    .517
cp=cp+1                                                         .344
END IF                                                          .654
ELSE                                                            .483
cp=cp-1                                                         .442
IF cp=0 THEN WINDOW CLOSE 3:ERASE Win:RETURN                    .946
END IF                                                          .654
WEND                                                            . 89
GOSUB Ok                                                        .506
CLS                                                             .313
PRINT "Nombre del Fichero:"                                     .896
te$="USRRED":Nam$=""                                            .821
PRINT:x=POS(0):y=CSRLIN                                         .479
WHILE Nam$=""                                                   .489
LOCATE y,x                                                      .490
accept 22.0                                                     .563
Nam$=te$                                                        . 94
WEND                                                            . 89
Fi$=Path$+Nam$:n$=Fi$                                           .311
Exist Fi$                                                       .318
IF Ex%=0 THEN                                                   .917
CLS                                                             .313
PRINT "El fichero"                                              .560
PRINT n$                                                        .602
PRINT "no existe."                                              .593
PRINT                                                           .463
GOSUB Ok                                                        .506
WINDOW CLOSE 3                                                  .238
ERASE Win                                                       .  3
RETURN                                                          .357
END IF                                                          .854
GOSUB ReadLotoFile                                              .861
CLS                                                             .313
PRINT "Resultados por"                                          .866
PRINT "(P)antalla o"                                            .484
PRINT "(I)mpresora:"                                            .907
PRINT                                                           .463
te$="P":x=POS(0):y=CSRLIN                                       .175
WHILE Dev$<>"P" AND Dev$<>"I"                                   .195
LOCATE y,x                                                      .490
accept 1,0                                                      .137
Dev$=te$                                                        .748
WEND                                                            . 89
IF te$="P" THEN Dev$="SCRN:"                                    .900
IF te$="I" THEN Dev$="PRT:"                                     .448
OPEN Dev$ FOR OUTPUT A$ 2                                       .890
' Comprueba el fichero de apuestas con la com                   .539
   binacion ganadora
FOR i = 1 TO num: a = 0: c = 0                                  .933
FOR j = 0 TO 5                                                  .774
FOR k = 0 TO 5                                                  .781
IF nu%(j, i) = Win(k) THEN a = a + 1                            .950
IF nu%(j, i) = Win(6) THEN c = 1                                .626
NEXT k: NEXT j                                                  .969
IF a < 3 THEN PRINT "."; : GOTO siguiente2                      .104
PRINT#2, "Apuesta ("; i; ") = "; a;                             .608
IF a = 5 AND c = 1 THEN PRINT#2, "+ complemen                   . 74
   tario" ELSE PRINT#2," "
siguiente2: NBXT i                                              .345
PRINT#2," "                                                     .272
CLOSE 1,2                                                       .255
PRINT                                                           .463
GOSUB Ok                                                        .506
EndOfProgram:                                                   .778
Panic:                                                          .939
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Subrutinas                                                    .516
' Abre una libreria, llamada "xx-x" (con Nume                   .598
   ros% y Maxrep)
OpenLibrary:                                                    .120
n$ = RIGHT$("00" + MID$(STR$(numeros%), 2), 2                   .100
   ) + STR$(-maxrep)
Exist n$                                                        .202
IF Ex%=0 THEN                                                   .917
WINDOW 4,"ERROR",(20,30)-(210,80),0,2                           .265
PRINT "No existe esa libreria"                                  .978
PRINT "Quieres Generarla?"                                      .823
PRINT "(S/N): ";:x=POS(0):y=CSRLIN                              .330
te$="S":an$=""                                                  . 91
WHILE an$<>"S" AND an$<>"N"                                     .871
LOCATE y,x                                                      .490
accept 1,0                                                      .137
an$=te$                                                         .278
WEND                                                            . 89
IF an$="S" THEN Mp%=maxrep:Gen numeros%,Mp%                     .546
IF an$="N" THEN Er=1:WINDOW CLOSE 4:RETURN                      .179
END IF                                                          .654
n$ = RIGHT$("00" + MID$(STR$(numeros%), 2), 2                   .100
   ) + STR$(-maxrep)
GOSUB ReadLotoFile                                              .961
WINDOW CLOSE 4                                                  .245
RETURN                                                          .357
' Lee un fichero de datos de Loto (n$)                          .988
ReadLotoFile:                                                   .927
OPEN n$ FOR INPUT AS 1                                          .138
' Si se produce un error "File Not Found"                       . 10
' aqui, es por falta de memoria al generar                      .814
' la reduccion.                                                 .401
bucle1: INPUT #1, a$: IF a$ <> "*****" THEN G                   .395
   OTO bucle1
INPUT #1, num                                                   .979
FOR i = 1 TO num: FOR j = 0 TO 5: INPUT #1, n                   .594
   u%(j, i): NEXT: NEXT
CLOSE 1                                                         . 56
RETURN                                                          .357
' Graba un fichero de datos de Loto (n$)                        .689
' con "num" numeros en nu%(i,j)                                 .603
SaveLotoFile:                                                   .994
OPEN n$ FOR OUTPUT AS 1                                         .268
PRINT #1, "L O T O - Apuestas de usuario"                       .821
PRINT #1, "Resultantes de"; numeros%; "numero                   . 33
   s al"; maxrep
IF filters > 0 THEN PRINT #1, "Filtradas"                       .680
PRINT #1, "*****"                                               .306
PRINT #1, " "; num                                              .489
FOR i = 1 TO num: FOR j = 0 TO 5                                .970
PRINT #1, USING "##"; nu%(j, i); : IF j < 5 T                   .794
   HEN PRINT #1, ",";
NEXT j: PRINT #1, CHR$(13); CHR$(10); : NEXT                    . 97
   i
CLOSE 1: RETURN                                                 .272
' Factorial de N                                                .191
' Q es el numero de entrada, T es el total                      .879
Fact: t# = 1: FOR i = 1 TO q: t#= t# * i: NEX                   . 93
   T: RETURN
' Calcula A sobre B: A!/(B!*(B-A)!)                             .291
' A y B son las entradas, SOBRE el total                        .577
AsobreB:                                                        .554
q = a: GOSUB Fact: t1# = t#                                     . 79
q = b: GOSUB Fact: t2# = t#                                     .270
q = (a - b): GOSUB Fact: t3# = t#                               .225
sobre = t1# / (t2# * t3#): RETURN                               .221
' Esperar tecla o raton                                         .698
Ok:                                                             .778
WINDOW OUTPUT 3                                                 .928
GOSUB Tecla                                                     .398
RETURN                                                          .357
' Ver apuestas por pantalla                                     .756
SeeS:                                                           .276
WINDOW 3,"Apuestas",(20,30)-(216,136),0,2                       .416
PRINT "Volcado de apuestas."                                    .197
PRINT "Nombre de Fichero?"                                      .454
PRINT:x=POS(0):y=CSRLIN                                         .479
te$="USRRED":Nam$=""                                            .821
WHILE Nam$=""                                                   .489
LOCATE y,x                                                      .490
accept 20,0                                                     .876
Nam$=te$                                                        . 94
WEND                                                            . 89
Fi$=Path$+te$                                                   .401
aFi$=Fi$                                                        .370
Exist Fi$                                                       .318
IF Ex%=0 THEN                                                   .917
PRINT "El fichero":PRINT FIL$                                   .387
PRINT "No existe"                                               .599
GOSUB Ok:WINDOW CLOSE 3:RETURN                                  .617
END IF                                                          .654
CLS                                                             .313
CLOSE                                                           .533
OPEN aFi$ FOR INPUT AS 1                                        .396
con=0                                                           .432
a$=""                                                           .283
WHILE a$<>"*****":LINE INPUT#1,a$:WEND                          .267
INPUT#1,anum                                                    .625
CLS:PRINT anum"apuestas."                                       .417
Li=1                                                            . 45
WHILE NOT EOF(1)                                                .271
LINE INPUT#1,a$                                                 .806
PRINT Li;"  ";a$                                                . 12
con=con+1:Li=Li+1                                               .751
IF con=10 THEN                                                  .679
con=0                                                           .432
te$="S"                                                         .306
PRINT "Seguir? ";                                               . 68
accept 1,0                                                      .137
IF te$<>"S" THEN WINDOW CLOSE 3:RETURN                          .203
CLS                                                             .313
END IF                                                          .854
WEND                                                            . 89
CLOSE                                                           .533
GOSUB Ok                                                        .506
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Apuestas por impresora                                        . 32
SeeP:                                                           .129
WINDOW 3,"Apuestas",(20,30)-(216,136),0,2                       .416
PRINT "Coloca la impresora"                                     .363
PRINT "con papel y en línea."                                   .823
PRINT                                                           .463
PRINT "Continuar? :";                                           .918
te$="S"                                                         .306
accept 1,0                                                      .137
IF te$="N" THEN WINDOW CLOSE 3:RETURN                           .599
CLS                                                             .313
PRINT "Teclee el nombre"                                        .783
PRINT "del fichero:"                                            .717
PRINT                                                           .463
Nam$="":te$="USRRED":x=POS(0):y=CSRLIN                          .387
WHILE Nam$=""                                                   .489
LOCATE y,x                                                      .490
accept 22,0                                                     .563
Nam$=te$                                                        . 94
WEND                                                            . 89
Fi$=Path$+Nam$                                                  .939
Nam$=Fi$                                                        .496
Exist Fi$                                                       .318
IF Ex%=0 THEN                                                   .917
PRINT "El fichero no existe."                                   . 16
GOSUB oK                                                        .506
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
END IF                                                          .654
OPEN Nam$ FOR INPUT AS 1                                        .576
OPEN "PRT:" FOR OUTPUT AS 2                                     .102
WHILE a$<>"*****":LINE INPUT#1,a$                               .747
WEND                                                            . 89
INPUT#1,tnum                                                    .290
PRINT#2, "Fichero: "Nam$                                        .120
PRINT#2, "Contiene"tnum"apuestas."                              .285
Li=1                                                            . 45
WHILE NOT EOF(1)                                                .271
LINE INPUT#1,a$                                                 .806
PRINT#2,Li,a$                                                   .833
Li=Li+1                                                         .845
wEND                                                            . 89
CLOSE 1,2                                                       .255
GOSUB Ok                                                        .506
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Calculo de Probabilidades                                     .702
Prob:                                                           .218
IF numeros%<7 THEN BEEP:RETURN                                  .493
WINDOW 3,"PROBABILIDADES",(5,30)-(300,136),0,                   .387
   2
Er=0                                                            .304
GOSUB OpenLibrary                                               .412
IF Er=1 THEN WINDOW CLOSE 3:WINDOW CLOSE 4:RE                   .117
   TURN
PRINT "Apuestas totales:"; num                                  .597
a = numeros%: b = 6: GOSUB AsobreB                              .122
PRINT "Combinaciones   : "; sobre                               .620
PRINT                                                           .463
PRINT "Probabilidades:"                                         .464
FOR ch = maxrep TO 6: a = numeros%: b = 6 - c                   .657
   h: GOSUB AsobreB
PRINT "  "; 6 - ch + maxrep; ": 1 en";                          .251
PRINT USING " ####"; sobre;                                     .574
PRINT " ("; : PRINT USING "###.###"; 100 / so                   .368
   bre;
PRINT "%)"                                                      .461
NEXT                                                            . 61
PRINT "Total:"; num; "en 13983816 ";                            .920
PRINT "("; : PRINT USING "#.######"; num / 13                   .727
   9838.16#; : PRINT ; "%)"
PRINT                                                           .463
GOSUB Ok                                                        .506
WINDOW CLOSE 3                                                  .238
RETURN                                                          .357
' Fin del programa                                              .341
Quit:                                                           . 75
WINDOW CLOSE 3:WINDOW CLOSE 2:SCREEN CLOSE 2                    . 84
LIBRARY CLOSE:END                                               .786
' Espera una tecla                                              .427
Tecla:                                                          .796
PRINT "Pulsa una tecla."                                        .757
WHILE MOUSE(0):WEND                                             .406
WHILE (INKEY$="" AND MOUSE(0)=0):WEND                           . 97
RETURN                                                          .357
Numero de lineas: 925

Programa: Loto.GEN
     Generador para Programa LOTO                   .444
     Por F. Marcos 1989                             .928
OPEN "LOTO" FOR OUTPUT AS 1                         .595
PRINT "Creando Modulo de Codigo,Maquina."           .881
FOR a=1 TO 6304                                     .155
READ a$                                             .  8
PRINT#1,CHR$(VAL("&H;"+a$));                         .135
NEXT                                                . 61
CLOSE                                               .533
PRINT "Terminado."                                  .376
END                                                 .992
100 DATA 00,00,03,F3,00,00,00,00,00,00,00,03,00,00  .215
101 DATA 00,00,00,00,00,02,00,00,05,7C,00,00,3B,4C  . 85
102 DATA 00,00,00,01,00,00,03.E9,00,00,05,7C,4E,FA  . 51
103 DATA 05,6C,4E,55,00,00,48,7A,01,0A,4E,BA,09,DA  .106
104 DATA 58,4F,48,7A,01,16,4E,BA,09,D0,58,4F,48,7A  .585
105 DATA 01,26,4E,BA,09,C6,58,4F,48,7A,01,32,4E,BA  .523
106 DATA 09.BC.58.4F,0C,6D,00,03,00,08,47,1E,48,7A  .123
107 DATA 01,43,4E,BA,09,AA,58,4F,48,7A,01,5B,4E,BA  .206
108 DATA 09,A0,58,4F,3F,3C,09,1C,4E,BA,12,E2,54,4F  .235
109 DATA 20,6D,00,0A,22,68,00,04,10,11,48,80,39,40  .137
110 DATA 6C,E0,B0,7C,00,60,6F,08,04,6C,00,60,6C,E0  .884
111 DATA 60,06.04.6C.00.40.6C.E0,20,6D,00,0A,22,68  .613
112 DATA 00,08,10,11,48,80,39,40,6C,E2,B0,7C,00,60  .419
113 DATA 6F,08,04,6C,00,60,6C,E2,60,06,04,6C,00,40  .625
114 DATA 6C,E2,3F,2C,6C,E2,3F,2C,6C,E0,48,7A,01,21  .673
115 DATA 4E,BA,09,3C,50,4F,0C,6C,00,06,6C,E0,6D,18  .680
116 DATA 0C,6C,00,19,6C,E0,6E,10,0C,6C,00,01,6C,E2  .187
117 DATA 6D,08,0C,6C,00,06,6C,E2,6F,14,48,7A,00,FE  .667
118 DATA 4E,BA,09,12,58,4F,3F,3C,09,1C,4E,BA,12,54  .404
119 DATA 54,4F,39,6C,6C,E0,6C,C8,39,6C,6C,E2,6C,D2  .304
120 DATA 3F,2C,6C,D2,3F,2C,6C,C8,48,7A,00,EB,4E,BA  .  8
121 DATA 08,EA,50,4F,30,2C,6C,C8,55,40,39,40,6C,D0  .172
122 DATA 4E,BA,00,F4,4E,5D,4E,75,0A,4C,20,4F,20,54  .962
123 DATA 20,4F,2E,20,20,20,52,65,76,20,33,2E,32,39  .880
124 DATA 0A,00,50,72,6F,67,72,61,6D,61,20,64,65,20  .648
125 DATA 52,65,64,75,63,63,69,6F,6E,65,73,2E,0A,00  .191
126 DATA 0A,28,43,29,20,46,2E,20,4D,61,72,63,6F,73  . 79
127 DATA 20,31,39,38,39,2E,0A,00,2B,43,29,20,49,2E  .397
128 DATA 44,2E,47,2E,20,43,6F,6D,6D,75,6E,69,63,61  .292
129 DATA 74,69,6F,6E,73,20,31,39,38,39,2E,0A,0A,0A  . 53
130 DATA 00,4E,A3,6D,65,72,6F,20,69,6E,63,6F,72,72  .948
131 DATA 65,63,74,6F,20,64,65,20,70,61,72,61,6D,65  .690
132 DATA 74,72,6F,73,2E,0A,00,45,6D,70,6C,65,6F,3A  .842
133 DATA 20,20,43,48,45,43,4B,20,63,6F,64,5F,6E,75  .252
134 DATA 6D,65,72,6F,73,20,63,6F,64,5F,72,65,64,76  .714
135 DATA 63,63,69,6F,6E,0A,00,25,64,20,25,64,0A,00  .881
136 DATA 41,72,67,75,6D,65,6E,74,6F,20,69,6E,76,A0  .955
137 DATA 6C,69,64,6F,2E,0A,00,25,64,20,6E,75,6D,65  .761
138 DATA 72,6F,73,20,72,65,64,75,63,69,64,6F,73,20  .978
139 DATA 61,6C,20,25,64,2E,0A,00,4E,55,00,00,48,7A  .718
140 DATA 02,BA,4E,BA,07,DC,58,4F,42,6C,6C,BE,30,2C  .705
141 DATA 6C,BE,52,40,39,40,6C,C0,30,2C,6C,C0,52,40  .631
142 DATA 39,40,6C,C2,30,2C,6C,C2,52,40,39,40,6C,C4  .919
143 DATA 30,2C,6C,C4,52,40,39,40,6C,C6,30,2C,6C,C6  .876
144 DATA 52,40,39,40,6C,C8,42,6C,6C,CA,4A,6C,6C,CC  .175
145 DATA 67,00,00,DC,0C,6C,00,06,6C,D2,67,00,00,D2  .530
146 DATA 42,6C,6C,CE,42,67,4E,BA,02,BA,54,4F,B0,7C  .761
147 DATA 00,01,66,10,52,6C,6C,CE,30,2C,6C,CE,B0,6C  .798
148 DATA 6C,D2,57,00,01,78,7F,3C,00,01,4E,BA,02,9A  .861
149 DATA 54,4F,B0,7C,00,01,66,10,52,6C,6C,CE,30,2C  .867
150 DATA 6C,CE,B0,6C,6C,D2,67,00,01,42,3F,3C,00,02  .116
151 DATA 4E,BA,02,7A,54,4F,B0,7C,00,01,66,10,52,6C  .776
152 DATA 6C,CE,30,2C,6C,CE,B0,6C,6C,D2,67,00,01,0C  .924
153 DATA 3F,3C,00,03,4E,BA,02,5A,54,4F,B0,7C,00,01  .976
154 DATA 66,10,52,6C,6C,CE,30,2C,6C,CE,B0,6C,6C,D2  .812
155 DATA 67,00,00,D6,3F,3C,00,04,4E,BA,02,3A,54,4F  .842
156 DATA B0,7C,00,01,66,10,52,6C,6C,CE,30,2C,6C,CE  .214
157 DATA B0,6C,6C,D2,67,00,00,A4,3F,3C,00,05,4E,BA  .789
158 DATA 02,1A,54,4F,B0,7C,00,01,66,0E,52,6C,6C,CE  .244
159 DATA 30,2C,6C,CE,B0,6C,6C,D2,67,6E,52,6C,6C,CA  .657
160 DATA 30,2C,6C,CA,B0,6C,6C,CC,6D,00,FF,20,30,2C  .540
161 DATA 6C,CC,C1,FC,00,06,39,40,6C,DE,42,6C,6C,D4  .225
162 DATA 30,2C,6C,D4,48,C0,E3,80,41,EC,6C,BE,32,2C  .559
163 DATA 6C,DE,D2,6C,6C,D4,48,C1,E3,81,43,EC,82,5E  .515
164 DATA 33,B0,08,00,18,00,52,6C,6C,D4,0C,6C,00,06  .516
165 DATA 6C,D4,6D,D2,52,6C,6C,CC,0C,6C,13,88,6C,CC  .673
166 DATA 6D,14,48,7A,01,51,4E,BA,06,6C,58,4F,3F,3C  .204
167 DATA 09,1C,4E,BA,0F,AE,54,4F,30,2C,6C,D0,52,40  .677
168 DATA 32,2C,6C,C8,B2,40,6C,08,62,6C,6C,C8,60,00  .858
169 DATA FE,A8,30,2C,6C,C6,B0,6C,6C,D0,6C,08,52,6C  . 53
170 DATA 6C,C6,60,00,FE,8C,30,2C,6C,D0,53,40,32,2C  .940
171 DATA 6C,C4,B2,40,6C,08,52,6C,6C,C4,60,00,FE,6C  .442
172 DATA 30,2C,6C,D0,55,40,32,2C,6C,C2,B2,40,6C,08  .567
173 DATA 52,6C,6C,C2,60,00,FE,4C,30,2C,6C,D0,57,40  .996
174 DATA 32,2C,6C,C0,B2,40,6C,08,52,6C,6C,C0,60,00  .722
175 DATA FE,2C,30,2C,6C,D0,59,40,32,2C,6C,BE,B2,40  .899
176 DATA 6C,08,52,6C,6C,BE,60,00,FE,0C,3F,2C,6C,CC  ,848
177 DATA 48,7A,00,F0,4E,BA,05,D4,5C,4F,42,6C,6C,DE  .279
178 DATA 60,00,00,94,30,2C,6C,DE,C1,FC,00,06,5A,40  .617
179 DATA 48.C0,E3,80,41,EC,82,5E,3F,30,08,00,30,2C  .743
180 DATA 6C,DE,C1,FC,00,06,58,40,48,C0,E3,80,41,EC  .765
181 DATA 82,5E,3F,30,08,00,30,2C,6C,DE,C1,FC,00,06  .956
182 DATA 56,40,48,C0,E3,80,41,EC,82,5E,3F,30,08,00  .830
183 DATA 30,2C,6C,DE,C1,FC,00,06,54,40,48,C0,E3,80  .167
184 DATA 41,EC,82,5E,3F,30,08,00,30,2C,6C,DE,C1,FC  .149
185 DATA 00,06,52,40,48,C0,E3,80,41,EC,82,5E,3F,30  .656
186 DATA 08,00,30,2C,6C,DE,C1,FC,00,06,48,C0,E3,80  .495
187 DATA 41,EC,82,5E,3F,30,08,00,48,7A,00,60,4E,BA  .358
188 DATA 05,40,4F,EF,00,10,52,6C,6C,DE,30,2C,6C,DE  .695
189 DATA B0,6C,6C,CC,6D,00,FF,64,4E,5D,4E,75,2A,2A  .824
190 DATA 2A,2A,2A,0A,00,30,0A,4E,6F,20,68,61,79,20  .993
191 DATA 6D,65,6D,6F,72,69,61,20,73,75,66,69,63,69  .592
192 DATA 65,6E,74,65,20,70,61,72,61,20,63,6F,6D,70  .254
193 DATA 6C,65,74,61,72,20,72,65,64,75,63,63,69,6F  . 46
194 DATA 6E,2E,0A,00,25,64,0A,00,25,32,64,2C,25,32  .  5
195 DATA 64,2C,25,32,64,2C,25,32,64,2C,25,32,64,2C  .922
196 DATA 25,32,64,0A,00,00,4E,55,00,00,42,6C,6C,D8  .261
197 DATA 42,6C,6C,DE,30,2D,00,08,48,C0,E3,80,41,EC  .654
198 DATA 6C,BE,32,2C,6C,CA,C3,FC,00,06,D2,6C,6C,DE  .621
199 DATA 48,C1,E3,81,43,EC,82,5E,34,30,08,00,B4,71  .452
200 DATA 18,00,66,06,39,7C,00,01,6C,D8,52,6C,6C,DE  .321
201 DATA 0C,6C,00,06,6C,DE,6D,C4,30,2C,6C,D8,4E,5D  .877
202 DATA 4E,75,61,70,43,EC,82,5A,45,EC,82,5A,B5,C9  .296
203 DATA 66,0E,32,3C,3A,B5,6B,08,74,00,22,C2,51,C9  .972
204 DATA FF,FC,29,4F,6C,E4,2C,78,00,04,29,4E,6C,E8  .785
205 DATA 48,E7,80,80,08,2E,00,04,01,29,67,10,48,FA  .239
206 DATA 00,08,4E,AE,FF,E2,60,06,42,A7,F3,5F,4E,73  . 71
207 DATA 43,FA,00,20,4E,AE,FE,68,29,40,6C,EC,66,0C  .627
208 DATA 2E,3C,00,03,80,07,4E,AE,FF,94,60,04,4E,BA  .785
209 DATA 00,1A,50,4F,4E,75,64,6F,73,2E,6C,69,62,72  .465
210 DATA 61,72,79,00,49,F9,00,00,7F,FE,4E,75,4E,55  .961
211 DATA 00,00,2F,0A,48,79,00,01,00,00,30,2C,82,4E  .907
212 DATA C1,FC,00,06,2F,00,4E,BA,0F,56,29,40,6C,F0  . 56
213 DATA 50,4F,66,14,42,A7,48,79,00,01,00,00,4E,BA  . 74
214 DATA 0F,1A,50,4F,2E,6C,6C,E4,4E,75,20,6C,6C,F0  .647
215 DATA 42,68,00,04,20,6C,6C,F0,31,7C,00,01,00,10  .810
216 DATA 20,6C,6C,F0,31,7C,00,01,00,0A,20,6C,6C,E4  .745
217 DATA 20,2C,6C,E4,90,A8,00,04,50,80,29,40,6C,F4  .245
218 DATA 20,6C,6C,F4,20,BC,4D,41,4E,58,42,A7,4E,BA  .420
219 DATA 0F,0A,24,40,4A,AA,00,AC,58,4F,67,2E,2F,2D  . 69
220 DATA 00,0C,2F,2D,00,08,2F,0A,4E,BA,00,AE,39,7C  .659
221 DATA 00,01,6C,FB,20,6C,6C,F0,00,68,80,00,00,04  .203
222 DATA 20,6C,6C,F0,00,68,80,00,00,0A,4F,EF,00,0C  .987
223 DATA 60,42,48,6A,00,5C,4E,BA,0F,24,48,6A,00,5C  .771
224 DATA 4E,BA,0E,E6,29,40,6C,FA,20,6C,6C,FA,4A,A8  .179
225 DATA 00,24,50,4F,67,10,20,6C,6C,FA,22,68,00,24  .166
226 DATA 2F,11,4E,BA,0E,06,58,4F,2F,2C,6C,FA,2F,0A  .108
227 DATA 4E,BA,02,68,29,6C,6C,FA,6C,FE,50,4F,4E,BA  .148
228 DATA 0E,06,20,6C,6C,F0,20,80,4E,BA,0E,26,20,6C  .617
229 DATA 6C,F0,21,40,00,06,67,16,48,78,03,ED,48,7A  .527
230 DATA 00,2A,4E,BA,0E,02,20,6C,6C,F0,21,40,00,0C  .630
231 DATA 50,4F,2F,2C,6C,FE,3F,2C,6D,02,4E,BA,F8,F6  .288
232 DATA 42,67,4E,BA,0C,20,50,4F,24,5F,4E,5D,4E,75  .576
233 DATA 2A,00,4E,55,00,00,48,E7,0C,30,24,6D,00,10  .388
234 DATA 20,6D,00,08,4A,A8,00,AC,67,18,20,6D,00,08  .314
235 DATA 20,28,00,AC,E5,80,28,00,20,44,20,28,00,10  .692
236 DATA E5,80,26,40,60,04,26,6C,82,50,10,13,48,80  .446
237 DATA 48,C0,D0,AD,00,0C,54,80,39,40,6D,04,42,A7  .383
238 DATA 30,2C,6D,04,48,C0,2F,00,4E,BA,0D,E8,29,40  .429
239 DATA 6D,06,50,4F,66,08,4C,DF,0C,30,4E,5D,4E,75  .397
240 DATA 10,13,48,80,3A,00,3F,05,20,4B,52,88,2F,08  .520
241 DATA 2F,2C,6D,06,4E,BA,01,7E,30,05,48,C0,20,40  .866
242 DATA D1,EC,6D,06,43,FA,01,44,10,D9,66,FC,3F,2D  .859
243 DATA 00,0E,2F,0A,2F,2C,6D,06,4E,BA,01,3A,20,6C  .532
244 DATA 6D,06,42,30,50,00,39,7C,00,01,6D,02,30,05  .935
245 DATA 4B,C0,D0,AC,6D,06,26,40,52,8B,24,4B,4F,EF  .113
246 DATA 00,14,10,13,48,80,3A,00,B0,7C,00,20,67,18  .745
247 DATA BA,7C,00,09,67,12,BA,7C,00,0C,67,0C,BA,7C  .275
248 DATA 00,0D,67,06,BA,7C,00,0A,66,04,52,8B,60,D8  .196
249 DATA 0C,13,00,20,6D,7A,0C,13,00,22,66,2E,52,8B  . 95
250 DATA 20,4B,52.8B,10,10,48,80,3A,00,67,1E,20,4A  . 20
251 DATA 52,8A,10,85,BA,7C,00,22,66,10,0C,13,00,22  .948
252 DATA 66,04,52,8B,60,06,42,2A,FF,FF,60,02,60,D6  .508
253 DATA 60,38,20,4B,52,8B,10,10,48,80,3A,00,67,26  .699
254 DATA BA,7C,00,20,67,20,BA,7C,00,09,67,1A,BA,7C  .305
255 DATA 00,0C,67,14,BA,7C,00,0D,67,0E,BA,7C,00,0A  .503
256 DATA 67,08,20,4A,52,8A,10,85,60,CE,20,4A,52,BA  .645
257 DATA 42,10,4A,45,66,02,53,8B,52,6C,6D,02,60,00  .147
258 DATA FF,5A,42,13,42,A7,30,2C,6D,02,52,40,48,C0  . 64
259 DATA E5,80,2F,00,4E,BA,0C,C6,29,40,6C,FE,50,4F  .988
260 DATA 66,08,42,6C,6D,02,60,00,FE,D8,7A,00,26,6C  . 32
261 DATA 6D,06,60,24,30,05,48,C0,E5,80,20,6C,6C,FE  .218
262 DATA 21,8B,08,00,20,4B,20,08,4A,18,66,FC,91,C0  . 40
263 DATA 53,88,30,08,52,40,48,C0,D7,C0,52,45,BA,6C  .822
264 DATA 6D,02,6D,D6,30,05,48,C0,E5,80,20,6C,6C,FE  .203
265 DATA 42,B0,08,00,60,00,FE,94,20,00,30,3C,7F,FF  .780
266 DATA 60,04,30,2F,00,0C,20,6F,00,04,4A,18,66,FC  .280
267 DATA 53,48,22,6F,00,08,53,40,10,D9,57,C8,FF,FC  . 49
268 DATA 67,02,42,10,20,2F,00,04,4E,75,4C,EF,03,00  . 54
269 DATA 00,04,20,08,32,2F,00,0C,60,02,10,09,57,C9  .889
270 DATA FF,FC,67,06,52,41,60,02,42,18,51,C9,FF,FC  .528
271 DATA 4E,75,4E,55,00,00,48,E7,0E,30,24,6D,00,08  .696
272 DATA 42,A7,48,7A,00,8E,4E,BA,0C,4C,29,40,6D,0A  .419
273 DATA 50,4F,66,08,4C,DF,0C,70,4E,5D,4E,75,20,6D  .986
274 DATA 00,0C,22,68,00,24,2F,29,00,04,4E,BA,0C,7C  .806
275 DATA 28,00,58,4F,67,52,48,7A,00,6D,20,44,2F,28  .345
276 DATA 00,36,4E,BA,0C,4E,26,40,4A,80,50,4F,67,34  .337
277 DATA 48,78,03,ED,2F,0B,4E,BA,0B,6C,2C,00,50,4F  .674
278 DATA 67,24,20,06,E5,80,2A,00,20,45,25,68,00,08  .683
279 DATA 00,A4,25,46,00,9C,48,78,03,ED,48,7A,00,38  .190
280 DATA 4E,BA,0B,48,25,40,00,A0,50,4F,2F,04,4E,BA  .403
281 DATA 0C,1A,58,4F,2F,2C,6D,0A,4E,BA,0B,7E,42,AC  .974
282 DATA 6D,0A,58,4F,60,80,69,63,6F,6E,2E,6C,69,62  .729
283 DATA 72,61,72,79,00,57,49,4E,44,4F,57,00,2A,00  .190
284 DATA 4E,55,00,00,48,6D,00,0C,2F,2D,00,08,48,7A  .175
285 DATA 04,60,4E,BA,00,98,4F,EF,00,0C,4E,5D,4E,75  .835
286 DATA 4E,55,00,00,48,E7,08,20,24,6D,00,0E,0C,6D  .424
287 DATA 00,04,00,12,66,08,20,6D,00,08,28,10,60,1C  .225
288 DATA 4A,6D,00,0C,6F,0C,20,6D,00,08,70,00,30,10  .328
289 DATA 28,00,60,0A,20,6D,00,08,30,10,48,C0,28,00  .436
290 DATA 42,6D,00,12,4A,6D,00,0C,6C,10,44,6D,00,0C  .890
291 DATA 4A,84,6C,08,44,84,3B,7C,00,01,00,12,32,2D  .386
292 DATA 00,0C,48,C1,20,04,4E,BA,03,90,41,EC,80,02  .875
293 DATA 53,8A,14,B0,00,00,32,2D,00,0C,48,C1,20,04  .208
294 DATA 4E,BA,03,86,28,00,66,DA,4A,6D,00,12,67,06  .661
295 DATA 53,8A,14,BC,00,2D,20,0A,4C,DF,04,10,4E,5D  .849
296 DATA 4E,75,4E,55,FF,22,48,E7,08,30,24,60,00,08  .555
297 DATA 26,6D,00,0C,42,6D,FF,FA,2B,6D,00,10,FF,FC  .435
298 DATA 20,4B,52,8B,10,10,48,80,38,00,67,00,02,EE  .808
299 DATA B8,7C,00,25,66,00,02,CC,42,2D,FF,30,3B,7C  .520
300 DATA 00,01,FF,F8,3B,7C,00,20,FF,F6,3B,7C,27,10  .667
301 DATA FF,F4,20,4B,52,8B,10,10,48,80,38,00,B0,7C  .115
302 DATA 00,2D,66,0E,42,6D,FF,F8,20,4B,62,8B,10,10  .492
303 DATA 48,80,38,00,B8,7C,00,30,66,10,3B,7C,00,30  .848
304 DATA FF,F6,20,4B,52,8B,10,10,48,80,38,00,B8,7C  .386
305 DATA 00,2A,66,18,20,6D,FF,FC,54,AD,FF,FC,3B,50  .195
306 DATA FF,F2,20,4B,52,8B,10,10,48,80,38,00,60,32  .616
307 DATA 42,6D,FF,F2,60,1C,30,2D,FF,F2,C1,FC,00,0A  .607
308 DATA D0,44,90,7C,00,30,3B,40,FF,F2,20,4B,52,8B  . 20
309 DATA 10,10,48,80,38,00,30,04,52,40,41,EC,80,14  .547
310 DATA 08,30,00,02,00,00,66,D4,B8,7C,00,2E,66,5A  .525
311 DATA 20,4B,52,8B,10,10,48,80,38,00,B0,7C,00,2A  .755
312 DATA 66,18,20,6D,FF,FC,54,AD,FF,FC,3B,50,FF,F4  .214
313 DATA 20,4B,52,8B,10,10,48,80,38,00,60,32,42,6D  .641
314 DATA FF,F4,60,1C,30,2D,FF,F4,C1,FC,00,0A,D0,44  .830
315 DATA 90,7C,00,30,3B,40,FF,F4,20,4B,52,8B,10,10  .489
316 DATA 48,80,38,00,30,04,52,40,41,EC,80,14,08,30  .521
317 DATA 00,02,00,00,66,D4,3B,7C,00,02,FF,F0,B8,7C  .738
318 DATA 00,6C,66,12,20,4B,52,8B,10,10,48,80,38,00  .526
319 DATA 3B,7C,00,04,FF,F0,60,10,B8,7C,00,68,66,0A  .949
320 DATA 20,4B,52,8B,10,10,48,80,38,00,30,04,48,C0  .805
321 DATA 60,7A,3B,7C,00,08,FF,EE,60,16,3B,7C,00,0A  .800
322 DATA FF,EE,60,0E,3B,7C,00,10,FF,EE,60,06,3B,7C  .334
323 DATA FF,F6,FF,EE,3F,2D,FF,F0,48,6D,FF,30,3F,2D  .348
324 DATA FF,EE,2F,2D,FF,FC,4E,BA,FD,E4,2B,40,FF,EA  .672
325 DATA 30,2D,FF,F0,48,C0,D1,AD,FF,FC,4F,EF,00,0C  .318
326 DATA 60,5C,20,6D,FF,FC,58,AD,FF,FC,22,50,2B,49  .358
327 DATA FF,EA,20,09,4A,19,66,FC,93,C0,53,89,3B,49  .261
328 DATA FF,F0,60,4A,20,6D,FF,FC,54,AD,FF,FC,38,10  .560
329 DATA 41,ED,FF,2F,2B,48,FF,EA,10,84,60,28,90,BC  .449
330 DATA 00,00,00,63,67,E2,53,80,67,92,90,BC,00,00  .422
331 DATA 00,0B,67,00,FF,72,59,80,67,B2,55,80,67,00  .372
332 DATA FF,70,57,80,67,00,FF,72,60,CC,41,ED,FF,30  .729
333 DATA 91,ED,FF,EA,3B,48,FF,F0,30,2D,FF,F0,B0,6D  .445
334 DATA FF,F4,6F,06,3B,6D,FF,F4,FF,F0,4A,6D,FF,F8  .109
335 DATA 67,68,20,6D,FF,EA,0C,10,00,2D,67,0A,20,6D  .104
336 DATA FF,EA,0C,10,00,2B,66,2E,0C,6D,00,30,FF,F6  .736
337 DATA 66,26,53,6D,FF,F2,20,6D,FF,EA,52,AD,FF,EA  .323
338 DATA 10,10,48,80,3F,00,4E,92,B0,7C,FF,FF,54,4F  .186
339 DATA 66,0A,70,FF,4C,DF,0C,10,4E,5D,4E,75,60,16  . 67
340 DATA 3F,2D,FF,F6,4E,92,B0,7C,FF,FF,54,4F,66,04  .939
341 DATA 70,FF,60,E4,52,6D,FF,FA,30,2D,FF,F2,53,6D  .594
342 DATA FF,F2,B0,6D,FF,F0,6E,DC,42,6D,FF,EE,60,20  .376
343 DATA 20,6D,FF,EA,52,AD,FF,EA,10,10,48,80,3F,00  .902
344 DATA 4E,92,B0,7C,FF,FF,54,4F,66,04,70,FF,60,B0  .299
345 DATA 52,6D,FF,EE,20,6D,FF,EA,4A,10,67,0A,30,2D  .120
346 DATA FF,EE,B0,6D,FF,F4,6D,CE,30,2D,FF,EE,D1,6D  .536
347 DATA FF,FA,4A,6D,FF,F8,66,28,60,18,3F,3C,00,20  .919
348 DATA 4E,92,B0,7C,FF,FF,54,4F,66,06,70,FF,60,00  .596
349 DATA FF,78,52,6D,FF,FA,30,2D,FF,F2,53,6D,FF,F2  .515
350 DATA B0,6D,FF,F0,6E,DA,60,16,3F,04,4E,92,B0,7C  .475
351 DATA FF,FF,54,4F,66,06,70,FF,60,00,FF,52,52,6D  .570
352 DATA FF,FA,60,00,FD,08,30,2D,FF,FA,60,00,FF,42  .664
353 DATA 48,E7,48,00,42,84,4A,80,6A,04,44,80,52,44  .231
354 DATA 4A,81,6A,06,44,81,0A,44,00,01,61,3E,4A,44  .120
355 DATA 67,02,44,80,4C,DF,00,12,4A,80,4E,75,48,E7  .995
356 DATA 48,00,42,84,4A,80,6A,04,44,80,52,44,4A,81  .779
357 DATA 6A,02,44,81,61,1A,20,01,60,D8,2F,01,61,12  .244
358 DATA 20,01,22,1F,4A,80,4E,75,2F,01,61,06,22,1F  .144
359 DATA 4A,80,4E,75,48,E7,30,00,48,41,4A,41,66,20  .414
360 DATA 48,41,36,01,34,00,42,40,48,40,80,C3,22,00  .595
361 DATA 48,40,32,02,82,C3,30,01,42,41,48,41,4C,DF  .630
362 DATA 00,0C,4E,75,48,41,26,01,22,00,42,41,48,41  .797
363 DATA 48,40,42,40,74,0F,D0,80,D3,81,B6,81,62,04  .302
364 DATA 92,83,52,40,51,CA,FF,F2,4C,DF,00,0C,4E,75  .832
365 DATA 4E,55,00,00,48,6C,80,AC,3F,2D,00,08,4E,BA  .947
366 DATA 00,08,5C,4F,4E,5D,4E,75,4E,55,00,00,2F,04  .250
367 DATA 38,2D,00,08,2F,2D,00,0A,3F,04,4E,BA,00,30  .608
368 DATA B8,7C,00,0A,5C,4F,66,24,20,6D,00,0A,10,2B  .495
369 DATA 00,0C,48,80,08,00,00,07,67,14,3F,3C,FF,FF  .555
370 DATA 2F,2D,00,0A,4E,BA,00,F3,5C,4F,28,1F,4E,5D  .718
371 DATA 4E.75,60,F8,4E,55,00,00,2F,0A,24,6D,00,0A  .560
372 DATA 20,52,B1,EA,00,04,65,18,30,2D,00,08,C0,7C  .588
373 DATA 00,FF,3F,00,2F,0A,4E,BA,00,C8,5C,4F,24,5F  .761
374 DATA 4E,5D,4E,75,20,52,52,92,10,2D,00,09,10,80  .340
375 DATA 48,80,C0,7C,00,FF,60,E8,4E,55,00,00,2F,0A  .535
376 DATA 41.EC,80,96,24,48,20,4A,D5,FC,00,00,00,16  .939
377 DATA 2F,08,61,10,5B,4F,41,EC,82,4E,B5,CB,65,EA  .182
378 DATA 24,5F,4E,5D,4E,75,4E,55,00,00,4B,E7,08,20  .124
379 DATA 24,6D,00,08,78,00,20,0A,66,0A,70,FF,4C,DF  .913
380 DATA 04,10,4E,5D,4E,75,4A,2A,00,0C,67,50,08,2A  .264
381 DATA 00,02,00,0C,67,0C,3F,3C,FF,FF,2F,0A,61,52  .282
382 DATA 38,00,5C,4F,10,2A,00,0D,48,80,3F,00,4E,BA  .408
383 DATA 05,1C,88,40,08,2A,00,01,00,0C,54,4F,67,0A  .231
384 DATA 2F,2A,00,08,4E,BA,02,2E,58,4F,08,2A,00,05  .267
385 DATA 00,0C,67,12,2F,2A,00,12,4E,BA,02,C0,2F,2A  . 38
386 DATA 00,12,4E,BA,02,14,50,4F,42,92,42,AA,00,04  .329
387 DATA 42,AA,00,08,42,2A,00,0C,30,04,60,90,4E,55  .782
388 DATA FF,FE,48,E7,08,20,24,6D,00,0B,41,FA,FF,46  .255
389 DATA 29,48,6D,0E,08,2A,00,04,00,0C,67,0A,70,FF  .146
390 DATA 4C,DF,04,10,4E,5D,4E,75,08,2A,00,02,00,0C  .349
391 DATA 67,30,20,52,91,EA,00,08,38,08,3F,04,2F,2A  .425
392 DATA 00.08,10,2A,00,0D,48,80,3F,00,4E,BA,02,80  .909
393 DATA B0,44,50,4F,67,10,08,EA,00,04,00,0C,42,92  .508
394 DATA 42,AA,00,04,70,FF,60,C0,0C,6D,FF,FF,00,0C  .885
395 DATA 66,10,08,AA,00,02,00,0C,42,92,42,AA,00,04  .196
396 DATA 70,00,60,A8,4A,AA,00,08,66,08,2F,0A,E3,BA  .903
397 DATA 00,9A,58,4F,0C,6A,00,01,00,10,66,2A,1B,6D  .768
398 DATA 00,0D,FF,FF,3F,3C,00,01,48,6D,FF,FF,10,2A  .667
399 DATA 00,0D,48,80,3F,00,4E,BA,02,22,B0,7C,00,01  .131
400 DATA 50,4F,66,A0,30,2D,00,0C,60,00,FF,6A,24,AA  .578
401 DATA 00,0B,30,2A,00,10,48,C0,D0,AA,00,08,25,40  .887
402 DATA 00,04,08,EA,00,02,00,0C,20,52,52,92,10,2D  . 97
403 DATA 00,0D,10,80,48,80,C0,7C,00,FF,60,00,FF,3E  . 21
404 DATA 4E,55,00,00,2F,0A,41,EC,80,96,24,48,4A,2A  . 57
405 DATA 00,0C,67,18,D5,FC,00,00,00,16,41,EC,82,4E  .791
406 DATA B5,C8,65,08,70,00,24,5F,4E,5D,4E,75,60,E2  .895
407 DATA 42,92,42,AA,00,04,42,AA,00,08,20,0A,60,EA  .180
408 DATA 4E,55,FF,FC,2F,0A,24,6D,00,08,3F,3C,04,00  .417
409 DATA 4E,BA,00,C0,2B,40,FF,FC,54,4F,66,18,35,7C  .690
410 DATA 00,01,00,10,20,4A,D1,FC,00,00,00,0E,25,48  .735
411 DATA 00,08,24,5F,4E,5D,4E,75,35,7C,04,00,00,10  .311
412 DATA 08,EA,00,01,00,0C,25,6D,FF,FC,00,08,10,2A  .522
413 DATA 00,0D,48,80,3F,00,4E,BA,00,E2,4A,40,54,4F  .399
414 DATA 67.06.00,2A,00,80,00,0C,60,CE,4E,55,00,00  .536
415 DATA 48,E7,00,30,24,6C,82,5A,60,14,26,52,20,2A  .103
416 DATA 00,04,50,80,2F,00,2F,0A,4E,BA,04,E3,50,4F  .168
417 DATA 24,4B,20,0A,66,E8,42,AC,82,5A,4C,DF,0C,00  .678
418 DATA 4E,5D,4E,75,4E,55,00,00,2F,0A,41,FA,FF,C6  .352
419 DATA 29,48,6D,12,42,A7,20,2D,00,08,50,80,2F,00  .531
420 DATA 4E,BA,03,FC,24,40,4A,80,50,4F,66,08,70,00  .642
421 DATA 24,5F,4E,5D,4E.75,24,AC,82,5A,25,6D,00,08  .806
422 DATA 00,04,29,4A,82,5A,20,0A,50,80,60,E6,4E,55  .545
423 DATA 00,00,70,00,30,2D,00,08,2F,00,61,B2,58,4F  .925
424 DATA 4E,5D,5E,75,4E,55,00,00,4B,E7,00,30,97,CB  .663
425 DATA 24,6C,82,5A,60,0E,20,6D,00,08,51,88,B1,CA  . 10
426 DATA 67,12,26,4A,24,52,20,0A,66,EE,70,FF,4C,DF  .331
427 DATA 0C,00,4E,5D,4E,75,20,0B,67,04,26,92,60,04  .770
428 DATA 29,52,82,5A,20,2A,00,04,50,80,2F,00,2F,0A  .380
429 DATA 4E,BA,03,A0,70,00,50,4F,60,D8,4E,55,00,00  .904
430 DATA 2F,0A,30,2D,00,08,C1,FC,00,06,24,40,D5,EC  .127
431 DATA 6C,F0,4A,6D,00,08,6D,0E,30,2D,00,08,B0,6C  .653
432 DATA 82,4E,6C,04,4A,92,66,0E,39,7C,00,02,6D,16  .802
433 DATA 70,FF,24,5F,4E,6D,4E,75,30,2D,00,08,C1,FC  .326
434 DATA 00,06,20,6C,6C,F0,2F,30,08,00,4E,BA,02,C6  .792
435 DATA 4A,80,59,4F,67,04,70,01,60,02,70,00,60,D8  .733
436 DATA 4E,55,00,00,2F,2F,00,08,4E,BA,02,90,4A,80  .655
437 DATA 58,4F,66,0E,4E,BA,02,9A,39,40,6D,16,70,FF  .334
438 DATA 4E,5D,4E,75,70,00,60,F8,4E,55,00,00,48,E7  .202
439 DATA 0C,20,38,2D,00,08,4E,BA,00,70,30,04,C1,FC  .939
440 DATA 00,06,24,40,D5,EC,6C,FC,4A,44,6D,0A,B8,6C  .  1
441 DATA 82,4E,6C,04,4A,92,66,10,39,7C,00,02,6D,16  .764
442 DATA 70,FF,4C,DF,04,30,4E,5D,4E,75,30,2A,00,04  .309
443 DATA C0,7C,00,03,66,0A,39,7C,00,05,6D,16,70,FF  .518
444 DATA 60,E4.70,00,30,2D,00,0E,2F,00,2F,2D,00,0A  .  9
445 DATA 2F,12,4E,BA,02,66,2A,00,B0,BC,FF,FF,FF,FF  .808
446 DATA 4F,EF,00,0C,66,0C,4E,BA,02,1A,39,40,6D,16  .940
447 DATA 70,FF,60,B8,20,05,60,B4,4E,55,FF,FC,48,78  .286
448 DATA 10,00,42,A7,4E,BA,02,CA,2B,40,FF,FC,08,00  .982
449 DATA 00,0C,50,5F,67,12,4A,6C,6C,F8,66,08,20,2D  .165
450 DATA FF,FC,4E,5D,4E,75,4E,BA,00,06,70,00,60,F4  .328
451 DATA 4E,55,00,00,48,78,00,04,48,7A,00,1C,4E,BA  .945
452 DATA 01,F0,2F,00,4E,BA,02,02,3D,3C,00,01,4E,BA  .326
453 DATA 00,0E,4F,EF,00,0E,4E,5D,4E,75,5E,43,0A,00  .176
454 DATA 4E,55,00,00,4A,AC,6D,0E,67,06,20,6C,6D,0E  .842
455 DATA 4E,90,3F,2D,00,08,4E,BA,00,08,54,4F,4E,5D  .331
456 DATA 4E,75,4E,55,FF,FC,2F,04,30,2D,00,07,48,C0  .669
457 DATA 2B,40,FF,FC,4A,AC,6C,F0,67,28,78,00,60,0A  .155
458 DATA 3F,04,4E,BA,00,FE,54,4F,52,44,B8,6C,82,4E  .936
459 DATA 6D,F0,30,2C,82,4E,C1,FC,00,06,2F,00,2F,2C  .474
460 DATA 6C,F0,4E,BA,01,EC,50,4F,4A,AC,6D,12,67,06  .153
461 DATA 20,6C,6D,12,4E,90,4A,AC,82,54,67,0A,2F,2C  .384
462 DATA 82,54,4E,BA,01,68,58,4F,4A,AC,6D,18,67,08  .654
463 DATA 2D,6C,6D,18,20,AC,6D,1C,4A,AC,6D,20,67,0A  .154
464 DATA 2F,2C,6D,20,4E,BA,01,84,58,4F,4A,AC,6D,24  .936
465 DATA 67,0A,2F,2C,6D,24,4E,BA,01,74,58,4F,4A,AC  . 62
466 DATA 6D,28,67,0A,2F,2C,6D,28,4E,BA,01,64,58,4F  .483
467 DATA 4A,AC,6D,2C,67,0A,2F,2C,6D,2C,4E,BA,01,54  .166
468 DATA 58,4F,2C,78,00,04,08,2E,00,04,01,29,67,14  .984
469 DATA 2F,0D,4B,FA,00,0A,4E,AE,FF,E2,2A,5F,60,06  .101
470 DATA 42,A7,F3,5F,4E,73,4A,AC,6C,FA,66,30,4A,AC  .756
471 DATA 6D,06,67,28,30,2C,6D,04,48,C0,2F,00,2F,2C  .437
472 DATA 6D,06,4E,BA,01,44,30,2C,6D,02,52,40,48,C0  .448
473 DATA E5,80,2F,00,2F,2C,6C,FE,4E,BA,01,30,4F,EF  .909
474 DATA 00,10,60,0E,4E,BA,01,1E,2F,3C,6C,FA,4E,BA  .325
475 DATA 01,4A,58,4F,20,20,FF,FC,2E,6C,6C,E4,4E,75  .684
476 DATA 28,1F,4E,5D,4E,75,4E,55,00,00,4B,E7,0E,20  .922
477 DATA 38,2D,00,08,30,04,C1,FC,00,06,24,40,D5,EC  .913
478 DATA 6C,F0,4A,44,6D,0A,B8,6C,82,4E,6C,04,4A,92  .588
479 DATA 66,10,39,7C,00,02,6D,16,70,FF,4C,DF,04,70  .563
480 DATA 4E,5D,4E,75,08,2A,00,07,00,04,66,08,2F,12  .280
481 DATA 4E,BA,00,0A,58,4F,42,92,70,00,60,E2,22,2F  .312
482 DATA 00,04,2C,6C,6C,EC,4E,EE,FF,DC,22,2F,00,04  .338
483 DATA 2C,6C,6C,EC,4E,EE,FF,82,22,2F,00,04,2C,6C  .595
484 DATA 6C,EC,4E,EE,FF,B8,2C,6C,6C,EC,4E,EE,FF,CA  .977
485 DATA 2C,6C,6C,EC,4E,EE,FF,7C,22,2F,00,04,2C,6C  .352
486 DATA 6C,EC,4E,EE,FF,28,4C,EF,00,06,00,04,2C,6C  . 68
487 DATA 6C,EC,4E,EE,FF,E2,2C,6C,6C,EC,4E,EE,FF,C4  .427
488 DATA 4E,FA,00,02,22,2F,00,04,2C,6C,4C,EC,4E,EE  .344
489 DATA FF,A6,4C,EF,00,0E,00,04,2C,6C,6C,EC,4E,EE  .609
490 DATA FF,D0,48,E7,01,04,4C,EF,20,80,00,0C,2C,6C  .182
491 DATA 6C,E8,4E,AE,FF,94,4C,DF,20,80,4E,75,4E,FA  .115
492 DATA 00,02,22,6F,00,04,2C,6C,6C,E8,4E,EE,FE,62  .286
493 DATA 4C,EF,00,03,00,04,2C,6C,6C,E8,4E,EE,FF,3A  .635
494 DATA 22,6F,00,04,2C,6C,6C,E8,4E,EE,FE,DA,2C,6C  .418
495 DATA 6C,E8,4E,EE,FF,8C,22,6F,00,04,20,2F,00,08  . 72
496 DATA 2C,6C,6C,E8,4E,EE,FF,2E,20,6F,00,04,2C,6C  .990
497 DATA 6C,E8,4E,EE,FE,8C,2C,6C,6C,E8,22,6F,00,04  .755
498 DATA 20,2F,00,08,4E,EE,FD,D8,22,6F,00,04,2C,6C  .847
499 DATA 6C,E8,4E,EE,FE,86,4C,EF,00,03,00,04,2C,6C  .901
500 DATA 6C,E8,4E,EE,FE,CE,20,6F,00,04,2C,6C,6C,E8  .283
501 DATA 4E,EE,FE,80,4C,EF,03,00,00,04,2C,6C,6D,0A  .148
502 DATA 4E,EE,FF,A0,20,6F,00,04,2C,AC,6D,0A,4E,EE  .256
503 DATA FF,A6,20,6F,00,04,2C,6C,6D,0A,4E,EE,FF,B2  .638
504 DATA 00,00,03,EC,00,00,00,01,00,00,00,01,00,00  .786
505 DATA 05,E2,00,00,00,00,00,00,03,F2,00,00,03,EA  .142
506 DATA 00,00,00,96,30,31,32,33,34,35,36,37,38,39  .599
507 DATA 61,62,63,64,65,66,00,00,00,20,20,20,20,20  .715
508 DATA 20,20,20,20,30,30,30,30,30,20,20,20,20,20  . 85
509 DATA 20,20,20,20,20,20,20,20,20,20,20,20,20,90  .706
510 DATA 40,40,40,40,40,40,40,40,40,40,40,40,40,40  .977
511 DATA 40,0C,0C,0C,0C,0C,0C,0C,0C,0C,0C,40,40,40  .258
512 DATA 40,40,40,40,09,09,09,09,09,09,01,01,01,01  .919
513 DATA 01,01,01,01,01,01,01,01,01,01,01,01,01,01  .926
514 DATA 01,01,40,40,40,40,40,40,0A,0A,0A,0A,0A,0A  .159
515 DATA 02,02,02,02,02,02,02,02,02,02,02,02,02,02  .135
516 DATA 02,02,02,02,02,02,40,40,40,40,20,00,00,00  .717
517 DATA 00,00,00,00,00,00,00,00,00,00,01,00,00,00  .785
518 DATA 00,01,00,00,00,00,00,00,00,00,00,00,00,00  .129
519 DATA 00,00,00,00,01,01,00,00,00,01,00,00,00,00  .243
520 DATA 00,00,00,00,00,00,00,00,00,00,00,00,01,02  .196
521 DATA 00,00,00,01,00,00,00,00,00,00,00,00,00,00  .525
522 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .465
523 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .808
524 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .152
526 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .838
527 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .182
528 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .525
529 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .868
530 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .182
531 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .525
532 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .868
533 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .212
534 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .555
535 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .898
536 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .242
537 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .585
538 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .928
539 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .272
540 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .585
541 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .928
542 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .272
543 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .615
544 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .958
545 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .302
546 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .645
547 DATA 00,00,00,00,00,00,00,00,00,00,00,00,00,00  .988
548 DATA 00,00,00,00,00,14,00,00,00,00,00,00,00,00  .373
549 DATA 00,00,00,00,03,F2,00,00,03,EB,00,00,00,01  .676
550 DATA 00,00,03,F2                                . 89
Numero de lineas: 462

Envía esta página web a un amigo:
Esta opción está desactivada temporalmente, rogamos disculpen las molestias

Volver a la página anterior	Al menú principal