'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'                    
DECLARE SUB pantalla ()
DECLARE SUB caja (F1!, C1!, F2!, C2!, p!, m!, f!, s!)
SCREEN 0
PALETTE 6, 55
PALETTE 2, 34
PALETTE 4, 36
COLOR 15, 7: CLS

caja 7, 10, 18, 69, 7, 2, 14, 8
LOCATE 8, 11: COLOR 6, 2: PRINT " Programa para ver la posibilidad de que te toque la ONCE "
LOCATE 17, 11: COLOR 6, 2: PRINT "  ONCE.BAS Versi¢n 2     Hecho en Ronda     Octubre 1997  "
COLOR 0, 6
LOCATE 10, 25: INPUT "N£mero Fijo: ", numero
LOCATE 11, 25: INPUT "Serie Fija: ", serie
LOCATE 14, 15: INPUT "Cuantos cupones compras el viernes: ", vie
LOCATE 15, 15: INPUT "Cuantos cupones comprras otro dia: ", lunju


'numero = 12345  '<<<<<<<<<<<<<<<< QUITAR

num$ = STR$(numero)
nn1 = VAL(MID$(num$, 2, 1))
nn2 = VAL(MID$(num$, 3, 1))
nn3 = VAL(MID$(num$, 4, 1))
nn4 = VAL(MID$(num$, 5, 1))
nn5 = VAL(MID$(num$, 6, 1))

pantalla
LOCATE 3, 43: COLOR 15, 4: PRINT " N£mero fijo:"; num$; "  Serie:"; serie
RANDOMIZE TIMER
COLOR 13, 6

DO

   sorts = sorts + 1
   LOCATE 11, 62: PRINT sorts
   LOCATE 12, 62: PRINT INT(sorts / 5)
   LOCATE 13, 62: PRINT INT(sorts / 261)

   dia = dia + 1
   IF dia > 5 THEN dia = 1

   LOCATE 14, 49: COLOR 6, 1: PRINT " L Û M Û X Û J Û V "

   SELECT CASE dia
      CASE 1: LOCATE 14, 49: COLOR 14, 4: PRINT " L "
      CASE 2: LOCATE 14, 53: COLOR 14, 4: PRINT " M "
      CASE 3: LOCATE 14, 57: COLOR 14, 4: PRINT " X "
      CASE 4: LOCATE 14, 61: COLOR 14, 4: PRINT " J "
      CASE 5: LOCATE 14, 65: COLOR 14, 4: PRINT " V "
   END SELECT

   COLOR 13, 6
   LOCATE 9, 57: PRINT "       "

SELECT CASE dia
   CASE 1 TO 4
      gasta# = gasta# + (lunju * 200)
      n1 = INT(RND * 10)
      n2 = INT(RND * 10)
      n3 = INT(RND * 10)
      n4 = INT(RND * 10)
      n5 = INT(RND * 10)
      LOCATE 8, 57: PRINT n1; n2; n3; n4; n5

      IF n5 = nn5 THEN
         IF n4 = nn4 THEN
            IF n3 = nn3 THEN
               IF n2 = nn2 THEN
                  IF n1 = nn1 THEN
                     lj1 = lj1 + 1: gana# = gana# + (5000000 * lunju): LOCATE 5, 25: PRINT lj1: SOUND 3000, 10
                  ELSE
                     lj2 = lj2 + 1: gana# = gana# + (25000 * lunju): LOCATE 6, 25: PRINT lj2: SOUND 3000, 5
                  END IF
               ELSE
                  lj3 = lj3 + 1: gana# = gana# + (2500 * lunju): LOCATE 7, 25: PRINT lj3: SOUND 3000, 3
               END IF
            ELSE
               lj4 = lj4 + 1: gana# = gana# + (500 * lunju): LOCATE 8, 25: PRINT lj4
            END IF
         ELSE
            lj15 = lj15 + 1: gana# = gana# + (200 * lunju): LOCATE 9, 25: PRINT lj15
         END IF
      END IF

      IF n1 = nn1 AND n5 <> nn5 THEN lj15 = lj15 + 1: gana# = gana# + (200 * lunju): LOCATE 9, 25: PRINT lj15

   CASE ELSE

      gasta# = gasta# + (vie * 250)
      n1 = INT(RND * 10)
      n2 = INT(RND * 10)
      n3 = INT(RND * 10)
      n4 = INT(RND * 10)
      n5 = INT(RND * 10)
      seri = INT(RND * 150) + 1
      LOCATE 8, 57: PRINT n1; n2; n3; n4; n5
      LOCATE 9, 57: PRINT seri; "   "

      IF seri <> serie THEN
         IF n5 = nn5 THEN
            IF n4 = nn4 THEN
               IF n3 = nn3 THEN
                  IF n2 = nn2 THEN
                     IF n1 = nn1 THEN
                        v1 = v1 + 1: gana# = gana# + (6000000 * vie): LOCATE 11, 33: PRINT v1: SOUND 2000, 10
                     ELSE
                        v2 = v2 + 1: gana# = gana# + (100000 * vie): LOCATE 12, 33: PRINT v2: SOUND 2000, 5
                     END IF
                  ELSE
                     v3 = v3 + 1: gana# = gana# + (1000 * vie): LOCATE 13, 33: PRINT v3: SOUND 2000, 3
                  END IF
               ELSE
                  v4 = v4 + 1: gana# = gana# + (1000 * vie): LOCATE 14, 33: PRINT v4
               END IF
            ELSE
               v5 = v5 + 1: gana# = gana# + (250 * vie): LOCATE 15, 33: PRINT v5
            END IF
         END IF
      ELSE
         IF n5 = nn5 THEN
            SOUND 500, 4
            IF n4 = nn4 THEN
               IF n3 = nn3 THEN
                  IF n2 = nn2 THEN
                     IF n1 = nn1 THEN
                        s1 = s1 + 1: gana# = gana# + (250000000 * vie): LOCATE 16, 33: PRINT s1: SOUND 1000, 10
                     ELSE
                        s2 = s2 + 1: gana# = gana# + (5000000 * vie): LOCATE 17, 33: PRINT s2: SOUND 1000, 8
                     END IF
                  ELSE
                     s3 = s3 + 1: gana# = gana# + (500000 * vie): LOCATE 18, 33: PRINT s3: SOUND 1000, 6
                  END IF
               ELSE
                  s4 = s4 + 1: gana# = gana# + (50000 * vie): LOCATE 19, 33: PRINT s4: SOUND 1000, 4
               END IF
            ELSE
               s5 = s5 + 1: gana# = gana# + (5000 * vie): LOCATE 20, 33: PRINT s5: SOUND 1000, 2
            END IF
         END IF
      END IF
  
   END SELECT
  
   LOCATE 20, 62: PRINT gasta#
   LOCATE 21, 62: PRINT gasta# - gana#
   LOCATE 22, 62: PRINT gana#
   LOCATE 23, 62: PRINT gana# - gasta#

