'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                                 
RANDOMIZE TIMER
COLOR 15, 7: CLS
COLOR 15, 1: PRINT "  PROGRAMA PARA VER LA POSIBILIDAD DE QUE TOQUE LA   O. N. C. E.  "
COLOR 15, 1: LOCATE 24, 22: PRINT " Hecho en Ronda ";
COLOR 15, 1: LOCATE 24, 41: PRINT " Precios y premios Noviembre 1996 ";

LOCATE 3, 55: INPUT "  N£mero fijo: ", nf$
LOCATE 4, 55: INPUT "        Serie: ", miserie

FOR n = 0 TO 9
   LOCATE n + 14, 2: PRINT n; ".."
NEXT
LOCATE 7, 43: PRINT "Beneficios............"
LOCATE 18, 30: PRINT "N£mero de jugadas........"
LOCATE 10, 3: PRINT "Toca algo........"
LOCATE 6, 7: PRINT "N£mero premiado --->"
LOCATE 13, 2: PRINT "--Terminaciones--"

FOR n = 1 TO 5
   mi(n) = VAL(MID$(nf$, n, 1))
NEXT

COLOR 0, 7
LOCATE 11, 3: PRINT "No toca nada....."
LOCATE 5, 43: PRINT "Dinero gastado........."
LOCATE 6, 43: PRINT "Premios obtenidos......"
LOCATE 8, 43: PRINT "Meses y a¤os que pasan."
LOCATE 10, 36: PRINT "éltima cifra............"
LOCATE 11, 36: PRINT "Dos £ltimas cifras......"
LOCATE 12, 36: PRINT "Tres £ltimas cifras....."
LOCATE 13, 36: PRINT "Cuartro £ltimas cifras.."
LOCATE 14, 36: PRINT "Cinco cifras............"
LOCATE 15, 36: PRINT "Anterior o posterior...."
LOCATE 16, 36: PRINT "Premio especial serie..."
LOCATE 19, 30: PRINT "Con n£meros repetidos...."
LOCATE 20, 30: PRINT "Sin n£meros repetidos...."
LOCATE 21, 30: PRINT "N£meros ''Capic£a''......"
LOCATE 22, 30: PRINT "Primero = £ltimo........."
LOCATE 7, 7: PRINT "Serie ------------->"
DO
   FOR n = 1 TO 5
      matriz(n) = INT(RND * 10)
      serie = INT(RND * 125)
      IF n = 10 THEN : BEEP: n = 9
   NEXT
   FOR n = 1 TO 5
      LOCATE 6, 25 + n + n: PRINT matriz(n)
   NEXT
   LOCATE 7, 27: PRINT serie; "    "
   ssi = 0
   Nno = 0
   FOR n = 1 TO 5
      c = matriz(n)
      FOR Nn = 1 TO 5
         IF c = ((matriz(Nn)) - 1) THEN : ssi = 1:  ELSE : Nno = 1
      NEXT
   NEXT
   IF ssi THEN si = si + 1 ELSE no = no + 1
   num = num + 1
   IF matriz(1) = matriz(5) AND matriz(2) = matriz(4) THEN capi = capi + 1
   IF matriz(1) = matriz(5) AND matriz(2) <> matriz(4) THEN puntas = puntas + 1
   LOCATE 18, 55: PRINT num
   LOCATE 19, 55: PRINT si; "..."; FIX((si / num) * 100); "%  "
   LOCATE 20, 55: PRINT no; "..."; FIX((no / num) * 100); "%  "
   LOCATE 21, 55: PRINT capi; "..."; FIX((capi / num) * 100); "%  "
   LOCATE 22, 55: PRINT puntas; "..."; FIX((puntas / num) * 100); "%  "
   ulti(matriz(5)) = ulti(matriz(5)) + 1
   FOR n = 0 TO 9
      LOCATE n + 14, 7: PRINT ulti(n); "...";
      PRINT USING "##.##"; (((ulti(n)) / num) * 100);
      PRINT "%  "
   NEXT

   pre = 0
   IF mi(5) = matriz(5) THEN pre = 1
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) THEN pre = 2
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) THEN pre = 3
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) AND mi(2) = matriz(2) THEN pre = 4
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) AND mi(2) = matriz(2) AND mi(1) = matriz(1) THEN pre = 5
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) AND mi(2) = matriz(2) AND mi(1) = matriz(1) - 1 THEN pre = 6
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) AND mi(2) = matriz(2) AND mi(1) = matriz(1) + 1 THEN pre = 6

   SELECT CASE pre
      CASE 1: premio = premio + 160: p(1) = p(1) + 1
      CASE 2: premio = premio + 600: p(2) = p(2) + 1
      CASE 3: premio = premio + 6000: p(3) = p(3) + 1: SOUND 900, 3
      CASE 4: premio = premio + 60000: p(4) = p(4) + 1: SOUND 900, 6
      CASE 5: premio = premio + 4040000: p(5) = p(5) + 1: SOUND 900, 9
      CASE 6: premio = premio + 100000: p(6) = p(6) + 1: SOUND 900, 12
   END SELECT
   IF mi(5) = matriz(5) AND mi(4) = matriz(4) AND mi(3) = matriz(3) AND mi(2) = matriz(2) AND mi(1) = matriz(1) AND serie = miserie THEN premio = premio + 160000000: p(7) = p(7) + 1: SOUND 900, 15: BEEP

   FOR n = 1 TO 7
      LOCATE n + 9, 60: PRINT p(n); "veces"
   NEXT

   IF pre = 0 THEN : notoca = notoca + 1:  ELSE : toca = toca + 1

   LOCATE 10, 20: PRINT toca; "veces"
   LOCATE 11, 20: PRINT notoca; "veces"

   gasto = num * 160
   LOCATE 5, 66: PRINT gasto; "Pts."
   LOCATE 6, 66: PRINT premio; "Pts."
   LOCATE 7, 66: PRINT premio - gasto; "Pts."
   LOCATE 8, 66: PRINT FIX(num / 20); "("; FIX(num / 240); ")"
LOOP WHILE INKEY$ = ""