'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
RANDOMIZE TIMER
SCREEN 13
DIM SHARED mat(1 TO 4000)

DO
   LINE (0, 0)-(99, 0), 0

   FOR x = 0 TO 5
      IF RND > .9 THEN n(x) = INT(RND * 3) - 1

      h(x) = h(x) + n(x)
      IF h(x) < 0 THEN h(x) = 0: n(x) = 1
      IF h(x) > 77 THEN h(x) = 77: n(x) = -1

      LINE (h(x), 0)-STEP(2, 0), (x * 4) + 32
   NEXT

   GET (0, 0)-(79, 198), mat

   FOR nn = 0 TO 240 STEP 80
      PUT (nn, 1), mat, PSET
   NEXT

LOOP WHILE INKEY$ = ""