'
'  © 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 SALGAN NéMEROS SEGUIDOS EN LA BONOLOTO "
COLOR 15, 1: LOCATE 24, 28: PRINT "   Hecho en Ronda   ";
COLOR 0, 7
LOCATE 12, 20: PRINT "Con n£meros seguidos........"
LOCATE 14, 20: PRINT "Sin n£meros seguidos........"
LOCATE 16, 20: PRINT "N£mero de sorteos..........."
LOCATE 6, 3: PRINT "Combinaci¢n ganadora --->"
DO
   FOR n = 1 TO 6
      Matriz(n) = INT(RND * 49) + 1
   NEXT
   FOR n = 1 TO 6
      LOCATE 6, 25 + n + n + n + n: PRINT Matriz(n)
   NEXT
   ssi = 0
   Nno = 0
   FOR n = 1 TO 6
      c = Matriz(n)
      FOR Nn = 1 TO 6
         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
   LOCATE 12, 50: PRINT si
   LOCATE 14, 50: PRINT no
   LOCATE 16, 50: PRINT num
LOOP WHILE INKEY$ = ""