Programas/juegos: Simon

Descripción del programa: 
Intenta recordar la serie de números aleatorios que van apareciendo en la pantalla hasta llegar a 10!

Programa:

(VERSION:001)

Sub Main

  Rem SIMON

  Randomize

  For a = 1 To 10

    matrix(a,1) = Rnd(1,4)

  Next

  For a = 1 To 10

    For b = 1 To a

      Print " " & matrix(b,1)

      Pause(250)

      Cls

    Next

    Buttons On

    For b = 1 To a

      Do

      Loop Until but > 0

      If matrix(b,1) <> but Then 

        a = a - 1 

        Print "Fallaste! Total numeros recordados " & a

        Stop

      End If

      but = 0

    Next

    Buttons Off

  Next

  Print "Muy bien! Recordaste los 10 numeros"

End Sub