LOOP UNTIL INKEY$ = CHR$(27)

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                    
SUB caja (F1, C1, F2, C2, p, m, f, s)
IF F2 - F1 = 0 THEN : m = f
COLOR m, f
a = C2 - C1 + 1
LOCATE F1, C1
PRINT "Ú"; STRING$(a - 2, "Ä"); "¿";
LOCATE F1, C1 + a: COLOR s, p: PRINT "Ü";
FOR aa = F1 + 1 TO F2 - 1
   LOCATE aa, C1
   COLOR m, f: PRINT "³"; SPACE$(a - 2); "³";
   LOCATE aa, C1 + a: COLOR s, p: PRINT "Û";
NEXT aa
LOCATE F2, C1
COLOR m, f: PRINT "À"; STRING$(a - 2, "Ä"); "Ù";
IF F2 - F1 > 0 THEN : LOCATE F2, C1 + a: COLOR s, p: PRINT "Û";
LOCATE F2 + 1, C1 + 1: COLOR s, p:  PRINT STRING$(a, "ß");
COLOR m, f
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...    www.jm-web.tk     ::    es.geocities.com/jm00092
'
'______________________________________________________________________
'                    
SUB pantalla
COLOR 15, 7: CLS
LOCATE 23, 8: COLOR 11, 1: PRINT " Precios y premios octubre 1997 ";
LOCATE 24, 8: COLOR 9, 1: PRINT "     HECHO EN RONDA    ";
COLOR 14: PRINT MID$(TIME$, 1, 5); "    ";
caja 2, 5, 21, 40, 7, 2, 14, 8
LOCATE 3, 6: COLOR 6, 2: PRINT "        Premios conseguidos       "

LOCATE 4, 6: COLOR 2, 6: PRINT " Lunes a Jueves     VECES "
COLOR 0
LOCATE 5, 7: PRINT "5 cifras.........:"
LOCATE 6, 7: PRINT "4 £ltimas cifras.:"
LOCATE 7, 7: PRINT "3 £ltimas cifras.:"
LOCATE 8, 7: PRINT "2 £ltimas cifras.:"
LOCATE 9, 7: PRINT "Reintegros.......:"

LOCATE 10, 6: COLOR 2, 6: PRINT " Viernes                    VECES "
COLOR 0
LOCATE 11, 7: PRINT "5 cifras.................:"
LOCATE 12, 7: PRINT "4 £ltimas cifras.........:"
LOCATE 13, 7: PRINT "3 £ltimas cifras.........:"
LOCATE 14, 7: PRINT "2 £ltimas cifras.........:"
LOCATE 15, 7: PRINT "Reintegro................:"
LOCATE 16, 7: PRINT "5 cifras + Serie.........:"
LOCATE 17, 7: PRINT "4 £ltimas cifras + Serie.:"
LOCATE 18, 7: PRINT "3 £ltimas cifras + Serie.:"
LOCATE 19, 7: PRINT "2 £ltimas cifras + Serie.:"
LOCATE 20, 7: PRINT "£ltima cifra + Serie.....:"

caja 17, 43, 24, 72, 7, 4, 14, 8
LOCATE 18, 44: COLOR 6, 4: PRINT "         Beneficios         "
LOCATE 19, 44: COLOR 4, 6: PRINT "                   PESETAS  "
COLOR 0, 6
LOCATE 20, 45: PRINT "Dinero gastado..:"
LOCATE 21, 45: PRINT "Dinero perdido..: "
LOCATE 22, 45: PRINT "Dinero ganado...:"
COLOR 16
LOCATE 23, 45: PRINT "Beneficios......:"

caja 5, 43, 15, 72, 7, 2, 14, 8
LOCATE 6, 44: COLOR 6, 2: PRINT "      Sorteo Aleatorio      "
COLOR 0, 6
LOCATE 8, 45: PRINT "N£mero.....:"
LOCATE 9, 45: PRINT "Serie......:"
COLOR 1
LOCATE 11, 49: PRINT "Sorteo N§...:"
LOCATE 12, 49: PRINT "Semanas.....:"
LOCATE 13, 49: PRINT "A¤os........:"
LOCATE 14, 49: COLOR 6, 1: PRINT " L Û M Û X Û J Û V "

END SUB